ozphys_2015_run()

subroutine ozphys_2015::ozphys_2015_run	(	integer, intent(in)	im,
		integer, intent(in)	levs,
		integer, intent(in)	ko3,
		real(kind=kind_phys), intent(in)	dt,
		real(kind=kind_phys), dimension(im,levs), intent(inout)	oz,
		real(kind=kind_phys), dimension(:,:), intent(in)	tin,
		real(kind=kind_phys), dimension(:), intent(in)	po3,
		real(kind=kind_phys), dimension(:,:), intent(in)	prsl,
		real(kind=kind_phys), dimension(:,:,:), intent(in)	prdout,
		integer, intent(in)	pl_coeff,
		real(kind=kind_phys), dimension(:,:), intent(in)	delp,
		logical	ldiag3d,
		real(kind=kind_phys), dimension(:,:,:), intent(inout)	dtend,
		integer, dimension(:,:), intent(in)	dtidx,
		integer, intent(in)	ntoz,
		integer, intent(in)	index_of_process_prod_loss,
		integer, intent(in)	index_of_process_ozmix,
		integer, intent(in)	index_of_process_temp,
		integer, intent(in)	index_of_process_overhead_ozone,
		real(kind=kind_phys), intent(in)	con_g,
		integer, intent(in)	me,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg
	)

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent
im	horizontal_loop_extent	horizontal loop extent	count	integer	()		in
levs	vertical_layer_dimension	number of vertical layers	count	integer	()		in
ko3	vertical_dimension_of_ozone_forcing_data	number of vertical layers in ozone forcing data	count	integer	()		in
dt	timestep_for_physics	physics time step	s	real	()	kind_phys	in
oz	ozone_concentration_of_new_state	ozone concentration updated by physics	kg kg-1	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	inout
tin	air_temperature_of_new_state	updated air temperature	K	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
po3	natural_log_of_ozone_forcing_data_pressure_levels	natural log of ozone forcing data pressure levels	1	real	(ccpp_constant_one:vertical_dimension_of_ozone_forcing_data)	kind_phys	in
prsl	air_pressure	mid-layer pressure	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
prdout	ozone_forcing	ozone forcing data	mixed	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_dimension_of_ozone_forcing_data, ccpp_constant_one:number_of_coefficients_in_ozone_forcing_data)	kind_phys	in
pl_coeff	number_of_coefficients_in_ozone_forcing_data	number of coefficients in ozone forcing data	index	integer	()		in
delp	air_pressure_difference_between_midlayers	difference between mid-layer pressures	Pa	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension)	kind_phys	in
ldiag3d	flag_for_diagnostics_3d	flag for calculating 3-D diagnostic fields	flag	logical	()		in
dtend	cumulative_change_of_state_variables	diagnostic tendencies for state variables	mixed	real	(ccpp_constant_one:horizontal_loop_extent, ccpp_constant_one:vertical_layer_dimension, ccpp_constant_one:cumulative_change_of_state_variables_outer_index_max)	kind_phys	inout
dtidx	cumulative_change_of_state_variables_outer_index	index of state-variable and process in last dimension of diagnostic tendencies array AKA cumulative_change_index	index	integer	(ccpp_constant_one:number_of_tracers_plus_one_hundred, ccpp_constant_one:number_of_cumulative_change_processes)		in
ntoz	index_of_ozone_mixing_ratio_in_tracer_concentration_array	tracer index for ozone mixing ratio	index	integer	()		in
index_of_process_prod_loss	index_of_production_and_loss_process_in_cumulative_change_index	index of production and loss effect in photochemistry process in second dimension of array cumulative change index	index	integer	()		in
index_of_process_ozmix	index_of_ozone_mixing_ratio_process_in_cumulative_change_index	index of ozone mixing ratio effect in photochemistry process in second dimension of array cumulative change index	index	integer	()		in
index_of_process_temp	index_of_temperature_process_in_cumulative_change_index	index of temperature effect in photochemistry process in second dimension of array cumulative change index	index	integer	()		in
index_of_process_overhead_ozone	index_of_overhead_process_in_cumulative_change_index	index of overhead ozone effect in photochemistry process in second dimension of array cumulative change index	index	integer	()		in
con_g	gravitational_acceleration	gravitational acceleration	m s-2	real	()	kind_phys	in
me	mpi_rank	rank of the current MPI task	index	integer	()		in
errmsg	ccpp_error_message	error message for error handling in CCPP	none	character	()	len=*	out
errflg	ccpp_error_code	error code for error handling in CCPP	1	integer	()		out

GFS ozphys_2015_run General Algorithm

• This code assumes that both prsl and po3 are from bottom to top as are all other variables.
• This code is specifically for NRL parameterization and climatological T and O3 are in location 5 and 6 of prdout array

  Author

  June 2015 - Shrinivas Moorthi