INTERFACE:
subroutine CNSetCps(num, filter, val, cps)DESCRIPTION:
Set column physical state variables
ARGUMENTS:
implicit none integer , intent(in) :: num integer , intent(in) :: filter(:) real(r8), intent(in) :: val type (column_pstate_type), intent(inout) :: cpsREVISION HISTORY:
Created by Peter ThorntonLOCAL VARIABLES:
local pointers to implicit in/out arrays !OTHER LOCAL VARIABLES: integer :: fi,i,j ! loop index