Commit 6025fe89 authored by kbk's avatar kbk
Browse files

maxdepth from domain namelist - should be calculated later

parent cbd85c2a
!$Id: domain.F90,v 1.14 2003-09-02 14:12:14 kbk Exp $ !$Id: domain.F90,v 1.15 2004-01-05 13:24:27 kbk Exp $
#include "cppdefs.h" #include "cppdefs.h"
!----------------------------------------------------------------------- !-----------------------------------------------------------------------
!BOP !BOP
...@@ -17,6 +17,7 @@ ...@@ -17,6 +17,7 @@
! !PUBLIC DATA MEMBERS: ! !PUBLIC DATA MEMBERS:
integer :: format=NETCDF integer :: format=NETCDF
integer :: grid_type=1,vert_cord=1 integer :: grid_type=1,vert_cord=1
REALTYPE :: maxdepth=600.
REALTYPE, allocatable, dimension(:) :: ga REALTYPE, allocatable, dimension(:) :: ga
REALTYPE :: ddu=-_ONE_,ddl=-_ONE_,d_gamma=20. REALTYPE :: ddu=-_ONE_,ddl=-_ONE_,d_gamma=20.
logical :: gamma_surf=.true. logical :: gamma_surf=.true.
...@@ -47,7 +48,10 @@ ...@@ -47,7 +48,10 @@
! Original author(s): Karsten Bolding & Hans Burchard ! Original author(s): Karsten Bolding & Hans Burchard
! !
! $Log: domain.F90,v $ ! $Log: domain.F90,v $
! Revision 1.14 2003-09-02 14:12:14 kbk ! Revision 1.15 2004-01-05 13:24:27 kbk
! maxdepth from domain namelist - should be calculated later
!
! Revision 1.14 2003/09/02 14:12:14 kbk
! au and av also in HALO-zones ! au and av also in HALO-zones
! !
! Revision 1.13 2003/08/28 10:36:30 kbk ! Revision 1.13 2003/08/28 10:36:30 kbk
...@@ -202,7 +206,7 @@ ...@@ -202,7 +206,7 @@
character(len=PATH_MAX) :: mask_adjust_file='mask.adjust' character(len=PATH_MAX) :: mask_adjust_file='mask.adjust'
integer :: il=-1,ih=-1,jl=-1,jh=-1 integer :: il=-1,ih=-1,jl=-1,jh=-1
namelist /domain/ & namelist /domain/ &
grid_type,vert_cord,ddu,ddl, & grid_type,vert_cord,maxdepth,ddu,ddl, &
d_gamma,gamma_surf, & d_gamma,gamma_surf, &
bathymetry,openbdy,bdyinfofile,latitude, & bathymetry,openbdy,bdyinfofile,latitude, &
crit_depth,min_depth,kdum,il,ih,jl,jh crit_depth,min_depth,kdum,il,ih,jl,jh
......
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