INTERFACE
subroutine mwave_diags (&
 & klev,&
 & ksat,&
 & yd_mwave_phys,&
 & pdiag ) 
use parkind1, only: jpim, jprb
use yommwave, only: mwave_phys_type
use parmwave, only: imwave_rain_sfc, imwave_snow_sfc,&
 & imwave_tcwv, imwave_tclw, imwave_tciw, imwave_rwp, imwave_swp,&
 & nmwave_diag 
integer (kind=jpim), intent (in) :: klev, ksat
type (mwave_phys_type), intent (in) :: yd_mwave_phys
real (kind=jprb), intent (inout) :: pdiag(nmwave_diag)
end subroutine mwave_diags
END INTERFACE
