/[lmdze]/trunk/phylmd/cltrac.f90
ViewVC logotype

Diff of /trunk/phylmd/cltrac.f90

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

revision 120 by guez, Tue Jan 13 14:56:15 2015 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 8  contains Line 8  contains
8    
9      ! From LMDZ4/libf/phylmd/cltrac.F,v 1.1.1.1 2004/05/19 12:53:07      ! From LMDZ4/libf/phylmd/cltrac.F,v 1.1.1.1 2004/05/19 12:53:07
10    
11      USE dimens_m      USE dimensions
12      USE dimphy      USE dimphy
13      USE suphec_m      USE suphec_m
14      ! ======================================================================      ! ======================================================================
# Line 31  contains Line 31  contains
31      ! flux_tr--output-R- flux de tr      ! flux_tr--output-R- flux de tr
32      ! ======================================================================      ! ======================================================================
33      REAL, INTENT (IN) :: dtime      REAL, INTENT (IN) :: dtime
34      REAL coef(klon, klev)      REAL coef(:, 2:) ! (klon, 2:klev)
35      REAL, INTENT (IN) :: t(klon, klev) ! temperature (K)      REAL, INTENT (IN) :: t(klon, klev) ! temperature (K)
36      REAL tr(klon, klev)      REAL tr(klon, klev)
37      REAL, INTENT (IN) :: paprs(klon, klev+1)      REAL, INTENT (IN) :: paprs(klon, klev+1)
Legend:
Removed from v.120  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21