sw.F90 File Reference

#include "sw1s.intfb.h"
#include "swni.intfb.h"
#include "swu.intfb.h"

Include dependency graph for sw.F90:

Go to the source code of this file.

Functions/Subroutines
subroutine	sw (KIDIA, KFDIA, KLON, KLEV, KAER, PSCT, PCARDI, PPSOL, PALBD, PALBP, PWV, PQS, PRMU0, PCG, PCLDSW, PDP, POMEGA, POZ, PPMB, PTAU, PTAVE, PAER, PFDOWN, PFUP, PCDOWN, PCUP, PFDNN, PFDNV, PFUPN, PFUPV, PCDNN, PCDNV, PCUPN, PCUPV, PSUDU, PUVDF, PPARF, PPARCF, PDIFFS, PDIRFS, LRDUST, PPIZA_DST, PCGA_DST, PTAUREL_DST)

Function/Subroutine Documentation

subroutine sw	(	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)	KAER,
		real(kind=jprb), intent(in)	PSCT,
		real(kind=jprb), intent(in)	PCARDI,
		real(kind=jprb), dimension(klon), intent(in)	PPSOL,
		real(kind=jprb), dimension(klon,nsw), intent(in)	PALBD,
		real(kind=jprb), dimension(klon,nsw), intent(in)	PALBP,
		real(kind=jprb), dimension(klon,klev), intent(in)	PWV,
		real(kind=jprb), dimension(klon,klev), intent(in)	PQS,
		real(kind=jprb), dimension(klon), intent(in)	PRMU0,
		real(kind=jprb), dimension(klon,nsw,klev), intent(in)	PCG,
		real(kind=jprb), dimension(klon,klev), intent(in)	PCLDSW,
		real(kind=jprb), dimension(klon,klev)	PDP,
		real(kind=jprb), dimension(klon,nsw,klev), intent(in)	POMEGA,
		real(kind=jprb), dimension(klon,klev), intent(in)	POZ,
		real(kind=jprb), dimension(klon,klev+1), intent(in)	PPMB,
		real(kind=jprb), dimension(klon,nsw,klev), intent(in)	PTAU,
		real(kind=jprb), dimension(klon,klev), intent(in)	PTAVE,
		real(kind=jprb), dimension(klon,6,klev), intent(in)	PAER,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PFDOWN,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PFUP,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PCDOWN,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PCUP,
		real(kind=jprb), dimension(klon), intent(out)	PFDNN,
		real(kind=jprb), dimension(klon), intent(out)	PFDNV,
		real(kind=jprb), dimension(klon), intent(out)	PFUPN,
		real(kind=jprb), dimension(klon), intent(out)	PFUPV,
		real(kind=jprb), dimension(klon), intent(out)	PCDNN,
		real(kind=jprb), dimension(klon), intent(out)	PCDNV,
		real(kind=jprb), dimension(klon), intent(out)	PCUPN,
		real(kind=jprb), dimension(klon), intent(out)	PCUPV,
		real(kind=jprb), dimension(klon), intent(out)	PSUDU,
		real(kind=jprb), dimension(klon), intent(out)	PUVDF,
		real(kind=jprb), dimension(klon), intent(out)	PPARF,
		real(kind=jprb), dimension(klon), intent(out)	PPARCF,
		real(kind=jprb), dimension(klon,nsw), intent(out)	PDIFFS,
		real(kind=jprb), dimension(klon,nsw), intent(out)	PDIRFS,
		logical, intent(in)	LRDUST,
		real(kind=jprb), dimension(klon,klev,nsw), intent(in)	PPIZA_DST,
		real(kind=jprb), dimension(klon,klev,nsw), intent(in)	PCGA_DST,
		real(kind=jprb), dimension(klon,klev,nsw), intent(in)	PTAUREL_DST
	)

Definition at line 13 of file sw.F90.

Here is the call graph for this function:

Here is the caller graph for this function: