source: LMDZ4/branches/V3_test/libf/phylmd/transp.F @ 703

Last change on this file since 703 was 703, checked in by (none), 19 years ago

This commit was manufactured by cvs2svn to create branch 'V3_test'.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.5 KB
Line 
1!
2! $Header$
3!
4      SUBROUTINE transp (paprs,tsol,
5     e                   t, q, u, v, geom,
6     s                   vtran_e, vtran_q, utran_e, utran_q)
7c
8      IMPLICIT none
9c======================================================================
10c Auteur(s): Z.X.Li (LMD/CNRS)
11c Date: le 25 avril 1994
12c Objet: Calculer le transport de l'energie et de la vapeur d'eau
13c======================================================================
14c
15#include "dimensions.h"
16#include "dimphy.h"
17#include "YOMCST.h"
18c
19      REAL paprs(klon,klev+1), tsol(klon)
20      REAL t(klon,klev), q(klon,klev), u(klon,klev), v(klon,klev)
21      REAL utran_e(klon), utran_q(klon), vtran_e(klon), vtran_q(klon)
22c
23      INTEGER i, l
24c     ------------------------------------------------------------------
25      REAL geom(klon,klev), e
26c     ------------------------------------------------------------------
27      DO i = 1, klon
28         utran_e(i) = 0.0
29         utran_q(i) = 0.0
30         vtran_e(i) = 0.0
31         vtran_q(i) = 0.0
32      ENDDO
33c
34      DO l = 1, klev
35      DO i = 1, klon
36         e = RCPD*t(i,l) + RLVTT*q(i,l) + geom(i,l)
37         utran_e(i)=utran_e(i)+ u(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG
38         utran_q(i)=utran_q(i)+ u(i,l)*q(i,l)
39     .                         *(paprs(i,l)-paprs(i,l+1))/RG
40         vtran_e(i)=vtran_e(i)+ v(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG
41         vtran_q(i)=vtran_q(i)+ v(i,l)*q(i,l)
42     .                         *(paprs(i,l)-paprs(i,l+1))/RG
43      ENDDO
44      ENDDO
45c
46      RETURN
47      END
Note: See TracBrowser for help on using the repository browser.