Changeset 2758 for palm/trunk/SOURCE/time_integration_spinup.f90
- Timestamp:
- Jan 17, 2018 12:55:21 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/time_integration_spinup.f90
r2728 r2758 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Comment out homogeneous setting of wind velocity as this will lead to zero 28 ! friction velocity and cause problems in MOST relationships. 29 ! 30 ! 2728 2018-01-09 07:03:53Z maronga 27 31 ! Set velocity componenets to homogeneous values during spinup 28 32 ! … … 170 174 !-- otherwise. The precise reason is still unknown. A minimum velocity of 0.1 171 175 !-- m/s is used to maintain turbulent transfer at the surface. 172 u = SIGN(1.0_wp,u) * MAX(ug_surface,0.1_wp)173 v = SIGN(1.0_wp,v) * MAX(vg_surface,0.1_wp)176 ! u = SIGN(1.0_wp,u) * MAX(ug_surface,0.1_wp) 177 ! v = SIGN(1.0_wp,v) * MAX(vg_surface,0.1_wp) 174 178 175 179 dt_save = dt_3d
Note: See TracChangeset
for help on using the changeset viewer.