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