subroutine set_lonsgg(lonsperlat,lonsperlar,num_reduce,me) ! use resol_def use reduce_lons_grid_module, only : reduce_grid ! hmhj integer num_reduce, me ! hmhj integer lonsperlat(latg),lonsperlar(latr) integer lonsperlat_62(94),lonsperlar_62(94) integer lonsperlat_126(190),lonsperlar_126(190) integer lonsperlat_170(256),lonsperlar_170(256) integer lonsperlat_190(288),lonsperlar_190(288) integer lonsperlat_254(384),lonsperlar_254(384) integer lonsperlat_382(576),lonsperlar_382(576) integer lonsperlat_510(766),lonsperlar_510(766) integer lonsperlat_574(880),lonsperlar_574(880) data lonsperlat_62/ & 30, 30, 30, 40, 48, 56, 60, 72, 72, 80, 90, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 144, 144, 154, 160, & 160, 168, 168, 180, 180, 180, 180, 180, 180, 192, 192, 192, & 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, 47*0/ data lonsperlar_62/ & 30, 30, 30, 40, 48, 56, 60, 72, 72, 80, 90, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 144, 144, 154, 160, & 160, 168, 168, 180, 180, 180, 180, 180, 180, 192, 192, 192, & 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, 192, 47*0/ data lonsperlat_126 / & 30, 30, 36, 48, 56, 60, 72, 72, 80, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 154, 160, & 160, 180, 180, 180, 192, 192, 210, 210, 220, 220, & 240, 240, 240, 240, 240, 252, 256, 280, 280, 280, & 280, 288, 288, 288, 288, 308, 308, 308, 320, 320, & 320, 320, 330, 330, 360, 360, 360, 360, 360, 360, & 360, 360, 360, 360, 360, 360, 384, 384, 384, 384, & 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, & 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, & 384, 384, 384, 384, 384, 95*0 / data lonsperlar_126 / & 30, 30, 36, 48, 56, 60, 72, 72, 80, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 154, 160, & 160, 180, 180, 180, 192, 192, 210, 210, 220, 220, & 240, 240, 240, 240, 240, 252, 256, 280, 280, 280, & 280, 288, 288, 288, 288, 308, 308, 308, 320, 320, & 320, 320, 330, 330, 360, 360, 360, 360, 360, 360, & 360, 360, 360, 360, 360, 360, 384, 384, 384, 384, & 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, & 384, 384, 384, 384, 384, 384, 384, 384, 384, 384, & 384, 384, 384, 384, 384, 95*0 / data lonsperlat_170 / & 48, 48, 48, 48, 48, 56, 60, 72, 72, 80, 90, 96, & 110, 110, 120, 120, 128, 144, 144, 144, 154, 160, 168, 180, & 180, 180, 192, 210, 210, 220, 220, 240, 240, 240, 240, 240, & 252, 256, 280, 280, 280, 288, 288, 288, 308, 308, 320, 320, & 320, 320, 330, 360, 360, 360, 360, 360, 360, 360, 384, 384, & 384, 384, 384, 384, 420, 420, 420, 440, 440, 440, 440, 440, & 440, 440, 440, 440, 462, 462, 462, 462, 462, 480, 480, 480, & 480, 480, 480, 480, 480, 480, 480, 480, 504, 504, 504, 504, & 504, 504, 504, 504, 504, 512, 512, 512, 512, 512, 512, 512, & 512, 512, 512, 512, 512, 512, 512, 512, 512, 512, 512, 512, & 512, 512, 512, 512, 512, 512, 512, 512, 128*0 / data lonsperlar_170 / & 48, 48, 48, 48, 48, 56, 60, 72, 72, 80, 90, 96, & 110, 110, 120, 120, 128, 144, 144, 144, 154, 160, 168, 180, & 180, 180, 192, 210, 210, 220, 220, 240, 240, 240, 240, 240, & 252, 256, 280, 280, 280, 288, 288, 288, 308, 308, 320, 320, & 320, 320, 330, 360, 360, 360, 360, 360, 360, 360, 384, 384, & 384, 384, 384, 384, 420, 420, 420, 440, 440, 440, 440, 440, & 440, 440, 440, 440, 462, 462, 462, 462, 462, 480, 480, 480, & 480, 480, 480, 480, 480, 480, 480, 480, 504, 504, 504, 504, & 504, 504, 504, 504, 504, 512, 512, 512, 512, 512, 512, 512, & 512, 512, 512, 512, 512, 512, 512, 512, 512, 512, 512, 512, & 512, 512, 512, 512, 512, 512, 512, 512, 128*0 / data lonsperlat_190 / & 64, 64, 64, 64, 64, 64, 64, 70, 80, 84, & 88, 110, 110, 110, 120, 126, 132, 140, 144, 154, & 160, 168, 176, 176, 192, 192, 198, 210, 210, 220, & 220, 240, 240, 240, 252, 252, 256, 264, 280, 280, & 280, 288, 308, 308, 308, 320, 320, 320, 330, 336, & 352, 352, 352, 352, 360, 384, 384, 384, 384, 384, & 396, 396, 420, 420, 420, 420, 420, 440, 440, 440, & 440, 440, 448, 448, 462, 462, 462, 480, 480, 480, & 480, 480, 504, 504, 504, 504, 504, 504, 504, 512, & 512, 528, 528, 528, 528, 528, 528, 560, 560, 560, & 560, 560, 560, 560, 560, 560, 560, 560, 560, 560, & 560, 576, 576, 576, 576, 576, 576, 576, 576, 576, & 576, 576, 576, 576, 576, 576, 576, 576, 576, 576, & 576, 576, 576, 576, 576, 576, 576, 576, 576, 576, & 576, 576, 576, 576, 144* 0/ ! data lonsperlar_190 / & 64, 64, 64, 64, 64, 64, 64, 70, 80, 84, & 88, 110, 110, 110, 120, 126, 132, 140, 144, 154, & 160, 168, 176, 176, 192, 192, 198, 210, 210, 220, & 220, 240, 240, 240, 252, 252, 256, 264, 280, 280, & 280, 288, 308, 308, 308, 320, 320, 320, 330, 336, & 352, 352, 352, 352, 360, 384, 384, 384, 384, 384, & 396, 396, 420, 420, 420, 420, 420, 440, 440, 440, & 440, 440, 448, 448, 462, 462, 462, 480, 480, 480, & 480, 480, 504, 504, 504, 504, 504, 504, 504, 512, & 512, 528, 528, 528, 528, 528, 528, 560, 560, 560, & 560, 560, 560, 560, 560, 560, 560, 560, 560, 560, & 560, 576, 576, 576, 576, 576, 576, 576, 576, 576, & 576, 576, 576, 576, 576, 576, 576, 576, 576, 576, & 576, 576, 576, 576, 576, 576, 576, 576, 576, 576, & 576, 576, 576, 576, 144* 0/ data lonsperlat_254 / & 64, 64, 64, 64, 64, 64, 72, 72, 80, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 154, 160, & 168, 180, 180, 180, 192, 192, 210, 220, 220, 240, & 240, 240, 240, 252, 256, 280, 280, 280, 288, 288, & 288, 308, 308, 320, 320, 320, 330, 360, 360, 360, & 360, 360, 360, 384, 384, 384, 384, 420, 420, 420, & 440, 440, 440, 440, 440, 440, 462, 462, 462, 480, & 480, 480, 480, 480, 480, 504, 504, 504, 504, 512, & 512, 560, 560, 560, 560, 560, 560, 576, 576, 576, & 576, 576, 576, 576, 576, 616, 616, 616, 616, 616, & 616, 640, 640, 640, 640, 640, 640, 640, 640, 640, & 640, 660, 660, 660, 720, 720, 720, 720, 720, 720, & 720, 720, 720, 720, 720, 720, 720, 720, 720, 720, & 720, 720, 720, 720, 720, 720, 720, 720, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 192*0/ data lonsperlar_254 / & 64, 64, 64, 64, 64, 64, 72, 72, 80, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 154, 160, & 168, 180, 180, 180, 192, 192, 210, 220, 220, 240, & 240, 240, 240, 252, 256, 280, 280, 280, 288, 288, & 288, 308, 308, 320, 320, 320, 330, 360, 360, 360, & 360, 360, 360, 384, 384, 384, 384, 420, 420, 420, & 440, 440, 440, 440, 440, 440, 462, 462, 462, 480, & 480, 480, 480, 480, 480, 504, 504, 504, 504, 512, & 512, 560, 560, 560, 560, 560, 560, 576, 576, 576, & 576, 576, 576, 576, 576, 616, 616, 616, 616, 616, & 616, 640, 640, 640, 640, 640, 640, 640, 640, 640, & 640, 660, 660, 660, 720, 720, 720, 720, 720, 720, & 720, 720, 720, 720, 720, 720, 720, 720, 720, 720, & 720, 720, 720, 720, 720, 720, 720, 720, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 768, 768, 768, 768, 768, & 768, 768, 192*0/ data lonsperlat_382 / & 64, 64, 64, 64, 64, 64, 64, 70, 80, 84, & 88, 96, 110, 110, 120, 126, 132, 140, 144, 154, & 160, 168, 176, 180, 192, 192, 198, 210, 220, 220, & 224, 240, 240, 252, 252, 256, 264, 280, 280, 280, & 288, 308, 308, 308, 320, 320, 330, 336, 352, 352, & 352, 360, 384, 384, 384, 384, 396, 396, 420, 420, & 420, 420, 440, 440, 440, 448, 448, 462, 462, 480, & 480, 480, 504, 504, 504, 504, 512, 528, 528, 528, & 560, 560, 560, 560, 560, 560, 576, 576, 616, 616, & 616, 616, 616, 616, 616, 616, 630, 630, 640, 640, & 660, 660, 660, 660, 672, 672, 704, 704, 704, 704, & 704, 704, 720, 720, 720, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 792, 792, 792, 792, 792, & 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, & 880, 880, 880, 880, 880, 880, 880, 880, 880, 880, & 896, 896, 896, 896, 924, 924, 924, 924, 924, 924, & 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, & 990, 990, 990, 990, 990, 990, 990, 990,1008,1008, & 1008,1008,1008,1008,1024,1024,1024,1024,1024,1024, & 1056,1056,1056,1056,1056,1056,1056,1056,1056,1056, & 1120,1120,1120,1120,1120,1120,1120,1120,1120,1120, & 1120,1120,1120,1120,1120,1120,1120,1120,1120,1120, & 1120,1120,1120,1120,1120,1120,1120,1120,1120,1120, & 1120,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152, 288* 0/ data lonsperlar_382 / & 64, 64, 64, 64, 64, 64, 64, 70, 80, 84, & 88, 96, 110, 110, 120, 126, 132, 140, 144, 154, & 160, 168, 176, 180, 192, 192, 198, 210, 220, 220, & 224, 240, 240, 252, 252, 256, 264, 280, 280, 280, & 288, 308, 308, 308, 320, 320, 330, 336, 352, 352, & 352, 360, 384, 384, 384, 384, 396, 396, 420, 420, & 420, 420, 440, 440, 440, 448, 448, 462, 462, 480, & 480, 480, 504, 504, 504, 504, 512, 528, 528, 528, & 560, 560, 560, 560, 560, 560, 576, 576, 616, 616, & 616, 616, 616, 616, 616, 616, 630, 630, 640, 640, & 660, 660, 660, 660, 672, 672, 704, 704, 704, 704, & 704, 704, 720, 720, 720, 768, 768, 768, 768, 768, & 768, 768, 768, 768, 768, 792, 792, 792, 792, 792, & 840, 840, 840, 840, 840, 840, 840, 840, 840, 840, & 880, 880, 880, 880, 880, 880, 880, 880, 880, 880, & 896, 896, 896, 896, 924, 924, 924, 924, 924, 924, & 960, 960, 960, 960, 960, 960, 960, 960, 960, 960, & 990, 990, 990, 990, 990, 990, 990, 990,1008,1008, & 1008,1008,1008,1008,1024,1024,1024,1024,1024,1024, & 1056,1056,1056,1056,1056,1056,1056,1056,1056,1056, & 1120,1120,1120,1120,1120,1120,1120,1120,1120,1120, & 1120,1120,1120,1120,1120,1120,1120,1120,1120,1120, & 1120,1120,1120,1120,1120,1120,1120,1120,1120,1120, & 1120,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152,1152,1152, & 1152,1152,1152,1152,1152,1152,1152,1152, 288* 0/ data lonsperlat_510 / & 64, 64, 64, 64, 64, 64, 72, 72, 80, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 154, 160, & 168, 180, 180, 180, 192, 210, 210, 220, 220, 240, & 240, 240, 240, 252, 256, 280, 280, 288, 288, 288, & 308, 308, 320, 320, 320, 330, 360, 360, 360, 360, & 360, 384, 384, 384, 384, 420, 420, 440, 440, 440, & 440, 440, 440, 462, 462, 462, 480, 480, 480, 480, & 504, 504, 504, 504, 512, 512, 560, 560, 560, 560, & 576, 576, 576, 576, 576, 576, 616, 616, 616, 616, & 640, 640, 640, 640, 640, 640, 640, 660, 720, 720, & 720, 720, 720, 720, 720, 720, 720, 720, 720, 720, & 720, 768, 768, 768, 768, 768, 768, 768, 768, 840, & 840, 840, 840, 840, 840, 840, 840, 880, 880, 880, & 880, 880, 880, 880, 880, 880, 880, 924, 924, 924, & 924, 924, 924, 924, 960, 960, 960, 960, 960, 960, & 960, 960, 960, 960, 960, 990, 990, 990, 1008, 1008, & 1008, 1008, 1008, 1024, 1024, 1024, 1024, 1024, 1120, 1120, & 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, & 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, & 1152, 1152, 1152, 1152, 1152, 1152, 1232, 1232, 1232, 1232, & 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1260, 1260, & 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1260, & 1280, 1280, 1280, 1280, 1280, 1280, 1280, 1280, 1280, 1320, & 1320, 1320, 1320, 1386, 1386, 1386, 1386, 1386, 1386, 1386, & 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, & 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 383*0/ data lonsperlar_510 / & 64, 64, 64, 64, 64, 64, 72, 72, 80, 90, & 96, 110, 110, 120, 120, 128, 144, 144, 154, 160, & 168, 180, 180, 180, 192, 210, 210, 220, 220, 240, & 240, 240, 240, 252, 256, 280, 280, 288, 288, 288, & 308, 308, 320, 320, 320, 330, 360, 360, 360, 360, & 360, 384, 384, 384, 384, 420, 420, 440, 440, 440, & 440, 440, 440, 462, 462, 462, 480, 480, 480, 480, & 504, 504, 504, 504, 512, 512, 560, 560, 560, 560, & 576, 576, 576, 576, 576, 576, 616, 616, 616, 616, & 640, 640, 640, 640, 640, 640, 640, 660, 720, 720, & 720, 720, 720, 720, 720, 720, 720, 720, 720, 720, & 720, 768, 768, 768, 768, 768, 768, 768, 768, 840, & 840, 840, 840, 840, 840, 840, 840, 880, 880, 880, & 880, 880, 880, 880, 880, 880, 880, 924, 924, 924, & 924, 924, 924, 924, 960, 960, 960, 960, 960, 960, & 960, 960, 960, 960, 960, 990, 990, 990, 1008, 1008, & 1008, 1008, 1008, 1024, 1024, 1024, 1024, 1024, 1120, 1120, & 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1120, & 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, 1152, & 1152, 1152, 1152, 1152, 1152, 1152, 1232, 1232, 1232, 1232, & 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1260, 1260, & 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1260, & 1280, 1280, 1280, 1280, 1280, 1280, 1280, 1280, 1280, 1320, & 1320, 1320, 1320, 1386, 1386, 1386, 1386, 1386, 1386, 1386, & 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, & 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 383*0/ data lonsperlat_574 / & 18, 28, 32, 42, 48, 56, 64, 72, 80, 84, & 90, 110, 110, 110, 120, 126, 132, 140, 144, 154, & 160, 168, 176, 176, 192, 192, 198, 210, 210, 220, & 224, 240, 240, 252, 252, 256, 264, 280, 280, 288, & 288, 308, 308, 308, 320, 320, 330, 330, 352, 352, & 352, 360, 384, 384, 384, 384, 396, 396, 420, 420, & 420, 420, 440, 440, 440, 448, 462, 462, 462, 480, & 480, 480, 504, 504, 504, 504, 512, 528, 528, 528, & 560, 560, 560, 560, 560, 576, 576, 576, 616, 616, & 616, 616, 616, 616, 630, 630, 630, 640, 660, 660, & 660, 660, 672, 672, 704, 704, 704, 704, 704, 720, & 720, 720, 768, 768, 768, 768, 768, 768, 768, 768, & 770, 792, 792, 792, 792, 840, 840, 840, 840, 840, & 840, 840, 840, 880, 880, 880, 880, 880, 880, 880, & 896, 896, 896, 896, 924, 924, 924, 924, 924, 960, & 960, 960, 960, 960, 960, 960, 990, 990, 990, 990, & 990, 1008, 1008, 1008, 1008, 1024, 1024, 1024, 1056, 1056, & 1056, 1056, 1056, 1056, 1120, 1120, 1120, 1120, 1120, 1120, & 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1152, 1152, 1152, & 1152, 1152, 1152, 1152, 1232, 1232, 1232, 1232, 1232, 1232, & 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, & 1232, 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1280, 1280, & 1280, 1280, 1280, 1320, 1320, 1320, 1320, 1320, 1320, 1320, & 1320, 1320, 1344, 1344, 1344, 1344, 1344, 1344, 1386, 1386, & 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1408, & 1408, 1408, 1408, 1408, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1440, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1584, 1584, 1584, 1584, 1584, 1584, & 1584, 1584, 1584, 1584, 1584, 1584, 1584, 1584, 1584, 1584, & 1584, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 440*0/ data lonsperlar_574 / & 18, 28, 32, 42, 48, 56, 64, 72, 80, 84, & 90, 110, 110, 110, 120, 126, 132, 140, 144, 154, & 160, 168, 176, 176, 192, 192, 198, 210, 210, 220, & 224, 240, 240, 252, 252, 256, 264, 280, 280, 288, & 288, 308, 308, 308, 320, 320, 330, 330, 352, 352, & 352, 360, 384, 384, 384, 384, 396, 396, 420, 420, & 420, 420, 440, 440, 440, 448, 462, 462, 462, 480, & 480, 480, 504, 504, 504, 504, 512, 528, 528, 528, & 560, 560, 560, 560, 560, 576, 576, 576, 616, 616, & 616, 616, 616, 616, 630, 630, 630, 640, 660, 660, & 660, 660, 672, 672, 704, 704, 704, 704, 704, 720, & 720, 720, 768, 768, 768, 768, 768, 768, 768, 768, & 770, 792, 792, 792, 792, 840, 840, 840, 840, 840, & 840, 840, 840, 880, 880, 880, 880, 880, 880, 880, & 896, 896, 896, 896, 924, 924, 924, 924, 924, 960, & 960, 960, 960, 960, 960, 960, 990, 990, 990, 990, & 990, 1008, 1008, 1008, 1008, 1024, 1024, 1024, 1056, 1056, & 1056, 1056, 1056, 1056, 1120, 1120, 1120, 1120, 1120, 1120, & 1120, 1120, 1120, 1120, 1120, 1120, 1120, 1152, 1152, 1152, & 1152, 1152, 1152, 1152, 1232, 1232, 1232, 1232, 1232, 1232, & 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, 1232, & 1232, 1260, 1260, 1260, 1260, 1260, 1260, 1260, 1280, 1280, & 1280, 1280, 1280, 1320, 1320, 1320, 1320, 1320, 1320, 1320, & 1320, 1320, 1344, 1344, 1344, 1344, 1344, 1344, 1386, 1386, & 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1386, 1408, & 1408, 1408, 1408, 1408, 1440, 1440, 1440, 1440, 1440, 1440, & 1440, 1440, 1440, 1440, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, 1536, & 1536, 1536, 1536, 1536, 1584, 1584, 1584, 1584, 1584, 1584, & 1584, 1584, 1584, 1584, 1584, 1584, 1584, 1584, 1584, 1584, & 1584, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, & 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1680, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, 1760, & 440*0/ integer i if (num_reduce < 0) then if (jcap .eq. 62) then lonsperlat=lonsperlat_62 lonsperlar=lonsperlar_62 endif if (jcap .eq. 126) then lonsperlat=lonsperlat_126 lonsperlar=lonsperlar_126 endif if (jcap .eq. 170) then lonsperlat=lonsperlat_170 lonsperlar=lonsperlar_170 endif if (jcap .eq. 190) then lonsperlat=lonsperlat_190 lonsperlar=lonsperlar_190 endif if (jcap .eq. 254) then lonsperlat=lonsperlat_254 lonsperlar=lonsperlar_254 endif if (jcap .eq. 382) then lonsperlat=lonsperlat_382 lonsperlar=lonsperlar_382 endif if (jcap .eq. 510) then lonsperlat=lonsperlat_510 lonsperlar=lonsperlar_510 endif if (jcap .eq. 574) then lonsperlat=lonsperlat_574 lonsperlar=lonsperlar_574 endif endif if (jcap .ne. 62 .and. jcap .ne. 126 .and. jcap .ne. 170 .and. & jcap .ne. 190 .and. jcap .ne. 574 .and. & jcap .ne. 254 .and. jcap .ne. 382 .and. jcap .ne. 510) then ! print*,' resolution not supported - lonsperlar/lonsperlat & ! &data is needed in read_lonsgg ' ! stop 55 ! compute reduced grid using juang 2003 if ( me == 0 ) then print*,' non standard resolution - lonsperlar/lonsperlat', & ' computed locally' endif call reduce_grid (abs(num_reduce),jcap,latg,lonsperlat) ! hmhj lonsperlar=lonsperlat ! hmhj if ( me == 0 ) then print*,' reduced grid is computed - lonsperlar/lonsperlat ' ! hmhj endif endif if ( me == 0 ) then print*,' jcap = ',jcap print*,'min,max of lonsperlat = ',minval(lonsperlat), & maxval(lonsperlat) print*,'min,max of lonsperlar = ',minval(lonsperlar), & maxval(lonsperlar) endif end subroutine set_lonsgg end module gfs_initialize_esmfmod