Changeset 15367 for NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ICB/icbutl.F90

Timestamp:

2021-10-14T10:00:58+02:00 (3 years ago)

Author:

davestorkey

Message:

r4.0-HEAD : fix for wind forcing of icebergs #2728

File:

• NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ICB/icbutl.F90 (modified) (1 diff)

NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ICB/icbutl.F90

@@ -76 +76 @@
       ss_e(1:jpi,1:jpj) = sss_m(:,:)
       fr_e(1:jpi,1:jpj) = fr_i (:,:)
-      ua_e(1:jpi,1:jpj) = utau (:,:) * umask(:,:,1) ! maybe mask useless because mask applied in sbcblk
-      va_e(1:jpi,1:jpj) = vtau (:,:) * vmask(:,:,1) ! maybe mask useless because mask applied in sbcblk
+      ua_e(1:jpi,1:jpj) = utau_icb (:,:) * umask(:,:,1) ! maybe mask useless because mask applied in sbcblk
+      va_e(1:jpi,1:jpj) = vtau_icb (:,:) * vmask(:,:,1) ! maybe mask useless because mask applied in sbcblk
       !
       CALL lbc_lnk_icb( 'icbutl', uo_e, 'U', -1._wp, 1, 1 )