?k820309l< nodeinfodef.f90NODEINFODEFNODEINFOINITNODEINFOKILLREADNODEINFOWRITENODEINFOREADROOTDATAALLOCUSERFIELDSDEALLOCUSERFIELDSMAXDIMSREQUESTFLUXESREQUESTSPEEDSREQUESTJACOBIANSINITIALIZEFINALIZEREQUESTNORMALWAVESREQUESTTRANSVERSEWAVESQPRECXPRECFLAGKINDLASTLOGFLAGZEROMATUNITMATNODEINFOFUNCPARAM#@ INFONODEINFO#@ INFONODEINFO#@ INUNITINFO NODEINFO#@ OUTUNITINFO NODEINFO#@ ROOTINFONODEINFO#@ INFOPARENTNODEINFONODEINFO#@ INFONODEINFO  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 @'VNODEINFOSTARTTOBEDELETEDNEWGRIDVALIDDATAFIELDSALLOCATEDRESTOREQOLDERRORESTIMATIONINITIALGRIDLOGOPTIONSMPI_IDNEW_MPI_IDPARENT_MPI_IDIINFOPOINTERIPARENTINFOPOINTERNSUBGRIDSLEVELNDIMNRVARSNEQUATIONSETMBCRMETHODORDERAMRSTEPAMRSTEPSNNOWNSTEPSNSTAGENRSTAGESNOUTNFRAMEOUTSTYLENROUTVARSMXMXNOWEXTLOWEXTHIGHMAUXMBOUNDSMGLOBALMTHBCBCNOWPERIODICOFFSETNSIZETCPUTMSGT0TFINALTNOWTOLDTHALFDTDT_NEXTCFLXLOWERXUPPERDXDTVCFLVI1DCHILDSIGN1DMSUBBOUNDSQBUFQQOLDPARENTQOLDFIXUPFLUX1FIXUPFLUX2FIXUPFLUX3FIXUPFLUX4DTDX1DQ1DQSLOPE1DQCURV1DAUX1DFQLFQRSLSRNUMFQLNUMFQRAQLAQRERRORFLAGSAUXMETHODNODEINFOEND    p&ppp\ ` d h lptx|  !ppp"#$% &ppppp 'ppppp (ppp8) <*pppP+ X, `- h. p/ x0 1 2 3 4 5  6 ppp 7 ppp 8 ppp 9 ppp 0: pppP;&<&=&&&@> &&&&? &&&&&h@ &&&&&A &&&&&B &&&&&HC &&&&&D &&&&&E &&&&&(F &hG &&H && I &&p J && K && L &&x M && N &&( O && P && Q &&&H R &&& S&&&&@ T &&&&&  UpppV @'0AMRSTEPAMRSTEPSTSTARTTENDDTDTNEWINFO00  0.  0.  0.   0.(NODEINFO$fn#fn!'buapp(NODEINFODEFENODEINFOINIT"HIaNODEINFOINIT%INFOENODEINFOKILL"IaNODEINFOKILL%INFOLREADNODEINFO$k8aREADNODEINFO%INUNIT"IaREADNODEINFO%INFOMWRITENODEINFO&98aWRITENODEINFO%OUTUNIT#qIaWRITENODEINFO%INFOIREADROOTDATA&IaREADROOTDATA%ROOTINFO LLALLOCUSERFIELDS%IaALLOCUSERFIELDS%INFO'IaALLOCUSERFIELDS%PARENT"*EDEALLOCUSERFIELDS'oIaDEALLOCUSERFIELDS%INFOiMAXDIMS!iREQUESTFLUXESiREQUESTSPEEDS!iREQUESTJACOBIANS\kINITIALIZEkFINALIZE#2 kREQUESTNORMALWAVES' kREQUESTTRANSVERSEWAVES hQPRECp hXPREC hFLAGKIND@ jLASTLOGFLAG gZEROMAT UNITMATNODEINFO'@aNODEINFO%NODEINFOSTART%@aNODEINFO%TOBEDELETED!@aNODEINFO%NEWGRID#\@aNODEINFO%VALIDDATA)@aNODEINFO%FIELDSALLOCATED%@aNODEINFO%RESTOREQOLD)@aNODEINFO%ERRORESTIMATION%\@aNODEINFO%INITIALGRID$aNODEINFO%LOGOPTIONS @@aNODEINFO%MPI_ID$@aNODEINFO%NEW_MPI_ID'@aNODEINFO%PARENT_MPI_ID&@aNODEINFO%IINFOPOINTER,@@aNODEINFO%IPARENTINFOPOINTER#@aNODEINFO%NSUBGRIDS@aNODEINFO%LEVEL@aNODEINFO%NDIM @@aNODEINFO%NRVARS&@aNODEINFO%NEQUATIONSET@aNODEINFO%MBC@aNODEINFO%R%@@aNODEINFO%METHODORDER!@aNODEINFO%AMRSTEP"@aNODEINFO%AMRSTEPS@aNODEINFO%NNOW @@aNODEINFO%NSTEPS @aNODEINFO%NSTAGE"@aNODEINFO%NRSTAGES@aNODEINFO%NOUT @@aNODEINFO%NFRAME"@aNODEINFO%OUTSTYLE#@aNODEINFO%NROUTVARSaNODEINFO%MX@aNODEINFO%MXNOW @aNODEINFO%EXTLOW!@aNODEINFO%EXTHIGHT@aNODEINFO%MAUX!aNODEINFO%MBOUNDS!HaNODEINFO%MGLOBALaNODEINFO%MTHBC @aNODEINFO%BCNOW( aNODEINFO%PERIODICOFFSETd!@aNODEINFO%NSIZE!@aNODEINFO%TCPU!@aNODEINFO%TMSG$"@aNODEINFO%T0 d"@aNODEINFO%TFINAL"@aNODEINFO%TNOW"@aNODEINFO%TOLD$#@aNODEINFO%THALFd#@aNODEINFO%DT!#@aNODEINFO%DT_NEXT#@aNODEINFO%CFL $$aNODEINFO%XLOWER $aNODEINFO%XUPPERL%aNODEINFO%DX%aNODEINFO%DTVt&aNODEINFO%CFLV'aNODEINFO%I1D%'aNODEINFO%CHILDSIGN1D$ (aNODEINFO%MSUBBOUNDS(aNODEINFO%QBUF)aNODEINFO%Q*aNODEINFO%QOLD$+aNODEINFO%PARENTQOLD$t,aNODEINFO%FIXUPFLUX1$`-aNODEINFO%FIXUPFLUX2$L.aNODEINFO%FIXUPFLUX3$8/aNODEINFO%FIXUPFLUX4 $0aNODEINFO%DTDX1D0aNODEINFO%Q1D"T1aNODEINFO%QSLOPE1D!1aNODEINFO%QCURV1D2aNODEINFO%AUX1D@3aNODEINFO%FQL3aNODEINFO%FQR4aNODEINFO%SL,5aNODEINFO%SR 5aNODEINFO%NUMFQL t6aNODEINFO%NUMFQR7aNODEINFO%AQL7aNODEINFO%AQR$8aNODEINFO%ERRORFLAGSd9aNODEINFO%AUX P:aNODEINFO%METHOD%:@aNODEINFO%NODEINFOEND$;sFUNCPARAM";aFUNCPARAM%AMRSTEP#4<aFUNCPARAM%AMRSTEPS!<aFUNCPARAM%TSTARTo=aFUNCPARAM%TEND >aFUNCPARAM%DT >aFUNCPARAM%DTNEWI?QaFUNCPARAM%INFO