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

Timestamp:

Jun 7, 2007, 12:01:52 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Suite du merge entre la version et la HEAD: quelques modifications
de Yann sur le
LF

File:

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

LMDZ4/trunk/libf/phylmd/write_histhf.h

@@ -329 +329 @@
       CALL histwrite_phy(nid_hf, "SWupTOA",itau_w,zx_tmp_fi2d)
 c
-      IF (monocpu) THEN
+      IF (is_sequential) THEN
 cym      CALL gr_fi_ecrit(nbteta,klon,iim,jjmp1,PVteta,zx_tmp_3dte)
       DO k=1, nbteta