Ignore:
Timestamp:
Oct 26, 2015 4:17:44 PM (6 years ago)
Author:
maronga
Message:

various bugfixes and modifications of the atmosphere-land-surface-radiation interaction. Completely re-written routine to calculate surface fluxes (surface_layer_fluxes.f90) that replaces prandtl_fluxes. Minor formatting corrections and renamings

File:
1 edited

Legend:

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

    r1683 r1691  
    1414! PALM. If not, see <http://www.gnu.org/licenses/>.
    1515!
    16 ! Copyright 1997-2014 Leibniz Universitaet Hannover
     16! Copyright 1997-2015 Leibniz Universitaet Hannover
    1717!--------------------------------------------------------------------------------!
    1818!
    1919! Current revisions:
    2020! -----------------
    21 !
     21! Renamed prandtl_layer to constant_flux_layer, renames rif_min/rif_max to
     22! zeta_min/zeta_max.
    2223!
    2324! Former revisions:
     
    11181119    ENDIF
    11191120
    1120     IF ( prandtl_layer )  THEN
    1121        WRITE ( io, 305 )  (zu(1)-zu(0)), roughness_length, &
    1122                           z0h_factor*roughness_length, kappa, &
    1123                           rif_min, rif_max
     1121    IF ( constant_flux_layer )  THEN
     1122       WRITE ( io, 305 )  (zu(1)-zu(0)), roughness_length,                     &
     1123                          z0h_factor*roughness_length, kappa,                  &
     1124                          zeta_min, zeta_max
    11241125       IF ( .NOT. constant_heatflux )  WRITE ( io, 308 )
    11251126       IF ( humidity  .AND.  .NOT. constant_waterflux )  THEN
     
    11311132    ELSE
    11321133       IF ( INDEX(initializing_actions, 'set_1d-model_profiles') /= 0 )  THEN
    1133           WRITE ( io, 310 )  rif_min, rif_max
     1134          WRITE ( io, 310 )  zeta_min, zeta_max
    11341135       ENDIF
    11351136    ENDIF
Note: See TracChangeset for help on using the changeset viewer.