Changeset 13163 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_user.F90

Timestamp:

2020-06-26T15:21:13+02:00 (4 years ago)

Author:

rblod

Message:

#2129 : suppress ln_bry_south

File:

• utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_user.F90 (modified) (9 diffs)

utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_user.F90

@@ -226 +226 @@
         CALL Agrif_Set_DistantCommonBorderX(.TRUE.)
       endif
-      if (.not.ln_bry_south) THEN
+      if (.not.lk_south) THEN
         CALL Agrif_Set_NearCommonBorderY(.TRUE.)
       endif
@@ -850 +850 @@
         ! May need to extend at south boundary
           IF (j1<1) THEN
-            IF (.NOT.agrif_child(ln_bry_south)) THEN
+            IF (.NOT.agrif_child(lk_south)) THEN
               IF ((nbondj == -1).OR.(nbondj == 2)) THEN
                 DO jj=1,j2
@@ -888 +888 @@
       IF( before) THEN
           IF (j1<1) THEN
-            IF (.NOT.agrif_child(ln_bry_south)) THEN
+            IF (.NOT.agrif_child(lk_south)) THEN
               IF ((nbondj == -1).OR.(nbondj == 2)) THEN
                 DO jj=1,j2
@@ -966 +966 @@
       IF( before) THEN
           IF (j1<1) THEN
-            IF (.NOT.agrif_child(ln_bry_south)) THEN
+            IF (.NOT.agrif_child(lk_south)) THEN
               IF ((nbondj == -1).OR.(nbondj == 2)) THEN
                 DO jj=1,j2
@@ -1004 +1004 @@
       IF( before) THEN
           IF (j1<1) THEN
-            IF (.NOT.agrif_child(ln_bry_south)) THEN
+            IF (.NOT.agrif_child(lk_south)) THEN
               IF ((nbondj == -1).OR.(nbondj == 2)) THEN
                 DO jj=1,j2
@@ -1076 +1076 @@
 
       NAMELIST/namagrif/ nn_cln_update,ln_spc_dyn,rn_sponge_tra,rn_sponge_dyn,ln_chk_bathy,npt_connect,   &
-      &  npt_copy, ln_bry_south
+      &  npt_copy
 
       REWIND( numnam_ref )              ! Namelist namagrif in reference namelist : nesting parameters
@@ -1094 +1094 @@
          WRITE(numout,*) '      npt_copy             = ', npt_copy
          WRITE(numout,*) '      npt_connect          = ', npt_connect
-         WRITE(numout,*) '      ln_bry_south  = ', ln_bry_south
       ENDIF
 
@@ -1102 +1101 @@
       nbghostcells_y_s = nbghostcells
       nbghostcells_y_n = nbghostcells
+
+      lk_west  = .NOT. ( Agrif_Ix() == 1 )
+      lk_east  = .NOT. ( Agrif_Ix() + nbcellsx/AGRIF_Irhox() == Agrif_Parent(jpiglo) -1 )
+      lk_south = .NOT. ( Agrif_Iy() == 1 )
+      lk_north = .NOT. ( Agrif_Iy() + nbcellsy/AGRIF_Irhoy() == Agrif_Parent(jpjglo) -1 )
 
       IF (.not.agrif_root()) THEN
@@ -1107 +1111 @@
           nbghostcells_x = 0
         ENDIF
-        IF (.NOT.ln_bry_south) THEN
+        IF (.NOT.lk_south) THEN
           nbghostcells_y_s = 0
         ENDIF