Changeset 13276

Timestamp:

2020-07-09T09:47:18+02:00 (4 years ago)

Author:

mathiot

Message:

ticket #2494 and #2375: wrong point type inn lbc_lnk_icb for umask_e and vmask_e (see ticket #2492)

File:

• NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB/icbini.F90 (modified) (1 diff)

NEMO/branches/2020/tickets_2494_2375/src/OCE/ICB/icbini.F90

@@ -246 +246 @@
       vmask_e(:,:) = 0._wp   ;   vmask_e(1:jpi,1:jpj) = vmask(:,:,1)
       CALL lbc_lnk_icb( 'icbini', tmask_e, 'T', +1._wp, 1, 1 )
-      CALL lbc_lnk_icb( 'icbini', umask_e, 'T', +1._wp, 1, 1 )
-      CALL lbc_lnk_icb( 'icbini', vmask_e, 'T', +1._wp, 1, 1 )
+      CALL lbc_lnk_icb( 'icbini', umask_e, 'U', +1._wp, 1, 1 )
+      CALL lbc_lnk_icb( 'icbini', vmask_e, 'V', +1._wp, 1, 1 )
 
       ! definition of extended lat/lon array needed by icb_bilin_h