MODULE module_alloc_space_5 CONTAINS SUBROUTINE alloc_space_field_core_5 ( grid, id, setinitval_in , tl_in , inter_domain_in , okay_to_alloc_in, num_bytes_allocated , & sd31, ed31, sd32, ed32, sd33, ed33, & sm31 , em31 , sm32 , em32 , sm33 , em33 , & sp31 , ep31 , sp32 , ep32 , sp33 , ep33 , & sp31x, ep31x, sp32x, ep32x, sp33x, ep33x, & sp31y, ep31y, sp32y, ep32y, sp33y, ep33y, & sm31x, em31x, sm32x, em32x, sm33x, em33x, & sm31y, em31y, sm32y, em32y, sm33y, em33y ) USE module_domain_type USE module_configure, ONLY : model_config_rec, grid_config_rec_type, in_use_for_config, model_to_grid_config_rec USE module_scalar_tables IMPLICIT NONE TYPE(domain) , POINTER :: grid INTEGER , INTENT(IN) :: id INTEGER , INTENT(IN) :: setinitval_in INTEGER , INTENT(IN) :: sd31, ed31, sd32, ed32, sd33, ed33 INTEGER , INTENT(IN) :: sm31, em31, sm32, em32, sm33, em33 INTEGER , INTENT(IN) :: sp31, ep31, sp32, ep32, sp33, ep33 INTEGER , INTENT(IN) :: sp31x, ep31x, sp32x, ep32x, sp33x, ep33x INTEGER , INTENT(IN) :: sp31y, ep31y, sp32y, ep32y, sp33y, ep33y INTEGER , INTENT(IN) :: sm31x, em31x, sm32x, em32x, sm33x, em33x INTEGER , INTENT(IN) :: sm31y, em31y, sm32y, em32y, sm33y, em33y INTEGER , INTENT(IN) :: tl_in LOGICAL , INTENT(IN) :: inter_domain_in, okay_to_alloc_in INTEGER(KIND=8) , INTENT(INOUT) :: num_bytes_allocated INTEGER idum1, idum2, spec_bdy_width REAL initial_data_value CHARACTER (LEN=256) message INTEGER tl LOGICAL inter_domain, okay_to_alloc INTEGER setinitval INTEGER sr_x, sr_y INTEGER ierr INTEGER :: loop INTEGER(KIND=8) :: nba CHARACTER(LEN=256) :: message_string TYPE ( grid_config_rec_type ) :: config_flags INTEGER :: k_start , k_end, its, ite, jts, jte INTEGER :: ids , ide , jds , jde , kds , kde , & ims , ime , jms , jme , kms , kme , & ips , ipe , jps , jpe , kps , kpe INTEGER :: sids , side , sjds , sjde , skds , skde , & sims , sime , sjms , sjme , skms , skme , & sips , sipe , sjps , sjpe , skps , skpe INTEGER :: imsx, imex, jmsx, jmex, kmsx, kmex, & ipsx, ipex, jpsx, jpex, kpsx, kpex, & imsy, imey, jmsy, jmey, kmsy, kmey, & ipsy, ipey, jpsy, jpey, kpsy, kpey data_ordering : SELECT CASE ( model_data_order ) CASE ( DATA_ORDER_XYZ ) ids = sd31 ; ide = ed31 ; jds = sd32 ; jde = ed32 ; kds = sd33 ; kde = ed33 ; ims = sm31 ; ime = em31 ; jms = sm32 ; jme = em32 ; kms = sm33 ; kme = em33 ; ips = sp31 ; ipe = ep31 ; jps = sp32 ; jpe = ep32 ; kps = sp33 ; kpe = ep33 ; imsx = sm31x ; imex = em31x ; jmsx = sm32x ; jmex = em32x ; kmsx = sm33x ; kmex = em33x ; ipsx = sp31x ; ipex = ep31x ; jpsx = sp32x ; jpex = ep32x ; kpsx = sp33x ; kpex = ep33x ; imsy = sm31y ; imey = em31y ; jmsy = sm32y ; jmey = em32y ; kmsy = sm33y ; kmey = em33y ; ipsy = sp31y ; ipey = ep31y ; jpsy = sp32y ; jpey = ep32y ; kpsy = sp33y ; kpey = ep33y ; CASE ( DATA_ORDER_YXZ ) ids = sd32 ; ide = ed32 ; jds = sd31 ; jde = ed31 ; kds = sd33 ; kde = ed33 ; ims = sm32 ; ime = em32 ; jms = sm31 ; jme = em31 ; kms = sm33 ; kme = em33 ; ips = sp32 ; ipe = ep32 ; jps = sp31 ; jpe = ep31 ; kps = sp33 ; kpe = ep33 ; imsx = sm32x ; imex = em32x ; jmsx = sm31x ; jmex = em31x ; kmsx = sm33x ; kmex = em33x ; ipsx = sp32x ; ipex = ep32x ; jpsx = sp31x ; jpex = ep31x ; kpsx = sp33x ; kpex = ep33x ; imsy = sm32y ; imey = em32y ; jmsy = sm31y ; jmey = em31y ; kmsy = sm33y ; kmey = em33y ; ipsy = sp32y ; ipey = ep32y ; jpsy = sp31y ; jpey = ep31y ; kpsy = sp33y ; kpey = ep33y ; CASE ( DATA_ORDER_ZXY ) ids = sd32 ; ide = ed32 ; jds = sd33 ; jde = ed33 ; kds = sd31 ; kde = ed31 ; ims = sm32 ; ime = em32 ; jms = sm33 ; jme = em33 ; kms = sm31 ; kme = em31 ; ips = sp32 ; ipe = ep32 ; jps = sp33 ; jpe = ep33 ; kps = sp31 ; kpe = ep31 ; imsx = sm32x ; imex = em32x ; jmsx = sm33x ; jmex = em33x ; kmsx = sm31x ; kmex = em31x ; ipsx = sp32x ; ipex = ep32x ; jpsx = sp33x ; jpex = ep33x ; kpsx = sp31x ; kpex = ep31x ; imsy = sm32y ; imey = em32y ; jmsy = sm33y ; jmey = em33y ; kmsy = sm31y ; kmey = em31y ; ipsy = sp32y ; ipey = ep32y ; jpsy = sp33y ; jpey = ep33y ; kpsy = sp31y ; kpey = ep31y ; CASE ( DATA_ORDER_ZYX ) ids = sd33 ; ide = ed33 ; jds = sd32 ; jde = ed32 ; kds = sd31 ; kde = ed31 ; ims = sm33 ; ime = em33 ; jms = sm32 ; jme = em32 ; kms = sm31 ; kme = em31 ; ips = sp33 ; ipe = ep33 ; jps = sp32 ; jpe = ep32 ; kps = sp31 ; kpe = ep31 ; imsx = sm33x ; imex = em33x ; jmsx = sm32x ; jmex = em32x ; kmsx = sm31x ; kmex = em31x ; ipsx = sp33x ; ipex = ep33x ; jpsx = sp32x ; jpex = ep32x ; kpsx = sp31x ; kpex = ep31x ; imsy = sm33y ; imey = em33y ; jmsy = sm32y ; jmey = em32y ; kmsy = sm31y ; kmey = em31y ; ipsy = sp33y ; ipey = ep33y ; jpsy = sp32y ; jpey = ep32y ; kpsy = sp31y ; kpey = ep31y ; CASE ( DATA_ORDER_XZY ) ids = sd31 ; ide = ed31 ; jds = sd33 ; jde = ed33 ; kds = sd32 ; kde = ed32 ; ims = sm31 ; ime = em31 ; jms = sm33 ; jme = em33 ; kms = sm32 ; kme = em32 ; ips = sp31 ; ipe = ep31 ; jps = sp33 ; jpe = ep33 ; kps = sp32 ; kpe = ep32 ; imsx = sm31x ; imex = em31x ; jmsx = sm33x ; jmex = em33x ; kmsx = sm32x ; kmex = em32x ; ipsx = sp31x ; ipex = ep31x ; jpsx = sp33x ; jpex = ep33x ; kpsx = sp32x ; kpex = ep32x ; imsy = sm31y ; imey = em31y ; jmsy = sm33y ; jmey = em33y ; kmsy = sm32y ; kmey = em32y ; ipsy = sp31y ; ipey = ep31y ; jpsy = sp33y ; jpey = ep33y ; kpsy = sp32y ; kpey = ep32y ; CASE ( DATA_ORDER_YZX ) ids = sd33 ; ide = ed33 ; jds = sd31 ; jde = ed31 ; kds = sd32 ; kde = ed32 ; ims = sm33 ; ime = em33 ; jms = sm31 ; jme = em31 ; kms = sm32 ; kme = em32 ; ips = sp33 ; ipe = ep33 ; jps = sp31 ; jpe = ep31 ; kps = sp32 ; kpe = ep32 ; imsx = sm33x ; imex = em33x ; jmsx = sm31x ; jmex = em31x ; kmsx = sm32x ; kmex = em32x ; ipsx = sp33x ; ipex = ep33x ; jpsx = sp31x ; jpex = ep31x ; kpsx = sp32x ; kpex = ep32x ; imsy = sm33y ; imey = em33y ; jmsy = sm31y ; jmey = em31y ; kmsy = sm32y ; kmey = em32y ; ipsy = sp33y ; ipey = ep33y ; jpsy = sp31y ; jpey = ep31y ; kpsy = sp32y ; kpey = ep32y ; END SELECT data_ordering CALL model_to_grid_config_rec ( id , model_config_rec , config_flags ) CALL nl_get_sr_x( id , sr_x ) CALL nl_get_sr_y( id , sr_y ) tl = tl_in inter_domain = inter_domain_in okay_to_alloc = okay_to_alloc_in CALL get_initial_data_value ( initial_data_value ) setinitval = setinitval_in CALL nl_get_spec_bdy_width( 1, spec_bdy_width ) IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput4_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput4=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput4=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput5_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput5=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput5=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput6_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput6=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput6=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput7_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput7=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput7=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput8_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput8=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput8=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput9_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput9=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput9=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput10_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput10=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput10=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput11_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput11=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput11=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput12_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput12=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput12=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput13_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput13=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput13=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput14_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput14=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput14=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput15_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput15=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput15=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput16_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput16=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput16=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput17_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput17=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput17=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput18_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput18=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput18=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput19_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput19=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput19=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput20_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput20=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput20=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput21_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput21=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput21=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput22_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput22=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput22=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput23_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput23=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput23=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_oid=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_interval_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_interval_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_interval_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_interval_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_interval_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_interval=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_begin_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_begin_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_begin_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_begin_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_begin_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_begin=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_end_y=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_end_d=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_end_h=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_end_m=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_end_s=0 IF ( setinitval .EQ. 3 ) grid%auxinput24_end=0 IF ( setinitval .EQ. 3 ) grid%io_form_auxinput24=0 IF ( setinitval .EQ. 3 ) grid%frames_per_auxinput24=0 IF ( setinitval .EQ. 3 ) grid%oid=0 IF ( setinitval .EQ. 3 ) grid%history_interval=0 IF ( setinitval .EQ. 3 ) grid%frames_per_outfile=0 IF ( setinitval .EQ. 3 ) grid%restart=.FALSE. IF ( setinitval .EQ. 3 ) grid%restart_interval=0 IF ( setinitval .EQ. 3 ) grid%io_form_input=0 IF ( setinitval .EQ. 3 ) grid%io_form_history=0 IF ( setinitval .EQ. 3 ) grid%io_form_restart=0 IF ( setinitval .EQ. 3 ) grid%io_form_boundary=0 IF ( setinitval .EQ. 3 ) grid%debug_level=0 IF ( setinitval .EQ. 3 ) grid%self_test_domain=.FALSE. IF ( setinitval .EQ. 3 ) grid%use_netcdf_classic=.FALSE. IF ( setinitval .EQ. 3 ) grid%history_interval_d=0 IF ( setinitval .EQ. 3 ) grid%history_interval_h=0 IF ( setinitval .EQ. 3 ) grid%history_interval_m=0 IF ( setinitval .EQ. 3 ) grid%history_interval_s=0 IF ( setinitval .EQ. 3 ) grid%inputout_interval_d=0 IF ( setinitval .EQ. 3 ) grid%inputout_interval_h=0 IF ( setinitval .EQ. 3 ) grid%inputout_interval_m=0 IF ( setinitval .EQ. 3 ) grid%inputout_interval_s=0 IF ( setinitval .EQ. 3 ) grid%inputout_interval=0 IF ( setinitval .EQ. 3 ) grid%restart_interval_d=0 IF ( setinitval .EQ. 3 ) grid%restart_interval_h=0 IF ( setinitval .EQ. 3 ) grid%restart_interval_m=0 IF ( setinitval .EQ. 3 ) grid%restart_interval_s=0 IF ( setinitval .EQ. 3 ) grid%history_begin_y=0 IF ( setinitval .EQ. 3 ) grid%history_begin_d=0 IF ( setinitval .EQ. 3 ) grid%history_begin_h=0 IF ( setinitval .EQ. 3 ) grid%history_begin_m=0 IF ( setinitval .EQ. 3 ) grid%history_begin_s=0 IF ( setinitval .EQ. 3 ) grid%history_begin=0 IF ( setinitval .EQ. 3 ) grid%inputout_begin_y=0 IF ( setinitval .EQ. 3 ) grid%inputout_begin_d=0 IF ( setinitval .EQ. 3 ) grid%inputout_begin_h=0 IF ( setinitval .EQ. 3 ) grid%inputout_begin_m=0 IF ( setinitval .EQ. 3 ) grid%inputout_begin_s=0 IF ( setinitval .EQ. 3 ) grid%restart_begin_y=0 IF ( setinitval .EQ. 3 ) grid%restart_begin_d=0 IF ( setinitval .EQ. 3 ) grid%restart_begin_h=0 IF ( setinitval .EQ. 3 ) grid%restart_begin_m=0 IF ( setinitval .EQ. 3 ) grid%restart_begin_s=0 IF ( setinitval .EQ. 3 ) grid%restart_begin=0 IF ( setinitval .EQ. 3 ) grid%history_end_y=0 IF ( setinitval .EQ. 3 ) grid%history_end_d=0 IF ( setinitval .EQ. 3 ) grid%history_end_h=0 IF ( setinitval .EQ. 3 ) grid%history_end_m=0 IF ( setinitval .EQ. 3 ) grid%history_end_s=0 IF ( setinitval .EQ. 3 ) grid%history_end=0 IF ( setinitval .EQ. 3 ) grid%inputout_end_y=0 IF ( setinitval .EQ. 3 ) grid%inputout_end_d=0 IF ( setinitval .EQ. 3 ) grid%inputout_end_h=0 IF ( setinitval .EQ. 3 ) grid%inputout_end_m=0 IF ( setinitval .EQ. 3 ) grid%inputout_end_s=0 IF ( setinitval .EQ. 3 ) grid%simulation_start_year=0 IF ( setinitval .EQ. 3 ) grid%simulation_start_month=0 IF ( setinitval .EQ. 3 ) grid%simulation_start_day=0 IF ( setinitval .EQ. 3 ) grid%simulation_start_hour=0 IF ( setinitval .EQ. 3 ) grid%simulation_start_minute=0 IF ( setinitval .EQ. 3 ) grid%simulation_start_second=0 IF ( setinitval .EQ. 3 ) grid%reset_simulation_start=.FALSE. IF ( setinitval .EQ. 3 ) grid%sr_x=0 IF ( setinitval .EQ. 3 ) grid%sr_y=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_interval_d=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_interval_h=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_interval_m=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_interval_s=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_interval_y=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_interval=0 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_d=0 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_h=0 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_m=0 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_s=0 IF ( setinitval .EQ. 3 ) grid%gfdda_interval_y=0 IF ( setinitval .EQ. 3 ) grid%gfdda_interval=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_begin_y=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_begin_d=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_begin_h=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_begin_m=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_begin_s=0 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_y=0 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_d=0 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_h=0 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_m=0 IF ( setinitval .EQ. 3 ) grid%gfdda_begin_s=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_end_y=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_end_d=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_end_h=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_end_m=0 IF ( setinitval .EQ. 3 ) grid%sgfdda_end_s=0 IF ( setinitval .EQ. 3 ) grid%gfdda_end_y=0 IF ( setinitval .EQ. 3 ) grid%gfdda_end_d=0 IF ( setinitval .EQ. 3 ) grid%gfdda_end_h=0 IF ( setinitval .EQ. 3 ) grid%gfdda_end_m=0 IF ( setinitval .EQ. 3 ) grid%gfdda_end_s=0 IF ( setinitval .EQ. 3 ) grid%io_form_sgfdda=0 IF ( setinitval .EQ. 3 ) grid%io_form_gfdda=0 IF ( setinitval .EQ. 3 ) grid%ignore_iofields_warning=.FALSE. IF ( setinitval .EQ. 3 ) grid%ncd_nofill=.FALSE. IF(okay_to_alloc.AND.in_use_for_config(id,'lfn_hist').AND.(.NOT.grid%is_intermediate))THEN num_bytes_allocated = num_bytes_allocated + & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 nba = & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 ALLOCATE(grid%lfn_hist((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",707,& 'frame/module_domain.f: Failed to allocate grid%lfn_hist((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y). ') endif IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lfn_hist=initial_data_value IF (.NOT.grid%is_intermediate) THEN ALLOCATE( grid%tail_statevars%next ) grid%tail_statevars => grid%tail_statevars%next NULLIFY( grid%tail_statevars%next ) grid%tail_statevars%VarName = 'lfn_hist' grid%tail_statevars%DataName = 'LFN_HIST' grid%tail_statevars%Description = 'level function history' grid%tail_statevars%Units = '1' grid%tail_statevars%Type = 'r' grid%tail_statevars%ProcOrient = ' ' grid%tail_statevars%MemoryOrder = 'XY' grid%tail_statevars%Stagger = 'Z' grid%tail_statevars%Ntl = 0 grid%tail_statevars%Ndim = 2 grid%tail_statevars%Restart = .TRUE. grid%tail_statevars%scalar_array = .FALSE. grid%tail_statevars%rfield_2d => grid%lfn_hist grid%tail_statevars%streams(1) = 234881025 grid%tail_statevars%streams(2) = 2097152 grid%tail_statevars%sd1 = ids grid%tail_statevars%ed1 = MAX(1,ide * sr_x) grid%tail_statevars%sd2 = jds grid%tail_statevars%ed2 = MAX(1,jde * sr_y) grid%tail_statevars%sd3 = 1 grid%tail_statevars%ed3 = 1 grid%tail_statevars%sm1 = (ims-1)*sr_x+1 grid%tail_statevars%em1 = MAX(1,ime*sr_x) grid%tail_statevars%sm2 = (jms-1)*sr_y+1 grid%tail_statevars%em2 = MAX(1,jme*sr_y) grid%tail_statevars%sm3 = 1 grid%tail_statevars%em3 = 1 grid%tail_statevars%sp1 = (ips-1)*sr_x+1 grid%tail_statevars%ep1 = MAX(1,ipe*sr_x) grid%tail_statevars%sp2 = (jps-1)*sr_y+1 grid%tail_statevars%ep2 = MAX(1,jpe*sr_y) grid%tail_statevars%sp3 = 1 grid%tail_statevars%ep3 = 1 grid%tail_statevars%subgrid_x = .TRUE. grid%tail_statevars%subgrid_y = .TRUE. grid%tail_statevars%dimname1 = 'west_east_subgrid' grid%tail_statevars%dimname2 = 'south_north_subgrid' grid%tail_statevars%dimname3 = '' ENDIF ELSE ALLOCATE(grid%lfn_hist(1,1),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",757,& 'frame/module_domain.f: Failed to allocate grid%lfn_hist(1,1). ') endif ENDIF IF(okay_to_alloc.AND.in_use_for_config(id,'lfn_time').AND.(.NOT.grid%is_intermediate))THEN num_bytes_allocated = num_bytes_allocated + & ((((1)-(1)+1))) * 4 nba = & ((((1)-(1)+1))) * 4 ALLOCATE(grid%lfn_time(1:1),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",768,& 'frame/module_domain.f: Failed to allocate grid%lfn_time(1:1). ') endif IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%lfn_time=initial_data_value IF (.NOT.grid%is_intermediate) THEN ALLOCATE( grid%tail_statevars%next ) grid%tail_statevars => grid%tail_statevars%next NULLIFY( grid%tail_statevars%next ) grid%tail_statevars%VarName = 'lfn_time' grid%tail_statevars%DataName = 'LFN_TIME' grid%tail_statevars%Description = 'level function history time' grid%tail_statevars%Units = 's' grid%tail_statevars%Type = 'r' grid%tail_statevars%ProcOrient = ' ' grid%tail_statevars%MemoryOrder = 'Z' grid%tail_statevars%Stagger = '' grid%tail_statevars%Ntl = 0 grid%tail_statevars%Ndim = 1 grid%tail_statevars%Restart = .TRUE. grid%tail_statevars%scalar_array = .FALSE. grid%tail_statevars%rfield_1d => grid%lfn_time grid%tail_statevars%streams(1) = 234881025 grid%tail_statevars%streams(2) = 2097152 grid%tail_statevars%sd1 = 1 grid%tail_statevars%ed1 = 1 grid%tail_statevars%sd2 = 1 grid%tail_statevars%ed2 = 1 grid%tail_statevars%sd3 = 1 grid%tail_statevars%ed3 = 1 grid%tail_statevars%sm1 = 1 grid%tail_statevars%em1 = 1 grid%tail_statevars%sm2 = 1 grid%tail_statevars%em2 = 1 grid%tail_statevars%sm3 = 1 grid%tail_statevars%em3 = 1 grid%tail_statevars%sp1 = 1 grid%tail_statevars%ep1 = 1 grid%tail_statevars%sp2 = 1 grid%tail_statevars%ep2 = 1 grid%tail_statevars%sp3 = 1 grid%tail_statevars%ep3 = 1 grid%tail_statevars%dimname1 = 'i_lfn_history' grid%tail_statevars%dimname2 = '' grid%tail_statevars%dimname3 = '' ENDIF ELSE ALLOCATE(grid%lfn_time(1),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",816,& 'frame/module_domain.f: Failed to allocate grid%lfn_time(1). ') endif ENDIF IF(okay_to_alloc.AND.in_use_for_config(id,'nfuel_cat').AND.(.NOT.grid%is_intermediate))THEN num_bytes_allocated = num_bytes_allocated + & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 nba = & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 ALLOCATE(grid%nfuel_cat((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",827,& 'frame/module_domain.f: Failed to allocate grid%nfuel_cat((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y). ') endif IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%nfuel_cat=initial_data_value IF (.NOT.grid%is_intermediate) THEN ALLOCATE( grid%tail_statevars%next ) grid%tail_statevars => grid%tail_statevars%next NULLIFY( grid%tail_statevars%next ) grid%tail_statevars%VarName = 'nfuel_cat' grid%tail_statevars%DataName = 'NFUEL_CAT' grid%tail_statevars%Description = 'fuel data' grid%tail_statevars%Units = '-' grid%tail_statevars%Type = 'r' grid%tail_statevars%ProcOrient = ' ' grid%tail_statevars%MemoryOrder = 'XY' grid%tail_statevars%Stagger = 'Z' grid%tail_statevars%Ntl = 0 grid%tail_statevars%Ndim = 2 grid%tail_statevars%Restart = .TRUE. grid%tail_statevars%scalar_array = .FALSE. grid%tail_statevars%rfield_2d => grid%nfuel_cat grid%tail_statevars%streams(1) = 234881025 grid%tail_statevars%streams(2) = 2097152 grid%tail_statevars%sd1 = ids grid%tail_statevars%ed1 = MAX(1,ide * sr_x) grid%tail_statevars%sd2 = jds grid%tail_statevars%ed2 = MAX(1,jde * sr_y) grid%tail_statevars%sd3 = 1 grid%tail_statevars%ed3 = 1 grid%tail_statevars%sm1 = (ims-1)*sr_x+1 grid%tail_statevars%em1 = MAX(1,ime*sr_x) grid%tail_statevars%sm2 = (jms-1)*sr_y+1 grid%tail_statevars%em2 = MAX(1,jme*sr_y) grid%tail_statevars%sm3 = 1 grid%tail_statevars%em3 = 1 grid%tail_statevars%sp1 = (ips-1)*sr_x+1 grid%tail_statevars%ep1 = MAX(1,ipe*sr_x) grid%tail_statevars%sp2 = (jps-1)*sr_y+1 grid%tail_statevars%ep2 = MAX(1,jpe*sr_y) grid%tail_statevars%sp3 = 1 grid%tail_statevars%ep3 = 1 grid%tail_statevars%subgrid_x = .TRUE. grid%tail_statevars%subgrid_y = .TRUE. grid%tail_statevars%dimname1 = 'west_east_subgrid' grid%tail_statevars%dimname2 = 'south_north_subgrid' grid%tail_statevars%dimname3 = '' ENDIF ELSE ALLOCATE(grid%nfuel_cat(1,1),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",877,& 'frame/module_domain.f: Failed to allocate grid%nfuel_cat(1,1). ') endif ENDIF IF(okay_to_alloc.AND.in_use_for_config(id,'zsf').AND.(.NOT.grid%is_intermediate))THEN num_bytes_allocated = num_bytes_allocated + & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 nba = & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 ALLOCATE(grid%zsf((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",888,& 'frame/module_domain.f: Failed to allocate grid%zsf((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y). ') endif IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%zsf=initial_data_value IF (.NOT.grid%is_intermediate) THEN ALLOCATE( grid%tail_statevars%next ) grid%tail_statevars => grid%tail_statevars%next NULLIFY( grid%tail_statevars%next ) grid%tail_statevars%VarName = 'zsf' grid%tail_statevars%DataName = 'ZSF' grid%tail_statevars%Description = 'height of surface above sea level' grid%tail_statevars%Units = 'm' grid%tail_statevars%Type = 'r' grid%tail_statevars%ProcOrient = ' ' grid%tail_statevars%MemoryOrder = 'XY' grid%tail_statevars%Stagger = 'Z' grid%tail_statevars%Ntl = 0 grid%tail_statevars%Ndim = 2 grid%tail_statevars%Restart = .TRUE. grid%tail_statevars%scalar_array = .FALSE. grid%tail_statevars%rfield_2d => grid%zsf grid%tail_statevars%streams(1) = 234881025 grid%tail_statevars%streams(2) = 2097152 grid%tail_statevars%sd1 = ids grid%tail_statevars%ed1 = MAX(1,ide * sr_x) grid%tail_statevars%sd2 = jds grid%tail_statevars%ed2 = MAX(1,jde * sr_y) grid%tail_statevars%sd3 = 1 grid%tail_statevars%ed3 = 1 grid%tail_statevars%sm1 = (ims-1)*sr_x+1 grid%tail_statevars%em1 = MAX(1,ime*sr_x) grid%tail_statevars%sm2 = (jms-1)*sr_y+1 grid%tail_statevars%em2 = MAX(1,jme*sr_y) grid%tail_statevars%sm3 = 1 grid%tail_statevars%em3 = 1 grid%tail_statevars%sp1 = (ips-1)*sr_x+1 grid%tail_statevars%ep1 = MAX(1,ipe*sr_x) grid%tail_statevars%sp2 = (jps-1)*sr_y+1 grid%tail_statevars%ep2 = MAX(1,jpe*sr_y) grid%tail_statevars%sp3 = 1 grid%tail_statevars%ep3 = 1 grid%tail_statevars%subgrid_x = .TRUE. grid%tail_statevars%subgrid_y = .TRUE. grid%tail_statevars%dimname1 = 'west_east_subgrid' grid%tail_statevars%dimname2 = 'south_north_subgrid' grid%tail_statevars%dimname3 = '' ENDIF ELSE ALLOCATE(grid%zsf(1,1),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",938,& 'frame/module_domain.f: Failed to allocate grid%zsf(1,1). ') endif ENDIF IF(okay_to_alloc.AND.in_use_for_config(id,'dzdxf').AND.(.NOT.grid%is_intermediate))THEN num_bytes_allocated = num_bytes_allocated + & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 nba = & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 ALLOCATE(grid%dzdxf((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",949,& 'frame/module_domain.f: Failed to allocate grid%dzdxf((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y). ') endif IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzdxf=initial_data_value IF (.NOT.grid%is_intermediate) THEN ALLOCATE( grid%tail_statevars%next ) grid%tail_statevars => grid%tail_statevars%next NULLIFY( grid%tail_statevars%next ) grid%tail_statevars%VarName = 'dzdxf' grid%tail_statevars%DataName = 'DZDXF' grid%tail_statevars%Description = 'surface gradient x' grid%tail_statevars%Units = '1' grid%tail_statevars%Type = 'r' grid%tail_statevars%ProcOrient = ' ' grid%tail_statevars%MemoryOrder = 'XY' grid%tail_statevars%Stagger = 'Z' grid%tail_statevars%Ntl = 0 grid%tail_statevars%Ndim = 2 grid%tail_statevars%Restart = .TRUE. grid%tail_statevars%scalar_array = .FALSE. grid%tail_statevars%rfield_2d => grid%dzdxf grid%tail_statevars%streams(1) = 234881025 grid%tail_statevars%streams(2) = 2097152 grid%tail_statevars%sd1 = ids grid%tail_statevars%ed1 = MAX(1,ide * sr_x) grid%tail_statevars%sd2 = jds grid%tail_statevars%ed2 = MAX(1,jde * sr_y) grid%tail_statevars%sd3 = 1 grid%tail_statevars%ed3 = 1 grid%tail_statevars%sm1 = (ims-1)*sr_x+1 grid%tail_statevars%em1 = MAX(1,ime*sr_x) grid%tail_statevars%sm2 = (jms-1)*sr_y+1 grid%tail_statevars%em2 = MAX(1,jme*sr_y) grid%tail_statevars%sm3 = 1 grid%tail_statevars%em3 = 1 grid%tail_statevars%sp1 = (ips-1)*sr_x+1 grid%tail_statevars%ep1 = MAX(1,ipe*sr_x) grid%tail_statevars%sp2 = (jps-1)*sr_y+1 grid%tail_statevars%ep2 = MAX(1,jpe*sr_y) grid%tail_statevars%sp3 = 1 grid%tail_statevars%ep3 = 1 grid%tail_statevars%subgrid_x = .TRUE. grid%tail_statevars%subgrid_y = .TRUE. grid%tail_statevars%dimname1 = 'west_east_subgrid' grid%tail_statevars%dimname2 = 'south_north_subgrid' grid%tail_statevars%dimname3 = '' ENDIF ELSE ALLOCATE(grid%dzdxf(1,1),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",999,& 'frame/module_domain.f: Failed to allocate grid%dzdxf(1,1). ') endif ENDIF IF(okay_to_alloc.AND.in_use_for_config(id,'dzdyf').AND.(.NOT.grid%is_intermediate))THEN num_bytes_allocated = num_bytes_allocated + & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 nba = & ((((em31*sr_x)-((sm31-1)*sr_x+1)+1))*(((em33*sr_y)-((sm33-1)*sr_y+1)+1))) * 4 ALLOCATE(grid%dzdyf((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",1010,& 'frame/module_domain.f: Failed to allocate grid%dzdyf((sm31-1)*sr_x+1:em31*sr_x,(sm33-1)*sr_y+1:em33*sr_y). ') endif IF ( setinitval .EQ. 1 .OR. setinitval .EQ. 3 ) grid%dzdyf=initial_data_value IF (.NOT.grid%is_intermediate) THEN ALLOCATE( grid%tail_statevars%next ) grid%tail_statevars => grid%tail_statevars%next NULLIFY( grid%tail_statevars%next ) grid%tail_statevars%VarName = 'dzdyf' grid%tail_statevars%DataName = 'DZDYF' grid%tail_statevars%Description = 'surface gradient y' grid%tail_statevars%Units = '1' grid%tail_statevars%Type = 'r' grid%tail_statevars%ProcOrient = ' ' grid%tail_statevars%MemoryOrder = 'XY' grid%tail_statevars%Stagger = 'Z' grid%tail_statevars%Ntl = 0 grid%tail_statevars%Ndim = 2 grid%tail_statevars%Restart = .TRUE. grid%tail_statevars%scalar_array = .FALSE. grid%tail_statevars%rfield_2d => grid%dzdyf grid%tail_statevars%streams(1) = 234881025 grid%tail_statevars%streams(2) = 2097152 grid%tail_statevars%sd1 = ids grid%tail_statevars%ed1 = MAX(1,ide * sr_x) grid%tail_statevars%sd2 = jds grid%tail_statevars%ed2 = MAX(1,jde * sr_y) grid%tail_statevars%sd3 = 1 grid%tail_statevars%ed3 = 1 grid%tail_statevars%sm1 = (ims-1)*sr_x+1 grid%tail_statevars%em1 = MAX(1,ime*sr_x) grid%tail_statevars%sm2 = (jms-1)*sr_y+1 grid%tail_statevars%em2 = MAX(1,jme*sr_y) grid%tail_statevars%sm3 = 1 grid%tail_statevars%em3 = 1 grid%tail_statevars%sp1 = (ips-1)*sr_x+1 grid%tail_statevars%ep1 = MAX(1,ipe*sr_x) grid%tail_statevars%sp2 = (jps-1)*sr_y+1 grid%tail_statevars%ep2 = MAX(1,jpe*sr_y) grid%tail_statevars%sp3 = 1 grid%tail_statevars%ep3 = 1 grid%tail_statevars%subgrid_x = .TRUE. grid%tail_statevars%subgrid_y = .TRUE. grid%tail_statevars%dimname1 = 'west_east_subgrid' grid%tail_statevars%dimname2 = 'south_north_subgrid' grid%tail_statevars%dimname3 = '' ENDIF ELSE ALLOCATE(grid%dzdyf(1,1),STAT=ierr) if (ierr.ne.0) then CALL wrf_error_fatal3("",1060,& 'frame/module_domain.f: Failed to allocate grid%dzdyf(1,1). ') endif ENDIF END SUBROUTINE alloc_space_field_core_5 END MODULE module_alloc_space_5