Changeset 2839 for branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2011-09-15T08:41:58+02:00 (13 years ago)

Author:

cbricaud

Message:

modified routine for netcdf output

File:

• branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90 (modified) (5 diffs)

branches/2011/dev_r2802_MERCATOR9_floats/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -19 +19 @@
    !!--------------------------------------------------------------------
    USE dom_oce         ! ocean space and time domain
+   USE flo_oce         ! floats module declarations
    USE lbclnk          ! lateal boundary condition / mpp exchanges
    USE iom_def         ! iom variables definitions
@@ -48 +49 @@
    PRIVATE iom_rp0d, iom_rp1d, iom_rp2d, iom_rp3d
    PRIVATE iom_g0d, iom_g1d, iom_g2d, iom_g3d, iom_get_123d
-   PRIVATE iom_p2d, iom_p3d
+   PRIVATE iom_p1d, iom_p2d, iom_p3d
 #if defined key_iomput
    PRIVATE set_grid
@@ -63 +64 @@
    END INTERFACE
   INTERFACE iom_put
-     MODULE PROCEDURE iom_p0d, iom_p2d, iom_p3d
+     MODULE PROCEDURE iom_p0d, iom_p1d, iom_p2d, iom_p3d
   END INTERFACE
 #if defined key_iomput
@@ -115 +116 @@
       CALL event__set_vert_axis( "depthv", gdept_0 )
       CALL event__set_vert_axis( "depthw", gdepw_0 )
+#if defined key_floats
+      CALL event__set_vert_axis( "nfloat", REAL(nfloat,wp)  )
+#endif
       
       ! automatic definitions of some of the xml attributs
@@ -961 +965 @@
 #endif
    END SUBROUTINE iom_p0d
+
+   SUBROUTINE iom_p1d( cdname, pfield1d )
+      CHARACTER(LEN=*)          , INTENT(in) ::   cdname
+      REAL(wp),     DIMENSION(:), INTENT(in) ::   pfield1d
+      INTEGER :: jpn
+#if defined key_iomput
+      CALL event__write_field3D( cdname, RESHAPE( (/pfield1d/), (/1,1,jpn/) ) )
+#else
+      IF( .FALSE. )   WRITE(numout,*) cdname, pfield1d   ! useless test to avoid compilation warnings
+#endif
+   END SUBROUTINE iom_p1d
 
    SUBROUTINE iom_p2d( cdname, pfield2d )