/[lmdze]/trunk/phylmd/nuage.f
ViewVC logotype

Diff of /trunk/phylmd/nuage.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC
# Line 55  SUBROUTINE nuage (paprs, pplay, & Line 55  SUBROUTINE nuage (paprs, pplay, &
55    PARAMETER (cetahb = 0.45, cetamb = 0.80)    PARAMETER (cetahb = 0.45, cetamb = 0.80)
56    !    !
57    INTEGER i, k    INTEGER i, k
58    REAL zflwp, zradef, zfice, zmsac    REAL zflwp, zfice
59    !    !
60    REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2    REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2
61    PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0)    PARAMETER (rad_chau1=13.0, rad_chau2=9.0, rad_froid=35.0)
# Line 78  SUBROUTINE nuage (paprs, pplay, & Line 78  SUBROUTINE nuage (paprs, pplay, &
78    REAL re(klon, klev)       ! cloud droplet effective radius [um]    REAL re(klon, klev)       ! cloud droplet effective radius [um]
79    REAL sulfate_pi(klon, klev)  ! sulfate aerosol mass concentration [ug m-3] (pre-industrial value)    REAL sulfate_pi(klon, klev)  ! sulfate aerosol mass concentration [ug m-3] (pre-industrial value)
80    REAL cdnc_pi(klon, klev)     ! cloud droplet number concentration [m-3] (pi value)    REAL cdnc_pi(klon, klev)     ! cloud droplet number concentration [m-3] (pi value)
   REAL re_pi(klon, klev)       ! cloud droplet effective radius [um] (pi value)  
81    
82    REAL fl(klon, klev)  ! xliq * rneb (denominator to re ; fraction of liquid water clouds within the grid cell)    REAL fl(klon, klev)  ! xliq * rneb (denominator to re ; fraction of liquid water clouds within the grid cell)
83    
Legend:
Removed from v.82  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21