Changeset 2174 for trunk

Timestamp:

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

Author:

smasson

Message:

continue changeset:2170, see ticket:727

Location:

trunk/NEMO

Files:

• OFF_SRC/IOM/iom_ioipsl.F90 (modified) (1 diff)
• OFF_SRC/IOM/iom_nf90.F90 (modified) (1 diff)
• OPA_SRC/IOM/iom_ioipsl.F90 (modified) (1 diff)

trunk/NEMO/OFF_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

trunk/NEMO/OFF_SRC/IOM/iom_nf90.F90

@@ -94 +94 @@
             IF(lwp) WRITE(numout,*) TRIM(clinfo)//' create new file: '//TRIM(cdname)//' in WRITE mode'
 
-            IF( llclobber ) THEN   ;   imode = NF90_CLOBBER 
-            ELSE                   ;   imode = NF90_NOCLOBBER 
+            IF( llclobber ) THEN   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_CLOBBER   )
+            ELSE                   ;   imode = IOR( NF90_64BIT_OFFSET, NF90_NOCLOBBER ) 
             ENDIF
             CALL iom_nf90_check(NF90_CREATE( TRIM(cdname), imode, if90id, chunksize = ichunk ), clinfo)

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