Changeset 841 for LMDZ4/trunk/libf/phytherm

Timestamp:

Aug 31, 2007, 4:21:27 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Les noms des traceurs ne sont pas bien initialises pour le cas CLIM
LF

File:

• LMDZ4/trunk/libf/phytherm/ini_histmth.h (modified) (1 diff)

LMDZ4/trunk/libf/phytherm/ini_histmth.h

@@ -833 +833 @@
 C
          if (nqmax.GE.3) THEN
-         DO iq=1,nqmax-2
-         IF (iq.LE.99) THEN
-         WRITE(str2,'(i2.2)') iq
-         CALL histdef(nid_mth, "trac"//str2, "Tracer No."//str2, "-",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
-     .                "ave(X)", zstophy,zout)
-         ELSE
-         PRINT*, "Trop de traceurs"
-         CALL abort
-         ENDIF
-         ENDDO
-         ENDIF
+           DO iq=3,nqmax
+             iiq=niadv(iq)
+             CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
+     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zstophy,zout)
+             ENDDO
+           ENDIF
 c
       ENDIF !lev_histmth.GE.4