{"id":368,"date":"2011-04-01T03:06:29","date_gmt":"2011-04-01T03:06:29","guid":{"rendered":"https:\/\/info.calcofi.com\/2011\/04\/01\/distance-from-shore\/"},"modified":"2011-04-01T03:06:29","modified_gmt":"2011-04-01T03:06:29","slug":"distance-from-shore","status":"publish","type":"post","link":"https:\/\/mindwander.com\/index.php\/2011\/04\/01\/distance-from-shore\/","title":{"rendered":"Distance From Shore"},"content":{"rendered":"<div style=\"margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; color: rgb(0, 0, 0); background-image: initial; background-attachment: initial; background-origin: initial; background-clip: initial; background-color: rgb(255, 255, 255); font-family: Arial, Helvetica, sans-serif; line-height: 150%; \">\n\t<strong>Distance = Distance from shore in nautical miles<\/strong>. The CalCOFI database includes a calculated distance-from-shore value used primarily for vertical section plots published in the hydrographic data reports. CalCOFI&nbsp;line coastline intercepts, digitized from Google maps, are tabulated below; the latitudes and longitudes are the origins (zero starting point) for vertical section plots.<\/p>\n<table border=\"1\" cellpadding=\"1\" cellspacing=\"1\" width=\"600\">\n<tbody>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\tLine<\/td>\n<td nowrap=\"nowrap\" style=\"font-size: 16px; \">\n\t\t\t\t\tSta (if calculated)<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\tLatitude N<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\tLongitude W<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;93.3, 93<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;26.2<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;32.978982<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-117.272386<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;90.0<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;27.6<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;33.497430<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-117.741800<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;86.7, 87<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;32.1<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;33.917500<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-118.430800<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;83.3, 83<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;39.1<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;34.273350<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-119.308200<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;80.0<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;50.3<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;34.474500<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-120.476500<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;76.7, 77<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;47.23<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;35.148000<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-120.653000<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;73.3, 73<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;49.6<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;35.653333<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-121.221667<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;70.0<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;50.9<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;36.196667<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-121.723333<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;66.7, 67<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;46.9<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;36.903333<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-121.845000<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;63.3, 63<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;49.3<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;37.398333<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-122.425000<\/td>\n<\/tr>\n<tr>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;60.0<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;49.0<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;37.988333<\/td>\n<td style=\"font-size: 16px; \">\n\t\t\t\t\t&nbsp;-122.815000<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<p>\n\t<strong><span style=\"font-size: small; \">Basic Source Code (translated from F77 Fortran)<\/span><\/strong><\/p>\n<p style=\"margin-top: 1em; margin-right: 0px; margin-bottom: 1em; margin-left: 0px; padding-top: 0px; padding-right: 0px; padding-bottom: 0px; padding-left: 0px; \">\n\t\t<span style=\"font-size: x-small; \">Public Static Sub OLDDS(LAT1!, Lon1!, D!, Liine$)<br \/>\n\t\t&#8216;C<br \/>\n\t\t&#8216;C &#8212; ROUTINE TO RETURN DISTANCE IN NAUTICAL MILES GIVEN TWO POSITIONS<br \/>\n\t\t&#8216;C&nbsp;&nbsp;&nbsp; IN DECIMAL DEGREES.&nbsp; USES A METHOD THAT WILL MATCH THE RESULTS<br \/>\n\t\t&#8216;C&nbsp;&nbsp;&nbsp; PRODUCED IN THE OLD VERTICAL SECTION PROGRAM.<br \/>\n\t\t&#8216;C<br \/>\n\t\t&#8216;C&nbsp; -&gt; LAT0&nbsp; &#8212; LATITUDE OF FIRST POINT. (DECIMAL DEGREES. SOUTH NEGATIVE.)<br \/>\n\t\t&#8216;C&nbsp; -&gt; LON0&nbsp; &#8212; LONGITUDE OF FIRST POINT. (WEST NEGATIVE)<br \/>\n\t\t&#8216;C&nbsp; -&gt; LAT1&nbsp; &#8212; LAT. OF SECOND POINT.<br \/>\n\t\t&#8216;C&nbsp; -&gt; LON1&nbsp; &#8212; LONG. OF SECOND POINT.<br \/>\n\t\t&#8216;C&nbsp; &lt;- D&nbsp;&nbsp;&nbsp;&nbsp; &#8212; DISTANCE (NAUTICAL MILES) BETWEEN POINTS.<br \/>\n\t\t&#8216;C<br \/>\n\t\t&nbsp; Dim COSD#<br \/>\n\t\t&#8216;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Real LAT1, LON1, LAT2, LON2, D<br \/>\n\t\t&#8216;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Real L, DLO, COSD, PI, F, A<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; PI# = 3.141592654<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; F# = PI# \/ 180<br \/>\n\t\t&#8216;C<br \/>\n\t\t&#8216;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; INTRINSIC COS,ABS,SQRT<br \/>\n\t\t&#8216;C<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;COSD#(A#) = Cos(A# * F#)<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If frmSelData.txtDataIn(6) = &#8220;&#8221; Then<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LineIn! = (Val(Liine$))<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; LineIn! = Val(frmSelData.txtDataIn(6))<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; D! = 0<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dist2Orig$ = &#8220;&#8221;<br \/>\n\t\t190<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Select Case CInt(LineIn!)<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 93, 94 &#8216;, 93.3<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 32.969&nbsp;&nbsp;&nbsp; &#8216;93.3 26.2 Google projection 2010; old value 32.95298 from Ralf &amp; Nav Program<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -117.2696 &#8216;Google projection 2010; old value -117.2664<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 90, 91<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 33.49743&nbsp;&nbsp; &#8216;90.0 27.6&nbsp; Google checked 2010&nbsp;&nbsp;&nbsp; &#8216;4969634422<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -117.7418&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;745017037<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 87, 86 &#8216;, 86.7<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 33.9175&nbsp;&nbsp;&nbsp; &#8216;86.7 32.1 Google projection 2010; old .89568&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;918195424<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -118.4308&nbsp; &#8216;Google projection 2010; old .419&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;431669307<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 83, 84&nbsp; &#8216;, 83.3<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 34.27335&nbsp;&nbsp;&nbsp; &#8216;83.3 39.1&nbsp; Google checked 2010&nbsp; &#8216;2739356345<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -119.3082&nbsp;&nbsp;&nbsp;&nbsp; &#8216;310048755<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 80, 79<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 34.4745&nbsp;&nbsp;&nbsp;&nbsp; &#8216;80.0 50.3 Google projection 2010; old .4631&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;4823190269<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -120.4765&nbsp;&nbsp; &#8216;Google projection 2010; old .4739&nbsp;&nbsp;&nbsp;&nbsp; &#8216;485679527<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 77, 76&nbsp; &#8216;, 76.7<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 35.148&nbsp;&nbsp;&nbsp;&nbsp; &#8216;76.7 47.23&nbsp; Google checked 2010&nbsp; &#8216;1446809515<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -120.653&nbsp;&nbsp;&nbsp;&nbsp; &#8216;650653673<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 73&nbsp; &#8216;, 73.3<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 35.6533333333<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -121.221666667<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 70<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 36.1966666667<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -121.723333333<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 67&nbsp; &#8216;, 66.7<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 36.9033333333<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -121.845<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 63<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 37.3983333333<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -122.425<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case 60&nbsp; &#8216;, 57.8, 57.9<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 37.9883333333<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -122.815<br \/>\n\t\t&nbsp;&nbsp;&nbsp; Case Else<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp; Select Case LineIn!<br \/>\n\t\t&nbsp; &nbsp; &nbsp; Case 91.7, 91.6, 91.8, 92<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 33.25773&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;from Ralf &amp; Nav Program<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -117.4385<br \/>\n\t\t&nbsp;&nbsp; &nbsp;&nbsp; Case 88.5, 88.6, 88.4, 88<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 33.69985&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;from Ralf &amp; Nav Program<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -118.0522<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 85.4, 85.5, 85.6<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 34.01588&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;from Ralf &amp; Nav Program<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -118.8243<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 82, 81.9, 82.1<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 34.435&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;from Ralf &amp; Nav Program<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -119.955<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 81.7, 81.8, 81<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 34.4174&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;from Ralf &amp; Nav Program<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -119.8033<br \/>\n\t\t&nbsp;&nbsp; &nbsp;&nbsp; Case 78.5, 78.4, 78.6<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lat0! = 34.77699&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#8216;from Ralf &amp; Nav Program<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = -120.6302<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else<br \/>\n\t\t&nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; If LineIn! &lt;&gt; Val(Liine$) And LineIn! &lt;&gt; Val(StndL$) Then<br \/>\n\t\t&nbsp; &nbsp;&nbsp; &nbsp;&nbsp;&nbsp;&nbsp; LineIn! = Val(StndL$)<br \/>\n\t\t&nbsp;&nbsp;&nbsp; &nbsp;&nbsp; &nbsp;&nbsp; GoTo 190<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Else<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Exit Sub<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End Select<br \/>\n\t\t&nbsp; End Select<br \/>\n\t\t&#8216;C<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Lon0! = Lon0! * -1<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; L! = Abs(LAT1! &#8211; Lat0!)<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DLO! = Abs(Lon1! &#8211; Lon0!)<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If (DLO! &gt; 180) Then DLO! = 360 &#8211; DLO!<br \/>\n\t\t&#8216;C<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; L! = L! * 60<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DLO! = DLO! * 60<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; DLO! = DLO! * Cos(F# * ((Lat0! + LAT1!) \/ 2))<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; D! = (Sqr(L! * L! + DLO! * DLO!)) * -1<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dist2Orig$ = Format(D!, &#8220;#0.00&#8221;)<br \/>\n\t\t&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If D! = 0 Then Dist2Orig$ = &#8220;&#8221;<\/p>\n<p>\t\tEnd Sub<\/span><\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"<p>Distance = Distance from shore in nautical miles. The CalCOFI database includes a calculated distance-from-shore value used primarily for vertical section plots published in the hydrographic data reports. CalCOFI&nbsp;line coastline intercepts, digitized from Google maps, are tabulated below; the latitudes and longitudes are the origins (zero starting point) for vertical section plots. Line Sta (if [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[19],"tags":[],"class_list":["post-368","post","type-post","status-publish","format-standard","hentry","category-methods"],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/posts\/368","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/comments?post=368"}],"version-history":[{"count":0,"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/posts\/368\/revisions"}],"wp:attachment":[{"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/media?parent=368"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/categories?post=368"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/mindwander.com\/index.php\/wp-json\/wp\/v2\/tags?post=368"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}