Ignore:
Timestamp:
2019-07-09T16:51:06+02:00 (15 months ago)
Author:
clem
Message:

remove the imposed closed boundaries when using the nesting tools

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools/NESTING/src/agrif_readwrite.f90

    r11206 r11231  
    566566     ENDIF 
    567567 
    568      bottom_level(1:nx,1   ) = 0 
    569      bottom_level(1:nx,  ny) = 0 
    570      bottom_level(1   ,1:ny) = 0 
    571      bottom_level(  nx,1:ny) = 0 
    572  
    573      top_level(1:nx,1   ) = 0 
    574      top_level(1:nx,  ny) = 0 
    575      top_level(1   ,1:ny) = 0 
    576      top_level(  nx,1:ny) = 0 
    577  
    578      zbathy(1:nx,1   ) = 0. 
    579      zbathy(1:nx,  ny) = 0. 
    580      zbathy(1   ,1:ny) = 0. 
    581      zbathy(  nx,1:ny) = 0.      
     568     !IF( .NOT.ln_agrif_domain ) THEN 
     569     !   bottom_level(1:nx,1   ) = 0 
     570     !   bottom_level(1:nx,  ny) = 0 
     571     !   bottom_level(1   ,1:ny) = 0 
     572     !   bottom_level(  nx,1:ny) = 0 
     573 
     574     !   top_level(1:nx,1   ) = 0 
     575     !   top_level(1:nx,  ny) = 0 
     576     !   top_level(1   ,1:ny) = 0 
     577     !   top_level(  nx,1:ny) = 0 
     578 
     579     !   zbathy(1:nx,1   ) = 0. 
     580     !   zbathy(1:nx,  ny) = 0. 
     581     !   zbathy(1   ,1:ny) = 0. 
     582     !   zbathy(  nx,1:ny) = 0.      
     583     !ENDIF 
    582584      
    583585     ! ------------------- 
Note: See TracChangeset for help on using the changeset viewer.