source: LMDZ5/trunk/libf/phylmd/transp.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: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       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), utran_q(klon), vtran_e(klon), vtran_q(klon)
23c
24      INTEGER i, l
25c     ------------------------------------------------------------------
26      REAL geom(klon,klev), e
27c     ------------------------------------------------------------------
28      DO i = 1, klon
29         utran_e(i) = 0.0
30         utran_q(i) = 0.0
31         vtran_e(i) = 0.0
32         vtran_q(i) = 0.0
33      ENDDO
34c
35      DO l = 1, klev
36      DO i = 1, klon
37         e = RCPD*t(i,l) + RLVTT*q(i,l) + geom(i,l)
38         utran_e(i)=utran_e(i)+ u(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG
39         utran_q(i)=utran_q(i)+ u(i,l)*q(i,l)
40     .                         *(paprs(i,l)-paprs(i,l+1))/RG
41         vtran_e(i)=vtran_e(i)+ v(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG
42         vtran_q(i)=vtran_q(i)+ v(i,l)*q(i,l)
43     .                         *(paprs(i,l)-paprs(i,l+1))/RG
44      ENDDO
45      ENDDO
46c
47      RETURN
48      END
Note: See TracBrowser for help on using the repository browser.