!> FIXME : Add documentation module fields_parallelization implicit none private public :: field_k_local contains !> FIXME : Add documentation function field_k_local(it,ik) use mp, only: iproc, nproc implicit none integer, intent(in) :: ik, it logical :: field_k_local ! This is temporary while the fields are being parallelised field_k_local = (mod(it-1,nproc) == iproc) end function field_k_local end module fields_parallelization