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

Diff of /trunk/Sources/phylmd/nuage.f

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

revision 224 by guez, Thu Mar 30 14:25:18 2017 UTC revision 225 by guez, Mon Oct 16 12:35:41 2017 UTC
# Line 29  contains Line 29  contains
29      ! couverture nuageuse pour le rayonnement (0 \`a 1)      ! couverture nuageuse pour le rayonnement (0 \`a 1)
30    
31      REAL, intent(out):: pcltau(klon, klev) ! \'epaisseur optique des nuages      REAL, intent(out):: pcltau(klon, klev) ! \'epaisseur optique des nuages
32      real pclemi(klon, klev) ! pclemi--output-R-emissivite des nuages (0 a 1)      real, intent(out):: pclemi(klon, klev) ! \'emissivit\'e des nuages (0 \`a 1)
33      REAL pch(klon), pcl(klon), pcm(klon), pct(klon), pctlwp(klon)      REAL pch(klon), pcl(klon), pcm(klon), pct(klon), pctlwp(klon)
34    
35      ! Local:      ! Local:
# Line 44  contains Line 44  contains
44    
45      REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2      REAL radius, rad_froid, rad_chaud, rad_chau1, rad_chau2
46      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)
     !cc PARAMETER (rad_chaud=15.0, rad_froid=35.0)  
     ! sintex initial PARAMETER (rad_chaud=10.0, rad_froid=30.0)  
47      REAL coef, coef_froi, coef_chau      REAL coef, coef_froi, coef_chau
48      PARAMETER (coef_chau=0.13, coef_froi=0.09)      PARAMETER (coef_chau=0.13, coef_froi=0.09)
49      REAL seuil_neb, t_glace      REAL seuil_neb, t_glace
Legend:
Removed from v.224  
changed lines
  Added in v.225
  ViewVC Help
Powered by ViewVC 1.1.21