GridCase_global Function

public function GridCase_global(nx, ny, im_world, jm_world, dateline, pole, default_decomposition, ims, jms, lons, lats) result(param)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: nx
integer, intent(in) :: ny
integer, intent(in) :: im_world
integer, intent(in) :: jm_world
character(len=2), intent(in) :: dateline
character(len=2), intent(in) :: pole
logical, intent(in) :: default_decomposition
integer, intent(in) :: ims(:)
integer, intent(in) :: jms(:)
real, intent(in) :: lons(:)
real, intent(in) :: lats(:)

Return Value type(GridCase)


Calls

proc~~gridcase_global~2~~CallsGraph proc~gridcase_global~2 GridCase_global none~setnumpetsrequested ESMF_TestParameter%setNumPetsRequested proc~gridcase_global~2->none~setnumpetsrequested

Called by

proc~~gridcase_global~2~~CalledByGraph proc~gridcase_global~2 GridCase_global interface~gridcase~2 GridCase interface~gridcase~2->proc~gridcase_global~2

Source Code

   function GridCase_global(nx, ny, im_world, jm_world, dateline, pole, default_decomposition, ims, jms, lons, lats) result(param)
      integer, intent(in) :: nx, ny
      integer, intent(in) :: im_world, jm_world
      character(len=2), intent(in) :: dateline, pole
      logical, intent(in) :: default_decomposition
      integer, intent(in) :: ims(:), jms(:)
      real, intent(in) :: lons(:), lats(:) ! in degrees

      type (GridCase) :: param

      param%nx = nx
      param%ny = ny
      param%im_world = im_world
      param%jm_world = jm_world
      param%dateline = dateline
      param%pole = pole

      param%default_decomposition = default_decomposition
      param%ims = ims
      param%jms = jms

      param%lons = lons
      param%lats = lats

      call param%setNumPETsRequested(nx*ny)
      
   end function GridCase_global