Changeset 1992 for palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
- Timestamp:
- Aug 12, 2016 3:14:59 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/surface_layer_fluxes_mod.f90
r1961 r1992 19 19 ! Current revisions: 20 20 ! ------------------ 21 ! 21 ! Minor bug, declaration of look-up index as INTEGER 22 22 ! 23 23 ! Former revisions: … … 179 179 IMPLICIT NONE 180 180 181 INTEGER(iwp) :: i !< loop index x direction 182 INTEGER(iwp) :: j !< loop index y direction 183 INTEGER(iwp) :: k !< loop index z direction 181 INTEGER(iwp) :: i !< loop index x direction 182 INTEGER(iwp) :: j !< loop index y direction 183 INTEGER(iwp) :: k !< loop index z direction 184 INTEGER(iwp) :: l_bnd = 7500 !< Lookup table index of the last time step 184 185 185 186 INTEGER(iwp), PARAMETER :: num_steps = 15000 !< number of steps in the lookup table … … 195 196 196 197 REAL(wp) :: e_s, & !< Saturation water vapor pressure 197 l_bnd = 7500, & !< Lookup table index of the last time step198 198 ol_max = 1.0E6_wp, & !< Maximum Obukhov length 199 199 rib_max, & !< Maximum Richardson number in lookup table
Note: See TracChangeset
for help on using the changeset viewer.