Changeset 1482 for trunk/NEMO/OPA_SRC/DYN/wzvmod.F90

Timestamp:

2009-07-03T17:28:06+02:00 (15 years ago)

Author:

smasson

Message:

distribution of iom_put + cleaning of LIM2 outputs, see ticket:437

File:

• trunk/NEMO/OPA_SRC/DYN/wzvmod.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/wzvmod.F90

@@ -25 +25 @@
    USE obc_par         ! open boundary cond. parameter
    USE obc_oce
+   USE iom
 
    IMPLICIT NONE
@@ -165 +166 @@
               &                       - fse3t_b(:,:,jk) ) * tmask(:,:,jk) / z2dt
       END DO
+      !
+      CALL iom_put( "woce", wn   )                     ! vert. current
+      CALL iom_put( "ssh" , sshn )                     ! sea surface height
 
       !                                           !------------------------------!