Changeset 15736

Timestamp:

2022-03-04T10:59:04+01:00 (2 years ago)

Author:

edblockley

Message:

Adding lbc_lnk required for new zshear array

File:

• NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icedyn_rhg_evp.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icedyn_rhg_evp.F90

@@ -792 +792 @@
       END DO
       CALL lbc_lnk_multi( 'icedyn_rhg_evp', pshear_i, 'T', 1., pdivu_i, 'T', 1., pdelta_i, 'T', 1., zten_i, 'T', 1., &
-         &                                  zs1     , 'T', 1., zs2    , 'T', 1., zs12    , 'F', 1. )
+         &                                  zs1     , 'T', 1., zs2    , 'T', 1., zs12    , 'F', 1., zshear, 'T', 1. )
       
       ! --- Store the stress tensor for the next time step --- !