00001 module interface_violation_gridpoint_HaC_CF_peos_irrot 00002 implicit none 00003 interface 00004 subroutine violation_gridpoint_HaC_CF_peos_irrot(HaC_vio,cobj) 00005 real(8), pointer :: HaC_vio(:,:,:) 00006 character(len=2), intent(in) :: cobj 00007 end subroutine violation_gridpoint_HaC_CF_peos_irrot 00008 end interface 00009 end module interface_violation_gridpoint_HaC_CF_peos_irrot