srtm_srtm_224gp.F90 File Reference

#include "clesphys.h"
#include "srtm_setcoef.intfb.h"
#include "srtm_spcvrt.intfb.h"

Include dependency graph for srtm_srtm_224gp.F90:

Go to the source code of this file.

Functions/Subroutines
subroutine	srtm_srtm_224gp (KIDIA, KFDIA, KLON, KLEV, KSW, KOVLP, PAER, PALBD, PALBP, PAPH, PAP, PTS, PTH, PT, PQ, PCCO2, POZN, PRMU0, PFRCL, PTAUC, PASYC, POMGC, PALBT, PFSUX, PFSUC)

Function/Subroutine Documentation

subroutine srtm_srtm_224gp	(	integer(kind=jpim), intent(in)	KIDIA,
		integer(kind=jpim), intent(in)	KFDIA,
		integer(kind=jpim), intent(in)	KLON,
		integer(kind=jpim)	KLEV,
		integer(kind=jpim)	KSW,
		integer(kind=jpim), intent(in)	KOVLP,
		real(kind=jprb), dimension(klon,6,klev), intent(in)	PAER,
		real(kind=jprb), dimension(klon,ksw), intent(in)	PALBD,
		real(kind=jprb), dimension(klon,ksw), intent(in)	PALBP,
		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,klev), intent(in)	PQ,
		real(kind=jprb), intent(in)	PCCO2,
		real(kind=jprb), dimension(klon,klev), intent(in)	POZN,
		real(kind=jprb), dimension(klon), intent(in)	PRMU0,
		real(kind=jprb), dimension(klon,klev), intent(in)	PFRCL,
		real(kind=jprb), dimension(klon,ksw,klev), intent(in)	PTAUC,
		real(kind=jprb), dimension(klon,ksw,klev), intent(in)	PASYC,
		real(kind=jprb), dimension(klon,ksw,klev), intent(in)	POMGC,
		real(kind=jprb), dimension(klon,ksw)	PALBT,
		real(kind=jprb), dimension(klon,2,klev+1), intent(out)	PFSUX,
		real(kind=jprb), dimension(klon,2,klev+1), intent(out)	PFSUC
	)

Definition at line 12 of file srtm_srtm_224gp.F90.

Here is the call graph for this function: