Changeset 6387 for trunk/NEMOGCM/NEMO/OPA_SRC

Timestamp:

2016-03-14T16:18:13+01:00 (8 years ago)

Author:

cetlod

Message:

trunk: bugfix related to the wrong name of vertical scale factor, see ticket #1699

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -145 +145 @@
       CALL iom_put("e3v_0", e3t_0(:,:,:) )
       !
-      CALL iom_put( "e3t" , fse3t_n(:,:,:) )
-      CALL iom_put( "e3u" , fse3u_n(:,:,:) )
-      CALL iom_put( "e3v" , fse3v_n(:,:,:) )
-      CALL iom_put( "e3w" , fse3w_n(:,:,:) )
+      CALL iom_put( "e3t" , e3t_n(:,:,:) )
+      CALL iom_put( "e3u" , e3u_n(:,:,:) )
+      CALL iom_put( "e3v" , e3v_n(:,:,:) )
+      CALL iom_put( "e3w" , e3w_n(:,:,:) )
       IF( iom_use("e3tdef") )   &
-         CALL iom_put( "e3tdef"  , ( ( fse3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 )
+         CALL iom_put( "e3tdef"  , ( ( e3t_n(:,:,:) - e3t_0(:,:,:) ) / e3t_0(:,:,:) * 100 * tmask(:,:,:) ) ** 2 )
 
       CALL iom_put( "ssh" , sshn )                 ! sea surface height