Changeset 616 for LMDZ4/trunk/libf/dyn3d/iniadvtrac.F

Timestamp:

Apr 13, 2005, 10:58:34 AM (19 years ago)

Author:

lmdzadmin

Message:

Mise a jour pour INCA.2.0 Anne C
MAFi+LF

File:

• LMDZ4/trunk/libf/dyn3d/iniadvtrac.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/iniadvtrac.F

@@ -8 +8 @@
 #ifdef INCA
       USE transport_controls, only : hadv_flg, vadv_flg
+      USE species_names
       USE chemshut
 #endif
@@ -192 +193 @@
          str1=tnom(iq)
          tname(iiq)=tnom(iq)
-         ttext(iiq)=str1(1:lnblnk(str1))//descrq(iadv(iiq))
+         IF (iadv(iiq).eq.0) THEN
+           ttext(iiq)=str1(1:lnblnk(str1))
+         ELSE
+           ttext(iiq)=str1(1:lnblnk(str1))//descrq(iadv(iiq))
+         endif
          str2=ttext(iiq)
 c   schemas tenant compte des moments d'ordre superieur.