Changeset 1131


Ignore:
Timestamp:
2008-06-24T17:07:35+02:00 (12 years ago)
Author:
smasson
Message:

iom_close return 0 as id, see ticket #217

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/IOM/iom.F90

    r911 r1131  
    212212      !! ** Purpose : close an input file, or all files opened by iom 
    213213      !!-------------------------------------------------------------------- 
    214       INTEGER, INTENT(in), OPTIONAL ::   kiomid   ! iom identifier of the file to be closed 
    215       !                                           ! No argument : all the files opened by iom are closed 
     214      INTEGER, INTENT(inout), OPTIONAL ::   kiomid   ! iom identifier of the file to be closed 
     215      !                                              ! return 0 when file is properly closed 
     216      !                                              ! No argument: all files opened by iom are closed 
    216217 
    217218      INTEGER ::   jf         ! dummy loop indices 
     
    239240                  CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 
    240241               END SELECT 
    241                iom_file(jf)%nfid       = 0   ! free the id  
     242               iom_file(jf)%nfid       = 0          ! free the id  
     243               IF( PRESENT(kiomid) )   kiomid = 0   ! return 0 as id to specify that the file was closed 
    242244               IF(lwp) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 
    243245            ELSEIF( PRESENT(kiomid) ) THEN 
Note: See TracChangeset for help on using the changeset viewer.