Ignore:
Timestamp:
Mar 26, 2013 6:16:16 PM (9 years ago)
Author:
hoffmann
Message:

optimization of two-moments cloud physics

File:
1 edited

Legend:

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

    r1112 r1115  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! descriptions for Seifert-Beheng-cloud-physics-scheme added
    2323!
    2424! Former revisions:
     
    12371237       WRITE ( io, 415 )
    12381238       WRITE ( io, 416 ) surface_pressure, r_d, rho_surface, cp, l_v
     1239       IF ( icloud_scheme == 0 )  THEN
     1240          WRITE ( io, 510 ) 1.0E-6 * nc_const
     1241          IF ( precipitation )  WRITE ( io, 511 ) c_sedimentation
     1242       ENDIF
    12391243    ENDIF
    12401244
     
    14581462    ELSEIF ( humidity  .AND.  cloud_physics )  THEN
    14591463       WRITE ( io, 432 )
    1460        IF ( radiation )      WRITE ( io, 132 )
    1461        IF ( precipitation )  WRITE ( io, 133 )
     1464       IF ( radiation )  WRITE ( io, 132 )
     1465       IF ( icloud_scheme == 1 )  THEN
     1466          IF ( precipitation )  WRITE ( io, 133 )
     1467       ELSEIF ( icloud_scheme == 0 )  THEN
     1468          IF ( drizzle )  WRITE ( io, 506 )
     1469          IF ( precipitation )  THEN
     1470             WRITE ( io, 505 )
     1471             IF ( turbulence )  WRITE ( io, 507 )
     1472             IF ( ventilation_effect )  WRITE ( io, 508 )
     1473             IF ( limiter_sedimentation )  WRITE ( io, 509 )
     1474          ENDIF
     1475       ENDIF
    14621476    ELSEIF ( humidity  .AND.  cloud_droplets )  THEN
    14631477       WRITE ( io, 433 )
     
    20202034503 FORMAT (' --> Momentum advection via Wicker-Skamarock-Scheme 5th order')
    20212035504 FORMAT (' --> Scalar advection via Wicker-Skamarock-Scheme 5th order')
    2022 
     2036505 FORMAT ('    Precipitation parameterization via Seifert-Beheng-Scheme')
     2037506 FORMAT ('    Drizzle parameterization via Stokes law')
     2038507 FORMAT ('    Turbulence effects on precipitation process')
     2039508 FORMAT ('    Ventilation effects on evaporation of rain drops')
     2040509 FORMAT ('    Slope limiter used for sedimentation process')
     2041510 FORMAT ('        Droplet density    :   N_c   = ',F6.1,' 1/cm**3')
     2042511 FORMAT ('        Sedimentation Courant number:                  '/&
     2043            '                               C_s   = ',F3.1,'        ')
    20232044
    20242045 END SUBROUTINE header
Note: See TracChangeset for help on using the changeset viewer.