00001 module interface_sourceterm_MWspatial_current_WL
00002 implicit none
00003 interface
00004 subroutine sourceterm_MWspatial_current_WL(souvec)
00005 real(8), pointer :: souvec(:,:,:,:)
00006 end subroutine sourceterm_MWspatial_current_WL
00007 end interface
00008 end module interface_sourceterm_MWspatial_current_WL