Changeset 6539

Timestamp:

2016-05-16T13:29:48+02:00 (8 years ago)

Author:

frrh

Message:

Add critical lbc_lnk call for tsb array on all timesteps.

File:

• branches/UKMO/dev_r5518_restart_fix/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_restart_fix/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -33 +33 @@
    USE step_oce         ! time stepping definition modules
    USE iom
+   USE lbclnk
 
    IMPLICIT NONE
@@ -73 +74 @@
       !!----------------------------------------------------------------------
       INTEGER ::   jk       ! dummy loop indice
+      INTEGER ::   tind     ! tracer loop index
       INTEGER ::   indic    ! error indicator if < 0
       INTEGER ::   kcall    ! optional integer argument (dom_vvl_sf_nxt)
@@ -105 +107 @@
                          CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries
       ENDIF
+
+      ! We must ensure that tsb halos are up to date on EVERY timestep.
+      DO tind = 1, jpts
+         CALL lbc_lnk( tsb(:,:,:,tind), 'T', 1. )
+      END DO
+
                          CALL sbc    ( kstp )         ! Sea Boundary Condition (including sea-ice)
                                                       ! clem: moved here for bdy ice purpose