Uk820309 919.0Ze  module_llxy.f90MODULE_LLXYHIGH  4 5   I@3.141592653589793   87.292E-5   .eB   5<   2J6378137.    !J6356752.314    2J6378137.    Ґ=0.081819192    2J6378137.    2J6378137.   =0.0818187034   eJ6370000.   խL  0  1  2  f102  3  4  5  6  i105  203 @ '$#CODE#NLAT#NLON#IXDIM#JYDIM #STAGGER!#PHI"#LAMBDA##LAT1$#LON1%#LAT0&#LON0'#DX(#DY)#LATINC*#LONINC+#DLAT,#DLON-#STDLON.#TRUELAT1/#TRUELAT20#HEMI1#CONE2#POLEI3#POLEJ4#RSW5#REBYDX6#KNOWNI7#KNOWNJ8#RE_M9#RHO0:#NC;#BIGC<#INIT=#WRAP>#GAUSS_LAT?  !" # $ %$ &( ', (0 )4 *8 +< ,@ -D .H /L 0P 1T 2X 3\ 4` 5d 6h 7l 8p 9t :x ;| <! =">#?$ &#@@#PROJA DA#PROJ_INFO#@B#PROJ_CODEC#PROJD#LAT1E#LON1F#LAT0G#LON0H#KNOWNII#KNOWNJJ#DXK#LATINCL#LONINCM#STDLONN#TRUELAT1O#TRUELAT2P#NLATQ#NLONR#IXDIMS#JYDIMT#STAGGERU#PHIV#LAMBDAW#R_EARTHX CD@D#PROJ_INFO @E  @F  @G  @H  @I  @J  @K  @L  @M  @N  @O  @P  @Q @R @S @T @U @V  @W  @X #@Y#PROJZ DZ#PROJ_INFO#@[#PROJ\ D\#PROJ_INFO#@]#PROJ^ D^#PROJ_INFO#@_#PROJ` D@`#PROJ_INFO#@a#PROJb Db#PROJ_INFO#@c#PROJd D@d#PROJ_INFO#@e#PROJf Df#PROJ_INFO#@g#PROJh Dh#PROJ_INFO#@i#PROJj#LATk#LONl#Im#Jn @j#PROJ_INFO @k  @l D@m D@n #@o#LATp#LONq#PROJr#Is#Jt p  q  r#PROJ_INFODs Dt #@u#LATv#LONw#PROJx#Iy#Jz v  w  x#PROJ_INFODy Dz #@{#LAT|#LON}#PROJ~#I#J |  }  ~#PROJ_INFOD D #@#LAT#LON#PROJ#I#J     #PROJ_INFOD D #@#LAT#LON#PROJ#I#J     #PROJ_INFOD D #@#LAT#LON#PROJ#I#J     #PROJ_INFOD D #@#LAT#LON#PROJ#I#J @    #PROJ_INFOD D #@#LAT#LON#PROJ#I#J     #PROJ_INFOD D #@#LAT#LON#PROJ#I#J @  @  @#PROJ_INFOD@ D@ #@#LAT#LON#PROJ#I_REAL#J_REAL     #PROJ_INFOD D #@#PROJ#I#J#LAT#LON @#PROJ_INFO @  @ D@ D@ #@#I#J#PROJ#LAT#LON     #PROJ_INFOD D #@#I#J#PROJ#LAT#LON     #PROJ_INFOD D #@#I#J#PROJ#LAT#LON     #PROJ_INFOD D #@#I#J#PROJ#LAT#LON     #PROJ_INFOD D #@#I#J#PROJ#LAT#LON     #PROJ_INFOD D #@#I#J#PROJ#LAT#LON     #PROJ_INFOD D #@#I#J#PROJ#LAT#LON     #PROJ_INFOD D #@#I#J#PROJ#LAT#LON @  @  @#PROJ_INFOD@ D@ #@#I#J#PROJ#LAT#LON   @  #PROJ_INFOD D #@#TRUELAT1#TRUELAT2#CONE @  @ D #@#ILAT#ILON#OLAT#OLON#LAT_NP#LON_NP#LON_0#DIRECTION    D D        @#@#NLAT#LAT_SP D@ D p5pr5pr#@#NLAT#COSC#GWT#SINC#COLAT#WOS2 D@ D@ p5pr5pr D p5pr5pr D p5pr5pr D p5pr5pr D p5pr5pr#@#F#COSC#ND @ $fn#fn!buapp(MODULE_LLXY!@JMODULE_WRF_ERRORqHHqVVPI|xOMEGA_EpDEG_PER_RADdpRAD_PER_DEGxA_WGS84L{B_WGS84xRE_WGS84?{E_WGS84xA_NAD832xRE_NAD83|E_NAD83&xEARTH_RADIUS_MpEARTH_CIRC_MqPROJ_LATLONqPROJ_LCqPROJ_PSa sPROJ_PS_WGS84 qPROJ_MERCE qPROJ_GAUSS qPROJ_CYL' qPROJ_CASSINI" sPROJ_ALBERS_NAD83 sPROJ_ROTLL~ PROJ_INFOPHaPROJ_INFO%CODEHaPROJ_INFO%NLATHaPROJ_INFO%NLON (HaPROJ_INFO%IXDIM pHaPROJ_INFO%JYDIM"HaPROJ_INFO%STAGGERHaPROJ_INFO%PHI!HHaPROJ_INFO%LAMBDAHaPROJ_INFO%LAT1HaPROJ_INFO%LON1 HaPROJ_INFO%LAT0hHaPROJ_INFO%LON0HaPROJ_INFO%DXHaPROJ_INFO%DY!@HaPROJ_INFO%LATINC!HaPROJ_INFO%LONINCHaPROJ_INFO%DLATHaPROJ_INFO%DLON!`HaPROJ_INFO%STDLON#HaPROJ_INFO%TRUELAT1#HaPROJ_INFO%TRUELAT28HaPROJ_INFO%HEMIHaPROJ_INFO%CONE HaPROJ_INFO%POLEI HaPROJ_INFO%POLEJXHaPROJ_INFO%RSW!HaPROJ_INFO%REBYDX!HaPROJ_INFO%KNOWNI!0HaPROJ_INFO%KNOWNJxHaPROJ_INFO%RE_MHaPROJ_INFO%RHO0HaPROJ_INFO%NCPHaPROJ_INFO%BIGCHaPROJ_INFO%INITHaPROJ_INFO%WRAP$(aPROJ_INFO%GAUSS_LATRMAP_INITWaMAP_INIT%PROJeBMAP_SET"@aMAP_SET%PROJ_CODEWaMAP_SET%PROJ>@aMAP_SET%LAT1~@aMAP_SET%LON1@aMAP_SET%LAT0@aMAP_SET%LON0>@aMAP_SET%KNOWNI~@aMAP_SET%KNOWNJ@aMAP_SET%DX@aMAP_SET%LATINC>@aMAP_SET%LONINC~@aMAP_SET%STDLON!@aMAP_SET%TRUELAT1!@aMAP_SET%TRUELAT2>@aMAP_SET%NLAT~@aMAP_SET%NLON@aMAP_SET%IXDIM@aMAP_SET%JYDIM >@aMAP_SET%STAGGER~@aMAP_SET%PHI@aMAP_SET%LAMBDA @aMAP_SET%R_EARTH> RSET_PS WaSET_PS%PROJ RSET_PS_WGS84"9!WaSET_PS_WGS84%PROJ!!RSET_ALBERS_NAD83&!WaSET_ALBERS_NAD83%PROJ9"RSET_LC"WaSET_LC%PROJ"RSET_MERC4#WaSET_MERC%PROJ#RSET_GAUSS#WaSET_GAUSS%PROJ4$RSET_CYL$WaSET_CYL%PROJ$RSET_CASSINI!/%WaSET_CASSINI%PROJ%rLATLON_TO_IJ"%WaLATLON_TO_IJ%PROJ!O&@aLATLON_TO_IJ%LAT!&@aLATLON_TO_IJ%LON&@aLATLON_TO_IJ%I'@aLATLON_TO_IJ%JO'rLLIJ_LATLON '@aLLIJ_LATLON%LAT (@aLLIJ_LATLON%LON!A(WaLLIJ_LATLON%PROJ(@aLLIJ_LATLON%I(@aLLIJ_LATLON%J)rLLIJ_MERC)@aLLIJ_MERC%LAT)@aLLIJ_MERC%LON *WaLLIJ_MERC%PROJa*@aLLIJ_MERC%I*@aLLIJ_MERC%J*rLLIJ_PSS+@aLLIJ_PS%LAT+@aLLIJ_PS%LON+WaLLIJ_PS%PROJ*,@aLLIJ_PS%Ij,@aLLIJ_PS%J,rLLIJ_PS_WGS84"-@aLLIJ_PS_WGS84%LAT"\-@aLLIJ_PS_WGS84%LON#-WaLLIJ_PS_WGS84%PROJ -@aLLIJ_PS_WGS84%I 3.@aLLIJ_PS_WGS84%J"s.rLLIJ_ALBERS_NAD83&.@aLLIJ_ALBERS_NAD83%LAT&%/@aLLIJ_ALBERS_NAD83%LON'e/WaLLIJ_ALBERS_NAD83%PROJ$/@aLLIJ_ALBERS_NAD83%I$/@aLLIJ_ALBERS_NAD83%J<0rLLIJ_LC0@aLLIJ_LC%LAT0@aLLIJ_LC%LON.1WaLLIJ_LC%PROJ1@aLLIJ_LC%I1@aLLIJ_LC%J2rLLIJ_GAUSSw2@aLLIJ_GAUSS%LAT2@aLLIJ_GAUSS%LON 2WaLLIJ_GAUSS%PROJN3@aLLIJ_GAUSS%I3@aLLIJ_GAUSS%J3rLLIJ_CYL@4@aLLIJ_CYL%LAT4@aLLIJ_CYL%LON4WaLLIJ_CYL%PROJ5@aLLIJ_CYL%IW5@aLLIJ_CYL%J5rLLIJ_CASSINI! 6@aLLIJ_CASSINI%LAT!I6@aLLIJ_CASSINI%LON"6WaLLIJ_CASSINI%PROJ6@aLLIJ_CASSINI%I 7@aLLIJ_CASSINI%J`7|LLIJ_ROTLATLON#7@aLLIJ_ROTLATLON%LAT#8@aLLIJ_ROTLATLON%LON$\8WaLLIJ_ROTLATLON%PROJ&8@aLLIJ_ROTLATLON%I_REAL&8@aLLIJ_ROTLATLON%J_REAL39rIJ_TO_LATLON"9WaIJ_TO_LATLON%PROJ9@aIJ_TO_LATLON%I<:@aIJ_TO_LATLON%J!|:@aIJ_TO_LATLON%LAT!:@aIJ_TO_LATLON%LON:rIJLL_LATLONn;@aIJLL_LATLON%I;@aIJLL_LATLON%J!;WaIJLL_LATLON%PROJ E<@aIJLL_LATLON%LAT <@aIJLL_LATLON%LON<rIJLL_MERC7=@aIJLL_MERC%Iw=@aIJLL_MERC%J=WaIJLL_MERC%PROJ>@aIJLL_MERC%LATN>@aIJLL_MERC%LON>rIJLL_PS?@aIJLL_PS%I@?@aIJLL_PS%J?WaIJLL_PS%PROJ?@aIJLL_PS%LAT@@aIJLL_PS%LONW@rIJLL_PS_WGS84 @@aIJLL_PS_WGS84%I A@aIJLL_PS_WGS84%J#IAWaIJLL_PS_WGS84%PROJ"A@aIJLL_PS_WGS84%LAT"A@aIJLL_PS_WGS84%LON" BrIJLL_ALBERS_NAD83$B@aIJLL_ALBERS_NAD83%I$B@aIJLL_ALBERS_NAD83%J'CWaIJLL_ALBERS_NAD83%PROJ&iC@aIJLL_ALBERS_NAD83%LAT&C@aIJLL_ALBERS_NAD83%LONCrIJLL_LC[D@aIJLL_LC%ID@aIJLL_LC%JDWaIJLL_LC%PROJ2E@aIJLL_LC%LATrE@aIJLL_LC%LONErIJLL_CYL$F@aIJLL_CYL%IdF@aIJLL_CYL%JFWaIJLL_CYL%PROJF@aIJLL_CYL%LAT;G@aIJLL_CYL%LON{GrIJLL_CASSINIG@aIJLL_CASSINI%I-H@aIJLL_CASSINI%J"mHWaIJLL_CASSINI%PROJ!H@aIJLL_CASSINI%LAT!I@aIJLL_CASSINI%LONDIrIJLL_ROTLATLON!I@aIJLL_ROTLATLON%I!I@aIJLL_ROTLATLON%J$6JWaIJLL_ROTLATLON%PROJ#J@aIJLL_ROTLATLON%LAT#J@aIJLL_ROTLATLON%LON KnLC_CONE!{K@aLC_CONE%TRUELAT1!K@aLC_CONE%TRUELAT2K@aLC_CONE%CONE;LROTATE_COORDS#L@aROTATE_COORDS%ILAT#M@aROTATE_COORDS%ILON#]M@aROTATE_COORDS%OLAT#M@aROTATE_COORDS%OLON%M@aROTATE_COORDS%LAT_NP%N@aROTATE_COORDS%LON_NP$]N@aROTATE_COORDS%LON_0(N@aROTATE_COORDS%DIRECTIONN^GAUSLL;O@aGAUSLL%NLAT{OaGAUSLL%LAT_SP/PLGGAUSP@aLGGAUS%NLATPaLGGAUS%COSCQaLGGAUS%GWT[RaLGGAUS%SINCSaLGGAUS%COLATSaLGGAUS%WOS2wT`LGORDT@aLGORD%FU@aLGORD%COSCWU@aLGORD%N