Changeset 13133


Ignore:
Timestamp:
2020-06-19T11:48:02+02:00 (7 weeks ago)
Author:
jchanut
Message:

Remove useless restriction on sponge width, #2129

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/NST/agrif_user.F90

    r13076 r13133  
    226226      CHARACTER(len=15) :: cl_check1, cl_check2, cl_check3, cl_check4  
    227227      REAL(wp), DIMENSION(jpi,jpj) ::   zk   ! workspace 
    228       INTEGER :: ji, jj, jk, iminspon 
     228      INTEGER :: ji, jj, jk 
    229229      !!---------------------------------------------------------------------- 
    230230     
     
    243243      lk_north = .true. 
    244244 
    245       ! Check sponge length: 
    246       iminspon = MIN(FLOOR(REAL(jpiglo-4)/REAL(2*Agrif_irhox())), FLOOR(REAL(jpjglo-4)/REAL(2*Agrif_irhox())) ) 
    247       IF (lk_mpp) iminspon = MIN(iminspon,FLOOR(REAL(jpi-2)/REAL(Agrif_irhox())), FLOOR(REAL(jpj-2)/REAL(Agrif_irhox())) ) 
    248       IF (nn_sponge_len > iminspon)  CALL ctl_stop('agrif sponge length is too large')  
    249        
    250245      ! Build consistent parent bathymetry and number of levels 
    251246      ! on the child grid  
Note: See TracChangeset for help on using the changeset viewer.