lwv.F90 File Reference

#include "lwvb.intfb.h"
#include "lwvd.intfb.h"
#include "lwvn.intfb.h"

Include dependency graph for lwv.F90:

Go to the source code of this file.

Functions/Subroutines
subroutine	lwv (KIDIA, KFDIA, KLON, KLEV, KUAER, KTRAER, PABCU, PB, PBINT, PBSUR, PBTOP, PDBSL, PEMIS, PEMIW, PGA, PGB, PGASUR, PGBSUR, PGATOP, PGBTOP, PCNTRB, PFLUC)

Function/Subroutine Documentation

subroutine lwv	(	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)	KUAER,
		integer(kind=jpim), intent(in)	KTRAER,
		real(kind=jprb), dimension(klon,nua,3*klev+1), intent(in)	PABCU,
		real(kind=jprb), dimension(klon,nsil,klev+1), intent(in)	PB,
		real(kind=jprb), dimension(klon,klev+1), intent(in)	PBINT,
		real(kind=jprb), dimension(klon,nsil), intent(in)	PBSUR,
		real(kind=jprb), dimension(klon,nsil), intent(in)	PBTOP,
		real(kind=jprb), dimension(klon,nsil,klev*2), intent(in)	PDBSL,
		real(kind=jprb), dimension(klon), intent(in)	PEMIS,
		real(kind=jprb), dimension(klon), intent(in)	PEMIW,
		real(kind=jprb), dimension(klon,nipd,2,klev), intent(in)	PGA,
		real(kind=jprb), dimension(klon,nipd,2,klev), intent(in)	PGB,
		real(kind=jprb), dimension(klon,nipd,2), intent(in)	PGASUR,
		real(kind=jprb), dimension(klon,nipd,2), intent(in)	PGBSUR,
		real(kind=jprb), dimension(klon,nipd,2), intent(in)	PGATOP,
		real(kind=jprb), dimension(klon,nipd,2), intent(in)	PGBTOP,
		real(kind=jprb), dimension(klon,klev+1,klev+1), intent(out)	PCNTRB,
		real(kind=jprb), dimension(klon,2,klev+1), intent(out)	PFLUC
	)

Definition at line 8 of file lwv.F90.

Here is the call graph for this function:

Here is the caller graph for this function: