source: LMDZ4/trunk/libf/phylmd/transp_lay.F @ 1934

Last change on this file since 1934 was 776, checked in by Laurent Fairhead, 17 years ago

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