function getParameters() result(params) type (GridCase), allocatable :: params(:) ! 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], [-180., -90., 0., 90.], [-45., 45.]), & & GridCase(2, 1, 4, 2, 'DC', 'PE', .true., [2,2], [2], [-180., -90., 0., 90.], [-45., 45.]), & & GridCase(1, 2, 4, 6, 'DC', 'PE', .true., [4], [3,3], [-180., -90., 0., 90.], [-75., -45., -15., 15., 45., 75.]), & & GridCase(1, 1, 4, 3, 'DC', 'PC', .true., [4], [3], [-180., -90., 0., 90.], [-90., 0., 90.]), & & GridCase(1, 1, 4, 2, 'DE', 'PE', .true., [4], [2], [-135., -45., +45., 135.], [-45., 45.]), & & GridCase(1, 1, 4, 2, 'GC', 'PE', .true., [4], [2], [0., 90., 180., 270.], [-45., 45.]), & & GridCase(1, 1, 4, 2, RealMinMax(0.,40.), RealMinMax(10.,30.), .true., [4],[2], [5.,15.,25.,35.], [15.,25.]), & ! Custom decomposition & GridCase(1, 1, 4, 2, 'DC', 'PE', .false., [4], [2], [-180., -90., 0., 90.], [-45., 45.]), & & GridCase(2, 1, 4, 2, 'DC', 'PE', .false., [2,2], [2], [-180., -90., 0., 90.], [-45., 45.]), & & GridCase(1, 2, 4, 6, 'DC', 'PE', .false., [4], [3,3], [-180., -90., 0., 90.], [-75., -45., -15., 15., 45., 75.]), & & GridCase(3, 1, 8, 2, 'DC', 'PE', .false., [2,4,2], [2], [-180.,-135.,-90.,-45., 0., 45., 90.,135.], [-45., 45.]), & & GridCase(1, 1, 4, 3, 'DC', 'PC', .false., [4], [3], [-180., -90., 0., 90.], [-90., 0., 90.]), & & GridCase(1, 1, 4, 2, 'DE', 'PE', .false., [4], [2], [-135., -45., +45., 135.], [-45., 45.]), & & GridCase(1, 1, 4, 2, 'GC', 'PE', .false., [4], [2], [0., 90., 180., 270.], [-45., 45.]) & & ] end function getParameters