^$k820309 919.0le  module_map_utils.f90MAP_UTILSHIGH     3  4    eJ6370000.  1#@ #ASSERTION #LEVEL #FMTSTRING #NEWLINE #I1 #I2#I3#I4#I5#I6#F1#F2#F3#F4#F5#F6#S1#S2#S3#S4#S5#S6#L1#L2 #L3!#L4"#L5##L6$      1                      1 1 1 1 1 1    ! " # $  %2  &f102  'i105  (3  )0  *5  +6  ,4  -203  .  5<  /  .eB  0  Ґ=0.081819192  1  2J6378137.  2  I@3.141592653589793  3  =0.0818187034  4  2J6378137.  55 @ 6''#CODE7#NLAT8#NLON9#NXMIN:#NXMAX;#IXDIM<#JYDIM=#STAGGER>#PHI?#LAMBDA@#LAT1A#LON1B#LAT0C#LON0D#DXE#DYF#LATINCG#LONINCH#DLATI#DLONJ#STDLONK#TRUELAT1L#TRUELAT2M#HEMIN#CONEO#POLEIP#POLEJQ#RSWR#REBYDXS#KNOWNIT#KNOWNJU#RE_MV#RHO0W#NCX#BIGCY#INITZ#WRAP[#COMP_LL\#GAUSS_LAT]789: ;<=>? @$ A( B, C0 D4 E8 F< G@ HD IH JL KP LT MX N\ O` Pd Qh Rl Sp Tt Ux V| W! X" Y# Z$[%\&]' &#@^#PROJ_ D_#PROJ_INFO6#@`#PROJ_CODEa#PROJb#LAT1c#LON1d#LAT0e#LON0f#KNOWNIg#KNOWNJh#DXi#DYj#LATINCk#LONINCl#STDLONm#TRUELAT1n#TRUELAT2o#NLATp#NLONq#IXDIMr#JYDIMs#NXMINt#NXMAXu#STAGGERv#PHIw#LAMBDAx#R_EARTHy aD@b#PROJ_INFO6 @c  @d  @e  @f  @g  @h  @i  @j  @k  @l  @m  @n  @o  @p @q @r @s @t @u @v @w  @x  @y #@z#PROJ{ D{#PROJ_INFO6#@|#PROJ} D}#PROJ_INFO6#@~#PROJ D#PROJ_INFO6#@#PROJ D@#PROJ_INFO6#@#PROJ D#PROJ_INFO6#@#PROJ D@#PROJ_INFO6#@#PROJ D#PROJ_INFO6#@#PROJ D#PROJ_INFO6#@#PROJ#LAT#LON#I#J @#PROJ_INFO6 @  @ D@ D@ #@#LAT#LON#PROJ#I#J     #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J     #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J     #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J     #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J     #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J     #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J @    #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J     #PROJ_INFO6D D #@#LAT#LON#PROJ#I#J @  @  @#PROJ_INFO6D@ D@ #@#LAT#LON#PROJ#I_REAL#J_REAL     #PROJ_INFO6D D #@#PROJ#I#J#LAT#LON @#PROJ_INFO6 @  @ D@ D@ #@#I#J#PROJ#LAT#LON     #PROJ_INFO6D D #@#I#J#PROJ#LAT#LON     #PROJ_INFO6D D #@#I#J#PROJ#LAT#LON     #PROJ_INFO6D D #@#I#J#PROJ#LAT#LON     #PROJ_INFO6D D #@#I#J#PROJ#LAT#LON     #PROJ_INFO6D D #@#I#J#PROJ#LAT#LON     #PROJ_INFO6D D #@#I#J#PROJ#LAT#LON     #PROJ_INFO6D D #@#I#J#PROJ#LAT#LON @  @  @#PROJ_INFO6D@ D@ #@#I#J#PROJ#LAT#LON   @  #PROJ_INFO6D 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!#N"D  @! "'fn#fnbuapp(MAP_UTILS!@JCONSTANTS_MODULE(@JMISC_DEFINITIONS_MODULE\@JMODULE_DEBUG#qERROR+MODULE_DEBUG+ qHH+MISC_DEFINITIONS_MODULE0~xEARTH_RADIUS_M+CONSTANTS_MODULE0qPROJ_LC+MISC_DEFINITIONS_MODULE%g>MPRINTF+MODULE_DEBUG/@aMPRINTF%ASSERTION+MODULE_DEBUG+@aMPRINTF%LEVEL+MODULE_DEBUG/%LaMPRINTF%FMTSTRING+MODULE_DEBUG-q@aMPRINTF%NEWLINE+MODULE_DEBUG(@aMPRINTF%I1+MODULE_DEBUG(@aMPRINTF%I2+MODULE_DEBUG(1@aMPRINTF%I3+MODULE_DEBUG(q@aMPRINTF%I4+MODULE_DEBUG(@aMPRINTF%I5+MODULE_DEBUG(@aMPRINTF%I6+MODULE_DEBUG(1@aMPRINTF%F1+MODULE_DEBUG(q@aMPRINTF%F2+MODULE_DEBUG(@aMPRINTF%F3+MODULE_DEBUG(@aMPRINTF%F4+MODULE_DEBUG(1@aMPRINTF%F5+MODULE_DEBUG(q@aMPRINTF%F6+MODULE_DEBUG(LaMPRINTF%S1+MODULE_DEBUG(LaMPRINTF%S2+MODULE_DEBUG(I LaMPRINTF%S3+MODULE_DEBUG( LaMPRINTF%S4+MODULE_DEBUG( LaMPRINTF%S5+MODULE_DEBUG(- LaMPRINTF%S6+MODULE_DEBUG(y @aMPRINTF%L1+MODULE_DEBUG( @aMPRINTF%L2+MODULE_DEBUG( @aMPRINTF%L3+MODULE_DEBUG(9 @aMPRINTF%L4+MODULE_DEBUG(y @aMPRINTF%L5+MODULE_DEBUG( @aMPRINTF%L6+MODULE_DEBUG0 qPROJ_PS+MISC_DEFINITIONS_MODULE6j sPROJ_PS_WGS84+MISC_DEFINITIONS_MODULE: sPROJ_ALBERS_NAD83+MISC_DEFINITIONS_MODULE2P qPROJ_MERC+MISC_DEFINITIONS_MODULE4 qPROJ_LATLON+MISC_DEFINITIONS_MODULE12qPROJ_CYL+MISC_DEFINITIONS_MODULE5qPROJ_CASSINI+MISC_DEFINITIONS_MODULE3qPROJ_GAUSS+MISC_DEFINITIONS_MODULE3sPROJ_ROTLL+MISC_DEFINITIONS_MODULE-pRAD_PER_DEG+CONSTANTS_MODULE-hpDEG_PER_RAD+CONSTANTS_MODULE){E_WGS84+CONSTANTS_MODULE)SxA_WGS84+CONSTANTS_MODULE$PI+CONSTANTS_MODULE)L|E_NAD83+CONSTANTS_MODULE)xA_NAD83+CONSTANTS_MODULE+@qVV+MISC_DEFINITIONS_MODULEPROJ_INFOHaPROJ_INFO%CODEHaPROJ_INFO%NLAT6HaPROJ_INFO%NLON ~HaPROJ_INFO%NXMIN HaPROJ_INFO%NXMAX HaPROJ_INFO%IXDIM VHaPROJ_INFO%JYDIM"HaPROJ_INFO%STAGGERHaPROJ_INFO%PHI!.HaPROJ_INFO%LAMBDAvHaPROJ_INFO%LAT1HaPROJ_INFO%LON1HaPROJ_INFO%LAT0NHaPROJ_INFO%LON0HaPROJ_INFO%DXHaPROJ_INFO%DY!&HaPROJ_INFO%LATINC!nHaPROJ_INFO%LONINCHaPROJ_INFO%DLATHaPROJ_INFO%DLON!FHaPROJ_INFO%STDLON#HaPROJ_INFO%TRUELAT1#HaPROJ_INFO%TRUELAT2HaPROJ_INFO%HEMIfHaPROJ_INFO%CONE HaPROJ_INFO%POLEI HaPROJ_INFO%POLEJ>HaPROJ_INFO%RSW!HaPROJ_INFO%REBYDX!HaPROJ_INFO%KNOWNI!HaPROJ_INFO%KNOWNJ^HaPROJ_INFO%RE_MHaPROJ_INFO%RHO0HaPROJ_INFO%NC6HaPROJ_INFO%BIGC~HaPROJ_INFO%INITHaPROJ_INFO%WRAP" HaPROJ_INFO%COMP_LL$V aPROJ_INFO%GAUSS_LAT RMAP_INIT@aLLIJ_CYL%Ic>@aLLIJ_CYL%J>rLLIJ_CASSINI!?@aLLIJ_CASSINI%LAT!U?@aLLIJ_CASSINI%LON"?WaLLIJ_CASSINI%PROJ?@aLLIJ_CASSINI%I,@@aLLIJ_CASSINI%Jl@|LLIJ_ROTLATLON#@@aLLIJ_ROTLATLON%LAT#(A@aLLIJ_ROTLATLON%LON$hAWaLLIJ_ROTLATLON%PROJ&A@aLLIJ_ROTLATLON%I_REAL&A@aLLIJ_ROTLATLON%J_REAL?BrIJ_TO_LATLON"BWaIJ_TO_LATLON%PROJC@aIJ_TO_LATLON%IHC@aIJ_TO_LATLON%J!C@aIJ_TO_LATLON%LAT!C@aIJ_TO_LATLON%LONDrIJLL_LATLONzD@aIJLL_LATLON%ID@aIJLL_LATLON%J!DWaIJLL_LATLON%PROJ QE@aIJLL_LATLON%LAT E@aIJLL_LATLON%LONErIJLL_MERCCF@aIJLL_MERC%IF@aIJLL_MERC%JFWaIJLL_MERC%PROJG@aIJLL_MERC%LATZG@aIJLL_MERC%LONGrIJLL_PS H@aIJLL_PS%ILH@aIJLL_PS%JHWaIJLL_PS%PROJH@aIJLL_PS%LAT#I@aIJLL_PS%LONcIrIJLL_PS_WGS84 I@aIJLL_PS_WGS84%I J@aIJLL_PS_WGS84%J#UJWaIJLL_PS_WGS84%PROJ"J@aIJLL_PS_WGS84%LAT"J@aIJLL_PS_WGS84%LON",KrIJLL_ALBERS_NAD83$K@aIJLL_ALBERS_NAD83%I$K@aIJLL_ALBERS_NAD83%J'LWaIJLL_ALBERS_NAD83%PROJ&uL@aIJLL_ALBERS_NAD83%LAT&L@aIJLL_ALBERS_NAD83%LONLrIJLL_LCgM@aIJLL_LC%IM@aIJLL_LC%JMWaIJLL_LC%PROJ>N@aIJLL_LC%LAT~N@aIJLL_LC%LONNrIJLL_CYL0O@aIJLL_CYL%IpO@aIJLL_CYL%JOWaIJLL_CYL%PROJP@aIJLL_CYL%LATGP@aIJLL_CYL%LONPrIJLL_CASSINIP@aIJLL_CASSINI%I9Q@aIJLL_CASSINI%J"yQWaIJLL_CASSINI%PROJ!Q@aIJLL_CASSINI%LAT!R@aIJLL_CASSINI%LONPRrIJLL_ROTLATLON!R@aIJLL_ROTLATLON%I!S@aIJLL_ROTLATLON%J$BSWaIJLL_ROTLATLON%PROJ#S@aIJLL_ROTLATLON%LAT#S@aIJLL_ROTLATLON%LONTnLC_CONE!T@aLC_CONE%TRUELAT1!T@aLC_CONE%TRUELAT2U@aLC_CONE%CONEGUROTATE_COORDS#U@aROTATE_COORDS%ILAT#)V@aROTATE_COORDS%ILON#iV@aROTATE_COORDS%OLAT#V@aROTATE_COORDS%OLON%V@aROTATE_COORDS%LAT_NP%)W@aROTATE_COORDS%LON_NP$iW@aROTATE_COORDS%LON_0(W@aROTATE_COORDS%DIRECTIONW^GAUSLLGX@aGAUSLL%NLATXaGAUSLL%LAT_SP;YLGGAUSY@aLGGAUS%NLATYaLGGAUS%COSCZaLGGAUS%GWTg[aLGGAUS%SINC\aLGGAUS%COLAT\aLGGAUS%WOS2]`LGORD]@aLGORD%F#^@aLGORD%COSCc^@aLGORD%N