Changeset 11868 for NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_interp.F90

Timestamp:

2019-11-06T16:43:51+01:00 (4 years ago)

Author:

jchanut

Message:

#2222, 1) Correct sponge mainly for using AGRIF in 2DV domains, 2) Add check of bathymetry consistency

File:

• NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_interp.F90 (modified) (3 diffs)

NEMO/branches/2019/dev_r11233_AGRIF-05_jchanut_vert_coord_interp/src/NST/agrif_oce_interp.F90

@@ -719 +719 @@
                tsa(ji,jj,:,:) = 0._wp
                N_in = mbkt_parent(ji,jj)
-               IF ( tmask(ji,jj,1) == 0._wp) N_in = 0
                zhtot = 0._wp
                DO jk=1,N_in !k2 = jpk of parent grid
@@ -834 +833 @@
                N_in = mbku_parent(ji,jj)
                zhtot = 0._wp
-               IF ( umask(ji,jj,1) == 0._wp) N_in = 0
                DO jk=1,N_in
                   IF (jk==N_in) THEN
@@ -930 +928 @@
                va(ji,jj,:) = 0._wp
                N_in = mbkv_parent(ji,jj)
-               IF ( vmask(ji,jj,1) == 0._wp) N_in = 0
                zhtot = 0._wp
                DO jk=1,N_in