compute_sl_sq Subroutine

public subroutine compute_sl_sq(field, sl, sq, zlevel, indexh, ztot)

Arguments

Type	Intent	Optional	Attributes		Name
real,	intent(in)			::	field(0:nxmax-1,0:nymax-1,ztot,numwfmem)
real,	intent(inout)			::	sl
real,	intent(inout)			::	sq
integer,	intent(in)			::	zlevel
integer,	intent(in)			::	indexh
integer,	intent(in)			::	ztot