gas_init()

subroutine, public module_radiation_gases::gas_init	(	type(mpi_comm), intent(in)	mpicomm,
		integer, intent(in)	mpirank,
		integer, intent(in)	mpiroot,
		character(len=26), intent(in)	co2usr_file,
		character(len=26), intent(in)	co2cyc_file,
		integer, intent(in)	ico2flg,
		integer, intent(in)	ictmflg,
		real(kind=kind_phys), intent(in)	con_pi,
		integer, intent(out)	errflg,
		character(len=*), intent(out)	errmsg
	)

Parameters

me	print message control flag
co2usr_file	co2 user defined data table
co2cyc_file	co2 climotology monthly cycle data table
ictmflg	data ic time/date control flag
ico2flg	co2 data source control flag
con_pi	physical constant Pi
errflg	error flag
errmsg	error message

gas_init General Algorithm

References co2_glb, co2cyc_sav, co2vmr_def, co2vmr_sav, gco2cyc, hfpi, imxco2, jmxco2, kmonsav, kyrsav, and raddeg.

Referenced by gfs_rrtmg_setup::gfs_rrtmg_setup_init(), and gfs_rrtmgp_setup::gfs_rrtmgp_setup_init().

Here is the caller graph for this function: