Changeset 13289


Ignore:
Timestamp:
2020-07-10T12:13:39+02:00 (4 weeks ago)
Author:
smasson
Message:

trunk: dynspg_ts: must call lnc_lnk before ln_bdy staff

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DYN/dynspg_ts.F90

    r13286 r13289  
    520520         END_2D 
    521521         ! 
     522         CALL lbc_lnk_multi( 'dynspg_ts', ssha_e, 'T', 1._wp,  zhU, 'U', -1._wp,  zhV, 'V', -1._wp ) 
     523         ! 
    522524         ! Duplicate sea level across open boundaries (this is only cosmetic if linssh=T) 
    523525         IF( ln_bdy )   CALL bdy_ssh( ssha_e ) 
     
    525527         IF( .NOT.Agrif_Root() )   CALL agrif_ssh_ts( jn ) 
    526528#endif 
    527  
    528          CALL lbc_lnk_multi( 'dynspg_ts', ssha_e, 'T', 1._wp,  zhU, 'U', -1._wp,  zhV, 'V', -1._wp ) 
    529529         ! 
    530530         !                             ! Sum over sub-time-steps to compute advective velocities 
     
    657657            hvr_e(2:jpim1,2:jpjm1) = ssvmask(2:jpim1,2:jpjm1) / ( hv_e(2:jpim1,2:jpjm1) + 1._wp - ssvmask(2:jpim1,2:jpjm1) ) 
    658658         ENDIF 
    659          !                                                 ! open boundaries 
    660          IF( ln_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e ) 
    661 #if defined key_agrif                                                            
    662          IF( .NOT.Agrif_Root() )  CALL agrif_dyn_ts( jn )  ! Agrif 
    663 #endif 
    664659         ! 
    665660         IF( .NOT.ln_linssh ) THEN   !* Update ocean depth (variable volume case only) 
     
    670665            CALL lbc_lnk_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp  ) 
    671666         ENDIF 
    672          ! 
     667         !                                                 ! open boundaries 
     668         IF( ln_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e ) 
     669#if defined key_agrif                                                            
     670         IF( .NOT.Agrif_Root() )  CALL agrif_dyn_ts( jn )  ! Agrif 
     671#endif 
    673672         !                                             !* Swap 
    674673         !                                             !  ---- 
Note: See TracChangeset for help on using the changeset viewer.