Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/dyn3d/addfi.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/dyn3d/addfi.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/dyn3d/addfi.F

@@ -2 +2 @@
 ! $Header$
 !
-      SUBROUTINE addfi(nq, pdt, leapf, forward,
+      SUBROUTINE addfi(pdt, leapf, forward,
      S          pucov, pvcov, pteta, pq   , pps ,
      S          pdufi, pdvfi, pdhfi,pdqfi, pdpfi  )
+
+      USE infotrac, ONLY : nqtot
       IMPLICIT NONE
 c
@@ -52 +54 @@
 c    -----------
 c
-      INTEGER nq
-
       REAL pdt
 c
       REAL pvcov(ip1jm,llm),pucov(ip1jmp1,llm)
-      REAL pteta(ip1jmp1,llm),pq(ip1jmp1,llm,nq),pps(ip1jmp1)
+      REAL pteta(ip1jmp1,llm),pq(ip1jmp1,llm,nqtot),pps(ip1jmp1)
 c
       REAL pdvfi(ip1jm,llm),pdufi(ip1jmp1,llm)
-      REAL pdqfi(ip1jmp1,llm,nq),pdhfi(ip1jmp1,llm),pdpfi(ip1jmp1)
+      REAL pdqfi(ip1jmp1,llm,nqtot),pdhfi(ip1jmp1,llm),pdpfi(ip1jmp1)
 c
       LOGICAL leapf,forward
@@ -125 +125 @@
       ENDDO
 
-      DO iq = 3, nq
+      DO iq = 3, nqtot
          DO k = 1,llm
             DO j = 1,ip1jmp1
@@ -148 +148 @@
 
 
-      DO iq = 1, nq
+      DO iq = 1, nqtot
         DO  k    = 1, llm
           DO  ij   = 1, iim