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: |
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 |