00001 module interface_hydrostatic_eq_peos
00002 implicit none
00003 interface
00004 subroutine hydrostatic_eq_peos(emd)
00005 real(8), pointer :: emd(:,:,:)
00006 end subroutine hydrostatic_eq_peos
00007 end interface
00008 end module interface_hydrostatic_eq_peos