sw1s.F90 File Reference

#include "swclr.intfb.h"
#include "swr.intfb.h"
#include "swtt1.intfb.h"
#include "swuvo3.intfb.h"

Include dependency graph for sw1s.F90:

Go to the source code of this file.

Functions/Subroutines
subroutine	sw1s (KIDIA, KFDIA, KLON, KLEV, KAER, KNU, PAER, PALBD, PALBP, PCG, PCLD, PCLEAR, PDSIG, POMEGA, POZ, PRMU, PSEC, PTAU, PUD, PFD, PFU, PCD, PCU, PSUDU1, PDIFF, PDIRF,

Function/Subroutine Documentation

subroutine sw1s	(	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,
		integer(kind=jpim), intent(in)	KNU,
		real(kind=jprb), dimension(klon,6,klev), intent(in)	PAER,
		real(kind=jprb), dimension(klon,nsw), intent(in)	PALBD,
		real(kind=jprb), dimension(klon,nsw), intent(in)	PALBP,
		real(kind=jprb), dimension(klon,nsw,klev), intent(in)	PCG,
		real(kind=jprb), dimension(klon,klev), intent(in)	PCLD,
		real(kind=jprb), dimension(klon), intent(in)	PCLEAR,
		real(kind=jprb), dimension(klon,klev), intent(in)	PDSIG,
		real(kind=jprb), dimension(klon,nsw,klev), intent(in)	POMEGA,
		real(kind=jprb), dimension(klon,klev), intent(in)	POZ,
		real(kind=jprb), dimension(klon), intent(in)	PRMU,
		real(kind=jprb), dimension(klon), intent(in)	PSEC,
		real(kind=jprb), dimension(klon,nsw,klev), intent(in)	PTAU,
		real(kind=jprb), dimension(klon,5,klev+1), intent(in)	PUD,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PFD,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PFU,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PCD,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PCU,
		real(kind=jprb), dimension(klon), intent(out)	PSUDU1,
		real(kind=jprb), dimension(klon,klev), intent(out)	PDIFF,
		real(kind=jprb), dimension(klon,klev), intent(out)	PDIRF
	)

Definition at line 7 of file sw1s.F90.

Here is the call graph for this function:

Here is the caller graph for this function: