Changeset 609 for LMDZ4/branches

Timestamp:

Mar 24, 2005, 4:25:27 PM (20 years ago)

Author:

Laurent Fairhead

Message:

Petit bug ACo
LF

File:

• LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/oasis.dummy (modified) (1 diff)

LMDZ4/branches/IPSL-CM4_IPCC_patches/libf/phylmd/oasis.dummy

@@ -527 +527 @@
 c -- LOOP
             IF (jf.eq.7)
-               CALL locwrite(cl_writ(jf),windsp, imjm,
+     $         CALL locwrite(cl_writ(jf),windsp, imjm,
      $         file_unit_field(jf),ierror)
 c -- LOOP