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

Diff of /trunk/phylmd/transp.f90

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

trunk/Sources/phylmd/transp.f revision 169 by guez, Mon Sep 14 17:13:16 2015 UTC trunk/phylmd/transp.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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    
     USE dimens_m  
     USE dimphy  
     USE suphec_m  
     ! ======================================================================  
11      ! Auteur(s): Z.X.Li (LMD/CNRS)      ! Auteur(s): Z.X.Li (LMD/CNRS)
12      ! Date: le 25 avril 1994      ! Date: le 25 avril 1994
13      ! Objet: Calculer le transport total de l'energie et de la vapeur d'eau      ! Objet: Calculer le transport total de l'energie et de la vapeur d'eau
     ! ======================================================================  
14    
15        USE dimensions
16        USE dimphy
17        USE suphec_m
18    
19      REAL, INTENT (IN) :: paprs(klon, klev+1)      REAL, INTENT (IN) :: paprs(klon, klev+1)
     REAL tsol(klon)  
20      REAL, INTENT (IN) :: t(klon, klev)      REAL, INTENT (IN) :: t(klon, klev)
21      REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev)      REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev)
22      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.169  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21