/[lmdze]/trunk/Sources/phylmd/diagetpq.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/diagetpq.f

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

trunk/libf/phylmd/diagetpq.f90 revision 51 by guez, Tue Sep 20 09:14:34 2011 UTC trunk/phylmd/diagetpq.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 25  contains Line 25  contains
25    
26      ! Jean-Louis Dufresne, July 2002      ! Jean-Louis Dufresne, July 2002
27    
28      use dimens_m      USE dimphy, ONLY: klev, klon
29      use dimphy      USE suphec_m, ONLY: rcpd, rcpv, rcs, rcw, rg, rlstt, rlvtt
     use SUPHEC_M  
     use yoethf_m  
30    
31      ! Arguments:      ! Arguments:
32      ! airephy-------input-R- grid area      ! airephy-------input-R- grid area
     ! tit-----imput-A15- Comment added in PRINT (CHARACTER*15)  
33      ! iprt----input-I- PRINT level ( <=1 : no PRINT)      ! iprt----input-I- PRINT level ( <=1 : no PRINT)
34      ! idiag---input-I- indice dans lequel sera range les nouveaux      ! idiag---input-I- indice dans lequel sera range les nouveaux
35      ! bilans d' entalpie et de masse      ! bilans d' entalpie et de masse
# Line 67  contains Line 64  contains
64    
65      ! Input variables      ! Input variables
66      real airephy(klon)      real airephy(klon)
67      CHARACTER(len=15) tit      CHARACTER(len=*), intent(in):: tit ! comment added in PRINT
68      INTEGER iprt, idiag, idiag2      INTEGER iprt, idiag, idiag2
69      REAL, intent(in):: dtime      REAL, intent(in):: dtime
70      REAL, intent(in):: t(klon, klev)      REAL, intent(in):: t(klon, klev)
Legend:
Removed from v.51  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21