55 |
use dimens_m, only: iim, jjm, llm, nqmx |
use dimens_m, only: iim, jjm, llm, nqmx |
56 |
use dimphy, only: klon |
use dimphy, only: klon |
57 |
use comconst, only: kappa, cpp, dtphys, g, pi |
use comconst, only: kappa, cpp, dtphys, g, pi |
58 |
use comvert, only: preff, presnivs |
use comvert, only: preff |
59 |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
use comgeom, only: apoln, cu_2d, cv_2d, unsaire_2d, apols, rlonu, rlonv |
60 |
use iniadvtrac_m, only: niadv |
use iniadvtrac_m, only: niadv |
61 |
use grid_change, only: dyn_phy, gr_fi_dyn |
use grid_change, only: dyn_phy, gr_fi_dyn |
331 |
! Appel de la physique: |
! Appel de la physique: |
332 |
|
|
333 |
CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, & |
CALL physiq(nq, firstcal, lafin, rdayvrai, heure, dtphys, & |
334 |
zplev, zplay, zphi, zphis, presnivs, zufi, zvfi, & |
zplev, zplay, zphi, zphis, zufi, zvfi, & |
335 |
ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, & |
ztfi, zqfi, pvervel, zdufi, zdvfi, zdtfi, zdqfi, zdpsrf, pducov, & |
336 |
PVteta) ! IM diagnostique PVteta, Amip2 |
PVteta) ! IM diagnostique PVteta, Amip2 |
337 |
|
|