Changeset 470


Ignore:
Timestamp:
Sep 5, 2003, 5:10:02 PM (21 years ago)
Author:
lmdzadmin
Message:

ENDIF !iflag_con.EQ.3 mal place <=> pb avec Tiedtke

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ.3.3/branches/rel-LF/libf/phylmd/ini_histmth.h

    r467 r470  
    149149     .                "ave(X)", zsto,zout)
    150150c
    151          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
    152      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    153      .                "ave(X)", zsto,zout)
    154 c
    155          CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
    156      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    157      .                "ave(X)", zsto,zout)
     151c          CALL histdef(nid_mth, "frtu", "Zonal wind stress", "Pa",
     152c    .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     153c    .                "ave(X)", zsto,zout)
     154c
     155c        CALL histdef(nid_mth, "frtv", "Meridional wind stress", "Pa",
     156c    .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     157c    .                "ave(X)", zsto,zout)
    158158cIM cf JLD
    159159         CALL histdef(nid_mth, "ffonte","Thermal flux for snow melting",
     
    228228         END DO
    229229C
    230          CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
    231      .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    232      .                "ave(X)", zsto,zout)
     230c        CALL histdef(nid_mth, "sicf", "Sea-ice fraction", "-",
     231c    .                iim,jjmp1,nhori, 1,1,1, -99, 32,
     232c    .                "ave(X)", zsto,zout)
    233233c
    234234         CALL histdef(nid_mth, "albs", "Surface albedo", "-",
     
    369369     .                "ave(X)", zsto,zout)
    370370c
    371          CALL histdef(nid_mth, "ducon", "Convection du", "m/s2",
    372      .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
    373      .                "ave(X)", zsto,zout)
     371c        CALL histdef(nid_mth, "ducon", "Convection du", "m/s2",
     372c    .                iim,jjmp1,nhori, klev,1,klev,nvert, 32,
     373c    .                "ave(X)", zsto,zout)
    374374c
    375375         CALL histdef(nid_mth, "dqcon", "Convection dQ", "Kg/Kg/s",
     
    539539     .                iim,jjmp1,nhori, 1,1,1,-99,
    540540     .                32, "ave(X)", zsto,zout)
     541      ENDIF
    541542c
    542543         CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
     
    579580
    580581
    581       ENDIF
     582cIM     ENDIF
    582583c34EK
    583584         CALL histend(nid_mth)
Note: See TracChangeset for help on using the changeset viewer.