Ignore:
Timestamp:
Oct 16, 2017 5:12:01 PM (4 years ago)
Author:
boeske
Message:

enable simulations with complex terrain

File:
1 edited

Legend:

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

    r2508 r2550  
    2525! -----------------
    2626! $Id$
     27! complex_terrain namelist parameter added
     28!
     29! 2508 2017-10-02 08:57:09Z suehring
    2730! Change default value for pt/q/s/sa_vertical_gradient_level
    2831!
     
    11541157    LOGICAL ::  cloud_physics = .FALSE.                      !< namelist parameter
    11551158    LOGICAL ::  cloud_top_radiation = .FALSE.                !< namelist parameter
     1159    LOGICAL ::  complex_terrain = .FALSE.                    !< namelist parameter
    11561160    LOGICAL ::  conserve_volume_flow = .FALSE.               !< namelist parameter
    11571161    LOGICAL ::  constant_diffusion = .FALSE.                 !< diffusion coefficient constant?
     
    19231927
    19241928    CHARACTER (LEN=40) ::  region(0:9)  !< label for statistic region
    1925     
    1926     INTEGER(iwp) ::  pr_palm = 130          !< maximum number of output profiles
     1929 
     1930    INTEGER(iwp) ::  pr_palm = 200          !< maximum number of output profiles
    19271931    INTEGER(iwp) ::  statistic_regions = 0  !< identifier for statistic regions
    1928    
     1932
    19291933    INTEGER(iwp) ::  u_max_ijk(3) = -1  !< index values (i,j,k) of location where u_max occurs
    19301934    INTEGER(iwp) ::  v_max_ijk(3) = -1  !< index values (i,j,k) of location where v_max occurs
Note: See TracChangeset for help on using the changeset viewer.