Changeset 4843 for palm/trunk/SOURCE/spectra_mod.f90
- Timestamp:
- Jan 15, 2021 3:22:11 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/spectra_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, … … 159 163 INTEGER(iwp) :: io_status !< status after reading the namelist file 160 164 165 LOGICAL :: switch_off_module = .FALSE. !< local namelist parameter to switch off the module 166 !< although the respective module namelist appears in 167 !< the namelist file 161 168 162 169 NAMELIST /spectra_parameters/ & … … 166 173 dt_dosp, & 167 174 skip_time_dosp, & 168 spectra_direction 175 spectra_direction, & 176 switch_off_module 169 177 ! 170 178 !-- Position the namelist-file at the beginning (it was already opened in parin), and try to read … … 177 185 IF ( io_status == 0 ) THEN 178 186 ! 179 !-- spectra_parameters namelist was found and read correctly. 180 !-- Default setting of dt_dosp here (instead of check_parameters), because its current value is 181 !-- needed in init_pegrid. 182 IF ( dt_dosp == 9999999.9_wp ) dt_dosp = dt_data_output 183 ! 184 !-- Set general switch that spectra shall be calculated. 185 calculate_spectra = .TRUE. 187 !-- spectra_parameters namelist was found and read correctly. Set flag to indicate that spectra 188 !-- have to be calculated. 189 IF ( .NOT. switch_off_module ) THEN 190 calculate_spectra = .TRUE. 191 !-- Default setting of dt_dosp here (instead of check_parameters), because its current value 192 !-- is needed in init_pegrid. 193 IF ( dt_dosp == 9999999.9_wp ) dt_dosp = dt_data_output 194 ENDIF 186 195 187 196 ELSEIF ( io_status > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.