Changeset 10323 for NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/OCE/DIA/diawri.F90

Timestamp:

2018-11-16T16:13:30+01:00 (5 years ago)

Author:

davestorkey

Message:

UKMO/dev_r9950_GO6_mixing: Update to be relative to rev 10321 of NEMO4_beta_mirror branch.

File:

• NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/OCE/DIA/diawri.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/OCE/DIA/diawri.F90

@@ -81 +81 @@
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
    !! $Id$
-   !! Software governed by the CeCILL licence     (./LICENSE)
+   !! Software governed by the CeCILL license (see ./LICENSE)
    !!----------------------------------------------------------------------
 CONTAINS
@@ -125 +125 @@
       ! Output of initial vertical scale factor
       CALL iom_put("e3t_0", e3t_0(:,:,:) )
-      CALL iom_put("e3u_0", e3t_0(:,:,:) )
-      CALL iom_put("e3v_0", e3t_0(:,:,:) )
+      CALL iom_put("e3u_0", e3u_0(:,:,:) )
+      CALL iom_put("e3v_0", e3v_0(:,:,:) )
       !
       CALL iom_put( "e3t" , e3t_n(:,:,:) )