Changeset 6351 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

Timestamp:

2016-02-24T19:50:11+01:00 (8 years ago)

Author:

cetlod

Message:

trunk: move the output of scale factor before time swapping and output some variables needs for offline, see ticket #1682

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90

@@ -653 +653 @@
          ht_n(:,:) = ht_n(:,:) + e3t_n(:,:,jk) * tmask(:,:,jk)
       END DO
-
-      ! Write outputs
-      ! =============
-      CALL iom_put(     "e3t",   e3t_n(:,:,:) )
-      CALL iom_put(     "e3u",   e3u_n(:,:,:) )
-      CALL iom_put(     "e3v",   e3v_n(:,:,:) )
-      CALL iom_put(     "e3w",   e3w_n(:,:,:) )
-      CALL iom_put( "tpt_dep", gde3w_n(:,:,:) )
-      IF( iom_use("e3tdef") )   &
-         CALL iom_put( "e3tdef", ( ( e3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100. * tmask(:,:,:) ) ** 2 )
 
       ! write restart file