Changeset 1131 for trunk/NEMO/OPA_SRC/IOM/iom.F90
- Timestamp:
- 2008-06-24T17:07:35+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/IOM/iom.F90
r911 r1131 212 212 !! ** Purpose : close an input file, or all files opened by iom 213 213 !!-------------------------------------------------------------------- 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 216 217 217 218 INTEGER :: jf ! dummy loop indices … … 239 240 CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' ) 240 241 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 242 244 IF(lwp) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok' 243 245 ELSEIF( PRESENT(kiomid) ) THEN
Note: See TracChangeset
for help on using the changeset viewer.