source: LMDZ5/trunk/libf/phylmd/transp_lay.F @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • 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.