Changeset 2174 for trunk/NEMO/OPA_SRC

Timestamp:

2010-10-06T18:13:12+02:00 (14 years ago)

Author:

smasson

Message:

continue changeset:2170, see ticket:727

File:

• trunk/NEMO/OPA_SRC/IOM/iom_ioipsl.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/iom_ioipsl.F90

@@ -81 +81 @@
          iln = INDEX( cdname, '.nc' )
          IF( ldwrt ) THEN  ! the file should be open in write mode so we create it...
-            IF( llclobber ) THEN   ;   clstatus = 'REPLACE' 
-            ELSE                   ;   clstatus = 'NEW'
+            IF( llclobber ) THEN   ;   clstatus = 'REPLACE 64' 
+            ELSE                   ;   clstatus = 'NEW 64'
             ENDIF
             IF( jpnij > 1 ) THEN