879INTEGER(kind=int_l),INTENT(in),OPTIONAL :: ilon
880INTEGER(kind=int_l),INTENT(in),OPTIONAL :: ilat
881
882CALL init(dbacoord_init%geo_coord, lon=lon, lat=lat , ilon=ilon, ilat=ilat)
883
884end function dbacoord_init
885
887subroutine dbacoord_display(coord)