/[lmdze]/trunk/libf/phylmd/diagphy.f
ViewVC logotype

Diff of /trunk/libf/phylmd/diagphy.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 147  C Line 147  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
# Line 185  c qs-------input-R- solid watter (kg/kg) Line 185  c qs-------input-R- solid watter (kg/kg)
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
# Line 220  c     Input variables Line 219  c     Input variables
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
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21