8 |
|
|
9 |
SUBROUTINE calfis(nq, lafin, rdayvrai, heure, pucov, pvcov, pteta, pq, & |
SUBROUTINE calfis(nq, lafin, rdayvrai, heure, pucov, pvcov, pteta, pq, & |
10 |
pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, & |
pmasse, pps, ppk, pphis, pphi, pducov, pdvcov, pdteta, pdq, pw, & |
11 |
clesphy0, pdufi, pdvfi, pdhfi, pdqfi, pdpsfi) |
pdufi, pdvfi, pdhfi, pdqfi, pdpsfi) |
12 |
|
|
13 |
! From dyn3d/calfis.F,v 1.3 2005/05/25 13:10:09 |
! From dyn3d/calfis.F,v 1.3 2005/05/25 13:10:09 |
14 |
|
|
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, presnivs |
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 advtrac_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 |
62 |
use physiq_m, only: physiq |
use physiq_m, only: physiq |
63 |
use pressure_var, only: p3d, pls |
use pressure_var, only: p3d, pls |
64 |
|
|
65 |
! 0. Declarations : |
! 0. Declarations : |
66 |
|
|
67 |
INTEGER nq |
INTEGER, intent(in):: nq |
68 |
|
|
69 |
! Arguments : |
! Arguments : |
70 |
|
|
99 |
REAL pdpsfi(iim + 1,jjm + 1) |
REAL pdpsfi(iim + 1,jjm + 1) |
100 |
|
|
101 |
INTEGER, PARAMETER:: longcles = 20 |
INTEGER, PARAMETER:: longcles = 20 |
|
REAL clesphy0(longcles) |
|
102 |
|
|
103 |
! Local variables : |
! Local variables : |
104 |
|
|
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, clesphy0, zufi, zvfi, & |
zplev, zplay, zphi, zphis, presnivs, 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 |
|
|