Changeset 13472 for NEMO/trunk/src/OCE/CRS/crsfld.F90

Timestamp:

2020-09-16T15:05:19+02:00 (4 years ago)

Author:

smasson

Message:

trunk: commit changes from r4.0-HEAD from 13284 to 13449, see #2523

File:

• NEMO/trunk/src/OCE/CRS/crsfld.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/CRS/crsfld.F90

@@ -146 +146 @@
       CALL iom_put( "voces" , zs_crs )   ! vS
 
-      IF( iom_use( "eken") ) THEN     !      kinetic energy
+      IF( iom_use( "ke") ) THEN     !      kinetic energy
          z3d(:,:,jk) = 0._wp 
          DO_3D( 0, 0, 0, 0, 1, jpkm1 )
@@ -159 +159 @@
          !
          CALL crs_dom_ope( z3d, 'VOL', 'T', tmask, zt_crs, p_e12=e1e2t, p_e3=ze3t, psgn=1.0_wp )
-         CALL iom_put( "eken", zt_crs )
+         CALL iom_put( "ke", zt_crs )
       ENDIF
       !  Horizontal divergence ( following OCE/DYN/divhor.F90 )