Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

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/phys_output_write.h (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h

@@ -1192 +1192 @@
 
 !       IF (o_trac%flag(iff)<=lev_files(iff)) THEN
-         if (nqmax.GE.3) THEN
-!           DO iq=3,nqmax
+         if (nqtot.GE.3) THEN
+!           DO iq=3,nqtot
            DO iq=3,4
        IF (o_trac(iq-2)%flag(iff)<=lev_files(iff)) THEN