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

Timestamp:

2019-10-23T12:08:33+02:00 (5 years ago)

Author:

jchanut

Message:

#2222 1) change sponge definition to add time relaxation in addition to Laplacian diffusion (WRF like): Add new parameters in namelist.
2) Reduce sponge width by 1 child grid point to match coarse grid cells.

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

@@ -684 +684 @@
         ! Interpolate thicknesses
         ! Warning: these are masked, hence extrapolated prior interpolation.
-        DO jk=k1,k2-1
+        DO jk=k1,k2
            DO jj=j1,j2
               DO ji=i1,i2
@@ -731 +731 @@
                N_out = 0
                DO jk=1,jpk ! jpk of child grid
-                  IF (tmask(ji,jj,jk) == 0) EXIT 
+                  IF (tmask(ji,jj,jk) == 0._wp) EXIT 
                   N_out = N_out + 1
                   h_out(jk) = e3t_a(ji,jj,jk)
@@ -945 +945 @@
                   h_out(N_out) = e3v_a(ji,jj,jk)
                END DO
-
                IF (N_in*N_out > 0) THEN
                   call reconstructandremap(tabin(1:N_in),h_in(1:N_in),va(ji,jj,1:N_out),h_out(1:N_out),N_in,N_out,1)