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 |
320 |
REAL, PARAMETER:: t_coup = 234. |
REAL, PARAMETER:: t_coup = 234. |
321 |
REAL zphi(klon, llm) |
REAL zphi(klon, llm) |
322 |
|
|
323 |
! cf. AM Variables pour la CLA (hbtm2) |
! cf. Anne Mathieu variables pour la couche limite atmosphérique (hbtm) |
324 |
|
|
325 |
REAL, SAVE:: pblh(klon, nbsrf) ! Hauteur de couche limite |
REAL, SAVE:: pblh(klon, nbsrf) ! Hauteur de couche limite |
326 |
REAL, SAVE:: plcl(klon, nbsrf) ! Niveau de condensation de la CLA |
REAL, SAVE:: plcl(klon, nbsrf) ! Niveau de condensation de la CLA |
332 |
REAL, SAVE:: trmb1(klon, nbsrf) ! deep_cape |
REAL, SAVE:: trmb1(klon, nbsrf) ! deep_cape |
333 |
REAL, SAVE:: trmb2(klon, nbsrf) ! inhibition |
REAL, SAVE:: trmb2(klon, nbsrf) ! inhibition |
334 |
REAL, SAVE:: trmb3(klon, nbsrf) ! Point Omega |
REAL, SAVE:: trmb3(klon, nbsrf) ! Point Omega |
335 |
! Grdeurs de sorties |
! Grandeurs de sorties |
336 |
REAL s_pblh(klon), s_lcl(klon), s_capCL(klon) |
REAL s_pblh(klon), s_lcl(klon), s_capCL(klon) |
337 |
REAL s_oliqCL(klon), s_cteiCL(klon), s_pblt(klon) |
REAL s_oliqCL(klon), s_cteiCL(klon), s_pblt(klon) |
338 |
REAL s_therm(klon), s_trmb1(klon), s_trmb2(klon) |
REAL s_therm(klon), s_trmb1(klon), s_trmb2(klon) |
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, & |
1386 |
! Ecriture des sorties |
! Ecriture des sorties |
1387 |
|
|
1388 |
use dimens_m, only: iim, jjm |
use dimens_m, only: iim, jjm |
1389 |
|
use gr_fi_ecrit_m, only: gr_fi_ecrit |
1390 |
USE histsync_m, ONLY: histsync |
USE histsync_m, ONLY: histsync |
1391 |
USE histwrite_m, ONLY: histwrite |
USE histwrite_m, ONLY: histwrite |
1392 |
|
|