Bug fixes

CaNS-World · Nov 7, 2024 · 4082727 · 4082727
1 parent c2f0956
commit 4082727
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/src/bound.f90 b/src/bound.f90
@@ -130,14 +130,14 @@ subroutine boundnor(cbc,n,bc,nb,is_bound,dl,dzc,nx,ny,nz)
     if(is_bound(0,3)) then
       call set_bc(cbc(0,3,1),0,3,nh,.true.,bc(0,3,1),dzc(0)   ,nx)
       call set_bc(cbc(0,3,2),0,3,nh,.true.,bc(0,3,2),dzc(0)   ,ny)
-      call set_bc(cbc(0,3,3),0,3,nh,.true.,bc(0,3,3),dzf(0)   ,nz)
+      call set_bc(cbc(0,3,3),0,3,nh,.true.,bc(0,3,3),dzc(0)   ,nz)
     end if
     if(is_bound(1,3)) then
       call set_bc(cbc(1,3,1),1,3,nh,.true.,bc(1,3,1),dzc(n(3)),nx)
       call set_bc(cbc(1,3,2),1,3,nh,.true.,bc(1,3,2),dzc(n(3)),ny)
-      call set_bc(cbc(1,3,3),1,3,nh,.true.,bc(1,3,3),dzf(n(3)),nz)
+      call set_bc(cbc(1,3,3),1,3,nh,.true.,bc(1,3,3),dzc(n(3)),nz)
     end if
-  end subroutine bounduvw
+  end subroutine boundnor
   !
   subroutine boundp(cbc,n,bc,nb,is_bound,dl,dzc,p)
     !

diff --git a/src/main.f90 b/src/main.f90
@@ -32,7 +32,7 @@ program cans
   use, intrinsic :: ieee_arithmetic, only: is_nan => ieee_is_nan
   use mpi
   use decomp_2d
-  use mod_bound          , only: boundp,bounduvw,updt_rhs_b
+  use mod_bound          , only: boundp,bounduvw,boundnor,updt_rhs_b
   use mod_chkdiv         , only: chkdiv
   use mod_chkdt          , only: chkdt
   use mod_common_mpi     , only: myid,ierr

diff --git a/src/param.f90 b/src/param.f90
@@ -141,7 +141,7 @@ subroutine read_input(myid)
     ssource = 0.
     !
     inipsi = 'uni'
-    cbcpsi(:,:) = 'P'; cbcnor(:,:,:) = 'P'; bcpsi(:,:) = 0.; bcnor(:,:) = 0.
+    cbcpsi(:,:) = 'P'; cbcnor(:,:,:) = 'P'; bcpsi(:,:) = 0.; bcnor(:,:,:) = 0.
     sigma = 0.; rho12(:) = 1.; mu12(:) = 0.01
     ka12(:) = 0.01; cp12(:) = 1.; beta12(:) = 1.
     acdi_gam_factor = 1.; acdi_gam_min = 1.e-12; acdi_eps_factor = 0.51