Changeset 14721


Ignore:
Timestamp:
2021-04-16T16:11:55+02:00 (4 weeks ago)
Author:
jchanut
Message:

#2638, (partially) correct bathymetry transitioning in corners + add lk_north=.false. case

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/DOMAINcfg/src/agrif_connect.F90

    r14687 r14721  
    3333      CALL Agrif_Bc_variable(e3t_connect_id, procname = connect_e3t_connect) 
    3434      Agrif_UseSpecialValue = .FALSE. 
    35       !     
     35      ! 
    3636   END SUBROUTINE agrif_boundary_connections 
    3737 
     
    118118 
    119119        ! Connected bathymetry 
    120                bathy_local(ji,jj)=(1.-ztabramp(ji,jj))*bathy_local(ji,jj)+ztabramp(ji,jj)*bathy_interp(ji,jj) 
     120               IF( e3t_interp(ji,jj,1) == -10 ) THEN 
     121                  bathy_local(ji,jj)=(1.-ztabramp(ji,jj))*bathy_local(ji,jj)+ztabramp(ji,jj)*bathy_interp(ji,jj) 
     122               ENDIF 
    121123            END DO 
    122124         END DO 
     
    236238 
    237239      ! --- North --- ! 
    238       IF( (nbondj == 1) .OR. (nbondj == 2) ) THEN 
     240      IF(( (nbondj == 1) .OR. (nbondj == 2) ).AND.(lk_north)) THEN 
    239241         ind2 = jpjglo - (nn_hls + nbghostcells - 1) - istart 
    240242         ind1 = ind2 -ispongearea 
Note: See TracChangeset for help on using the changeset viewer.