rrtm_gasabs1a_140gp.F90 File Reference

#include "rrtm_taumol1.intfb.h"
#include "rrtm_taumol10.intfb.h"
#include "rrtm_taumol11.intfb.h"
#include "rrtm_taumol12.intfb.h"
#include "rrtm_taumol13.intfb.h"
#include "rrtm_taumol14.intfb.h"
#include "rrtm_taumol15.intfb.h"
#include "rrtm_taumol16.intfb.h"
#include "rrtm_taumol2.intfb.h"
#include "rrtm_taumol3.intfb.h"
#include "rrtm_taumol4.intfb.h"
#include "rrtm_taumol5.intfb.h"
#include "rrtm_taumol6.intfb.h"
#include "rrtm_taumol7.intfb.h"
#include "rrtm_taumol8.intfb.h"
#include "rrtm_taumol9.intfb.h"

Include dependency graph for rrtm_gasabs1a_140gp.F90:

Go to the source code of this file.

Functions/Subroutines
subroutine	rrtm_gasabs1a_140gp (KLEV, P_ATR1, P_OD, P_TF1, P_COLDRY, P_WX, P_TAUAERL, P_FAC00, P_FAC01, P_FAC10, P_FAC11, P_FORFAC, K_JP, K_JT, K_JT1, P_ONEMINUS, P_COLH2O, P_COLCO2, P_COLO3, P_COLN2O, P_COLCH4, P_COLO2, P_CO2MULT, K_LAYTROP, K_LAYSWTCH, K_LAYLOW, P_SELFFAC, P_SELFFRAC, K_INDSELF, PFRAC)

Function/Subroutine Documentation

subroutine rrtm_gasabs1a_140gp	(	integer(kind=jpim), intent(in)	KLEV,
		real(kind=jprb), dimension(jpgpt,jplay), intent(out)	P_ATR1,
		real(kind=jprb), dimension(jpgpt,jplay), intent(out)	P_OD,
		real(kind=jprb), dimension(jpgpt,jplay), intent(out)	P_TF1,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLDRY,
		real(kind=jprb), dimension(jpxsec,jplay), intent(in)	P_WX,
		real(kind=jprb), dimension(jplay,jpband), intent(in)	P_TAUAERL,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC00,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC01,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC10,
		real(kind=jprb), dimension(jplay), intent(in)	P_FAC11,
		real(kind=jprb), dimension(jplay), intent(in)	P_FORFAC,
		integer(kind=jpim), dimension(jplay), intent(in)	K_JP,
		integer(kind=jpim), dimension(jplay), intent(in)	K_JT,
		integer(kind=jpim), dimension(jplay), intent(in)	K_JT1,
		real(kind=jprb), intent(in)	P_ONEMINUS,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLH2O,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLCO2,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLO3,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLN2O,
		real(kind=jprb), dimension(jplay), intent(in)	P_COLCH4,
		real(kind=jprb), dimension(jplay)	P_COLO2,
		real(kind=jprb), dimension(jplay), intent(in)	P_CO2MULT,
		integer(kind=jpim), intent(in)	K_LAYTROP,
		integer(kind=jpim), intent(in)	K_LAYSWTCH,
		integer(kind=jpim), intent(in)	K_LAYLOW,
		real(kind=jprb), dimension(jplay), intent(in)	P_SELFFAC,
		real(kind=jprb), dimension(jplay), intent(in)	P_SELFFRAC,
		integer(kind=jpim), dimension(jplay), intent(in)	K_INDSELF,
		real(kind=jprb), dimension(jpgpt,jplay), intent(out)	PFRAC
	)

Definition at line 5 of file rrtm_gasabs1a_140gp.F90.

Here is the call graph for this function:

Here is the caller graph for this function: