Changeset 13133 for NEMO/branches

Timestamp:

2020-06-19T11:48:02+02:00 (4 years ago)

Author:

jchanut

Message:

Remove useless restriction on sponge width, #2129

File:

• NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90

@@ -226 +226 @@
       CHARACTER(len=15) :: cl_check1, cl_check2, cl_check3, cl_check4 
       REAL(wp), DIMENSION(jpi,jpj) ::   zk   ! workspace
-      INTEGER :: ji, jj, jk, iminspon
+      INTEGER :: ji, jj, jk
       !!----------------------------------------------------------------------
     
@@ -243 +243 @@
       lk_north = .true.
 
-      ! Check sponge length:
-      iminspon = MIN(FLOOR(REAL(jpiglo-4)/REAL(2*Agrif_irhox())), FLOOR(REAL(jpjglo-4)/REAL(2*Agrif_irhox())) )
-      IF (lk_mpp) iminspon = MIN(iminspon,FLOOR(REAL(jpi-2)/REAL(Agrif_irhox())), FLOOR(REAL(jpj-2)/REAL(Agrif_irhox())) )
-      IF (nn_sponge_len > iminspon)  CALL ctl_stop('agrif sponge length is too large') 
-      
       ! Build consistent parent bathymetry and number of levels
       ! on the child grid