Changeset 782 for LMDZ4/trunk/libf/phylmd/write_histhf.h

Timestamp:

Jun 11, 2007, 4:50:43 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Adaptation du code a la nouvelle interface avec les surface de Josefine
LF

File:

• LMDZ4/trunk/libf/phylmd/write_histhf.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/write_histhf.h

@@ -332 +332 @@
 cym      CALL gr_fi_ecrit(nbteta,klon,iim,jjmp1,PVteta,zx_tmp_3dte)
       DO k=1, nbteta
+       zx_tmp_fi2d(1:klon) = PVteta(1:klon,k)
        CALL histwrite_phy(nid_hf,"PV"//ctetaSTD(k),
-     .      itau_w,PVteta)
+     .      itau_w,zx_tmp_fi2d)
       ENDDO !k=1, nbteta
       ENDIF