Changeset 556 for trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90

Timestamp:

2006-10-27T17:10:08+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_068: SM+RB: iom bugfix for Agrif

File:

• trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/IOM/iom_rstdimg.F90

@@ -18 +18 @@
    USE dom_oce         ! ocean space and time domain
    USE lbclnk          ! lateal boundary condition / mpp exchanges
+   USE iom_def         ! iom variables definitions
 
    IMPLICIT NONE
@@ -297 +298 @@
       INTEGER                   , INTENT(in) ::   kiomid   ! Identifier of the file 
       CHARACTER(len=*)          , INTENT(in) ::   cdvar    ! time axis name
-      REAL(wp)                  , INTENT(in) ::   pv_r0d   ! read field
+      REAL(wp)                  , INTENT(in) ::   pv_r0d   ! written 0d field
       !
       CHARACTER(LEN=100) ::   clinfo     ! info character
@@ -410 +411 @@
       INTEGER                         , INTENT(in)           ::   kiomid   ! Identifier of the file 
       CHARACTER(len=*)                , INTENT(in)           ::   cdvar    ! time axis name
-      REAL(wp), DIMENSION(        jpk), INTENT(in), OPTIONAL ::   pv_r1d   ! read field
-      REAL(wp), DIMENSION(jpi,jpj    ), INTENT(in), OPTIONAL ::   pv_r2d   ! read field
-      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in), OPTIONAL ::   pv_r3d   ! read field
+      REAL(wp), DIMENSION(        jpk), INTENT(in), OPTIONAL ::   pv_r1d   ! written 1d field
+      REAL(wp), DIMENSION(jpi,jpj    ), INTENT(in), OPTIONAL ::   pv_r2d   ! written 2d field
+      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in), OPTIONAL ::   pv_r3d   ! written 3d field
       !
       CHARACTER(LEN=100)    ::   clinfo               ! info character