148 |
REAL lwup0(klon, llm + 1), lwup(klon, llm + 1) |
REAL lwup0(klon, llm + 1), lwup(klon, llm + 1) |
149 |
SAVE lwdn0, lwdn, lwup0, lwup |
SAVE lwdn0, lwdn, lwup0, lwup |
150 |
|
|
|
! Amip2 |
|
|
! variables a une pression donnee |
|
|
|
|
|
integer nlevSTD |
|
|
PARAMETER(nlevSTD = 17) |
|
|
|
|
151 |
! prw: precipitable water |
! prw: precipitable water |
152 |
real prw(klon) |
real prw(klon) |
153 |
|
|
156 |
REAL flwp(klon), fiwp(klon) |
REAL flwp(klon), fiwp(klon) |
157 |
REAL flwc(klon, llm), fiwc(klon, llm) |
REAL flwc(klon, llm), fiwc(klon, llm) |
158 |
|
|
|
INTEGER kmax, lmax |
|
|
PARAMETER(kmax = 8, lmax = 8) |
|
|
INTEGER kmaxm1, lmaxm1 |
|
|
PARAMETER(kmaxm1 = kmax - 1, lmaxm1 = lmax - 1) |
|
|
|
|
159 |
! Variables propres a la physique |
! Variables propres a la physique |
160 |
|
|
161 |
INTEGER, save:: radpas |
INTEGER, save:: radpas |
487 |
real zmasse(klon, llm) |
real zmasse(klon, llm) |
488 |
! (column-density of mass of air in a cell, in kg m-2) |
! (column-density of mass of air in a cell, in kg m-2) |
489 |
|
|
|
real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 |
|
490 |
integer, save:: ncid_startphy, itau_phy |
integer, save:: ncid_startphy, itau_phy |
491 |
|
|
492 |
namelist /physiq_nml/ ok_journe, ok_mensuel, ok_instan, fact_cldcon, & |
namelist /physiq_nml/ ok_journe, ok_mensuel, ok_instan, fact_cldcon, & |