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

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

@@ -4 +4 @@
 c
 c
-      subroutine initdynav_p(infile,day0,anne0,tstep,t_ops,t_wrt
-     .                     ,nq,fileid)
+      subroutine initdynav_p(infile,day0,anne0,tstep,t_ops,t_wrt,fileid)
 
        USE IOIPSL
@@ -11 +10 @@
        use Write_field
        use misc_mod
+       USE infotrac
+
       implicit none
 
@@ -30 +31 @@
 C      t_ops: frequence de l'operation pour IOIPSL
 C      t_wrt: frequence d'ecriture sur le fichier
-C      nq: nombre de traceurs
 C
 C   Sortie:
@@ -50 +50 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 C   Arguments
@@ -58 +57 @@
       real tstep, t_ops, t_wrt
       integer fileid
-      integer nq
       integer thoriid, zvertiid
 
@@ -82 +80 @@
       
       INTEGER :: dynave_domain_id
-      
       
       if (adjust) return
@@ -169 +166 @@
 C  Traceurs
 C
-        DO iq=1,nq
+        DO iq=1,nqtot
           call histdef(fileid, ttext(iq), ttext(iq), '-',
      .             iip1, jjn, thoriid, llm, 1, llm, zvertiid,