fully integrated physics

SHiELD/atmos_model.F90

@@ -772,7 +772,7 @@ subroutine atmos_model_init (Atmos, Time_init, Time, Time_step, do_concurrent_ra
   character(len=64) :: filename, filename2, pelist_name
   character(len=132) :: text
   logical :: p_hydro, hydro, fexist
-  logical :: do_inline_mp, do_cosp
+  logical :: do_inline_mp, do_inline_cnv, do_inline_pbl, do_inline_gwd, do_cosp
   logical, save :: block_message = .true.
   integer :: bdat(8), cdat(8)
   integer :: ntracers
@@ -829,7 +829,7 @@ subroutine atmos_model_init (Atmos, Time_init, Time, Time_step, do_concurrent_ra
 !--- before going any further check definitions for 'blocks'
 !-----------------------------------------------------------------------
    call atmosphere_control_data (isc, iec, jsc, jec, nlev, p_hydro, hydro, tile_num, &
-                                 do_inline_mp, do_cosp)
+                                 do_inline_mp, do_inline_cnv, do_inline_pbl, do_inline_gwd, do_cosp)
    call define_blocks_packed ('atmos_model', Atm_block, isc, iec, jsc, jec, nlev, &
                               blocksize, block_message)
 
@@ -882,6 +882,9 @@ subroutine atmos_model_init (Atmos, Time_init, Time, Time_step, do_concurrent_ra
    Init_parm%tracer_names    => tracer_names
    Init_parm%hydro           = hydro
    Init_parm%do_inline_mp    = do_inline_mp
+   Init_parm%do_inline_cnv   = do_inline_cnv
+   Init_parm%do_inline_pbl   = do_inline_pbl
+   Init_parm%do_inline_gwd   = do_inline_gwd
    Init_parm%do_cosp         = do_cosp
 
    allocate(Init_parm%input_nml_file, mold=input_nml_file)