iank
/
RMA10PRP
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

LATER FIXUP

Browse Source
master
Ian P King 5 years ago
parent cec6dc8f3a
commit 3876d0b8e3
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File

6
RMA10PRP/DUMMY.R10
Unescape Escape View File

@ -2,7 +2,6 @@ INBNGEO MESH.GEO
OUTFIL RESULTS.OUT & Output ASCII results OUTFIL RESULTS.OUT & Output ASCII results
OUTBNRMA BRESULTS.RMA & Output binary file with new format results data OUTBNRMA BRESULTS.RMA & Output binary file with new format results data
ENDFIL ENDFIL
MAXLAY 20
ENDLIMIT ENDLIMIT
TI TI
STARTIM & Starting date and time STARTIM & Starting date and time
@ -65,7 +64,12 @@ CONV-DEP 0.00100 & Convergen
CONV-SAL 0.01000 & Convergence limit for salinity CONV-SAL 0.01000 & Convergence limit for salinity
CONV-TMP 0.01000 & Convergence limit for temperature CONV-TMP 0.01000 & Convergence limit for temperature
CONV-SED 0.01000 & Convergence limit for sediment concentration CONV-SED 0.01000 & Convergence limit for sediment concentration
Continuity lines for selective output
CCLINOUT 1 4 5
CONT-FLW & Save flows in continuity line output CONT-FLW & Save flows in continuity line output
CONT-ELV & Save average water surface elevations in continuity line output
CONT-TMP & Save average temperature in continuity line output
CONT-SED & Save average sediment concentration in continuity line output
EDDY-MAT 1 -0.20000 & Horizontal turbulent eddy coefficient EDDY-MAT 1 -0.20000 & Horizontal turbulent eddy coefficient
EDDY-VRT 1 0.000E+00 & Vertical turbulent eddy coefficient EDDY-VRT 1 0.000E+00 & Vertical turbulent eddy coefficient
DIFF-MAT 1 0.00000 & Horizontal turbulent diffusion coefficient DIFF-MAT 1 0.00000 & Horizontal turbulent diffusion coefficient

11
RMA10PRP/SRC/FORMFILE.F90
Unescape Escape View File

@ -622,13 +622,16 @@ DATA HELPINT/&
WRITE(DATALIN(LINE),60651) TRANSIT,helpint(71) WRITE(DATALIN(LINE),60651) TRANSIT,helpint(71)
60651 FORMAT('TRANSIT',3X,F8.5,t70,a96) 60651 FORMAT('TRANSIT',3X,F8.5,t70,a96)
ENDIF ENDIF
IF(JCSPLPT .GT. 0) THEN IF(ICTOTC .GT. 0) THEN
LINE=LINE+1 LINE=LINE+1
WRITE(DATALIN(LINE),6066) (NCSPLPT(J),J=1,JCSPLPT) WRITE(DATALIN(LINE),6066)
6066 FORMAT(40X,'Continuity lines for selective output'/'CCLINOUT',20I7) LINE=LINE+1
WRITE(DATALIN(LINE),60661) (NCSPLPT(J),J=1,ICTOTC)
6066 FORMAT(40X,'& Continuity lines for selective output')
60661 FORMAT('CCLINOUT',20I7)
ENDIF ENDIF
DO J=1,ICTOTC DO J=1,6
IF(ICCOMP(J) .EQ. 1) THEN IF(ICCOMP(J) .EQ. 1) THEN
LINE=LINE+1 LINE=LINE+1
WRITE(DATALIN(LINE),6067) helpint(72) WRITE(DATALIN(LINE),6067) helpint(72)

Write Preview
Loading…
Cancel
Save