Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynetat0.F

Timestamp:

Mar 3, 2009, 5:40:26 PM (16 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/dyn3dpar/dynetat0.F (modified) (6 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/dynetat0.F

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE dynetat0(fichnom,nq,vcov,ucov,
+      SUBROUTINE dynetat0(fichnom,vcov,ucov,
      .                    teta,q,masse,ps,phis,time)
+      USE infotrac
       IMPLICIT NONE
 
@@ -32 +33 @@
 #include "serre.h"
 #include "logic.h"
-#include "advtrac.h"
 
 c   Arguments:
@@ -38 +38 @@
 
       CHARACTER*(*) fichnom
-      INTEGER nq
       REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),teta(ip1jmp1,llm)
-      REAL q(ip1jmp1,llm,nq),masse(ip1jmp1,llm)
+      REAL q(ip1jmp1,llm,nqtot),masse(ip1jmp1,llm)
       REAL ps(ip1jmp1),phis(ip1jmp1)
 
@@ -53 +52 @@
 
 c-----------------------------------------------------------------------
-
 c  Ouverture NetCDF du fichier etat initial
 
@@ -315 +313 @@
 
 
-      IF(nq.GE.1) THEN
-      DO iq=1,nq
+      DO iq=1,nqtot
         ierr =  NF_INQ_VARID (nid, tname(iq), nvarid)
         IF (ierr .NE. NF_NOERR) THEN
@@ -334 +331 @@
         ENDIF
       ENDDO
-      ENDIF
 
       ierr = NF_INQ_VARID (nid, "masse", nvarid)