lwb.F90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	lwb (KIDIA, KFDIA, KLON, KLEV, KMODE, PDT0, PTAVE, PTL, PB, PBINT, PBSUR, PBTOP, PDBSL, PGA, PGB, PGASUR, PGBSUR, PGATOP, PGBTOP)

Function/Subroutine Documentation

subroutine lwb	(	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)	KMODE,
		real(kind=jprb), dimension(klon), intent(in)	PDT0,
		real(kind=jprb), dimension(klon,klev), intent(in)	PTAVE,
		real(kind=jprb), dimension(klon,klev+1), intent(in)	PTL,
		real(kind=jprb), dimension(klon,nsil,klev+1), intent(out)	PB,
		real(kind=jprb), dimension(klon,klev+1), intent(out)	PBINT,
		real(kind=jprb), dimension(klon,nsil), intent(out)	PBSUR,
		real(kind=jprb), dimension(klon,nsil), intent(out)	PBTOP,
		real(kind=jprb), dimension(klon,nsil,klev*2), intent(out)	PDBSL,
		real(kind=jprb), dimension(klon,nipd,2,klev), intent(out)	PGA,
		real(kind=jprb), dimension(klon,nipd,2,klev), intent(out)	PGB,
		real(kind=jprb), dimension(klon,nipd,2), intent(out)	PGASUR,
		real(kind=jprb), dimension(klon,nipd,2), intent(out)	PGBSUR,
		real(kind=jprb), dimension(klon,nipd,2), intent(out)	PGATOP,
		real(kind=jprb), dimension(klon,nipd,2), intent(out)	PGBTOP
	)

Definition at line 7 of file lwb.F90.

Here is the call graph for this function:

Here is the caller graph for this function: