Changeset 1131 for trunk/NEMO

Timestamp:

2008-06-24T17:07:35+02:00 (16 years ago)

Author:

smasson

Message:

iom_close return 0 as id, see ticket #217

File:

• trunk/NEMO/OPA_SRC/IOM/iom.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -212 +212 @@
       !! ** Purpose : close an input file, or all files opened by iom
       !!--------------------------------------------------------------------
-      INTEGER, INTENT(in), OPTIONAL ::   kiomid   ! iom identifier of the file to be closed
-      !                                           ! No argument : all the files opened by iom are closed
+      INTEGER, INTENT(inout), OPTIONAL ::   kiomid   ! iom identifier of the file to be closed
+      !                                              ! return 0 when file is properly closed
+      !                                              ! No argument: all files opened by iom are closed
 
       INTEGER ::   jf         ! dummy loop indices
@@ -239 +240 @@
                   CALL ctl_stop( TRIM(clinfo)//' accepted IO library are only jpioipsl, jpnf90 and jprstdimg' )
                END SELECT
-               iom_file(jf)%nfid       = 0   ! free the id 
+               iom_file(jf)%nfid       = 0          ! free the id 
+               IF( PRESENT(kiomid) )   kiomid = 0   ! return 0 as id to specify that the file was closed
                IF(lwp) WRITE(numout,*) TRIM(clinfo)//' close file: '//TRIM(iom_file(jf)%name)//' ok'
             ELSEIF( PRESENT(kiomid) ) THEN