modis_column Subroutine

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	Optional	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

Contents