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

Go to the source code of this file.

Data Types

type  control::river
 

Modules

module  lims
 
module  control
 
module  all_vars
 
module  bcs
 

Functions/Subroutines

subroutine all_vars::n2e3d (NVAR, EVAR)
 
subroutine all_vars::n2e2d (NVAR, EVAR)
 
subroutine all_vars::e2n2d (EVAR, NVAR)
 
subroutine all_vars::e2n3d (EVAR, NVAR)
 
subroutine all_vars::alloc_vars (dbg_set)
 

Variables

integer lims::ngl
 
integer lims::mgl
 
integer lims::numqbc_gl
 
integer lims::nobclsf_gl
 
integer lims::ndrft_gl
 
integer lims::n
 
integer lims::m
 
integer lims::numqbc
 
integer lims::nobclsf
 
integer lims::ndrft
 
integer lims::nisbce_1
 
integer lims::nisbce_2
 
integer lims::nisbce_3
 
integer lims::kb
 
integer lims::kbm1
 
integer lims::kbm2
 
integer lims::myid
 
integer lims::msrid
 
integer lims::ioprocid
 
integer, pointer lims::nprocs_total
 
integer, target lims::nprocs
 
integer lims::ne
 
integer lims::ncv
 
integer lims::ncv_i
 
integer lims::nt
 
integer lims::mt
 
integer lims::mx_nbr_elem
 
real(sp) lims::memtot
 
real(sp) lims::memcnt
 
logical control::serial
 
logical control::msr
 
logical control::par
 
logical control::ioproc
 
logical control::in_mpi_io_loop
 
character(len=80) control::prg_name
 
integer control::mpi_fvcom_group
 
character(len=80) control::fvcom_version
 
character(len=80) control::institution
 
character(len=80) control::fvcom_website
 
character(len=80) control::casename
 
character(len=80) control::infofile
 
logical control::blank_namelist
 
character(len=80) control::namelist_name
 
character(len=80) control::case_title
 
character(len=80) control::date_format
 
character(len=80) control::timezone
 
character(len=80) control::start_date
 
character(len=80) control::end_date
 
character(len=80) control::date_reference
 
logical control::use_real_world_time
 
character(len=80) control::startup_type
 
character(len=80) control::startup_file
 
character(len=80) control::startup_ts_type
 
character(len=80) control::startup_uv_type
 
character(len=80) control::startup_turb_type
 
real(sp), dimension(2) control::startup_t_vals
 
real(sp), dimension(2) control::startup_s_vals
 
real(sp) control::startup_u_vals
 
real(sp) control::startup_v_vals
 
real(sp) control::startup_dmax
 
logical control::cmdln_restart
 
character(len=80), parameter control::startup_type_coldstart = 'coldstart'
 
character(len=80), parameter control::startup_type_hotstart = 'hotstart'
 
character(len=80), parameter control::startup_type_crashrestart = 'crashrestart'
 
character(len=80), parameter control::startup_type_forecast = 'forecast'
 
logical control::forecast_mode
 
character(len=80), parameter control::startup_type_default = 'default'
 
character(len=80), parameter control::startup_type_constant = 'constant'
 
character(len=80), parameter control::startup_type_linear = 'linear'
 
character(len=80), parameter control::startup_type_observed = 'observed'
 
character(len=80), parameter control::startup_type_setvalues = 'set values'
 
character(len=80) control::input_dir
 
character(len=80) control::output_dir
 
integer control::ireport
 
logical control::visit_all_vars
 
logical control::wait_for_visit
 
logical control::use_mpi_io_mode
 
real(dp) control::extstep_seconds
 
integer control::isplit
 
real(dp) control::intstep_seconds
 
integer control::iramp
 
real(sp) control::static_ssh_adj
 
real(sp) control::min_depth
 
logical control::rst_on
 
character(len=80) control::rst_first_out
 
character(len=80) control::rst_out_interval
 
integer control::rst_output_stack
 
character(len=80) control::restart_file_name
 
logical control::nc_on
 
character(len=80) control::nc_first_out
 
character(len=80) control::nc_out_interval
 
integer control::nc_output_stack
 
character(len=120) control::nc_subdomain_files
 
logical control::nc_grid_metrics
 
logical control::nc_file_date
 
logical control::nc_velocity
 
logical control::nc_salt_temp
 
logical control::nc_turbulence
 
logical control::nc_vertical_vel
 
logical control::nc_average_vel
 
logical control::nc_vorticity
 
logical control::nc_nh_qp
 
logical control::nc_nh_rhs
 
logical control::nc_ice
 
logical control::nc_wind_vel
 
logical control::nc_wind_stress
 
logical control::nc_wave_para
 
logical control::nc_wave_stress
 
logical control::nc_evap_precip
 
logical control::nc_surface_heat
 
logical control::nc_groundwater
 
logical control::nc_bio
 
logical control::nc_wqm
 
character(len=80) control::nc_file_name
 
logical control::ncav_on
 
character(len=80) control::ncav_first_out
 
character(len=80) control::ncav_out_interval
 
integer control::ncav_output_stack
 
character(len=120) control::ncav_subdomain_files
 
logical control::ncav_grid_metrics
 
logical control::ncav_file_date
 
logical control::ncav_velocity
 
logical control::ncav_salt_temp
 
logical control::ncav_turbulence
 
logical control::ncav_vertical_vel
 
logical control::ncav_average_vel
 
logical control::ncav_vorticity
 
logical control::ncav_nh_qp
 
logical control::ncav_nh_rhs
 
logical control::ncav_ice
 
logical control::ncav_wind_vel
 
logical control::ncav_wind_stress
 
logical control::ncav_wave_para
 
logical control::ncav_wave_stress
 
logical control::ncav_evap_precip
 
logical control::ncav_surface_heat
 
logical control::ncav_groundwater
 
logical control::ncav_bio
 
logical control::ncav_wqm
 
character(len=80) control::ncav_file_name
 
character(len=80) control::horizontal_mixing_type
 
character(len=80) control::horizontal_mixing_file
 
character(len=80) control::horizontal_mixing_kind
 
real(sp) control::horizontal_mixing_coefficient
 
real(sp) control::horizontal_prandtl_number
 
real(sp) control::hprnu
 
character(len=80) control::vertical_mixing_type
 
real(sp) control::vertical_mixing_coefficient
 
real(sp) control::vertical_prandtl_number
 
real(sp) control::umol
 
real(sp) control::vprnu
 
character(len=80) control::bottom_roughness_kind
 
character(len=80) control::bottom_roughness_type
 
character(len=80) control::bottom_roughness_file
 
real(sp) control::bottom_roughness_minimum
 
real(sp) control::bottom_roughness_lengthscale
 
real(sp) control::cbcmin
 
character(len=80), parameter control::br_orig = 'orig'
 
character(len=80), parameter control::br_gotm = 'gotm'
 
logical control::convective_overturning
 
logical control::scalar_positivity_control
 
logical control::barotropic
 
character(len=80) control::sea_water_density_function
 
character(len=80) control::baroclinic_pressure_gradient
 
logical control::temperature_active
 
logical control::salinity_active
 
logical control::backward_advection
 
integer control::backward_step
 
logical control::surface_wave_mixing
 
logical control::wetting_drying_on
 
logical control::recalculate_rho_mean
 
character(len=80) control::interval_rho_mean
 
character(len=80), parameter control::sw_dens1 = 'dens1'
 
character(len=80), parameter control::sw_dens2 = 'dens2'
 
character(len=80), parameter control::sw_dens3 = 'dens3'
 
logical control::adcor_on
 
logical control::equator_beta_plane
 
logical control::noflux_bot_condition
 
logical control::wind_on
 
character(len=80) control::wind_type
 
character(len=80) control::wind_file
 
character(len=80) control::wind_kind
 
real(sp) control::wind_x
 
real(sp) control::wind_y
 
logical control::heating_on
 
character(len=80) control::heating_type
 
character(len=80) control::heating_file
 
character(len=80) control::heating_kind
 
real(sp) control::heating_longwave_perctage
 
real(sp) control::heating_longwave_lengthscale
 
real(sp) control::heating_shortwave_lengthscale
 
real(sp) control::heating_radiation
 
real(sp) control::heating_netflux
 
real(sp) control::rheat
 
real(sp) control::zeta1
 
real(sp) control::zeta2
 
logical control::precipitation_on
 
character(len=80) control::precipitation_file
 
character(len=80) control::precipitation_kind
 
real(sp) control::precipitation_evp
 
real(sp) control::precipitation_prc
 
logical control::airpressure_on
 
character(len=80) control::airpressure_file
 
character(len=80) control::airpressure_kind
 
real(sp) control::airpressure_value
 
logical control::wave_on
 
character(len=80) control::wave_file
 
character(len=80) control::wave_kind
 
real(sp) control::wave_height
 
real(sp) control::wave_length
 
real(sp) control::wave_direction
 
real(sp) control::wave_period
 
real(sp) control::wave_per_bot
 
real(sp) control::wave_ub_bot
 
character(len=80), parameter control::cnstnt = "constant"
 
character(len=80), parameter control::sttc = "static"
 
character(len=80), parameter control::tmdpndnt = "time dependant"
 
character(len=80), parameter control::prdc = "periodic"
 
character(len=80), parameter control::vrbl = "variable"
 
character(len=80), parameter control::speed = "speed"
 
character(len=80), parameter control::stress = "stress"
 
character(len=80), parameter control::uniform = "uniform"
 
character(len=80), parameter control::non_uniform = "non-uniform"
 
character(len=80) control::river_ts_setting
 
character(len=80) control::river_inflow_location
 
character(len=80) control::river_kind
 
character(len=80) control::river_info_file
 
integer control::river_number
 
integer, parameter control::river_char_len =60
 
integer, parameter control::max_layers = 100
 
character(len=80) control::river_name
 
character(len=80) control::river_file
 
integer control::river_grid_location
 
real(sp), dimension(max_layers) control::river_vertical_distribution
 
type(river), dimension(:), allocatable control::rivers
 
logical control::obc_on
 
character(len=80) control::obc_node_list_file
 
logical control::obc_elevation_forcing_on
 
character(len=80) control::obc_elevation_file
 
integer control::obc_ts_type
 
logical control::obc_temp_nudging
 
character(len=80) control::obc_temp_file
 
real(sp) control::obc_temp_nudging_timescale
 
logical control::obc_salt_nudging
 
character(len=80) control::obc_salt_file
 
real(sp) control::obc_salt_nudging_timescale
 
logical control::obc_meanflow
 
character(len=80) control::obc_meanflow_file
 
logical control::obc_longshore_flow_on
 
character(len=80) control::obc_longshore_flow_file
 
integer control::obc_tideout_initial
 
integer control::obc_tideout_interval
 
logical control::obc_depth_control_on
 
character(len=80) control::grid_file
 
character(len=80) control::grid_file_units
 
character(len=200) control::projection_reference
 
character(len=80) control::sigma_levels_file
 
character(len=80) control::depth_file
 
character(len=80) control::coriolis_file
 
character(len=80) control::sponge_file
 
logical control::use_proj
 
logical control::groundwater_on
 
character(len=80) control::groundwater_kind
 
character(len=80) control::groundwater_file
 
real(sp) control::groundwater_flow
 
real(sp) control::groundwater_temp
 
logical control::groundwater_temp_on
 
real(sp) control::groundwater_salt
 
logical control::groundwater_salt_on
 
logical control::lag_particles_on
 
character(len=80) control::lag_start_file
 
character(len=80) control::lag_out_file
 
character(len=80) control::lag_first_out
 
character(len=80) control::lag_restart_file
 
character(len=80) control::lag_out_interval
 
character(len=80) control::lag_scal_choice
 
logical control::data_assimilation
 
character(len=80) control::data_assimilation_file
 
logical control::biological_model
 
character(len=80) control::biological_model_file
 
character(len=80) control::startup_bio_type
 
logical control::sediment_model
 
character(len=80) control::sediment_model_file
 
character(len=80) control::sediment_parameter_type
 
character(len=80) control::sediment_parameter_file
 
character(len=80) control::bedflag_type
 
character(len=80) control::bedflag_file
 
logical control::icing_model
 
character(len=80) control::icing_forcing_file
 
character(len=80) control::icing_forcing_kind
 
real(sp) control::icing_air_temp
 
real(sp) control::icing_wspd
 
logical control::ice_model
 
character(len=80) control::ice_forcing_file
 
character(len=80) control::ice_forcing_kind
 
real(sp) control::ice_sea_level_pressure
 
real(sp) control::ice_air_temp
 
real(sp) control::ice_spec_humidity
 
real(sp) control::ice_cloud_cover
 
real(sp) control::ice_shortwave
 
character(len=80) control::ice_longwave_type
 
logical control::high_latitude_wave
 
integer control::n_sed
 
integer, parameter control::n_sed_max = 10
 
character(len=20), dimension(n_sed_max) control::sed_names
 
real(sp), dimension(:,:), allocatable control::seddis
 
real(sp), dimension(:,:), allocatable control::biodis
 
character(len=80) control::fvcom_run_mode
 
character(len=80), parameter control::fvcom_pure_sim = 'pure sim'
 
character(len=80), parameter control::fvcom_nudge_oi_assim = 'nudge or OI assim'
 
character(len=80), parameter control::fvcom_rrkf_without_ssa = 'RRKF WITHOUT SSH/SST'
 
character(len=80), parameter control::fvcom_rrkf_with_ssa = 'RRKF WITH SSH/SST'
 
character(len=80), parameter control::fvcom_enkf_without_ssa = 'ENKF WITHOUT SSH/SST'
 
character(len=80), parameter control::fvcom_enkf_with_ssa = 'ENKF WITH SSH/SST'
 
character(len=80), parameter control::fvcom_kalman_4 = 'Kalman 4'
 
logical control::probes_on
 
integer control::probes_number
 
character(len=80) control::probes_file
 
logical control::force_archive = .false.
 
logical control::boundschk_on = .false.
 
integer control::chk_interval
 
real(sp) control::veloc_mag_max
 
real(sp) control::zeta_mag_max
 
real(sp) control::temp_max
 
real(sp) control::temp_min
 
real(sp) control::salt_max
 
real(sp) control::salt_min
 = bounds checking More...
 
type(time) control::inttime
 
type(time) control::exttime
 
type(time) control::rktime
 
type(time) control::zerotime
 
type(time) control::endtime
 
type(time) control::starttime
 
type(time) control::runfile_starttime
 
type(time) control::referencedate
 
type(time) control::delt_rho_mean
 
type(time) control::recalc_rho_mean
 
type(time) control::spectime
 
real(sp) control::dte
 
real(sp) control::dti
 
real(sp) control::ramp
 
type(time) control::imdte
 
type(time) control::imdti
 
integer(itime) control::iint
 
integer(itime) control::iext
 
integer(itime) control::istart
 
integer(itime) control::iend
 
integer(itime) control::nsteps
 
integer, parameter control::timeprec = 6
 
integer, parameter control::datestrlen = 20+TIMEPREC
 
real(dp), dimension(4), parameter control::alpha_rk = (/0.2500_DP,1.0_DP/3.0_DP,0.5000_DP,1.0_DP/)
 
real(dp), parameter control::grav = 9.81_SP
 
real(dp), parameter control::pi = 3.141592653589793238_DP
 
real(dp), parameter control::pi2 = 2.0_DP * 3.141592653589793238_DP
 
real(dp), parameter control::zero = 0.0_DP
 
real(dp), parameter control::one_third = 1.0_DP/3.0_DP
 
real(dp), parameter control::rearth = 6371.0E03_DP
 
real(dp), parameter control::deg2rad = PI2/360.0_DP
 
real(dp), parameter control::tpi = DEG2RAD*REARTH
 
real(dp), parameter control::rofvros = 0.9775171065_DP
 
real(dp), parameter control::slp0 = 101325.0_sp
 
character(len=80) control::stype
 
character(len=80), parameter control::stype_uniform = "UNIFORM"
 
character(len=80), parameter control::stype_geometric = "GEOMETRIC"
 
character(len=80), parameter control::stype_tanh = "TANH"
 
character(len=80), parameter control::stype_generalized = "GENERALIZED"
 
character(len=80), parameter control::stype_restart = "RESTART"
 
real(sp) control::p_sigma
 
real(sp) control::du2
 
real(sp) control::dl2
 
real(sp) control::duu
 
real(sp) control::dll
 
real(sp) control::hmin1
 
integer control::ku
 
integer control::kl
 
real(sp), dimension(:), allocatable control::zku
 
real(sp), dimension(:), allocatable control::zkl
 
real(sp) control::hmax
 
real(sp) control::hmin
 
integer control::ipt
 
integer, parameter, public control::ipt_base = 7000
 
integer, parameter control::testunit = 200
 
integer, parameter control::nmlunit = 10
 
integer, parameter control::itsunit =11
 
integer, parameter control::obcunit =12
 
integer, parameter control::gridunit =13
 
integer, parameter control::sigmaunit =14
 
integer, parameter control::depthunit =15
 
integer, parameter control::coriolisunit =16
 
integer, parameter control::spongeunit =17
 
integer, parameter control::lsfunit =18
 
integer, parameter control::assimunit =19
 
integer, parameter control::oiassimunit =23
 
integer, parameter control::probeunit =20
 
integer, parameter control::julobcunit =21
 
integer, parameter control::kfunit =22
 
integer, parameter control::nestunit =30
 
integer, parameter control::subdunit =31
 
integer control::rivernmlunit
 
integer, dimension(:,:), allocatable all_vars::nvg
 
real(sp), dimension(:), allocatable all_vars::xg
 
real(sp), dimension(:), allocatable all_vars::yg
 
real(sp), dimension(:), allocatable all_vars::hg
 
real(sp), dimension(:), allocatable all_vars::xcg
 
real(sp), dimension(:), allocatable all_vars::ycg
 
real(sp) all_vars::vxmin
 
real(sp) all_vars::vymin
 
real(sp) all_vars::vxmax
 
real(sp) all_vars::vymax
 
real(sp), dimension(:), allocatable, target all_vars::xm
 
real(sp), dimension(:), allocatable, target all_vars::ym
 
real(sp), dimension(:), allocatable, target all_vars::xmc
 
real(sp), dimension(:), allocatable, target all_vars::ymc
 
real(sp), dimension(:), allocatable, target all_vars::lon
 
real(sp), dimension(:), allocatable, target all_vars::lat
 
real(sp), dimension(:), allocatable, target all_vars::lonc
 
real(sp), dimension(:), allocatable, target all_vars::latc
 
real(sp), dimension(:), allocatable, target all_vars::vx
 
real(sp), dimension(:), allocatable, target all_vars::vy
 
real(sp), dimension(:), allocatable, target all_vars::xc
 
real(sp), dimension(:), allocatable, target all_vars::yc
 
real(sp), dimension(:), allocatable, target all_vars::art
 
real(sp), dimension(:), allocatable, target all_vars::art1
 
real(sp), dimension(:), allocatable, target all_vars::art2
 
real(sp), dimension(:), allocatable, target all_vars::grav_n
 
real(sp), dimension(:), allocatable, target all_vars::grav_e
 
integer, dimension(:,:), allocatable, target all_vars::nv
 
integer, dimension(:,:), allocatable, target all_vars::nbe
 
integer, dimension(:), allocatable, target all_vars::ntve
 
integer, dimension(:), allocatable, target all_vars::ntsn
 
integer, dimension(:), allocatable, target all_vars::isonb
 
integer, dimension(:), allocatable, target all_vars::isonb_w
 
integer, dimension(:), allocatable, target all_vars::isbc
 
integer, dimension(:), allocatable, target all_vars::isbce
 
integer, dimension(:,:), allocatable, target all_vars::iec
 
integer, dimension(:,:), allocatable, target all_vars::ienode
 
integer, dimension(:,:), allocatable, target all_vars::nbsn
 
integer, dimension(:,:), allocatable, target all_vars::niec
 
integer, dimension(:), allocatable, target all_vars::ntrg
 
integer, dimension(:,:), allocatable, target all_vars::nbve
 
integer, dimension(:,:), allocatable, target all_vars::nbvt
 
integer, dimension(:), allocatable, target all_vars::lisbce_1
 
integer, dimension(:), allocatable, target all_vars::lisbce_2
 
integer, dimension(:), allocatable, target all_vars::lisbce_3
 
real(sp), dimension(:), allocatable, target all_vars::dltxc
 
real(sp), dimension(:), allocatable, target all_vars::dltyc
 
real(sp), dimension(:), allocatable, target all_vars::dltxyc
 
real(sp), dimension(:), allocatable, target all_vars::sitae
 
real(sp), dimension(:), allocatable, target all_vars::xijc
 
real(sp), dimension(:), allocatable, target all_vars::yijc
 
real(sp), dimension(:,:), allocatable, target all_vars::xije
 
real(sp), dimension(:,:), allocatable, target all_vars::yije
 
real(sp), dimension(:), allocatable, target all_vars::dltxe
 
real(sp), dimension(:), allocatable, target all_vars::dltye
 
real(sp), dimension(:), allocatable, target all_vars::dltxye
 
real(sp), dimension(:), allocatable, target all_vars::sitac
 
real(sp), dimension(:), allocatable, target all_vars::epor
 
real(sp), dimension(:,:), allocatable, target all_vars::dltxncve
 
real(sp), dimension(:,:), allocatable, target all_vars::dltyncve
 
real(sp), dimension(:,:), allocatable, target all_vars::dltytrie
 
real(sp), dimension(:,:), allocatable, target all_vars::dltxtrie
 
real(sp), dimension(:,:), allocatable, target all_vars::dltxecec
 
real(sp), dimension(:,:), allocatable, target all_vars::dltyecec
 
real(sp), dimension(:,:), allocatable, target all_vars::dltxnec
 
real(sp), dimension(:,:), allocatable, target all_vars::dltynec
 
integer, dimension(:), allocatable, target all_vars::ibclsf_gl
 
real(sp), dimension(:), allocatable, target all_vars::rbc_geo_gl
 
real(sp), dimension(:), allocatable, target all_vars::rbc_wdf_gl
 
real(sp), dimension(:), allocatable, target all_vars::wdf_ang
 
real(sp), dimension(:), allocatable, target all_vars::wdf_dist
 
integer, dimension(:), allocatable, target all_vars::ibclsf
 
integer, dimension(:), allocatable, target all_vars::ibclsf_output
 
integer, dimension(:), allocatable, target all_vars::nbclsf
 
real(sp), dimension(:), allocatable, target all_vars::rbc_geo
 
real(sp), dimension(:), allocatable, target all_vars::rbc_wdf
 
real(sp), dimension(:,:), allocatable, target all_vars::z
 
real(sp), dimension(:,:), allocatable, target all_vars::zz
 
real(sp), dimension(:,:), allocatable, target all_vars::dz
 
real(sp), dimension(:,:), allocatable, target all_vars::dzz
 
real(sp), dimension(:,:), allocatable, target all_vars::z1
 
real(sp), dimension(:,:), allocatable, target all_vars::zz1
 
real(sp), dimension(:,:), allocatable, target all_vars::dz1
 
real(sp), dimension(:,:), allocatable, target all_vars::dzz1
 
real(sp), dimension(:), allocatable, target all_vars::ua
 
real(sp), dimension(:), allocatable, target all_vars::va
 
real(sp), dimension(:), allocatable, target all_vars::uaf
 
real(sp), dimension(:), allocatable, target all_vars::vaf
 
real(sp), dimension(:), allocatable, target all_vars::uark
 
real(sp), dimension(:), allocatable, target all_vars::vark
 
real(sp), dimension(:), allocatable, target all_vars::uard
 
real(sp), dimension(:), allocatable, target all_vars::vard
 
real(sp), dimension(:), allocatable, target all_vars::cor
 
real(sp), dimension(:), allocatable, target all_vars::f_alfa
 
real(sp), dimension(:), allocatable, target all_vars::h1
 
real(sp), dimension(:), allocatable, target all_vars::d1
 
real(sp), dimension(:), allocatable, target all_vars::dt1
 
real(sp), dimension(:), allocatable, target all_vars::el1
 
real(sp), dimension(:), allocatable, target all_vars::et1
 
real(sp), dimension(:), allocatable, target all_vars::elrk1
 
real(sp), dimension(:), allocatable, target all_vars::elf1
 
real(sp), dimension(:), allocatable, target all_vars::dtfa
 
real(sp), dimension(:), allocatable, target all_vars::cc_sponge
 
real(sp), dimension(:), allocatable, target all_vars::h
 
real(sp), dimension(:), allocatable, target all_vars::d
 
real(sp), dimension(:), allocatable, target all_vars::dt
 
real(sp), dimension(:), allocatable, target all_vars::el
 
real(sp), dimension(:), allocatable, target all_vars::et
 
real(sp), dimension(:), allocatable, target all_vars::egf
 
real(sp), dimension(:), allocatable, target all_vars::elrk
 
real(sp), dimension(:), allocatable, target all_vars::elf
 
real(sp), dimension(:), allocatable, target all_vars::elf_eqi
 
real(sp), dimension(:), allocatable, target all_vars::elrk_eqi
 
real(sp), dimension(:), allocatable, target all_vars::el_eqi
 
real(sp), dimension(:), allocatable, target all_vars::egf_eqi
 
real(sp), dimension(:), allocatable, target all_vars::elf_atmo
 
real(sp), dimension(:), allocatable, target all_vars::elrk_atmo
 
real(sp), dimension(:), allocatable, target all_vars::el_atmo
 
real(sp), dimension(:), allocatable, target all_vars::egf_atmo
 
real(sp), dimension(:), allocatable, target all_vars::elf_air
 
real(sp), dimension(:), allocatable, target all_vars::elrk_air
 
real(sp), dimension(:), allocatable, target all_vars::el_air
 
real(sp), dimension(:), allocatable, target all_vars::egf_air
 
real(sp), dimension(:), allocatable, target all_vars::vort
 
real(sp), dimension(:), allocatable, target all_vars::cbc
 
real(sp), dimension(:), allocatable, target all_vars::cc_z0b
 
real(sp), dimension(:), allocatable, target all_vars::swrad_watts
 
real(sp), dimension(:), allocatable, target all_vars::wtsurf_watts
 
real(sp), dimension(:), allocatable, target all_vars::swrad
 
real(sp), dimension(:), allocatable, target all_vars::wtsurf
 
real(sp), dimension(:), allocatable, target all_vars::wusurf2
 
real(sp), dimension(:), allocatable, target all_vars::wvsurf2
 
real(sp), dimension(:), allocatable, target all_vars::wubot
 
real(sp), dimension(:), allocatable, target all_vars::wvbot
 
real(sp), dimension(:), allocatable, target all_vars::taubm
 
real(sp), dimension(:), allocatable, target all_vars::wubot_n
 
real(sp), dimension(:), allocatable, target all_vars::wvbot_n
 
real(sp), dimension(:), allocatable, target all_vars::taubm_n
 
real(sp), dimension(:), allocatable, target all_vars::wusurf
 
real(sp), dimension(:), allocatable, target all_vars::wvsurf
 
real(sp), dimension(:), allocatable, target all_vars::wusurf_save
 
real(sp), dimension(:), allocatable, target all_vars::wvsurf_save
 
real(sp), dimension(:), allocatable, target all_vars::bfwdis
 
real(sp), dimension(:), allocatable, target all_vars::bfwdis2
 
real(sp), dimension(:), allocatable, target all_vars::bfwtmp
 
real(sp), dimension(:), allocatable, target all_vars::bfwslt
 
real(sp), dimension(:), allocatable, target all_vars::icing_wndx
 
real(sp), dimension(:), allocatable, target all_vars::icing_wndy
 
real(sp), dimension(:), allocatable, target all_vars::icing_satmp
 
real(sp), dimension(:), allocatable, target all_vars::icing_0kts
 
real(sp), dimension(:), allocatable, target all_vars::icing_10kts
 
integer, dimension(:), allocatable, target all_vars::inodeq
 
integer, dimension(:), allocatable, target all_vars::icellq
 
integer, dimension(:,:), allocatable, target all_vars::n_icellq
 
real(sp), dimension(:,:), allocatable, target all_vars::vqdist
 
integer, dimension(:), allocatable, target all_vars::riv_gl2loc
 
real(sp), dimension(:), allocatable, target all_vars::qdis
 
real(sp), dimension(:), allocatable, target all_vars::qdis2
 
real(sp), dimension(:), allocatable, target all_vars::tdis
 
real(sp), dimension(:), allocatable, target all_vars::sdis
 
real(sp), dimension(:), allocatable, target all_vars::qarea
 
real(sp), dimension(:,:), allocatable, target all_vars::rdisq
 
real(sp), dimension(:), allocatable, target all_vars::angleq
 
real(sp), dimension(:), allocatable, target all_vars::vlctyq
 
real(sp), dimension(:), allocatable, target all_vars::uuwind
 
real(sp), dimension(:), allocatable, target all_vars::vvwind
 
real(sp), dimension(:), allocatable, target all_vars::qprec2
 
real(sp), dimension(:), allocatable, target all_vars::qevap2
 
real(sp), dimension(:), allocatable, target all_vars::qprec
 
real(sp), dimension(:), allocatable, target all_vars::qevap
 
real(sp), dimension(:), allocatable, target all_vars::whs
 
real(sp), dimension(:), allocatable, target all_vars::wdir
 
real(sp), dimension(:), allocatable, target all_vars::wper
 
real(sp), dimension(:), allocatable, target all_vars::wlength
 
real(sp), dimension(:), allocatable, target all_vars::wper_bot
 
real(sp), dimension(:), allocatable, target all_vars::wub_bot
 
real(sp), dimension(:), allocatable, target all_vars::pstx
 
real(sp), dimension(:), allocatable, target all_vars::psty
 
real(sp), dimension(:), allocatable, target all_vars::advua
 
real(sp), dimension(:), allocatable, target all_vars::advva
 
real(sp), dimension(:), allocatable, target all_vars::adx2d
 
real(sp), dimension(:), allocatable, target all_vars::ady2d
 
real(sp), dimension(:), allocatable, target all_vars::drx2d
 
real(sp), dimension(:), allocatable, target all_vars::dry2d
 
real(sp), dimension(:), allocatable, target all_vars::tps
 
real(sp), dimension(:,:), allocatable, target all_vars::advx
 
real(sp), dimension(:,:), allocatable, target all_vars::advy
 
real(sp), dimension(:,:), allocatable, target all_vars::u
 
real(sp), dimension(:,:), allocatable, target all_vars::v
 
real(sp), dimension(:,:), allocatable, target all_vars::ubeta
 
real(sp), dimension(:,:), allocatable, target all_vars::vbeta
 
real(sp), dimension(:), allocatable all_vars::ubeta2d
 
real(sp), dimension(:), allocatable all_vars::vbeta2d
 
real(sp), dimension(:), allocatable, target all_vars::partition
 
real(sp), dimension(:,:), allocatable, target all_vars::w
 
real(sp), dimension(:,:), allocatable, target all_vars::ww
 
real(sp), dimension(:,:), allocatable, target all_vars::uf
 
real(sp), dimension(:,:), allocatable, target all_vars::vf
 
real(sp), dimension(:,:), allocatable, target all_vars::wt
 
real(sp), dimension(:,:), allocatable, target all_vars::rho
 
real(sp), dimension(:,:), allocatable, target all_vars::rmean
 
real(sp), dimension(:,:), allocatable, target all_vars::t
 
real(sp), dimension(:,:), allocatable, target all_vars::tmean
 
real(sp), dimension(:,:), allocatable, target all_vars::s
 
real(sp), dimension(:,:), allocatable, target all_vars::smean
 
real(sp), dimension(:,:), allocatable, target all_vars::q2
 
real(sp), dimension(:,:), allocatable, target all_vars::l
 
real(sp), dimension(:,:), allocatable, target all_vars::q2l
 
real(sp), dimension(:,:), allocatable, target all_vars::km
 
real(sp), dimension(:,:), allocatable, target all_vars::kh
 
real(sp), dimension(:,:), allocatable, target all_vars::kq
 
real(sp), dimension(:,:), allocatable, target all_vars::aam
 
real(sp), dimension(:,:), allocatable, target all_vars::q2f
 
real(sp), dimension(:,:), allocatable, target all_vars::q2lf
 
real(sp), dimension(:,:), allocatable, target all_vars::km1
 
real(sp), dimension(:), allocatable all_vars::cc_hvc
 
real(sp), dimension(:), allocatable all_vars::nn_hvc
 
real(sp), dimension(:,:), allocatable, target all_vars::t1
 
real(sp), dimension(:,:), allocatable, target all_vars::s1
 
real(sp), dimension(:,:), allocatable, target all_vars::rho1
 
real(sp), dimension(:,:), allocatable, target all_vars::tf1
 
real(sp), dimension(:,:), allocatable, target all_vars::sf1
 
real(sp), dimension(:,:), allocatable, target all_vars::t0
 
real(sp), dimension(:,:), allocatable, target all_vars::t2
 
real(sp), dimension(:,:), allocatable, target all_vars::s0
 
real(sp), dimension(:,:), allocatable, target all_vars::s2
 
real(sp), dimension(:,:), allocatable, target all_vars::tmean1
 
real(sp), dimension(:,:), allocatable, target all_vars::smean1
 
real(sp), dimension(:,:), allocatable, target all_vars::rmean1
 
real(sp), dimension(:,:), allocatable, target all_vars::wts
 
real(sp), dimension(:,:), allocatable, target all_vars::wtts
 
real(sp), dimension(:,:), allocatable, target all_vars::drhox
 
real(sp), dimension(:,:), allocatable, target all_vars::drhoy
 
real(sp), dimension(:,:), allocatable, target all_vars::a1u
 
real(sp), dimension(:,:), allocatable, target all_vars::a2u
 
real(sp), dimension(:,:), allocatable, target all_vars::awx
 
real(sp), dimension(:,:), allocatable, target all_vars::awy
 
real(sp), dimension(:,:), allocatable, target all_vars::aw0
 
real(sp), dimension(:), allocatable, target all_vars::alpha
 
real(sp), dimension(:), allocatable, target all_vars::phpn
 
real(sp), dimension(:), allocatable, target all_vars::pfpxb
 
real(sp), dimension(:), allocatable, target all_vars::pfpyb
 
real(sp), dimension(:), allocatable, target all_vars::sita_gd
 
real(sp), dimension(:), allocatable, target all_vars::ah_bottom
 
real(sp), dimension(:,:), allocatable, target all_vars::u_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::v_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::w_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::km_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::kh_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::t_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::s_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::r_ave
 
real(sp), dimension(:), allocatable, target all_vars::el_ave
 
real(sp), dimension(:,:), allocatable, target all_vars::viscofh
 
real(sp), dimension(:,:), allocatable, target all_vars::viscofm
 
real(sp), dimension(:,:), allocatable, target all_vars::hyw
 
type(bc) bcs::elo_tm
 
integer, dimension(:), allocatable bcs::i_obc_gl
 
integer, dimension(:), allocatable bcs::i_obc_gl_w
 
integer bcs::iobcn_gl
 
integer bcs::iobcn_gl_w
 
integer bcs::iobcn
 
integer bcs::iobcn_w
 
integer, dimension(:), allocatable bcs::i_obc_n
 
integer, dimension(:), allocatable bcs::i_obc_n_w
 
integer, dimension(:), allocatable bcs::i_obc_n_output
 
integer, dimension(:), allocatable bcs::type_obc_gl
 
integer, dimension(:), allocatable bcs::type_obc
 
integer bcs::obc_ntime
 
integer, dimension(:), allocatable bcs::node_bfw
 
integer, dimension(:), allocatable bcs::bfw_gl2loc
 
real(sp), dimension(:,:), allocatable bcs::bfwqdis
 
integer bcs::ntidecomps
 
real(sp), dimension(:), allocatable bcs::period
 
real(sp), dimension(:,:), allocatable bcs::apt
 
real(sp), dimension(:,:), allocatable bcs::phai
 
real(sp), dimension(:), allocatable bcs::emean
 
real(sp), dimension(:), allocatable bcs::apt_eqi
 
real(sp), dimension(:), allocatable bcs::beta_eqi
 
character(len=80), dimension(:), allocatable bcs::tide_type
 
character(len=12), parameter bcs::diurnal ="DIURNAL"
 
character(len=12), parameter bcs::semidiurnal ="SEMIDIURNAL"
 
real(sp), dimension(:,:), allocatable bcs::elsbc