Changeset 1322 for palm/trunk/SOURCE/lpm_init.f90
- Timestamp:
- Mar 20, 2014 4:38:49 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/lpm_init.f90
r1321 r1322 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! REAL functions provided with KIND-attribute 23 23 ! 24 24 ! Former revisions: … … 252 252 ! 253 253 !-- Calculate vertical depth of the sublayers 254 height_int = ( z_p - z0_av_global ) / REAL( number_of_sublayers )254 height_int = ( z_p - z0_av_global ) / REAL( number_of_sublayers, KIND=wp ) 255 255 ! 256 256 !-- Precalculate LOG(z/z0)
Note: See TracChangeset
for help on using the changeset viewer.