Changeset 1434 for branches/dev_004_VVL/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2009-05-11T15:44:36+02:00 (15 years ago)

Author:

rblod

Message:

dev_004_VVL:sync: synchro with trunk (r1420), see ticket #412

File:

• branches/dev_004_VVL/NEMO/OPA_SRC/IOM/iom.F90 (modified) (8 diffs)

branches/dev_004_VVL/NEMO/OPA_SRC/IOM/iom.F90

@@ -26 +26 @@
    USE iom_rstdimg     ! restarts access direct format "dimg" style...
 
-#if defined key_ioserver
+#if defined key_iomput
    USE mod_event_client
 # endif
@@ -38 +38 @@
    PRIVATE iom_g0d, iom_g1d, iom_g2d, iom_g3d, iom_get_123d
    PRIVATE iom_p2d, iom_p3d
-#if defined key_ioserver
+#if defined key_iomput
    PRIVATE iom_init_chkcpp
    PRIVATE set_grid
@@ -52 +52 @@
      MODULE PROCEDURE iom_p2d, iom_p3d
   END INTERFACE
-#if defined key_ioserver
+#if defined key_iomput
    INTERFACE iom_setkt
       MODULE PROCEDURE event__set_timestep
@@ -74 +74 @@
       !!----------------------------------------------------------------------
       REAL(wp), INTENT(in) ::  pjulian   !: julian day at nit000 = 0
-#if defined key_ioserver
+#if defined key_iomput
       !!----------------------------------------------------------------------
       ! read the xml file
@@ -307 +307 @@
          i_s = 1
          i_e = jpmax_files
-#if defined key_ioserver
+#if defined key_iomput
          CALL event__stop_ioserver
 #endif
@@ -896 +896 @@
       CHARACTER(LEN=*)            , INTENT(in) ::   cdname
       REAL(wp), DIMENSION(jpi,jpj), INTENT(in) ::   pfield2d
-#if defined key_ioserver
+#if defined key_iomput
       CALL event__write_field2D( cdname, pfield2d(nldi:nlei, nldj:nlej) )
 #endif
@@ -904 +904 @@
       CHARACTER(LEN=*)                , INTENT(in) ::   cdname
       REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) ::   pfield3d
-#if defined key_ioserver
+#if defined key_iomput
       CALL event__write_field3D( cdname, pfield3d(nldi:nlei, nldj:nlej, :) )
 #endif
@@ -911 +911 @@
 
 
-#if defined key_ioserver
+#if defined key_iomput
 
    SUBROUTINE set_grid( cdname, plon, plat )