srtm_srtm_224gp_mcica.F90 File Reference

#include "srtm_setcoef.intfb.h"
#include "srtm_spcvrt_mcica.intfb.h"

Include dependency graph for srtm_srtm_224gp_mcica.F90:

Go to the source code of this file.

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

Function/Subroutine Documentation

subroutine srtm_srtm_224gp_mcica	(	integer(kind=jpim), intent(in)	KIDIA,
		integer(kind=jpim), intent(in)	KFDIA,
		integer(kind=jpim), intent(in)	KLON,
		integer(kind=jpim), intent(in)	KLEV,
		integer(kind=jpim), intent(in)	KSW,
		integer(kind=jpim), intent(in)	KCOLS,
		integer(kind=jpim), dimension(kcols), intent(in)	KCLDLY,
		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,kcols,klev), intent(in)	PFRCL,
		real(kind=jprb), dimension(klon,kcols,klev), intent(in)	PTAUC,
		real(kind=jprb), dimension(klon,kcols,klev), intent(in)	PASYC,
		real(kind=jprb), dimension(klon,kcols,klev), intent(in)	POMGC,
		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 9 of file srtm_srtm_224gp_mcica.F90.

Here is the call graph for this function: