Changeset 1457 for trunk/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2009-05-23T10:16:38+02:00 (15 years ago)

Author:

cetlod

Message:

distribution of iom_put in TOP routines, see ticket:437

File:

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

trunk/NEMO/OPA_SRC/IOM/iom.F90

@@ -33 +33 @@
    PUBLIC   !   must be public to be able to access iom_def through iom
    
+#if defined key_iomput
+   LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .TRUE.       !: iom_put flag
+#else
+   LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .FALSE.       !: iom_put flag
+#endif
    PUBLIC iom_init, iom_open, iom_close, iom_setkt, iom_varid, iom_get, iom_gettime, iom_rstput, iom_put
 
@@ -892 +897 @@
 
    !!----------------------------------------------------------------------
-   !!                   INTERFACE iom_rstput
+   !!                   INTERFACE iom_put
    !!----------------------------------------------------------------------
    SUBROUTINE iom_p2d( cdname, pfield2d )