Changeset 13123 for NEMO

Timestamp:

2020-06-17T16:24:21+02:00 (4 years ago)

Author:

smasson

Message:

Extra_Halo: deactivate longitude and latitude check in AGRIF, see #2366

File:

• NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/NST/agrif_user.F90

@@ -284 +284 @@
          END IF  
          !    
-         IF(lwp) WRITE(numout,*) ' '
-         IF(lwp) WRITE(numout,*) 'AGRIF: Check longitude and latitude near bdys. Level: ', Agrif_Level()
+!!$         IF(lwp) WRITE(numout,*) ' '
+!!$         IF(lwp) WRITE(numout,*) 'AGRIF: Check longitude and latitude near bdys. Level: ', Agrif_Level()
+!!$         !
+!!$         ! check glamt in sponge area:
+!!$         kindic_agr = 0
+!!$         CALL Agrif_Bc_variable(glamt_id,calledweight=1.,procname=interpglamt)
+!!$         CALL mpp_sum( 'agrif_user', kindic_agr )
+!!$         IF( kindic_agr /= 0 ) THEN
+!!$            CALL ctl_stop('==> Child glamt is NOT correct near boundaries.')1
+!!$         ELSE
+!!$            IF(lwp) WRITE(numout,*) '==> Child glamt is ok near boundaries.'
+!!$            IF(lwp) WRITE(numout,*) ' '
+!!$         END IF  
+!!$         !
+!!$         ! check gphit in sponge area:
+!!$         kindic_agr = 0
+!!$         CALL Agrif_Bc_variable(gphit_id,calledweight=1.,procname=interpgphit)
+!!$         CALL mpp_sum( 'agrif_user', kindic_agr )
+!!$         IF( kindic_agr /= 0 ) THEN
+!!$            CALL ctl_stop('==> Child gphit is NOT correct near boundaries.')
+!!$         ELSE
+!!$            IF(lwp) WRITE(numout,*) '==> Child gphit is ok near boundaries.'
+!!$            IF(lwp) WRITE(numout,*) ' '
+!!$         END IF  
          !
-         ! check glamt in sponge area:
-         kindic_agr = 0
-         CALL Agrif_Bc_variable(glamt_id,calledweight=1.,procname=interpglamt)
-         CALL mpp_sum( 'agrif_user', kindic_agr )
-         IF( kindic_agr /= 0 ) THEN
-            CALL ctl_stop('==> Child glamt is NOT correct near boundaries.')
-         ELSE
-            IF(lwp) WRITE(numout,*) '==> Child glamt is ok near boundaries.'
-            IF(lwp) WRITE(numout,*) ' '
-         END IF  
-         !
-         ! check gphit in sponge area:
-         kindic_agr = 0
-         CALL Agrif_Bc_variable(gphit_id,calledweight=1.,procname=interpgphit)
-         CALL mpp_sum( 'agrif_user', kindic_agr )
-         IF( kindic_agr /= 0 ) THEN
-            CALL ctl_stop('==> Child gphit is NOT correct near boundaries.')
-         ELSE
-            IF(lwp) WRITE(numout,*) '==> Child gphit is ok near boundaries.'
-            IF(lwp) WRITE(numout,*) ' '
-         END IF  
       ENDIF