Changeset 4843 for palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
- Timestamp:
- Jan 15, 2021 3:22:11 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/synthetic_turbulence_generator_mod.f90
r4842 r4843 25 25 ! ----------------- 26 26 ! $Id$ 27 ! local namelist parameter added to switch off the module although the respective module namelist 28 ! appears in the namelist file 29 ! 30 ! 4842 2021-01-14 10:42:28Z raasch 27 31 ! reading of namelist file and actions in case of namelist errors revised so that statement labels 28 32 ! and goto statements are not required any more … … 1217 1221 INTEGER(iwp) :: io_status !< status after reading the namelist file 1218 1222 1219 NAMELIST /stg_par/ dt_stg_adjust, & 1223 LOGICAL :: switch_off_module = .FALSE. !< local namelist parameter to switch off the module 1224 !< although the respective module namelist appears in 1225 !< the namelist file 1226 1227 NAMELIST /stg_par/ compute_velocity_seeds_local, & 1228 dt_stg_adjust, & 1220 1229 dt_stg_call, & 1221 use_syn_turb_gen,&1222 compute_velocity_seeds_local1230 switch_off_module, & 1231 use_syn_turb_gen 1223 1232 1224 1233 … … 1234 1243 !-- stg_par namelist was found and read correctly. Set flag that indicates that the synthetic 1235 1244 !-- turbulence generator is switched on. 1236 syn_turb_gen = .TRUE.1245 IF ( .NOT. switch_off_module ) syn_turb_gen = .TRUE. 1237 1246 1238 1247 ELSEIF ( io_status > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.