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

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

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

revision 170 by guez, Mon Sep 14 17:13:16 2015 UTC revision 171 by guez, Tue Sep 29 19:48:59 2015 UTC
# Line 4  module transp_m Line 4  module transp_m
4    
5  contains  contains
6    
7    SUBROUTINE transp(paprs, tsol, t, q, u, v, geom, vtran_e, vtran_q, utran_e, &    SUBROUTINE transp(paprs, t, q, u, v, geom, vtran_e, vtran_q, utran_e, utran_q)
        utran_q)  
8    
9      ! From LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09      ! From LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09
10    
# Line 20  contains Line 19  contains
19    
20    
21      REAL, INTENT (IN) :: paprs(klon, klev+1)      REAL, INTENT (IN) :: paprs(klon, klev+1)
     REAL tsol(klon)  
22      REAL, INTENT (IN) :: t(klon, klev)      REAL, INTENT (IN) :: t(klon, klev)
23      REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev)      REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev)
24      REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon)      REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon)
Legend:
Removed from v.170  
changed lines
  Added in v.171
  ViewVC Help
Powered by ViewVC 1.1.21