getParameters Function

public function getParameters() result(params)

Arguments

None

Return Value type(GridCase), allocatable, (:)


Source Code

   function getParameters() result(params)
      type (GridCase), allocatable :: params(:)
      integer :: i
      !              nx ny  im jm pole date    dec   ims   jms      lon range               lat range
      params = [ &
           ! Default decomposition
           & GridCase(1, 1, 4, 2, 'DC', 'PE', .true., [4],   [2],   [-225., -135., -45., 45.],    [-90., 0., 90.]), &
           & GridCase(2, 1, 4, 2, 'DC', 'PE', .true., [2,2], [2],   [-225., -135., -45., 45.],    [-90., 0., 90.]), & 
           & GridCase(1, 2, 4, 4, 'DC', 'PE', .true., [4],   [2,2], [-225., -135., -45., 45.],    [-90.,-45.,0., 45., 90.]), &
           & GridCase(1, 1, 4, 3, 'DC', 'PC', .true., [4],   [3],   [-225., -135., -45., 45.],    [-90., -45., 45., 90.]), &
           & GridCase(1, 1, 4, 2, 'DE', 'PE', .true., [4],   [2],   [-180., -90., 0., 90.], [-90., 0., 90.]), &
           & GridCase(1, 1, 4, 2, 'GC', 'PE', .true., [4],   [2],   [-45., 45., 135., 225.],     [-90., 0., 90.]), &
           & GridCase(1, 1, 4, 2, RealMinMax(0.,40.), RealMinMax(10.,30.), .true., [4],[2], [0.,10.,20.,30.,40.], [10.,20., 30.]), &
           ! Custom decomposition
           & GridCase(1, 1, 4, 2, 'DC', 'PE', .false., [4],   [2],   [-225., -135., -45., 45.],    [-90., 0., 90.]), & 
           & GridCase(2, 1, 4, 2, 'DC', 'PE', .false., [2,2], [2],   [-225., -135., -45., 45.],    [-90., 0., 90.]), &
           & GridCase(1, 2, 4, 4, 'DC', 'PE', .false., [4],   [2,2], [-225., -135., -45., 45.],    [-90.,-45.,0., 45., 90.]), &
           & GridCase(3, 1, 8, 2, 'DC', 'PE', .false., [2,4,2], [2], [(-202.5+45.*i, i=0,7) ],     [-90., 0., 90.]), &
           & GridCase(1, 1, 4, 3, 'DC', 'PC', .false., [4],   [3],   [-225., -135., -45., 45.],    [-90., -45., 45., 90.]), &
           & GridCase(1, 1, 4, 2, 'DE', 'PE', .false., [4],   [2],   [-180., -90., 0., 90.],       [-90., 0., 90.]), &
           & GridCase(1, 1, 4, 3, 'GC', 'PE', .false., [4],   [3],   [-45., 45., 135., 225., 315.],      [-90., -30., +30., +90.]) &
           & ]

   end function getParameters