rrtm_rrtm_140gp.F90 File Reference

#include "rrtm_ecrt_140gp.intfb.h"
#include "rrtm_gasabs1a_140gp.intfb.h"
#include "rrtm_rtrn1a_140gp.intfb.h"
#include "rrtm_setcoef_140gp.intfb.h"

Include dependency graph for rrtm_rrtm_140gp.F90:

Go to the source code of this file.

Functions/Subroutines
subroutine	rrtm_rrtm_140gp (KIDIA, KFDIA, KLON, KLEV, PAER, PAPH, PAP, PTS, PTH, PT, P_ZEMIS, P_ZEMIW, PQ, PCCO2, POZN, PCLDF, PTAUCLD, PTAU_LW, PEMIT, PFLUX, PFLUC, PTCLEAR)

Function/Subroutine Documentation

subroutine rrtm_rrtm_140gp	(	integer(kind=jpim), intent(in)	KIDIA,
		integer(kind=jpim), intent(in)	KFDIA,
		integer(kind=jpim), intent(in)	KLON,
		integer(kind=jpim), intent(in)	KLEV,
		real(kind=jprb), dimension(klon,6,klev), intent(in)	PAER,
		real(kind=jprb), dimension(klon,klev+1), intent(in)	PAPH,
		real(kind=jprb), dimension(klon,klev), intent(in)	PAP,
		real(kind=jprb), dimension(klon), intent(in)	PTS,
		real(kind=jprb), dimension(klon,klev+1), intent(in)	PTH,
		real(kind=jprb), dimension(klon,klev), intent(in)	PT,
		real(kind=jprb), dimension(klon), intent(in)	P_ZEMIS,
		real(kind=jprb), dimension(klon), intent(in)	P_ZEMIW,
		real(kind=jprb), dimension(klon,klev), intent(in)	PQ,
		real(kind=jprb), intent(in)	PCCO2,
		real(kind=jprb), dimension(klon,klev), intent(in)	POZN,
		real(kind=jprb), dimension(klon,klev), intent(in)	PCLDF,
		real(kind=jprb), dimension(klon,klev,jpband), intent(in)	PTAUCLD,
		real(kind=jprb), dimension(klon,klev,nlw), intent(in)	PTAU_LW,
		real(kind=jprb), dimension(klon), intent(out)	PEMIT,
		real(kind=jprb), dimension(klon,2,klev+1), intent(out)	PFLUX,
		real(kind=jprb), dimension(klon,2,klev+1), intent(out)	PFLUC,
		real(kind=jprb), dimension(klon), intent(out)	PTCLEAR
	)

Definition at line 45 of file rrtm_rrtm_140gp.F90.

Here is the call graph for this function:

Here is the caller graph for this function: