Data Types
interface	degrees2meters

interface	interp_anodal

interface	interp_azonal

interface	interp_pnodal

interface	interp_pzonal

interface	meters2degrees

interface	shutdown_check

Functions/Subroutines
subroutine	initialize_control (NAME)

logical function	dbg_set (vrb)

subroutine	dbg_init (IPT_BASE, outtofile)

subroutine	fatal_error (ER1, ER2, ER3, ER4)

subroutine	warning (ER1, ER2, ER3, ER4)

subroutine	pstop

subroutine	pshutdown

subroutine	shutdown_check_1d (VAR, MSG)

subroutine	shutdown_check_2d (VAR, MSG)

logical function	have_proj (proj_ref)

subroutine	degrees2meters_scl_flt (LON, LAT, proj_ref, X, Y)

subroutine	degrees2meters_vec_flt (LON, LAT, proj_ref, X, Y, nsze)

subroutine	degrees2meters_arr_flt (LON, LAT, proj_ref, X, Y, nsze, msze)

subroutine	degrees2meters_scl_dbl (LON, LAT, proj_ref, X, Y)

subroutine	degrees2meters_vec_dbl (LON, LAT, proj_ref, X, Y, nsze)

subroutine	degrees2meters_arr_dbl (LON, LAT, proj_ref, X, Y, nsze, msze)

subroutine	meters2degrees_scl_flt (X, Y, proj_ref, LON, LAT)

subroutine	meters2degrees_vec_flt (X, Y, proj_ref, LON, LAT, nsze)

subroutine	meters2degrees_arr_flt (X, Y, proj_ref, LON, LAT, nsze, msze)

subroutine	meters2degrees_scl_dbl (X, Y, proj_ref, LON, LAT)

subroutine	meters2degrees_vec_dbl (X, Y, proj_ref, LON, LAT, nsze)

subroutine	meters2degrees_arr_dbl (X, Y, proj_ref, LON, LAT, nsze, msze)

real(spa) function	interp_anodal_2d_flt (xloc, yloc, i, Field)

real(dp) function	interp_anodal_2d_dbl (xloc, yloc, i, Field)

real(spa) function	interp_pnodal_2d_flt (xloc, yloc, i, Field)

real(dp) function	interp_pnodal_2d_dbl (xloc, yloc, i, Field)

real(spa) function	interp_anodal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)

real(dp) function	interp_anodal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)

real(spa) function	interp_pnodal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)

real(dp) function	interp_pnodal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)

real(spa) function	interp_azonal_2d_flt (xloc, yloc, i, Field)

real(dp) function	interp_azonal_2d_dbl (xloc, yloc, i, Field)

real(spa) function	interp_pzonal_2d_flt (xloc, yloc, i, Field)

real(dp) function	interp_pzonal_2d_dbl (xloc, yloc, i, Field)

real(spa) function	interp_azonal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)

real(dp) function	interp_azonal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)

real(spa) function	interp_pzonal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)

real(dp) function	interp_pzonal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)

integer function	find_element_containing (xloc, yloc, GUESS)

integer function	find_element_containing_robust (xloc, yloc)

integer function	find_element_containing_quick (xloc, yloc, Guess)

logical function	isintri (X0, Y0, Xt, Yt)

logical function	isintriangle (i, x0, y0)

logical function	sameside (p1, p2, a, b)

subroutine	grid_neighbor_index (FOUND, IDEX, CNT, ORDER)

subroutine	write_banner (PAR, NP, ID)

subroutine	fopen (IUNIT, INSTR, IOPT)

integer function	open_dat (FNAME, UNIT, PATH)

subroutine	get_val (LNUM, NUMCHAR, TEXT_LINE, VARNAME, VARTYPE, LOGVAL, STRINGVAL, REALVAL, INTVAL, NVAL)

integer function	scan_file (UNIT, VNAME, ISCAL, FSCAL, IVEC, FVEC, CVEC, NSZE, CVAL, LVAL)

subroutine	split_string (instring, delim, outstrings)

subroutine	path_split (STRING, PATH, FILE, EXTENSION)

subroutine	test_split_strings

real(sp) function	limled (a, b, q)

real(sp) function	limled1 (a, b, alpha)

real(sp) function	limled2 (a, b, alpha)

real(dp) function	read_float (ITEM, IERR)

real(sp) function	read_int (ITEM, IERR)

integer function	scan_file2 (FNAME, VNAME, ISCAL, FSCAL, IVEC, FVEC, CVEC, NSZE, CVAL, LVAL)

Variables
integer, parameter	sync_tag =3601

integer, parameter	ext_code =3602

integer, parameter	wait_code =3603

integer	restart_code

integer	nc_code

integer	ncav_code

integer	init_code

integer	nesting_code

integer	initnest_code

integer, parameter	dbg_nbr =9

integer, parameter	dbg_log =0

integer, parameter	dbg_io =1

integer, parameter	dbg_scl =2

integer, parameter	dbg_mpi =3

integer, parameter	dbg_sbr =4

integer, parameter	dbg_sbrio =5

integer, parameter	dbg_vec =6

integer, parameter	dbg_vrb =7

character(len=80)	prg_nm

integer	dbg_lvl

logical	dbg_par =.false.

Function/Subroutine Documentation

subroutine mod_utils::dbg_init	(	integer, intent(in)	IPT_BASE,
		logical, intent(in)	outtofile
	)

Here is the call graph for this function:

Here is the caller graph for this function:

logical function mod_utils::dbg_set ( integer, intent(in) vrb )

subroutine mod_utils::degrees2meters_arr_dbl	(	real(dp), dimension(nsze,msze), intent(in)	LON,
		real(dp), dimension(nsze,msze), intent(in)	LAT,
		character(len=*), intent(in)	proj_ref,
		real(dp), dimension(nsze,msze), intent(out)	X,
		real(dp), dimension(nsze,msze), intent(out)	Y,
		integer, intent(in)	nsze,
		integer, intent(in)	msze
	)

subroutine mod_utils::degrees2meters_arr_flt	(	real(spa), dimension(nsze,msze), intent(in)	LON,
		real(spa), dimension(nsze,msze), intent(in)	LAT,
		character(len=*), intent(in)	proj_ref,
		real(spa), dimension(nsze,msze), intent(out)	X,
		real(spa), dimension(nsze,msze), intent(out)	Y,
		integer, intent(in)	nsze,
		integer, intent(in)	msze
	)

subroutine mod_utils::degrees2meters_scl_dbl	(	real(dp), intent(in)	LON,
		real(dp), intent(in)	LAT,
		character(len=*), intent(in)	proj_ref,
		real(dp), intent(out)	X,
		real(dp), intent(out)	Y
	)

Here is the caller graph for this function:

subroutine mod_utils::degrees2meters_scl_flt	(	real(spa), intent(in)	LON,
		real(spa), intent(in)	LAT,
		character(len=*), intent(in)	proj_ref,
		real(spa), intent(out)	X,
		real(spa), intent(out)	Y
	)

subroutine mod_utils::degrees2meters_vec_dbl	(	real(dp), dimension(nsze), intent(in)	LON,
		real(dp), dimension(nsze), intent(in)	LAT,
		character(len=*), intent(in)	proj_ref,
		real(dp), dimension(nsze), intent(out)	X,
		real(dp), dimension(nsze), intent(out)	Y,
		integer, intent(in)	nsze
	)

Here is the caller graph for this function:

subroutine mod_utils::degrees2meters_vec_flt	(	real(spa), dimension(nsze), intent(in)	LON,
		real(spa), dimension(nsze), intent(in)	LAT,
		character(len=*), intent(in)	proj_ref,
		real(spa), dimension(nsze), intent(out)	X,
		real(spa), dimension(nsze), intent(out)	Y,
		integer, intent(in)	nsze
	)

subroutine mod_utils::fatal_error	(	character(len=*)	ER1,
		character(len=*), optional	ER2,
		character(len=*), optional	ER3,
		character(len=*), optional	ER4
	)

Here is the call graph for this function:

integer function mod_utils::find_element_containing	(	real(sp), intent(in)	xloc,
		real(sp), intent(in)	yloc,
		integer, intent(in), optional	GUESS
	)

Here is the call graph for this function:

Here is the caller graph for this function:

integer function mod_utils::find_element_containing_quick	(	real(sp), intent(in)	xloc,
		real(sp), intent(in)	yloc,
		integer, intent(in)	Guess
	)

Here is the call graph for this function:

Here is the caller graph for this function:

integer function mod_utils::find_element_containing_robust	(	real(sp), intent(in)	xloc,
		real(sp), intent(in)	yloc
	)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_utils::fopen	(	integer, intent(in)	IUNIT,
		character(len=*)	INSTR,
		character(len=3), intent(in)	IOPT
	)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_utils::get_val	(	integer, intent(in)	LNUM,
		integer, intent(in)	NUMCHAR,
		character(len=numchar)	TEXT_LINE,
		character(len=40), intent(out)	VARNAME,
		character(len=7), intent(out)	VARTYPE,
		logical, intent(out)	LOGVAL,
		character(len=80), dimension(150), intent(out)	STRINGVAL,
		real(dp), dimension(150), intent(inout)	REALVAL,
		integer, dimension(150), intent(inout)	INTVAL,
		integer, intent(out)	NVAL
	)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_utils::grid_neighbor_index	(	integer, dimension(:), pointer	FOUND,
		integer, dimension(:,:), pointer	IDEX,
		integer, dimension(:), pointer	CNT,
		integer, dimension(:), pointer	ORDER
	)

Here is the call graph for this function:

Here is the caller graph for this function:

logical function mod_utils::have_proj ( character(len=*), intent(in) proj_ref )

Here is the caller graph for this function:

subroutine mod_utils::initialize_control ( character(len=*), intent(in) NAME )

Here is the caller graph for this function:

real(dp) function mod_utils::interp_anodal_2d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		integer, intent(in)	i,
		real(dp), dimension(:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(spa) function mod_utils::interp_anodal_2d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		integer, intent(in)	i,
		real(spa), dimension(:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(dp) function mod_utils::interp_anodal_3d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		real(dp), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(dp), dimension(:,:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(spa) function mod_utils::interp_anodal_3d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		real(spa), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(spa), dimension(:,:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(dp) function mod_utils::interp_azonal_2d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		integer, intent(in)	i,
		real(dp), dimension(:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(spa) function mod_utils::interp_azonal_2d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		integer, intent(in)	i,
		real(spa), dimension(:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(dp) function mod_utils::interp_azonal_3d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		real(dp), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(dp), dimension(:,:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(spa) function mod_utils::interp_azonal_3d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		real(spa), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(spa), dimension(:,:), intent(in), allocatable, target	Field
	)

Here is the call graph for this function:

real(dp) function mod_utils::interp_pnodal_2d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		integer, intent(in)	i,
		real(dp), dimension(:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(spa) function mod_utils::interp_pnodal_2d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		integer, intent(in)	i,
		real(spa), dimension(:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(dp) function mod_utils::interp_pnodal_3d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		real(dp), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(dp), dimension(:,:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(spa) function mod_utils::interp_pnodal_3d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		real(spa), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(spa), dimension(:,:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(dp) function mod_utils::interp_pzonal_2d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		integer, intent(in)	i,
		real(dp), dimension(:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(spa) function mod_utils::interp_pzonal_2d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		integer, intent(in)	i,
		real(spa), dimension(:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(dp) function mod_utils::interp_pzonal_3d_dbl	(	real(dp), intent(in)	xloc,
		real(dp), intent(in)	yloc,
		real(dp), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(dp), dimension(:,:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(spa) function mod_utils::interp_pzonal_3d_flt	(	real(spa), intent(in)	xloc,
		real(spa), intent(in)	yloc,
		real(spa), intent(in)	sigloc,
		integer, intent(in)	lvls,
		integer, intent(in)	i,
		real(spa), dimension(:,:), intent(in), pointer	Field
	)

Here is the call graph for this function:

Here is the caller graph for this function:

logical function mod_utils::isintri	(	real(sp), intent(in)	X0,
		real(sp), intent(in)	Y0,
		real(sp), dimension(3), intent(in)	Xt,
		real(sp), dimension(3), intent(in)	Yt
	)

Here is the caller graph for this function:

logical function mod_utils::isintriangle	(	integer, intent(in)	i,
		real(sp), intent(in)	x0,
		real(sp), intent(in)	y0
	)

Here is the call graph for this function:

Here is the caller graph for this function:

real(sp) function mod_utils::limled	(	real(sp)	a,
		real(sp)	b,
		real(sp)	q
	)

real(sp) function mod_utils::limled1	(	real(sp)	a,
		real(sp)	b,
		real(sp)	alpha
	)

real(sp) function mod_utils::limled2	(	real(sp)	a,
		real(sp)	b,
		real(sp)	alpha
	)

Here is the caller graph for this function:

subroutine mod_utils::meters2degrees_arr_dbl	(	real(dp), dimension(nsze,msze), intent(in)	X,
		real(dp), dimension(nsze,msze), intent(in)	Y,
		character(len=*), intent(in)	proj_ref,
		real(dp), dimension(nsze,msze), intent(out)	LON,
		real(dp), dimension(nsze,msze), intent(out)	LAT,
		integer, intent(in)	nsze,
		integer, intent(in)	msze
	)

subroutine mod_utils::meters2degrees_arr_flt	(	real(spa), dimension(nsze,msze), intent(in)	X,
		real(spa), dimension(nsze,msze), intent(in)	Y,
		character(len=*), intent(in)	proj_ref,
		real(spa), dimension(nsze,msze), intent(out)	LON,
		real(spa), dimension(nsze,msze), intent(out)	LAT,
		integer, intent(in)	nsze,
		integer, intent(in)	msze
	)

subroutine mod_utils::meters2degrees_scl_dbl	(	real(dp), intent(in)	X,
		real(dp), intent(in)	Y,
		character(len=*), intent(in)	proj_ref,
		real(dp), intent(out)	LON,
		real(dp), intent(out)	LAT
	)

Here is the caller graph for this function:

subroutine mod_utils::meters2degrees_scl_flt	(	real(spa), intent(in)	X,
		real(spa), intent(in)	Y,
		character(len=*), intent(in)	proj_ref,
		real(spa), intent(out)	LON,
		real(spa), intent(out)	LAT
	)

subroutine mod_utils::meters2degrees_vec_dbl	(	real(dp), dimension(nsze), intent(in)	X,
		real(dp), dimension(nsze), intent(in)	Y,
		character(len=*), intent(in)	proj_ref,
		real(dp), dimension(nsze), intent(out)	LON,
		real(dp), dimension(nsze), intent(out)	LAT,
		integer, intent(in)	nsze
	)

Here is the caller graph for this function:

subroutine mod_utils::meters2degrees_vec_flt	(	real(spa), dimension(nsze), intent(in)	X,
		real(spa), dimension(nsze), intent(in)	Y,
		character(len=*), intent(in)	proj_ref,
		real(spa), dimension(nsze), intent(out)	LON,
		real(spa), dimension(nsze), intent(out)	LAT,
		integer, intent(in)	nsze
	)

integer function mod_utils::open_dat	(	character(len=*)	FNAME,
		integer	UNIT,
		character(len=*), optional	PATH
	)

Here is the call graph for this function:

subroutine mod_utils::path_split	(	character(len=*), intent(in)	STRING,
		character(len=*), intent(out)	PATH,
		character(len=*), intent(out)	FILE,
		character(len=*), intent(out)	EXTENSION
	)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_utils::pshutdown ( )

Here is the caller graph for this function:

subroutine mod_utils::pstop ( )

Here is the caller graph for this function:

real(dp) function mod_utils::read_float	(	character(len=*), intent(in)	ITEM,
		integer, intent(out)	IERR
	)

Here is the call graph for this function:

real(sp) function mod_utils::read_int	(	character(len=*), intent(in)	ITEM,
		integer, intent(out)	IERR
	)

Here is the call graph for this function:

logical function mod_utils::sameside	(	real(sp), dimension(2), intent(in)	p1,
		real(sp), dimension(2), intent(in)	p2,
		real(sp), dimension(2), intent(in)	a,
		real(sp), dimension(2), intent(in)	b
	)

integer function mod_utils::scan_file	(	integer, intent(in)	UNIT,
		character(len=*)	VNAME,
		integer, intent(inout), optional	ISCAL,
		real(sp), intent(inout), optional	FSCAL,
		integer, dimension(*), intent(inout), optional	IVEC,
		real(sp), dimension(*), intent(inout), optional	FVEC,
		character(len=80), dimension(*), optional	CVEC,
		integer, intent(inout), optional	NSZE,
		character(len=80), optional	CVAL,
		logical, intent(inout), optional	LVAL
	)

Here is the call graph for this function:

Here is the caller graph for this function:

integer function mod_utils::scan_file2	(	character(len=*)	FNAME,
		character(len=*)	VNAME,
		integer, intent(inout), optional	ISCAL,
		real(sp), intent(inout), optional	FSCAL,
		integer, dimension(*), intent(inout), optional	IVEC,
		real(sp), dimension(*), intent(inout), optional	FVEC,
		character(len=80), dimension(*), optional	CVEC,
		integer, intent(inout), optional	NSZE,
		character(len=80), optional	CVAL,
		logical, intent(inout), optional	LVAL
	)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_utils::shutdown_check_1d	(	real(sp), dimension(:), intent(in)	VAR,
		character(len=*), optional	MSG
	)

Here is the call graph for this function:

subroutine mod_utils::shutdown_check_2d	(	real(sp), dimension(:,:), intent(in)	VAR,
		character(len=*), optional	MSG
	)

Here is the call graph for this function:

subroutine mod_utils::split_string	(	character(len=*), intent(in)	instring,
		character, intent(in)	delim,
		character(len=*), dimension(:), intent(out), allocatable	outstrings
	)