Changeset 4843 for palm/trunk/SOURCE/indoor_model_mod.f90
- Timestamp:
- Jan 15, 2021 3:22:11 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/indoor_model_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 … … 2131 2135 INTEGER(iwp) :: io_status !< status after reading the namelist file 2132 2136 2137 LOGICAL :: switch_off_module = .FALSE. !< local namelist parameter to switch off the module 2138 !< although the respective module namelist appears in 2139 !< the namelist file 2133 2140 2134 2141 NAMELIST /indoor_parameters/ indoor_during_spinup, & 2135 initial_indoor_temperature 2142 initial_indoor_temperature, & 2143 switch_off_module 2136 2144 2137 2145 ! … … 2146 2154 !-- indoor_parameters namelist was found and read correctly. Set flag that indicates that the 2147 2155 !-- indoor model is switched on. 2148 indoor_model = .TRUE.2156 IF ( .NOT. switch_off_module ) indoor_model = .TRUE. 2149 2157 2150 2158 ELSEIF ( io_status > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.