diff --git a/SHiELD/atmos_model.F90 b/SHiELD/atmos_model.F90 index 9e65de3..d03707b 100644 --- a/SHiELD/atmos_model.F90 +++ b/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)