Changeset 2007 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Aug 24, 2016 3:47:17 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r2001 r2007 20 20 ! Current revisions: 21 21 ! ------------------ 22 ! 22 ! Account for urban surface model in computation of vertical kinematic heatflux 23 23 ! 24 24 ! Former revisions: … … 183 183 USE land_surface_model_mod, & 184 184 ONLY: land_surface, skip_time_do_lsm 185 186 USE urban_surface_mod, & 187 ONLY: urban_surface 188 185 189 186 190 IMPLICIT NONE … … 1057 1061 ! 1058 1062 !-- Compute the vertical kinematic heat flux 1059 IF ( .NOT. constant_heatflux .AND. ( simulated_time <= & 1060 skip_time_do_lsm .OR. .NOT. land_surface ) ) THEN 1063 IF ( .NOT. constant_heatflux .AND. ( simulated_time <= & 1064 skip_time_do_lsm .OR. .NOT. land_surface ) .AND. & 1065 .NOT. urban_surface ) THEN 1061 1066 !$OMP PARALLEL DO 1062 1067 !$acc kernels loop independent present( shf, ts, us )
Note: See TracChangeset
for help on using the changeset viewer.