Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/convect3.F

Timestamp:

Mar 3, 2009, 5:40:26 PM (15 years ago)

Author:

jghattas

Message:

Creation du module infotrac:

• contient les variables de advtrac.h
• contient la subroutine iniadvtrac renommer en infotrac_init
• le nombre des traceurs est lu dans tracer.def en dynamique (ou par default ou recu par INCA)
• ce module est utilise dans la dynamique et la physique
• contient aussi la variable nbtr qui avant etait stockee dans dimphy

Le fichier advtrac.h n'existe plus.
La compilation ne prend plus en compte le nombre de traceur.

/JG

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/convect3.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/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)