Changeset 14118 for NEMO/trunk/src/OCE/ICB/icbutl.F90

Timestamp:

2020-12-07T11:31:48+01:00 (4 years ago)

Author:

techene

Message:

#2385 bug fixes for qco

File:

• NEMO/trunk/src/OCE/ICB/icbutl.F90 (modified) (2 diffs)

NEMO/trunk/src/OCE/ICB/icbutl.F90

@@ -57 +57 @@
    PUBLIC   icb_utl_heat          ! routine called in icbdia module
 
+   !! * Substitutions
+#  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
    !! NEMO/OCE 4.0 , NEMO Consortium (2018)
@@ -127 +129 @@
             CALL lbc_lnk_icb( 'icbutl', ztmp, 'V', -1._wp, 1, 1 )
             voce_e(:,:,jk) = ztmp(:,:)
+            !
+            e3t_e(1:jpi,1:jpj,jk) = e3t(:,:,jk,Kmm)
          END DO
-         toce_e(1:jpi,1:jpj,1:jpk) = ts(:,:,:,1,Kmm)
-         e3t_e (1:jpi,1:jpj,1:jpk) = e3t(:,:,:,Kmm)
+         toce_e(1:jpi,1:jpj,:) = ts(:,:,:,1,Kmm)
       END IF
       !