Changeset 10455 for NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/DYN/dynspg_ts.F90

Timestamp:

2019-01-04T19:34:14+01:00 (5 years ago)

Author:

mathiot

Message:

suggestion for ticket #2200 (bdyvol)

File:

• NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/DYN/dynspg_ts.F90 (modified) (2 diffs)

NEMO/branches/UKMO/dev_r10448_bdyvol/src/OCE/DYN/dynspg_ts.F90

@@ -41 +41 @@
    USE wet_dry         ! wetting/drying flux limter
    USE bdy_oce         ! open boundary
+   USE bdyvol          ! open boundary volume conservation
    USE bdytides        ! open boundary condition data
    USE bdydyn2d        ! open boundary conditions on barotropic variables
@@ -792 +793 @@
          !                                                !* after ssh
          !                                                !  -----------
-         ! One should enforce volume conservation at open boundaries here
-         ! considering fluxes below:
+         !
+         ! Enforce volume conservation at open boundaries:
+         IF( ln_bdy .AND. ln_vol ) CALL bdy_vol2d( kt, jn, ua_e, va_e, zhup2_e, zhvp2_e )
          !
          zwx(:,:) = e2u(:,:) * ua_e(:,:) * zhup2_e(:,:)         ! fluxes at jn+0.5