------------------------------------------------------------------------------
C28 JET/PLUME SOLUTION CONTROL AND OUTPUT CONTROL PARAMETERS
*
* ID: ID COUNTER FOR JET/PLUME
* NJEL: MAXIMUM NUMBER OF ELEMENTS ALONG JET/PLUME LENGTH
* NJPMX: MAXIMUM NUMBER OF ITERATIONS
* ISENT: 0 USE MAXIMUM OF SHEAR AND FORCED ENTRAINMENT
* 1 USE SUM OF SHEAR AND FORCED ENTRAINMENT
* ISTJP: 0 STOP AT SPECIFIED NUMBER OF ELEMENTS
* 1 STOP WHEN CENTERLINE PENETRATES BOTTOM OR SURFACE
* 2 STOP WITH BOUNDARY PENETRATES BOTTOM OR SURFACE
* NUDJP: FREQUENCY FOR UPDATING JET/PLUME (NUMBER OF TIME STEPS)
* IOJP: 1 FOR FULL ASCII, 2 FOR COMPACT ASCII OUTPUT AT EACH UPDATE
* 3 FOR FULL AND COMPACT ASCII OUTPUT, 4 FOR BINARY OUTPUT
* IPJP: NUMBER OF SPATIAL PRINT/SAVE POINT IN VERTICAL
* ISDJP: 1 WRITE DIAGNOSTICS TO JPLOG__.OUT
* IUPJP: I INDEX OF UPSTREAM WITHDRAWAL CELL IF ICAL=2
* JUPJP: J INDEX OF UPSTREAM WITHDRAWAL CELL IF ICAL=2
* KUPJP: K INDEX OF UPSTREAM WITHDRAWAL CELL IF ICAL=2
* GRPID: ID NUMBER OF BOUNDARY GROUP
*
C28 ID NJEL NJPMX ISENT ISTJP NUDJP IOJP IPJP ISDJP IUPJP JUPJP KUPJP GRPID ! ID