Changeset 1241 for palm/trunk/SOURCE/time_integration.f90
- Timestamp:
- Oct 30, 2013 11:36:58 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration.f90
r1240 r1241 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Call of user_actions in order to determine sgs momentum fluxes 23 ! Generalize calc_mean_profile for wider use 24 ! Determine shf and qsws in dependence on data from LSF_DATA 25 ! Determine ug and vg in dependence on data from LSF_DATA 23 26 ! 24 27 ! Former revisions: … … 165 168 USE interaction_droplets_ptq_mod 166 169 USE interfaces 170 USE ls_forcing_mod 167 171 USE particle_attributes 168 172 USE pegrid … … 223 227 224 228 ! 229 !-- Determine ug, vg and w_subs in dependence on data from external file 230 !-- LSF_DATA 231 IF ( large_scale_forcing .AND. lsf_vert ) THEN 232 CALL ls_forcing_vert ( simulated_time ) 233 ENDIF 234 235 ! 225 236 !-- Execute the user-defined actions 226 237 CALL user_actions( 'before_timestep' ) … … 248 259 !-- buoyancy terms (WARNING: only the respective last call of 249 260 !-- calc_mean_profile defines the reference state!) 250 IF ( .NOT. neutral ) CALL calc_mean_profile( pt, 4 )251 IF ( ocean ) CALL calc_mean_profile( rho, 64 )252 IF ( humidity ) CALL calc_mean_profile( vpt, 44 )261 IF ( .NOT. neutral ) CALL calc_mean_profile( pt, 4, 'time_int' ) 262 IF ( ocean ) CALL calc_mean_profile( rho, 64, 'time_int' ) 263 IF ( humidity ) CALL calc_mean_profile( vpt, 44, 'time_int' ) 253 264 ENDIF 254 265 … … 566 577 CALL cpu_log( log_point(19), 'prandtl_fluxes', 'stop' ) 567 578 ENDIF 579 580 ! 581 !-- Determine shf and qsws in dependence on data from external file 582 !-- LSF_DATA 583 IF ( ( large_scale_forcing .AND. lsf_surf ) .AND. & 584 intermediate_timestep_count == intermediate_timestep_count_max )& 585 THEN 586 CALL ls_forcing_surf ( simulated_time ) 587 ENDIF 588 568 589 ! 569 590 !-- Compute the diffusion coefficients
Note: See TracChangeset
for help on using the changeset viewer.