Table output for SWAN coupling

[jcwarner]

Correction in swanout1.F to allow table output from SWAN during a coupled run. 1) Correct file Waves/SWAN/Src/swanout1.F near lines 302, replace

IF (RTYPE(1:2) .EQ. 'SP') THEN

IVTYPE=500

ELSE

IVTYPE=CORQ%IVTYP(1)

END IF

with

IF (RTYPE(1:3) .EQ. 'BLK') THEN

IVTYPE=CORQ%IVTYP(1)

ELSE

IVTYPE=500

END IF

2) Modify file Waves/SWAN/External/swan_inlet_test.in to add the line:

TABLE 'point1' HEADER 'point1.table' HSIGN DIR WLEN OUTPUT 20000101.000000 1 HR

This will allow a test for this output option.

both of these files are modified in my branch.