Changeset 1240 for palm/trunk/SOURCE/palm.f90
- Timestamp:
- Oct 29, 2013 1:21:31 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/palm.f90
r1239 r1240 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! initialization of nudging and large scale forcing from external file22 ! 23 23 ! 24 24 ! Former revisions: … … 110 110 USE indices 111 111 USE interfaces 112 USE ls_forcing_mod113 112 USE model_1d 114 USE nudge_mod115 113 USE particle_attributes 116 114 USE pegrid … … 219 217 220 218 ! 221 !-- Initialize Nudging if required222 IF ( nudging ) THEN223 CALL init_nudge224 ENDIF225 226 !227 !-- Initialize reading of large scale forcing from external file - if required228 IF ( large_scale_forcing ) THEN229 CALL init_ls_forcing230 ENDIF231 232 !233 219 !-- Check control parameters and deduce further quantities 234 220 CALL check_parameters 221 235 222 236 223 !
Note: See TracChangeset
for help on using the changeset viewer.