Changeset 329


Ignore:
Timestamp:
05/22/08 15:08:28 (15 years ago)
Author:
bellier
Message:
  • modified an error message
  • added an option in fliocrfd to create a file in mode "64 bits"

JB

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/fliocom.f90

    r246 r329  
    8484!!              (see "flio_dom_defset"). 
    8585!! (C) mode   : Mode used to create the file. 
    86 !!              If this argument is present with the value "REP" 
     86!!              Supported modes : REPLACE, REP, 32, 64, REP32, REP64. 
     87!!              If this argument is present with the value "REP[32/64]" 
    8788!!              or the value "REPLACE", the file will be created 
    8889!!              in mode "CLOBBER", else the file will be created 
    8990!!              in mode "NOCLOBBER". 
     91!!              "32/64" defines the offset mode. 
     92!!              The default offset mode is 32 bits. 
    9093!! 
    9194!! Optional OUTPUT arguments 
     
    865868! Check the mode 
    866869  IF (PRESENT(mode)) THEN 
    867     IF ( (TRIM(MODE) == "REPLACE").OR.(TRIM(MODE) == "REP") ) THEN 
     870    SELECT CASE (TRIM(mode)) 
     871    CASE('REPLACE','REP','REP32') 
    868872      m_c = NF90_CLOBBER 
    869     ELSE 
     873    CASE('32') 
    870874      m_c = NF90_NOCLOBBER 
    871     ENDIF 
     875    CASE('64') 
     876      m_c = IOR(NF90_NOCLOBBER,NF90_64BIT_OFFSET) 
     877    CASE('REP64') 
     878      m_c = IOR(NF90_CLOBBER,NF90_64BIT_OFFSET) 
     879    CASE DEFAULT 
     880      m_c = NF90_NOCLOBBER 
     881    END SELECT 
    872882  ELSE 
    873883    m_c = NF90_NOCLOBBER 
     
    47214731  INTEGER,INTENT(IN)  :: iid 
    47224732  INTEGER,INTENT(OUT) :: ixd 
     4733!- 
     4734  CHARACTER(LEN=20) :: c_t 
    47234735!--------------------------------------------------------------------- 
    47244736  ixd = flio_qid(iid) 
    47254737  IF (ixd < 0) THEN 
    4726     CALL ipslerr (3,TRIM(cpg),'Invalid internal file index.',' ',' ') 
     4738    WRITE (UNIT=c_t,FMT='(I15)') iid 
     4739    CALL ipslerr (3,TRIM(cpg), & 
     4740 &    'Invalid internal file index :',TRIM(ADJUSTL(c_t)),' ') 
    47274741  ENDIF 
    47284742!----------------------- 
Note: See TracChangeset for help on using the changeset viewer.