Commit ba241e87 authored by kb's avatar kb
Browse files

if openbdy is false - set bdy2d and bdy3d to false

parent 23f0ce18
!$Id: m2d.F90,v 1.22 2007-02-22 16:38:19 kbk Exp $
!$Id: m2d.F90,v 1.23 2008-02-07 08:27:43 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -22,7 +22,7 @@
use time, only: julianday,secondsofday
use parameters, only: avmmol
use domain, only: imin,imax,jmin,jmax,az,au,av,H,HU,HV,min_depth
use domain, only: z0_method,z0_const,z0
use domain, only: openbdy,z0_method,z0_const,z0
use halo_zones, only : update_2d_halo,wait_halo
use halo_zones, only : U_TAG,V_TAG,H_TAG
use variables_2d
......@@ -126,6 +126,7 @@
LEVEL2 'sealevel_check<0 --> NaN values will result in warnings'
end if
if (openbdy .eq. .false.) bdy2d=.false.
LEVEL2 'Open boundary=',bdy2d
if (bdy2d) then
if (hotstart .and. bdyramp_2d .gt. 0) then
......
!$Id: m3d.F90,v 1.39 2007-06-07 10:25:19 kbk Exp $
!$Id: m3d.F90,v 1.40 2008-02-07 08:27:44 kb Exp $
#include "cppdefs.h"
!-----------------------------------------------------------------------
!BOP
......@@ -26,7 +26,7 @@
! !USES:
use exceptions
use parameters, only: avmmol
use domain, only: maxdepth,vert_cord,az
use domain, only: openbdy,maxdepth,vert_cord,az
use m2d, only: Am
use variables_2d, only: D,z,UEx,VEx
#ifndef NO_BAROCLINIC
......@@ -270,6 +270,7 @@
end if
#endif
if (openbdy .eq. .false.) bdy3d=.false.
if (bdy3d) call init_bdy_3d()
#ifdef DEBUG
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment