Changeset 3864 for branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

Timestamp:

2013-04-09T15:45:17+02:00 (11 years ago)

Author:

cetlod

Message:

2013/dev_r3411_CNRS4_IOCRS : minor improvments

File:

• branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90 (modified) (2 diffs)

branches/2013/dev_r3411_CNRS4_IOCRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsdomwri.F90

@@ -21 +21 @@
    USE lib_mpp         ! MPP library
 !   USE wrk_nemo        ! Memory allocation
-   USE iom_def
    USE iom
    USE crs         ! coarse grid domain
@@ -296 +295 @@
       SELECT CASE ( MOD(nn_msh_crs, 3) )
       CASE ( 1 )                
-         CALL crs_iom_close( inum0 )
+         CALL iom_close( inum0 )
       CASE ( 2 )
-         CALL crs_iom_close( inum1 )
-         CALL crs_iom_close( inum2 )
+         CALL iom_close( inum1 )
+         CALL iom_close( inum2 )
       CASE ( 0 )
-         CALL crs_iom_close( inum2 )
-         CALL crs_iom_close( inum3 )
-         CALL crs_iom_close( inum4 )
+         CALL iom_close( inum2 )
+         CALL iom_close( inum3 )
+         CALL iom_close( inum4 )
       END SELECT
       !