Changeset 11243

Timestamp:

2019-07-10T14:19:49+02:00 (5 years ago)

Author:

jchanut

Message:

#2222, correct bug in update with key_vertical

File:

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

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

@@ -336 +336 @@
                N_in = 0
                DO jk=k1,k2 !k2 = jpk of child grid
-                  IF (tabres(ji,jj,jk,n2) == 0  ) EXIT
+                  IF (tabres(ji,jj,jk,n2) < 900  ) EXIT
                   N_in = N_in + 1
                   tabin(jk,:) = tabres(ji,jj,jk,n1:n2-1)/tabres(ji,jj,jk,n2)
@@ -343 +343 @@
                N_out = 0
                DO jk=1,jpk ! jpk of parent grid
-                  IF (tmask(ji,jj,jk) < -900) EXIT ! TODO: Will not work with ISF
+                  IF (tmask(ji,jj,jk) == 0 ) EXIT ! TODO: Will not work with ISF
                   N_out = N_out + 1
                   h_out(N_out) = e3t_n(ji,jj,jk)