Changeset 14218 for NEMO/trunk/src/NST/agrif_user.F90

Timestamp:

2020-12-18T17:44:52+01:00 (4 years ago)

Author:

jchanut

Message:

#2222, Fixes uninitialized arrays with vertical remap

File:

• NEMO/trunk/src/NST/agrif_user.F90 (modified) (2 diffs)

NEMO/trunk/src/NST/agrif_user.F90

@@ -272 +272 @@
                   
             CALL Agrif_check_bat( kindic_agr )           
-
-            CALL mpp_sum( 'agrif_InitValues_Domain', kindic_agr )
-            IF( kindic_agr /= 0 ) THEN
-               CALL ctl_stop('==> Child Bathymetry is NOT correct near boundaries.')
-            ELSE
-               IF(lwp) WRITE(numout,*) '==> Child Bathymetry is ok near boundaries.'
-               IF(lwp) WRITE(numout,*) ' '
-            ENDIF  
          ENDIF
+         !
+         CALL mpp_sum( 'agrif_InitValues_Domain', kindic_agr )
+         IF( kindic_agr /= 0 ) THEN
+            CALL ctl_stop('==> Child Bathymetry is NOT correct near boundaries.')
+         ELSE
+            IF(lwp) WRITE(numout,*) '==> Child Bathymetry is ok near boundaries.'
+            IF(lwp) WRITE(numout,*) ' '
+         ENDIF  
       ENDIF
       !
@@ -532 +532 @@
       CALL Agrif_Set_bc(   ub2b_cor_id, (/-imaxrho*nn_shift_bar,ind1/) )
       CALL Agrif_Set_bc(   vb2b_cor_id, (/-imaxrho*nn_shift_bar,ind1/) )
-      IF( ln_zdftke.OR.ln_zdfgls ) CALL Agrif_Set_bc( avm_id, (/0,ind1/) )
+      IF( ln_zdftke.OR.ln_zdfgls ) CALL Agrif_Set_bc( avm_id, (/0,ind1-1/) )
 !!$      CALL Agrif_Set_bc(glamt_id, (/0,ind1-1/) )  
 !!$      CALL Agrif_Set_bc(gphit_id, (/0,ind1-1/) )