Changeset 556 for trunk/NEMO/OPA_SRC/IOM/iom_nf90.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_nf90.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/IOM/iom_nf90.F90

@@ -20 +20 @@
    USE dom_oce         ! ocean space and time domain
    USE lbclnk          ! lateal boundary condition / mpp exchanges
+   USE iom_def         ! iom variables definitions
    USE netcdf          ! NetCDF library
 
@@ -315 +316 @@
       INTEGER                         , INTENT(in)           ::   kvid     ! variable id
       INTEGER                         , INTENT(in), OPTIONAL ::   ktype    ! variable type (default R8)
-      REAL(wp)                        , INTENT(in), OPTIONAL ::   pv_r0d   ! read field
-      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)                        , INTENT(in), OPTIONAL ::   pv_r0d   ! written Od 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
       !
       INTEGER               :: idims                ! number of dimension