Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/conemav.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/conemav.F (modified) (3 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/conemav.F

@@ -10 +10 @@
 c
       USE dimphy
+      USE infotrac, ONLY : nbtr
       IMPLICIT none
 c======================================================================
@@ -44 +45 @@
 c
 #include "dimensions.h"
-cym#include "dimphy.h"
 c
-      integer NTRAC
-      PARAMETER (NTRAC=nqmx-2)
 c
        REAL dtime, paprs(klon,klev+1),pplay(klon,klev)
        REAL t(klon,klev),q(klon,klev),u(klon,klev),v(klon,klev)
-       REAL tra(klon,klev,ntrac)
+       REAL tra(klon,klev,nbtr)
        INTEGER ntra
        REAL work1(klon,klev),work2(klon,klev)
 c
        REAL d_t(klon,klev),d_q(klon,klev),d_u(klon,klev),d_v(klon,klev)
-       REAL d_tra(klon,klev,ntrac)
+       REAL d_tra(klon,klev,nbtr)
        REAL rain(klon),snow(klon)
 c
@@ -74 +72 @@
        INTEGER i,k,itra
        REAL qs(klon,klev)
-cym       REAL cbmf(klon)
-cym       SAVE cbmf
        REAL,ALLOCATABLE,SAVE :: cbmf(:)
 c$OMP THREADPRIVATE(cbmf)