Changeset 15348

Timestamp:

2021-10-08T09:58:20+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, set bathymetry minimum on child grids prior boundary update from parent.

File:

• utils/tools/DOMAINcfg/src/domzgr.F90 (modified) (3 diffs)

utils/tools/DOMAINcfg/src/domzgr.F90

@@ -745 +745 @@
       ENDIF
       !
-#if defined key_agrif
-      IF ( .NOT.Agrif_Root() ) CALL agrif_bathymetry_connect
-#endif
-      !
       IF ( .not. ln_sco ) THEN                                !==  set a minimum depth  ==!
          IF( rn_hmin < 0._wp ) THEN    ;   ik = - INT( rn_hmin )                                      ! from a nb of level
@@ -759 +755 @@
          IF(lwp) write(numout,*) 'Minimum ocean depth: ', zhmin, ' minimum number of ocean levels : ', ik
       ENDIF
+#if defined key_agrif
+      IF ( .NOT.Agrif_Root() ) CALL agrif_bathymetry_connect
+#endif
       !
    END SUBROUTINE zgr_bat
@@ -1591 +1590 @@
          END DO
          DO jj = mj0(74), mj1(74)
-            DO ji = mi0(100), mi1(100)
+            DO ji = mi0(10), mi1(10)
                WRITE(numout,*)
-               WRITE(numout,*) ' domzgr: vertical coordinates : point (100,74,k)   bathy = ', bathy(ji,jj), hbatt(ji,jj)
+               WRITE(numout,*) ' domzgr: vertical coordinates : point (10,74,k)   bathy = ', bathy(ji,jj), hbatt(ji,jj)
                WRITE(numout,*) ' ~~~~~~  --------------------'
                WRITE(numout,"(9x,' level  gdept_0   gdepw_0   e3t_0    e3w_0')")