mod_modis_sim – Fortran Program

Uses

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Functions

cloud_top_pressure weight_by_extinction interpolate_to_min get_g_nir_old get_ssa_nir_old get_g_nir get_ssa_nir fit_to_cubic fit_to_quadratic compute_toa_reflectace two_stream_reflectance

Subroutines

modis_subcolumn modis_column two_stream adding_doubling

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	num_trial_res	=	15
real(kind=wp),	public		::	min_OpticalThickness
real(kind=wp),	public		::	CO2Slicing_PressureLimit
real(kind=wp),	public		::	CO2Slicing_TauLimit
real(kind=wp),	public		::	phase_TauLimit
real(kind=wp),	public		::	size_TauLimit
real(kind=wp),	public		::	phaseDiscrimination_Threshold
real(kind=wp),	public		::	re_fill
real(kind=wp),	public		::	re_water_min
real(kind=wp),	public		::	re_water_max
real(kind=wp),	public		::	re_ice_min
real(kind=wp),	public		::	re_ice_max
real(kind=wp),	public		::	highCloudPressureLimit
real(kind=wp),	public		::	lowCloudPressureLimit
integer,	public		::	phaseIsNone
integer,	public		::	phaseIsLiquid
integer,	public		::	phaseIsIce
integer,	public		::	phaseIsUndetermined
real(kind=wp),	public,	dimension(num_trial_res)	::	trial_re_w
real(kind=wp),	public,	dimension(num_trial_res)	::	trial_re_i
real(kind=wp),	public,	dimension(num_trial_res)	::	g_w
real(kind=wp),	public,	dimension(num_trial_res)	::	g_i
real(kind=wp),	public,	dimension(num_trial_res)	::	w0_w
real(kind=wp),	public,	dimension(num_trial_res)	::	w0_i
real(kind=wp),	public,	parameter	::	ice_density	=	0.93_wp

Functions

public function cloud_top_pressure(nLevels, tauIncrement, pressure, tauLimit)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	nLevels
real(kind=wp),	intent(in),	dimension(nLevels)	::	tauIncrement
real(kind=wp),	intent(in),	dimension(nLevels)	::	pressure
real(kind=wp),	intent(in)		::	tauLimit

Return Value real(kind=wp)

public function weight_by_extinction(nLevels, tauIncrement, f, tauLimit)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	nLevels
real(kind=wp),	intent(in),	dimension(nLevels)	::	tauIncrement
real(kind=wp),	intent(in),	dimension(nLevels)	::	f
real(kind=wp),	intent(in)		::	tauLimit

Return Value real(kind=wp)

publicpure function interpolate_to_min(x, y, yobs)

Arguments

Type	Intent	Attributes		Name
real(kind=wp),	intent(in),	dimension(num_trial_res)	::	x
real(kind=wp),	intent(in),	dimension(num_trial_res)	::	y
real(kind=wp),	intent(in)		::	yobs

Return Value real(kind=wp)

publicelemental function get_g_nir_old(phase, re)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	phase
real(kind=wp),	intent(in)			::	re

Return Value real(kind=wp)

publicelemental function get_ssa_nir_old(phase, re)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	phase
real(kind=wp),	intent(in)			::	re

Return Value real(kind=wp)

publicelemental function get_g_nir(phase, re)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	phase
real(kind=wp),	intent(in)			::	re

Return Value real(kind=wp)

publicelemental function get_ssa_nir(phase, re)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	phase
real(kind=wp),	intent(in)			::	re

Return Value real(kind=wp)

publicpure function fit_to_cubic(x, coefficients)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	x
real(kind=wp),	intent(in),		dimension(4)	::	coefficients

Return Value real(kind=wp)

publicpure function fit_to_quadratic(x, coefficients)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	x
real(kind=wp),	intent(in),		dimension(3)	::	coefficients

Return Value real(kind=wp)

publicpure function compute_toa_reflectace(nLevels, tau, g, w0)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	nLevels
real(kind=wp),	intent(in),	dimension(nLevels)	::	tau
real(kind=wp),	intent(in),	dimension(nLevels)	::	g
real(kind=wp),	intent(in),	dimension(nLevels)	::	w0

Return Value real(kind=wp)

publicelemental function two_stream_reflectance(tauint, gint, w0int)

Arguments

Type	Intent		Name
real(kind=wp),	intent(in)	::	tauint
real(kind=wp),	intent(in)	::	gint
real(kind=wp),	intent(in)	::	w0int

Return Value real(kind=wp)

Subroutines

public subroutine modis_subcolumn(nSubCols, nLevels, pressureLevels, optical_thickness, tauLiquidFraction, g, w0, isccpCloudTopPressure, retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	nSubCols
integer,	intent(in)		::	nLevels
real(kind=wp),	intent(in),	dimension(nLevels+1)	::	pressureLevels
real(kind=wp),	intent(in),	dimension(nSubCols,nLevels)	::	optical_thickness
real(kind=wp),	intent(in),	dimension(nSubCols,nLevels)	::	tauLiquidFraction
real(kind=wp),	intent(in),	dimension(nSubCols,nLevels)	::	g
real(kind=wp),	intent(in),	dimension(nSubCols,nLevels)	::	w0
real(kind=wp),	intent(in),	dimension(nSubCols)	::	isccpCloudTopPressure
integer,	intent(inout),	dimension(nSubCols)	::	retrievedPhase
real(kind=wp),	intent(inout),	dimension(nSubCols)	::	retrievedCloudTopPressure
real(kind=wp),	intent(inout),	dimension(nSubCols)	::	retrievedTau
real(kind=wp),	intent(inout),	dimension(nSubCols)	::	retrievedSize

public subroutine modis_column(nPoints, nSubCols, phase, cloud_top_pressure, optical_thickness, particle_size, Cloud_Fraction_Total_Mean, Cloud_Fraction_Water_Mean, Cloud_Fraction_Ice_Mean, Cloud_Fraction_High_Mean, Cloud_Fraction_Mid_Mean, Cloud_Fraction_Low_Mean, Optical_Thickness_Total_Mean, Optical_Thickness_Water_Mean, Optical_Thickness_Ice_Mean, Optical_Thickness_Total_MeanLog10, Optical_Thickness_Water_MeanLog10, Optical_Thickness_Ice_MeanLog10, Cloud_Particle_Size_Water_Mean, Cloud_Particle_Size_Ice_Mean, Cloud_Top_Pressure_Total_Mean, Liquid_Water_Path_Mean, Ice_Water_Path_Mean, Optical_Thickness_vs_Cloud_Top_Pressure, Optical_Thickness_vs_ReffIce, Optical_Thickness_vs_ReffLiq)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	nPoints
integer,	intent(in)		::	nSubCols
integer,	intent(in),	dimension(nPoints, nSubCols)	::	phase
real(kind=wp),	intent(in),	dimension(nPoints, nSubCols)	::	cloud_top_pressure
real(kind=wp),	intent(in),	dimension(nPoints, nSubCols)	::	optical_thickness
real(kind=wp),	intent(in),	dimension(nPoints, nSubCols)	::	particle_size
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Fraction_Total_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Fraction_Water_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Fraction_Ice_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Fraction_High_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Fraction_Mid_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Fraction_Low_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Optical_Thickness_Total_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Optical_Thickness_Water_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Optical_Thickness_Ice_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Optical_Thickness_Total_MeanLog10
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Optical_Thickness_Water_MeanLog10
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Optical_Thickness_Ice_MeanLog10
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Particle_Size_Water_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Particle_Size_Ice_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Cloud_Top_Pressure_Total_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Liquid_Water_Path_Mean
real(kind=wp),	intent(inout),	dimension(nPoints)	::	Ice_Water_Path_Mean
real(kind=wp),	intent(inout),	dimension(nPoints,numMODISTauBins,numMODISPresBins)	::	Optical_Thickness_vs_Cloud_Top_Pressure
real(kind=wp),	intent(inout),	dimension(nPoints,numMODISTauBins,numMODISReffIceBins)	::	Optical_Thickness_vs_ReffIce
real(kind=wp),	intent(inout),	dimension(nPoints,numMODISTauBins,numMODISReffLiqBins)	::	Optical_Thickness_vs_ReffLiq

publicpure subroutine two_stream(tauint, gint, w0int, ref, tra)

Arguments

Type	Intent		Name
real(kind=wp),	intent(in)	::	tauint
real(kind=wp),	intent(in)	::	gint
real(kind=wp),	intent(in)	::	w0int
real(kind=wp),	intent(out)	::	ref
real(kind=wp),	intent(out)	::	tra

publicpure subroutine adding_doubling(npts, Refl, Tran, Refl_tot, Tran_tot)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	npts
real(kind=wp),	intent(in),	dimension(npts)	::	Refl
real(kind=wp),	intent(in),	dimension(npts)	::	Tran
real(kind=wp),	intent(out)		::	Refl_tot
real(kind=wp),	intent(out)		::	Tran_tot

mod_modis_sim Module

Contents

Variables

Functions

Subroutines

Uses

Contents

Variables

Functions

Subroutines

Variables

Functions

public function cloud_top_pressure(nLevels, tauIncrement, pressure, tauLimit)

Arguments

Return Value real(kind=wp)

public function weight_by_extinction(nLevels, tauIncrement, f, tauLimit)

Arguments

Return Value real(kind=wp)

publicpure function interpolate_to_min(x, y, yobs)

Arguments

Return Value real(kind=wp)

publicelemental function get_g_nir_old(phase, re)

Arguments

Return Value real(kind=wp)

publicelemental function get_ssa_nir_old(phase, re)

Arguments

Return Value real(kind=wp)

publicelemental function get_g_nir(phase, re)

Arguments

Return Value real(kind=wp)

publicelemental function get_ssa_nir(phase, re)

Arguments

Return Value real(kind=wp)

publicpure function fit_to_cubic(x, coefficients)

Arguments

Return Value real(kind=wp)

publicpure function fit_to_quadratic(x, coefficients)

Arguments

Return Value real(kind=wp)

publicpure function compute_toa_reflectace(nLevels, tau, g, w0)

Arguments

Return Value real(kind=wp)

publicelemental function two_stream_reflectance(tauint, gint, w0int)

Arguments

Return Value real(kind=wp)

Subroutines

public subroutine modis_subcolumn(nSubCols, nLevels, pressureLevels, optical_thickness, tauLiquidFraction, g, w0, isccpCloudTopPressure, retrievedPhase, retrievedCloudTopPressure, retrievedTau, retrievedSize)

Arguments

Arguments

publicpure subroutine two_stream(tauint, gint, w0int, ref, tra)

Arguments

publicpure subroutine adding_doubling(npts, Refl, Tran, Refl_tot, Tran_tot)

Arguments