fields_parallelization.f90 Source File


Contents


Source Code

!> 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