Changeset 3428
- Timestamp:
- Oct 25, 2018 12:32:05 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/large_scale_forcing_nudging_mod.f90
r3347 r3428 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Rename td_XXX_lpt to td_XXX_thetal 28 ! 29 ! 3347 2018-10-15 14:21:08Z suehring 27 30 ! Offline nesting parts are moved to an independent module nesting_offl_mod 28 31 ! … … 249 252 250 253 251 CASE ( 'td_lsa_ lpt' )254 CASE ( 'td_lsa_thetal' ) 252 255 IF ( .NOT. large_scale_forcing ) THEN 253 256 message_string = 'data_output_pr = ' // & … … 278 281 hom(:,2,82,:) = SPREAD( zu, 2, statistic_regions+1 ) 279 282 ENDIF 280 CASE ( 'td_sub_ lpt' )283 CASE ( 'td_sub_thetal' ) 281 284 IF ( .NOT. large_scale_forcing ) THEN 282 285 message_string = 'data_output_pr = ' // & … … 308 311 ENDIF 309 312 310 CASE ( 'td_nud_ lpt' )313 CASE ( 'td_nud_thetal' ) 311 314 IF ( .NOT. nudging ) THEN 312 315 message_string = 'data_output_pr = ' // &
Note: See TracChangeset
for help on using the changeset viewer.