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

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/phylmd/ini_histrac.h (modified) (3 diffs)

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

@@ -23 +23 @@
      .                iim,jj_nb,nhori, 1,1,1, -99, 32,
      .                "once",  zsto,zout)
-         DO it=1,nqmax
+         DO it=1,nbtr
 C champ 2D
          iq=it+2
          iiq=niadv(iq)
-         CALL histdef(nid_tra, tnom(iq), ttext(iiq), "U/kga",
+         CALL histdef(nid_tra, tname(iiq), ttext(iiq), "U/kga",
      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
      .                "ave(X)", zsto,zout)
          if (lessivage) THEN
-         CALL histdef(nid_tra, "fl"//tnom(iq),"Flux "//ttext(iiq),
+         CALL histdef(nid_tra, "fl"//tname(iiq),"Flux "//ttext(iiq),
      .              "U/m2/s",iim,jj_nb,nhori, klev,1,klev,nvert, 32,
      .              "ave(X)", zsto,zout)
@@ -37 +37 @@
 
 c---Ajout Olivia
-         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
+         CALL histdef(nid_tra, "d_tr_th_"//tname(iiq),
      .                "tendance thermique"// ttext(iiq), "?",
      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
@@ -43 +43 @@
 c
          if(iflag_con.GE.2) then
-         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
+         CALL histdef(nid_tra, "d_tr_cv_"//tname(iiq),
      .                "tendance convection"// ttext(iiq), "?",
      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
      .                "ave(X)", zsto,zout)
              endif !(iflag_con.GE.2) then
-         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
+         CALL histdef(nid_tra, "d_tr_cl_"//tname(iiq),
      .                "tendance couche limite"// ttext(iiq), "?",
      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,