Changeset 1179 for palm/trunk/SOURCE/diffusivities.f90
- Timestamp:
- Jun 14, 2013 5:57:58 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/diffusivities.f90
r1037 r1179 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! use_reference renamed use_single_reference_value 23 23 ! 24 24 ! Former revisions: … … 132 132 ( var(k+1,j,i) - var(k-1,j,i) ) * dd2zu(k) 133 133 IF ( dvar_dz > 0.0 ) THEN 134 IF ( use_ reference ) THEN134 IF ( use_single_reference_value ) THEN 135 135 l_stable = 0.76 * sqrt_e / & 136 136 SQRT( g / var_reference * dvar_dz ) + 1E-5
Note: See TracChangeset
for help on using the changeset viewer.