Ignore:
Timestamp:
Feb 5, 2008, 2:19:31 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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4_V3_patches/libf/phylmd/write_histday.h

    r782 r892  
    364364cIM ema_pct= 0.     CALL gr_fi_ecrit(1, klon,iim,jjmp1, ema_pct,zx_tmp_2d)
    365365cym      CALL gr_fi_ecrit(1, klon,iim,jjmp1, meanptop(:,1),zx_tmp_2d)
    366       CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
     366        IF (ok_isccp) THEN
     367          CALL histwrite_phy(nid_day,"ptop",itau_w,meanptop(:,1))
     368        ENDIF
    367369cIM   ENDIF
    368370c
Note: See TracChangeset for help on using the changeset viewer.