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 |
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 |