00001 module interface_IO_input_CF_grav_export 00002 implicit none 00003 interface 00004 subroutine IO_input_CF_grav_export(filenm, psi,alph,bvxd,bvyd,bvzd) 00005 real(8), pointer :: psi(:,:,:), alph(:,:,:), bvxd(:,:,:), bvyd(:,:,:), bvzd(:,:,:) 00006 character(len=*) :: filenm 00007 end subroutine IO_input_CF_grav_export 00008 end interface 00009 end module interface_IO_input_CF_grav_export