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

LMDZ4/branches/LMDZ4-dev/libf/bibio/writehist.F

@@ -2 +2 @@
 ! $Header$
 !
-      subroutine writehist( histid, histvid, nq, time, vcov, 
+      subroutine writehist( histid, histvid, time, vcov, 
      ,                          ucov,teta,phi,q,masse,ps,phis)
 
       USE ioipsl
+      USE infotrac, ONLY : nqtot, ttext
       implicit none
 
@@ -16 +17 @@
 C      histid: ID du fichier histoire
 C      histvid:ID du fichier histoire pour les vents V (appele a disparaitre)
-C      nqmx: nombre maxi de traceurs
 C      time: temps de l'ecriture
 C      vcov: vents v covariants
@@ -46 +46 @@
 #include "description.h"
 #include "serre.h"
-#include "advtrac.h"
 
 C
@@ -52 +51 @@
 C
 
-      INTEGER histid, nq, histvid
+      INTEGER histid, histvid
       REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm) 
       REAL teta(ip1jmp1,llm),phi(ip1jmp1,llm)                   
       REAL ps(ip1jmp1),masse(ip1jmp1,llm)                   
       REAL phis(ip1jmp1)                  
-      REAL q(ip1jmp1,llm,nq)
+      REAL q(ip1jmp1,llm,nqtot)
       integer time
 
@@ -102 +101 @@
 C  Traceurs
 C
-        DO iq=1,nq
+        DO iq=1,nqtot
           call histwrite(histid, ttext(iq), itau_w, q(:,:,iq), 
      .                   iip1*jjp1*llm, ndexu)