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