My Project
Data Types | Modules | Functions/Subroutines | Variables
mod_utils.f90 File Reference

Go to the source code of this file.

Data Types

interface  mod_utils::shutdown_check
 
interface  mod_utils::degrees2meters
 
interface  mod_utils::meters2degrees
 
interface  mod_utils::interp_anodal
 
interface  mod_utils::interp_pnodal
 
interface  mod_utils::interp_azonal
 
interface  mod_utils::interp_pzonal
 

Modules

module  mod_utils
 

Functions/Subroutines

subroutine mod_utils::initialize_control (NAME)
 
logical function mod_utils::dbg_set (vrb)
 
subroutine mod_utils::dbg_init (IPT_BASE, outtofile)
 
subroutine mod_utils::fatal_error (ER1, ER2, ER3, ER4)
 
subroutine mod_utils::warning (ER1, ER2, ER3, ER4)
 
subroutine mod_utils::pstop
 
subroutine mod_utils::pshutdown
 
subroutine mod_utils::shutdown_check_1d (VAR, MSG)
 
subroutine mod_utils::shutdown_check_2d (VAR, MSG)
 
logical function mod_utils::have_proj (proj_ref)
 
subroutine mod_utils::degrees2meters_scl_flt (LON, LAT, proj_ref, X, Y)
 
subroutine mod_utils::degrees2meters_vec_flt (LON, LAT, proj_ref, X, Y, nsze)
 
subroutine mod_utils::degrees2meters_arr_flt (LON, LAT, proj_ref, X, Y, nsze, msze)
 
subroutine mod_utils::degrees2meters_scl_dbl (LON, LAT, proj_ref, X, Y)
 
subroutine mod_utils::degrees2meters_vec_dbl (LON, LAT, proj_ref, X, Y, nsze)
 
subroutine mod_utils::degrees2meters_arr_dbl (LON, LAT, proj_ref, X, Y, nsze, msze)
 
subroutine mod_utils::meters2degrees_scl_flt (X, Y, proj_ref, LON, LAT)
 
subroutine mod_utils::meters2degrees_vec_flt (X, Y, proj_ref, LON, LAT, nsze)
 
subroutine mod_utils::meters2degrees_arr_flt (X, Y, proj_ref, LON, LAT, nsze, msze)
 
subroutine mod_utils::meters2degrees_scl_dbl (X, Y, proj_ref, LON, LAT)
 
subroutine mod_utils::meters2degrees_vec_dbl (X, Y, proj_ref, LON, LAT, nsze)
 
subroutine mod_utils::meters2degrees_arr_dbl (X, Y, proj_ref, LON, LAT, nsze, msze)
 
real(spa) function mod_utils::interp_anodal_2d_flt (xloc, yloc, i, Field)
 
real(dp) function mod_utils::interp_anodal_2d_dbl (xloc, yloc, i, Field)
 
real(spa) function mod_utils::interp_pnodal_2d_flt (xloc, yloc, i, Field)
 
real(dp) function mod_utils::interp_pnodal_2d_dbl (xloc, yloc, i, Field)
 
real(spa) function mod_utils::interp_anodal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)
 
real(dp) function mod_utils::interp_anodal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)
 
real(spa) function mod_utils::interp_pnodal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)
 
real(dp) function mod_utils::interp_pnodal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)
 
real(spa) function mod_utils::interp_azonal_2d_flt (xloc, yloc, i, Field)
 
real(dp) function mod_utils::interp_azonal_2d_dbl (xloc, yloc, i, Field)
 
real(spa) function mod_utils::interp_pzonal_2d_flt (xloc, yloc, i, Field)
 
real(dp) function mod_utils::interp_pzonal_2d_dbl (xloc, yloc, i, Field)
 
real(spa) function mod_utils::interp_azonal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)
 
real(dp) function mod_utils::interp_azonal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)
 
real(spa) function mod_utils::interp_pzonal_3d_flt (xloc, yloc, sigloc, lvls, i, Field)
 
real(dp) function mod_utils::interp_pzonal_3d_dbl (xloc, yloc, sigloc, lvls, i, Field)
 
integer function mod_utils::find_element_containing (xloc, yloc, GUESS)
 
integer function mod_utils::find_element_containing_robust (xloc, yloc)
 
integer function mod_utils::find_element_containing_quick (xloc, yloc, Guess)
 
logical function mod_utils::isintri (X0, Y0, Xt, Yt)
 
logical function mod_utils::isintriangle (i, x0, y0)
 
logical function mod_utils::sameside (p1, p2, a, b)
 
subroutine mod_utils::grid_neighbor_index (FOUND, IDEX, CNT, ORDER)
 
subroutine mod_utils::write_banner (PAR, NP, ID)
 
subroutine mod_utils::fopen (IUNIT, INSTR, IOPT)
 
integer function mod_utils::open_dat (FNAME, UNIT, PATH)
 
subroutine mod_utils::get_value (LNUM, NUMCHAR, TEXT_LINE, VARNAME, VARTYPE, LOGVAL, STRINGVAL, REALVAL, INTVAL, NVAL)
 
integer function mod_utils::scan_file (UNIT, VNAME, ISCAL, FSCAL, IVEC, FVEC, CVEC, NSZE, CVAL, LVAL)
 
subroutine mod_utils::split_string (instring, delim, outstrings)
 
subroutine mod_utils::path_split (STRING, PATH, FILE, EXTENSION)
 
subroutine mod_utils::test_split_strings
 
real(sp) function mod_utils::limled (a, b, q)
 
real(sp) function mod_utils::limled1 (a, b, alpha)
 
real(sp) function mod_utils::limled2 (a, b, alpha)
 
real(dp) function mod_utils::read_float (ITEM, IERR)
 
real(sp) function mod_utils::read_int (ITEM, IERR)
 
integer function mod_utils::scan_file2 (FNAME, VNAME, ISCAL, FSCAL, IVEC, FVEC, CVEC, NSZE, CVAL, LVAL)
 
integer function mod_utils::scan_file3 (FNAME, VNAME, ISCAL, FSCAL, IVEC, FVEC, CVEC, NSZE, CVAL, LVAL)
 

Variables

integer, parameter mod_utils::sync_tag =3601
 
integer, parameter mod_utils::ext_code =3602
 
integer, parameter mod_utils::wait_code =3603
 
integer mod_utils::restart_code
 
integer mod_utils::nc_code
 
integer mod_utils::ncav_code
 
integer mod_utils::init_code
 
integer mod_utils::nesting_code
 
integer mod_utils::initnest_code
 
integer, parameter mod_utils::dbg_nbr =9
 
integer, parameter mod_utils::dbg_log =0
 
integer, parameter mod_utils::dbg_io =1
 
integer, parameter mod_utils::dbg_scl =2
 
integer, parameter mod_utils::dbg_mpi =3
 
integer, parameter mod_utils::dbg_sbr =4
 
integer, parameter mod_utils::dbg_sbrio =5
 
integer, parameter mod_utils::dbg_vec =6
 
integer, parameter mod_utils::dbg_vrb =7
 
character(len=80) mod_utils::prg_nm
 
integer mod_utils::dbg_lvl
 
logical mod_utils::dbg_par =.false.