ArrDescrSet Subroutine

public subroutine ArrDescrSet(ArrDes, offset, readers_comm, ioscattercomm, writers_comm, iogathercomm, i1, in, j1, jn, im_world, jm_world, lm_world)

Arguments

Type IntentOptional Attributes Name
type(ArrDescr), intent(inout) :: ArrDes
integer(kind=MPI_OFFSET_KIND), intent(in), optional :: offset
integer, intent(in), optional :: readers_comm
integer, intent(in), optional :: ioscattercomm
integer, intent(in), optional :: writers_comm
integer, intent(in), optional :: iogathercomm
integer, optional, target :: i1(:)
integer, optional, target :: in(:)
integer, optional, target :: j1(:)
integer, optional, target :: jn(:)
integer, intent(in), optional :: im_world
integer, intent(in), optional :: jm_world
integer, intent(in), optional :: lm_world

Calls

proc~~arrdescrset~~CallsGraph proc~arrdescrset ArrDescrSet mpi_comm_dup mpi_comm_dup proc~arrdescrset->mpi_comm_dup proc~mapl_return MAPL_Return proc~arrdescrset->proc~mapl_return proc~mapl_verify MAPL_Verify proc~arrdescrset->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~arrdescrset~~CalledByGraph proc~arrdescrset ArrDescrSet proc~mapl_esmfstatereadfromfile MAPL_ESMFStateReadFromFile proc~mapl_esmfstatereadfromfile->proc~arrdescrset proc~mapl_genericfinalize MAPL_GenericFinalize proc~mapl_genericfinalize->proc~arrdescrset proc~mapl_genericrecord MAPL_GenericRecord proc~mapl_genericrecord->proc~arrdescrset proc~mapl_genericstatesave MAPL_GenericStateSave proc~mapl_genericstatesave->proc~arrdescrset proc~mapl_genericstatesave->proc~mapl_genericstatesave proc~mapl_genericinitialize MAPL_GenericInitialize proc~mapl_genericinitialize->proc~mapl_esmfstatereadfromfile proc~mapl_genericrefresh MAPL_GenericRefresh proc~mapl_genericrefresh->proc~mapl_esmfstatereadfromfile proc~mapl_genericrefresh->proc~mapl_genericrefresh proc~mapl_genericstaterestore MAPL_GenericStateRestore proc~mapl_genericstaterestore->proc~mapl_esmfstatereadfromfile proc~mapl_genericstaterestore->proc~mapl_genericstaterestore

Source Code

    subroutine ArrDescrSet(ArrDes, offset, &
         readers_comm, ioscattercomm, &
         writers_comm, iogathercomm, &
         i1, in, j1, jn, im_world, jm_world, lm_world)

      type(ArrDescr),                 intent(INOUT) :: ArrDes
      integer(kind=MPI_OFFSET_KIND), &
                           optional,  intent(IN   ) :: offset
      integer, optional,              intent(IN   ) :: readers_comm, ioscattercomm
      integer, optional,              intent(IN   ) :: writers_comm, iogathercomm
      integer, optional, target                    :: i1(:), in(:), j1(:), jn(:)
      integer, optional,              intent(IN   ) :: im_world, jm_world, lm_world
      integer :: status
      
      if(present(offset  )) ArrDes%offset   = offset
      if(present(readers_comm )) then
         call MAPL_Comm_dup(readers_comm, ArrDes%readers_comm, status)
      end if
      if(present(ioscattercomm)) then
         call MAPL_Comm_dup(IOscattercomm, ArrDes%IOscattercomm, status)
      end if
      if(present(writers_comm )) then
         call MAPL_Comm_dup(writers_comm, ArrDes%writers_comm, status)
      end if
      if(present(iogathercomm)) then
         call MAPL_Comm_dup(IOgathercomm, ArrDes%IOgathercomm, status)
      end if
      if(present(i1      )) ArrDes%i1       => i1
      if(present(in      )) ArrDes%in       => in
      if(present(j1      )) ArrDes%j1       => j1
      if(present(jn      )) ArrDes%jn       => jn
      if(present(im_world)) ArrDes%im_world = im_world
      if(present(jm_world)) ArrDes%jm_world = jm_world
      if(present(lm_world)) ArrDes%lm_world = lm_world

    end subroutine ArrDescrSet