◆ getgases()

subroutine, public module_radiation_gases::getgases	(	real (kind=kind_phys), dimension(:,:), intent(in)	plvl,
		real (kind=kind_phys), dimension(:), intent(in)	xlon,
		real (kind=kind_phys), dimension(:), intent(in)	xlat,
		integer, intent(in)	imax,
		integer, intent(in)	lmax,
		integer, intent(in)	ico2flg,
		logical, intent(in)	top_at_1,
		real(kind=kind_phys), intent(in)	con_pi,
		real (kind=kind_phys), dimension(:,:,:), intent(out)	gasdat )

Parameters

plvl	(IMAX,LMAX+1), pressure at model layer interfaces (mb)
xlon	(IMAX), grid longitude in radians, ok both 0->2pi or -pi -> +pi arrangements
xlat	(IMAX), grid latitude in radians, default range to pi/2 -> -pi/2, otherwise see in-line comment
IMAX	horizontal dimension for output data
LMAX	vertical dimension for output data
ico2flg	(1), co2 data source control flag
top_at_1	(1), vertical ordering flag
con_pi	(1), physical constant Pi
gasdat	(IMAX,LMAX,NF_VGAS) - gases volume mixing ratioes (:,:,1) - co2 (:,:,2) - n2o (:,:,3) - ch4 (:,:,4) - o2 (:,:,5) - co (:,:,6) - cfc11 (:,:,7) - cfc12 (:,:,8) - cfc22 (:,:,9) - ccl4 (:,:,10) - cfc113 Internal module variables : co2vmr_sav - saved monthly co2 concentration from sub gas_update co2_glb - saved global annual mean co2 value from gas_update gco2cyc - saved global seasonal variation of co2 climatology in 12-month form

getgases General Algorithm

Definition at line 810 of file radiation_gases.f.