Changeset 841 for LMDZ4/trunk/libf


Ignore:
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

Location:
LMDZ4/trunk/libf
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/trunk/libf/phylmd/ini_histmth.h

    r776 r841  
    833833C
    834834         if (nqmax.GE.3) THEN
    835          DO iq=1,nqmax-2
    836          IF (iq.LE.99) THEN
    837          WRITE(str2,'(i2.2)') iq
    838          CALL histdef(nid_mth, "trac"//str2, "Tracer No."//str2, "-",
    839      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    840      .                "ave(X)", zstophy,zout)
    841          ELSE
    842          PRINT*, "Trop de traceurs"
    843          CALL abort
    844          ENDIF
    845          ENDDO
     835           DO iq=3,nqmax
     836           iiq=niadv(iq)
     837             CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
     838     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     839     .                "ave(X)", zstophy,zout)
     840           ENDDO
    846841         ENDIF
    847842c
    … …  
    17451740C
    17461741         if (nqmax.GE.3) THEN
    1747          DO iq=3,nqmax
    1748          iiq=niadv(iq)
    1749          CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
    1750      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    1751      .                "ave(X)", zstophy,zout)
    1752          ENDDO
    1753          ENDIF
     1742           DO iq=3,nqmax
     1743             iiq=niadv(iq)
     1744             CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
     1745     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     1746     .                "ave(X)", zstophy,zout)
     1747             ENDDO
     1748           ENDIF
    17541749
    17551750      ENDIF !lev_histmth.GE.4

  • LMDZ4/trunk/libf/phytherm/ini_histmth.h

    r814 r841  
    833833C
    834834         if (nqmax.GE.3) THEN
    835          DO iq=1,nqmax-2
    836          IF (iq.LE.99) THEN
    837          WRITE(str2,'(i2.2)') iq
    838          CALL histdef(nid_mth, "trac"//str2, "Tracer No."//str2, "-",
    839      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
    840      .                "ave(X)", zstophy,zout)
    841          ELSE
    842          PRINT*, "Trop de traceurs"
    843          CALL abort
    844          ENDIF
    845          ENDDO
    846          ENDIF
     835           DO iq=3,nqmax
     836             iiq=niadv(iq)
     837             CALL histdef(nid_mth, tnom(iq), ttext(iiq), "-",
     838     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
     839     .                "ave(X)", zstophy,zout)
     840             ENDDO
     841           ENDIF
    847842c
    848843      ENDIF !lev_histmth.GE.4
Note: See TracChangeset for help on using the changeset viewer.