flux_exchange_mod Module Reference

Functions/Subroutines
subroutine, public	gas_exchange_init (gas_fields_atm, gas_fields_ice, gas_fluxes)
	Gas and tracer exchange initialization routine. More...
subroutine, public	flux_exchange_init (Time, Atm, Land, Ice, Ocean, Ocean_state, atmos_ice_boundary, land_ice_atmos_boundary, land_ice_boundary, ice_ocean_boundary, ocean_ice_boundary, do_ocean, slow_ice_ocean_pelist, dt_atmos, dt_cpld)
	Initialization routine. More...
subroutine, public	flux_check_stocks (Time, Atm, Lnd, Ice, Ocn_state)
	Check stock values. More...
subroutine, public	flux_init_stocks (Time, Atm, Lnd, Ice, Ocn_state)
	Initialize stock values. More...
subroutine	check_atm_grid (Atm, grid_file)
subroutine, public	sfc_boundary_layer (dt, Time, Atm, Land, Ice, Boundary)
subroutine, public	flux_down_from_atmos (Time, Atm, Land, Ice, Atmos_boundary, Land_boundary, Ice_boundary)
subroutine, public	flux_up_to_atmos (Time, Land, Ice, Boundary)
subroutine, public	flux_exchange_init (Time, Atm, Land, Ice, atmos_ice_boundary, land_ice_atmos_boundary)
subroutine	read_namelist
subroutine	diag_field_init (Time, atmos_axes)
subroutine, public	flux_exchange_end (Atm)
subroutine	surface_flux_2d (t_atm, q_atm_in, u_atm, v_atm, p_atm, z_atm, p_surf, t_surf, t_ca, q_surf, u_surf, v_surf, rough_mom, rough_heat, rough_moist, rough_scale, gust, flux_t, flux_q, flux_r, flux_u, flux_v, cd_m, cd_t, cd_q, w_atm, u_star, b_star, q_star, thv_atm, thv_surf, dhdt_surf, dedt_surf, dedq_surf, drdt_surf, dhdt_atm, dedq_atm, dtaudu_atm, dtaudv_atm, dt, land, seawater, avail)

Variables
character(len=128)	version = '$Id$'
character(len=128)	tag = '$Name$'
logical	do_init = .true.
real, parameter	bound_tol = 1e-7
real, parameter	d622 = rdgas/rvgas
real, parameter	d378 = 1.0-d622
real	z_ref_heat = 2.
	Reference height (meters) for temperature and relative humidity diagnostics (t_ref, rh_ref, del_h, del_q) More...
real	z_ref_mom = 10.
	Reference height (meters) for mementum diagnostics (u_ref, v_ref, del_m) More...
logical	do_area_weighted_flux = .FALSE.
logical	debug_stocks = .FALSE.
logical	divert_stocks_report = .FALSE.
logical	do_runoff = .TRUE.
	Turns on/off the land runoff interpolation to the ocean. More...
logical	do_forecast = .false.
integer	nblocks = 1
logical	partition_fprec_from_lprec = .FALSE.
	option for ATM override experiments where liquid+frozen precip are combined. This option will convert liquid precip to snow when t_ref is less than tfreeze parameter More...
real, parameter	tfreeze = 273.15
logical	scale_precip_2d = .false.
logical	gas_fluxes_initialized = .false.
type(fmscoupler1dbc_type), target	ex_gas_fields_atm
	Structure containing atmospheric surfacevariables that are used in the calculation of the atmosphere-ocean gas fluxes, as well as parameters regulating these fluxes. More...
type(fmscoupler1dbc_type), target	ex_gas_fields_ice
	Structure containing ice-top and ocean surface variables that are used in the calculation of the atmosphere-ocean gas fluxes, as well as parameters regulating these fluxes. More...
type(fmscoupler1dbc_type), target	ex_gas_fluxes
	A structure for exchanging gas or tracer fluxes between the atmosphere and ocean, defined by the field table, as well as a place holder of intermediate calculations, such as piston velocities, and parameters that impact the fluxes. More...
integer	ni_atm
integer	nj_atm
	to do atmos diagnostic from flux_ocean_to_ice More...
real, dimension(3)	ccc
	for conservation checks More...
integer	cplclock
real	dt_atm
real	dt_cpl
real	atm_precip_new
character(len=14), parameter	mod_name = 'flux'
integer	id_drag_moist
integer	id_drag_heat
integer	id_drag_mom
integer	id_rough_moist
integer	id_rough_heat
integer	id_rough_mom
integer	id_u_star
integer	id_b_star
integer	id_q_star
integer	id_u_flux
integer	id_v_flux
integer	id_t_surf
integer	id_t_flux
integer	id_q_flux
integer	id_r_flux
integer	id_t_atm
integer	id_u_atm
integer	id_v_atm
integer	id_wind
integer	id_thv_atm
integer	id_thv_surf
integer	id_t_ref
integer	id_rh_ref
integer	id_u_ref
integer	id_v_ref
integer	id_q_ref
integer	id_del_h
integer	id_del_m
integer	id_del_q
integer	id_albedo
integer	id_gust
integer	id_t_ca
integer	id_q_surf
integer	id_q_atm
integer	id_z_atm
integer	id_p_atm
integer	id_land_mask
integer	id_ice_mask
integer	id_rough_scale
integer	id_albedo_vis_dir
integer	id_albedo_nir_dir
integer	id_albedo_vis_dif
integer	id_albedo_nir_dif
integer	id_tas
integer	id_uas
integer	id_vas
integer	id_ts
integer	id_psl
integer	id_sfcwind
integer	id_tauu
integer	id_tauv
integer	id_hurs
integer	id_huss
integer	id_evspsbl
integer	id_hfls
integer	id_hfss
integer	id_height2m
integer	id_height10m
logical	first_static = .true.
logical	do_read_nml = .true.
integer	isphum
integer	n_atm_tr_tot
integer	n_atm_tr
logical	use_existing_grid_spec = .false.
logical	all_ocean = .true.
logical	all_land = .false.
integer	is
integer	ie
integer	js
integer	je
real, dimension(:,:), allocatable	t_surf
real, dimension(:,:), allocatable	t_ca
real, dimension(:,:), allocatable	q_surf
real, dimension(:,:), allocatable	p_surf
real, dimension(:,:), allocatable	e_t_n
real, dimension(:,:), allocatable	f_t_delt_n
real, dimension(:,:), allocatable	e_q_n
real, dimension(:,:), allocatable	f_q_delt_n
real, dimension(:,:), allocatable	dhdt_surf
real, dimension(:,:), allocatable	dedt_surf
real, dimension(:,:), allocatable	dedq_surf
real, dimension(:,:), allocatable	drdt_surf
real, dimension(:,:), allocatable	dhdt_atm
real, dimension(:,:), allocatable	dedq_atm
real, dimension(:,:), allocatable	flux_t
real, dimension(:,:), allocatable	flux_q
real, dimension(:,:), allocatable	flux_lw
real, dimension(:,:), allocatable	flux_u
real, dimension(:,:), allocatable	flux_v
real, dimension(:,:), allocatable	drag_q
real, dimension(:,:), allocatable	dtaudu_atm
real, dimension(:,:), allocatable	dtaudv_atm
real, dimension(:,:), allocatable	cd_t
real, dimension(:,:), allocatable	cd_m
real, dimension(:,:), allocatable	b_star
real, dimension(:,:), allocatable	u_star
real, dimension(:,:), allocatable	wind
logical	used

Function/Subroutine Documentation

check_atm_grid()

subroutine flux_exchange_mod::check_atm_grid ( type(atmos_data_type), intent(in)  Atm, character(len=*), intent(in)  grid_file  )

private

diag_field_init()

subroutine flux_exchange_mod::diag_field_init ( type(fmstime_type), intent(in)  Time, integer, dimension(2), intent(in)  atmos_axes  )

private

flux_check_stocks()

subroutine, public flux_exchange_mod::flux_check_stocks	(	type(fmstime_type), intent(in)	Time,
		type(atmos_data_type), intent(inout), optional	Atm,
		type(land_data_type), intent(inout), optional	Lnd,
		type(ice_data_type), intent(inout), optional	Ice,
		type(ocean_state_type), intent(inout), optional, pointer	Ocn_state
	)

Check stock values.

Will print out any difference between the integrated flux (in time and space) feeding into a component, and the stock stored in that component.

flux_down_from_atmos()

subroutine, public flux_exchange_mod::flux_down_from_atmos	(	type (fmstime_type), intent(in)	Time,
		type (atmos_data_type), intent(in)	Atm,
		type (land_data_type), intent(in)	Land,
		type (ice_data_type), intent(in)	Ice,
		type(land_ice_atmos_boundary_type), intent(in)	Atmos_boundary,
		type(atmos_land_boundary_type), intent(inout)	Land_boundary,
		type(atmos_ice_boundary_type), intent(inout)	Ice_boundary
	)

flux_exchange_end()

subroutine, public flux_exchange_mod::flux_exchange_end

(

type (atmos_data_type), intent(in)

Atm

)

flux_exchange_init() [1/2]

subroutine, public flux_exchange_mod::flux_exchange_init	(	type (fmstime_type), intent(in)	Time,
		type (atmos_data_type), intent(in)	Atm,
		type (land_data_type), intent(in)	Land,
		type (ice_data_type), intent(in)	Ice,
		type(atmos_ice_boundary_type), intent(inout)	atmos_ice_boundary,
		type(land_ice_atmos_boundary_type), intent(inout)	land_ice_atmos_boundary
	)

flux_exchange_init() [2/2]

subroutine, public flux_exchange_mod::flux_exchange_init	(	type(fmstime_type), intent(in)	Time,
		type(atmos_data_type), intent(inout)	Atm,
		type(land_data_type), intent(in)	Land,
		type(ice_data_type), intent(inout)	Ice,
		type(ocean_public_type), intent(inout)	Ocean,
		type(ocean_state_type), pointer	Ocean_state,
		type(atmos_ice_boundary_type), intent(inout)	atmos_ice_boundary,
		type(land_ice_atmos_boundary_type), intent(inout)	land_ice_atmos_boundary,
		type(land_ice_boundary_type), intent(inout)	land_ice_boundary,
		type(ice_ocean_boundary_type), intent(inout)	ice_ocean_boundary,
		type(ocean_ice_boundary_type), intent(inout)	ocean_ice_boundary,
		logical, intent(in)	do_ocean,
		integer, dimension(:), intent(in)	slow_ice_ocean_pelist,
		integer, intent(in), optional	dt_atmos,
		integer, intent(in), optional	dt_cpld
	)

Initialization routine.

Initializes the interpolation routines,diagnostics and boundary data

Exceptions

FATAL,grid_spec.nc incompatible with atmosphere resolution	The atmosphere grid size from file grid_spec.nc is not compatible with the atmosphere resolution from atmosphere model.
FATAL,grid_spec.nc incompatible with atmosphere longitudes (see xba.dat and yba.dat)	The longitude from file grid_spec.nc ( from field yba ) is different from the longitude from atmosphere model.
FATAL,grid_spec.nc incompatible with atmosphere longitudes (see xba.dat and yba.dat)	The longitude from file grid_spec.nc ( from field xba ) is different from the longitude from atmosphere model.
FATAL,grid_spec.nc incompatible with atmosphere latitudes (see grid_spec.nc)	The latitude from file grid_spec.nc is different from the latitude from atmosphere model.

Parameters

[in]	time	The model's current time
[in,out]	atm	A derived data type to specify atmosphere boundary data
[in]	land	A derived data type to specify land boundary data
[in,out]	ice	A derived data type to specify ice boundary data
[in,out]	ocean	A derived data type to specify ocean boundary data
[in,out]	atmos_ice_boundary	A derived data type to specify properties and fluxes passed from atmosphere to ice
[in,out]	land_ice_atmos_boundary	A derived data type to specify properties and fluxes passed from exchange grid to the atmosphere, land and ice
[in,out]	land_ice_boundary	A derived data type to specify properties and fluxes passed from land to ice
[in,out]	ice_ocean_boundary	A derived data type to specify properties and fluxes passed from ice to ocean
[in,out]	ocean_ice_boundary	A derived data type to specify properties and fluxes passed from ocean to ice
[in]	dt_atmos	Atmosphere time step in seconds
[in]	dt_cpld	Coupled time step in seconds

flux_init_stocks()

subroutine, public flux_exchange_mod::flux_init_stocks	(	type(fmstime_type), intent(in)	Time,
		type(atmos_data_type)	Atm,
		type(land_data_type)	Lnd,
		type(ice_data_type)	Ice,
		type(ocean_state_type), pointer	Ocn_state
	)

Initialize stock values.

This will call the various component stock_pe routines to store the the initial stock values.

flux_up_to_atmos()

subroutine, public flux_exchange_mod::flux_up_to_atmos	(	type(fmstime_type), intent(in)	Time,
		type(land_data_type), intent(inout)	Land,
		type(ice_data_type), intent(inout)	Ice,
		type(land_ice_atmos_boundary_type), intent(inout)	Boundary
	)

gas_exchange_init()

subroutine, public flux_exchange_mod::gas_exchange_init	(	type(fmscoupler1dbc_type), optional, pointer	gas_fields_atm,
		type(fmscoupler1dbc_type), optional, pointer	gas_fields_ice,
		type(fmscoupler1dbc_type), optional, pointer	gas_fluxes
	)

Gas and tracer exchange initialization routine.

This routine causes the field table to be read to determine which fields will be needed for the exchanges of gasses and tracers between the atmosphere and ocean. The metadata for these fields are stored in the ex_gas_fluxes and ex_gas_fields arrays, although the data is not allocated yet. This is intended to be called (optionally) prior to flux_exchange_init.

Parameters

gas_fields_atm	Pointer to a structure containing atmospheric surface variables that are used in the calculation of the atmosphere-ocean gas fluxes, as well as parameters regulating these fluxes.
gas_fields_ice	Pointer to a structure containing ice-top and ocean surface variables that are used in the calculation of the atmosphere-ocean gas fluxes, as well as parameters regulating these fluxes.
gas_fluxes	Pointer to a s structure for exchanging gas or tracer fluxes between the atmosphere and ocean, defined by the field table, as well as a place holder of intermediate calculations, such as piston velocities, and parameters that impact the fluxes.

read_namelist()

subroutine flux_exchange_mod::read_namelist

private

sfc_boundary_layer()

subroutine, public flux_exchange_mod::sfc_boundary_layer	(	real, intent(in)	dt,
		type (fmstime_type), intent(in)	Time,
		type (atmos_data_type), intent(in)	Atm,
		type(land_data_type), intent(inout)	Land,
		type(ice_data_type), intent(inout)	Ice,
		type(land_ice_atmos_boundary_type), intent(inout)	Boundary
	)

Parameters

[in]	dt	Time step
[in]	time	Current time
[in]	atm	A derived data type to specify atmospheric boundary data
[in,out]	land	A derived data type to specify land boundary data
[in,out]	ice	A derived data type to specify ice boundary data
[in,out]	boundary	A derived data type to specify properties and fluxes passed from exchange grid to the atmosphere,

surface_flux_2d()

subroutine flux_exchange_mod::surface_flux_2d ( real, dimension(:,:), intent(in)  t_atm, real, dimension(:,:), intent(in)  q_atm_in, real, dimension(:,:), intent(in)  u_atm, real, dimension(:,:), intent(in)  v_atm, real, dimension(:,:), intent(in)  p_atm, real, dimension(:,:), intent(in)  z_atm, real, dimension(:,:), intent(in)  p_surf, real, dimension(:,:), intent(in)  t_surf, real, dimension(:,:), intent(in)  t_ca, real, dimension(:,:), intent(inout)  q_surf, real, dimension(:,:), intent(in)  u_surf, real, dimension(:,:), intent(in)  v_surf, real, dimension(:,:), intent(inout)  rough_mom, real, dimension(:,:), intent(inout)  rough_heat, real, dimension(:,:), intent(inout)  rough_moist, real, dimension(:,:), intent(in)  rough_scale, real, dimension(:,:), intent(in)  gust, real, dimension(:,:), intent(out)  flux_t, real, dimension(:,:), intent(out)  flux_q, real, dimension(:,:), intent(out)  flux_r, real, dimension(:,:), intent(out)  flux_u, real, dimension(:,:), intent(out)  flux_v, real, dimension(:,:), intent(out)  cd_m, real, dimension(:,:), intent(out)  cd_t, real, dimension(:,:), intent(out)  cd_q, real, dimension(:,:), intent(out)  w_atm, real, dimension(:,:), intent(out)  u_star, real, dimension(:,:), intent(out)  b_star, real, dimension(:,:), intent(out)  q_star, real, dimension(:,:), intent(out)  thv_atm, real, dimension(:,:), intent(out)  thv_surf, real, dimension(:,:), intent(out)  dhdt_surf, real, dimension(:,:), intent(out)  dedt_surf, real, dimension(:,:), intent(out)  dedq_surf, real, dimension(:,:), intent(out)  drdt_surf, real, dimension(:,:), intent(out)  dhdt_atm, real, dimension(:,:), intent(out)  dedq_atm, real, dimension(:,:), intent(out)  dtaudu_atm, real, dimension(:,:), intent(out)  dtaudv_atm, real, intent(in)  dt, logical, dimension(:,:), intent(in)  land, logical, dimension(:,:), intent(in)  seawater, logical, dimension(:,:), intent(in)  avail  )

private

Variable Documentation

all_land

logical flux_exchange_mod::all_land = .false.

private

all_ocean

logical flux_exchange_mod::all_ocean = .true.

private

atm_precip_new

real flux_exchange_mod::atm_precip_new

private

b_star

real, dimension(:,:), allocatable flux_exchange_mod::b_star

private

bound_tol

real, parameter flux_exchange_mod::bound_tol = 1e-7

private

ccc

real, dimension(3) flux_exchange_mod::ccc

private

for conservation checks

cd_m

real, dimension(:,:), allocatable flux_exchange_mod::cd_m

private

cd_t

real, dimension(:,:), allocatable flux_exchange_mod::cd_t

private

cplclock

integer flux_exchange_mod::cplclock

private

d378

real parameter flux_exchange_mod::d378 = 1.0-d622

private

d622

real parameter flux_exchange_mod::d622 = rdgas/rvgas

private

debug_stocks

logical flux_exchange_mod::debug_stocks = .FALSE.

private

dedq_atm

real, dimension(:,:), allocatable flux_exchange_mod::dedq_atm

private

dedq_surf

real, dimension(:,:), allocatable flux_exchange_mod::dedq_surf

private

dedt_surf

real, dimension(:,:), allocatable flux_exchange_mod::dedt_surf

private

dhdt_atm

real, dimension(:,:), allocatable flux_exchange_mod::dhdt_atm

private

dhdt_surf

real, dimension(:,:), allocatable flux_exchange_mod::dhdt_surf

private

divert_stocks_report

logical flux_exchange_mod::divert_stocks_report = .FALSE.

private

do_area_weighted_flux

logical flux_exchange_mod::do_area_weighted_flux = .FALSE.

private

do_forecast

logical flux_exchange_mod::do_forecast = .false.

private

do_init

logical flux_exchange_mod::do_init = .true.

private

do_read_nml

logical flux_exchange_mod::do_read_nml = .true.

private

do_runoff

logical flux_exchange_mod::do_runoff = .TRUE.

private

Turns on/off the land runoff interpolation to the ocean.

drag_q

real, dimension(:,:), allocatable flux_exchange_mod::drag_q

private

drdt_surf

real, dimension(:,:), allocatable flux_exchange_mod::drdt_surf

private

dt_atm

real flux_exchange_mod::dt_atm

private

dt_cpl

real flux_exchange_mod::dt_cpl

private

dtaudu_atm

real, dimension(:,:), allocatable flux_exchange_mod::dtaudu_atm

private

dtaudv_atm

real, dimension(:,:), allocatable flux_exchange_mod::dtaudv_atm

private

e_q_n

real, dimension(:,:), allocatable flux_exchange_mod::e_q_n

private

e_t_n

real, dimension(:,:), allocatable flux_exchange_mod::e_t_n

private

ex_gas_fields_atm

type(fmscoupler1dbc_type), target flux_exchange_mod::ex_gas_fields_atm

private

Structure containing atmospheric surfacevariables that are used in the calculation of the atmosphere-ocean gas fluxes, as well as parameters regulating these fluxes.

ex_gas_fields_ice

type(fmscoupler1dbc_type), target flux_exchange_mod::ex_gas_fields_ice

private

Structure containing ice-top and ocean surface variables that are used in the calculation of the atmosphere-ocean gas fluxes, as well as parameters regulating these fluxes.

ex_gas_fluxes

type(fmscoupler1dbc_type), target flux_exchange_mod::ex_gas_fluxes

private

A structure for exchanging gas or tracer fluxes between the atmosphere and ocean, defined by the field table, as well as a place holder of intermediate calculations, such as piston velocities, and parameters that impact the fluxes.

f_q_delt_n

real, dimension(:,:), allocatable flux_exchange_mod::f_q_delt_n

private

f_t_delt_n

real, dimension(:,:), allocatable flux_exchange_mod::f_t_delt_n

private

first_static

logical flux_exchange_mod::first_static = .true.

private

flux_lw

real, dimension(:,:), allocatable flux_exchange_mod::flux_lw

private

flux_q

real, dimension(:,:), allocatable flux_exchange_mod::flux_q

private

flux_t

real, dimension(:,:), allocatable flux_exchange_mod::flux_t

private

flux_u

real, dimension(:,:), allocatable flux_exchange_mod::flux_u

private

flux_v

real, dimension(:,:), allocatable flux_exchange_mod::flux_v

private

gas_fluxes_initialized

logical flux_exchange_mod::gas_fluxes_initialized = .false.

private

id_albedo

integer flux_exchange_mod::id_albedo

private

id_albedo_nir_dif

integer flux_exchange_mod::id_albedo_nir_dif

private

id_albedo_nir_dir

integer flux_exchange_mod::id_albedo_nir_dir

private

id_albedo_vis_dif

integer flux_exchange_mod::id_albedo_vis_dif

private

id_albedo_vis_dir

integer flux_exchange_mod::id_albedo_vis_dir

private

id_b_star

integer flux_exchange_mod::id_b_star

private

id_del_h

integer flux_exchange_mod::id_del_h

private

id_del_m

integer flux_exchange_mod::id_del_m

private

id_del_q

integer flux_exchange_mod::id_del_q

private

id_drag_heat

integer flux_exchange_mod::id_drag_heat

private

id_drag_moist

integer flux_exchange_mod::id_drag_moist

private

id_drag_mom

integer flux_exchange_mod::id_drag_mom

private

id_evspsbl

integer flux_exchange_mod::id_evspsbl

private

id_gust

integer flux_exchange_mod::id_gust

private

id_height10m

integer flux_exchange_mod::id_height10m

private

id_height2m

integer flux_exchange_mod::id_height2m

private

id_hfls

integer flux_exchange_mod::id_hfls

private

id_hfss

integer flux_exchange_mod::id_hfss

private

id_hurs

integer flux_exchange_mod::id_hurs

private

id_huss

integer flux_exchange_mod::id_huss

private

id_ice_mask

integer flux_exchange_mod::id_ice_mask

private

id_land_mask

integer flux_exchange_mod::id_land_mask

private

id_p_atm

integer flux_exchange_mod::id_p_atm

private

id_psl

integer flux_exchange_mod::id_psl

private

id_q_atm

integer flux_exchange_mod::id_q_atm

private

id_q_flux

integer flux_exchange_mod::id_q_flux

private

id_q_ref

integer flux_exchange_mod::id_q_ref

private

id_q_star

integer flux_exchange_mod::id_q_star

private

id_q_surf

integer flux_exchange_mod::id_q_surf

private

id_r_flux

integer flux_exchange_mod::id_r_flux

private

id_rh_ref

integer flux_exchange_mod::id_rh_ref

private

id_rough_heat

integer flux_exchange_mod::id_rough_heat

private

id_rough_moist

integer flux_exchange_mod::id_rough_moist

private

id_rough_mom

integer flux_exchange_mod::id_rough_mom

private

id_rough_scale

integer flux_exchange_mod::id_rough_scale

private

id_sfcwind

integer flux_exchange_mod::id_sfcwind

private

id_t_atm

integer flux_exchange_mod::id_t_atm

private

id_t_ca

integer flux_exchange_mod::id_t_ca

private

id_t_flux

integer flux_exchange_mod::id_t_flux

private

id_t_ref

integer flux_exchange_mod::id_t_ref

private

id_t_surf

integer flux_exchange_mod::id_t_surf

private

id_tas

integer flux_exchange_mod::id_tas

private

id_tauu

integer flux_exchange_mod::id_tauu

private

id_tauv

integer flux_exchange_mod::id_tauv

private

id_thv_atm

integer flux_exchange_mod::id_thv_atm

private

id_thv_surf

integer flux_exchange_mod::id_thv_surf

private

id_ts

integer flux_exchange_mod::id_ts

private

id_u_atm

integer flux_exchange_mod::id_u_atm

private

id_u_flux

integer flux_exchange_mod::id_u_flux

private

id_u_ref

integer flux_exchange_mod::id_u_ref

private

id_u_star

integer flux_exchange_mod::id_u_star

private

id_uas

integer flux_exchange_mod::id_uas

private

id_v_atm

integer flux_exchange_mod::id_v_atm

private

id_v_flux

integer flux_exchange_mod::id_v_flux

private

id_v_ref

integer flux_exchange_mod::id_v_ref

private

id_vas

integer flux_exchange_mod::id_vas

private

id_wind

integer flux_exchange_mod::id_wind

private

id_z_atm

integer flux_exchange_mod::id_z_atm

private

ie

integer flux_exchange_mod::ie

private

is

integer flux_exchange_mod::is

private

isphum

integer flux_exchange_mod::isphum

private

je

integer flux_exchange_mod::je

private

js

integer flux_exchange_mod::js

private

mod_name

character(len=14), parameter flux_exchange_mod::mod_name = 'flux'

private

n_atm_tr

integer flux_exchange_mod::n_atm_tr

private

n_atm_tr_tot

integer flux_exchange_mod::n_atm_tr_tot

private

nblocks

integer flux_exchange_mod::nblocks = 1

private

ni_atm

integer flux_exchange_mod::ni_atm

private

nj_atm

integer flux_exchange_mod::nj_atm

private

to do atmos diagnostic from flux_ocean_to_ice

p_surf

real, dimension(:,:), allocatable flux_exchange_mod::p_surf

private

partition_fprec_from_lprec

logical flux_exchange_mod::partition_fprec_from_lprec = .FALSE.

private

option for ATM override experiments where liquid+frozen precip are combined. This option will convert liquid precip to snow when t_ref is less than tfreeze parameter

q_surf

real, dimension(:,:), allocatable flux_exchange_mod::q_surf

private

scale_precip_2d

logical flux_exchange_mod::scale_precip_2d = .false.

private

t_ca

real, dimension(:,:), allocatable flux_exchange_mod::t_ca

private

t_surf

real, dimension(:,:), allocatable flux_exchange_mod::t_surf

private

tag

character(len=128) flux_exchange_mod::tag = '$Name$'

private

tfreeze

real, parameter flux_exchange_mod::tfreeze = 273.15

private

u_star

real, dimension(:,:), allocatable flux_exchange_mod::u_star

private

use_existing_grid_spec

logical flux_exchange_mod::use_existing_grid_spec = .false.

private

used

logical flux_exchange_mod::used

private

version

character(len=128) flux_exchange_mod::version = '$Id$'

private

wind

real, dimension(:,:), allocatable flux_exchange_mod::wind

private

z_ref_heat

real flux_exchange_mod::z_ref_heat = 2.

private

Reference height (meters) for temperature and relative humidity diagnostics (t_ref, rh_ref, del_h, del_q)

z_ref_mom

real flux_exchange_mod::z_ref_mom = 10.

private

Reference height (meters) for mementum diagnostics (u_ref, v_ref, del_m)