jDk820309H°< nodeinfodef.f90NODEINFODEFNODEINFOINITNODEINFOKILLREADNODEINFOWRITENODEINFOREADROOTDATAALLOCUSERFIELDSDEALLOCUSERFIELDSMAXDIMSREQUESTFLUXESREQUESTSPEEDSREQUESTJACOBIANSINITIALIZEFINALIZEREQUESTNORMALWAVESREQUESTTRANSVERSEWAVESQPRECXPRECFLAGKINDLASTLOGFLAGZEROMATUNITMATNODEINFOFUNCPARAM#@ INFOhNODEINFO#@ INFOhNODEINFO#@ INUNITINFO hNODEINFO#@ OUTUNITINFO 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ìMWRITENODEINFO&98aWRITENODEINFO%OUTUNIT#qIaWRITENODEINFO%INFOºIREADROOTDATA&IaREADROOTDATA%ROOTINFO LLALLOCUSERFIELDS%˜IaALLOCUSERFIELDS%INFO'áIaALLOCUSERFIELDS%PARENT"*EDEALLOCUSERFIELDS'oIaDEALLOCUSERFIELDS%INFO¸iMAXDIMS!iREQUESTFLUXESŠiREQUESTSPEEDS!óiREQUESTJACOBIANS\kINITIALIZEÇkFINALIZE#2 kREQUESTNORMALWAVES' kREQUESTTRANSVERSEWAVES hQPRECp hXPRECØ hFLAGKIND@ jLASTLOGFLAGª gZEROMAT ¬UNITMAT½¤NODEINFO%a@aNODEINFO%TOBEDELETED!¡@aNODEINFO%NEWGRID#á@aNODEINFO%VALIDDATA)!@aNODEINFO%FIELDSALLOCATED%a@aNODEINFO%RESTOREQOLD)¡@aNODEINFO%ERRORESTIMATION%á@aNODEINFO%INITIALGRID$!¤aNODEINFO%LOGOPTIONSÅ@aNODEINFO%LEVEL@aNODEINFO%NDIM E@aNODEINFO%NRVARS…@aNODEINFO%MBCÅ@aNODEINFO%R%@aNODEINFO%METHODORDER!E@aNODEINFO%AMRSTEP"…@aNODEINFO%AMRSTEPSÅ@aNODEINFO%NNOW @aNODEINFO%NSTEPS E@aNODEINFO%NSTAGE"…@aNODEINFO%NRSTAGESÅ@aNODEINFO%NOUT"@aNODEINFO%OUTSTYLEE”aNODEINFO%MXÙ@aNODEINFO%MXNOW @aNODEINFO%EXTLOW!Y@aNODEINFO%EXTHIGH™@aNODEINFO%MAUX!Ù´aNODEINFO%MBOUNDS!´aNODEINFO%MGLOBALA”aNODEINFO%MTHBC(Õ”aNODEINFO%PERIODICOFFSETi@aNODEINFO%T0 ©@aNODEINFO%TFINALé@aNODEINFO%TNOW)@aNODEINFO%TOLDi@aNODEINFO%THALF©@aNODEINFO%DTé@aNODEINFO%CFL ) ”aNODEINFO%XLOWER ½ ”aNODEINFO%XUPPERQ!”aNODEINFO%DXå!”aNODEINFO%DTVy"”aNODEINFO%CFLV #ÔaNODEINFO%QBUFá#ìaNODEINFO%QÍ$ìaNODEINFO%QOLD$¹%ìaNODEINFO%FIXUPFLUX1$¥&ìaNODEINFO%FIXUPFLUX2$‘'ìaNODEINFO%FIXUPFLUX3$}(ìaNODEINFO%FIXUPFLUX4i)ŒaNODEINFO%I1D%õ)ŒaNODEINFO%CHILDSIGN1D *ŒaNODEINFO%DTDX1D +¤aNODEINFO%Q1D"±+¤aNODEINFO%QSLOPE1D!U,¤aNODEINFO%QCURV1Dù,¤aNODEINFO%AUX1D-¤aNODEINFO%FQLA.¤aNODEINFO%FQRå.¤aNODEINFO%SL‰/¤aNODEINFO%SR -0¤aNODEINFO%NUMFQL Ñ0¤aNODEINFO%NUMFQRu1¼aNODEINFO%AQL12¼aNODEINFO%AQR$í2ÔaNODEINFO%ERRORFLAGSÁ3ìaNODEINFO%AUX!­4@aNODEINFO%LIMITERí4@aNODEINFO%MEQN -5@aNODEINFO%MWAVESm5@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 t:¤aNODEINFO%FTILDE;¤aNODEINFO%SPEED¼;¤aNODEINFO%ASDQ `<¤aNODEINFO%BPASDQ =¤aNODEINFO%BMASDQ ¨=¤aNODEINFO%BSASDQL>¼aNODEINFO%WAVE?ìaNODEINFO%TFLUXô?sFUNCPARAM"g@aFUNCPARAM%AMRSTEP#AaFUNCPARAM%AMRSTEPS!¡AaFUNCPARAM%TSTART?BaFUNCPARAM%TENDİBaFUNCPARAM%DT {CaFUNCPARAM%DTNEWDQaFUNCPARAM%INFO