Ignore:
Timestamp:
Sep 7, 2018 1:21:24 PM (3 years ago)
Author:
schwenkel
Message:

Adapted for the use of cloud_droplets

File:
1 edited

Legend:

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

    r3222 r3233  
    2525! -----------------
    2626! $Id$
     27! Adapted for the use of cloud_droplets
     28!
     29! 3222 2018-08-30 13:35:35Z suehring
    2730! - Introduction of surface array for type and its names
    2831! - Bugfix in intialization of pavement surfaces
     
    24872490!
    24882491!--    If no cloud physics is used, rho_surface has not been calculated before
    2489        IF (  .NOT.  cloud_physics )  THEN
     2492       IF (  .NOT.  cloud_physics  .AND.  .NOT.  cloud_droplets )  THEN
    24902493          CALL calc_mean_profile( pt, 4 )
    24912494          rho_surface = surface_pressure * 100.0_wp / ( r_d * hom(topo_min_level+1,1,4,0) * exn )
Note: See TracChangeset for help on using the changeset viewer.