Changeset 6539


Ignore:
Timestamp:
2016-05-16T13:29:48+02:00 (6 years ago)
Author:
frrh
Message:

Add critical lbc_lnk call for tsb array on all timesteps.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_restart_fix/NEMOGCM/NEMO/OPA_SRC/step.F90

    r6538 r6539  
    3333   USE step_oce         ! time stepping definition modules 
    3434   USE iom 
     35   USE lbclnk 
    3536 
    3637   IMPLICIT NONE 
     
    7374      !!---------------------------------------------------------------------- 
    7475      INTEGER ::   jk       ! dummy loop indice 
     76      INTEGER ::   tind     ! tracer loop index 
    7577      INTEGER ::   indic    ! error indicator if < 0 
    7678      INTEGER ::   kcall    ! optional integer argument (dom_vvl_sf_nxt) 
     
    105107                         CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries 
    106108      ENDIF 
     109 
     110      ! We must ensure that tsb halos are up to date on EVERY timestep. 
     111      DO tind = 1, jpts 
     112         CALL lbc_lnk( tsb(:,:,:,tind), 'T', 1. ) 
     113      END DO 
     114 
    107115                         CALL sbc    ( kstp )         ! Sea Boundary Condition (including sea-ice) 
    108116                                                      ! clem: moved here for bdy ice purpose 
Note: See TracChangeset for help on using the changeset viewer.