H1k820309<;@ gridops.f90GRIDOPS#@ IDENTIFYRELEVANT%SIZEIDENTIFYRELEVANT%REALGOTNEEDRANGESIZEREALQ&&D&&  %@   GETDISTANCE%ACOSGETDISTANCE%COSGETDISTANCE%SINLAT1LON1LAT2LON2ACOSCOSSIN    #@ NATGRIDTOLATLONG%TANNATGRIDTOLATLONG%SELECTED_REAL_KINDNATGRIDTOLATLONG%COSNATGRIDTOLATLONG%SINNATGRIDTOLATLONG%REALEASTNORTHLATDEGLONDEGTANSELECTED_REAL_KINDCOSSIN@REAL    D D %@   CALCM%SELECTED_REAL_KINDCALCM%COSCALCM%SINCALCM%REALVAVBVF0VTHI0VTHISELECTED_REAL_KINDCOSSIN@REAL          #@ LATLONGTONATGRID%TANLATLONGTONATGRID%SELECTED_REAL_KINDLATLONGTONATGRID%COSLATLONGTONATGRID%SINLATLONGTONATGRID%REALEASTNORTHLATDEGLATMINLATSECLONDEGLONMINLONSECTANSELECTED_REAL_KINDCOSSIN@REALD D             ¸fn#fn!Ô{IDENTIFYRELEVANT&O5IDENTIFYRELEVANT%SIZE&„5IDENTIFYRELEVANT%REAL%¹œaIDENTIFYRELEVANT%GOT&UœaIDENTIFYRELEVANT%NEED'ñ8aIDENTIFYRELEVANT%RANGE)GETDISTANCE!¶5GETDISTANCE%ACOS ë4GETDISTANCE%COS 4GETDISTANCE%SIN!S8aGETDISTANCE%LAT1!‹8aGETDISTANCE%LON1!Ã8aGETDISTANCE%LAT2!û8aGETDISTANCE%LON2!3ÒNATGRIDTOLATLONG%4NATGRIDTOLATLONG%TAN49CNATGRIDTOLATLONG%SELECTED_REAL_KIND%|4NATGRIDTOLATLONG%COS%°4NATGRIDTOLATLONG%SIN&ä5NATGRIDTOLATLONG%REAL&8aNATGRIDTOLATLONG%EAST'Q8aNATGRIDTOLATLONG%NORTH(‰8aNATGRIDTOLATLONG%LATDEG(Á8aNATGRIDTOLATLONG%LONDEGù•CALCM)ŽCCALCM%SELECTED_REAL_KINDÑ4CALCM%COS 4CALCM%SIN9 5CALCM%REALn 8aCALCM%VA¦ 8aCALCM%VBÞ 8aCALCM%VF0 8aCALCM%VTHI0N 8aCALCM%VTHI!† îLATLONGTONATGRID%t 4LATLONGTONATGRID%TAN4¨ CLATLONGTONATGRID%SELECTED_REAL_KIND%ë 4LATLONGTONATGRID%COS% 4LATLONGTONATGRID%SIN&S 5LATLONGTONATGRID%REAL&ˆ 8aLATLONGTONATGRID%EAST'À 8aLATLONGTONATGRID%NORTH(ø 8aLATLONGTONATGRID%LATDEG(0 8aLATLONGTONATGRID%LATMIN(h 8aLATLONGTONATGRID%LATSEC(  8aLATLONGTONATGRID%LONDEG(Ø 8aLATLONGTONATGRID%LONMIN(8aLATLONGTONATGRID%LONSEC