Changeset 602


Ignore:
Timestamp:
Mar 9, 2005, 1:30:16 PM (19 years ago)
Author:
Laurent Fairhead
Message:

Sortie de prw du if sur iflag_con FH
LF

Location:
LMDZ4/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

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

    r578 r602  
    443443     .                "ave(X)", zsto,zout)
    444444c
     445      ENDIF !iflag_con .GE. 3
     446c
    445447         CALL histdef(nid_mth, "prw", "Precipitable water", "kg/m2",
    446448     .                iim,jjmp1,nhori, 1,1,1, -99, 32,
    447449     .                "ave(X)", zsto,zout)
    448450c
    449       ENDIF !iflag_con .GE. 3
    450451c34EK
    451452c

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

    r524 r602  
    438438c34EK
    439439c
     440      ENDIF !iflag_con.GE.3
     441c
    440442      CALL gr_fi_ecrit(1, klon,iim,jjmp1, prw,zx_tmp_2d)
    441443      CALL histwrite(nid_mth,"prw",itau_w,zx_tmp_2d,
    442444     .               iim*jjmp1,ndex2d)
    443445c
    444       ENDIF !iflag_con.GE.3
    445446c
    446447c
Note: See TracChangeset for help on using the changeset viewer.