Cm¡k820309 919.0ól®e  remapper.f90REMAPPERNEAREST_CELLNEAREST_VERTEXSPHERE_DISTANCEMPAS_ARC_LENGTHMPAS_TRIANGLE_SIGNED_AREA_SPHEREMPAS_WACHSPRESS_COORDINATESCONVERT_LXINDEX2D   INPUT_FIELD_TYPEFIELD_TYPE_REALFIELD_TYPE_DOUBLEFIELD_TYPE_INTEGER @ 'È#NAME#ISTIMEDEPENDENT#VARID#XTYPE#NDIMS #DIMNAMES #DIMLENS #DIMIDS #FILE_HANDLE #ARRAY0R#ARRAY1R#ARRAY2R#ARRAY3R#ARRAY4R#ARRAY0D#ARRAY1D#ARRAY2D#ARRAY3D#ARRAY4D#ARRAY0I#ARRAY1I#ARRAY2I #ARRAY3I!@@zDzÿÿÿÿÿÿÿÿHzÿÿÿÿÿÿÿÿ Lzÿÿÿÿÿÿÿÿ. P@& ˜& à& `( #INPUT_HANDLE_TYPE @ '`#NCID#NUM_VARS#CURRENT_VAR#VARIDS#UNLIMITED_DIMIDz0z0&zyX0 8  &zy €  &&zy à  &&&zy X &&&&zy è ð &zy 8 &&zy ˜ &&&zy  &&&&zy  ¨&zy ð&&zy!P&&&zy @ "'8#VALID##NCELLS$#NVERTICES%#NEDGES&#MAXEDGES'#LANDMASK(#NEDGESONCELL)#CELLSONCELL*#VERTICESONCELL+#CELLSONVERTEX,#EDGESONCELL-#CELLSONEDGE.#LATCELL/#LONCELL0#LATVERTEX1#LONVERTEX2#LATEDGE3#LONEDGE4#z$z0%z0& z0'z0(&zy)`&zy*¨&&zy+ &&zy,h &&zy-È &&zy.( &&zy/ˆ  &zy 0Ð &zy 1 &zy 2` &zy 3¨ &zy 4ð &zy  @ 5'à #VALID6#IRANK7#NLAT8#NLON9#STARTLAT:#ENDLAT;#STARTLON<#ENDLON=#LATS>#LONS?6z7z08z09 z0: z 0.0; z 0.0< z 0.0= z 0.0>   &&zy ?€  &&zy   @1  A2  B3 CNULL DŒ 2700 EP@82000 @F @G @H @IŒ p&pp‹ pŒ  @J @KP@ppP@pP@ @ L'ø#METHODM#SRC_MESHN#DST_MESHO#NEARESTCELLP#NEARESTVERTEXQ#NEARESTEDGER#CELLWEIGHTSS#VERTEXWEIGHTST#EDGEWEIGHTSU#SOURCECELLSV#SOURCEVERTICESW#SOURCEEDGESX#CELLMASKEDWEIGHTSY#SOURCEMASKEDCELLSZMzÿÿÿÿÿÿÿÿN8#MPAS_MESH_TYPE"Oà#TARGET_MESH_TYPE5P&&zyQx&&zyRØ&&zyS8 &&&zy T° &&&zy U(  &&&zy V  &&&zyW &&&zyX &&&zyY  &&&zy Z€&&&zy @ ['#NAME\#NDIMS]#XTYPE^#ISTIMEDEPENDENT_#DIMLENS`#DIMNAMESa#ARRAY0Rb#ARRAY1Rc#ARRAY2Rd#ARRAY3Re#ARRAY4Rf#ARRAY0Dg#ARRAY1Dh#ARRAY2Di#ARRAY3Dj#ARRAY4Dk#ARRAY0Il#ARRAY1Im#ARRAY2In#ARRAY3Io#ARRAY4Ip\@]@zÿÿÿÿÿÿÿÿ^Dzÿÿÿÿÿÿÿÿ_Hz`P&zy.a˜@&zybà cè &zy d0  &&zy e  &&&zy f  &&&&zy g˜ h   &zy iè &&zy jH &&&zy kÀ &&&&zy lPmX&zyn &&zyo&&&zypx&&&&zy%@q #SRC_MESHr#DST_MESHs#REMAP_INFOt  r8#MPAS_MESH_TYPE"  sà#TARGET_MESH_TYPE5D@tø#REMAP_INFO_TYPEL#@u #NCELLSv#MAXEDGESw#NEDGESONCELLx#CELLSONCELLy#CELLMASKz#TARGETLAT{#TARGETLON|#LATCELL}#LONCELL~#STARTIDX#SOURCEMASKEDCELLS€#CELLMASKEDWEIGHTS v w x;p5“prv5“prv y<p5“prwp5“prw5“prv5“prw5“prv z=p5“prv5“prv @{  @|  @} >p5“prv5“prv @~ ?p5“prv5“prv @ D€@ppp D Appp%@‚ #REMAP_INFOƒ Dƒø#REMAP_INFO_TYPEL%@„ #FIELD… …È#INPUT_FIELD_TYPE%@† #REMAP_INFO‡#SRC_FIELDˆ#DST_FIELD‰ ‡ø#REMAP_INFO_TYPEL ˆÈ#INPUT_FIELD_TYPED‰#TARGET_FIELD_TYPE[%@Š #REMAP_INFO‹#SRC_FIELDŒ#DST_FIELD#MASKEDŽ ‹ø#REMAP_INFO_TYPEL ŒÈ#INPUT_FIELD_TYPED#TARGET_FIELD_TYPE[ @Ž%@ #REMAP_INFO#LAT_FIELD‘ ø#REMAP_INFO_TYPELD‘#TARGET_FIELD_TYPE[%@’ #REMAP_INFO“#LON_FIELD” “ø#REMAP_INFO_TYPELD”#TARGET_FIELD_TYPE[%@• #FIELD– D–#TARGET_FIELD_TYPE[#@—#@˜#@™#Iš š#@›#Iœ œ%@ %@ž #IŸ Ÿ fn#fn¾œbuapp(REMAPPERZ@JMPAS_MESHš@JTARGET_MESHÚ†JSCAN_INPUT,`~INPUT_FIELD_TYPE+SCAN_INPUT1ÞPaINPUT_FIELD_TYPE%NAME+SCAN_INPUT<.¤aINPUT_FIELD_TYPE%ISTIMEDEPENDENT+SCAN_INPUT2Ò¤aINPUT_FIELD_TYPE%VARID+SCAN_INPUT2v¤aINPUT_FIELD_TYPE%XTYPE+SCAN_INPUT2¤aINPUT_FIELD_TYPE%NDIMS+SCAN_INPUT5¾œaINPUT_FIELD_TYPE%DIMNAMES+SCAN_INPUT4Z”aINPUT_FIELD_TYPE%DIMLENS+SCAN_INPUT3î”aINPUT_FIELD_TYPE%DIMIDS+SCAN_INPUT8‚gaINPUT_FIELD_TYPE%FILE_HANDLE+SCAN_INPUT-éšINPUT_HANDLE_TYPE+SCAN_INPUT2ƒ HaINPUT_HANDLE_TYPE%NCID+SCAN_INPUT6Ë ¥aINPUT_HANDLE_TYPE%NUM_VARS+SCAN_INPUT9p ¥aINPUT_HANDLE_TYPE%CURRENT_VAR+SCAN_INPUT4 ôaINPUT_HANDLE_TYPE%VARIDS+SCAN_INPUT= HaINPUT_HANDLE_TYPE%UNLIMITED_DIMID+SCAN_INPUT4Q HaINPUT_FIELD_TYPE%ARRAY0R+SCAN_INPUT4™ ôaINPUT_FIELD_TYPE%ARRAY1R+SCAN_INPUT4 aINPUT_FIELD_TYPE%ARRAY2R+SCAN_INPUT4™$aINPUT_FIELD_TYPE%ARRAY3R+SCAN_INPUT4½<aINPUT_FIELD_TYPE%ARRAY4R+SCAN_INPUT4ùHaINPUT_FIELD_TYPE%ARRAY0D+SCAN_INPUT4AôaINPUT_FIELD_TYPE%ARRAY1D+SCAN_INPUT45 aINPUT_FIELD_TYPE%ARRAY2D+SCAN_INPUT4A$aINPUT_FIELD_TYPE%ARRAY3D+SCAN_INPUT4e<aINPUT_FIELD_TYPE%ARRAY4D+SCAN_INPUT4¡HaINPUT_FIELD_TYPE%ARRAY0I+SCAN_INPUT4éôaINPUT_FIELD_TYPE%ARRAY1I+SCAN_INPUT4Ý aINPUT_FIELD_TYPE%ARRAY2I+SCAN_INPUT4é$aINPUT_FIELD_TYPE%ARRAY3I+SCAN_INPUT) \MPAS_MESH_TYPE+MPAS_MESH/i¤aMPAS_MESH_TYPE%VALID+MPAS_MESH0 ¥aMPAS_MESH_TYPE%NCELLS+MPAS_MESH3²¥aMPAS_MESH_TYPE%NVERTICES+MPAS_MESH0W¥aMPAS_MESH_TYPE%NEDGES+MPAS_MESH2ü¥aMPAS_MESH_TYPE%MAXEDGES+MPAS_MESH2¡ôaMPAS_MESH_TYPE%LANDMASK+MPAS_MESH6•ôaMPAS_MESH_TYPE%NEDGESONCELL+MPAS_MESH5‰ aMPAS_MESH_TYPE%CELLSONCELL+MPAS_MESH8• aMPAS_MESH_TYPE%VERTICESONCELL+MPAS_MESH7¡! aMPAS_MESH_TYPE%CELLSONVERTEX+MPAS_MESH5­" aMPAS_MESH_TYPE%EDGESONCELL+MPAS_MESH5¹# aMPAS_MESH_TYPE%CELLSONEDGE+MPAS_MESH1Å$ôaMPAS_MESH_TYPE%LATCELL+MPAS_MESH1¹%ôaMPAS_MESH_TYPE%LONCELL+MPAS_MESH3­&ôaMPAS_MESH_TYPE%LATVERTEX+MPAS_MESH3¡'ôaMPAS_MESH_TYPE%LONVERTEX+MPAS_MESH1•(ôaMPAS_MESH_TYPE%LATEDGE+MPAS_MESH1‰)ôaMPAS_MESH_TYPE%LONEDGE+MPAS_MESH-}*ÂTARGET_MESH_TYPE+TARGET_MESH3?+¤aTARGET_MESH_TYPE%VALID+TARGET_MESH3ã+¥aTARGET_MESH_TYPE%IRANK+TARGET_MESH2ˆ,¥aTARGET_MESH_TYPE%NLAT+TARGET_MESH2--¥aTARGET_MESH_TYPE%NLON+TARGET_MESH6Ò-§aTARGET_MESH_TYPE%STARTLAT+TARGET_MESH4y.§aTARGET_MESH_TYPE%ENDLAT+TARGET_MESH6 /§aTARGET_MESH_TYPE%STARTLON+TARGET_MESH4Ç/§aTARGET_MESH_TYPE%ENDLON+TARGET_MESH2n0 aTARGET_MESH_TYPE%LATS+TARGET_MESH2z1 aTARGET_MESH_TYPE%LONS+TARGET_MESH+†2qFIELD_TYPE_REAL+SCAN_INPUT-÷2qFIELD_TYPE_DOUBLE+SCAN_INPUT.h3qFIELD_TYPE_INTEGER+SCAN_INPUT!Ù3=NULL+TARGET_MESH!4tMAX_QUEUE_LENGTH$Š4uMAX_DICTIONARY_SIZEÿ4@QUEUE_HEAD?5@QUEUE_TAIL5@QUEUE_SIZE¿5¤QUEUE_ARRAYc6@INT_SIZE!£6”DICTIONARY_ARRAY 77FREMAP_INFO_TYPE'}8¤aREMAP_INFO_TYPE%METHOD)!9daREMAP_INFO_TYPE%SRC_MESH)…9faREMAP_INFO_TYPE%DST_MESH,ë9 aREMAP_INFO_TYPE%NEARESTCELL.÷: aREMAP_INFO_TYPE%NEARESTVERTEX,< aREMAP_INFO_TYPE%NEARESTEDGE,=$aREMAP_INFO_TYPE%CELLWEIGHTS.3>$aREMAP_INFO_TYPE%VERTEXWEIGHTS,W?$aREMAP_INFO_TYPE%EDGEWEIGHTS,{@$aREMAP_INFO_TYPE%SOURCECELLS/ŸA$aREMAP_INFO_TYPE%SOURCEVERTICES,ÃB$aREMAP_INFO_TYPE%SOURCEEDGES2çC$aREMAP_INFO_TYPE%CELLMASKEDWEIGHTS2 E$aREMAP_INFO_TYPE%SOURCEMASKEDCELLS"/FcTARGET_FIELD_TYPE'’GPaTARGET_FIELD_TYPE%NAME(âG¤aTARGET_FIELD_TYPE%NDIMS(†H¤aTARGET_FIELD_TYPE%XTYPE2*I¤aTARGET_FIELD_TYPE%ISTIMEDEPENDENT*ÎIôaTARGET_FIELD_TYPE%DIMLENS+ÂJüaTARGET_FIELD_TYPE%DIMNAMES*¾KHaTARGET_FIELD_TYPE%ARRAY0R*LôaTARGET_FIELD_TYPE%ARRAY1R*úL aTARGET_FIELD_TYPE%ARRAY2R*N$aTARGET_FIELD_TYPE%ARRAY3R**O<aTARGET_FIELD_TYPE%ARRAY4R*fPHaTARGET_FIELD_TYPE%ARRAY0D*®PôaTARGET_FIELD_TYPE%ARRAY1D*¢Q aTARGET_FIELD_TYPE%ARRAY2D*®R$aTARGET_FIELD_TYPE%ARRAY3D*ÒS<aTARGET_FIELD_TYPE%ARRAY4D*UHaTARGET_FIELD_TYPE%ARRAY0I*VUôaTARGET_FIELD_TYPE%ARRAY1I*JV aTARGET_FIELD_TYPE%ARRAY2I*VW$aTARGET_FIELD_TYPE%ARRAY3I*zX<aTARGET_FIELD_TYPE%ARRAY4I!¶Y|REMAP_INFO_SETUP*2Z\aREMAP_INFO_SETUP%SRC_MESH*ŽZ^aREMAP_INFO_SETUP%DST_MESH,ìZ]aREMAP_INFO_SETUP%REMAP_INFO!I[SEARCH_FOR_CELLS(P\@aSEARCH_FOR_CELLS%NCELLS*\@aSEARCH_FOR_CELLS%MAXEDGES.Ð\´aSEARCH_FOR_CELLS%NEDGESONCELL-„]$aSEARCH_FOR_CELLS%CELLSONCELL*¨^´aSEARCH_FOR_CELLS%CELLMASK+\_@aSEARCH_FOR_CELLS%TARGETLAT+œ_@aSEARCH_FOR_CELLS%TARGETLON)Ü_´aSEARCH_FOR_CELLS%LATCELL)`´aSEARCH_FOR_CELLS%LONCELL*Da@aSEARCH_FOR_CELLS%STARTIDX3„a”aSEARCH_FOR_CELLS%SOURCEMASKEDCELLS3b”aSEARCH_FOR_CELLS%CELLMASKEDWEIGHTS ¬b`REMAP_INFO_FREE+ c]aREMAP_INFO_FREE%REMAP_INFO ic[CAN_REMAP_FIELD&Äc^aCAN_REMAP_FIELD%FIELD#"d~REMAP_FIELD_DRYRUN. d]aREMAP_FIELD_DRYRUN%REMAP_INFO-ýd^aREMAP_FIELD_DRYRUN%SRC_FIELD-[e_aREMAP_FIELD_DRYRUN%DST_FIELDºeŠREMAP_FIELD'Df]aREMAP_FIELD%REMAP_INFO&¡f^aREMAP_FIELD%SRC_FIELD&ÿf_aREMAP_FIELD%DST_FIELD#^g@aREMAP_FIELD%MASKED+žgoREMAP_GET_TARGET_LATITUDES6 h]aREMAP_GET_TARGET_LATITUDES%REMAP_INFO5jh_aREMAP_GET_TARGET_LATITUDES%LAT_FIELD,ÉhoREMAP_GET_TARGET_LONGITUDES78i]aREMAP_GET_TARGET_LONGITUDES%REMAP_INFO6•i_aREMAP_GET_TARGET_LONGITUDES%LON_FIELD"ôi[FREE_TARGET_FIELD(Oj_aFREE_TARGET_FIELD%FIELD®jHQUEUE_RESET!öjHDICTIONARY_RESET>kOQUEUE_INSERTk@aQUEUE_INSERT%I"ÍkODICTIONARY_INSERT$l@aDICTIONARY_INSERT%I\lPQUEUE_REMOVE"¬lWDICTIONARY_SEARCH$m@aDICTIONARY_SEARCH%I