Changeset 4843 for palm/trunk/SOURCE/multi_agent_system_mod.f90
- Timestamp:
- Jan 15, 2021 3:22:11 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/multi_agent_system_mod.f90
r4842 r4843 24 24 ! ----------------- 25 25 ! $Id$ 26 ! local namelist parameter added to switch off the module although the respective module namelist 27 ! appears in the namelist file 28 ! 29 ! 4842 2021-01-14 10:42:28Z raasch 26 30 ! reading of namelist file and actions in case of namelist errors revised so that statement labels 27 31 ! and goto statements are not required any more … … 3663 3667 INTEGER(iwp) :: io_status !< status after reading the namelist file 3664 3668 3669 LOGICAL :: switch_off_module = .FALSE. !< local namelist parameter to switch off the module 3670 !< although the respective module namelist appears in 3671 !< the namelist file 3665 3672 3666 3673 NAMELIST /agent_parameters/ a_rand_target, & … … 3703 3710 sigma_rep_wall, & 3704 3711 step_dealloc_mas, & 3712 switch_off_module, & 3705 3713 tau_accel_agent 3706 3714 … … 3716 3724 !-- agent_parameters namelist was found and read correctly. Set flag that indicates that agents 3717 3725 !-- are switched on. 3718 agents_active = .TRUE.3726 IF ( .NOT. switch_off_module ) agents_active = .TRUE. 3719 3727 3720 3728 ELSEIF ( io_status > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.