46 |
C |
C |
47 |
use dimens_m |
use dimens_m |
48 |
use dimphy |
use dimphy |
49 |
use YOMCST |
use SUPHEC_M |
50 |
use yoethf |
use yoethf_m |
51 |
implicit none |
implicit none |
52 |
|
|
53 |
C |
C |
147 |
|
|
148 |
C====================================================================== |
C====================================================================== |
149 |
SUBROUTINE diagetpq(airephy,tit,iprt,idiag,idiag2,dtime |
SUBROUTINE diagetpq(airephy,tit,iprt,idiag,idiag2,dtime |
150 |
e ,t,q,ql,qs,u,v,paprs,pplay |
e ,t,q,ql,qs,u,v,paprs |
151 |
s , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec) |
s , d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec) |
152 |
C====================================================================== |
C====================================================================== |
153 |
C |
C |
185 |
c u--------input-R- vitesse u |
c u--------input-R- vitesse u |
186 |
c v--------input-R- vitesse v |
c v--------input-R- vitesse v |
187 |
c paprs----input-R- pression a intercouche (Pa) |
c paprs----input-R- pression a intercouche (Pa) |
|
c pplay----input-R- pression au milieu de couche (Pa) |
|
188 |
c |
c |
189 |
C the following total value are computed by UNIT of earth surface |
C the following total value are computed by UNIT of earth surface |
190 |
C |
C |
206 |
|
|
207 |
use dimens_m |
use dimens_m |
208 |
use dimphy |
use dimphy |
209 |
use YOMCST |
use SUPHEC_M |
210 |
use yoethf |
use yoethf_m |
211 |
IMPLICIT NONE |
IMPLICIT NONE |
212 |
C |
C |
213 |
C |
C |
219 |
REAL t(klon,klev), q(klon,klev), ql(klon,klev), qs(klon,klev) |
REAL t(klon,klev), q(klon,klev), ql(klon,klev), qs(klon,klev) |
220 |
REAL u(klon,klev), v(klon,klev) |
REAL u(klon,klev), v(klon,klev) |
221 |
REAL, intent(in):: paprs(klon,klev+1) |
REAL, intent(in):: paprs(klon,klev+1) |
|
real pplay(klon,klev) |
|
222 |
c Output variables |
c Output variables |
223 |
REAL d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec |
REAL d_h_vcol, d_qt, d_qw, d_ql, d_qs, d_ec |
224 |
C |
C |