Ignore:
Timestamp:
Aug 12, 2016 3:14:59 PM (5 years ago)
Author:
suehring
Message:

Prescribing scalar flux at model top; several bugfixes concering data output of scalars and output of flight data

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/surface_layer_fluxes_mod.f90

    r1961 r1992  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Minor bug, declaration of look-up index as INTEGER
    2222!
    2323! Former revisions:
     
    179179    IMPLICIT NONE
    180180
    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
    184185
    185186    INTEGER(iwp), PARAMETER     :: num_steps = 15000  !< number of steps in the lookup table
     
    195196
    196197    REAL(wp)     ::  e_s,               & !< Saturation water vapor pressure
    197                      l_bnd  = 7500,     & !< Lookup table index of the last time step
    198198                     ol_max = 1.0E6_wp, & !< Maximum Obukhov length
    199199                     rib_max,           & !< Maximum Richardson number in lookup table
Note: See TracChangeset for help on using the changeset viewer.