Changeset 890


Ignore:
Timestamp:
Feb 5, 2008, 2:13:29 PM (17 years ago)
Author:
Laurent Fairhead
Message:

Mise sous flag ok_ISCCP d'une sortie d'une variable dependant du simulateur
ISCCP
Correction coquille sur des sorties sous-surfaces
SD/LF

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

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/ini_histday.h

    r879 r890  
    422422c
    423423cIM     IF (iflag_con.GE.3) THEN
    424          CALL histdef(nid_day, "ptop",
     424          if (ok_ISCCP) then
     425            CALL histdef(nid_day, "ptop",
    425426c    .                "Cld top pressure","mb",
    426427     .                "Cld top pressure (cf ISCCP simulator)","Pa",
    427428     .                iim,jj_nb,nhori, 1,1,1,-99,
    428429     .                32, "ave(X)", zstophy,zout)
     430          ENDIF
    429431cIM     ENDIF !(iflag_con.GE.3) THEN
    430432c
  • LMDZ4/trunk/libf/phylmd/ini_histmth.h

    r879 r890  
    334334         DO nsrf = 1, nbsrf
    335335C
    336           IF(nsrf.GT.2) THEN
     336          IF(nsrf.GE.2) THEN
    337337           call histdef(nid_mth, "pourc_"//clnsurf(nsrf),
    338338     $         "% "//clnsurf(nsrf), "%", 
  • LMDZ4/trunk/libf/phylmd/write_histday.h

    r888 r890  
    401401c
    402402cIM   IF (iflag_con.GE.3) THEN
     403        if (ok_ISCCP) then
    403404cIM ema_pct= 0.     CALL gr_fi_ecrit(1, klon,iim,jjmp1, ema_pct,zx_tmp_2d)
    404 cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, meanptop(:,1),zx_tmp_2d)
    405       CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
     405cym       CALL gr_fi_ecrit(1, klon,iim,jjmp1, meanptop(:,1),zx_tmp_2d)
     406          CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
     407        ENDIF
    406408cIM   ENDIF
    407409c
  • LMDZ4/trunk/libf/phylmd/write_histmth.h

    r888 r890  
    311311      DO nsrf = 1, nbsrf
    312312CYYY
    313        IF(nsrf.GT.2) THEN
     313       IF(nsrf.GE.2) THEN
    314314        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)*100.
    315315cym        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
Note: See TracChangeset for help on using the changeset viewer.