Changeset 1146 for LMDZ4/trunk/libf/phylmd/convect3.F

Timestamp:

Apr 9, 2009, 12:11:35 PM (15 years ago)

Author:

Laurent Fairhead

Message:

Réintegration dans le tronc des modifications issues de la branche LMDZ-dev
comprises entre la révision 1074 et 1145
Validation: une simulation de 1 jour en séquentiel sur PC donne les mêmes
résultats entre la trunk et la dev
LF

Location:

LMDZ4/trunk

Files:

• . (modified) (1 prop)
• libf/phylmd/convect3.F (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/convect3.F

@@ -19 +19 @@
 c#################################################################
       USE dimphy
+      USE infotrac, ONLY : NBTR
 
 #include "dimensions.h"
-cym#include "dimphy.h"
+      INTEGER NA
       PARAMETER (NA=60)
 
-      integer NTRAC
-      PARAMETER (NTRAC=nqmx-2)
       REAL DELTAC              ! cld
       PARAMETER (DELTAC=0.01)  ! cld
 
       INTEGER NENT(NA)
+      INTEGER ND, NDP1, NL, NTRA, IFLAG, icb, inb
+      REAL DTIME, EPMAX, DELT, PRECIP, CAPE
+      REAL DPLCLDT, DPLCLDR
       REAL T1(ND),R1(ND),RS(ND),U(ND),V(ND),TRA(ND,NTRA)
       REAL P(ND),PH(NDP1)
       REAL FT(ND),FR(ND),FU(ND),FV(ND),FTRA(ND,NTRA)
       REAL SIG(ND),W0(ND)
-      REAL UENT(NA,NA),VENT(NA,NA),TRAENT(NA,NA,NTRAC),TRATM(NA)
-      REAL UP(NA),VP(NA),TRAP(NA,NTRAC)
+      REAL UENT(NA,NA),VENT(NA,NA),TRAENT(NA,NA,NBTR),TRATM(NA)
+      REAL UP(NA),VP(NA),TRAP(NA,NBTR)
       REAL M(NA),MP(NA),MENT(NA,NA),QENT(NA,NA),ELIJ(NA,NA)
       REAL SIJ(NA,NA),TVP(NA),TV(NA),WATER(NA)