/[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

trunk/libf/phylmd/transp.f revision 52 by guez, Fri Sep 23 12:28:01 2011 UTC trunk/Sources/phylmd/transp.f revision 169 by guez, Mon Sep 14 17:13:16 2015 UTC
# Line 1  Line 1 
1  !  module transp_m
2  ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $  
3  !    IMPLICIT NONE
4        SUBROUTINE transp (paprs,tsol,  
5       e                   t, q, u, v, geom,  contains
6       s                   vtran_e, vtran_q, utran_e, utran_q)  
7  c    SUBROUTINE transp(paprs, tsol, t, q, u, v, geom, vtran_e, vtran_q, utran_e, &
8        use dimens_m         utran_q)
9        use dimphy  
10        use SUPHEC_M      ! From LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09
11        IMPLICIT none  
12  c======================================================================      USE dimens_m
13  c Auteur(s): Z.X.Li (LMD/CNRS)      USE dimphy
14  c Date: le 25 avril 1994      USE suphec_m
15  c Objet: Calculer le transport de l'energie et de la vapeur d'eau      ! ======================================================================
16  c======================================================================      ! Auteur(s): Z.X.Li (LMD/CNRS)
17  c      ! Date: le 25 avril 1994
18  c      ! Objet: Calculer le transport total de l'energie et de la vapeur d'eau
19        REAL, intent(in):: paprs(klon,klev+1)      ! ======================================================================
20        real tsol(klon)  
21        REAL, INTENT (IN):: t(klon,klev)  
22        real q(klon,klev), u(klon,klev), v(klon,klev)      REAL, INTENT (IN) :: paprs(klon, klev+1)
23        REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon)      REAL tsol(klon)
24  c      REAL, INTENT (IN) :: t(klon, klev)
25        INTEGER i, l      REAL, INTENT (IN) :: q(klon, klev), u(klon, klev), v(klon, klev)
26  c     ------------------------------------------------------------------      REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon)
27        REAL geom(klon,klev), e  
28  c     ------------------------------------------------------------------      INTEGER i, l
29        DO i = 1, klon      ! ------------------------------------------------------------------
30           utran_e(i) = 0.0      REAL geom(klon, klev), e
31           utran_q(i) = 0.0      ! ------------------------------------------------------------------
32           vtran_e(i) = 0.0      DO i = 1, klon
33           vtran_q(i) = 0.0         utran_e(i) = 0.0
34        ENDDO         utran_q(i) = 0.0
35  c         vtran_e(i) = 0.0
36        DO l = 1, klev         vtran_q(i) = 0.0
37        DO i = 1, klon      END DO
38           e = RCPD*t(i,l) + RLVTT*q(i,l) + geom(i,l)  
39           utran_e(i)=utran_e(i)+ u(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG      DO l = 1, klev
40           utran_q(i)=utran_q(i)+ u(i,l)*q(i,l)         DO i = 1, klon
41       .                         *(paprs(i,l)-paprs(i,l+1))/RG            e = rcpd*t(i, l) + rlvtt*q(i, l) + geom(i, l)
42           vtran_e(i)=vtran_e(i)+ v(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG            utran_e(i) = utran_e(i) + u(i, l)*e*(paprs(i,l)-paprs(i,l+1))/rg
43           vtran_q(i)=vtran_q(i)+ v(i,l)*q(i,l)            utran_q(i) = utran_q(i) + u(i, l)*q(i, l)*(paprs(i,l)-paprs(i,l+1))/rg
44       .                         *(paprs(i,l)-paprs(i,l+1))/RG            vtran_e(i) = vtran_e(i) + v(i, l)*e*(paprs(i,l)-paprs(i,l+1))/rg
45        ENDDO            vtran_q(i) = vtran_q(i) + v(i, l)*q(i, l)*(paprs(i,l)-paprs(i,l+1))/rg
46        ENDDO         END DO
47  c      END DO
48        RETURN  
49        END    END SUBROUTINE transp
50    
51    end module transp_m
Legend:
Removed from v.52  
changed lines
  Added in v.169
  ViewVC Help
Powered by ViewVC 1.1.21