Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/iniadvtrac.F

Timestamp:

Sep 20, 2006, 12:12:39 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nouvelles versions de la dynamique YM
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/iniadvtrac.F (modified) (1 diff)

LMDZ4/branches/V3_test/libf/dyn3dpar/iniadvtrac.F

@@ -193 +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.