Commit 83deb1fd authored by Karsten Bolding's avatar Karsten Bolding

only select vertical codinates if runtype .ge. 2

parent f0e9791b
......@@ -113,7 +113,7 @@
!
! !INTERFACE:
subroutine init_domain(input_dir)
subroutine init_domain(input_dir,runtype)
IMPLICIT NONE
!
! !DESCRIPTION:
......@@ -141,6 +141,7 @@
!
! !INPUT/OUTPUT PARAMETERS:
character(len=*) :: input_dir
integer, intent(in) :: runtype
!
! !REVISION HISTORY:
!
......@@ -213,23 +214,27 @@
call read_topo_file(bathy_format,bathymetry)
select case (vert_cord)
case(_SIGMA_COORDS_)
LEVEL2 'Using sigma coordinates'
case(_Z_COORDS_)
LEVEL2 'Using z-level coordinates'
case(_GENERAL_COORDS_)
LEVEL2 'Using general vertical coordinates'
case (_HYBRID_COORDS_) ! hybrid vertical coordinates
LEVEL2 'using hybrid vertical coordinates'
STDERR 'domain: hybrid_coordinates not coded yet'
stop
case (_ADAPTIVE_COORDS_) ! adaptive vertical coordinates
LEVEL2 'using adaptive vertical coordinates'
case default
call getm_error("init_domain()", &
"A non valid vertical coordinate system has been chosen");
end select
if ( runtype .ge. 2 ) then
select case (vert_cord)
case(_SIGMA_COORDS_)
LEVEL2 'Using sigma coordinates'
case(_Z_COORDS_)
LEVEL2 'Using z-level coordinates'
case(_GENERAL_COORDS_)
LEVEL2 'Using general vertical coordinates'
case (_HYBRID_COORDS_) ! hybrid vertical coordinates
LEVEL2 'using hybrid vertical coordinates'
STDERR 'domain: hybrid_coordinates not coded yet'
stop
case (_ADAPTIVE_COORDS_) ! adaptive vertical coordinates
LEVEL2 'using adaptive vertical coordinates'
case default
call getm_error("init_domain()", &
"A non valid vertical coordinate system has been chosen");
end select
allocate(ga(0:kmax),stat=rc)
if (rc /= 0) stop 'init_domain: Error allocating memory (ga)'
end if
! Calculation masks
! Do we want to set a minimum depth for certain regions
......
......@@ -14,9 +14,11 @@
use domain, only: imin,imax,jmin,jmax,kmax
use field_manager
IMPLICIT NONE
!
private
!
! !PUBLIC DATA FUNCTIONS:
public init_output_processing, do_output_processing
public init_output_processing, register_processed_variables, do_output_processing
!
! !PUBLIC DATA MEMBERS:
REALTYPE, dimension(:,:), allocatable, target :: u2d, v2d
......
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