Changeset 15265 for NEMO/trunk/src/NST/agrif_top_update.F90

Timestamp:

2021-09-16T13:13:13+02:00 (3 years ago)

Author:

jchanut

Message:

Improve ghost cell initialization with AGRIF + minor changes such as missing _wp, tests namelists updates, etc... can be assigned to #2638

File:

• NEMO/trunk/src/NST/agrif_top_update.F90 (modified) (1 diff)

NEMO/trunk/src/NST/agrif_top_update.F90

@@ -120 +120 @@
                   N_out = 0
                   DO jk=1,jpk ! jpk of parent grid
-                     IF (tmask(ji,jj,jk) == 0 ) EXIT ! TODO: Will not work with ISF
+                     IF (tmask(ji,jj,jk) == 0._wp ) EXIT ! TODO: Will not work with ISF
                      N_out = N_out + 1
                      h_out(N_out) = e3t(ji,jj,jk,Kmm_a)