diff --git a/RMA10PRP/DUMMY.R10 b/RMA10PRP/DUMMY.R10 new file mode 100644 index 0000000..acfebe6 --- /dev/null +++ b/RMA10PRP/DUMMY.R10 @@ -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 diff --git a/RMA10PRP/HELP/CONTROL1.docx b/RMA10PRP/HELP/CONTROL1.docx new file mode 100644 index 0000000..96dbf78 Binary files /dev/null and b/RMA10PRP/HELP/CONTROL1.docx differ diff --git a/RMA10PRP/HELP/CONTROL1.htm b/RMA10PRP/HELP/CONTROL1.htm new file mode 100644 index 0000000..0f2a351 --- /dev/null +++ b/RMA10PRP/HELP/CONTROL1.htm @@ -0,0 +1,1065 @@ + + + + + + + + + + + + + + + + + + + +
+ +

+ +

 

+ +

This dialog shows the most commonly varied +input control parameters in an R10 file.

+ +

 

+ +

The top line allows the user to define the +starting time for the simulation (if a restart file is used this entry is not +used) and the ending time may optionally be defined if the number of time steps +is not set.

+ +

The entries on the two left hand panels are +mostly self-descriptive.

+ +

The reference water level is that +used in the vertical transformation as described in the user manual.  It must be above all bed levels in the model.

+ +

The initial water level, salinity, +temperature and sediment concentrations are not used when a model is +restarted from a previous solution.

+ +

The user manual should be referred to for +the options associated with the vertical turbulence model. 

+ +

Interpretation of the number of iterations +depends on the options selected in steady state and transient sections.

+ +

1               +If the pure velocity/depth option +is selected there the maximum number of iterations matches the input value in +the table.

+ +

2               +If a combination of velocity/depth +and salinity, temperature or sediment is selected then a factor of 3 is applied +to the input number.  The model then +applies two iterations of velocity/depth and one iteration for salinity, +temperature or sediment as chosen in each cycle.

+ +

3               +If velocity/depth, salinity and +temperature are chosen then a factor of 4 is applied to the input number.  The model then applies two iterations of +velocity/depth and one iteration for salinity and then temperature in +each cycle.

+ +

 

+ +

The middle section of page may be used to +setup echo print options and activate

+ +

1               +collapse to 2-D modelling (and +thus be able to use the marsh option)

+ +

2               +the mashing option with +suitable parameters.

+ +

 

+ +

The right side is used to

+ +

1               +select the equation solver to activate

+ +

2               +select the horizontal turbulence +model

+ +

3               +select the 3-D approximation +that can be 2-D, 3-D with a fixed number of equally spaced layers that vary +with depth, or 3-D with more general layer spacing as defined in the user +manual.

+ +
+ + + + diff --git a/RMA10PRP/HELP/CONTROL1_files/colorschememapping.xml b/RMA10PRP/HELP/CONTROL1_files/colorschememapping.xml new file mode 100644 index 0000000..6a0069c --- /dev/null +++ b/RMA10PRP/HELP/CONTROL1_files/colorschememapping.xml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/RMA10PRP/HELP/CONTROL1_files/filelist.xml b/RMA10PRP/HELP/CONTROL1_files/filelist.xml new file mode 100644 index 0000000..eb7d0f0 --- /dev/null +++ b/RMA10PRP/HELP/CONTROL1_files/filelist.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/RMA10PRP/HELP/CONTROL1_files/image001.png b/RMA10PRP/HELP/CONTROL1_files/image001.png new file mode 100644 index 0000000..9db5323 Binary files /dev/null and b/RMA10PRP/HELP/CONTROL1_files/image001.png differ diff --git a/RMA10PRP/HELP/CONTROL1_files/image002.jpg b/RMA10PRP/HELP/CONTROL1_files/image002.jpg new file mode 100644 index 0000000..b21738a Binary files /dev/null and b/RMA10PRP/HELP/CONTROL1_files/image002.jpg differ diff --git a/RMA10PRP/HELP/CONTROL1_files/themedata.thmx b/RMA10PRP/HELP/CONTROL1_files/themedata.thmx new file mode 100644 index 0000000..3d2a437 Binary files /dev/null and b/RMA10PRP/HELP/CONTROL1_files/themedata.thmx differ diff --git a/RMA10PRP/HELP/control2.docx b/RMA10PRP/HELP/control2.docx new file mode 100644 index 0000000..96db138 Binary files /dev/null and b/RMA10PRP/HELP/control2.docx differ diff --git a/RMA10PRP/HELP/control2.htm b/RMA10PRP/HELP/control2.htm new file mode 100644 index 0000000..0d1798b --- /dev/null +++ b/RMA10PRP/HELP/control2.htm @@ -0,0 +1,943 @@ + + + + + + + + + + + + + + + + + + + +
+ +

+ +

 

+ +

This dialog box allows the user to define +the turbulence/friction properties and 3-D layer data.

+ +

 

+ +

The upper table is used for the turbulence/friction +properties. For each element type the user must define:

+ +

1               +The horizontal eddy coefficient.  Actual number entered depends on the +horizontal turbulence method used (see user instructions)

+ +

2               +The vertical eddy coefficient

+ +

3               +The horizontal diffusion +coefficient.  Not +shown on the page but is an additional column on the right hand side

+ +

4               +The vertical diffusion +coefficient

+ +

5               +The Manning/Chezy coefficient.  Manning coefficient assumed if entry less +that 1.0, other assumed to Chezy method.

+ +

6               +The scaling factor for friction +applied as water surface falls below the bed level (only used when marshing Is +active).

+ +

7               +The bank friction factor +(optional).  Not shown on the page but is +an additional column on the right hand side.

+ +

8               +The water surface friction +factor (optional, only applicable) when the system has a blanket on the water surface).    Not shown on the page but is an additional +column on the right hand side

+ +
+ + + + diff --git a/RMA10PRP/HELP/control2_files/colorschememapping.xml b/RMA10PRP/HELP/control2_files/colorschememapping.xml new file mode 100644 index 0000000..6a0069c --- /dev/null +++ b/RMA10PRP/HELP/control2_files/colorschememapping.xml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/RMA10PRP/HELP/control2_files/filelist.xml b/RMA10PRP/HELP/control2_files/filelist.xml new file mode 100644 index 0000000..fd683ea --- /dev/null +++ b/RMA10PRP/HELP/control2_files/filelist.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/RMA10PRP/HELP/control2_files/image001.png b/RMA10PRP/HELP/control2_files/image001.png new file mode 100644 index 0000000..75dab41 Binary files /dev/null and b/RMA10PRP/HELP/control2_files/image001.png differ diff --git a/RMA10PRP/HELP/control2_files/image002.jpg b/RMA10PRP/HELP/control2_files/image002.jpg new file mode 100644 index 0000000..cb79b62 Binary files /dev/null and b/RMA10PRP/HELP/control2_files/image002.jpg differ diff --git a/RMA10PRP/HELP/control2_files/themedata.thmx b/RMA10PRP/HELP/control2_files/themedata.thmx new file mode 100644 index 0000000..3d2a437 Binary files /dev/null and b/RMA10PRP/HELP/control2_files/themedata.thmx differ diff --git a/RMA10PRP/HELP/control3.docx b/RMA10PRP/HELP/control3.docx new file mode 100644 index 0000000..5b73bfc Binary files /dev/null and b/RMA10PRP/HELP/control3.docx differ diff --git a/RMA10PRP/HELP/control3.htm b/RMA10PRP/HELP/control3.htm new file mode 100644 index 0000000..c167bde --- /dev/null +++ b/RMA10PRP/HELP/control3.htm @@ -0,0 +1,914 @@ + + + + + + + + + + + + + + + + + + + +
+ +

+ +

 

+ +

The dialog of page 2 of the control data section +contains a number of model entries that are often set to their default values +plus some special purpose switches that allow are occasionally used. 

+ +

 

+ +

The table and switches in the lower right +allow the user to output averages along specific continuity (control) lines for +various components

+ +

 

+ +

Of note are the switches that allows the user +to

+ +

1               +ensure Salinity/Temperature/Sediment +concentrations are passive with respect to density

+ +

2               +Overlay Times on the restart +file.

+ +

3               +Set the Model Units

+ +

 

+ +
+ + + + diff --git a/RMA10PRP/HELP/control3_files/colorschememapping.xml b/RMA10PRP/HELP/control3_files/colorschememapping.xml new file mode 100644 index 0000000..6a0069c --- /dev/null +++ b/RMA10PRP/HELP/control3_files/colorschememapping.xml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/RMA10PRP/HELP/control3_files/filelist.xml b/RMA10PRP/HELP/control3_files/filelist.xml new file mode 100644 index 0000000..ab23324 --- /dev/null +++ b/RMA10PRP/HELP/control3_files/filelist.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/RMA10PRP/HELP/control3_files/image001.png b/RMA10PRP/HELP/control3_files/image001.png new file mode 100644 index 0000000..9ab1717 Binary files /dev/null and b/RMA10PRP/HELP/control3_files/image001.png differ diff --git a/RMA10PRP/HELP/control3_files/image002.jpg b/RMA10PRP/HELP/control3_files/image002.jpg new file mode 100644 index 0000000..6f198ac Binary files /dev/null and b/RMA10PRP/HELP/control3_files/image002.jpg differ diff --git a/RMA10PRP/HELP/control3_files/themedata.thmx b/RMA10PRP/HELP/control3_files/themedata.thmx new file mode 100644 index 0000000..3d2a437 Binary files /dev/null and b/RMA10PRP/HELP/control3_files/themedata.thmx differ diff --git a/RMA10PRP/HELP/control4.docx b/RMA10PRP/HELP/control4.docx new file mode 100644 index 0000000..380c69a Binary files /dev/null and b/RMA10PRP/HELP/control4.docx differ diff --git a/RMA10PRP/HELP/control4.htm b/RMA10PRP/HELP/control4.htm new file mode 100644 index 0000000..010709f --- /dev/null +++ b/RMA10PRP/HELP/control4.htm @@ -0,0 +1,824 @@ + + + + + + + + + + + + + + + + + + + +
+ +

+ +

 

+ +

 

+ +
+ + + + diff --git a/RMA10PRP/HELP/control4_files/colorschememapping.xml b/RMA10PRP/HELP/control4_files/colorschememapping.xml new file mode 100644 index 0000000..6a0069c --- /dev/null +++ b/RMA10PRP/HELP/control4_files/colorschememapping.xml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/RMA10PRP/HELP/control4_files/filelist.xml b/RMA10PRP/HELP/control4_files/filelist.xml new file mode 100644 index 0000000..e8b0670 --- /dev/null +++ b/RMA10PRP/HELP/control4_files/filelist.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/RMA10PRP/HELP/control4_files/image001.png b/RMA10PRP/HELP/control4_files/image001.png new file mode 100644 index 0000000..5948dc3 Binary files /dev/null and b/RMA10PRP/HELP/control4_files/image001.png differ diff --git a/RMA10PRP/HELP/control4_files/image002.jpg b/RMA10PRP/HELP/control4_files/image002.jpg new file mode 100644 index 0000000..d8bd031 Binary files /dev/null and b/RMA10PRP/HELP/control4_files/image002.jpg differ diff --git a/RMA10PRP/HELP/control4_files/themedata.thmx b/RMA10PRP/HELP/control4_files/themedata.thmx new file mode 100644 index 0000000..3d2a437 Binary files /dev/null and b/RMA10PRP/HELP/control4_files/themedata.thmx differ diff --git a/RMA10PRP/HELP/intro.docx b/RMA10PRP/HELP/intro.docx new file mode 100644 index 0000000..3fb816e Binary files /dev/null and b/RMA10PRP/HELP/intro.docx differ diff --git a/RMA10PRP/HELP/intro.htm b/RMA10PRP/HELP/intro.htm new file mode 100644 index 0000000..356af0e --- /dev/null +++ b/RMA10PRP/HELP/intro.htm @@ -0,0 +1,1023 @@ + + + + + + + + + + + + + + + + + + + +
+ +

+ +

 

+ +

RMA10PRP is designed to setup input R10 +files that can be used for model execution.

+ +

 

+ +

RMA-10 uses as input four blocks of data in +the R10 file

+ +

1               +File block allows the user to +define the files that will be used

+ +

2               +Limits block, where memory +limits can be set that cannot be automatically allocated.

+ +

3               +Control data block that sets up +all the parameters required for the simulation.  +Note that default values are available and will be filled into table +entries as appropriate.  When files are +saved the user will have the option to save all data lines or only those that +differ from default values.

+ +

4               +Time step data blocks.  These blocks contains +steady state sections and time step sections where time step values and controls, +plus boundary conditions are setup.

+ +

 

+ +

The left boxes mimic the file

+ +

 

+ +

On entry RMA10PRP opens with a series on menu +options available.

+ +

In general terms

+ +

1               +The FILE menu controls file +selection.  Three options permit the user +to load an existing new format file, convert an old format file or save a newly +edited file.

+ +

2               +OPEN FILE BLOCK displays the +various files and filenames that will be used in the simulation plus the limits +that can only be set based on the particular problem.

+ +

3               +OPEN CONTROL BLOCK offers four +sub menus that allow the user to set up the control variables

+ +

4               +OPEN TIME STEP BLOCK allows the +user to set boundary conditions for each step in the model setup.  When opened, the user is prompted to select +the appropriate step for editing.

+ +

5               +EXECUTE RMA10 allows the user +to execute RMA-10 directly on the currently formed data set.  Note that it must be saved beforehand.

+ +

6               +HELP allows the user to select +various HELP screens.

+ +

7               +EXIT terminates RMA10PRP

+ +
+ + + + diff --git a/RMA10PRP/HELP/intro_files/colorschememapping.xml b/RMA10PRP/HELP/intro_files/colorschememapping.xml new file mode 100644 index 0000000..6a0069c --- /dev/null +++ b/RMA10PRP/HELP/intro_files/colorschememapping.xml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/RMA10PRP/HELP/intro_files/filelist.xml b/RMA10PRP/HELP/intro_files/filelist.xml new file mode 100644 index 0000000..3234a06 --- /dev/null +++ b/RMA10PRP/HELP/intro_files/filelist.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/RMA10PRP/HELP/intro_files/image001.png b/RMA10PRP/HELP/intro_files/image001.png new file mode 100644 index 0000000..eb5a254 Binary files /dev/null and b/RMA10PRP/HELP/intro_files/image001.png differ diff --git a/RMA10PRP/HELP/intro_files/image002.jpg b/RMA10PRP/HELP/intro_files/image002.jpg new file mode 100644 index 0000000..6f01c6d Binary files /dev/null and b/RMA10PRP/HELP/intro_files/image002.jpg differ diff --git a/RMA10PRP/HELP/intro_files/themedata.thmx b/RMA10PRP/HELP/intro_files/themedata.thmx new file mode 100644 index 0000000..3d2a437 Binary files /dev/null and b/RMA10PRP/HELP/intro_files/themedata.thmx differ diff --git a/RMA10PRP/HELP/timestp0.docx b/RMA10PRP/HELP/timestp0.docx new file mode 100644 index 0000000..ec802fa Binary files /dev/null and b/RMA10PRP/HELP/timestp0.docx differ diff --git a/RMA10PRP/HELP/timestp0.htm b/RMA10PRP/HELP/timestp0.htm new file mode 100644 index 0000000..74ae694 --- /dev/null +++ b/RMA10PRP/HELP/timestp0.htm @@ -0,0 +1,61 @@ + + + + + + + + + + + +
+ +

+ +
+ + + + diff --git a/RMA10PRP/HELP/timestp0_files/image001.jpg b/RMA10PRP/HELP/timestp0_files/image001.jpg new file mode 100644 index 0000000..6b65fa0 Binary files /dev/null and b/RMA10PRP/HELP/timestp0_files/image001.jpg differ diff --git a/RMA10PRP/HELP/timestp1.docx b/RMA10PRP/HELP/timestp1.docx new file mode 100644 index 0000000..3768e95 Binary files /dev/null and b/RMA10PRP/HELP/timestp1.docx differ diff --git a/RMA10PRP/HELP/timestp1.htm b/RMA10PRP/HELP/timestp1.htm new file mode 100644 index 0000000..a6b8688 --- /dev/null +++ b/RMA10PRP/HELP/timestp1.htm @@ -0,0 +1,819 @@ + + + + + + + + + + + + + + + + + + + +
+ +

+ +
+ + + + diff --git a/RMA10PRP/HELP/timestp1_files/colorschememapping.xml b/RMA10PRP/HELP/timestp1_files/colorschememapping.xml new file mode 100644 index 0000000..6a0069c --- /dev/null +++ b/RMA10PRP/HELP/timestp1_files/colorschememapping.xml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/RMA10PRP/HELP/timestp1_files/filelist.xml b/RMA10PRP/HELP/timestp1_files/filelist.xml new file mode 100644 index 0000000..57589d7 --- /dev/null +++ b/RMA10PRP/HELP/timestp1_files/filelist.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/RMA10PRP/HELP/timestp1_files/image001.png b/RMA10PRP/HELP/timestp1_files/image001.png new file mode 100644 index 0000000..78a4034 Binary files /dev/null and b/RMA10PRP/HELP/timestp1_files/image001.png differ diff --git a/RMA10PRP/HELP/timestp1_files/image002.jpg b/RMA10PRP/HELP/timestp1_files/image002.jpg new file mode 100644 index 0000000..7da4c81 Binary files /dev/null and b/RMA10PRP/HELP/timestp1_files/image002.jpg differ diff --git a/RMA10PRP/HELP/timestp1_files/themedata.thmx b/RMA10PRP/HELP/timestp1_files/themedata.thmx new file mode 100644 index 0000000..3d2a437 Binary files /dev/null and b/RMA10PRP/HELP/timestp1_files/themedata.thmx differ diff --git a/RMA10PRP/HELP/timestp2.docx b/RMA10PRP/HELP/timestp2.docx new file mode 100644 index 0000000..a2ef008 Binary files /dev/null and b/RMA10PRP/HELP/timestp2.docx differ diff --git a/RMA10PRP/HELP/timestp2.htm b/RMA10PRP/HELP/timestp2.htm new file mode 100644 index 0000000..2a633ac --- /dev/null +++ b/RMA10PRP/HELP/timestp2.htm @@ -0,0 +1,819 @@ + + + + + + + + + + + + + + + + + + + +
+ +

+ +
+ + + + diff --git a/RMA10PRP/HELP/timestp2_files/colorschememapping.xml b/RMA10PRP/HELP/timestp2_files/colorschememapping.xml new file mode 100644 index 0000000..6a0069c --- /dev/null +++ b/RMA10PRP/HELP/timestp2_files/colorschememapping.xml @@ -0,0 +1,2 @@ + + \ No newline at end of file diff --git a/RMA10PRP/HELP/timestp2_files/filelist.xml b/RMA10PRP/HELP/timestp2_files/filelist.xml new file mode 100644 index 0000000..25018df --- /dev/null +++ b/RMA10PRP/HELP/timestp2_files/filelist.xml @@ -0,0 +1,8 @@ + + + + + + + + \ No newline at end of file diff --git a/RMA10PRP/HELP/timestp2_files/image001.png b/RMA10PRP/HELP/timestp2_files/image001.png new file mode 100644 index 0000000..4a784fd Binary files /dev/null and b/RMA10PRP/HELP/timestp2_files/image001.png differ diff --git a/RMA10PRP/HELP/timestp2_files/image002.jpg b/RMA10PRP/HELP/timestp2_files/image002.jpg new file mode 100644 index 0000000..a3946d2 Binary files /dev/null and b/RMA10PRP/HELP/timestp2_files/image002.jpg differ diff --git a/RMA10PRP/HELP/timestp2_files/themedata.thmx b/RMA10PRP/HELP/timestp2_files/themedata.thmx new file mode 100644 index 0000000..3d2a437 Binary files /dev/null and b/RMA10PRP/HELP/timestp2_files/themedata.thmx differ diff --git a/RMA10PRP/RMA10PRP.u2d b/RMA10PRP/RMA10PRP.u2d new file mode 100644 index 0000000..e69de29 diff --git a/RMA10PRP/RMA10PRP.vfproj b/RMA10PRP/RMA10PRP.vfproj index dff1c78..62f017f 100644 --- a/RMA10PRP/RMA10PRP.vfproj +++ b/RMA10PRP/RMA10PRP.vfproj @@ -4,8 +4,8 @@ - - + + @@ -15,7 +15,7 @@ - + @@ -25,6 +25,27 @@ - - + + + + + + + + + + + + + + + + + + + + + + + diff --git a/RMA10PRP/SRC/BLK1.F90 b/RMA10PRP/SRC/BLK1.F90 new file mode 100644 index 0000000..f75333f --- /dev/null +++ b/RMA10PRP/SRC/BLK1.F90 @@ -0,0 +1,6 @@ + MODULE BLK1 + + REAL XMAX,YMAX,ZMAX,XMIN,YMIN,ZMIN,XLEN,YLEN,ZLEN,DIST,DISTSTEP + REAL :: EYE(4,4) + + END MODULE \ No newline at end of file diff --git a/RMA10PRP/SRC/BLKMAT.F90 b/RMA10PRP/SRC/BLKMAT.F90 new file mode 100644 index 0000000..51210d6 --- /dev/null +++ b/RMA10PRP/SRC/BLKMAT.F90 @@ -0,0 +1,4 @@ + MODULE BLKMAT + INTEGER, ALLOCATABLE :: IMATN(:),IRGB(:) + REAL, ALLOCATABLE :: SHINE(:),GLOSS(:) + END MODULE \ No newline at end of file diff --git a/RMA10PRP/SRC/BLKRM10.F90 b/RMA10PRP/SRC/BLKRM10.F90 new file mode 100644 index 0000000..a313e23 --- /dev/null +++ b/RMA10PRP/SRC/BLKRM10.F90 @@ -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 \ No newline at end of file diff --git a/RMA10PRP/SRC/CONVERT.F90 b/RMA10PRP/SRC/CONVERT.F90 new file mode 100644 index 0000000..3ad45f7 --- /dev/null +++ b/RMA10PRP/SRC/CONVERT.F90 @@ -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 \ No newline at end of file diff --git a/RMA10PRP/SRC/CONVERT.FOR b/RMA10PRP/SRC/CONVERT.FOR new file mode 100644 index 0000000..b44e097 --- /dev/null +++ b/RMA10PRP/SRC/CONVERT.FOR @@ -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 \ No newline at end of file diff --git a/RMA10PRP/SRC/DEFAULTS.F90 b/RMA10PRP/SRC/DEFAULTS.F90 new file mode 100644 index 0000000..b632aa1 --- /dev/null +++ b/RMA10PRP/SRC/DEFAULTS.F90 @@ -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 \ No newline at end of file diff --git a/RMA10PRP/SRC/FORMFILE.F90 b/RMA10PRP/SRC/FORMFILE.F90 new file mode 100644 index 0000000..385b970 --- /dev/null +++ b/RMA10PRP/SRC/FORMFILE.F90 @@ -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 \ No newline at end of file diff --git a/RMA10PRP/SRC/RCa04032 b/RMA10PRP/SRC/RCa04032 new file mode 100644 index 0000000..fbde21f Binary files /dev/null and b/RMA10PRP/SRC/RCa04032 differ diff --git a/RMA10PRP/SRC/RCb04032 b/RMA10PRP/SRC/RCb04032 new file mode 100644 index 0000000..fbde21f Binary files /dev/null and b/RMA10PRP/SRC/RCb04032 differ diff --git a/RMA10PRP/SRC/READRM10.F90 b/RMA10PRP/SRC/READRM10.F90 new file mode 100644 index 0000000..f9788f7 --- /dev/null +++ b/RMA10PRP/SRC/READRM10.F90 @@ -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 + + + \ No newline at end of file diff --git a/RMA10PRP/SRC/RESOURCE10.res b/RMA10PRP/SRC/RESOURCE10.res new file mode 100644 index 0000000..931bcb5 Binary files /dev/null and b/RMA10PRP/SRC/RESOURCE10.res differ diff --git a/RMA10PRP/SRC/RMA10PRP.F90 b/RMA10PRP/SRC/RMA10PRP.F90 new file mode 100644 index 0000000..b9e84c5 --- /dev/null +++ b/RMA10PRP/SRC/RMA10PRP.F90 @@ -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 +! diff --git a/RMA10PRP/SRC/RUNRMA10.F90 b/RMA10PRP/SRC/RUNRMA10.F90 new file mode 100644 index 0000000..79cf7dc --- /dev/null +++ b/RMA10PRP/SRC/RUNRMA10.F90 @@ -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 + \ No newline at end of file diff --git a/RMA10PRP/SRC/SHOWCNTRL.F90 b/RMA10PRP/SRC/SHOWCNTRL.F90 new file mode 100644 index 0000000..055b231 --- /dev/null +++ b/RMA10PRP/SRC/SHOWCNTRL.F90 @@ -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 + diff --git a/RMA10PRP/SRC/SHOWEXTR.F90 b/RMA10PRP/SRC/SHOWEXTR.F90 new file mode 100644 index 0000000..b85be8d --- /dev/null +++ b/RMA10PRP/SRC/SHOWEXTR.F90 @@ -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 \ No newline at end of file diff --git a/RMA10PRP/SRC/SHOWFILES.f90 b/RMA10PRP/SRC/SHOWFILES.f90 new file mode 100644 index 0000000..af2b9e7 --- /dev/null +++ b/RMA10PRP/SRC/SHOWFILES.f90 @@ -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 + \ No newline at end of file diff --git a/RMA10PRP/SRC/SHOWTIMESTP.F90 b/RMA10PRP/SRC/SHOWTIMESTP.F90 new file mode 100644 index 0000000..d104501 --- /dev/null +++ b/RMA10PRP/SRC/SHOWTIMESTP.F90 @@ -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 diff --git a/RMA10PRP/SRC/ZOOM.BMP b/RMA10PRP/SRC/ZOOM.BMP new file mode 100644 index 0000000..27841b8 Binary files /dev/null and b/RMA10PRP/SRC/ZOOM.BMP differ diff --git a/RMA10PRP/SRC/c1.rc b/RMA10PRP/SRC/c1.rc new file mode 100644 index 0000000..5a53bbb --- /dev/null +++ b/RMA10PRP/SRC/c1.rc @@ -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 + diff --git a/RMA10PRP/SRC/cv.bmp b/RMA10PRP/SRC/cv.bmp new file mode 100644 index 0000000..8bcdceb Binary files /dev/null and b/RMA10PRP/SRC/cv.bmp differ diff --git a/RMA10PRP/SRC/help10.f90 b/RMA10PRP/SRC/help10.f90 new file mode 100644 index 0000000..6b28e1d --- /dev/null +++ b/RMA10PRP/SRC/help10.f90 @@ -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 \ No newline at end of file diff --git a/RMA10PRP/SRC/new1.for b/RMA10PRP/SRC/new1.for new file mode 100644 index 0000000..9457e35 --- /dev/null +++ b/RMA10PRP/SRC/new1.for @@ -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 diff --git a/RMA10PRP/SRC/program.ico b/RMA10PRP/SRC/program.ico new file mode 100644 index 0000000..b6f4a48 Binary files /dev/null and b/RMA10PRP/SRC/program.ico differ diff --git a/RMA10PRP/SRC/resid.f90 b/RMA10PRP/SRC/resid.f90 new file mode 100644 index 0000000..09dd57d --- /dev/null +++ b/RMA10PRP/SRC/resid.f90 @@ -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 diff --git a/RMA10PRP/SRC/resource.f90 b/RMA10PRP/SRC/resource.f90 new file mode 100644 index 0000000..80781fd --- /dev/null +++ b/RMA10PRP/SRC/resource.f90 @@ -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 diff --git a/RMA10PRP/SRC/resource10.rc b/RMA10PRP/SRC/resource10.rc new file mode 100644 index 0000000..95b8ee3 --- /dev/null +++ b/RMA10PRP/SRC/resource10.rc @@ -0,0 +1,1551 @@ +/////////////////////////////////////////////////// +// +// THIS FILE SHOULD NOT BE EDITED USING A TEXT +// EDITOR OR 3RD PARTY RESOURCE EDITOR, EXCEPT +// WHEN SPECIFICALLY INSTRUCTED BY I.S.S. +// +/////////////////////////////////////////////////// +// +// Winteracter resource script. +// +// Modified : 10/Aug/2019 16:08:19 +// +/////////////////////////////////////////////////// +// +// Include files +// +#include "winparam.h" + +/////////////////////////////////////////////////// +// +// Parameter Definitions +// +#define IDT_TOOLBAR1 30101 +#define ID_BUTTON4 40101 +#define IDM_MENU1 30001 +#define IDD_GETTIMSTP 119 +#define IDF_LABEL2 1002 +#define IDF_LABEL9 1017 +#define IDF_GRID1 1032 +#define ISS1 1033 +#define ISS2 1034 +#define IDF_LABEL8 1040 +#define ID_FILE 40004 +#define ID_OPENRM2 40005 +#define IDD_CONTROLS 101 +#define IDF_PART2 1041 +#define ISS3 1003 +#define ISS4 1004 +#define IDF_STRING1 1006 +#define IDF_STRING2 1007 +#define IDF_INTEGER1 1073 +#define IDF_STRING3 1008 +#define IDF_STRING4 1009 +#define IDF_STRING5 1010 +#define IDF_REAL1 1012 +#define IDF_REAL2 1013 +#define IDF_STRING6 1014 +#define IDF_REAL3 1015 +#define IDF_STRING7 1016 +#define IDF_REAL4 1068 +#define IDF_STRING8 1018 +#define IDF_INTEGER2 1019 +#define IDF_STRING9 1021 +#define IDF_REAL5 1022 +#define IDF_STRING10 1023 +#define IDF_STRING11 1025 +#define IDF_STRING12 1026 +#define IDF_STRING13 1027 +#define IDF_REAL7 1029 +#define IDF_STRING14 1030 +#define IDF_STRING16 1037 +#define IDF_STRING18 1038 +#define ID_ITEM16 40016 +#define ID_HELP1 40001 +#define ID_ITEM19 40018 +#define ID_ITEM6 40019 +#define ID_ITEM21 40021 +#define IDD_TEMPLATE003 104 +#define IDD_TEMPLATE004 102 +#define IDD_TIMESTEP 105 +#define IDD_FILENAMES 106 +#define IDD_TEMPLATE005 108 +#define IDF_GRID2 1033 +#define IDD_TEMPLATE006 110 +#define IDF_GRID3 1034 +#define ISS5 1042 +#define ISS6 1043 +#define ISS7 1044 +#define IDF_CHECK2 1050 +#define IDD_CONTROLS2 112 +#define IDF_CHECK3 1051 +#define IDF_CCLINE 1045 +#define IDF_INTEGER5 1074 +#define IDF_INTEGER6 1026 +#define ID_CP3 40013 +#define IDD_TEMPLATE007 111 +#define IDF_CHECK4 1052 +#define IDF_STRING17 1033 +#define IDF_CHECK5 1053 +#define IDD_TEMPLATE010 115 +#define IDF_GRID4 1035 +#define IDF_CHECK1 1049 +#define IDNEXT 1050 +#define IDF_HELP10 1068 +#define IDD_TEMPLATE011 116 +#define IDD_TIMESTEP2 117 +#define ISS8 1046 +#define IDD_TEMPLATE012 118 +#define ID_EXIT 40002 +#define ID_CP4 40014 +#define IDD_MISC 121 +#define IDF_PART3 1047 +#define IDF_PART1 1048 +#define IDF_STRING19 1035 +#define IDF_CHECK12 1055 +#define IDF_HELP 1020 +#define ID_CONVERT 40003 +#define IDD_TEMPLATE014 122 +#define ID_ex 40006 +#define IDF_STRING20 1055 +#define IDF_STRING21 1056 +#define IDF_CHECK6 1054 +#define IDD_TEMPLATE015 113 +#define IDF_HELP1 1058 +#define IDF_RADIO1 1059 +#define IDF_RADIO2 1060 +#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_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 +#define IDD_TEMPLATE019 103 +#define IDD_TEMPLATE020 114 +#define ID_RUNRMA2 40007 +#define ID_HELP 40009 +#define ID_HELPUSER 40010 +#define ID_BUTTON8 40104 +#define ID_BUTTON5 40102 +#define IDF_PART4 1042 +#define IDD_TEMPLATE021 127 +#define IDD_TEMPLATE022 128 +#define IDD_EXTR 129 +#define IDD_TEMPLATE023 130 +#define ISS9 1024 +#define IDD_TEMPLATE024 131 +#define ID_ABOUT 40011 +#define ID_MENUITEM 40012 +#define ID_LABEL1 1001 +#define ID_DRAG 20001 +#define ID_FILE_SAVE 40055 +#define ID_HELP_ABOUT 40009 +#define ID_TOOLBAR1 30102 +#define IDD_SELCT 133 +#define IDD_ABOUT 134 +#define IDF_LABEL4 1005 +#define IDF_LABEL5 1006 +#define IDF_LABEL6 1007 +#define IDF_LABEL7 1008 +#define IDD_TIMDAT 136 +#define IDF_NEXT 1075 +#define IDD_DISPER 139 +#define IDD_SCALE 140 +#define IDF_LABEL10 1011 +#define IDD_OPTIONS 143 +#define ID_ZIN 40022 +#define ID_OUT2 40023 +#define IDF_LABEL8a 1024 +#define IDF_LABEL8b 1025 +#define IDF_RADIO13 1073 +#define IDF_RADIO14 1074 +#define IDF_RADIO15 1075 +#define IDF_RADIO16 1076 +#define IDF_RADIO17 1077 +#define IDD_TEMPLATE025 123 +#define IDF_GRID7 1078 +#define IDD_DIALOG002 149 +#define IDD_DIALOG006 152 +#define IDD_CONTROLS2A 153 +#define ISS21 1079 +#define ISS11 1081 +#define ISS12 1082 +#define ISS13 1083 +#define ISS14 1084 +#define ISS15 1085 +#define ISS16 1086 +#define ISS17 1087 +#define ISS18 1088 +#define ISS19 1089 +#define ISS20 1090 +#define ISS22 1092 +#define ISS23 1093 +#define ISS24 1094 +#define ISS10 1080 +#define ID_CP1 40045 +#define ID_CP2 40046 +#define IDF_CHECK7 1058 +#define IDF_CHECK8 1059 +#define IDF_CHECK9 1060 +#define IDF_CHECK10 1061 +#define IDF_CHECK11 1062 +#define IDD_TEMPLATE026 142 +#define IDF_CHECK13 1056 +#define IDF_CHECK14 1057 +#define IDF_CHECK15 1063 +#define IDD_TEMPLATE027 150 +#define IDF_GRID8 1079 +#define IDF_STRING22 1057 +#define IDF_STRING15 1031 +#define IDF_STRING23 1039 +#define IDF_STRING24 1040 +#define IDF_STRING25 1058 +#define IDF_STRING26 1059 +#define IDF_STRING27 1060 +#define ISS25 1091 +#define ISS26 1095 +#define ISS28 1096 +#define ISS29 1097 +#define ISS30 1098 +#define ISS31 1099 +#define ISS32 1100 +#define ISS33 1101 +#define ISS34 1102 +#define ISS35 1103 +#define IDD_TEMPLATE028 107 + +/////////////////////////////////////////////////// +// +// Dialogs +// +IDD_FILENAMES DIALOG 0, 0, 741, 302 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "DEFINE FILES and LIMITS" +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, 8, 5, 528, 208 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 345, 269, 40, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 498, 268, 40, 14 + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS, 550, 42, 172, 122 + CONTROL "HELP",IDF_HELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 186, 268, 40, 14 + CONTROL "",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 136, 228, 470, 14 + CONTROL "TITLE",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 65, 227, 40, 14 +END + +IDD_FILENAMES RCDATA +BEGIN +"[Fonts] \n" +" 1032 9 Arial, 700 0 \n" +" 1 10 Arial, 700 0 \n" +" 2 10 Arial, 700 0 \n" +" 1033 9 Arial, 700 0 \n" +" 1020 10 MS Sans Serif, 700 0 \n" +" 1006 10 MS Sans Serif, 700 0 \n" +" 1007 10 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1032 2 50 104 \n" +" 1033 2 8 122 \n" +,0 +END + +IDD_TEMPLATE003 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "FILE TYPE",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 145, 14 + CONTROL "FILENAME",ISS2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 300, 14 +END + +IDD_TIMESTEP DIALOG 0, 0, 568, 351 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | WS_THICKFRAME | DS_3DLOOK +FONT 9, "Arial" +CAPTION "TIME STEP DATA" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 162, 316, 40, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 280, 316, 40, 14 + CONTROL "Time Step (Hours)",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 71, 15, 70, 12 + CONTROL "Time Step (Minutes)",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 277, 15, 77, 12 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 152, 15, 40, 12 + CONTROL "0.00",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 364, 15, 40, 12 + CONTROL "OR",IDF_STRING7,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 219, 15, 25, 12 + CONTROL "Ending Date for Time Step",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 22, 38, 100, 14 + CONTROL "31/12/2018 12.00",IDF_STRING9,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 132, 38, 77, 14 + CONTROL "",IDF_GRID1,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 88, 56, 328, 60,WS_EX_STATICEDGE + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 104, 124, 318, 47 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 69, 180, 353, 79 + CONTROL "PAGE 2",IDNEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 32, 316, 47, 14 + CONTROL "FLOW BOUNDARY CONDITIONS",IDF_STRING6,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 12, 77, 62, 19 + CONTROL "ELEVATION BOUNDARY CONDITIONS",IDF_STRING8,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 12, 144, 76, 20 + CONTROL "ELEMENT INFLOWS",IDF_STRING10,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 10, 207, 46, 20 + CONTROL "Starting Under-Relaxation",IDF_STRING12,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 217, 38, 97, 14 + CONTROL "",IDF_REAL5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 316, 38, 32, 14 + CONTROL "Iterations to Apply",IDF_STRING13,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 349, 38, 71, 14 + CONTROL "0",IDF_INTEGER2,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 423, 38, 35, 14 + CONTROL "",IDF_GRID4,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 132, 270, 217, 37 + CONTROL "STAGE FLOW BOUNDARY CONDITIONS",IDF_STRING11,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 40, 273, 50, 29 + CONTROL "1 = QC",IDF_STRING14,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 440, 75, 44, 14 + CONTROL "2 = QF",IDF_STRING16,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 440, 88, 44, 14 + CONTROL "3 = QH",IDF_STRING18,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 440, 101, 44, 14 + CONTROL "Q TYPE KEY",IDF_STRING21,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 440, 62, 44, 14 + CONTROL "HELP",IDHELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 408, 317, 40, 14 + CONTROL "INFLOW TYPE KEY",IDF_STRING22,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 453, 183, 65, 14 + CONTROL "1 = NOMINAL",IDF_STRING15,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 437, 196, 50, 14 + CONTROL "2 = RESERVED",IDF_STRING23,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 437, 209, 50, 14 + CONTROL "3 = RESERVED",IDF_STRING24,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 437, 222, 50, 14 + CONTROL "4 = RAIN",IDF_STRING25,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 488, 196, 50, 14 + CONTROL "5 = RESERVED",IDF_STRING26,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 488, 209, 50, 14 + CONTROL "6 = GRP-RAIN",IDF_STRING27,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 488, 222, 50, 14 +END + +IDD_TIMESTEP RCDATA +BEGIN +"[Dialog] \n" +" 0 1 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1 8 Arial, 700 0 \n" +" 2 8 Arial, 700 0 \n" +" 1006 8 Arial, 700 0 \n" +" 1008 8 Arial, 700 0 \n" +" 1012 8 Arial, 700 0 \n" +" 1013 8 Arial, 700 0 \n" +" 1016 8 Arial, 700 0 \n" +" 1007 8 Arial, 700 0 \n" +" 1021 8 Arial, 700 0 \n" +" 1032 8 Arial, 700 0 \n" +" 1033 8 Arial, 700 0 \n" +" 1034 8 Arial, 700 0 \n" +" 1050 8 Arial, 700 0 \n" +" 1014 8 Arial, 700 0 \n" +" 1018 8 Arial, 700 0 \n" +" 1023 8 Arial, 700 0 \n" +" 1026 8 Arial, 700 0 \n" +" 1022 8 Arial, 700 0 \n" +" 1027 8 Arial, 700 0 \n" +" 1019 8 Arial, 700 0 \n" +" 1035 8 Arial, 700 0 \n" +" 1025 8 Arial, 700 0 \n" +" 1030 9 Arial, 700 0 \n" +" 1037 9 Arial, 700 0 \n" +" 1038 9 Arial, 700 0 \n" +" 1056 9 Arial, 700 0 \n" +" 9 9 Arial, 700 0 \n" +" 1057 9 Arial, 700 0 \n" +" 1031 9 Arial, 700 0 \n" +" 1039 9 Arial, 400 1 \n" +" 1040 9 Arial, 400 1 \n" +" 1058 9 Arial, 700 0 \n" +" 1059 9 Arial, 400 1 \n" +" 1060 9 Arial, 700 0 \n" +"[Grids] \n" +" 1032 9 20 102 \n" +" 1033 8 20 108 \n" +" 1034 9 500 110 \n" +" 1035 6 20 118 \n" +"[Formats] \n" +" 1012 (F8.4) \n" +" 1013 (F8.2) \n" +" 1022 (F6.3) \n" +,0 +END + +IDD_TEMPLATE004 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "TYPE",ISS5,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 30, 14 + CONTROL "FROM FILE",ISS4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 50, 14 + CONTROL "CCLINE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "LAYR",ISS6,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "FLOW",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "DIRCN",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "SALIN",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TEMP",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "SED",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE004 RCDATA +BEGIN +"[Checks] \n" +" 1004 0 \n" +"[Ranges] \n" +"[Formats] \n" +" 1034 (F8.3) \n" +" 1003 (F8.3) \n" +" 1044 (F8.3) \n" +" 1046 (F8.3) \n" +" 1024 (F8.3) \n" +,0 +END + +IDD_TEMPLATE005 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "CCLINE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TIDE FILE",ISS3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 45, 14 + CONTROL "HARM FIL",ISS5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 45, 14 + CONTROL "ELEVAT 1",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "ELEVAT 2",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "SALIN",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "TEMP",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "SED",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE005 RCDATA +BEGIN +"[Checks] \n" +" 1003 0 \n" +" 1042 0 \n" +"[Ranges] \n" +"[Formats] \n" +" 1034 (f12.3) \n" +" 1004 (f12.3) \n" +" 1043 (F8.3) \n" +" 1044 (F8.3) \n" +,0 +END + +IDD_TEMPLATE006 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "TYPE",ISS8,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "FROM FILE",ISS3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 50, 14 + CONTROL "NUMBER",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "LAYR",ISS6,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TOT FLOW",ISS4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 48, 14 + CONTROL "INFLOW RATE",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "SALIN",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TEMP",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "SED",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE006 RCDATA +BEGIN +"[Checks] \n" +" 1003 0 \n" +" 1004 0 \n" +"[Ranges] \n" +"[Formats] \n" +" 1042 (F8.3) \n" +" 1044 (F8.3) \n" +" 1024 (F8.3) \n" +,0 +END + +IDD_CONTROLS2 DIALOG 0, 0, 538, 308 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 10, "MS Sans Serif" +CAPTION "CONTROLS PAGE 3" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 249, 280, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 140, 280, 40, 14 + CONTROL "",IDF_CCLINE,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN | GS_WRAP, 386, 100, 108, 69 + CONTROL "",IDF_GRID4,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN | GS_WRAP, 28, 196, 92, 29 + CONTROL "Metric Units",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 198, 169, 112, 14 + CONTROL "Ovelay Time for Restart",IDF_CHECK2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 198, 187, 112, 14 + CONTROL "Write Initial Conditions",IDF_CHECK3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 198, 206, 112, 14 + CONTROL "Page 4",IDF_PART4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 360, 260, 40, 14 + CONTROL "Page 1",IDF_PART1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 140, 260, 40, 14 + CONTROL "Output Continuity Line Flows",IDF_CHECK4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 170, 112, 14 + CONTROL "Output Ave Continuity Line Elevations",IDF_CHECK5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 182, 112, 14 + CONTROL "Output Ave Continuity Line Depths",IDF_CHECK6,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 194, 112, 14 + CONTROL "HELP",IDF_HELP10,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 360, 280, 40, 14 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 21, 12, 134, 69 + CONTROL "",IDF_GRID6,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 194, 8, 124, 160 + CONTROL "Zero Velocity on Bed",IDF_CHECK7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 383, 13, 112, 14 + CONTROL "Passive Saliniity Density",IDF_CHECK8,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 43, 112, 14 + CONTROL "Passive Temperature Density",IDF_CHECK9,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 57, 112, 14 + CONTROL "Passive Sediment Density",IDF_CHECK10,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 71, 112, 14 + CONTROL "Zero Velocity at Water Surface",IDF_CHECK11,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 383, 25, 112, 14 + CONTROL "",IDF_GRID7,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS, 22, 101, 136, 78 + CONTROL "Use Out of Core Pardiso (very large problems)",IDF_CHECK12,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 188, 224, 140, 14 + CONTROL "Output Ave Continuity Line Salinity",IDF_CHECK13,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 206, 112, 14 + CONTROL "Output Ave Continuity Line Temps",IDF_CHECK14,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 218, 112, 14 + CONTROL "Output Ave Continuity Line Sedment",IDF_CHECK15,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 231, 112, 14 + CONTROL "Page 2",IDF_PART2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 249, 260, 40, 14 +END + +IDD_CONTROLS2 RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +" 1050 0 \n" +" 1051 0 \n" +" 1052 0 \n" +" 1053 0 \n" +" 1054 0 \n" +" 1058 0 \n" +" 1059 0 \n" +" 1060 0 \n" +" 1061 0 \n" +" 1062 0 \n" +" 1055 0 \n" +" 1056 0 \n" +" 1057 0 \n" +" 1063 0 \n" +"[Fonts] \n" +" 1 9 Arial, 700 0 \n" +" 2 9 Arial, 700 0 \n" +" 1045 9 Arial, 700 0 \n" +" 1035 9 Arial, 700 0 \n" +" 1049 9 Arial, 700 0 \n" +" 1050 9 Arial, 700 0 \n" +" 1051 9 Arial, 700 0 \n" +" 1042 10 MS Sans Serif, 700 0 \n" +" 1048 10 MS Sans Serif, 700 0 \n" +" 1052 9 Arial, 700 0 \n" +" 1053 9 Arial, 700 0 \n" +" 1054 9 Arial, 700 0 \n" +" 1068 10 MS Sans Serif, 700 0 \n" +" 1058 9 Arial, 700 0 \n" +" 1059 9 Arial, 700 0 \n" +" 1060 9 Arial, 700 0 \n" +" 1061 9 Arial, 700 0 \n" +" 1062 9 Arial, 700 0 \n" +" 1055 9 Arial, 700 0 \n" +" 1056 9 Arial, 700 0 \n" +" 1057 9 Arial, 700 0 \n" +" 1063 9 Arial, 700 0 \n" +" 1041 10 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1045 1 30 111 \n" +" 1035 1 15 115 \n" +" 1034 1 6 103 \n" +" 100 \n" +"Turbulence Factor \n" +"Turbulence Min \n" +"Nominal Init Vel \n" +"Nominal Init Dir \n" +"Init Bed X-vel for Friction \n" +"Init Bed Y-vel for Friction \n" +" 1039 1 14 114 \n" +" 100 \n" +"Time Projection Switch \n" +"1-D Cross-Section Type \n" +"ASCII Output Interval \n" +"Iteration Intv for ASCII Save \n" +"Staritng Step fro Bin Save \n" +"Binary File Save Frequency \n" +"Restart File Frequency \n" +"Message Rewind Frequency \n" +"ASCII File RewinD Frequency \n" +"Dry Node test Frequency \n" +"Binary Save of all Iterations \n" +"Use Alternate Vert Density \n" +"Force Boundary Conditions \n" +"Vert Eqn Min for PARDISO \n" +" 1078 1 7 142 \n" +" 105 \n" +"Velocity at Boundary Const \n" +"Velocity at Boundary Power \n" +"Velocity at Trans Const \n" +"Velocity at Trans Power \n" +"Sal-Temp-Sed Bound Const \n" +"Sal-Temp-Sed Bound Power \n" +"Percent Returned at Bound \n" +,0 +END + +IDD_TEMPLATE007 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "OUTPUT CONTINUITY LINES",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 100, 14 +END + +IDD_TEMPLATE007 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE010 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "SPECIAL PRT NODES",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 90, 14 +END + +IDD_TEMPLATE010 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TIMESTEP2 DIALOG 0, 0, 473, 376 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "ADDITIONAL TIME STEP DATA" +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, 43, 32, 386, 55 + CONTROL "ELEVATION BOUNDARY FLOW WEIGHTING",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 160, 12, 154, 14 + CONTROL "WIND VELOCITY ( METRES/SEC or MILES PER HOUR)",IDF_STRING4,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 92, 100, 67, 32 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 168, 108, 34, 14 + CONTROL "WIND DIRECTION CCWISE FROM X-AXIS (DEGREES)",IDF_STRING5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 275, 99, 80, 32 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 364, 107, 35, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 217, 333, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 120, 333, 40, 14 + CONTROL "HELP",IDHELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 324, 333, 40, 14 + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 38, 140, 397, 172 +END + +IDD_TIMESTEP2 RCDATA +BEGIN +"[Ranges] \n" +"[Fonts] \n" +" 1032 9 Arial, 700 0 \n" +" 1006 8 Arial, 700 0 \n" +" 1009 8 Arial, 700 0 \n" +" 1015 9 Arial, 700 0 \n" +" 1010 8 Arial, 700 0 \n" +" 1068 8 MS Sans Serif, 700 0 \n" +" 1 9 Arial, 700 0 \n" +" 2 9 Arial, 700 0 \n" +" 9 8 MS Sans Serif, 700 0 \n" +" 1033 9 Arial, 700 0 \n" +"[Grids] \n" +" 1032 32 12 116 \n" +" 1033 8 200 107 \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE011 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "NODE1",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE2",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE3",ISS3,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE4",ISS4,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE5",ISS5,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE6",ISS6,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE7",ISS7,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE8",ISS8,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE9",ISS9,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE10",ISS10,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE11",ISS11,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE12",ISS12,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE13",ISS13,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE14",ISS14,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE15",ISS15,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE16",ISS16,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE17",ISS17,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE18",ISS18,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE19",ISS21,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE20",ISS22,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE21",ISS23,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "NODE22",ISS24,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE23",ISS25,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE24",ISS26,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE25",ISS28,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE26",ISS29,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE27",ISS30,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE28",ISS31,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE29",ISS32,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE30",ISS33,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE31",ISS34,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE32",ISS35,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE011 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE012 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "CCLINE",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "A1",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "A2",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "E0",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "C",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "THETA",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE012 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_GETTIMSTP DIALOG 0, 0, 260, 159 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 10, "Arial" +CAPTION "SELECT STEADY/TIME STEP BLOCK" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 40, 92, 40, 14 + CONTROL "1",IDF_INTEGER1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 155, 61, 40, 14 + CONTROL "Select Steady State Block",IDF_RADIO1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 62, 16, 136, 14 + CONTROL "Select Time Step Block",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 62, 37, 136, 14 + CONTROL "Block Number",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 61, 60, 76, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 175, 93, 45, 14 + CONTROL "HELP",IDHELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 110, 122, 40, 14 +END + +IDD_GETTIMSTP RCDATA +BEGIN +"[Checks] \n" +" 1059 0 \n" +" 1060 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1 10 Arial, 700 0 \n" +" 1073 9 Arial, 700 0 \n" +" 1059 10 MS Sans Serif, 700 0 \n" +" 1060 10 MS Sans Serif, 700 0 \n" +" 1008 10 MS Sans Serif, 700 0 \n" +" 2 10 Arial, 700 0 \n" +" 9 10 Arial, 700 0 \n" +,0 +END + +IDD_MISC DIALOG 0, 0, 421, 340 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "CONTROLS PAGE 4" +BEGIN + CONTROL "X-Scale",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 128, 32, 100, 13 + CONTROL "0.000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 245, 32, 40, 13 + CONTROL "0.000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 245, 45, 40, 13 + CONTROL "Y-Scale",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 128, 45, 100, 13 + CONTROL "0.000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 245, 58, 40, 13 + CONTROL "Z-Scale",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 128, 58, 100, 13 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 245, 71, 40, 13 + CONTROL "DSET",IDF_STRING4,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 128, 71, 100, 13 + CONTROL "DSETD",IDF_STRING5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 128, 84, 100, 13 + CONTROL "0.000",IDF_REAL5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 245, 84, 40, 13 + CONTROL "HMIN",IDF_STRING7,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 128, 97, 100, 13 + CONTROL "0.000",IDF_REAL7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 245, 97, 40, 13 + CONTROL "Only Save Restart at End of Step",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 137, 256, 146, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 190, 305, 40, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 82, 304, 44, 14 + CONTROL "PAGE 1",IDF_PART1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 86, 278, 40, 14 + CONTROL "PAGE 2",IDF_PART2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 191, 278, 40, 14 + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 80, 152, 260, 100 + CONTROL "MARSH DATA BY ELEMENT TYPE",IDF_STRING19,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 122, 124, 172, 14 + CONTROL "HELP",IDF_HELP1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 296, 300, 40, 14 + CONTROL "PAGE 3",IDF_PART3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 297, 278, 40, 14 +END + +IDD_MISC RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1006 8 Arial, 700 0 \n" +" 1012 9 Arial, 700 0 \n" +" 1013 9 Arial, 700 0 \n" +" 1007 8 Arial, 700 0 \n" +" 1015 9 Arial, 700 0 \n" +" 1008 8 Arial, 700 0 \n" +" 1009 8 Arial, 700 0 \n" +" 1010 8 Arial, 700 0 \n" +" 1022 9 Arial, 700 0 \n" +" 1016 8 Arial, 700 0 \n" +" 1029 9 Arial, 700 0 \n" +" 1049 9 Arial, 700 0 \n" +" 1 10 MS Sans Serif, 700 0 \n" +" 2 10 MS Sans Serif, 700 0 \n" +" 1048 10 MS Sans Serif, 700 0 \n" +" 1041 10 MS Sans Serif, 700 0 \n" +" 1033 8 Arial, 700 0 \n" +" 1035 10 MS Sans Serif, 700 0 \n" +" 1058 8 MS Sans Serif, 700 0 \n" +" 1047 10 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1033 5 20 113 \n" +"[Formats] \n" +" 1012 (f8.3) \n" +" 1013 (f8.3) \n" +" 1015 (f8.3) \n" +" 1022 (f8.3) \n" +" 1029 (f8.3) \n" +,0 +END + +IDD_TEMPLATE014 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "LMIT COMPONENT",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 90, 14 + CONTROL "LIMIT",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 55, 14 +END + +IDD_TEMPLATE014 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE015 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "Type",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Depth Shift",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Range",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Porosity",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Depth Override",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 80, 14 +END + +IDD_TEMPLATE015 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_CONTROLS DIALOG 0, 0, 584, 326 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 10, "Arial" +CAPTION "CONTROL DATA PAGE 1" +BEGIN + 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 "ECHO PRINT OPTION",IDF_STRING5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 244, 51, 50, 30 + CONTROL "MARSHING OPTION",IDF_STRING10,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 241, 167, 51, 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, 272, 296, 40, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 164, 296, 40, 14 + CONTROL "PAGE 2",IDF_PART2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 159, 270, 40, 14 + CONTROL "HORIZONTAL TURBULENCE MODEL",IDF_STRING17,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 412, 75, 66, 29 + CONTROL "SOLVER TYPE",IDF_STRING19,"EDIT",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 412, 39, 66, 12,WS_EX_STATICEDGE + CONTROL "HELP",IDF_HELP1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 388, 296, 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 "PARDISO",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 42, 70, 14 + CONTROL "NOT ACTIVE",IDF_RADIO4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 309, 156, 70, 14 + CONTROL "USE DEFAULT",IDF_RADIO5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 309, 170, 70, 14 + CONTROL "INPUT SETTINGS",IDF_RADIO6,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 309, 184, 70, 14 + CONTROL "CONSTANT",IDF_RADIO7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 68, 70, 14 + CONTROL "SCALED",IDF_RADIO8,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 82, 70, 14 + CONTROL "SMAGORINSKY",IDF_RADIO9,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 96, 70, 14 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 20, 32, 194, 124 + CONTROL "",IDF_GRID5,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 16, 176, 188, 50 + CONTROL "",IDF_GRID6,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 220, 206, 163, 48 + CONTROL "BRIEF ECHO PRINT",IDF_RADIO10,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT | BS_MULTILINE, 310, 36, 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, 54, 66, 24 + CONTROL "ALL INPUT",IDF_RADIO12,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT | BS_MULTILINE, 310, 80, 66, 12 + CONTROL "LAYER STRUCTURE",IDF_STRING20,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 414, 163, 66, 22 + CONTROL " 2-D",IDF_RADIO13,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 133, 70, 14 + CONTROL "3-D FIXED LAYERS",IDF_RADIO14,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 492, 147, 77, 14 + CONTROL "3-D TYPE LD1",IDF_RADIO15,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 180, 70, 14 + CONTROL "3-D TYPE LD2",IDF_RADIO16,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 195, 70, 14 + CONTROL "3-D TYPE LD3",IDF_RADIO17,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 211, 70, 14 + CONTROL "",IDF_GRID7,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS, 488, 161, 86, 16 + CONTROL "",IDF_GRID8,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS, 452, 228, 116, 16 + CONTROL "3-D TO 2-D COLLAPSE OPTION",IDF_STRING6,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 243, 110, 50, 30 + CONTROL "COLLAPSE ON",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 308, 104, 70, 14 + CONTROL "TRANSITION DEPTH",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 303, 118, 77, 12 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 317, 131, 40, 12 + CONTROL "PAGE 3",IDF_PART3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 272, 270, 40, 14 + CONTROL "PAGE 4",IDF_PART4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 387, 270, 40, 14 +END + +IDD_CONTROLS RCDATA +BEGIN +"[Checks] \n" +" 1059 0 \n" +" 1060 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" +" 1073 0 \n" +" 1074 0 \n" +" 1075 0 \n" +" 1076 0 \n" +" 1077 0 \n" +" 1049 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1006 10 Arial, 400 0 \n" +" 1007 10 Arial, 400 0 \n" +" 1010 10 Arial, 700 0 \n" +" 1023 10 Arial, 700 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, 700 0 \n" +" 1035 10 Arial, 700 0 \n" +" 1058 10 Arial, 700 0 \n" +" 1059 10 Arial, 700 0 \n" +" 1060 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" +" 1055 10 Arial, 700 0 \n" +" 1073 10 Arial, 700 0 \n" +" 1074 10 Arial, 700 0 \n" +" 1075 10 Arial, 700 0 \n" +" 1076 10 Arial, 700 0 \n" +" 1077 10 Arial, 700 0 \n" +" 1014 10 Arial, 700 0 \n" +" 1049 10 Arial, 700 0 \n" +" 1008 10 Arial, 700 0 \n" +" 1012 10 Arial, 700 0 \n" +" 1047 10 Arial, 700 0 \n" +" 1042 10 Arial, 700 0 \n" +"[Grids] \n" +" 1034 1 11 124 \n" +" 165 \n" +"Reference Water Level \n" +"Initial Water Level (if restart not used) \n" +"Latitude \n" +"Velocity Convergence \n" +"Depth Convergence \n" +"Salinity Convergence \n" +"Temperature Convergence \n" +"Sediment Convergence \n" +"Initial Salinity \n" +"Initial Temperature \n" +"Initial Sediment \n" +" 1036 1 4 125 \n" +" 170 \n" +"Verrtical Turrbulence Model \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" +" 1078 1 1 123 \n" +" 80 \n" +"Number of Layers \n" +" 1079 1 1 150 \n" +" 90 \n" +"Surface Mixing Depth \n" +"[Formats] \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 + +IDD_TEMPLATE019 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "Label",ISS1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 +END + +IDD_TEMPLATE019 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +" 1033 (f8.4) \n" +,0 +END + +IDD_TEMPLATE020 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "Label",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE020 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_EXTR DIALOG 0, 0, 660, 338 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "EXTRA CONTROLS" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 310, 272, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 484, 272, 40, 14 + CONTROL "HELP",IDF_HELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 160, 272, 40, 14 + CONTROL "",IDF_GRID1,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS, 483, 54, 147, 71 + CONTROL "ELEMENT TO NODE CONNECTIONS",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 503, 26, 101, 26 + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_WANTRETURN, 22, 116, 400, 116 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS, 22, 64, 390, 52 + CONTROL "SPECIAL STRUCTURES",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 164, 45, 116, 14 + CONTROL "GATE CONTROL ELT-TYP NO FLOW ELEV AT NODE 1 BELOW ELEV AT NODE 2",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 483, 142, 137, 34 + CONTROL "",IDF_GRID4,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_RESIZECOLUMNS, 479, 177, 155, 71 +END + +IDD_EXTR RCDATA +BEGIN +"[Fonts] \n" +" 1 10 MS Sans Serif, 700 0 \n" +" 2 10 MS Sans Serif, 700 0 \n" +" 1020 10 MS Sans Serif, 700 0 \n" +" 1032 10 MS Sans Serif, 700 0 \n" +" 1006 10 MS Sans Serif, 700 0 \n" +" 1033 8 MS Sans Serif, 700 0 \n" +" 1034 8 MS Sans Serif, 700 0 \n" +" 1007 10 MS Sans Serif, 700 0 \n" +" 1008 10 MS Sans Serif, 700 0 \n" +" 1035 10 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1032 2 10 127 \n" +" 1033 9 30 128 \n" +" 1034 8 4 130 \n" +" 1035 3 10 131 \n" +,0 +END + +IDD_TEMPLATE021 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "ELEMENT",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "NODE",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE021 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE022 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "TYPE",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 10, 14 + CONTROL "Label",ISS9,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 30, 14 + CONTROL "Label",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS8,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 +END + +IDD_TEMPLATE022 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +" 1043 (F9.3) \n" +" 1034 (F9.3) \n" +" 1003 (F9.3) \n" +" 1004 (F9.3) \n" +" 1044 (F8.3) \n" +,0 +END + +IDD_TEMPLATE023 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "Label",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Label",ISS2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS4,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS6,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS7,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS8,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 +END + +IDD_TEMPLATE024 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "TYPE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 30, 14 + CONTROL "NODE 1",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 35, 14 + CONTROL "NODE 2",ISS3,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 35, 14 +END + +IDD_TEMPLATE024 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_SELCT DIALOG 0, 0, 152, 100 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 12, "Arial Black" +CAPTION "RMA2PRP INFORMATION" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 56, 72, 40, 14 + CONTROL "RMA-2 INPUT FILE EDITOR",ID_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | WS_BORDER | SS_CENTER | SS_SUNKEN, 41, 44, 69, 20 + CONTROL " RMA2PRP VERSION 1.0 MAY 2019",IDF_LABEL2,"STATIC",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | SS_CENTER, 36, 12, 80, 28 +END + +IDD_SELCT RCDATA +BEGIN +"[Colours] \n" +" 1001 256 256 256 255 255 128 \n" +" 1002 256 256 256 255 255 128 \n" +,0 +END + +IDD_ABOUT DIALOG 0, 0, 152, 110 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "About" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 50, 92, 40, 14 + CONTROL "RMA10PRP Version 1.0 Jul 2019 Copyright Resource Modelling Associates Sydney, Australia",ID_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | SS_CENTER | SS_SUNKEN, 24, 20, 92, 60 +END + +IDD_TIMDAT DIALOG 0, 0, 240, 224 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "TIME DATA" +BEGIN + CONTROL "Number of Time Steps",IDF_LABEL4,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 12, 140, 8 + CONTROL "Starting Day for Simulation",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 29, 140, 10 + CONTROL "Time Step in Hours",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 67, 140, 10 + CONTROL "Number of Sub-timesteps for Tracking",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 87, 140, 10 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 11, 50, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 188, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 188, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 188, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 48, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 66, 50, 14 + CONTROL "0",IDF_INTEGER2,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 28, 50, 14 + CONTROL "Starting Hour for Simulation",IDF_LABEL10,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 48, 140, 10 + CONTROL "0",IDF_INTEGER5,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 85, 50, 14 + CONTROL "Plot results for all sub time steps",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 20, 116, 200, 10 + CONTROL "Time interval for animations",IDF_LABEL8a,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 137, 140, 10 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 171, 135, 50, 14 + CONTROL "Number timesteps for introduction of stream",IDF_LABEL8b,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 161, 140, 10 + CONTROL "0",IDF_INTEGER6,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 159, 50, 14 +END + +IDD_TIMDAT RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_DISPER DIALOG 0, 0, 240, 178 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "DISPERSION DATA" +BEGIN + CONTROL "Longitudinal Dispersion",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 38, 140, 10 + CONTROL "Transverse Dispersion",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 56, 140, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 140, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 140, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 140, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 36, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 54, 50, 14 + CONTROL "Vertical Dispersion",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 73, 140, 10 + CONTROL "Shear Dispersion Factor for 1D Elements",IDF_LABEL8,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 93, 140, 10 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 73, 50, 14 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 91, 50, 14 + CONTROL "Settling Velocity",IDF_LABEL9,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 21, 113, 140, 10 + CONTROL "0.0000",IDF_REAL5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 111, 50, 14 + CONTROL "Switch to use Dispersion Data as Fischer Eqn Scale Factors",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 19, 16, 201, 9 +END + +IDD_DISPER RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_SCALE DIALOG 0, 0, 240, 104 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "TWO-DIMENSIONAL SCALES" +BEGIN + CONTROL "X Coordinate Scale Factor",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 14, 140, 10 + CONTROL "Y Coordinate Scale Factor",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 33, 140, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 75, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 75, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 75, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 13, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 31, 50, 14 + CONTROL "Z Coordinate Scale Factor",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 20, 50, 140, 10 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 50, 50, 14 +END + +IDD_SCALE RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_OPTIONS DIALOG 0, 0, 174, 137 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "Display Options" +BEGIN + CONTROL "Show Outline",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 8, 106, 10 + CONTROL "Show Network",IDF_CHECK2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 24, 106, 10 + CONTROL "Show Node Numbers",IDF_CHECK3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 40, 106, 10 + CONTROL "Show Element Numbers",IDF_CHECK4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 57, 106, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 109, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 112, 109, 40, 14 + CONTROL "Show Background",IDF_CHECK5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 74, 106, 10 +END + +IDD_OPTIONS RCDATA +BEGIN +"[Checks] \n" +" 1049 1 \n" +" 1050 0 \n" +" 1051 0 \n" +" 1052 0 \n" +" 1053 0 \n" +,0 +END + +IDD_TEMPLATE025 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "Arial" +BEGIN + CONTROL "Label",ISS4,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE025 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_CONTROLS2A DIALOG 0, 0, 584, 324 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 10, "Arial" +CAPTION "CONTROL DATA PAGE 2" +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, 37, 36, 510, 90 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 272, 288, 40, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 146, 288, 40, 14 + CONTROL "PAGE 1",IDF_PART1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 143, 268, 40, 14 + CONTROL "LAYER DATA",IDF_STRING17,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 256, 144, 66, 12 + CONTROL "HELP",IDF_HELP1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 394, 288, 40, 14 + CONTROL "",IDF_GRID6,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 58, 164, 468, 96 + CONTROL "EDDY / DIFF/ TURBULENCE / FRICTION PROPERTIES",IDF_STRING20,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 195, 16, 194, 14 + CONTROL "PAGE 3",IDF_PART3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 272, 268, 40, 14 + CONTROL "PAGE 4",IDF_PART4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 394, 268, 40, 14 +END + +IDD_CONTROLS2A RCDATA +BEGIN +"[Fonts] \n" +" 1032 10 Arial, 700 0 \n" +" 1 10 Arial, 700 0 \n" +" 2 10 Arial, 700 0 \n" +" 1048 10 Arial, 700 0 \n" +" 1033 10 Arial, 700 0 \n" +" 1058 10 Arial, 700 0 \n" +" 1055 10 Arial, 700 0 \n" +" 1047 10 Arial, 700 0 \n" +" 1042 10 Arial, 700 0 \n" +"[Grids] \n" +" 1032 9 1000 149 \n" +" 1039 24 1000 152 \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, 40, 14 + CONTROL "HOR EDDY COEF",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "VRT EDDY COEF",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "HOR DIFF COEF",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "VRT DIFF COEF",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "MANNING N",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "MARSH FAC",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "BANK FRIC",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "SURFACE FRIC",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 +END + +IDD_DIALOG002 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +" 1043 (E11.3) \n" +" 1042 (F10.3) \n" +" 1044 (E11.3) \n" +" 1003 (f8.3) \n" +,0 +END + +IDD_DIALOG006 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "Arial" +BEGIN + CONTROL "NODE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 35, 14 + CONTROL "NUM OF LAYERS",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 70, 14 + CONTROL "LAY-1",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-2",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "LAY-3",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-4",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-5",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-6",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-7",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-8",ISS10,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-9",ISS11,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-10",ISS12,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-11",ISS13,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-12",ISS14,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-13",ISS15,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-14",ISS16,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-15",ISS17,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-16",ISS18,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-17",ISS19,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-18",ISS20,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-19",ISS21,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-20",ISS22,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-21",ISS23,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-22",ISS24,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 +END + +IDD_DIALOG006 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE026 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "",ISS1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 +END + +IDD_TEMPLATE026 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE027 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, 60, 14 +END + +IDD_TEMPLATE027 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE028 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "NODE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "CONDITION",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "X-VEL",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "Y-VEL",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "WS-ELV",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "SALIN",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TEMP",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "SED",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE028 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +/////////////////////////////////////////////////// +// +// Menus +// +IDM_MENU1 MENU +BEGIN + POPUP "FILE" + BEGIN + MENUITEM "Open Existing New Format R10 file", ID_OPENRM2 + MENUITEM "Save as New Format R10 file", ID_ITEM21 + MENUITEM "Convert Old Format R10 File", ID_CONVERT + MENUITEM "Exit", ID_ex + END + MENUITEM "OPEN FILE BLOCK", ID_ITEM16 + POPUP "OPEN CONTROL BLOCK" + BEGIN + MENUITEM "CONTROL PAGE-1", ID_CP1 + MENUITEM "CONTROL PAGE-2", ID_CP2 + MENUITEM "CONTROL PAGE 3", ID_CP3 + MENUITEM "CONTROL PAGE 4", ID_CP4 + END + MENUITEM "OPEN TIME STEP BLOCK", ID_ITEM6 + MENUITEM "EXECUTE RMA10", ID_RUNRMA2 + POPUP "HELP" + BEGIN + MENUITEM "ABOUT", ID_ABOUT + MENUITEM "INTRODUCTION", ID_MENUITEM + MENUITEM "RMA10 DATALINES", ID_HELP + MENUITEM "RMA10 USERS MANUAL", ID_HELPUSER + END + MENUITEM "EXIT", ID_EXIT +END + +IDM_MENU1 RCDATA +BEGIN +ID_FILE,1,0, +ID_ITEM19,3,0, +ID_HELP1,6,0, +0 +END + +IDM_MENU1 ISSMENUSTRING +BEGIN +ID_OPENRM2,"%Alt+F\0", +ID_ITEM16,"Ctl+F\0", +ID_MENUITEM,"Ctl+F\0", +0 +END + +/////////////////////////////////////////////////// +// +// Bitmaps +// +IDT_TOOLBAR1 BITMAP DISCARDABLE "tbar1.bmp" +ID_TOOLBAR1 BITMAP DISCARDABLE "toolbar1.bmp" + +/////////////////////////////////////////////////// +// +// Icons +// +icon1 ICON DISCARDABLE "program.ico" + +/////////////////////////////////////////////////// +// +// Strings +// +STRINGTABLE DISCARDABLE +BEGIN + ID_BUTTON8 "Open RM2 File" + ID_BUTTON5 "Save RM2 File" + ID_BUTTON4 "Convert Old RM2 File" + ID_FILE_SAVE "Save" + ID_HELP_ABOUT "Help" + ID_ZIN "Zoom In" + ID_OUT2 "Zoom out Factor = 2." + ID_DRAG "Drag image across screen" +END + +/////////////////////////////////////////////////// +// +// Toolbar Data +// +IDT_TOOLBAR1 RCDATA +BEGIN + 16, 16, + ID_BUTTON8, + ID_BUTTON5, + ID_BUTTON4, +0,0 +END + +ID_TOOLBAR1 RCDATA +BEGIN + 16, 16, + ID_ZIN, + ID_OUT2, + ID_DRAG, + ID_FILE_SAVE, + ID_HELP_ABOUT, +0,0 +END + + +/////////////////////////////////////////////////// +// +// Winteracter Visual Tool Settings +// +//*WI* BASEMENU 30001 +//*WI* BASEITEM 40001 +//*WI* BASEDIALOG 101 +//*WI* BASEFIELD 1001 +//*WI* BASETOOLBAR 30101 +//*WI* BASEBUTTON 40101 +//*WI* BASEIMAGE 2001 +//*WI* F90MODULE 1 +//*WI* FORTSAVE 1 +//*WI* FILENAME resid.f90 +//*WI* FMODNAME RESID +//*WI* LASTTYPE 2 +//*WI* LASTRES 1 diff --git a/RMA10PRP/SRC/resource10A.rc b/RMA10PRP/SRC/resource10A.rc new file mode 100644 index 0000000..505c1de --- /dev/null +++ b/RMA10PRP/SRC/resource10A.rc @@ -0,0 +1,1925 @@ +/////////////////////////////////////////////////// +// +// THIS FILE SHOULD NOT BE EDITED USING A TEXT +// EDITOR OR 3RD PARTY RESOURCE EDITOR, EXCEPT +// WHEN SPECIFICALLY INSTRUCTED BY I.S.S. +// +/////////////////////////////////////////////////// +// +// Winteracter resource script. +// +// Modified : 27/Jul/2019 15:05:18 +// +/////////////////////////////////////////////////// +// +// Include files +// +#include "winparam.h" + +/////////////////////////////////////////////////// +// +// Parameter Definitions +// +#define IDT_TOOLBAR1 30101 +#define ID_BUTTON4 40101 +#define IDM_MENU1 30001 +#define IDD_GETTIMSTP 119 +#define IDF_LABEL1 1001 +#define IDF_LABEL2 1002 +#define IDF_GROUP1 1016 +#define IDF_LABEL9 1017 +#define IDF_LABEL11 1019 +#define IDD_TEMPLATE001 107 +#define IDF_GRID1 1032 +#define ISS1 1033 +#define IDF_APPLY 1039 +#define IDD_MATERIALS 109 +#define IDF_COLOUR 1005 +#define ISS2 1034 +#define IDF_SHINE 1007 +#define IDF_GLOSS 1008 +#define IDF_SHINE2 1009 +#define IDF_GLOSS2 1010 +#define IDF_RED 1035 +#define IDF_GREEN 1036 +#define IDF_BLUE 1038 +#define IDF_LABEL8 1040 +#define ID_FILE 40004 +#define ID_OPENRM2 40005 +#define IDD_CONTROLS 101 +#define IDF_PART2 1041 +#define ISS3 1003 +#define ISS4 1004 +#define IDF_STRING1 1006 +#define IDF_STRING2 1007 +#define IDF_INTEGER1 1073 +#define IDF_STRING3 1008 +#define IDF_STRING4 1009 +#define IDF_STRING5 1010 +#define IDF_REAL1 1012 +#define IDF_REAL2 1013 +#define IDF_STRING6 1014 +#define IDF_REAL3 1015 +#define IDF_STRING7 1016 +#define IDF_REAL4 1068 +#define IDF_STRING8 1018 +#define IDF_INTEGER2 1019 +#define IDF_STRING9 1021 +#define IDF_REAL5 1022 +#define IDF_STRING10 1023 +#define IDF_STRING11 1025 +#define IDF_STRING12 1026 +#define IDF_STRING13 1027 +#define IDF_REAL6 1028 +#define IDF_REAL7 1029 +#define IDF_STRING14 1030 +#define IDF_REAL8 1031 +#define IDF_STRING16 1037 +#define IDF_STRING18 1038 +#define ID_ITEM16 40016 +#define ID_HELP1 40001 +#define ID_ITEM19 40018 +#define ID_ITEM6 40019 +#define ID_ITEM21 40021 +#define IDD_TEMPLATE003 104 +#define IDD_TEMPLATE004 102 +#define IDD_TIMESTEP 105 +#define IDD_FILENAMES 106 +#define IDD_TEMPLATE005 108 +#define IDF_GRID2 1033 +#define IDD_TEMPLATE006 110 +#define IDF_GRID3 1034 +#define ISS5 1042 +#define ISS6 1043 +#define ISS7 1044 +#define IDF_CHECK2 1050 +#define IDD_CONTROLS2 112 +#define IDF_CHECK3 1051 +#define IDF_CCLINE 1045 +#define IDF_INTEGER5 1074 +#define IDF_INTEGER6 1026 +#define IDF_INTEGER7 1027 +#define IDD_TEMPLATE007 111 +#define IDF_CHECK4 1052 +#define IDF_STRING17 1033 +#define IDF_CHECK5 1053 +#define IDD_TEMPLATE010 115 +#define IDF_GRID4 1035 +#define IDF_CHECK1 1049 +#define IDNEXT 1050 +#define IDF_HELP10 1068 +#define IDD_TEMPLATE011 116 +#define IDD_TIMESTEP2 117 +#define ISS8 1046 +#define IDD_TEMPLATE012 118 +#define ID_EXIT 40002 +#define IDF_INTEGER8 1030 +#define IDD_MISC 121 +#define IDD_TEMPLATE013 120 +#define IDF_PART3 1047 +#define IDF_PART1 1048 +#define IDF_PARTT1 1052 +#define IDF_PARTT2 1053 +#define IDF_STRING19 1035 +#define IDF_CHECK12 1055 +#define IDF_HELP 1020 +#define ID_CONVERT 40003 +#define IDD_TEMPLATE014 122 +#define ID_ex 40006 +#define IDF_STRING20 1055 +#define IDF_STRING21 1056 +#define IDF_REAL9 1057 +#define IDF_CHECK6 1054 +#define IDD_TEMPLATE015 113 +#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 IDF_HELP3 1069 +#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 +#define IDD_TEMPLATE019 103 +#define IDD_TEMPLATE020 114 +#define ID_RUNRMA2 40007 +#define ID_HELP 40009 +#define ID_HELPUSER 40010 +#define ID_BUTTON8 40104 +#define ID_BUTTON5 40102 +#define ID_EXTRA 40008 +#define IDD_TEMPLATE021 127 +#define IDD_TEMPLATE022 128 +#define IDD_EXTR 129 +#define IDD_TEMPLATE023 130 +#define ISS9 1024 +#define IDD_TEMPLATE024 131 +#define ID_ABOUT 40011 +#define ID_MENUITEM 40012 +#define IDD_DIALOG010 132 +#define ID_LABEL1 1001 +#define ID_DRAG 20001 +#define ID_FILE_SAVE 40055 +#define ID_HELP_ABOUT 40009 +#define ID_TOOLBAR1 30102 +#define IDD_SELCT 133 +#define IDD_ABOUT 134 +#define IDF_LABEL4 1005 +#define IDF_LABEL5 1006 +#define IDF_LABEL6 1007 +#define IDF_LABEL7 1008 +#define IDF_INTEGER3 1011 +#define IDF_INTEGER4 1012 +#define IDD_TIMDAT 136 +#define IDF_NEXT 1075 +#define IDD_VELDAT 137 +#define IDD_QALDAT 138 +#define IDD_DISPER 139 +#define IDD_SCALE 140 +#define IDD_CONVEL 141 +#define IDF_LABEL10 1011 +#define IDD_OPTIONS 143 +#define ID_ZIN 40022 +#define ID_OUT2 40023 +#define IDD_PNLPART 144 +#define IDD_PLOTOPT 145 +#define IDF_LABEL8a 1024 +#define IDF_LABEL8b 1025 +#define IDF_maxp 1026 +#define IDF_LABEL12 1069 +#define IDF_LABEL13 1025 +#define IDR_MENU2 30002 +#define ID_VIEW1 40037 +#define ID_EXIT1 40038 +#define ID_CONTINUE1 40039 +#define ID_ZOOMIN1 40040 +#define ID_ZOOMOUT2 40042 +#define ID_ZOOMOUT4 40043 +#define IDD_SHEARIN 146 +#define IDD_PARTLOSS 147 +#define IDD_PLOTSHR 148 +#define IDD_DIALOG001 135 +#define IDF_RADIO13 1073 +#define IDF_RADIO14 1074 +#define IDF_RADIO15 1075 +#define IDF_RADIO16 1076 +#define IDF_RADIO17 1077 +#define IDD_TEMPLATE025 123 +#define IDF_GRID7 1078 +#define IDD_DIALOG002 149 +#define IDD_DIALOG006 152 +#define IDD_CONTROLS2A 153 +#define ISS21 1079 +#define ISS11 1081 +#define ISS12 1082 +#define ISS13 1083 +#define ISS14 1084 +#define ISS15 1085 +#define ISS16 1086 +#define ISS17 1087 +#define ISS18 1088 +#define ISS19 1089 +#define ISS20 1090 +#define ISS22 1092 +#define ISS23 1093 +#define ISS24 1094 +#define ISS10 1080 +#define ID_CP1 40045 +#define ID_CP2 40046 +#define IDF_CHECK7 1058 +#define IDF_CHECK8 1059 +#define IDF_CHECK9 1060 +#define IDF_CHECK10 1061 +#define IDF_CHECK11 1062 +#define IDD_TEMPLATE026 142 +#define IDF_CHECK13 1056 +#define IDF_CHECK14 1057 +#define IDF_CHECK15 1063 +#define IDD_TEMPLATE027 150 +#define IDF_GRID8 1079 +#define IDF_STRING22 1057 +#define IDF_STRING15 1031 +#define IDF_STRING23 1039 +#define IDF_STRING24 1040 +#define IDF_STRING25 1058 +#define IDF_STRING26 1059 +#define IDF_STRING27 1060 + +/////////////////////////////////////////////////// +// +// Dialogs +// +IDD_MATERIALS DIALOG 0, 0, 415, 202 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "Materials" +BEGIN + CONTROL "&Shine",IDF_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 115, 34, 20, 8 + CONTROL "0.00",IDF_SHINE2,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER | SS_SUNKEN, 243, 32, 18, 14 + CONTROL "&Gloss",IDF_LABEL2,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 115, 52, 20, 8 + CONTROL "0.00",IDF_GLOSS2,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER | SS_SUNKEN, 243, 50, 18, 14 + CONTROL "Current Material",IDF_GROUP1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | BS_GROUPBOX | BS_TEXT, 111, 2, 155, 65 + CONTROL "",IDF_GRID1,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP | GS_READONLYCOLOUR | GS_DEFROWLABELS | GS_COLUMNLABELS, 9, 5, 97, 86 + CONTROL "&Colour",IDF_COLOUR,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 115, 14, 32, 14 + CONTROL "0",IDF_SHINE,"MSCTLS_TRACKBAR32",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | TBS_AUTOTICKS, 139, 32, 100, 12 + CONTROL "0",IDF_GLOSS,"MSCTLS_TRACKBAR32",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | TBS_AUTOTICKS, 139, 50, 100, 12 + CONTROL "&Apply",IDF_APPLY,"BUTTON",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 113, 76, 34, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 153, 76, 34, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 193, 76, 34, 14 + CONTROL "",IDF_RED,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER | SS_SUNKEN, 162, 16, 20, 10 + CONTROL "",IDF_GREEN,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER | SS_SUNKEN, 200, 16, 20, 10 + CONTROL "",IDF_BLUE,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER | SS_SUNKEN, 240, 16, 20, 10 + CONTROL "R",IDF_LABEL8,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER, 153, 17, 8, 8 + CONTROL "G",IDF_LABEL9,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER, 190, 17, 8, 8 + CONTROL "B",IDF_LABEL11,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_CENTER, 229, 17, 8, 8 + CONTROL "Help",IDHELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 232, 76, 34, 14 +END + +IDD_MATERIALS RCDATA +BEGIN +"[Ranges] \n" +" 1007 0 100 \n" +" 1008 0 100 \n" +"[Trackbars] \n" +" 1007 10 1 10 0 0 \n" +" 1008 10 1 10 0 0 \n" +"[Grids] \n" +" 1032 2 500 107 \n" +,0 +END + +IDD_TEMPLATE001 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "Material",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_READONLY, 0, 0, 40, 14 + CONTROL "Modify",ISS2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_TEXT | BS_PUSHLIKE, 0, 0, 40, 14 +END + +IDD_TEMPLATE001 RCDATA +BEGIN +"[Checks] \n" +" 1034 0 \n" +,0 +END + +IDD_FILENAMES DIALOG 0, 0, 741, 302 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "DEFINE FILES and LIMITS" +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, 8, 5, 528, 208 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 345, 269, 40, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 498, 268, 40, 14 + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS, 550, 42, 172, 135 + CONTROL "HELP",IDF_HELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 186, 268, 40, 14 + CONTROL "",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 136, 228, 470, 14 + CONTROL "TITLE",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 65, 227, 40, 14 +END + +IDD_FILENAMES RCDATA +BEGIN +"[Fonts] \n" +" 1032 9 Arial, 700 0 \n" +" 1 10 Arial, 700 0 \n" +" 2 10 Arial, 700 0 \n" +" 1033 9 Arial, 700 0 \n" +" 1020 10 MS Sans Serif, 700 0 \n" +" 1006 10 MS Sans Serif, 700 0 \n" +" 1007 10 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1032 2 50 104 \n" +" 1033 2 9 122 \n" +,0 +END + +IDD_TEMPLATE003 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "FILE TYPE",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 137, 14 + CONTROL "FILENAME",ISS2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 300, 14 +END + +IDD_TIMESTEP DIALOG 0, 0, 568, 351 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | WS_THICKFRAME | DS_3DLOOK +FONT 9, "Arial" +CAPTION "TIME STEP DATA" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 162, 316, 40, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 280, 316, 40, 14 + CONTROL "Time Step (Hours)",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 71, 15, 70, 12 + CONTROL "Time Step (Minutes)",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 277, 15, 77, 12 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 152, 15, 40, 12 + CONTROL "0.00",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 364, 15, 40, 12 + CONTROL "OR",IDF_STRING7,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 219, 15, 25, 12 + CONTROL "Ending Date for Time Step",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 22, 38, 100, 14 + CONTROL "31/12/2018 12.00",IDF_STRING9,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 132, 38, 77, 14 + CONTROL "",IDF_GRID1,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 88, 56, 328, 60,WS_EX_STATICEDGE + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 104, 124, 318, 47 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 69, 180, 353, 79 + CONTROL "PAGE 2",IDNEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 32, 316, 47, 14 + CONTROL "FLOW BOUNDARY CONDITIONS",IDF_STRING6,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 12, 77, 62, 19 + CONTROL "ELEVATION BOUNDARY CONDITIONS",IDF_STRING8,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 12, 144, 76, 20 + CONTROL "ELEMENT INFLOWS",IDF_STRING10,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 10, 207, 46, 20 + CONTROL "Starting Under-Relaxation",IDF_STRING12,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 217, 38, 97, 14 + CONTROL "",IDF_REAL5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 316, 38, 32, 14 + CONTROL "Iterations to Apply",IDF_STRING13,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 349, 38, 71, 14 + CONTROL "0",IDF_INTEGER2,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 423, 38, 35, 14 + CONTROL "",IDF_GRID4,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 132, 270, 217, 37 + CONTROL "STAGE FLOW BOUNDARY CONDITIONS",IDF_STRING11,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 40, 273, 50, 29 + CONTROL "1 = QC",IDF_STRING14,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 440, 75, 44, 14 + CONTROL "2 = QF",IDF_STRING16,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 440, 88, 44, 14 + CONTROL "3 = QH",IDF_STRING18,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 440, 101, 44, 14 + CONTROL "Q TYPE KEY",IDF_STRING21,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 440, 62, 44, 14 + CONTROL "HELP",IDHELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 408, 317, 40, 14 + CONTROL "INFLOW TYPE KEY",IDF_STRING22,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 453, 183, 65, 14 + CONTROL "1 = NOMINAL",IDF_STRING15,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 437, 196, 50, 14 + CONTROL "2 = RESERVED",IDF_STRING23,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 437, 209, 50, 14 + CONTROL "3 = RESERVED",IDF_STRING24,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 437, 222, 50, 14 + CONTROL "4 = RAIN",IDF_STRING25,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 488, 196, 50, 14 + CONTROL "5 = RESERVED",IDF_STRING26,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 488, 209, 50, 14 + CONTROL "6 = GRP-RAIN",IDF_STRING27,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 488, 222, 50, 14 +END + +IDD_TIMESTEP RCDATA +BEGIN +"[Dialog] \n" +" 0 1 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1 8 Arial, 700 0 \n" +" 2 8 Arial, 700 0 \n" +" 1006 8 Arial, 700 0 \n" +" 1008 8 Arial, 700 0 \n" +" 1012 8 Arial, 700 0 \n" +" 1013 8 Arial, 700 0 \n" +" 1016 8 Arial, 700 0 \n" +" 1007 8 Arial, 700 0 \n" +" 1021 8 Arial, 700 0 \n" +" 1032 8 Arial, 700 0 \n" +" 1033 8 Arial, 700 0 \n" +" 1034 8 Arial, 700 0 \n" +" 1050 8 Arial, 700 0 \n" +" 1014 8 Arial, 700 0 \n" +" 1018 8 Arial, 700 0 \n" +" 1023 8 Arial, 700 0 \n" +" 1026 8 Arial, 700 0 \n" +" 1022 8 Arial, 700 0 \n" +" 1027 8 Arial, 700 0 \n" +" 1019 8 Arial, 700 0 \n" +" 1035 8 Arial, 700 0 \n" +" 1025 8 Arial, 700 0 \n" +" 1030 9 Arial, 700 0 \n" +" 1037 9 Arial, 700 0 \n" +" 1038 9 Arial, 700 0 \n" +" 1056 9 Arial, 700 0 \n" +" 9 9 Arial, 700 0 \n" +" 1057 9 Arial, 700 0 \n" +" 1031 9 Arial, 700 0 \n" +" 1039 9 Arial, 400 1 \n" +" 1040 9 Arial, 400 1 \n" +" 1058 9 Arial, 700 0 \n" +" 1059 9 Arial, 400 1 \n" +" 1060 9 Arial, 700 0 \n" +"[Grids] \n" +" 1032 9 20 102 \n" +" 1033 8 20 108 \n" +" 1034 9 500 110 \n" +" 1035 6 20 118 \n" +"[Formats] \n" +" 1012 (F8.4) \n" +" 1013 (F8.2) \n" +" 1022 (F6.3) \n" +,0 +END + +IDD_TEMPLATE004 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "TYPE",ISS5,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 30, 14 + CONTROL "FROM FILE",ISS4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 50, 14 + CONTROL "CCLINE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "LAYR",ISS6,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "FLOW",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "DIRCN",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "SALIN",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TEMP",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "SED",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE004 RCDATA +BEGIN +"[Checks] \n" +" 1004 0 \n" +"[Ranges] \n" +"[Formats] \n" +" 1034 (F8.3) \n" +" 1003 (F8.3) \n" +" 1044 (F8.3) \n" +" 1046 (F8.3) \n" +" 1024 (F8.3) \n" +,0 +END + +IDD_TEMPLATE005 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "CCLINE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TIDE FILE",ISS3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 45, 14 + CONTROL "HARM FIL",ISS5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 45, 14 + CONTROL "ELEVAT 1",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "ELEVAT 2",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "SALIN",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "TEMP",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "SED",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE005 RCDATA +BEGIN +"[Checks] \n" +" 1003 0 \n" +" 1042 0 \n" +"[Ranges] \n" +"[Formats] \n" +" 1034 (f12.3) \n" +" 1004 (f12.3) \n" +" 1043 (F8.3) \n" +" 1044 (F8.3) \n" +,0 +END + +IDD_TEMPLATE006 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "TYPE",ISS8,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "FROM FILE",ISS3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 50, 14 + CONTROL "NUMBER",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 45, 14 + CONTROL "LAYR",ISS6,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TOT FLOW",ISS4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 0, 0, 48, 14 + CONTROL "INFLOW RATE",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "SALIN",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "TEMP",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "SED",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE006 RCDATA +BEGIN +"[Checks] \n" +" 1003 0 \n" +" 1004 0 \n" +"[Ranges] \n" +"[Formats] \n" +" 1042 (F8.3) \n" +" 1044 (F8.3) \n" +" 1024 (F8.3) \n" +,0 +END + +IDD_CONTROLS2 DIALOG 0, 0, 538, 292 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 10, "MS Sans Serif" +CAPTION "ADDITIONAL CONTROL DATA" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 30, 257, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 120, 257, 40, 14 + CONTROL "",IDF_CCLINE,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN | GS_WRAP, 386, 100, 108, 69 + CONTROL "",IDF_GRID4,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN | GS_WRAP, 28, 196, 92, 29 + CONTROL "Metric Units",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 198, 120, 112, 14 + CONTROL "Ovelay Time for Restart",IDF_CHECK2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 198, 138, 112, 14 + CONTROL "Write Initial Conditions",IDF_CHECK3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 198, 157, 112, 14 + CONTROL "Page 3",IDF_PART3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 200, 257, 40, 14 + CONTROL "Page 1",IDF_PART1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 280, 257, 40, 14 + CONTROL "Output Continuity Line Flows",IDF_CHECK4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 170, 112, 14 + CONTROL "Output Ave Continuity Line Elevations",IDF_CHECK5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 182, 112, 14 + CONTROL "Output Ave Continuity Line Depths",IDF_CHECK6,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 194, 112, 14 + CONTROL "HELP",IDF_HELP10,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 410, 257, 40, 14 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 21, 19, 134, 69 + CONTROL "",IDF_GRID6,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 194, 15, 124, 93 + CONTROL "Zero Velocity on Bed",IDF_CHECK7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 383, 13, 112, 14 + CONTROL "Passive Saliniity Density",IDF_CHECK8,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 43, 112, 14 + CONTROL "Passive Temperature Density",IDF_CHECK9,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 57, 112, 14 + CONTROL "Passive Sediment Density",IDF_CHECK10,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 71, 112, 14 + CONTROL "Zero Velocity at Water Surface",IDF_CHECK11,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 383, 25, 112, 14 + CONTROL "",IDF_GRID7,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS, 22, 98, 136, 72 + CONTROL "Use Out of Core Pardiso (very large problems)",IDF_CHECK12,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 188, 181, 140, 14 + CONTROL "Output Ave Continuity Line Salinity",IDF_CHECK13,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 206, 112, 14 + CONTROL "Output Ave Continuity Line Temps",IDF_CHECK14,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 218, 112, 14 + CONTROL "Output Ave Continuity Line Sedment",IDF_CHECK15,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 384, 231, 112, 14 +END + +IDD_CONTROLS2 RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +" 1050 0 \n" +" 1051 0 \n" +" 1052 0 \n" +" 1053 0 \n" +" 1054 0 \n" +" 1058 0 \n" +" 1059 0 \n" +" 1060 0 \n" +" 1061 0 \n" +" 1062 0 \n" +" 1055 0 \n" +" 1056 0 \n" +" 1057 0 \n" +" 1063 0 \n" +"[Fonts] \n" +" 1 9 Arial, 700 0 \n" +" 2 9 Arial, 700 0 \n" +" 1045 9 Arial, 700 0 \n" +" 1035 9 Arial, 700 0 \n" +" 1049 9 Arial, 700 0 \n" +" 1050 9 Arial, 700 0 \n" +" 1051 9 Arial, 700 0 \n" +" 1047 10 MS Sans Serif, 700 0 \n" +" 1048 10 MS Sans Serif, 700 0 \n" +" 1052 9 Arial, 700 0 \n" +" 1053 9 Arial, 700 0 \n" +" 1054 9 Arial, 700 0 \n" +" 1068 10 MS Sans Serif, 700 0 \n" +" 1058 9 Arial, 700 0 \n" +" 1059 9 Arial, 700 0 \n" +" 1060 9 Arial, 700 0 \n" +" 1061 9 Arial, 700 0 \n" +" 1062 9 Arial, 700 0 \n" +" 1055 9 Arial, 700 0 \n" +" 1056 9 Arial, 700 0 \n" +" 1057 9 Arial, 700 0 \n" +" 1063 9 Arial, 700 0 \n" +"[Grids] \n" +" 1045 1 30 111 \n" +" 1035 1 15 115 \n" +" 1034 1 6 103 \n" +" 100 \n" +"Turbulence Factor \n" +"Turbulence Min \n" +"Nominal Init Vel \n" +"Nominal Init Dir \n" +"Init Bed X-vel for Friction \n" +"Init Bed Y-vel for Friction \n" +" 1039 1 8 114 \n" +" 100 \n" +"Time Projection Switch \n" +"ASCII Output Interval \n" +"1-D Cross-Section Type \n" +"Message Rewind Frequency \n" +"ASCII File RewinD Frequency \n" +"Binary File Save Frequency \n" +"Restart File Frequency \n" +"Dry Node test Frequency \n" +" 1078 1 6 142 \n" +" 105 \n" +"Velocity at Boundary Const \n" +"Velocity at Boundary Power \n" +"Velocity at Trans Const \n" +"Velocity at Trans Power \n" +"Sal-Temp-Sed Trans Const \n" +"Sal-Temp-Sed Trans Power \n" +,0 +END + +IDD_TEMPLATE007 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "OUTPUT CONTINUITY LINES",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 100, 14 +END + +IDD_TEMPLATE007 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE010 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "SPECIAL PRT NODES",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 90, 14 +END + +IDD_TEMPLATE010 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TIMESTEP2 DIALOG 0, 0, 474, 215 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "ADDITIONAL TIME STEP DATA" +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, 44, 32, 386, 55 + CONTROL "ELEVATION BOUNDARY FLOW WEIGHTING",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 160, 12, 154, 14 + CONTROL "Wind Switch",IDF_STRING11,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 48, 104, 52, 14 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 103, 104, 27, 14 + CONTROL "Wind unit MPH",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 138, 104, 62, 14 + CONTROL "Wind Velocity",IDF_STRING4,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 209, 104, 55, 14 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 268, 104, 34, 14 + CONTROL "Direction from X-axis",IDF_STRING5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 308, 104, 80, 14 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 394, 104, 35, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 217, 148, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 118, 148, 40, 14 + CONTROL "HELP",IDHELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 322, 148, 40, 14 +END + +IDD_TIMESTEP2 RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1032 9 Arial, 700 0 \n" +" 1006 8 Arial, 700 0 \n" +" 1025 8 Arial, 700 0 \n" +" 1073 9 Arial, 400 0 \n" +" 1049 8 Arial, 700 0 \n" +" 1009 8 Arial, 700 0 \n" +" 1015 9 Arial, 700 0 \n" +" 1010 8 Arial, 700 0 \n" +" 1 9 Arial, 700 0 \n" +" 2 9 Arial, 700 0 \n" +" 9 8 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1032 20 12 116 \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE011 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 9, "Arial" +BEGIN + CONTROL "NODE1",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE2",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE3",ISS3,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE4",ISS4,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE5",ISS5,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE6",ISS6,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE7",ISS7,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE8",ISS8,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE9",ISS9,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE10",ISS10,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE11",ISS11,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE12",ISS12,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE13",ISS13,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE14",ISS14,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE15",ISS15,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE16",ISS16,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE17",ISS17,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE18",ISS18,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE19",ISS18,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "NODE20",ISS20,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE011 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE012 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "Arial" +BEGIN + CONTROL "CCLINE",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "A1",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "A2",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "E0",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "C",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 + CONTROL "THETA",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE012 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_GETTIMSTP DIALOG 0, 0, 260, 159 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 10, "Arial" +CAPTION "SELECT STEADY/TIME STEP BLOCK" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 40, 92, 40, 14 + CONTROL "1",IDF_INTEGER1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 155, 61, 40, 14 + CONTROL "Select Steady State Block",IDF_RADIO1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 62, 16, 136, 14 + CONTROL "Select Time Step Block",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 62, 37, 136, 14 + CONTROL "Block Number",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 61, 60, 76, 14 + CONTROL "CANCEL",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 175, 93, 45, 14 + CONTROL "HELP",IDHELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 110, 122, 40, 14 +END + +IDD_GETTIMSTP RCDATA +BEGIN +"[Checks] \n" +" 1059 0 \n" +" 1060 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1 10 Arial, 700 0 \n" +" 1073 9 Arial, 700 0 \n" +" 1059 10 MS Sans Serif, 700 0 \n" +" 1060 10 MS Sans Serif, 700 0 \n" +" 1008 10 MS Sans Serif, 700 0 \n" +" 2 10 Arial, 700 0 \n" +" 9 10 Arial, 700 0 \n" +,0 +END + +IDD_MISC DIALOG 0, 0, 531, 340 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "MISCELLANEOUS INPUT" +BEGIN + CONTROL "X-Scale",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 24, 100, 14 + CONTROL "0.000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 24, 40, 14 + CONTROL "0.000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 39, 40, 14 + CONTROL "Y-Scale",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 39, 100, 14 + CONTROL "0.000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 55, 40, 14 + CONTROL "Z-Scale",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 55, 100, 14 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 71, 40, 14 + CONTROL "DSET",IDF_STRING4,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 71, 100, 14 + CONTROL "DSETD",IDF_STRING5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 87, 100, 14 + CONTROL "0.000",IDF_REAL5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 87, 40, 14 + CONTROL "UNOM",IDF_STRING6,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 102, 100, 14 + CONTROL "0.000",IDF_REAL6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 102, 40, 14 + CONTROL "HMIN",IDF_STRING7,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 118, 100, 14 + CONTROL "0.000",IDF_REAL7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 118, 40, 14 + CONTROL "LI Dry Node Frequency",IDF_STRING9,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 184, 100, 14 + CONTROL "0",IDF_INTEGER6,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 184, 40, 14 + CONTROL "IHOE Higher Order Integration",IDF_STRING10,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 202, 100, 14 + CONTROL "0",IDF_INTEGER7,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 202, 40, 14 + CONTROL "I9NOD 9 Node Elements",IDF_STRING11,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 20, 218, 100, 14 + CONTROL "0",IDF_INTEGER8,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 218, 40, 14 + CONTROL "Only Save Restart at End of Step",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 16, 266, 146, 14 + CONTROL "",IDF_GRID1,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 220, 20, 260, 132 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 245, 305, 40, 14 + CONTROL "CANCELl",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 342, 305, 40, 14 + CONTROL "PAGE 1",IDF_PARTT1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 35, 304, 40, 14 + CONTROL "PAGE 2",IDF_PARTT2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 128, 304, 40, 14 + CONTROL "0.000",IDF_REAL8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 120, 133, 40, 14 + CONTROL "Elt Inflow Cutoff Level Falling)",IDF_STRING8,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 8, 133, 112, 14 + CONTROL "0.000",IDF_REAL9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 122, 151, 38, 14 + CONTROL "Elt Inflow Restore Level (Rising)",IDF_STRING16,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 4, 151, 120, 14 + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 220, 188, 260, 100 + CONTROL "WEIR DATA",IDF_STRING18,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 324, 4, 54, 14 + CONTROL "MARSH DATA BY ELEMENT TYPE",IDF_STRING19,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 268, 164, 172, 14 + CONTROL "HELP",IDF_HELP3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 437, 306, 40, 14 +END + +IDD_MISC RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Fonts] \n" +" 1006 8 Arial, 700 0 \n" +" 1012 9 Arial, 700 0 \n" +" 1013 9 Arial, 700 0 \n" +" 1007 8 Arial, 700 0 \n" +" 1015 9 Arial, 700 0 \n" +" 1008 8 Arial, 700 0 \n" +" 1009 8 Arial, 700 0 \n" +" 1010 8 Arial, 700 0 \n" +" 1022 9 Arial, 700 0 \n" +" 1014 8 Arial, 700 0 \n" +" 1028 9 Arial, 700 0 \n" +" 1016 8 Arial, 700 0 \n" +" 1029 9 Arial, 700 0 \n" +" 1021 8 Arial, 700 0 \n" +" 1026 9 Arial, 700 0 \n" +" 1023 8 Arial, 700 0 \n" +" 1027 9 Arial, 700 0 \n" +" 1025 8 Arial, 700 0 \n" +" 1030 9 Arial, 700 0 \n" +" 1049 9 Arial, 700 0 \n" +" 1032 8 Arial, 700 0 \n" +" 1 10 MS Sans Serif, 700 0 \n" +" 2 10 MS Sans Serif, 700 0 \n" +" 1052 10 MS Sans Serif, 700 0 \n" +" 1053 10 MS Sans Serif, 700 0 \n" +" 1031 9 Arial, 700 0 \n" +" 1018 8 Arial, 700 0 \n" +" 1057 9 Arial, 700 0 \n" +" 1037 8 Arial, 700 0 \n" +" 1033 8 Arial, 700 0 \n" +" 1038 10 MS Sans Serif, 700 0 \n" +" 1035 10 MS Sans Serif, 700 0 \n" +" 1069 8 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1032 4 100 120 \n" +" 1033 5 20 113 \n" +"[Formats] \n" +" 1012 (f8.3) \n" +" 1013 (f8.3) \n" +" 1015 (f8.3) \n" +" 1022 (f8.3) \n" +" 1028 (f8.3) \n" +" 1029 (f8.3) \n" +" 1031 (f8.3) \n" +" 1057 (f8.3) \n" +,0 +END + +IDD_TEMPLATE013 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "Node",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Crest Elevation",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 65, 14 + CONTROL "Crest Width",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 60, 14 + CONTROL "Transition Elev",ISS4,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 80, 14 +END + +IDD_TEMPLATE013 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE014 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "LMIT COMPONENT",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 85, 14 + CONTROL "LIMIT",ISS2,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 +END + +IDD_TEMPLATE014 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE015 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "Type",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Depth Shift",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Range",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Porosity",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Depth Override",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 80, 14 +END + +IDD_TEMPLATE015 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +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 "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, 226, 130, 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 "HORIZONTAL TURBULENCE MODEL",IDF_STRING17,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 412, 75, 66, 29 + 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 "PARDISO",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 42, 70, 14 + CONTROL "NOT ACTIVE",IDF_RADIO4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 309, 119, 70, 14 + CONTROL "USE DEFAULT",IDF_RADIO5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 309, 133, 70, 14 + CONTROL "INPUT SETTINGS",IDF_RADIO6,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 309, 147, 70, 14 + CONTROL "CONSTANT",IDF_RADIO7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 68, 70, 14 + CONTROL "SCALED",IDF_RADIO8,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 82, 70, 14 + CONTROL "SMAGORINSKY",IDF_RADIO9,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 495, 96, 70, 14 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 20, 32, 194, 116 + CONTROL "",IDF_GRID5,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 16, 176, 188, 50 + CONTROL "",IDF_GRID6,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS | GS_WANTRETURN, 220, 169, 163, 48 + 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 + CONTROL "LAYER STRUCTURE",IDF_STRING20,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 410, 142, 66, 22 + CONTROL " 2-D",IDF_RADIO13,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 133, 70, 14 + CONTROL "3-D FIXED LAYERS",IDF_RADIO14,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 492, 147, 77, 14 + CONTROL "3-D TYPE LD1",IDF_RADIO15,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 180, 70, 14 + CONTROL "3-D TYPE LD2",IDF_RADIO16,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 195, 70, 14 + CONTROL "3-D TYPE LD3",IDF_RADIO17,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 499, 211, 70, 14 + CONTROL "",IDF_GRID7,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS, 488, 161, 86, 16 + CONTROL "",IDF_GRID8,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_ROWLABELS, 458, 230, 116, 16 +END + +IDD_CONTROLS RCDATA +BEGIN +"[Checks] \n" +" 1059 0 \n" +" 1060 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" +" 1073 0 \n" +" 1074 0 \n" +" 1075 0 \n" +" 1076 0 \n" +" 1077 0 \n" +"[Fonts] \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" +" 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" +" 1055 10 Arial, 400 0 \n" +" 1073 10 Arial, 700 0 \n" +" 1074 10 Arial, 700 0 \n" +" 1075 10 Arial, 700 0 \n" +" 1076 10 Arial, 700 0 \n" +" 1077 10 Arial, 700 0 \n" +"[Grids] \n" +" 1034 1 10 124 \n" +" 165 \n" +"Starting Water Level (if restart not used) \n" +"Latitude \n" +"Velocity Convergence \n" +"Depth Convergence \n" +"Salinity Convergence \n" +"Temperature Convergence \n" +"Sediment Convergence \n" +"Initial Salinity \n" +"Initial Temperature \n" +"Initial Sediment \n" +" 1036 1 4 125 \n" +" 170 \n" +"Verrtical Turrbulence Model \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" +" 1078 1 1 123 \n" +" 80 \n" +"Number of Layers \n" +" 1079 1 1 150 \n" +" 60 \n" +"Mixing Depth \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 + +IDD_TEMPLATE019 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "Label",ISS1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 45, 14 +END + +IDD_TEMPLATE019 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +" 1033 (f8.4) \n" +,0 +END + +IDD_TEMPLATE020 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "Label",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE020 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_EXTR DIALOG 0, 0, 660, 338 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "EXTRA CONTROLS" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 310, 272, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 484, 272, 40, 14 + CONTROL "HELP",IDF_HELP,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 160, 272, 40, 14 + CONTROL "",IDF_GRID1,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS, 483, 54, 147, 71 + CONTROL "ELEMENT TO NODE CONNECTIONS",IDF_STRING1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 503, 26, 101, 26 + CONTROL "",IDF_GRID2,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_WANTRETURN, 22, 116, 400, 116 + CONTROL "",IDF_GRID3,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS, 22, 64, 390, 52 + CONTROL "SPECIAL STRUCTURES",IDF_STRING2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 164, 45, 116, 14 + CONTROL "GATE CONTROL ELT-TYP NO FLOW ELEV AT NODE 1 BELOW ELEV AT NODE 2",IDF_STRING3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_MULTILINE, 483, 142, 137, 34 + CONTROL "",IDF_GRID4,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_RESIZECOLUMNS, 479, 177, 155, 71 +END + +IDD_EXTR RCDATA +BEGIN +"[Fonts] \n" +" 1 10 MS Sans Serif, 700 0 \n" +" 2 10 MS Sans Serif, 700 0 \n" +" 1020 10 MS Sans Serif, 700 0 \n" +" 1032 10 MS Sans Serif, 700 0 \n" +" 1006 10 MS Sans Serif, 700 0 \n" +" 1033 8 MS Sans Serif, 700 0 \n" +" 1034 8 MS Sans Serif, 700 0 \n" +" 1007 10 MS Sans Serif, 700 0 \n" +" 1008 10 MS Sans Serif, 700 0 \n" +" 1035 10 MS Sans Serif, 700 0 \n" +"[Grids] \n" +" 1032 2 10 127 \n" +" 1033 9 30 128 \n" +" 1034 8 4 130 \n" +" 1035 3 10 131 \n" +,0 +END + +IDD_TEMPLATE021 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "ELEMENT",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "NODE",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE021 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_TEMPLATE022 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "TYPE",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 10, 14 + CONTROL "Label",ISS9,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 30, 14 + CONTROL "Label",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "Label",ISS8,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 +END + +IDD_TEMPLATE022 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +" 1043 (F9.3) \n" +" 1034 (F9.3) \n" +" 1003 (F9.3) \n" +" 1004 (F9.3) \n" +" 1044 (F8.3) \n" +,0 +END + +IDD_TEMPLATE023 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "Label",ISS1,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 40, 14 + CONTROL "Label",ISS2,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS3,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS4,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS5,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS6,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS7,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "Label",ISS8,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 +END + +IDD_TEMPLATE024 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 8, "MS Sans Serif" +BEGIN + CONTROL "TYPE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 30, 14 + CONTROL "NODE 1",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 35, 14 + CONTROL "NODE 2",ISS3,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 35, 14 +END + +IDD_TEMPLATE024 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_DIALOG010 DIALOG 0, 0, 160, 80 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "Dialog 10" +BEGIN +END + +IDD_SELCT DIALOG 0, 0, 152, 100 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 12, "Arial Black" +CAPTION "RMA2PRP INFORMATION" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 56, 72, 40, 14 + CONTROL "RMA-2 INPUT FILE EDITOR",ID_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | WS_BORDER | SS_CENTER | SS_SUNKEN, 41, 44, 69, 20 + CONTROL " RMA2PRP VERSION 1.0 MAY 2019",IDF_LABEL2,"STATIC",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | SS_CENTER, 36, 12, 80, 28 +END + +IDD_SELCT RCDATA +BEGIN +"[Colours] \n" +" 1001 256 256 256 255 255 128 \n" +" 1002 256 256 256 255 255 128 \n" +,0 +END + +IDD_ABOUT DIALOG 0, 0, 152, 110 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "About" +BEGIN + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 50, 92, 40, 14 + CONTROL "RMA10PRP Version 1.0 Jul 2019 Copyright Resource Modelling Associates Sydney, Australia",ID_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | SS_CENTER | SS_SUNKEN, 24, 20, 92, 60 +END + +IDD_DIALOG001 DIALOG 0, 0, 240, 204 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "CONTROLS" +BEGIN + CONTROL "Number of Particle types",IDF_LABEL4,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 20, 82, 140, 8 + CONTROL "Number of Quality Constituents",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 20, 100, 140, 10 + CONTROL "Frequency for Saving Binary Results",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 121, 140, 10 + CONTROL "Max Number of Particles written to ASCII Output",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 142, 160, 10 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 180, 79, 40, 14 + CONTROL "0",IDF_INTEGER2,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 181, 98, 40, 14 + CONTROL "0",IDF_INTEGER3,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 181, 119, 40, 14 + CONTROL "0",IDF_INTEGER4,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 181, 140, 40, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 167, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 167, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 167, 40, 14 + CONTROL "Non-Conservative Tracking Switch",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 20, 35, 200, 14 + CONTROL "Save Summary of Input and Full Result",IDF_CHECK2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 20, 57, 200, 14 + CONTROL "Maximum Number of Particles in Simulation",IDF_maxp,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 22, 15, 140, 8 + CONTROL "0",IDF_INTEGER5,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 180, 12, 40, 14 +END + +IDD_DIALOG001 RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +" 1050 0 \n" +"[Ranges] \n" +,0 +END + +IDD_TIMDAT DIALOG 0, 0, 240, 224 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "TIME DATA" +BEGIN + CONTROL "Number of Time Steps",IDF_LABEL4,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 12, 140, 8 + CONTROL "Starting Day for Simulation",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 29, 140, 10 + CONTROL "Time Step in Hours",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 67, 140, 10 + CONTROL "Number of Sub-timesteps for Tracking",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 87, 140, 10 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 11, 50, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 188, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 188, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 188, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 48, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 66, 50, 14 + CONTROL "0",IDF_INTEGER2,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 28, 50, 14 + CONTROL "Starting Hour for Simulation",IDF_LABEL10,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 48, 140, 10 + CONTROL "0",IDF_INTEGER5,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 85, 50, 14 + CONTROL "Plot results for all sub time steps",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 20, 116, 200, 10 + CONTROL "Time interval for animations",IDF_LABEL8a,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 137, 140, 10 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 171, 135, 50, 14 + CONTROL "Number timesteps for introduction of stream",IDF_LABEL8b,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 161, 140, 10 + CONTROL "0",IDF_INTEGER6,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 159, 50, 14 +END + +IDD_TIMDAT RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_VELDAT DIALOG 0, 0, 240, 125 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "VELOCITY DATA" +BEGIN + CONTROL "Number of Velocity Records",IDF_LABEL4,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 12, 140, 8 + CONTROL "Time Step in Hours for Velocity Data",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 29, 140, 10 + CONTROL "Time Offset in Hours",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 48, 140, 10 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 11, 50, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 102, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 102, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 102, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 28, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 46, 50, 14 + CONTROL "Steady state velocity switch",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 20, 64, 200, 14 +END + +IDD_VELDAT RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_QALDAT DIALOG 0, 0, 240, 105 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "QUALITY DATA" +BEGIN + CONTROL "Number of Quality Records",IDF_LABEL4,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 12, 140, 8 + CONTROL "Time Step in Hours for Quality Data",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 29, 140, 10 + CONTROL "Time Step Offset in Hours",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 48, 140, 10 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 11, 50, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 74, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 74, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 74, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 28, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 46, 50, 14 +END + +IDD_QALDAT RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_DISPER DIALOG 0, 0, 240, 178 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "DISPERSION DATA" +BEGIN + CONTROL "Longitudinal Dispersion",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 38, 140, 10 + CONTROL "Transverse Dispersion",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 56, 140, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 140, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 140, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 140, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 36, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 54, 50, 14 + CONTROL "Vertical Dispersion",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 73, 140, 10 + CONTROL "Shear Dispersion Factor for 1D Elements",IDF_LABEL8,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 93, 140, 10 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 73, 50, 14 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 91, 50, 14 + CONTROL "Settling Velocity",IDF_LABEL9,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 21, 113, 140, 10 + CONTROL "0.0000",IDF_REAL5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 111, 50, 14 + CONTROL "Switch to use Dispersion Data as Fischer Eqn Scale Factors",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 19, 16, 201, 9 +END + +IDD_DISPER RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_SCALE DIALOG 0, 0, 240, 104 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "TWO-DIMENSIONAL SCALES" +BEGIN + CONTROL "X Coordinate Scale Factor",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 14, 140, 10 + CONTROL "Y Coordinate Scale Factor",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 33, 140, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 75, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 75, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 75, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 13, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 31, 50, 14 + CONTROL "Z Coordinate Scale Factor",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 20, 50, 140, 10 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 50, 50, 14 +END + +IDD_SCALE RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_CONVEL DIALOG 0, 0, 240, 126 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "CONSTANT VELOCITY DATA" +BEGIN + CONTROL "X - Velocity",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 14, 140, 10 + CONTROL "Y - Velocity",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 33, 140, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 94, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 94, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 94, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 13, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 31, 50, 14 + CONTROL "Z - Velocity",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 20, 50, 140, 10 + CONTROL "Depth",IDF_LABEL8,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 70, 140, 10 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 48, 50, 14 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 68, 50, 14 +END + +IDD_CONVEL RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_OPTIONS DIALOG 0, 0, 174, 137 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "Display Options" +BEGIN + CONTROL "Show Outline",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 8, 106, 10 + CONTROL "Show Network",IDF_CHECK2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 24, 106, 10 + CONTROL "Show Node Numbers",IDF_CHECK3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 40, 106, 10 + CONTROL "Show Element Numbers",IDF_CHECK4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 57, 106, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 109, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 112, 109, 40, 14 + CONTROL "Show Background",IDF_CHECK5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 34, 74, 106, 10 +END + +IDD_OPTIONS RCDATA +BEGIN +"[Checks] \n" +" 1049 1 \n" +" 1050 0 \n" +" 1051 0 \n" +" 1052 0 \n" +" 1053 0 \n" +,0 +END + +IDD_PNLPART DIALOG 0, 0, 241, 148 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "PARTICLE DATA" +BEGIN + CONTROL "Number of Particles",IDF_LABEL4,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 15, 140, 8 + CONTROL "Particle Type Number",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 20, 33, 140, 10 + CONTROL "Particle Group Number",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | WS_DISABLED | SS_LEFT, 21, 54, 140, 10 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 180, 12, 40, 14 + CONTROL "0",IDF_INTEGER2,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 181, 31, 40, 14 + CONTROL "0",IDF_INTEGER3,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 181, 52, 40, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 40, 116, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 160, 116, 40, 14 + CONTROL "Use these options for all particle locations",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 22, 70, 198, 19 +END + +IDD_PNLPART RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +,0 +END + +IDD_PLOTOPT DIALOG 0, 0, 212, 278 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "PLOT OPTIONS" +BEGIN + CONTROL "Show as particles only",IDF_RADIO1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 20, 106, 170, 14 + CONTROL "Plot as lines one time step at a time",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 20, 120, 170, 14 + CONTROL "Plot as lines, one line at a time",IDF_RADIO3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 20, 134, 170, 14 + CONTROL "Select Colour",IDF_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 28, 185, 70, 16 + CONTROL "Red",IDF_RADIO4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 161, 60, 14 + CONTROL "Blue",IDF_RADIO5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 175, 60, 14 + CONTROL "Green",IDF_RADIO6,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 189, 60, 14 + CONTROL "Yellow",IDF_RADIO7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 203, 60, 14 + CONTROL "Mixed",IDF_RADIO8,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 217, 60, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 31, 248, 40, 14 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 60, 50, 14 + CONTROL "Frequency for Display of Plot",IDF_LABEL11,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 62, 100, 10 + CONTROL "Number of Time Steps to Display",IDF_LABEL10,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 42, 110, 12 + CONTROL "0",IDF_INTEGER6,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 40, 50, 14 + CONTROL "Starting Time Step to Display",IDF_LABEL12,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 22, 110, 12 + CONTROL "0",IDF_INTEGER7,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 20, 50, 14 + CONTROL "Animation Time interval (sec)",IDF_LABEL13,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 83, 100, 10 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 80, 50, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 137, 248, 40, 14 +END + +IDD_PLOTOPT 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" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_SHEARIN DIALOG 0, 0, 240, 200 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "SHEAR STRESS DATA" +BEGIN + CONTROL "Shear stress for initiation of transport",IDF_LABEL5,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 38, 140, 10 + CONTROL "Shear stress for full transport",IDF_LABEL6,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 56, 140, 10 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 20, 160, 40, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 100, 160, 40, 14 + CONTROL "Next",IDF_NEXT,"BUTTON",WS_CHILD | WS_VISIBLE | WS_DISABLED | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 180, 160, 40, 14 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 36, 50, 14 + CONTROL "0.0000",IDF_REAL2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 54, 50, 14 + CONTROL "Manning ‘n’ used to compute shear stress",IDF_LABEL7,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 20, 73, 140, 10 + CONTROL "Scale factor applied to velocities",IDF_LABEL8,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 93, 140, 10 + CONTROL "0.0000",IDF_REAL3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 73, 50, 14 + CONTROL "0.0000",IDF_REAL4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 91, 50, 14 + CONTROL "Water density",IDF_LABEL9,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 113, 140, 10 + CONTROL "0.0000",IDF_REAL5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 111, 50, 14 + CONTROL "Switch to apply shear stress condition",IDF_CHECK1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 19, 16, 201, 9 + CONTROL "Acceleration due to gravity",IDF_LABEL10,"STATIC",WS_CHILD | WS_VISIBLE | SS_LEFT, 21, 133, 140, 10 + CONTROL "0.0000",IDF_REAL6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 170, 131, 50, 14 +END + +IDD_SHEARIN RCDATA +BEGIN +"[Checks] \n" +" 1049 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_PARTLOSS DIALOG 0, 0, 212, 142 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "PARTICLE LOSS OPTIONS" +BEGIN + CONTROL "No Particle Loss",IDF_RADIO1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 21, 16, 170, 14 + CONTROL "Linear Particle Loss Rate",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 21, 30, 170, 14 + CONTROL "Exponential Particle Loss Rate",IDF_RADIO7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 21, 44, 170, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 31, 103, 40, 14 + CONTROL "Time to 90% particle loss (hrs)",IDF_LABEL13,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 69, 100, 10 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 67, 50, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 137, 103, 40, 14 +END + +IDD_PARTLOSS RCDATA +BEGIN +"[Checks] \n" +" 1059 0 \n" +" 1060 0 \n" +" 1065 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_PLOTSHR DIALOG 0, 0, 212, 310 +STYLE WS_POPUP | WS_BORDER | WS_DLGFRAME | WS_SYSMENU | DS_3DLOOK | DS_MODALFRAME +FONT 8, "MS Sans Serif" +CAPTION "PLOT OPTIONS" +BEGIN + CONTROL "Show as particles only",IDF_RADIO1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 20, 106, 170, 14 + CONTROL "Plot as lines one time step at a time",IDF_RADIO2,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 20, 120, 170, 14 + CONTROL "Plot as lines, one line at a time",IDF_RADIO3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 20, 134, 170, 14 + CONTROL "Select Colour",IDF_LABEL1,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 28, 226, 70, 16 + CONTROL "Red",IDF_RADIO4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 202, 60, 14 + CONTROL "Blue",IDF_RADIO5,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 216, 60, 14 + CONTROL "Green",IDF_RADIO6,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 230, 60, 14 + CONTROL "Yellow",IDF_RADIO7,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 244, 60, 14 + CONTROL "Mixed",IDF_RADIO8,"BUTTON",WS_CHILD | WS_VISIBLE | WS_TABSTOP | BS_AUTORADIOBUTTON | BS_LEFTTEXT | BS_TEXT, 128, 258, 60, 14 + CONTROL "OK",IDOK,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_DEFPUSHBUTTON | BS_TEXT, 31, 280, 40, 14 + CONTROL "0",IDF_INTEGER1,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 60, 50, 14 + CONTROL "Frequency for Display of Plot",IDF_LABEL11,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 62, 100, 10 + CONTROL "Number of Time Steps to Display",IDF_LABEL10,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 42, 110, 12 + CONTROL "0",IDF_INTEGER6,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 40, 50, 14 + CONTROL "Starting Time Step to Display",IDF_LABEL12,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 22, 110, 12 + CONTROL "0",IDF_INTEGER7,"INTEGERSPIN",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 20, 50, 14 + CONTROL "Animation Time interval (sec)",IDF_LABEL13,"STATIC",WS_CHILD | WS_VISIBLE | WS_GROUP | SS_LEFT, 20, 83, 100, 10 + CONTROL "0.0000",IDF_REAL1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 140, 80, 50, 14 + CONTROL "Cancel",IDCANCEL,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 137, 280, 40, 14 + CONTROL "Plot Active Particles",IDF_CHECK3,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 20, 160, 170, 14 + CONTROL "Plot Settled Particles",IDF_CHECK4,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_AUTOCHECKBOX | BS_LEFTTEXT | BS_TEXT, 19, 176, 170, 14 +END + +IDD_PLOTSHR 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" +" 1051 0 \n" +" 1052 0 \n" +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE025 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "Arial" +BEGIN + CONTROL "Label",ISS4,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 40, 14 +END + +IDD_TEMPLATE025 RCDATA +BEGIN +"[Ranges] \n" +,0 +END + +IDD_CONTROLS2A 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 2" +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, 37, 36, 510, 90 + 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 "LAYER DATA",IDF_STRING17,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 256, 144, 66, 12 + CONTROL "HELP",IDF_HELP1,"BUTTON",WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP | BS_PUSHBUTTON | BS_TEXT, 435, 270, 40, 14 + CONTROL "",IDF_GRID6,"ISSGRID",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP | GS_DEFROWLABELS | GS_COLUMNLABELS | GS_WANTRETURN, 58, 164, 468, 96 + CONTROL "EDDY / DIFF/ TURBULENCE / FRICTION PROPERTIES",IDF_STRING20,"EDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_GROUP | WS_TABSTOP | ES_LEFT, 195, 16, 194, 14 +END + +IDD_CONTROLS2A RCDATA +BEGIN +"[Fonts] \n" +" 1032 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, 700 0 \n" +" 1058 10 Arial, 700 0 \n" +" 1055 10 Arial, 700 0 \n" +"[Grids] \n" +" 1032 9 1000 149 \n" +" 1039 24 1000 152 \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, 40, 14 + CONTROL "HOR EDDY COEF",ISS2,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "VRT EDDY COEF",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "HOR DIFF COEF",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "VRT DIFF COEF",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 80, 14 + CONTROL "MANNING N",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "MARSH FAC",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "BANK FRIC",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 + CONTROL "SURFACE FRIC",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 +END + +IDD_DIALOG002 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +" 1043 (E11.3) \n" +" 1042 (F10.3) \n" +" 1044 (E11.3) \n" +" 1003 (f8.3) \n" +,0 +END + +IDD_DIALOG006 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "Arial" +BEGIN + CONTROL "NODE",ISS1,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 35, 14 + CONTROL "NUM OF LAYERS",ISS2,"INTEGEREDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 70, 14 + CONTROL "LAY-1",ISS3,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-2",ISS4,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT, 0, 0, 50, 14 + CONTROL "LAY-3",ISS5,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-4",ISS6,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_CENTER | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-5",ISS7,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-6",ISS8,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-7",ISS9,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-8",ISS10,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-9",ISS11,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-10",ISS12,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-11",ISS13,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-12",ISS14,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-13",ISS15,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-14",ISS16,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-15",ISS17,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-16",ISS18,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-17",ISS19,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-18",ISS20,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-19",ISS21,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-20",ISS22,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-21",ISS23,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 + CONTROL "LAY-22",ISS24,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 50, 14 +END + +IDD_DIALOG006 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE026 DIALOG 0, 0, 1000, 16 +STYLE DS_3DLOOK +FONT 10, "MS Sans Serif" +BEGIN + CONTROL "",ISS1,"REALEDIT",WS_CHILD | WS_VISIBLE | WS_BORDER | WS_TABSTOP | ES_LEFT | ES_RIGHT | ES_MULTILINE, 0, 0, 60, 14 +END + +IDD_TEMPLATE026 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +IDD_TEMPLATE027 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, 60, 14 +END + +IDD_TEMPLATE027 RCDATA +BEGIN +"[Ranges] \n" +"[Formats] \n" +,0 +END + +/////////////////////////////////////////////////// +// +// Menus +// +IDM_MENU1 MENU +BEGIN + POPUP "FILE" + BEGIN + MENUITEM "Open Existing New Format R10 file", ID_OPENRM2 + MENUITEM "Save as New Format R10 file", ID_ITEM21 + MENUITEM "Convert Old Format R10 File", ID_CONVERT + MENUITEM "Exit", ID_ex + END + MENUITEM "OPEN FILE BLOCK", ID_ITEM16 + POPUP "OPEN CONTROL BLOCK" + BEGIN + MENUITEM "CONTROL PAGE-1", ID_CP1 + MENUITEM "CONTROL PAGE-2", ID_CP2 + END + MENUITEM "EXTRA OPTIONS", ID_EXTRA + MENUITEM "OPEN TIME STEP BLOCK", ID_ITEM6 + MENUITEM "EXECUTE RMA10", ID_RUNRMA2 + POPUP "HELP" + BEGIN + MENUITEM "ABOUT", ID_ABOUT + MENUITEM "MENU ITEMS", ID_MENUITEM + MENUITEM "RMA10 DATALINES", ID_HELP + MENUITEM "RMA10 USERS MANUAL", ID_HELPUSER + END + MENUITEM "EXIT", ID_EXIT +END + +IDM_MENU1 RCDATA +BEGIN +ID_FILE,1,0, +ID_ITEM19,3,0, +ID_HELP1,7,0, +0 +END + +IDM_MENU1 ISSMENUSTRING +BEGIN +ID_OPENRM2,"%Alt+F\0", +ID_ITEM16,"Ctl+F\0", +ID_MENUITEM,"Ctl+F\0", +0 +END + +IDR_MENU2 MENU +BEGIN + POPUP "View" + BEGIN + MENUITEM "Zoom In", ID_ZOOMIN1 + MENUITEM "Zoom Out x 2", ID_ZOOMOUT2 + MENUITEM "Zoom Out x 4", ID_ZOOMOUT4 + END + MENUITEM "Continue", ID_CONTINUE1 + MENUITEM "Exit", ID_EXIT1 +END + +IDR_MENU2 RCDATA +BEGIN +ID_VIEW1,1,0, +0 +END + +/////////////////////////////////////////////////// +// +// Bitmaps +// +IDT_TOOLBAR1 BITMAP DISCARDABLE "tbar1.bmp" +ID_TOOLBAR1 BITMAP DISCARDABLE "toolbar1.bmp" + +/////////////////////////////////////////////////// +// +// Icons +// +icon1 ICON DISCARDABLE "program.ico" + +/////////////////////////////////////////////////// +// +// Strings +// +STRINGTABLE DISCARDABLE +BEGIN + ID_BUTTON8 "Open RM2 File" + ID_BUTTON5 "Save RM2 File" + ID_BUTTON4 "Convert Old RM2 File" + ID_FILE_SAVE "Save" + ID_HELP_ABOUT "Help" + ID_ZIN "Zoom In" + ID_OUT2 "Zoom out Factor = 2." + ID_DRAG "Drag image across screen" +END + +/////////////////////////////////////////////////// +// +// Toolbar Data +// +IDT_TOOLBAR1 RCDATA +BEGIN + 16, 16, + ID_BUTTON8, + ID_BUTTON5, + ID_BUTTON4, +0,0 +END + +ID_TOOLBAR1 RCDATA +BEGIN + 16, 16, + ID_ZIN, + ID_OUT2, + ID_DRAG, + ID_FILE_SAVE, + ID_HELP_ABOUT, +0,0 +END + + +/////////////////////////////////////////////////// +// +// Winteracter Visual Tool Settings +// +//*WI* BASEMENU 30001 +//*WI* BASEITEM 40001 +//*WI* BASEDIALOG 101 +//*WI* BASEFIELD 1001 +//*WI* BASETOOLBAR 30101 +//*WI* BASEBUTTON 40101 +//*WI* BASEIMAGE 2001 +//*WI* F90MODULE 1 +//*WI* FORTSAVE 1 +//*WI* FILENAME resid.f90 +//*WI* FMODNAME RESID +//*WI* LASTTYPE 2 +//*WI* LASTRES 12 diff --git a/RMA10PRP/SRC/tb01_256.bmp b/RMA10PRP/SRC/tb01_256.bmp new file mode 100644 index 0000000..f0e87bb Binary files /dev/null and b/RMA10PRP/SRC/tb01_256.bmp differ diff --git a/RMA10PRP/SRC/tbar1.bmp b/RMA10PRP/SRC/tbar1.bmp new file mode 100644 index 0000000..a8eb36e Binary files /dev/null and b/RMA10PRP/SRC/tbar1.bmp differ diff --git a/RMA10PRP/SRC/toolbar1.bmp b/RMA10PRP/SRC/toolbar1.bmp new file mode 100644 index 0000000..54ddad8 Binary files /dev/null and b/RMA10PRP/SRC/toolbar1.bmp differ diff --git a/RMA10PRP/SRC/winparam.h b/RMA10PRP/SRC/winparam.h new file mode 100644 index 0000000..fbc156c --- /dev/null +++ b/RMA10PRP/SRC/winparam.h @@ -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 diff --git a/RMA10PRP/SRC/winteracter.mod b/RMA10PRP/SRC/winteracter.mod new file mode 100644 index 0000000..d471d09 Binary files /dev/null and b/RMA10PRP/SRC/winteracter.mod differ diff --git a/RMA10PRP/SRC/winttypes.mod b/RMA10PRP/SRC/winttypes.mod new file mode 100644 index 0000000..450edd4 Binary files /dev/null and b/RMA10PRP/SRC/winttypes.mod differ diff --git a/RMA10PRP/TEST/EST-OLD-REV.R10 b/RMA10PRP/TEST/EST-OLD-REV.R10 new file mode 100644 index 0000000..622e121 --- /dev/null +++ b/RMA10PRP/TEST/EST-OLD-REV.R10 @@ -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 diff --git a/RMA10PRP/TEST/EST-OLD.R10 b/RMA10PRP/TEST/EST-OLD.R10 new file mode 100644 index 0000000..d17d9d8 --- /dev/null +++ b/RMA10PRP/TEST/EST-OLD.R10 @@ -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 + diff --git a/RMA10PRP/TEST/TEST-REV.R10 b/RMA10PRP/TEST/TEST-REV.R10 new file mode 100644 index 0000000..67a7d15 --- /dev/null +++ b/RMA10PRP/TEST/TEST-REV.R10 @@ -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 diff --git a/RMA10PRP/TEST/TEST.R10 b/RMA10PRP/TEST/TEST.R10 new file mode 100644 index 0000000..bdfe4a0 --- /dev/null +++ b/RMA10PRP/TEST/TEST.R10 @@ -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 diff --git a/RMA10PRP/TEST/ato-intel1.txt b/RMA10PRP/TEST/ato-intel1.txt new file mode 100644 index 0000000..3c50af6 --- /dev/null +++ b/RMA10PRP/TEST/ato-intel1.txt @@ -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 \ No newline at end of file diff --git a/RMA10PRP/TEST/fort.75 b/RMA10PRP/TEST/fort.75 new file mode 100644 index 0000000..86b73d3 --- /dev/null +++ b/RMA10PRP/TEST/fort.75 @@ -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 diff --git a/files.txt b/files.txt new file mode 100644 index 0000000..ed254c3 --- /dev/null +++ b/files.txt @@ -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') diff --git a/files.xlsx b/files.xlsx new file mode 100644 index 0000000..c0bb324 Binary files /dev/null and b/files.xlsx differ diff --git a/fnames.txt b/fnames.txt new file mode 100644 index 0000000..0c3621c --- /dev/null +++ b/fnames.txt @@ -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',& diff --git a/labels.txt b/labels.txt new file mode 100644 index 0000000..10802e2 --- /dev/null +++ b/labels.txt @@ -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' \ No newline at end of file