Ignore:
Timestamp:
May 14, 2014, 1:12:36 PM (11 years ago)
Author:
Laurent Fairhead
Message:

Initialisation Rayleigh scattering

  1. Baek, MPL
File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/rrtm/swclr.F90

    r2003 r2044  
    228228!-- bug-fix: ZRATIO must be defined from the transformed value of optical thickness
    229229! MPLFH : ZTRAY N'EST PAS INITIALISE !!!!! A REVOIR (MPL)
    230       ZTRAY=0.
     230      ZTRAY= PRAYL(JL) * PDSIG(JL,JK)
    231231!     print *,'>>>>>>> swclr: ZTRAY ',ZTRAY
    232232      ZDENB = ZTRAY + PTAUAZ(JL,JK)*(1.0_JPRB-PPIZAZ(JL,JK)*ZFF)
Note: See TracChangeset for help on using the changeset viewer.