Changeset 6714


Ignore:
Timestamp:
2016-06-15T15:28:43+02:00 (4 years ago)
Author:
frrh
Message:

Merge in UKMO/dev_r5518_restart_fix revision 6539.

See… it's already been forgotten!

File:
1 edited

Legend:

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

    r6498 r6714  
    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) 
     
    109111                         CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries 
    110112      ENDIF 
     113 
     114      ! We must ensure that tsb halos are up to date on EVERY timestep. 
     115      DO tind = 1, jpts 
     116         CALL lbc_lnk( tsb(:,:,:,tind), 'T', 1. ) 
     117      END DO 
     118 
    111119                         CALL sbc    ( kstp )         ! Sea Boundary Condition (including sea-ice) 
    112120                                                      ! clem: moved here for bdy ice purpose 
Note: See TracChangeset for help on using the changeset viewer.