source: LMDZ4/trunk/libf/phy_IPCC_AR4/transp_lay.F @ 872

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

Preparation du remplacement de la physique utilisee pour l'exercice IPCC_AR4
par la version de la physique avec thermique. On garde le repertoire phylmd
pour un petit moment pour que les utilisateurs ne soient pas trop perdus ...
phy_IPCC_AR4 = phylmd
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.