source_ss()

subroutine seas_mod::source_ss ( integer, intent(in) imx, integer, intent(in) jmx, integer, intent(in) lmx, integer, intent(in) nmx, real(kind=kind_phys) dt1, real(kind=kind_phys), dimension(imx,jmx,lmx,nmx), intent(inout) tc, real(kind=kind_phys), intent(in) pi, integer, dimension(imx,jmx), intent(in) ilwi, real(kind=kind_phys), dimension(jmx), intent(in) dxy, real(kind=kind_phys), dimension(imx,jmx), intent(in) w10m, real(kind=kind_phys), dimension(imx,jmx,lmx), intent(in) airmas, real(kind=kind_phys), dimension(imx,jmx,nmx), intent(out) bems, integer, intent(in) ipr )

private