LOAD(*B566)
MESG(Select equation formulation:
MESG(   G - GCV Solver (default)
MESG(   C - CCM SOlver
MESG(   S - Staggered Solver
READVDU(ANS,CHAR,G)
REAL(PREL)
CASE :ANS: OF
WHEN G,1
 GCV=T; LSG9=T; DTHYD= 1000.*DD/UIN; PREL=1
 TEXT(Case 1 WUA-CFD Basel,1994 - GCV Solver
WHEN C,1
 CCM=T; DTHYD= DD/UIN; PREL=0.5
 TEXT(Case 1 WUA-CFD Basel,1994 - CCM Solver
ORELSE
 SYMBFC=T; DTHYD= DD/UIN/NX; PREL=0.2
 TEXT(Case 1 WUA-CFD Basel,1994 - Staggered
ENDCASE
TITLE
RELAX(P1, LINRLX,PREL)
RELAX(U1,FALSDT,DTHYD); RELAX(V1,FALSDT,DTHYD)