source: trunk/LMDZ.VENUS/libf/phyvenus/transp.F @ 1723

Last change on this file since 1723 was 1530, checked in by emillour, 9 years ago

Venus and Titan GCMs:
Updates in the physics to keep up with updates in LMDZ5 (up to
LMDZ5 trunk, rev 2350) concerning dynamics/physics separation:

  • Adapted makelmdz and makelmdz_fcm script to stop if trying to compile 1d model or newstart or start2archive in parallel.
  • got rid of references to "dimensions.h" in physics. Within physics packages, use nbp_lon (=iim), nbp_lat (=jjmp1) and nbp_lev (=llm) from module mod_grid_phy_lmdz (in phy_common) instead. Only partially done for Titan, because of many hard-coded commons; a necessary first step will be to clean these up (using modules).

EM
File size: 1.5 KB
Line 
1!
2! $Header: /home/cvsroot/LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $
3!
4      SUBROUTINE transp (paprs,tsol,
5     e                   t, q, u, v, geom,
6     s                   vtran_e, vtran_q, utran_e, utran_q)
7c
8c======================================================================
9c Auteur(s): Z.X.Li (LMD/CNRS)
10c Date: le 25 avril 1994
11c Objet: Calculer le transport de l'energie et de la vapeur d'eau
12c======================================================================
13      use dimphy
14      IMPLICIT none
15#include "YOMCST.h"
16c
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), utran_q(klon), vtran_e(klon), vtran_q(klon)
20c
21      INTEGER i, l
22c     ------------------------------------------------------------------
23      REAL geom(klon,klev), e
24c     ------------------------------------------------------------------
25      DO i = 1, klon
26         utran_e(i) = 0.0
27         utran_q(i) = 0.0
28         vtran_e(i) = 0.0
29         vtran_q(i) = 0.0
30      ENDDO
31c
32      DO l = 1, klev
33      DO i = 1, klon
34         e = RCPD*t(i,l) + RLVTT*q(i,l) + geom(i,l)
35         utran_e(i)=utran_e(i)+ u(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG
36         utran_q(i)=utran_q(i)+ u(i,l)*q(i,l)
37     .                         *(paprs(i,l)-paprs(i,l+1))/RG
38         vtran_e(i)=vtran_e(i)+ v(i,l)*e*(paprs(i,l)-paprs(i,l+1))/RG
39         vtran_q(i)=vtran_q(i)+ v(i,l)*q(i,l)
40     .                         *(paprs(i,l)-paprs(i,l+1))/RG
41      ENDDO
42      ENDDO
43c
44      RETURN
45      END
Note: See TracBrowser for help on using the repository browser.