Changeset 13289 for NEMO/trunk/src/OCE/DYN/dynspg_ts.F90

Timestamp:

2020-07-10T12:13:39+02:00 (3 years ago)

Author:

smasson

Message:

trunk: dynspg_ts: must call lnc_lnk before ln_bdy staff

File:

• NEMO/trunk/src/OCE/DYN/dynspg_ts.F90 (modified) (4 diffs)

NEMO/trunk/src/OCE/DYN/dynspg_ts.F90

@@ -520 +520 @@
          END_2D
          !
+         CALL lbc_lnk_multi( 'dynspg_ts', ssha_e, 'T', 1._wp,  zhU, 'U', -1._wp,  zhV, 'V', -1._wp )
+         !
          ! Duplicate sea level across open boundaries (this is only cosmetic if linssh=T)
          IF( ln_bdy )   CALL bdy_ssh( ssha_e )
@@ -525 +527 @@
          IF( .NOT.Agrif_Root() )   CALL agrif_ssh_ts( jn )
 #endif
-
-         CALL lbc_lnk_multi( 'dynspg_ts', ssha_e, 'T', 1._wp,  zhU, 'U', -1._wp,  zhV, 'V', -1._wp )
          !
          !                             ! Sum over sub-time-steps to compute advective velocities
@@ -657 +657 @@
             hvr_e(2:jpim1,2:jpjm1) = ssvmask(2:jpim1,2:jpjm1) / ( hv_e(2:jpim1,2:jpjm1) + 1._wp - ssvmask(2:jpim1,2:jpjm1) )
          ENDIF
-         !                                                 ! open boundaries
-         IF( ln_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e )
-#if defined key_agrif                                                           
-         IF( .NOT.Agrif_Root() )  CALL agrif_dyn_ts( jn )  ! Agrif
-#endif
          !
          IF( .NOT.ln_linssh ) THEN   !* Update ocean depth (variable volume case only)
@@ -670 +665 @@
             CALL lbc_lnk_multi( 'dynspg_ts', ua_e , 'U', -1._wp, va_e , 'V', -1._wp  )
          ENDIF
-         !
+         !                                                 ! open boundaries
+         IF( ln_bdy )   CALL bdy_dyn2d( jn, ua_e, va_e, un_e, vn_e, hur_e, hvr_e, ssha_e )
+#if defined key_agrif                                                           
+         IF( .NOT.Agrif_Root() )  CALL agrif_dyn_ts( jn )  ! Agrif
+#endif
          !                                             !* Swap
          !                                             !  ----