iDk820309Ò¬< nodeinfodef.f90NODEINFODEFNODEINFOINITNODEINFOKILLREADNODEINFOWRITENODEINFOREADROOTDATAALLOCUSERFIELDSDEALLOCUSERFIELDSMAXDIMSREQUESTFLUXESREQUESTSPEEDSREQUESTJACOBIANSINITIALIZEFINALIZEREQUESTNORMALWAVESREQUESTTRANSVERSEWAVESQPRECXPRECFLAGKINDLASTLOGFLAGZEROMATUNITMATNODEINFOFUNCPARAM#@ INFOhNODEINFO#@ INFOhNODEINFO#@ INUNITINFO hNODEINFO#@ INUNITINFO  hNODEINFO#@ ROOTINFOhNODEINFO#@ INFOPARENThNODEINFOhNODEINFO#@ INFOhNODEINFO  4  1  2  3  e101  f102  g103  h104        14    T W pn  0.0hppppppp    T W pn  ð?n  n  n  n  n  ð?n  n  n  n  n  ð?n  n  n  n  n  ð?hppppppp @'hWTOBEDELETEDNEWGRIDVALIDDATAFIELDSALLOCATEDRESTOREQOLDERRORESTIMATIONINITIALGRIDLOGOPTIONSLEVELNDIMNRVARSMBCRMETHODORDERAMRSTEPAMRSTEPSNNOWNSTEPSNSTAGENRSTAGESNOUTOUTSTYLEMXMXNOWEXTLOWEXTHIGHMAUXMBOUNDSMGLOBALMTHBCPERIODICOFFSETT0TFINALTNOWTOLDTHALFDTCFLXLOWERXUPPERDXDTVCFLVQBUFQQOLDFIXUPFLUX1FIXUPFLUX2FIXUPFLUX3FIXUPFLUX4I1DCHILDSIGN1DDTDX1DQ1DQSLOPE1DQCURV1DAUX1DFQLFQRSLSRNUMFQLNUMFQRAQLAQRERRORFLAGSAUXLIMITERMEQNMWAVESTDIRNDIRMETHODMAXWAVESMTHLIMQHALFDTDX1DEDGEAPDQAMDQFTILDESPEEDASDQBPASDQBMASDQBSASDQWAVETFLUX  p&pppX \ ` d h lptx|€„ˆŒ ppp ¤¨¬ °ppppp Ðppppp ðppp ppp  (! 0" 8# @$ H% P&  X' ppp x( ppp ˜) ppp ¸* ppp à+ ppp, &&&&ˆ- &&&&&(. &&&&&È/ &&&&&h0 &&&&&1 &&&&&¨2 &&&&&H3&ˆ4&È5 &6 &&`7 &&¸8 &&9 &&h: &&À; && < &&p = &&È > && ? &&x @ &&&è A &&&X B&&&&à C &&&&&€ D„ Eˆ FŒ G H ” Ippp° J256 ´ Kppp¸L &&&&&XM &˜N &&ðO &&HP && Q &&øR &&PS &&¨T &&U &&XV &&&ÈW &&&&& @'0AMRSTEPAMRSTEPSTSTARTTENDDTDTNEWINFO00  0.  0.  0.   0.h(NODEINFO¸$fn#fn!Ü'buapp(NODEINFODEFENODEINFOINIT"HIaNODEINFOINIT%INFO‘ENODEINFOKILL"ÖIaNODEINFOKILL%INFOLREADNODEINFO$k8aREADNODEINFO%INUNIT"£IaREADNODEINFO%INFOìLWRITENODEINFO%88aWRITENODEINFO%INUNIT#pIaWRITENODEINFO%INFO¹IREADROOTDATA&IaREADROOTDATA%ROOTINFO KLALLOCUSERFIELDS%—IaALLOCUSERFIELDS%INFO'àIaALLOCUSERFIELDS%PARENT")EDEALLOCUSERFIELDS'nIaDEALLOCUSERFIELDS%INFO·iMAXDIMS iREQUESTFLUXES‰iREQUESTSPEEDS!òiREQUESTJACOBIANS[kINITIALIZEÆkFINALIZE#1 kREQUESTNORMALWAVES'œ kREQUESTTRANSVERSEWAVES hQPRECo hXPREC× hFLAGKIND? jLASTLOGFLAG© gZEROMAT ¬UNITMAT¼¤NODEINFO%`@aNODEINFO%TOBEDELETED! @aNODEINFO%NEWGRID#à@aNODEINFO%VALIDDATA) @aNODEINFO%FIELDSALLOCATED%`@aNODEINFO%RESTOREQOLD) @aNODEINFO%ERRORESTIMATION%à@aNODEINFO%INITIALGRID$ ¤aNODEINFO%LOGOPTIONSÄ@aNODEINFO%LEVEL@aNODEINFO%NDIM D@aNODEINFO%NRVARS„@aNODEINFO%MBCÄ@aNODEINFO%R%@aNODEINFO%METHODORDER!D@aNODEINFO%AMRSTEP"„@aNODEINFO%AMRSTEPSÄ@aNODEINFO%NNOW @aNODEINFO%NSTEPS D@aNODEINFO%NSTAGE"„@aNODEINFO%NRSTAGESÄ@aNODEINFO%NOUT"@aNODEINFO%OUTSTYLED”aNODEINFO%MXØ@aNODEINFO%MXNOW @aNODEINFO%EXTLOW!X@aNODEINFO%EXTHIGH˜@aNODEINFO%MAUX!Ø´aNODEINFO%MBOUNDS!Œ´aNODEINFO%MGLOBAL@”aNODEINFO%MTHBC(Ô”aNODEINFO%PERIODICOFFSETh@aNODEINFO%T0 ¨@aNODEINFO%TFINALè@aNODEINFO%TNOW(@aNODEINFO%TOLDh@aNODEINFO%THALF¨@aNODEINFO%DTè@aNODEINFO%CFL ( ”aNODEINFO%XLOWER ¼ ”aNODEINFO%XUPPERP!”aNODEINFO%DXä!”aNODEINFO%DTVx"”aNODEINFO%CFLV #ÔaNODEINFO%QBUFà#ìaNODEINFO%QÌ$ìaNODEINFO%QOLD$¸%ìaNODEINFO%FIXUPFLUX1$¤&ìaNODEINFO%FIXUPFLUX2$'ìaNODEINFO%FIXUPFLUX3$|(ìaNODEINFO%FIXUPFLUX4h)ŒaNODEINFO%I1D%ô)ŒaNODEINFO%CHILDSIGN1D €*ŒaNODEINFO%DTDX1D +¤aNODEINFO%Q1D"°+¤aNODEINFO%QSLOPE1D!T,¤aNODEINFO%QCURV1Dø,¤aNODEINFO%AUX1Dœ-¤aNODEINFO%FQL@.¤aNODEINFO%FQRä.¤aNODEINFO%SLˆ/¤aNODEINFO%SR ,0¤aNODEINFO%NUMFQL Ð0¤aNODEINFO%NUMFQRt1¼aNODEINFO%AQL02¼aNODEINFO%AQR$ì2ÔaNODEINFO%ERRORFLAGSÀ3ìaNODEINFO%AUX!¬4@aNODEINFO%LIMITERì4@aNODEINFO%MEQN ,5@aNODEINFO%MWAVESl5@aNODEINFO%TDIR¬5@aNODEINFO%NDIR ì5”aNODEINFO%METHOD"€6ŸaNODEINFO%MAXWAVES 7”aNODEINFO%MTHLIM³7ìaNODEINFO%QHALF$Ÿ8ŒaNODEINFO%DTDX1DEDGE+9¤aNODEINFO%APDQÏ9¤aNODEINFO%AMDQ s:¤aNODEINFO%FTILDE;¤aNODEINFO%SPEED»;¤aNODEINFO%ASDQ _<¤aNODEINFO%BPASDQ =¤aNODEINFO%BMASDQ §=¤aNODEINFO%BSASDQK>¼aNODEINFO%WAVE?ìaNODEINFO%TFLUXó?sFUNCPARAM"f@aFUNCPARAM%AMRSTEP#AaFUNCPARAM%AMRSTEPS! AžaFUNCPARAM%TSTART>BžaFUNCPARAM%TENDÜBžaFUNCPARAM%DT zCžaFUNCPARAM%DTNEWDQaFUNCPARAM%INFO