Changeset 14952 for utils/tools/DOMAINcfg/src/agrif_connect.F90

Timestamp:

2021-06-04T17:42:50+02:00 (3 years ago)

Author:

jchanut

Message:

#2638, closed domains AGRIF new convention + various add ons

File:

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

utils/tools/DOMAINcfg/src/agrif_connect.F90

@@ -23 +23 @@
       CALL agrif_connection()
       !
-      CALL Agrif_Bc_variable(bottom_level_id, procname = connect_bottom_level)
+!      CALL Agrif_Bc_variable(bottom_level_id, procname = connect_bottom_level)
       ! 
-      CALL Agrif_Bc_variable(e3t_copy_id, procname = connect_e3t_copy)
+!      CALL Agrif_Bc_variable(e3t_copy_id, procname = connect_e3t_copy)
 
       ALLOCATE(e3t_interp(jpi,jpj,jpk))
@@ -174 +174 @@
 
       ALLOCATE(ztabramp(jpi,jpj))
-      ispongearea = 1 + npt_connect * Agrif_irhox()
-      istart = npt_copy * Agrif_irhox()
+      ispongearea = 1 + npt_connect * Agrif_iRhox()
+      istart = npt_copy * Agrif_iRhox()
       z1_spongearea = 1._wp / REAL( ispongearea, wp )
       
@@ -218 +218 @@
       ENDIF
 
+      ispongearea = 1 + npt_connect * Agrif_iRhoy()
+      istart = npt_copy * Agrif_iRhoy()
+      z1_spongearea = 1._wp / REAL( ispongearea, wp )
+
       ! --- South --- !
       IF(( (nbondj == -1) .OR. (nbondj == 2) ).AND.(lk_south)) THEN