Changeset 11231

Timestamp:

2019-07-09T16:51:06+02:00 (5 years ago)

Author:

clem

Message:

remove the imposed closed boundaries when using the nesting tools

File:

• utils/tools/NESTING/src/agrif_readwrite.f90 (modified) (1 diff)

utils/tools/NESTING/src/agrif_readwrite.f90

@@ -566 +566 @@
      ENDIF
 
-     bottom_level(1:nx,1   ) = 0
-     bottom_level(1:nx,  ny) = 0
-     bottom_level(1   ,1:ny) = 0
-     bottom_level(  nx,1:ny) = 0
-
-     top_level(1:nx,1   ) = 0
-     top_level(1:nx,  ny) = 0
-     top_level(1   ,1:ny) = 0
-     top_level(  nx,1:ny) = 0
-
-     zbathy(1:nx,1   ) = 0.
-     zbathy(1:nx,  ny) = 0.
-     zbathy(1   ,1:ny) = 0.
-     zbathy(  nx,1:ny) = 0.     
+     !IF( .NOT.ln_agrif_domain ) THEN
+     !   bottom_level(1:nx,1   ) = 0
+     !   bottom_level(1:nx,  ny) = 0
+     !   bottom_level(1   ,1:ny) = 0
+     !   bottom_level(  nx,1:ny) = 0
+
+     !   top_level(1:nx,1   ) = 0
+     !   top_level(1:nx,  ny) = 0
+     !   top_level(1   ,1:ny) = 0
+     !   top_level(  nx,1:ny) = 0
+
+     !   zbathy(1:nx,1   ) = 0.
+     !   zbathy(1:nx,  ny) = 0.
+     !   zbathy(1   ,1:ny) = 0.
+     !   zbathy(  nx,1:ny) = 0.     
+     !ENDIF
      
      ! -------------------