Context Navigation

transp_lay.F @ 1500

Last change on this file since 1500 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)
7	c
8	USE dimphy
9	IMPLICIT none
10	c======================================================================
11	c Auteur(s): Z.X.Li (LMD/CNRS)
12	c Date: le 25 avril 1994
13	c Objet: Calculer le transport de l'energie et de la vapeur d'eau
14	c======================================================================
15	c
16	cym#include "dimensions.h"
17	cym#include "dimphy.h"
18	#include "YOMCST.h"
19	c
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)
24	c
25	INTEGER i, l
26	c ------------------------------------------------------------------
27	REAL geom(klon,klev), esh
28	c ------------------------------------------------------------------
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
37	c
38	DO l = 1, klev
39	DO i = 1, klon
40	esh = RCPDt(i,l) + RLVTTq(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
51	c
52	RETURN
53	END

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