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

Timestamp:

05/22/08 15:08:28 (17 years ago)

Author:

bellier

Message:

• modified an error message
• added an option in fliocrfd to create a file in mode "64 bits"

JB

File:

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

IOIPSL/trunk/src/fliocom.f90

@@ -84 +84 @@
 !!              (see "flio_dom_defset").
 !! (C) mode   : Mode used to create the file.
-!!              If this argument is present with the value "REP"
+!!              Supported modes : REPLACE, REP, 32, 64, REP32, REP64.
+!!              If this argument is present with the value "REP[32/64]"
 !!              or the value "REPLACE", the file will be created
 !!              in mode "CLOBBER", else the file will be created
 !!              in mode "NOCLOBBER".
+!!              "32/64" defines the offset mode.
+!!              The default offset mode is 32 bits.
 !!
 !! Optional OUTPUT arguments
@@ -865 +868 @@
 ! Check the mode
   IF (PRESENT(mode)) THEN
-    IF ( (TRIM(MODE) == "REPLACE").OR.(TRIM(MODE) == "REP") ) THEN
+    SELECT CASE (TRIM(mode))
+    CASE('REPLACE','REP','REP32')
       m_c = NF90_CLOBBER
-    ELSE
+    CASE('32')
       m_c = NF90_NOCLOBBER
-    ENDIF
+    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
+    END SELECT
   ELSE
     m_c = NF90_NOCLOBBER
@@ -4721 +4731 @@
   INTEGER,INTENT(IN)  :: iid
   INTEGER,INTENT(OUT) :: ixd
+!-
+  CHARACTER(LEN=20) :: c_t
 !---------------------------------------------------------------------
   ixd = flio_qid(iid)
   IF (ixd < 0) THEN
-    CALL ipslerr (3,TRIM(cpg),'Invalid internal file index.',' ',' ')
+    WRITE (UNIT=c_t,FMT='(I15)') iid
+    CALL ipslerr (3,TRIM(cpg), &
+ &    'Invalid internal file index :',TRIM(ADJUSTL(c_t)),' ')
   ENDIF
 !-----------------------