00001 module interface_sourceterm_surface_int 00002 implicit none 00003 interface 00004 subroutine sourceterm_surface_int(fnc,irg,sou_surf,dsou_surf) 00005 real(8), pointer :: fnc(:,:,:), sou_surf(:,:), dsou_surf(:,:) 00006 integer :: irg 00007 end subroutine sourceterm_surface_int 00008 end interface 00009 end module interface_sourceterm_surface_int