Changeset 760 for IOIPSL/trunk/src/fliocom.f90

Timestamp:

10/26/09 15:10:32 (15 years ago)

Author:

bellier

Message:

Default creating mode for netcdf files is now 64-bits

File:

• IOIPSL/trunk/src/fliocom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/fliocom.f90

@@ -883 +883 @@
   IF (PRESENT(mode)) THEN
     SELECT CASE (TRIM(mode))
-    CASE('REPLACE','REP','REP32')
+    CASE('REPLACE','REP','REP64')
+      m_c = IOR(NF90_CLOBBER,NF90_64BIT_OFFSET)
+    CASE('REP32')
       m_c = NF90_CLOBBER
     CASE('32')
@@ -889 +891 @@
     CASE('64')
       m_c = IOR(NF90_NOCLOBBER,NF90_64BIT_OFFSET)
-    CASE('REP64')
-      m_c = IOR(NF90_CLOBBER,NF90_64BIT_OFFSET)
     CASE DEFAULT
-      m_c = NF90_NOCLOBBER
+      m_c = IOR(NF90_NOCLOBBER,NF90_64BIT_OFFSET)
     END SELECT
   ELSE
-    m_c = NF90_NOCLOBBER
+    m_c = IOR(NF90_NOCLOBBER,NF90_64BIT_OFFSET)
   ENDIF
 !-