FÊk820309 919.0él®e  input_module.f90INPUT_MODULE  €  € @  €   @ '#HEAD#TAIL#LENGTH #Q_ITEM @  ' #DATA #NEXT ”#Q_DATA @ '”#X #Y #SR_X#SR_Y#UNITS#DESCRIPTION#STAGGER#DEPTH   €€€ ˜#Q_ITEM  #Q_ITEM   3  0  1024    0      1  2   3#@ !#ASSERTION"#LEVEL##FMTSTRING$#NEWLINE%#I1&#I2'#I3(#I4)#I5*#I6+#F1,#F2-#F3.#F4/#F50#F61#S12#S23#S34#S45#S56#S67#L18#L29#L3:#L4;#L5<#L6= " # $1 % & ' ( ) * + ,  -  .  /  0  1  21 31 41 51 61 71 8 9 : ; < =  > @@ ?  @#@ A#QB B#QUEUE#@ C#IVALD#FROM_WHOME D E&@ F ”#QG#Q_DATA  G#QUEUE#@ H#CVALI#NJ#FROM_WHOMK I5rJ J K  L  M  N  O  P  Q  R  S#@ T#PATCH_ARRAYU#MS1V#ME1W#MS2X#ME2Y#MS3Z#ME3[#PS1\#PE1]#PS2^#PE2_#PS3`#PE3a#DOMAIN_ARRAYb#DS1c#DE1d#DS2e#DE2f#DS3g#DE3h U 5Op5Op5Opp5Op5Op5Opp5Op&5Op5Op&5Op5Op&5Op5Op5Op5Opp5Op5Opp5Op5Opp V W X Y Z [ \ ] ^ _ ` a b 5Op5Op5Opp5Op5Op5Opp5Op&5Op5Op&5Op5Op&5Op5Op5Op5Opp5Op5Opp5Op5Opp c d e f g h+ @ i€ppp#@ j#Qk#QITEMl k#QUEUE l”#Q_DATA #@ m#RVALn#FROM_WHOMo n  o#@ p#Qq q#QUEUE@@r#QUEUE @@s @t @u#@v#NEST_NUMBERw#ISTATUSx wD@x#@y#START_PATCH_Iz#END_PATCH_I{#START_PATCH_J|#END_PATCH_J}#START_PATCH_K~#END_PATCH_K#CNAME€#CUNITS#CDESC‚#MEMORDERƒ#STAGGER„#DIMNAMES…#SR_X†#SR_Y‡#REAL_ARRAYˆ#ISTATUS‰DzD{D|D}D~DD@€1D@1D@‚1D@ƒ1D@„1, D@…€pppD@†D@‡DPˆ &&& D@‰#@Š,#TITLE‹#START_DATEŒ#GRID_TYPE#DYN_OPTŽ#WEST_EAST_DIM#SOUTH_NORTH_DIM#BOTTOM_TOP_DIM‘#WE_PATCH_S’#WE_PATCH_E“#WE_PATCH_S_STAG”#WE_PATCH_E_STAG•#SN_PATCH_S–#SN_PATCH_E—#SN_PATCH_S_STAG˜#SN_PATCH_E_STAG™#MAP_PROJš#MMINLU›#NUM_LAND_CATœ#IS_WATER#IS_LAKEž#IS_ICEŸ#IS_URBAN #ISOILWATER¡#GRID_ID¢#PARENT_ID£#I_PARENT_START¤#J_PARENT_START¥#I_PARENT_END¦#J_PARENT_END§#DX¨#DY©#CEN_LATª#MOAD_CEN_LAT«#CEN_LON¬#STAND_LON­#TRUELAT1®#TRUELAT2¯#POLE_LAT°#POLE_LON±#PARENT_GRID_RATIO²#CORNER_LATS³#CORNER_LONS´#SR_Xµ#SR_Y¶D@‹€D@Œ€D@€D@ŽD@D@D@‘D@’D@“D@”D@•D@–D@—D@˜D@™D@šD@›€D@œD@D@žD@ŸD@ D@¡D@¢D@£D@¤D@¥D@¦D@§D@¨ D@© D@ª D@« D@¬ D@­ D@® D@¯ D@° D@± D@² D@³ ppp D@´ pppD@µD@¶#@·#VAR_NAME¸#VAR_VALUE¹ @¸1D@¹€#@º#VAR_NAME»#VAR_VALUE¼#SUPPRESS_ERRORS½ @»1D@¼ @½#@¾#VAR_NAME¿#VAR_VALUEÀ @¿1D@À #@Á#VAR_NAMEÂ#VAR_VALUEÃ#NÄ @Â1 D@à p5“prÄ5“prÄ @@Ä#@Å#VAR_NAMEÆ#VAR_VALUEÇ#NÈ @Æ1 D@Ç p5“prÈ5“prÈ @@È#@É &fn#fn Æ@JGRIDINFO_MODULE(@JMISC_DEFINITIONS_MODULEF@JMODULE_DEBUG,†@JMODULE_INTERNAL_HEADER_UTIL Æ@JPARALLEL_MODULE@JQUEUE_MODULE#FpQUEUE+QUEUE_MODULE(¶\aQUEUE%HEAD+QUEUE_MODULE$dQ_ITEM+QUEUE_MODULE)v\aQ_ITEM%DATA+QUEUE_MODULE$Ò¦Q_DATA+QUEUE_MODULE&xHaQ_DATA%X+QUEUE_MODULE&ÀHaQ_DATA%Y+QUEUE_MODULE)HaQ_DATA%SR_X+QUEUE_MODULE)PHaQ_DATA%SR_Y+QUEUE_MODULE*˜PaQ_DATA%UNITS+QUEUE_MODULE0èPaQ_DATA%DESCRIPTION+QUEUE_MODULE,8PaQ_DATA%STAGGER+QUEUE_MODULE*ˆHaQ_DATA%DEPTH+QUEUE_MODULE)Ð\aQ_ITEM%NEXT+QUEUE_MODULE(,\aQUEUE%TAIL+QUEUE_MODULE*ˆHaQUEUE%LENGTH+QUEUE_MODULE#ÐqERROR+MODULE_DEBUG#AqDEBUG+MODULE_DEBUG9²tMAX_FILENAME_LEN+MISC_DEFINITIONS_MODULE+& @MY_PROC_ID+PARALLEL_MODULE(f qIO_NODE+PARALLEL_MODULE/× @DO_TILED_INPUT+GRIDINFO_MODULE. @IO_FORM_INPUT+GRIDINFO_MODULE/W qBINARY+MISC_DEFINITIONS_MODULE/È qNETCDF+MISC_DEFINITIONS_MODULE.9 qGRIB1+MISC_DEFINITIONS_MODULE%ª >MPRINTF+MODULE_DEBUG/è @aMPRINTF%ASSERTION+MODULE_DEBUG+( @aMPRINTF%LEVEL+MODULE_DEBUG/h LaMPRINTF%FMTSTRING+MODULE_DEBUG-´ @aMPRINTF%NEWLINE+MODULE_DEBUG(ô @aMPRINTF%I1+MODULE_DEBUG(4@aMPRINTF%I2+MODULE_DEBUG(t@aMPRINTF%I3+MODULE_DEBUG(´@aMPRINTF%I4+MODULE_DEBUG(ô@aMPRINTF%I5+MODULE_DEBUG(4@aMPRINTF%I6+MODULE_DEBUG(t@aMPRINTF%F1+MODULE_DEBUG(´@aMPRINTF%F2+MODULE_DEBUG(ô@aMPRINTF%F3+MODULE_DEBUG(4@aMPRINTF%F4+MODULE_DEBUG(t@aMPRINTF%F5+MODULE_DEBUG(´@aMPRINTF%F6+MODULE_DEBUG(ôLaMPRINTF%S1+MODULE_DEBUG(@LaMPRINTF%S2+MODULE_DEBUG(ŒLaMPRINTF%S3+MODULE_DEBUG(ØLaMPRINTF%S4+MODULE_DEBUG($LaMPRINTF%S5+MODULE_DEBUG(pLaMPRINTF%S6+MODULE_DEBUG(¼@aMPRINTF%L1+MODULE_DEBUG(ü@aMPRINTF%L2+MODULE_DEBUG(<@aMPRINTF%L3+MODULE_DEBUG(|@aMPRINTF%L4+MODULE_DEBUG(¼@aMPRINTF%L5+MODULE_DEBUG(ü@aMPRINTF%L6+MODULE_DEBUG)<@GRIDTYPE+GRIDINFO_MODULE=|@OPT_OUTPUT_FROM_GEOGRID_PATH+GRIDINFO_MODULE'¼@NPROCS+PARALLEL_MODULE$üOQ_INIT+QUEUE_MODULE&KSaQ_INIT%Q+QUEUE_MODULE3žaPARALLEL_BCAST_INT+PARALLEL_MODULE8ÿ@aPARALLEL_BCAST_INT%IVAL+PARALLEL_MODULE=?@aPARALLEL_BCAST_INT%FROM_WHOM+PARALLEL_MODULE&cQ_REMOVE+QUEUE_MODULE(âSaQ_REMOVE%Q+QUEUE_MODULE45hPARALLEL_BCAST_CHAR+PARALLEL_MODULE9TaPARALLEL_BCAST_CHAR%CVAL+PARALLEL_MODULE6ñ@aPARALLEL_BCAST_CHAR%N+PARALLEL_MODULE>1@aPARALLEL_BCAST_CHAR%FROM_WHOM+PARALLEL_MODULE(q@MY_MINX+PARALLEL_MODULE(±@MY_MAXX+PARALLEL_MODULE(ñ@MY_MINY+PARALLEL_MODULE(1@MY_MAXY+PARALLEL_MODULE%q@MY_X+PARALLEL_MODULE(±@NPROC_X+PARALLEL_MODULE%ñ@MY_Y+PARALLEL_MODULE(1@NPROC_Y+PARALLEL_MODULE6q SCATTER_WHOLE_FIELD_R+PARALLEL_MODULEB~|aSCATTER_WHOLE_FIELD_R%PATCH_ARRAY+PARALLEL_MODULE:ú@aSCATTER_WHOLE_FIELD_R%MS1+PARALLEL_MODULE::@aSCATTER_WHOLE_FIELD_R%ME1+PARALLEL_MODULE:z@aSCATTER_WHOLE_FIELD_R%MS2+PARALLEL_MODULE:º@aSCATTER_WHOLE_FIELD_R%ME2+PARALLEL_MODULE:ú@aSCATTER_WHOLE_FIELD_R%MS3+PARALLEL_MODULE::@aSCATTER_WHOLE_FIELD_R%ME3+PARALLEL_MODULE:z@aSCATTER_WHOLE_FIELD_R%PS1+PARALLEL_MODULE:º@aSCATTER_WHOLE_FIELD_R%PE1+PARALLEL_MODULE:ú@aSCATTER_WHOLE_FIELD_R%PS2+PARALLEL_MODULE:: @aSCATTER_WHOLE_FIELD_R%PE2+PARALLEL_MODULE:z @aSCATTER_WHOLE_FIELD_R%PS3+PARALLEL_MODULE:º @aSCATTER_WHOLE_FIELD_R%PE3+PARALLEL_MODULECú |aSCATTER_WHOLE_FIELD_R%DOMAIN_ARRAY+PARALLEL_MODULE:v#@aSCATTER_WHOLE_FIELD_R%DS1+PARALLEL_MODULE:¶#@aSCATTER_WHOLE_FIELD_R%DE1+PARALLEL_MODULE:ö#@aSCATTER_WHOLE_FIELD_R%DS2+PARALLEL_MODULE:6$@aSCATTER_WHOLE_FIELD_R%DE2+PARALLEL_MODULE:v$@aSCATTER_WHOLE_FIELD_R%DS3+PARALLEL_MODULE:¶$@aSCATTER_WHOLE_FIELD_R%DE3+PARALLEL_MODULE+ö$œSTART_DATE+GRIDINFO_MODULE&’%ZQ_INSERT+QUEUE_MODULE(ì%SaQ_INSERT%Q+QUEUE_MODULE,?&TaQ_INSERT%QITEM+QUEUE_MODULE4“&aPARALLEL_BCAST_REAL+PARALLEL_MODULE9ô&@aPARALLEL_BCAST_REAL%RVAL+PARALLEL_MODULE>4'@aPARALLEL_BCAST_REAL%FROM_WHOM+PARALLEL_MODULE't'OQ_DESTROY+QUEUE_MODULE)Ã'SaQ_DESTROY%Q+QUEUE_MODULE(KUNIT_DESCa(@HANDLE¡(@NUM_CALLS"á(@INTERNAL_GRIDTYPE!)fINPUT_INIT'‡)@aINPUT_INIT%NEST_NUMBER#Ç)@aINPUT_INIT%ISTATUS *0READ_NEXT_FIELD.7+@aREAD_NEXT_FIELD%START_PATCH_I,w+@aREAD_NEXT_FIELD%END_PATCH_I.·+@aREAD_NEXT_FIELD%START_PATCH_J,÷+@aREAD_NEXT_FIELD%END_PATCH_J.7,@aREAD_NEXT_FIELD%START_PATCH_K,w,@aREAD_NEXT_FIELD%END_PATCH_K&·,LaREAD_NEXT_FIELD%CNAME'-LaREAD_NEXT_FIELD%CUNITS&O-LaREAD_NEXT_FIELD%CDESC)›-LaREAD_NEXT_FIELD%MEMORDER(ç-LaREAD_NEXT_FIELD%STAGGER)3.œaREAD_NEXT_FIELD%DIMNAMES%Ï.@aREAD_NEXT_FIELD%SR_X%/@aREAD_NEXT_FIELD%SR_Y+O/¼aREAD_NEXT_FIELD%REAL_ARRAY( 0@aREAD_NEXT_FIELD%ISTATUS"K0øREAD_GLOBAL_ATTRS(C3PaREAD_GLOBAL_ATTRS%TITLE-“3PaREAD_GLOBAL_ATTRS%START_DATE,ã3PaREAD_GLOBAL_ATTRS%GRID_TYPE*34@aREAD_GLOBAL_ATTRS%DYN_OPT0s4@aREAD_GLOBAL_ATTRS%WEST_EAST_DIM2³4@aREAD_GLOBAL_ATTRS%SOUTH_NORTH_DIM1ó4@aREAD_GLOBAL_ATTRS%BOTTOM_TOP_DIM-35@aREAD_GLOBAL_ATTRS%WE_PATCH_S-s5@aREAD_GLOBAL_ATTRS%WE_PATCH_E2³5@aREAD_GLOBAL_ATTRS%WE_PATCH_S_STAG2ó5@aREAD_GLOBAL_ATTRS%WE_PATCH_E_STAG-36@aREAD_GLOBAL_ATTRS%SN_PATCH_S-s6@aREAD_GLOBAL_ATTRS%SN_PATCH_E2³6@aREAD_GLOBAL_ATTRS%SN_PATCH_S_STAG2ó6@aREAD_GLOBAL_ATTRS%SN_PATCH_E_STAG+37@aREAD_GLOBAL_ATTRS%MAP_PROJ)s7PaREAD_GLOBAL_ATTRS%MMINLU/Ã7@aREAD_GLOBAL_ATTRS%NUM_LAND_CAT+8@aREAD_GLOBAL_ATTRS%IS_WATER*C8@aREAD_GLOBAL_ATTRS%IS_LAKE)ƒ8@aREAD_GLOBAL_ATTRS%IS_ICE+Ã8@aREAD_GLOBAL_ATTRS%IS_URBAN-9@aREAD_GLOBAL_ATTRS%ISOILWATER*C9@aREAD_GLOBAL_ATTRS%GRID_ID,ƒ9@aREAD_GLOBAL_ATTRS%PARENT_ID1Ã9@aREAD_GLOBAL_ATTRS%I_PARENT_START1:@aREAD_GLOBAL_ATTRS%J_PARENT_START/C:@aREAD_GLOBAL_ATTRS%I_PARENT_END/ƒ:@aREAD_GLOBAL_ATTRS%J_PARENT_END%Ã:@aREAD_GLOBAL_ATTRS%DX%;@aREAD_GLOBAL_ATTRS%DY*C;@aREAD_GLOBAL_ATTRS%CEN_LAT/ƒ;@aREAD_GLOBAL_ATTRS%MOAD_CEN_LAT*Ã;@aREAD_GLOBAL_ATTRS%CEN_LON,<@aREAD_GLOBAL_ATTRS%STAND_LON+C<@aREAD_GLOBAL_ATTRS%TRUELAT1+ƒ<@aREAD_GLOBAL_ATTRS%TRUELAT2+Ã<@aREAD_GLOBAL_ATTRS%POLE_LAT+=@aREAD_GLOBAL_ATTRS%POLE_LON4C=@aREAD_GLOBAL_ATTRS%PARENT_GRID_RATIO.ƒ=”aREAD_GLOBAL_ATTRS%CORNER_LATS.>”aREAD_GLOBAL_ATTRS%CORNER_LONS'«>@aREAD_GLOBAL_ATTRS%SR_X'ë>@aREAD_GLOBAL_ATTRS%SR_Y$+?eEXT_GET_DOM_TI_CHAR-?LaEXT_GET_DOM_TI_CHAR%VAR_NAME.Ü?PaEXT_GET_DOM_TI_CHAR%VAR_VALUE.,@zEXT_GET_DOM_TI_INTEGER_SCALAR7¦@LaEXT_GET_DOM_TI_INTEGER_SCALAR%VAR_NAME8ò@@aEXT_GET_DOM_TI_INTEGER_SCALAR%VAR_VALUE>2A@aEXT_GET_DOM_TI_INTEGER_SCALAR%SUPPRESS_ERRORS+rAeEXT_GET_DOM_TI_REAL_SCALAR4×ALaEXT_GET_DOM_TI_REAL_SCALAR%VAR_NAME5#B@aEXT_GET_DOM_TI_REAL_SCALAR%VAR_VALUE+cBlEXT_GET_DOM_TI_REAL_VECTOR4ÏBLaEXT_GET_DOM_TI_REAL_VECTOR%VAR_NAME5C´aEXT_GET_DOM_TI_REAL_VECTOR%VAR_VALUE-ÏC@aEXT_GET_DOM_TI_REAL_VECTOR%N.DlEXT_GET_DOM_TI_INTEGER_VECTOR7{DLaEXT_GET_DOM_TI_INTEGER_VECTOR%VAR_NAME8ÇD´aEXT_GET_DOM_TI_INTEGER_VECTOR%VAR_VALUE0{E@aEXT_GET_DOM_TI_INTEGER_VECTOR%N»EHINPUT_CLOSE