Changeset 15348


Ignore:
Timestamp:
2021-10-08T09:58:20+02:00 (4 months ago)
Author:
jchanut
Message:

#2638, set bathymetry minimum on child grids prior boundary update from parent.

File:
1 edited

Legend:

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

    r15279 r15348  
    745745      ENDIF 
    746746      ! 
    747 #if defined key_agrif 
    748       IF ( .NOT.Agrif_Root() ) CALL agrif_bathymetry_connect 
    749 #endif 
    750       ! 
    751747      IF ( .not. ln_sco ) THEN                                !==  set a minimum depth  ==! 
    752748         IF( rn_hmin < 0._wp ) THEN    ;   ik = - INT( rn_hmin )                                      ! from a nb of level 
     
    759755         IF(lwp) write(numout,*) 'Minimum ocean depth: ', zhmin, ' minimum number of ocean levels : ', ik 
    760756      ENDIF 
     757#if defined key_agrif 
     758      IF ( .NOT.Agrif_Root() ) CALL agrif_bathymetry_connect 
     759#endif 
    761760      ! 
    762761   END SUBROUTINE zgr_bat 
     
    15911590         END DO 
    15921591         DO jj = mj0(74), mj1(74) 
    1593             DO ji = mi0(100), mi1(100) 
     1592            DO ji = mi0(10), mi1(10) 
    15941593               WRITE(numout,*) 
    1595                WRITE(numout,*) ' domzgr: vertical coordinates : point (100,74,k)   bathy = ', bathy(ji,jj), hbatt(ji,jj) 
     1594               WRITE(numout,*) ' domzgr: vertical coordinates : point (10,74,k)   bathy = ', bathy(ji,jj), hbatt(ji,jj) 
    15961595               WRITE(numout,*) ' ~~~~~~  --------------------' 
    15971596               WRITE(numout,"(9x,' level  gdept_0   gdepw_0   e3t_0    e3w_0')") 
Note: See TracChangeset for help on using the changeset viewer.