SAT AUG 10
Ian P King
5 years ago
parent
6f279a1b5a
commit
cec6dc8f3a
@ -0,0 +1,97 @@
|
||||
INBNGEO MESH.GEO & Input binary file with geometric data
|
||||
OUTFIL RESULTS.OUT & Output ASCII results
|
||||
OUTBNRMA BRESULTS.RMA & Output binary file with new format results data
|
||||
ENDFIL
|
||||
MAXLAY 20
|
||||
ENDLIMIT
|
||||
TI
|
||||
STARTIM & Starting date and time
|
||||
ENDTIM & Ending date and time
|
||||
VERTTURB 0 & Vertical turbulence option
|
||||
MARSHOPT 0 & Marsh option 0=inactive -2 = input marsh parameters
|
||||
EDDYTYPE 1 & Eddy type 0 = fixed, 1= scaled, 2 = Smagorinsky
|
||||
TBFACT 0.200 & Turbulence factor when Smagorinsky is active
|
||||
TBMIN 1.000 & Turbulence minimum when Smagorinsky is active
|
||||
TIMPROJ 1 & Time projection switch 1= no projection, 0 = use time derivative (least stable), 2 = project u
|
||||
2DMODEL & 2-d model approximation
|
||||
GRAVITY 1 & Units switch 1 = metric 0 = english
|
||||
ZEROBED 0 & Force zero bed velocity 1 = at all bed levels 2 = limited by bed level input
|
||||
ZERBELLV 0.000 & Force zero velocity on water surface
|
||||
PASSSAL 0 & Bed level below which zero bed level in applied
|
||||
PASSTMP 0 & Ignore influence of salinity on water density
|
||||
PASSSED 0 & Ignore influence of temperature on water density
|
||||
ZEROSURF 0 & Ignore influence of sediment on water density
|
||||
SAVITR 0 & Save binary file for all iterations 0 = ignore, 1 =save
|
||||
REVRTDEN 0.000 & Option for vertical density model 0 = standard 1 = revised method
|
||||
OMEGA 0.000 & Latitude (degrees) positive in northern hemisphere
|
||||
ELEV 0.000 & Reference level for vertical transformation / Starting water level
|
||||
X-SCALE 1.000 & x scale factor (0.0 equivalent to 1.0)
|
||||
Y-SCALE 1.000 & y scale factor (0.0 equivalent to 1.0)
|
||||
Z-SCALE 1.000 & z sacle factor (0.0 equivalent to 1.0)
|
||||
BOUNDCMN 1.000 & Defines constant associated with vertical constituent distribution at boundary
|
||||
BOUNDCPW 1.000 & Defines power associated with vertical constituent distribution at boundary
|
||||
UNOM 0.000 & Nominal water velocity at startup
|
||||
UDIR 0.000 & Nominal current direction in radians c-clockwise from horzontal
|
||||
HMIN 0.000 & Minimum depth as startup (ignored if set = 0.0) Use with care can cause initial instabilty
|
||||
DSET 0.200 & Depth at which drying (element removal) is initiated when drying
|
||||
DSETD 0.300 & Depth at which rewetting (element return) occurs when flooding
|
||||
FIXBC 0 & Switch that forces boundary conditions to be applied regardless of direction
|
||||
VERTEQSW 20000 & Number of vertical velocity equations to switch to PARDISO (Default=20000)
|
||||
INITSAL 0.000 & Initial salinity when no restart file specified
|
||||
INITTEMP 20.000 & Initial temperature when no restart file specified
|
||||
INITSED 0.000 & Initial sediment concentration when no restart file specified
|
||||
INITUBED 0.100 & Bed x-velocity used to compute resistance to flow for initial conditions regardless of initial
|
||||
INITVBED 0.100 & Bed y-velocity used to compute resistance to flow for initial conditions regardless of initial
|
||||
RETRNPCT 0.000 & Percent of outflowing average concentration returned on next tidal inflow
|
||||
SURFMIX 0.500 & Depth of surface mixing (associated with free water surface local turbulence
|
||||
SSITN 20 & Number of steady state iteration cycles to be applied
|
||||
TRITN 20 & Number of time transient iteration cycles to be applied per time step
|
||||
TRSTEPS 12 & Number of transient steps to be simulated
|
||||
ECHSVALL & Show element and node data in echo print
|
||||
ITERINTV 0 & Iteration frequency for ASCII output. Skip if = 0
|
||||
ASCSVFRQ 1 & Time step frequency for ASCII output
|
||||
STBIN 1 & Save startup to binary results file
|
||||
DRYSW 0 & Switch to initiate element elimination
|
||||
FRQBIN 1 & Time step frequency for binary output
|
||||
FRQRST 10 & Time step frequency for individual binary restart file
|
||||
RWDASFRQ 999999 & Time step frequency for restarting ASCII results file (saves file size for very large number o
|
||||
1DTYP 1 & 1-D cross section type (see users manual for more details)
|
||||
SOLVER 4 & Equation solver type 0=FRONT > 0 PARDISO SOLVER
|
||||
SLVERDSK 0 & Switch to initiate out of local memory (disk) version of PARDISO for very large prblems
|
||||
MESSRWND 999999 & Time step frequency for restarting ASCII message file (saves file size for very large number o
|
||||
INITWSRF 0.000 & Initial water surface elevation, Required if different from tra nsformation reference level
|
||||
CONV-VEL 0.01000 & Convergence limit for velocities
|
||||
CONV-DEP 0.00100 & Convergence limit for depth
|
||||
CONV-SAL 0.01000 & Convergence limit for salinity
|
||||
CONV-TMP 0.01000 & Convergence limit for temperature
|
||||
CONV-SED 0.01000 & Convergence limit for sediment concentration
|
||||
CONT-FLW & Save flows in continuity line output
|
||||
EDDY-MAT 1 -0.20000 & Horizontal turbulent eddy coefficient
|
||||
EDDY-VRT 1 0.000E+00 & Vertical turbulent eddy coefficient
|
||||
DIFF-MAT 1 0.00000 & Horizontal turbulent diffusion coefficient
|
||||
DIFF-VRT 1 0.000E+00 & Vertical turbulent diffusion coefficient
|
||||
MANN-MAT 1 0.02000 & Manning/Chezy bed friction coefficient >1.0 is Chezy coefficient
|
||||
MANN-BNK 1 0.00000 & Bank Manning coefficient if appropriate
|
||||
MANN-SRF 1 0.00000 & Water surface Manning coefficient if appropriate
|
||||
MARSH-FR 1 0.00000 & Marsh factor when drying applied to friction coefficient
|
||||
ED-VTVAR 1 1.000 0.000 0.000 & Eqn for vertical distribution factor for horizontal eddy coefficient F=a+z*(b+c*z)
|
||||
BN-V-MIN 1.000 & Boundary velocity vertical distribution constant
|
||||
BN-V-PWR 1.000 & Boundary velocity vertical distribution power
|
||||
TR-V-MIN 1.000 & 2-D to 3-D velocity vertical distribution constant
|
||||
TR-V-PWR 1.000 & 2-D to 3-D velocity vertical distribution power
|
||||
MARSH-SH 1.500
|
||||
MARSH-RG 0.670
|
||||
MARSH-PR 0.040
|
||||
MARSH-LM 0.000
|
||||
TAB-END
|
||||
ENDGEO
|
||||
DELTA-HR 0.0000 & Time step in minutes
|
||||
CN-ELEVC 2 0 0.0000 0.000 0.000 0.000 & Continuity line elevation CN-ELEVC is elevation specified as constant along a line - CCLINE, Elevation ,bc-sal,bc-temp,bc-sed
|
||||
CN-QC 1 0 50.00 0.00 0.000 0.000 0.000 & Continuity line inflow CN-QC is standard inflow , CCLINE, Total Flow, Dir, bc-sal,bc-temp,bc-sed FL-QC means subsequent steps from file
|
||||
ENDSTEP
|
||||
DELTA-MN 15.0000 & Time step in hours
|
||||
DATE-END 31/01/2018 12.00 & Ending time for the time step block
|
||||
CN-ELEVC 2 0 0.0000 0.000 0.000 0.000 & Continuity line elevation CN-ELEVC is elevation specified as constant along a line - CCLINE, Elevation ,bc-sal,bc-temp,bc-sed
|
||||
CN-QC 1 0 50.00 0.00 0.000 0.000 0.000 & Continuity line inflow CN-QC is standard inflow , CCLINE, Total Flow, Dir, bc-sal,bc-temp,bc-sed FL-QC means subsequent steps from file
|
||||
ENDSTEP
|
||||
ENDDATA
|
||||
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
|
||||
@ -0,0 +1,8 @@
|
||||
<xml xmlns:o="urn:schemas-microsoft-com:office:office">
|
||||
<o:MainFile HRef="../CONTROL1.htm"/>
|
||||
<o:File HRef="themedata.thmx"/>
|
||||
<o:File HRef="colorschememapping.xml"/>
|
||||
<o:File HRef="image001.png"/>
|
||||
<o:File HRef="image002.jpg"/>
|
||||
<o:File HRef="filelist.xml"/>
|
||||
</xml>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 292 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 65 KiB |
Binary file not shown.
Binary file not shown.
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
|
||||
@ -0,0 +1,8 @@
|
||||
<xml xmlns:o="urn:schemas-microsoft-com:office:office">
|
||||
<o:MainFile HRef="../control2.htm"/>
|
||||
<o:File HRef="themedata.thmx"/>
|
||||
<o:File HRef="colorschememapping.xml"/>
|
||||
<o:File HRef="image001.png"/>
|
||||
<o:File HRef="image002.jpg"/>
|
||||
<o:File HRef="filelist.xml"/>
|
||||
</xml>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 106 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 131 KiB |
Binary file not shown.
Binary file not shown.
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
|
||||
@ -0,0 +1,8 @@
|
||||
<xml xmlns:o="urn:schemas-microsoft-com:office:office">
|
||||
<o:MainFile HRef="../control3.htm"/>
|
||||
<o:File HRef="themedata.thmx"/>
|
||||
<o:File HRef="colorschememapping.xml"/>
|
||||
<o:File HRef="image001.png"/>
|
||||
<o:File HRef="image002.jpg"/>
|
||||
<o:File HRef="filelist.xml"/>
|
||||
</xml>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 202 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 131 KiB |
Binary file not shown.
Binary file not shown.
@ -0,0 +1,824 @@
|
||||
<html xmlns:v="urn:schemas-microsoft-com:vml"
|
||||
xmlns:o="urn:schemas-microsoft-com:office:office"
|
||||
xmlns:w="urn:schemas-microsoft-com:office:word"
|
||||
xmlns:m="http://schemas.microsoft.com/office/2004/12/omml"
|
||||
xmlns="http://www.w3.org/TR/REC-html40">
|
||||
|
||||
<head>
|
||||
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
|
||||
<meta name=ProgId content=Word.Document>
|
||||
<meta name=Generator content="Microsoft Word 15">
|
||||
<meta name=Originator content="Microsoft Word 15">
|
||||
<link rel=File-List href="control4_files/filelist.xml">
|
||||
<link rel=Edit-Time-Data href="control4_files/editdata.mso">
|
||||
<!--[if !mso]>
|
||||
<style>
|
||||
v\:* {behavior:url(#default#VML);}
|
||||
o\:* {behavior:url(#default#VML);}
|
||||
w\:* {behavior:url(#default#VML);}
|
||||
.shape {behavior:url(#default#VML);}
|
||||
</style>
|
||||
<![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:DocumentProperties>
|
||||
<o:Author>Ian King</o:Author>
|
||||
<o:LastAuthor>Ian King</o:LastAuthor>
|
||||
<o:Revision>2</o:Revision>
|
||||
<o:Created>2019-08-07T00:39:00Z</o:Created>
|
||||
<o:LastSaved>2019-08-07T00:39:00Z</o:LastSaved>
|
||||
<o:Pages>1</o:Pages>
|
||||
<o:Characters>3</o:Characters>
|
||||
<o:Lines>1</o:Lines>
|
||||
<o:Paragraphs>1</o:Paragraphs>
|
||||
<o:CharactersWithSpaces>3</o:CharactersWithSpaces>
|
||||
<o:Version>16.00</o:Version>
|
||||
</o:DocumentProperties>
|
||||
<o:OfficeDocumentSettings>
|
||||
<o:AllowPNG/>
|
||||
</o:OfficeDocumentSettings>
|
||||
</xml><![endif]-->
|
||||
<link rel=themeData href="control4_files/themedata.thmx">
|
||||
<link rel=colorSchemeMapping href="control4_files/colorschememapping.xml">
|
||||
<!--[if gte mso 9]><xml>
|
||||
<w:WordDocument>
|
||||
<w:SpellingState>Clean</w:SpellingState>
|
||||
<w:GrammarState>Clean</w:GrammarState>
|
||||
<w:TrackMoves>false</w:TrackMoves>
|
||||
<w:TrackFormatting/>
|
||||
<w:PunctuationKerning/>
|
||||
<w:ValidateAgainstSchemas/>
|
||||
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
|
||||
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
|
||||
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
|
||||
<w:DoNotPromoteQF/>
|
||||
<w:LidThemeOther>EN-AU</w:LidThemeOther>
|
||||
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
|
||||
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
|
||||
<w:Compatibility>
|
||||
<w:BreakWrappedTables/>
|
||||
<w:SnapToGridInCell/>
|
||||
<w:WrapTextWithPunct/>
|
||||
<w:UseAsianBreakRules/>
|
||||
<w:DontGrowAutofit/>
|
||||
<w:SplitPgBreakAndParaMark/>
|
||||
<w:EnableOpenTypeKerning/>
|
||||
<w:DontFlipMirrorIndents/>
|
||||
<w:OverrideTableStyleHps/>
|
||||
</w:Compatibility>
|
||||
<m:mathPr>
|
||||
<m:mathFont m:val="Cambria Math"/>
|
||||
<m:brkBin m:val="before"/>
|
||||
<m:brkBinSub m:val="--"/>
|
||||
<m:smallFrac m:val="off"/>
|
||||
<m:dispDef/>
|
||||
<m:lMargin m:val="0"/>
|
||||
<m:rMargin m:val="0"/>
|
||||
<m:defJc m:val="centerGroup"/>
|
||||
<m:wrapIndent m:val="1440"/>
|
||||
<m:intLim m:val="subSup"/>
|
||||
<m:naryLim m:val="undOvr"/>
|
||||
</m:mathPr></w:WordDocument>
|
||||
</xml><![endif]--><!--[if gte mso 9]><xml>
|
||||
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="false"
|
||||
DefSemiHidden="false" DefQFormat="false" DefPriority="99"
|
||||
LatentStyleCount="376">
|
||||
<w:LsdException Locked="false" Priority="0" QFormat="true" Name="Normal"/>
|
||||
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 1"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 2"/>
|
||||
<w:LsdException Locked="false" Priority="0" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 3"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 4"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 5"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 6"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 7"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 8"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 9"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 9"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 1"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 2"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 3"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 4"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 5"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 6"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 7"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 8"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 9"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footnote text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="header"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footer"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index heading"/>
|
||||
<w:LsdException Locked="false" Priority="35" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="caption"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="table of figures"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="envelope address"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="envelope return"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footnote reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="line number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="page number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="endnote reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="endnote text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="table of authorities"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="macro"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="toa heading"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 5"/>
|
||||
<w:LsdException Locked="false" Priority="10" QFormat="true" Name="Title"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Closing"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Signature"/>
|
||||
<w:LsdException Locked="false" Priority="1" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="Default Paragraph Font"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Message Header"/>
|
||||
<w:LsdException Locked="false" Priority="11" QFormat="true" Name="Subtitle"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Salutation"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Date"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text First Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text First Indent 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Note Heading"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Block Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Hyperlink"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="FollowedHyperlink"/>
|
||||
<w:LsdException Locked="false" Priority="22" QFormat="true" Name="Strong"/>
|
||||
<w:LsdException Locked="false" Priority="20" QFormat="true" Name="Emphasis"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Document Map"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Plain Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="E-mail Signature"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Top of Form"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Bottom of Form"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal (Web)"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Acronym"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Address"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Cite"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Code"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Definition"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Keyboard"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Preformatted"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Sample"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Typewriter"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Variable"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal Table"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation subject"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="No List"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Contemporary"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Elegant"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Professional"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Subtle 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Subtle 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Balloon Text"/>
|
||||
<w:LsdException Locked="false" Priority="39" Name="Table Grid"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Theme"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" Name="Placeholder Text"/>
|
||||
<w:LsdException Locked="false" Priority="1" QFormat="true" Name="No Spacing"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" Name="Revision"/>
|
||||
<w:LsdException Locked="false" Priority="34" QFormat="true"
|
||||
Name="List Paragraph"/>
|
||||
<w:LsdException Locked="false" Priority="29" QFormat="true" Name="Quote"/>
|
||||
<w:LsdException Locked="false" Priority="30" QFormat="true"
|
||||
Name="Intense Quote"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="19" QFormat="true"
|
||||
Name="Subtle Emphasis"/>
|
||||
<w:LsdException Locked="false" Priority="21" QFormat="true"
|
||||
Name="Intense Emphasis"/>
|
||||
<w:LsdException Locked="false" Priority="31" QFormat="true"
|
||||
Name="Subtle Reference"/>
|
||||
<w:LsdException Locked="false" Priority="32" QFormat="true"
|
||||
Name="Intense Reference"/>
|
||||
<w:LsdException Locked="false" Priority="33" QFormat="true" Name="Book Title"/>
|
||||
<w:LsdException Locked="false" Priority="37" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="Bibliography"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="TOC Heading"/>
|
||||
<w:LsdException Locked="false" Priority="41" Name="Plain Table 1"/>
|
||||
<w:LsdException Locked="false" Priority="42" Name="Plain Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="43" Name="Plain Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="44" Name="Plain Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="45" Name="Plain Table 5"/>
|
||||
<w:LsdException Locked="false" Priority="40" Name="Grid Table Light"/>
|
||||
<w:LsdException Locked="false" Priority="46" Name="Grid Table 1 Light"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark"/>
|
||||
<w:LsdException Locked="false" Priority="51" Name="Grid Table 6 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="52" Name="Grid Table 7 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="46" Name="List Table 1 Light"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark"/>
|
||||
<w:LsdException Locked="false" Priority="51" Name="List Table 6 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="52" Name="List Table 7 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Mention"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Smart Hyperlink"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Hashtag"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Unresolved Mention"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Smart Link"/>
|
||||
</w:LatentStyles>
|
||||
</xml><![endif]-->
|
||||
<style>
|
||||
<!--
|
||||
/* Font Definitions */
|
||||
@font-face
|
||||
{font-family:"Cambria Math";
|
||||
panose-1:2 4 5 3 5 4 6 3 2 4;
|
||||
mso-font-charset:0;
|
||||
mso-generic-font-family:roman;
|
||||
mso-font-pitch:variable;
|
||||
mso-font-signature:3 0 0 0 1 0;}
|
||||
@font-face
|
||||
{font-family:Times;
|
||||
panose-1:2 2 6 3 5 4 5 2 3 4;
|
||||
mso-font-alt:"Times New Roman";
|
||||
mso-font-charset:0;
|
||||
mso-generic-font-family:roman;
|
||||
mso-font-pitch:variable;
|
||||
mso-font-signature:-536858881 -1073711013 9 0 511 0;}
|
||||
/* Style Definitions */
|
||||
p.MsoNormal, li.MsoNormal, div.MsoNormal
|
||||
{mso-style-unhide:no;
|
||||
mso-style-qformat:yes;
|
||||
mso-style-parent:"";
|
||||
margin:0cm;
|
||||
margin-bottom:.0001pt;
|
||||
mso-pagination:widow-orphan;
|
||||
font-size:11.0pt;
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Arial",sans-serif;
|
||||
mso-fareast-font-family:"Times New Roman";
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
mso-fareast-language:EN-US;}
|
||||
h3
|
||||
{mso-style-unhide:no;
|
||||
mso-style-qformat:yes;
|
||||
mso-style-link:"Heading 3 Char";
|
||||
mso-style-next:Normal;
|
||||
margin-top:0cm;
|
||||
margin-right:0cm;
|
||||
margin-bottom:0cm;
|
||||
margin-left:18.0pt;
|
||||
margin-bottom:.0001pt;
|
||||
mso-pagination:widow-orphan;
|
||||
mso-outline-level:3;
|
||||
font-size:11.0pt;
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Times",serif;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
mso-fareast-language:EN-US;
|
||||
mso-bidi-font-weight:normal;}
|
||||
span.Heading3Char
|
||||
{mso-style-name:"Heading 3 Char";
|
||||
mso-style-unhide:no;
|
||||
mso-style-locked:yes;
|
||||
mso-style-link:"Heading 3";
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Times",serif;
|
||||
mso-ascii-font-family:Times;
|
||||
mso-hansi-font-family:Times;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
font-weight:bold;
|
||||
mso-bidi-font-weight:normal;}
|
||||
.MsoChpDefault
|
||||
{mso-style-type:export-only;
|
||||
mso-default-props:yes;
|
||||
font-family:"Calibri",sans-serif;
|
||||
mso-ascii-font-family:Calibri;
|
||||
mso-ascii-theme-font:minor-latin;
|
||||
mso-hansi-font-family:Calibri;
|
||||
mso-hansi-theme-font:minor-latin;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-bidi-theme-font:minor-bidi;
|
||||
mso-fareast-language:EN-US;}
|
||||
.MsoPapDefault
|
||||
{mso-style-type:export-only;
|
||||
margin-bottom:8.0pt;
|
||||
line-height:107%;}
|
||||
@page WordSection1
|
||||
{size:595.3pt 841.9pt;
|
||||
margin:72.0pt 72.0pt 72.0pt 72.0pt;
|
||||
mso-header-margin:35.4pt;
|
||||
mso-footer-margin:35.4pt;
|
||||
mso-paper-source:0;}
|
||||
div.WordSection1
|
||||
{page:WordSection1;}
|
||||
-->
|
||||
</style>
|
||||
<!--[if gte mso 10]>
|
||||
<style>
|
||||
/* Style Definitions */
|
||||
table.MsoNormalTable
|
||||
{mso-style-name:"Table Normal";
|
||||
mso-tstyle-rowband-size:0;
|
||||
mso-tstyle-colband-size:0;
|
||||
mso-style-noshow:yes;
|
||||
mso-style-priority:99;
|
||||
mso-style-parent:"";
|
||||
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
|
||||
mso-para-margin-top:0cm;
|
||||
mso-para-margin-right:0cm;
|
||||
mso-para-margin-bottom:8.0pt;
|
||||
mso-para-margin-left:0cm;
|
||||
line-height:107%;
|
||||
mso-pagination:widow-orphan;
|
||||
font-size:11.0pt;
|
||||
font-family:"Calibri",sans-serif;
|
||||
mso-ascii-font-family:Calibri;
|
||||
mso-ascii-theme-font:minor-latin;
|
||||
mso-hansi-font-family:Calibri;
|
||||
mso-hansi-theme-font:minor-latin;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-bidi-theme-font:minor-bidi;
|
||||
mso-fareast-language:EN-US;}
|
||||
</style>
|
||||
<![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:shapedefaults v:ext="edit" spidmax="1026"/>
|
||||
</xml><![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:shapelayout v:ext="edit">
|
||||
<o:idmap v:ext="edit" data="1"/>
|
||||
</o:shapelayout></xml><![endif]-->
|
||||
</head>
|
||||
|
||||
<body lang=EN-AU style='tab-interval:36.0pt'>
|
||||
|
||||
<div class=WordSection1>
|
||||
|
||||
<p class=MsoNormal align=center style='text-align:center'><span lang=EN-US
|
||||
style='mso-no-proof:yes'><!--[if gte vml 1]><v:shapetype id="_x0000_t75"
|
||||
coordsize="21600,21600" o:spt="75" o:preferrelative="t" path="m@4@5l@4@11@9@11@9@5xe"
|
||||
filled="f" stroked="f">
|
||||
<v:stroke joinstyle="miter"/>
|
||||
<v:formulas>
|
||||
<v:f eqn="if lineDrawn pixelLineWidth 0"/>
|
||||
<v:f eqn="sum @0 1 0"/>
|
||||
<v:f eqn="sum 0 0 @1"/>
|
||||
<v:f eqn="prod @2 1 2"/>
|
||||
<v:f eqn="prod @3 21600 pixelWidth"/>
|
||||
<v:f eqn="prod @3 21600 pixelHeight"/>
|
||||
<v:f eqn="sum @0 0 1"/>
|
||||
<v:f eqn="prod @6 1 2"/>
|
||||
<v:f eqn="prod @7 21600 pixelWidth"/>
|
||||
<v:f eqn="sum @8 21600 0"/>
|
||||
<v:f eqn="prod @7 21600 pixelHeight"/>
|
||||
<v:f eqn="sum @10 21600 0"/>
|
||||
</v:formulas>
|
||||
<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>
|
||||
<o:lock v:ext="edit" aspectratio="t"/>
|
||||
</v:shapetype><v:shape id="Picture_x0020_1" o:spid="_x0000_i1025" type="#_x0000_t75"
|
||||
style='width:452.5pt;height:415.5pt;visibility:visible;mso-wrap-style:square'>
|
||||
<v:imagedata src="control4_files/image001.png" o:title=""/>
|
||||
</v:shape><![endif]--><![if !vml]><img width=603 height=554
|
||||
src="control4_files/image002.jpg" v:shapes="Picture_x0020_1"><![endif]></span></p>
|
||||
|
||||
<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>
|
||||
|
||||
<p class=MsoNormal><span lang=EN-US><o:p> </o:p></span></p>
|
||||
|
||||
</div>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
|
||||
@ -0,0 +1,8 @@
|
||||
<xml xmlns:o="urn:schemas-microsoft-com:office:office">
|
||||
<o:MainFile HRef="../control4.htm"/>
|
||||
<o:File HRef="themedata.thmx"/>
|
||||
<o:File HRef="colorschememapping.xml"/>
|
||||
<o:File HRef="image001.png"/>
|
||||
<o:File HRef="image002.jpg"/>
|
||||
<o:File HRef="filelist.xml"/>
|
||||
</xml>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 65 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 53 KiB |
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large
Load Diff
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
|
||||
@ -0,0 +1,8 @@
|
||||
<xml xmlns:o="urn:schemas-microsoft-com:office:office">
|
||||
<o:MainFile HRef="../intro.htm"/>
|
||||
<o:File HRef="themedata.thmx"/>
|
||||
<o:File HRef="colorschememapping.xml"/>
|
||||
<o:File HRef="image001.png"/>
|
||||
<o:File HRef="image002.jpg"/>
|
||||
<o:File HRef="filelist.xml"/>
|
||||
</xml>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 105 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 30 KiB |
Binary file not shown.
Binary file not shown.
@ -0,0 +1,61 @@
|
||||
<html>
|
||||
|
||||
<head>
|
||||
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
|
||||
<meta name=Generator content="Microsoft Word 15 (filtered)">
|
||||
<style>
|
||||
<!--
|
||||
/* Font Definitions */
|
||||
@font-face
|
||||
{font-family:"Cambria Math";
|
||||
panose-1:2 4 5 3 5 4 6 3 2 4;}
|
||||
@font-face
|
||||
{font-family:Times;
|
||||
panose-1:2 2 6 3 5 4 5 2 3 4;}
|
||||
/* Style Definitions */
|
||||
p.MsoNormal, li.MsoNormal, div.MsoNormal
|
||||
{margin:0cm;
|
||||
margin-bottom:.0001pt;
|
||||
font-size:11.0pt;
|
||||
font-family:"Arial",sans-serif;}
|
||||
h3
|
||||
{mso-style-link:"Heading 3 Char";
|
||||
margin-top:0cm;
|
||||
margin-right:0cm;
|
||||
margin-bottom:0cm;
|
||||
margin-left:18.0pt;
|
||||
margin-bottom:.0001pt;
|
||||
font-size:11.0pt;
|
||||
font-family:"Times",serif;}
|
||||
span.Heading3Char
|
||||
{mso-style-name:"Heading 3 Char";
|
||||
mso-style-link:"Heading 3";
|
||||
font-family:"Times",serif;
|
||||
font-weight:bold;}
|
||||
.MsoChpDefault
|
||||
{font-family:"Calibri",sans-serif;}
|
||||
.MsoPapDefault
|
||||
{margin-bottom:8.0pt;
|
||||
line-height:107%;}
|
||||
@page WordSection1
|
||||
{size:595.3pt 841.9pt;
|
||||
margin:72.0pt 72.0pt 72.0pt 72.0pt;}
|
||||
div.WordSection1
|
||||
{page:WordSection1;}
|
||||
-->
|
||||
</style>
|
||||
|
||||
</head>
|
||||
|
||||
<body lang=EN-AU>
|
||||
|
||||
<div class=WordSection1>
|
||||
|
||||
<p class=MsoNormal align=center style='text-align:center'><span lang=EN-US><img
|
||||
width=417 height=320 id="Picture 1" src="timestp0_files/image001.jpg"></span></p>
|
||||
|
||||
</div>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 20 KiB |
Binary file not shown.
@ -0,0 +1,819 @@
|
||||
<html xmlns:v="urn:schemas-microsoft-com:vml"
|
||||
xmlns:o="urn:schemas-microsoft-com:office:office"
|
||||
xmlns:w="urn:schemas-microsoft-com:office:word"
|
||||
xmlns:m="http://schemas.microsoft.com/office/2004/12/omml"
|
||||
xmlns="http://www.w3.org/TR/REC-html40">
|
||||
|
||||
<head>
|
||||
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
|
||||
<meta name=ProgId content=Word.Document>
|
||||
<meta name=Generator content="Microsoft Word 15">
|
||||
<meta name=Originator content="Microsoft Word 15">
|
||||
<link rel=File-List href="timestp1_files/filelist.xml">
|
||||
<link rel=Edit-Time-Data href="timestp1_files/editdata.mso">
|
||||
<!--[if !mso]>
|
||||
<style>
|
||||
v\:* {behavior:url(#default#VML);}
|
||||
o\:* {behavior:url(#default#VML);}
|
||||
w\:* {behavior:url(#default#VML);}
|
||||
.shape {behavior:url(#default#VML);}
|
||||
</style>
|
||||
<![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:DocumentProperties>
|
||||
<o:Author>Ian King</o:Author>
|
||||
<o:LastAuthor>Ian King</o:LastAuthor>
|
||||
<o:Revision>2</o:Revision>
|
||||
<o:Created>2019-08-08T00:40:00Z</o:Created>
|
||||
<o:LastSaved>2019-08-08T00:40:00Z</o:LastSaved>
|
||||
<o:Pages>1</o:Pages>
|
||||
<o:Characters>1</o:Characters>
|
||||
<o:Lines>1</o:Lines>
|
||||
<o:Paragraphs>1</o:Paragraphs>
|
||||
<o:CharactersWithSpaces>1</o:CharactersWithSpaces>
|
||||
<o:Version>16.00</o:Version>
|
||||
</o:DocumentProperties>
|
||||
<o:OfficeDocumentSettings>
|
||||
<o:AllowPNG/>
|
||||
</o:OfficeDocumentSettings>
|
||||
</xml><![endif]-->
|
||||
<link rel=themeData href="timestp1_files/themedata.thmx">
|
||||
<link rel=colorSchemeMapping href="timestp1_files/colorschememapping.xml">
|
||||
<!--[if gte mso 9]><xml>
|
||||
<w:WordDocument>
|
||||
<w:SpellingState>Clean</w:SpellingState>
|
||||
<w:GrammarState>Clean</w:GrammarState>
|
||||
<w:TrackMoves>false</w:TrackMoves>
|
||||
<w:TrackFormatting/>
|
||||
<w:PunctuationKerning/>
|
||||
<w:ValidateAgainstSchemas/>
|
||||
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
|
||||
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
|
||||
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
|
||||
<w:DoNotPromoteQF/>
|
||||
<w:LidThemeOther>EN-AU</w:LidThemeOther>
|
||||
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
|
||||
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
|
||||
<w:Compatibility>
|
||||
<w:BreakWrappedTables/>
|
||||
<w:SnapToGridInCell/>
|
||||
<w:WrapTextWithPunct/>
|
||||
<w:UseAsianBreakRules/>
|
||||
<w:DontGrowAutofit/>
|
||||
<w:SplitPgBreakAndParaMark/>
|
||||
<w:EnableOpenTypeKerning/>
|
||||
<w:DontFlipMirrorIndents/>
|
||||
<w:OverrideTableStyleHps/>
|
||||
</w:Compatibility>
|
||||
<m:mathPr>
|
||||
<m:mathFont m:val="Cambria Math"/>
|
||||
<m:brkBin m:val="before"/>
|
||||
<m:brkBinSub m:val="--"/>
|
||||
<m:smallFrac m:val="off"/>
|
||||
<m:dispDef/>
|
||||
<m:lMargin m:val="0"/>
|
||||
<m:rMargin m:val="0"/>
|
||||
<m:defJc m:val="centerGroup"/>
|
||||
<m:wrapIndent m:val="1440"/>
|
||||
<m:intLim m:val="subSup"/>
|
||||
<m:naryLim m:val="undOvr"/>
|
||||
</m:mathPr></w:WordDocument>
|
||||
</xml><![endif]--><!--[if gte mso 9]><xml>
|
||||
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="false"
|
||||
DefSemiHidden="false" DefQFormat="false" DefPriority="99"
|
||||
LatentStyleCount="376">
|
||||
<w:LsdException Locked="false" Priority="0" QFormat="true" Name="Normal"/>
|
||||
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 1"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 2"/>
|
||||
<w:LsdException Locked="false" Priority="0" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 3"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 4"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 5"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 6"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 7"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 8"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 9"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 9"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 1"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 2"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 3"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 4"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 5"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 6"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 7"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 8"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 9"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footnote text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="header"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footer"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index heading"/>
|
||||
<w:LsdException Locked="false" Priority="35" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="caption"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="table of figures"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="envelope address"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="envelope return"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footnote reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="line number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="page number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="endnote reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="endnote text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="table of authorities"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="macro"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="toa heading"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 5"/>
|
||||
<w:LsdException Locked="false" Priority="10" QFormat="true" Name="Title"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Closing"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Signature"/>
|
||||
<w:LsdException Locked="false" Priority="1" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="Default Paragraph Font"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Message Header"/>
|
||||
<w:LsdException Locked="false" Priority="11" QFormat="true" Name="Subtitle"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Salutation"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Date"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text First Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text First Indent 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Note Heading"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Block Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Hyperlink"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="FollowedHyperlink"/>
|
||||
<w:LsdException Locked="false" Priority="22" QFormat="true" Name="Strong"/>
|
||||
<w:LsdException Locked="false" Priority="20" QFormat="true" Name="Emphasis"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Document Map"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Plain Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="E-mail Signature"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Top of Form"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Bottom of Form"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal (Web)"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Acronym"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Address"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Cite"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Code"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Definition"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Keyboard"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Preformatted"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Sample"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Typewriter"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Variable"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal Table"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation subject"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="No List"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Contemporary"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Elegant"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Professional"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Subtle 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Subtle 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Balloon Text"/>
|
||||
<w:LsdException Locked="false" Priority="39" Name="Table Grid"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Theme"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" Name="Placeholder Text"/>
|
||||
<w:LsdException Locked="false" Priority="1" QFormat="true" Name="No Spacing"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" Name="Revision"/>
|
||||
<w:LsdException Locked="false" Priority="34" QFormat="true"
|
||||
Name="List Paragraph"/>
|
||||
<w:LsdException Locked="false" Priority="29" QFormat="true" Name="Quote"/>
|
||||
<w:LsdException Locked="false" Priority="30" QFormat="true"
|
||||
Name="Intense Quote"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="19" QFormat="true"
|
||||
Name="Subtle Emphasis"/>
|
||||
<w:LsdException Locked="false" Priority="21" QFormat="true"
|
||||
Name="Intense Emphasis"/>
|
||||
<w:LsdException Locked="false" Priority="31" QFormat="true"
|
||||
Name="Subtle Reference"/>
|
||||
<w:LsdException Locked="false" Priority="32" QFormat="true"
|
||||
Name="Intense Reference"/>
|
||||
<w:LsdException Locked="false" Priority="33" QFormat="true" Name="Book Title"/>
|
||||
<w:LsdException Locked="false" Priority="37" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="Bibliography"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="TOC Heading"/>
|
||||
<w:LsdException Locked="false" Priority="41" Name="Plain Table 1"/>
|
||||
<w:LsdException Locked="false" Priority="42" Name="Plain Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="43" Name="Plain Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="44" Name="Plain Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="45" Name="Plain Table 5"/>
|
||||
<w:LsdException Locked="false" Priority="40" Name="Grid Table Light"/>
|
||||
<w:LsdException Locked="false" Priority="46" Name="Grid Table 1 Light"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark"/>
|
||||
<w:LsdException Locked="false" Priority="51" Name="Grid Table 6 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="52" Name="Grid Table 7 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="46" Name="List Table 1 Light"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark"/>
|
||||
<w:LsdException Locked="false" Priority="51" Name="List Table 6 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="52" Name="List Table 7 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Mention"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Smart Hyperlink"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Hashtag"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Unresolved Mention"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Smart Link"/>
|
||||
</w:LatentStyles>
|
||||
</xml><![endif]-->
|
||||
<style>
|
||||
<!--
|
||||
/* Font Definitions */
|
||||
@font-face
|
||||
{font-family:"Cambria Math";
|
||||
panose-1:2 4 5 3 5 4 6 3 2 4;
|
||||
mso-font-charset:0;
|
||||
mso-generic-font-family:roman;
|
||||
mso-font-pitch:variable;
|
||||
mso-font-signature:3 0 0 0 1 0;}
|
||||
@font-face
|
||||
{font-family:Times;
|
||||
panose-1:2 2 6 3 5 4 5 2 3 4;
|
||||
mso-font-alt:"Times New Roman";
|
||||
mso-font-charset:0;
|
||||
mso-generic-font-family:roman;
|
||||
mso-font-pitch:variable;
|
||||
mso-font-signature:-536858881 -1073711013 9 0 511 0;}
|
||||
/* Style Definitions */
|
||||
p.MsoNormal, li.MsoNormal, div.MsoNormal
|
||||
{mso-style-unhide:no;
|
||||
mso-style-qformat:yes;
|
||||
mso-style-parent:"";
|
||||
margin:0cm;
|
||||
margin-bottom:.0001pt;
|
||||
mso-pagination:widow-orphan;
|
||||
font-size:11.0pt;
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Arial",sans-serif;
|
||||
mso-fareast-font-family:"Times New Roman";
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
mso-fareast-language:EN-US;}
|
||||
h3
|
||||
{mso-style-unhide:no;
|
||||
mso-style-qformat:yes;
|
||||
mso-style-link:"Heading 3 Char";
|
||||
mso-style-next:Normal;
|
||||
margin-top:0cm;
|
||||
margin-right:0cm;
|
||||
margin-bottom:0cm;
|
||||
margin-left:18.0pt;
|
||||
margin-bottom:.0001pt;
|
||||
mso-pagination:widow-orphan;
|
||||
mso-outline-level:3;
|
||||
font-size:11.0pt;
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Times",serif;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
mso-fareast-language:EN-US;
|
||||
mso-bidi-font-weight:normal;}
|
||||
span.Heading3Char
|
||||
{mso-style-name:"Heading 3 Char";
|
||||
mso-style-unhide:no;
|
||||
mso-style-locked:yes;
|
||||
mso-style-link:"Heading 3";
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Times",serif;
|
||||
mso-ascii-font-family:Times;
|
||||
mso-hansi-font-family:Times;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
font-weight:bold;
|
||||
mso-bidi-font-weight:normal;}
|
||||
.MsoChpDefault
|
||||
{mso-style-type:export-only;
|
||||
mso-default-props:yes;
|
||||
font-family:"Calibri",sans-serif;
|
||||
mso-ascii-font-family:Calibri;
|
||||
mso-ascii-theme-font:minor-latin;
|
||||
mso-hansi-font-family:Calibri;
|
||||
mso-hansi-theme-font:minor-latin;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-bidi-theme-font:minor-bidi;
|
||||
mso-fareast-language:EN-US;}
|
||||
.MsoPapDefault
|
||||
{mso-style-type:export-only;
|
||||
margin-bottom:8.0pt;
|
||||
line-height:107%;}
|
||||
@page WordSection1
|
||||
{size:595.3pt 841.9pt;
|
||||
margin:72.0pt 72.0pt 72.0pt 72.0pt;
|
||||
mso-header-margin:35.4pt;
|
||||
mso-footer-margin:35.4pt;
|
||||
mso-paper-source:0;}
|
||||
div.WordSection1
|
||||
{page:WordSection1;}
|
||||
-->
|
||||
</style>
|
||||
<!--[if gte mso 10]>
|
||||
<style>
|
||||
/* Style Definitions */
|
||||
table.MsoNormalTable
|
||||
{mso-style-name:"Table Normal";
|
||||
mso-tstyle-rowband-size:0;
|
||||
mso-tstyle-colband-size:0;
|
||||
mso-style-noshow:yes;
|
||||
mso-style-priority:99;
|
||||
mso-style-parent:"";
|
||||
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
|
||||
mso-para-margin-top:0cm;
|
||||
mso-para-margin-right:0cm;
|
||||
mso-para-margin-bottom:8.0pt;
|
||||
mso-para-margin-left:0cm;
|
||||
line-height:107%;
|
||||
mso-pagination:widow-orphan;
|
||||
font-size:11.0pt;
|
||||
font-family:"Calibri",sans-serif;
|
||||
mso-ascii-font-family:Calibri;
|
||||
mso-ascii-theme-font:minor-latin;
|
||||
mso-hansi-font-family:Calibri;
|
||||
mso-hansi-theme-font:minor-latin;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-bidi-theme-font:minor-bidi;
|
||||
mso-fareast-language:EN-US;}
|
||||
</style>
|
||||
<![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:shapedefaults v:ext="edit" spidmax="1026"/>
|
||||
</xml><![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:shapelayout v:ext="edit">
|
||||
<o:idmap v:ext="edit" data="1"/>
|
||||
</o:shapelayout></xml><![endif]-->
|
||||
</head>
|
||||
|
||||
<body lang=EN-AU style='tab-interval:36.0pt'>
|
||||
|
||||
<div class=WordSection1>
|
||||
|
||||
<p class=MsoNormal><span lang=EN-US style='mso-no-proof:yes'><!--[if gte vml 1]><v:shapetype
|
||||
id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t"
|
||||
path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">
|
||||
<v:stroke joinstyle="miter"/>
|
||||
<v:formulas>
|
||||
<v:f eqn="if lineDrawn pixelLineWidth 0"/>
|
||||
<v:f eqn="sum @0 1 0"/>
|
||||
<v:f eqn="sum 0 0 @1"/>
|
||||
<v:f eqn="prod @2 1 2"/>
|
||||
<v:f eqn="prod @3 21600 pixelWidth"/>
|
||||
<v:f eqn="prod @3 21600 pixelHeight"/>
|
||||
<v:f eqn="sum @0 0 1"/>
|
||||
<v:f eqn="prod @6 1 2"/>
|
||||
<v:f eqn="prod @7 21600 pixelWidth"/>
|
||||
<v:f eqn="sum @8 21600 0"/>
|
||||
<v:f eqn="prod @7 21600 pixelHeight"/>
|
||||
<v:f eqn="sum @10 21600 0"/>
|
||||
</v:formulas>
|
||||
<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>
|
||||
<o:lock v:ext="edit" aspectratio="t"/>
|
||||
</v:shapetype><v:shape id="Picture_x0020_1" o:spid="_x0000_i1025" type="#_x0000_t75"
|
||||
style='width:822.5pt;height:563pt;visibility:visible;mso-wrap-style:square'>
|
||||
<v:imagedata src="timestp1_files/image001.png" o:title=""/>
|
||||
</v:shape><![endif]--><![if !vml]><img width=1097 height=751
|
||||
src="timestp1_files/image002.jpg" v:shapes="Picture_x0020_1"><![endif]></span></p>
|
||||
|
||||
</div>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
|
||||
@ -0,0 +1,8 @@
|
||||
<xml xmlns:o="urn:schemas-microsoft-com:office:office">
|
||||
<o:MainFile HRef="../timestp1.htm"/>
|
||||
<o:File HRef="themedata.thmx"/>
|
||||
<o:File HRef="colorschememapping.xml"/>
|
||||
<o:File HRef="image001.png"/>
|
||||
<o:File HRef="image002.jpg"/>
|
||||
<o:File HRef="filelist.xml"/>
|
||||
</xml>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 176 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 155 KiB |
Binary file not shown.
Binary file not shown.
@ -0,0 +1,819 @@
|
||||
<html xmlns:v="urn:schemas-microsoft-com:vml"
|
||||
xmlns:o="urn:schemas-microsoft-com:office:office"
|
||||
xmlns:w="urn:schemas-microsoft-com:office:word"
|
||||
xmlns:m="http://schemas.microsoft.com/office/2004/12/omml"
|
||||
xmlns="http://www.w3.org/TR/REC-html40">
|
||||
|
||||
<head>
|
||||
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
|
||||
<meta name=ProgId content=Word.Document>
|
||||
<meta name=Generator content="Microsoft Word 15">
|
||||
<meta name=Originator content="Microsoft Word 15">
|
||||
<link rel=File-List href="timestp2_files/filelist.xml">
|
||||
<link rel=Edit-Time-Data href="timestp2_files/editdata.mso">
|
||||
<!--[if !mso]>
|
||||
<style>
|
||||
v\:* {behavior:url(#default#VML);}
|
||||
o\:* {behavior:url(#default#VML);}
|
||||
w\:* {behavior:url(#default#VML);}
|
||||
.shape {behavior:url(#default#VML);}
|
||||
</style>
|
||||
<![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:DocumentProperties>
|
||||
<o:Author>Ian King</o:Author>
|
||||
<o:LastAuthor>Ian King</o:LastAuthor>
|
||||
<o:Revision>2</o:Revision>
|
||||
<o:Created>2019-08-08T00:41:00Z</o:Created>
|
||||
<o:LastSaved>2019-08-08T00:41:00Z</o:LastSaved>
|
||||
<o:Pages>1</o:Pages>
|
||||
<o:Characters>1</o:Characters>
|
||||
<o:Lines>1</o:Lines>
|
||||
<o:Paragraphs>1</o:Paragraphs>
|
||||
<o:CharactersWithSpaces>1</o:CharactersWithSpaces>
|
||||
<o:Version>16.00</o:Version>
|
||||
</o:DocumentProperties>
|
||||
<o:OfficeDocumentSettings>
|
||||
<o:AllowPNG/>
|
||||
</o:OfficeDocumentSettings>
|
||||
</xml><![endif]-->
|
||||
<link rel=themeData href="timestp2_files/themedata.thmx">
|
||||
<link rel=colorSchemeMapping href="timestp2_files/colorschememapping.xml">
|
||||
<!--[if gte mso 9]><xml>
|
||||
<w:WordDocument>
|
||||
<w:SpellingState>Clean</w:SpellingState>
|
||||
<w:GrammarState>Clean</w:GrammarState>
|
||||
<w:TrackMoves>false</w:TrackMoves>
|
||||
<w:TrackFormatting/>
|
||||
<w:PunctuationKerning/>
|
||||
<w:ValidateAgainstSchemas/>
|
||||
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
|
||||
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
|
||||
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
|
||||
<w:DoNotPromoteQF/>
|
||||
<w:LidThemeOther>EN-AU</w:LidThemeOther>
|
||||
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
|
||||
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
|
||||
<w:Compatibility>
|
||||
<w:BreakWrappedTables/>
|
||||
<w:SnapToGridInCell/>
|
||||
<w:WrapTextWithPunct/>
|
||||
<w:UseAsianBreakRules/>
|
||||
<w:DontGrowAutofit/>
|
||||
<w:SplitPgBreakAndParaMark/>
|
||||
<w:EnableOpenTypeKerning/>
|
||||
<w:DontFlipMirrorIndents/>
|
||||
<w:OverrideTableStyleHps/>
|
||||
</w:Compatibility>
|
||||
<m:mathPr>
|
||||
<m:mathFont m:val="Cambria Math"/>
|
||||
<m:brkBin m:val="before"/>
|
||||
<m:brkBinSub m:val="--"/>
|
||||
<m:smallFrac m:val="off"/>
|
||||
<m:dispDef/>
|
||||
<m:lMargin m:val="0"/>
|
||||
<m:rMargin m:val="0"/>
|
||||
<m:defJc m:val="centerGroup"/>
|
||||
<m:wrapIndent m:val="1440"/>
|
||||
<m:intLim m:val="subSup"/>
|
||||
<m:naryLim m:val="undOvr"/>
|
||||
</m:mathPr></w:WordDocument>
|
||||
</xml><![endif]--><!--[if gte mso 9]><xml>
|
||||
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="false"
|
||||
DefSemiHidden="false" DefQFormat="false" DefPriority="99"
|
||||
LatentStyleCount="376">
|
||||
<w:LsdException Locked="false" Priority="0" QFormat="true" Name="Normal"/>
|
||||
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 1"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 2"/>
|
||||
<w:LsdException Locked="false" Priority="0" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 3"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 4"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 5"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 6"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 7"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 8"/>
|
||||
<w:LsdException Locked="false" Priority="9" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="heading 9"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index 9"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 1"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 2"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 3"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 4"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 5"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 6"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 7"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 8"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="toc 9"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footnote text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="header"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footer"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="index heading"/>
|
||||
<w:LsdException Locked="false" Priority="35" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="caption"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="table of figures"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="envelope address"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="envelope return"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="footnote reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="line number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="page number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="endnote reference"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="endnote text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="table of authorities"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="macro"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="toa heading"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Bullet 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Number 5"/>
|
||||
<w:LsdException Locked="false" Priority="10" QFormat="true" Name="Title"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Closing"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Signature"/>
|
||||
<w:LsdException Locked="false" Priority="1" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="Default Paragraph Font"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="List Continue 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Message Header"/>
|
||||
<w:LsdException Locked="false" Priority="11" QFormat="true" Name="Subtitle"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Salutation"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Date"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text First Indent"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text First Indent 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Note Heading"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Body Text Indent 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Block Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Hyperlink"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="FollowedHyperlink"/>
|
||||
<w:LsdException Locked="false" Priority="22" QFormat="true" Name="Strong"/>
|
||||
<w:LsdException Locked="false" Priority="20" QFormat="true" Name="Emphasis"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Document Map"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Plain Text"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="E-mail Signature"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Top of Form"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Bottom of Form"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal (Web)"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Acronym"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Address"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Cite"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Code"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Definition"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Keyboard"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Preformatted"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Sample"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Typewriter"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="HTML Variable"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Normal Table"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="annotation subject"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="No List"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Outline List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Simple 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Classic 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Colorful 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Columns 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Grid 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 4"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 5"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 7"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table List 8"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table 3D effects 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Contemporary"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Elegant"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Professional"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Subtle 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Subtle 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 2"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Web 3"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Balloon Text"/>
|
||||
<w:LsdException Locked="false" Priority="39" Name="Table Grid"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Table Theme"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" Name="Placeholder Text"/>
|
||||
<w:LsdException Locked="false" Priority="1" QFormat="true" Name="No Spacing"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" Name="Revision"/>
|
||||
<w:LsdException Locked="false" Priority="34" QFormat="true"
|
||||
Name="List Paragraph"/>
|
||||
<w:LsdException Locked="false" Priority="29" QFormat="true" Name="Quote"/>
|
||||
<w:LsdException Locked="false" Priority="30" QFormat="true"
|
||||
Name="Intense Quote"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="60" Name="Light Shading Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="61" Name="Light List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="62" Name="Light Grid Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="63" Name="Medium Shading 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="64" Name="Medium Shading 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="65" Name="Medium List 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="66" Name="Medium List 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="67" Name="Medium Grid 1 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="68" Name="Medium Grid 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="69" Name="Medium Grid 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="70" Name="Dark List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="71" Name="Colorful Shading Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="72" Name="Colorful List Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="73" Name="Colorful Grid Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="19" QFormat="true"
|
||||
Name="Subtle Emphasis"/>
|
||||
<w:LsdException Locked="false" Priority="21" QFormat="true"
|
||||
Name="Intense Emphasis"/>
|
||||
<w:LsdException Locked="false" Priority="31" QFormat="true"
|
||||
Name="Subtle Reference"/>
|
||||
<w:LsdException Locked="false" Priority="32" QFormat="true"
|
||||
Name="Intense Reference"/>
|
||||
<w:LsdException Locked="false" Priority="33" QFormat="true" Name="Book Title"/>
|
||||
<w:LsdException Locked="false" Priority="37" SemiHidden="true"
|
||||
UnhideWhenUsed="true" Name="Bibliography"/>
|
||||
<w:LsdException Locked="false" Priority="39" SemiHidden="true"
|
||||
UnhideWhenUsed="true" QFormat="true" Name="TOC Heading"/>
|
||||
<w:LsdException Locked="false" Priority="41" Name="Plain Table 1"/>
|
||||
<w:LsdException Locked="false" Priority="42" Name="Plain Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="43" Name="Plain Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="44" Name="Plain Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="45" Name="Plain Table 5"/>
|
||||
<w:LsdException Locked="false" Priority="40" Name="Grid Table Light"/>
|
||||
<w:LsdException Locked="false" Priority="46" Name="Grid Table 1 Light"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark"/>
|
||||
<w:LsdException Locked="false" Priority="51" Name="Grid Table 6 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="52" Name="Grid Table 7 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="Grid Table 1 Light Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="Grid Table 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="Grid Table 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="Grid Table 4 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="Grid Table 5 Dark Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="Grid Table 6 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="Grid Table 7 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="46" Name="List Table 1 Light"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark"/>
|
||||
<w:LsdException Locked="false" Priority="51" Name="List Table 6 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="52" Name="List Table 7 Colorful"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 1"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 2"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 3"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 4"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 5"/>
|
||||
<w:LsdException Locked="false" Priority="46"
|
||||
Name="List Table 1 Light Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="47" Name="List Table 2 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="48" Name="List Table 3 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="49" Name="List Table 4 Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="50" Name="List Table 5 Dark Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="51"
|
||||
Name="List Table 6 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" Priority="52"
|
||||
Name="List Table 7 Colorful Accent 6"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Mention"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Smart Hyperlink"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Hashtag"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Unresolved Mention"/>
|
||||
<w:LsdException Locked="false" SemiHidden="true" UnhideWhenUsed="true"
|
||||
Name="Smart Link"/>
|
||||
</w:LatentStyles>
|
||||
</xml><![endif]-->
|
||||
<style>
|
||||
<!--
|
||||
/* Font Definitions */
|
||||
@font-face
|
||||
{font-family:"Cambria Math";
|
||||
panose-1:2 4 5 3 5 4 6 3 2 4;
|
||||
mso-font-charset:0;
|
||||
mso-generic-font-family:roman;
|
||||
mso-font-pitch:variable;
|
||||
mso-font-signature:3 0 0 0 1 0;}
|
||||
@font-face
|
||||
{font-family:Times;
|
||||
panose-1:2 2 6 3 5 4 5 2 3 4;
|
||||
mso-font-alt:"Times New Roman";
|
||||
mso-font-charset:0;
|
||||
mso-generic-font-family:roman;
|
||||
mso-font-pitch:variable;
|
||||
mso-font-signature:-536858881 -1073711013 9 0 511 0;}
|
||||
/* Style Definitions */
|
||||
p.MsoNormal, li.MsoNormal, div.MsoNormal
|
||||
{mso-style-unhide:no;
|
||||
mso-style-qformat:yes;
|
||||
mso-style-parent:"";
|
||||
margin:0cm;
|
||||
margin-bottom:.0001pt;
|
||||
mso-pagination:widow-orphan;
|
||||
font-size:11.0pt;
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Arial",sans-serif;
|
||||
mso-fareast-font-family:"Times New Roman";
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
mso-fareast-language:EN-US;}
|
||||
h3
|
||||
{mso-style-unhide:no;
|
||||
mso-style-qformat:yes;
|
||||
mso-style-link:"Heading 3 Char";
|
||||
mso-style-next:Normal;
|
||||
margin-top:0cm;
|
||||
margin-right:0cm;
|
||||
margin-bottom:0cm;
|
||||
margin-left:18.0pt;
|
||||
margin-bottom:.0001pt;
|
||||
mso-pagination:widow-orphan;
|
||||
mso-outline-level:3;
|
||||
font-size:11.0pt;
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Times",serif;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
mso-fareast-language:EN-US;
|
||||
mso-bidi-font-weight:normal;}
|
||||
span.Heading3Char
|
||||
{mso-style-name:"Heading 3 Char";
|
||||
mso-style-unhide:no;
|
||||
mso-style-locked:yes;
|
||||
mso-style-link:"Heading 3";
|
||||
mso-bidi-font-size:10.0pt;
|
||||
font-family:"Times",serif;
|
||||
mso-ascii-font-family:Times;
|
||||
mso-hansi-font-family:Times;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-ansi-language:EN-US;
|
||||
font-weight:bold;
|
||||
mso-bidi-font-weight:normal;}
|
||||
.MsoChpDefault
|
||||
{mso-style-type:export-only;
|
||||
mso-default-props:yes;
|
||||
font-family:"Calibri",sans-serif;
|
||||
mso-ascii-font-family:Calibri;
|
||||
mso-ascii-theme-font:minor-latin;
|
||||
mso-hansi-font-family:Calibri;
|
||||
mso-hansi-theme-font:minor-latin;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-bidi-theme-font:minor-bidi;
|
||||
mso-fareast-language:EN-US;}
|
||||
.MsoPapDefault
|
||||
{mso-style-type:export-only;
|
||||
margin-bottom:8.0pt;
|
||||
line-height:107%;}
|
||||
@page WordSection1
|
||||
{size:595.3pt 841.9pt;
|
||||
margin:72.0pt 72.0pt 72.0pt 72.0pt;
|
||||
mso-header-margin:35.4pt;
|
||||
mso-footer-margin:35.4pt;
|
||||
mso-paper-source:0;}
|
||||
div.WordSection1
|
||||
{page:WordSection1;}
|
||||
-->
|
||||
</style>
|
||||
<!--[if gte mso 10]>
|
||||
<style>
|
||||
/* Style Definitions */
|
||||
table.MsoNormalTable
|
||||
{mso-style-name:"Table Normal";
|
||||
mso-tstyle-rowband-size:0;
|
||||
mso-tstyle-colband-size:0;
|
||||
mso-style-noshow:yes;
|
||||
mso-style-priority:99;
|
||||
mso-style-parent:"";
|
||||
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
|
||||
mso-para-margin-top:0cm;
|
||||
mso-para-margin-right:0cm;
|
||||
mso-para-margin-bottom:8.0pt;
|
||||
mso-para-margin-left:0cm;
|
||||
line-height:107%;
|
||||
mso-pagination:widow-orphan;
|
||||
font-size:11.0pt;
|
||||
font-family:"Calibri",sans-serif;
|
||||
mso-ascii-font-family:Calibri;
|
||||
mso-ascii-theme-font:minor-latin;
|
||||
mso-hansi-font-family:Calibri;
|
||||
mso-hansi-theme-font:minor-latin;
|
||||
mso-bidi-font-family:"Times New Roman";
|
||||
mso-bidi-theme-font:minor-bidi;
|
||||
mso-fareast-language:EN-US;}
|
||||
</style>
|
||||
<![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:shapedefaults v:ext="edit" spidmax="1026"/>
|
||||
</xml><![endif]--><!--[if gte mso 9]><xml>
|
||||
<o:shapelayout v:ext="edit">
|
||||
<o:idmap v:ext="edit" data="1"/>
|
||||
</o:shapelayout></xml><![endif]-->
|
||||
</head>
|
||||
|
||||
<body lang=EN-AU style='tab-interval:36.0pt'>
|
||||
|
||||
<div class=WordSection1>
|
||||
|
||||
<p class=MsoNormal><span lang=EN-US style='mso-no-proof:yes'><!--[if gte vml 1]><v:shapetype
|
||||
id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t"
|
||||
path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">
|
||||
<v:stroke joinstyle="miter"/>
|
||||
<v:formulas>
|
||||
<v:f eqn="if lineDrawn pixelLineWidth 0"/>
|
||||
<v:f eqn="sum @0 1 0"/>
|
||||
<v:f eqn="sum 0 0 @1"/>
|
||||
<v:f eqn="prod @2 1 2"/>
|
||||
<v:f eqn="prod @3 21600 pixelWidth"/>
|
||||
<v:f eqn="prod @3 21600 pixelHeight"/>
|
||||
<v:f eqn="sum @0 0 1"/>
|
||||
<v:f eqn="prod @6 1 2"/>
|
||||
<v:f eqn="prod @7 21600 pixelWidth"/>
|
||||
<v:f eqn="sum @8 21600 0"/>
|
||||
<v:f eqn="prod @7 21600 pixelHeight"/>
|
||||
<v:f eqn="sum @10 21600 0"/>
|
||||
</v:formulas>
|
||||
<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>
|
||||
<o:lock v:ext="edit" aspectratio="t"/>
|
||||
</v:shapetype><v:shape id="Picture_x0020_1" o:spid="_x0000_i1025" type="#_x0000_t75"
|
||||
style='width:649pt;height:574.5pt;visibility:visible;mso-wrap-style:square'>
|
||||
<v:imagedata src="timestp2_files/image001.png" o:title=""/>
|
||||
</v:shape><![endif]--><![if !vml]><img width=865 height=766
|
||||
src="timestp2_files/image002.jpg" v:shapes="Picture_x0020_1"><![endif]></span></p>
|
||||
|
||||
</div>
|
||||
|
||||
</body>
|
||||
|
||||
</html>
|
||||
@ -0,0 +1,2 @@
|
||||
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
|
||||
<a:clrMap xmlns:a="http://schemas.openxmlformats.org/drawingml/2006/main" bg1="lt1" tx1="dk1" bg2="lt2" tx2="dk2" accent1="accent1" accent2="accent2" accent3="accent3" accent4="accent4" accent5="accent5" accent6="accent6" hlink="hlink" folHlink="folHlink"/>
|
||||
@ -0,0 +1,8 @@
|
||||
<xml xmlns:o="urn:schemas-microsoft-com:office:office">
|
||||
<o:MainFile HRef="../timestp2.htm"/>
|
||||
<o:File HRef="themedata.thmx"/>
|
||||
<o:File HRef="colorschememapping.xml"/>
|
||||
<o:File HRef="image001.png"/>
|
||||
<o:File HRef="image002.jpg"/>
|
||||
<o:File HRef="filelist.xml"/>
|
||||
</xml>
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 80 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 108 KiB |
Binary file not shown.
@ -0,0 +1,6 @@
|
||||
MODULE BLK1
|
||||
|
||||
REAL XMAX,YMAX,ZMAX,XMIN,YMIN,ZMIN,XLEN,YLEN,ZLEN,DIST,DISTSTEP
|
||||
REAL :: EYE(4,4)
|
||||
|
||||
END MODULE
|
||||
@ -0,0 +1,4 @@
|
||||
MODULE BLKMAT
|
||||
INTEGER, ALLOCATABLE :: IMATN(:),IRGB(:)
|
||||
REAL, ALLOCATABLE :: SHINE(:),GLOSS(:)
|
||||
END MODULE
|
||||
@ -0,0 +1,56 @@
|
||||
MODULE BLKRM10
|
||||
CHARACTER*255 CWDIR
|
||||
CHARACTER*255 HELPDIR
|
||||
CHARACTER(LEN=255) :: NAMEFL
|
||||
CHARACTER*16 DATEST,DATEND,DATENDST(25)
|
||||
CHARACTER*72 FNAME(50),TITLE,TITLEHEAD
|
||||
CHARACTER*240 DATALIN(5000)
|
||||
CHARACTER*80 LINSAVE(1000,3)
|
||||
CHARACTER*80 HOLDC(3000)
|
||||
INTEGER ICCOMP(64),ICOMP(64)
|
||||
INTEGER LINSAVC(3),IPIV,MARSTYP(20),NMARSTYP
|
||||
INTEGER LINTOT,NQLIN(25),NHLIN(25),NELIN(25),NSND(25),IMW,WUNIT,JT,NODSND(500,25),NCODE(500,25)
|
||||
INTEGER IWIND(25),IWUNITS(25), NRITR(25)
|
||||
INTEGER ITYP(1000),INTG(100),IDEFLT(100),IQLIN(20,25),IQLIN1(20,25),IHLIN(20,25),IELIN(500,25),LAYNUMH(20,25),LAYNUMQ(20,25),LAYNUME(20,25),IITYPE(25)
|
||||
INTEGER qcklin(20,25),hcklin(20,25),ecklin(500,25),ecklin1(500,25),ecklin2(500,25),IETP(500,20),hcklin1(20,25),IELIN1(500,25)
|
||||
INTEGER ICFLOWS(20),ICELEV(20),ICDEP(20),ISPRTN(20),NCFLOWS,NCELEV,NCDEP,NSPRTN
|
||||
INTEGER ISFLIN(20,25),NSFLIN(25),IFCLIN(20,25),IFCLIN1(20,25),NFCLIN(25)
|
||||
INTEGER LIMITVAL(13),LIMITDFT(13),IWTYP(1000),NWR,NHOLDC,ICPLIN(27)
|
||||
INTEGER IELTOPIP(10),IPIPTOEL(10),JET,JGATE,L3DCNT,L3DTYP
|
||||
INTEGER IBF1(1000),IEXTYP(1000),IGATE(1000,2)
|
||||
INTEGER JND(1000),KKLAY(1000)
|
||||
INTEGER NCSPLPT(30)
|
||||
REAL L3DDAT(1000,40),BCSND(500,25,6)
|
||||
INTEGER IITYP(1000)
|
||||
INTEGER KHCN(25),IHCN(20,25)
|
||||
|
||||
CHARACTER*8 ACSPLPT(6)
|
||||
CHARACTER*80 SND(1000,25)
|
||||
|
||||
|
||||
REAL OMEGA,CONVX,CONVH,ACT1,ACT2,ACT3,ACT4,DELT(25),DELTM(25),SIGMA1,SIGMA2
|
||||
REAL ACT1DF,ACT2DF,ACT3DF,ACT4DF
|
||||
REAL ORT(1000,13),ORTDFLT(1000,13),RLDAT(100),RDEFLT(100),WVEL(25),WDIR(25),EDD1(1000),EDD2(1000),EDD3(1000),EDD1DF(1000),EDD2DF(1000),EDD3DF(1000)
|
||||
REAL QLIN(20,25),HLIN(20,25),HLIN1(20,25),ELIN(200,25),QDLIN(20,25),SFLIN(20,25),SFLIN1(20,25),SFLIN2(20,25),SFLIN3(20,25),SFLIN4(20,25)
|
||||
REAL FCLIN(20,25),FCLIN1(20,25),FCLIN2(20,25),FCLIN3(20,25),FCLIN4(20,25),FCLIN5(20,25),FCLIN6(20,25)
|
||||
REAL WDT(1000,3),RMARSTYP(20,4),URLC(25)
|
||||
REAL ELMMIN(1000),ELMMAX(1000),MANMIN(1000),MANMAX(1000),MANSLOP(1000),BF1(1000),BF2(1000),ELDER(1000,2),TBFACT1(1000),TBMIN1(1000)
|
||||
REAL QUALKH(20,25,3),QUALKQ(20,25,3),QUALKE(20,25,3)
|
||||
REAL FHCN(20,25,36)
|
||||
|
||||
INTEGER IOPTZD,IDNOPT,IYRR,ITMD,ITMM,DAYOFY,IEDSW,IPROJ,IYKK,IDTM,NLAYTYP,NDP,IGRV,IZB,IPASS1,IPASS2,IPASS3,NPRTI
|
||||
INTEGER IOPTZDDF,IDNOPTDF,IYRRDF,ITMDDF,ITMMDF,DAYOFYDF,IEDSWDF,IPROJDF,IDTMDF,NLAYTYPDF,IGRVDF,IZBDF,IPASS1DF,IPASS2DF,IPASS3DF,NPRTIDF
|
||||
REAL TET,TBFACT,TBMIN,TTEM,zerbed,GRAV,OMEGA1,ELEV,XSCALE,YSCALE,ZSCALE,ELEV1,CMIN,CPR,UNOM,UDIR,HMIN,DSET,DSETD
|
||||
REAL TETDF,TBFACTDF,TBMINDF,zerbedDF,OMEGA1DF,ELEVDF,XSCALEDF,YSCALEDF,ZSCALEDF,ELEV1DF,CMINDF,CPRDF,UNOMDF,UDIRDF,HMINDF,DSETDF,DSETDDF
|
||||
INTEGER IZERS,ISAVITR,IVERTDEN,IMGEOM,IFXBC,IEQSWT,NITI,NITN,NCYC,IPRT,NPRTF,IRSAV,IDSWT,IOUTFREQ,IOUTRST
|
||||
INTEGER IZERSDF,ISAVITRDF,IVERTDENDF,IMGEOMDF,IFXBCDF,IEQSWTDF,NITIDF,NITNDF,NCYCDF,IPRTDF,NPRTFDF,IRSAVDF,IDSWTDF,IOUTFREQDF,IOUTRSTDF
|
||||
INTEGER IREWOUT,ID1DND,ICPU,IOOC,IREWMES,IDEBUG,IVL,IDRPT,IOV,IOPTM,INEWDEN,ICESW,ITRANSIT,NODETR,IDEBUG1
|
||||
INTEGER IREWOUTDF,ID1DNDDF,ICPUDF,IOOCDF,IREWMESDF,IDEBUGDF,IVLDF,IDRPTDF,IOVDF,IOPTMDF,INEWDENDF,ICESWDF,ITRANSITDF,NODETRDF
|
||||
INTEGER METEQ,IBEDHT,ITOTC,JSPLPT,ICTOTC,JCSPLPT,NMAT
|
||||
INTEGER MDLIST(9),IDEXCL(1000),NPWR,NINCC(20),NOUTCC(20),IPWRSW(20),NADTYP(20)
|
||||
REAL SALI,TEMPI,SEDI,UINP,VINP,prcnt,DMIX,TSTART,PRTI,CONV(6),DRFACT,DFACTIN1,DFACTIN2,DFACTIN3
|
||||
REAL SALIDF,TEMPIDF,SEDIDF,UINPDF,VINPDF,prcntDF,DMIXDF,TSTARTDF,PRTIDF,CONVDF(6),DRFACTDF,DFACTIN1DF,DFACTIN2DF,DFACTIN3DF
|
||||
REAL TRELEV,TRFACT,BEDMIN,BEDMAX,BEDSHIFT,FLOWSCAL,VSET,VDECAY,PRECIP,VMIN,POWER,UMIN,PWERIN
|
||||
REAL VMINDF,POWERDF,UMINDF,PWERINDF,TRANSIT,TRANSITDF
|
||||
REAL ADDSAL(20),ADDTMP(20,3),ADDSED(20),ADDMAX(20)
|
||||
END
|
||||
@ -0,0 +1,633 @@
|
||||
SUBROUTINE CONVERT
|
||||
use winteracter
|
||||
USE BLK1
|
||||
USE BLKMAT
|
||||
USE BLKRM10
|
||||
integer inrm1,k
|
||||
CHARACTER*8 LABELF(43),labelin,ID
|
||||
character*72 namin,DLIN
|
||||
CHARACTER*8 DLINEXTRA
|
||||
COMMON /DLINF/ DLINEXTRA
|
||||
CHARACTER(LEN=255) :: filter
|
||||
CHARACTER*8 ASPLPT(8)
|
||||
|
||||
|
||||
! Process standard RM2 input file to TAB format
|
||||
INTEGER IMTS(12)
|
||||
DATA IMTS/0,31,59,90,120,151,181,212,243,273,304,334/
|
||||
DATA LABELF/&
|
||||
'INBNGEO ','INRM1 ','INBNRST ','INCROS ','INHYD ','INELEV ','INELFL ','INBNELF ','INHARM ','METFIL '&
|
||||
,'OUTFIL ','OUTBNRMA','OUTBNRST','OUTBN3GE','OUTCON ','OUTMET ','TIMFIL ','BWINDIN ','AWINDIN ','OUTBNXTR'&
|
||||
,'OUTASXTR','OUTBNELF','INSRCORD','INBNWGT ','INBNSTRS','OUTBNWGT','OUTWGT ','GROUPNUM','STFLFIL ','INASTRAT'&
|
||||
,'BCFIL ','VOLFIL ','OUTBNRES','VELBNFIL','IN3DBNGE','OUTBN2GE','INSMSGN ','OUTSMS '&
|
||||
,'OUTSMS1 ','OUTFLOW ','INBC ','INBNBC ','OUTBNICE' /
|
||||
|
||||
! 'INBNGEO ','INBNRST ','INRM1 ','INELEV ','INHYD ','INELTFL ','OUTFIL ','OUTBNRMA','OUTBNRST','TIMFIL ','OUTSMS ','OUTSPL ','OUTCON ','INCROS ','INSRCORD','INSTRESS','INBNSTRS','INWGT ','INBNWGT ','OUTWGT ','OUTBNWGT','OUTBNSTR','WEIRDATA','AWINDIN ','BWINDIN ','OUTFLOW ','INHARM ','OUTBN3GE'/
|
||||
! First get a file
|
||||
filter="r10 file *.r10|*.R10|"
|
||||
CALL WSelectFile(FILTER,PromptOn+DirChange,NAMEFL,'Load R10 File')
|
||||
|
||||
IF (WInfoDialog(ExitButtonCommon).EQ.CommonOpen) THEN
|
||||
go to 100
|
||||
else
|
||||
RETURN
|
||||
endif
|
||||
|
||||
100 CONTINUE
|
||||
DO J=1,43
|
||||
DO K=1,72
|
||||
FNAME(J)(K:k)=' '
|
||||
ENDDO
|
||||
ENDDO
|
||||
INRM2=7
|
||||
ORT=0.
|
||||
ITYP=0
|
||||
NMAT=0
|
||||
DELTM=0.
|
||||
DELT=0.
|
||||
DATENDST=' '
|
||||
JT=0
|
||||
KH=0
|
||||
KQ=0
|
||||
KE=0
|
||||
KFC=0
|
||||
IHLIN=0
|
||||
HLIN=0.
|
||||
HCKLIN=0
|
||||
HCKLIN1=0
|
||||
NHLIN=0
|
||||
IQLIN=0
|
||||
QLIN=0.
|
||||
QDLIN=0.
|
||||
QCKLIN=0.
|
||||
NQLIN=0
|
||||
IELIN=0
|
||||
ELIN=0.
|
||||
ECKLIN=0.
|
||||
ECKLIN1=0
|
||||
NELIN=0
|
||||
IENDGEO=0
|
||||
NFCLIN=0
|
||||
IFCLIN=0
|
||||
IFCLIN1=0
|
||||
|
||||
FCLIN=0
|
||||
FCLIN1=0
|
||||
FCLIN2=0
|
||||
FCLIN3=0
|
||||
FCLIN4=0
|
||||
FCLIN5=0
|
||||
IPIV=0
|
||||
ICTOTC=0
|
||||
IETP=0
|
||||
JET=0
|
||||
MANSLOP=0.
|
||||
MANMIN=0.
|
||||
L3DCNT=0
|
||||
L2DCNT=0
|
||||
KHCN=0
|
||||
FHCN=0.
|
||||
NSND=0
|
||||
NODSND=0
|
||||
NCODE=0
|
||||
BCSND=0.
|
||||
OPEN(INRM2,FILE=NAMEFL,FORM='FORMATTED')
|
||||
|
||||
! Now read files
|
||||
DO J=1,44
|
||||
IF(LABELIN(1:6) .EQ. 'ENDFIL') THEN
|
||||
NFIL=J-1
|
||||
EXIT
|
||||
ENDIF
|
||||
READ(INRM2,'(A8,A72)') LABELIN,NAMIN
|
||||
DO K=1,43
|
||||
IF(LABELIN .EQ. LABELF(K)) THEN
|
||||
FNAME(K)=NAMIN
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDDO
|
||||
|
||||
! Next start on controls
|
||||
|
||||
200 CONTINUE
|
||||
CALL GINPT(INRM2,ID,DLIN)
|
||||
IF(ID(1:8) .EQ. 'ENDLIMIT') THEN
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'TI') THEN
|
||||
TITLEHEAD=DLIN
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXFRONT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(1)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXLAY ') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(3)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXCROSS') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(4)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXCPTS ') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(5)
|
||||
ELSEIF(ID(1:8) .EQ. 'BUFFSIZ ') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(2)
|
||||
ELSEIF(ID(1:8) .EQ. 'BUFFSIZL') THEN
|
||||
READ(DLIN,'(I16)') LIMITVAL(2)
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXQINPT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(6)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXHINPT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(7)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXEINPT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(8)
|
||||
ENDIF
|
||||
GO TO 200
|
||||
250 CONTINUE
|
||||
CALL GINPT(INRM2,ID,DLIN)
|
||||
251 CONTINUE
|
||||
IF(ID(1:2) .EQ. 'TI') THEN
|
||||
TT=0
|
||||
TITLEHEAD=DLIN
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C0') THEN
|
||||
DO J=25,32
|
||||
IF(DLIN(J:J) .EQ. '/') THEN
|
||||
DLIN(J:J)=','
|
||||
READ(DLIN(1:24),'(3I8)') IOPTZD,IDNOPT,IYRR
|
||||
READ(DLIN(25:32),*) ITMD,ITMM
|
||||
DAYOFY=IMTS(ITMM)+ITMD
|
||||
IF(MOD(IYRR,4) .EQ. 0 .AND. ITMM .GT. 2) DAYOFY=DAYOFY+1
|
||||
READ(DLIN(33:72),'(F8.0,I8,2F8.0,I8)')TET,IEDSW,TBFACT,TBMIN,IPROJ
|
||||
GO TO 60
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
READ(DLIN,5061)IOPTZD,IDNOPT,IYRR,DAYOFY,TET,IEDSW,TBFACT,TBMIN,IPROJ
|
||||
5061 FORMAT(4I8,F8.0,I8,2f8.2,I8)
|
||||
|
||||
write(75,*) 'read c0'
|
||||
!IPK FEB04 SAVE TIMES IN CASE IOV ACTIVE
|
||||
60 CONTINUE
|
||||
CALL MAKEDATE(DATEST,IYRR,DAYOFY,TET)
|
||||
IYKK=IYRR
|
||||
IDTM=DAYOFY
|
||||
TTEM=TET
|
||||
GO TO 250
|
||||
!ipk end changes apr 96
|
||||
ELSEIF(ID(1:2) .EQ. 'C1') THEN
|
||||
!IPK SEP05
|
||||
ISAVITR=0
|
||||
!ipk FEB15 allow zero bed option to be based on a level
|
||||
READ(DLIN,5021) NDP,IGRV,IZB,IPASS1,IPASS2,IPASS3,IZERS,ISAVITR,zerbed
|
||||
5021 FORMAT(8I8,F8.0)
|
||||
!ipk mar15 add switch for density distribution
|
||||
read(dlinextra,'(i8)') ivertden
|
||||
IF(NDP .EQ. 0) THEN
|
||||
NLAYTYP=0
|
||||
ELSEIF(NDP .EQ. 1) THEN
|
||||
NLAYTYP=2
|
||||
ELSEIF(NDP .EQ. 2) THEN
|
||||
NLAYTYP=4
|
||||
ELSEIF(NDP .EQ. -1) THEN
|
||||
NLAYTYP=3
|
||||
ELSE
|
||||
NDP=-NDP-1
|
||||
NAYTYP=1
|
||||
ENDIF
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C2') THEN
|
||||
!IPK DEC07 REPLACE OMEGA BY OMEGA1
|
||||
READ(DLIN,5020) OMEGA1,ELEV,XSCALE,YSCALE,ZSCALE
|
||||
ELEV1=ELEV
|
||||
5020 FORMAT(7F8.0,2I8)
|
||||
write(75,*) 'read c2'
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C3') THEN
|
||||
|
||||
READ(DLIN,5020) CMIN,CPR,UNOM,UDIR,HMNN,DSET,DSETD,IFXBC,IEQSWT
|
||||
!IPK NOV97 READ(LIN,7000) ID,DLIN
|
||||
IF(UNOM .EQ. 0.) UNOM=0.25
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C4') THEN
|
||||
|
||||
!ipk sep96 add to 3 lines below for ocean exchange percentantage and mixing
|
||||
READ(DLIN,5020) SALI,TEMPI,SEDI,UINP,VINP,prcnt,DMIX
|
||||
write(75,*) 'read c4'
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C5') THEN
|
||||
|
||||
READ(DLIN,5011) NITI,NITN,TSTART,NCYC,IPRT,NPRTI,NPRTF,IRSAV,IDSWT
|
||||
5011 FORMAT( 2I8,F8.0,6I8)
|
||||
write(75,*) 'read c5'
|
||||
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C6') THEN
|
||||
|
||||
!IPK APR11
|
||||
READ(DLIN,'(8I8)') IOUTFREQ,IOUTRST,IREWOUT,ID1DND,ICPU,IOOC,IREWMES,IDEBUG1
|
||||
!IPK JAN09
|
||||
|
||||
GO TO 250
|
||||
|
||||
!IPK AUG11 add logic to allow exclusion whenID1DND = 3 or 4
|
||||
16 ELSEIF(ID(1:3) .EQ. 'EXM') THEN
|
||||
|
||||
READ(DLIN,'(9I8)') (MDLIST(I),I=1,9)
|
||||
DO I=1,9
|
||||
IF(MDLIST(I) .GT. 0) THEN
|
||||
IDEXCL(MDLIST(I))=1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'INI') THEN
|
||||
|
||||
READ(DLIN,'(F8.0)') ELEV1
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'VLA') THEN
|
||||
|
||||
READ(DLIN,'(F8.0)') YLATREF
|
||||
IVL=1
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'RMA2') THEN
|
||||
IRMA2=1
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'CV') THEN
|
||||
READ(DLIN,'(6F8.0,i8,f8.0)') (CONV(J),J=1,6),idrpt,drfact
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'IOV') THEN
|
||||
IOV=1
|
||||
|
||||
|
||||
!IPK feb97 add line to select optimisation
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'IOP') THEN
|
||||
READ(DLIN,'(F8.2)') W2FACT
|
||||
IOPTIM=0
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:5) .EQ. 'DFACT') THEN
|
||||
READ(DLIN,'(3F8.2,I8)') DFACTIN1,DFACTIN2,DFACTIN3,INEWDEN
|
||||
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'ICE1') THEN
|
||||
READ(DLIN,'(8F8.0,i8)')ROW,CHEAT,TMED,HTR,XLAT,ROSN,ROIC,TICE,ICESW
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'ICE2') THEN
|
||||
READ(DLIN,'(5F8.0)') CAL1,CAL2,CAL3,CAL4,VTR
|
||||
call ginpt(lin,id,dlin)
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'COL') THEN
|
||||
READ(DLIN,'(F8.2)') TRANSIT
|
||||
ITRANSIT=1
|
||||
!IPK revised unit
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'TST') THEN
|
||||
READ(DLIN,'(I8,2F8.0)') NODETR,TRELEV,TRFACT
|
||||
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'PWR') THEN
|
||||
NPWR=NPWR+1
|
||||
READ(DLIN,'(2I8,2F8.0,I8,3F8.0,I8)') NINCC(NPWR),NOUTCC(NPWR),ADDSAL(NPWR),ADDTMP(NPWR,1),IPWRSW(NPWR),&
|
||||
ADDTMP(NPWR,3),ADDSED(NPWR),ADDMAX(NPWR),NADTYP(NPWR)
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'EQT') THEN
|
||||
READ(DLIN,'(3F8.0)') EQTEMP,XKRAT,EXTING
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:6) .EQ. 'BEDMIN') THEN
|
||||
READ(DLIN,'(F8.0)') BEDMIN
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:6) .EQ. 'BEDMAX') THEN
|
||||
READ(DLIN,'(F8.0)') BEDMAX
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'BEDSHIFT') THEN
|
||||
READ(DLIN,'(F8.0)') BEDSHIFT
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'FLOWSCAL') THEN
|
||||
READ(DLIN,'(F8.0)') FLOWSCAL
|
||||
GO TO 250
|
||||
|
||||
!IPK AUG10 ADD SETTLING FOR SEDIMENT
|
||||
ELSEIF(ID(1:4) .EQ. 'VSET') THEN
|
||||
READ(DLIN,'(3F8.0)') VSET,VDECAY,PRECIP
|
||||
GO TO 250
|
||||
|
||||
!IPK AUG10 ADD BED HEAT TRANSFER
|
||||
ELSEIF(ID(1:4) .EQ. 'BDHT') THEN
|
||||
IBEDHT=1
|
||||
READ(DLIN,'(5F8.0)')TGL,DLINER,XKL,DDRY,XKG
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'CHI') THEN
|
||||
READ(DLIN,'(F8.0)') CHI1
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'SPC') THEN
|
||||
READ(DLIN,'(9A8)') (ASPLPT(J),J= 1,8)
|
||||
ITOTC=0
|
||||
DO J=1,8
|
||||
IF(ASPLPT(J) .EQ. 'VELOCITY') THEN
|
||||
ICOMP(ITOTC+1)=-1
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'DEPTH ') THEN
|
||||
ICOMP(ITOTC+1)=3
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'WS-ELEV ') THEN
|
||||
ICOMP(ITOTC+1)=7
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'SALINITY') THEN
|
||||
ICOMP(ITOTC+1)=4
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'TEMPERAT') THEN
|
||||
ICOMP(ITOTC+1)=5
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'SEDIMENT') THEN
|
||||
ICOMP(ITOTC+1)=6
|
||||
ITOTC=ITOTC+1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 250
|
||||
|
||||
! ELSEIF(ID(1:3) .EQ. 'SP ') THEN
|
||||
! READ(DLIN,5010) (NSPLPT(J),J= 1,9)
|
||||
! READ(DLINEXTRA,'(I8)') NSPLPT(10)
|
||||
! DO J=10,1,-1
|
||||
! IF(NSPLPT(J) .GT. 0) THEN
|
||||
! JSPLPT=J
|
||||
! GO TO 22
|
||||
! ENDIF
|
||||
! ENDDO
|
||||
!22 CONTINUE
|
||||
! GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'CSPC') THEN
|
||||
READ(DLIN,'(9A8)') (ACSPLPT(J),J= 1,8)
|
||||
ICTOTC=0
|
||||
DO J=1,8
|
||||
IF(ACSPLPT(J) .EQ. 'FLOW ') THEN
|
||||
ICCOMP(ICTOTC+1)=1
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'DEPTH ') THEN
|
||||
ICCOMP(ICTOTC+1)=2
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'WS-ELEV ') THEN
|
||||
ICCOMP(ICTOTC+1)=3
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'SALINITY') THEN
|
||||
ICCOMP(ICTOTC+1)=4
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'TEMPERAT') THEN
|
||||
ICCOMP(ICTOTC+1)=5
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'SEDIMENT') THEN
|
||||
ICCOMP(ICTOTC+1)=6
|
||||
ICTOTC=ICTOTC+1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 250
|
||||
|
||||
!IPK AUG11
|
||||
ELSEIF(ID(1:4) .EQ. 'CSP ') THEN
|
||||
READ(DLIN,5010) (NCSPLPT(J),J= 1,9)
|
||||
5010 FORMAT( 9I8 )
|
||||
READ(DLINEXTRA,'(I8)') NCSPLPT(10)
|
||||
DO J=10,1,-1
|
||||
IF(NCSPLPT(J) .GT. 0) THEN
|
||||
JCSPLPT=J
|
||||
GO TO 23
|
||||
ENDIF
|
||||
ENDDO
|
||||
23 CONTINUE
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'ED1') THEN
|
||||
5030 FORMAT( I8, 8F8.0)
|
||||
5031 FORMAT(8X,8F8.0)
|
||||
5032 FORMAT(8X,I8,2F8.0)
|
||||
READ(DLIN,5030) J,(ORT(J,K),K=1,7)
|
||||
write(75,*) 'read ed1'
|
||||
|
||||
IF(NMAT .LT. J) NMAT=J
|
||||
GO TO 250
|
||||
!IPK NOV97 READ(LIN,7000) ID,DLIN
|
||||
ELSEIF(ID(1:3) .EQ. 'ED2') THEN
|
||||
READ(DLIN,5031) (ORT(J,K),K=8,13)
|
||||
write(75,*) 'read ed2'
|
||||
!IPK mar98
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'ED3') THEN
|
||||
if(IEDSW .EQ. 5) THEN
|
||||
READ(DLIN,5031) ELDER(J,1),ELDER(J,2)
|
||||
ELSE
|
||||
READ(DLIN,5032) IT1,TT1,TT2
|
||||
IF(TT1 .GT. 0.) THEN
|
||||
TBFACT1(J)=TT1
|
||||
ENDIF
|
||||
IF(TT2 .GT. 0.) THEN
|
||||
TBMIN1(J)=TT2
|
||||
ENDIF
|
||||
ENDIF
|
||||
GO TO 250
|
||||
!IPK mar07 add to test
|
||||
! ELSE
|
||||
! GO TO 24
|
||||
! ENDIF
|
||||
|
||||
|
||||
! ENDIF
|
||||
ELSEIF(ID(1:8) .EQ. 'MP ') THEN
|
||||
READ(DLIN,'(I8,4F8.0)') IDUM,ACT1,ACT2,ACT3,ACT4
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:4) .EQ. 'LD3 ' ) THEN
|
||||
L3DCNT=L3DCNT+1
|
||||
L3DTYP=3
|
||||
READ(DLIN,*) JND(L3DCNT),KKLAY(L3DCNT),(L3DDAT(L3DCNT,K),K=1,KKLAY(L3DCNT))
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:4) .EQ. 'LD2 ' ) THEN
|
||||
L3DCNT=L3DCNT+1
|
||||
L3DTYP=2
|
||||
READ(DLIN,*) JND(L3DCNT),KKLAY(L3DCNT),(L3DDAT(L3DCNT,K),K=1,KKLAY(L3DCNT))
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'ENDGEO ') THEN
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'DT') THEN
|
||||
JT=JT+1
|
||||
KQ=0
|
||||
KH=0
|
||||
KE=0
|
||||
KFC=0
|
||||
|
||||
IF(ID(3:3) .EQ. 'M') THEN
|
||||
READ(DLIN(1:16),'(F8.0,I8)') DELTM(JT)
|
||||
ELSE
|
||||
READ(DLIN(1:16),'(F8.0,I8)') DELT(JT)
|
||||
ENDIF
|
||||
IF(DELTM(JT) .GT. 0 .OR. DELT(JT) .GT. 0) THEN
|
||||
READ(DLIN(9:56),'(2I8,F8.0,3I8)') IYRR,DAYOFY,TET,NPRTF1,NPSW1,NCCSW1
|
||||
CALL MAKEDATE(DATENDST(JT),IYRR,DAYOFY,TET)
|
||||
ENDIF
|
||||
ELSEIF(ID(1:2) .EQ. 'BQ') THEN
|
||||
IF(ID(3:4) .EQ. ' ') THEN
|
||||
IITYPE(JT)=1
|
||||
ELSEIF(ID(3:4) .EQ. 'S ') THEN
|
||||
IITYPE(JT)=2
|
||||
ELSEIF(ID(3:4) .EQ. 'T ') THEN
|
||||
IITYPE(JT)=3
|
||||
ELSEIF(ID(3:4) .EQ. 'D ') THEN
|
||||
IITYPE(JT)=4
|
||||
ELSEIF(ID(3:4) .EQ. 'ST') THEN
|
||||
IITYPE(JT)=5
|
||||
ENDIF
|
||||
ELSEIF(ID(1:3) .EQ. 'HC ') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,'(2I8,4F8.0,I8)') IHLIN(KH,JT),LAYNUMH(KH,JT),HLIN(KH,JT),(QUALKH(KH,JT,KK),KK=1,3),HCKLIN(KH,JT)
|
||||
IF(HCKLIN(KH,JT) .EQ. 2) THEN
|
||||
HCKLIN(KH,JT)=0
|
||||
HCKLIN1(KH,JT)=1
|
||||
ENDIF
|
||||
HLIN1(KH,JT)=-9999.
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'HI') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,'(2I8,5F8.0,I8)') IHLIN(KH,JT),LAYNUMH(KH,JT),HLIN(KH,JT),HLIN1(KH,JT),(QUALKH(KH,JT,KK),KK=1,3),HCKLIN(KH,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'WVA') THEN
|
||||
READ(DLIN,'(8X,2F8.0)') WVEL(JT),WDIR(JT)
|
||||
ELSEIF(ID(1:2) .EQ. 'QC') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IQLIN(KQ,JT),QLIN(KQ,JT),QDLIN(KQ,JT),(QUALKQ(KH,JT,KK),KK=1,3),QCKLIN(KQ,JT)
|
||||
IQLIN1(KQ,JT)=1
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'QG') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IQLIN(KQ,JT),QLIN(KQ,JT),QDLIN(KQ,JT),(QUALKQ(KH,JT,KK),KK=1,3),QCKLIN(KQ,JT)
|
||||
IQLIN1(KQ,JT)=1
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'QH') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IQLIN(KQ,JT),QLIN(KQ,JT),QDLIN(KQ,JT),(QUALKQ(KH,JT,KK),KK=1,3),QCKLIN(KQ,JT)
|
||||
IQLIN1(KQ,JT)=2
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'ETA') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,JT)=4
|
||||
READ(DLIN,'(24X,4F8.0,I8)') ELIN(KE,JT),(QUALKE(KE,JT,KK),KK=1,3),ECKLIN(KE,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'EFA') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,JT)=1
|
||||
READ(DLIN,'(8X,2I8,4F8.0,I8)') LAYNUME(KE,JT) ,ecklin1(KE,JT),ELIN(KE,JT),(QUALKE(KE,JT,KK),KK=1,3),ECKLIN(KE,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'EFE') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,JT)=1
|
||||
READ(DLIN,'(3I8,4F8.0,I8)') IELIN(KE,JT),LAYNUME(KE,JT), ecklin1(KE,JT),ELIN(KE,JT),(QUALKE(KE,JT,KK),KK=1,3),ECKLIN(KE,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'ETG') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,JT)=6
|
||||
READ(DLIN,'(I8,16X,4F8.0,I8)') IELIN(KE,JT),ELIN(KE,JT),(QUALKE(KE,JT,KK),KK=1,3),ECKLIN(KE,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'SN ' .OR. ID(1:3) .EQ. 'SD ') THEN
|
||||
NSND(JT) =NSND(JT)+1
|
||||
READ(DLIN,'(2I8,6F8.0)') NODSND(NSND(JT),JT),NCODE(NSND(JT),JT),(BCSND(NSND(JT),JT,KK),KK=1,6)
|
||||
ELSEIF(ID(1:3) .EQ. 'SQC') THEN
|
||||
KFC=KFC+1
|
||||
READ(DLIN,'(I8,5F8.0)') ISFLIN(KFC,JT),SFLIN(KFC,JT),SFLIN1(KFC,JT),SFLIN2(KFC,JT),SFLIN3(KFC,JT),SFLIN4(KFC,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'FC') THEN
|
||||
KFC=KFC+1
|
||||
READ(DLIN,'(2I8,5F8.0,8x,f8.0)') IFCLIN(KFC,JT),IFCLIN1(KFC,JT),FCLIN(KFC,JT),FCLIN1(KFC,JT),FCLIN2(KFC,JT),FCLIN3(KFC,JT),FCLIN4(KFC,JT),FCLIN5(KFC,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'HCN') THEN
|
||||
! KHCN = NUMBER OF HCN SETS IN JT STEP
|
||||
KHCN(JT)=KHCN(JT)+1
|
||||
LO=1
|
||||
230 READ(DLIN,'(9F8.0)') (FHCN(KHCN(JT),JT,KHC),KHC=LO,LO+8)
|
||||
IF(FHCN(KHCN(JT),JT,LO+8) .EQ. 0) THEN
|
||||
! IHCN = # OF HCN ENTRIES FOR KHCN BLOCK, STEP JT
|
||||
IHCN(KHCN(JT),JT)=LO+8
|
||||
GO TO 250
|
||||
ENDIF
|
||||
LO=LO+9
|
||||
CALL GINPT(INRM2,ID,DLIN)
|
||||
IF(ID (1:3) .NE. 'HCN') THEN
|
||||
IHCN(KHCN(JT),JT)=LO-1
|
||||
GO TO 251
|
||||
ENDIF
|
||||
GO TO 230
|
||||
ELSEIF(ID(1:8) .EQ. 'ENDSTEP') THEN
|
||||
NQLIN(JT)=KQ
|
||||
NHLIN(JT)=KH
|
||||
NELIN(JT)=KE
|
||||
NFCLIN(JT)=KFC
|
||||
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:8) .EQ. 'ENDDATA') THEN
|
||||
go to 400
|
||||
ELSE
|
||||
WRITE(75,*) 'DATA LINE ABOVE NOT CONVERTED'
|
||||
IF(IENDGEO .EQ.0) THEN
|
||||
IF(ID(1:3) .EQ. 'ED2') THEN
|
||||
WRITE(DLIN(1:8),'(I8)'),ITEMP
|
||||
ENDIF
|
||||
NHOLDC=NHOLDC+1
|
||||
HOLDC(NHOLDC)=ID//DLIN
|
||||
ENDIF
|
||||
GO TO 250
|
||||
ENDIF
|
||||
GO TO 250
|
||||
400 CONTINUE
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE MAKEDATE(STRING,IYRR,DAYOFY,HOUR)
|
||||
INTEGER JDAYC(0:12)
|
||||
CHARACTER*16 STRING
|
||||
INTEGER IYRR,DAYOFY,JLP,JLPM,MON,IDAY
|
||||
REAL HOUR
|
||||
DATA JDAYC/0,31,59,90,120,151,181,212,243,273,304,334,365/
|
||||
JLP=0
|
||||
JLPM=0
|
||||
DO J=1,12
|
||||
IF(J .EQ. 2 .AND. MOD(IYRR,4) .EQ. 0) JLP=1
|
||||
IF(J .EQ. 3 .AND. MOD(IYRR,4) .EQ. 0) JLPM=1
|
||||
IF(DAYOFY .LE. JDAYC(J)+JLP) THEN
|
||||
MON=J
|
||||
IDAY=DAYOFY-JDAYC(J-1)-JLPM
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
WRITE(STRING(1:3),'(I2.2,''/'')') IDAY
|
||||
WRITE(STRING(4:6),'(I2.2,''/'')') MON
|
||||
WRITE(STRING(7:11),'(I4,'' '')') IYRR
|
||||
IF(HOUR .LT. 10.) THEN
|
||||
WRITE(STRING(12:16),'(''0'',F4.2)') HOUR
|
||||
ELSE
|
||||
WRITE(STRING(12:16),'(F5.2)') HOUR
|
||||
ENDIF
|
||||
RETURN
|
||||
END
|
||||
@ -0,0 +1,550 @@
|
||||
SUBROUTINE CONVERT
|
||||
use winteracter
|
||||
USE BLK1
|
||||
USE BLKMAT
|
||||
USE BLKRM10
|
||||
integer inrm1,k
|
||||
CHARACTER*8 LABELF(28),labelin,ID
|
||||
character*72 namin,DLIN
|
||||
CHARACTER(LEN=255) :: filter
|
||||
|
||||
|
||||
! Process standard RM2 input file to TAB format
|
||||
INTEGER IMTS(12)
|
||||
DATA IMTS/0,31,59,90,120,151,181,212,243,273,304,334/
|
||||
DATA LABELF/ 'INBNGEO ','INBNRST ','INRM1 ','INELEV ','INHYD ','INELTFL ','OUTFIL ','OUTBNRMA','OUTBNRST','TIMFIL ','OUTSMS ','OUTSPL ','OUTCON ','INCROS ','INSRCORD','INSTRESS','INBNSTRS','INWGT ','INBNWGT ','OUTWGT ','OUTBNWGT','OUTBNSTR','WEIRDATA','AWINDIN ','BWINDIN ','OUTFLOW ','INHARM ','OUTBN3GE'/
|
||||
! First get a file
|
||||
filter="r10 file *.r10|*.R10|"
|
||||
CALL WSelectFile(FILTER,PromptOn+DirChange,NAMEFL,'Load R10 File')
|
||||
|
||||
IF (WInfoDialog(ExitButtonCommon).EQ.CommonOpen) THEN
|
||||
go to 100
|
||||
else
|
||||
RETURN
|
||||
endif
|
||||
|
||||
100 CONTINUE
|
||||
DO J=1,28
|
||||
DO K=1,72
|
||||
FNAME(J)(K:k)=' '
|
||||
ENDDO
|
||||
ENDDO
|
||||
INRM2=7
|
||||
ORT=0.
|
||||
ITYP=0
|
||||
NMAT=0
|
||||
DELTM=0.
|
||||
DELT=0.
|
||||
DATENDST=' '
|
||||
JT=0
|
||||
KH=0
|
||||
KQ=0
|
||||
KE=0
|
||||
KFC=0
|
||||
IHLIN=0
|
||||
HLIN=0.
|
||||
HCKLIN=0
|
||||
HCKLIN1=0
|
||||
NHLIN=0
|
||||
IQLIN=0
|
||||
QLIN=0.
|
||||
QDLIN=0.
|
||||
QCKLIN=0.
|
||||
NQLIN=0
|
||||
IELIN=0
|
||||
ELIN=0.
|
||||
ECKLIN=0.
|
||||
ECKLIN1=0
|
||||
NELIN=0
|
||||
IENDGEO=0
|
||||
NFCLIN=0
|
||||
IFCLIN=0
|
||||
IFCLIN1=0
|
||||
|
||||
FCLIN=0
|
||||
FCLIN1=0
|
||||
FCLIN2=0
|
||||
FCLIN3=0
|
||||
FCLIN4=0
|
||||
FCLIN5=0
|
||||
IPIV=0
|
||||
ICTOTC=0
|
||||
IETP=0
|
||||
JET=0
|
||||
MANSLOP=0.
|
||||
MANMIN=0.
|
||||
OPEN(INRM2,FILE=NAMEFL,FORM='FORMATTED')
|
||||
|
||||
! Now read files
|
||||
DO J=1,28
|
||||
IF(LABELIN(1:6) .EQ. 'ENDFIL') THEN
|
||||
NFIL=J-1
|
||||
EXIT
|
||||
ENDIF
|
||||
READ(INRM2,'(A8,A72)') LABELIN,NAMIN
|
||||
DO K=1,27
|
||||
IF(LABELIN .EQ. LABELF(K)) THEN
|
||||
FNAME(K)=NAMIN
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDDO
|
||||
|
||||
! Next start on controls
|
||||
|
||||
200 CONTINUE
|
||||
CALL GINPT(INRM2,ID,DLIN)
|
||||
IF(ID(1:8) .EQ. 'ENDLIMIT') THEN
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'TI') THEN
|
||||
TITLEHEAD=DLIN
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXFRONT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(1)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXCROSS') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(5)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXCPTS ') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(6)
|
||||
ELSEIF(ID(1:8) .EQ. 'BUFFSIZ ') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(2)
|
||||
ELSEIF(ID(1:8) .EQ. 'BUFFSIZL') THEN
|
||||
READ(DLIN,'(I16)') LIMITVAL(2)
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXQPTS ') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(10)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXQINPT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(7)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXHPTS ') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(11)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXHINPT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(8)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXELPTS') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(12)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXEINPT') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(9)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXPBUFR') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(4)
|
||||
ELSEIF(ID(1:8) .EQ. 'MAXSTEPS') THEN
|
||||
READ(DLIN,'(I8)') LIMITVAL(3)
|
||||
ENDIF
|
||||
GO TO 200
|
||||
250 CONTINUE
|
||||
CALL GINPT(INRM2,ID,DLIN)
|
||||
IF(ID(1:2) .EQ. 'TI') THEN
|
||||
TT=0
|
||||
TITLEHEAD=DLIN
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C0') THEN
|
||||
DO J=25,32
|
||||
IF(DLIN(J:J) .EQ. '/') THEN
|
||||
DLIN(J:J)=','
|
||||
READ(DLIN(1:24),'(3I8)') IOPTZD,IDNOPT,IYRR
|
||||
READ(DLIN(25:32),*) ITMD,ITMM
|
||||
DAYOFY=IMTS(ITMM)+ITMD
|
||||
IF(MOD(IYRR,4) .EQ. 0 .AND. ITMM .GT. 2) DAYOFY=DAYOFY+1
|
||||
READ(DLIN(33:72),'(F8.0,I8,2F8.0,I8)')TET,IEDSW,TBFACT,TBMIN
|
||||
+ ,IPROJ
|
||||
GO TO 60
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
READ(DLIN,5061)IOPTZD,IDNOPT,IYRR,DAYOFY,TET,IEDSW,TBFACT,TBMIN
|
||||
+ ,IPROJ
|
||||
|
||||
write(*,*) 'read c0'
|
||||
CIPK FEB04 SAVE TIMES IN CASE IOV ACTIVE
|
||||
60 CONTINUE
|
||||
IYKK=IYRR
|
||||
IDTM=DAYOFY
|
||||
TTEM=TET
|
||||
GO TO 250
|
||||
cipk end changes apr 96
|
||||
ELSEIF(ID(1:2) .EQ. 'C1') THEN
|
||||
CIPK SEP05
|
||||
ISAVITR=0
|
||||
cipk FEB15 allow zero bed option to be based on a level
|
||||
READ(DLIN,5021)
|
||||
+ NDP,IGRV,IZB,IPASS1,IPASS2,IPASS3,IZERS,ISAVITR,zerbed
|
||||
5021 FORMAT(8I8,F8.0)
|
||||
cipk mar15 add switch for density distribution
|
||||
read(dlinextra,'(i8)') ivertden
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C2') THEN
|
||||
CIPK DEC07 REPLACE OMEGA BY OMEGA1
|
||||
READ(DLIN,5020) OMEGA1,ELEV,XSCALE,YSCALE,ZSCALE
|
||||
write(*,*) 'read c2'
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C3') THEN
|
||||
|
||||
READ(DLIN,5020) CMIN,CPR,UNOM,UDIR,HMNN,DSET,DSETD,IFXBC,IEQSWT
|
||||
CIPK NOV97 READ(LIN,7000) ID,DLIN
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C4') THEN
|
||||
|
||||
cipk sep96 add to 3 lines below for ocean exchange percentantage and mixing
|
||||
READ(DLIN,5020) SALI,TEMPI,SEDI,UINP,VINP,prcnt,DMIX
|
||||
write(*,*) 'read c4'
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C5') THEN
|
||||
|
||||
READ(DLIN,5011) NITI,NITN,TSTART,NCYC,IPRT,NPRTI
|
||||
+ ,NPRTF,IRSAV,IDSWT
|
||||
write(*,*) 'read c5'
|
||||
C
|
||||
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C6') THEN
|
||||
|
||||
CIPK APR11
|
||||
READ(DLIN,'(8I8)') IOUTFREQ,IOUTRST,IREWOUT,ID1DND,ICPU,IOOC
|
||||
+ ,IREWMES,IDEBUG
|
||||
CIPK JAN09
|
||||
|
||||
GO TO 250
|
||||
|
||||
CIPK AUG11 add logic to allow exclusion whenID1DND = 3 or 4
|
||||
16 ELSEIF(ID(1:3) .EQ. 'EXM') THEN
|
||||
|
||||
READ(DLIN,'(9I8)') (MDLIST(I),I=1,9)
|
||||
DO I=1,9
|
||||
IF(MDLIST(I) .GT. 0) THEN
|
||||
IDEXCL(MDLIST(I))=1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'INI') THEN
|
||||
|
||||
READ(DLIN,'(F8.0)') ELEV1
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'VLA') THEN
|
||||
|
||||
READ(DLIN,'(F8.0)') YLATREF
|
||||
IVL=1
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'RMA2') THEN
|
||||
IRMA2=1
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'CV') THEN
|
||||
READ(DLIN,'(6F8.0,i8,f8.0)') (CONV(J),J=1,6),idrpt,drfact
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'IOV') THEN
|
||||
IOV=1
|
||||
|
||||
|
||||
cipk feb97 add line to select optimisation
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'IOP') THEN
|
||||
READ(DLIN,'(F8.2)') W2FACT
|
||||
IOPTIM=0
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:5) .EQ. 'DFACT') THEN
|
||||
READ(DLIN,'(3F8.2,I8)') DFACTIN1,DFACTIN2,DFACTIN3,INEWDEN
|
||||
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'ICE1') THEN
|
||||
READ(DLIN,'(8F8.0,i8)')ROW,CHEAT,TMED,HTR,XLAT,ROSN,ROIC,TICE,
|
||||
+ ICESW
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'ICE2') THEN
|
||||
READ(DLIN,'(5F8.0)') CAL1,CAL2,CAL3,CAL4,VTR
|
||||
call ginpt(lin,id,dlin)
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'COL') THEN
|
||||
READ(DLIN,'(F8.2)') TRANSIT
|
||||
ITRANSIT=1
|
||||
cipk revised unit
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'TST') THEN
|
||||
READ(DLIN,'(I8,2F8.0)') NODETR,TRELEV,TRFACT
|
||||
|
||||
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'PWR') THEN
|
||||
READ(DLIN,'(2I8,2F8.0,I8,3F8.0,I8)') NINCC,NOUTCC(NINCC),
|
||||
+ ADDSAL(NINCC),ADDTMP(NINCC,1),IPWRSW(NINCC),ADDTMP(NINCC,3)
|
||||
+ ,ADDSED(NINCC),ADDMAX(NINCC),NADTYP(NINCC)
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'EQT') THEN
|
||||
READ(DLIN,'(3F8.0)') EQTEMP,XKRAT,EXTING
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:6) .EQ. 'BEDMIN') THEN
|
||||
READ(DLIN,'(F8.0)') BEDMIN
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:6) .EQ. 'BEDMAX') THEN
|
||||
READ(DLIN,'(F8.0)') BEDMAX
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'BEDSHIFT') THEN
|
||||
READ(DLIN,'(F8.0)') BEDSHIFT
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'FLOWSCAL') THEN
|
||||
READ(DLIN,'(F8.0)') FLOWSCAL
|
||||
GO TO 250
|
||||
|
||||
CIPK AUG10 ADD SETTLING FOR SEDIMENT
|
||||
ELSEIF(ID(1:4) .EQ. 'VSET') THEN
|
||||
READ(DLIN,'(3F8.0)') VSET,VDECAY,PRECIP
|
||||
GO TO 250
|
||||
|
||||
CIPK AUG10 ADD BED HEAT TRANSFER
|
||||
ELSEIF(ID(1:4) .EQ. 'BDHT') THEN
|
||||
IBEDHT=1
|
||||
READ(DLIN,'(5F8.0)')TGL,DLINER,XKL,DDRY,XKG
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'CHI') THEN
|
||||
READ(DLIN,'(F8.0)') CHI1
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'SPC') THEN
|
||||
READ(DLIN,'(9A8)') (ASPLPT(J),J= 1,8)
|
||||
ITOTC=0
|
||||
DO J=1,8
|
||||
IF(ASPLPT(J) .EQ. 'VELOCITY') THEN
|
||||
ICOMP(ITOTC+1)=-1
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'DEPTH ') THEN
|
||||
ICOMP(ITOTC+1)=3
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'WS-ELEV ') THEN
|
||||
ICOMP(ITOTC+1)=7
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'SALINITY') THEN
|
||||
ICOMP(ITOTC+1)=4
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'TEMPERAT') THEN
|
||||
ICOMP(ITOTC+1)=5
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'SEDIMENT') THEN
|
||||
ICOMP(ITOTC+1)=6
|
||||
ITOTC=ITOTC+1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'SP ') THEN
|
||||
READ(DLIN,5010) (NSPLPT(J),J= 1,9)
|
||||
READ(DLINEXTRA,'(I8)') NSPLPT(10)
|
||||
DO J=10,1,-1
|
||||
IF(NSPLPT(J) .GT. 0) THEN
|
||||
JSPLPT=J
|
||||
GO TO 22
|
||||
ENDIF
|
||||
ENDDO
|
||||
22 CONTINUE
|
||||
GO TO 250
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'CSPC') THEN
|
||||
READ(DLIN,'(9A8)') (ACSPLPT(J),J= 1,8)
|
||||
ICTOTC=0
|
||||
DO J=1,8
|
||||
IF(ACSPLPT(J) .EQ. 'FLOW ') THEN
|
||||
ICCOMP(ICTOTC+1)=1
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'DEPTH ') THEN
|
||||
ICCOMP(ICTOTC+1)=2
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'WS-ELEV ') THEN
|
||||
ICCOMP(ICTOTC+1)=3
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'SALINITY') THEN
|
||||
ICCOMP(ICTOTC+1)=4
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'TEMPERAT') THEN
|
||||
ICCOMP(ICTOTC+1)=5
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'SEDIMENT') THEN
|
||||
ICCOMP(ICTOTC+1)=6
|
||||
ICTOTC=ICTOTC+1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 250
|
||||
|
||||
CIPK AUG11
|
||||
ELSEIF(ID(1:4) .EQ. 'CSP ') THEN
|
||||
READ(DLIN,5010) (NCSPLPT(J),J= 1,9)
|
||||
READ(DLINEXTRA,'(I8)') NCSPLPT(10)
|
||||
DO J=10,1,-1
|
||||
IF(NCSPLPT(J) .GT. 0) THEN
|
||||
JCSPLPT=J
|
||||
GO TO 23
|
||||
ENDIF
|
||||
ENDDO
|
||||
23 CONTINUE
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'ED1') THEN
|
||||
READ(DLIN,5030) J,(ORT(J,K),K=1,7)
|
||||
write(*,*) 'read ed1'
|
||||
|
||||
IF(NMAT .LT. J) NMAT=J
|
||||
GO TO 250
|
||||
CIPK NOV97 READ(LIN,7000) ID,DLIN
|
||||
ELSEIF(ID(1:3) .EQ. 'ED2') THEN
|
||||
READ(DLIN,5031) (ORT(J,K),K=8,13)
|
||||
write(*,*) 'read ed2'
|
||||
cipk mar98
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'ED3') THEN
|
||||
if(IEDSW .EQ. 5) THEN
|
||||
READ(DLIN,5031) ELDER(J,1),ELDER(J,2)
|
||||
ELSE
|
||||
READ(DLIN,5032) IT1,TT1,TT2
|
||||
IF(TT1 .GT. 0.) THEN
|
||||
TBFACT1(J)=TT1
|
||||
ENDIF
|
||||
IF(TT2 .GT. 0.) THEN
|
||||
TBMIN1(J)=TT2
|
||||
ENDIF
|
||||
ENDIF
|
||||
GO TO 250
|
||||
cipk mar07 add to test
|
||||
C ELSE
|
||||
C GO TO 24
|
||||
C ENDIF
|
||||
|
||||
|
||||
ENDIF
|
||||
ELSEIF(ID(1:8) .EQ. 'ENDGEO ') THEN
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'DT') THEN
|
||||
JT=JT+1
|
||||
KQ=0
|
||||
KH=0
|
||||
KE=0
|
||||
KFC=0
|
||||
|
||||
IF(ID(3:3) .EQ. 'M') THEN
|
||||
READ(DLIN(1:16),'(F8.0,I8)') DELTM(JT),IWIND(JT)
|
||||
ELSE
|
||||
READ(DLIN(1:16),'(F8.0,I8)') DELT(JT),IWIND(JT)
|
||||
ENDIF
|
||||
IF(DELTM(JT) .GT. 0 .OR. DELT(JT) .GT. 0) THEN
|
||||
READ(DLIN(17:40),'(2I8,F8.0)') IYRR,DAYOFY,TET
|
||||
CALL MAKEDATE(DATENDST(JT),IYRR,DAYOFY,TET)
|
||||
ENDIF
|
||||
READ(DLIN(41:56),'(F8.0,I8)') URLC(JT), NRITR(JT)
|
||||
ELSEIF(ID(1:2) .EQ. 'HC') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,'(I8,F8.0,I8)') IHLIN(KH,JT),HLIN(KH,JT),HCKLIN(KH,JT)
|
||||
IF(HCKLIN(KH,JT) .EQ. 2) THEN
|
||||
HCKLIN(KH,JT)=0
|
||||
HCKLIN1(KH,JT)=1
|
||||
ENDIF
|
||||
HLIN1(KH,JT)=-9999.
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'HI') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IHLIN(KH,JT),HLIN(KH,JT),HLIN1(KH,JT),HCKLIN(KH,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'QC') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IQLIN(KQ,JT),QLIN(KQ,JT),QDLIN(KQ,JT),QCKLIN(KQ,JT)
|
||||
IQLIN1(KQ,JT)=1
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'QF') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IQLIN(KQ,JT),QLIN(KQ,JT),QDLIN(KQ,JT),QCKLIN(KQ,JT)
|
||||
IQLIN1(KQ,JT)=2
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'QG') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IQLIN(KQ,JT),QLIN(KQ,JT),QDLIN(KQ,JT),QCKLIN(KQ,JT)
|
||||
IQLIN1(KQ,JT)=1
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'QH') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,'(I8,2F8.0,I8)') IQLIN(KQ,JT),QLIN(KQ,JT),QDLIN(KQ,JT),QCKLIN(KQ,JT)
|
||||
IQLIN1(KQ,JT)=2
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'EFE') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,JT)=1
|
||||
READ(DLIN,'(I8,F8.0,2I8)') IELIN(KE,JT),ELIN(KE,JT),ecklin1(KE,JT),ECKLIN(KE,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:3) .EQ. 'SQC') THEN
|
||||
KFC=KFC+1
|
||||
READ(DLIN,'(I8,5F8.0)') ISFLIN(KFC,JT),SFLIN(KFC,JT),SFLIN1(KFC,JT),SFLIN2(KFC,JT),SFLIN3(KFC,JT),SFLIN4(KFC,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:2) .EQ. 'FC') THEN
|
||||
KFC=KFC+1
|
||||
READ(DLIN,'(2I8,5F8.0,8x,f8.0)') IFCLIN(KFC,JT),IFCLIN1(KFC,JT),FCLIN(KFC,JT),FCLIN1(KFC,JT),FCLIN2(KFC,JT),FCLIN3(KFC,JT),FCLIN4(KFC,JT),FCLIN5(KFC,JT)
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:8) .EQ. 'ENDSTEP') THEN
|
||||
NQLIN(JT)=KQ
|
||||
NHLIN(JT)=KH
|
||||
NELIN(JT)=KE
|
||||
NFCLIN(JT)=KFC
|
||||
|
||||
GO TO 250
|
||||
ELSEIF(ID(1:8) .EQ. 'ENDDATA') THEN
|
||||
go to 400
|
||||
ELSE
|
||||
WRITE(75,*) 'DATA LINE ABOVE NOT CONVERTED'
|
||||
IF(IENDGEO .EQ.0) THEN
|
||||
IF(ID(1:3) .EQ. 'ED2') THEN
|
||||
WRITE(DLIN(1:8),'(I8)'),ITEMP
|
||||
ENDIF
|
||||
NHOLDC=NHOLDC+1
|
||||
HOLDC(NHOLDC)=ID//DLIN
|
||||
ENDIF
|
||||
GO TO 250
|
||||
ENDIF
|
||||
GO TO 250
|
||||
400 CONTINUE
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE MAKEDATE(STRING,IYRR,DAYOFY,HOUR)
|
||||
INTEGER JDAYC(0:12)
|
||||
CHARACTER*16 STRING
|
||||
INTEGER IYRR,DAYOFY,JLP,JLPM,MON,IDAY
|
||||
REAL HOUR
|
||||
DATA JDAYC/0,31,59,90,120,151,181,212,243,273,304,334,365/
|
||||
JLP=0
|
||||
JLPM=0
|
||||
DO J=1,12
|
||||
IF(J .EQ. 2 .AND. MOD(IYRR,4) .EQ. 0) JLP=1
|
||||
IF(J .EQ. 3 .AND. MOD(IYRR,4) .EQ. 0) JLPM=1
|
||||
IF(DAYOFY .LE. JDAYC(J)+JLP) THEN
|
||||
MON=J
|
||||
IDAY=DAYOFY-JDAYC(J-1)-JLPM
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
WRITE(STRING(1:3),'(I2.2,''/'')') IDAY
|
||||
WRITE(STRING(4:6),'(I2.2,''/'')') MON
|
||||
WRITE(STRING(7:11),'(I4,'' '')') IYRR
|
||||
IF(HOUR .LT. 10.) THEN
|
||||
WRITE(STRING(12:16),'(''0'',F4.2)') HOUR
|
||||
ELSE
|
||||
WRITE(STRING(12:16),'(F5.2)') HOUR
|
||||
ENDIF
|
||||
RETURN
|
||||
END
|
||||
@ -0,0 +1,186 @@
|
||||
SUBROUTINE DEFAULTS
|
||||
USE BLKRM10
|
||||
IOPTZD=0
|
||||
IOPTZDDF=0
|
||||
IDNOPT=0
|
||||
IDNOPTDF=0
|
||||
IYRR=2019
|
||||
iyrrdf=2019
|
||||
ITMD=1
|
||||
ITMDDF=1
|
||||
ITMM=1
|
||||
ITMMDF=1
|
||||
DAYOFY=1
|
||||
DAYOFYDF=1
|
||||
TET=0.
|
||||
TETDF=0.
|
||||
IEDSW=1
|
||||
IEDSWDF=1
|
||||
TBFACT=0.2
|
||||
TBFACTDF=0.2
|
||||
TBMIN=1.
|
||||
TBMINDF=1.
|
||||
IPROJ=1
|
||||
IPROJDF=1
|
||||
IYKK=2019
|
||||
IDTM=1
|
||||
IDTMDF=1
|
||||
TTEM=0.
|
||||
|
||||
NDP=0
|
||||
NLAYTYP=0
|
||||
NLAYTYPDF=0
|
||||
IGRV=1
|
||||
IGRVDF=1
|
||||
IZB=0
|
||||
IZBDF=0
|
||||
IPASS1=0
|
||||
IPASS1DF=0
|
||||
IPASS2=0
|
||||
IPASS2DF=0
|
||||
IPASS3=0
|
||||
IPASS3DF=0
|
||||
IZERS=0
|
||||
IZERSDF=0
|
||||
ISAVITR=0
|
||||
ISAVIRTDF=0
|
||||
zerbed=0
|
||||
ZERBEDDF=0
|
||||
|
||||
IVERTDEN=0
|
||||
IVERTDENDF=0
|
||||
GRAV=9.81
|
||||
IMGEOM=1
|
||||
OMEGA1=0.
|
||||
OMEGA1DF=0.
|
||||
ELEV=0.
|
||||
ELEVDF=0.
|
||||
XSCALE=1.
|
||||
YSCALE=1.
|
||||
ZSCALE=1.
|
||||
XSCALEDF=1.
|
||||
YSCALEDF=1.
|
||||
ZSCALEDF=1.
|
||||
ELEV1=0.
|
||||
ELEV1DF=0.
|
||||
CMIN=1.0
|
||||
CPR=1.0
|
||||
CMINDF=1.0
|
||||
CPRDF=1.0
|
||||
UNOM=0.
|
||||
UNOMDF=0.
|
||||
UDIR=0.
|
||||
UDIRDF=0.
|
||||
HMIN=0.0
|
||||
HMINDF=0.0
|
||||
DSET=0.2
|
||||
DSETDF=0.2
|
||||
DSETD=0.3
|
||||
DSETDDF=0.3
|
||||
IFXBC=0
|
||||
IFXBCDF=0
|
||||
IEQSWT=20000
|
||||
IEQSWTDF=20000
|
||||
SALI=0.
|
||||
SALIDF=0.
|
||||
TEMPI=20.
|
||||
TEMPIDF=20.
|
||||
SEDI=0.
|
||||
SEDIDF=0.
|
||||
UINP=0.1
|
||||
UINPDF=0.1
|
||||
VINP=0.1
|
||||
VINPDF=0.1
|
||||
prcnt=0.
|
||||
prcntDF=0.
|
||||
DMIX=0.5
|
||||
DMIXDF=0.5
|
||||
NITI=20
|
||||
NITIDF=20
|
||||
NITN=20
|
||||
NITNDF=20
|
||||
NCYC=12
|
||||
NCYCDF=12
|
||||
TSTART=0.
|
||||
TSTARTDF=0.
|
||||
IPRT=1
|
||||
IPRTDF=1
|
||||
NPRTI=0
|
||||
NPRTIDF=0
|
||||
NPRTF=1
|
||||
NPRTFDF=1
|
||||
IRSAV=1
|
||||
IRSAVDF=1
|
||||
IDSWT=0
|
||||
IDSWTDF=0
|
||||
IOUTFREQ=1
|
||||
IOUTFREQDF=1
|
||||
IOUTRST=10
|
||||
IOUTRSTDF=10
|
||||
IREWOUT=999999
|
||||
IREWOUTDF=999999
|
||||
ID1DND=1
|
||||
ID1DNDDF=1
|
||||
ICPU=4
|
||||
ICPUDF=4
|
||||
IOOC=0
|
||||
IOOCDF=0
|
||||
IREWMES=999999
|
||||
IREWMESDF=999999
|
||||
|
||||
IDEBUG=0
|
||||
IVL=0
|
||||
CONV(1)=0.01
|
||||
CONV(2)=0.01
|
||||
CONV(3)=0.001
|
||||
CONV(4)=0.01
|
||||
CONV(5)=0.01
|
||||
CONV(6)=0.01
|
||||
IDRPT=0
|
||||
DRFACT=0.1
|
||||
IOV=0
|
||||
IOPTM=2
|
||||
DFACTIN1=10.
|
||||
DFACTIN2=100.
|
||||
DFACTIN3=0.1
|
||||
INEWDEN=0
|
||||
ICESW=0
|
||||
ITRANSIT=0
|
||||
NODETR=0
|
||||
TRELEV=0.
|
||||
TRFACT=0.
|
||||
METEQ=0
|
||||
BEDMIN=-1.E20
|
||||
BEDMAX=1.E20
|
||||
BEDSHIFT=0
|
||||
FLOWSCAL=0.
|
||||
VSET=0.0
|
||||
VDECAY=0.0
|
||||
PRECIP=0.0
|
||||
IBEDHT=0
|
||||
ITOTC=0
|
||||
JSPLPT=0
|
||||
ICTOTC=0
|
||||
JCSPLPT=0
|
||||
NMAT=0
|
||||
VMIN=1.
|
||||
POWER=1.
|
||||
UMIN=1.
|
||||
PWERIN=1.
|
||||
VMINDF=1.
|
||||
POWERDF=1.
|
||||
UMINDF=1.
|
||||
PWERINDF=1.
|
||||
EDD1=1.0
|
||||
EDD2=0.0
|
||||
EDD3=0.0
|
||||
ACT1=1.5
|
||||
ACT2=0.67
|
||||
ACT3=0.04
|
||||
ACT4=0.
|
||||
ACT1DF=1.5
|
||||
ACT2DF=0.67
|
||||
ACT3DF=0.04
|
||||
ACT4DF=0.
|
||||
RETURN
|
||||
END
|
||||
@ -0,0 +1,943 @@
|
||||
SUBROUTINE FORMFILE
|
||||
|
||||
use winteracter
|
||||
USE BLKRM10
|
||||
|
||||
USE RESID
|
||||
INTEGER ICROSREF(45)
|
||||
CHARACTER*8 LABELF(43),LABELC(26),LABELFL(21),LABELCE,LABELFE,LIMITL(8),LABELNDL
|
||||
CHARACTER(LEN=255) :: filter
|
||||
character*137 helpint(110)
|
||||
character*162 helptime(43)
|
||||
character*89 helpfile(44)
|
||||
CHARACTER*1 ILAB(4),ALAB
|
||||
CHARACTER*2 BLAB
|
||||
|
||||
DATA ILAB/'C','F','G','H'/
|
||||
DATA ICROSREF/21,17,18,52,13,22,16,45, 1, 3, 4,14, 2,42,10,25,57,58,44,37&
|
||||
,38,39,40,15,31,30,19,20,53,54,55,56,11,12, 9,32,33,34,26,27&
|
||||
,59,36,60,61,62/
|
||||
! DATA LABELF/'INBNGEO ','INBNRST ','INRM1 ','INELEV ','INHYD ','INELTFL ','OUTFIL ','OUTBNRMA','OUTBNRST','TIMFIL ','OUTSMS ','OUTSPL ','OUTCON ','INCROS ','INSRCORD','INSTRESS','INBNSTRS','INWGT ','INBNWGT ','OUTWGT ','OUTBNWGT','OUTBNSTR','WEIRDATA','AWINDIN ','BWINDIN ','OUTFLOW ','INHARM ','OUTBN3GE'/
|
||||
DATA LABELF/&
|
||||
'INBNGEO ','INRM1 ','INBNRST ','INCROS ','INHYD ','INELEV ','INELFL ','INBNELF ','INHARM ','METFIL '&
|
||||
,'OUTFIL ','OUTBNRMA','OUTBNRST','OUTBN3GE','OUTCON ','OUTMET ','TIMFIL ','BWINDIN ','AWINDIN ','OUTBNXTR'&
|
||||
,'OUTASXTR','OUTBNELF','INSRCORD','INBNWGT ','INBNSTRS','OUTBNWGT','OUTWGT ','GROUPNUM','STFLFIL ','INASTRAT'&
|
||||
,'BCFIL ','VOLFIL ','OUTBNRES','VELBNFIL','IN3DBNGE','OUTBN2GE','INSMSGN ','OUTSMS '&
|
||||
,'OUTSMS1 ','OUTFLOW ','INBC ','INBNBC ','OUTBNICE'/
|
||||
|
||||
|
||||
! DATA LIMITL/ 'MAXFRONT','BUFFSIZL','MAXSTEPS','MAXPBUFR','MAXCROSS','MAXCPTS ','MAXQINPT','MAXHINPT','MAXEINPT','MAXQPTS ','MAXHPTS ','MAXELPTS','BUFFSIZ '/
|
||||
DATA LIMITL/ 'MAXFRONT','BUFFSIZL','MAXLAY ','MAXCROSS','MAXCPTS ','MAXQINPT','MAXHINPT','MAXEINPT'/
|
||||
|
||||
DATA LABELC/ 'STARTIM ','ENDTIM ','PRTOPT ','SSITN ','TRITN ','MARSHOPT','TIMPROJ ','ITERINTV','1DTYP ','MESSRWND','TRSTEPS ','HALF-TIM','HALF-HOL','GRAVITY ','OVERLAYT','WRTINIT ','EDDYTYPE','DRYSW ','HIGH-ORD','9-NODE ','RSTOPT ','STBIN ','FRQBIN ','FRQRST ','NUMRST ','SOLVER '/
|
||||
DATA LABELFL/'ELEV ','OMEGA ','CONV-VEL','CONV-DEP','MARSH-SH','MARSH-RG','MARSH-PR','MARSH-LM','TBFACT ','TBMIN ','HALF-TOL','X-SCALE ','Y-SCALE ','V-SCALE ','DSET ','DSETD ','UNOM ','HMIN ',' ','DPCUTOF1','DPCUTOF2'/
|
||||
DATA LABELCE/'ENDGEO '/,LABELFE/'ENDFIL '/,LABELNDL/'ENDLIMIT'/
|
||||
DATA HELPINT/&
|
||||
'& Starting date and time ',&
|
||||
'& Ending date and time ',&
|
||||
'& Ending year ',&
|
||||
'& Ending month ',&
|
||||
'& Ending day ',&
|
||||
'& Ending hour ',&
|
||||
'& Vertical turbulence option ',&
|
||||
'& Marsh option 0=inactive -2 = input marsh parameters ',&
|
||||
'& Eddy type 0 = fixed, 1= scaled, 2 = Smagorinsky ',&
|
||||
'& Turbulence factor when Smagorinsky is active ',&
|
||||
'& Turbulence minimum when Smagorinsky is active ',&
|
||||
'& Time projection switch 1= no projection, 0 = use time derivative (least stable), 2 = project using straight line ',&
|
||||
'& 2-d model approximation ',&
|
||||
'& 3-d model with a fixed number of layers, number of layers ',&
|
||||
'& 3-d model with type LD1 input that is define number of layers for all nodes ',&
|
||||
'& 3-d model with type LD2 input ',&
|
||||
'& 3-d model with type LD3 input ',&
|
||||
'& Units switch 1 = metric 0 = english ',&
|
||||
'& Force zero bed velocity 1 = at all bed levels 2 = limited by bed level input ',&
|
||||
'& Bed level below which zero bed level in applied ',&
|
||||
'& Ignore influence of salinity on water density ',&
|
||||
'& Ignore influence of temperature on water density ',&
|
||||
'& Ignore influence of sediment on water density ',&
|
||||
'& Force zero velocity on water surface ',&
|
||||
'& Save binary file for all iterations 0 = ignore, 1 =save ',&
|
||||
'& Option for vertical density model 0 = standard 1 = revised method ',&
|
||||
'& Latitude (degrees) positive in northern hemisphere ',&
|
||||
'& Reference level for vertical transformation / Starting water level ',&
|
||||
'& x scale factor (0.0 equivalent to 1.0) ',&
|
||||
'& y scale factor (0.0 equivalent to 1.0) ',&
|
||||
'& z sacle factor (0.0 equivalent to 1.0) ',&
|
||||
'& Defines constant associated with vertical constituent distribution at boundary ',&
|
||||
'& Defines power associated with vertical constituent distribution at boundary ',&
|
||||
'& Nominal water velocity at startup ',&
|
||||
'& Nominal current direction in radians c-clockwise from horzontal ',&
|
||||
'& Minimum depth as startup (ignored if set = 0.0) Use with care can cause initial instabilty ',&
|
||||
'& Depth at which drying (element removal) is initiated when drying ',&
|
||||
'& Depth at which rewetting (element return) occurs when flooding ',&
|
||||
'& Switch that forces boundary conditions to be applied regardless of direction ',&
|
||||
'& Number of vertical velocity equations to switch to PARDISO (Default=20000) ',&
|
||||
'& Initial salinity when no restart file specified ',&
|
||||
'& Initial temperature when no restart file specified ',&
|
||||
'& Initial sediment concentration when no restart file specified ',&
|
||||
'& Bed x-velocity used to compute resistance to flow for initial conditions regardless of initial velocity ',&
|
||||
'& Bed y-velocity used to compute resistance to flow for initial conditions regardless of initial velocity ',&
|
||||
'& Percent of outflowing average concentration returned on next tidal inflow ',&
|
||||
'& Depth of surface mixing (associated with free water surface local turbulence ',&
|
||||
'& Number of steady state iteration cycles to be applied ',&
|
||||
'& Number of time transient iteration cycles to be applied per time step ',&
|
||||
'& Number of transient steps to be simulated ',&
|
||||
'& Skip element and node data and initial conditions in echo print ',&
|
||||
'& Skip element and node data show initial conditions in echoprint ',&
|
||||
'& Show element and node data in echo print ',&
|
||||
'& Iteration frequency for ASCII output. Skip if = 0 ',&
|
||||
'& Time step frequency for ASCII output ',&
|
||||
'& Save startup to binary results file ',&
|
||||
'& Switch to initiate element elimination ',&
|
||||
'& Time step frequency for binary output ',&
|
||||
'& Time step frequency for individual binary restart file ',&
|
||||
'& Time step frequency for restarting ASCII results file (saves file size for very large number of steps) ',&
|
||||
'& 1-D cross section type (see users manual for more details) ',&
|
||||
'& Equation solver type 0=FRONT > 0 PARDISO SOLVER ',&
|
||||
'& Switch to initiate out of local memory (disk) version of PARDISO for very large prblems ',&
|
||||
'& Time step frequency for restarting ASCII message file (saves file size for very large number of steps) ',&
|
||||
'& Initial water surface elevation, Required if different from tra nsformation reference level ',&
|
||||
'& Convergence limit for velocities ',&
|
||||
'& Convergence limit for depth ',&
|
||||
'& Convergence limit for salinity ',&
|
||||
'& Convergence limit for temperature ',&
|
||||
'& Convergence limit for sediment concentration ',&
|
||||
'& Transition depth forl collapse from 3-D to 2-D approximation ',&
|
||||
'& Save flows in continuity line output ',&
|
||||
'& Save depths in continuity line output ',&
|
||||
'& Save average water surface elevations in continuity line output ',&
|
||||
'& Save average salinity in continuity line output ',&
|
||||
'& Save average temperature in continuity line output ',&
|
||||
'& Save average sediment concentration in continuity line output ',&
|
||||
'& Horizontal turbulent eddy coefficient ',&
|
||||
'& Vertical turbulent eddy coefficient ',&
|
||||
'& Horizontal turbulent diffusion coefficient ',&
|
||||
'& Vertical turbulent diffusion coefficient ',&
|
||||
'& Manning/Chezy bed friction coefficient >1.0 is Chezy coefficient ',&
|
||||
'& Bank Manning coefficient if appropriate ',&
|
||||
'& Water surface Manning coefficient if appropriate ',&
|
||||
'& Marsh factor when drying applied to friction coefficient ',&
|
||||
'& Eqn for vertical distribution factor for horizontal eddy coefficient F=a+z*(b+c*z) ',&
|
||||
'& Boundary velocity vertical distribution constant ',&
|
||||
'& Boundary velocity vertical distribution power ',&
|
||||
'& 2-D to 3-D velocity vertical distribution constant ',&
|
||||
'& 2-D to 3-D velocity vertical distribution power ',&
|
||||
'Pipe diameter for this element type ',&
|
||||
'Pipe Manning coefficient at nominal water levels for this element type ',&
|
||||
'Pipe Manning coefficient when surcharging starts for this element type ',&
|
||||
'Pipe entrance loss factor for this element type ',&
|
||||
'Pipe exit losses factor for this element type ',&
|
||||
'Number of pipes for this element type ',&
|
||||
'Culvert height for this element type ',&
|
||||
'Culvert Manning coefficient at nominal water level for this element type ',&
|
||||
'Culvert Manning coefficient when surcharging starts for this element type ',&
|
||||
'Culvert entrance loss factor for this element type ',&
|
||||
'Culvert exit losses factor for this element type ',&
|
||||
'Number of Culverts for this element type ',&
|
||||
'Variable Manning coefficient transition lower level for this element type ',&
|
||||
'Variable Manning coefficient transition lower level Manning coefficient for this element type ',&
|
||||
'Variable Manning coefficient transition upper level for this element type ',&
|
||||
'Variable Manning coefficient transition upper level Manning coefficient for this element type ',&
|
||||
'Variable Manning coefficient slope of Manning coefficient above upper level ',&
|
||||
'Gate reference node 1 for gate opening decisions for this element type ',&
|
||||
'Gate reference node 2 for gate opening decisions for this element type Gate closed when elev at node 1 ,elev at node2 ',&
|
||||
' '/
|
||||
DATA HELPTIME/&
|
||||
'& Time step in minutes ',&
|
||||
'& Time step in hours ',&
|
||||
'& Ending time for the time step block ',&
|
||||
'& Iterate on flow/depth alone ',&
|
||||
'& iterate on flow/depth and salinity -2- flow/depth and -1- salinty iterations per cycle ',&
|
||||
'& iterate on flow/depth and temperature -2- flow/depth and -1- salinty iterations per cycle ',&
|
||||
'& iterate on flow/depth and sediment -2- flow/depth and- 1- salinty iterations per cycle ',&
|
||||
'& iterate on flow/depth salinity and temperature -2- flow/depth and- 1- salinty -1- temperature iterations per cycle ',&
|
||||
'& Continuity line elevation FL-ELEVI is elevation specified as tapered between two end values (subs values from file)- CCLINE, Elev1, Elev2,bc-sal,bc-temp,bc-sed',&
|
||||
'& Continuity line elevation CN-ELEVI is elevation specified as tapered between two end values- CCLINE, Elev1, Elev2 ,bc-sal,bc-temp,bc-sed ',&
|
||||
'& Continuity line elevation FL-ELEVC is elevation specified as constant along a line (subs values from file)- CCLINE, Elevation ,bc-sal,bc-temp,bc-sed ',&
|
||||
'& Continuity line elevation CN-ELEVC is elevation specified as constant along a line - CCLINE, Elevation ,bc-sal,bc-temp,bc-sed ',&
|
||||
'& Continuity line inflow CN-QC is standard inflow , CCLINE, Total Flow, Dir, bc-sal,bc-temp,bc-sed FL-QC means subsequent steps from file ',&
|
||||
'& Continuity line inflow CN-QF is inflow tapered to zero at end element, flow parallel allowed - CCLINE, Total Flow, dir,bc-sal ,bc-temp,bc-sed -FL means file ',&
|
||||
'& Continuity line inflow CN-QH is specified inflow distribution - CCLINE, Total Flow, dir,bc-sal ,bc-temp,bc-sed -FL means subsequent values from file ',&
|
||||
'& Element Inflow treated as a rainfall rate (in mm/day) over all surface elementa. flow rate,salinity,temp,sediment -FL means subsequent values from file ',&
|
||||
'& Element Inflow treated as a total rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file ',&
|
||||
'& Element Inflow treated as a spcific rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file ',&
|
||||
'& Element Inflow listing element number and total inflow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file ',&
|
||||
'& Element Inflow listing element number and spec flow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file ',&
|
||||
'& Element Inflow listing element inflow for a given group and rainfall into element. Grp num,flow rate,salinity,temp,sed -FL means subsequent values from file ',&
|
||||
'& Element Inflow listing element inflow for a given type and specific flow entering element. ',&
|
||||
'& Element Inflow listing element inflow for a given group and specific flow entering element. ',&
|
||||
'& Element Inflow listing element number and specific flow entering element. SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Element Inflow listing element inflow for a given type and specific flow entering element. SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Element Inflow listing element inflow for a given type treated as a rainfall rate (in mm/day) and rainfall entering element. (SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Element Inflow listing element inflow for a given group and specific flow entering element. (SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Element Inflow listing rainfall entering all elements (in mm/day) . Element number ',&
|
||||
'& Continuity line elevation FL-ELVHM is elevation specified as constant along a line (Computes values from harmonic file)- CCLINE, Elevation ',&
|
||||
'& Element Inflow listing element inflow for a given type treated as a rainfall rate (in mm/day) and rainfall entering element. ) ',&
|
||||
'& Element Inflow listing rainfall entering a single elements (in mm/day) . Element number = 0 apply globally ',&
|
||||
'& Element Inflow listing element inflow treated as a rainfall rate (in mm/day) and rainfall entering all elements. (SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Element Inflow listing element inflow for a given group and rainfall entering element. (SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Stage-Flow boundary condition. See line type SQC of user document ',&
|
||||
'& Flag to identify units of wind vel = 0, then values are given in miles/hour = 1, then values are given in meters/second ',&
|
||||
'& Wind velocity applied at all nodes. ',&
|
||||
'& The angle between the wind velocity and the x-axis for all nodes (degrees measured anti-clockwise). ',&
|
||||
'& Flow controller identifier, Flow controller type AJ1, BJ1, CJ1, GAM1, QD1, DJ1, TRCCE in flow controller equation for line type FC in the user document ',&
|
||||
'& Element Inflow and total flow entering element. SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Element Inflow and specific flow entering element. SUBSQT VALUES FROM A FILE) ',&
|
||||
'& Element Inflow and total flow entering element. ',&
|
||||
'& Element Inflow and specific flow entering element. ',&
|
||||
'& '/
|
||||
|
||||
DATA HELPFILE/&
|
||||
'& Input binary file with geometric data',&
|
||||
'& Input ASCII file with geometric data',&
|
||||
'& Input binary file with restart data',&
|
||||
'& Input ASCII file with cross-section data',&
|
||||
'& Input ASCII file with boundary flow data',&
|
||||
'& Input ASCII file with elevation boundary data',&
|
||||
'& Input ASCII file with element inflow data',&
|
||||
'& Input binary element inflow data',&
|
||||
'& Input ASCII file with elevation harmonic boundary data',&
|
||||
'& Input ASCII file with meteorological data',&
|
||||
'& Output ASCII results',&
|
||||
'& Output binary file with new format results data',&
|
||||
'& Output binary file with restart data',&
|
||||
'& Output binary file with 3-D geometry data',&
|
||||
'& Output ASCII file with continuity line flow data',&
|
||||
'& Output ASCII file with summary meteorological input',&
|
||||
'& Output ASCII file with cpu timing data',&
|
||||
'& Input binary file with wind data',&
|
||||
'& Input ASCII file with wind data',&
|
||||
'& Output binary file listing extracted results for specified nodes',&
|
||||
'& Output ASCII file listing extracted results for specified nodes',&
|
||||
'& Output binary element inflow data',&
|
||||
'& Input coordinates for surface stresses',&
|
||||
'& Input binary weighting file for surface stresses',&
|
||||
'& Input binary file for surface stresses',&
|
||||
'& Output binary weighting file for surface stresses',&
|
||||
'& Output ASCII weighting file for surface stresses',&
|
||||
'& Input ASCII file with group number data',&
|
||||
'& Input ASCII file with stage flow data for continuity lines',&
|
||||
'& Input ASCII temperature stratification data file',&
|
||||
'& Input ASCII file with continuation transient step data',&
|
||||
'& Output ASCII file with average salinity/total flow',&
|
||||
'& Output binary file with old format results data',&
|
||||
'& Input binary file with velocity/depth data',&
|
||||
'& Input binary file with 3-D geometry data',&
|
||||
'& Output binary file with 2-D geometry data',&
|
||||
'& Input SMS format geometry file',&
|
||||
'& Output SMS RMA-2 format file with horizontal velocity and depth data',&
|
||||
'& Output SMS RMA4 format file with salinity, temperate and sediment data',&
|
||||
'& Output binary RMA-11 format file listing 1-d flows as a pseudo WQ constituent',&
|
||||
'& Input ASCII file containing nodal boundary condition data',&
|
||||
'& Input binary file containing nodal boundary condition data',&
|
||||
'& Output ice results',&
|
||||
'& '/
|
||||
|
||||
LINE=0
|
||||
CALL WMessageBox(YesNo,QuestionIcon,CommonYes, &
|
||||
'Do you wish to save all data lines(YES) or skip default values (NO) ?', 'OUTPUT DEFAULT VALUES?')
|
||||
IF(WInfoDialog(4) .eq. 1) then
|
||||
ISHOWSW=1
|
||||
ELSE
|
||||
ISHOWSW=0
|
||||
ENDIF
|
||||
|
||||
DO K=1,43
|
||||
IF(FNAME(K)(1:16) .NE. ' ') THEN
|
||||
LINE=LINE+1
|
||||
DO KK=1,43
|
||||
IF(FNAME(K)(KK:KK) .NE. ' ') THEN
|
||||
DO KKK=1,72-KK
|
||||
FNAME(K)(KKK:KKK)=FNAME(K)(KK-1+KKK:KK-1+KKK)
|
||||
ENDDO
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
WRITE(DATALIN(LINE),6000) LABELF(K),FNAME(K)(1:69),helpfile(k)
|
||||
6000 FORMAT(A8,3X,A69,a89)
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6000) LABELFE
|
||||
|
||||
DO K=1,8
|
||||
IF(LIMITVAL(K) .NE. LIMITDFT(K)) THEN
|
||||
LINE=LINE+1
|
||||
IF(K .EQ. 2) THEN
|
||||
WRITE(DATALIN(LINE),'(A8,I16)') LIMITL(K),LIMITVAL(K)
|
||||
ELSE
|
||||
WRITE(DATALIN(LINE),'(A8,I8)') LIMITL(K),LIMITVAL(K)
|
||||
ENDIF
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
|
||||
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6000) LABELNDL
|
||||
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60001) TITLEHEAD
|
||||
60001 FORMAT('TI',6X,A72)
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60002) LABELC(1),DATEST,helpint(1)
|
||||
60002 FORMAT(A8,3X,A16,t70,a96)
|
||||
IF(JT .GT. 1 .OR. DELT(1) .GT. 0. .OR. DELTM(1) .GT. 0. .or. DELT(2) .GT. 0. .OR. DELTM(2) .GT. 0.) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60002) LABELC(2),DATEND,helpint(2)
|
||||
ENDIF
|
||||
|
||||
! IF(IYRR .NE. IYRRDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
! LINE=LINE+1
|
||||
! WRITE(DATALIN(LINE),6001) IYRR,helpint(3)
|
||||
!6001 FORMAT('YEAR ',I8,t70,a96)
|
||||
! ENDIF
|
||||
! IF(ITMM .NE. ITMMDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
! LINE=LINE+1
|
||||
! WRITE(DATALIN(LINE),6002) ITMM,helpint(4)
|
||||
!6002 FORMAT('MONTH ',I8,t70,a96)
|
||||
! ENDIF
|
||||
! IF(ITMD .NE. ITMDDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
! LINE=LINE+1
|
||||
! WRITE(DATALIN(LINE),6003) ITMD,helpint(5)
|
||||
!6003 FORMAT('DAY ',I8,t70,a96)
|
||||
! ENDIF
|
||||
! IF(TET .NE. TETDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
! LINE=LINE+1
|
||||
! WRITE(DATALIN(LINE),6004) TET,helpint(6)
|
||||
!6004 FORMAT('HOUR ',I8,t70,a96)
|
||||
! ENDIF
|
||||
IF(IOPTZD .NE. IOPTZDDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6005) IOPTZD,helpint(7)
|
||||
6005 FORMAT('VERTTURB',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IDNOPT .NE. IDNOPTDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6006) IDNOPT,helpint(8)
|
||||
6006 FORMAT('MARSHOPT',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IEDSW .NE. IEDSWDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6007) IEDSW,helpint(9)
|
||||
6007 FORMAT('EDDYTYPE',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(TBFACT .NE. TBFACTDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6008) TBFACT,helpint(10)
|
||||
6008 FORMAT('TBFACT ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(TBMIN .NE. TBMINDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6009) TBMIN,helpint(11)
|
||||
6009 FORMAT('TBMIN ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(IPROJ .NE. IPROJDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6010) IPROJ,helpint(12)
|
||||
6010 FORMAT('TIMPROJ ',I8,t70,a96)
|
||||
ENDIF
|
||||
|
||||
IF(NLAYTYP .NE. NLAYTYPDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
IF(NLAYTYP .EQ. 0) WRITE(DATALIN(LINE),6011) helpint(13)
|
||||
6011 FORMAT('2DMODEL ',t70,a96)
|
||||
IF(NLAYTYP .EQ. 1) WRITE(DATALIN(LINE),6012) helpint(14)
|
||||
6012 FORMAT('3DFIXLAY',t70,a96)
|
||||
IF(NLAYTYP .EQ. 2) WRITE(DATALIN(LINE),6013) helpint(15)
|
||||
6013 FORMAT('3DTYPLD1',t70,a96)
|
||||
IF(NLAYTYP .EQ. 3) WRITE(DATALIN(LINE),6014) helpint(16)
|
||||
6014 FORMAT('3DTYPLD2',t70,a96)
|
||||
IF(NLAYTYP .EQ. 4) WRITE(DATALIN(LINE),6015) helpint(17)
|
||||
6015 FORMAT('3DTYPLD3',t70,a96)
|
||||
ENDIF
|
||||
|
||||
IF(IGRV .NE. IGRVDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6016) IGRV,helpint(18)
|
||||
6016 FORMAT('GRAVITY ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IZB .NE. IZBDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6017) IZB,helpint(19)
|
||||
6017 FORMAT('ZEROBED ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(ZERBED .NE. ZERBEDDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6022) ZERBED,helpint(24)
|
||||
6022 FORMAT('ZERBELLV',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(IPASS1 .NE. IPASS1DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6018) IPASS1,helpint(20)
|
||||
6018 FORMAT('PASSSAL ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IPASS2 .NE. IPASS2DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6019) IPASS2,helpint(21)
|
||||
6019 FORMAT('PASSTMP ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IPASS3 .NE. IPASS3DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6020) IPASS3,helpint(22)
|
||||
6020 FORMAT('PASSSED ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IZERS .NE. IZERSDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6021) IZERS,helpint(23)
|
||||
6021 FORMAT('ZEROSURF',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(ISAVITR .NE. ISAVITRDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6023) ISAVITR,helpint(25)
|
||||
6023 FORMAT('SAVITR',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IVERTDEN .NE. IVERTDENDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6024) IVERTDEN,helpint(26)
|
||||
6024 FORMAT('REVRTDEN',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(OMEGA1 .NE. OMEGA1DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6025) OMEGA1,helpint(27)
|
||||
6025 FORMAT('OMEGA ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(ELEV .NE. ELEVDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6026) ELEV,helpint(28)
|
||||
6026 FORMAT('ELEV ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(XSCALE .NE. XSCALEDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6027) XSCALE,helpint(29)
|
||||
6027 FORMAT('X-SCALE ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(YSCALE .NE. YSCALEDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6028) YSCALE,helpint(30)
|
||||
6028 FORMAT('Y-SCALE ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(ZSCALE .NE. ZSCALEDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6029) ZSCALE,helpint(31)
|
||||
6029 FORMAT('Z-SCALE ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(CMIN .NE. CMINDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6030) CMIN,helpint(32)
|
||||
6030 FORMAT('BOUNDCMN',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(CPR .NE. CPRDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6031) CPR,helpint(33)
|
||||
6031 FORMAT('BOUNDCPW',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(UNOM .NE. UNOMDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6032) UNOM,helpint(34)
|
||||
6032 FORMAT('UNOM ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(UDIR .NE. UDIRDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6033) UDIR,helpint(35)
|
||||
6033 FORMAT('UDIR ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(HMIN .NE. HMINDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6034) HMIN,helpint(36)
|
||||
6034 FORMAT('HMIN ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(DSET .NE. DSETDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6035) DSET,helpint(37)
|
||||
6035 FORMAT('DSET ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(DSETD .NE. DSETDDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6036) DSETD,helpint(38)
|
||||
6036 FORMAT('DSETD ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(IFXBC .NE. IFXBCDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6037) IFXBC,helpint(39)
|
||||
6037 FORMAT('FIXBC ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IEQSWT .NE. IEQSWTDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6038) IEQSWT,helpint(40)
|
||||
6038 FORMAT('VERTEQSW',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(SALI .NE. SALIDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6039) SALI,helpint(41)
|
||||
6039 FORMAT('INITSAL ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(TEMPI .NE. TEMPIDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6040) TEMPI,helpint(42)
|
||||
6040 FORMAT('INITTEMP',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(SEDI .NE. SEDIDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6041) SEDI,helpint(43)
|
||||
6041 FORMAT('INITSED ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(UINP .NE. UINPDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6042) UINP,helpint(44)
|
||||
6042 FORMAT('INITUBED',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(VINP .NE. VINPDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6043) VINP,helpint(45)
|
||||
6043 FORMAT('INITVBED',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(PRCNT .NE. PRCNTDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6044) PRCNT,helpint(46)
|
||||
6044 FORMAT('RETRNPCT',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(DMIX .NE. DMIXDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6045) DMIX,helpint(47)
|
||||
6045 FORMAT('SURFMIX ',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(NITI .NE. NITIDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6046) NITI,helpint(48)
|
||||
6046 FORMAT('SSITN ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(NITN .NE. NITNDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6047) NITN,helpint(49)
|
||||
6047 FORMAT('TRITN ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(NCYC .NE. NCYCDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6048) NCYC,helpint(50)
|
||||
6048 FORMAT('TRSTEPS ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IPRT .EQ. 0) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60481) helpint(51)
|
||||
60481 FORMAT('ECHSVNON',t70,a96)
|
||||
ELSEIF(IPRT .EQ. 2) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60482) helpint(52)
|
||||
60482 FORMAT('ECHSVINI',t70,a96)
|
||||
ELSEIF(ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60483) helpint(53)
|
||||
60483 FORMAT('ECHSVALL',t70,a96)
|
||||
ENDIF
|
||||
IF(NPRTI .NE. NPRTIDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6049) NPRTI,helpint(54)
|
||||
6049 FORMAT('ITERINTV',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(NPRTF .NE. NPRTFDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6050) NPRTF,helpint(55)
|
||||
6050 FORMAT('ASCSVFRQ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IRSAV .NE. IRSAVDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6051) IRSAV,helpint(56)
|
||||
6051 FORMAT('STBIN ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IDSWT .NE. IDSWTDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6052) IDSWT,helpint(57)
|
||||
6052 FORMAT('DRYSW ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IOUTFREQ .NE. IOUTFREQDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6053) IOUTFREQ,helpint(58)
|
||||
6053 FORMAT('FRQBIN ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IOUTRST .NE. IOUTRSTDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6054) IOUTRST,helpint(59)
|
||||
6054 FORMAT('FRQRST ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IREWOUT .NE. IREWOUTDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6055) IREWOUT,helpint(60)
|
||||
6055 FORMAT('RWDASFRQ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(ID1DND .NE. ID1DNDDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6056) ID1DND,helpint(61)
|
||||
6056 FORMAT('1DTYP ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(ICPU .NE. ICPUDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6057) ICPU,helpint(62)
|
||||
6057 FORMAT('SOLVER ',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IOOC .NE. IOOCDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6058) IOOC,helpint(63)
|
||||
6058 FORMAT('SLVERDSK',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(IREWMES .NE. IREWMESDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6059) IREWMES,helpint(64)
|
||||
6059 FORMAT('MESSRWND',I8,t70,a96)
|
||||
ENDIF
|
||||
IF(ELEV1 .NE. ELEV1DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6060) ELEV1,helpint(65)
|
||||
6060 FORMAT('INITWSRF',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(CONV(1) .NE. CONVDF(1) .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6061) CONV(1),helpint(66)
|
||||
6061 FORMAT('CONV-VEL',F8.5,t70,a96)
|
||||
ENDIF
|
||||
IF(CONV(3) .NE. CONVDF(3) .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6062) CONV(3),helpint(67)
|
||||
6062 FORMAT('CONV-DEP',F8.5,t70,a96)
|
||||
ENDIF
|
||||
IF(CONV(4) .NE. CONVDF(4) .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6063) CONV(4),helpint(68)
|
||||
6063 FORMAT('CONV-SAL',F8.5,t70,a96)
|
||||
ENDIF
|
||||
IF(CONV(5) .NE. CONVDF(5) .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6064) CONV(5),helpint(69)
|
||||
6064 FORMAT('CONV-TMP',F8.5,t70,a96)
|
||||
ENDIF
|
||||
IF(CONV(6) .NE. CONVDF(6) .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6065) CONV(6),helpint(70)
|
||||
6065 FORMAT('CONV-SED',F8.5,t70,a96)
|
||||
ENDIF
|
||||
IF(ITRANSIT .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60651) TRANSIT,helpint(71)
|
||||
60651 FORMAT('TRANSIT',3X,F8.5,t70,a96)
|
||||
ENDIF
|
||||
IF(JCSPLPT .GT. 0) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6066) (NCSPLPT(J),J=1,JCSPLPT)
|
||||
6066 FORMAT(40X,'Continuity lines for selective output'/'CCLINOUT',20I7)
|
||||
ENDIF
|
||||
|
||||
DO J=1,ICTOTC
|
||||
IF(ICCOMP(J) .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6067) helpint(72)
|
||||
6067 FORMAT('CONT-FLW',t70,a96)
|
||||
ELSEIF(ICCOMP(J) .EQ. 2) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6068) helpint(73)
|
||||
6068 FORMAT('CONT-DEP',t70,a96)
|
||||
ELSEIF(ICCOMP(J) .EQ. 3) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6069) helpint(74)
|
||||
6069 FORMAT('CONT-ELV',t70,a96)
|
||||
ELSEIF(ICCOMP(J) .EQ. 4) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6070) helpint(75)
|
||||
6070 FORMAT('CONT-SAL',t70,a96)
|
||||
ELSEIF(ICCOMP(J) .EQ. 5) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6071) helpint(76)
|
||||
6071 FORMAT('CONT-TMP',t70,a96)
|
||||
ELSEIF(ICCOMP(J) .EQ. 6) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6072) helpint(77)
|
||||
6072 FORMAT('CONT-SED',t70,a96)
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
DO K=1,NMAT
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6073) K,ORT(K,1),helpint(78)
|
||||
6073 FORMAT('EDDY-MAT',I8,F10.5,t70,a96)
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6074) K,ORT(K,6),helpint(79)
|
||||
6074 FORMAT('EDDY-VRT',I8,1PE12.3,t70,a96)
|
||||
IF(ORT(K,8) .NE. 0. .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6075) K,ORT(K,8),helpint(80)
|
||||
6075 FORMAT('DIFF-MAT',I8,F10.5,t70,a96)
|
||||
ENDIF
|
||||
IF(ORT(K,10) .NE. 0. .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6076) K,ORT(K,10),helpint(81)
|
||||
6076 FORMAT('DIFF-VRT',I8,1PE12.3,t70,a96)
|
||||
ENDIF
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6077) K,ORT(K,5),helpint(82)
|
||||
6077 FORMAT('MANN-MAT',I8,F10.5,t70,a96)
|
||||
IF(ORT(K,11) .NE. 0. .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6078) K,ORT(K,11),helpint(83)
|
||||
6078 FORMAT('MANN-BNK',I8,F10.5,t70,a96)
|
||||
ENDIF
|
||||
IF(ORT(K,13) .NE. 0. .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6079) K,ORT(K,13),helpint(84)
|
||||
6079 FORMAT('MANN-SRF',I8,F10.5,t70,a96)
|
||||
ENDIF
|
||||
IF(ORT(K,12) .NE. 0. .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6080) K,ORT(K,12),helpint(85)
|
||||
6080 FORMAT('MARSH-FR',I8,F10.5,t70,a96)
|
||||
ENDIF
|
||||
IF(EDD1(K) .NE. 0. .OR. EDD2(K) .NE. 0. .OR. EDD3(K) .NE. 0 .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),60811) K,EDD1(K),EDD2(K),EDD3(K),helpint(86)
|
||||
60811 FORMAT('ED-VTVAR',I8,3F8.3,t70,a96)
|
||||
ENDIF
|
||||
ENDDO
|
||||
IF(VMIN .NE. UMINDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6081) VMIN,helpint(87)
|
||||
6081 FORMAT('BN-V-MIN',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(POWER .NE. POWERDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6082) POWER,helpint(88)
|
||||
6082 FORMAT('BN-V-PWR',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(UMIN .NE. UMINDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6083) UMIN,helpint(89)
|
||||
6083 FORMAT('TR-V-MIN',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(PWERIN .NE. PWERINDF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6084) PWERIN,helpint(90)
|
||||
6084 FORMAT('TR-V-PWR',F8.3,t70,a96)
|
||||
ENDIF
|
||||
IF(L3DTYP .EQ. 2) THEN
|
||||
DO K=1,L3DCNT
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6085) JND(K),KKLAY(K),(L3DDAT(K,J),J=1,KKLAY(K))
|
||||
6085 FORMAT('LD2 ',2I8,20F8.3)
|
||||
ENDDO
|
||||
ELSEIF(L3DTYP .EQ. 3) THEN
|
||||
LINE=LINE+1
|
||||
DO K=1,L3DCNT
|
||||
WRITE(DATALIN(LINE),6086) JND(K),KKLAY(K),(L3DDAT(K,J),J=1,KKLAY(K))
|
||||
6086 FORMAT('LD3 ',2I8,20F8.3)
|
||||
ENDDO
|
||||
ENDIF
|
||||
IF(ACT1 .NE. ACT1DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6087) ACT1
|
||||
6087 FORMAT('MARSH-SH',F8.3)
|
||||
ENDIF
|
||||
IF(ACT2 .NE. ACT2DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6088) ACT2
|
||||
6088 FORMAT('MARSH-RG',F8.3)
|
||||
ENDIF
|
||||
IF(ACT3 .NE. ACT3DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6089) ACT3
|
||||
6089 FORMAT('MARSH-PR',F8.3)
|
||||
ENDIF
|
||||
IF(ACT4 .NE. ACT4DF .OR. ISHOWSW .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6090) ACT4
|
||||
6090 FORMAT('MARSH-LM',F8.3)
|
||||
ENDIF
|
||||
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6091)
|
||||
6091 FORMAT('TAB-END')
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6092)
|
||||
6092 FORMAT('ENDGEO')
|
||||
|
||||
DO J=1,JT
|
||||
LINE=LINE+1
|
||||
IF(DELT(J) .EQ. 0 .AND. DELTM(J) .EQ. 0. .OR. DELT(J) .GT. 0.) THEN
|
||||
WRITE(DATALIN(LINE),6100) DELT(J),HELPTIME(1)
|
||||
ELSE
|
||||
WRITE(DATALIN(LINE),6101) DELTM(J),HELPTIME(2)
|
||||
ENDIF
|
||||
6100 FORMAT('DELTA-HR',F12.4,T70,A162)
|
||||
6101 FORMAT('DELTA-MN',F12.4,T70,A162)
|
||||
IF(DATENDST(J) .NE. ' ' .AND. J .GT. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6102) DATENDST(J),HELPTIME(3)
|
||||
6102 FORMAT('DATE-END',4X,A16,T70,A162)
|
||||
ENDIF
|
||||
IF(IITYPE(J) .EQ. 1) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6103),HELPTIME(4)
|
||||
6103 FORMAT('Q-ITR',T70,A162)
|
||||
ELSEIF(IITYPE(J) .EQ. 2) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6104),HELPTIME(5)
|
||||
6104 FORMAT('QSL-ITR',T70,A162)
|
||||
ELSEIF(IITYPE(J) .EQ. 3) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6105),HELPTIME(6)
|
||||
6105 FORMAT('QTM-ITR',T70,A162)
|
||||
ELSEIF(IITYPE(J) .EQ. 4) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6106),HELPTIME(7)
|
||||
6106 FORMAT('QSD-ITR',T70,A162)
|
||||
ELSEIF(IITYPE(J) .EQ. 5) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6107),HELPTIME(8)
|
||||
6107 FORMAT('QST-ITR',T70,A162)
|
||||
ENDIF
|
||||
KH=NHLIN(J)
|
||||
KQ=NQLIN(J)
|
||||
KE=NELIN(J)
|
||||
DO K=1,KH
|
||||
LINE=LINE+1
|
||||
IF(HLIN1(K,J) .GT. -9000.) THEN
|
||||
IF(HCKLIN(K,J) .EQ. 1 ) THEN
|
||||
WRITE(DATALIN(LINE),6108) IHLIN(K,J),LAYNUMH(K,J),HLIN(K,J),HLIN1(K,J),(QUALKH(K,J,KK),KK=1,3),HELPTIME(9)
|
||||
6108 FORMAT('FL-ELEVI',2I8,2F8.4,3F8.3,T70,A162)
|
||||
ELSE
|
||||
WRITE(DATALIN(LINE),6109) IHLIN(K,J),LAYNUMH(K,J),HLIN(K,J),HLIN1(K,J),(QUALKH(K,J,KK),KK=1,3),HELPTIME(10)
|
||||
6109 FORMAT('CN-ELEVI',2I8,2F8.4,3F8.3,T70,A162)
|
||||
ENDIF
|
||||
ELSE
|
||||
IF(HCKLIN(K,J) .EQ. 1 ) THEN
|
||||
WRITE(DATALIN(LINE),6110) IHLIN(K,J),LAYNUMH(K,J),HLIN(K,J),(QUALKH(K,J,KK),KK=1,3),HELPTIME(11)
|
||||
6110 FORMAT('FL-ELEVC',2I8,F8.4,3F8.3,T70,A162)
|
||||
ELSE
|
||||
WRITE(DATALIN(LINE),6111) IHLIN(K,J),LAYNUMH(K,J),HLIN(K,J),(QUALKH(K,J,KK),KK=1,3),HELPTIME(12)
|
||||
6111 FORMAT('CN-ELEVC',2I8,F8.4,3F8.3,T70,A162)
|
||||
ENDIF
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
IF(KHCN(J) .GT. 0) THEN
|
||||
DO K=1,KHCN(J)
|
||||
L1=MIN(IHCN(K,J),9)
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),61111) (FHCN(K,J,L),L=1,L1)
|
||||
61111 FORMAT('HCN',5X,9F8.3)
|
||||
IF(IHCN(K,J) .LE. 9) CYCLE
|
||||
L1=MIN(IHCN(K,J),18)
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),61111) (FHCN(K,J,L),L=10,L1)
|
||||
IF(IHCN(K,J) .LE. 18) CYCLE
|
||||
L1=MIN(IHCN(K,J),27)
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),61111) (FHCN(K,J,L),L=19,L1)
|
||||
IF(IHCN(K,J) .LE. 27) CYCLE
|
||||
L1=MIN(IHCN(K,J),36)
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),61111) (FHCN(K,J,L),L=28,L1)
|
||||
ENDDO
|
||||
ENDIF
|
||||
|
||||
IF(WVEL(J) .NE. 0.) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),61112) WVEL(J),WDIR(J)
|
||||
61112 FORMAT('GBWIND ',1X,2F8.3)
|
||||
ENDIF
|
||||
|
||||
DO K=1,KQ
|
||||
LINE=LINE+1
|
||||
IF(IQLIN1(K,J) .EQ. 1) ALAB='C'
|
||||
IF(IQLIN1(K,J) .EQ. 2) ALAB='F'
|
||||
IF(IQLIN1(K,J) .EQ. 3) ALAB='H'
|
||||
IF(QCKLIN(K,J) .EQ. 0) THEN
|
||||
BLAB='CN'
|
||||
ELSE
|
||||
BLAB='FL'
|
||||
ENDIF
|
||||
IF(ALAB .EQ. 'C') THEN
|
||||
IHP=13
|
||||
ELSEIF(ALAB .EQ. 'F') THEN
|
||||
IHP=14
|
||||
ELSE
|
||||
IHP=15
|
||||
ENDIF
|
||||
WRITE(DATALIN(LINE),6112) BLAB,ALAB,IQLIN(K,J),LAYNUMQ(K,J),QLIN(K,J),QDLIN(K,J),(QUALKQ(K,J,KK),KK=1,3),HELPTIME(IHP)
|
||||
6112 FORMAT(A2,'-Q',A1,3X,2I8,2F10.2,3F8.3,T70,A162)
|
||||
ENDDO
|
||||
|
||||
DO K=1,KE
|
||||
IF(ECKLIN(K,J) .EQ. 1) THEN
|
||||
BLAB='FL'
|
||||
ELSE
|
||||
BLAB='CN'
|
||||
ENDIF
|
||||
LINE=LINE+1
|
||||
IF(IETP(K,J) .EQ. 4) THEN
|
||||
WRITE(DATALIN(LINE),6113) BLAB,ELIN(K,J),(QUALKE(K,J,KK),KK=1,3),HELPTIME(16)
|
||||
6113 FORMAT(A2,'-RAIN ',F8.4,3F8.3,T70,A162)
|
||||
ELSEIF(IETP(K,J) .EQ. 1) THEN
|
||||
IF(IELIN(K,J) .GT. 0) THEN
|
||||
IF(ECKLIN1(K,J) .EQ. 1) THEN
|
||||
WRITE(DATALIN(LINE),6116) BLAB,IELIN(K,J),LAYNUME(K,J),ELIN(K,J),(QUALKE(K,J,KK),KK=1,3),HELPTIME(19)
|
||||
6116 FORMAT(A2,'-ELMET',2I8,F8.4,3F8.3,T70,A162)
|
||||
ELSE
|
||||
WRITE(DATALIN(LINE),6117) BLAB,IELIN(K,J),LAYNUME(K,J),ELIN(K,J),(QUALKE(K,J,KK),KK=1,3),HELPTIME(20)
|
||||
6117 FORMAT(A2,'-ELMED',2I8,F8.4,3F8.3,T70,A162)
|
||||
ENDIF
|
||||
ELSE
|
||||
IF(ECKLIN1(K,J) .EQ. 1) THEN
|
||||
WRITE(DATALIN(LINE),6115) BLAB,LAYNUME(K,J),ELIN(K,J),(QUALKE(K,J,KK),KK=1,3),HELPTIME(18)
|
||||
6115 FORMAT(A2,'-ELMGT',I8,F8.4,3F8.3,T70,A162)
|
||||
ELSE
|
||||
WRITE(DATALIN(LINE),6114) BLAB,LAYNUME(K,J),ELIN(K,J),(QUALKE(K,J,KK),KK=1,3),HELPTIME(17)
|
||||
6114 FORMAT(A2,'-ELMGD',I8,F8.4,3F8.3,T70,A162)
|
||||
ENDIF
|
||||
ENDIF
|
||||
ELSEIF(IETP(K,J) .EQ. 6) THEN
|
||||
WRITE(DATALIN(LINE),6118) BLAB,IELIN(K,J),ELIN(K,J),(QUALKE(K,J,KK),KK=1,3),HELPTIME(21)
|
||||
6118 FORMAT(A2,'-GRAIN',I8,F8.4,3F8.3,T70,A162)
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
IF(NSND(J) .GT. 0) THEN
|
||||
DO K=1,NSND(J)
|
||||
IF(NODSND(K,J) .GT. 0) THEN
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6119) NODSND(K,J),NCODE(K,J),(BCSND(K,J,L),L=1,6)
|
||||
6119 FORMAT('SN',8X,2I7,2f10.5,4F8.3)
|
||||
ELSE
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),61191) NCODE(K,J),(BCSND(K,J,L),L=1,6)
|
||||
61191 FORMAT('SD'15X,I7,2F10.5,4F8.2)
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDIF
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6200)
|
||||
6200 FORMAT('ENDSTEP')
|
||||
|
||||
ENDDO
|
||||
|
||||
LINE=LINE+1
|
||||
WRITE(DATALIN(LINE),6999)
|
||||
6999 FORMAT('ENDDATA')
|
||||
|
||||
filter="r10 file *.r10|*.R10|"
|
||||
IOUT=66
|
||||
|
||||
CALL WSelectFile(Filter,SaveDialog+PromptOn+AppendExt+DirChange,NAMEFL,'Save R10 File for Execution')
|
||||
|
||||
IF (WInfoDialog(ExitButtonCommon).EQ.CommonOpen) THEN
|
||||
go to 500
|
||||
else
|
||||
RETURN
|
||||
endif
|
||||
|
||||
500 CONTINUE
|
||||
OPEN(IOUT,FILE=NAMEFL,FORM='FORMATTED')
|
||||
DO K=1,LINE
|
||||
WRITE(IOUT,'(A230)') DATALIN(K)
|
||||
ENDDO
|
||||
CLOSE(IOUT)
|
||||
RETURN
|
||||
END
|
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,816 @@
|
||||
SUBROUTINE READRM10
|
||||
|
||||
use winteracter
|
||||
USE BLKRM10
|
||||
|
||||
USE RESID
|
||||
|
||||
implicit none
|
||||
|
||||
INTEGER K,L,IIN,LIMIT,KH,KQ,KE,J,NMAT1,JSAVE,KK,KWT,KF,ICTOT,JGT,KC,JJ,KSN,LO,LHI,IINITWS
|
||||
INTEGER ICLON,ITET,ITET2,IYINFO,JFYR,JDAY,JMON,FHR,IFYINFO
|
||||
INTEGER NCHARBL
|
||||
REAL FCOEF,EDD11
|
||||
REAL AA
|
||||
CHARACTER(LEN=255) :: filter
|
||||
CHARACTER*8 LABELF(43),LABELC(31),LABELFL(21),LABELCE,LABELFE,ID,LABELCF,LABELCEL,LABELCD,LABELSP,LIMITL(9)
|
||||
CHARACTER*72 DLIN
|
||||
CHARACTER*72 DLININ
|
||||
DATA LIMITL/ 'MAXFRONT','BUFFSIZL','MAXLAY ','MAXCROSS','MAXCPTS ','MAXQINPT','MAXHINPT','MAXEINPT','BUFFSIZ '/
|
||||
! DATA LABELF/'INBNGEO ','INBNRST ','INRM1 ','INELEV ','INHYD ','INELTFL ','OUTFIL ','OUTBNRMA','OUTBNRST','TIMFIL ','OUTSMS ','OUTSPL ','OUTCON ','INCROS ','INSRCORD','INSTRESS','INBNSTRS','INWGT ','INBNWGT ','OUTWGT ','OUTBNWGT','OUTBNSTR','WEIRDATA','AWINDIN ','BWINDIN ','OUTFLOW ','INHARM ','OUTBN3GE'/
|
||||
|
||||
DATA LABELF/&
|
||||
'INBNGEO ','INRM1 ','INBNRST ','INCROS ','INHYD ','INELEV ','INELFL ','INBNELF ','INHARM ','METFIL '&
|
||||
,'OUTFIL ','OUTBNRMA','OUTBNRST','OUTBN3GE','OUTCON ','OUTMET ','TIMFIL ','BWINDIN ','AWINDIN ','OUTBNXTR'&
|
||||
,'OUTASXTR','OUTBNELF','INSRCORD','INBNWGT ','INBNSTRS','OUTBNWGT','OUTWGT ','GROUPNUM','STFLFIL ','INASTRAT'&
|
||||
,'BCFIL ','VOLFIL ','OUTBNRES','VELBNFIL','IN3DBNGE','OUTBN2GE','INSMSGN ','OUTSMS '&
|
||||
,'OUTSMS1 ','OUTFLOW ','INBC ','INBNBC ','OUTBNICE'/
|
||||
|
||||
! DATA LABELC/'STARTIM ','ENDTIM ','PRTOPT ','SSITN ','TRITN ','MARSHOPT','ELEV ','OMEGA ','CONV-VEL','CONV-DEP','MARSH-SH','MARSH-RG','MARSH-PR','MARSH-LM','EDDYTYPE','EDDY-MAT','MANN-MAT','MARSH-FR','TAB-END'/
|
||||
DATA LABELC/ 'STARTIM ','ENDTIM ','PRTOPT ','SSITN ','TRITN ','MARSHOPT','TIMPROJ ','ITERINTV','1DTYP ','MESSRWND','TRSTEPS ','HALF-TIM','HALF-HOL','GRAVITY ','OVERLAYT','WRTINIT ','EDDYTYPE','DRYSW ','HIGH-ORD','9-NODE ','RSTOPT ','STBIN ','FRQBIN ','FRQRST ','NUMRST ','SOLVER ','EDDY-MAT','MANN-MAT','MARSH-FR','WEIR-DAT','TABEND '/
|
||||
DATA LABELFL/'ELEV ','OMEGA ','CONV-VEL','CONV-DEP','MARSH-SH','MARSH-RG','MARSH-PR','MARSH-LM','TBFACT ','TBMIN ','HALF-TOL','X-SCALE ','Y-SCALE ','V-SCALE ','DSET ','DSETD ','UNOM ','HMIN ',' ','DPCUTOF1','DPCUTOF2'/
|
||||
DATA LABELCE/'ENDGEO '/,LABELFE/'ENDFIL '/,LABELCF/'CONT-FLW '/,LABELCEL/'CONT-ELV'/,LABELCD/'CONT-DEP'/,LABELSP/'SPR-NOD '/
|
||||
filter="r10 file *.r10|*.R10|"
|
||||
IIN=5
|
||||
KH=0
|
||||
KQ=0
|
||||
KE=0
|
||||
KF=0
|
||||
KSN=0
|
||||
NCFLOWS=0
|
||||
NCELEV=0
|
||||
NCDEP=0
|
||||
NSPRTN=0
|
||||
KWT=0
|
||||
ICTOTC=0
|
||||
NMARSTYP=0
|
||||
NHOLDC=0
|
||||
HLIN1=-9999.
|
||||
DO K=1,1000
|
||||
ITYP(K)=0
|
||||
ORT(K,1)=-0.0
|
||||
ORT(K,5)=0.00
|
||||
ORT(K,7)=0.
|
||||
ENDDO
|
||||
IQLIN=0
|
||||
QLIN=0.
|
||||
QDLIN=0.
|
||||
IHLIN=0
|
||||
HLIN=0.
|
||||
IELIN=0
|
||||
NQLIN=0
|
||||
NHLIN=0
|
||||
IETP=0
|
||||
JET=0
|
||||
L3DCNT=0
|
||||
IINITWS=0
|
||||
NSND=0
|
||||
CALL WSelectFile(FILTER,PromptOn+DirChange,NAMEFL,'Load RMA-10 File')
|
||||
|
||||
IF (WInfoDialog(ExitButtonCommon).EQ.CommonOpen) THEN
|
||||
go to 100
|
||||
else
|
||||
RETURN
|
||||
endif
|
||||
|
||||
100 CONTINUE
|
||||
OPEN(IIN,FILE=NAMEFL,FORM='FORMATTED')
|
||||
KH=0
|
||||
KQ=0
|
||||
KE=0
|
||||
KF=0
|
||||
NCFLOWS=0
|
||||
NCELEV=0
|
||||
NCDEP=0
|
||||
NSPRTN=0
|
||||
KWT=0
|
||||
NMARSTYP=0
|
||||
HLIN1=-9999.
|
||||
DO K=1,1000
|
||||
ITYP(K)=0
|
||||
ORT(K,1)=-0.0
|
||||
ORT(K,5)=0.00
|
||||
ORT(K,7)=0.
|
||||
ENDDO
|
||||
IQLIN=0
|
||||
QLIN=0.
|
||||
QDLIN=0.
|
||||
IHLIN=0
|
||||
HLIN=0.
|
||||
IELIN=0
|
||||
NQLIN=0
|
||||
NHLIN=0
|
||||
JT=0
|
||||
DO K=1,43
|
||||
DO L=1,72
|
||||
FNAME(K)(L:L)=' '
|
||||
ENDDO
|
||||
ENDDO
|
||||
DO K=1,1000
|
||||
DO J=1,3
|
||||
DO L=1,80
|
||||
LINSAVE(K,J)(L:L)=' '
|
||||
ENDDO
|
||||
ENDDO
|
||||
ENDDO
|
||||
LINSAVC=0
|
||||
J=1
|
||||
JSAVE=1
|
||||
DO KC=1,5000
|
||||
CALL GINPT(IIN,ID,DLININ)
|
||||
CALL PARSELIN(DLININ,DLIN,ICLON,NCHARBL)
|
||||
110 IF(ID .EQ. 'ENDFILE ' .OR. ID .EQ. 'ENDFIL ' .OR. ID .EQ. 'ENDLIMIT') THEN
|
||||
JSAVE=2
|
||||
GO TO 200
|
||||
ENDIF
|
||||
IF(ID .EQ. 'TABEND ' .OR. ID .EQ. 'TAB-END ') THEN
|
||||
IF(IINITWS .EQ. 0) ELEV1=ELEV
|
||||
GO TO 200
|
||||
ENDIF
|
||||
IF(ID .EQ. 'ENDGEO ') THEN
|
||||
JSAVE=3
|
||||
GO TO 200
|
||||
ENDIF
|
||||
IF(ID .EQ. 'ENDSTEP ') THEN
|
||||
NQLIN(J)=KQ
|
||||
NHLIN(J)=KH
|
||||
NELIN(J)=KE
|
||||
NFCLIN(J)=KF
|
||||
J=J+1
|
||||
KH=0
|
||||
KQ=0
|
||||
KE=0
|
||||
KF=0
|
||||
KSN=0
|
||||
GO TO 200
|
||||
ENDIF
|
||||
IF(ID .EQ. 'ENDDATA') THEN
|
||||
JT=J-1
|
||||
IF(NITN .EQ. 0) THEN
|
||||
DATEND=' '
|
||||
ENDIF
|
||||
close(iin)
|
||||
RETURN
|
||||
ENDIF
|
||||
DO L=1,28
|
||||
IF(ID .EQ. LABELF(L)) THEN
|
||||
FNAME(L)=DLININ
|
||||
GO TO 200
|
||||
ENDIF
|
||||
ENDDO
|
||||
DO L=1,9
|
||||
IF(ID .EQ. LIMITL(L)) THEN
|
||||
READ(DLIN,*) LIMITVAL(L)
|
||||
IF(L .EQ. 9) LIMITVAL(2)=LIMITVAL(9)
|
||||
GO TO 200
|
||||
ENDIF
|
||||
ENDDO
|
||||
IF(ID(1:2) .EQ. 'TI') THEN
|
||||
TITLEHEAD=DLIN
|
||||
GO TO 200
|
||||
ENDIF
|
||||
|
||||
IF(ID(1:7) .EQ. 'STARTIM' ) THEN
|
||||
DO L=1,72
|
||||
IF(DLIN(L:L) .NE. ' ') THEN
|
||||
LIMIT=L
|
||||
GO TO 120
|
||||
ENDIF
|
||||
ENDDO
|
||||
120 READ(DLININ(LIMIT:LIMIT+15),5010) DATEST
|
||||
5010 FORMAT(A16)
|
||||
ELSEIF(ID(1:6) .EQ. 'ENDTIM' ) THEN
|
||||
DO L=1,72
|
||||
IF(DLININ(L:L) .EQ. '&') THEN
|
||||
LIMIT=1
|
||||
GO TO 130
|
||||
ELSEIF(DLININ(L:L) .NE. ' ') THEN
|
||||
LIMIT=L
|
||||
GO TO 130
|
||||
ENDIF
|
||||
ENDDO
|
||||
130 READ(DLININ(LIMIT:LIMIT+15),5010) DATEND
|
||||
|
||||
ELSEIF(ID(1:6) .EQ. 'YEAR ' ) THEN
|
||||
READ(DLIN,*) IYRR
|
||||
IYINFO=2
|
||||
ELSEIF(ID(1:6) .EQ. 'MONTH ' ) THEN
|
||||
READ(DLIN,*) ITMM
|
||||
ELSEIF(ID(1:6) .EQ. 'DAY ' ) THEN
|
||||
READ(DLIN,*) ITMD
|
||||
ELSEIF(ID(1:6) .EQ. 'HOUR ' ) THEN
|
||||
READ(DLIN,*) TET
|
||||
ELSEIF(ID(1:8) .EQ. 'VERTTURB') THEN
|
||||
READ(DLIN,*) IOPTZD
|
||||
ELSEIF(ID(1:8) .EQ. 'MARSHOPT' ) THEN
|
||||
READ(DLIN,*) IDNOPT
|
||||
ELSEIF(ID(1:8) .EQ. 'EDDYTYPE' ) THEN
|
||||
READ(DLIN,*) IEDSW
|
||||
ELSEIF(ID(1:6) .EQ. 'TBFACT' ) THEN
|
||||
READ(DLIN,*) TBFACT
|
||||
ELSEIF(ID(1:5) .EQ. 'TBMIN' ) THEN
|
||||
READ(DLIN,*) TBMIN
|
||||
ELSEIF(ID(1:7) .EQ. 'TIMPROJ' ) THEN
|
||||
READ(DLIN,*) IPROJ
|
||||
ELSEIF(ID(1:7) .EQ. '2DMODEL' ) THEN
|
||||
NDP=0
|
||||
NLAYTYP=0
|
||||
ELSEIF(ID(1:8) .EQ. '3DFIXLAY' ) THEN
|
||||
READ(DLIN,*) NDP
|
||||
NDP=-NDP-1
|
||||
NLAYTYP=1
|
||||
ELSEIF(ID(1:8) .EQ. '3DTYPLD1') THEN
|
||||
NDP=1
|
||||
NLAYTYP=2
|
||||
ELSEIF(ID(1:8) .EQ. '3DTYPLD2') THEN
|
||||
NDP=-1
|
||||
NLAYTYP=3
|
||||
ELSEIF(ID(1:8) .EQ. '3DTYPLD3') THEN
|
||||
NDP=2
|
||||
NLAYTYP=4
|
||||
ELSEIF(ID(1:7) .EQ. 'GRAVITY' ) THEN
|
||||
READ(DLIN,*) IGRV
|
||||
IF(IGRV .EQ. 0) GRAV=32.2
|
||||
IF(IGRV .EQ. 1) GRAV=9.81
|
||||
IF(GRAV .LT. 10.) THEN
|
||||
FCOEF=GRAV
|
||||
ELSE
|
||||
FCOEF=GRAV/2.208
|
||||
ENDIF
|
||||
ELSEIF(ID(1:7) .EQ. 'ZEROBED') THEN
|
||||
READ(DLIN,*) IZB
|
||||
ELSEIF(ID(1:7) .EQ. 'PASSSAL') THEN
|
||||
READ(DLIN,*) IPASS1
|
||||
ELSEIF(ID(1:7) .EQ. 'PASSTMP') THEN
|
||||
READ(DLIN,*) IPASS2
|
||||
ELSEIF(ID(1:7) .EQ. 'PASSSED') THEN
|
||||
READ(DLIN,*) IPASS3
|
||||
ELSEIF(ID(1:8) .EQ. 'ZEROSURF') THEN
|
||||
READ(DLIN,*) IZERS
|
||||
ELSEIF(ID(1:8) .EQ. 'ZERBELLV') THEN
|
||||
READ(DLIN,*) ZERBED
|
||||
ELSEIF(ID(1:6) .EQ. 'SAVITR' ) THEN
|
||||
READ(DLIN,*) ISAVITR
|
||||
ELSEIF(ID(1:8) .EQ. 'REVRTDEN' ) THEN
|
||||
READ(DLIN,*) IVERTDEN
|
||||
ELSEIF(ID(1:5) .EQ. 'OMEGA' ) THEN
|
||||
READ(DLIN,*) OMEGA1
|
||||
ELSEIF(ID(1:4) .EQ. 'ELEV' ) THEN
|
||||
READ(DLIN,*) ELEV
|
||||
ELSEIF(ID(1:7) .EQ. 'X-SCALE' ) THEN
|
||||
READ(DLIN,*) XSCALE
|
||||
IF(XSCALE .EQ. 0.) XSCALE=1.0
|
||||
ELSEIF(ID(1:7) .EQ. 'Y-SCALE' ) THEN
|
||||
READ(DLIN,*) YSCALE
|
||||
IF(YSCALE .EQ. 0.) YSCALE=1.0
|
||||
ELSEIF(ID(1:7) .EQ. 'Z-SCALE' ) THEN
|
||||
READ(DLIN,*) ZSCALE
|
||||
IF(ZSCALE .EQ. 0.) ZSCALE=1.0
|
||||
ELSEIF(ID(1:8) .EQ. 'BOUNDCMN') THEN
|
||||
READ(DLIN,*) CMIN
|
||||
ELSEIF(ID(1:8) .EQ. 'BOUNDCPW' ) THEN
|
||||
READ(DLIN,*) CPR
|
||||
ELSEIF(ID(1:4) .EQ. 'UNOM' ) THEN
|
||||
READ(DLIN,*) UNOM
|
||||
ELSEIF(ID(1:4) .EQ. 'UDIR' ) THEN
|
||||
READ(DLIN,*) UDIR
|
||||
ELSEIF(ID(1:4) .EQ. 'HMIN' ) THEN
|
||||
READ(DLIN,*) HMIN
|
||||
ELSEIF(ID(1:5) .EQ. 'DSET ') THEN
|
||||
READ(DLIN,*) DSET
|
||||
ELSEIF(ID(1:5) .EQ. 'DSETD' ) THEN
|
||||
READ(DLIN,*) DSETD
|
||||
ELSEIF(ID(1:5) .EQ. 'FIXBC' ) THEN
|
||||
READ(DLIN,*) IFXBC
|
||||
ELSEIF(ID(1:8) .EQ. 'VERTEQSW' ) THEN
|
||||
READ(DLIN,*) IEQSWT
|
||||
ELSEIF(ID(1:8) .EQ. 'INITSAL ' ) THEN
|
||||
READ(DLIN,*) SALI
|
||||
ELSEIF(ID(1:8) .EQ. 'INITTEMP' ) THEN
|
||||
READ(DLIN,*) TEMPI
|
||||
ELSEIF(ID(1:8) .EQ. 'INITSED ' ) THEN
|
||||
READ(DLIN,*) SEDI
|
||||
ELSEIF(ID(1:8) .EQ. 'INITUBED' ) THEN
|
||||
READ(DLIN,*) UINP
|
||||
ELSEIF(ID(1:8) .EQ. 'INITVBED' ) THEN
|
||||
READ(DLIN,*) VINP
|
||||
ELSEIF(ID(1:8) .EQ. 'RETRNPCT' ) THEN
|
||||
READ(DLIN,*) PRCNT
|
||||
ELSEIF(ID(1:7) .EQ. 'SURFMIX' ) THEN
|
||||
READ(DLIN,*) DMIX
|
||||
|
||||
ELSEIF(ID(1:5) .EQ. 'SSITN' ) THEN
|
||||
READ(DLIN,*) NITI
|
||||
ELSEIF(ID(1:5) .EQ. 'TRITN' ) THEN
|
||||
READ(DLIN,*) NITN
|
||||
IF(NITN .EQ. 0) NCYC=0
|
||||
ELSEIF(ID(1:7) .EQ. 'TRSTEPS' ) THEN
|
||||
READ(DLIN,*) NCYC
|
||||
IF(NCYC .EQ. 0) DATEND=' '
|
||||
ELSEIF(ID(1:8) .EQ. 'ECHSVALL' ) THEN
|
||||
IPRT=1
|
||||
ELSEIF(ID(1:8) .EQ. 'ECHSVNON' ) THEN
|
||||
IPRT=0
|
||||
ELSEIF(ID(1:8) .EQ. 'ECHPTINI' ) THEN
|
||||
IPRT=2
|
||||
ELSEIF(ID(1:8) .EQ. 'ITERINTV' ) THEN
|
||||
READ(DLIN,*) NPRTI
|
||||
ELSEIF(ID(1:8) .EQ. 'ASCSVFRQ' ) THEN
|
||||
READ(DLIN,*) NPRTF
|
||||
ELSEIF(ID(1:5) .EQ. 'STBIN' ) THEN
|
||||
READ(DLIN,*) IRSAV
|
||||
ELSEIF(ID(1:5) .EQ. 'DRYSW' ) THEN
|
||||
READ(DLIN,*) IDSWT
|
||||
ELSEIF(ID(1:6) .EQ. 'FRQBIN' ) THEN
|
||||
READ(DLIN,*) IOUTFREQ
|
||||
ELSEIF(ID(1:6) .EQ. 'FRQRST' ) THEN
|
||||
READ(DLIN,*) IOUTRST
|
||||
ELSEIF(ID(1:8) .EQ. 'RWDASFRQ' ) THEN
|
||||
READ(DLIN,*) IREWOUT
|
||||
ELSEIF(ID(1:5) .EQ. '1DTYP' ) THEN
|
||||
READ(DLIN,*) ID1DND
|
||||
ELSEIF(ID(1:6) .EQ. 'SOLVER') THEN
|
||||
READ(DLIN,*) ICPU
|
||||
ELSEIF(ID(1:8) .EQ. 'SLVERDSK') THEN
|
||||
READ(DLIN,*) IOOC
|
||||
ELSEIF(ID(1:8) .EQ. 'MESSRWND' ) THEN
|
||||
READ(DLIN,*) IREWMES
|
||||
ELSEIF(ID(1:8) .EQ. 'INITWSRF' ) THEN
|
||||
IINITWS=1
|
||||
READ(DLIN,*) ELEV1
|
||||
ELSEIF(ID(1:8) .EQ. 'CONV-VEL' ) THEN
|
||||
READ(DLIN,*) CONV(1)
|
||||
CONV(2)=CONV(1)
|
||||
ELSEIF(ID(1:8) .EQ. 'CONV-DEP' ) THEN
|
||||
READ(DLIN,*) CONV(3)
|
||||
ELSEIF(ID(1:8) .EQ. 'CONV-SAL' ) THEN
|
||||
READ(DLIN,*) CONV(4)
|
||||
ELSEIF(ID(1:8) .EQ. 'CONV-TMP' ) THEN
|
||||
READ(DLIN,*) CONV(5)
|
||||
ELSEIF(ID(1:8) .EQ. 'CONV-SED' ) THEN
|
||||
READ(DLIN,*) CONV(6)
|
||||
ELSEIF(ID(1:8) .EQ. 'TRANSIT ' ) THEN
|
||||
READ(DLIN,*) TRANSIT
|
||||
ITRANSIT=1
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'CCLINOUT' ) THEN
|
||||
READ(DLIN,*) (NCSPLPT(JJ),JJ=JCSPLPT+1,NCHARBL+JCSPLPT)
|
||||
JCSPLPT=JCSPLPT+NCHARBL
|
||||
ELSEIF(ID(1:8) .EQ. 'CONT-FLW' ) THEN
|
||||
ICTOTC=ICTOTC+1
|
||||
ICCOMP(ICTOTC)=1
|
||||
ACSPLPT(ICTOTC)= 'FLOW '
|
||||
ELSEIF(ID(1:8) .EQ. 'CONT-DEP' ) THEN
|
||||
ICTOTC=ICTOTC+1
|
||||
ICCOMP(ICTOTC)=2
|
||||
ACSPLPT(ICTOTC)= 'DEPTH '
|
||||
ELSEIF(ID(1:8) .EQ. 'CONT-ELV' ) THEN
|
||||
ICTOTC=ICTOTC+1
|
||||
ICCOMP(ICTOTC)=3
|
||||
ACSPLPT(ICTOTC)= 'WS-ELEV '
|
||||
ELSEIF(ID(1:8) .EQ. 'CONT-SAL' ) THEN
|
||||
ICTOTC=ICTOTC+1
|
||||
ICCOMP(ICTOTC)=4
|
||||
ACSPLPT(ICTOTC)= 'SALINITY'
|
||||
ELSEIF(ID(1:8) .EQ. 'CONT-TMP' ) THEN
|
||||
ICTOTC=ICTOTC+1
|
||||
ICCOMP(ICTOTC)=5
|
||||
ACSPLPT(ICTOTC)= 'TEMPERAT'
|
||||
ELSEIF(ID(1:8) .EQ. 'CONT-SED' ) THEN
|
||||
ICTOTC=ICTOTC+1
|
||||
ICCOMP(ICTOTC)=6
|
||||
ACSPLPT(ICTOTC)= 'SEDIMENT'
|
||||
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'EDDY-MAT' ) THEN
|
||||
READ(DLIN,*) K,EDD11
|
||||
ORT(K,1)=EDD11
|
||||
ORT(K,2)=EDD11
|
||||
ORT(K,3)=EDD11
|
||||
ORT(K,4)=EDD11
|
||||
IF(NMAT .LT. K) NMAT=K
|
||||
ELSEIF(ID(1:8) .EQ. 'EDDY-VRT' ) THEN
|
||||
READ(DLIN,*) K,EDD11
|
||||
ORT(K,6)=EDD11
|
||||
ORT(K,7)=EDD11
|
||||
IF(NMAT .LT. K) NMAT=K
|
||||
ELSEIF(ID(1:8) .EQ. 'DIFF-MAT' ) THEN
|
||||
READ(DLIN,*) K,EDD11
|
||||
ORT(K,8)=EDD11
|
||||
ORT(K,9)=EDD11
|
||||
IF(NMAT .LT. K) NMAT=K
|
||||
ELSEIF(ID(1:8) .EQ. 'DIFF-VRT' ) THEN
|
||||
READ(DLIN,*) K,EDD11
|
||||
ORT(K,10)=EDD11
|
||||
IF(NMAT .LT. K) NMAT=K
|
||||
ELSEIF(ID(1:8) .EQ. 'MANN-MAT' ) THEN
|
||||
READ(DLIN,*) K,ORT(K,5)
|
||||
ELSEIF(ID(1:8) .EQ. 'MANN-BNK' ) THEN
|
||||
READ(DLIN,*) K,ORT(K,11)
|
||||
ELSEIF(ID(1:8) .EQ. 'MARSH-FR' ) THEN
|
||||
READ(DLIN,*) K,ORT(K,12)
|
||||
ELSEIF(ID(1:8) .EQ. 'MANN-SRF' ) THEN
|
||||
READ(DLIN,*) K,ORT(K,13)
|
||||
ELSEIF(ID(1:8) .EQ. 'BN-V-MIN' ) THEN
|
||||
READ(DLIN,*) VMIN
|
||||
ELSEIF(ID(1:8) .EQ. 'BN-V-PWR' ) THEN
|
||||
READ(DLIN,*) POWER
|
||||
ELSEIF(ID(1:8) .EQ. 'TR-V-MIN' ) THEN
|
||||
READ(DLIN,*) UMIN
|
||||
ELSEIF(ID(1:8) .EQ. 'TR-V-PWR' ) THEN
|
||||
READ(DLIN,*) PWERIN
|
||||
ELSEIF(ID(1:8) .EQ. 'ED-VTVAR' ) THEN
|
||||
READ(DLIN,*) K,EDD1(K),EDD2(K),EDD3(K)
|
||||
ELSEIF(ID(1:8) .EQ. 'MARSH-SH' ) THEN
|
||||
READ(DLIN,*) ACT1
|
||||
ELSEIF(ID(1:8) .EQ. 'MARSH-RG' ) THEN
|
||||
READ(DLIN,*) ACT2
|
||||
ELSEIF(ID(1:8) .EQ. 'MARSH-PR' ) THEN
|
||||
READ(DLIN,*) ACT3
|
||||
ELSEIF(ID(1:8) .EQ. 'MARSH-LM' ) THEN
|
||||
READ(DLIN,*) ACT4
|
||||
ELSEIF(ID(1:4) .EQ. 'LD3 ' ) THEN
|
||||
L3DCNT=L3DCNT+1
|
||||
L3DTYP=3
|
||||
READ(DLIN,*) JND(L3DCNT),KKLAY(L3DCNT),(L3DDAT(L3DCNT,K),K=1,KKLAY(L3DCNT))
|
||||
ELSEIF(ID(1:4) .EQ. 'LD2 ' ) THEN
|
||||
L3DCNT=L3DCNT+1
|
||||
L3DTYP=2
|
||||
READ(DLIN,*) JND(L3DCNT),KKLAY(L3DCNT),(L3DDAT(L3DCNT,K),K=1,KKLAY(L3DCNT))
|
||||
! ENDIF
|
||||
|
||||
|
||||
|
||||
ELSEIF(ID .EQ. 'DELTA-HR') THEN
|
||||
READ(DLIN,*) DELT(J)
|
||||
KH=0
|
||||
KQ=0
|
||||
KE=0
|
||||
KF=0
|
||||
ELSEIF(ID .EQ. 'DELTA-MN') THEN
|
||||
READ(DLIN,*) DELTM(J)
|
||||
KH=0
|
||||
KQ=0
|
||||
KE=0
|
||||
KF=0
|
||||
ELSEIF(ID .EQ. 'DATE-END') THEN
|
||||
DO L=1,72
|
||||
IF(DLIN(L:L) .NE. ' ') THEN
|
||||
LIMIT=L
|
||||
GO TO 140
|
||||
ENDIF
|
||||
ENDDO
|
||||
140 READ(DLININ(LIMIT:LIMIT+15),5010) DATENDST(J)
|
||||
! ELSEIF(ID .EQ. 'UNDERRLX') THEN
|
||||
! READ(DLIN,*) URLC(J), NRITR(J)
|
||||
! ELSEIF(ID .EQ. 'WINDSW ') THEN
|
||||
! READ(DLIN,*) IWIND(J)
|
||||
! ELSEIF(ID .EQ. 'WINDUNIT') THEN
|
||||
! READ(DLIN,*) IWUNITS(J)
|
||||
! ELSEIF(ID .EQ. 'WINDVEL ') THEN
|
||||
! READ(DLIN,*) WVEL(J)
|
||||
! ELSEIF(ID .EQ. 'WINDDIR ') THEN
|
||||
! READ(DLIN,*) WDIR(J)
|
||||
ELSEIF(ID .EQ. 'Q-ITR ') THEN
|
||||
IITYPE(J)=1
|
||||
ELSEIF(ID .EQ. 'QSL-ITR ') THEN
|
||||
IITYPE(J)=2
|
||||
ELSEIF(ID .EQ. 'QTM-ITR ') THEN
|
||||
IITYPE(J)=3
|
||||
ELSEIF(ID .EQ. 'QSD-ITR ') THEN
|
||||
IITYPE(J)=4
|
||||
ELSEIF(ID .EQ. 'QST-ITR ') THEN
|
||||
IITYPE(J)=5
|
||||
|
||||
|
||||
|
||||
ELSEIF(ID .EQ. 'FL-ELEVC') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,*) IHLIN(KH,J),LAYNUMH(KH,J),HLIN(KH,J),(QUALKH(KH,J,K),K=1,3)
|
||||
HCKLIN(KH,J)=1
|
||||
LO=1
|
||||
ELSEIF(ID .EQ. 'CN-ELEVC') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,*) IHLIN(KH,J),LAYNUMH(KH,J),HLIN(KH,J),(QUALKH(KH,J,K),K=1,3)
|
||||
HCKLIN(KH,J)=0
|
||||
LO=1
|
||||
ELSEIF(ID(1:3) .EQ. 'HCN') THEN
|
||||
150 LHI=LO-1+NCHARBL
|
||||
READ(DLIN,*) (FHCN(KH,J,K), K=LO,LHI)
|
||||
KHCN(J)=KH
|
||||
IHCN(KH,J)=LHI
|
||||
LO=LO+NCHARBL
|
||||
CALL GINPT(IIN,ID,DLININ)
|
||||
CALL PARSELIN(DLININ,DLIN,ICLON,NCHARBL)
|
||||
IF(ID(1:3) .NE. 'HCN') GO TO 110
|
||||
|
||||
GO TO 150
|
||||
|
||||
ELSEIF(ID .EQ. 'FL-ELEVI') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,*) IHLIN(KH,J),LAYNUMH(KH,J),HLIN(KH,J),HLIN1(KH,J),(QUALKH(KH,J,K),K=1,3)
|
||||
HCKLIN(KH,J)=1
|
||||
ELSEIF(ID .EQ. 'CN-ELEVI') THEN
|
||||
KH=KH+1
|
||||
READ(DLIN,*) IHLIN(KH,J),LAYNUMH(KH,J),HLIN(KH,J),HLIN1(KH,J),(QUALKH(KH,J,K),K=1,3)
|
||||
HCKLIN(KH,J)=0
|
||||
|
||||
ELSEIF(ID .EQ. 'GBWIND ') THEN
|
||||
READ(DLIN,*) WVEL(J),WDIR(J)
|
||||
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'CN-Q') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,*) IQLIN(KQ,J),LAYNUMQ(KQ,J),QLIN(KQ,J),QDLIN(KQ,J),(QUALKQ(KQ,J,K),K=1,3)
|
||||
QCKLIN(KQ,J)=0
|
||||
IF(ID(5:5) .EQ. 'C') THEN
|
||||
IQLIN1(KQ,J)=1
|
||||
ELSEIF(ID(5:5) .EQ. 'F') THEN
|
||||
IQLIN1(KQ,J)=2
|
||||
ELSEIF(ID(5:5) .EQ. 'H') THEN
|
||||
IQLIN1(KQ,J)=3
|
||||
ENDIF
|
||||
ELSEIF(ID(1:4) .EQ. 'FL-Q') THEN
|
||||
KQ=KQ+1
|
||||
READ(DLIN,*) IQLIN(KQ,J),LAYNUMQ(KQ,J),QLIN(KQ,J),QDLIN(KQ,J),(QUALKQ(KQ,J,K),K=1,3)
|
||||
QCKLIN(KQ,J)=1
|
||||
IF(ID(5:5) .EQ. 'C') THEN
|
||||
IQLIN1(KQ,J)=1
|
||||
ELSEIF(ID(5:5) .EQ. 'F') THEN
|
||||
IQLIN1(KQ,J)=2
|
||||
ELSEIF(ID(5:5) .EQ. 'H') THEN
|
||||
IQLIN1(KQ,J)=3
|
||||
ENDIF
|
||||
|
||||
ELSEIF(ID .EQ. 'CN-RAIN ') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=4
|
||||
READ(DLIN,*) ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=0
|
||||
ECKLIN1(KE,J)=0
|
||||
! ECKLIN2(KE,J)=1
|
||||
ELSEIF(ID .EQ. 'FL-RAIN ') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=4
|
||||
READ(DLIN,*) ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=1
|
||||
ECKLIN1(KE,J)=0
|
||||
|
||||
! ECKLIN2(KE,J)=1
|
||||
ELSEIF(ID .EQ. 'CN-ELMGT') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
IELIN(KE,J)=0
|
||||
ECKLIN(KE,J)=0
|
||||
ECKLIN1(KE,J)=1
|
||||
ELSEIF(ID .EQ. 'FL-ELMGT') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
IELIN(KE,J)=0
|
||||
ECKLIN(KE,J)=1
|
||||
ECKLIN1(KE,J)=1
|
||||
|
||||
ELSEIF(ID .EQ. 'CN-ELMGD') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
IELIN(KE,J)=0
|
||||
ECKLIN(KE,J)=0
|
||||
ECKLIN1(KE,J)=0
|
||||
ELSEIF(ID .EQ. 'FL-ELMGD') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
IELIN(KE,J)=0
|
||||
ECKLIN(KE,J)=1
|
||||
ECKLIN1(KE,J)=0
|
||||
|
||||
ELSEIF(ID .EQ. 'CN-ELMET') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) IELIN(KE,J),LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=0
|
||||
ECKLIN1(KE,J)=1
|
||||
ELSEIF(ID .EQ. 'FL-ELMET') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) IELIN(KE,J),LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=1
|
||||
ECKLIN1(KE,J)=1
|
||||
|
||||
ELSEIF(ID .EQ. 'CN-ELMED') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) IELIN(KE,J),LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=0
|
||||
ECKLIN1(KE,J)=0
|
||||
ELSEIF(ID .EQ. 'FL-ELMED') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=1
|
||||
READ(DLIN,*) IELIN(KE,J),LAYNUME(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=1
|
||||
ECKLIN1(KE,J)=0
|
||||
|
||||
ELSEIF(ID .EQ. 'CN-GRAIN') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=6
|
||||
READ(DLIN,*) IELIN(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=0
|
||||
ECKLIN1(KE,J)=0
|
||||
ELSEIF(ID .EQ. 'FL-GRAIN') THEN
|
||||
KE=KE+1
|
||||
IETP(KE,J)=6
|
||||
READ(DLIN,*) IELIN(KE,J),ELIN(KE,J),(QUALKE(KE,J,K),K=1,3)
|
||||
ECKLIN(KE,J)=1
|
||||
ECKLIN1(KE,J)=0
|
||||
ELSEIF(ID(1:3) .EQ. 'SN ') THEN
|
||||
NSND(J)=NSND(J)+1
|
||||
READ(DLIN,*) NODSND(NSND(J),J),NCODE(NSND(J),J),(BCSND(NSND(J),J,K),K=1,6)
|
||||
ELSEIF(ID(1:8) .EQ. 'SD ') THEN
|
||||
NSND(J)=NSND(J)+1
|
||||
READ(DLIN,*) NCODE(NSND(J),J),(BCSND(NSND(J),J,K),K=1,6)
|
||||
NODSND(NSND(J),J)=0
|
||||
|
||||
! ELSEIF(ID .EQ. 'FLWCNTRL') THEN
|
||||
! KF=KF+1
|
||||
! READ(DLIN,*) IFCLIN(KF,J),IFCLIN1(KF,J),FCLIN1(KF,J),FCLIN2(KF,J),FCLIN3(KF,J),FCLIN4(KF,J),FCLIN5(KF,J)
|
||||
ELSE
|
||||
NHOLDC=NHOLDC+1
|
||||
WRITE(HOLDC(NHOLDC),'(A8,A72)') ID,DLIN
|
||||
ENDIF
|
||||
200 CONTINUE
|
||||
ENDDO
|
||||
IF(INTG(5) .EQ. 0) THEN
|
||||
DATEND=' '
|
||||
INTG(10)=0
|
||||
ENDIF
|
||||
NQLIN(J)=KQ
|
||||
NHLIN(J)=KH
|
||||
NELIN(J)=KE
|
||||
NFCLIN(J)=KF
|
||||
NSND(J)=KSN
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
SUBROUTINE GINPT(IIN,ID,DLIN)
|
||||
INTEGER ICROS(73)
|
||||
CHARACTER ID*8,DLIN*72,EMES(10)*23
|
||||
CHARACTER*8 DLINEXTRA
|
||||
COMMON /DLINF/ DLINEXTRA
|
||||
DATA ICROS/0,7,8*0,4,8*0,1,3,0,6,7,0,2,43*0,10,0,0,5/
|
||||
! DATA EMES/
|
||||
!+'CROSS SECTION DATA FILE',
|
||||
!+'GROUP DATA FILE ',
|
||||
!+'PUMP DATA FILE ',
|
||||
!+'BOUNDARY FLOW DATA FILE',
|
||||
!+'STAGE FLOW DATA FILE ',
|
||||
!+'CONTROL STRUCTURE FILE ',
|
||||
!+'INPUT RM2 CONTROL FILE ',
|
||||
!+'ALTERNATE INPUT FILE ',
|
||||
!+'INPUT TIME CONTROL FILE',
|
||||
!+'WIND DATA FILE '/
|
||||
100 CONTINUE
|
||||
!IPK OCT 14 ADD TEST FOR ERROR OR END OF FILE
|
||||
READ(IIN,7000,END=800,ERR=900) ID,DLIN,DLINEXTRA
|
||||
write(75,7000) id,dlin,DLINEXTRA
|
||||
!ipk jul03
|
||||
call to_upper(id)
|
||||
7000 FORMAT(A8,A72,A8)
|
||||
do i=1,8
|
||||
if(id(i:i) .eq. char(9)) go to 200
|
||||
enddo
|
||||
do i=1,72
|
||||
if(dlin(i:i) .eq. char(9)) go to 200
|
||||
enddo
|
||||
!ipk jan03
|
||||
do i=1,8
|
||||
if(dlinextra(i:i) .eq. char(9)) go to 200
|
||||
enddo
|
||||
IF(ID(1:1) .EQ. ':') GO TO 100
|
||||
IF(ID(1:1) .EQ. ';') GO TO 100
|
||||
IF(ID(1:3) .EQ. 'com') GO TO 100
|
||||
IF(ID(1:3) .EQ. 'COM') GO TO 100
|
||||
IF(ID(1:3) .EQ. 'Com') GO TO 100
|
||||
IF(ID(1:8) .EQ. ' ') GO TO 100
|
||||
RETURN
|
||||
200 continue
|
||||
write(*,*) 'Error Tab character found in the following line'
|
||||
write(75,*) 'Error Tab character found in the following line'
|
||||
write(75,7000) id,dlin
|
||||
write(*,7000) id,dlin
|
||||
stop
|
||||
|
||||
800 CLOSE(75)
|
||||
OPEN(75,file='ERROR.OUT')
|
||||
6005 FORMAT(' ERROR -- END OF FILE READING ',A23)
|
||||
STOP
|
||||
|
||||
900 CLOSE(75)
|
||||
OPEN(75,file='ERROR.OUT')
|
||||
WRITE(*,6006) EMES(ICROS(IIN))
|
||||
WRITE(*,6006) EMES(ICROS(IIN))
|
||||
WRITE(75,6006) EMES(ICROS(IIN))
|
||||
6006 FORMAT(' ERROR -- ILLEGAL CHARACTER READING ',A23)
|
||||
STOP
|
||||
|
||||
END
|
||||
|
||||
! *****************************************************************************************
|
||||
|
||||
SUBROUTINE TO_UPPER(STR)
|
||||
|
||||
CHARACTER*(*) STR
|
||||
CHARACTER*1 CH
|
||||
|
||||
L = LEN(STR)
|
||||
|
||||
DO I=1,L
|
||||
CH = STR(I:I)
|
||||
IF ( ICHAR(CH) .GT. 96 .AND. ICHAR(CH) .LE. 122) THEN
|
||||
STR(I:I) = CHAR(ICHAR(CH)-32)
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
END
|
||||
|
||||
SUBROUTINE PARSELIN(DLININ,DLIN,ICLON,NCHARBL)
|
||||
CHARACTER*72 DLIN,DLININ
|
||||
CHARACTER*1 CTYPE(6)
|
||||
INTEGER ICLON
|
||||
DATA CTYPE/' ',',','\',':','/','&'/
|
||||
IBAS=0
|
||||
IPREV=1
|
||||
ICLON=0
|
||||
NCHARBL=0
|
||||
DO K=1,72
|
||||
DLIN(K:K)=CTYPE(1)
|
||||
ENDDO
|
||||
DO K=1,72
|
||||
|
||||
IF(DLININ(K:K) .EQ. CTYPE(6)) THEN
|
||||
IF(IBAS .EQ. 0) THEN
|
||||
NCHARBL=0
|
||||
RETURN
|
||||
ENDIF
|
||||
IF(DLIN(IBAS:IBAS) .EQ. CTYPE(2)) THEN
|
||||
DLIN(IBAS:IBAS)= CTYPE(1)
|
||||
ELSE
|
||||
IBAS=IBAS+1
|
||||
DLIN(IBAS:IBAS) =CTYPE(1)
|
||||
NCHARBL=NCHARBL+1
|
||||
ENDIF
|
||||
|
||||
RETURN
|
||||
ENDIF
|
||||
|
||||
IF(DLININ(K:K) .EQ. CTYPE(1)) THEN
|
||||
|
||||
! TEST FOR PREVIOUS BLANK IF SO MOVE ON
|
||||
|
||||
IF(IPREV .EQ. 1) GO TO 200
|
||||
|
||||
! IF NO PREVIOUS THEN WE HAVE AN END OF CHARACTER STREAM ADD A COMMA TO DLIN
|
||||
IPREV=1
|
||||
IF(DLIN(IBAS:IBAS) .NE. CTYPE(2)) THEN
|
||||
IBAS=IBAS+1
|
||||
DLIN(IBAS:IBAS)=CTYPE(2)
|
||||
NCHARBL=NCHARBL+1
|
||||
ENDIF
|
||||
ELSE
|
||||
|
||||
! WE HAVE NUMBER OR A COMMA OR \ OR / CHARACTER
|
||||
|
||||
DO J=2,5
|
||||
IF(DLININ(K:K) .EQ. CTYPE(J)) THEN
|
||||
|
||||
! FOUND SOMETHING ADD A COMMA
|
||||
|
||||
IPREV=0
|
||||
IBAS=IBAS+1
|
||||
IF(J .EQ. 4) THEN
|
||||
ICLON=1
|
||||
ENDIF
|
||||
DLIN(IBAS:IBAS)=CTYPE(2)
|
||||
NCHARBL=NCHARBL+1
|
||||
GO TO 100
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
! NOTHING FOUND MUST BE LETTER OR NUMBER COPY IT OVER
|
||||
|
||||
IPREV=0
|
||||
IBAS=IBAS+1
|
||||
DLIN(IBAS:IBAS)=DLININ(K:K)
|
||||
! MOVE ON TO NEXT CHARACTER
|
||||
|
||||
100 CONTINUE
|
||||
ENDIF
|
||||
200 ENDDO
|
||||
RETURN
|
||||
END
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
@ -0,0 +1,146 @@
|
||||
! Form RMA10 input files
|
||||
!
|
||||
PROGRAM RMA10PRP
|
||||
!
|
||||
USE WINTERACTER
|
||||
|
||||
USE RESID
|
||||
USE BLK1
|
||||
USE BLKRM10
|
||||
USE IFPORT
|
||||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
INTEGER, PARAMETER :: MFPS = 30 ! Maximum frames per second
|
||||
REAL , PARAMETER :: PI = 3.1415926
|
||||
REAL , PARAMETER :: AngleStep = PI/30.
|
||||
REAL, PARAMETER :: DEFDIST = 5.0
|
||||
!
|
||||
REAL :: ViewAngle = 0.0
|
||||
REAL :: SHIFT=0.0
|
||||
REAL :: ROTH=0.0
|
||||
REAL :: ROTV=0.0
|
||||
REAL :: ROT=0.0
|
||||
INTEGER :: ITYPE,K,JRGB,JTIMES,N,IHSW,IER,LENNAME
|
||||
INTEGER :: IHBITMAP,ITYPIMAGE
|
||||
INTEGER , DIMENSION(5) :: WIDSTAT
|
||||
TYPE(WIN_STYLE) :: WINDOW
|
||||
TYPE(WIN_MESSAGE) :: MESSAGE
|
||||
LOGICAL :: CHANGED,ONEC,EXISTD
|
||||
CHARACTER(LEN=50) :: STBAR
|
||||
ITYPIMAGE=4
|
||||
JTIMES=1
|
||||
ONEC=.FALSE.
|
||||
!
|
||||
! Initialise Winteracter
|
||||
!
|
||||
CALL WInitialise()
|
||||
!
|
||||
! Open root window - keep it fixed in size for sake of this example
|
||||
!
|
||||
CALL WindowOpen(FLAGS =SysMenuOn+MinButton+MaxButton+StatusBar, &
|
||||
MENUID=IDM_MENU1, &
|
||||
TOOLID=(/0,IDT_TOOLBAR1,0,0/), &
|
||||
TITLE ='View RMA 10 model files', &
|
||||
NCOL256=128)
|
||||
! +FixedSizeWin, &
|
||||
! WIDTH =500, &
|
||||
! HEIGHT =500, &
|
||||
!
|
||||
! Create a bitmap of same size as window and draw initial frame
|
||||
!
|
||||
WIDSTAT(1) = 1000
|
||||
WIDSTAT(2) = 2000
|
||||
WIDSTAT(3) = 1000
|
||||
WIDSTAT(4) = 1000
|
||||
WIDSTAT(5) = 6000
|
||||
CALL WindowStatusBarParts(5, WIDSTAT)
|
||||
CALL WindowOutStatusBar(4, ' Active File Name')
|
||||
CALL WindowOutStatusBar(5,NAMEFL)
|
||||
|
||||
CALL WBitmapCreate(IHBITMAP,WInfoWindow(WindowWidth), &
|
||||
WInfoWindow(WindowHeight))
|
||||
IER=GETCWD(HELPDIR)
|
||||
DO K=255,1,-1
|
||||
LENNAME=K
|
||||
IF(HELPDIR(K:K) .NE. ' ') EXIT
|
||||
ENDDO
|
||||
HELPDIR(K+1:K+5)='\HELP'
|
||||
CALL DEFAULTS
|
||||
CALL DEFAULTCN
|
||||
|
||||
!
|
||||
!
|
||||
! Main Message loop, keep asking for and processing
|
||||
! messages until the user selects the Exit option.
|
||||
!
|
||||
DO
|
||||
CALL WindowOutStatusBar(5,NAMEFL)
|
||||
CALL WMessage(ITYPE,MESSAGE)
|
||||
SELECT CASE (ITYPE)
|
||||
CASE (KeyDown)
|
||||
IF (MESSAGE%VALUE1==KeyEscape) EXIT
|
||||
|
||||
CASE (MenuSelect) ! Menu item selected
|
||||
SELECT CASE (MESSAGE%VALUE1)
|
||||
CASE (ID_OPENRM2)
|
||||
CALL READRM10
|
||||
CASE (ID_BUTTON8)
|
||||
CALL READRM10
|
||||
CASE (ID_CONVERT)
|
||||
CALL CONVERT
|
||||
CASE (ID_BUTTON4)
|
||||
CALL CONVERT
|
||||
CASE (ID_ITEM21)
|
||||
CALL FORMFILE
|
||||
CASE (ID_BUTTON5)
|
||||
CALL FORMFILE
|
||||
CASE (ID_ITEM16)
|
||||
CALL SHOWFILES
|
||||
CASE (ID_CP1)
|
||||
CALL SHOWCNTRL(1)
|
||||
CASE (ID_CP2)
|
||||
CALL SHOWCNTRL(2)
|
||||
CASE (ID_CP3)
|
||||
CALL SHOWCNTRL(3)
|
||||
CASE (ID_CP4)
|
||||
CALL SHOWCNTRL(4)
|
||||
! DO N=3,17
|
||||
! WRITE(155,*) N,INTG(N)
|
||||
! ENDDO
|
||||
! DO N=1,11
|
||||
! WRITE(155,*) N,RLDAT(N)
|
||||
! ENDDO
|
||||
! DO N=1,NMAT
|
||||
! WRITE(155,*) N,ORT(N,1),ORT(N,5),ORT(N,7)
|
||||
! ENDDO
|
||||
CASE (ID_ITEM6)
|
||||
CALL SHOWTIMESTP(JTIMES)
|
||||
CASE (ID_RUNRMA2)
|
||||
CALL RUNRMA10
|
||||
CASE (ID_HELP)
|
||||
IHSW=1
|
||||
CALL HELP10(IHSW)
|
||||
CASE (ID_HELPUSER)
|
||||
IHSW=99
|
||||
CALL HELP10(IHSW)
|
||||
CASE (ID_MENUITEM)
|
||||
IHSW=98
|
||||
CALL HELP10(IHSW)
|
||||
CASE (ID_ABOUT)
|
||||
IHSW=97
|
||||
CALL HELP10(IHSW)
|
||||
CASE (ID_EXIT)
|
||||
EXIT
|
||||
CASE (ID_EX)
|
||||
EXIT
|
||||
ENDSELECT
|
||||
CASE (CloseRequest)
|
||||
EXIT
|
||||
END SELECT
|
||||
END DO
|
||||
!
|
||||
CALL WindowClose()
|
||||
STOP
|
||||
END
|
||||
!
|
||||
@ -0,0 +1,46 @@
|
||||
SUBROUTINE RUNRMA10
|
||||
|
||||
USE IFPORT
|
||||
USE BLKRM10
|
||||
use winteracter
|
||||
LOGICAL RESULTA,EXIST
|
||||
|
||||
CHARACTER(LEN=255) :: filter,STRINGEXEC,EXNAMEFL
|
||||
CHARACTER (LEN=102) :: TSEXEC
|
||||
CHARACTER (LEN=1) :: QUOT
|
||||
QUOT='"'
|
||||
I=0
|
||||
CLOSE (75)
|
||||
INQUIRE(file='RMA2.EXE',EXIST=EXIST)
|
||||
IF(EXIST) THEN
|
||||
|
||||
write(tsexec,6000) quot,namefl(1:100),quot
|
||||
stringexec='RMA2.EXE '//tsexec(1:102)
|
||||
ELSE
|
||||
filter="EXE file *.exe|*.exe|"
|
||||
|
||||
CALL WSelectFile(Filter,PromptOn,EXNAMEFL,'Select RMA2 EXE File to be Used')
|
||||
|
||||
IF (WInfoDialog(ExitButtonCommon).EQ.CommonOpen) THEN
|
||||
go to 500
|
||||
else
|
||||
RETURN
|
||||
endif
|
||||
|
||||
500 CONTINUE
|
||||
DO K=1,255
|
||||
IF(EXNAMEFL(K:K+3) .EQ. '.EXE' .OR. EXNAMEFL(K:K+3) .EQ. '.exe') then
|
||||
iflen=k+3
|
||||
go to 600
|
||||
endif
|
||||
enddo
|
||||
600 continue
|
||||
write(tsexec,6000) quot,namefl(1:100),quot
|
||||
6000 format(a1,a100,a1)
|
||||
stringexec=exnamefl(1:iflen)//' '//tsexec(1:102)
|
||||
endif
|
||||
RESULTA=SYSTEMQQ(STRINGEXEC)
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
@ -0,0 +1,862 @@
|
||||
SUBROUTINE SHOWCNTRL(ITEM)
|
||||
! SHOW CONTROL PAGE
|
||||
|
||||
USE WINTERACTER
|
||||
|
||||
USE RESID
|
||||
|
||||
USE BLKRM10
|
||||
|
||||
integer ilb(6)
|
||||
IF(ITEM .NE. 1) GO TO 400
|
||||
300 CONTINUE
|
||||
305 CONTINUE
|
||||
IF(NCYC .GT. 0 .AND. DATEND .NE.' ') THEN
|
||||
CALL WMessageBox(YesNo,QuestionIcon,CommonYes, &
|
||||
'Do you wish to set set time steps to zero (YES)'//CHAR(13)// &
|
||||
'or delete ending date (NO) ?', 'ENDING DATE AND NUMBER OF TIME STEPS DEFINED')
|
||||
IF(WInfoDialog(4) .eq. 1) then
|
||||
NCYC=0
|
||||
ELSE
|
||||
DATEND=' '
|
||||
ENDIF
|
||||
ENDIF
|
||||
call wdialogload(IDD_CONTROLS)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_CONTROLS)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WGridPutCellInteger(IDF_GRID5,1,1,IOPTZD)
|
||||
CALL WGridPutCellInteger(IDF_GRID5,1,2,NCYC)
|
||||
CALL WGridPutCellInteger(IDF_GRID5,1,3,NITI)
|
||||
CALL WGridPutCellInteger(IDF_GRID5,1,4,NITN)
|
||||
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,1,ELEV)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,2,ELEV1)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,3,OMEGA1)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,4,CONV(1))
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,5,CONV(3))
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,6,CONV(4))
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,7,CONV(5))
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,8,CONV(6))
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,9,SALI)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,10,TEMPI)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,11,SEDI)
|
||||
|
||||
call wdialogPutcheckbox(IDF_CHECK1,ITRANSIT)
|
||||
IF(ITRANSIT .EQ. 1) THEN
|
||||
CALL WDialogPutReal(IDF_REAL1,TRANSIT)
|
||||
ENDIF
|
||||
|
||||
CALL WGridPutCellReal(IDF_GRID6,1,1,ACT1)
|
||||
CALL WGridPutCellReal(IDF_GRID6,1,2,ACT2)
|
||||
CALL WGridPutCellReal(IDF_GRID6,1,3,ACT3)
|
||||
CALL WGridPutCellReal(IDF_GRID6,1,4,ACT4)
|
||||
|
||||
IF (IDNOPT .EQ. 0) THEN
|
||||
call wdialogputRadioButton(idf_radio4)
|
||||
ELSEIF (IDNOPT .EQ. -1) THEN
|
||||
call wdialogputRadioButton(idf_radio4+1)
|
||||
ELSE
|
||||
call wdialogputRadioButton(idf_radio4+2)
|
||||
ENDIF
|
||||
|
||||
|
||||
! CALL WDialogPutInteger(IDF_INTEGER4,INTG(6))
|
||||
! IF (IEDSW .EQ. 0) THEN
|
||||
|
||||
call wdialogputRadioButton(idf_radio7+IEDSW)
|
||||
call wdialogputRadioButton(idf_radio13+NLAYTYP)
|
||||
IF(NLAYTYP .EQ. 1) THEN
|
||||
CALL WGridPutCellInteger(IDF_GRID7,1,1,NDP)
|
||||
ENDIF
|
||||
|
||||
IF(NLAYTYP .GT. 0) THEN
|
||||
CALL WGridPutCellReal(IDF_GRID8,1,1,DMIX)
|
||||
ENDIF
|
||||
|
||||
! ELSE
|
||||
! call wdialogputRadioButton(idf_radio7+1)
|
||||
! ENDIF
|
||||
IF (ICPU .EQ. 0) THEN
|
||||
call wdialogputRadioButton(idf_radio1)
|
||||
ELSE
|
||||
call wdialogputRadioButton(idf_radio1+1)
|
||||
ENDIF
|
||||
|
||||
call wdialogputRadioButton(idf_radio10+IPRT)
|
||||
|
||||
! CALL WDialogPutInteger(IDF_INTEGER14,INTG(26))
|
||||
CALL WDialogPutString(IDF_STRING16,DATEST)
|
||||
CALL WDialogPutString(IDF_STRING18,DATEND)
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_HELP1) THEN
|
||||
IHSW=20
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 305
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK .OR. WInfoDialog(ExitButton) .EQ. IDF_PART2 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART3 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART4) THEN
|
||||
ITYP=0
|
||||
! ORT=0
|
||||
|
||||
CALL WGridGetCellInteger(IDF_GRID5,1,1,IOPTZD)
|
||||
CALL WGridGetCellInteger(IDF_GRID5,1,2,NCYC)
|
||||
CALL WGridGetCellInteger(IDF_GRID5,1,3,NITI)
|
||||
CALL WGridGetCellInteger(IDF_GRID5,1,4,NITN)
|
||||
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,1,ELEV)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,2,ELEV1)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,3,OMEGA1)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,4,CONV(1))
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,5,CONV(3))
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,6,CONV(4))
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,7,CONV(5))
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,8,CONV(6))
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,9,SALI)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,10,TEMPI)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,11,SEDI)
|
||||
|
||||
call wdialogGetcheckbox(IDF_CHECK1,ITRANSIT)
|
||||
IF(ITRANSIT .EQ. 1) THEN
|
||||
CALL WDialogGetReal(IDF_REAL1,TRANSIT)
|
||||
ENDIF
|
||||
|
||||
CALL WGridGetCellReal(IDF_GRID6,1,1,ACT1)
|
||||
CALL WGridGetCellReal(IDF_GRID6,1,2,ACT2)
|
||||
CALL WGridGetCellReal(IDF_GRID6,1,3,ACT3)
|
||||
CALL WGridGetCellReal(IDF_GRID6,1,4,ACT4)
|
||||
|
||||
call wdialogGetRadioButton(idf_radio4,IDNOPT)
|
||||
IF(IDNOPT .EQ. 1) THEN
|
||||
IDNOPT=0
|
||||
ELSEIF(IDNOPT .EQ. 2) THEN
|
||||
IDNOPT=-1
|
||||
ELSE
|
||||
IDNOPT=-2
|
||||
|
||||
ENDIF
|
||||
|
||||
call wdialogGetRadioButton(idf_radio7,IEDSW)
|
||||
IF(IEDSW .EQ. 1) THEN
|
||||
IEDSW=0
|
||||
ELSEIF(IEDSW .EQ. 2) THEN
|
||||
IEDSW=1
|
||||
ELSE
|
||||
IEDSW=2
|
||||
ENDIF
|
||||
|
||||
call wdialogGetRadioButton(idf_radio10,IPRT)
|
||||
IPRT=IPRT-1
|
||||
! CALL WDialogGetInteger(IDF_INTEGER10,INTG(17))
|
||||
call wdialogGetRadioButton(idf_radio1,ICPU)
|
||||
IF(ICPU .EQ. 1) THEN
|
||||
ICPU= 0
|
||||
ELSE
|
||||
ICPU=5
|
||||
ENDIF
|
||||
|
||||
call wdialogGetRadioButton(idf_radio13,NLAYTYP)
|
||||
NLAYTYP=NLAYTYP-1
|
||||
IF(NLAYTYP .EQ. 1) THEN
|
||||
CALL WGridGetCellInteger(IDF_GRID7,1,1,NDP)
|
||||
ENDIF
|
||||
|
||||
IF(NLAYTYP .GT. 0) THEN
|
||||
CALL WGridGetCellReal(IDF_GRID8,1,1,DMIX)
|
||||
ENDIF
|
||||
|
||||
|
||||
! CALL WDialogGetInteger(IDF_INTEGER14,INTG(26))
|
||||
|
||||
CALL WDialogGetString(IDF_STRING16,DATEST)
|
||||
CALL WDialogGetString(IDF_STRING18,DATEND)
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART2) GO TO 405
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART3) GO TO 505
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART4) GO TO 705
|
||||
|
||||
RETURN
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDCANCEL) THEN
|
||||
return
|
||||
ENDIF
|
||||
enddo
|
||||
|
||||
RETURN
|
||||
|
||||
! *******************************************************************************
|
||||
|
||||
400 CONTINUE
|
||||
IF(ITEM .NE. 2) GO TO 500
|
||||
405 CONTINUE
|
||||
call wdialogload(IDD_CONTROLS2A)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_CONTROL2SA)
|
||||
ierr=infoerror(1)
|
||||
|
||||
NN=0
|
||||
do k=1,1000
|
||||
IF(ORT(K,1) .NE. 0.) THEN
|
||||
NN=NN+1
|
||||
CALL WGridPutCellInteger(IDF_GRID1,1,NN,K)
|
||||
CALL WGridPutCellReal(IDF_GRID1,2,NN,ORT(K,1))
|
||||
CALL WGridPutCellReal(IDF_GRID1,3,NN,ORT(K,6))
|
||||
CALL WGridPutCellReal(IDF_GRID1,4,NN,ORT(K,8))
|
||||
CALL WGridPutCellReal(IDF_GRID1,5,NN,ORT(K,10))
|
||||
CALL WGridPutCellReal(IDF_GRID1,6,NN,ORT(K,5))
|
||||
CALL WGridPutCellReal(IDF_GRID1,7,NN,ORT(K,12))
|
||||
CALL WGridPutCellReal(IDF_GRID1,8,NN,ORT(K,11))
|
||||
CALL WGridPutCellReal(IDF_GRID1,9,NN,ORT(K,13))
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
DO K=1,L3DCNT
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,K,JND(K))
|
||||
CALL WGridPutCellInteger(IDF_GRID6,2,K,KKLAY(K))
|
||||
DO KK=1,KKLAY(K)
|
||||
CALL WGridPutCellReal(IDF_GRID6,KK+2,K,L3DDAT(K,KK))
|
||||
ENDDO
|
||||
ENDDO
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_HELP1) THEN
|
||||
IHSW=21
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 300
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK .OR. WInfoDialog(ExitButton) .EQ. IDF_PART1 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART3 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART4) THEN
|
||||
NMAT=0
|
||||
NN=0
|
||||
DO K=1,1000
|
||||
CALL WGridGetCellInteger(IDF_GRID1,1,K,KK)
|
||||
|
||||
IF(KK .LE. 0) THEN
|
||||
EXIT
|
||||
ELSE
|
||||
IF(KK .GT. NMAT) NMAT=KK
|
||||
ENDIF
|
||||
CALL WGridGetCellReal(IDF_GRID1,2,K,ORT(KK,1))
|
||||
CALL WGridGetCellReal(IDF_GRID1,3,K,ORT(KK,6))
|
||||
CALL WGridGetCellReal(IDF_GRID1,4,K,ORT(KK,8))
|
||||
CALL WGridGetCellReal(IDF_GRID1,5,K,ORT(KK,10))
|
||||
CALL WGridGetCellReal(IDF_GRID1,6,K,ORT(KK,5))
|
||||
CALL WGridGetCellReal(IDF_GRID1,7,K,ORT(KK,12))
|
||||
CALL WGridGetCellReal(IDF_GRID1,8,K,ORT(KK,11))
|
||||
CALL WGridGetCellReal(IDF_GRID1,9,K,ORT(KK,13))
|
||||
ENDDO
|
||||
|
||||
DO K=1,1000
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,K,JND(K))
|
||||
IF(JND(K) .LE. 0) THEN
|
||||
L3DCNT=K-1
|
||||
EXIT
|
||||
ENDIF
|
||||
CALL WGridGetCellInteger(IDF_GRID6,2,K,KKLAY(K))
|
||||
DO KK=1,KKLAY(K)
|
||||
CALL WGridGetCellReal(IDF_GRID6,KK+2,K,L3DDAT(K,KK))
|
||||
ENDDO
|
||||
ENDDO
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART1) GO TO 305
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART3) GO TO 505
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART4) GO TO 705
|
||||
|
||||
RETURN
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDCANCEL) THEN
|
||||
return
|
||||
ENDIF
|
||||
enddo
|
||||
|
||||
RETURN
|
||||
|
||||
! ************************************************************************************
|
||||
|
||||
500 IF(ITEM .NE. 3) GO TO 705
|
||||
505 CONTINUE
|
||||
|
||||
call wdialogload(IDD_CONTROLS2)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_CONTROLS2)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,1,TBFACT)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,2,TBMIN)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,3,UNOM)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,4,UDIR)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,5,UINP)
|
||||
CALL WGridPutCellReal(IDF_GRID3,1,6,VINP)
|
||||
|
||||
CALL WGridPutCellReal(IDF_GRID7,1,1,VMIN)
|
||||
CALL WGridPutCellReal(IDF_GRID7,1,2,POWER)
|
||||
CALL WGridPutCellReal(IDF_GRID7,1,3,UMIN)
|
||||
CALL WGridPutCellReal(IDF_GRID7,1,4,PWERIN)
|
||||
CALL WGridPutCellReal(IDF_GRID7,1,5,CMIN)
|
||||
CALL WGridPutCellReal(IDF_GRID7,1,6,CPR)
|
||||
CALL WGridPutCellReal(IDF_GRID7,1,7,PRCNT)
|
||||
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,1,IPROJ)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,2,ID1DND)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,3,NPRTF)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,4,NPRTI)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,5,IRSAV)
|
||||
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,6,IOUTFREQ)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,7,IOUTRST)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,8,IREWMES)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,9,IREWOUT)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,10,IDSWT)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,11,ISAVITR)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,12,IVERTDEN)
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,13,IFXBC)
|
||||
IF(IEQSWT .EQ. 0) IEQSWT=20000
|
||||
CALL WGridPutCellInteger(IDF_GRID6,1,14,IEQSWT)
|
||||
|
||||
|
||||
call wdialogPutcheckbox(IDF_CHECK1,IGRV)
|
||||
call wdialogPutcheckbox(IDF_CHECK2,IOV)
|
||||
call wdialogPutcheckbox(IDF_CHECK3,INTG(16))
|
||||
call wdialogPutcheckbox(IDF_CHECK12,IOOC)
|
||||
|
||||
call wdialogPutcheckbox(IDF_CHECK7,IZB)
|
||||
call wdialogPutcheckbox(IDF_CHECK11,IZERS)
|
||||
call wdialogPutcheckbox(IDF_CHECK8,IPASS1)
|
||||
call wdialogPutcheckbox(IDF_CHECK9,IPASS2)
|
||||
call wdialogPutcheckbox(IDF_CHECK10,IPASS3)
|
||||
|
||||
do kk=1,6
|
||||
if(iccomp(kk) .eq. 1) THEN
|
||||
call wdialogPutcheckbox(IDF_CHECK4,1)
|
||||
endif
|
||||
if(iccomp(kk) .eq. 2) THEN
|
||||
call wdialogPutcheckbox(IDF_CHECK5,1)
|
||||
endif
|
||||
if(iccomp(kk) .eq. 3) THEN
|
||||
call wdialogPutcheckbox(IDF_CHECK6,1)
|
||||
endif
|
||||
if(iccomp(kk) .eq. 4) THEN
|
||||
call wdialogPutcheckbox(IDF_CHECK13,1)
|
||||
endif
|
||||
if(iccomp(kk) .eq. 5) THEN
|
||||
call wdialogPutcheckbox(IDF_CHECK14,1)
|
||||
endif
|
||||
if(iccomp(kk) .eq. 6) THEN
|
||||
call wdialogPutcheckbox(IDF_CHECK15,1)
|
||||
endif
|
||||
enddo
|
||||
|
||||
DO KK=1,ICTOTC
|
||||
CALL WGridPutCellInteger(IDF_CCLINE,1,KK,NCSPLPT(KK))
|
||||
ENDDO
|
||||
|
||||
DO KK=1,20
|
||||
CALL WGridPutCellInteger(IDF_GRID4,1,KK,ISPRTN(KK))
|
||||
ENDDO
|
||||
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_HELP1) THEN
|
||||
IHSW=22
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 505
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK .OR. WInfoDialog(ExitButton) .EQ. IDF_PART1 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART2 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART4) THEN
|
||||
|
||||
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,1,TBFACT)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,2,TBMIN)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,3,UNOM)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,4,UDIR)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,5,UINP)
|
||||
CALL WGridGetCellReal(IDF_GRID3,1,6,VINP)
|
||||
|
||||
|
||||
CALL WGridGetCellReal(IDF_GRID7,1,1,VMIN)
|
||||
CALL WGridGetCellReal(IDF_GRID7,1,2,POWER)
|
||||
CALL WGridGetCellReal(IDF_GRID7,1,3,UMIN)
|
||||
CALL WGridGetCellReal(IDF_GRID7,1,4,PWERIN)
|
||||
CALL WGridGetCellReal(IDF_GRID7,1,5,CMIN)
|
||||
CALL WGridGetCellReal(IDF_GRID7,1,6,CPR)
|
||||
CALL WGridGetCellReal(IDF_GRID7,1,7,PRCNT)
|
||||
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,1,IPROJ)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,2,ID1DND)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,3,NPRTF)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,4,NPRTI)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,5,IRSAV)
|
||||
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,6,IOUTFREQ)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,7,IOUTRST)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,8,IREWMES)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,9,IREWOUT)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,10,IDSWT)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,11,ISAVITR)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,12,IVERTDEN)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,13,IFXBC)
|
||||
CALL WGridGetCellInteger(IDF_GRID6,1,14,IEQSWT)
|
||||
IF(IEQSWT .EQ. 0) IEQSWT=20000
|
||||
|
||||
call wdialogGetcheckbox(IDF_CHECK1,IGRV)
|
||||
call wdialogGetcheckbox(IDF_CHECK2,IOV)
|
||||
call wdialogGetcheckbox(IDF_CHECK3,INTG(16))
|
||||
call wdialogGetcheckbox(IDF_CHECK12,IOOC)
|
||||
|
||||
call wdialogGetcheckbox(IDF_CHECK7,IZB)
|
||||
call wdialogGetcheckbox(IDF_CHECK11,IZERS)
|
||||
call wdialogGetcheckbox(IDF_CHECK8,IPASS1)
|
||||
call wdialogGetcheckbox(IDF_CHECK9,IPASS2)
|
||||
call wdialogGetcheckbox(IDF_CHECK10,IPASS3)
|
||||
|
||||
call wdialogGetcheckbox(IDF_CHECK4,ILB(1))
|
||||
call wdialogGetcheckbox(IDF_CHECK5,ILB(2))
|
||||
call wdialogGetcheckbox(IDF_CHECK6,ILB(3))
|
||||
call wdialogGetcheckbox(IDF_CHECK13,ILB(4))
|
||||
call wdialogGetcheckbox(IDF_CHECK14,ILB(5))
|
||||
call wdialogGetcheckbox(IDF_CHECK15,ILB(6))
|
||||
if(ilb(1) .eq. 1) then
|
||||
iccomp(1) =1
|
||||
else
|
||||
iccomp(1) =0
|
||||
endif
|
||||
if(ilb(2) .eq. 1) then
|
||||
iccomp(2) =2
|
||||
else
|
||||
iccomp(2) =0
|
||||
endif
|
||||
if(ilb(3) .eq. 1) then
|
||||
iccomp(3) =3
|
||||
else
|
||||
iccomp(3) =0
|
||||
endif
|
||||
if(ilb(4) .eq. 1) then
|
||||
iccomp(4) =4
|
||||
else
|
||||
iccomp(4) =0
|
||||
endif
|
||||
if(ilb(5) .eq. 1) then
|
||||
iccomp(5) =5
|
||||
else
|
||||
iccomp(5) =0
|
||||
endif
|
||||
if(ilb(6) .eq. 1) then
|
||||
iccomp(6) =6
|
||||
else
|
||||
iccomp(6) =0
|
||||
endif
|
||||
|
||||
|
||||
DO KK=1,30
|
||||
CALL WGridGetCellInteger(IDF_CCLINE,1,KK,NCSPLPT(KK))
|
||||
IF(NCSPLPT(KK) .LE. 0) THEN
|
||||
ICTOTC=KK-1
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
DO KK=1,20
|
||||
CALL WGridGetCellInteger(IDF_GRID4,1,KK,ISPRTN(KK))
|
||||
IF(ISPRTN(KK) .EQ. 0) THEN
|
||||
NSPRTN=KK-1
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART1) GO TO 305
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART2) GO TO 405
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART4) GO TO 705
|
||||
RETURN
|
||||
ELSE
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDDO
|
||||
RETURN
|
||||
|
||||
! *******************************************************************
|
||||
705 call wdialogload(IDD_MISC)
|
||||
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_MISC)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogPutInteger(IDF_INTEGER1,INTG(18))
|
||||
CALL WDialogPutInteger(IDF_INTEGER2,INTG(19))
|
||||
CALL WDialogPutInteger(IDF_INTEGER3,INTG(20))
|
||||
|
||||
call wdialogPutcheckbox(IDF_CHECK1,INTG(21))
|
||||
|
||||
CALL WDialogPutReal(IDF_REAL1,RLDAT(12))
|
||||
CALL WDialogPutReal(IDF_REAL2,RLDAT(13))
|
||||
CALL WDialogPutReal(IDF_REAL3,RLDAT(14))
|
||||
CALL WDialogPutReal(IDF_REAL4,RLDAT(15))
|
||||
CALL WDialogPutReal(IDF_REAL5,RLDAT(16))
|
||||
CALL WDialogPutReal(IDF_REAL7,RLDAT(18))
|
||||
|
||||
|
||||
DO KK=1,20
|
||||
IF(MARSTYP(KK) .EQ. 0) CYCLE
|
||||
CALL WGridPutCellInteger(IDF_GRID2,1,KK,MARSTYP(KK))
|
||||
CALL WGridPutCellReal(IDF_GRID2,2,KK,RMARSTYP(KK,1))
|
||||
CALL WGridPutCellReal(IDF_GRID2,3,KK,RMARSTYP(KK,2))
|
||||
CALL WGridPutCellReal(IDF_GRID2,4,KK,RMARSTYP(KK,3))
|
||||
CALL WGridPutCellReal(IDF_GRID2,5,KK,RMARSTYP(KK,4))
|
||||
ENDDO
|
||||
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_HELP1) THEN
|
||||
IHSW=23
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 705
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK .OR. WInfoDialog(ExitButton) .EQ. IDF_PART1 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART2 .OR. WInfoDialog(ExitButton) .EQ. IDF_PART3) THEN
|
||||
|
||||
CALL WDialogGetInteger(IDF_INTEGER1,INTG(18))
|
||||
CALL WDialogGetInteger(IDF_INTEGER2,INTG(19))
|
||||
CALL WDialogGetInteger(IDF_INTEGER3,INTG(20))
|
||||
|
||||
call wdialogGetcheckbox(IDF_CHECK1,INTG(21))
|
||||
|
||||
CALL WDialogGetReal(IDF_REAL1,RLDAT(12))
|
||||
CALL WDialogGetReal(IDF_REAL2,RLDAT(13))
|
||||
CALL WDialogGetReal(IDF_REAL3,RLDAT(14))
|
||||
CALL WDialogGetReal(IDF_REAL4,RLDAT(15))
|
||||
CALL WDialogGetReal(IDF_REAL5,RLDAT(16))
|
||||
CALL WDialogGetReal(IDF_REAL7,RLDAT(18))
|
||||
|
||||
|
||||
DO KK=1,20
|
||||
CALL WGridGetCellInteger(IDF_GRID2,1,KK,MARSTYP(KK))
|
||||
IF(MARSTYP(KK) .LE. 0) CYCLE
|
||||
CALL WGridGetCellReal(IDF_GRID2,2,KK,RMARSTYP(KK,1))
|
||||
CALL WGridGetCellReal(IDF_GRID2,3,KK,RMARSTYP(KK,2))
|
||||
CALL WGridGetCellReal(IDF_GRID2,4,KK,RMARSTYP(KK,3))
|
||||
CALL WGridGetCellReal(IDF_GRID2,5,KK,RMARSTYP(KK,4))
|
||||
NMARSTYP=KK
|
||||
ENDDO
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART1) GO TO 305
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART2) GO TO 405
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_PART3) GO TO 505
|
||||
RETURN
|
||||
ELSE
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDDO
|
||||
RETURN
|
||||
END
|
||||
|
||||
SUBROUTINE DEFAULTCN
|
||||
USE BLKRM10
|
||||
|
||||
|
||||
DO L=1,72
|
||||
TITLEHEAD(L:L)=' '
|
||||
DO K=1,43
|
||||
FNAME(K)(L:L)=' '
|
||||
ENDDO
|
||||
|
||||
ENDDO
|
||||
FNAME(1)='MESH.GEO'
|
||||
FNAME(11)='RESULTS.OUT'
|
||||
FNAME(12)='BRESULTS.RMA'
|
||||
DATEST=' '
|
||||
DATEND=' '
|
||||
DATENDST='31/01/2018 12.00'
|
||||
|
||||
! MFWW=1000
|
||||
LIMITVAL(1)=1000
|
||||
LIMITDFT(1)=1000
|
||||
! NBSS=5000000
|
||||
LIMITVAL(2)=5000000
|
||||
LIMITDFT(2)=5000000
|
||||
! MAXLAY=10
|
||||
LIMITVAL(3)=10
|
||||
LIMITDFT(3)=10
|
||||
! MCRS=1000
|
||||
LIMITVAL(4)=1000
|
||||
LIMITDFT(4)=1000
|
||||
! MPTS=50
|
||||
LIMITVAL(5)=50
|
||||
LIMITDFT(5)=50
|
||||
! NQLDS=20
|
||||
LIMITVAL(6)=20
|
||||
LIMITDFT(6)=20
|
||||
! NHDS=20
|
||||
LIMITVAL(7)=20
|
||||
LIMITDFT(7)=20
|
||||
! NELDS=50
|
||||
LIMITVAL(8)=50
|
||||
LIMITDFT(8)=50
|
||||
|
||||
! IPRT
|
||||
IDEFLT(3)=1
|
||||
INTG(3)=1
|
||||
! NITI
|
||||
IDEFLT(4)=10
|
||||
INTG(4)=10
|
||||
! NITN
|
||||
IDEFLT(5)=10
|
||||
INTG(5)=10
|
||||
! IDNOPT
|
||||
IDEFLT(6)=0
|
||||
INTG(6)=0
|
||||
! IPROJ
|
||||
IDEFLT(7)=1
|
||||
INTG(7)=1
|
||||
! ITSI
|
||||
IDEFLT(8)=-12
|
||||
INTG(8)=-12
|
||||
! ID1DND
|
||||
IDEFLT(9)=1
|
||||
INTG(9)=1
|
||||
! IRSTMES
|
||||
IDEFLT(10)=0
|
||||
INTG(10)=0
|
||||
! NCYC
|
||||
IDEFLT(11)=0
|
||||
INTG(11)=0
|
||||
! JRED
|
||||
IDEFLT(12)=0
|
||||
INTG(12)=0
|
||||
! JHOLD
|
||||
IDEFLT(13)=4
|
||||
INTG(13)=4
|
||||
! IGRAV
|
||||
IDEFLT(14)=1
|
||||
INTG(14)=1
|
||||
! IOV
|
||||
IDEFLT(15)=0
|
||||
INTG(15)=0
|
||||
! IINIT
|
||||
IDEFLT(16)=0
|
||||
INTG(16)=0
|
||||
! EDDYTYPE IEDSW
|
||||
IDEFLT(17)=1
|
||||
INTG(17)=1
|
||||
! LI DRY NODE FREQUENCY
|
||||
IDEFLT(18)=0
|
||||
INTG(18)=0
|
||||
! IHOE HIGHER ORDER INTEGRATION
|
||||
IDEFLT(19)=0
|
||||
INTG(19)=0
|
||||
! I9NOD 9 NODE ELEMENTS
|
||||
IDEFLT(20)=0
|
||||
INTG(20)=0
|
||||
! ISTDRST RESTART FILE PER STEP
|
||||
IDEFLT(21)=0
|
||||
INTG(21)=0
|
||||
! ISAVSTRT START BINARY FILE
|
||||
IDEFLT(22)=1
|
||||
INTG(22)=1
|
||||
! ISAVFRQ FREQUENCY OF BINRAY FILE
|
||||
IDEFLT(23)=1
|
||||
INTG(23)=1
|
||||
! IRSTFRQ FREQUENCY OF RESTART FILE
|
||||
IDEFLT(24)=1
|
||||
INTG(24)=1
|
||||
! NUMRST NUMBER OF RESTART FILES
|
||||
IDEFLT(25)=0
|
||||
INTG(25)=0
|
||||
! ICPU SOLVER TYPE
|
||||
IDEFLT(26)=5
|
||||
INTG(26)=5
|
||||
! IDAYINTP Day interval for saving of binary results
|
||||
IDEFLT(27)=0
|
||||
INTG(27)=0
|
||||
|
||||
|
||||
NMAT=1
|
||||
|
||||
! ELEV=0.
|
||||
RDEFLT(1)=0.
|
||||
RLDAT(1)=0
|
||||
|
||||
! OMEGA=0.
|
||||
RDEFLT(2)=0.
|
||||
RLDAT(2)=0
|
||||
|
||||
! CONVX=0.01
|
||||
RDEFLT(3)=0.01
|
||||
RLDAT(3)=0.01
|
||||
|
||||
! CONVH=0.001
|
||||
RDEFLT(4)=0.001
|
||||
RLDAT(4)=0.001
|
||||
|
||||
! ACT1=2.
|
||||
RDEFLT(5)=2.
|
||||
RLDAT(5)=2.
|
||||
|
||||
! ACT2=0.25
|
||||
RDEFLT(6)=0.25
|
||||
RLDAT(6)=0.25
|
||||
|
||||
! ACT3=0.01
|
||||
RDEFLT(7)=0.01
|
||||
RLDAT(7)=0.01
|
||||
|
||||
! ACT4=0.0
|
||||
RDEFLT(8)=0.0
|
||||
RLDAT(8)=0.0
|
||||
|
||||
! tbfact=0.2
|
||||
RDEFLT(9)=0.2
|
||||
RLDAT(9)=0.2
|
||||
|
||||
! tbmin-1.0
|
||||
RDEFLT(10)=1.0
|
||||
RLDAT(10)=1.0
|
||||
|
||||
! TOLERAN=10.
|
||||
RDEFLT(11)=10.0
|
||||
RLDAT(11)=10.0
|
||||
|
||||
! X-SCALE=0.
|
||||
RDEFLT(12)=1.0
|
||||
RLDAT(12)=1.0
|
||||
|
||||
! Y-SCALE=0.
|
||||
RDEFLT(13)=1.0
|
||||
RLDAT(13)=1.0
|
||||
|
||||
! Z-SCALE=0.
|
||||
RDEFLT(14)=1.0
|
||||
RLDAT(14)=1.0
|
||||
|
||||
! DSET=0.
|
||||
RDEFLT(15)=0.0
|
||||
RLDAT(15)=0.0
|
||||
|
||||
! DSETD=0.
|
||||
RDEFLT(16)=0.0
|
||||
RLDAT(16)=0.0
|
||||
|
||||
! UNOM=0.25
|
||||
RDEFLT(17)=0.25
|
||||
RLDAT(17)=0.25
|
||||
|
||||
! HMIN=0.
|
||||
RDEFLT(18)=0.0
|
||||
RLDAT(18)=0.0
|
||||
|
||||
! FHOURINTP=0.
|
||||
RDEFLT(19)=0.0
|
||||
RLDAT(19)=0.0
|
||||
|
||||
! DPCUTOF1=0.
|
||||
RDEFLT(20)=0.0
|
||||
RLDAT(20)=0.0
|
||||
|
||||
! DPCUTOF2=0.
|
||||
RDEFLT(21)=0.0
|
||||
RLDAT(21)=0.0
|
||||
|
||||
|
||||
|
||||
|
||||
DO K=1,1000
|
||||
ITYP(K)=0
|
||||
ORT(K,1)=-0.2
|
||||
ORT(K,5)=0.02
|
||||
ORT(K,7)=10.
|
||||
ORTDFLT(K,1)=-0.2
|
||||
ORTDFLT(K,5)=0.02
|
||||
ORTDFLT(K,7)=10.
|
||||
ENDDO
|
||||
ITYP(1)=1
|
||||
|
||||
DELTM=0.
|
||||
DELTH=0.
|
||||
DELTM(2)=15.
|
||||
JT=2
|
||||
IQLIN=0
|
||||
IQLIN(1,1)=1
|
||||
IQLIN(1,2)=1
|
||||
QLIN=0.
|
||||
QLIN(1,1)=50.
|
||||
QLIN(1,2)=50.
|
||||
iqlin1=0
|
||||
IQLIN1(1,1)=1
|
||||
IQLIN1(1,2)=1
|
||||
QDLIN=-9999.
|
||||
QDLIN(1,1)=0.00
|
||||
QDLIN(1,2)=0.00
|
||||
IHLIN=0
|
||||
IHLIN(1,1)=2
|
||||
IHLIN(1,2)=2
|
||||
HLIN=-9999.
|
||||
HLIN(1,1)=0.
|
||||
HLIN(1,2)=0.
|
||||
HLIN1=-9999.
|
||||
IELIN=0
|
||||
NQLIN=0
|
||||
NQLIN(1)=1
|
||||
NQLIN(2)=1
|
||||
NHLIN=0
|
||||
NHLIN(1)=1
|
||||
NHLIN(2)=1
|
||||
NELIN=0
|
||||
ELIN=0.
|
||||
ELIN(1,1)=6.
|
||||
ELIN(1,2)=6.
|
||||
QCKLIN=0
|
||||
HCKLIN=0
|
||||
ECKLIN=0
|
||||
ECKLIN1=0
|
||||
ECKLIN1(1,1)=1
|
||||
ECKLIN1(1,2)=1
|
||||
ECKLIN2=0
|
||||
IETP=0
|
||||
IETP(1,1)=1
|
||||
IETP(1,2)=1
|
||||
IELIN=0
|
||||
IELIN(1,1)=5
|
||||
IELIN(1,2)=5
|
||||
ISFLIN=0
|
||||
NSFLIN=0
|
||||
SFLIN=0
|
||||
SFLIN1=0.
|
||||
SFLIN2=0.
|
||||
SFLIN3=0.
|
||||
SFLIN4=0.
|
||||
IFCLIN=-999
|
||||
IFCLIN1=0
|
||||
NFCLIN=0
|
||||
FCLIN1=0.
|
||||
FCLIN2=0.
|
||||
FCLIN3=0.
|
||||
FCLIN4=0.
|
||||
FCLIN5=0.
|
||||
FCLIN6=0.
|
||||
|
||||
WVEL=0.
|
||||
WDIR=0.
|
||||
IWIND=0
|
||||
IWUNITS=0
|
||||
|
||||
ICFLOWS=0
|
||||
ICELEV=0
|
||||
ICDEP=0
|
||||
ISPRTN=0
|
||||
|
||||
WDT=0.
|
||||
IWTYP=0
|
||||
NWR=0
|
||||
ICTOTC=0
|
||||
ICPLIN=0
|
||||
|
||||
IGATE=0
|
||||
JGATE=0
|
||||
RETURN
|
||||
END
|
||||
|
||||
@ -0,0 +1,162 @@
|
||||
SUBROUTINE SHOWEXTR
|
||||
! SHOW EXTRA PAGE
|
||||
|
||||
USE WINTERACTER
|
||||
|
||||
USE RESID
|
||||
|
||||
USE BLKRM10
|
||||
|
||||
integer ilb(3)
|
||||
CHARACTER*6 KEYL
|
||||
character*1 alab
|
||||
300 CONTINUE
|
||||
call wdialogload(IDD_EXTR)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_EXTR)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WGridPutCellString(IDF_GRID3,1,1,'TYP-ELTP')
|
||||
CALL WGridPutCellString(IDF_GRID3,2,1,'BRD-DECK')
|
||||
CALL WGridPutCellString(IDF_GRID3,3,1,'BRD-LMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,4,1,'BRD-HMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,5,1,'BRD-BLOK')
|
||||
CALL WGridPutCellString(IDF_GRID3,6,1,'BRD-FORM')
|
||||
CALL WGridPutCellString(IDF_GRID3,7,1,'BRD-SRGF')
|
||||
CALL WGridPutCellString(IDF_GRID3,8,1,'BRD-INSW')
|
||||
CALL WGridPutCellString(IDF_GRID3,2,2,'PIP-DIAM')
|
||||
CALL WGridPutCellString(IDF_GRID3,3,2,'PIP-LMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,4,2,'PIP-HMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,6,2,'PIP-ENTL')
|
||||
CALL WGridPutCellString(IDF_GRID3,7,2,'PIP-EXTL')
|
||||
CALL WGridPutCellString(IDF_GRID3,8,2,'PIP-NUMB')
|
||||
CALL WGridPutCellString(IDF_GRID3,2,3,'CUL-HGHT')
|
||||
CALL WGridPutCellString(IDF_GRID3,3,3,'CUL-LMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,4,3,'CUL-HMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,6,3,'CUL-ENTL')
|
||||
CALL WGridPutCellString(IDF_GRID3,7,3,'CUL-EXTL')
|
||||
CALL WGridPutCellString(IDF_GRID3,8,3,'CUL-NUMB')
|
||||
CALL WGridPutCellString(IDF_GRID3,2,4,'MAN-ELVL')
|
||||
CALL WGridPutCellString(IDF_GRID3,3,4,'MAN-LMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,4,4,'MAN-HMAN')
|
||||
CALL WGridPutCellString(IDF_GRID3,5,4,'MAN-ELVH')
|
||||
CALL WGridPutCellString(IDF_GRID3,6,4,'MAN-SLOP')
|
||||
JJ=0
|
||||
JK=0
|
||||
DO J=1,1000
|
||||
IF(IEXTYP(J) .LE. 0) CYCLE
|
||||
IF(IEXTYP(J) .EQ. 4) THEN
|
||||
WRITE(ALAB,'(''B'')')
|
||||
ELSEIF(IEXTYP(J) .EQ. 3) THEN
|
||||
WRITE(ALAB,'(''P'')')
|
||||
ELSEIF(IEXTYP(J) .EQ. 2) THEN
|
||||
WRITE(ALAB,'(''C'')')
|
||||
ELSEIF(IEXTYP(J) .EQ. 1) THEN
|
||||
WRITE(ALAB,'(''M'')')
|
||||
ELSEIF(IEXTYP(J) .EQ. 5) THEN
|
||||
JK=JK+1
|
||||
CALL WGridPutCellInteger(IDF_GRID4,1,JK,J)
|
||||
CALL WGridPutCellInteger(IDF_GRID4,2,JK,IGATE(J,1))
|
||||
CALL WGridPutCellInteger(IDF_GRID4,3,JK,IGATE(J,2))
|
||||
GO TO 310
|
||||
ENDIF
|
||||
JJ=JJ+1
|
||||
CALL WGridPutCellString(IDF_GRID2,1,JJ,ALAB)
|
||||
CALL WGridPutCellInteger(IDF_GRID2,2,JJ,J)
|
||||
CALL WGridPutCellReal(IDF_GRID2,3,JJ,ELMMIN(J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,4,JJ,MANMIN(J))
|
||||
IF(ALAB .EQ. 'M') THEN
|
||||
CALL WGridPutCellReal(IDF_GRID2,5,JJ,MANMAX(J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,6,JJ,ELMMAX(J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,7,JJ,MANSLOP(J))
|
||||
ELSE
|
||||
CALL WGridPutCellReal(IDF_GRID2,5,JJ,ELMMAX(J))
|
||||
IF(IEXTYP(J) .EQ. 4) THEN
|
||||
CALL WGridPutCellReal(IDF_GRID2,6,JJ,MANMAX(J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,7,JJ,MANSLOP(J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,8,JJ,BF2(J))
|
||||
ELSE
|
||||
CALL WGridPutCellReal(IDF_GRID2,7,JJ,MANMAX(J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,8,JJ,MANSLOP(J))
|
||||
ENDIF
|
||||
CALL WGridPutCellInteger(IDF_GRID2,9,JJ,IBF1(J))
|
||||
ENDIF
|
||||
310 CONTINUE
|
||||
ENDDO
|
||||
|
||||
DO J=1,JET
|
||||
CALL WGridPutCellInteger(IDF_GRID1,1,J,IELTOPIP(J))
|
||||
CALL WGridPutCellInteger(IDF_GRID1,2,J,IPIPTOEL(J))
|
||||
ENDDO
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_HELP) THEN
|
||||
IHSW=8
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 300
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||||
|
||||
DO J=1,1000
|
||||
CALL WGridGetCellString(IDF_GRID2,1,J,ALAB)
|
||||
IF(ALAB .EQ. ' ') EXIT
|
||||
CALL WGridGetCellInteger(IDF_GRID2,2,J,JJ)
|
||||
|
||||
CALL WGridGetCellReal(IDF_GRID2,3,J,ELMMIN(JJ))
|
||||
CALL WGridGetCellReal(IDF_GRID2,4,J,MANMIN(JJ))
|
||||
IF(ALAB .EQ. 'M') THEN
|
||||
CALL WGridGetCellReal(IDF_GRID2,5,J,MANMAX(JJ))
|
||||
CALL WGridGetCellReal(IDF_GRID2,6,J,ELMMAX(JJ))
|
||||
CALL WGridGetCellReal(IDF_GRID2,7,J,MANSLOP(JJ))
|
||||
ELSE
|
||||
CALL WGridGetCellReal(IDF_GRID2,5,J,ELMMAX(JJ))
|
||||
IF(ALAB .EQ. 'B') THEN
|
||||
CALL WGridGetCellReal(IDF_GRID2,6,J,MANMAX(JJ))
|
||||
CALL WGridGetCellReal(IDF_GRID2,7,J,MANSLOP(JJ))
|
||||
CALL WGridGetCellReal(IDF_GRID2,8,J,BF2(JJ))
|
||||
ELSE
|
||||
CALL WGridGetCellReal(IDF_GRID2,7,J,MANMAX(JJ))
|
||||
CALL WGridGetCellReal(IDF_GRID2,8,J,MANSLOP(JJ))
|
||||
ENDIF
|
||||
CALL WGridGetCellInteger(IDF_GRID2,9,J,IBF1(JJ))
|
||||
ENDIF
|
||||
IF(ALAB .EQ. 'B') THEN
|
||||
IEXTYP(JJ)=4
|
||||
ELSEIF(ALAB .EQ. 'P') THEN
|
||||
IEXTYP(JJ)=3
|
||||
ELSEIF(ALAB .EQ. 'C') THEN
|
||||
IEXTYP(JJ)=2
|
||||
ELSE
|
||||
IEXTYP(JJ)=1
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
DO J=1,10
|
||||
CALL WGridGetCellInteger(IDF_GRID1,1,J,IELTOPIP(J))
|
||||
IF(IELTOPIP(J) .LT. 0) THEN
|
||||
JET=J-1
|
||||
EXIT
|
||||
ENDIF
|
||||
CALL WGridGetCellInteger(IDF_GRID1,2,J,IPIPTOEL(J))
|
||||
ENDDO
|
||||
|
||||
DO J=1,10
|
||||
CALL WGridGetCellInteger(IDF_GRID4,1,J,JGATE)
|
||||
IF(JGATE .LE. 0) EXIT
|
||||
CALL WGridGetCellInteger(IDF_GRID4,2,J,IGATE(JGATE,1))
|
||||
CALL WGridGetCellInteger(IDF_GRID4,3,J,IGATE(JGATE,2))
|
||||
ENDDO
|
||||
|
||||
|
||||
RETURN
|
||||
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDCANCEL) THEN
|
||||
return
|
||||
ENDIF
|
||||
enddo
|
||||
|
||||
RETURN
|
||||
END
|
||||
@ -0,0 +1,107 @@
|
||||
SUBROUTINE SHOWFILES
|
||||
! SHOW FILE PAGE
|
||||
|
||||
USE WINTERACTER
|
||||
|
||||
USE RESID
|
||||
|
||||
USE BLKRM10
|
||||
|
||||
300 call wdialogload(IDD_FILENAMES)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_FILENAMES)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogPutString(idf_string1,TITLEHEAD)
|
||||
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 1,'Input binary file with geometric data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 2,'Input ASCII file with geometric data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 3,'Input binary file with restart data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 4,'Input ASCII file with cross-section data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 5,'Input ASCII file with boundary flow data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 6,'Input ASCII file with elevation boundary data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 7,'Input ASCII file with element inflow data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 8,'Input binary element inflow data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1, 9,'Input ASCII file with elevation harmonic boundary data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,10,'Input ASCII file with meteorological data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,11,'Output ASCII results')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,12,'Output binary file with new format results data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,13,'Output binary file with restart data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,14,'Output binary file with 3-D geometry data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,15,'Output ASCII file with continuity line flow data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,16,'Output ASCII file with summary meteorological input')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,17,'Output ASCII file with cpu timing data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,18,'Input binary file with wind data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,19,'Input ASCII file with wind data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,20,'Output binary file listing extracted results for specified nodes')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,21,'Output ASCII file listing extracted results for specified nodes')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,22,'Output binary element inflow data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,23,'Input coordinates for surface stresses')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,24,'Input binary weighting file for surface stresses')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,25,'Input binary file for surface stresses')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,26,'Output binary weighting file for surface stresses')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,27,'Output ASCII weighting file for surface stresses')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,28,'Input ASCII file with group number data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,29,'Input ASCII file with stage flow data for continuity lines')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,30,'Input ASCII temperature stratification data file')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,31,'Input ASCII file with continuation transient step data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,32,'Output ASCII file with average salinity/total flow')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,33,'Output binary file with old format results data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,34,'Input binary file with velocity/depth data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,35,'Input binary file with 3-D geometry data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,36,'Output binary file with 2-D geometry data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,37,'Input SMS format geometry file')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,38,'Output SMS RMA-2 format file with horizontal velocity and depth data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,39,'Output SMS RMA4 format file with salinity, temperate and sediment data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,40,'Output binary RMA-11 format file listing 1-d flows as a pseudo WQ constituent')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,41,'Input ASCII file containing nodal boundary condition data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,42,'Input binary file containing nodal boundary condition data')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,43,'Output ice results')
|
||||
DO K=1,43
|
||||
CALL WGridPutCellString(IDF_GRID1,2,K,fname(K))
|
||||
ENDDO
|
||||
|
||||
CALL WGridPutCellString(IDF_GRID2,1,1,'Max Front')
|
||||
CALL WGridPutCellString(IDF_GRID2,1,2,'Solver Buffer Size')
|
||||
CALL WGridPutCellString(IDF_GRID2,1,3,'Max Layers')
|
||||
CALL WGridPutCellString(IDF_GRID2,1,4,'Max Cross-Sec')
|
||||
CALL WGridPutCellString(IDF_GRID2,1,5,'Max C-S Pts')
|
||||
CALL WGridPutCellString(IDF_GRID2,1,6,'Max Inflows')
|
||||
CALL WGridPutCellString(IDF_GRID2,1,7,'Max Elevation BCs')
|
||||
CALL WGridPutCellString(IDF_GRID2,1,8,'Max Element Inflows')
|
||||
|
||||
do k=1,8
|
||||
CALL WGridPutCellInteger(IDF_GRID2,2,K,LIMITVAL(K))
|
||||
ENDDO
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDF_HELP) THEN
|
||||
IHSW=0
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 300
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||||
|
||||
CALL WDialogGetString(idf_string1,TITLEHEAD)
|
||||
|
||||
DO K=1,43
|
||||
CALL WGridGetCellString(IDF_GRID1,2,K,fname(K))
|
||||
ENDDO
|
||||
|
||||
DO K=1,8
|
||||
CALL WGridGetCellInteger(IDF_GRID2,2,K,LIMITVAL(K))
|
||||
ENDDO
|
||||
|
||||
RETURN
|
||||
else
|
||||
return
|
||||
endif
|
||||
enddo
|
||||
|
||||
RETURN
|
||||
END
|
||||
|
||||
@ -0,0 +1,316 @@
|
||||
SUBROUTINE SHOWTIMESTP(J)
|
||||
! SHOW CONTROL PAGE
|
||||
|
||||
USE WINTERACTER
|
||||
|
||||
USE RESID
|
||||
|
||||
USE BLKRM10
|
||||
call wdialogload(IDD_GETTIMSTP)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_GETTIMSTP)
|
||||
ierr=infoerror(1)
|
||||
50 IF(J .EQ. 1) THEN
|
||||
call wdialogputRadioButton(idf_radio1)
|
||||
ELSE
|
||||
call wdialogputRadioButton(idf_radio2)
|
||||
CALL WDialogPutInteger(IDF_INTEGER1,J-1)
|
||||
ENDIF
|
||||
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDHELP) THEN
|
||||
IHSW=7
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 50
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||||
call wdialogGetRadioButton(idf_radio1,J)
|
||||
IF(J .GT. 1) THEN
|
||||
CALL WDialogGetInteger(IDF_INTEGER1,JJ)
|
||||
J=JJ+1
|
||||
IF(J .EQ. 1) J=2
|
||||
ENDIF
|
||||
|
||||
if(j .gt. jt) jt=j
|
||||
go to 95
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDCANCEL)THEN
|
||||
RETURN
|
||||
endif
|
||||
enddo
|
||||
95 continue
|
||||
|
||||
call wdialogload(IDD_TIMESTEP)
|
||||
ierr=infoerror(1)
|
||||
100 CONTINUE
|
||||
CALL WDialogSelect(IDD_TIMESTEP)
|
||||
ierr=infoerror(1)
|
||||
|
||||
if(J .EQ. 1) THEN
|
||||
DELT(1)=0.
|
||||
DELTM(J)=0.
|
||||
DATENDST(J)=' '
|
||||
ISTATE=0
|
||||
CALL WDialogFieldState(IDF_REAL1,ISTATE)
|
||||
CALL WDialogFieldState(IDF_REAL2,ISTATE)
|
||||
CALL WDialogFieldState(IDF_STRING9,ISTATE)
|
||||
ELSE
|
||||
ISTATE=1
|
||||
CALL WDialogFieldState(IDF_REAL1,ISTATE)
|
||||
CALL WDialogFieldState(IDF_REAL2,ISTATE)
|
||||
CALL WDialogFieldState(IDF_STRING9,ISTATE)
|
||||
ENDIF
|
||||
|
||||
CALL WDialogPutReal(IDF_REAL1,DELT(J))
|
||||
CALL WDialogPutReal(IDF_REAL2,DELTM(J))
|
||||
|
||||
CALL WDialogPutString(IDF_STRING9,DATENDST(J))
|
||||
CALL WDialogPutReal(IDF_REAL5,URLC(J))
|
||||
CALL WDialogPutInteger(IDF_INTEGER2,NRITR(J))
|
||||
|
||||
DO K=1,20
|
||||
IF(IQLIN(K,J) .GT. 0) THEN
|
||||
CALL WGridPutCellInteger(IDF_GRID1,1,K,iqlin1(K,J))
|
||||
CALL WGridPutCellCheckbox(IDF_GRID1,2,K,qcklin(K,J))
|
||||
CALL WGridPutCellInteger(IDF_GRID1,3,K,iqlin(K,J))
|
||||
CALL WGridPutCellInteger(IDF_GRID1,4,K,LAYNUMQ(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID1,5,K,qlin(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID1,6,K,qdlin(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID1,7,K,QUALKQ(K,J,1))
|
||||
CALL WGridPutCellReal(IDF_GRID1,8,K,QUALKQ(K,J,2))
|
||||
CALL WGridPutCellReal(IDF_GRID1,9,K,QUALKQ(K,J,3))
|
||||
ENDIF
|
||||
IF(IHLIN(K,J) .GT. 0) THEN
|
||||
CALL WGridPutCellInteger(IDF_GRID2,1,K,ihlin(K,J))
|
||||
CALL WGridPutCellCheckbox(IDF_GRID2,2,K,hcklin(K,J))
|
||||
CALL WGridPutCellCheckbox(IDF_GRID2,3,K,hcklin1(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,4,K,hlin(K,J))
|
||||
IF(HLIN1(K,J) .GT. -9000.) CALL WGridPutCellReal(IDF_GRID2,5,K,hlin1(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID2,6,K,QUALKH(K,J,1))
|
||||
CALL WGridPutCellReal(IDF_GRID2,7,K,QUALKH(K,J,2))
|
||||
CALL WGridPutCellReal(IDF_GRID2,8,K,QUALKH(K,J,3))
|
||||
ENDIF
|
||||
ENDDO
|
||||
DO K=1,500
|
||||
IF(IETP(K,J) .GT. 0) THEN
|
||||
CALL WGridPutCellInteger(IDF_GRID3,1,K,ietp(K,J))
|
||||
CALL WGridPutCellCheckbox(IDF_GRID3,2,K,ecklin(K,J))
|
||||
CALL WGridPutCellInteger(IDF_GRID3,3,K,ielin(K,J))
|
||||
CALL WGridPutCellInteger(IDF_GRID3,4,K,LAYNUME(K,J))
|
||||
CALL WGridPutCellCheckbox(IDF_GRID3,5,K,ecklin1(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID3,6,K,elin(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID3,7,K,QUALKE(K,J,1))
|
||||
CALL WGridPutCellReal(IDF_GRID3,8,K,QUALKE(K,J,2))
|
||||
CALL WGridPutCellReal(IDF_GRID3,9,K,QUALKE(K,J,3))
|
||||
! ELSE
|
||||
! CALL WGridPutCellInteger(IDF_GRID3,1,K,0)
|
||||
! ENDIF
|
||||
! CALL WGridPutCellCheckbox(IDF_GRID3,7,K,ecklin2(K,J))
|
||||
ENDIF
|
||||
ENDDO
|
||||
DO K=1,20
|
||||
IF(isflin(K,J) .GT. 0) THEN
|
||||
CALL WGridPutCellInteger(IDF_GRID4,1,K,isflin(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID4,2,K,sflin(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID4,3,K,sflin1(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID4,4,K,sflin2(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID4,5,K,sflin3(K,J))
|
||||
CALL WGridPutCellReal(IDF_GRID4,6,K,sflin4(K,J))
|
||||
ENDIF
|
||||
ENDDO
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDHELP) THEN
|
||||
IHSW=5
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 100
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK .OR. WInfoDialog(ExitButton) .EQ. IDNEXT) THEN
|
||||
|
||||
CALL WDialogGetReal(IDF_REAL1,DELT(J))
|
||||
CALL WDialogGetReal(IDF_REAL2,DELTM(J))
|
||||
CALL WDialogGetString(IDF_STRING9,DATENDST(J))
|
||||
CALL WDialogGetReal(IDF_REAL5,URLC(J))
|
||||
CALL WDialogGetInteger(IDF_INTEGER2,NRITR(J))
|
||||
|
||||
DO K=1,20
|
||||
CALL WGridGetCellInteger(IDF_GRID1,1,K,iqlin1(K,J))
|
||||
IF(IQLIN1(K,J) .LT. 1) THEN
|
||||
NQLIN(J)=K-1
|
||||
EXIT
|
||||
ENDIF
|
||||
CALL WGridGetCellCheckbox(IDF_GRID1,2,K,qcklin(K,J))
|
||||
CALL WGridGetCellInteger(IDF_GRID1,3,K,iqlin(K,J))
|
||||
CALL WGridGetCellInteger(IDF_GRID1,4,K,LAYNUMQ(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID1,5,K,qlin(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID1,6,K,qdlin(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID1,7,K,QUALKQ(K,J,1))
|
||||
CALL WGridGetCellReal(IDF_GRID1,8,K,QUALKQ(K,J,2))
|
||||
CALL WGridGetCellReal(IDF_GRID1,9,K,QUALKQ(K,J,3))
|
||||
ENDDO
|
||||
DO K=1,20
|
||||
CALL WGridGetCellInteger(IDF_GRID2,1,K,ihlin(K,J))
|
||||
IF(IHLIN(K,J) .LT. 1) THEN
|
||||
NHLIN(J)=K-1
|
||||
EXIT
|
||||
ENDIF
|
||||
CALL WGridGetCellCheckbox(IDF_GRID2,2,K,hcklin(K,J))
|
||||
CALL WGridGetCellCheckbox(IDF_GRID2,3,K,hcklin1(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID2,4,K,hlin(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID2,5,K,HH)
|
||||
IF(HH .GT. -900) hlin1(K,J)=HH
|
||||
CALL WGridGetCellReal(IDF_GRID2,6,K,QUALKH(K,J,1))
|
||||
CALL WGridGetCellReal(IDF_GRID2,7,K,QUALKH(K,J,2))
|
||||
CALL WGridGetCellReal(IDF_GRID2,8,K,QUALKH(K,J,3))
|
||||
ENDDO
|
||||
DO K=1,500
|
||||
CALL WGridGetCellInteger(IDF_GRID3,1,K,ietp(K,J))
|
||||
if(ietp(k,j) .lt. 0) then
|
||||
NELIN(J)=K-1
|
||||
EXIT
|
||||
ENDIF
|
||||
|
||||
CALL WGridGetCellCheckbox(IDF_GRID3,2,K,ecklin(K,J))
|
||||
CALL WGridGetCellInteger(IDF_GRID3,3,K,ielin(K,J))
|
||||
CALL WGridGetCellInteger(IDF_GRID3,4,K,LAYNUME(K,J))
|
||||
CALL WGridGetCellCheckbox(IDF_GRID3,5,K,ecklin1(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID3,6,K,elin(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID3,7,K,QUALKE(K,J,1))
|
||||
CALL WGridGetCellReal(IDF_GRID3,8,K,QUALKE(K,J,2))
|
||||
CALL WGridGetCellReal(IDF_GRID3,9,K,QUALKE(K,J,3))
|
||||
IF(IELIN(K,J) .LE. 0) IELIN(K,J)=0
|
||||
|
||||
ENDDO
|
||||
|
||||
DO K=1,20
|
||||
CALL WGridGetCellInteger(IDF_GRID4,1,K,isflin(K,J))
|
||||
IF(isflin(K,J) .EQ. 0) THEN
|
||||
nsflin(j)=k-1
|
||||
exit
|
||||
endif
|
||||
CALL WGridGetCellReal(IDF_GRID4,2,K,sflin(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID4,3,K,sflin1(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID4,4,K,sflin2(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID4,5,K,sflin3(K,J))
|
||||
CALL WGridGetCellReal(IDF_GRID4,6,K,sflin4(K,J))
|
||||
ENDDO
|
||||
|
||||
IERR=0
|
||||
DO K=1,20
|
||||
IF(IETP(K,J) .EQ. 0) EXIT
|
||||
!IF(ECKLIN2(K,J) .EQ. 1 .AND. IETP(K,J) .EQ. 0 .AND. IELIN(K,J) .GT. 0) THEN
|
||||
! CALL WMessageBox(OKOnly,ExclamationIcon,CommonOK, &
|
||||
! 'Rain unit inflows cannot be applied to a single element',&
|
||||
! 'ERROR IN ELEMENT INFLOW BLOCK')
|
||||
! IERR=1
|
||||
IF(ECKLIN2(K,J) .EQ. 1 .AND. ECKLIN1(K,J) .EQ. 1) THEN
|
||||
CALL WMessageBox(OKOnly,ExclamationIcon,CommonOK, &
|
||||
'Total flow choice conflicts with rain unit',&
|
||||
'ERROR IN ELEMENT INFLOW BLOCK')
|
||||
IERR=1
|
||||
ENDIF
|
||||
IF(IETP(K,J) .EQ. 3 .AND. ECKLIN2(K,J) .EQ. 0) THEN
|
||||
CALL WMessageBox(OKOnly,ExclamationIcon,CommonOK, &
|
||||
'Option for group inflow in standard units (metres/sec) not implemented in RMA2',&
|
||||
'ERROR IN ELEMENT INFLOW BLOCK')
|
||||
IERR=1
|
||||
ENDIF
|
||||
ENDDO
|
||||
IF(IERR .EQ. 1) GO TO 100
|
||||
call wdialogunload(IDD_TIMESTEP)
|
||||
IF(WInfoDialog(ExitButton) .EQ. IDNEXT) GO TO 500
|
||||
|
||||
RETURN
|
||||
! ELSEIF(WInfoDialog(ExitButton) .EQ. IDNEXT) THEN
|
||||
! J=J+1
|
||||
! GO TO 100
|
||||
else
|
||||
return
|
||||
endif
|
||||
enddo
|
||||
|
||||
RETURN
|
||||
|
||||
500 CONTINUE
|
||||
call wdialogload(IDD_TIMESTEP2)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_TIMESTEP2)
|
||||
ierr=infoerror(1)
|
||||
CALL WDialogPutReal(IDF_REAL3,WVEL(J))
|
||||
CALL WDialogPutReal(IDF_REAL4,WDIR(J))
|
||||
|
||||
IF(KHCN(J) .GT. 0) THEN
|
||||
DO K=1,KHCN(J)
|
||||
DO L=1,IHCN(K,J)
|
||||
CALL WGridPutCellReal(IDF_GRID1,L,K,FHCN(K,J,L))
|
||||
ENDDO
|
||||
ENDDO
|
||||
ENDIF
|
||||
IF(NSND(J) .GT. 0) THEN
|
||||
DO K=1,NSND(J)
|
||||
IF(NODSND(K,J) .GT. 0) THEN
|
||||
CALL WGridPutCellInteger(IDF_GRID2,1,K,NODSND(K,J))
|
||||
ENDIF
|
||||
CALL WGridPutCellInteger(IDF_GRID2,2,K,NCODE(K,J))
|
||||
DO L=1,6
|
||||
CALL WGridPutCellReal(IDF_GRID2,L+2,K,BCSND(K,J,L))
|
||||
ENDDO
|
||||
ENDDO
|
||||
ENDIF
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDHELP) THEN
|
||||
IHSW=6
|
||||
CALL HELP10(IHSW)
|
||||
GO TO 500
|
||||
ELSEIF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||||
|
||||
CALL WDialogGetReal(IDF_REAL3,WVEL(J))
|
||||
CALL WDialogGetReal(IDF_REAL4,WDIR(J))
|
||||
|
||||
DO K=1,20
|
||||
CALL WGridGetCellReal(IDF_GRID1,1,K,fhcn(K,J,1))
|
||||
IF(FHCN(K,J,1) .LT. 0.) THEN
|
||||
KHCN(J)=K-1
|
||||
EXIT
|
||||
ENDIF
|
||||
DO L=1,36
|
||||
CALL WGridGetCellReal(IDF_GRID1,L,K,fhcn(K,J,L))
|
||||
IF(FHCN(K,J,L) .LT. 0.) THEN
|
||||
IHCN(K,J)=L-1
|
||||
EXIT
|
||||
ENDIF
|
||||
ENDDO
|
||||
ENDDO
|
||||
|
||||
DO K=1,500
|
||||
IF(NCODE(K,J) .LE. 0) THEN
|
||||
NSND(J)=K-1
|
||||
EXIT
|
||||
ENDIF
|
||||
|
||||
CALL WGridGetCellInteger(IDF_GRID2,1,K,NODSND(K,J))
|
||||
IF(NODSND(K,J) .LE. 0) NODSND(K,J)=0
|
||||
CALL WGridGetCellInteger(IDF_GRID2,2,K,NCODE(K,J))
|
||||
DO L=1,6
|
||||
CALL WGridGetCellReal(IDF_GRID2,L+2,K,BCSND(K,J,L))
|
||||
ENDDO
|
||||
ENDDO
|
||||
|
||||
call wdialogUNload(IDD_TIMESTEP2)
|
||||
RETURN
|
||||
ELSE
|
||||
call wdialogUNload(IDD_TIMESTEP2)
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDDO
|
||||
END
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 3.6 KiB |
@ -0,0 +1,224 @@
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// THIS FILE SHOULD NOT BE EDITED USING A TEXT
|
||||
// EDITOR OR 3RD PARTY RESOURCE EDITOR, EXCEPT
|
||||
// WHEN SPECIFICALLY INSTRUCTED BY I.S.S.
|
||||
//
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// Winteracter exported resources.
|
||||
//
|
||||
// Exported : 10/Jul/2019 12:38:20
|
||||
//
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// To use this file it should be imported into
|
||||
// your main resource script
|
||||
//
|
||||
///////////////////////////////////////////////////
|
||||
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// Parameter Definitions
|
||||
//
|
||||
#define IDF_GRID1 1032
|
||||
#define ISS1 1033
|
||||
#define ISS2 1034
|
||||
#define IDD_CONTROLS 101
|
||||
#define IDF_PART2 1041
|
||||
#define ISS3 1003
|
||||
#define ISS4 1004
|
||||
#define IDF_STRING1 1006
|
||||
#define IDF_STRING2 1007
|
||||
#define IDF_STRING5 1010
|
||||
#define IDF_STRING10 1023
|
||||
#define IDF_STRING16 1037
|
||||
#define IDF_STRING18 1038
|
||||
#define IDF_GRID3 1034
|
||||
#define IDF_STRING17 1033
|
||||
#define IDF_STRING19 1035
|
||||
#define IDF_STRING20 1055
|
||||
#define IDF_HELP1 1058
|
||||
#define IDF_RADIO1 1059
|
||||
#define IDF_RADIO2 1060
|
||||
#define IDF_RADIO3 1061
|
||||
#define IDF_RADIO4 1062
|
||||
#define IDF_RADIO5 1063
|
||||
#define IDF_RADIO6 1064
|
||||
#define IDF_RADIO7 1065
|
||||
#define IDF_RADIO8 1066
|
||||
#define IDF_RADIO9 1067
|
||||
#define IDD_DIALOG002 123
|
||||
#define IDD_TEMPLATE016 124
|
||||
#define IDD_TEMPLATE017 125
|
||||
#define IDF_GRID5 1036
|
||||
#define IDD_TEMPLATE018 126
|
||||
#define IDF_GRID6 1039
|
||||
#define IDF_RADIO10 1070
|
||||
#define IDF_RADIO11 1071
|
||||
#define IDF_RADIO12 1072
|
||||
|
||||
///////////////////////////////////////////////////
|
||||
//
|
||||
// Dialogs
|
||||
//
|
||||
IDD_CONTROLS DIALOG 0, 0, 584, 309
|
||||
STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME
|
||||
FONT 10, "Arial"
|
||||
CAPTION "CONTROL DATA PAGE 1"
|
||||
BEGIN
|
||||
CONTROL "",IDF_GRID1,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 20, 158, 292, 90
|
||||
CONTROL "Starting Time",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 84, 12, 74, 12
|
||||
CONTROL "Ending Time",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 291, 12, 53, 12
|
||||
CONTROL "PRINT OPTION",IDF_STRING5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 244, 70, 50, 20
|
||||
CONTROL "MARSHING OPTION",IDF_STRING10,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 412, 141, 66, 22
|
||||
CONTROL "01/01/2018 00.00",IDF_STRING16,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 175, 12, 69, 12
|
||||
CONTROL "31/01/2018 00.00",IDF_STRING18,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 351, 12, 69, 12
|
||||
CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 204, 270, 40, 14
|
||||
CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 320, 270, 40, 14
|
||||
CONTROL "PAGE 2",IDF_PART2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 103, 270, 40, 14
|
||||
CONTROL "TURBULENCE MODEL",IDF_STRING17,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 412, 91, 66, 20
|
||||
CONTROL "SOLVER TYPE",IDF_STRING19,"EDIT",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 412, 45, 66, 12,WS_EX_STATICEDGE
|
||||
CONTROL "HELP",IDF_HELP1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 435, 270, 40, 14
|
||||
CONTROL "BASIC FRONT",IDF_RADIO1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 28, 70, 14
|
||||
CONTROL "REVISED FRONT",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 42, 70, 14
|
||||
CONTROL "PARDISO",IDF_RADIO3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 56, 70, 14
|
||||
CONTROL "NOT ACTIVE",IDF_RADIO4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 130, 70, 14
|
||||
CONTROL "USE DEFAULT",IDF_RADIO5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 144, 70, 14
|
||||
CONTROL "INPUT SETTINGS",IDF_RADIO6,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 158, 70, 14
|
||||
CONTROL "CONSTANT",IDF_RADIO7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 80, 70, 14
|
||||
CONTROL "SCALED",IDF_RADIO8,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 94, 70, 14
|
||||
CONTROL "SMAGORINSKY",IDF_RADIO9,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 108, 70, 14
|
||||
CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 20, 32, 194, 48
|
||||
CONTROL "",IDF_GRID5,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 21, 94, 188, 38
|
||||
CONTROL "",IDF_GRID6,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 400, 180, 163, 48
|
||||
CONTROL "EDDY / TURBULENCE / FRICTION PROPERTIES",IDF_STRING20,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 74, 138, 175, 14
|
||||
CONTROL "BRIEF ECHO PRINT",IDF_RADIO10,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT | BS_MULTILINE, 310, 48, 66, 18
|
||||
CONTROL "ALL EXCEPT INITIAL CONDITIONS",IDF_RADIO11,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT | BS_MULTILINE, 310, 68, 66, 24
|
||||
CONTROL "ALL INPUT",IDF_RADIO12,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT | BS_MULTILINE, 310, 98, 66, 12
|
||||
END
|
||||
|
||||
IDD_CONTROLS RCDATA
|
||||
BEGIN
|
||||
"[Checks] \n"
|
||||
" 1059 0 \n"
|
||||
" 1060 0 \n"
|
||||
" 1061 0 \n"
|
||||
" 1062 0 \n"
|
||||
" 1063 0 \n"
|
||||
" 1064 0 \n"
|
||||
" 1065 0 \n"
|
||||
" 1066 0 \n"
|
||||
" 1067 0 \n"
|
||||
" 1070 0 \n"
|
||||
" 1071 0 \n"
|
||||
" 1072 0 \n"
|
||||
"[Fonts] \n"
|
||||
" 1032 10 Arial, 700 0 \n"
|
||||
" 1006 10 Arial, 400 0 \n"
|
||||
" 1007 10 Arial, 400 0 \n"
|
||||
" 1010 10 Arial, 400 0 \n"
|
||||
" 1023 10 Arial, 400 0 \n"
|
||||
" 1037 10 Arial, 700 0 \n"
|
||||
" 1038 10 Arial, 700 0 \n"
|
||||
" 1 10 Arial, 700 0 \n"
|
||||
" 2 10 Arial, 700 0 \n"
|
||||
" 1041 10 Arial, 700 0 \n"
|
||||
" 1033 10 Arial, 400 0 \n"
|
||||
" 1035 10 Arial, 400 0 \n"
|
||||
" 1058 10 Arial, 700 0 \n"
|
||||
" 1059 10 Arial, 700 0 \n"
|
||||
" 1060 10 Arial, 700 0 \n"
|
||||
" 1061 10 Arial, 700 0 \n"
|
||||
" 1062 10 Arial, 700 0 \n"
|
||||
" 1063 10 Arial, 700 0 \n"
|
||||
" 1064 10 Arial, 700 0 \n"
|
||||
" 1065 10 Arial, 700 0 \n"
|
||||
" 1066 10 Arial, 700 0 \n"
|
||||
" 1067 10 Arial, 700 0 \n"
|
||||
" 1070 10 Arial, 700 0 \n"
|
||||
" 1071 10 Arial, 700 0 \n"
|
||||
" 1072 10 Arial, 700 0 \n"
|
||||
"[Grids] \n"
|
||||
" 1032 4 1000 123 \n"
|
||||
" 1034 1 4 124 \n"
|
||||
" 165 \n"
|
||||
"Starting Water Level (if restart not used) \n"
|
||||
"Latitude \n"
|
||||
"Velocity Convergence \n"
|
||||
"Depth Convergence \n"
|
||||
" 1036 1 3 125 \n"
|
||||
" 170 \n"
|
||||
"Number of Time Steps (if no Ending Time) \n"
|
||||
"Steady State Iterations \n"
|
||||
"Transient Iterations \n"
|
||||
" 1039 1 4 126 \n"
|
||||
" 140 \n"
|
||||
"Marsh Depth Shift \n"
|
||||
"Marsh Range \n"
|
||||
"Marsh Porosity \n"
|
||||
"Marsh Depth Over-ride (Optional) \n"
|
||||
,0
|
||||
END
|
||||
|
||||
IDD_DIALOG002 DIALOG 0, 0, 1000, 16
|
||||
STYLE DS_3DLOOK
|
||||
FONT 10, "Arial"
|
||||
BEGIN
|
||||
CONTROL "TYPE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14
|
||||
CONTROL "EDDY COEF",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14
|
||||
CONTROL "MANNING",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14
|
||||
CONTROL "MARSH FRICTION",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14
|
||||
END
|
||||
|
||||
IDD_DIALOG002 RCDATA
|
||||
BEGIN
|
||||
"[Ranges] \n"
|
||||
"[Formats] \n"
|
||||
" 1003 (f8.3) \n"
|
||||
,0
|
||||
END
|
||||
|
||||
IDD_TEMPLATE016 DIALOG 0, 0, 1000, 16
|
||||
STYLE DS_3DLOOK
|
||||
FONT 10, "Arial"
|
||||
BEGIN
|
||||
CONTROL "",ISS1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14
|
||||
END
|
||||
|
||||
IDD_TEMPLATE016 RCDATA
|
||||
BEGIN
|
||||
"[Ranges] \n"
|
||||
"[Formats] \n"
|
||||
" 1033 (F11.6) \n"
|
||||
,0
|
||||
END
|
||||
|
||||
IDD_TEMPLATE017 DIALOG 0, 0, 1000, 16
|
||||
STYLE DS_3DLOOK
|
||||
FONT 10, "Arial"
|
||||
BEGIN
|
||||
CONTROL "",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14
|
||||
END
|
||||
|
||||
IDD_TEMPLATE017 RCDATA
|
||||
BEGIN
|
||||
"[Ranges] \n"
|
||||
,0
|
||||
END
|
||||
|
||||
IDD_TEMPLATE018 DIALOG 0, 0, 1000, 16
|
||||
STYLE DS_3DLOOK
|
||||
FONT 10, "Arial"
|
||||
BEGIN
|
||||
CONTROL "Label",ISS1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14
|
||||
END
|
||||
|
||||
IDD_TEMPLATE018 RCDATA
|
||||
BEGIN
|
||||
"[Ranges] \n"
|
||||
"[Formats] \n"
|
||||
" 1033 (f8.4) \n"
|
||||
,0
|
||||
END
|
||||
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 1.3 KiB |
@ -0,0 +1,78 @@
|
||||
SUBROUTINE HELP10(IHSW)
|
||||
USE BLKRM10
|
||||
USE WINTERACTER
|
||||
|
||||
USE RESID
|
||||
LOGICAL EXISTD
|
||||
|
||||
! CHARACTER*255 HELPDIR
|
||||
! DATA HELPDIR/'C:\Users\RMADELL\source\repos\RMA2PRP\HELP'/
|
||||
DATA ITIME/0/
|
||||
|
||||
IF(IHSW .EQ. 97) GO TO 500
|
||||
IF(ITIME .EQ. 1) GO TO 400
|
||||
INQUIRE(DIRECTORY=HELPDIR,EXIST=EXISTD)
|
||||
IF(EXISTD) THEN
|
||||
CWDIR=HELPDIR
|
||||
ITIME=1
|
||||
ELSE
|
||||
IF(CWDIR .EQ. HELPDIR) THEN
|
||||
ITIME=1
|
||||
GO TO 400
|
||||
ELSE
|
||||
ITIME=1
|
||||
IFLAGS=0
|
||||
CALL WSelectDir(IFLAGS,CWDIR, 'Select HELP Directory')
|
||||
|
||||
ENDIF
|
||||
ENDIF
|
||||
400 CONTINUE
|
||||
! GET LENGTH OF DIRECTORY TEXT
|
||||
DO K=255,1,-1
|
||||
LENNAME=K
|
||||
IF(CWDIR(K:K) .NE. ' ') EXIT
|
||||
|
||||
ENDDO
|
||||
IF(IHSW .EQ. 0) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\FILES.htm')
|
||||
ELSEIF(IHSW .EQ. 1) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\datalines.htm')
|
||||
ELSEIF(IHSW .EQ. 5) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\TIMESTP1.htm')
|
||||
ELSEIF(IHSW .EQ. 6) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\TIMESTP2.htm')
|
||||
ELSEIF(IHSW .EQ. 7) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\TIMESTP0.htm')
|
||||
ELSEIF(IHSW .EQ. 8) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\EXTRA.htm')
|
||||
ELSEIF(IHSW .EQ. 20) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\CONTROL1.htm')
|
||||
ELSEIF(IHSW .EQ. 21) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\CONTROL2.htm')
|
||||
ELSEIF(IHSW .EQ. 22) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\CONTROL3.htm')
|
||||
ELSEIF(IHSW .EQ. 23) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\CONTROL4.htm')
|
||||
ELSEIF(IHSW .EQ. 99) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\RMA2V90.htm')
|
||||
ELSEIF(IHSW .EQ. 98) THEN
|
||||
CALL WHelpFile(CWDIR(1:K)//'\INTRO.htm')
|
||||
ENDIF
|
||||
RETURN
|
||||
500 CONTINUE
|
||||
call wdialogload(IDD_SELCT)
|
||||
ierr=infoerror(1)
|
||||
|
||||
CALL WDialogSelect(IDD_SELCT)
|
||||
ierr=infoerror(1)
|
||||
CALL WDialogShow(-1,-1,0,Modal)
|
||||
|
||||
ierr=infoerror(1)
|
||||
do
|
||||
|
||||
IF (WInfoDialog(ExitButton) .EQ. IDOK) THEN
|
||||
RETURN
|
||||
ENDIF
|
||||
ENDDO
|
||||
RETURN
|
||||
END
|
||||
@ -0,0 +1,294 @@
|
||||
IF(ID(1:2) .EQ. 'C0') THEN
|
||||
DO J=25,32
|
||||
IF(DLIN(J:J) .EQ. '/') THEN
|
||||
DLIN(J:J)=','
|
||||
READ(DLIN(1:24),'(3I8)') IOPTZD,IDNOPT,IYRR
|
||||
READ(DLIN(25:32),*) ITMD,ITMM
|
||||
DAYOFY=IMTS(ITMM)+ITMD
|
||||
IF(MOD(IYRR,4) .EQ. 0 .AND. ITMM .GT. 2) DAYOFY=DAYOFY+1
|
||||
READ(DLIN(33:72),'(F8.0,I8,2F8.0,I8)')TET,IEDSW,TBFACT,TBMIN
|
||||
+ ,IPROJ
|
||||
GO TO 60
|
||||
ENDIF
|
||||
ENDDO
|
||||
|
||||
READ(DLIN,5061)IOPTZD,IDNOPT,IYRR,DAYOFY,TET,IEDSW,TBFACT,TBMIN
|
||||
+ ,IPROJ
|
||||
|
||||
write(*,*) 'read c0'
|
||||
CIPK FEB04 SAVE TIMES IN CASE IOV ACTIVE
|
||||
60 CONTINUE
|
||||
IYKK=IYRR
|
||||
IDTM=DAYOFY
|
||||
TTEM=TET
|
||||
GO TO 50
|
||||
cipk end changes apr 96
|
||||
ELSEIF(ID(1:2) .EQ. 'C1') THEN
|
||||
CIPK SEP05
|
||||
ISAVITR=0
|
||||
cipk FEB15 allow zero bed option to be based on a level
|
||||
READ(DLIN,5021)
|
||||
+ NDP,IGRV,IZB,IPASS1,IPASS2,IPASS3,IZERS,ISAVITR,zerbed
|
||||
5021 FORMAT(8I8,F8.0)
|
||||
cipk mar15 add switch for density distribution
|
||||
read(dlinextra,'(i8)') ivertden
|
||||
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C2') THEN
|
||||
CIPK DEC07 REPLACE OMEGA BY OMEGA1
|
||||
READ(DLIN,5020) OMEGA1,ELEV,XSCALE,YSCALE,ZSCALE
|
||||
write(*,*) 'read c2'
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C3') THEN
|
||||
|
||||
READ(DLIN,5020) CMIN,CPR,UNOM,UDIR,HMNN,DSET,DSETD,IFXBC,IEQSWT
|
||||
CIPK NOV97 READ(LIN,7000) ID,DLIN
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C4') THEN
|
||||
|
||||
cipk sep96 add to 3 lines below for ocean exchange percentantage and mixing
|
||||
READ(DLIN,5020) SALI,TEMPI,SEDI,UINP,VINP,prcnt,DMIX
|
||||
write(*,*) 'read c4'
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C5') THEN
|
||||
|
||||
READ(DLIN,5011) NITI,NITN,TSTART,NCYC,IPRT,NPRTI
|
||||
+ ,NPRTF,IRSAV,IDSWT
|
||||
write(*,*) 'read c5'
|
||||
C
|
||||
|
||||
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'C6') THEN
|
||||
|
||||
CIPK APR11
|
||||
READ(DLIN,'(8I8)') IOUTFREQ,IOUTRST,IREWOUT,ID1DND,ICPU,IOOC
|
||||
+ ,IREWMES,IDEBUG
|
||||
CIPK JAN09
|
||||
|
||||
GO TO 50
|
||||
|
||||
CIPK AUG11 add logic to allow exclusion whenID1DND = 3 or 4
|
||||
16 ELSEIF(ID(1:3) .EQ. 'EXM') THEN
|
||||
|
||||
READ(DLIN,'(9I8)') (MDLIST(I),I=1,9)
|
||||
DO I=1,9
|
||||
IF(MDLIST(I) .GT. 0) THEN
|
||||
IDEXCL(MDLIST(I))=1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'INI') THEN
|
||||
|
||||
READ(DLIN,'(F8.0)') ELEV1
|
||||
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'VLA') THEN
|
||||
|
||||
READ(DLIN,'(F8.0)') YLATREF
|
||||
IVL=1
|
||||
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'RMA2') THEN
|
||||
IRMA2=1
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:2) .EQ. 'CV') THEN
|
||||
READ(DLIN,'(6F8.0,i8,f8.0)') (CONV(J),J=1,6),idrpt,drfact
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'IOV') THEN
|
||||
IOV=1
|
||||
|
||||
|
||||
cipk feb97 add line to select optimisation
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'IOP') THEN
|
||||
READ(DLIN,'(F8.2)') W2FACT
|
||||
IOPTIM=0
|
||||
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:5) .EQ. 'DFACT') THEN
|
||||
READ(DLIN,'(3F8.2,I8)') DFACTIN1,DFACTIN2,DFACTIN3,INEWDEN
|
||||
|
||||
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'ICE1') THEN
|
||||
READ(DLIN,'(8F8.0,i8)')ROW,CHEAT,TMED,HTR,XLAT,ROSN,ROIC,TICE,
|
||||
+ ICESW
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'ICE2') THEN
|
||||
READ(DLIN,'(5F8.0)') CAL1,CAL2,CAL3,CAL4,VTR
|
||||
call ginpt(lin,id,dlin)
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'COL') THEN
|
||||
READ(DLIN,'(F8.2)') TRANSIT
|
||||
ITRANSIT=1
|
||||
cipk revised unit
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'TST') THEN
|
||||
READ(DLIN,'(I8,2F8.0)') NODETR,TRELEV,TRFACT
|
||||
|
||||
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'PWR') THEN
|
||||
READ(DLIN,'(2I8,2F8.0,I8,3F8.0,I8)') NINCC,NOUTCC(NINCC),
|
||||
+ ADDSAL(NINCC),ADDTMP(NINCC,1),IPWRSW(NINCC),ADDTMP(NINCC,3)
|
||||
+ ,ADDSED(NINCC),ADDMAX(NINCC),NADTYP(NINCC)
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'EQT') THEN
|
||||
READ(DLIN,'(3F8.0)') EQTEMP,XKRAT,EXTING
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:6) .EQ. 'BEDMIN') THEN
|
||||
READ(DLIN,'(F8.0)') BEDMIN
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:6) .EQ. 'BEDMAX') THEN
|
||||
READ(DLIN,'(F8.0)') BEDMAX
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'BEDSHIFT') THEN
|
||||
READ(DLIN,'(F8.0)') BEDSHIFT
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:8) .EQ. 'FLOWSCAL') THEN
|
||||
READ(DLIN,'(F8.0)') FLOWSCAL
|
||||
GO TO 50
|
||||
|
||||
CIPK AUG10 ADD SETTLING FOR SEDIMENT
|
||||
ELSEIF(ID(1:4) .EQ. 'VSET') THEN
|
||||
READ(DLIN,'(3F8.0)') VSET,VDECAY,PRECIP
|
||||
GO TO 50
|
||||
|
||||
CIPK AUG10 ADD BED HEAT TRANSFER
|
||||
ELSEIF(ID(1:4) .EQ. 'BDHT') THEN
|
||||
IBEDHT=1
|
||||
READ(DLIN,'(5F8.0)')TGL,DLINER,XKL,DDRY,XKG
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'CHI') THEN
|
||||
READ(DLIN,'(F8.0)') CHI1
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'SPC') THEN
|
||||
READ(DLIN,'(9A8)') (ASPLPT(J),J= 1,8)
|
||||
ITOTC=0
|
||||
DO J=1,8
|
||||
IF(ASPLPT(J) .EQ. 'VELOCITY') THEN
|
||||
ICOMP(ITOTC+1)=-1
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'DEPTH ') THEN
|
||||
ICOMP(ITOTC+1)=3
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'WS-ELEV ') THEN
|
||||
ICOMP(ITOTC+1)=7
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'SALINITY') THEN
|
||||
ICOMP(ITOTC+1)=4
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'TEMPERAT') THEN
|
||||
ICOMP(ITOTC+1)=5
|
||||
ITOTC=ITOTC+1
|
||||
ELSEIF(ASPLPT(J) .EQ. 'SEDIMENT') THEN
|
||||
ICOMP(ITOTC+1)=6
|
||||
ITOTC=ITOTC+1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:3) .EQ. 'SP ') THEN
|
||||
READ(DLIN,5010) (NSPLPT(J),J= 1,9)
|
||||
READ(DLINEXTRA,'(I8)') NSPLPT(10)
|
||||
DO J=10,1,-1
|
||||
IF(NSPLPT(J) .GT. 0) THEN
|
||||
JSPLPT=J
|
||||
GO TO 22
|
||||
ENDIF
|
||||
ENDDO
|
||||
22 CONTINUE
|
||||
GO TO 50
|
||||
|
||||
ELSEIF(ID(1:4) .EQ. 'CSPC') THEN
|
||||
READ(DLIN,'(9A8)') (ACSPLPT(J),J= 1,8)
|
||||
ICTOTC=0
|
||||
DO J=1,8
|
||||
IF(ACSPLPT(J) .EQ. 'FLOW ') THEN
|
||||
ICCOMP(ICTOTC+1)=1
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'DEPTH ') THEN
|
||||
ICCOMP(ICTOTC+1)=2
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'WS-ELEV ') THEN
|
||||
ICCOMP(ICTOTC+1)=3
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'SALINITY') THEN
|
||||
ICCOMP(ICTOTC+1)=4
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'TEMPERAT') THEN
|
||||
ICCOMP(ICTOTC+1)=5
|
||||
ICTOTC=ICTOTC+1
|
||||
ELSEIF(ACSPLPT(J) .EQ. 'SEDIMENT') THEN
|
||||
ICCOMP(ICTOTC+1)=6
|
||||
ICTOTC=ICTOTC+1
|
||||
ENDIF
|
||||
ENDDO
|
||||
GO TO 50
|
||||
|
||||
CIPK AUG11
|
||||
ELSEIF(ID(1:4) .EQ. 'CSP ') THEN
|
||||
READ(DLIN,5010) (NCSPLPT(J),J= 1,9)
|
||||
READ(DLINEXTRA,'(I8)') NCSPLPT(10)
|
||||
DO J=10,1,-1
|
||||
IF(NCSPLPT(J) .GT. 0) THEN
|
||||
JCSPLPT=J
|
||||
GO TO 23
|
||||
ENDIF
|
||||
ENDDO
|
||||
23 CONTINUE
|
||||
GO TO 50
|
||||
ELSEIF(ID(1:3) .EQ. 'ED1') THEN
|
||||
READ(DLIN,5030) J,(ORT(J,K),K=1,7)
|
||||
write(*,*) 'read ed1'
|
||||
|
||||
IF(NMAT .LT. J) NMAT=J
|
||||
GO TO 50
|
||||
CIPK NOV97 READ(LIN,7000) ID,DLIN
|
||||
ELSEIF(ID(1:3) .EQ. 'ED2') THEN
|
||||
READ(DLIN,5031) (ORT(J,K),K=8,13)
|
||||
write(*,*) 'read ed2'
|
||||
cipk mar98
|
||||
GO TO 50
|
||||
ELSEIF(ID(1:3) .EQ. 'ED3') THEN
|
||||
if(IEDSW .EQ. 5) THEN
|
||||
READ(DLIN,5031) ELDER(J,1),ELDER(J,2)
|
||||
ELSE
|
||||
READ(DLIN,5032) IT1,TT1,TT2
|
||||
IF(TT1 .GT. 0.) THEN
|
||||
TBFACT1(J)=TT1
|
||||
ENDIF
|
||||
IF(TT2 .GT. 0.) THEN
|
||||
TBMIN1(J)=TT2
|
||||
ENDIF
|
||||
ENDIF
|
||||
GO TO 50
|
||||
cipk mar07 add to test
|
||||
ELSE
|
||||
GO TO 24
|
||||
ENDIF
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
@ -0,0 +1,216 @@
|
||||
! Winteracter resource identifiers. Created : 10/Aug/2019 16:08:19
|
||||
!
|
||||
! This file is generated by the Winteracter resource editor.
|
||||
! It should not be edited manually. It is also not advisable to load this
|
||||
! file in a text editor, while working on the associated resource file,
|
||||
! since this may prevent the resource identifiers file from being updated.
|
||||
! To view the names and values of resource identifiers, use the
|
||||
! "Identifier Names and Values" or "Used Identifiers" options on the
|
||||
! resource editor's "View" menu. Both dialogs also include a "Copy id"
|
||||
! button which allows identifier names to be copied via the clipboard.
|
||||
! Opening this file in an editor should therefore not be necessary.
|
||||
!
|
||||
MODULE RESID
|
||||
IMPLICIT NONE
|
||||
INTEGER, PARAMETER :: IDT_TOOLBAR1 = 30101
|
||||
INTEGER, PARAMETER :: ID_BUTTON4 = 40101
|
||||
INTEGER, PARAMETER :: IDM_MENU1 = 30001
|
||||
INTEGER, PARAMETER :: IDD_GETTIMSTP = 119
|
||||
INTEGER, PARAMETER :: IDF_LABEL2 = 1002
|
||||
INTEGER, PARAMETER :: IDF_LABEL9 = 1017
|
||||
INTEGER, PARAMETER :: IDF_GRID1 = 1032
|
||||
INTEGER, PARAMETER :: ISS1 = 1033
|
||||
INTEGER, PARAMETER :: ISS2 = 1034
|
||||
INTEGER, PARAMETER :: IDF_LABEL8 = 1040
|
||||
INTEGER, PARAMETER :: ID_FILE = 40004
|
||||
INTEGER, PARAMETER :: ID_OPENRM2 = 40005
|
||||
INTEGER, PARAMETER :: IDD_CONTROLS = 101
|
||||
INTEGER, PARAMETER :: IDF_PART2 = 1041
|
||||
INTEGER, PARAMETER :: ISS3 = 1003
|
||||
INTEGER, PARAMETER :: ISS4 = 1004
|
||||
INTEGER, PARAMETER :: IDF_STRING1 = 1006
|
||||
INTEGER, PARAMETER :: IDF_STRING2 = 1007
|
||||
INTEGER, PARAMETER :: IDF_INTEGER1 = 1073
|
||||
INTEGER, PARAMETER :: IDF_STRING3 = 1008
|
||||
INTEGER, PARAMETER :: IDF_STRING4 = 1009
|
||||
INTEGER, PARAMETER :: IDF_STRING5 = 1010
|
||||
INTEGER, PARAMETER :: IDF_REAL1 = 1012
|
||||
INTEGER, PARAMETER :: IDF_REAL2 = 1013
|
||||
INTEGER, PARAMETER :: IDF_STRING6 = 1014
|
||||
INTEGER, PARAMETER :: IDF_REAL3 = 1015
|
||||
INTEGER, PARAMETER :: IDF_STRING7 = 1016
|
||||
INTEGER, PARAMETER :: IDF_REAL4 = 1068
|
||||
INTEGER, PARAMETER :: IDF_STRING8 = 1018
|
||||
INTEGER, PARAMETER :: IDF_INTEGER2 = 1019
|
||||
INTEGER, PARAMETER :: IDF_STRING9 = 1021
|
||||
INTEGER, PARAMETER :: IDF_REAL5 = 1022
|
||||
INTEGER, PARAMETER :: IDF_STRING10 = 1023
|
||||
INTEGER, PARAMETER :: IDF_STRING11 = 1025
|
||||
INTEGER, PARAMETER :: IDF_STRING12 = 1026
|
||||
INTEGER, PARAMETER :: IDF_STRING13 = 1027
|
||||
INTEGER, PARAMETER :: IDF_REAL7 = 1029
|
||||
INTEGER, PARAMETER :: IDF_STRING14 = 1030
|
||||
INTEGER, PARAMETER :: IDF_STRING16 = 1037
|
||||
INTEGER, PARAMETER :: IDF_STRING18 = 1038
|
||||
INTEGER, PARAMETER :: ID_ITEM16 = 40016
|
||||
INTEGER, PARAMETER :: ID_HELP1 = 40001
|
||||
INTEGER, PARAMETER :: ID_ITEM19 = 40018
|
||||
INTEGER, PARAMETER :: ID_ITEM6 = 40019
|
||||
INTEGER, PARAMETER :: ID_ITEM21 = 40021
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE003 = 104
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE004 = 102
|
||||
INTEGER, PARAMETER :: IDD_TIMESTEP = 105
|
||||
INTEGER, PARAMETER :: IDD_FILENAMES = 106
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE005 = 108
|
||||
INTEGER, PARAMETER :: IDF_GRID2 = 1033
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE006 = 110
|
||||
INTEGER, PARAMETER :: IDF_GRID3 = 1034
|
||||
INTEGER, PARAMETER :: ISS5 = 1042
|
||||
INTEGER, PARAMETER :: ISS6 = 1043
|
||||
INTEGER, PARAMETER :: ISS7 = 1044
|
||||
INTEGER, PARAMETER :: IDF_CHECK2 = 1050
|
||||
INTEGER, PARAMETER :: IDD_CONTROLS2 = 112
|
||||
INTEGER, PARAMETER :: IDF_CHECK3 = 1051
|
||||
INTEGER, PARAMETER :: IDF_CCLINE = 1045
|
||||
INTEGER, PARAMETER :: IDF_INTEGER5 = 1074
|
||||
INTEGER, PARAMETER :: IDF_INTEGER6 = 1026
|
||||
INTEGER, PARAMETER :: ID_CP3 = 40013
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE007 = 111
|
||||
INTEGER, PARAMETER :: IDF_CHECK4 = 1052
|
||||
INTEGER, PARAMETER :: IDF_STRING17 = 1033
|
||||
INTEGER, PARAMETER :: IDF_CHECK5 = 1053
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE010 = 115
|
||||
INTEGER, PARAMETER :: IDF_GRID4 = 1035
|
||||
INTEGER, PARAMETER :: IDF_CHECK1 = 1049
|
||||
INTEGER, PARAMETER :: IDNEXT = 1050
|
||||
INTEGER, PARAMETER :: IDF_HELP10 = 1068
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE011 = 116
|
||||
INTEGER, PARAMETER :: IDD_TIMESTEP2 = 117
|
||||
INTEGER, PARAMETER :: ISS8 = 1046
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE012 = 118
|
||||
INTEGER, PARAMETER :: ID_EXIT = 40002
|
||||
INTEGER, PARAMETER :: ID_CP4 = 40014
|
||||
INTEGER, PARAMETER :: IDD_MISC = 121
|
||||
INTEGER, PARAMETER :: IDF_PART3 = 1047
|
||||
INTEGER, PARAMETER :: IDF_PART1 = 1048
|
||||
INTEGER, PARAMETER :: IDF_STRING19 = 1035
|
||||
INTEGER, PARAMETER :: IDF_CHECK12 = 1055
|
||||
INTEGER, PARAMETER :: IDF_HELP = 1020
|
||||
INTEGER, PARAMETER :: ID_CONVERT = 40003
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE014 = 122
|
||||
INTEGER, PARAMETER :: ID_ex = 40006
|
||||
INTEGER, PARAMETER :: IDF_STRING20 = 1055
|
||||
INTEGER, PARAMETER :: IDF_STRING21 = 1056
|
||||
INTEGER, PARAMETER :: IDF_CHECK6 = 1054
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE015 = 113
|
||||
INTEGER, PARAMETER :: IDF_HELP1 = 1058
|
||||
INTEGER, PARAMETER :: IDF_RADIO1 = 1059
|
||||
INTEGER, PARAMETER :: IDF_RADIO2 = 1060
|
||||
INTEGER, PARAMETER :: IDF_RADIO4 = 1062
|
||||
INTEGER, PARAMETER :: IDF_RADIO5 = 1063
|
||||
INTEGER, PARAMETER :: IDF_RADIO6 = 1064
|
||||
INTEGER, PARAMETER :: IDF_RADIO7 = 1065
|
||||
INTEGER, PARAMETER :: IDF_RADIO8 = 1066
|
||||
INTEGER, PARAMETER :: IDF_RADIO9 = 1067
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE016 = 124
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE017 = 125
|
||||
INTEGER, PARAMETER :: IDF_GRID5 = 1036
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE018 = 126
|
||||
INTEGER, PARAMETER :: IDF_GRID6 = 1039
|
||||
INTEGER, PARAMETER :: IDF_RADIO10 = 1070
|
||||
INTEGER, PARAMETER :: IDF_RADIO11 = 1071
|
||||
INTEGER, PARAMETER :: IDF_RADIO12 = 1072
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE019 = 103
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE020 = 114
|
||||
INTEGER, PARAMETER :: ID_RUNRMA2 = 40007
|
||||
INTEGER, PARAMETER :: ID_HELP = 40009
|
||||
INTEGER, PARAMETER :: ID_HELPUSER = 40010
|
||||
INTEGER, PARAMETER :: ID_BUTTON8 = 40104
|
||||
INTEGER, PARAMETER :: ID_BUTTON5 = 40102
|
||||
INTEGER, PARAMETER :: IDF_PART4 = 1042
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE021 = 127
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE022 = 128
|
||||
INTEGER, PARAMETER :: IDD_EXTR = 129
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE023 = 130
|
||||
INTEGER, PARAMETER :: ISS9 = 1024
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE024 = 131
|
||||
INTEGER, PARAMETER :: ID_ABOUT = 40011
|
||||
INTEGER, PARAMETER :: ID_MENUITEM = 40012
|
||||
INTEGER, PARAMETER :: ID_LABEL1 = 1001
|
||||
INTEGER, PARAMETER :: ID_DRAG = 20001
|
||||
INTEGER, PARAMETER :: ID_FILE_SAVE = 40055
|
||||
INTEGER, PARAMETER :: ID_HELP_ABOUT = 40009
|
||||
INTEGER, PARAMETER :: ID_TOOLBAR1 = 30102
|
||||
INTEGER, PARAMETER :: IDD_SELCT = 133
|
||||
INTEGER, PARAMETER :: IDD_ABOUT = 134
|
||||
INTEGER, PARAMETER :: IDF_LABEL4 = 1005
|
||||
INTEGER, PARAMETER :: IDF_LABEL5 = 1006
|
||||
INTEGER, PARAMETER :: IDF_LABEL6 = 1007
|
||||
INTEGER, PARAMETER :: IDF_LABEL7 = 1008
|
||||
INTEGER, PARAMETER :: IDD_TIMDAT = 136
|
||||
INTEGER, PARAMETER :: IDF_NEXT = 1075
|
||||
INTEGER, PARAMETER :: IDD_DISPER = 139
|
||||
INTEGER, PARAMETER :: IDD_SCALE = 140
|
||||
INTEGER, PARAMETER :: IDF_LABEL10 = 1011
|
||||
INTEGER, PARAMETER :: IDD_OPTIONS = 143
|
||||
INTEGER, PARAMETER :: ID_ZIN = 40022
|
||||
INTEGER, PARAMETER :: ID_OUT2 = 40023
|
||||
INTEGER, PARAMETER :: IDF_LABEL8a = 1024
|
||||
INTEGER, PARAMETER :: IDF_LABEL8b = 1025
|
||||
INTEGER, PARAMETER :: IDF_RADIO13 = 1073
|
||||
INTEGER, PARAMETER :: IDF_RADIO14 = 1074
|
||||
INTEGER, PARAMETER :: IDF_RADIO15 = 1075
|
||||
INTEGER, PARAMETER :: IDF_RADIO16 = 1076
|
||||
INTEGER, PARAMETER :: IDF_RADIO17 = 1077
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE025 = 123
|
||||
INTEGER, PARAMETER :: IDF_GRID7 = 1078
|
||||
INTEGER, PARAMETER :: IDD_DIALOG002 = 149
|
||||
INTEGER, PARAMETER :: IDD_DIALOG006 = 152
|
||||
INTEGER, PARAMETER :: IDD_CONTROLS2A = 153
|
||||
INTEGER, PARAMETER :: ISS21 = 1079
|
||||
INTEGER, PARAMETER :: ISS11 = 1081
|
||||
INTEGER, PARAMETER :: ISS12 = 1082
|
||||
INTEGER, PARAMETER :: ISS13 = 1083
|
||||
INTEGER, PARAMETER :: ISS14 = 1084
|
||||
INTEGER, PARAMETER :: ISS15 = 1085
|
||||
INTEGER, PARAMETER :: ISS16 = 1086
|
||||
INTEGER, PARAMETER :: ISS17 = 1087
|
||||
INTEGER, PARAMETER :: ISS18 = 1088
|
||||
INTEGER, PARAMETER :: ISS19 = 1089
|
||||
INTEGER, PARAMETER :: ISS20 = 1090
|
||||
INTEGER, PARAMETER :: ISS22 = 1092
|
||||
INTEGER, PARAMETER :: ISS23 = 1093
|
||||
INTEGER, PARAMETER :: ISS24 = 1094
|
||||
INTEGER, PARAMETER :: ISS10 = 1080
|
||||
INTEGER, PARAMETER :: ID_CP1 = 40045
|
||||
INTEGER, PARAMETER :: ID_CP2 = 40046
|
||||
INTEGER, PARAMETER :: IDF_CHECK7 = 1058
|
||||
INTEGER, PARAMETER :: IDF_CHECK8 = 1059
|
||||
INTEGER, PARAMETER :: IDF_CHECK9 = 1060
|
||||
INTEGER, PARAMETER :: IDF_CHECK10 = 1061
|
||||
INTEGER, PARAMETER :: IDF_CHECK11 = 1062
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE026 = 142
|
||||
INTEGER, PARAMETER :: IDF_CHECK13 = 1056
|
||||
INTEGER, PARAMETER :: IDF_CHECK14 = 1057
|
||||
INTEGER, PARAMETER :: IDF_CHECK15 = 1063
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE027 = 150
|
||||
INTEGER, PARAMETER :: IDF_GRID8 = 1079
|
||||
INTEGER, PARAMETER :: IDF_STRING22 = 1057
|
||||
INTEGER, PARAMETER :: IDF_STRING15 = 1031
|
||||
INTEGER, PARAMETER :: IDF_STRING23 = 1039
|
||||
INTEGER, PARAMETER :: IDF_STRING24 = 1040
|
||||
INTEGER, PARAMETER :: IDF_STRING25 = 1058
|
||||
INTEGER, PARAMETER :: IDF_STRING26 = 1059
|
||||
INTEGER, PARAMETER :: IDF_STRING27 = 1060
|
||||
INTEGER, PARAMETER :: ISS25 = 1091
|
||||
INTEGER, PARAMETER :: ISS26 = 1095
|
||||
INTEGER, PARAMETER :: ISS28 = 1096
|
||||
INTEGER, PARAMETER :: ISS29 = 1097
|
||||
INTEGER, PARAMETER :: ISS30 = 1098
|
||||
INTEGER, PARAMETER :: ISS31 = 1099
|
||||
INTEGER, PARAMETER :: ISS32 = 1100
|
||||
INTEGER, PARAMETER :: ISS33 = 1101
|
||||
INTEGER, PARAMETER :: ISS34 = 1102
|
||||
INTEGER, PARAMETER :: ISS35 = 1103
|
||||
INTEGER, PARAMETER :: IDD_TEMPLATE028 = 107
|
||||
END MODULE RESID
|
||||
@ -0,0 +1,129 @@
|
||||
! Winteracter resource identifiers. Created : 29/May/2019 12:33:35
|
||||
!
|
||||
! This file is generated by the Winteracter resource editor.
|
||||
! It should not be edited manually. It is also not advisable to load this
|
||||
! file in a text editor, while working on the associated resource file,
|
||||
! since this may prevent the resource identifiers file from being updated.
|
||||
! To view the names and values of resource identifiers, use the
|
||||
! "Identifier Names and Values" or "Used Identifiers" options on the
|
||||
! resource editor's "View" menu. Both dialogs also include a "Copy id"
|
||||
! button which allows identifier names to be copied via the clipboard.
|
||||
! Opening this file in an editor should therefore not be necessary.
|
||||
!
|
||||
MODULE RESOURCE
|
||||
IMPLICIT NONE
|
||||
INTEGER, PARAMETER :: ID_LABEL1 = 1001
|
||||
INTEGER, PARAMETER :: IDR_MENU1 = 30001
|
||||
INTEGER, PARAMETER :: ID_FILE = 40001
|
||||
INTEGER, PARAMETER :: ID_DRAG = 40102
|
||||
INTEGER, PARAMETER :: ID_FILE_OPEN = 40003
|
||||
INTEGER, PARAMETER :: ID_FILE_SAVE = 40004
|
||||
INTEGER, PARAMETER :: ID_GETDAT = 40005
|
||||
INTEGER, PARAMETER :: ID_FILE_EXIT = 40007
|
||||
INTEGER, PARAMETER :: ID_HELP_ABOUT = 40009
|
||||
INTEGER, PARAMETER :: ID_TOOLBAR1 = 30101
|
||||
INTEGER, PARAMETER :: IDF_LABEL2 = 1003
|
||||
INTEGER, PARAMETER :: IDD_SELCT = 123
|
||||
INTEGER, PARAMETER :: ID_contnts = 40049
|
||||
INTEGER, PARAMETER :: ID_KEY = 40050
|
||||
INTEGER, PARAMETER :: ID_INEXACT = 40051
|
||||
INTEGER, PARAMETER :: ID_EXITA = 40057
|
||||
INTEGER, PARAMETER :: ID_EXEC = 40060
|
||||
INTEGER, PARAMETER :: ID_ITEM8 = 40061
|
||||
INTEGER, PARAMETER :: ID_ITEM54 = 40066
|
||||
INTEGER, PARAMETER :: IDD_ABOUT = 102
|
||||
INTEGER, PARAMETER :: ID_Data = 40006
|
||||
INTEGER, PARAMETER :: ID_VIEW = 40010
|
||||
INTEGER, PARAMETER :: ID_OPTIONS = 40011
|
||||
INTEGER, PARAMETER :: ID_CONTROLS = 40012
|
||||
INTEGER, PARAMETER :: IDD_CONTROLS = 101
|
||||
INTEGER, PARAMETER :: IDF_LABEL4 = 1005
|
||||
INTEGER, PARAMETER :: IDF_LABEL5 = 1006
|
||||
INTEGER, PARAMETER :: IDF_LABEL6 = 1007
|
||||
INTEGER, PARAMETER :: IDF_LABEL7 = 1008
|
||||
INTEGER, PARAMETER :: IDF_INTEGER1 = 1009
|
||||
INTEGER, PARAMETER :: IDF_INTEGER2 = 1010
|
||||
INTEGER, PARAMETER :: IDF_INTEGER3 = 1011
|
||||
INTEGER, PARAMETER :: IDF_INTEGER4 = 1012
|
||||
INTEGER, PARAMETER :: IDF_REAL1 = 1014
|
||||
INTEGER, PARAMETER :: IDD_TIMDAT = 103
|
||||
INTEGER, PARAMETER :: IDF_REAL2 = 1015
|
||||
INTEGER, PARAMETER :: IDF_REAL3 = 1016
|
||||
INTEGER, PARAMETER :: IDF_NEXT = 1017
|
||||
INTEGER, PARAMETER :: IDD_VELDAT = 104
|
||||
INTEGER, PARAMETER :: IDD_QALDAT = 105
|
||||
INTEGER, PARAMETER :: IDD_DISPER = 106
|
||||
INTEGER, PARAMETER :: IDF_LABEL8 = 1009
|
||||
INTEGER, PARAMETER :: IDF_REAL4 = 1018
|
||||
INTEGER, PARAMETER :: IDF_LABEL9 = 1010
|
||||
INTEGER, PARAMETER :: IDF_REAL5 = 1019
|
||||
INTEGER, PARAMETER :: IDD_SCALE = 107
|
||||
INTEGER, PARAMETER :: IDD_CONVEL = 108
|
||||
INTEGER, PARAMETER :: IDD_CONQUAL = 109
|
||||
INTEGER, PARAMETER :: IDF_LABEL10 = 1011
|
||||
INTEGER, PARAMETER :: IDF_REAL6 = 1020
|
||||
INTEGER, PARAMETER :: ID_TIMDAT = 40013
|
||||
INTEGER, PARAMETER :: ID_VELDAT = 40014
|
||||
INTEGER, PARAMETER :: ID_QUALDAT = 40015
|
||||
INTEGER, PARAMETER :: ID_DISPER = 40016
|
||||
INTEGER, PARAMETER :: ID_CONVEL = 40017
|
||||
INTEGER, PARAMETER :: ID_CONQUAL = 40018
|
||||
INTEGER, PARAMETER :: ID_SCALE = 40019
|
||||
INTEGER, PARAMETER :: IDD_OPTIONS = 110
|
||||
INTEGER, PARAMETER :: IDF_CHECK1 = 1013
|
||||
INTEGER, PARAMETER :: IDF_CHECK2 = 1014
|
||||
INTEGER, PARAMETER :: IDF_CHECK3 = 1015
|
||||
INTEGER, PARAMETER :: IDF_CHECK4 = 1016
|
||||
INTEGER, PARAMETER :: ID_PART = 40020
|
||||
INTEGER, PARAMETER :: ID_ADDPART = 40021
|
||||
INTEGER, PARAMETER :: ID_ZIN = 40022
|
||||
INTEGER, PARAMETER :: ID_OUT2 = 40023
|
||||
INTEGER, PARAMETER :: ID_OUT4 = 40024
|
||||
INTEGER, PARAMETER :: ID_PLEFT = 40025
|
||||
INTEGER, PARAMETER :: ID_PRIGHT = 40026
|
||||
INTEGER, PARAMETER :: ID_PUP = 40027
|
||||
INTEGER, PARAMETER :: ID_PDOWN = 40028
|
||||
INTEGER, PARAMETER :: IDD_PNLPART = 111
|
||||
INTEGER, PARAMETER :: ID_OPENVEL = 40029
|
||||
INTEGER, PARAMETER :: ID_PRINT = 40030
|
||||
INTEGER, PARAMETER :: ID_rdpart = 40031
|
||||
INTEGER, PARAMETER :: IDD_PLOTOPT = 112
|
||||
INTEGER, PARAMETER :: IDF_RADIO1 = 1002
|
||||
INTEGER, PARAMETER :: IDF_RADIO2 = 1003
|
||||
INTEGER, PARAMETER :: IDF_LABEL1 = 1004
|
||||
INTEGER, PARAMETER :: IDF_RADIO3 = 1005
|
||||
INTEGER, PARAMETER :: IDF_RADIO4 = 1006
|
||||
INTEGER, PARAMETER :: IDF_RADIO5 = 1007
|
||||
INTEGER, PARAMETER :: IDF_RADIO6 = 1008
|
||||
INTEGER, PARAMETER :: IDF_INTEGER5 = 1021
|
||||
INTEGER, PARAMETER :: ID_PLOTC = 40032
|
||||
INTEGER, PARAMETER :: ID_RPLOT = 40033
|
||||
INTEGER, PARAMETER :: IDF_INTEGER6 = 1022
|
||||
INTEGER, PARAMETER :: IDF_LABEL11 = 1023
|
||||
INTEGER, PARAMETER :: IDF_LABEL8a = 1024
|
||||
INTEGER, PARAMETER :: IDF_RADIO7 = 1010
|
||||
INTEGER, PARAMETER :: ID_CLR = 40002
|
||||
INTEGER, PARAMETER :: ID_CLIP = 40008
|
||||
INTEGER, PARAMETER :: ID_REMOV = 40034
|
||||
INTEGER, PARAMETER :: IDF_LABEL8b = 1025
|
||||
INTEGER, PARAMETER :: ID_RMAOUT = 40035
|
||||
INTEGER, PARAMETER :: IDF_maxp = 1026
|
||||
INTEGER, PARAMETER :: ID_BKG = 40036
|
||||
INTEGER, PARAMETER :: IDF_CHECK5 = 1017
|
||||
INTEGER, PARAMETER :: IDF_LABEL12 = 1012
|
||||
INTEGER, PARAMETER :: IDF_INTEGER7 = 1024
|
||||
INTEGER, PARAMETER :: IDF_LABEL13 = 1025
|
||||
INTEGER, PARAMETER :: IDR_MENU2 = 30002
|
||||
INTEGER, PARAMETER :: ID_VIEW1 = 40037
|
||||
INTEGER, PARAMETER :: ID_EXIT1 = 40038
|
||||
INTEGER, PARAMETER :: ID_CONTINUE1 = 40039
|
||||
INTEGER, PARAMETER :: ID_ZOOMIN1 = 40040
|
||||
INTEGER, PARAMETER :: ID_ZOOMOUT2 = 40042
|
||||
INTEGER, PARAMETER :: ID_ZOOMOUT4 = 40043
|
||||
INTEGER, PARAMETER :: ID_SHEARDAT = 40041
|
||||
INTEGER, PARAMETER :: IDD_SHEARIN = 114
|
||||
INTEGER, PARAMETER :: IDD_PARTLOSS = 115
|
||||
INTEGER, PARAMETER :: ID_PARTLS = 40044
|
||||
INTEGER, PARAMETER :: IDF_RADIO8 = 1013
|
||||
INTEGER, PARAMETER :: IDD_PLOTSHR = 116
|
||||
END MODULE RESOURCE
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
After Width: | Height: | Size: 5.1 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.8 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.3 KiB |
@ -0,0 +1,241 @@
|
||||
#define IDOK 1
|
||||
#define IDCANCEL 2
|
||||
#define IDABORT 3
|
||||
#define IDRETRY 4
|
||||
#define IDIGNORE 5
|
||||
#define IDYES 6
|
||||
#define IDNO 7
|
||||
#define IDCLOSE 8
|
||||
#define IDHELP 9
|
||||
#define WS_OVERLAPPED 0x00000000L
|
||||
#define WS_POPUP 0x80000000L
|
||||
#define WS_CHILD 0x40000000L
|
||||
#define WS_MINIMIZE 0x20000000L
|
||||
#define WS_VISIBLE 0x10000000L
|
||||
#define WS_DISABLED 0x08000000L
|
||||
#define WS_CLIPSIBLINGS 0x04000000L
|
||||
#define WS_CLIPCHILDREN 0x02000000L
|
||||
#define WS_MAXIMIZE 0x01000000L
|
||||
#define WS_CAPTION 0x00C00000L
|
||||
#define WS_BORDER 0x00800000L
|
||||
#define WS_DLGFRAME 0x00400000L
|
||||
#define WS_VSCROLL 0x00200000L
|
||||
#define WS_HSCROLL 0x00100000L
|
||||
#define WS_SYSMENU 0x00080000L
|
||||
#define WS_THICKFRAME 0x00040000L
|
||||
#define WS_GROUP 0x00020000L
|
||||
#define WS_TABSTOP 0x00010000L
|
||||
#define WS_MINIMIZEBOX 0x00020000L
|
||||
#define WS_MAXIMIZEBOX 0x00010000L
|
||||
#define ES_LEFT 0x00000000L
|
||||
#define ES_CENTER 0x00000001L
|
||||
#define ES_RIGHT 0x00000002L
|
||||
#define ES_MULTILINE 0x00000004L
|
||||
#define ES_UPPERCASE 0x00000008L
|
||||
#define ES_LOWERCASE 0x00000010L
|
||||
#define ES_PASSWORD 0x00000020L
|
||||
#define ES_AUTOVSCROLL 0x00000040L
|
||||
#define ES_AUTOHSCROLL 0x00000080L
|
||||
#define ES_READONLY 0x00000800L
|
||||
#define ES_WANTRETURN 0x00001000L
|
||||
#define BS_PUSHBUTTON 0x00000000L
|
||||
#define BS_DEFPUSHBUTTON 0x00000001L
|
||||
#define BS_AUTOCHECKBOX 0x00000003L
|
||||
#define BS_GROUPBOX 0x00000007L
|
||||
#define BS_USERBUTTON 0x00000008L
|
||||
#define BS_AUTORADIOBUTTON 0x00000009L
|
||||
#define BS_OWNERDRAW 0x0000000BL
|
||||
#define BS_LEFTTEXT 0x00000020L
|
||||
#define BS_TEXT 0x00000000L
|
||||
#define BS_ICON 0x00000040L
|
||||
#define BS_BITMAP 0x00000080L
|
||||
#define BS_LEFT 0x00000100L
|
||||
#define BS_RIGHT 0x00000200L
|
||||
#define BS_CENTER 0x00000300L
|
||||
#define BS_TOP 0x00000400L
|
||||
#define BS_BOTTOM 0x00000800L
|
||||
#define BS_VCENTER 0x00000C00L
|
||||
#define BS_PUSHLIKE 0x00001000L
|
||||
#define BS_MULTILINE 0x00002000L
|
||||
#define BS_FLAT 0x00008000L
|
||||
#define SS_LEFT 0x00000000L
|
||||
#define SS_CENTER 0x00000001L
|
||||
#define SS_RIGHT 0x00000002L
|
||||
#define SS_ICON 0x00000003L
|
||||
#define SS_BLACKRECT 0x00000004L
|
||||
#define SS_GRAYRECT 0x00000005L
|
||||
#define SS_WHITERECT 0x00000006L
|
||||
#define SS_BLACKFRAME 0x00000007L
|
||||
#define SS_GRAYFRAME 0x00000008L
|
||||
#define SS_WHITEFRAME 0x00000009L
|
||||
#define SS_SIMPLE 0x0000000BL
|
||||
#define SS_LEFTNOWORDWRAP 0x0000000CL
|
||||
#define SS_NOPREFIX 0x00000080L
|
||||
#define SS_BITMAP 0x0000000EL
|
||||
#define SS_ENHMETAFILE 0x0000000FL
|
||||
#define SS_ETCHEDHORZ 0x00000010L
|
||||
#define SS_ETCHEDVERT 0x00000011L
|
||||
#define SS_ETCHEDFRAME 0x00000012L
|
||||
#define SS_NOTIFY 0x00000100L
|
||||
#define SS_CENTERIMAGE 0x00000200L
|
||||
#define SS_RIGHTJUST 0x00000400L
|
||||
#define SS_REALSIZEIMAGE 0x00000800L
|
||||
#define SS_SUNKEN 0x00001000L
|
||||
#define DS_SYSMODAL 0x00000002L
|
||||
#define DS_3DLOOK 0x00000004L
|
||||
#define DS_SETFONT 0x00000040L
|
||||
#define DS_MODALFRAME 0x00000080L
|
||||
#define DS_CONTROL 0x00000400L
|
||||
#define LBS_NOTIFY 0x00000001L
|
||||
#define LBS_MULTIPLESEL 0x00000008L
|
||||
#define LBS_HASSTRINGS 0x00000040L
|
||||
#define LBS_USETABSTOPS 0x00000080L
|
||||
#define LBS_NOINTEGRALHEIGHT 0x00000100L
|
||||
#define LBS_MULTICOLUMN 0x00000200L
|
||||
#define LBS_EXTENDEDSEL 0x00000800L
|
||||
#define LBS_DISABLENOSCROLL 0x00001000L
|
||||
#define LBS_NOSEL 0x00004000L
|
||||
#define CBS_SIMPLE 0x00000001L
|
||||
#define CBS_DROPDOWN 0x00000002L
|
||||
#define CBS_DROPDOWNLIST 0x00000003L
|
||||
#define CBS_OWNERDRAWFIXED 0x00000010L
|
||||
#define CBS_AUTOHSCROLL 0x00000040L
|
||||
#define CBS_SORT 0x00000100L
|
||||
#define CBS_HASSTRINGS 0x00000200L
|
||||
#define CBS_DISABLENOSCROLL 0x00000800L
|
||||
#define CBS_UPPERCASE 0x00002000L
|
||||
#define CBS_LOWERCASE 0x00004000L
|
||||
#define WS_EX_DLGMODALFRAME 0x00000001L
|
||||
#define WS_EX_WINDOWEDGE 0x00000100L
|
||||
#define WS_EX_CLIENTEDGE 0x00000200L
|
||||
#define WS_EX_LEFTSCROLLBAR 0x00004000L
|
||||
#define WS_EX_STATICEDGE 0x00020000L
|
||||
#define TCS_TABS 0x0000
|
||||
#define TCS_BUTTONS 0x0100
|
||||
#define TCS_SINGLELINE 0x0000
|
||||
#define TCS_MULTILINE 0x0200
|
||||
#define TCS_RIGHTJUSTIFY 0x0000
|
||||
#define TCS_FIXEDWIDTH 0x0400
|
||||
#define TCS_RAGGEDRIGHT 0x0800
|
||||
#define TCS_FOCUSONBUTTONDOWN 0x1000
|
||||
#define TCS_FOCUSNEVER 0x8000
|
||||
#define GS_READONLYCOLOUR 0x00000010L
|
||||
#define GS_REPSELECTION 0x00000020L
|
||||
#define GS_REPCUTPASTE 0x00000040L
|
||||
#define GS_DEFROWLABELS 0x00000080L
|
||||
#define GS_NOINTEGRALHEIGHT 0x00000100L
|
||||
#define GS_COLUMNLABELS 0x00000200L
|
||||
#define GS_ROWLABELS 0x00000400L
|
||||
#define GS_READONLY 0x00000800L
|
||||
#define GS_WANTRETURN 0x00001000L
|
||||
#define GS_RESIZECOLUMNS 0x00002000L
|
||||
#define GS_WANTTAB 0x00004000L
|
||||
#define GS_WRAP 0x00008000L
|
||||
#define TBS_AUTOTICKS 0x0001
|
||||
#define TBS_VERT 0x0002
|
||||
#define TBS_HORZ 0x0000
|
||||
#define TBS_TOP 0x0004
|
||||
#define TBS_BOTTOM 0x0000
|
||||
#define TBS_LEFT 0x0004
|
||||
#define TBS_RIGHT 0x0000
|
||||
#define TBS_BOTH 0x0008
|
||||
#define TBS_NOTICKS 0x0010
|
||||
#define TBS_ENABLESELRANGE 0x0020
|
||||
#define TBS_FIXEDLENGTH 0x0040
|
||||
#define TBS_NOTHUMB 0x0080
|
||||
#define TVS_HASBUTTONS 0x0001
|
||||
#define TVS_HASLINES 0x0002
|
||||
#define TVS_LINESATROOT 0x0004
|
||||
#define TVS_EDITLABELS 0x0008
|
||||
#define TVS_DISABLEDRAGDROP 0x0010
|
||||
#define TVS_SHOWSELALWAYS 0x0020
|
||||
#define VK_LBUTTON 0x01
|
||||
#define VK_RBUTTON 0x02
|
||||
#define VK_CANCEL 0x03
|
||||
#define VK_MBUTTON 0x04
|
||||
#define VK_BACK 0x08
|
||||
#define VK_TAB 0x09
|
||||
#define VK_CLEAR 0x0C
|
||||
#define VK_RETURN 0x0D
|
||||
#define VK_SHIFT 0x10
|
||||
#define VK_CONTROL 0x11
|
||||
#define VK_MENU 0x12
|
||||
#define VK_PAUSE 0x13
|
||||
#define VK_CAPITAL 0x14
|
||||
#define VK_ESCAPE 0x1B
|
||||
#define VK_SPACE 0x20
|
||||
#define VK_PRIOR 0x21
|
||||
#define VK_NEXT 0x22
|
||||
#define VK_END 0x23
|
||||
#define VK_HOME 0x24
|
||||
#define VK_LEFT 0x25
|
||||
#define VK_UP 0x26
|
||||
#define VK_RIGHT 0x27
|
||||
#define VK_DOWN 0x28
|
||||
#define VK_SELECT 0x29
|
||||
#define VK_PRINT 0x2A
|
||||
#define VK_EXECUTE 0x2B
|
||||
#define VK_SNAPSHOT 0x2C
|
||||
#define VK_INSERT 0x2D
|
||||
#define VK_DELETE 0x2E
|
||||
#define VK_HELP 0x2F
|
||||
#define VK_NUMPAD0 0x60
|
||||
#define VK_NUMPAD1 0x61
|
||||
#define VK_NUMPAD2 0x62
|
||||
#define VK_NUMPAD3 0x63
|
||||
#define VK_NUMPAD4 0x64
|
||||
#define VK_NUMPAD5 0x65
|
||||
#define VK_NUMPAD6 0x66
|
||||
#define VK_NUMPAD7 0x67
|
||||
#define VK_NUMPAD8 0x68
|
||||
#define VK_NUMPAD9 0x69
|
||||
#define VK_MULTIPLY 0x6A
|
||||
#define VK_ADD 0x6B
|
||||
#define VK_SEPARATOR 0x6C
|
||||
#define VK_SUBTRACT 0x6D
|
||||
#define VK_DECIMAL 0x6E
|
||||
#define VK_DIVIDE 0x6F
|
||||
#define VK_F1 0x70
|
||||
#define VK_F2 0x71
|
||||
#define VK_F3 0x72
|
||||
#define VK_F4 0x73
|
||||
#define VK_F5 0x74
|
||||
#define VK_F6 0x75
|
||||
#define VK_F7 0x76
|
||||
#define VK_F8 0x77
|
||||
#define VK_F9 0x78
|
||||
#define VK_F10 0x79
|
||||
#define VK_F11 0x7A
|
||||
#define VK_F12 0x7B
|
||||
#define VK_F13 0x7C
|
||||
#define VK_F14 0x7D
|
||||
#define VK_F15 0x7E
|
||||
#define VK_F16 0x7F
|
||||
#define VK_F17 0x80
|
||||
#define VK_F18 0x81
|
||||
#define VK_F19 0x82
|
||||
#define VK_F20 0x83
|
||||
#define VK_F21 0x84
|
||||
#define VK_F22 0x85
|
||||
#define VK_F23 0x86
|
||||
#define VK_F24 0x87
|
||||
#define VK_NUMLOCK 0x90
|
||||
#define VK_SCROLL 0x91
|
||||
#define VK_LSHIFT 0xA0
|
||||
#define VK_RSHIFT 0xA1
|
||||
#define VK_LCONTROL 0xA2
|
||||
#define VK_RCONTROL 0xA3
|
||||
#define VK_LMENU 0xA4
|
||||
#define VK_RMENU 0xA5
|
||||
#define VK_ATTN 0xF6
|
||||
#define VK_CRSEL 0xF7
|
||||
#define VK_EXSEL 0xF8
|
||||
#define VK_EREOF 0xF9
|
||||
#define VK_PLAY 0xFA
|
||||
#define VK_ZOOM 0xFB
|
||||
#define VK_NONAME 0xFC
|
||||
#define VK_PA1 0xFD
|
||||
#define VK_OEM_CLEAR 0xFE
|
||||
|
||||
#define CREATEPROCESS_MANIFEST_RESOURCE_ID 1
|
||||
#define RT_MANIFEST 24
|
||||
Binary file not shown.
Binary file not shown.
@ -0,0 +1,103 @@
|
||||
INBNGEO PART5.geo & Input binary geometry file
|
||||
INELEV 2014-10.TID & Input time series of elevation file
|
||||
INELTFL est-10B.elf & Input time series of element inflow data
|
||||
OUTFIL ESTDYN10B.OUT & Output ASCII results file
|
||||
OUTBNRMA ESTDYN10B.RMA & Output binary results file
|
||||
OUTBNRST ESTDYN10B.RST & Output binary restart file
|
||||
ENDFIL
|
||||
ENDLIMIT
|
||||
TI Ralphs Bay
|
||||
STARTIM 01/08/2014 00.00 $ Starting date and time
|
||||
ENDTIM $ Ending date and time
|
||||
VERTTURB 1 $ Vertical turbulence option
|
||||
MARSHOPT -2 $ Marsh option 0=inactive -2 = input marsh parameters
|
||||
EDDYTYPE 1 $ Eddy type 0 = fixed, 1= scaled, 2 = Smagorinsky
|
||||
TBFACT 0.200 $ Turbulence factor when Smagorinsky is active
|
||||
TBMINT 2.000 $ Turbulence minimum when Smagorinsky is active
|
||||
TIMPROJ 1 $ Time projection switch 1= no projection, 0 = use time derivative (least stable), 2 = project u
|
||||
3DTYPLD3 $ 3-d model with type LD3 input
|
||||
GRAVITY 1 $ Units switch 1 = metric 0 = english
|
||||
ZEROBED 0 $ Force zero bed velocity 1 = at all bed levels 2 = limited by bed level input
|
||||
ZERBELLV 0.000 $ Force zero velocity on water surface
|
||||
PASSSAL 0 $ Bed level below which zero bed level in applied
|
||||
PASSTMP 0 $ Ignore influence of salinity on water density
|
||||
PASSSED 0 $ Ignore influence of temperature on water density
|
||||
ZEROSURF 0 $ Ignore influence of sediment on water density
|
||||
SAVITR 0 $ Save binary file for all iterations 0 = ignore, 1 =save
|
||||
REVRTDEN 0.000 $ Option for vertical density model 0 = standard 1 = revised method
|
||||
OMEGA -42.900 $ Latitude (degrees) positive in northern hemisphere
|
||||
ELEV 0.500 $ Reference level for vertical transformation / Starting water level
|
||||
X-SCALE 0.000 $ x scale factor (0.0 equivalent to 1.0)
|
||||
Y-SCALE 0.000 $ y scale factor (0.0 equivalent to 1.0)
|
||||
Z-SCALE 0.000 $ z sacle factor (0.0 equivalent to 1.0)
|
||||
TRNSCVAL 0.000
|
||||
TRNSPOWR 0.000
|
||||
UNOM 0.000
|
||||
UDIR 0.000
|
||||
HMIN 0.000
|
||||
DSET 0.000
|
||||
DSETD 0.000
|
||||
FIXBC 0
|
||||
VERTEQSW 0
|
||||
INITSAL 35.000
|
||||
INITTEMP 20.000
|
||||
INITSED 0.000
|
||||
INITUBED 0.000
|
||||
INITVBED 0.000
|
||||
RETRNPCT 0.000
|
||||
SURFMIX 0.500
|
||||
SSITN 0
|
||||
TRITN 6
|
||||
TRSTEPS 96
|
||||
TRITN 0
|
||||
ASCSVFRQ 10
|
||||
STBIN 0
|
||||
DRYSW 0
|
||||
FRQBIN 0
|
||||
FRQRST 40
|
||||
RWASCFRQ 0
|
||||
1DTYP 0
|
||||
SOLVER 4
|
||||
SLVERDSK 0
|
||||
MESSRWND 0
|
||||
INITWSRF 0.000
|
||||
CONV-VEL 0.00100
|
||||
CONV-DEP 0.00010
|
||||
CONV-SAL 0.00300
|
||||
CONV-TMP 0.00000
|
||||
CONV-SED 0.00000
|
||||
EDDY-MAT 1 -0.20000
|
||||
EDDY-VRT 1 0.10000
|
||||
DIFF-MAT 1 0.10000
|
||||
DIFF-VRT 1 0.02500
|
||||
MANN-MAT 1 0.04000
|
||||
MANN-BNK 1 0.02000
|
||||
MANN-SRF 1 0.00000
|
||||
MARSH-FR 1 25.00000
|
||||
ED-VTVAR 1 1.000 0.000 0.000
|
||||
BN-V-MIN 1.000
|
||||
BN-V-PWR 1.000
|
||||
TR-V-MIN 1.000
|
||||
TR-V-PWR 1.000
|
||||
LD3 0 4 -1.000 -3.500 -7.000 -50.000
|
||||
MARSH-SH 2.000
|
||||
MARSH-SH 0.500
|
||||
MARSH-PR 0.010
|
||||
MARSH-LM 0.000
|
||||
TAB-END
|
||||
ENDGEO
|
||||
DELTA-HR 0.0000 & Time step in minutes
|
||||
QSL-ITR & iterate on flow/depth and salinity -2- flow/depth and -1- salinty iterations per cycle
|
||||
FL-ELEVC 1 0 0.5000 35.000 20.000 0.000 & Continuity line elevation FL-ELEVC is elevation specified as constant along a line (subs values from file)- CCLINE, Elevation ,bc-sal,bc-temp,bc-sed
|
||||
FL-ELMET 584 0 50.0000 5.000 20.000 0.000 & Element Inflow listing element number and total inflow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMET 585 0 51.0000 6.000 21.000 1.000 & Element Inflow listing element number and total inflow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMED 586 1 2.0000 7.000 22.000 2.000 & Element Inflow listing element number and spec flow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMGD 1 3.0000 8.000 23.000 3.000 & Element Inflow treated as a total rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMGT 2 52.0000 9.000 24.000 4.000 & Element Inflow treated as a spcific rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-RAIN 4.0000 10.000 25.000 5.000 & Element Inflow treated as a rainfall rate (in mm/day) over all surface elementa. flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-GRAIN 1 5.0000 11.000 26.000 6.000 & Element Inflow listing element inflow for a given group and rainfall into element. Grp num,flow rate,salinity,temp,sed -FL means subsequent values from file
|
||||
DELTA-HR 0.2500 & Time step in minutes
|
||||
DATE-END 31/12/2014 00.00 & Ending time for the time step block
|
||||
QSL-ITR & iterate on flow/depth and salinity -2- flow/depth and -1- salinty iterations per cycle
|
||||
ENDSTEP
|
||||
ENDDATA
|
||||
@ -0,0 +1,70 @@
|
||||
output file names
|
||||
OUTFIL ESTDYN10B.OUT
|
||||
input element inflow file name
|
||||
INELTFL est-10B.elf
|
||||
input tidal bc file name
|
||||
INELEV 2014-10.TID
|
||||
input geometry file name
|
||||
INBNGEO PART5.geo
|
||||
output restart file name
|
||||
OUTBNRSTESTDYN10B.RST
|
||||
output results file name
|
||||
OUTBNRMAESTDYN10B.RMA
|
||||
output 3d geometry
|
||||
OUTBN3GEESTDYN10B.3DG
|
||||
end of files indicator
|
||||
ENDFIL
|
||||
TI Ralphs Bay
|
||||
com ioptzd idnopt iyrr dayofy tet iedsw trbfact trbmin projswi
|
||||
C0 1 -2 2014 213 0.00 1 0.2 2.0 1
|
||||
ndp igrv izb ipass1 ipass2 ipass3 izers isavitr zerbed ivertden
|
||||
C1 2 1 0 0 0 0 0 0 0 0
|
||||
com omega elevv xscale yscale zscale
|
||||
C2 -42.9 0.5 0.0 0.0 0
|
||||
com cmin cpr unom udir hmin dset dsetd ifxbc ieqswt
|
||||
C3 0 0 0 0 0 0 0 0
|
||||
com sali tempi sedi uinp vinp prcnt dmix
|
||||
C4 35. 20. .0 0 0 0.5
|
||||
niti nitn tstart ncyc iprt nprti nprtf irsav idswt
|
||||
C5 0 6 0 96 1 0 10 0 0
|
||||
ioutfreq ioutrst irweout id1dnd icpu iooc irewmes
|
||||
C6 0 40 0 0 4 0 0
|
||||
elev1
|
||||
INIT 0.0
|
||||
com cvg-u cvg-v cvg-h cvg-s cvg-t cvg-sd eqdrp drpfct
|
||||
CV 0.0010 0.0010 0.0001 .003 0.0000 .0 0
|
||||
tra
|
||||
COL 0.5
|
||||
com eletype trbuxx trbuyy trbvxx trbvyy Man/Che trbvzx trbvzy
|
||||
ED1 1 -0.2 -0.2 -0.2 -0.2 0.04 0.10 0.1
|
||||
com 'blank' difx dify difz bnk-Man mrsh-fac srf-Man
|
||||
ED2 0.1 0.1 .025 0.02 25.0 0.00
|
||||
'blank' AC1 AC2 AC3 AC4
|
||||
MP 2.0 0.5 0.01 0.0
|
||||
LD3 0 4 -1. -3.5 -7. -50.
|
||||
ENDGEO
|
||||
com delt-t
|
||||
DT 0.0
|
||||
bq switch
|
||||
BQS
|
||||
com ccline lay-no wd-elev sal temp sed file-sw
|
||||
HC 1 0 0.5 35. 20. .0 1
|
||||
com
|
||||
HCN 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
|
||||
HCN 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
|
||||
com elt# lay-no nest eltflw sal temp sed file-sw
|
||||
EFE 584 0 1 50.0 5. 20. .0 1
|
||||
EFE 585 0 1 51. 6. 21. 1.
|
||||
EFE 586 1 0 2. 7. 22. 2.
|
||||
EFA 1 0 3. 8. 23. 3.
|
||||
EFA 2 1 52. 9. 24. 4.
|
||||
ETA 4. 10. 25. 5.
|
||||
ETG 1 0 0 5. 11 26. 6.
|
||||
ENDSTEP
|
||||
com delt-t iyre idye ihre nprtf npsw nccsw
|
||||
DT 0.25 2014 365 0.0
|
||||
bq switch
|
||||
BQS
|
||||
ENDSTEP
|
||||
ENDDATA
|
||||
|
||||
@ -0,0 +1,122 @@
|
||||
INBNGEO PART5.geo & Input binary geometry file
|
||||
INELEV 2014-10.TID & Input time series of elevation file
|
||||
INELTFL est-10B.elf & Input time series of element inflow data
|
||||
OUTFIL ESTDYN10B-NEW.OUT & Output ASCII results file
|
||||
OUTBNRMA ESTDYN10B-NEW2.RMA & Output binary results file
|
||||
OUTBNRST ESTDYN10B-NEW2.RST & Output binary restart file
|
||||
OUTCON CONTINUITY.DAT & Output ASCII time series file for selected continuity lines
|
||||
OUTBN3GE ESTDYN10B-NEW2.3DG & Output Binary 3-d geometry file
|
||||
ENDFIL
|
||||
ENDLIMIT
|
||||
TI 1,
|
||||
STARTIM 01/08/2014 00 $ Starting date and time
|
||||
ENDTIM $ Ending date and time
|
||||
VERTTURB 1 $ Vertical turbulence option
|
||||
MARSHOPT -2 $ Marsh option 0=inactive -2 = input marsh parameters
|
||||
EDDYTYPE 1 $ Eddy type 0 = fixed, 1= scaled, 2 = Smagorinsky
|
||||
TBFACT 0.200 $ Turbulence factor when Smagorinsky is active
|
||||
TBMINT 1.000 $ Turbulence minimum when Smagorinsky is active
|
||||
TIMPROJ 1 $ Time projection switch 1= no projection, 0 = use time derivative (least stable), 2 = project u
|
||||
3DTYPLD3 $ 3-d model with type LD3 input
|
||||
GRAVITY 1 $ Units switch 1 = metric 0 = english
|
||||
ZEROBED 0 $ Force zero bed velocity 1 = at all bed levels 2 = limited by bed level input
|
||||
ZERBELLV 0.000 $ Force zero velocity on water surface
|
||||
PASSSAL 0 $ Bed level below which zero bed level in applied
|
||||
PASSTMP 0 $ Ignore influence of salinity on water density
|
||||
PASSSED 0 $ Ignore influence of temperature on water density
|
||||
ZEROSURF 0 $ Ignore influence of sediment on water density
|
||||
SAVITR 0 $ Save binary file for all iterations 0 = ignore, 1 =save
|
||||
REVRTDEN 0.000 $ Option for vertical density model 0 = standard 1 = revised method
|
||||
OMEGA -42.900 $ Latitude (degrees) positive in northern hemisphere
|
||||
ELEV 0.500 $ Reference level for vertical transformation / Starting water level
|
||||
X-SCALE 1.000 $ x scale factor (0.0 equivalent to 1.0)
|
||||
Y-SCALE 1.000 $ y scale factor (0.0 equivalent to 1.0)
|
||||
Z-SCALE 1.000 $ z sacle factor (0.0 equivalent to 1.0)
|
||||
TRNSCVAL 1.000
|
||||
TRNSPOWR 1.000
|
||||
UNOM 0.000
|
||||
UDIR 0.000
|
||||
HMIN 0.000
|
||||
DSET 0.200
|
||||
DSETD 0.300
|
||||
FIXBC 0
|
||||
VERTEQSW 20000
|
||||
INITSAL 35.000
|
||||
INITTEMP 20.000
|
||||
INITSED 0.000
|
||||
INITUBED 0.100
|
||||
INITVBED 0.100
|
||||
RETRNPCT 0.000
|
||||
SURFMIX 0.500
|
||||
SSITN 0
|
||||
TRITN 6
|
||||
TRSTEPS 2
|
||||
TRITN 0
|
||||
ASCSVFRQ 1
|
||||
STBIN 1
|
||||
DRYSW 0
|
||||
FRQBIN 1
|
||||
FRQRST 10
|
||||
RWASCFRQ 999999
|
||||
1DTYP 1
|
||||
SOLVER 4
|
||||
SLVERDSK 0
|
||||
MESSRWND 999999
|
||||
INITWSRF 0.000
|
||||
CONV-VEL 0.00100
|
||||
CONV-DEP 0.00100
|
||||
CONV-SAL 0.00300
|
||||
CONV-TMP 0.01000
|
||||
CONV-SED 0.01000
|
||||
CCLINOUT 1
|
||||
CONT-FLW
|
||||
CONT-SAL
|
||||
EDDY-MAT 1 0.20000
|
||||
EDDY-VRT 1 0.10000
|
||||
DIFF-MAT 1 0.10000
|
||||
DIFF-VRT 1 0.02500
|
||||
MANN-MAT 1 0.04000
|
||||
MANN-BNK 1 0.02000
|
||||
MANN-SRF 1 0.00000
|
||||
MARSH-FR 1 25.00000
|
||||
ED-VTVAR 1 1.000 0.000 0.000
|
||||
BN-V-MIN 1.000
|
||||
BN-V-PWR 1.000
|
||||
TR-V-MIN 1.000
|
||||
TR-V-PWR 1.000
|
||||
LD3 0 4 -1.000 -3.500 -7.000 -50.000
|
||||
MARSH-SH 2.000
|
||||
MARSH-SH 0.500
|
||||
MARSH-PR 0.010
|
||||
MARSH-LM 0.000
|
||||
TAB-END
|
||||
ENDGEO
|
||||
DELTA-HR 0.0000 & Time step in minutes
|
||||
QSL-ITR & iterate on flow/depth and salinity -2- flow/depth and -1- salinty iterations per cycle
|
||||
FL-ELEVC 1 0 0.5000 35.000 20.000 0.000 & Continuity line elevation FL-ELEVC is elevation specified as constant along a line (subs values from file)- CCLINE, Elevation ,bc-sal,bc-temp,bc-sed
|
||||
CN-ELEVC 2 1 0.6000 36.000 21.000 1.000 & Continuity line elevation CN-ELEVC is elevation specified as constant along a line - CCLINE, Elevation ,bc-sal,bc-temp,bc-sed
|
||||
CN-ELEVI 3 2 0.7000 0.5000 37.000 21.000 2.000 & Continuity line elevation CN-ELEVI is elevation specified as tapered between two end values- CCLINE, Elev1, Elev2 ,bc-sal,bc-temp,bc-sed
|
||||
FL-ELEVI 4 3 0.8000 0.6000 38.000 22.000 3.000 & Continuity line elevation FL-ELEVI is elevation specified as tapered between two end values (subs values from file)- CCLINE, Elev1, Elev2,bc-sal,bc-temp,bc-sed
|
||||
CN-QC 1 0 1.00 2.00 35.000 20.000 1.000 & Continuity line inflow CN-QC is standard inflow , CCLINE, Total Flow, Dir, bc-sal,bc-temp,bc-sed FL-QC means subsequent steps from file
|
||||
CN-QF 2 1 2.00 3.00 36.000 21.000 2.000 & Continuity line inflow CN-QF is inflow tapered to zero at end element, flow parallel allowed - CCLINE, Total Flow, dir,bc-sal ,bc-temp,bc-sed -FL means file
|
||||
CN-QH 3 2 3.00 4.00 37.000 22.000 3.000 & Continuity line inflow CN-QH is specified inflow distribution - CCLINE, Total Flow, dir,bc-sal ,bc-temp,bc-sed -FL means subsequent values from file
|
||||
FL-QC 4 3 4.00 5.00 38.000 23.000 4.000 & Continuity line inflow CN-QC is standard inflow , CCLINE, Total Flow, Dir, bc-sal,bc-temp,bc-sed FL-QC means subsequent steps from file
|
||||
FL-QF 5 4 5.00 6.00 39.000 24.000 5.000 & Continuity line inflow CN-QF is inflow tapered to zero at end element, flow parallel allowed - CCLINE, Total Flow, dir,bc-sal ,bc-temp,bc-sed -FL means file
|
||||
FL-QH 6 5 6.00 7.00 40.000 25.000 6.000 & Continuity line inflow CN-QH is specified inflow distribution - CCLINE, Total Flow, dir,bc-sal ,bc-temp,bc-sed -FL means subsequent values from file
|
||||
FL-ELMET 584 0 50.0000 5.000 20.000 0.000 & Element Inflow listing element number and total inflow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMET 585 1 51.0000 6.000 21.000 1.000 & Element Inflow listing element number and total inflow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
FL-ELMED 586 2 5.0000 7.000 22.000 2.000 & Element Inflow listing element number and spec flow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMED 587 3 6.0000 8.000 23.000 3.000 & Element Inflow listing element number and spec flow into element. Elt num, Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
FL-RAIN 6.0000 9.000 24.000 4.000 & Element Inflow treated as a rainfall rate (in mm/day) over all surface elementa. flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-RAIN 7.0000 10.000 25.000 5.000 & Element Inflow treated as a rainfall rate (in mm/day) over all surface elementa. flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
FL-ELMGT 1 8.0000 11.000 26.000 6.000 & Element Inflow treated as a spcific rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMGT 2 9.0000 12.000 27.000 7.000 & Element Inflow treated as a spcific rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
FL-ELMGD 3 10.0000 13.000 28.000 8.000 & Element Inflow treated as a total rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
CN-ELMGD 4 11.0000 14.000 29.000 9.000 & Element Inflow treated as a total rate over all given layer of elements. Lay num,flow rate,salinity,temp,sediment -FL means subsequent values from file
|
||||
FL-GRAIN 5 12.0000 15.000 30.000 10.000 & Element Inflow listing element inflow for a given group and rainfall into element. Grp num,flow rate,salinity,temp,sed -FL means subsequent values from file
|
||||
CN-GRAIN 6 13.0000 16.000 31.000 11.000 & Element Inflow listing element inflow for a given group and rainfall into element. Grp num,flow rate,salinity,temp,sed -FL means subsequent values from file
|
||||
DELTA-HR 0.2500 & Time step in minutes
|
||||
DATE-END 31/12/2014 12 & Ending time for the time step block
|
||||
QSL-ITR & iterate on flow/depth and salinity -2- flow/depth and -1- salinty iterations per cycle
|
||||
ENDSTEP
|
||||
ENDDATA
|
||||
@ -0,0 +1,93 @@
|
||||
output file names
|
||||
OUTFIL ESTDYN10B-NEW.OUT
|
||||
input element inflow file name
|
||||
INELTFL est-10B.elf
|
||||
input tidal bc file name
|
||||
INELEV 2014-10.TID
|
||||
input geometry file name
|
||||
INBNGEO PART5.geo
|
||||
output restart file name
|
||||
OUTBNRST ESTDYN10B-NEW2.RST
|
||||
output results file name
|
||||
OUTBNRMA ESTDYN10B-NEW2.RMA
|
||||
output 3d geometry
|
||||
OUTBN3GE ESTDYN10B-NEW2.3DG
|
||||
output continuity line data
|
||||
OUTCON CONTINUITY.DAT
|
||||
end of files indicator
|
||||
ENDFIL
|
||||
TI Ralphs Bay
|
||||
STARTIM 01/08/2014 00.00
|
||||
VERTTURB 1
|
||||
MARSHOPT -2
|
||||
EDDYTYPE 1
|
||||
TIMPROJ 1
|
||||
3DTYPLD3
|
||||
OMEGA -42.9
|
||||
ELEV 0.5
|
||||
INITSAL 35.
|
||||
INITTEMP 20.
|
||||
SURFMIX 0.5
|
||||
SSITN 0
|
||||
TRITN 6
|
||||
TRSTEPS 2
|
||||
ECHSVALL
|
||||
ASCSVFRQ 1
|
||||
INITWSRF 0.
|
||||
CONV-VEL .001
|
||||
CONV-DEP .001
|
||||
CONV-SAL .003
|
||||
TRANSIT 0.5
|
||||
EDDY-MAT 1 0.2
|
||||
EDDY-VRT 1 0.1
|
||||
MANN-MAT 1 0.04
|
||||
DIFF-MAT 1 0.1
|
||||
DIFF-VRT 1 0.025
|
||||
MANN-BNK 1 0.02
|
||||
MARSH-FR 1 25.0
|
||||
MARSH-SH 2.0
|
||||
MARSH-RG 0.5
|
||||
MARSH-PR 0.01
|
||||
MARSH-LM 0.00
|
||||
CCLINOUT 1
|
||||
CONT-FLW
|
||||
CONT-SAL
|
||||
BN-V-MIN 1.
|
||||
BN-V-PWR 1.
|
||||
TR-V-MIN 1.
|
||||
TR-V-PWR 1.
|
||||
ED-VTVAR 1 1. 0. 0.
|
||||
LD3 0 4 -1. -3.5 -7. -50.
|
||||
TAB-END
|
||||
|
||||
ENDGEO
|
||||
DELTA-HR 0.0
|
||||
QSL-ITR
|
||||
FL-ELEVC 1 0 0.5 35. 20. 0.
|
||||
CN-ELEVC 2 1 0.6 36. 21. 1.
|
||||
CN-ELEVI 3 2 0.7 0.5 37. 21. 2.
|
||||
FL-ELEVI 4 3 0.8 0.6 38. 22. 3.
|
||||
CN-QC 1 0 1.0 2.0 35. 20. 1.
|
||||
CN-QF 2 1 2.0 3.0 36. 21. 2.
|
||||
CN-QH 3 2 3.0 4.0 37. 22. 3.
|
||||
FL-QC 4 3 4.0 5.0 38. 23. 4.
|
||||
FL-QF 5 4 5.0 6.0 39. 24. 5.
|
||||
FL-QH 6 5 6.0 7.0 40. 25. 6.
|
||||
FL-ELMET 584 0 50. 5. 20. 0.
|
||||
CN-ELMET 585 1 51. 6 21. 1.
|
||||
FL-ELMED 586 2 5. 7. 22. 2.
|
||||
CN-ELMED 587 3 6. 8. 23. 3.
|
||||
FL-RAIN 6. 9. 24. 4.
|
||||
CN-RAIN 7. 10. 25. 5.
|
||||
FL-ELMGT 1 8. 11. 26. 6.
|
||||
CN-ELMGT 2 9. 12. 27. 7.
|
||||
FL-ELMGD 3 10. 13. 28. 8.
|
||||
CN-ELMGD 4 11. 14. 29. 9.
|
||||
FL-GRAIN 5 12. 15. 30. 10.
|
||||
CN-GRAIN 6 13. 16. 31. 11.
|
||||
ENDSTEP
|
||||
DELTA-HR 0.25
|
||||
DATE-END 31/12/2014 12.00
|
||||
QSL-ITR
|
||||
ENDSTEP
|
||||
ENDDATA
|
||||
@ -0,0 +1,104 @@
|
||||
passport
|
||||
Ian 526199906 mar 4 2015 until oct 4 2025
|
||||
Judy N3464148 aug 3 2010 until aug 3 2020
|
||||
|
||||
TFN Judy 129 324 130
|
||||
Ian 342 681 809
|
||||
|
||||
MEDICARE IAN 2524485465 1
|
||||
JUDY 2068554317
|
||||
|
||||
mygov username Judy JF431820
|
||||
Ian ZM660183 usual road for both
|
||||
|
||||
mac IAN 23895626
|
||||
JUDY 23895840
|
||||
|
||||
NETGEAR ORBI
|
||||
|
||||
admin M1 with !
|
||||
|
||||
INTEL ? 09533370251049107c46
|
||||
J3 BUT UPPER CASE
|
||||
Dna%niw6
|
||||
lirg!Groe9
|
||||
C99 !
|
||||
D02j70!M08
|
||||
H40t70!A72
|
||||
101!Hgwy
|
||||
iinet
|
||||
ikingrma-nbn
|
||||
10 H
|
||||
|
||||
|
||||
Js NAB ID 12961923
|
||||
|
||||
Judy hot M1A39
|
||||
|
||||
UNI eil!Rach now lirg!Groe Dna%niw6 z8970329 Cb99Gb02 C99j70G02 D02j70M08 H40t70A72 29JI%06li
|
||||
|
||||
vaustralia ian 2106360105
|
||||
jud 2102593565
|
||||
|
||||
gml lirg!Groe J and I 29JI%06li
|
||||
|
||||
wells I95070320
|
||||
wells 1**!H
|
||||
|
||||
msoft D02j70M08
|
||||
ato
|
||||
101UScal
|
||||
|
||||
auskey D02j70M08I
|
||||
|
||||
Msoft old? I2 or J3
|
||||
|
||||
hcf judy 101!Hgwy
|
||||
|
||||
vodafone motorway
|
||||
|
||||
Australian Super ikingrma 101 with H ID 703582372
|
||||
company IANKING2 J326!ipk
|
||||
|
||||
ASCE 101hwyyy
|
||||
|
||||
Auskey 101UScal
|
||||
|
||||
etihad 100087440703 101
|
||||
|
||||
small business clearing 2557903313
|
||||
101 with ex and Hg
|
||||
|
||||
parking Bookings.COM
|
||||
!hwyy !Hgwyxx M1
|
||||
|
||||
clear 5375074 Cb99Gb02=Hes
|
||||
|
||||
|
||||
J and I OPAL ikingrma jbishoprma 101H
|
||||
|
||||
|
||||
Acronis M1
|
||||
|
||||
key A8T9XJSV-D335KP28-EGJ3URKX-3PEBYSKB-75QG44HU-HHZ46WXQ-GD2KXMN6-JJ4PJ9SU
|
||||
UNITED ME M1
|
||||
judy BDL43907
|
||||
|
||||
|
||||
clearview 5375074
|
||||
|
||||
ebay strt101
|
||||
|
||||
paypal needs Hg USTAX
|
||||
|
||||
elect I2
|
||||
|
||||
kogan pin 032625
|
||||
|
||||
researchgate 101
|
||||
|
||||
Bookings.com Hg
|
||||
|
||||
hertz 67785091 101 H
|
||||
|
||||
SECURE SENTINEL 998062061 I2
|
||||
@ -0,0 +1,59 @@
|
||||
TI Ralphs Bay
|
||||
com ioptzd idnopt iyrr dayofy tet iedsw trbfact trbmin projswi
|
||||
C0 1 -2 2014 213 0.00 1 0.2 2.0 1
|
||||
read c0
|
||||
ndp igrv izb ipass1 ipass2 ipass3 izers isavitr zerbed ivertde
|
||||
C1 2 1 0 0 0 0 0 0 0 0
|
||||
com omega elevv xscale yscale zscale
|
||||
C2 -42.9 0.5 0.0 0.0 0
|
||||
read c2
|
||||
com cmin cpr unom udir hmin dset dsetd ifxbc ieqswt
|
||||
C3 0 0 0 0 0 0 0 0
|
||||
com sali tempi sedi uinp vinp prcnt dmix
|
||||
C4 35. 20. .0 0 0 0.5
|
||||
read c4
|
||||
niti nitn tstart ncyc iprt nprti nprtf irsav idswt
|
||||
C5 0 6 0 96 1 0 10 0 0
|
||||
read c5
|
||||
ioutfreq ioutrst irweout id1dnd icpu iooc irewmes
|
||||
C6 0 40 0 0 4 0 0
|
||||
elev1
|
||||
INIT 0.0
|
||||
com cvg-u cvg-v cvg-h cvg-s cvg-t cvg-sd eqdrp drpfct
|
||||
CV 0.0010 0.0010 0.0001 .003 0.0000 .0 0
|
||||
tra
|
||||
COL 0.5
|
||||
com eletype trbuxx trbuyy trbvxx trbvyy Man/Che trbvzx trbvzy
|
||||
ED1 1 -0.2 -0.2 -0.2 -0.2 0.04 0.10 0.1
|
||||
read ed1
|
||||
com 'blank' difx dify difz bnk-Man mrsh-fac srf-Man
|
||||
ED2 0.1 0.1 .025 0.02 25.0 0.00
|
||||
read ed2
|
||||
'blank' AC1 AC2 AC3 AC4
|
||||
MP 2.0 0.5 0.01 0.0
|
||||
LD3 0 4 -1. -3.5 -7. -50.
|
||||
ENDGEO
|
||||
com delt-t
|
||||
DT 0.0
|
||||
bq switch
|
||||
BQS
|
||||
com ccline lay-no wd-elev sal temp sed file-sw
|
||||
HC 1 0 0.5 35. 20. .0 1
|
||||
com
|
||||
HCN 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
|
||||
HCN 1.0 1.0 1.0 1.0 1.0 1.0 1.0 1.0
|
||||
com elt# lay-no nest eltflw sal temp sed file-sw
|
||||
EFE 584 0 1 50.0 5. 20. .0 1
|
||||
EFE 585 0 1 51. 6. 21. 1.
|
||||
EFE 586 1 0 2. 7. 22. 2.
|
||||
EFA 1 0 3. 8. 23. 3.
|
||||
EFA 2 1 52. 9. 24. 4.
|
||||
ETA 4. 10. 25. 5.
|
||||
ETG 1 0 0 5. 11 26. 6.
|
||||
ENDSTEP
|
||||
com delt-t iyre idye ihre nprtf npsw nccsw
|
||||
DT 0.25 2014 365 0.0
|
||||
bq switch
|
||||
BQS
|
||||
ENDSTEP
|
||||
ENDDATA
|
||||
@ -0,0 +1,29 @@
|
||||
CALL WGridPutCellString(IDF_GRID1,1,1,'Input binary geometry filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,2,'Input binary restart filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,3,'Input ASCII geometry filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,4,'Input ASCII elevation data filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,5,'Input ASCII flow data filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,6,'Input ASCII element inflow data filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,7,'Output ASCII results filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,8,'Output binary results filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,9,'Output binary restart filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,10,'Output ASCII timing data filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,11,'Output binary SMS format filename')
|
||||
sms1
|
||||
CALL WGridPutCellString(IDF_GRID1,1,12,'Output ASCII special node filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,13,'Output ASCII continuity line filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,14,'Input cross-section data filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,15,'Input stress coordinates filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,16,'Input ASCII stress components filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,17,'Input binary stress components filename') ! new
|
||||
CALL WGridPutCellString(IDF_GRID1,1,18,'Input ASCII file of weighting factors ') ! new
|
||||
CALL WGridPutCellString(IDF_GRID1,1,19,'Input binary file of weighting factors ') ! new
|
||||
CALL WGridPutCellString(IDF_GRID1,1,20,'Output ASCII weighting factors filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,21,'Output binary weighting factors filename') ! new?
|
||||
CALL WGridPutCellString(IDF_GRID1,1,22,'Output binary stresses filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,23,'Input weir data filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,24,'Input ASCII wind data filename') ! new
|
||||
CALL WGridPutCellString(IDF_GRID1,1,25,'Input binary wind filename') ! new
|
||||
? CALL WGridPutCellString(IDF_GRID1,1,26,'Output continuity line flows filename')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,27,'Input harmonic component filename ')
|
||||
CALL WGridPutCellString(IDF_GRID1,1,28,'Output 3D Geometry filename')
|
||||
Binary file not shown.
@ -0,0 +1,43 @@
|
||||
'& Input binary file with geometric data',&
|
||||
'& Input ASCII file with geometric data',&
|
||||
'& Input binary file with restart data',&
|
||||
'& Input ASCII file with cross-section data',&
|
||||
'& Input ASCII file with boundary flow data',&
|
||||
'& Input ASCII file with elevation boundary data',&
|
||||
'& Input ASCII file with element inflow data',&
|
||||
'& Input binary element inflow data',&
|
||||
'& Input ASCII file with elevation harmonic boundary data',&
|
||||
'& Input ASCII file with meteorological data',&
|
||||
'& Output ASCII results',&
|
||||
'& Output binary file with new format results data',&
|
||||
'& Output binary file with restart data',&
|
||||
'& Output binary file with 3-D geometry data',&
|
||||
'& Output ASCII file with continuity line flow data',&
|
||||
'& Output ASCII file with summary meteorological input',&
|
||||
'& Output ASCII file with cpu timing data',&
|
||||
'& Input binary file with wind data',&
|
||||
'& Input ASCII file with wind data',&
|
||||
'& Output binary file listing extracted results for specified nodes',&
|
||||
'& Output ASCII file listing extracted results for specified nodes',&
|
||||
'& Output binary element inflow data',&
|
||||
'& Input coordinates for surface stresses',&
|
||||
'& Input binary weighting file for surface stresses',&
|
||||
'& Input binary file for surface stresses',&
|
||||
'& Output binary weighting file for surface stresses',&
|
||||
'& Output ASCII weighting file for surface stresses',&
|
||||
'& Input ASCII file with group number data',&
|
||||
'& Input ASCII file with stage flow data for continuity lines',&
|
||||
'& Input ASCII temperature stratification data file',&
|
||||
'& Input ASCII file with continuation transient step data',&
|
||||
'& Output ASCII file with average salinity/total flow',&
|
||||
'& Output binary file with old format results data',&
|
||||
'& Input binary file with velocity/depth data',&
|
||||
'& Input binary file with 3-D geometry data',&
|
||||
'& Output binary file with 2-D geometry data',&
|
||||
'& Input SMS format geometry file',&
|
||||
'& Output SMS RMA-2 format file with horizontal velocity and depth data',&
|
||||
'& Output SMS RMA4 format file with salinity, temperate and sediment data',&
|
||||
'& Output binary RMA-11 format file listing 1-d flows as a pseudo WQ constituent',&
|
||||
'& Input ASCII file containing nodal boundary condition data',&
|
||||
'& Input binary file containing nodal boundary condition data',&
|
||||
'& Output ice results',&
|
||||
@ -0,0 +1,5 @@
|
||||
'INBNGEO ','INRM1 ','INBNRST ','INCROS ','INHYD ','INELEV ','INELFL ','INBNELF ','INHARM ','METFIL '
|
||||
,'OUTFIL ,,'OUTBNRMA','OUTBNRST','OUTBN3GE','OUTCON ','OUTMET ','TIMFIL ','BWINDIN ','AWINDIN ','OUTBNXTR'
|
||||
,'OUTASXTR','OUTBNELF','INSRCORD','INBNWGT ','INBNSTRS','OUTBNWGT','OUTWGT ','GROUPNUM','STFLFIL ','INASTRAT'
|
||||
,'BCFIL ','VOLFIL ','OUTBNRES','VELBNFIL','IN3DBNGE','OUTBN2GE','INSMSGN ','OUTSMS '
|
||||
,'OUTSMS1 ','OUTFLOW ','INBC ','INBNBC ','OUTBNICE'
|
||||
Loading…
Reference in New Issue