Context Navigation

transp_lay.F @ 1408

Last change on this file since 1408 was 704, checked in by Laurent Fairhead, 18 years ago
Inclusion des modifs de Y. Meurdesoif pour la version V3 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	SUBROUTINE transp_lay (paprs,tsol,
2	e t, q, u, v, geom,
3	s vtran_e, vtran_q, utran_e, utran_q)
4	c
5	USE dimphy
6	IMPLICIT none
7	c======================================================================
8	c Auteur(s): Z.X.Li (LMD/CNRS)
9	c Date: le 25 avril 1994
10	c Objet: Calculer le transport de l'energie et de la vapeur d'eau
11	c======================================================================
12	c
13	cym#include "dimensions.h"
14	cym#include "dimphy.h"
15	#include "YOMCST.h"
16	c
17	REAL paprs(klon,klev+1), tsol(klon)
18	REAL t(klon,klev), q(klon,klev), u(klon,klev), v(klon,klev)
19	REAL utran_e(klon,klev), utran_q(klon,klev)
20	REAL vtran_e(klon,klev), vtran_q(klon,klev)
21	c
22	INTEGER i, l
23	c ------------------------------------------------------------------
24	REAL geom(klon,klev), esh
25	c ------------------------------------------------------------------
26	DO l = 1, klev
27	DO i = 1, klon
28	utran_e(i,l) = 0.0
29	utran_q(i,l) = 0.0
30	vtran_e(i,l) = 0.0
31	vtran_q(i,l) = 0.0
32	ENDDO
33	ENDDO
34	c
35	DO l = 1, klev
36	DO i = 1, klon
37	esh = RCPDt(i,l) + RLVTTq(i,l) + geom(i,l)
38	utran_e(i,l)=utran_e(i,l)+ u(i,l)esh
39	. (paprs(i,l)-paprs(i,l+1))/RG
40	utran_q(i,l)=utran_q(i,l)+ u(i,l)*q(i,l)
41	. *(paprs(i,l)-paprs(i,l+1))/RG
42	vtran_e(i,l)=vtran_e(i,l)+ v(i,l)esh
43	. (paprs(i,l)-paprs(i,l+1))/RG
44	vtran_q(i,l)=vtran_q(i,l)+ v(i,l)*q(i,l)
45	. *(paprs(i,l)-paprs(i,l+1))/RG
46	ENDDO
47	ENDDO
48	c
49	RETURN
50	END

Note: See TracBrowser for help on using the repository browser.