Southwest Florida Shelf Circulation Model Volume 2. Model ...

∎ 

Southwest Florida Shelf Circulation Model 

Vo? u .ne 2 . Model Dccu :nentatior . 

New England Coastal Engineers, Inc ., Bangor, ME 

Prepared for 

Minerals Management Service, Metairie, LA 

Jul 82 

U.S. Cc' :rLmelt of Cocrosrce 

W'z"A Ye*nkai Informa3im Service 

. 

~- 

~~ .~ 

PA84-12?Cs7

Southwest Florida Shelf Circulation Model 

Volu :ne 2 . Model Documentatior . 

New England Coastal Engineers, Inc ., Bangor, ME 

Prepared for 

Minerals Management Service, Metairie, LA 

Jul 82 

U .S. GC7~:~'en~ of Co.Tvr.rrce 

lk'-~2~A Tunkaf pnformaiitin Service 

Llt;:'~~ 

I 

.a 

~- 

~ 

. 

PB84-129C57 

_~ . s~

-~: 

, FINAL REPORT 

SO'JTt;nST F1.ORIDA SF~:c1.F 

CIRCULATION t30DEI. 

VbLU!iE II 

Prepared for : 

United States Minerals Yanagement Service 

Contract No. AA851-CT0-'2 

July 1q32 

P repared by : 

NECE, Inc 

Penobscot Plaza 

Bangor, ME 04401 

REV 9 oC :'CtD Br 

NATIONAL TECHNICAL 

INFORMATION SERVICE 

U .S . D( r' A41MENf Gf COMM(RCE 

SPAINGn E10 . t6 . I:I63 

c' - L i- lzj 6 ` . 1

_+.on 

DISCt .AINER 

This report has been reviewed by the ^finer.als Ttanagement Service and 

approved for publ ::cation . Approval does not sirnify that the contents 

necessarily reflect the vi.ews and policies of t} ;e Bureau, nor does 

mention of trade names or commerciall products constitute endorsement 

or rezormnendation for use . 

1•2

vw 

Disclaimer 

Title Page 

Table of Cor.r,ants 

List of Fig ,.ires 

Appe.adix_ H . User's Manual 

H .1 Program VISCOUS 

H.2 Proj;ram DEttSITY 

11.3 Program CIRC 

H.4 Pro -âm F'M .L 

H .5 Program PLOT`JEL 

H .6 nro,^,ram W?`.D 

H .7 Program 5?Af 

H .8 Pro :.ram Di:NS'iAT 

H .9 Exam.,~le 

AppezdiY I . crvqram Listings 

1 .1 Program VISCOL'y 

1 .2 Program DENSITY 

1 .3 Program CIRC 

1 .4 Program PRTVF. .I', 

1 .5 Prcgran PLOTVEL 

i .6 Program ttiIND 

I .7 P .ro3r-~m SPAT 

1 .8 Program DENSTAT 

TABLE OF CONTENTS 

iii 

i 

iv 

5 

9 12 

16 

19 

21 

23 

26 

2? 

1 

17 

28 

J46 

61 

70 

72 

77 

. .y~7.yy .

Number Title 

LIST OF FIGURES 

Page 

Figure H .1 : Flow Chart of GAL H-2 

Figure H .2: Sample Wind Function H-23 

iv 

r*^" ,

~ APPEP:DIX H 

User's Manual 

H-r

.., 

WFSCM - NECE 

Introduction 

Appendix R 

WEST FLORIDA SHELF CIRCLZJTIOD? MODEL QSEIt'S I 4A PiU,1L 

User's Manual 

A total of eiqht programs are described in this m.anual . All arP writter in 

FORTRAN IV and have been compiled and executed on ar TB Y Vtd 370 0 .•e*atina 

s}•stem using both the G and H(wit.h optimiz~-ti .oti) cor• .piler. The circulat!cr. 

model is co^:po sed of five main prUqra^-R : 1'_T^C!)it.', f'.TFv C , F1'-," :'?lr :' 

PLOTVEL . These progra :r:s are colleetivh'_y known as C"'.. . '?wc pror-am.s, and 

SPAT, have been prcvided to calculate the rrind f{eld for GP.L . r_i-.ure 4 .1 

surr-marizes the rPlationshfp :^•-t:ween thn !-eYen pro .r.rae:s . The ei6!+7t!i x`rcrrnn, 

DENSTAT, is a useful utility program . 

The C?tl time needed to e~cPcut,e varies from one proc,ram to another . In 

general all the programs in CML except CIR :, require le^s than five seconds of 

CPU time on the IBM 434' at the tlniverQity cf Maine . CIRC takes approxlmately 

two seconds of CPU time per hour of modeled time. WIND and SPAT Renera ;.ly 

execute in less than five seconds . DENSTAT can take a considerable amount of 

time, depending on the amount of data to be read from tape . 

The no tation used in this manual is consistent with that in Chanter, 3 and 

Appendix E . The reader shoulcd be familiar with t h is notation before 

proceeding . 

Each program has the followir•F; fur.ctioc : 

H-1 

. . __ . . . . . _~. . . .^ »_ . ._ _ _ _ . _ . . . . x ~tq. +

0ENISFf Y 

CA7!' I ! (A TF.S I)!SK 

PAPnCI .INIC 

0 (IPnHF:YT / 

~~--r 

VISC ~~ G PIt. 

c :A : .CI l r .% TFS CrNSTAP,T :; _ 10. DlSK fJ .1 .rT'lArls tcNro4r: . W in SrAt)t,l . 

U!•:rF'SIUF.:rr t>

WFSCM - NECE User's Manual 

1 . VISCOUS calculates paraîeters dependent on the : vertical eddy viscosity 

(Nv), the bottom friction coefficient (cb), and the grid 

eonfigurat'on . If these do not charge there is no need to rerun 

VISCOUS . The program writes one disk file which is read by DE[•?SITY, 

CIRC, and PRTVEL . 

2 . DENSITY calculates all parameters associated with the density-driven 

component of flow . It is an optional program that need be run only if 

hydrographic data indicate densi .ty-driven flows to be important . The 

user must specify eit'.ier the density field or the salinity and 

temperature field . Th:se values are specified for each horizontal grid 

element as well as for vertical layers . The number of layers is 

specified by the user and density is assumed constant over a layer . 

The progrum rea@s tnF disk file generated b y VISC and creates a disYk 

file Vhich is read by CIfiC and P :?TVEL . 

3 . CIrC is ths main co .,r,t:•ut_ticaal program which calculates the unknowns 

c(i,l,n), and eta(l,m) . The prca,ram reads disk files created 

by VISCOi'..S, DENSITY (if specified) and wind data . The program writes a 

dis=: file containing the temporal change of various parameters 

specified by the user such as c( ;,l,m), d(i,l,m), ub(l,m), etc . 

4 . PRTI-rL is the main ouput program . It reads disk files created by 

VISCOUS, DENSITY (if specified), wind data, and CIRC, and it writes a 

disk file read by PLOTVEL . PRTVEL creates 9ummarv tables of input 

parameters such as water depth, bottom frictioa coefficients, surface 

density, Nv, etc . PRTVEL also prints results such as vertical velocity 

profiles at specified locations, plan velocity views at specified 

depths, surfaee levals, and mass fluxes . 

5 . Pi .OTVE ;L creates a series of CP.LCO?4r? plcts . Each plot cc•nsists of a 

plan view of current vectors at a specified depth . The program reads 

from a di -- k file created by P1 ;T'.'rL . 

H-3

E r. : 

User's Manual WFSCM - NECE 

6 . k'IND calculates and writes a disk file containing the wind friction 

velocity squared at each grid element . The program specifies a 

spatially constant wind field but allows an initial temporal chanFe 

using a ramp function. This program is useful for sensitivity studies 

and production runs . 

7 . SPAT generates a spatially and temporally varying wind field for the 

model grid system by linearly interpolating concurrent wind 

measurements from specified observation points . The program is usel'ul 

for making hindcasts of real time currents . 

8 . DENSTAT calculates first order statistics for the density field . 

Density data is read from a tape in NODC format . . The program generates 

a summary table listing the statistics for one-half degree squares at 

four levels in the water columi : . The user specifies the months which 

are to be searched and sunmarized . Unlike the seven rither prortrams 

listed above, T)EhSTAT is a utility program which is not intended to 

interface directly to CAL or the wind field programs . 

All programs make use of the FORTRAN com.mand NAMELIST for most data input . 

Users unfamiliar with this cocrmand are urged to consult a FORTRAN Reference 

before proceeding . 

1'•:;st of the programs read and write to disk files . This requires that the 

user include in his Job Control Language (JCL) the appropriate commands to 

access and link the disk . On the IBM VM 370 0S the commands are : 

CP LINK username devicel device2 WR password 

ACCESS device2 mode 

where the lowercase denotes items which are installation dependent . The user 

should consult his local computer support staff to determine the appropriate 

H-4 

. . ._~,. .___ . . ._, . . . _ . . . _ . _ . . ._ . . ... .-...: . .,,...-F:,. :~ ~rs~g


items . 

The following sections give a more detailed description on usage of the eight 

programs . 

Inputs 

First Ftecord 

The first record should contain thP title . This can be an y sequence of up to 

80 alphanumeric characters . 

N=elist &PSISC 

JP the number of cosine terms used in thP trial functions ; 

3' . Default : JP-3 . 

KP t;ie number of linear segments 

Default : KP=2 . 

+1 used for N v ; k' . 

LP the number of elements in the x direction ; 1' . Default : 

LPc12 . 

M,P the number of elements in the y direction ; m' . Default : 

MPc24 . 

NS the number of trapezoids used in the numerical 

integration . Default : NS-20 . 

CONNV logical variable which indicates the status of N where : 

C0 NINV- .TPt3E . indicates N is to be taken as consyants in 

the vertical . In t.his case KP should be set equal to 2 . 

CONNV= .FALSE . indicates N v is not constant in the vertical 

H-5 

• 

; 

~ 

i 

J 

~ 

F 

! 

s 

i 

i 

a 

f 

i 

, 

z 

i 

; 

; 

~ 

1 

1 

i 

S 

3 

~ 

; 

. 1 

_~

~, . 

User's Manual WFCCM - NECE 

and that KP will be greater than two . . Default : 

CO;ItN= . FALSE . 

NUCHG the number of times during the rrorl>l run that A will 

ehan,7c . }inte that if td[JCaG .GT .1 more than one P+aFelist 

&E^!^VIS should appear in the ir.put file . Also, if 

FDDYT= .T,^,JE . (see below), ?J will a~2toTatically be updated 

each time the wind ehanqes so ? !UCfiG will be ignored . 

Default : NITCii0=1 

Namelist &DEI*Tti 

!'j the still water depths In meters . Tf tides at. the ocean 

boundaries are to be specified then H shoul.d be referenced 

to t^;_ .W ( m ean low tira ter) . Fiust be LP *', •'T values specified 

(l:ote the use of FORTA A*7 convention which uses a * to 

sir,nify r.:ultiplication . This notation wi11 be used . 

con4istnntly in this text) . Enterlns sequencP should oe 

first row of p,rid ( i .e . +x direction), followed by second 

row, etc . Default : H(l,m)=0 . 

tiaaelis'. &FFtICT 

CB thA friction copfficient In m s-1 . Must he LP 4~ t:? values 

sn eci±'ied . Entering sequence i.s saê as for H . Default : 

CE=0 .4')025 . 

t~a~=i ; st nEDDy[. 

Cfi thF Jaynr dent'h of the eddy visônity (meters) . Must be 

FiP*LF'*F'P values . the Fntering sequence is : 

CK=k(1,1,1), :;(2,1,i), . . .k(KP,1,1),k(1,2,1) 

. . . . .k(KP,2, 1), . .k(ICP,LP, !"P),&E?dD 

where k(k,l,m) is the depth of 1J v (k,l,m) . 

A'ODiM logical variable indicatin.g whether the units of CK are to 

be input as meters or as a fraction of the total depth . 

t:ODIM= .TFiLtE . indicates units of CK are dimensionless ; in 

nther word3 CK will assume values O .LE .CK.LE .1 .0 . 

t10DIM= .FALSE . indicates units of CK are in meters ; in 

other words CK will assume values 

O .LE .C :;(k,l,m) .LE .H(l,ta) . Default : hODIfa= .FALSE . 

H-6

WFSCM - NECE 

Nameliat &EDYVIS 

User's Manual 

Note that if NUCHG has been set .GT .1 in &MI.SC then one &EDYVIS statement 

should appear NUCHG times . 

EDDYT logical variable indicating whether N is to be varied in 

time and space . If EDDYT_ .TRUE.v then N will be 

calculated each time the wind changes and for each element 

according to the formula by Townsend (1976) : 

Nv = H(l,m) * WA2(l,m,t) / REYNO 

where WA2 is the surface friction velocity . WA2 is 

specified by a wind model (i .e . WIivD or SPAT) . Caution : Nv 

will be updated whenever the wind changes so this option 

may take a great deal of computer time if the wind changes 

frequently . Default : EDDYT= .FALSE . 

EDDYS Logical variabP a indicatin7 whether PI is to be variec' in 

space usir-- the Townsend expr•ession .° T??UF indicates the 

Townsend expression will be used to calculate ?r . FALSE 

indicates values of N' will be specified by u 'er (see 

EDDYV below) . Default :vEDDYS= .TRUE . 

REYNO the value of the flow ReSnolds Number to be used to 

calculate N in the Townsend expression . Value of REYNO 

normally varies between 12 to 32 . Default : REYN0=16 . 

WA2 the value in m s 1 of the surface frictir^ velocity to be 

uspd in the Townsend expression . Normally WA2 is based on 

a wind condition which represents an averaQe for the 

period of the simulation . WA2 can be found by first 

assuming an average wind speed for the simulation period 

and then converting wind speed to WA2 using an expression 

such as Wu(1980) . Default : = 0 .005 . 

EDDYV the eddy viscosity in m2s-1 at each layer fbr each grid . 

Must be specified if EDDYS= .FALSE . and EDDYT= .FALSE . Must 

be KP*LP*t1P values specified . Entering sequence is : 

EDDYV-N (1,1,1),N (2,1,1), . . N (KP,1,1), 

:~ v 

Nv(1,2,1), 

N~(KP,2,1), .~ .• .•Nv(KP,LP,•MP),&E1'D 

H-7 

. .

. 

User's Manual WF.SCM - NECE 

where : N(k,l,m) is the numerical value of N for grid 

location vl,m and layer k. v 

ETIty the time ( in seconds) up until which EDDYV, or P,EYNO and 

WA2 will apply . If NUC?Iq21 than ETIME should be set 

large . De fault : ETIME=1x10J 

Dimensioning 

C0I•?fON/AA/C,K( KP*LP*MP ) , DELSIG( xx ) , SS ( JP*LP*MP ) , H( LP*tiP ) , FMASS ( LP*t ;P ) , 

& B ( JP*LP*i4i~ ) , E ( JP*LP**5? ) , P 1( J°*LP'~i"P ) , ALPHA( ( KP-1) *LP*I-? ) , 

& LETA((KP-1)*LP*MP),NB(LP*MP),Q(JP*LP*D';P), 

& A(JP*LP*MP),CB(LPCN!P),EDDYV(KP*L?*Pi?),JP,KP,LP,MP,LPMP,L!',KPM1, 

& JLMP,KLMP,G,tiBP,REYN0,WA2,NS,IS,KT,DL, 

& ETIP'.E,NiICHG,UA2(LP*M°),VA2(LP*rP),VERSI*;(14),TITLE(20) . 

& CONSTE,EDDYT,EDDYS,CO*tNV,LAND(LP*MP) ,FY.Y,PIII,THETA,F(LP*P'IP) 

where xx-JP*LP*t',P when COM~V= .TRUE . and xx=JP*JP*LP*MP when CONNV= .FALSE . 

PisiC Fi le.5 

The program writes a disk file on device f'10 in an ur.formated, variable 

spanned format, and reads from disk file 04 . The file definitions on the IBM 

VM 370 are : 

FIDEF 4 DISK WIND DISK mode(LRECL 795 BLOCK 800 RECFM VS PERM 

FIDEF 10 DISK VISC DISK mode(LRECL 795 BLOCK 800 RECFM VS PERM 

Were 'mode' is as defined in the ACCESS command described in the 

INTRODUCTION . 

Errors 

ERROR 1 the nondimensional value of CK(k,l,m) exceeds unity or is 

negative . Most probable cause : CK has been specified 

greater than the local water depth or has been specified 

H-8

WFSCM - NECE 

ERROR 2 

ERROR 3 

ERROR 4 

ERROR 5 

ERROR 6 

as negative . Check Namelist EDDYL . 

User's Manual 

the value of CK(1,1,m) is not equaJl to zero or CK(KP,l,m) 

is not equal to H(l,m) (or unity if NODIM= .TRUE .) . Chec? 

Namelist EDDYL 

KP has been specified ;?reat;er than 2 and COtvNV= .TRUE . Th s 

is inconsistent and the user should chanQ_e either KP c,r 

CONNV so that they are consistent . 

F:P has been specified as 2 but CO NNVc .FALSE . This is 

inconsist.ent and the user should change either F:P or CON NV 

so that thev are consistent . 

KP has been specified as 1 . KP must be two or greater• . 

Nv has been spec=fied as zero which is ph

Y?~ 

- :=d 

~ 

, 


CALDEN logical variable specifyinz whether density data will he 

directly specified (CALDEN= .FALSL' .) or salinity and 

temperature data will be specified (CALDEN= .TP.UE.), hence 

requiring calculation of density within DENSITY . Default : 

CALDEN= FALSE . 

Namelist &LATER 

IPP the number of density layers in the vertical, i' . Not 

necessarily the same as KP used in Program VISCOUS . 

Default : IPP=2 . 

HP the depth in meters referenced to SWL (still water level) 

of the bottom of each layer . Must be IPP values . Not 

necessarily the same as CK used in Program VISCOUS . 

Default : HP(1)=10, HP(2)=300 . 

DTIME the time in seconds up 3 ptil which the density data 

applies . Default : =1 x 10 . 

F:amelist &SALIN This namelist is optional and need be specified only if 

C fJLDENc .TRUE . 

SAL 

fiamelist &TEIL° 

the salinity in ppt (parts per thousand) for each layer of 

each element . Specified in horizontal layers or : 

SAL=sa1(1,1,1),sal(1,2,1), . . . . 

sal(1,LP,1),sal(1,LP,2), . . . . sal(1,LP,MP),sal(2,1,1), . . . 

sal(2,LP,1),sal(2,LP,2) . . . . . . . . . . . . . . . . . . . . . . . 

sal(IPP,LP,MP),&END 

where for examnle sal(1,LP,2) would be the salinity in ppt 

at the upper level, i .e . HP(1) .GT .z .LE .HP(2) at grid 

1=L?, m=2 . 

This namelist is optional and need be specified only if CALDEN= .TRUE . 

T the temperature in Co for each layer and each element . 

Same entering sequence as SAL . 

H-10 

7 t7


Camelist &RfiA 

This namelist is optional and need be spPcified only if CALDEEi- .FALSE . 

RHOWP the density in g cm ' . Same entering sequence as SAL . 

DimensioninP 

C0MM0N ;AAI*nELHP(IPP),PHI(IPP),S(7PP),F?P(IPP),H(LP*t'P),T(IPP*LP*MP), 

& S.;L(TPP*LF*t`P),R~?0~'P(iPP~L.P*tIP),RrI0L7{IPP*LP*MP), 

& ROtdX{IPP*LP*AiP),ROI~Y{7FP* ;,P*NP),k(IFP*LP*t~P),0{ ;PP*LP*tfP), 

& CALDLtT,LP,M?',J?,IPP,IPLMPM1,JPi.PMP,LPM!P,IPLPMP, 

& KP,KPL?t•1P,C0"7N1',VERSI^:(14),TITLE1(20),TITLE2(20),DTI3xr, 

& ASTER,ETIt•È,LAND(LP*M•O),ROTT(IPP*LP*MSP) 

Diek Fi1es 

The program reads from the disk file created by VISCOUS on file P 10 . The 

program writes c:islc file 0 11 . The appropriatP file definitions for the IE}A VM 

?70 are : 

FIDEF 10 DISK VISC DISK teode(LP.r.CL 795 BLOCK 800 RECFM V S PE :•i MI 

FIDEF 11 DISK DENSE DISK mode(LRECL 795 BLOCK 800 RECFt ; VS fIEhM 

Errors 

No execution time errors are written by the program . 

H-11 

---- •~-;-`#

: 

~ 

c 

User's Manual 

H .3 CIRC 

TT:pUts 

First Record 

WFSCM - NECE 

The first record should contain the title . This can be any sequence of up to 


Namelist &rSISC 

EDDYH vsluz ofS the lateral eddy viscosity in mzs 1 . '?f:°au1t : 

EDDY(-;-10' . 

Dr":SE logical variable indicating whether the densitv driven 

term will bp included in the coTputations . If TRUE then 

Proarar., D--NSITY should have beern previously Executed . 

Defaul t : DEf3SL= . FAi .S^ . 

Namelist &T'i'F'E 

DTT the time •step in seconds, delta t . Selection of DTT is 

critical for model stability . Consult Chapter 3 for the 

criteria which must be meet by DTT . Default : DTT=lt50 . 

TLAST the last time step in seconds . Default : TLAST=350000 . 

ISTPa the time step in seconds at which printed output (in CIPC 

and PRTVEL) and plots (in PLOTVEL) will begin . Default : 

ISTPR=90000 . 

IDTPR the time increment in seconds between printed output (in 

CIRC and PRTVEL) and plots (in PLOTVEL) . Default : 

IDTPR=45000 . 

Namelist &BCS 

H-12


IAtLp(l,m) indicates the type of boundary condition which is to be 

assumed at grid 1,m . IA6i? can assume the following 

values : 

0 indicates a land element . 

1 indicates the surface slope will be assumed 

zero in a direction normal to the 

boundary . 

2 indicates an open ocean eler,ent where the 

tidal amplitude and period must be 

specified (see descrYptio .nn o~' 'At"P' ard 

PERIOD below) . 

3 n:A applicable in version 7-A . 

4 irdic,~.tes internal water element . 

5 ind .cstes c(J,l,m) ar.d d(i,J,n) will be 

sF-. .. .fied at the elemer,l: . Tl:'s ecnmition 

is used to model the shear i .n.poked b-. a 

cu :•rFnt a .onq the western bcur:c'arv . Note 

that the c's and d's can be specified 

directly by the u ser or aalculated 

intArnal ;y by the prc!;ra:n to provide a 

3inusoidal forcinq at the tcundary 

analogous to the eddy-wave field sulr,Rested 

by Niiler (1976) . To excercise this latter 

option the characteristics of the eddy wave 

must be specif ied via h'PEROD, t,'L .~CTH, and 

WAMP ( see below) . 

5 indicates the mass fluxes, U3 and VB, wil : 

be specified at the element. This 

condition is used to model river inflow and 

outflow . 

Note that IA*tP S.s defaulted to '0' for all land elements, 

'1' for all non-land boundary elements, and '4' for all 

non-land, non-boundary ei.ements . 

PERIOD the period of the tidal oscillation in seconds . Default : 

PERIOD_44,500 . 

H-13

User's Manual k1FSCM - tdECE 

AtiP the amplitude of the tidal oscil? .ati .on in deciLaeters at 

the westernn boundary . AMP is a two dimensional arrav of 

the form AtiP(1,e;) where 1 and m specify the prid element 

location . AMP should be specified as an integer and ar.=in 

note that the units are in deciwaters . DefaulL : 

AMP(l,m) :0 . 

UB,VB Sources/sinks such as rivers can be modeled by apecifyine 

tkle-t ass fluxes, UP and/or VB . 1Inits of U, and VB are 

m`s . Note that TAMP murt = 6 . Enterinp_., sequence is sa me 

as for IAMP . Default : UB:VR_0 .0 

FtLID logical variable whieh soecifies whether a rigid lid 

assunnption is to be made . In other words, whether the 

surface elevation, eta, is to be set to zero throu _r,h()ut 

the grid . Default : R:•ID- .FALS-r- . 

CBC,PBC the calue of the• unknown corffi•c ;a.ents, c( j ,i,m) and 

d(i,1,n) respectively, in m s at the boundarv . `:ot.e 

that IA"`P(l,r ) must = 5 and that i .LL' .JP . Lefault : 

CBCGD3C_0 .0 

K°ERCfD the period (seconds) of a sinusoid oscillaLicn imposed at 

the westerr . boun ; ary . C ::n be used to model a Niiler e d d .v 

wave . ?7otc that If.I"'(l,m) r:.ust equal 5 . If a tc :, :porallv 

constant lateral s':ear is to be applied on the western 

bounlarv, WFEROD should hP set to zero . Default : 

1r'Pr?OD :O . 

WL?iGTH the le^rth (meters) of the sinusoidal oscillation . Used 

in con junction with WPEftdD and WAMP . Default : WL1tGTH-O . 

WAM P the wave amplitude (m s 1) of the sinusoidal oscillation . 

Used in conjunction with WLNGTH and WPEROD . • Default : 

h~'AMP :0 . 

Again note that if IA*fP is set to 5 on the western boundary the user must 

either specify : (1) DBC and/or CBC in which case WLNGTt!, WAM? and F?PFROD 

should all be set. to zero or (2) WAMP, WLNGTH, and WPEh^F . The second optio ., 

is used to simulate the Niiler eddy wave . 

Hamelist &INOUT 

H-14

+sri1s 


IIOTSTF logical variable indicating whether a"hot start" is to tra 

made . If TRUE than CIRC will initialize the unknos .^1s 

c(j,i,m), d(i,l,*:) and eta(l,m) by accessln•n existing 

values on disk file P 12 which shculd "ave be entablished 

by a prior run of CIRC . If HOTSTF_F4LSE then these 

variables will init :allv be set to zero . Default : 

HnTST9- .FALS£ . 

HOTIr•;, the time in seconds at . wh ich the "hot starL" begins . !"ust 

be specified if' HOT^TR_ .TP,UE. and must be .LF. . tne last 

time step executed by the prior run of the na+dPI . 

PRTFLO logical variable which indicates whether a printnd sumnarv 

of the flows in the x ancd y direction are desired in 

Program PRTVEL . Default : PRTFLO: .FALSE . 

Di .Ten-. ionin¢ 

COr .n ;L~'~!rDDE!^cLSIO(xx. ), cS(,.?i"~Lr.*p'?} , H(LP~'*"? }, Kn'A~S( LPa, .~) , 

& g(,,P~LPcrro',,F ;Jp ~ .^sFta) 1,,(up+~ va?!nl r . . I . , .0~:'r" . , t 4IS~V t ~ 3J ( P*sP L C . ) 

C :,t~~',CH/I: ;JF' ;dGFJ/C( `PwLP~'F ;P) .D(JP$Li#r?),ET~ ( LP~iè'), 

lr LT3 (LP+ 1, N?{ 1}, t'P ( LP+1 , t4?=+' ) 

C('i"` ;"?I/COi3 :'JP, i:P, T .P, P•.'P, F'.°!4 ' , F .^,DYF.T, C2, C•_'' , C4, C5,1'ERSI'1(1!: ), 

& k"?(LP,h~a),IJ~?;~tL?,h'P),"ITi(2D) .JPLPFRP,i.Pt!? .JPLP,DeT Lo 

& MPt'1,LPMI,CBC(JP,LP+1,M?+ ;),^BC(JP,LP+1,"•P+1),HOTir'E,HOTSTR 

C0WCPi/WINDY/UA2(LP*M,P),VA2(L°kl?),Hu(LF*'~P), 

& FX(LP* M '),FY(LP#0.{P),1'AU):(JPxLP*MP),TAUY(JP*LP*Mf),D?t7XJ( .TP*LP#MP ) , 

DPDYJ(JP*LP*y!P) 

COI AV i0y /DEAI/ROk'X( JP*LP*MP OL ROelY ( JP#LP*M:' ), P.HU`+1( LP*t•'R ), IPP , DENSE, DTI~-E 

where : xx :JP*LP*MP when COtr'17V= .TRLr' . and r.x-JP*JP#LP*14P when C0P7NV_ .FAL ',E . 

Tìsk Files 

The program writes one disk file on device f?12 . It is an unformated, variable 

spanned file containing various parameters intended for Program PRTVEL . CIRC 

reads at least two files - file #4 which is the wind data and file f 10 which 

are the parameters written by VISCOUS . If the variabl e DEt.SITY= .TRUE . in the 

CIRC input then CIRC will also access disk file 0 11, written by Protira ;n 

H-15 

-r-~~:'^!sx

: , ~-~,-.~. . 

~ . . .. 

User's Manual k'r SCH - FiF,C E 

DE"7ST_TY . The file defi.nitions needed to run CIFC on the IPM 370 are : 

FIDEF 4 DISK 6?I'3a D?SK nrodP(LRECL 7G5 BLrC" 800 RFCF•.4 VS FFr^.M 

FIPF.F 10 DISK VI~'C DISK riode(LPECL 79 r, BLOCK 800 RECf'~~ t,r,S PrRM 

FIDrF 11 D :S, . PE> :SE DISv rô

idFSCf S - ;ECS User's Manual 

PfiSE'2', 2ortczl var3arle which soccifies whether a table of the 

sur!'ac.e elevation a t, each element will be printed . 

Default : Pi ;TETA= .FF.LSE . 

NOGF.DS the nuhber o .* e :ements where a table of the velocity 

prof:ls is dcsired . If NOGIIDS .GT .O, a print out will 

Cen,ir, at I'ST?R seconds and repeat every IDTPR seconds 

thereafter . nofault : t:JGHDS=O 

LGrATF.(I) the coor-lir.atPS of the grid elements for which a tablc of 

the velocity nrofile is desired . The number of LOCATE 

r.:ust. be equal to tInGRDS . This variable is of the form : 

LOC„TE(T)=(1,r^' a:her? 1. and m are the grid coordinates in 

the x ar.d y d!reclion, respectively . 

LAYERS V•,_ nLtrbe,r of 1:irerz. for . which ;-in inst antax; vV s plan viedw 

oi~ t ;:a ve7acit_cs ior the entire grid wi1 P be printe . 

Def~ault : LAI'ER•SzC . 

LE'v'Ei.S the r.sxber of layers for yhich an instantaneous plan view 

of t ; :e velo_^.itieg are to be plotted . Default : LR1'EL S =O 

If .GT . 0 the nar.,elist hOG1ÒPS should be ir~iediate?y followed by 

ivGG^DS rc ,

A 

User's Manual 

z(1) z(2) z(3) . . . . . . . . z(i) 

. . . . . . _, . . '" _ _ . . . . . . . . . . ._,~ . 

WFSCM - NECE 

where ic the no . of plan views which will be printed (must be LT . 17) and z 

is the percentage depth (e .g . z=50 indicates that velocities at each element 

will be calculated at 50% of the local water depth), and expressed in F5 .0 

format . Print-out will occur starting at ISTPR seconds and repeating every 

IDTPR seconds thereafter . Note ISTPR and IDTPR are specified by the user in 

Program CIRC . 

If LEVELS .GT.O, variables described in the previous paragraphs must be 

followed icr,mediately by 1 record containing up to 16 variables in F5 .0 

format . The record should be in the following form : 

z(1) z(2) . . . . . . . . . .z(I) 

where : 1= no . of plan views to be plotted (must be LT . 17) and z is the 

percentage depth of the plan view expressed in F5 .0 format . Plotting will 

start at ISTPR and repeat every 7DTPR seconds thereafter . 

Dimensioning 

COMMON/KNOW/H(LP*MP),CV(KP*LP*MP),ALPHA((KP-1)*LPOMP), 

& BETA((KP-1)*LP*ttP),A3B(LP*14P),A(JP*LP*MP),CB(LP*MP), 

& EDDYV( KP*LP*MP ), CO'd?IV, L ANi)( LP*MP ) 

COMtJ10N/UNKNOW/C(JP,LP+1,MP+1),L(JP,LP+1,MP+1),ETA(LP*MP), 

& UB(LP*MP),JB(LP*MP),SPEED(LP*MP),DIREC(LP*1+IP) 

COiNtm,ON/CON/JP,K,P,LP,MP,KPM1,CPHI,DTT,DL,PERIOD,EDDYS, 

& EDDYT,REY1d0,WA2,AM?(LP*M?),IA14P(LP*1'i°),TIT1(20),TIT2(20), 

& TIT3(20),TIT4(20),VERSIN(14),EDDYH,JPLPMP,LPMP,KPLPMP 

COMMON/WIVDY/UA2(LP*MP),VA?(LP*MP) 

COK`40N/DEN/ROi1};!JP*LP*MP ) , R0WY(JP*LP*MP ) , RHOW(LP*t1P ) ,1PF, DENSE 

Disk Files 

One disk file i s generated by PRTVEL on unit #13 . This file contains 

H-18

WFSCM - NECE User's Manua .'_ 

information for program PLOTVEL . PRTVEL reads at least three disk files : file 

#4 which is the wind data ; file #10 written by Program VISCOUS ; and file #12 

written by Program CIRC . If the variable DENSITY : .TRUE . in Program CIRC than 

PRTVEL also accesses file 011, written by Program DENSITY . The file 

definitions on the IBM 370 are : 

FIDEF 4 DISK WIND DISK mode(LRECL 795 BLOCK 800 RECFM VS PERM 

FIDEF 10 DISK VISC DISK mode(LRECL 795 BLOCK 800 RECFM VS PERM 

FIDEF 11 DISK DENSE DISK mode(LRECL 795 BLOCK 800 RECFM VS PERM 

FIDEF 12 DISK CIRC DISK mode(LRECL 795 BLOCK 800 RECFM VS PERM 

FIDEF 13 DISK PRTVEL DISK mode(LRECL 795 BLOCK 800 RECFM VS PERM 

Errors 

No error statements can be generated by PRTVEL in this versi on . 

H .5 PP,OGRAM PLOTVEL 

Inputs 

First Record 



Namelist &HISC 

FACT a reduction factor . Plots will be generated with a grid 

size of FACT*GRDSZ . Default : FACT= .6 

GRDSZ the size of ea„h grid element to be plotted in inches . 

Default : GRDSZ-0 .5 . 

H-19 

; . .~ 

~ 

~ 

~ 

s 

. 

t 

; 

; 

, 

; 

4 

; r 

~ 

i 

1 ; 

t 

; 

i

i : 

User's Manual {,'FSC"i - PiECE 

LP the number of grid elert4nts in the x direction . The axis 

is aligned with the width of CALCOMP paper . Default : 

LP_12 . 

MP the number of grid elements in the y direction . The y 

axis is alig„ed with the length of tte CALCOMP paper . 

Default : *?=24 . 

DL the grid element size in meters . Defau'_t : L1.=30000 . 

ISKIP spncifir!:s how rnany of the plots are to be initiallv 

sk.ipped . If firnt plot is to he drawn then ISKIP a! ;ould 

be set to zero . Default : ISJ{IP_0 . 

INC specifies thN number o° plots to be skipped between 

drahin,g . Default : IldC-O . 

VECTOR loqical variablF . . TRUE indic:a•..es velocitv veaters will be 

drawn as vectors whose lenqth w :11 be proportional to the 

speed . FALSE indicat-?z an arrow cf constant length will 

be dra ..î with feathers on the tail . The saeed is found bv 

multiplying thc nu=ber of feathers tiv `'fDSG! ., e . r;. i f 3 

1/2 feather3 a^pear than the saer-d at that grid is 3 1/2 

times SP ;:S CL. Dei'auit : ','E ;,'TORc .FAL3E . 

SCALE logical variab_e which indicates whether n .:tomat :.c scaling 

is to b- usQd when VuCTOR~ .? R JE . if SCl'•_LE= . T'?UE . each plot 

w,ill be au,.c.:,aticallY sce.ied so that the largest vel .ncitv 

vector will -)e equal to OR^57, . ttote that the scale will 

not ne".ssaril.y be constant for each plot . If 

SCRLF= .fiALSE . scalins will be based on the value of 

SPD :'L0.}:. Default : SCALE= .FALSE . 

SPDMAX only used if SCALEc .FAI-SE . SPDSCL is the length of one 

feather on the velocity arrow if VECTOR=F'ALSE . If 

' ;IECTO4=TRUE, SPDMAY sho uld be set to approximatelr the 

rn a_ i i.r.-,:m velocity to be expected . Default : SPD!~:AX :0 .1 m 

s 

ANGT the angle from the x-axis to true north irn degrees cew 

from the x-axis . 

NOPLTS the number of plan views to be drawn . Default : NOPLTS-1 . 

PRT print switch . TP,UE indicates tables of the speed and 

direction arrays will be created . Default : PRT= .FP.LSE . 

DIST the distance in inches between two consecutive plan view 

H-20

a 

~ WFSCM - NECE 

' ; . 

Dimensionin,q 

plots . Default : DIST :4 .0 . 

DII-IEt:SION SPEED(LP*MP),DIREC(LP*MP) 

User's Manual 

Disk Files The program reads one disk file from file # 13 . It is an 

unformated, variable spanned file containing various parameters written by 

program PRTVEL . The file definitions for the IBM 370 are : 

FIDEF 13 DISK PRTVEL DISK mode(LRECL 795 BLOCK 300 RECFM VS PERM 

Errors 

No error statements are generated by PLOTVEL in this version . 

H .6 PROGRAM WIND 

The program calculates and writes a spatially constant wind field to a disk 

file . Wu's (1980) relatior.ship is used to transform the user specified wind 

speed to wind friction velocity squared needed by GAL and written on the disk 

file . 

T_nputs 

First Record 


H-21

. 

User's Manual 


Eeamelist LHI.4., 

WFSCM - A:EECE 

Figure H .2 shows a sample ramp function used to vary the wind in time . 

ITO the time in seconds at which the wind reaches its full 

magnitude, WTO . In Figure H .2 IT0=2¢IDTT . Default : 

IT0-72J00 . 

WTHEETA the angle of the wind referenced to the positive x axis . 

The wind vector is described in terms of a Cartesian 

vector with the angle measured as positive in a 

counter-clockwise direction and the origin of the vector 

at the axis origin . Default : WTHETA=O . 

WTO the full magnitude of the wind in m s 1 . In the sample 

shown below wind reaches full magnitude after 2#IDTT 

seconds . Default : WTO=10 . 

IDTT the time inerenent between changes in the wind magnitude . 

Default : IDTT=7200 . 

NJiXT the last time step in seconds . Default : MAXT=72000 . 

LP the number of grid elements in the x direction, 1' . 

Default : LP=12 . 

NP the number of grid elements in the y direction, m' . 

Default : MP=24 . 

Wind M~ . 

(m s ) 

WTO - --------- ------/ /----- 

. / 

. / 

. / 

. / 

. , / 

:-----I-----I-----I-----I---/ /----I------I-- Time (seconds) 

IDTT 2IDTT=ITO MAXT 

Figure H .2 : Sample Wind Function 

H-22

~ 

' WFSCM - PtCE 

Dimensioning 

DIrEPdSI02i UA2(LP*IIP),VA2(LP*! °),TIT(20) 

Divk Files . 

User's Manual 

The program writ•:s one disk file on device #4 . It is an unformated, variable 

spanned file containing : the time in seconds, and the friction vplocity 

squared in the x and y-direction . The file definition for the IBM 370 is : 

FIDEF DISK WIND DISK mode(LRECL 796 BLOCK 800 RECFM VS PERM 

Errors 

One error can occur if the varlable ITO is sDecified grezter than YWXT, in 

which ease an ap±rropriate mEssage is printed and ezecution i=ejiately 

terminates. - 

K.7 SPAT 

This program calculates the wind for cach element of a grid system with LP by 

MP elements . The wind can char-ge in time and space . A time series of 

concurrent measured winds are specified by the user at N stations . The 

program multiplies these measur, ;d winds by amplification factors (SYSW(I), 

I_1,N), thus giving the user a simple method to correct bias in the 

measurement3 . Amplification factors must be specified by the user . The 

program spatially interpolates between the concurrent wind measurement :, to 

H-23


derive the wind field•at each grid element . Measured winds are assumed to be 

at 1 hour intervals . 

The interpolation scheme is a simple linear method which calculates the wind 

at a given grid point, (l,m), by taking the weighted contribution of each 

station. The weighting for a given station is based on the normalized 

distance from the station to (l,m) . Stated mathematically, the wind component 

at grid (l,m) for time T is calculated as : 

U(l,m) = W1 U1 + W2 U2 + . . ., tIN UN 

where : U(l,m) is the wind component at grid (1,m) for time T, Wn is the 

weighting factor at station n for time T and Un is the wind component at 

station n for time T . Note that Un is the corrected component, that is U 

n 

= 

U~n SYSWn where U~n is the observed wind component for time T at station n 

and SYS14 n is the amplification factor for station n . 

The weighting factor, Wn, is given by the expression : 

Wn=W1R1 /Rn 

where R is the distance between (l,m) and station n . The weighting factor 

n . 

at station 1 is given by : 

W1 - 1/(1 + R1/R2 + R1IR3 + . . . . R1/F•N) 

Fo- illustration consider the following example . Let N-2, SYSW1=1 .1, 

SYSW2=1 .2, and assume the grid (l,m) lies a distance 3/8 R from station 1 and 

5/8 R from station 2 . It follows from the above equations that : 

W1 = 1 .0 / (1 + 3/5) = 5/8 

H-24

WFSCW, - NECE 

W 2 = 3/5 x 5/8 = 3/8 

U(l,m) = 5/8 x 1 .1 x U1 + 3/8 x 1 .2 x U2 

User's Manual 

The program writes a disk file containing wind friction velocity squared at 

each grid point . The file is compatible with GAL . 1Ju's (1980) relationship 

is used to convert wind speed to friction velocity squared . 

Inputs 

LP the number of grid elements in the x-direction . 

t•U' the number of grid elements in the y-direction . 

N the number of stations at which measurem-.~nts will be 

specified . Restriction : N .LT .17 . 

IX(n) the x grid coordinate of station n . 

IY(n) the y grid coordinate of station n . 

SYS67(nW the amplification factor at station n . 

The namryiist should be followed immediately oy a record containing a title 

consisting of no more than 80 alpha characters describing the input wind 

data . The title record is immediately followed by records containing the 

observed winds at N stations organized in increasing time as follows : 

U11'T' V ~'T' . U . 2 :T . V 2'T' . • . • . ~ . V . N :T . . . . . . . . . . Vf 

1,T+1' N,T+1 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 

where all variables are as previously defined . The units of T are• hours and 

the units of wind speed are in m s-1 . The program will continue reading and 

processing observed wind recoras until it runs out of data, at which time it 

will automatically stop . Input format for each record is 1615 . 

H-25 

;~--,

User's F",anual 

Dimensioning 

Errors 

COK4,CN/CNE/ :.P,t-':P,LPt3?,IX(N),IY(t.),P:,SYSW(N),INT 

COM:iON/TWO/_TLTi(N),IVt4(N),'JM(N),VM(N),W(N,LP#MP) 

DIMENSION U(LP*T-?),V(Lr ;MP) 

DIMENSION WT(N) 

DIMENSION P(y), 16"P(N) 

DIMENSION ti(LP*h?),V(LP*h;P),TJSTAR(LP*MP),VSTAP,(LP*AiP) 

WFSCM - NECE 

The program checks to make sure that the friction velocity squared is less 

than 0 .01 m`~ 

-2 which corresponds to a wind speed of about 60 m s-1 . If the 

wind is greater than this than the program prints the grid element arid time 

step and terminates execut :.on . 

Disk Files 

The program ti:ites one variable spanned disk file on unit 414 . Each block 

contains the x anc: y components of the w ir.d friction velocity squared for 

LP*MP elements . The file definit :ion on the IBM 370 is : 

FIDEF 4 DISK WIND DISK mode(LFE'CL 795 BLOCK 800 RECFM VS PERM 

H .8 DENSTAT 

This is a utility program which reads density data from the standard NODC 

format for STD data . DENSTAT's primary use is in developing input for 

DENSITY . The user must specify the star ;,ing date and ending date in which he 

H-26

_ .^ 

. . . . . . . _ . . . .~_ . _. .~,IY . .~. .. 

WFSC1'1 - NECE User's Manual 

is interested . The program will then calculate the first order statisti^s 

summarizing sigma-t at four water levels for one-half degree squar•es on the 

West Florida Shelf . 

Input• 

Namelist &MISC 

ISTIFSF, the starting time consisting of 4 digits . The first two 

represent the month and the last two, the day . 

IETIAii: the termination time consisting of 4 digits (same format 

as ISTIP4E) . 

Dimensioning 

no dimension changes should be needed when program is applied for what it was 

designed . 

Errors 

The pro gram checks to see that ISTIME-IE'TItdE .GT .1 month . If not an error 

statemPn .*t is written ar.i1 execution is terminated . 

Disk Files 

The reads data from an NODC formaced tape . The JCL needed to run the program 

on the IBM 370 are : 

ERASE DLOG DATA G /MOUNT TAPE USO439 ON TAP1 PASS NECE RING OUT FI 13 TAPi 

(LRECL 80 BLOCK 3200 RECFM FB ASCII PF4M FI ' 23 DISK DLOG DATA G (LRECL 80 

BLOCK 80 RECFM F PERM TAPE REW TAPE FSF 1 

H-27

User's Manual 

H .9 EY,AMrLE 

{%'FSCM - NECE 

Sa ;nDle input/output ( I/0) are given for each of the eight programs . The I/0 

sequence for 1•lIN D, VISCOUS, nE NSITY, CIRC and PRTVEL are for production Run 

21 -5 i .e . R ur-ner current z including wind, density and Loop Current forcing . 

I/0 for DE NSTAT are for suc^1nAr conditions and output is su mtaarized in Table 

6 .1 .1 . The sa mple run for SPAT generates the wind field for February-March 

1978 ( FSU data set) . 

H-28

WFSCM - NECE 

ProRrar.i WIND 

Sample Input 

WIND Example 

WIND_4 .0 M/S AT 120 DEGREES, RAMP TO 20 HRS 

&MISC IT0=7200C,i;fHETA=120 .,WT0=4 .0,IDTT=7200,MAXT=72000,LP=12,MP=24,&END 

Sample Output 

TIME=, 2 .000 SPEED= 0 .4000 

TIME=, 4 .000 SPEED= 0 .8000 

TIME=, 6 .000 SPEED= 1 .200 

TIME=, 8 .000 SPEED= 1 .600 

TTME=, 10 .00 SPEED= 2 .300 

TIME=, 12 .00 SPEED= 2 .400 

TIPE:=, 14 .00 SPEED= 2 .800 

TIME=, 16 .00 SPEED= 3 .200 

TIIfE=, 18 .00 SPEED= 3 .600 

TIME'=, 20 .00 SPEED= 4 .000 

TINE=, 0 .1000E 33 SPEED= 4 .000 

H-29

_ _ . . . • ._ . . • ~ 

Sample VISCOUS Input WFSCM - f+ECE .. 

Pro7ram VISCOUS 

Sample Input 

WFSCM - CB- .00025, BETA PLAIvE,KP_4,CK=0 ., .2, .4,1 .,NVM_ .03HI200,PIVL= .003H/200 

&MISC DL=30000,JP-3,KP=4,LP=12,N!P-24,NS_20,CONrN= .FALSE .,NUCHG-1,&END 

&CORIO FXY- .TRUE .,PHI-23 .5,THETA_65 .,&END 

&DEPTH Ho 200,200,150,140,90,60,6*0, 

200,200,150,140,90,~0,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,^, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,130,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,~!@,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,60,50,30,25,15,10,0, 

200,200,150,140,90,7*0, 

&END 

&FRICT CB=288*0 .00025,&END 

&EDDYL NODIN- .TRUE ., 

CK= 

., 

0, .2, .4,1 .,0, .2, .4,1 .,0, .2, .4,1 .,0, .2, .4,1 .,0 .2, .11,1 .,0 .2, .4,1 ., 

0,.2, 2, 4,1 .,0, 2, .~#,1 .,0, .2, .~1,1 ., 

H-3o 

} 

, 

~ 

E

WFSCM - YSECE 

0 

Sample VISCOUS Input 

0,•2, .4,1 .,0, .2, .4,1 .,0, .2, .4,1 .,G, .2, .4,1 .,0, .c, .4,1 .,C, .2, .4,1 ., 

0, .2,•4,1 .,0, .2,•4,1•,0,•2, .4,1 .,0,•2, .4,1 .,0,,2,•4,1 .,0,•2, .4,1 ., 

0, .2, .4,1 .,0, .2, .4,1 .,0, .2, .4,1 .,0, .2,,4,1,,0, .2, .4 1 . 0 2 4 1 . 

.4 1 0 ~ 

&ET; D 

&i.i,yVIS EDDYSc .FAESE .,F,DDi'Tc .FALSE .,E?IME_1 .E32,nEY!r'J=1Z,,HA2-,005, 

EDDYL'= ,o3,•G3, .C03, .003j•03,•o3, .CC3, .o^?, 

•023,•023, .0023, .OC13,,0 .f3,,023,•0023,•002 :,, .015, .015, .0015, .00i5, 

.007,•007, .0007, .0007, .007,,007, .0007, .0007, 

.003, .003, .0003,•00o3,•n03, .c03,•o003, .0003, .0015,,G015,,00015, .00015, 

.0015, .0015, .0fl015, .00015, .0015, .0015, .0C015, .00G15, 

.03, .03, .303, .003,•03, .03, .003j .0.o3, 

.023,•023,•0023, .,-J023, .o23,•C23, .0023,•0G23,•015, .015, .0015, .0015', 

.007, .007, .0007, .0007,•0"v7,•007,•0007,•0007, 

•0C3,,OC3,,0003, .U003, . ;,u3,•003,,00C+3,•0003,•0015,,001a,,00015,•00015, 

•0015,•0015, .00015, .0001y, .0015, .0015,•00015, .00015, 

.03,•03,•003, .003, .03,•03,•003,,003, 

H-31 

'-~4

a. 

Sample VISCOUS Input 6IFSCM - NECE 

.023, .02j, .0023 „ 0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

. 0 3, .03, .003, .003, .03, .03, .00?, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.00 7, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

. 0 3, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023 . . 0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .C03, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .000 7, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0 :) 03, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0 0 15, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, . 0 07, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00017, .00015, .0075, .0015, .00015, .00015, 

.0?, .03, .00j,, .G0 ;, .03, .03, .0 0 3, .0 0 3, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0017, 

.007, .0 0 7, .0 007, .0007, .007, .007, . 0007, .00 0 7, 

.003, .0C3, .0003, .0003, .0ct3, .003, .0003, .00o3 . .0n15, .0015, .00015, .00015, 

.0J15, .0015, .00015, .00 U 15, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023i .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .037, .0007, .0007, 

.003, .003, .0003, .0003, .003, . 0 03, .0oe3, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0î5, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .0; ;, .003, .0003, .0003, .0015, .00'5, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .0 0 3, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .R023, .0023, .0 -, 5, .015, .0015, .0015, 

.fJ07, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.0;, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .G23, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .00~13, .003, .OO3, .00 ;1 3, .0003, .0015, .0015, .00c 1 5, .00015, 

11-32

WFSCM - NECE Sample VISCOUS Input 

.0015, .0015 ; .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023,,0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, . ') 03, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00C15, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .00C3, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0001, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .C23, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .0C7, .0C07, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015 , .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .C03, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .0z3, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .G0015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .00~, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.003, .003, .0003, .0003, .003, .003, .0003, .0003, .C,C15, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00C~5, 

.03, .03, .C03, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

.007, .007, .0007, .0007, .007, .007, .0007, .0007, 

.0e3, .003, .0003, .0003, .003, .003, .0003, .0003, .0015, .0015, .00015, .00015, 

.0015, .0015, .00015, .00015, .0015, .0015, .00015, .00015, 

.03, .03, .003, .003, .03, .03, .003, .003, 

.023, .023, .0023, .0023, .023, .023, .0023, .0023, .015, .015, .0015, .0015, 

H-33 

~ 

a 

, 

.__ __ . .- . . __ . . .---------- -~------ • 

.4 

, 

.~ 

? 

i 

.; 

~ 

~ 

~A 

~ 

~ 

i 

~ 

~

. : - ; 

50 :~.~t - NnS3t9 Indul SQO OSIA ajdBES 

'S1000``SL000'`SlGO''S100''SL000'`S1000'`S100'`5L00 * 

'SL000'`St000•'SlGO'`S100'`£G00''cOCO'ÈOU''£CO'`£CGO''cC00''£00'`£00' 

`LGGo''Looo'`L0o•'L0o•'LooG•'Looo''LO0•'LOO• 

G .' .Hv 

'S1000''r-LOCO''c,100•`S100''4LGo0''SL'JGO''S100''SLC'J' 

`S1000'`51OG0'`SL00''SIGG''£00!~''£OGO'`£00''£00'`£000''~000'`£CO''£CG' 

' :.oco''L0o0•'LO0•`L00•`!.000'`~GOG•'~0G''Le0• 

`S100''SL00''S10''Sl0'`zZCC'`£Zv0'`£ZO''t

WFSCH - NECE Sample VISCOUS Output 

. . . s s ~ ~ ~ ~ 

• ~ ~ ~ ~ ~ 

CAL :VERSION 7- JULY * 4, 1982 - REV I . nA 

- PROORAMI 

VISCOU9 * # 

----------------------------- 

--•----- ----------- -------- 

. 

• ∎ ~ . 

• 

• 

∎ 

1 

s • . . . 

WFSCM - CB_ .00025, BETA PLAnB ,KP_4,CKc0 ., .2, .4,1 .,NVM= .03H/200,NVL : .003H/200 

JP-3 KPc4 LP=12 MP=24 DL= 0 .300E 05 

LATITUDE M GRID ORIOIN_24 . DEG 

BETA-PLANE APPROXIMATION USED - ANGLE BETWEEN X-AXIS AND TRUE MOPTH- 65 . 

1 

∎ ~ . ~ . ~ 

STILL WATER DEPTK4 IN METERS FOLLOW : 

-Y- 

_ °- 

24 

1 

-- 

200 . 

2 

-- 

200 

3 

- - 

150 . 

4 

-- 

140 . 

X DIRECTION 

,5 

-- 

90 .0 

6' 

-- 

0 .0 

7 

-- 

0 .0 

8 

-- 

0 .0 

9 

-- 

0 .0 

10 • 

0 .0 

23 

22 

200 . 

200 . 

200 . 

200 . 

150 . 

150 . 

140 . 

140 . 

90 .0 

90 .0 

60 .0 

60 .0 

50 .0 

50 .0 

30 .0 

30 .0 

25 .0 

25 .0 

15 .0 

15 .0 

21 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

20 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

19 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

18 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

17 200 . 200 . 150 . )40 . 90 .0 . 60 .0 50 .0 30 .0 25 .0 15 .0 

16 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

15 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

14 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

13 200 . 200 . 150 . 740 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

12 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

11 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

10 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

9 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

8 200 . 200 . 150 . 1e0 . 90 .0 60 .0 50 .0 30 .0 25 .0 1 ; .0 

7 200 . 200 . 150 . 1110 . 90 .0 60 .0 50 .0 30 .0 25 .0 15 .0 

6 200 . 200 . 150 . 140 . 90 .0 60 .0 50 .0 30, .0 25 .0 15 .0 

/I - 35 - 

` 

- .~

Sample YISCOUS Output 

5 200 . 200 . 1 S0 . 140 . 

4 200 

90 .0 

. 

60 .0 

• 200 . 

50 . 0 

150 . 140 . 90 .0 . 

3 200 . 

60 .0 

200 . 

50 .0 

150 . 140 . 

2 200 

90 .0 

. 

60 .0 

200 . 

150 50 .0 

. 

140 . 

1 

90 .0 

200 . 

60 .0 

200 . 

50 .0 

150 . 140 . 90 .0 60 .0 0 .0 

CONTINUED FROM PREVIOUS PAGE 

-i- 

-- 

24 

11 

0 .0 

12 

0 .0 

13 

-- 

14 

-- 

X DIRECTION 

15 16 

-- 

17 

23 

22 

21 

20 

10 .0 

10 .0 

10 .0 

10 .0 

0 .0 

0 .0 

0 .0 

0 .0 

19 

18 

- 10 .0 

10 .0 

0 .0 

0 .0 

17 10 .0 0 .0 

16 10 .0 0 .0 

15 

14 

10 .0 

10 .0 

0 .0 

0 .0 

13 10 .0 0 .0 

12 

11 

10 

10 .0 

10 .0 

10 .0 

0 .0 

0 .0 

0 .0 

9 

8 

10 .0 

10 .0 

0 .0 

0 .0 

7 

6 

10 .0 

10 .0 

0 .0 

0 .0 

5 10 .0 0 .0 

4 10 .0 0 .0 

3 

2 

10 .0 

10 .0 

0 .0 

0 .0 

1 0 .0 0 .0 

H-36 

NFSCN - NECE 

30 .0 25 .0 15 .0 

30 .0 25 .0 15 .0 

30 .0 25 .0 15 .0 

30 .0 25 .0 15 .0 

0 .0 0 .0 0.0 

18 19 20 

, -~

YFSCH - ReCa 

THE LAYER DEPTH.S FOR THE EDDY VISCOSITY FOLLOW (Ri)9DIf'F.tiSI0t7A1.) : 

X DIRECTION 

-T- 1 2 3 4 5 

24 0 .0 0 .0 0 .0 0 .0 0 .0 

24 0 .200 0 .200 0 .200 0 .200 0 200 

24 0 .400 0 .400 0 .400 0 .40 .1 Oj 400 

24 1 .00 1 .00 1 .00 1 .00 1 .00 

23 0 .0 0 .0 0 .0 0 .0 0 .0 

23 0 .200 0 .200 0 .200 0 .200 0 .200 

23 0 .400 0 .4^0 0 .400 0 .400 0 .400 

23 1 .00 1 .00 1 .00 1 .00 1 .00 

22 0 .0 0 .0 0 .0 0 .0 0 .0 

22 0 .200 0 .200 0 .200 0 .200 0 .200 

22 0 .400 0 .400 . 0 .400 0 .400 0 .400 

22 1 .00 1 .00 1 .00 1 .00 1 .00 

21 0 .0 0 .0 0 .0 0 .0 0 .0 

21 0 .200 0 .200 0 .900 0 .700 0 .200 

21 0 .4CO 0 .400 0 .400 C .400 0 .400 

21 1 .00 1 .00 1 .00 1 .00 1 .00 

20 0 .0 0 .0 0 .0 0 .0 0 .0 

20 0 .P00 0 .200 0 .200 0 .200 0 .200 

20 0 .400 0 .400 0 .400 0 .400 0 .b00 

20 1 .00 1 .00 1 .00 1 .00 1 .00 

19 0 .0 0 :0 0 .0 0 .0 0 .0 

19 0 .200 0 .200 0 .ZC0 0 .200 0 .200 

19 0 .400 0 .400 0 .400 0 .400 0 .400 

19 1 .00 1 .00 1 .00 1 .00 1 .00 

18 0 .0 0 .0 0 .0 0 .0 0 .0 

i8 0 .200 0 .200 0 .200 0 .200 0 .200 

18 0 .u00 0 .400 0 .400 0 .400 0 .400 

18 1 .00 1 .C0 1 .00 1 .00 1 .00 

17 0 .0 0 .0 0 .0 0 .0 0 .0 

17 0 .200 0 .200 , 0 .200 0 .200 0 .7(`0 

17 0 .400 0 .400 0 .400 0 .400 0 .400 

17 1 .00 1 .00 1 .00 1 .00 1 .00 

16 0 .0 0 .0 0 .0 0 .0 0 .0 

16 0 .200 0 .200 0 .200 0 .200 0 .200 

16 0 .400 0 .400 0 .400 0 .400 0 .400 

H-31 

Sam.ple VISCOUS Output 

6 7 8 9 10 

-- 0 -- -- -- -- 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 ' 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 •0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .0( 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .1100 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .2V0 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 . 1^00 

0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 . 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400

SaaK+le VISCOUS OUCpuE' 

WFSQ1 - NEC6 

1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 . Z00 0 .200 0 .200 0 .200 0 .200 0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .1100 0 .400 . 0 .1100 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 , 1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .230 0 .700 0 .200 0 .200 0 .200 0 .2c0 0 .

MFSCN - NECE 

0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .1100 

1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 

• 

-Y- 11 

CONTINUED FRCM PREVIOI'S PACE 

R DIRECTION 

12 13 14 15 16 

--- 

24 

-- 

0 .0 

-- -- -- -- -- 

0 .0 

24 0 .200 0 .200 

24 0 .400 0 .400 

24 1 .00 1 .00 

I Sample VISCOUS Output 

0 .1100 0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 0 .200 

0 .1100 0 .400 0 .400 0 .h00 0 .4C0 6 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 u .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 0 .200 

0 . b 00 ^ 400 0 .1100 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .200 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 1 .00 1 .00 1 .00 1 .00 

0 .0' 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .200 0 .200 0 .200 0 .c'00 0 .200 0 .200 

0 .400 0 .400 0 .400 0 .400 0 .400 0 .400 

1 .00 1 .00 - 1 .00 1 .00 1 .00 1 .00 

H-39 

17 18 19 20 

. 

I

~,~ 

Sample VISCOUS Output 

.23 0 .0 0 .0 

23 0 .200 0 .200 

23 0 .400 0 .400 

23 1 .00 1 .00 

22 0 .0 0 .0 

22 0 .200 0 .200 

22 0 .400 0 .400 

22 1 .00 1 .00 

21 0 .0 0 .0 

21 0 .200 0 .200 

21 0 .400 0 .400 

21 1 .00 1 .00 

20 0 .0 0.0 ~ 

20 0 .200 0 .200 

20 0 .400 0 .400 

20 1 .00 1 .00 

19 0 .0 0 .0 

19 0 .200 0 .200 

19 0 .400 0 .400 

19 1 .00 1 .00 

18 0 .0 0 .0 

18 0 .200 0 .200 

18 0 .400 0 .400 

18 1 .00 1 .00 

17 0 .0 0 .0 

17 0 .200 0 .200 

17 O .4oo 0 .400 

17 1 .00 1 .00 

16 0 .0 0 .0 

16 0 .200 0 .200 

16 0 .1100 0 .400 

16 1 .00 1.00 • 

15 0 .0 0 .0 

15 0 .200 0 .200 

15 0 .400 0 .400 

15 1 .00 1 .00 

14 0 .0 0 .0 

14 0 .200 0 .200 

P 0 .400 0 .400 

8-40 

xs'Sat -'Ner,e 

. . , ,T .T .

YFSCM - NECE 

14 

13 

13 

13 

13 

12 

12 

12 

12 

11 

11 

11 

11 

10 

10 

10 

10 

9 

9 

9 

9 

9 

1 .00 1 .00 

0 .0 . 0 .0 

0.200 0 .200 

0.400 0 .400 

1 .00 1 .00 

0.0 0 .0 

0.200 0 .200 

0 .400 0 .400 

1 .00 1 .00 

0.0 0 .0 

0.200 0 .200 

0.400 0 .400 

1 .00 1 .00 

0.0 0 .0 

0.200 0 .200 

0 .400 0 .400 

1 .00 1 .00 

0.0 0 .0 

0 .200 0 .200 

0 .400 0 .400 

1 .00 1 .00 

0.0 0 .0 

0.200 0 .200 

0 .400 0 .400 

1.00 1 .00 

0.0 0 .0 

0 .200 0 .200 

0 .400 0 .400 

1 .00 1 .00 

0.0 0 .0' 

0 .200 0 .200 

0 . 1100 0 .1100 

1 .00 1 .00 

0.0 0 .0 , 

0 .200 0 .200 

0 .400 0 .400 

1 .00 1 .00 

0.0 0 .0 

0.200 0 .200 

N-41 

Sample VISCOUS Output


FRII 7101; COEFFIi :IENTS lM/SEI 

-T- 

~ 24 

23 

j 22 

21 

20 

19 

18 

17 

16 

15 

in 

13 

12 

11 

4 0 .400 0 .400 

4 1 .00 1 .00 

3 0 .0 

0 .0 

3 0 .200 0 .200 

3 0 .400 0 .400 

3 1 .00 1 .00 

2 0 .0 0 .0 

2 0 .200 0 .200 

2 0 .400 0 .1100 

2 1 .00 1 .00 

1 0 .0 0 .0 

1 0 .200 0 .200 

1 0 .400 0 .400 

1 1 .00 1 .00 

1 

0 .250E-03 

0.250E-0 ; 

0 .250E-03 

0 .250F.-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0•250E-03 

0 .250E-03 

0 .250E-03 

0 .250Z-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

2 

0 .250E-03 

0 .25-~"-03 

• 0 .25aa••03 

0 .2501:-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250C-C3 

0 .250E-03 

0 .250E-03 

0 .2506-03 

0 .250E-03 

0 .250E-03 

3 

0 .250E-03 

0 .250!!-03 

0 257E-03 

0 .~5 :E-03 

0 . 250i:-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

I DIRECTION ~ 

4 5 6 7 

0 .25 ! E-03 0•250E-03 0 .250E-03 0 .250E-03 

0 .25cE-03 0 .250E-03 0 .250E-03 0 .250E-03 

0 .250E-03 0 .25CE-03 0 .25CE-03 0 .250E-03 

0 .250e-03 0 .250?-03 0 .250E'-03 0 .250E-03 

0 .25CE•-03 0 .'e5O :-03 0 .250E-03 0 .250C-03 

0 .250E-03 0 .250E-03 0 .250E-03 0•250E-03 

0 .250E-03 0 .250E-03 0 .250@-03 0 .250E-03 

0 .250E-03 0 .250E-03 0 .250E-03 0 .250E-03 

0 .250E-03 0 .250"-03 0 .2°0E-03 0 .250 Z-03 

0 .250E-03 0 .2-a0;:-03 0 .250E-03 0 .25 C E-03 

0 .250E-03 0 .250E-03 0 .250?-03 0 . 2 50E-03 

0 .25 0F-03 0 .2 ;0E-03 0 .2:0?-03 0 .250E-03 

0 .25CE-03 0 .250?-03 0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 0 .250E-03 0•250E-03 

H-42 

8 

0 .250E-03 

0 .250e-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .25CS-03 

0 .250F-03 

0 .250a-03 

0 .250H-03 

0 .250E-03 

0 .250F.-03 

0 .250E-03 

MFSCM - NECE 

9 10 

0 .250E-03 0 .2508-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250,-03 

0.250E-03 0.2,0c-03 

0 .250E-03 0 .230E'-03 

0 .250F.-03 0 .250 3 -03 

0 .250E-03 0 .2501'.-03 

0 .250E-03 0 .250E-02 

0 .250E-03 0 .2 5 0E-03 

0 .250E-03 0 .25'JZ-03 

0 .250E-03 0 .25CE-03 

0 .250E-03 0 .250"-03 

0 .250E-03 0 .25 CE-03 

0 .250E-03 0 .250E-03

UFSCM - NECE 

10 0 .250E-03 

9 0 .250Z-03 

8 0 .250E-03 

7 0 .250E-03 

6 0 .250E-03 

5 0 .250E-03 

4 0 .250E-03 

3 0 .250E-03 

2 0 .250E-03 

1 0 .250E-03 

-x- 

24 

23 

22 

21 

20 

19 

t8 

17 

16 

15 

14 

13 

12 

• 11 

10 

9 

8 

7 

6 

5 

4 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .25CE-03 

0 .250E-03 

0.250E-03 

0 .250E-03 

0 .250E-03 

11 12 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .2505-03 

0 .25CE-03 0 .250L-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .25 0 E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 . 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

0 .230E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .2509-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .25 1 E-03 

0 .250E-03 0 .250E-03 

0 .2508-03 0 .2505-03 

0 .250E-03 0 .2 3 0E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250F.-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250°-03 

0 .25CE-03 

0 .25CE-03 

0 .250S -03 

0 .250E-03 

0 .25CE-03 

0 .250E-03 

0 .2'a0E-03 

0 .250n-03 

0 .250E-03 

0 .250G-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .25oa-03 

0 .25 0 E-03 

0 .250E-03 

CONTINUED FROM PREVIOU.'3 PA,E 

X DIRECTION 

13 14 15 

N-43 

0 .250fi-03 0 .250E-03 

0 .250E-03 0 .250c-03 

0 .250i.-03 0 .250E-03 

0 .25~E-03 0 .2S-0£-03 

0 .250E-03 b .250E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .25 0 E-03 

0 .256E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

. 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .25ciE-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

0 .250E-03 

Sample YISCOUS Output 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .250E-03 

0 .250E-03 0 .25CB-03 

0 .250E-03 0 .250Z-03 

0 .250E-03 0 .?5 0 E-03 

0 .250E-03 0 .25CE-0 

0 .250E-03 0 .2502-e 

0 .250E-03 0 .250 C -03 

0 .250E-03 0 .250?-03 

0 .250E-03 0 .250E-03 

16 17 18 19 20

Sample VISCOUS Output ' 

3 0 .250E-03 0 .250E-03 

2 0 .25CE-03 0 .250E-03 

I 0 .250E-03 0 .250E-03 

9 4 1 0 a . 0 4 1 9 1 1 1 9 9 9 1 0 4 a 0 0 9 9 • 1 9 a 9 0 •• a a 0 a a a a• 0 0 

a 0 1 9 a 9 9 1 9 • a . 1 9 1 a 6 9 1 1 a 1 9 1 a 1 9 1 a 4 • 4 0 1 9 1 a a a a• 

/ TIME 11 •a••• HOURS / 

---------------------- 

HV (SQ MfS/SEC) : 

-7- I 

24 0 .300E-01 

24 0 .300E-01 

24 0 .300E-02 

24 0 .300E-02 

23 0 .300E-01 

23 0 .300E-01 

23 0,300E-02 

23 0.•300E-02 

22 •0 .3005-01 

22 0 .300E-01 

22 0 .300E-02 

22 0 .300E-02 

21 0 .300E-M 

21 0 .300E-01 

21 0 .300E-02 

2 

0 .300E-01 

0 .300E-01 

0 .3COE-02 

0 .300E-02 

0 .300 .°.-01 

0 .300E-01 

0 .300E-02 

0 .300E-02 

0 .300E-01 

0 .300E-01 

0 .300E-02 

0 .300E-0? 

0 .300E-01 

0 .3oor.-o 1 

0 .300E-02 

3 

0 .230E-01 

0 .230E-01 

0 .230E-02 

0 .230E-02 

0 .230E-01 

0 .230E-01 

0 .230E-02 

0 .230B-02 

0 .230E-01 

0 .230E-01 

0 .230E-02 

0 .230E-02 

0 .230E-01 

0 .230E-01 

0 .230E-02 

E DIl:ECTIOt 

4 5 6 

0 .230E-01 0 .150E-01 0 .700E-02 

0 .230E-01 0 .150E-01 0 .700E-02 

0 .230£-02 0 .350E-0:- 0 .700F-03 

0 .230P.-02 0 .150£-02 0 .700E-03 

0 .23CE-o1 0 .150E-01 0 .700£-02 

0 .230E-01 0 .150E-01 0 .70c2-02 

0 .230E-02 0 .150B-o2 0 .700E-03 

0 .230E-02 0 .150E-02 0 .700E-03 

0 .230E-01 0 .15Ê-71 0 .700E-02 

0.230E-01 0 .15CF,-01 0 .7003-02 

0 .230E-02 0 .150E-02 0 .70CE-03 

0 .230E-02 0 .1 ;0E-02 0 .700E-03 

0 .230E-01 0 .150£-01 0 .7(f0E-02 

0.230E-01 0 .150E-01 0.7COE-02 

0 .230E-02 0 .150E-02 0 .700E-03 

H-44 

7 

0 .700E-02 

0 .10^R-02 

0 .700E-03 

0 .700E-03 

0 .70UE- 0 2 

0 .700E-02 

0 .700E-03 

0 .700E-03 

0 .700E-02 

0 .700P,-C2 

0 .700E-03 

0 .700E-03 

0 .700E-02 

0 .700E-02 

0 .700F.-03 

8 

0 .300E-02 

0 .300E-02 

0 .307E-03 

0 .30OE-0.3 

0 .30J'.:-02 

0 .300E-02 

0 .300E-03 

0 .30]8-03 

0 . ;00£-02 

0 .300E-07 

0 .30 P E-03 

0 .300E-03 

0 .300E-02 

0 .300E-02 

0 .300E-03 

MFSCM - NECE 

9 10 

0 .300E-02 0 .150E-02 

0 .300t-02 0 .150E-02 

0 .300E-03 0 .151 e-03 

0 .300E-03 0 .15 09-A 

0 .3 10E-02 0 .150E-02 

0 .300E-02 0 .150.-C2 

0 .300E-03 0 .1502 -03 

0 .300E-03 0 .15 0E-03 

0 .300E-02 0 .15 0F -02 

0 .300E-02 0 .1 5 OE-02 

0 .300E-03 0 .15cE-03 

0 .300E-03 0 .150E-03 

0 .300E-02 0 .15CE-02 

0 .300 1-02 0 .150r;- D 2 

0 .300E-03 0 .150E -03

IiFSQ( - NECE 

0 .300E-02 0 .300E-02 0 .230E-02 

0 .300E-01 o .3Ce%-01 0 .230E-01 

0 .?GOE-01 0 .3COE-01 0 .230E-01 

0 .3oi)E-02 0 .300E-02 0 .230E-02 

0 .3CG2-02 0 .30CE-02 0 .230E-02 

0 .?O0E-01 0 .300E-01 0 .230E-01 

0 .300E-01 0 .30GE-o1 C . ; 30E-01 

0 .30JE-02 0 .3^0E-02 0 .230E-02 

0 .30CE-02 0 .300Z-02 0 .?.3CC-02 

0 .3'30E-01 0 .300E-01 0 .230E-01 

0 .300E-01 0 .300E-01 0 .230E-01 

0 .300E-02 o .3iiCE-02 0 .230E-02 

0 .300E-02 o .300C-02 0 .230E-02 

0 .300E-01 0 .30op-01 0 .230E-01 

0 .300E-01 0 .300E-01 0 .230e:-01 

0 .300E-02 d.joÊ-02 0 .230('-02 

0 .300E-02 0 .300E-02 0 .230E-02 

o .3C0E-01 0 .30vE-01 0 .230E-01 

0 .3COF.-o1 0 .3005-01 0 .2307-01 

0 .300E-02 b .300°-02 40 .2306-02 

0 .300E-e2 0 .300E-02 0 .230E-02 

0 .300E-01 0 .300E-01 0 .230E-01 

0 .300E-01 0 .300P,-01 0 .230E-01 

0 .300E-02 0 .300E-02 0 .230E-02 

0 .300E-02 0 .300E-02 0 .230E-02 

0 .300E-01 0 .3:JCE-01 0 .230E-01 

0 .300E-01 0 .300E-01 0.236P.-01 

0 .300E-02 0 .300E-02 0 .230E-02 

0 .3oC3-Q2 0 .300E-02 0 .23Ce-02 

0 .3006-01 0 .300C-01 0 .230E-01 

0 . 300E-01 0 .300E •-01 0 .230E-01 

0 .300E-02 0 .300E-02 0 .230E-02 

0 .3006-02 0 .300L-02 0 .230E-02 

C .230E-02 

(1 .23 0 E-01 

0 .230E-01 

0 .2?"~-02 

~1 .230?!-01 

0 .23~ .-01 

0 .23 .jE-02 

0 . :31 E-02 

0 .2; IM -C1 

0 .23 oE-01 

0 .230 :-02 

0•? NIE-02 

0 .i30E-01 

0 .e"3CE-01 

0 .23^'-02 

0 .230:-02 

0 .230E-01 

0 .230R-01 

0 .2300-02 

0 .230E-02 

0 .230E-C/ 

0 .23^C-01 

0 .230E-02 

0 .230+T-02 

0 .23 V E-01 

0 .23 0 E-01 

0 .230e-02 

0 .230E-02 

0 .23C E-o1 

0 .2 ; -I "-01 

0 .2 )P">-02 

0 .230 Z - 0T 

0 .1508-02 0 .700E-03 0 .700E-03 

0 .154Z-01 0 .700E-02 0 .70CE-02 

0 .15':EA 1 0 .7rnD-02 0 .700E-02 

0 .1 : :'r'.- 11


0 .300E-01 0.300E-01 

0 .300E=02 0 .300E-02 

0 .300E-02 0 .300E-02 

0 .300E-0 1 0 .300E-01 

0 .300E-01 0 .300E-01 

0 .300E-02 0 .300E-02 

0 .300E-02 0 .30 OZ -02 

0 .30 0E-01 0 .300E-01 

0 .30DE-01 0 .300E-01 

0 .300B-02 0 .300F-02 

0 .300E-02 0 .300E-02 

0 .300E-01 0 .300E-01 

0 .30tE-01 0 .300B-01 

0 .300E-02 0 .300E-02 

0 .300E-02 0 .300E-02 

0 .300E-01 0 .300E-01 

0 .300E-01 0 .300C-01 

0 .300E-02 0 .300E-02 

0 .3 00E-02 0 .300E-02 

0 .300E-01 0 .3 0 0E-01 

0 .300E-01 0 .300E-01 

0 .300E-02 0 .300E-02 

0 .300E-02 0 .300E-02 

0 .300E-01 0 .30 3 E-01 

0 .300E-01 0 .300E-01 

0 .300E-02 0 .300E-02 

0 .300E-02 0 .3008-02 

0 .300E-01 0 .300E-01 

0 .3COE-01 0 .300E-01 

0 .300E-02 0 .300E-02 

0 .300E-02 0 .300E-02 

0 .300E-01 0 .300E-01 

0 .300E-01 0 .300E-01 

0 .300E-02 0 .300E-02 

0 .300E-02 0 .300E-02 

0 .300 E-0E-03 0 .3001 

0 .300E-01 0 .300E-01 

0 .300E-01 0 .300E-01 

0 .300E-02 0 .300E-02 

0 .230E-01 

0 .230P.-02 

0 .230F.-02 

0 .230E-01 

0 .230E-01 

0 .230 E -02 

0 .230E-02 

0 . 23!JE-01 

0 .c^30E-01 

0 .230E-02 

0 .230E-02 

0 .23?E-01 

0 .230F.-01 

0 .230E-02 

0 .2305-02 

0 .230F.-01 

0 .230E-01 

0 .230E-02 

0 .230E-02 

0 .230E-01 

0 .2306-ot 

0 .2306-02 

0 .230E-02 

0 .230E-01 

0 .230E-01 

0 .230E-02 

0 .230E-02 

0 .230E-01 

0 .230E-01 

0 .230E-02 

0 .230E-02 

0 .230E-Ot 

0 .230F.-01 

0 .230F.-02 

0 .230F-02 

-03 0 .1501 

0 .230E-01 

0 .230E-01 

0 .230F-02 

0 .230E-01 

0 .230E-02 

0 .23Ê-02 

0 .2358-C1 

0 .23CE-01 

0 .230F-02 

0 .230E-02 

0 .2-30E-01 

0 .23 ;E-01 

0 .230E-02 

0 .230E-02 

o .2j0E-01 

0 .230E-01 

0 . 23 () a- 1)2 

0 .23 q E-02- 

0 . 23 0 F.-01 

0 .2?0E-01 

0 .230E-02 

0 .2303-02 

0 .23 0 4--01 

0 .230E-01 

0 .230E-02 

0 .230E-02 

0 .23nE-01 

0 .230E-01 

0 .230E-02 

0 .230F,-02 

0 .23 0 0-01 

0 .230F.-01 

0 .230E-02 

0.23oF-02 

0 .230E-01 

0 .230E-0 1 

0 .230F•-02 

0 .230F.-02 

:-03 

0 .230E-01 

0 .230E-01 

0 .230n-02 

0 .15CE-01 0 .700F-02 

0 .150E-02 0 .700E-03 

0 .150E-02 0 .S00B-03 

0 .154°-01 0 .70n7 -02 

0 .15Ce.-01 0 .7 ' JE-02 

0 .150-c-02 0 .707E-03 

0 .15^ 7-02 0 .700F.-03 

0 .1 50E-01 0 .700E-02 

0 .150E-01 0 .700E-02 

0 .150E-02 0 .7JnF-03 

0 .1 5 07-02 0 .700 7 -03 

0 .15"c"•-0t 0 .70Ci.-02 

0 . Mr-01 0 .70! F-02 

0 .t5o C-02 0 .700E-03 

0 .150':-N 0 .7ca,?-03 

0 .1 1CG-O1 0 .q00z'-C2 

0 . 15 1-E-01 0 .7 0Ê-02 

0 .150E-G2 0 .70i1'-03 

0 .15 GE-02 0 .700E-03 

0 .150E-01 ' 0 .70C5-02 

0 .1503-01 0 .70nE-02 

0 .1 ;OZ-02 0 .70CE-03 

0 .15 9 .^•.-02 0 .70UE-03 

0 .150E-01 0 .700F-02 

0 .150E-01 0 .700E-02 

0 .15 3 r:-02 0 .700e-03 

0 .150E-02 0 .700 E -03 

0 .15JE-01 0 .70 D E-02 

0 .150E-01 0 .700F-02 

0 .150?-02 o .7o0F-03 

0 .150F,-02 0 .700F-03 

0 .150C-01 0 .700E-02 

0 .15pL-01 0 .70D E-02 

0 .15r,^-02 0 .700E-03 

0 .150E-02 0 .700F•-03 

0 .150E-01 0 .700E-02 

0 .150E-01 0 .700E-02 

0.15CE-02 0 .700F,-03 

n-n6 

0 .T00R,-C2 

0 .700E-03 

0 .700F-03 

0 .700E-02• 

0 .7 00E-02 

0 . 70!: r-03 

0 .T0UE-03 

0 .700E-02 

0 .7CCE-02 

0 . 700F•-03 

0 .700E-03 

0 .700E-02 

0 .7!'0E-02 

0 .70CE-03 

0 .70^^-03 

0 .70 P E-02 

0 .70CE-02 

0 .70nE-03 

0 .7coF-03 

0 .700$-02 

0 .700E-02 

0 .T00E-03 

0 .70Ê-03 

0 .700E-02 

0 .100E-02 

0 . 7n .^-•E-03 

0 .70 OZ -03 

0 .70Cr.-02 

0 .100E-02 

0 .700E-03 

0 .700E-03 

0 .700E-02 

0 .700F-02 

0 .7C0F.-03 

0 .700F.-03 

0 .700P.-02 

0 .700F•-02 

0 .T00E-03 

0 .300E-02 

0 .300E-03 

0 .300F-03 

0 .300E-02 

0 .?0^F-02 

0 .300E-03 

0 .300E-03 

0 .30CP.-02 

0 . 30x-02 

0 .3C0F.-03 

0 .3 0 0E-03 

0 .3 0 0E-02 

0 .F0F-02 

0 .370E-03 

0 .30cE - -03 

0 .3COE-02 

0 .300C-02 

0 . 300F.-03 

0 .3oc~--03 

0 .300F--02 

0 .3CCE-02 

0 . 3eoE -03 

0 . 3ori••-03 

0 .30 :E-02 

f) .300E-02 

0 . 3o O e-03 

0 .3M -03 

0 .30Ê-0? 

0 .3COG-02 

0 .30 o E-03 

0 . T ^CE-03 

0 .30D-a-02 

0 .300r•.-o2 

0 .30nF-03 

0 .300E-03 

0 .300E-02 

0 .300E-02 

0 .300P.-03 

ItFii7/ - NECE 

0 .30GE-02 0 .150E-02 

0 .30 ')F.-03 0 .15CF-03 

0 .300a-03 0 .150E-03 

0 .300F.-02 0 .150i:-02 

0 .300E-02 0 .150.*.-C2 

0 .3COE-3 3 0 .192 -03 

0 .3(, 0E-03 0 .150 T -03 

0 .-)nCE-02 0 .15CE-0? 

0 .300F•-02 0 .1 ;0E-02 

0 . .3 09 F.-03 0 .150t-03 

0 . ~ 00 1 -03 0 .15cE-03 

0 .300F-02 0 .150E-02 

0 .300E-02 0 .150':-02 

0 . 100E-03 0 .15^"-03 

0 .300r-03 0 .15''E-0 3 

0 .30nt-02 0 .15cF.-02 

0 .300i-02 0 .150F.-^2 

0 .3002-03 0 .150'-03 

0 .300E-03 0 .15 0 "-03 

0 .30'E-12- 0 .150 7 -02 

0 .300E-C2 0 .15^•L-02 

0 .330E-03 0 .1"!);r-03 

0 .3 10'e-03 0 .15Cc-03 

0 .30OE-02 0 .15GE-02 

0 .3008-02 0 .150C-^2 

0 .300E-03 0 .15,,E-03 

0 .300E-03 0 .1~)F-03 

0 .30UF-02 0 .150E:-0 

0 .300F.-0.- 0 .1 ;CE-02 

0 .300E-03 0 .1502-03 

0 .3o0r 03 0 .15ar-03 

0 .300E-02 0 .150r-02 

0 .300E-02 0 .1 5 0E-9 2 

0 .300E-03 0 .150F-03 

0 .300F-03 0 .150F-03 

0 .?CnE-02 0 .150E-02 

0 .300E-02 0 .150E-02 

0 .300E-03 0 .150a-03

6'FSCN - NECE Sample VISCOUS Output 

2 0 .3006-02 0 .300E-02 0 .230E-02 0 .230E-02 0 .150E-02 0 .7COE-03 0 .700E-03 0 .300E-03 0 .300E-03 0 .150E-03 

I 0 .300E-01 0 .300E-01 0 .230E-01 • 0 .230Z-01 0 .150E-01 U .700E-02 0 .700E-•02 0 .300E-02 0 .300E-02 0 .150E-02 

1 0 .300E-01 0 .300E-01 0 .2305-01 0 . :•30E-01 0 .150?-01 0 .700E-02 0 .700E-02 0 .300E-02 0 .300E-02 0 .150E-02 

1 0 .300E-02 0 .300E-02 0 .230E-02 0 .230E-02 0 .150E-02 0 .70GE-03 0 .700E-03 0 .300E-03 0 .300E-03 0 .150E-03 

1 0 .300E-02 0 .300E-02 0 .230E-02 0 .230E-02 0 .150E-02 0 .700E-03 0 .700E-03 0 .300E-03 0 .300E-03 0 .150E-03 

CONTINUED FROH PREVIOUS PACE 

X DIP.E•..7ION 

-T- 11 12 13 14 15 16 

24 0 .150E-02 0 .150E-02 

24 0 .150E-02 0 .150E-02 

24 0 .150E-03 0 .150E-03 

24 0 .150E-03 o .i°_oE-03 

23 0 .15CE-02 0 .150E-02 

23 0 .150E-02 0 .150E-02 

23 0 .150E-03 0 .150E-03. 

23 0 .15(+E-03 0 .150E-03 

22 0 .150E-02 0 .150E-02 

22 0 .150E-02 0 .150E-02 

22 0 .150E-03 0 .150E-03 

22 0 .150E-03 0 .150E-03 

21 0 .150E-02 0 .150E-02 

21 0 .150E-02 0 .150E-02 

21 0 .150E-03 0 .150E-03 

21 0 .150E-03 0 .150E-03 

20 0 .150E-02 0 .150E-02 

20 0 .15GE-G2 0 .150E-02 . 

20 0 .150E-03 0 .15cE-03 

20 0 .150E-03 0 .150E-03 

19 0 .150E-02 0 .150 E-02 

H-47 

17 18 19 20 

_ . . . . . .. ~ . w~ .:e .,_ . . . . .. ..~. . . . . .. . .. . . s: 

~• - . . . . . . . . . . . ~. - .. . . .. .. . . .. .. . .- . . . ...~. . . .. . . . 

~. . .. . : .. .. . .. . . . . . . ..~ . . ._a . .~. . . . :,,. . .,a.-. ... . . . . . .~ . ...._. ,~ - .. ._. . . . .• . . . . ., . . . . 

1rrµ ..nn,_ .. . . .v .« . . . .. . . . . .. . . . . . . . . . . .. ... . - 

. . 

. .

-r----. _ . . _ . . . . _----- . .--- - . 


0 .150E-02 0 .150E-02 

0 .150E-03 0 .150E-03 

0 .150E-03 0 .1 5 OP.-03 

0 .150E-0? 0 .15 0E-02 

0 .150E-02 0 .150P-02 

0 .150E-03 0 .1 5 0E-03 

0.150E-03 0 .15 0P.-13 

0 .150E-02 0 .15oF-02 

0 .150E-0? 0 .150R-02 

0 .15 CE-03 0 .150E-03 

0 .1501;-03 0 .150E-03 

0 .150E-02 0 .1501'.-02 

0 .150F'.-02 0 .150r'.-02 

0 .150Z-03 0 .1506-03 

0 .1 5 0 9 -03 0 .1 50P.-03 

0 .150 9-02 0 .150E-02 

0 .150E-02 0 .150E-02 

0 .150E-03 0 .150E-03 

0 .150E-03 0 .150E-03 

0 .150F.-)2 0 .150F.-02 

0 .150E-02 0 .150Z-02 

0 .150E-03 0 .150E-03 

0 .150F.-03 0 .150E-0 3 

0 .150E-02 0 .1502 -02 

0 .150E-02 0 .150E-02 

0 .150d-03 0 .1508-03 

0 .150E-03 0 .150E-03 

0 .150E-02 0 .150E-02 

0 .150E-02 0 .150E-02 

0 .150E-03 0 .150 7 -03 

0 .150E-03 0 .150E-03 

0 .150 3-02 0 .150F.-02 

0 .150E-02 0 .1508-02 

0 .150E-03 0 .150 7 -03 

0 .150E-03 0 .150E-03 

0 .1S0E-02 0 .150E-02 

0 .1509-02 0 .150E-0 7 

0 .150E-03 0 .150 E -03 

0 .1501'.-1D3 0 .150E-03 

H-48 

VPSC21 - N£CE

~ i.FSQt - NEM 

! 

9 0 .150E-02 0 .1 5 0E-02 

9 0 .150E-02 0 .150E-02 

9 0 .150E-03 0 .150E-0 3 

9 0 .150E-0 3 0 .150E-Q3 

8 0 .150E-02 0.150E-02 

8 0 .150E-02 0 .150E-02 

B o .150E-03 0 .150£-03 

8 0 .150F.-03 0 .1509 -03 

7 0 .150E-02 0 . 1 50 F.-02 

7 0 .1508-02 0 .150E-02 

7 0 .150E-03 0 .15cE-03 

7 

0 .150E-03 0 .150F.-03 

6 0 .150E-02 0 .15or- 02 

6 0 .150E-02 0 .wE-02 

6 0 .150E-03 0 .150 E-09 

6 0 .1508-03 0 .150$-03 

5 0 .150F-02 0 .1508-02 

5 0 .150 9-02 0 .150E-02 

5 0 .150E-03 0 .150E-03 

5 0 .150E-03 ' 0 .150R-03 

4 0 .1;0E-02 0.1506-02 

1 0 .150E-02 0 .150E-02 

4 0 .150E-03 0 .150 E-03 

4 0 .150F-03 0 .15UE-03 

3 0 .150F-02 0 .150E-02 

3 0 .150E-02 0 .150e-02 

3 0 .150E-03 0 .1 509 -0 3 

3 0 .150E-03 0 .150E-03 

2 0 .150E-02 0 .150 9 -02 

2 0 .150E-02 0 .150E-02 

2 0 .150S-03 0 .150E-0j 

2 0 .150E-03 0 .150E-03 

I 0 .150E-02 0 .150E-02 

1 . 0 .1r0F.-02 0 .150E-02 

1 0 .150r-03 0 .150B-07 

1 0 .1508-03 0 .150E-03 

~ Se mple YISCO7S Output 

I 

F'-44

NN~JNNNNNNNNNN NNI 1 ~ 

.p .o .o 000-r rN NNwww aD R ; . I t 4 

~ 

S 

4 . 

r V ar~)arV a r V arr br J D+V Q+~1 ar V a r J a r < 

M 

II Q R a a S C f~. t D D R R R R a t t C K 3 a D C R R a 3 b R b 1 

(/1 

mWVIOlWVIPWb'1PWVI[OWVIGOtWVI(DWVImWVImWVImWVI01/ r 

(] 

W'LO. 

C 

V 

c 

~ 

rVarJrrvsr~ar~srVSrVRrVar-la ..~lar 

etrs aasa~+rsrrao ao soar sr~a e ar 

v a aa t 

mWVfO1W~7.~ :YV/GOIWVImW~71C1Wb9aWVJqOWNdWV1 .71WV7m/ N 

rV a rV a~.y a rV arV ar~J arva rV ar V d~i ar 

. . . . . . . . . . . . . . . . . . . . . . . . • . . .71 . . . 

3 a II R a a R a a a a R a b II d i R a .R : D D 3 Q R a tr II R a ( 

CY W VI CO W NI f71 W NI m W N m W VI m W N m W VI m W V1 0 W VI m W Vl m/ W 

rv ar~ii~.~.l arJar ..l ar --/ RrJ rr~I?r~1 a .. ~i R+ 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 

b G D a a r .T C a R R r Lr 2T ~ r a 3 a b a tr b t a R tr tr C r D 1 

V O W V O W V O W V 67 W^1 0 W V O W~J O W V O W J O W V O W~i 1 a 

rJ 1'rJarV d~.V T+V drV drV arJ Sr~i d r V ar „ 

tv 

C 2 O 6 A a t g i a 1T t a 1y n A t R i 3 a R 3 D tr C D d R t S i .~ 

~ V O W V O W~i O W V O W V O W V O W V O W V O W V O W~1 O W d / VI ja 

1 m 

rr 

0 

- ~ 

o O o 

r~i ar~iarv a+~la ..J arJ ar~7 d ..~larV a~. . 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . O O C 

JI V1 V1 V1 VI VI VI VI NI N VI V1 tn VI VI VI VI VI Vf VI UI V1 VI tn V1 VI tT N / 

O N r ON~.ON rONrON rONrONrO N-• ONrO 1 P 

O O O 

r~ar~ar~l Rr~ar~tar~s~~ar~tar~tar 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . O O O 

a 3 R D a a D a a a s a r a a R a R .C a b a D a a a 6 D 1 

.O PV .D PV•OPJ .OPV .O PV•D P~1 .0P+1 .0 PV .O P1 V 

O O O 

r ~/ Sr~/arV ar+i arV ar V II~V arV a r~l a-~ • 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . O O O 

\T V' '.A ~+1 VI VI VI JI VI N vl VI Vf VI VI l.'1 N VI VI VI lT VI V1 VI VI V1 VI VI / 

r(T:YrPWrPW+PWrp.WrPWrPWrC1WrPWr 1 m 

1 

/ .O 

O O O 

rJq .aJIIrV arVarV R ..Jary arVar~/a- 

. . 

. 

. . . . . . . • . . . . • . . . . . . . . . . . • O 9O 

~ .9 VI U1 VI NI VI V141 VI ~T VI Vf V1 VI Vi U1 VI VI L1 Vt VI VI V1 ~T lT ~JI VI V1 

O+ O O r OO~+ O U r O O r O O r O O r O O r O 0 r U O 

V1 

~ 

r~t ar~lIIrw Dr~larvar~larV Dr~ja rV d~. OO O 1 

O O O 1 _ ~ . 

iT i37 in ~N in i.'1 ~nin :n ~T ~n ~n VI VI V1 VI Vf VI V1N N VI Vf Vf V7 V1 tT VI 

r P W ~. P W r C/ . W r P W ~ P W r P W ~. P W r Q. W r P W~+ 1 O (~ . 

5 

~

~ aaMîn'^^^'ÔOOaa.o~ 

m m m A l'~ A 1010 ~O Un U%o .? a a M fr1 

m 

U U\ P9m U1 M m{f% Mm Ifl M m 1l1 Mm {(~ P1 

aaaaaaaaaa .zaaaara 

19 

Ar {.- .-,i l- ~ ar p. .r a r .~ si ti .- .r r 

o 

d .7?Saa aiT a??a?~ aa~ 

.=s p.. - ar- - irl- - arc- .-a e- ~r 

~ a .. ^ a A ~ a A^ a A ~ a A^ a l~ 

U'1 P'Im Y1 M m Vl M m Y1 Mm IfN TCD /AF1 

a aa aa iTa OS 3aCa Jaa ?a 

m IR M~ U1 f~1 ~ Ul f~l~ t!1 f lm If, Mm If\ 

! a a a a= a a ~ a r a a a a T a 

.=a~ r~se- -ae- - a t- - ~i i-- 

a aa~a aa aa aaca aasa 

. . . . . . . . . . . . . . . . . 

a A ~ aA^r t .^se~~a A ~ aA 

a UN ans+TV aiaa~s .0 . . . . . . . . . . . . . 

aaaa 

. . . . 

~ae. ~-s .~âAêe~~ap-â - 

MOAMOI.-R10lrP1CL~MOAMO 

a . t a a a a a ~ z a o a a a a s a a 

. . . . . . . . . . . . . . . 

aA~! Aâ A~sA .-al- I lt- 

A Mol~MO A+'~O t~P1oANòAf~1 

aaaaaaa .:aaaaaaroa 

T O A M O A M O A M O A T O A T O 

a a a a .7 a a a a a r a a a a r a 

. . . . . . . . . . . . . . . . . 

a A .-s t-~a V. .-a r.. .~s A~-! A 

~ a P~ ~` a N` ^ a l~ .~ s A .^ a A'~ a 

A MO A .~O AMO {~TOAMO AR1 .T 

a a aaasT aa JaS a?a aa .S 

' .. {~ 

.~ N O^ N O^ N O .- NO ^ N O^ N 

{[~ Il~ If~ IL~ in {[. ~f1t(1111 tf~ 1n if1 IR\ li~ l[~ lf~ tC . 

a !~â I~â A^? (~ .-if A~al.~ 

1~ If~ fNl~ l0(~ tf~ M t0[~ 1n fC1 40i1n ~Nf.l 1[~ t~ 10[~ t[~ 

â A~a t~~aAâ Aâ A - a 

M1 b O~ ~O O. F.- .O O. A 1O m l- ~O 04 A .Q 

a a aaa a aAaa `'a SJ a 4? 

. . . . . . . . . . . . . . . . . 

a A^ a A .- a9-- ^ a A'- a t- ~ a c~ 

C% r % O ON A 40 O' k t~ % D O.l- %GO% A %D O.A 

aaaaaaa 

. . . . . . . 

saaaaaaaaa 

. . . . . . . . . . 

âA- aA^~Aât- âA- s 

a Ar'at- â A ." a Aâ t- 

H1 b .!~` M .' f.1%0 .~ IA Rl %p{h ^ M .O I[^1P1 .0 

N Ifl t lf1 .OIA 1f~ {f~ 1!1 1f1 1f~ {f1 lf1 {l~ {t~ 

^ I+1 .O ^ M %D .- M %O ^ /~1 %O 

U1 I(\ ~fl Y~ K\ U~A 

l If~ ~n Il1 U1 u1 U1 U1 u1 ~A 

.~ at~â A~at~â l~^SA^? 

.~ fI1 ~D ^ M 

YS 

a 

e 

N 

h 

O ~~~ ~ ~N~~ ~~~NN 

U 

'+ e- a ~ .~ r- ~ a t- . = .r i.- ~ a~ .-r~ 

1O!\ IOf1 U1 lO 10(1 1!1 /Ofi {O[11f1 10(1LO1 IfllOil 10(1 U1 10!\ 10l~ 

~ ri- -a - a~ _ +i t~-_ a~ - a 

~ O 00 ; OO~'00 N OO^00 ; 

Oo 

U 

V1 

M 

y Il~ 1f1 1f~ IA u~ {f1 I['~ t!~ 111 ln 1I11A tt~ {I~ /(11(~ Il~ 

~ at- âi t-_ ier~o e- .-ac- - s r- 

^ ai- - a f_ ^ a r- â A.-a A~'a 

1[~ Ul {f1 U~ If 

! 

^ e+1 W^ .'~1 .D ~ M.D ^M ~D ^ M~D ^ T 

1(: N{l1 91 IfNl1 Ih if+ I[l U1 If1 tf1 

u 

.~ f 

~ 

f 

4 

.


11FSCM - NECE 

3 7 .43 7 .43 7 .43 7 .40 . 7 .40 7 .52 7 .46 7 .56 7 .51 7 .56 

2 1 .4% 1 .48 1 .48 1 .47 1 .47 1 .50 1 .49 1 .51 1 .50 1 .51 

2 4 .45 4 .45 4 .45 a,43 4 .43 4 .51 4 .117 4 .53 4 .50 4 .5 1 

2 7 .43 7 .43 7 .43 7 .40 7 .40 7 .52 7 .46 7 .56 7 .51 7 .51) 

1 1 .48 1 .48 1 .48 1 .47 1 .47 1 .50 0 .0 0 .0 0 .0 0 .0 

1 4 .45 4 .45 4 .45 4 .43 4 .43 4 .51 0 .0 0 .0 0 .0 0 .0 

1 7 .43 7 .43 7 .43 7 .40 7 .40 7 .52 0 .0 6 .0 0 .0 0 .0 


X DIP,F.CTIOA 

-7- 11 12 13 14 15 16 ' 17 19 19 20 

• --- 

24 

-- 

0 .0 

-- 

0 .0 

-- -- -- 

24 0 .0 0 .0 

24 0 .0 0 .0 

23 1 .48 0 .0 

23 4 .45 0 .0 

. 23 7 .43 0 .0 

22 1 .48 0 .0 

22 4 .45 0 .0 

22 

21 

7 .43 

1 .48 

0 .0 

0 .0 

21 4 .45 0 .0 

21 7 .43 0 .0 

20 1 .48 0 .0 • 

20 4 .45 0 .0 

20 7 .43 0 .0 

19 1 .48 0 .0 

19 4 .45 0 .0 

19 7 .43 0 .0 

18 1 .48 0 .0 

18 4 .45 0 .0 

18 7 .43 0 .0 

17 1 .48 0 .0 

17 4 .45 0 .0 

17 7 .43 0 .0 

, N-52

NFSCH - NECE 

16 1 .48 0 

16 4 

.0 

.45 0 .0 

16 7.43 0 .0 

15 1 .48 0 .0 

15 4 .45 0 .0 

15 7 .43 0 

14 1 

.0 

.48 0 .0 

14 4 .45 0 .0 

14 7.43 0 

.0 

13 1 .43 0 .0 

13 4.45 0 .0 

13 7 .43 0 .0 

12 1 .48 0 .0 

12 4 .45 0 .0 

12 7 .r13 0 .0 

11 1 .48 0 .0 

11 4 .45' 0 

.0 

11 7.43 0 .0 

10 1 .48 0 .0 

10 4 .45 0 .0 

10 7 .43 0 

.0 

9 1 .48 0 .0 

9 4.45 0 .0 

9 7.43 0 .0 

. 

8 1 .48 0 .0 

8 4•45 0 .0 

8 

0 .0 

7 1 .48 0 .0 

7 4.45 0 .0 

7 7.43 0 .0 

6 1.48 0 .0 

6 4 .45 0 .0 

7.43 0 

.0 . 

5 1 .48 0 .0 

5 4 .45 0 

.0 

5 7•43 0 .0 

4 1 .49 0 .0 

4 4.45 0 .0 

4 7.13 0 .0 

H-53 

Samplr YI9COUS Output


3 1 .48 

3 4 .45 

3 7 .43 

2 1 .48 

2 4 .45 

2 7 .43 

/ 0 .0 

1 0 .0 

1 0 .0 

F(L,M) - CORIOI. [S PARAMETF.R 

-r- 1 

24 . 0 .708E-04 

23 0 .702E-04 

22 0 .691E-04 

21 0 .692E-oU 

20 0 .686E-04 

19 0 .C81E-O4 

18 0 .675E-04 

17 0 .670E-ob 

16 0 .66UE-04 

15 0 .659F.-04 

14 0 .653E-04 

13 0 .647E-04 

12 0 .642E-o4 

11 0 .636E-04 

10 0 .631E-04 

9 0 .625E-04 

8 0 .61oE_04 

7 0 .614E-ob 

6 0 .608E-04 

5 O .6o3E-04 

4 0 .597E-04 

3 0 .591E-04 

,2 0 .586E-04 

1 0 .580E-04 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .c 

0 .0 

0 .0 

2 

0 .71nP-04 

0 .70'-,E-04 

0 .700E-04 

0 .6^nE_o4 

0 .6F9F.-o4 

0 .6°3E-J4 

0 .67uE-04 

0 .672F.-04 

0 .66'1E-04 

0 .661L-04 

0 .655E-04 

0 .650Z-04 

0 .64vE-04 

0.639E-04 

0.633E-04 

0.628E-04 

0 .622E-04 

0.616E-04 

0 .611E-04 

0 .605E-04 

0 .6CGE-04 

0 .594E-04 

0 .588E-04 

0 .583E-04 

3 

0 .713~-04 

0 . 70A,' ..o4 

0 .702E-oU 

0 .697E-04 

0 .6915-04 

0 .686E-04 

0 .680E-04 

0 .675E-04 

0 .669E-04 

0 .6C4E-o4 

C .6S8E-C4 

0 .653£-oU 

0 .647E-04 

0 .641E-04 

0 .636E-04 

0 .63 :rE-04 

0 .625E-04 

0 .6192-04 

0 .6inE-04 

0 .608E-04 

0 .60'3-04 

0 .597E-04 

0 .5F6E-04 

0 .585E-04 

I DIPPC7ION 

4 5 6 

0 .71f.E-04 0 .ME-04 0 .721E-04 

0 .71or•"-C4 0 .713E-04 0 .716e-04 

0 .705E-04 0 .707E-04 0 .710E-04 

0 .70C'-04 0 .702E-04 0 .7C48- , 4 

0 .69'1 7 -04 0 .697E-C4• 0 .700E-04 

0 .6 :)dP.-04 0 .6? iE-od 0 .694E-04 

0 .68' ! -04 0 .6? ;•E-oh 0 .63Ê-04 

0 .67 fE-C4 0. 660 .*•.-04 0 .683E-04 

0 .6724-04 0 .F,75f-04 0 .677E-04 

0 .667E-04 0 .f'^"-•00 0 .6728-04 

0 .66'E-04 0 .6+i 0 .6!6E-04 

0 .G!'i±C--04 0 .652E-04 0 .660n'-0 4 

0 .650'.!-04 0 .65 F.-04 0 .6i5E-04 

0 .644E-04 0 .647«°-04 0 .Cp9£-04 

0 .63tiE-C4 0 .641E-04 0 .640E-04 

0 .633E-CU 0 .63`•k:-04 0 .635E-04 

0 .627E-04 0 .C•27c-C4 0 .6302-04 

0 .62?E-04 0 .62:-04 

o .6C5C-o4 o .e0/z-o4 

0 .6047-04 O .6t;c•E-O4 

0 .6035-04 0 .6 S5 E-04 

0 .602E-0 1 o .6Q4E-04 

0 .601E-0U 0 .604E-04 

0 .601E-04 0 .6045-04

~ 

. 

~ 

11FSCM - NECE 

-Y- 11 12 

24 0 .733E-04 0 .736E-04 

23 0 .728E-04 0 .730E-04 

22 . 0 .722E-04 0 .717E-04 

21 0 .717E-04 0 .712E-04 

20 0 .704E-04 0 .707E-04 

19 0 .699E-04 0 .702E-04 

18 0 .694E-04 0 .697E-04 

17 0 .689E-04 0 .692E-04 

16 0 .684E-04 0 .66RE-04 

15 0 .680E-04 0 .683E-04 

14 0 .675E-0y 0 .679E-04 

13 0 .671E-04 0 .674E•04 

12 0 .666E-04 0 .67CE-04 

11 0.662E-04 0 .619E-04 

10 0 .615E-04 ZP .617E-04 

9 0 .614E-04 0 .616E-04 

8 0 .612E-34 0 .614E-C4 

7 0 .611E-o4 0 .613E-04 

6 0 .509E-04 0 .612E-04 

5 0 .608E-04 0 .611E-04 

4 0 .607E-04 0 .61oL+-04 

3 0 .607E-04 0 .609E-04 

2 0 .606E-04 0 .609E-04 

1 0 .606E-04 0 .609E-04 

CONTINUED FROM PREVIOtJS PACE 

I DIRECTION 

13 14 15 

e . . . . . .ar . .•aee . .aa•e .aa . . . . . .∎e . . . .•∎as . . . 

EOP : 

N-55 


16 17 18 19 20 

6 

. . . . . . . . ._ . . . . ._ .w .~~- - 'u

Sample DENSE Input 

Pro rRm DENSITY 

Saaple Input 

WfSCM 1PP=2,4*1 .0235,1 .023i1,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,12*t .o25 

bMiSC NUCHr:I,CA1•DFN :F,AEND 

6LAY .*• .R IPFe2,HP=10 .,300 .,DT1''tF.etE30,3END 

8RN0 RI10W = 4*1 .0235r1 .0234r1 .0?33r1 .0?32,1 .0231,1 .023,1 .022,1 .021r1 .021r 

4*1 .0235,t .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .D21, 

4*1 .0235,t .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .b21, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,i .022,t .021,1 .n21, 

4*1 .C235 .1 .0?34,1 .0233,1 .0272,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .023$r1 .0234,1-0233r1 .02j2,1 .0231,1 .027,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .0233,i .0232,1 .0231,1 .023,t .022,1 .02t .1 .021, 

4*l .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,t .0233,1 .0232,1 .0?j1,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231 .1 .023r1 .022,t .C21,t•021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,t .0231,1 .023,1 .022,1 .021 ;1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .0Z2,1 .021,1 .021, 

4*t .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4+1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .023t,1 .023,1 .022,i .021,1 .021, 

4't .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .n21,1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .02?3,1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 ..0233r1 .0232,1 .0231,1 .023,1 .022,1 .021,1 .021, 

4*1 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,1 .022,t .021,1 .021, 

421 .0235,1 .0234,1 .0233,1 .0232,1 .0231,1 .023,t .022,1 .021,1 .021, 

288*1 .025, 

BEND 

H - 56 - 

WFSCM - NECE

WFSCH - NEC" Sample DEN3E Output 

Sasple Output 

GAL :YERSION 7- JUNE 16 1982 - REV . A- DEt7SITY 

------------------------------- -----------°-°--------- 

WFSCH IPPn2,401 .0235,1 .0234, 1 .0233,t .0232 ,t .o231,t .023 .1 .022,1 .021,1201 .025,t . 02 

VISCOSITY TITLE : WFSCM - CBz .00025, 1j6TA PLANE,RP=4,CXe0 ., .2, .4,1 .,NYH= .03N/200,NYLa .003N/200 

JPs3 LPs12 MP :24 

STILL WATER DEPTHS IN lETERS FOLLOW : 

X DIRECTION 

-Y- 1 2 3 4 5 6 7 8 9 10 

t 24 200 .0000 200 .0000 150 .0000 140 .0000 90 .0000 0 .0 0 .0 0 .0 0 .0 0 .0 

23 200 .0000 

~ 22 200 .0000 

21 200 .0000 

200 .0000 

200 .0000 

200 .0000 

150 .0000 

150 .0000 

150 .0000 

140 .0000 

140 .0000 

140 .0000 

90 .0000 

90 .0000 

90 .0000 

60 .0000 

60 .0000 

60 .0000 

50 .0000 

50 .0000 

50 .0000 

30 .0000 

30 .0000 

30 .0000 

25 .0000 

25 .0000 

25 .0000 

15 .0000 

15 .°000 

15 .0000 

20 200 .0000 

19 200 .0000 

18 200 .0000 

17 200 .0000 

; 16 200 .0000 

15 200 .0000 

; 14 200 .0000 

s 13 200 .0000 

12 200 .0000 

' 11 200 .0000 

10 200 .0000 

9 200 .0000 

8 200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

200 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

150 .0000 

f5o .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

140 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

90 .0000 

60 .0000 

60 .0000 

60 .0000 

60 .0000 

60 .0000 

60 .0000 

60 .0000 

60 .0000 

60 .0000 

60 .oG00 

60 .00co 

60 .0000 

60 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

50 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

30 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .0000 

25 .000 

25 .0000 

25 .0000 

15 .G !~00 

15 .0100 

15 .Coc0 

15 . 0000 

15 .0000 

t5 .CO0o 

15 .C•00 9 

15 .0C00 

15 .000 

15 .0000 

15 .c00o 

15 .0000 

15 .00c0 

7 200 .0000 200 .0000 150 .0000 140 .0000 90 .0000 60 .0000 50 .0000 . 30 .0000 25 .0000 15 .0030 

6 200 .0000 200 .0000 150 .0000 140 .0000 90 .0000 60 .0000 50 .0000 30 .0000 25 .0000 15 .0000 

i 

i 

5 200 .0000 200 .0000 150 .0000 140 .0000 90 .0000 60 .0000 50 .00C0 30 .0000 25 .0000 15 .0000 

' f/ - 57 -

Sample DENSE Output 

4 200 .0000 200 .0000 150 .0000 140.0000 90 .0000 60 .o000 

3 200 .0000 200 .0000 150 .0000 140.0000 90 .0coo 60 .0000 

2 2c0 .0000 200 .0000 150 .0000 140.0000 90 .0000 60 .0000 

1 2C0 .0000 200 .0000 150 .0000 140.0000 90 .0000 60 .0000 

CONTINUED FROM PREVIOUS FAO!! 

X UTRECTION 

-Y- t t 12 13 14 15 16 17 

24 0.0 0 .0 

23 io.0000 0 .0 

22 10 .0000 0 .0 

21 10 .0000 0 .0 

20 10 .0000 0 .0 

19 10 .0000 0 .0 

10 10 .0000 0.0 ' 

17 10 .0000 0 .0 

16 10 .0000 0 .0 

15 10.0000 0 .0 

14 10 .0000 0 .0 

13 10 .0000 0.0 • 

12 10.0000 0 .0 

11 10.0000 0 .0 

10 10.0000 0 .0 

9 10.0000 0 .0 

8 10.0000 0 .0 

7 10.0000 0 .0 

6 10.0000 0 .0 

5 10.0000 0 .0 

4 10.0000 0 .0 

3 10.0000 0 .0 

2 10.0000 0 .0 

1 0.0 0 .0 

~ . • . . . • . . . ~ ~ . • • ~ ~ . ~ . . • . ~ ~ ~ . . a ~ ~ ~ . . . . • ~ ~ . . . 

//-58- 

50.0000 30 .0000 25 .0000 

50.0000 30 .0000 25 .0000 

50.0000 30 .0000 25 .0000 

0.0 0.0 0 .0 

18 19 

UFSCM - NECE 

15 .0000 

15 .0000 

15 .0000 

0 .0 

20 

._ . . ._ ..-.~. . .. ..-.~. .... . . _.. :Y

` 

` 

WFSCM - NEC6 

/- TIME baaaaaa HOURS/ ~ 

-------------°------ 

THE LATER DEPTHS FOLLOM(l E TERS) : 

10 .0 300 . 

Sasple DENSE OutRut 

A(JLM) : 

X DIRECTION 

-T- 1 2 3 4 5 6 • 7 8 9' 10 

--- 

24 

-- 

1 .4824 

-- 

1 .4824 

-- 

1 .4806 

+- 

1 .4746 

-- 

1 .4733 

-- 

0 .0 

-- 

0 .0 

-- 

0 .0 

-- 

0 .0 

° 

0 .0 

24 

24 

23 

23 

23 

22 

22 

22 

21 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 :4824 

4 .4513 

7 .4343 

1 .4824 

4 .4461 

7•4265 

1 .4806 

4 .4461 

7 .4265 

1 .4E06 

4 .4461 

7 .4265 

1 .4806 

4 .4291 

7 .4012 

1 .4746 

4 .4291 

7 .4012 

1 .4746 

4 .4291 

7 .4012 

1 .4746 

4 .4234 

7 .3958 

1 .4733 

4 .4254 

7 .39i3 

1 .47j3 

4 .11254 

7 .3358 

1 .4733 

0 .0 

0 .0 

1 .5010 

4 .5056 

7 .5166 

1 .5010 

4 .5056 

7 .5166 

1 .5010 

0 .0 

0 .0 

1 .4879 

4 .4672 

7 .4583 

1 .4879 

4 .4672 

7 .4503 

1 .4879 

0 .0 

0 .0 

1 .5105 

. 4 .5333 

7 .5503 

1 .5105 

4 .5333 

7 .5603 

1 .5105 

0 .0 

0.0 ' 

1 .4991 

4 .4996 

7 .5080 

1 .4991 

4 .4996 

7 .5030 

1 .4991 

10 .0 

0 .0 

1 .5105 ' 

4 .5333 

7 .5503 

1 .51G5 

4 .5333 

7 .5,'03 

1 .5105 

21 

21 

20 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 .4024 

4 .4461 

7 .4265 

1 .4806 

4 .4291 

7 .4012 

1 .4746 

4 .4254 

7 .3~"8 

1 .4733 

4 .5056 

7 .5166 

1 .5010 

4 .4672 

7 .4583 

1 .4879 

4 .5333 

7 .5603 

1 .5105 

4 .4996 

7 .5080 

1 .4991 

4 .5333 

7 .5603 

1 .5105 

20 

20 

19 

19 

19 

18 

18 

18 

17 

17 

17 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 .4024 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .4343 

1 .4824 

4 .4513 

7 .43113 

4 .4461 

7 .4265 

1 .4806 

4 .4461 

7 .4265 

1 .4806 

4 .4451 

7 .4265 

1 .4806 

4 .4461 

7 .4265 

4 .4291 

7 .4012 

1 .4746 

4 .4291 

7 .4012 

1 .4746 

4 .4291 

7 .4012 

1 .4746 

4 .4291 

7 .4012 

4 .4254 

7 .3~58 

1 .4733 

4 .4254 

7 .3958 

1 .4733 

4 .4r54 

7 .3958 

1 .4733 

4 .425'; 

7 .3"58 

4 .5056 

7 .5166 

1 .501u 

4 .5056 

7 .5166 

1 .5010 

4 .5056 

7 .5166 

1 .5010 

4 .5 .^.56 

7 .5166 

4 .4672 

7 .4583 

1 .4879 

4 .4672 

7 .4583 

1 .4879 

4 .4672 

7 .4583' 

1 .4879 

4 .4672 

7 .4583 

4 .5333 

7 .5603 

1 .5105 

4 .5333 

7 .5503 

1 .5105 

4 .5333 

7 .5603 

1 .5105 

4 .5333 

7 .5603 

4 .4996 

7 .5CF0 

1 .4991 

4 .4996 

7 .5080 

1 .4991 

4 .4996 

7 .5080 

1 .4991 

4 .11996 

7 .5080 

4 .5333 

7 .5503 

1 .5105 

4 .5333 

7 .5603 

1 .51 :15 

4 .5333 

7 .5~03 

1 .5105 

4 .5333 

7 .5 :!Y3 

16 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

16 4 .4513 4 .4513 4 .4+I61 4 .4291 4 .4254 4 .5056 4 .4672 

, 

li -59- 

4 .5333 4 .4996 4 .5333 

, .

Sample DENSE Output WFSCM - HUT 

16 7 .4343 7 .4343 7 .4265 7•4012 . 7 .3958 7 .5166 7 .4583 7 .5603 7 .5080 7 .5603 

15 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .11079 1 .5105 1 .4991 1 .5 1 05 

15 4,4513 4 .4513 4 .4461 4 .4291 4 .4254 4•5056 4 .4672 4 .5333 4 .4996 4 .5333 

15 7 .4343 7•4343 7 .4265 7 .4012 7 .3958 1 .516G 7 .4583 7 .5603 7 .5080 7 .5603 

14 1 .4824 1 .4824 1 .4806 1,4746 1 .4733 1 .5010 1 .4879 1 .5105 1•4991 , 1 .5105 

14 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .49 9 6 4 .5333 

14 7 .4343 7 .4?713 7 .4265 7 .4012 7 .3958 7 .5166 7 .4583 7 .5603 7 .50E0 7 .5603 

13 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .49?1 1 .5105 

13 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .4996 4 .5333 

13 7 .4343 7 .4343 7 .4265 7 .4012 7•39 :8 T-5166 7 .4583. 7 .5503 7 .5080 7 .5633 

12 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

12 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .4996 4 .5333 

12 7 .4343 7 .4343 7 .4265 7 . 11 012 7 .3958 7 .5166 7 .4583 7 .5603 7 .5080 7 .55603 

11 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 • 1 .51r•5 

11 4 .4513 4 .4513 4 .4461 4,4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .4996 4 .5333 

11 7 .4343 7 .4343 7 .4265 7 .4012 7 .3958 7 .5166 7 .4593 7•5603 7 .5030 7 .5 503 

10 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5103 

10 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .4996 4 .5333 

10 7 .43 113 7 .4343 7 .4265 7 .4012 7 .3S58 7 .5166 7 .4 ;83 7 .5503 7 .5030 7 .5503 

9 1 .4824 1 .4824 1 .4806 . 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

9 4•4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4•4996 4 .5333 

9 7 .43 4 3 7 .4343 7 .4265 1 .4012 7 .3958 7 .5166 7 .4583 7 .5603 7 .5080 7 .5603 

8 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

8 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .11672 4 .5333 4•4996 4 .5333 

8 7 .4343 7 .4343 7 .4265 7 .4012 7 .3958 7 .5166 7 .4583 7 .5603 7 .5080 7 .5533 

7 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

7 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .4996 4 .5333 

7 7 .4343 7 .4343 7 .4265 7 .4012 7 .3958 7 .5166 7 .4583 7 .5603 7 .5680 7 .5`•05 

6 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 

1 .4991 

1 .5105 

4 

4 4 96 4 5 ;;3 

6 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 .5333 . 9 . 

~ 6 7 .4343 7 .4343 7 .4265 7 .4012 7 .3958 7 .5166 7 .4583 7 .5603 7 .5080 7 .5603 

5 1 .4824 1 .4824 1 .R806 1 .47 11 6 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

5 4 .4513 4 .4513 4 .4461 4 .4291 4 .42 5 4 4 .5056 4 .4672 4 .5333 4 .4996 4 .5333 

5 7 .4343 7 .4343 7 .4265 7 .4012 7 .3958 7 .5166 7 .4583 ; .5603 7 .5080 7 .5603 

// - 60 -

NFSCM - NECE Sample DENSE Output 

4 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

4 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .4996 4 .5333 

4 7 .4343 7 .4343 7 .4265 7 .4012 7 .3958 7 .5166 7 .4583 7 .5603 7 .5080 7 .5603 

3 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 1 .4879 1 .51c5 1 .4991 1 .5105 

3 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 4 .4672 4 .5333 4 .4996 4•5333 

3 7 .4343 7 .4343 7 .4265 7 .4012 7 .39`•9 7 .5166 7 .4583 7 .5603 7 .5080 7 .5603 

2 1 .4824 1 .4824 1 .4806 1 .47116 1 .4733 1 .5010 1 .4879 1 .5105 1 .4991 1 .5105 

2 11 .4513 4 .4513 4 .4461 4 .4291' 4 .4254 4 .5056 1 .4672 4 .5333 4 :4996 4 .5333 

2 7-4343 7 .4343 7 .4265 7 .4012 7 .3958 7 .5166 . 7 .4583 7 .5603 ' 7 .5080 7 .5603 

1 1 .4824 1 .4824 1 .4806 1 .4746 1 .4733 1 .5010 0 .0 0 .0 0 .0 0 .0 

1 4 .4513 4 .4513 4 .4461 4 .4291 4 .4254 4 .5056 0 .0 0 .0 0 .0 0 .0 

1 7 .4343 7 .4343 7 .4265 ° .4012 7 .3958 7 .5166 0 .0 0 .0 0 .0 0 .0 


X DIRECTION 

-Y- tt 12 13 14 15 16 17 18 19 

--- ^- ° 

-- -- -- ° -- -^ ° 

24 

0 .0 

0 .0 

24 0 .0 0 .0 

24 0 .0 0 .0 

23 1 .4824 0 .0 

23 4 .4513 0 .0 

23 7•4343 0 .0 

22 1 .4824 0 .0 

22 4 .»513 0 .0 

22 7 .4343 0 .0 

21 1 .4824 0 .0 

21 4 .4513 0 .0 

21 7 .4343 0 .0 

20 1 .4824 0 .0 

20 ' 4 .4513 0 .0 

20 7 .4343 0 .0 

19 1 .48 z 4 0 .0 

19 4 .4513 0 .0 

19 7 .4343 0 .0 

18 1 .4824 0 .0 

. . . . ., . . . : . .. . . . . , . . ._ . . .. ... . . 

r..w.__ . . . .v . . , . .. . . , 

. . . . .. . . . . .. . . 

h-6t- 

20 

-^ 

. ,. . . . ._ . .. . . . ._. .~.. .___~-~ . ._ 

., . 

.. . .. . . :.....~> .:.,~ :•, , .. : . ... .. .... :, ... .,,, .:~_.... ... . .~ ..~ ....u~..w~r

Saeiple DEtISE Output 

18 

1s 

4 .4513 

7 .4343 

0 .0 

0 .9 

17 1 .482PI 0 .0 

17 4 .4513 0.0 ~ 

17 . 7 .4343 0 .0 

16 1 .11824 0 .0 

16 4 .4513 0 .0 

16 7 .4343 0 .0 

15 1 .4824 0 .0 

15 4 .4513 0 .0 

15 7•4343 0 .0 

14 1 .4824 0 .0 

14 4 .4513 0 .0 

14 7 .4343 0 .0 

13 1 .4824 0 .0 

13 4 .4513 0 .0 

13 7 .4343 0 .0 

12 1 .4824 0 .') 

12 4 .4513 0 .0 

12 7 .4343 ' 0 .0 

11 1 .4824 0 .0 

11 4 .4513 0 .0 

11 7 .4343 0 .0 

10 1 .4824 0 .0 

10 4 .4513 0 .0 

10 7 .4343 0 .0 

9 1 .4824 0 .0 

9 4 .4513 0 .0 

9 7 .4343 0 .0 

8 1 .4824 0 .0 

8 4 .4513 0 .0 

8 7 .4343 0 .0 

7 1 .4824 0 .0 

7 4 .4513 0 .0 

7 7 .4343 . 0 .0 

6 1 .4824 0 .0 

6 4 .4513 0.0 / 

6 7 .4343 0 .0 

5 1 .4824 0 .0 

~.'-62- 

KpS(71 - RF.CE 

~ 

. . I .1 . : 

~ ~~ . . . . . W . . . ~ . . .

2 0 oidmeg 33 3N - FOSdM 

\ 

0'0 0'0 1 

0'0 0'0 l 

0'0 0'0 1 

0'0 EhEh'L z 

0'0 EtSh'h Z 

0'0 hz8h't Z 

0'0 Eh£h'L f 

' 0'0 £lSh'h £ 

0'0 hz8h'l E 

0'0 EtrEh'L h 

0'0 EtSh'h h 

0'0 hzBh•t h 

0'0 EpEh'L 5 

0'0 EtSh'h S 

01 . 6 9 S • y E Z l -IlIOIJ•03NI 

(I X ' 

t(!D DI9(10/'J)MO'1703 S37Id0Hd I1pN30 3H1 

ozc'0't oEZO't /fzo'1 WO't EEZu't hEZO'l SEzU'l SfzO'l SEZo'l SEZO'l l5t 

05,,0'l OSZO'l OSZO't 0SZO'l 05ZC'1 0 CSZO'1 0520'1 OSZO'l OSZO'l 0SZ0'l 9t 

03~U't CEtO't • lEZ0't ZGZO't £EZO't hEZJ-l SEZO't SEZO'l SEZO't S£Z0't 91 

OScO't O~ZO'l 0520'l 0SZ0•l 0SZ0'l 05Z0't 05z0't 0SZ0'l 05Z0'1 0SZ0'l Ll 

oZZo'l oEZO't tfZO't zEZO'1 EEZO'l hE20't SEzo't SEZO'l SEZO't SEZO't Ll 

CSZO't OSZo't OSZO'l 05z0't OSZo'l OSZO't OSZO't OS"LO'l 05Z0't OSZO'l et 

ozzo't oEzO'l tEZO'l zEZO't EEZO'l hEZo'l SEZO'1 SEZO't

..+ 

6 

6 

tp If~aaMR•NN^ .- OO tTO .maOl~t-cOCplfllnaa C+1(nNN^^ 

N 1, fJ N N N N N N N N N N N N N N N N N N N fV N N N N N N 

O O O O O O O C O O O O O O O O O O O O O O O O O O O O O 

tr 

~ ^ ^^^ .-^^ . .. ._ . . ^ ^^ ^ - ^ ^^^^^ .-^ ._ ^^ ^^ 

C 

~ 

n 

y 

' 0 In O tfc G lft O 11% O tC1 O 1/ , O 1n O U1 O In G Itt O N O 1(t O 1t1 G Un O 

o Y't M tn M N M t(` M lf1 M 1A M If1 M 1f1 M Y1 M I!1 M Ul M V1 M 1f1 T{(1 N1 {f1 

• . 

N N(V CV N N th N N(•l fv N h, N fV N N N N N N N CN: N N N N N N 

O . O . O . O . O . O . O . O . O . O . O . O . O . O . O . O . O O O O O O O O O O O O O 

. . . . . . . . . . . . . 

^^^^ .-^^^^^ ^ ^ .. ^ .-^^ ~^^ ._^^^^ ._ ._ ._ ._ 

O tn O V^ 0 tn O(n O t!% O tn O tn O tC% O(n O(n 0 N O U, O In O(C% O 

([\ f.1 1n (.1 {(1 M 1n M tn MtfN M r :1 M tt1 M{fl M L1 M N M{f\ M tt~ M tf1 M tf1 

~ 

V 

o tt+ O tn O tfc O N O tn O tf1 G ( CN O 1C1 O Y, O (C1 O tn 0 tn o tn o tf\ O 

(j1 M{n f+1 Vl M { n M y1 R1 tn M 1f. n t(n M t(1 M{(1 M tt \ Rt tl1 /f1 t(\ (/t t(, M ttN 

N CV N N N N N CV (J N N N N N N N CV N N N CJ N N N t•t N N N N 

O O 

. . . O . 9 O O 9 O O 9 O O O O O O O O O O C O O 9 O . O O 

. . . . . . . . . . . . . . . . 9 . . 

~ 

s 

6 

S 

O 

¢ 

~ 

O 

~ 

i 

O 1f~ O U~ O CCt C t(~ O L"c O 11~ O tn O Vt O t^ G 1!t O~ G` Vc O vt O 11t O 

1n M tn ^r. 1,n ^9111 M tn M l'1 M l(1 M tt• M tn -L1 M tn M tf, M{p F1 L'1 M 11% 

N N N N(V ('. N N fV CJ N N N N CJ (V N(L N N N(u fJ N N N N N N 

O . O O O G O O O O O O O O O O O O O O O O O L'+ o O o O O O 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . 

.-^^ ._^ ..^^^^r.^^^^^^^^~^~~- .-^~^ ..~ 

~ 

O 

h 

R 

6 

\ 

\ 

N N N CJ f . N N \ NO N (VN " N N (a (\ t\ N N N N N N N N N N 

O 

. 

O 

. 

O 

. 

O 

. 

O 

. 

O 

. 

O 

. 

O 

. 

O O G O O C O O G O G O C . . O O O O G O O 

. . . . . . . . . . . . . . . . . . . . . 

c0 

o>,+0 r c?a 0~' O~ O~.f Oa0a0a 0+` oa OJa 0~0 

tj1 M L^ M Vn T~ f~, cf \ A1 tf• f.', L~1 M L'1 M L'~ (~1 Ll M tr1 tn 1I~ Pf~ If1 M tP M If1 

1 

OP'10M0C•'t0'~10 (TO t'f0 MOM10f .10 tn0(~10 (~10 t~f0 (n0 

tf1 M Ul M tf, M t(1 t'1 {t1 M y1 M{fl (.'1 1(1 M t[, RI N( .1 L'1 (+1 L'N M{l, ft1 V1 M t( , 

N C V N N N N N N N, N N N N N N N N N N N( V N N N N N t V N N 

O O 00 O G 

. . . 

.U O O O O f'• O O O O O O O O O O O O O O O O U O 

. . . . . . . . . . . . . . . . . . . . . . . 

O N O N O N O N O N O N O N O N O N O N O N O N O N O N O 

L'1 M L'\ (.1 (f M tf : M 11% M L1 M tC1 M t(1 M U\ R1 V1 M CC1 M(C\ (T t!1 M lC1 M tC1 

N N N N f J N N N N N N N N N N N N( V N N N N t' J N( v N N( V N 

0 0 0 0 0 0 0 L: 0 0 0 O 0 t, O 0 O 0 O 0 O O O 0 0 O O 0 0 

O^ O^ O^ O^ O^ O^ O^ O^ O^ O .- O^ O^ O^ O^ O 

U~ M L^. T L1 M ln M L^~1 41 M 1(t M Y~ M1 ttn M{t~ M L'~ M IA M(f~ M V• M 1!1 

N 9 tV N N N N N-"I N N (V N N N N tV C•J (V N N P1 fJ N N N N N N N 

O O O O O O O O O O O O O U O O O O O O O O O O O O D O 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . 

^^ ^^ ^^^ ._ ^ ... ^^^ ^ ^^^^^ ._ .-^ ^^ ^^ ^ .- .- 

L 

~~ OC r,Irb OO'00 04 0000 OOOG 000000 00000 

~+. .h Pl t:. Pl tl• Rl tr. R1 tn ( q tn -:. t . . M1 t(S M C1 tO tn .-1 t_'1 M ~ 1 n f.: T M ;(l (.1 td1 

•i N N N fJ N N N N N fV N n! N N (J N N N N N N^J N fJ N N(V N N 

O O O O O c:U 

9 O O O 

9 9 O 

9 9 9 9 9 O 9 9 9 9 9 9 C:J O 9 9 

1 - 

00 00 00 pO O< 00 00 OO 00 00 00 00 00 00 0 

tnN L1(V {(.N 1I1N tf1N tt1[V V1N IAN t.lfJ t;1N •f•N L'1N tf1CV ta1 

m NcV NN ryN NN NN NN (JN ( VN tVt•: NN NN ty(~~~r t~' NN N 

V OU 00 OC : 00 00 00 00 00 GO 00 OC~:.+S-tJ 

w- 

-~ 

~ 

$ 

~

. 

i nd 3n0 8SN3 Ob Idw BS @ @03N - iD6dA 

oz 61 et LL 9l st ql EL zl lt -1- 

NOLL038 :4 Y 

Ot20'l 0tz0't EZ 

, 05z0't OSZO'l p z 

0t20't WWI 4? 

WWI 05Z0'l Ed 

CS1 O't OSZO'l zz 

0120'l 0120'l Z2 

Ut20'i 01Z0't LZ 

05z0't 05z0'l Sl 

~ 0tZ0't 01z0-1 Sl 

~ 05Z0'l 0SZ0'l 9l 

WWI 01z0't 91 

05Z0'l 05Z0'l Ll 

0tt0't oiZO'l Ll 

0SZ0'L 0SZ0't @t 

O/20't OtZO't @t 

0520'l C520't 61 

0120'l 0120'l 61 

OSZO'i OSZO'i 02 

0I20'l 0120'l 0? 

OSZO'l 0S Z 0't . lZ 

01Z0'l pt 

WWI 

* WWI 0520'i 2l 

' 0tZ0'L WWI 2l 

oSZo'L o52o't El 

01Z0't otZO't El 

05z0't 05Z0't ql 

` WWI 01Z0'l lt 

0520'L WWI L 

, o izO'l 01Z0't L 

r OSZO'l 0~ Z0't @ 

WWI WWI @ 

oSZO't o52o•t 6 

Ot Z0't , 0120' l . 6 

OS20't 05z0'l 01 

• OtZ0•L 0t20•t, Ot 

, 05Z0't 05Z0'l ll 

. ~ 

~ 

• , -59-f~ 

. , 1 

1 

/ 

~ 

• 

r .. ~ f 

. 

, 

i 

I 1 . 

/ 

_ •--- . __. .._ . .. . ._ _ . . . ~ 

~ 

~

Sample DENSE Output , 

6 1 .0210 1 .0210 

6 1 .0250 1 .0250 

5 1 .0210 1 .0210 

5 1 .0250 1 .0250 

4 1 .0210 1 .0710 

4 1 .0250 1 .0250 

3 1 .0210 1 .0210 

3 1 .0250 1 .0250 

2 1 .0210 1 .0210 

2 1 .3250 1 .0250 

1 1 .0210 1 .0210 

1 1 .0250 1 .0250 

11 

~ 

~ 

H -66- 

1 

I 

HFSQ1 - NSCB

NFSCH - NECE 

Pro ram CIRC 

Saa!ple Input 

WFSCM - CASE 21-5 - St HIER HORIZ - CIRC 7 . A 

6MISC EDDYHz100000 .,DENSE= .TRUE .,REND 

&TIME TLASTz362000,DTT=4 !1 .,ISTPR=360000, 

IDTPRn36000,RND 

6DCS HLNGTH=0,1tP E ROD_0, 

IAt-T (1,1)=5,IAh!C(1,2)-S,IAMP(1,3)=5,IA10`(1,4)=S,IAMP(1,5)=S,IAMP(1,6)=5, 

IAMP(1,7)=5,IA1:P (1,8)=5,IAMP(1,9)=S,IAt:P(1,10)z5,ILl8'(1,11)=5, 

IAtB'(1,12)z5,IAHP(1,13)=5,IAMP(1,14)=5,IAMP(1,15)=5,IAFP (1,16)z5, 

IA~(1,17)zS,IAMP(1,18)=S,IAMP(1,19)z5,IAMP(1,20)z2,IAF T (1,21)s2, 

IAHP(1,22)z2,IA MP (1,23)=2,IA10'(1,24)-2, 

DSC(t,t,l)z_ .S,DBC(1,1,2)=- .472,DBC(1,1,3)s-,444,DBC(1,1,4)=- .4/7, 

DBC(1,/,5)=- .389,DSC(1,1,6)=- .36t,DBC(1,1,7)=- .333,r.0C(1,1,8)=- .306, 

DBC(1,1,9)=- .278,DSC(1,1,10)z- .25,DBC(1,1,11)=- .222,D8C(1,1,12)=- .194, 

D8c(t,1,t3)=- .167,DBC(1,1,14)=_ .t39,DBC(1,1,15)=- .111,DBC(),1,16)e- .083, 

D8c(1,1,17)=- .056,D8C(1,1,18)z- .028,DBC(1,1,19)z0 ., 

DBC(2,1,1)=- .4,DBC(2,1,2)z- .378,DBC(2,1,3)=- .356,DBC(2,1,4)m- .335, 

DBC(2,1,5)=- .313,DBC(2,1,6)z- .291,DBC(2,1,7)=- .269,DDC(2,1,8)==.248, 

DBC(2,1,9)=- .225,DBC(2,1,10)=- .204,D8C(2,1,11)z- .182,DDC(2,1,12)=- .160, 

DBC(2,1,13)z_ .139,D3C(2,1,14)=- .117,D8C(2,1,15)=- .095,DBC(2,1,16)=- .073, 

DEC(2,1,17)=_ .052,DBC(2,1,18) z - .030,DBC(2,1,19)=0 ., 

DBC(3,1,1)z- .235,DBC(3,1,2)z_ .222,DBC(3 .1,3)=-•209,D8C(3 .1,4)z-,196, 

DBC(3,1,5)=- .183,D8C(3,1,6)=- .170 DBC(3,1,7)=- .157,Dt'C(3 1,8)=- .1411 

DBC(3,1,9)=- .131 DDC(3 .1,10)=- .11~,DBC(3,1,11)-- .1oa,DBC~3,t,12)=- .a9t, 

DDC(3,1,13)__ .o7 6 ,DeC(3,1,14),- .065,Dec(3,t,15)=- .n52,D8C(3,1,16)=- .039, 

DBC(3,1,17)=- .026,DDC(3,1,18)=- .013,DBC(3,1,19)z0 ., 

&END 

6INOUT HOTSTR=F,NOTIME=352800,PR7FLOz .FALSE .,QEND 

;;-67- 

Sample CIRC Input

~ 

Sample CIRC outpnt 

Sample Output 

--°--------°------- 

! / TIMEe100 .00 HOURS / 

--------------------- 

. . . . . . . . . . . . . . . . 0 . . . . . . . . . . 4 . s . . 1 . . . 6 1 . . . . 

{ 

GAL - VER . 1 .A - JULY 1982 PROGRAM CIRC 

------°----------------------------°-- 

i 

! SUPMARY OUTFUT FOR CRID( 6,12) 

U92z-0 .101E-04 V02a 0 .115E-04 SQ M/SO 4 

UNDETERMINED PARAMETERS 

1 2 3 

C(J) 0 .507E-01 0 .204E-01 0 .236E-02 

D(J) -0 .147E 00 0.334E-02 - 0 .278E-02 

MASS FLURES-SQ MTS/SEC : 

Qx:-0,393R 00 oYc-0 .217E 01 

SIIRFACE F.LEVATION(M) u -0 .711E-01 

f~-68- 

WFSGN - NECE

I 

y 

~ 

NFSCtI - NECE 

' , . 

i . 

69 

- 

Samplo CIRC Output 

._ .. . . . . _ ... . . . . . . .. .. ..,~. .~.:~..,.`: 

~

Sample PRTVEL Input 

Pro rao PRTVEL 

Sample Input 

600TOPS NOGRDSn3,L0CATE(1) :(6,19) ;LOCATE(2)-(9,19),LOCATE(3)z(6,12), 

LAYERS=2,LEVELS=2,PRTETA=T,PRTNND=F,PRTNV-F,PRTDEN=F,&END 

0 . 10 . 25 . 30 . 39 . 50 . 

0 . 5 . 12 . 17 . 

0 . 5 . 12 . 60 . 100 . 140 . 

0 . .5 1 . 

0 . .5 1 . 

i 

I 

1 %J-70 ~ / 

~, . 

f 

. . . . . . . . . . . . . . , .h' . . . .+ .w . . ...._ . 

WFSQM - NECE 

~

NFSCM - NECE 

Saeple Ontput 

I 

• a • • 5 • 9 a a a 0 a 6 a • 9 • • ∎ 0 . • a • • 9 a a 0 a • • a 0 • 4 0 4 • 9 •.∎ 

., 

• 

0A[. :VF.RSION 7- JULY 4, 1982 - REV . A - PROGRAM • PRTVEL 

------------------------_--------------------------- 

NFSCH - CASE 21-5 - SUKIEA HOSIZ - CIRC 7 .A 

A 

Sample PRTVEL Output 

VISCOUS TITLE : WFSCM - CB = . 00025 , BETA PLANE , KP = 4 ,C K = 0 ., . 2 , . 4 , 1 ., N VM- .03H /200,NVL- 

.f03H/200 

DENSITY TITLE : WF3Q•1 IPP_2,4•1 .0235,1 .0234,1 .0233,1 .0232, 1 .0231,1 .02 3,1 .022,1 .021, 12∎1 .025,1 .02 

WIND TITLE :MIND:4 .0 M/S AT 120 DEGREES, RAMP TO 20 HRS 

JP_3 KP=4 LP-12 !ff_24 EDDYH= 0 .100E 06 

DT :450 .SECS DL-30000 .0 METERS LATITUDEs 24 .DE0 N 

1STILL WATER DEPTHS (METERS) 

-------------------------- 

II DIRECTION 

, 

-I- 1 2 3 4 5 6 7 8 9 10 

24 ' 200 .0 200 .0 150 .0 140 .0 90 .00 0 .0 0 .0 0 .0 0 .0 0 .0 

23 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .C0 30 .00 25 .00 15 .00 

22 200 .0 200 .0 150 .0 140 .0 90.00 60 .00 50 .00 30 .00 25 .C0 15.00 ` 

21 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

20 200 .0 200 .0 150 .0 140 .0 90.00 60 .00 50 .00 30 .00 25 .00 15 .00 

19 200 .0 200 .0 150 .0 140 .0 gO .JJ . 60 .00 50 .00 30 .00 25 .50 15 .00 

18 200 .0 200 .0 150 .0 1110.0 90.00 60.00 50.00 30 .00 25 .00 15 .00 

17 . 200 .0 200 .0 150 .0 140 .0 90.C0 60 .00 50 .00 30 .00 25 .00 15 .00 

16 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

15 200 .0 200 .0 150 .0 140 .0 90.00 60 .00 '50 .00 30 .Elb 25 .00 15 .00 

14 200 .0 e00 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .(/0 25 .00 15 .00 

13 200 .0 200 .0 150 .0 ' 140 .0 90 .00 60 .00 50 .00 3 :. .pA 25 .00 15 .00 

fl ' 

~ . 

~ _ 71 - ~ 

/ 

' 

/, 

. . .s .. .~.._ .~ . 

i 

.

--- ~ 

Sample PRTVPd. Output 

. 

' 

~ 

MP3(TF - NECE 

12 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 5010 30 .00 25 .00 15 .00 

11 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

10 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .0J 25 .00 15 .00 

9 200 .0 200 .0 150 .0 1140 .0 90 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

8 200 .0 200 .0 150 .0 1110 .0 90 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

7 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

6 200 .0 200 .0 150 .0 1110 .0 90 .00 + 60 .00 50 .00 30 .00 25 .00 15 .00 

5 200 .0 200 .0 150 .0 1110 .0 q0 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

4 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .00 25 .00 1 ; .^0 

3 200 .G 200 .0 150 .0 140 .0 ,90 .00 60 .00 ~50 .00 30 .00 25 .00 15 .00 

2 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 50 .00 30 .00 25 .00 15 .00 

1 200 .0 200 .0 150 .0 140 .0 90 .00 60 .00 0 .0 0 .0 0 .0 0 .0 

CONTINUED FROM PRRVI003 PAOE 

x DIRZ CTION 

-T- j 11 12 13 14 15 16 17 18 19 20 

--- -- 

-- 

-- -- ° ° -- -- -- -- 

2n 0 .0 

0 .0 

23 10 .00 0 .0 

1 22 10 .00 0 .0 

21 10 .00 0 .0 

20 1r .00 0 .0 ' ~ 

19 10 .00 0 .0 

; 18 10 .00 0 .0 

; 

; 

1 7 

16 

10 .00 

10 .00 

0 .0 

0 .0 

F 15 10 .00 0 .0 

1 tf 10 .00 0 .0 . 

:t 13 10 .00 0 .0 • 

j 12 10 .00 0 .0 ~ 

' 

11 

10 

10 .00 

10 .00 

0 .0 

0 .0 1 • 

' 9 10 .00 0 .0 ; 

i 8 10 .00 0 . CY 

7 10 .00 O .d 4 , 

6 10 .00 0 .Q ' 

L/- 72 - 

t

• 

t 

NFSCM - NECE 

5 10 .00 O .C 

4 10 .00 0 .0 

3 10 .00 0 .0 

2 10.00 0 .0 

1 0.0 0 .0 

~ 

1FRICTION COEFFICIENTS (M/SEC) 

---------°------------------- ~ 

Sample PRTVFL Output 

X DIRECTION 

-7- 1 2 3 4 5 6 7 8 9 10 

24 0 .25008-03 0 .2500~-03 0,2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 

23 0 .2500E-03 0 .25Ct.-03 0 .2500E-03 0 .25C0E-03 0 .25C0E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500L'-03 0 .£500E-03 

22 0 .2500°-03 0 .2500E-03 0 .2500E-03 0 .2500E-0j 0 .25008-03 0 .2500Z-03 0 .2500E-03 0 .2500E-03 0 .25C0ld-03 0 .M0E-03 

21 0 .2500E-03 0 .2500C-0j 0 .25006-03 0 .2500£-03 0 .25008-03 0 .2500'-03 0 .2500E-03 0 .2500F-03 0 .2ti0CE-03 0 .25 02:-03 

20 0 .25008-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .25ilC"-03 0 .25a0G-C3 0 .2500E-03 0 .2500E-03 0 .250G3-03 0 .25 G03-03 

19 0 .2500E-03 0 .25C0E-03 0 .25C08-03 0 .25C^.• Z -03 0 .2,005-03 0 .2500-03 0 .2500E-03 0 .2500E-03 0 .25?fF i3 0 .25c03-03 

18 0 .2500R-03 0 .250QS-03 0 .25002-03 0 .2500E-03 0 .250eC-03 0 .250Ê-03 0 .250 ', E-03 0 .2500"s-03 0 . ._ :rt 3 -03 0 .2500«-03 

17 0 .2500E-03 0.2500E-03 0 .25C0E-03 0 .2500E-03 0 .2500E-03 0 .25CCE-03 0 .2500E-03 0 .25003-03 0 .F q CCG-C3 0 .2° c ^3-0j 

16 0 .25008-03 0 .250VE-03 0 .250C8-03 0 .25J03-03 0 .25?0 2 -p3 0 .2500E-03 0 .250CE-03 0 .25e0 ;_03 0 .250 :i';-03 0 .2 :00E-03 

15 0 .2500E-03 0 .25003-03 0 .2500E-03 0 .2500E-03 0 .25003-03 0 .2500E-03 0 .2500E-03 0 .250t7£-03 0 .25'10f:-03 0 .25Gv E-03 

14 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .25008-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2 ;OCE-03 

13 0 .2500E-03 0 .2500E-03 0 .25C0E-03 0 .2500E-03 0 .2500£-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .250c'-03 0 .250CS-03 

12 0 .2500E-03 0 .2500E-03 0 .2500B-03 0 .25003-03 0 .250C£-03 0 .25003-03 0 .2500E-03 0 .2500E-03 0 .2j0L'3-03 0 .25'0Z-03 

11 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .25008-03 0 .250cE-03 0 .25C0E-03 0 .250C3-03 0 .2 .ri0C~:-03 0 . ;:SiCF.-03 

10 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .250CC-03 0 .250C3-03 0 .2500F.-03 0 .2500E-03 0 .25 :10 S -03 0 .2500^-03 0 .2: -j F-03 

9 0 .2500E-03 0 .2500£-03 o .250cE-03 0 .250Ê-03 0 .2700^-03 0 .2500E-03 0,2500E-03 0 .2rC0:-03 0 .25?2'-03 0 .25C0E-03 

8 0 .2500E-03 0 .2500L•-03 0 .25nC3-03 0 .25J0E-03 0 .250CF.-03 0 .2500E-03 0 .2500E-03 0 .25003 -U3 0 .25CC5-0 3 0 .25CJ :-03 

.7 0 .2500E-03 0 .2500d-03 0 .2500E-03 0 .2500E-03 0 .2500E-03 0 .2500S-C3 0 .2500E-03 0 .2,008-03 0 .2 :; CCE-03 0 .250u .-03 

6 0 .2500E-03 0 .25008-03 0 .2500E-03 0 .2500E-03 0 .250C3-03 0 .2500E-03 0 .2500E-03 0 .25^CE-03 0 .4500E-03 0 .25W3 -03 

5 0 .2500E-03 0 .2500E-03 0 .250 C 8-03 0 .2500E-03 0 .25 .^.JE-03 0 .250r,E-03 0 .25008-03 0 .25006-03 0 .250CE-03 0 .25C

Sample PRTVEL output 

-T- 11 12 

24 0 .2500E-03 0 .e500E-03 

23 0 .2500E-03 0 .2500E-03 

22 0 .2500E-03 0 .2500E-03 

21 0 .2500E-03 0 .2500F.-03 

20 0 .2500E-03 0 .2500E-03 

19 0 .2500E-03 0 .2500E-03 

18 0 .2500E-03 0 .2500E-03 

17 0 .2500E-03 0 .2500E-03 

16 0 .2500E-03 0 .2500E-03 

15 0 .2500E-03 0 .2500E-03 

14 0 .2500E-03 0 .2500E-03 

13 0 .2500E-03 0 .2500E-03 

12 0 .2500E-63 0 .2500E-03 

11 0 .2500E-03 0 .2500E-03 

10 0 .2500E-03 0 .2500E-03 

9 0 .2500E-03 0 .2500E-03 

8 0 .2500E-03 0 .2500E-03 

7 0 .2500E-03 0 .2500E-03 

6 0 .2500E-03 0 .2500P.-03 

5 0 .2500E-03 0 .2500a-03 

4 0 .2500E-03 0 .2500E-03 

3 0 .2500E-03 0.2500E-03 

2 0 .2500E-03 0 .2500E-03 

1 0 .2500E-03 0 .2500E-03 

WF3CM - 6'ECE 

CONTINURD FROM PREVIOUS PAOE 

T DIRECTION 

13 14 15 16 17 18 19 20 

-- -- -- -- -- -- -- -- 

iLA7ER DEPTHS FOR THE EDDY VISCOSITY (NONDIMENSIONAL) : 

°----------------------------°----°---°-------- 

1I DIRECTION 

-T- 1 2 3 4 5 6 7 8 9 10 

24 0 .0 0.0 0.0 0.0 0.0 0.0 0 .0 - 0.0 0.0 0 .0 - 

.'!- 74

NFSUM - NECE S a mp1e PNTYEL Output 

24 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2C00 0 .2000 

24 0 .4000 0 .4000 0 .4000 0 .4C00 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

24 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

23 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

23 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

23 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

23 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

22 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

22 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

22 0 .4000 0 .4000 ( 1 .9000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

~ 22 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

21 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

21 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

21 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

21 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .C00 1 .000 

20 0,0 0 .0 0 .0 n _0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

20 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

20 0,4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

20 1 .000 1 .000 1 .000 1 .000 1•,000 1 .000 1 .000 1 .000 1 .000 - 1 .000 

19 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

19 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

19 0 .4000 0 .4000 0 .4000 0 . h 000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

19 1 .000 1 .000 1 .0U0 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

18 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

18 0 .2000 0 .2000 0 .2000 C .°000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2C00 

18 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4003 0 .4•:100 0 .4000 

18 1 .000 1 .000 1 .000 1 .090 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

17 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

17 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

17 0 .4000 0 .40CJ 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

17 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 • 1 .030 1 .000 1 .000 

16 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 ' 0 .0 

16 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

16 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

16 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

15 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

15 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

15 0 .4000 0 .4000 0 .4000 0 .11900 0 .4000 0 .4C00 0 .4000 0 .4000 0 .4000 0 .4000 . 

15 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

/ . 

i 

. . . . . . . . . . . . . . . . . . 

. . . . . . . 

, 

~ aw .. .. _ . . , . . . . , . _ . . .,., . . . . a. , . .,~ .- . .,. . . , . . . , ._ . . .~ . . :, . • . . .. . . . .• . . . . _ . . .. • . . .•_ . . ,. . . , . . .r ._.. ..~, . ..,+. .a ~ .t..r . -- .awr 

-75 .-

~ 

i 

, 

i 

Sample PRTVEL Output hPS .CM - MICP. 

14 0 .0 0 .0 0 .0 0 .0 •0 .0 0 .0 0 .0 0 .0 0 .0 - 0 .0 

14 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

14 0 .4000 0 .4000 0 A 000 0 .4c70 0 .11000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

14 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

13 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

13 0 .2000 . 0 .2000 0 .2000 0.2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

13 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .40n0 0 . :o0D 0 .4000 

13 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .003 1 .030 ~ 

0 .0 0 .0 0 .0 0.0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

0 .4000 0 .4000 0 .4000 0 .4000 0 .4040 0 .4000 0 .4000 0 .40^0 0 .400 o ' 0 .11000 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .OOO 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2100 0 .20 3 0 

0 .4000 0 .000 P 0 .4000 0 .4000 0 .uo0o 0 .4000 0 .4000 0 .4000 0 .4c00 0 .400 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0.2000 0 .2000 0 . .'.000 0 .2000 0 .2000 0 .2000 0 .2000 

0 .400Q 0 .4C00 0 .4000 0 .'i000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2C l00 0 .2000 0 .2000 

0 .4000 0 .4000 0 .4000 0 .4000 0 .4400 0 .4000 0 .4000 0 .4033 0 .4000 0 .Ci.00 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .20^.0 0 .2000 

0 .4000 0 .4000 0 .4000 0 .4000 0 .11000 0 .4000 0 .4000 0 .§000 0 .4000 0 .4000 

1 .000 1 .000 1 .070 1 .000 1 .000 1 .000 1 .000 1 .000 1 .003 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .2000 0 .c000 0 .2000 0 .2000 0 .20G0 0 .2000 0 .2000 

0 .4000 0 .4000 0 .4Q00 0 .40G0 0 .11000 0 .000 0 .4000 0 .4000 0 .4000 0 .21009 

1 .000 1 .000 1 .000 1 .000 i .C00 1 .000 1 .000 1 .000 1 .000 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0.2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

-76-

1 1 

, 

wesca - NeCg 

. 

Savple PATYEL Output 

0 .4000 0 .4000 0 .4000 0 .4000 0 . 4 000 0 .4000 0 .4000 0 .4000 0 .4000 0 .0000 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .0'10 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .20^0 0 .2.^0 0 .2000 0 .2000 0 .2000 0 .20r0 0 .2000 

0 .4000 0,4000 0 .4000 0 .4000 0 .1,600 0 .4000 0 .4000 0 . 4 000 0 .11000 0 .40C0 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 + .J00 1 .000 1 .000 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 .0 .2C00 0 .2000 0 .20Co 

0 .4000 0 .4000 0 .4000 0 .400 0 0 .4000 0 .4000 0 .4000 0 .aC00 0 .40-,0 0 .4000 

1 .000 1 .000 1 .000 1 .000 1 .C00 1 .000 1 :0C0 1 .0C0 1 .000 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .20DO D,ef+OO 0 .2000 0 .2000 0 .2000 0 .20,00 0 .2000 0 .29 :)0 

0 .4000 0 :4000 0 .4090 0 .4050 0 .4CJ0 0 .4000 0 .4000 0 .4000 0 .4600 0 .°o00 

1 .000 1 .000 1 .000 1 .000 1 .C00 1 .000 1 .000 1 .000 1 .000 1 .000 

0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 0 .2000 

0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4000 0 .4C00 0 .4000 0 .4000 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 

0 .0 ' 0 .0 0 .0 0 .0 0 .0, 0 .0 0 .0 0 .0 0 .0 C .0 

0 .2000 0 .2000 0 .2000 0 .2(?00 0 .2000 0 .2000 0 .2000 0 .20C0 0 .2000 0 .2nD0 

0 .4000 0 .4000 0 .4000 0 .4000 0 .4C00 0 .4000 0 .4000 0 .4C00 0 .4CD0 0 .40D0 

1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .000 1 .0c0 

CONTINUED FRON PREYIOU3 PAGE 

X DIRECTION 

-r- 11 12 13 14 15 16 17 18 19 20 

--- ° -- -- -- -- -- -- -- -- 24 0 

.0 0 .0 

24 0 .2000 0 .2000 

24 0.4000 0 .4000 

24 1 .000 1 .000 , 

/-77-

Sample PRTYEL Output 

23 . 0 .0 0 .0 

23 0 .2000 0 .2000 

23 0 .4000 0 .4000 

23 1 .000 1 .000 

22 0 .0 0 .0 

22 0 .2000 0 .2000 

22 0 .4000 0 .4000 

22 1 .000 1 .000 

21 0 .0 0 .0 

21 0 .2000 0 .2000 

21 0 .4000 0 .4oco 

21 1 .000 1 .000 

20 0 .0 0 .0 

20 0 .2000 0 .2000 

20 0 .4000 ' o .4c00 

20 1 .000 1 .000 

19 0 .0 0 .0 

19 0 .2000 0 .2000 

19 0 .4000 0 .4000 

19 1 .000 1 .000 

18 0 .0 0 .0 

18 0 .2000 0 . 2000 

18 0 .4000 0 .4000 

18 1 .000 1 .000 

17 0 .0 0 .0 

17 0 .2000 0 .2000 

17 .0 .4000 0 .4000 

17 1 .000 1 .000 

16 0 .0 0 .0 

16 ' 0 .2000 0 .2000 

16 0 .4000 0 .4000 

16 1 .000 1 .000 

15 0 .0 0 .0 

15 0 .2000 0 .2000 

15 0 .4000 0 .4000 

15 1 .000 1 .000 

14 0 .0 0 .0 

14 0 .2000 0 .2000 

14 0 .4000 0 .4000 

i! - 78 - 

HF3Q1 - NECS

MFSQt - NECE 

1 .000 1 .000 

0 .0 0 .0 

0 .2000 0 .2000 

0 .4000 0 .4000 

1 .000 1 .C0o 

0 .0 0 .0 

0 .2000 0 .2000 

0 .4000 0 .4000 

1 .000 1 .000 

0 .0 0 .0 

0 .2000 0.2000 

0 .4000 0 .4000 

1 .000 1 .OC0 

0 .0 0 .0 

0 .2000 0 .2000 

0 .4000 

0 .4000 

1 .000 

0 .0 

1 .000 

0 .0 

0 .2000 0 .2000 

0 .4000 0 .4000 

1 .000 

1 .000 

0 .0 

0 .0 

0 .2000 0 .2000 

0 .4000 0 .4000 

1 .000 1 .000 

0 .0 0 .0 

0 .2000 0 .2000 

0 .4000 0 .4000 

1 .000 1 .000 

0 .0 0 .0 

0 .2000 0 .2000 

0 .4000 0 .4000 

1 .000 1 .000 

0 .0 

0 .0 

0 .2000 0 .2000 

0 .4000 0 .000 

1 .000 1 .000 

0 .0 

0 .0 

0 .2000 0 .2000 

, / -79- 

Seople PRTVEL Output

~ 

Sample PRTVP.I. Output 

4 0 .4000 0 .4000 . 

4 1 .000 1 .00^ 

3 0 .0 0 .0 

3 0 .2000 0 .2000 

3 0 .4000 0 .4000 

3 1 .000 1 .000 

2 0 .0 0 .0 

2 0 .2000 0 .2000 

2 0 .4000 0 .4000 

2 1 .000 1 .000 

1 0 .0 0 .0 

1 0 .2000 0 .2000 

1 0 .4000 0 .4000 

1 1 .000 1 .000 

-7- 1 2 3 

24 0 .0 0 .0 0 .0M 

23 0 .0 0 .0 0 .0 

22 0 .0 0 .0 0.0 

21 0 .0 0 .0 0 .0 

20 0 .0 0 .0 0 .0 

19 

18 

17 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

16 

15 

14 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 .0 

0 . -!) 

0 .0 

13 0 .0 0 .0 0 .0 

12 0 .0 0 .0 0 .0 

1INITIAL AF6'LITUDES(!RS) 

II DIRF.CTION 

M 5 6 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 

//-80- 

11PS(yl - NECE 

7 8 9 10 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

o .d 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

0 .0 0 .0 0 .0 0 .0 

. .w . . .R .w..... ..-_

NFSa - NECE 

11 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

• 10 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

9 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

8 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

7 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .G 0 .0 

6 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0.0 0 .0 

5 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

4 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

3 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

2 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 

1 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 0 .0 


I DIP.ECTION 

-T- 11 12 13 14 15 16 17 t8 

24 0 .0 0 .0 

23 0 .0 0 .0 

22 0 .0 0 .0 

21 0 .0 0 .0 

20 0 .0 0 .0 

19 0 .0 0 .0 

18 0 .0 0 .0 

17 0 .0 0 .0 

16 0 .0 0 .0 

1 5 0 .0 0 .0 

14 0 .0 0 .0 

13 0 .0 0 .0 

12 0 .0 0 .0 

11 0 .0 0 .0 . 

10 0 .0 0 .0 

9 0 .0 0 .0 

8 0 .0 ` 0 .0 

7 0 .0 0 .0 . 

6 0 .0 0 .0 ~ 

5 0:0 0 .0 

//- 61 

f 


0.0 0 .0 

0 .0 0 .0 

0 .0 0 .0 

0 .0 0 .0 

0 .0 0 .0 

0 .0 0 .0 

0 .0 0 .0 

0 .0 0 .0 . 

0 .0 0 .0 

0 .0 0 .0 

0 .0 0 .0 

19 20 

i

Sample PBTVEL Output 

4 0.0 0 .0 

3 0.0 0 .0 

2 0.0 0 .0 

1 0.0 0 .0 

PEBIOD OF THE TIDAL QSCILLATIONs 0 .454E 05SECS 

1ELF.NEHT TYPES 

------------ 

HFSCM - NECE 

II DIPECTION 

-Y- 

-° 

24 

23 

22 

21 

20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 

1 

1 

-- 

2 .000 

2 .000 

2 .000 

2 .000 

2 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .000 

5 .00r, 

5 .N0 

5 .000 

5 .000 

2 

-- 

1 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

1 .000 

3 

-- 

1 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .0c0 

4 .000 

4 .000 

4 .000 

4 .000 

1 .000 

4 

-- 

1 .000 

4 .000 

4 .000 

4 .C00 

4 .000 

4 .000 

4 .000 ' 

4 .000 

4,003 

4 .000 

4 .000 

4 .000 

4 . M- 0 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .co0 

4 .000 

4 .000 

1 .000 

5 

-- 

1 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .0CO 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .c00 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

1 .000 

6 

-- 

0 .0 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .0 :'0 

4 .000 

4 .000 

4 .000 • 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

1 .000 

7 

-- 

0 .0 

4 .000 

4 .0JO 

4 .000 

4 .000 

4 .000 

4 .C00 

4 .000 

4 .000 • 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

0 .0 

8 

- - 

0 .0 

4 .000 

e .oen 

4 .000 

4 .000 

4 .000 

. 4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

0 .0 

9 

-- 

0 .0 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .009 

4 .0c0 

4 .C00 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

:. .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

0 .0 

10 

-- 

0 . 1) 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

4 .oco 

4 .000 

4 .000 

4 .000 

4 .000 

4 .000 

0 .0 

/- J-82-

~ 

r 

~ 

HF3CM - NECE Sample PRTVEL Output 

-T- 11 

CONTIYUF:D PROM PREVIOi19 PAOE 

X DIRECTION 

12 13 14 , 15 16 17 18 19 20 

.0-- -- -- -- -- -- -- 

2q 0 .0 0 

23 4 .000 0 .0 

22 4 .000 0 .0 

21 4 .000 0.0 , 

20 4 .000 0 .0 

19 4 .000 0 .0 

18 4 .000 0 .0 

17 4 .000 0 .0 

16 4 .000 0 .0 

15 4 .000 0 .0 

14 4 .000 0 .0 

13 4 .000 0 .0 

12 4 .000 0 .0 

11 4 .000 0 .0 

10 4 .000 0 .0 

9 4 .000 0 .0 

8 4 .0oC 0 .0 

7 4 .000 0 .0 

6 4 .000 0 .0 

5 4 .000 0 .0 

4 4 .000 . 0 .0 

3 4 .000 0 .0 

2 4 .000 0 .0 

1 0 .0 0 .0 

. , . .' . . . . . . . I I . . . . . . . . . . I . I . . . a . . a a a . . . . . . . 

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 

71 -83-

Sample PRTVEL 0utput 

/ TIME 000 .00 800RS / 

--------------------- 

WFSCM - NECE 

. 

WATER ELEVATION(MTS) A80VE STILL WATER 

-----------------°-----------°------ 

X DIP.ECTION • 

->-. 

1 2 3 4 ; 6 7 8 9 10 

-- - 

24 

-- 

0 .0 

-- 

- 0 .8471E-02 

-- 

- 0 .1998Z-01 

-- 

-0 .2960E-oi 

-- 

-0 .3814E-01 

-- 

0 .0 

-- 

0 .0 

-- 

0 .0 

-- 

0 .0 

-- 

0 .0 

23 0 .0 -0 .8r171E-02 - 0 .1998E-01 -0 .2960P,-01 -0 .3814E-o1 -0 .4403E-01 - 0 .4521E-01 -0 .3138E-01 -0 .2836E-01 -0 .1322E-01 

22 0 .0 -0 .7172E-02 - 0 .1985E-01 -0 .3091E-0t -0 .4202E-01 - 0 .6216E-01 -0 .6270E-01 -0 .64902-01 - 0 .5635E-01 -0 .4931E-0t 

21 

20 

0 .0 

0 .0 

-0 .5071E-02 

-0 .1732E-02 

- 0 .1830E-01 

- 0 .1587E-01 

-0 .3C0 ; E -01 

-0 .2851E-01 

-0 .4141s-01 

- 0 .4J04E-01 

-0 .5952E-01 

-0 .5761E-01 

- 0 .61168-01 

= 0 .5957E-01 

-0 .675EE-01 

-0 .6796E-01 

-0 .591 5 Q-01 

-0 .6070e-01 

-0 .54756-01 

-0 .5646E-01 

19 0 .0 0 .41 4 7P.-02 -0 .1387E-01 -0 .2781E-01 -0 .3943E-01 -0 .5655E-01 -0 .5873 E -01 -0 .6767E-01 - 0 .6U78E-01 -0 .5701E-01 

18 0 .0 -0 .4430E-0232E-01 -0 .6577E-01 - 0 .6697 9 -01 -0 .7327$-01 -0 .6606E-01 - 0 .6237E-01 

13 0 .0 -0 .1663E-01 - 0 .3122E-01 -0 .u(ooE-01 -0 .5559E-01 -0 .6860E-01 - 0 .5927E-01 -0 .7515E-01 -0 .6764E-01 - 0 .6385E-01 

12 0 .0 - 0 .18 5 5E-01 -0 .3412P.-01 -0 .4917E-01 - 0 .58546-01 - 0 .7113E-01 -0 .7122E-01 -0 .7683E-01 -0 .693 7E-01 -0 .65?.5E-01 

11 0 .0 -0 .2045E-01 - 0 .3684E-01 - 0 .5 203F'.-01 -0 .6107E-01 . -0 .7324E-01 - 0 .7274r-01 -0 .7819E-01 -0 .7027E-01 - 0 .6657E-01 

10 0 .0 -0 .2224E-01 -0 .j ;32E-01 -0 .5455E-01 -0 .631 ;F.-11 -0 .7485E-01 - 0 .7376E-01 -0 .7920E-01 - 0 .7124E-01 -0 .6782E-01 

9 0 .0 -0 .239IF.-01 -0 .4155E-01 -0 .5670F.-01 -0 .6475E-01 -0 .759?E-0t - 0 .7424B-01 -0 .79E3B-01 - 0 .7198E-01 - 0 .6924E-01 

8 

7 

0 .0 

0 .0 

-0 .2i42E-01 

-0 .2C•86F.-01 

-0 .4351E-01 

-0 .4521E-01 

-0 .5fI19°-C1 

-0 .5925E-01 

-0 .E• r, 83E-01 

-0 .6641?-01 

-0 .7644F.-01 

-0 .7632E-01 

- 0 .7411E-01 

-0 .7330E-01 

-0 .80C7E-01 

-0 .7990E-01 

-0 .72u3E-01 

- 0 .7313E-01 

-0 .7071E-01 

-0 .7245°-01 

6 0 .0 -0 .2E25E-01 - 0 .4667E-01 - 0 .6091E-01 -0 .664RE-01 - 0 .75 11 9E-01 - 0 .7171E-01 -0 .79262-01 - 0 .7352E-01 -0 .7472E-01 

5 0 .0 -0 .2945E-01 -0 .47818 31 -0 .6160E-01 -0 .6fi05E-01 -0 .7380E-01 - 0 .6932E-01 -0 .7812E-01 -0 .735'2E-01 - 0 .7795E-01 

4 0 .0 -0 .3040E-01 - 0 .4862E-01 -0 .6201E-01 -0 .6511E-01 - 0 .7110E-01 -0 .6598E-01 -0 .7660E-01 - 0 .7456E-01 -0 .8282E-01 

3 0 .0 -0 .3086P.-01 - 0 .4904E-01 -0 .6215E-01 --0 .6417E-01 -0 .6703E-01 - 0 .6148E-oi -0 .7526E-01 -0 .7590E-01 -0 .9049E-01 

2 0 .0 - 0 .3042E-01 -0 .4Eq0E-01 - 0 .6?3 6 E-01 -0 .6%73E-01 - 0 .6069E-ot -0 .7292E-01 -0 .1021 - 0 .9990E-01 -0 .1288 

1 0 .0 -0 .3042E-01 -0 .4890E-01 - 0 .6236E-01 -0 .6373E-01 -0 .6069E-0i 0.0 0 .0 0 .0 0 .0 

CONTINUED PRON PREVIOUS PAGE 

X DIRECTION 

-T- 11 12 13 14 15 16 1T 18 19 20 

.0-- -- -- -- -- -- -- -- -- 

24 0.0 0 

// -84- 

.. . . ~ . ,a_~w..w .. .

UFSCM - NECE 

23 -0 .9693L-02 0 .0 

22 -0 .4182E-01 0 .0 

21 -0 .4706E-01 0 .0 

20 -0 .4f1,28-01 0 .0 

19 -0 .4902E-01 0 .0 

18 -0 .49658-01 0 .0 

17 -o .50F6E-01 0 .0 

16 -0 .51998-01 0 .0 

15 -0 .5349E-01 0 .0 

14 -0 .5503E-01 0 .0 

13 -0 .5652E-01 0 .0 

12 -0 .579 4S -01 0 .0 

11 -0 .59358-01 0 .0 

10 -0 .6090E-01 0 .0 

9 -0 .6244E-ut 0 .0 

8 -0 .6413E-01 0 .0 

7 -0 .6628E-01 0 .0 

6 -0 .6939E-01 0 .0 

5 -0 .743l I E-01 0 .0 

4 -0 .8285E-01 0 .0 

3 -0 .9833 9 -01 0 .0 

2 -0.1446 0 .0 

1 0.0 0 .0 

, Z-Mf8 U(Z)-M/S 

0 .0 0 .1848-01 

10 .0 0 .2258-01 

25 .0 0 .109E-01 

30 .0 0 .9928-02 

39 .0 0.1345-01 

50r : 0 .t588-01 

UNDETERMINED PARA!>ETERS : 

VELOCITY PROFILE - ORID( 6,19) 

----------------------------- 

1 0 

Y(Z)-M/9 SPEED-M/3 DIREC-DEG 

-0 .121E-01 0 .221&-01 -33 .4 

-0 .332E-01 0 .401E-01 -55 .9 

-0 .508E-01 0 .520E-01 -77 .9 

-0 .536E-01 0 .545s-01 -79 .5 

-0 .537E -01 0 .553E-01 -76 .0 

-0 .404E-01 0 .434E-01 -68 .7 

,'i-85- 

Sacple PRTVEL Output .

Sample PRTVFL Output 

1 2 3 

C(J) 0 .809E-ot 0 .162E-01 0 .800E-02 

~ D(J) -0 .156E 00 -0 .395E-02 -0 .218E-02 

MASS FLUIIES -S Q MTS/SEC : 

QR= 0 .0 OY= 0 .0 

SURFACE REIGNT - H'1'S :-0 .565P.-01 

VELOCITY PROFILE - GRID( 9,19) 

-----°------------ ----------- 

. Z-MTS U(Z)-M/S V(Z)-M/S SPEED-M/S DIREC-DEO 

----- -------- 

0.0 0 .140E-01 

5.0 0 .251E-01 

-------- 

0 .437E-01 

0 .13Ê-01 

--------- 

0 .459E-01 

0 .283E-01 

--------- 

72 .2 

27 .4 

12.0 0 .916E-02 -0 .753E-02 0 .114E-01 -39 .4 

17 .0 -0 .139E-01 0 .172E-03 0 .139E-01 179 .3 

UNDETERMINED PARAMETERS : 

1 2 3 

C(J) 0 .724E-01 0 .342E-01 -0 .832E-02 

D(J) -0 .915E-01 -0 .196E-01 0 .896P.-o2 

MASS FLUXES-SQ MTS/SEC : 

Qx= 0.0 QY= 0 .0 

SURFACE HEIGHT - MTS :-0 .608E-01 

VELOCITY PROFILE - GRID( 6,12) 

----------°--°--- ----------- 

Z-!f[S U(Z)-M/S 

V(Z)-M/S, SPEED-M/S DIREC-DEG 

---° 

-------- 

0.0 -0 .132E-01 

5 .0 -0 .770E-0= 

-------- 

0 .383E-02 

-0 .819E-02 

--------- 

0 .138E-Ot 

0 .112E-01 

--------- 

163 .8 

-133 .2 

// - 86 - 

NFSCM - NEC6

f 

; 

i 

HRSU1 - NECE Sample PRTVEL Output 

12.0 -0.531E-02 -0.231E-01' 0.237E-01 -102 .9 

60.0 0 .125E-03 -0.1188-01 0.118E-01 -89 .4 

100 .0 

DGPTH SPECIFIED IS BFLO,a THE STILL RATRR'DfPTN FOR THE G°ID( 60 .0) 

140.0 DEPTH SFCCIFIED IS D cL01i TiIE STILL WATER DE?TN F0R THE GIID( 60,0) 

UNDETERMINED PARAMETERS : 

1 2 3 

C(J) 0 .507E-01 0 .204E-01 0 .2368-02 

D(J) -0 .147E 00 0 .334E-02 -0 .278E-02 

MASS FLUXES-SQ MTS/SEC : 

QX : 0.0 QY: 0 .0 

SU7FACd HEIGHT - lffS :-0 .711E-01 

CURRENT SPEEDS AT LEYEL 0 .0 f IN MTS , 'SEC 

---------------°--------------------• 

X DIBECTI091 

-Y- 1 2 3 4 5 6 

24 0 .38808-01 0 .38808-01 0 .4018L-01 0 .35528-01 0 .1667E-01 0 .0 

23 0 37048-01 0 .3704E-01 0.4099E-C1 0.4179c-01 0 .2?2 :E-01 0 .6971E-01 

22 0 .? ;24E-01 0 .3324E-01 0 .41845-01 0 .4g50L-01 0 . 42" 9%R-01 0 .347hE-01 

21 0 .2 : .87E-01 0 .2587E-01 0 .4133E-01 0.5533'>'-01 0 .580-:E-01 0 .279EE-01 

20 0 .13?6E-01 0 .1335?-o) 0 .395h8-01 0 .5910E-01 0 .6':01!t-01 0 .2528R-01 

19 0 .39b'E-02 0 .10?4E-01 0 .3804E-01 0 .61398-01 0 .60016-01 0 .2206E-01 

18 0 .4574'-01 . 0 .4973E-02 0 .38108-01 0 .617r,E-01 -0 .679)C-01 0 .1836R-01 

17 0 .2127F.-01 0 .3225E-01 0 .4618E-01 . 0 .6268E-01 0 .6556E-01 0 .1536E-01 

16 0 .8418E-01 0 .64998-01 0 .59198-01 0 .6R7%E-01 0 .6453E-01 0 .13523-01 

15 0.1505 0 .1002 ' 0 .7453E-01 0 .6755Z -01 0 .622CE-01 0 .1252F•-01 

14 0 .2174 0 .1361 0 .9082E-01 0 .7094E-01 0 .5971F.-01 0 .1211E-01 

13 0.2843 0.1722 0.1075 0 .T480'-01 0 .571S3-91 0 .12443-01 

12 0.3494 0.2000 0.1244 o .T911E-01 0 .5 1 /70E-01 0 .1375E-01 

11 0.4164 0.2443 0.1416 0 .8391E-01 0 .5235'a-01 0 .1610E-01 

10 0.4844 0.2809 0 .1591 0 .89208-01 0 .5C22 E-01 0 .1931E-01 

f/-87- 

7 

0 .0 

0 .5933E-01 

0 .2323?-01 

0 .2n61E-01 

0 .31398-01 

0 .338eE-01 

0 .3335E-01 

0 .3109v-01 

0 .2701E-01 

0 .2395E-01 

0 .1981E-01 

0 .1564?-01 

0 .11633-01 

0 .8209?-02 

0 .5934E-02 

8 9 10 

0.0 0.0 0 .0 

0 .1203 0 .92995-01 0.137~ 

0 .8548E-01 0 .705GC-01 0 .124 

0 .663a---01 0 .5 3 7 3E-01 0 .1179 

0 .5564 .'••-G1 0 .5143C-01 0 .1128 

0 .47r28-01 0 .45S2w-01 0 .1Q0 

0 .4331E-01 0 .421 ;c-01 0 .1067 

0 .415 :'£-O1 0 . I.042'-01 0 .1058 

0 .1:3a4E-01 0 .1061 

0 .C5zE-01 0 .4203E-01 0 .1C70 

0 .4fla5£-01 0 .41,122-01 0 .1C83 

0 .52:'E-01 0 .10Gr 

0 .5505E-01 0 .4 :i?CE-O1 0 .110~ 

0 . 5 7 65E-01 0 . j1 !'6 ?£-01 0 .110 

0 .59G1~-01 D .50i48-01 0 .110~

I ,' I . . 

~ 

1 

\ 

. ~ 

. ~ 

. I ~ 

• . . 

:~-- , 

..~' . 

. 

Sample PsTVEL Output MF'SQ1 - NECE 

9 0 .5507 0 .3173 • 0 .1767 0 .9493E-01 0 .4839E-01 0 .2322E-01 0 .6194E-02 0 .6 ! 53E-01 0 .509 0E-01 0 .1092 

8 0 .6189 •0 .3541 0 .1945 0 .1011 0 .46q3E-01 0 .2785E-01 0 .8983F.-'J2 0 .621 7E:-01 0 .501 15E-01 0 .1066 

7 0 .6843 U .3904 0 .2124 0 .1075 0 .479G3-01 0 .335CE-01 0 .1327E'-01 0 .645°E-01 0 .4942E-01 0 .1023 

6 0 .7515 0 .4268 0 .2303 0 .1143 0 .4593e-01 0 .4C7?E-01 0 .1903E-01. 0 .65526-01 0 .46443-01 0 .9643E-01 

5 0 .8185 0 .4627 0.2478 0 .1212 0 .4712e-01 0 .506'1E-01 0 .2656E-01 0 .7077E-01 0 .485bE-01 0 .895°.iE-01 . 

4 0 .8848 0 .4972 0 .2641 0 .1278 0 .5055E-01 0 .6412E-01 0 .3683E-01 0 .7G9GE-01 0 .4982E-01 0 .8337E-01 

3 0 .9480 0 .5275 0 .2775 0 .1337 0 .5u110t-'-01 0 .8190E-01 0 .5118E-01 0 .8463C-01 0 .53"?E-01 0 .8159E-01 

2 1 .011 0 .5478 0 .2852 0 .1370 0 .6 .^_031--01 0 .1013 0 .2243E-01 0 .3420E-01 0 .3555E-01 0 .375?E-01 

1 1 .018 0 .5338 0 .2826 0 .1374 '0 .6144E-01 0 .8655E-01 0 .0 0 .0 0 .0 0 .0 

CONTINUED FROM PREVIOUS PACE 

X DIRECTION 

-7- 11 12 13 14 15 16 17 18 19 . 20 

--- -- 

-- 

-- -- ° ° ° -- -- -- • 

24 

0 .0 

0 .0 

23 0 . 9527E-01 0 .0 

22 0 .9596E-01 0 .0 

21 0 .9 :53E-01 0 .0 

20 0 .94258-01 0 .0 

19 0 .9281E-01 0 .0 

18 0 .9179E-01 0 .0 

17 0 .9131E-01 0 .0 

16 ' 0 .9131E-01 0 .0 

.15 0 .9162E-01 0 .0 

14 0 .9206E-01 0 .0 

13 0 .9246E-01 0 .0 

12 0 .9268C-01 0 .0 ' 

11 0 .9262E-01 0 .0 

10 0 .9243E-01 0 .0 

9 0 .9161. :'•0/ 0 .0 

.8 0 .9a .iE-01 e .o 

7 0 .8714&-01 0 .0 

6 0 .8264E-01 0 .0 

5 0 .7603F.-01 0 .0 

4 0 .6714E-01 0 .0 

3 0 .5810 9 -01 0 .0 

,L/ - 88 -

F 

i 

, . . 

` 

. / 

HFSRI -NECE Saa p le PRTYEL Output 

~ 2 0 .26678-01 0 .0 

1 0.0 0 .0 

CURRENT DIRECTIONS AT LEVEL 0 .0 f IN DEO FROM THE X AXIS 

°-----°--- - ----------------------------------------•--- 

X DIAECTION 

3 4 5 6 7 8 9 10 

24 -72 .68 -72 .68 -65 .57 -58 .41 25 .57 0 .0 0 .0 0 .0 0 .0 0 .0 

23 -71 .82 -71 .82 -66 .08 -63•56 -49 .63 119 .2 124 .9 

124 .8 

22 -6y .24 

123 

-69 .24 

.5 122 .3 

-62 .42 -61 .79 -50 .32 64 .98 _ 70 .06 

102 .5 102 .4 106•3 

21 . -64•58 -64•58 -59 .09 -62 .46 -55 .49 19 .99 -1 .31 8 

20 -49-52 

85 .44 

-49 .52 

85•27 

-57 .16 -65 

97 • 54 

.47 -62 .12 -9 .908 -30 .20 

19 0 .0 

65 .62 

76 .42 75 .48 

-59 

9i•74 

.55 -70 .87 -69 

18 

.30 -33•41 -46 .43 

89 .67 

74 .96 72 .21 

-86 . 96 -80 . 80 - 

92 .79 

80 . +31 -77 .30 -56 .64 

17 -125 

-58 .40 

78 .8F 

.8 -112 .7 -100 

7i .39 93 .27 

.3 -91 .07 -84 .96 -81•79 -67•73 

84 .90 

16 -111 .6 

76 72 94 

-118 14 

.5 -113 .0 -100 .1 -91 .56 -107 .4 ' -74 .65 . 

. 

90 .11 

15 -110 80 .24 94 .92 

.3 -121 .4 -121 .0 -107 .8 -97 .08 -131 .7 -79 .12 

14 

93 .20 82 

-110 .0 -123 .73 95 .42 

.2 -126 .2 -114 .4 -101 .8 

1 .j •109 

-154•7 -81 .03 94 .35 

.9 -124 83 .96 95 59 

.3 -129 .9 -120 

. 

.2 -106 .2 

• s -110 

-176 .6 -79 .98 94 .12 

.0 -125 .1 

8'1 .15 

-132 

95 .51 

.7 -125 .4 -110 .7 

11 - ;t0 

163 .8 -74 .79 

.0 -125 

93 .07 8~ .59 95 .24 

.7 -134 .9 -130 .2 -115 

10 

.6 • 1h8 .2 -62 .32 

-tt0 .o 

97 .58 82 

-126 .1 -136 .8 

.51 94 .85 

-134•8 -121 .2 136 .6 -35•07 89 .78 80 .99 94•4'1 

9 -110 .1 5 -138 .4 -139 :0 -127 .6 128 .0 3 .648 87 .62 

6 -110 .1 -t2f, 9 73 

-139 .9 -143 .1 -135 .0 121 .3 29 .00 

? -110 

84 .94 7 5•~2 92 .97 

.2 -127 .? -141 .2 -146 .9 -143 .5 115 .8 41 .94 81•79 71 .05 91 .31 

~ -~ 1 C .' -127 .'. -142 .3 -150.a -153 .4 111 .4 50 . 46 78 .08 64 .86 88 . 

5 

93 

-1e" .6 -143 .3 -153 .8 -164 .4 108 .6 59 .08 75 .34 59 .16 

4 85 • 95 

-127 .6 -143 .y -156 .6 -175 .3 107 .7 70 .62 76 .27 59•35 84 .02 

3 -127 .4 -t44 .2 -1iN ! 175 .9 109 .4 86 .69 85 .37 76 .C5 

-1i9 .1 1 89•25 

-144 .2 -1Q',n 171 .3 112 .7 180 .0 18 3 .0 180 .0 180 .0 

~ i~ .':0 -1i.P• 'A -144,9 - cr , 176 .2 116 .6 0 .0 0 .0 0 .0 0 .0 

G .NiIN•If^ PM1M Pi'4:IOa5 P!.~. 

~r-8)-

Sample PRTVEL Ovtput 

-2- 11 12 

24 0 .0 0 .0 

23 118 .6 0 .0 

22 105 .9 0 .0 

21 99 .27 0 .0 

20 96 .69 0 .0 

19 96 .03 0 .0 

18 96 .19 d.o 

17 95 .57 0 .0 

16 96 .92 0 .0 

15 97 .14 0 .0 

14 97 .22 0 .0 

13 97 .19 0 .0 

12 97 .08 0 .0 

11 96 .96 0 .0 

10 97 .09 0 .0 

9 96 .90 0 .0 

8 96 .44 0 .0 

7 95 .72 0 .0 

6 94 .63 0 .0 

5 93 .10 0 .0 

4 91 .54 0 .0 

3 93 .77 0 .0 

2 180 .0 0 .0 

1 0 .0 0 .0 

X DIRECTION 

13 14 • 15 16 

CURRENT SPEEDS AT LEVFL 50 . >1 IN MI3/3EC 

17 18 

NFSCN - NECE 

19 20 

X DIRECTI0Y 

-2- 1 2 3 4 5 6 7 8 9 10 

--- -- -- -- -- -- -- -- -- -- -- 

24 0 .4911E-01 0 .4911E-01 0 .5130E-01 0 .4861E-01 0 .2670fi-01 0.0 0.0 0.0 0.0 0 .0 

23 0.4746E-01 0 .4746E-01 0 .5183E-01 0 .5399E-01 0 .4555E-01 0 .1892E-01 0 .2380E-01 0 .3955E-01 0 .2944E-01 0 .3789E-01 

22 0 .4414E-01 0 .4414E-01 0 .51U6E-01 0 .5806E-01 0 .5652E-01 0 .2761E-01 0 .2459E-01 0 .1625E-01 0 .1625E-01 0 .3053E-01 

// - 90

11FS(?t - NECE 

21 

20 

19 

18 

17 

16 

15 

14 

13 

12 

11 

10 

9 

8 

7 

6 

5 

4 

3 

2 1 

-Y . 

24 

23 

22 

21 

20 

i ? 

18 

17 

16 

15 

0 .3814F.-01 0 .3874E-01 0 .5094E-01 

0 .3063E-01 0 .3063E-01 0 .5128E-01 

0 .1900E-03 0 .19f4E-01 0.5387E-01 

0 .5388E-01 0 .1070E-01 0 .5408P.-01 

0 .6085E-01 0 .2720E-01 0 .5611E-01 

0 .6813E-01 0 .35964-01 0 .57W-01 

0 .7537E-01 0 .4439B-01 0 .6453E-01 

0 .8281E-01 0 .5271E-01 0 .6971E-01 

0 .9046E-01' 0 .6101E-01 0 .75G8E-01 

0 .9834E-01 0 .6922E-01 0 .8042E-01 

0.1062 0 .7729E-01 0 .8549E-01 

0.1147 0 .8503E-01 0 .9016E-01 

0.1220 0 .9245E-01 0 .9438E-01 

0.1299 0 .9933E-01 0 .9801E-01 

0.1374 0.1059 0 .1010 

0.1445 0 .1120 0:1032 

0.1512 0 .1173 0 .1045 

0.1572 0.1215 0 .1051 

0.1621 0.1241 0 .1052 

0.1654 0 .1249 0 .1056 

0.1157 0.1251 0 .1061 

0 .6225E-01 

0 .669qE-01 

0 .7203E-01 

0 .749EE-01 

0 .771)E-01 

0 .7916E-01 

0 .812°.E-01 

0 .8342E-01 

0.8559P.-01 

0 .8765 E -01 

0. 89 115E-01 

0 .9086E-01 

0 .9178E-01 

0 .9207E-01 

0 .9163E-01 

0 .9037E-01 

0 .8832E-01 

0 .8574F.-01 

0 .8340E-01 

0 .8222E-01 

0 .8362E-01 

0 .6533E-01 

0 .7225E-01 

0 .7753E-01 

O .COi2E-01 

0 .8239f:-01 

0 .8306E-01 

0 .8318£-01 

0 .8'95E-01 

0 .8 : 5 3E .01 

0 .8195E-01 

0 .8116E-01 

0 .BJ05E-O1 

0 .78502-01 

0 . 7633F.-01 

0 .73:0E-01 

0 .69r5F,-01 

0 .6k77E-01 

0 .59105-01 

0 .5350E-01 

0 .+1970E-01 

0 .5341E-01 

CONTINUED FROM PREVI0119 PAGE 

J( DIRECTION 

11 12 13 10 15 16 

.0-- -- ° -- _- 

0.0 0 

0 .2359E-01 0 .0 

0 .2809E-01 0 .0 

0 .3127E-01 0 .0 

0 .3212E-01 0 .0 

0 .3156E-01 0 .0 

0 .3068E-01 0 .0 

0 .3006E-01 0 .0 

0 .2987E-01 0 .0 

0 .3004E-01 0 .0 

91 - 

0 .4129E-01 0 .3677E-01 

0 .4952E-01 0 .4651E-01 

0 .5453E-01 4 .5261E-01 

0 .5731E-01 0 .5583E-01 

0 .585oR-01 0 .5G89E-01 

0 .5850E-01 0 .563iE-01 

0 .5757E-01 0 .5471E-01 

0 .5601E-01 0 .5236E-01 

0 .540SE-01 0 .4969£-01 

0 .5193E-01 0 .4694E-01 

0 .4966E-01 0 .4427F,-01 

0 .4724E-01 0 .4171E-01 

0 .4458E-01 0 .3927E-01 

0 .4151E-01 0 . !684E-01 

0 .3780E-01 0 .3427E-01 

0 .3307E-01 0 .3130E-01 

0 .2689E-01 0 .2733E-01 

0 .1876E-01 0 .2153E-01 

0 .96"E-02 0 .133TE-01 

0 .1076E-01 0 .3807E-02 

0 .13 1 5E-01 0 .0 

0 .3443s-02 

0 .7230E-01 

0 .1718E-01 

0 .1923E-01 

0 .1976E-01 

0 .1929E-01 

0 .1802E-01 

0 .1613E-01 

0 .13a66-01 

0 .114lIS-01 

0 .9099E-02 

0 .7088E-02 

0 .5893 E -02 

0 .63 2 5E-02 

0 .8642E-02 

0 .1212E-01 

0 .1564E-01 

0 .1760E-01 

0 .15208-01 

0 .23956-02 

0 .0 

17 18 19 


0 .2800E-02 0 .3035E-01 

0 .5723E-02 0 .30343-01 

0 .9a87E-02 0 .2:.91E-01 

0 .1150E-01 0 .2704E-01 

0 .1168E-01 0 .2571B-01 

0 .1092E-01 0 .2536E-01 

0 .9505E-02 0 .2585E-01 

0 .7715E-02 0 .2634E-01 

0 .5826E-02 0 .27936-01 

0 .41625-02 0 .2881E-01 

0.3228E-02 0 .2923E-01 

b .3683L-02 0 .2895E-01 

0 .55 4 7E-02 0 .2801E-01 

0 .8722P.-02 0 .2610E-01 

0 .1329E-01 0 .2338E-01 

0 .1926E-01 0 .2108E-01 

0 .2600E-01 0 .2208E-01 

0.3103E-01 0 .2725E-01 

0.2777E-01 0 .29 40E-01 

0 .9597E-02 0 .3585E-02 

0.0 0 .0 

20

a03N - KGS .9M 7nCln0 13A1tld ai dw eS 

0'0 0'0 L 

0'0 Zo-a888z'o z 

0'0 10-3126t'o £ 

0-0 10-2test'o 4 

0'o to-atLLl'o 5 

0'0 lo-a6zzz'o 9 

.0'0 10-3409z'0 I 

0'0 LJ-8958Z'0 9 

0'0 t0-3hoo£'0 6 

o•o lo-aslo£'o ot 

0'0 lo-a86oE'0 tt 

0'0 /0-3lOlE'0 Zl 

0'0 10-38L0E'0 El 

0•0 t0-30h0E'0 ht 

SIXY X 8Ht WoHd La0 NI f-05 13A :d'I ill SNOI,L3atlIO 1N3BlIl10 

o•t 6 B L 9 5 a £ a t -idOIJ.oSBIU 

X 

Lt'49 tt'6E- ku'99- Eb'qa- oB'S6- 95'yB- h9'9L- SL'95- Ez'6/- Lt'E4 9 

f!'0L lL'Gq- Of'Z6- 54'L6- t5'l6- fz'BL- ES'QS- l0'0z- 6S'h4 6 

4F'4i 8q'OS- 5'ott- SE'66- Z0'66- Zo'06- f9'6L- LE'09- t9'OZ- 90'94 ol 

B9'9L 04'kl- E'B11- L'G0t- E'OOt- b("16- 94'1Q- S£'Z9- 2£'tZ- ££'L4 tl 

6t'P.L iF'E6- 9'6tt- 9'IGL- E'lot- 6t'E6- Lt'E8- Lk•q9- 99'tz- tZ'6h Zt • 

6B' :L E0'66- 0'Btt- B'lot- 6'/ot- El'qo- LB'4e- z9'99' Cz'zZ- BE'ts Et 

q9'i;t LE'L6- 6•Ftl- Z'lOt- 9't0t- fL'sb- 6q'9ti- lE'69' Ol'ZZ- 40'h5 41 

li'LL zo'tb- L'LGt- f9'66- E'0o1- E9'4b- 9L'LB- S 0 'ZL- tz'EZ- fZ'LS St 

Fi 4L zB'EB- 9f'66- 58'96- 9q't6- 59'E6- lE•89- 4L'4L- S£'4Z- SZ't9 91 

lE'zt Sq'EL- Z6'b8- 9B'Zo- l6'i!0- 6z't6- k8'LB- ll'll- l4'9Z- S8'99 lt 

zl'01 56'09- LL'91- LB'la- fL'39- 0'i'L8- k9'S9- 50'BL- Sl'9h- 60'9L Bt 

96'tL 5Z'Lh- 6z'k9- 05'Z8- z5'6L- z9'29- y0•zB' z6'SL- S4'6B- 0'0 6t 

ot'91 ol'SE- 90'S5- 6G'8L- tE'zL- l1'BL- Bz'OB- f6'iL- to'z6- t0'z6- oz 

lt'Z6 9'ztt S6'6y- Zo'9L- 6E'9y- 45'SL- zL'LL- Zd'6L- Z9'06- Z9'o6- tz 

6'OZt L'9Ll 9-ztl 61'hti- f5'19- 1L'9L- !Z't8- t4•zB- £z'06- EZ'o6- zz 

8'85t 0'4Ll- 6'9Lt 6'h4t- 8'z4t- tL'4B' t6'k8- 44'S8' l9'06- t9'06- EZ 

0'0, . 0'0 0'0 0'0 0'0 56'oa- SE'qB' 6E'bB- 65'06- 65'06- 42 

-Z6- /j 

f L

i 

~ 

1 

S 

~ 

~ 

i 

( 

~ 

NFSCM - NECE 


7 42 .99 -18 .40 

6 42 

-54 .99 

.34 -17 

-75 .04 

.41 

-87 .41 

-53 .19 

-93 .96 

-73 .39 

-91 .71 . 

-86 32 

-46 .13 -41 

5 41 .90 

.28 

-16 

52 .67 

.28 

. 

4 

-51 

-92 .17 

41 

.37 -71 . 

-87 

73 

1 

75 

.69 -36 

-85 .47 

.11 

-91 .24 

q 

-44 .58 

. 

32 .52 

- 5 .01 

3 

-49 .58 

41 .97 

-70 .17 -85 

-13-75 -4804 

.13 -94 .73 -81 .11 

-68 83 

-29 

8 

.29 

2 42 

-51 .08 

.66 

- 

-19388 

-13 .28 

- 5 .6 

1 90 . 

-47 .26 

00 

-68 

-13 .63 

.08 

-47 

-87 .N8 161 5 -180?0 3p•89 

.50 

. 

-68 .46 -87 .66 

180 .0 

-140 

180 .0 

p 

.9 0 . 0 

0 .0 0 .0 0 .0 


-T- 11 12 t3 14 X DIRECTION 

--- -- - 15 16 

24 0 .0 0.0 ° ° 

23 141 .7 0 .0 

22 107 .7 0 .0 

21 90 .55 0.0 ~ 

20 83 .?0 0 .0 

19 80 .16 0 .0 

t8 79 .54 0 .0 

17 79 .98 0 .0 

16 80 .74 0 .0 

15 81 .38 0 .0 

14 81 .72 0 .0 

13 81 .7t 0 .0 

12 81 . 1 5 0 .0 

11 80 .69 0 .6 

10 80 .04 0 .0 

9 78 .65 0 .0 

8 76 .18 0 .0 

7 71 .82 0 .0 

6 63 .36 0 .0 

5 44 .81 0 .0 

4 7•433 0 .0 

3 -29 .06 0 .0 

2 0 .0 0 .0 

1 0 .0 0.0 

• 93- ~ 

17 t8 19 20

S 

1 

i 

~ 

t 

Sanple PRTYEL Output 

DISR iILE CONTATRTNO CURRCNT SPF.ED ARDDTFFCTION FOR LEVEL 0 .0 1 WqS CREATED 

DISR FILE CONTAININO CU]'RENT SPEED ANi;nIRECTIOA FOR LEVEL 50 . % WAS CREATED 

1 0 9 1 0 A TOTAL OF 2 PLOTS WERE CREATED 

-q0_ 

NFSOM - NECE 

. . ~w

i 

t 

, 

e 

f 

~ 

I 

1 i 

WFSQM - NECE 

Sa.ple Input 

YFSCM - RUN 21-5 - SU" R PRODUCTION RUN 

iNISC FACT . .6 .GRDaZ- .5 .LPs12,MP :24,CL•s ;0000, 

IS"IPzO,INCcO, C1.1.P.s,FALSS .,SPDSCl : .1,DIS?z4 ., 

ANGi-60 .,NOPLT3 :2,IrdF1 .Ij,F6T :F,YECPOR=F,A6ND 

Y,'-95- 

S ample PLOTYHL Input

IA y 

~y m 

7 O 

r 

O O 

G f 

A O 

~ 

IL 

, l - + ~ ---~-- ~ -- r-- : -~- 

~~, 

; '--i-r--r 

~ ~ 

1 

' 

` --~------=-----r•~-- 

~ 

. 

.i~. > . ,~ + f] l 

.4 

C13 

Reproduced From 

best availahle 

copY. 

- ; :'_ 

:>: : ~ 

~ 

i . :~f

NFSQ! - NECE 

Program S/T 

Ses91o Input 

Sample SPAT Input 

The Sr,rut for SPAT Renorates a wini field for tho FStl +tudy, atartlnt 1n 25 February 1918 . Observations from five 

atatione are used as the bsats for ettrapolation - the t1DP.O dota buoy, A;.aiachlcola, Tampa, Fort Myers, and Itey Weet . 

Observations are provided at crne hour lncrecct.ta . The wind fleld Renerated Er the sample input 1e only fira hours long, 

rnicl ls aufflelent to illuatrate the use of the program 

Br,RID LIHiT :S 1P : p 4,1 P =12,M=5 . 

IIt=-A,6,1'1,11,8, 

IT :13,23,14,A,1, 

SySw=1 .0,2 .5A,2 .SA,2 .09,1 .37, 

InT=3,tr.ND 

FLA St1ELF 1tISIDS FRtN4 25 FE9 78 0'100 BR .i GMT YAT G11ID WORTH 

-i4 ; -146 189 -7 112 -111 78 -260 -258 -237 

-145 -129 174 6 105 -95 55 - 239 -252 -240 

-152 -122 199 - 1 126 -86 51 - 243 -277 -238 

-165 -118 192 -10 116 -76 60 -231 - 263 -220 

-180 -120 195 -9 122 -78 50 -219 - ?8i -225 

y - ?7 - 

::A

3aerl+le SPpT Ntput 

seaql . atput 

FLA "•IIE1 .F WtHt3 fR^M 25 FP.R 7A 04 00 RR9 CM YAT 1919 R-RTl1 

TIY'c a 1 . 

TI NE . 2 . 

TPw' . 3 . 

T M w 4 . 

TT:G a 5 . 

R£ADTR, TCRMIHATF.D p}E TO LCF OR EIA O R 

RFT£P. 6 REC09tL4 . 

//-98- 

HFSQI - NECF.

BFSQf - NECE 

Pro ram DENSTAi' 

3aqle Input 

AHISC ISTIME -0M01,IETIM3_0930,iEN0 

' '/-99- 

Sample DENSTAT Input

Sample DENSTAT Output 

37lq71e Output 

0IClf1-T / T/TISTICS !01 017T15 0-10 11 I 4T1 TO )0 Srt 

. 

. 

IQAF JI .SS 

1 11•6f 

OID .Otv 1 .93 11 1 .57 01 

1 .11 

Im1I1CN 20 .16 JC .O 1914 

INIIMLII 7a .N 24 .10 J? .16 7fr 

F0 . OS. 4 /1 10 

IRw 12 .21 22 .11 22 .31 J1 .){ 

OTD . OC . 0 .•6 1 .37 1 .06 1 .J0 

7t7FI :ILb J0 .7i 1f .32 J1 .17 f/ .19 

Ittlt7109 x3 .71 16 .0. J3 .SS 77 .00 

IM. 063 . 12 it 17 It 

MClF !7 .{7 16 .If J7 ./1 1J .16 

OTD. 017 . O.t6 L S1 0•1! 0.77 

1001/0••M 71•61 11•7s 11 ./1 70 .96 

l41::.Y.ti i7 .3/ J6 .71 16 .1• 21 .61 

MO• 015 . r0 K• 71 2) 

IO'GM 7J .60 77 .F3 22 .60 71 .l9 71•ta 

STD . Of.' . 1 .{ : 0 e1 O .IC C .0{ 0 .0) 

7rIfIY.'Y 1• .1C 71 .7C 21 .2` :r .73 :7 .i! 

MxL.IY 2 .,c7 1'. .73 7. .11 2 : .SR -! .)! 

FV . r s . ]e 7• i< 21 IC 

7cAF 

STD . Dtr . 

17•J . 

1 .71 

21.11 

L :S 

n .77 

L It 

1? .2/ 

1 .10 

:7 .3) 

1 .0? 

KIFtY.J1 

14117••,M 

10 .J1 

24 .42 

IC .)1 

!' 

J0 .71 :1 .37 20 .6 : 

.f+ 76 .07 '. .OS .a .)1 t e- 

NU. OFS . Ji 6. 1t • la6 

!2a* 77 .7) 7) .IS 77 .l0 :7 .W 77•D6 

STO . On• . 0 .07 1 . T7 1 . u 1 .10 0 . f• 

F7f1 .Y.!f 32 16/ JI .6 ; 77 .06 J0 .97 20 .N 

7Nf1Yl•M 2- .5) 2 . .7a 73 .7! 

MO . 005 . I• 7^. 7! 0! t1 

. 

`TAti' 

S7D . Ct : 

,qMIY .'!! 

0 .!3 

Il .ff 

O .rS 

71 .f) 10 

1 .09 ; .!' I 7! 

.l7 : W,xt.v;`f 17 .0C• . Ja .66 I : .7t 2, 

1 .71 

:a,c : 

11 .71 

:: .9' 

If .aS 

7a•57 

No . 0l5 . 21 le 

1 . .5 37 

7RA 23 .51 7) .e' 77 .f5 :7 .ss :7 .2% xx .67 'C .H 

ST^. . DC• . C .37 0 . :r O .aa ^[s C .9- 1 .77 7 .67 

7fIF171t~t 7 : .50 

22 .03 II .OC .OC 71 .31 It .u 13 .7) 

w1a7K7! 24 9 6 x3 .Cf 25 .11 12 I5 .7 . :3 .77 x7•07 23553 

IN . OOS . 26 IOt 390 37 60 9p 1 

1!M 

lTO. IKr, 

J) .70 

0 .77 

23 .40 

0•/) 

22 9 7 

O .10 

7) .li 

0 .79 

77 .3• 

0 .67 

IJ .fI 

0 .7a 

J) .07 

0 .61 

FiM1YT1 JJ .16 77 .)6 71 .a0 77 . :1 2 : .•^ J2 .IC x2 .05 • 

MsSt'^•~' J6 .71 :+ .35 .~ i7 7a .a3 1 . .01 1 00 

70 

F0 . COS . 70 0 7e 1• t9 f) :6 

NtAM 73 .)1 7) .)7 77 .7a 7J .0! 7) .)C :) .a1 1) .1x 22 .71 

!TO• DN .- 0 .37 0.Se 0 . :7 0 .6. 1 .01 G .{0 0 .97 0 .60 

MIFIFtII 71 .33 22 .49 7J .17 22 .55 21 .7 : 77 .71 2 : .1 . 71 ./1 

7Mr :IC: la .77 16 .70 73 .17 I3 . :! 27.x? 73,1! 7 . .96 23 .60 

Fn•CIf . IF 17 . : 1)e ?• 17 ! 7! IF6 

- 100 - 

r 

NFS Qf - NECE 

- .,,7

jcxi - N ECE 

M.. . . . . . . . . . . . . . . . . . 

l "': 

STD . DEV . 

SI:Y,A-i ST4tISFICS /C.3 DBTT4:S 30 - 100 N I 48B TO 30 !BP 

tlIN DiDM 

NAJilrnm sp° 

R0 . OZS . 

KeN 25 .62 

STD . DEV . 0 .36 

MNIH,'M 25 .15 

NAMSM 26 .00 

90 . 06S . 4 

le: Aro 25 .46 23 .11 25 .40 

STD . DE4 . 0 .83 0 .74 0 .0 

![INL4tN1 23 .64 24 .36 25 .40 

NAXI'A!M 26 .52 26 .43 25 .40 

N0 . 085 . 23 19 2 

r4AN 25 .41 25 .01 24 .66 

SID . OEV . 0 .74 0 .7 . 0 .61 

MI%, L4l'M 23 .19 22 .96 23 .28 

MAXIM : M 26 .72 26 .15 25 .74 

NO . OBS . 56 40 25 

MEti+ 25 .31 25 .22 25 .20 24 .97 

SiD . DE1' . 0 .86 0 .77 0 .60 0 .72 

MINIML^.t 22 .98 23 30 23 .30 22 .88 

NAIIIMUM 26 . 0 26 .60 26 .23 26 .27 28° 

NO . 085 . 55 112 10 . 65 

lffN: 2 : .67 25 .4 ; 25 .42 24 .94 

STD . DEV . 0 .78 0 .59 0 .69 0 .81 

14 ::I :CM 22 .97 23 .7 4 24 .03 2i .00 

ILViI .Y.7 26 . :E 26 . :i if - 6 26 .33 

OES . 59 41 +1 87 

!lEx• 2= .72 25 . :! 25 .30 :5 . .6 :5 .91 

5'L . DE : . ) .9C 1 .?v 0 .%6 0 .86 0 .0s 

23 .21 23 .1", 23 .30 23 .90 "_ .85 

MA.YtMh :6 .43 : 6 .81 26 .18 26 .53 25 .9% 

90 . OBS . 59 39 54 18 2 

rEU: 24 .84 24 .8f 24 .85 25 .09 24 .93 

STO . 0*_.' . 0 .64 0 .52 0 .54 0 .59 0 .60 

lffelNbTf 23 .67 23 .26 23 .59 23 .34 23 .73 

rLVtI .KLM 26 .13 26 .24 26 .84 26 .07 26 .01 

NOL OBS . 100 916 1 6 62 85 52 

r¢AN +4,78 24 .60 24 72 24 .99 24 .83 23 .21 

SID. DEV . 0 .75 0 .90 O .bU 0 .77 0 .81 0 .07 

NI4IMJM 23 .41 23 .25 22 .94 23 .48 23 .26 23 .07 

MAXIt!LTf 26 .2•2 25 .95 26 .70 26 .14 25 .90 23 .3= 26° 

N0 . 085 . 96 26 268 72 16 3f 

MEAK 25 .20 24 .56 24 .82 24 .56 24 .63 23 .95 

S:L . DEt . 0 .76 0 .97 0 .89 0 .83 0 .69 0 .?! 

lQNT>L?1 23 .54 22 .97 23 .04 22 .82 23 .30 23 .08 

MA .'tIMI!!1 26 .34 26 .62 26 .f8 26 . :3 25 .84 25 . :8 

NO . OBS . 85 144 156 338 43 16 

r r - tn+ - 

Sample DENSTAT Output

Appendix I 

Pragrmz Listinr,3 

. 

00010 C r r r• r ~t r r r r r 

00C20 C 

00030 C 

, * r . r r r . r r r :* . r r r . s r r . r r 

000 40 C 

00050 C 

PROGRAM VISCOUS(GAL) 

00060 C VERSIQIV 7- .)ULY 1982 - REVISION A 

00070 C 

00080C BY CORTIS C(?O?ER, NECE 

00090 C 

00100 C THIS PROGRAM. CALCULATES ALL CONSTANTS S~'r?ICR f'HA" :^F 0!.Lw THE 

00110 C EDDY VISCOSITY CHA! .C : S . T H E C^`7STAt'TS AP.F F'RTZ'TCN I't+~ D_Sj, £,'i :.E 

00120 C AND Li:TF. .~'i eaC C~C~D BY ?? Q'' . . . . :4 CIRC 4*~?TC'?i I :~ "• P~'CC~~ rA'r THAT 

00130 C ACTPALLY CALC(sLti7i:S L'FLC),^.ZTIE .^- .• . FOR O ; : '1C'•'•1 TO ttcE 

00140 C T'r':F, °I:CGRhI•! AS AS CIr C, S°E 

. . . . E T~^ ., GAL L' 71 . .F. ~ '4 MM,• "t? .nL . '"HIS 

. 

00150 C 6'rtvi?kL ALSO rC'.'.A''•:S A LIC" n F R°t'ISI(`':S . 

00160 C 6.A, 10/81, ePLIT /AAf INTO 1 .0="•'t" : 

00170 C TO 1 .nE20'S . T!•'I"_'ZhLIZ=D Al .L C,'rllli~ L'k??i;^~Lr;S IN 

^0130 C '?LOCu DIi T A . PUT '.~i:!"?LIST REAi)' c 11,170 !.tAIN Pi 0,-,?iAm . 

00190 C REMv:'EP A'S FRO~ AL TER!Ip'PE RETt?"a CALLS. PUT IN 

00200 C C0!i"!^N /AA/ . 

00210 C 6 .E, 2/82, ADDED SPATIAL VARIATI'OR' I?i CORIOLIS PARAKETER . 

00220 C 7 .A, 7/8 2 , M.•ODIFIED TO RG"V ON ?BM . CHA!:CED FC :'7 ASIN TO ARSIN . 

00230 C 

00240 

COh!'i ~:IAA/C~'(i552), ;~ELSIG(?_5°2),SSrP54),T?(?88),~'RSS(2$A), 

00250 & a(B6S),E(SSt~),D1(8Eu),ALPHA(85u),Er'!A(85u),!dB(288),0(85~), 

00260 & A(36~t),CP(29°),TD'Yi(1552},J?,iP,LP,!SP,LF*'P,L'",F;PM1, 

00270 & JL M P,FO..MP,G,YBP, ;?E Y tyC, :JA2,,.S,IS,f:T .DL, 

00200 & ETIK:.,P7ITCHG,i1A2(288),VA2C28°), VET?SI!d(111),TTTLE(?0), 

00290 

00300 C 

& COFiS :'E,d'.~.DDYT,EDDYS,CO :'r•NL',LAP+D(2ER),FXY,?HI,THF'Tk,F(28 .8) 

00310 REAL ",-P,`:DP 

00320 

00330 C 

LOGICAL COlISTE, LAttD+ 1, EDDI",", EDDYS, CON;.V, FXY, t+ODIM 

00340 NAN--LIST/P1ISC/DL,,3P,} ;P,LP,MV,1:S,NUCHG,CCt7NV 

-j - 1 -

Program VISCOUS WSCM - NECE 

00350 NAMELIST/DEPTH/H 

00360 NAMELIST/FRICT/CB 

00370 NAMELIST/EDDYL/NODIM,CK 

00380 

00390 

00393 C 

NAMELIST/EDYVIS/EDDYS,EDDYT,IdA2,REYNO,EDDYV,ETIME 

NAP'ELIST/CORIO/FXY,PHI,THETA 

00395 DATA NODIM/T/ 

00400 C 

00410 READ(1,100) TITLE 

00420 100 FORMAT(20A4) 

00430 READ(1,MISC) 

00440 READ(1,CORIO) 

00450 LPMP=LP*MP 

00460 KPLPMP=KP*LPP",P 

00470 JPLPMP=JP*LPMP 

00480 JJLPMP=JP*JPI.PMP 

00490 KLMM1=LP*MP*(KP-1) 

00500 KPM1=KP-1 

00510 READ(1,DEPTH) 

00520 CALL HEIGHT 

00530 READ(1,FRICT) 

00540 READ(1,EDDYL) 

00550 CALL EDYLYR(NODIM,1000) 

00560 CALL CORIOL 

00570 CALL HEADER 

00580 IF(EDDYT) READ(1,EDYVIS) 

00590 IF(EDDYT) NUCHG=99 

00600 DO 999 II=1,NtJCHG 

00610 IFt .NOT.EDDYT) RCP.P(1,EDYVIS) 

00620 IF(EDDYS .OR .EDDYT) CALL WINDNV(II) 

00630 CALL CHEKEV(1000) 

00640 IF(II .EQ .1) WRITE(10)TITLE,LP,MP,JP,KP,CONNV,EDDY!~,EDDYT,REYN0,WA2 

00650 & ,DL,PHI,THETI,,FY.Y 

00660 IF(II .EQ.1) WRITE(10) (H(LM),LN=I,LPMP),(LAND(LM),LM=1,LPMP), 

00670 ~ (CB(LM),LM=1,LPMP),(CK(KLM),KLM_1,KPLPMP),(F(LM),LM=I,LPMP) 

00680 C* ** MAIN SPATIAL LOOP 

00690 C 

00700 DO 500 M=1,MP 

00710 L~T= ( M-1) *LP 

00720 DO 500 L=1,LP 

00730 LM=L+LMP 

00740 IF(LAND(LM)) GO TO 500 

00750 JLMP=(LM-1)*JP 

00760 KLMP=(LM-1)*KPM1 

00770 KT=(LM-1)*KP 

00780 IS=KLMP+1 

00790 CALL BOTTN 

00800 CALL AJLM 

I-2

WFSCM - NECE Fr ograa VISCOUS 

00810 CALL QJLM 

00820 

00830 500 

CALL COEFF 

CONTINUE 

00840 CALL PRINTS 

00850 IF(C0 .7NV) JJLPMP=JPLPMP 

00860 IF(II .EQ .NUCHG) ETItS-1 .0E20 

00870 WRITE(10) ETIhL,(A(JLM)+JLMc1,JPLPtdP),(0(JLM),JLMc1,JPLPMP), 

00880 

00890 

& (B(JLM),JLt•t_1,JPLPNT),(DELSIC(JJLM),JJLtT =1,JJLP*" .P), 

& (D1(JLP1),JLM-1,JPLPMP),(E(JLM),JLM=1,JPLPM?), 

00900 & (SS(JLM),JLtf_1,JPLPMP),(FhIASS(LM),LM=1,LPMP), 

00910 & (EDDYV(KLM),KLM-1,KPLPh9P),(NR(LM),LM_1,LPt*P), 

00920 & (ALPHA(KLM),KLMc1,KLt',I°!1),(B=,TA(KLM),KL~tc1,KL*"M1) 

00930 999 CONTINUE 

00940 1000 STOP 

00950 END 

00960 C s * * * * * r * * * * * * * * * s * * * r * * * * * * • * * • * : * . 

00970 C 

00980 

00990 C 

BLOCK DATA 

01000 COMMON/AA/CK(1552),DELSIG(2592),SS(864),H(288),FMASS(288), 

01010 & B(864),E(864),D1(864),ALPHA(864),B :.'TA(864),NB(288),Q(864), 

01020 & A(864),CB(288),EDDYV(1552),JP,KP,LP,FlP,LPMP,LM,K.PM1, 

01030 & JLMP,KLMP,G,!'BP,REYNa,WA2,NS,IS,KT,DL, 

01040 & ETIMF',NUCHG,UA2(288),VA2(288),VE'RSIN(14),TITLE(20), 

01050 & CONSTE,EDDYT,EDDYS,CO?.NV,LAND(288),FXY,PHI,THETA,F(238) 

0106C REAL NB, ItBP 

01070 

01080 C 

LOGICAL (:OLISTE,LATvO* 1,EDDI'T, EDDYS, COA'NV,FXY 

01090 DATA VERSIN/'GAL :','VERS','ION ','7 - ','JULY',' 4, ', 

01100 & '1982',' - R','EV . ','A - ','PRCG','R .1M ','VISC','OUS '/ 

01110 DATA TITLE/20*' '/,ETI*SE/1 .0E20/ 

01120 DATA CONSTE,EDDYT,EDDYS,CONNV,FXY,NUCHG/T,F,T,T,T,1/ 

01123 DATA PHT.,THETA/23 .5,65 ./ 

01130 DATA DEL.SIG/2592*0 .0/ 

01140 DATA A,SS,B,E,D1,Q/864*0 .0,864*0 .0,864*0 .0,864*0 .0,864*0 .0, 

01150 & 864*1 .0/ 

01160 DATA .CK,EDDYV/1552#0 .0,1552*0 .0/ 

01170 DATA ALPHA,BE'TA/R64*0 .0,864*0 .0/ 

01180 DATA H,NB,CB,FMASS,UA2,VA2,F,LAND/288*0 .0,288*0 .0, 

01190 & 288* .00025,288*0 .0,288*0 .0,288*0 .0,288*0 .0,288* .FALSE ./ 

01200 DATA JP,KP,LP,MP,LPMP,LM,KPM1,JLMP,KLMP,IS,KT,NS/ 

01203 & 3,2,12,24,288,0,1,1,1,1,1,20/ 

01210 DATA G,REYNO,WA2,DL,NBP/9 .8,16 ., .005,30000 .,1 ./ 

01220 END 

01230 C 

01240 C * * * * * * * * * * * * r * * * * * ∎ * * * * * * ∎ * s * * * * * * * 

01250 C 

01260 C 

. . _ ._ . . . . . ~. _. _. 

._ -- _ 

I-3 

. . _ . _ . . . . . . .. .-_ ~ _ . _ . . . . .. __ .~ . .-, .~~ .~_ .~....~ ;~ . . .. .s. . .4~+ws! :MC'wa.Y` ~Ri, .'L..iwa~+~rr.-w......r .r .~--- . . .

Program VISCOUS WFSCM - NECE 

01270 SUBROUTINE EDYLYR(NODIM,*) 

01280 C 

01290 C 

01300 C ROUTINE WHICH READS IN THE LAYER DEPTH OF THE NODES OF 

01310 C THE EDDY VISCOSITY FOR EACH GRID . 

01320 CO~"MON/AA/CK(1552),DELSIG(2592),SS(864),H(288),FMASS(288), 

01330 & B(864),E(864),D1(864),ALPHA(864),BETA(864),NB(288),Q(864), 

01340 & A(864),CB(288),EDDYV(1552),JP,KP,LP,MP,LPI~P,LM,KPM1, 

01350 & JLMP,KLMP,G,NBP,REYN0,1'JA2,NS,IS,KT,DL, 

01360 & ETI1-~E ,NUCY.G,UA2(288),VA2(288),\TERSIN(14),TITLE(20), 

01370 & CONSTE,EDDYT,EDDYS,CONNV,LAND(288),FXY,PHI,THETA,F(288) 

01380 REAL NB,NBP 

01390 LOGICAL CONSTE,LAND*1,EDDYT,EDDYS,CONNV,FXY,NODIM 

01400 LPMP=LP*MP 

01410 DO 100 LM=1,LPMP 


01430 KT=(LM-1)*KP+1 

01440 HT-11(1 .M) 

01450 IF(NODI14) HT=1 .0 

01460 KLMP=(LM-1)*KP 

01470 DO 70 K=1,KP 

01480 KLM=KLMP+K 

01490 CK(KLM)=CK(KLM)/HT 

01500 IF(CK(F:LM) .GT .1 .0 .0R .CY.(KL1-1) .LT .0 .0) CALL ERROR(1,LM,K) 


01520 C CHECKS TO M.e?KE SURE CK AT SURFACE IS EQUAL TO ZERO AND CK AT BOTTON 

01530 C IS E'QiJ Ai . TO 1 . 

01540 KTKP=KT+KP-1 

01550 IF(CK.(KT) .GT .0 .01 .AND .CK(KTKP) .LT .0 .99) CALL ERROR(2,LM,K) 

01560 100 CONTINTIE 

01570 IF(KP .GT .2 .AND .CONNV) CALL ERROR(3,LM,K) 

01580 IF(KP .EQ .2 .AND .( .iW -:~T.C0IINV)) CALL ERROR(4,LM,K) 

01590 IF(KP .EQ .1) CALL ERROR(5,LM,K) 

01600 RETURN 

01610 200 RETURN1 

01620 END 

01630 C 

01640 C 

01650 C 

01660 C 

01670 SUBROUTINE HEIGHT 

01680 C 

01690 C 

01700 C ROUTINE WHICH READS IN STILL WATER DEPTHS AND SETS LOGICAL VARIABLE 

0171C C TO TRUE IF ELEMNT IS LAND . 

01720 C 



I-4

~ ~ 

WFSCM - NECE 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

018L'0 

01850 

01°60 

01370 100 

01890 

01P90 

01900 C 

01910 C 

01920 

01930 C 

01940 C 

019 50 C 

0196Q C 

01970 C 

01980 

01990 

u2^~~ 

020 10 

020?.0 

020 ;0 

0204 0 

02050 

0?nr 0 

02070 C 

02080 

020 90 

02100 

02110 

02120 

0213 0 

02140 

02150 

0216 0 

02170 

02180 

0219D 

02200 

02210 100 

02220 

& A(R64),CB(288),EDDYV(1552),JP,Y.P,LP,MP,LPMP,Lm.,FF?ti1, 

& JLMP,KLMP,C,NBP,REYN0,WA2,NS,IS,KT,DL, 

& ETIiE ,FiUCHG,UA2(288),VA2(288), ;ERSIII(14),TITLE(20), 

& CONSTE,EDDYT,EDDYS,C07NV,LAND(288),FY.Y,PHI,THE":A,F(288) 

REAL ttB, t3f3P 

LOCICAL CO;ISTE,LAi1D*1,EDD!T,EDDYS,C011NV,FY,Y 

DC 1c0 M_1,P'_R 

LMP_(!!-1)~LP 

DO 100 L-1,LP 

LM=i.+LN? 

IF(H(LM) .CT .0 .01) GO TO 100 

LAìD( LM) : .TR(iE . 

C017TT"JU -- 

R;.T!1R : : 

END 

SUPROUTIPdE h'I .'ID :`:V( II) 

Program VISCOUS 

ROL'TIN: WHICH SETS• COt:STANT EDDY VISCOSITY USI':C THE TURBULE":TT 

REYNCLDS NU •N BER FROM TOi+'SEND . 

COMrfO!1iAA/CK(1552),DSLSIG(2592 ) ,SS(864),H(283)',F!1AS."Z (288) , 

d E(8Fti},E(86a},C1(864),ALPHA(854),BFTk(°64),h'B(283),Q(864), 

& A(F6 1 t),CD(2°9),E '1~'(1^52), .iP,F;n,LP,MP,LP*'P,L'•',KP.!!1, 

b E?ZT,~~'IrF'(•,UA2(289),VA2(288),VERSIt:(14),TITLP(2J), 

~ COl .ST=,CDDY?,ECDYS,COtiIiV,LA}:D(288),FXY,PFII,THF"'_'A,F(288) 

R~AL ".B, r:nP 

LOGICAL CO+STE,LF.t'D#1,EDDYT,ED ;;YS,CONNV,FXY 

nATA L-,'TIt•E/0 .0/ 

CO!d°T=1 . /REYIdO 

IF(EDDYT .A"ID .E'7*I~'E .CE .i1TIt~E) READ(4) IJTItRE, 

& (UA2(Lt-1),LM=1,LPi'.P),(VA2(LM),LM=I,LPMP), 

& ( DL'M, L*"•=1 , LP . •"l'r ), ( DUM, LM-1 , LPNP ), 

& 

(D"`".,LM_1,LP~`.P) 

FTIA'r_i± i T~',E*3600 . 

IF(EDhYT) rTIrT_ciTI"E 

DO 100 LM=1,LPMP 

IF(LA ND(L M ) ) CO TO 1C!1 

?C .P!= ( LM,-1) *2+1 

IF(EDDYT) WA2=(UA2(LP')*UA

~ 

i . ~ 

Program VISCOUS WFSCM - NECE 

02230 RETURN 

02240 END 

02250 C s * * * * * * * s * r s * r * . * * s a • s • * s * * * * * * * * * * 

02260 C 

02270 SUBROUTINE CHEKEV(¢) 

02280 C 

02290 C ROUTINE WHICH CHECKS TO MAKE SURE EDDY VISC HAS NOT BEEN SPECIFIED A 

02300 C ZERO ON A NONLAND ELEMENT . 

02310 C 


02330 & B(864),E(864),D1(f364),ALPHA(864),BETA(864),NB(288),0(864), 

02340 & A(864),CB(288),EDDYV(1552),JP,KP,LP,MP,LPMP,LM,KPM1, 

02350 & JLMP,KL",G,NBP,REYNO,WA2,NS,IS,KT,DL, 

02360 & ETIME,NUCHG,UA2(288),VA2(288),VERSIN(14),TITLE(20), 

02370 & CONSTE,EDDYT,EDDYS,COt:NV,LAND(288),FXY,PHI,THETA,F'(288) 


02390 LOGICAL CONSTE,LAND*1,EDDYT,EDDYS,CO?dNV,FXY 

02400 DO 200 LM=1,LPMP 


02420 KLMP=(LM-1)*KP 

02430 DO 100 K=1,KP 

02440 KLM_KLMP+K 

02450 IF(EDDYV(KLM) .LT .1 .E-20) CALL ERROR(6,LM,K) 



02480 RETURN 

02490 500 RETURNI 

02500 END 

02510 C 

02520 r* **s***+t***sas*s****s**~s*********** 

02530 C 

02540 SUBROUTINE BOTTN 

02550 C 

02560 C 

02570 C ROUTINE WHICH CALCULATES THE EDDY VISCOSITY AT THE BOTTOM AND THE 

02580 C SLOPE (ALPHA) AND INTERCEPT(BETA) OF THE EDDY VISCOSITY . 

02590 C 



02620 & A(864),CB(288),EDDYV(1552),JP,KP,LP,A" :',LPMP,LM, .KPM1, 

02630 & JLMP,KLMP,G,NBP,REYNO,WA2,NS,IS,KT,DL, 

02640 & ETIME,NUCHG,UA2(288),VA2(288),VERSIN(14),TITLE(20), 

02650 & CONSTE,EDDYT,EDDYS,CONNV,LAND(288),FXY,PHI,THETA,F(288) 


02670 LOGICAL CONSTE,LAND*1,EDDYT,EDDYS,CONNV,FXY 

02680 

ALPFIA(IS)_(EDDYV(KT+2)-EDDYV(KT+1))/(CK(KT+2)*H(LM)) 

02690 BETA(IS)=EDDYV(KT+1) 

02700 NB(LM)=ALPHA(1S)*H(LM)+BETA(IS) 

1-6

~-- 

~ :'.: ; MIFSCF; - NECE Program VISCOUS 

.`. 

02710 IF(KP .LE .2) GO TO 30 

02720 DO 20 K=2,KPM1 

02730 KLM=KLMP+K 

02740 KTK=Y.T+K 

02750 ALPHA(I:LM)=(EDDl'V(KTI:+1)-EDDYV(KTK))/(N(LM)s(CI:(iCTK+t)-Ci:(KTK))) 

02760 BETA(KLM)=EDDYV(KTK+1)-ALPHA(F2M)EH(LM)sCK(KTK+1) 


02780 C 

02790 C CALCULATE THE EDDY VISCOSITY AT THE BOTTOM, NBP . 

02800 30 NBP=EDDYV(KT+KP) 

02810 C CHECKS TO SEE IF CONSTATNT EDDY VISCOSITY HAS BEEN SPECIFIED . 

02820 C IF SO THEN A LOGICAL VARIABLE IS SET TO TRUE . 

02830 CONSTE= .FALSE . 

02840 DIF=ABS((EDDYV(KT+1)-NF(LM))/NB(LM)) 

02850 IF(DIF .LT .0 .01) CONST£= .TRL'E . 

02860 C CALCULATES TH .S PARAMTER C AND THEN FMASS . USES 0*IE OF TWO 

02870 C FORi`tAULAS TO CALCULATR G DEPENDING ON WHETHER OR NOT EDDY 

02880 C VISCOSITY IS CONSTANT . 

02890 G=H(LM)sH(LM)*0 .5/BETA(IS) 

02900 IF(CONSTE) GO TO 15 

02910 G=(H(L!,:)*ALOG(NB(LM))-(NB(LM)sALOG(NB(LM)i-NB(LM)- 

02920 & BETA(IS)#ALOG(BF,TA(IS))+BETA(IS))/ALPHA(IS))/ALPiiA(IS) 

02930 15 FMASS(LM)=-H(LM)#H(LM)/(12 .0sNT3(LM))+G 

02940 RETURN 

02950 END 

02960 C 

02970 C ** • s s* s s r s s s ~r s s s s s s s a s r a s s s s+~ +r * s s s 

02980 C 

02990 C 

03000 SUBROUTINE AJLM 

03010 C 

03020 C 

03030 C 

03040 C 

ROUTINE WHICH CALCULATES THE COEFFICIENT A(JLM) 

03050 C 

03060 C 


03080 & B(864),E(864),D1(864),ALPHA(864),BETA(864),NB(288),0(864), 

03090 & A(864),CB(288),EDDYV(1552),JP,YP,LP,MP,LPt•lP,L*1,KPM1, 

03100 & JLMP,KLMP,G,NBP,RE,'N0,WA2,NS,IS,KT,DL, 

03110 & ETIME,NUC9G,UA2(2t38),VA2(288),VERSIN(14),TITLE(20), 

03120 & CODISTE,EDDYT,EDDYS,CONNV,LAND(288),FXY,PHI,THETA,F(288) 


03140 LOGICAL CONSTE',LANDs1,EDDYT,EDDYS,CONNV,FXY 

03150 DO 10 J=1,JP 

03160 JLM=J+JLMP 

03170 C=CB(LM)*H(LM)/NBP 

03180 AP=(2 .0sFL0AT(J)-1 .0)*3 .14159/2 .0 

1-7


WFSCM - NECE 

03190 5 AO-C/AP 

03200 

03210 

A(JLM) = ATAP:(AO)+(FLOAT(J)-1 .0) * 3 .14159 

A1-A(JLM)-AP 

03220 A2=Ar3S(A1) 

03230 (1 

IF(A2 LE . 0 .01) GO TO 10 

3240 AP=A(JL!!) 

03250 GO TO 5 

03260 10 C0?:TIhUE 

03270 RETUQ!t 

03280 END 

03290 C 

033 !C 0 C 

03310 C 

03320 

03330 C 

SUBROUTIttE QJLM 

03340 C 

03350 C 

ROUTIt:E WF:ICH CALCULATES THE COEFFICIEi ."P 0(JL M ) . 

03360 CO"VON/AA/CK(1552),DELSIG(25G2),SS(864),I?(288),FM .1SS(2P.8), 

033T0 & B(86•4),E(56)),D1(864),ALPHA(854),BE^;A(86u),NB(2n8),0(864), 

03380 & A(A64),CB(2t?R),EDDYV(1552),JP,Y.P,LP,",LPiru"',L~',i'PM1, 

03390 & JLMP,KLMP,G,";BP,REY2?O,WA2,43S,IS,KT,CL, 

03400 

03 ,1 10 

& ETIfÈ,i3t?CHû,UA2(288), :tn2(28t3),VF.P,S,TtJ(?L'),TITLG'(20), 

& CO'JSTE,EDDYT,EDDYS,CO.`J?•1V,LAND(288),FXY,PHT,THETlt,F(2£?R) 

03420 C 

03 41 30 REAL ?IR,1+rP 

03440 

0~L50 C 

LOGICAL C0! i .3TE,LANt'•1,EDDYT,E'DDIS,CO`1PlV ,FXy 

03460 DO 100 J = 1,JP 

03470 JLM-JL',+P+J 

03yu0 AJL M2=2 .0 * Pa(JLA') 

03400 C(JL~')=t+JLM4/(AJL"'2+SIh(A .ILM2)) 

03500 100 COtiTINUE 

03510 RETURN 

03520 E?:D 

03530 C 

03540 C 

03550 C 

03560 C 

03570 SUBROUTINE COEFF 

03580 C 

03590 C 

03600 C RGUTINE WHICH CALCULATES THE COEFFICIENTS : DELSIG, B, E, 

03610 C Dl, SS, AND A 

03620 C 

03630 C 

03640 COl~LM0F3/AA/CK(1552),L,ELSIa(2592),SS(864),H(298),FT'ASS(288), 

036r0 & B(8611),E'(864),D1 ;864),ALP'r3A(864),BETA(864),NB(288),Q(864), 

03660 & A(864),CB(288),EDDYV(1552),JP,KP,LP,FiP,LPMP,L~S,Y,Pld1, 

1-8

€:- 

4 

: 

WFSCM - NECE Program VISCOUS 

03670 & JLMP,KLMP,G,NBP,REYNO,WA2,(JS,I3,KT,DL, 

03680 & ETIME,NUCHG,UA2(288),VA2(288),VERSIN(14),'PITLE(20), 

03690 & CONSTE,EDDYT,EDDYS,CO ;:NV,LAND(288),FXY,PHI,THETA,F(288) 


03710 

03720 C 

LOGICAL CONSTE,LAND*1,EDDYT,E'DDYS,COyNV,FXY 

03730 KKLM=2*(LM-1)+1 

03740 DO 400 J=1,JP 


03760 

ASQRD=A(JLM)*A(JLM) 

03770 IF(CONNV) GO TO 80 

03780 IJLMP=(JLM-1)*JP 

03790 DO 70 I=1,JP 

03800 IJLM=I+IJLMP 

03810 ILM=I+JLMP 

03320 THET=A(ILM)-A(JLM) 

03830 THETP=A(ILM)+A(JLM) 

03840 S1=o .o 

03850 S2=0 .0 

03860 

03870 C 

S3=0 .0 

03880 DO 50 K=2,KP 

03890 KTY.=KT+K 

03900 KLt4=(K-1 )+KLN!P 

03910 'IF(I .EO . J) GO TO 25 

03920 RLA'!".A=(COS(^.'HET*CK(nTK))-C0S(TT?P.T#CK(KTK-1)))/THET+ 

03930 & (CCS(!'HETP*CK(KTK) )-COS(THETPKCK(KTK,-1 ) ) )/TY.FTP 

03940 SLAMA=(SIN(THET*CF:(Y.TK))-ST"?(THET*CK(TiTY.-1)))/TFiE"i+ 

03950 & (SIN(THETP*CK(KTK))-SIt ;(THETP*CK(ICTK-1)))/T?' ::TP 

03960 XI=(COS(THET*CK(KTK))-COS(THET*CK(F:TK-1)))/THET**2 

03970 & +(COS(THETP*CK(KTK))-COS(THF.7P*CK(KTK-1)))/T?iETP*42+ 

03980 &(CK(fiTK)*SIN(T?i'T*CK(KTK))-CK(KTK-1)*SIN(-LHET*CK(KTK-1))) 

03990 & /THET+(CK(Y,TK)*SIN(THETP*CY,(KTK))-CK(KTK-1)*SIN(THETP* 

04000 & CK(KTK-1)))/THETP 

04010 GO TO 35 

04020 25 RLAMA=((C0S(A(ILM)*CK(KTK)))**2-(COS(A(ILM)*CK(KTK-1)))**2) 

04030 & /A(ILM) 

04040 SLAMA=CK(KTK)-CK(KTK-1)+(SIN(2 .0*A(TLM)*C?:(KTK))' 

04050 & -SIN(2 .0*A(ILM)*CK(KTK-1)))/(2 .0 * A(ILM)) 

04060 XI=(CK(KTK)**2-CK(KTK-1) **2)*0 .5+(COS(2 .0*A(ILM)*CK(uTK))- 

04070 

& COS(2 .0*A(ILM)*CK(KTK-1)))/(4 .0*A(ILM)**2)+(CK(KTK) 

04080 & *SIN(2 .0*A(ILM)*CK(KTK))- 

04090 & CK(KTY.-1)*SIN(2 .0*A(ILF;)*CK(KTK-1)))/(2 .0*A(ILM)) 

04100 35 S1=ALPHA(KLM)*XI+S1 

04110 S2=SLAMA*BETA(KLM)/H(LM)+S2 

04120 S3=ALPHA(KLM)*RLAMA+S3 


04140 C 

1-9

t 

Program V ISCOUS 

WFSCM - NECE 

04150 DEL=A(ILM)*33*0 .5 

04'160 SIGMA=(S1+S2)*A(ILM)*A(ILM)*0 .5 

04170 DELSIG(IJLM)=(DEL-SIGMA)*0(JLM) 

04180 C IF(IJLM .GE .73 .AND .IJLti .LT .93) WRITE(3,600) S1,S2,S3,D R 1 .,SIC M A, 

04190 C & DELSIG(IJLM),A(JLM),A(ILM) 

04200 70 COF'M UE 

04210 GO TO 85 

04220 C 

04230 80 CALL DC(JLM,KKLM,ASOP,D) 

04240 85 S4=0 .0 

04250 S5=0 .0 

04260 S6=0 .o 

04270 S7=0 .0 

04280 DO 100 K=2,KP 

04290 KTK=KT+K 

04300 KLM=K-1+KLMP 

04310 GAMA=2 .0*CK(KTK)*COS(A(JLM)*CK(Y.TK))/A(JLM)**?+((A(JLM)* 

04320 & CK(KTK))**2-2 .0)*SIN(A(JL A )*CK(K'TY.))/A(JLM)**3-2 .0* 

04330 & CK(Y,TK-1)*CC5(A(JLM)*CY(KTK-1))/ 

04340 & A(JLM)**2-((A(JLM)*CK(KTY.-1))**2_2,0)°SIN(A(JLM)*CK(KTK-1))/ 

04350 & A(JLM)**3 

04360 PHII=(C0S(A(JLM)*CK(KTK))+A(JLM)*Cn(K.TK)fSIA(A(J! .M)* 

04370 & CK(KTK))-C0S(A(JLM)*CY,(FCTK-1))_A(JLM)*CK(KTK-1)*SIN(A(JL M )* 

04330 & CK(KTK-1)))/(A(JLM)*A(JLM)) 

04390 SP =(SI"i(Ct;(KTK)*A(JLM) )-.SI N (CK(I;TK-1)*A.(JLM) ) )/A(JLtiT) 

04400 S4=ALPHA( F:LFS) *GANA+S4 

04410 S5=ALPHA(KL'*f)*PHT_I+S5 

04420 S6=I3TSTA(KLM)*SP+S6 

04430 S7=8E°'A(KLM)*PFiII+S7 

04.440 100 CONTINUE 

04450 C 

04460 PHII=(COS(A(JLM))+SIN(A(JLM))*A(JLM)-1 .0)/ASORD 

04470 PSI=(SIN(A(JLM))+3 .0*C0S(A(JI,M))/A(JLM)-6 .0*PHII/A(JLM))/A(JLM) 

04480 GAMA=(2 .0*A(JLM)*COS(A(JLM))+(ASORD-2 .0)*SIN(A(JLM)))/(ASORD* 

04490 & A(JLM)) 

04500 C 

04510 RNU=0 .0 

04520 

RNUP=0 .0 

04530 GAMAF=0 .0 

04540 IF(CONSTE) GO TO 200 

04550 Z1=0 .0 

04560 A1=0 .0 

04570 NS1=NS*J 

04580 DELZ=H(LM)/FLOAT(NS1)*0 .5 

04590 DO 120 I=1,NS1 

04600 

Z2=FLOAT(I)/FLOAT(NS1) 

04610 A2=SIN(A(JLM)*Z2)/(ALPHA(IS)*Z2*H(LM)+BETA(IS)) 

04620 GAMAF=GAMAF+A2+A1 

I-10

WFSCM - liECE Progra m VISCO'JS 

04630 A1=A2 

04640 120 

01ir.50 

04660 C 

CONTINUE 

GA M11 F=GA'", AF ;DELZ/A( JLM) 

04670 IF(F;P,LF .2) GO TO 200 

04680 

04690 

Z4 : ;,(JLM)/P.(LM) 

DO 160 F,c3, I!P 

04700 1iTF;=F::+K 

04710 KLM=(f(-1 )+?CLMP 

04720 

0'i730 

A6-0,0 

DZc(CK(KTi!)-CK(' :' 0L7+t0 

0 1t750 

."v-1))iH(Lm)/FLAAT(` :S) 

Z3=CK( F":'K-1)*H(LM) 

Z1=7.3 

047c0 

04770 

B1c1 .0/(ALPHA(IS)*Z1+BE'I'A(IS)) 

Cl1eZ4*Z1 

04780 A1=(ALP}?A(KLM)*7.1+ :,I;'TA(RLFi))*COS(C1?)*B1iA1 

0'1700 A3=C0S(C11)*B1 

JJ:800 

04810 C 

A5=U .5InZ 

04820 D0 150 I-1, N5 

C14830 Z2=Z3+L71FLOAT( :) 

04840 

04c50 

H2_1 .0/( :;Li :'.A(IS}*Z2+EETA(IS)) 

C22=Z4*Z2 

04B6J /'i2=(ALPHA(!t?.M)*i.2+P='TA(62N) )*COS(C22)*B2*B2 

04870 A 4 -C0S ( C22)*02 

04880 A 6 =A 6 +(1:3+eì4 ) 0 1;5 

0 , a8U0 RtJC'? :R13Ln'+( n2+A 1 )*A5 

04900 .^.1=Z2 ' 

014910 F1_B2 

04920 C11=C22 

04930 A1=A2 

04940 A3=A4 


04960 RNU=A6*ALPHA( KLM)+RNU 


04980 RNUP_RNLTP*ALPHA(IS) 

04990 C 

05000 200 IF( .NOT .CONNV) AP=(H(LM)*(9 .0*S4-)1 .0*S5)+6 .0*S7-2 .0*S6)/NB(LM)+ 

05010 & (RNUP-RNU) 

05020 B(JLM)oSIN(A(JLM))/A(JLM) 

05 ,?30 SS(JLM)-B(JLi1) 

05040 B(JLM)=B(JLM)*Q(JLM) 

05050 IF(CONSTE) CAMAF=H(Lt3)/BETA(IS)*(SIN(A(JLM))/A(JLt3)-?Y.II) 

05060 IF(CONNV) AP--(6 .-6 .*C0S(A(JLM))-4,*SIN(A(JLM))*?.(JLM,))/ASQRD 

05070 E(JL M )=((PSI-GAMA)*H(Lt•f)/NB(Lt",)+GADSAF)*0(JLM) 

05080 D1(JLM)=AP/II(LM)*Q(JLM) 


05100 RETURN 

I-11 

_ . __ . _ . 

. __ ~-- - . .-., .. . . . . .

Program VISCOUS WFSCM - tiECE 

05110 ENnJ . 

051c^0 C 

05130 C a• s r* s s• s a s a s o s s a s s a s s s s a a a a a a . s e a s 

05140 C 

0515.0 SUbFC~U'iI .dE L`S .JL:

WFSCM - NECE Program VISCOUS 

05590 DO 500 N=1,It:DEX 

05600 LMIP:DX=LM+N-1 

05610 WRITE(3,400) NN,(Z(LMINDX+L),L=LSTAF.T,LSTOP,INDGX) 

05620 400 FORM.AT(' ',I2,3X,10(G10 .3,2X)) 


05640 NPAGE_(M*INDEX)/48 

05650 IF(NPAGE .EQ .LPAGE) GO TO 700 

05660 LPAGE_NPAGE 

05670 WRITE(3,600) 

05680 600 FORMAT('1',//!/) 



05710 RETURN 

05720 END 

05730 C 

05740 C a • r • . t f +~ • ~r r * +~ ~ ~ * * ~ +~ +~ ~ s * r * e * * s . ~ * . r * 

05750 C 

05760 C 

05770 SUBROUTINE HEADER 

05780 C 

05790 C 

05800 C ROUTINE WHICH PRINTS I ;•?FORF'ATION SUM.MARIZING EXECUTION OF 

05810 C PROGRAM CONSTA'T . 

05820 C 

05630 COM"':0`1/AA/CK(1552),DFLSIG(2592),SS(864),H(288),Fh'ASS(288), 

0 .91:0 & B(864),E,(864),D1(86u),ALPHA(864),BETA(864),IdB(288),Q(86y), 

C5:150 & A(864),CB(288),EDDYV(1552),JP,Y•P,LP,PiP,LPMP,LM,KPM1, 

05860 & JLMP,KL!aP,G,NRP,REY!+0,WA2,NS,IS,KT,DL, 

058?0 & ETIFW,hUCHG,t1A2(288),VA2(288),VERS7N(14),TITLE(20), 

05880 & COP7STE,EDDYT,EDDYS,CGNNV,LAND(288),FXY,PHI,THETA,F(288) 

05890 REAL NB,t+BP 

05900 LOGICAL CO'dSTE,LAND*1,EDDYT,EDDYS,CONNV,FXY 

05910 C 

05920 DATA ASTER/r4 f '/ 

05930 tiRITE(3,10) (ASTER,Ic1,30),VERSIN 

05940 10 FORMAT(///,'1',3vA4,//,' ',14A4,/,' ',56(1H-)) 

05950 WRITE(3,15) TITLE 

05960 15 FORMAT(/,' ',20A4) 

05970 WRITE(3,20)JP,KP,LP,KP,DL 

05980 20 FORMAT(/,' JP_',I1,3X,'KP-',I1,3Y.,'LP=',I2,3X,'MP-',I2,3X, 

05990 & 'DL=',C13 .3) 

06000 IF(CONNV) WRITE(3,30) 

06010 30 FORFAT(/,' NV HAS BEEN TAKEN AS CONSTANT IN THE VERTICAL .') 

06020 WRITE(3,40) PHI 

06030 40 FORMf.T(/,' LATITUDF OF GRID ORIGIN=',F3 .0,' DEG') 

05040 IF(FXY) WRITE(3,45) THETA 

C6050 45 FORMAT(/,' AETl,-PLANE APPROXIMATION USED - ANGLE BETWEEN', 

06060 & ' X-AXIS AND TRUE 1GRTH=',F4 .0) 

1-13 

-_ ._ . . . ... ..~. .- . . ...~ . .~ . . . . . . . . . ... aa


WFSCM - NECE 

06070 WRITE(3,50) 

06080 50 FORMAT(//'1STILL WATER DEPTHS IN METERS FOLLOW :') 

06090 CALL OUTPUT(LP,tdP,H,1) 

06100 WRITE(3,60) 

06110 60 FORIlA':(//,'1THE LAYER DEPTHS FOR THE EDDY VISCOSITY FOLLOW ', 

06120 & ' (NGIdDIKENSIONAL) :' ) 

06130 CALL OUTPUT(LP,MP,CK,KP) 

06140 WRITE(3,130) 

06150 130 FORMAT(//,'1FRICTION COEFFICIENTS (M/SEC) :') 

06160 CALL OUTPUT(LP,?3P,CB,1) 

06170 WRITE(3,10)(ASTER,I=1,30) 

06180 RETURN 

06190 END 

06200 C 

06210 C f 

06220 C 

06230 

06240 C 

SUBROUTINE PRINTS 

06250 C 

06260 C 

ROUTINE WHICH PRINTS NV(KLM) AND A(JLM) WHENEVER NV CHANGES . 

06270 COI090N/AA/CK(1~52),DELSIG(2592),SS(864),H(288),FMASS(288), 

06280 

& B(86u),E(86U),hI(864),ALPHA(864),BETA(864),NB(288),Q(864), 

06290 & A(864),CB(288),EDDYV(1552),JP,KP,LP,MP,LPY-P,LM,KPM1, 

06300 & JLb;P,F:LAi?,G,NDP,REYi30,k'k2yNS,IS,KT,DL, 

06310 

06320 

& ETI!.~.',tiiICHG,UA2(2a$),1'A2(288),VERSIN(14),TITLE(20), 

& COIISTE,EDDYT,EDDYS,CO"dNV,LAND(288),FXY,PHI,T!iETA,F(288) 

06330 C 


06350 LOGICAL CONSTE,LAND*1,EDDYT,EDDYS,CONNV,FXY 

06360 C 

06370 

06380 C 

DATA ASTER/'* * '/ 

06390 WRITE:(3,10) (ASTER .I=1,30) 

06400 10 FORMAT(///,'1',30A4) 

06410 TIME-FTIME/3600 . 

06420 WRITE(3,100) TIME 

06430 100 FORMAT(//5Y.,21(1H-)/4X,'/ TIME 4', 

06440 &F6 .2,' HOURS',2X,'/',/,4X,21(1H-)) 

06450 IF(EDDYS .OR.EDDYT) WRITE(3,200) REYNO 

06460 200 FORMAT(/,' REYNOLDS NO .=',F5 .1) 

06470 

IF (EDDYS .AND .( .NOT .EDDYT)) WRITE(3,300) WA2 

06480 300 FORMAT(/,' THE AVG . WIND STRESS USED IN NV MODEL_',E10 .3) 

06490 WRITE(3,400) 

06500 400 FORMAT(//,'1NV (SQ MTS/SEC) :') 

05 5 10 CALL OUTPUT(LP,MP,EDDYV,KP) 

06520 WRITE(3,500) 

06530 500 FORMAT(//,'1A(JLM) :') 

06540 CALL OUTPUT(LP,MP,A,JP) 

I-14 

i 

~ 

i 

.a

s. wrsca7 - NECE Program VISCOUS 

} {:` 

. .x . . 

06550 WRITE(3,600) 

06560 600 FORti.AT(//,'1F(L,M) - CORIOLIS PARAMETETi') 

06570 CALL OUTFUT(LP,M?,F,1) 

06580 lWRITE(3,10)(ASTER,I=1,30) 

06590 RETURN 

06600 

06610 C 

END 

a 06620 C 

a f a! f! a a s a f f f a! a s a f f a f! a a a•! f a : a f a 

06630 

06640 C 

SUBROUTINE ERROR(IERR,LM,K) 

06650 C 

06660 WRITE(3,100) IERR,LM,K 

06670 100 FORMAT( ///,' f a ERROR N0 .' , I2,' HAS OCC,UP.ED EXECL'TIOli ABORTED' 

05680 & ,/,' LM_',I5,5X,'P:-',I2) 

06690 STOP 

06'709 END 

06710 C f 

a Y a f f a! a! f a a! a!! a a a i f f f i a f f f a! f 4 a f a f! 

06720 C 

06730 

05?40 C 

06750 C 

SUBROUTINE CORIOL 

06760 C ROUTINE TO CALCULATE THE CORIOLIS PARAh?F.TER, F . IF FXY-TRLE '"!•T:N 

06770 C F IS CALUCULATED AS A FUNCTION OF LATITUDaE . IF FALSE THEN R IS 

06780 C CALCULATED BASED ON THE VALUE OF CPHI . 

06790 C 

06800 CO~4MON/AA/CK(1552),DELSIG(2592),SS(86u),H(288),Ft4 .^,SS(288), 

06810 & J(~36~+},r(85~),D1(3Fi~),i .LPriP.(86u),SETa(86u),[I?i2°.. :'•),,^,lSny), 

06820 & A(864),C5(288),Ennt!r(15 ;2~,JP,KP,LP,N,ry,LP~4?',i.M,KPM1, 

06830 & JL!.T,Y,1.M.?,G,1dBP,FFY*d0,h'A2,1 :S,IS .F;1',DL, 

06840 & E'.'Iti:^t .,PIi1CHs,i,'A2(268),VA2(288),VF.RSIPF( 14),TIT :.E(20), 

06850 & CO!STE,r.DD';:,Ei.~'JiS,C6NfiiV,LAND(286),'rXY,PHI, Ti?ETti,F(2R8) 

00860 C 

06870 REAL 1va,NBP 

06880 

06890 C 

LOGICkL COtioTE,LANDa1,EDDYT,EDDYS,CON!JV,FXY 

06900 

06910 C 

DATA OMEGA/0 .00014544/,RADIUS/6378000 ./,PI/3 .1u159/ 

06920 

CON'l=PI/180 . 

06930 F(1)_OP_llG .ifSIN(PHI ;CON`r) 

06940 DO 500 M-1,MP 

06950 LPiP=(hS-1)aLP 

06960 w1=M-1 . 

06970 DO 500 L=1,LP . 

06980 LM_Lf-L°+!, 

06990 F(LM)_r(1) 

07000 IF( .NJT .FY,Y) GOTO 500 

07010 L'41 zL-1 

07020 D.[ :STcSaRT(FLOP .T(L*;1fLM1+NM1fMM1))fDL 

1-15 

._ . . ., ._ . .i . .- .._~ . .

Program VISCOUS MTFSCM - NECE 

07030 PSI=90 . 

07040 IF(LM1 .EQ .0) COTO 50 

07050 PSI=ATAN(FLOAT(MM1/LM1))/CONV 

07060 50 PSI=PSI+90 .-THETA 

07070 ZETA=DIST*SIN(PSIOCOtdV) 

07080 F ;LM)_O~IEGfi#SIN(AP,SIN(ZETP!/RADIUS)+PHI ;CONV) 


07100 RETURN 

07110 END 

07120 C$ENTRY 

Eor : 

I-16

a y 

. 

WFSCM - NECE Program DENSITY 

00010 C • 

00020 C 

00030 C PROGRAM DZ-hSITY (GAL) 

00040 C 

00050 C VERSION 7 - JULY 1982 - REVISION A 

00060 C 

00070 C 3-D CIRCULATION MODEL 

00080 C 

00090 C BY CORTIS COOPER, NECE 

00100 C 

00110 C THIS PROGRAM CALCULATES THE DENSITY GRADIENT TERM WHICH IS 

00120 C USED IN PROGRAM CIRC . PROGRAM VISCOUS MUST BE RUN BEFORE 

00130 C DENSITY . SEE GAL USER fS MANUAL FOR INFORMATION ON HOW TO 

00140 C USE THIS PROGRAM . THE MANUAL ALSO CONSTA?aS A LIST OF REVISIONS . 

00150 C 

00160 C REVISION 6 .A IS FOR MULTICS. ONLY DIFFERENCE BETWEEN 6 .A AND 

00170 C 5 .F IS THAT MULTIPLE RETURN IN SUBROUTINE BOTTOM WAS 

00180 C REMOVED . WAS NOT NEEDED ANYWAY . 

00190 C 

00200 C REVISION 7 .A FOR IBM. SAME AS 6 .A . 

00210 C 

00220 COMMON/AA/DELHP(10),PHI(10),S(10),HP(10),H(288),T(P64), 

00230 & SAL(864),RHOWP(864),RHOW(864),RO',IX(864), 

00240 & ROWY(864),A(864),0(864),CALDE*i, 

00250 & LP,bL°,JP,IPP,IPLP,LPMI,MPM1,JPLPPTP,LFMP,IPLPtdP, 

00260 & KP,KPLPP'D,COIS?iV,VERSIN(14),TITLEI(20),TITLE2(20),DTI?•':E, 

00270 & ASTER,ETI~;E,LAhTD(288),BOTT(864) 

00280 DItlENSION DROiJ X(10 ), DROU!Y (10 ) 

00290 LOGICAL CALDEN,CONNV,LAND;1,BOTT*1 

00300 C 

00310 

00320 C 

DATA NUCHG/1/ 

00330 NAMELIST/MISC/NUCHG, CALDEN 

00340 NAMELIST/SALIN/SAL 

00350 NAMELIST/TEMP/T 

00360 NAMELIST/LAYER/F?P,IPP,DTIME 

00370 

NAMELIST/RHO/RHOWP 

00380 C 

00390 READ(1,100) TITLE1 

00400 100 FOR?!AT(20A4) 

00410 READ(1 ;MISC) 

00420 - READ(10) TITLE2,LP,MP,JP,KP,CONNV 

00430 LPM1-LP-1 " 

00440 KPLPMP-KPOLP*MP 

00450 MPM1- MLp-1 

00460 i.YMP=LP*MP 

00470 JPLPMP=JP#LPMP 

1-17

_c . . 

Prcgram DENSITY 

WFSCr1 - NECE 

00$80 READ(10)(H(LM),LM-1,LPf1P),(LAI2D(LM),L1

;, WFSCM - KECE 

k - 

Program DENSITY 

00960 C 

00970 SUBROUTINE RDNV 

00980 C 

00990 C ROUTINE WHICH READS IN VARIABLES ASSOCIATED WITH THE EDDY VISC . 

01000 C 

01010 CO*v'k`+fON/AA/DELHP(10),PHI(10),S(10),HP(10),H(288),T(864), 

01020 & SAL(864),RHOI?P(864),RHOI-i(864),ROWX(864), 

01030 & ROC:,Y(864),A(864),0(864),CALDEN, 

01040 & LP,MP,JP,IPP,IPLP,LPM1,MPM1,JPLPMP,LPMP,IPLPMP, 

01050 & KP,F'PLPMP,CONNV,VERSIN(14),TITLE1(20),TITLE2(20),DTIMF, 

01060 & ASTER,ETI~kc,LAND(288),BOTT(864) 

01070 C 

01080 LOGICAL CALDEtt, CONt:V, LAND* 1, BOTTi 1 

01090 C 

01100 KLMMI :LPMP*(KP-1) 

01110 JJLPt-IP=JP*JPLPKo 

01120 IF (COti;dV) JJLPMP=JPLPMP 

01130 READ(10) ETIT~E,(A(JLA'f),JLM=1,JPLPVY),(Q(JLM),JLM_1,JPLPMP), 

01140 & (DUi°!,JLM :1,JPLPMP),(DUM,JLM-1,JJLPt'iP), 

01150 & (DUM,JLM=I,JPLPrg>),(DUM,JLM=1,JPLPM.P), 

01160 & (DUM,JLM=1,JPLPMP),(DUM,LM_1,LPMP) . 

01170 & (DUM,KLM=1,KPLPMP),(DUM,LM_1,LPMP), 

01180 & ( DUM, KLM_ 1, KLt0i 1) ,( DUM, KL.M-1, IO.MM1) 

01190 RETGTRN 

01200 END 

01210 C 

01220C~ 

01230 C 

01243 SUBROUTINE SETRHO 

01250 C 

01250 C ROIITI?;w WHICH : (1) SETS THE Vl! RIABLf : BOTT TO TRUE AT '"HE LEVEL 

01270 C Wf1ERE THE BOTT0'd OCCURS, (10) SETS RHOW(IP,L,M)-0 FOR ALL LAYERS 

0 12S0 C DEEPER THAN H(L,M) AND (10) CALCULATES RHO'e'(IP,L,M) ELSEWHE 'RE . 

01290 C 

01300 C"Oh/AA/DELHP(10),PHI(10),S(10),HP(10),H(288),T(864), 

01310 & SAL(864),RHO?%P(864),RHO?a(864),ROWX(864), 

01320 & RO'r7 :'(864),A(864),Q(864),CALDEN, 

01330 & LP,N-",JP,IPP,IPLP,LPM1,Y-?M1,JPLPMP,LPMP,IPLPMP, 

01340 & KP,KFLPt4''c,COvidV,VERSIt`Z(14),TITLE1(20),TITLE2(20),DTIME, 

01350 & ASTER,ETIMr',LAND(288),BOTT(864) 

01360 LOGI CAL CALDEN, COt3NV , LANDf 1, BOTT* 1 

01370 C 

01380 DO 100 I :1,IPP 

01390 ILMP_LPtRP*(I-1) 

01400 DO 100 LM=1,LPMP 

01410 IPLM:(LM-1)*IPP+I 

01420 ILM_ ILMP+LM 

01430 IF (HP(I) .CT .H(LM)) CALL BOTTOM(IPLM,I) 

1-19

Program DENSITY WFSCM - NECE 

01440 IF(CALDETF) RFIOIt?'(ILM)=DEN(T(ILM),SAL(ILM)) 

01450 100 CCt,1TIPlUE 

01460 DO 300 LM_1,LPMP 

01470 IPLMP=(LNS-1)rIPP 

01480 DO 300 I=1,IPP 

01490 I°Lt5_IPL~lP+I 

01500 ILM-LPt4P*(I-1)+LM 

01510 fiH0°:7(IPLM)=RIIOWP(ILM) 

01520 300 CO dTItdUE 

01530 C WRITE(3,111) 

01540 C WRITE(3,222) (RHOWIACH), IACH_1,IPLPMP) 

01550 222 FOP,MAT(1X,10G12 .5) 

01560 111 FORMAT(1X,'RHOW FROM SUBROUTINE SETRtIO',/) 

01570 RETURN 

01580 END 

01590 C 

01600 C 

01610 C 

01620 C 

01630 SUBROUTINE BOTTOM(IPLM,I) 

01640 C 

01650 C ROUTINE WEICH SETS THE VARIABLES BOTT(IP,L,M) AND RHOW(IP,L,M) 

01660 C ONCE THE BOTTOM FOR GRID (L,M) HAS BEEN LOCATED . 

01670 C 

01680 COMMON/AA/DELHP(10),PHI(10),S(10),i?P(10),H(288),T(864), 

01690 & SAL(864),RtiOh'P(86~i),RHOVI(864),ROHX(864), 

01700 & ROW'Y(864),A(864),4(864),CALDEN, 

01710 & LP,r;P,JP,IPP,IPLP,LPM1,MPtd1,JPLPMP,LPMP,IPLPMP, 

01720 & KP,XPLPMP,CONNV,VEi;SIPI(14),TITLEI(20),TITLE2(20),DTIME, . 

01730 & ASTER,ET1"ME,LA41D(288),BOTT(864) 

01740 LOGICAL CALDLN,COìNV,LAND*I,BOTT*1 

01750 DO 100 J=I,IPP 

01760 BOTT(IPLM)- .TRUr . 

01770 RHOW(IP'LM)=0 .0 

01780 IPLM=IPLM+1 


01800 RETURN 

01810 END 

01820 C . 

01830 C 

01840 C 

01850 C 

01860 FUNCTION DEN(T,S) 

01870 C 

01880 C ROUTINE WHICH COMPUTES DENSITY GIVEN SALINITY(PPT) AND TEMPERATURE 

01890 C (DEGREES CELSIUS) . NOTE ALGORITHIM USED APPLIES ONLY TO SHALLOW 

01900 C WATER . 

01910 C 

1-20 

. . .__ ._ _ . .._ _ ..._:_. ~.,.,.

t» WFSCM - NECE Program DENSITY 

~: . 

01920 C NEXT EQN FROM NEUMANN & PIERSON, PRINC . OF PHYS . OCEANOGRAPHY, P .40 

01930 CL-(S-0 .030)/1 .805 

01940 C NEXT EQN FROM DEFANT, PHYS . OCEANOGRAPHY, P . 41 

01950 SIG=-0 .069+1 .4708*CL-0 .001579CLtCL+0 .0000398*CLxf3 

01960 C REMAINING RELATIONSHIPS FROM H .O . PUB . 615, P . VII 

01970 A=T* (4 .7867-0 .098185 *T+ 0 .0010843 *T*T)/1000 .0 

01980 B_TO(18 .030-0.8164*T+0 .01667*T•T)/100000C .0 

01990 D1=-((T-3 .98) **2)/503 .570 

02000 D2_(T+283 .0)/(T+67 .26) 

02010 D_D1*D2 

02020 SIGMA=D+(SIG+0 .1324)*(1 .o-A+B*(SIG-0 .1324)) 

02030 DEN-(1+ .001 *SIGMA) * 1000 . 

02040 RETURN 

02050 END 

02060 C 

02070 C 

02080 C 

02090 C 

02100 

02110 C 

SUBROUTINE CALCR(DROWX,DROWY,IPPP) 

02120 C ROUTINE WHICH CALCULATES THE DENSITY CCEFFICIENTS, ROWX(J,L,M) & 

02130 C 

02140 C 

ROWY(J,L,M) . 

02150 COMM03J/AA/DELHP(10),PHI(10),S(10),HP(10),ii(288),T(864), 

02160 & SAL ( 864 ) , RHOFIP ( 864 ) , RHOW( 864 ) , R06 :X( 864 ) , 

02170 & ROWY(864),A(85k),Q(864),CALDEN, 

02180 & LP,W,JP,IPP,IPLP,LPr:1,t•LpM1,JPLPAfD,LPMP,IPLPNP, 

02190 & IO?,F:PLPMP,CO'.d.*V,VERSIii(14),TITLEI(20),TITLE2(20),DTIME, 

02200 & ASTER,ETI?1r',LAND(288),BOTT(864) 

02210 DIMENSION DRO:4X(IPYP),DROIdY(IPPP) 

02220 

02230 C 

LOGICAL CALDEN,CONNV,LAND*I,BOTT*1 

02240 DELHP(1)=HP(1) 

02250 IF(IPP .EQ .1) GO TO 200 

02260 DO 100 IP=2,IPP 

02270 DELHP(IP)=HP(IP)-HP(IP-1) 


02290 C 


02310' DO 1000 M-2,MPM1 

02320 

02330 

LMP=(M-1)*LP 

DO 999 L=2,LPM1 


02350 IF (LAND(LM)) GO TO 999 

02360 JLMP=(LM-1) * JP 

02370 IPLMP=(LM-1)*IPP 

02380 DO 999 J-1,JP 


1-21 

.

~ 

,~ Program DENSITY 

y ~ 

WFS01 - NECE 

02400 Ha=H(LM)/A(JLM) 

02410 AH=1 .0/HA 

02420 HASQP.D=HA{HA 

02430 ZETA2=0 .0 

02440 DO 300 I_1,IPP 

02450 IPLM=I+IULMP 

02460 IF(BOTT(IPLf4)) GO TO 400 

02470 ZETA1=ZETA2 

024-50 ZETA2=HP(I)*AH 

02490 DROWX(I)=FROW(IPLN-IPP,IPLM,IPLM+IPP) 

02500 DROWY(I)-FROW(IPLM-IPLP,IPLM,IPLM+IPLP) 

02510 PHI(I)=(COS(ZETA2)+ZETA2*SIN(ZETA2)- .:OS(ZETA1)-ZETA1*SIN(ZETA1)) 

02520 & *HASQRD 

02530 S(I)=HA*(SIN(ZETA2)-SIN(ZETA1)) 


02550 400 IPLM=IPLN:P+1 

02560 IF(BOTT(IPLM)) GO TO 1000 

02570 ROWX(JLM)=SUM(DROWX,IPPP,IPLMP)*0(JLM) 

02580 ROWY(JLM)_SUM(DROWY,IPPP,IPLMP)*Q(JLM) 

0?G90 C WRITE(3,111) JLM 

02600 C WRITE(3,222) (DROWY(IACH), IACH=1,IPP) 



02630 222 FORM•4T(1X,10G12 .5) 

02640 11 1 F0P.hL4T(1X,'JLM= ',15) 

0^650 RETURN 

02560 END 

02670 C 

02680 C 

02690 C 

02700 

02710 C 

02720 C 

FUNCTION FRO W(LOC1,LOC2,LOC3) 

02730 C 

02740 C 

FUNCTION WHICH CALCULATES THE EXPRESSION DELTA-RHOW . 

02750 COlrASON/AA/DELHP(10),PHI(10),S(10),HP(10),H(288),T(864), 

02760 & SAL(864),RHOWP(864),RHOW(864),ROWX(864), 

02770 & RO'+dY(864),A(864),Q(864),CALDEN, 

02780 & LP,MP,JP,IPP,IPLP,LPM1,MPMI,JPLPHP,LPMP,IPLPMP, 

02790 & RP,KPLPMP,CONN1i,VERSIN(14),TITLE1(20),TIT_ .E2(20),DTIME, 

02800 & ASTER,ETIME,LAND(288),BOTT(864) 

02810 LOGICAL CALDEN,CONNV,LAND*I,BOTT#1 

02820 RH01=RHOW(LOC1) 

02830 RH03=RHOW(LOC3) 

02840 CONST=1 .0 

02850 IF(BOTT(LOC1)) RH01=EROW(CONST,L0C2) 

02860 IF(BOTT(L0C3)) RH03=EROW(CONST,LOC2) 

02870 FROW=(RH03-RH01)+CONST 

1-22

~ 

r 

WFS0i - NECE Progra.cc DEPISITY 

02880 RETURN 

02890 

02900 C 

END 

02910 C~ r u n a e s•• r~• r s• s s e .∎ .~r o s s∎ .•• r• a 

02920 C 

02930 C 

02940 

02950 C 

FU!6CTION ERCW(CCF.ST,LOC2) 

02960 C FCT:4CTICh' t•:HICH CORRECTS DENSITY GRADIEN'i' FOR CASE OF OPEN 

02970 C WATER BOUNDARY OR LAND BOUNDARY CONDITION . 

02980 C 

02990 COMMON/AA/DELHP(10),PHI(10),S(10),HP(10),H(288), :'(864), 

03000 & SAL(8611),RHCir.TP(864),RHOW(86%i'),R067X(864), 

03010 & RO ;dY(864),A(864),Q(864),CALDC• .N, 

03020 & LP,MP,JP,IPP,IPLP,LPMI,P'PI)iI,JPLPf•!P,LPMP,IPLPMP, 

03030 & KP,KPLPMP,C0~3NV,VEP,SIN(14),T?TLE1(20),TITLE2(20),DTIME, 

03040 & ASTER,ETIME,LAND(288),ROTT(864) 

03050 DIh'E"iSION DnOir'X(10),DRCi?Y(10) 

03060 

03070 C 

LOGIC:L CALDEtd, CONKV, LA.dD*1, BCTT# 1 

03030 EROhT=RHOW(LOC2) 

03090 CoxS "!' =2 .0 

03100 RETURN 

03110 END 

03120 C• ~*aesa~a*r*s~a~a .*f .~s+a~ssr . 

03130 C 

.e . . 

03140 

03150 C 

FUNCTION SUM(DP,OW,IPPP,IPLNR') 

03160 C FijNCTIO :d WHICH COMPUTES THE COEFFICIENT ROW(J,L,M) IN EITHER THE- 

03170 C X OR Y DIRECTION . 

03180 C 

03190 COAtf0"I/AA/DELHP(1J),PHI(10),S(10),HP(10),H(288),T(864), 

03200 & SLL(864),RHOWP(864),RHOW(864),ROWX(864), 

03210 & RO'eaY(864),A(8F4),q(864),CALDEN, 

03220 L LP,MP,JP,IPP,IPLP,LPMI,MPMI,JPLPMP,LPMP,IPLPMP, 

03230 & [0',KPLPMP,CONNV,VERSI ;l(14),TITLE1(20),TITLE2(20),RTIME, 

03240 

& ASTER,E'fIME,LAND(288),BOTT(864) 

03250 DIMENSION DROW(IPPP) 

03260 

03270 C• 

LOGICAL CALDEN,CONNV,LAh'D;1,BOTT*1 

03280 SUM=0 .0 

03290 IF(IPP .EQ ./) GOTO 500 

03300 SUM14 .0 

03310 DO 400 IP=2, IPP 

C-3320 IPLt4-IPLN:P+IP 

0 .'330 IF(BOTT(IPLM)) GO TO 500 

03340 SUM1_0 .0 

03350 IPm1 _IP-1 

1-23

Program DENSITY WFSQM - NECE 

03360 DO 200 II=1,IPM1 

03370 SUM1=DEL!iP(II)ODROW(II)+SUM1 


03390 SUNS-((SUDl1-HP(IP-1)+DROY1(IP))*S(IP)+DROW(IP)#PHI(IP))/RHOW(IPLM)+ 

03400 & SUM 

0341o 40o CONTINUE 

03420 500 SUM=SUM+DROW(1)*PHI(1)/RHOW(IPLA4P+1) 

03430 RETURN 

03440 END 

03450 C 

03460 C 

03470 C 

03480 SUBROUTINE SETBCD 

03490 C 

03500 C ROUTINE WHICH SETS ROWX & ROWY AT (J,L,MP) AND (J,LP,M) 

03510 C 

03520 COMMON/AA/Dr,:LHP(10),PHI(10),S(i0),HP(10),H(238),T(864), 

03530 & SAL(864),RHOWP(864),RHOW(864),ROWX(864), 

03540 & ROWY(864),A(864),Q(864),CALDEN, 

03550 & LP,MP,JP,IPP,IPLP,LPMt,NL'M1,JPLPMP,LPMP,IPLPMP, 

03560 & [OP,KPLPMP,CONNV,VERSIIJ(14),TITLE1(20),TITLE2(20),DTIME, 

03570 & ASTER,E'TIME,LAND(288),BOTT(86 4 ) 

03580 LOGICAL CALDEN,COidiVV,LAND * 1,BOTT * 1 

03590 JPLP=JP *LP 

03600 JLM?=(MPM1)*JPLP 

03610 DO 100 I=1,JPLP 

03620 JLM-JLMP+I 

03630 ROWX(JLM)=ROWX(JLM-JPLP) 

03640 ROWY(JLM)=R0!4Y(JLlS-JPLP) 


03660 DO 200 M=1,MP 

03670 JLMP=M*JPLP-JP 

03680 DO 200 J_1,JP 

03690 JLM-J+JLMP 

03700 ROWX(JLM)=ROWX(JLM-JP) 

03710 ROWY(JLM)=ROWY(JLM-JP) 


03730 RETURN 

03740 END 

03750 C 

03760 C 

03770 C 

03780 SUBROUTINE HEADER 

03790 C 

03800 C 

03810 C ROUTINE WHICH PRINTS INFORMATION SUMMARIZING EXECUTION OF 

03820 C PROGRAM DENSITY . 

03830 C 

1-211

WFSCM - NECE Progra:a DEItSITY 

03840 C029rI0N/AA/DELHF(10),PHI(1t1),S(10),HP(10),H(288),T(864), 

03850 

03860 

& SAL(864),RHOWP(86u),RHOW(864),ROaX(864), 

& ROh'Y(864),A(864),Q(864),CALDs?N, 

03870 & LP,MP,JP,IPP,IPLP,LPM1,4IPt41,JPLPMP,LPMP,IrLPN•P, 

03880 & KP,KPLP''Y,CO°:NV,VERSIN(14),TITLE1(20),TITLE2(20),DTIMr, 

03890 & ASTER,ETIT•E:,LAND(288),EOTT(864) 

03900 

03910 C 

LOGICAL CALDEN,CONNV,LAG?Ds1,E0TTs1 

03920 

03930 10 

WRIT^c(3,10) (ASTER,I=1,30),VERSIN 

FORNJ4T(///,'1' , 30A4 , // , ' ' , 1oX , 14AU , / , ' ' , 1oX , 55(1H-)) 

03940 1JRITE(3,15) TITLEI 

03950 15 FORMAT(/,' ',20A4) 

03960 WRITE(3,18) TITLE2 

03970 18 FORMAT(/ , ' VISCOSITY TITLE : ' , 20A4) 

03980 WRITE(3,20)JP,LP,MP 

03990 20 FORMAT(/,' JP=',I1,3X,'LP=',I2 :3X,'MP=',I2) 

04000 WRITE(3,50) 

04010 50 FQRMAT(/l'1STILL WATER DEPTHS IN METERS FOLLOW :') 

04020 CALL OUTPUT(LP,MP,H,1) 

04030 RETURN 

04040 EtSD 

04050 

04060 

C 

C s s~r s s s s s s . s s s s s s s s s s s s s s s s . s s s s . s s s 

04070 C 

04080 

04090 C 

SU3ROUTINE PRINTS 

04100 C ROUTINE WHICH PRINTS A( .1LM),T(ILI'f),SAL(ILM) AND RHOi:(ILM) EACH 

04110 C TIME THE DENSITY FIELD OR NV CHANGES . 

04120 C 

04130 COMtdQN/AA/DELHP(10),PHI(10),S(10),HP(10),H(288),T(S64), 

04140 & SAL(864),RHOWP(86q),RHOW(864),ROWX(864), 

04150 & RO ;dY(864),A(861+),C(864),CALDEN, 

04160 & LP,MP,JP,IPP,IPLP,LPMI,MPMI,JPLPN'P,LPMP,IPLPtfi', 

04170 & KP,I:PLPMP,COI:NV,VERSIN(14),TITLEI(20),TITLE2(20),DTI~s, 

04180 & ASTER,F.TIME,LAND(288),30TT(864) 

04190 LOGICAL CALDEN,CONNV,LAND#1,BOTT*1 

04200 C 

04210 WRITE(3,10)(ASTER,I :1,30) 

04220 10 FORMAT('1',30A4) 

04230 TIME=DTIME/3600 . 

04240 WRITE(3,20) TIME 

04250 20 FORNfAT(//5X,21(1H-)/4X,'/-TIt4E i', 

04260 &F6 .2,' HOURS',2X,'/',/,4X,21(1H-)) 

04270 WRITE(3,30)(HP(I),I=1,IPP) 

04280 30 FORMAT(//,' THE LAYER DEPTHS FOLLOid(METERS) :',/,' ',10(G10 .3,3X)) 

04290 WRITE(3,105) 

04300 105 FORMAT(//,'1A(JLM) :') 

04310 CALL OUTPUT(LP,MP,A,JP) 

1-25

;:~s : ~ 

~ 

S03N - WS,3i1 J[,LIS:dZC tiej 8a.td 

z-i"oloa l 0£ S111 0 

(T98),L,LOtI`( ;n~)Q:a'l'I`rsll :..~` ;i3', .SV : OZSr,O . 

`zIIZQ`(0z)ZS^.WIJ.`W)LS ;,i:LL`(hl)~"iI`" :+1AÀ ;av^C`csw'IdY`ds 't OtS*0 

' d:•Id'IdI`dHlti'i`d~id'idr` L'rt.iw` tl-,dZ' d'idI`ddI`di'' ciirl`d'I '1 C0C- tr0 

`2+SQ'1ii0`(r9a)0`(h99}~'( t9f:)tiiGZi 'I G6iih0 

` ( h98 }X ;3Ii 059tt0 

(£'01J01'XL ) J.y : ;a0.3 005 Ch9tt0 

(dild'I`l=I `(I) AOidif) (006`£) ;,LIdH 3 0£9h0 

ai) (006`£)3~II?!t4 0 " 0Z9tt0 

( d~ld'Idi' ` 1=1 `( I) :ti~~0 ;i Od 000' c ) 3 .: Id:! 0 0l g q0 

( di.dÌ` 1=ài'I ` (iilmGH2i ) ` ( cii^?d'idf ` 1=w1r ` ('+ .; ) I?t02i ) 'T 009 h0 

'(dnd'Idr`l='>1;1`(~~r)~ .~ :o~)ddI` .^~:iT.Q(!l)SLIi!:! "UbSKO 

,:: . .:.4I1e00 001 Ot9t, 0 

9 2- 1 .

BFSCM - NECE Program DENSITY 

04800 LSTART :10a("".FT-1)*INDEX+1 

04810 LSTOP=10iKMIINDEX 

04820 JSTOP_10*f7 .M 

04830 JSTART :10e(*^•;-1)t1 

04840 IF(KM .FO .rtPACE) LSTOP_LP*INDEX 

04850 IF(1?! .GT .1) WRIT£(3,100) 

04860 100 FGRMAT(' 1' ,////, 30X, ' CONTIICLrED FROM FREVIOL'S PAGE' ) 

04870 WRITE(3,200)(J,J :JSTART,JSTOP) 

04O°0 200 F03MAT(53X :' X DIRECTIOY',/,' -Y-',6X,10(I2,10X)) 

048-90 WRITE(3,300) 

04900 300 FORt'JIT(' ---',6X,10('--',10X)) 

04910 DO 700 it_1,M? 

04920 Ar:-idf'+1-M 

04930 

LM=(2?t-1)*LPI 

04940 

04950 

DO 500 N=1, IrrDEY. 

L~•.iNDX=L"+-N-1 

04Q60 WRITr'.(3,)100) 4N,(Z(LF!IKDX+L),L-cLSTART,LSTOP,Ih*DEX) 

04970 400 FORt4AT(' ',I2,3X,10(F10 .4,2X)) 


04990 NPAsE_(h!@INDCX)/48 

05000 IF(NPAGE .rQ .LPACE) GO TO 700 

05010 t.?ACE_NPAC7 

05020 ti'RITE0, 600 ) 

05030 600 FORMA'•"('1',////) 

07040 700 C0'JTItar 

05050 800 C0 .`:T .'. : irz 

05060 RETUR!i 

050'0 

05090 

EOF : 

EtiD 

I-27

Program CIRC WFSCM - NECE 

00010 C 

00020 C 

00030 C PROGRAM CIRC(GAL) 

00040 C 

00050 C VERSION 7 .A - JULY 1982 

00060 C 

00070 C FLORIDA SHELF 3-D CIRCULATION MODEL 

00080 C 

00090 C BY CORTIS COOPER, NECE 

00100 C 

00110 C SEE USERS MANUAL FOR DIRECTIONS 

00120 C 

00130 C 6 .A : 10/1/81 VERSION 5, REV I OF CIRC MODIFIED TO 

00140 C RUN ON MIT F;ULTICS . 

00150 C 6 .B: 11t1/81 ATMOSPHERIC PHESSURE GRADIFNT TERMS REMOVED . 

00160 C 6 .C : 12/1/81 UPDATED TO INCLUDE LATERAL SHEAR TERMS . 

00170 C 6 .D : 1/8/82 BOUPIDARY CONDITIONS ARE SPECIFICALLY SET 

00180 C FOR THE FLORIA SHELF GRID . SEE SUBROUTINE BNDRY . 

00190 C 6 .E : 1/29/82 VARIATION IN THE CORIOLIS PARAMETER INCLUDED . 

00200 C OUTPUTS VELOCITY AND SURFACE ELEVATION IN F4.0 FORMAT 

00210 C 6 .F : 4/10/82 REMOVED SUBROUTINE CALFLO, SINCE IT NO LC :'3GER WAS 

00220 C NEEDED . S?I`R'LIFIED BCFLOW . INCORPORAT?D SINUSOIDAI. VARIATIO'd 

00230 C OF DBC AT vn'STERN BOUNDARY . PUT IN REFLEC".'IOiJkL SYMETRY ON 

00240 C 4?ESTi:RN BOUNDAccY . CORRECTED BUG II? HOT START OPTION . 

00250 C 6 .G : 5/15/82 CORRECT BUG IN ROUTINE BNDRY TO IMPORVE CALCULATION 

00260 C AT GRID (11,5) AND (11,23) 

00270 C 6 .H: 5/29/82 CHA ;iGED OUTPUT SO THAT ROW 2, COLfi 7-11 WERE SET 

00280 C EQUAL TO ROW 3, SANE COLS . 

00290 C 7 .A : 7/3/82 MODIFIED TO PUN ON IBM . REMOVED OUTPUT ROUTJNES . 

00 100C•~•r+t+~+~r~ra~s* 

00310 C 

00320 C DEFININITON OF MAJOR VARIABLES USED IN PROGRAM 

00330 C USES NOTATIONS FROM THEORECTICAL DESCRIPTION AND USER'S MANUAL FOR GAL 

003110 C 

003"^,0 C DELSIG_ CONSTANT CALCULATED IN PROGRAM VISCOUS . 

00360 C SS = CONSTANT CALCULf :TED IN PROGRAM VISCOUS . 

00370 C H = STILL WATER DEPTH 

00380 C FMASS = CONSTANT CALCULATED IN PROGRAM VISCOUS . 

00390 C B = CONSTANT CALCULATED IN PROGRAM VISCOUS . 

00400 C E = CONSTANT CALCULATED IN PROGRAM VIS'^.OUS . 

00410 C Dl = CONSTANT CALCULATED IN PROGRAM VISCOUS . 

00420 C CONNV - LOGICAL VARIABLE INDICATING WHETHER THE VERTICAL EDDY VISCOSITY 

00430 C IS TO BE ASSUMED CCNSTaNT . 

00440 C LAND = LOGICAL VARIABLE INDICATED WHETHER AN ELEMENT IS LAND OR WATER . 

00450 C F = CORIOLIS t'ARAM,TER 

0046(' C C = UNDETERMINED PARAMETER IN THE X DIRECTION . 

1-28 

f 

~ 

~ 

~ 

.~ 

~ 

; ;~, 

~ 

n4 

; 

. ~ 

i

wrsaH - NE'CE Program CIRC 

00470 C D =(SNDETERMIidED PAR_+1MIETER IN THE Y DIRECTION . 

00480 C ETA = SUhFACE ELEVATION ABOVE STILL WATER LCVEL . 

00490 C L~D = KJ1SS FLUMS IN THE X DIREC :'I0N 'U-BAR' . 

00500 C VB = MASS FLUXES IN THE Y DIRECTIOV ;' I V-BAR' . 

00510 C LP : NO . OF GRID ELEA :IENTS IN T'3E X DIRECTION . 

00520 C Mr = NO . OF GRID ELE :"'SNTS IN TiiE Y DIRECTION . 

00530 C JP = NO . 

OF COSII :E TESMS USED IN BASIS FC N . 

00540 C I(P = NO . OF LINEAR SF'G?~i~".'TS USED FOR THE IU:.RTICAL EDDY VISCOSITY 

00550 C E::DY'~i = THE HORI2EiTAL EDDY VISCOSITY PAW^TER . 

00560 C VERSIN= C0'%'TAIc :S REVISION LABEL W!iICH IS PRIi.TED OUT 

00570 ;, I?IFw = PROTOTYPE TTPE 7N SECOt :DS 

00580 C AMP = THE SPECIFIF.D AMPLITUDE AT EACH ELF.A'Iviu'T . 

00590 C IAMP = SPECIFIES THE TYPE OF BOUNDARY CONDITIOt7 TO RE APPLIED AT THE EL . 

00600 C TITCIR= TITLE OF THE CIRC RUN . 

00610 C CiiC = ARRAY CONTAIh'ING OLD VALUES OF C . USED PRIMARILY F OR 50UFJDARY C'S . 

00620 C DBC = ARRAY CONTAINIPIG OLD VALUES OF D . USED PRIMARILY FOR BÛNDARY C'S . 

00630 C HOTIME= THE TINS FOR A HOT START . 

00640 C PRTFLO_ LOGICAL VARIABLE INDICATING WHETIiER MASS FLUXES ARE TO BE PRINTED . 

00650 C ISTPR = STARTING TIM FOR PRINTER AND PLOTTED OUTPUT . 

00660 C Di"I = TIME STEP . 

00670 C DL = ELE'fEA*f SIZE . 

00680 C TITWND= TITLE OF THE WI14D RUN . 

00690 C TITITIS= TITLE OF PROGRAM VISCOUS RUn . 

00700 C TITD7-N= TITLE OF PROGRAM DENSITY RUN . 

00710 C PHI = LATITUDE 

00720 C h?.tyGTH= THE VAVE LENGTH OF THE OSCILLATIOV ON THt KESTERt1 B0r .r:*rARY . 

00730 C 1.'PEROD= T'•iE WAVE PERIOl1 OF TF?E OSCILLATION M Txi :: '.ttiSTL' RN BOU NDi',R Y . 

00740 C UA2 = TE1E FRICPI0,7 VELOCITY SQUhR^D IN TH? X D? : .?C ; ICt~ . 

00750 C VA2 = THE FRICTICv Vti;,OCITY Spli."eRr,D IN THE Y D?R=CT_rON, 

00760 C FX = CCi;STANT PSSOCIATED I4ITH THE WIND SHEAR STTiFSS IN Ti'Y T-DIRF•'•^TIC'3 . 

00770 C FY = COyIST1NT ASSOrIni..7 WITH THE k? .'ID StiF.AR ^TRESS IN THE Y-DIRF.CTIO?~I . 

00780 C TAUX = CO':STAN'T FSSOCIF.TED bdITH THE 'wI' :'J SHEAR STRE .SS IN TtiP. X-DIRECTIC!i . 

00790 C TAU. = CO".STAh7 IISSOCIATrD WITH THE WI`:D SF:EAR STRESS IN THE Y-DIRECTIOW . 

008C0 C RO'dX = CONSTANT READ F"nOM PROGRAM DENSITY . PROPORTIONAL TO THE DENSITY 

00810 C GRADIEh'T IN THE X-DIRECTION . 

00820 C R01+'Y = C0 :3ST ..\T READ FROM PROGRAM DENSITY . PROPORTIONAL TO THE DENSITY 

00830 C GRADT.Et'T IN THE Y-DIRECTICid . 

008 4 0 C RHO6' = DENSITY OF SJA itATx'R IN TWE SURFACE LAYER . READ FROM PROG . DENSITY 

00850 C IF? = NO . OF DENSITY LAYERS . READ FROM PROG . DFNSI'TY . 

00860 C DENSE = LOGICAL VARIABLE INDICATING WFiETHER DENSITY GRADIENT IS ;0 BE 

00870 C CONSIDERED . 

00380 C DTIWE = TIME OF LAST DENSITY FIELD CHAt.GE . 

00890 C CK = THE LAYER DEPTH 0F THE VERTICAL EDDY VISCOSITY . 

00900 C ALPHA = THE SLOPE OF THE LINEAR VERTICAL EDDY VISCOSITY SEGEMENT . READ 

00910 C FROM PROG . VISCOUS . 

00920 C BETA = THE INTERCEPT OF THE LINEAR VERTICAL EDDY VISCOSITY SEGEMENT . 

00930 C READ FROM PROG . VISCOUS . 

00940 C NB = THE VALUE OF THE VERTICAL EDDY VISCOSITY AT THE BOTTOM 

1-29 

- - . . _ __ _~ . . . . . _~ , .= .x~ . . . .

: 

G 

Program CIRC 

00950 

00960 

00970 

00980 

00990 

01000 

01010 

01020 

01030 

01040 

01050 

01060 

01070 

01080 

010 9 0 

01100 

01110 

01120 

01130 

01140 

01150 

01160 

01170 

01180 

01190 

01200 

01210 

01220 

01230 

01240 

01250 

01260 

01270 

01280 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

C A = THE PERIOD OF TH^ BASIS FUNCTION 

C CB = THE BOTTOM FRICTION COEFFICIENT . 

C EDDY'J = THE VERTICAL EDDY VISCOSITY . 

C 

C 

C 

C 

WFSCM - NECE 

COMON/EDDE/DELSIG(2592),SS(864),H(288),FMASS(288), 

& B(864),E(864),D1(864),CONNV,LAND(288),F(288) 

C01•;~;0`7/U;3rNCW/C(864),D(864),ETA(288),UB(13,25),VB(13,25) 

COT*10N/CON/JP,P•P,LP,MP,RPM1,EH,EDDYH,C2,C4,C5,VERSIN(14),ITIME, 

& AMP(12,24),IAr ,m. (12,24),TITCIR(20),JPLP MP,LPMY ,JPLP,TPP1,MPP1, 

& MPM1,LP~11,CBC(3,13,25),DBC(3,13,25),HOTIlSE,PRTFLO,ISTFR,WAMP, 

& DTT,LL,TITWND(?_0),TITVIS(20),TITDEN(20),PHI,S•n .NGTH,k*PEROD 

COMOc?/t•IINDY/UA2 ( 288 ), VA2 ( 288 ), FX( 288 ) , FY( 288 ) , TAUX( P,64 ) , TAUY( 864 ) 

COW,ON/DEN/R()IaX( 864 ), ROWY ( 864 ), RHOW( 288 ), IPP , DENSE , DTI' 

COMMON/VISC/CK(1552),ALPHA(865),BETA(865),NB(288),A(864), 

& CB(288),r.DDYlf (1552) 

INTEGER IAMP*2,AMP#2 

LOGICAL NVCHG,WDC'iG RLID,DENSE,DENCHG,CONNV,HOTSTR, 

& LATRAL,PRTFLO,LAND*1 

REAL NB 

NAMELIST/MISC/EDDYH,DENSE 

NAM-ELIST/TIN:~/TLAST,DTT,ISTPR,IDTPR 

NAt".ELIST/BCS/PERIOD,AMP,IAMP,UB,VB,RLID,CBC,DBC,WLNGTH,WPEROD 

& WAMP 

NAMELIST/INOUT/PRTFLO,HOTIME,HOTSTR 

DATA rNCHG/ .TRuE ./,WDCHG/ .TRi1E ./,ETI ME /0 .0/,DENCHG/ .FALSE ./, 

& COJtTT/0 .0/,WTIrr/0 .0/,PERIOD/45400 .0/,RLID/ .FALSE ./, 

& LATRAL/ .FALSE ./,GRAV/9 .8/,IDTPR/900000000/ 

C 

C READ ?T1 tiECESSARY PARAMETSRS USING NAMELIST AND INITIALIZE 

READ(1,100) TITCIR 

100 FORMAT( 20A4 ) 

READ(10) TITVIS,LP,MF,JP,KP,CONNV,DUM,DUM,DUM,DUM,DL,PHI 

LP1;P-L?*MP 

SCPLPMP=KPfLPMP 

LPM1=LP-1 

MPM1=MP-1 

LPP1-LP+1 

MPPI=MP+1 

JPLPtT=JP *LPMP 

JPLP=JP *LP 

KPMI=YP-1 

READ(10) (H(LM),Lt'=1,LPMP),( :.AND(LM),LM=1,LPMP), 

&(DUM,LM-1,LPMP),(C;i(KLM),KLM=1,KPLi';4P),(F(LM),LM=1,LPMP) 

READ(1,MISC) 

IF(EDDY.H .GT .0 .01) LATRAL= .TRUE . 

1-30 

OTHER CONSTANTS

WFSCM - NECE Program CIRC 

01430 READ(1,TIhv-) 

01440 CALL SETECS 

01450 READ(1,BCS) 

01460 READ (1 , I'rIOUT) 

01470 READ( 4 ) TITL'7dD 

01480 IF(DEKSE) READ(11) TITDEN 

01490 

01500 C 

IF(HOTSTR) CALL HOT 

01510 C INITIALIZE VARIOUS CONSTANTS . 

01520 DO 200 LM=1',LPMP 

01530 F(LM)=DTTl~'F(LM) 


01550 C2=DTT/DL 

01560 C4_2.0ODTT 

01570 C5=2 .0#C2tGRAV 

01580 C7=GRAV/(2 .0#DL) 

01590 C THE ATMOSPHERIC PRESSURE GRADIENTS ARE MULTIPLIED BY C8 . 

01600 C C8 IS MULTIPLIED BY 0 .1 TO CONVERT FROM hB/KM TO KG/SQ 

01610 C !TT/SO SEC . 

01620 C8cDL/GRAV#0 .1 

01630 . RTIME=ITIME 

01640 F7AXIT=INT((TLAST-RTIME)/DTT) 

01650 EH=EDDYHgDTT/(DL#DL) 

01660 CALL HEDER(PERIOD,RLID,TLAST,IDTPR) 

01670 

01680 C 

CALL BC_LCW 

01690 C START MAIN TIiML- LOOP 

01700 DO 999 IT=1,!-iAXIT 

01710 T_FL0 .4T(IT)*DTT+RTIME 

01720 ITINiE=INT(T) 

01730 IF(WTIMZ- .LT .T) CALL RDtdIND(WTINx',WDCHG) 

01740 IF(ETIMT: .LT .T) CALL RDNV(NVCHG,ETINJ;) 

0175G IF(DEIdSE .AidD.DTIME .LT .T) CALL RDROW (DEI .CHG,C7) 

01760 IF(WDCHG .OR .NVCH3 .OR .DENCHG) CALL CHANGE(C8,4:DCHG,NVCHG,DENCHG) 

01770 CALL NEWCD(LATRAL) 

01780 IF( .NOT .RLID) CALL NEW .:TA 

01790 CALL BNDRY(T,PERIOD) 

01800 COUNT-COUNT+DTT 

01810 IF(ITIME .GE .ISTPR .AND .COUNT .GE :IDTPR) CALL PRINTS(COUNT) 


01830 STOP 

01840 END 

01850 C 

01860 C 

# # # # # # # f # # # # # # # # f # # # # # # # i f # # # f # # # f # # f # 

01870 BLOCK DATA 

01880 COMMON/EDDE/DELSIG(2592),SS(864),H(288),FMASS(288), 

01890 & B(864),E(864),D1(864),CONNV,LAND(288),F(288) 

01900 COIRM0N/UNKNOW/C(864),D(864),ETA(288),UB(13,25),VB(13,25) 

1-31 

__ __ ... .~._,o~.. ._. _ .~ . . . 

~ 

. .


01910 C0MoN/COti/JP,KP,LP,1hP,KPM1,EH,EDDYH,C2,C4,C5,VERSI'3(1y),ITIrFE, 

01920 & A~T(12,24),IAhSP(12,?_4),TITCIR(20),JPLFh?P,LPF!P,JPLP,LPP1,uPP1, 

01930 & MPM1,LPMI,CLC(3,13,25),DIIC(3,13,25),FiOTIt!E,PrT~'LU,ISTPR,W :,PRP, 

01940 & DTT,DL,TIThfND(20),TITVIS(20),TITDEN(20),PHI,4lLP .GTi?,w?LP.GD 

01950 coNiMON/WINDY/U1;2(288),VA2(288),FX(288),FY(288),Tr.ItX(864),TAttY(°64) 

01960 COf-2•SON/DEN/ROWX( 864 ), EC':1Y ( 864 ), R'r?Cn ( 288 ), IPF , DEt!Sr^. , DTIME 

01970 COMMOW/VISC/CK(1552),ALPHA(865),BETA(865),NB(286'),A(864), 

01980 & CB(288),EDDYV(1552) 

01990 C 

G2000 LOGICAL IdVCHG,WDCHG,DEtdSE,DENCH3,C0NNV,PRTFLO,LAND*1 

02010 INTEGER IAMP*2_,AMPR2 

02020 REAL NB 

02030 C 

02040 DATA DELSIG/2592*0 .0/ 

02050 DATA ALPHA,BETA/86500 .0,86500 .0/ 

020 ,~ 0 DATA CK,EDDYV/1552}0 .0,1552*0 .0/ 

02070 DATA UB,VB/325#0 .0,325*0 .0/ 

02080 DATA CBC,DBC/975*0 .0,975*0 .0/ 

02090 DATA FX,FY,UA2,VA2,FMASS,H,ETA,AMP,IAMP,RHOW,LAlvD,F,NB,CB/ 

02100 & 288*0 .0,288*0 .0,28840 .0,28800 .0,28800 .0, 

02110 & 288*0 .0,28800 .0,288#0,288*4,288#1022 .85, 

02120 & 288# .FALSE .,288tr0 .0,288*0 .0,28800 .0/ 

02130 DATA B,E,DI,SS,TAUX,TAUY,C,D,ROi .JX.,ROWY,A/ 

02140 & 864t0 .,864*0 .,86400 .,864*0 .,864*0 .,86400 .0,862t*0 .0, 

02150 & 864+0 .,864*0 .0,86440 .0,854*0 .0/ 

02160 DATA V;RSItI/'GAL ','- VE','R . 7',' .A -',' JU*, .','Y 19', 

02170 & '82 

02180 DATA- TITCI9,TITDEN,TIT{,rt.D,TITVIS/8C'#' 'I 

02190 DATA PRTFLO/ .FALSE ./,DEidSE/ .Fl;LSF. ./,DTIM~/0 .0/, 

02200 & C0N2•N/ .TRUE ./,ITIFL /0/,ISTPR/9000000/ 

02210 DATA EDDYH,WLlvGTR,kTEROD,IrAMP/1 .E'+05,3}0 ./ 

02220 END 

02230 C 

02240 C ~ +~ * r+~ ~+~ ~ r f+e s a s s~ a s• s s• r . s s . . : a s s . s 

02250 C 

02260 SUBROUTINE NE1,,'CD(LATRAL) 

02270 C 

02280 C 

02290 C ROUTINE WHICH UPDATES C(JLF') AND D(JLM) FOR EACH ELE*'wh'T . 

02300 C 


02320 & B(864),E(864),D1(864),COh'NV,LP.ND(288),F(288) 

02330 C0MoN/UNKWOi?/C(864),D(864),F.TA(288),UB(13,25),VB(13,25) 

02340 COMMO:Q/CON/JP,KP,LP,MP,KPM1,EH,EDDYH,C2,C4,C5,VERSIN(14),ITL :, 

02350 & AMP(12,24),IAtT(12,24),TITCIR(20),JPLPMP,LPMP,JPLP,LPP1,MPP1, 

02360 & MPM1,LP*!1,CBC(3,13,25),DBC(3,13,25),HOTIME,PRTFLO,ISTPR,4IAMP, 

02370 & DTT,DL,TITW6ID(20),TITVIS(20),TIT6EN(20),PHI,WLtiGTH,WPEROD 

02380 COMMONlWINDY/UA2(288),VA2(288),FX(288),FY(288),TAUX(864),TAUY(864) 

1-32

£»t . : WFSCM - NECE PraAram CIRC 

02390 

02400 C 

COtV0N/DEN/F.OkX(864),ROwY(864),RiiO?0288),IPP,DENSE,DTl:?•1E 

02410 INTEGER L:FlP*2,AMP*2 

02420 LOGICAL u0T'STR,PHTFLO,LAND * 1,CONNV,DEtdSE,LATP.AL 

02430 DATA EDDH/0 .0/ 

02t~40 C 

02450 DO 900 M_2,tYP 

02460 LILi'_(M.-1)*LP 

02•':70 DO 900 L=2,LP 

02480 LM=L+L~? 

02490 JLF °_ (LM••1) *JP 

02500 C CHECKS TO SEE Ie LAND . IF SO NO NEED TO UPDATE C(J)'S At•iD D(J)'S . 


02520 C CHECKS TO SEE IF C=S SPECIFIED AT GRID . IF SO DOES NOT UPDATE C . 

02530 IF(IAfAP(L,M) .GE' .5) GOTO 900 

02540 C Ch EEE CKS TO SEE IF NO-F :.OW BOUNDARY IN X DIRECTION. IF SO NO NEED TO 

02550 C UPDATE C(J)'S FOR THE GRID . 

02560 IF(LA'.rD(LM-1) .JR .IA%?(L-1,M) .EQ .6) GO TO 500 

02570 C Ct?ECfM TO SEE IF M .ZQ .MP . IF SO C IS NOT UPDATED BUT RATHER SET 

02580 C TO C AT MP-1 . 

02590 IF(M .EQ .MP) GOTO 500 

02600 C LOOP WHICH UPDATES C(J)'S FOR GRID L,M . 

02610 SUt•;=0 .0 

02620 ETAX=ETA(Lt•f)-ETA(LM-1) 

02630 JJL*S=1+JLNP 

02640 DO 100 J=1 , JP 

02650 JLM=J -JLMP 

02660 IF(LhTRAL) EDrFi=(CI?C(J,L-1,M)+CBC(J,L+1,M)-4 .0 * CDC(J,L,M)+ 

02670 & CBC(J,L,!•;-1)+CBC(J,L,M+1)) *EH 

02680 D3Ap_D(JLM) 

02690 IF(LAtiD(L!•1-LP)) DBAR=D(JLM+JPLP) 

02700 C Of 7STSc-B(JLM) OETAX+F(LM) *DBAR+RO:ti'X(JLM)+TAUX(JLM)+F'DDH 

02710 

IF( .NJT .COtid1V) C(JLt•1)=CJDJ(C(JJLM),JP,J,JLM,CONSTS) 

02720 IF(CO'v'NV) C(JLM)=C(JLNS) *DELSIG(JLhi)+CONSTS 

02730 SUY.-SU!4+C ( JLM ) * SS (JLM) 

02T40 100 CONTINUE 

02750 C UPDATES MASS FLUX IN X DIRECTION FOR GRID L,M . 

02760 UB(L,M)_FY.(LM)+:i(LM)}SUM 

02770 C 

02780 C CHECKS FOR NO-FL0lv1 BOUNDARY IN Y DIRECTION . IF SO NO NEED 

02790 C TO UPDATE D(JLM) SO PROGRAM SKIPS TO NEXT GRID . 

02800 500 IF(LA:vD(LM-LP) .OR .IAMP(L,M-1) .FQ .6) GOTC 900 

02810 C LOOP WHICH UPDATES D(J)'S FOR GRID L,M . 

02820 ETAY=ETA(LM)-ETA(LM-LP) 

02830 JJLM=1+JLNLp 

02840 S'J*1_0 .0 

02850 DO 200 J=1,JP 


1-33

i 

a;,N 

{ c 

Program CIRC WB'SCM - NECE 

02870 IF(LATRAL) EDDH=(DBC(J,L-1,M)a•DBC(J,L+1,M)-4 .O *DBC(J,L,M)+ 

02880 & DBC(J,L,M-1)+DBC(J,L,M+1))#E h 

02890 CBhR=CBC(J,L,M) 

02900 IF(LAND(Lr4-1)) CBAR=CBC(J,L+1,M) 

02910 CO:FSTS_-B(JLM) *ETAY-F(LM)tCBAR+ROtfi'(JLM)+TAUY(JLP?)+EDDH 

02920 IF( .NOT .COY.NV) D(JLM)=CJDJ(D(JJLM),JP,J,JLM,CONSTS) 

02930 IF(CONNV) D(JLM)=D(JLM) *DELSIG(JLM)+CONSTS 

02940 SUM=SUM+D(JLM) *SS(JLM) ~ 

02950 200 CONTINUE ~ 

02960 C UPDATES MASS FLUX IN Y DIRECTION FOR GRID L,M . 

02970 VB(L,M)sFY(LM)+H(LM) *SUM 


02990 RETURN 

03000 END 

03010 

03020 

C 

c . . 

03030 C 

03040 FUNCTION CJDJ(DUM,JP,J,JLM,CONSTS) 

03050 C 

03060 C ROUTI NE WHICH CALCULATES THE SUMMATION OF DELSIG(I,J,L,M) FOR 

03070 C I TO IP FOR THE CASE VTEIERE NVeNV ( Z) . 

03080 C 


03~00 & B(864),E(864),D1(864),CONNV,LAND(288),F(288) 

0311') DIMENSION DUM( JP ) 

03120 C 

03130 

03140 C 

LOGICAL CONNV,PRTFLO,LAND * 1 

03150 IJLMPc(JLMr1) *JP 

03160 PS=o .0 

03170 DO 100 I=1,JP 

03180 IJLM_?+IJLMP 

03190 PScPS+DUM(I) *DELSIG(IJLM) 


03210 CJDJ=DUM(J)+CONSTS+PS 

03220 RETURN 

03230 END 

032 40 C 

03250 C 

03260 C 

03270 SUBROUTINE NEWETA 

03280 C 

03290 C 

.03300 C 

03310 C 

ROUTINE WHICH UPDATES SURFACE ELEVATION, ETA .• 

03320 

COMMON/EDDE/DELSIG(2592),SS(864),H(288),FMASS(288), 


03340 COMMO,4/UNKNOW/C(864),D(864),ETA(288),UB(13,25),VB(13,25) 

I-34

. 

.i 

~ 

:~: 

. WFSCM - NECE ProEram CIRC 

03350 C0M40N/CON/JP,KP,LP,MP,KPMI,EH,EDDYH,C2,C4,C5,VERSIN(14),ITIhsp, 

03360 & AMY(12,24),IAEiP(12,24),TITCIR(20),JPLPFtP,LPMP,JPLP,LPP1,P3PPi, 

03370 

03380 

03390 C 

& MPMI,LPM1,CDC(3,13,25),DBC(3,13,25),HOTIM-L-,PRTI°LO,ISTPR,WAMP, 

& DTT,DL,TIT'dl7D(20),TITVIS(20),TITDEN(20),PHI,16TLNGT'rl,k'PEROD 

03400 INTEGER IAMP*2,AMP*2 

03410 LOGICAL COhNV,FRTFLO,LAND*1 

03420 C 

03430 DO 100 M-2,MPM1 

03440 LMY-(M-1) ;LP 

03450 DO 100 L=2,LPM1 



03480 ETI+(LM)-FCNET6(L,M,LM,C2) 

03490 100 CO%rfINUE 

03500 RETURN 

03510 END 

03520 C 

03530 C f s f . ~ . . . . ~ . . . . . . r . . . . . s ~ . . s . a. s . . 

03540 C 

03550 FUNCTION FCNETA(L,M,LM,C2) 

03560 C 

03570 C ROUTINE WHICH CALCULATES NEW ETA IN TERMS OF OLD ETAS 

03580 C AND OLD FL04lS . 

03590 C 

03600 Cor>MON/UNKNOW/C(864),D(864),ETA(288),UB(13,25),VB(?3,25) 

03610 C 

03620 FCh'ETA=ETA(LM)+C2*(UB(L,M)-U8(L+1,M)+VB(L,M)-VB(L,M+1)) 

03630 RETURN 

03640 END 

03650 C 

03660 C 

03670 C 

03680 SUBROUTINE RDROW(DENCHG,C7) 

03690 C 

03700 C ROUTINE WHICH READS IN DENSITY GRADIENT TERMS CREATED BY PROGRAM DENSQ . 

03710 C 

03720 COrF10N/EDDE/DELSIG(2592),SS(864),H(288),FMASS(288), 

03730 & B(864),E(864),D1(864),CO!1NV,LAND(288),F(288) 

03740 COMMON/CON/JP,KP,LP,HP,KPM1,EY.,FDD7H,C2,C4,C5,VERSIN(14),ITIME, 

03750 & AMP(12,24),IAMY(12,24),TITCIR(20) .,JPLPMP,LP~;P,JPLP,LPP1,M'P1, 

03760 & MPM1,LPMI,CBC(3,13,25),DBC(3,13,25),HOTIhG,PRTFLO,ISTPR,WAMP, 

03770 

& DTT,DL,TITk'ND(20),TITVIS(20),TITDEN(20),PHI,WLNGTH,iaPEROD 

03780 C0MM0N/DEN/ROWX(864),ROWY(864),RHOW(288),IPP,DENSE,DTIhIE 

03790 C 

03800 LOGICAL DENCHG,DENSE,CONNV,PRTFLO,LAND*1 

03810 INTEGER IAMP*2,AH'*2 

03820 C 

1-35 

I 

f

~ 


03830 DE[1CIiGc .TRUE . 

03840 C01:ST1_-C4OC7 

03850 50 HEAD(11) DTIM,IPP,(ROTyX(JLM),JLM=I,JPLPMP), 

03860 & (POWY(JLM),JL•Pf_1,JPLPML'),(P,I10'r1(LM),LM=I,LPMP) 

03870 IF(DTII-L. .LT .ITIf~) GOTO 50 

03880 DO 150 LM-1,LPMP 

03890 JLMP_(LM-1)*JP 


03910 CONST2=CO7JST1/H(LM) 

03920 DO 100 J_1,JP 

03930 JLM-J+JLMP 

03940 ROk/X(JLM)-CONST2*R0WX(JLM) 

03950 RO'rlY(JLM)=CONST2*ROWY(JLM) 



03980 RETURN 

03990 END 

04000 C +~ • ~ e s * * s * * * ~ s • • r • * . * r ~ * a * • * • ~ r ~ * s 

04010 C 

04020 SUBROUTINE RDNV(NVCHG,ETIME) 

04030 C - 

04040 C 

0405u C ROUTINE WHICH READS IN CONSTANTS ASSOCIATED WITH VERTICAL 

04060 C EDDY VISCOSITY AND CORIOLIS PARAMTER . CONSTANTS WERE GENERATED 

04070 C BY PROGRAM VISCOUS . 

ou0 8o c 

04090 COMIfiON/F,DDE/DELSIG(2592),SS(864),H(288),FMASS(288), 

04100 & B(854),E(8ri4),D1(864),C01 ,:!~'V,LAND(288),F(288) 

04110 COMNON/CO :v/JP,KP,LP,*iP,KPM1,EH,EDDYH,C2,C4,C5,VERSIN(14),ITI!S, 

04120 & AMP(12,24),IAt T (12,24),TITCIR(20),JPLPMP,LPftP,JPLP,LPPI,MPP1, 

04130 & MPM1,LPM1,CBC(3,13,25),DBC(3,13,25),HOTIMc,PRTFLO,ISTPR,WAMP, 

04140 & DTT,DL,TITtinidD(20),TITVIS(20),TITDEN(20~,,PHI,WLNGTH,WPEROD 

04150 COMON/VISC/CK(1552),ALPHA(865),SETA(865), 

04160 & NB(288),A(864),CB(288),EDDYV(1552) 

04170 C 


04190 LOGICAL COIJNV,NVCHG,PRTFLO,LAND * 1 

04200 

04210 C 

REAL NB 

04220 JJLPMP=JP *JPLPMP 

04230 

KPLPMP=KP}LPt•*.P 

04240 

iQ..N4+11=LPMP*(RP-1) 

04250 NVCHG= .TRUE . 

04260 IF(CONNV) JJLPMP-JPLPMP 

0 1 1270 10 READ(10) ETIME,(A(JLM),JLM-I,JPLPMP),(DUM,JLM_1,JPLPMP), 

04280 & (B(JLM),JLM=1,JPLPMP),(DELSIG(JJLM),JJLM=1,JJLPMP), 

04290 & (D1(JLNt),JLM=1,JPLPMP),(E(JLM),JLM=1,JPLPMP), 

04300 & (SS(JLM),JLM=1,JPLPMP),(FMAS S (LM),LM=1,LPMP), 

1-36

W'FSCM - NECE Program CIRC 

04310 & "(EDDW(KLbi),ELM=1,KPLPtm),(NB(LM),LM-*I,LPMt'), 

04320 & (ALPFIA(F:LM),KLM=1,KLHM1),(BETA(Y.LM),KLM=1,KLMM1) 

04330 IF(ETIME .LT . ITIhLE) GOTO 10 

04340 DO 100 M_ 1, t4P 

04350 LMP=(t1-1)tLP 

04360 DO 100 L=1,LP 


04380 JLMP=(LM-1)fJP 


04400 C1=C4/H(LM) 

04410 DO 50 Jc1,JP 

04420 JLM =J+JLMP 

04430 D1(JLM) = C4 *D1(JLM) 

04440 B(JLM)cC5 *B(JLM) 

04450 E(JLM)-F(LM) * 2 . * E(JLF4), 

04460 IF( .NOT.CO"INV) GOTO 25 

04470 DELSIG(JLM)-DELSIG(JLM) *C1+1 .0 

04480 GOTO 50 

04490 25 IJLMP=(JLM-1)#JP 

04500 DO 30 I_1,JP 

04510 IJLM=I+IJLt4P 

04520 DELSIG(IJLM)=DELSIG(IJLM)iC1 

04530 30 CoNTn3IYR 

04540 50 COYTINiJE 


04560 RGTURN 

04570 END 

04580 C 

04590Cr 

04600 C 

04610 SUBROUTINE RDWIND(h'TIME,WDCHG) 

04620 C 

04630 C ROUTINE WHICH READS IN THE WIND FIELD EACH TIME IT CHANGES . 

04640 C WIND FIELD CAN BE GENERATED BY A NUMBER OF PROGRAMS INCLUDING 

04650 C PROGRAM WIND . 

04660 C 

04670 COMMON/CON/JP,KP,LP,MP .KPMI,EH,EDDYH,C2,C4,C5,VERSIN(14),ITIME, 

04680 & AMP(12,24),IAMP(12,24),TITCIR(20),JPLPMP,LPMP,JPLP,LPPI,MPP1, . 

04690 & MPM1,LPMI,CBC(3,13,25),DBC(3,13,25),HOTIME,PRTFLO,ISTPR,WAMP, 

04700 & DTT,DL,TITWND(20),TITVIS(20),TIT'JEN(20),PHI,kTLNGTH,WPEROD 

04710 COMMON/WINDY/UA2(288),VA2(288),FX(288),FY(288),TAUX(864),TAUY(864) 

04720 C 

04730 LOGICAL WDCHG,PRTFLO 


04750 C 

04760 WDCHG= .TRUE . 

04770 100 READ(4) WTIME,(UA2(LM),LM=1,LPMP),(VA2(LM),LM=1,LPMP) 

04780 WTIME=WTIME*3600 . 

I-?7

.~T~ ;~ W 

;~c' ' : 

{ 

Program CIRC 

WFSCM - NECE 

04790 IF(WTIME .LT .ITIM) GOTO 100 

04800 RETURN 

04810 END 

04820 C 

04830 

04840 

C 

C • * ~a e * * • * * s * r * s * * n ~t * ~t * * ∎ * * * ~t * * * a • r * * 

04850 C 

04860 

04870 C 

04880 C 

SUBROUTINE CHANGE(C8,WDCY.G,NVCHG,DENCHG) 

04890 C ROUTINE WH_TCH CHANGES VARIOUS CONSTANTS . IT IS NECESSARY TO U?DATS 

04900 C 

04910 C 

THESE COhSTANTS WHENEVER THE WIND,EDDY VISCOSITY OR DEN3ITY CHANGES . 


04930 & B(86u),E(864),D1(8611),CCNNV,LAND(288),F(288) 

04940 COMMON/CON/JP,KP,LP,MP,KPM1,EH,EDDYH,C2,C4,C5,VERSIN(1R),ITIME', 

04950 & AMP(12,24),IAM?(12,24),TITCIR(20),JPLPMP,LPITP,JPLP,LPP1,MPP1, 

04960 & MPM1,LPM1,CBC(3,13,25),DBC(3,13,25),HOTIi . .',PRTFLO,ISTPR,WAMP, 

04970 & DTT,DL,TIT4fitD(20),TITVIS(20),TITDEI!(20),PHI,WLNGTH,W?EROD 

04080 CONLMON/WINDY/UA2(288),VA2(288),FX(288),FY(288),TAUX.(864),TAUY(864) 

04990 COWiON/DEN/ROn1X(864),ROWY(864),RHOF1(288),IPP,DENSE,DTIME 

05000 INTEGER IAMP*2,AWP*2 

05010 LOGICAL CO ..NV,WDCHG,NVCHG,DENCHG,PRTFLO,LAh'D*1 

05020 C 

05030 DENCH7= .FALSE . 

05040 NVCI?G= .FALSE . 

05050 4IDCHG= .FALSE . 

05060 DO 100 M=1,MP 

05070 LMP=(hi-1)*LP 

05080 DO 100 L-1,LP 

05090 LM=L+LrT 


05110 JLMP=(LM-1)*JP 

05120 FX(LM)-UA2(LM)*FMASS(LM) 

05130 FY(LM)-VA2(LM)*FMASS(LM) 

05140 DO 50 J=1,JP 


05160 TAUX(JLM)=D1(JLM)tUA2(LM)+E(JLM)*VA2(LM) 

05170 TAUY(JLM)=D1(JLM)*VA2(LM)-E(JLM)*UA2(LM) 



05200 RETURN 

05210 

05220 C * 

05230 C 

END 

* * s * * * * * * * * * a * * * a * * * * * * * * s * * * * * * * s 

05240 SUBROUTINE BCFLOW 

05250 C 

05260 C ROUTINE WHICH SETS APPROPRIATE MASS Fi .UXES WHEN RIVER INFLOW OR 

I-38

t- 

WFSCM - NECE 

Program CIRC 

05270 C OUTFLOW OPTIONS HAS 

05280 C 

BEEN SPECIFIED, I .E . IAMP=6 . 

05290 COtrAtO"J/UNKNOW/C(864),D(864),FTA(288),UB(13,25),vR(13,25) 

05300 CONLMON/CON/JP,F;P,LP,MP,RPMI,EH,EDDYH,C2,C4,C5,VERSIN(14),ITIME, 

05310 & AMP(12,24),IAMP(12,24),TITCIR(20),JPLPMP,LPMP,JPLP,LPPI,MPP1, 

05320 & MPM1,LPM1,CBC(3,13,25),DBC(3,13,25),HOTIM-F,PRTFLO,ISTPR,WA"iP, 

05330 & DTT,DL,TITkRSD(20),TITVIS(20),TITDEN(20),PHT,WLNGTH,WPEROD 

05340 INTEGER IAAT*2,AMP*2 

05350 LOGICAL PRTFLO 

05360 C 

05370 DO 100 L=1,LPM1 

05380 M=1 

05390 IF(L4M.P(L,M) .NE .6)GOTO 100 

05400 U5 (L, M+1)=UB(L,M) 

05410 V3(L,M+1)=VB(L,M) 


05430 DO 200 M=1,MPM1 

05440 L=1 

05450 IF(IAMP(L,M) .NE .6)GOTO 200 

05460 UB(L+1,M)=UB(L,M) 

05470 VB(L+1,M)=VB(L,M) 

05480 200 CGNTINUE 

05490 RETURN 

05500 

05510 C 

05520 C 

05530 C 

05540 C 

END 

05550 

05560 C 

05570 C 

SUBROUTINE SETBCS 

05580 C ROUTINE WHICH INITIALLY-SETS THE ELEMENT TYPE (IAMP) . 

05590 C 

05600 C 

05610 C 

SEE USER'S MANUAL FOR MORE COMPLETE DEFINITIONS . 

05620 COWON/EDDE/DE7L.SIG(2592),SS(864),H(288),FMASS(288), 


05640 COMMON/CON/JP,P•P,LP,MP,KPM1,EH,EDDYH,C2,C4,C5,VERSIN(14),ITIME, 

05650 & AMP(12,24),IAMP(12,24),TITCIR(20),JPLPMP,LPMP,JPLP,LPP1,MPP1, 

05660 & MPM1,LPM1,CBC(3,13,25),DBC(3,13,25),HOTIME,PRTFLO,ISTPR,WAMP, 

05670 & DTT,DL,TITWND(20),TITVIS(20),TITDEN(20),PHI,WLNGTH,WPEROD 

05680 C 

05690 INTEGER IAMPf2,AMP*2 

05700 

05710 C 

LOGICAL CONNV,PRTFLO,LAND*1 

05720 

DO 100 M=1 , F1P 

05730 LMP=(M-1)*LP 

05740 DO 100 L=1,LP 

1-39

k ; Progrzm CIRC 

t 

~t . . . 

t 

05750 LM_L+Ll-T 

05760 IF(L .G0 .1 .OR .L .EO .LP .OR .M .EQ .1 .OR .M .E0 .i2;P) 

05770 It'(H(L!1) .,GT .0 .01) GO TO 100 

05780 Ir^.t;t' ( L ,1") -0 

05790 100 C0?iTIaUE 

05870 RcTURtJ 

05810 Ei7D 

IAt"P(L,M) _1 

HI'-lC4 - NECE 

05820 C 

05830 C * * * * * * * * * a * * * * * s * * s * a * * * * • s * * f * * s ∎ f 

05840 C 

05850 SUBROUTINE BNDRY(T,PERIOD) 

05860 C 

05870 C 

05880 C ROUTINE WHICH SETS THE BOUNDARY CONDITIONS AT OPEN WATER EtiDRYS . 

05890 C MODIFiED 1/8/82 TO SPECIFICALLY FIT THE WEST FLORIDA SHELF . 

05900 C 

05910 COMNOtJ/EDDE/DELSIG(2592),SS(861i),y(288),FrriASS(288), 

05920 & B(86)4),E(864),n1(854),COTMV,LKI ;D(2fi8),F(288) 

05930 COW0rt/Urt ::hroW/C(8F,4),D(864),ETA(238),UB(13,25),VB(13,25) 

05940 COM-M0.d/CO;J/JP,KP,LP,M°,KPbf1,E?i,EDDYH,C?.,CtI,C5,VERSIN(14),ITTSF, 

05950 

05960 

& 

& 

Ar9)(12,24),IAM.P(12,24),TITCIR(20),JPLPMP,LPFiP,JPLP,LPF1,~1°P1, 

F.t^M1,LPM1,CBC(3,13,25),DEC(3,13,27),KOTIPiE,PRTFLO,ISTPR,i?,it••,?, 

05970 & DTT,DL,TITk'TJD(20),TITI'IS(20),TITDEN(20),FS-tI,WLhOTH,i+TPP.P.QD 

05 9 80 c 

05990 INTtiCEF InMP*2,At,Tr2 

06000 LOCTCi.L HOTSTR,PRTPL0,LANDr1,CONhV 

06010 C 

06020 FACTOR=(1-COS(T*i: .28/PERIOD))* .1 

060?0 DO 100 L=2,LP 

06040 M_1 

06050 JLM=(L-1)*JP+1 

06060 C SET SOUTTiEF' : BOUNDARY : D(ETA)/DY_0, IF NOT LA!JD THEN SET SYM*rTRY 

06070 C ON C, SYNL*LE1.'RY ON D . IF LAND THEN SET . D=O, ANTISY'-^ ETRY ON C . 

06080 ETA(L)=ETA(L+LP) 

06090 UB(L,1)cUB(1.,2) 

06100 VB(L,1)-VB(L,3) 

06110 CALL SETCD(JP,1 .,CBC(1,L,1),C(JLM+JPLP)) 

06120 

CALL SETCD(JP,1 .,DBC(1,•L,1),D(JLM+2*JPLP)) 

06130 IF( .NOT .LAND(L)) GOTO 50 

06140 ETA(L)=0 .0 

06150 CALL SETCD(JP,-1 .,CBC(1,L,1),C(JLM+JPLP)) 

06160 CALL SETCD(JP, O .,DBC(1,L,M),D(JLM)) 

06170 VB(L,M)=0 .0 

06180 C SET NORTHERN BOUNDARY - SAME AS SOUTHERN . 

06190 50 

M=MP 

06200 LMP=(M-1)*LP 

06210 LM:L+LMP 

06220 JLM=(LM-1)*JP+1

fiFSCM - tJECE Program CIRC 

. 

06230 C 8TA(LM)_0 .0 

06240 ETA(LM)=ETA(LM-LP) 

06250 UB(L,1FP)-UB(L,Y.P-1) 

05260 VB(L,MPP1)=VB(i,,t-1I'-1) 

06270 CALL SETCD(JP,1 .,DBC(1,L,MPP1),D(JL?f-JPLP)) 

06,180 

06290 

CALL SFTCD(JP,1 .,CEC(1,L,MP),C(JLM-JPLP)) 

CALL SETCD(J?,1 .,D3C(1,L,MP),D(JLM)) 

06300 CALL SETCDrJP,1 .,C(JLM),C(JLM-JPLP)) 

06310 IF( .NOT .LAND(LM)) COTO 100 

06320 ETA(LM)_0 .0 

06330 VB(L,MP)=0 .0 

063140 CALL SvTCD(JP,-1 .,CEC(1,L,M?),t-,(JLM-JPLP)) 

06350 CALL SETCD(JP,O .,DBC(1,L,MP),D(JLM)) 

06360 100 coNTTINUE 

06370 DO 200 M=1,MP 

06380 Lb~c(M-1)*LP 

06390 C SET WESTERN OPEN OCEAN BOUNDARY : SET ETA=O, REFLECTIONAL SYMMETRY ON C, 

06400 C AND IF D IS NOT SPECIFIED(I .E . IAMP .NE .5) REFLECTIONAL SYMMETRY ON D . 

06410 L=1 


06430 JLM_(LM-1)#JP+1 

06440 ETA(LM)_0 .0 

06450 IF(IAMP(L,M) .NE .5) CALL SE'TCD(JP,1 .,DBC(1,1,M),D(JLM+JP)) 

06460 CALL SETCD(JP,1 .,CBC(1,1,M),C(JLIr1+JP)) 

06470 C 

06480 

NEXT STATEME :+TS SET ShdUSOIDAL COYDITION AT WESTERN BNDRY . 

IF(IA2R(L,M) .idE.5) GOTO 200 

061490 IF(W: .NGTH .LE .0 .01 .OR .k'PEROD .LE .0 .01) GOTO 200 

06500 DBC(1,1 , M) _WicHiP*SI :: ( 6 .28/WLNGTH*t4l'DS.-6 .28/WPEROD*ITIME) 


06520 C SET C•BC & DRC ELSE4rdEP,E IN THE GRID . FOh LAND 

06530 C ELEb',EtdTS, USE NEGATIVF REFLECTIONAL SYMMETRY AND ZERO ORTHOGONAL Ft .OW . 

06540 DO ?00 M-2,!4PM1 

06550 LtylP=(M-1)*LP 

06560 DO 300 L=2,LP 

06570 LM=Lt".P+L 

0658J JLM=(LM-1)*JP+1 

06590 CALL SETCD(JP,1 .,CBC(1,L,M),C(JLM)) 

06600 CALL SETCD(JP,1 .,DBC(1,L,M),D(JLM)) 

06610 IF( .NOT .LAND(LM)) GOTO 300 

06620 CALL SETCD(JP, O .,CBC(1,L,M),C(JLM)) 

06630 IF( '-AND(LM-LP)) CALL SETCD(JP,-1 .,DBC(1,L,M),D(JLM-JP)) 

06640 IF(LAND(LM-LP)) VB(L,M)--VB(L-1,M) 

06650 UB(L,M)-0 .0 


06670 C SET DBC AND CBC AT SOUTHWESTERN BOUNDARY . 

06680 IF(IAMP(1,1) .EQ .5) GOTO 999 

06690 CALL SETCD(JP,1 .0,CBC(1,1,1),C(JPLP+1)) 

06700 CALL SETCD(JP,1 .0,DBC(1,1,1),D(JPLP+1)) 

I-41 

.% ,

WFSCM - NECE 

06710 999 RETURN 

06720 END 

06730 C 

06740 C * 

06750 C 

s * * a * o * * * a * * • * * a e * . * * * * * * a +r * * * * * * * 

06760 

06770 C 

SUBROUTINE SETCD(JP,SIGNN,X,Y) 

06780 C ROUTINE WHICH SETS THE VARIABLES CBC AND DBC EQUAL TO THE 

06790 C 

06800 C 

APPRORIATE C(J)'S AND D(J)'S . 

06810 

06820 C 

DIMENSION X(20),Y(20) 

06830 DO 100 J-1,JP 

06840 X(J)-Y(J)*SIGIdN 


06860 RETURN 

06870 END 

06880 C 

06900 c+r 

06910 C 

06920 C 

* * . *,~ s +~ * * * * ~ s s s . ~ * x * * . s * * * * * * 

06930 

06940 C 

06950 C 

SUBROUTINE PRINTS(COUNT) 

06960 C ROUTILIE WHICH PRINTS PARAI"lETERS CHOSEN BY USER . 

06970 C 

06980 COMON/UNKNOw/C(864),D(86u),FTA(288),t3B(13,25),VB(13,25) 

06990 COf-R-!0Iv /EDDE IDELS IG ( 2592 ) , SS (864), H ( 288 ) , F!!ASS ( 288 ) , 

07000 & B(864),E(864),D1(864),CGt'NV,LAND(288),F(288) 

07010 COM-N10N/CON/JP,i:P,LP,tfi',KPM1,EH,EDDYH,C2,C4,C5,VEP,SIN(14),ITIME, 

07020 

07030 

& A2T(12,24),IAMP(12,24),TITCIR(20),JPLPMP,LPMP,JPLP,LPP1, .MPP1, 

& MPM1,LPM1,CBC(3,13,25),DBC(3,13,25),HOTI!~',PRTFLO,ISTPR .Wb*zP, 

07040 & DTT,DL,TITVTID(20),TITVIS(20),TITDE2d(20),PHI,WL .NGTH,WPEROD 

07050 COA4MON/WINDY/UA2(283),VA2(288),FX(288),FY(288),TAUX(86u),TAUY(864) 

07060 C 

07070 LOGICAL PRTFLO,LANP*1 

07080 INTEGER AMP*2,IAMP*2 

07090 C - 

07100 COtP4T=0 .0 

07110 TIME_FLOAT(ITIME)/3600• 

07120 WRITE(3,50) (ASTER,I=1,30) 

07130 50 

FORMAT ('1', ;/30A4) 

07140 WRITE(3,100) TIME 

07150 100 FORMAT(//5°,21(1H-)/4X,'/ TIME=', 

07160 &F6 .2,' HOURS',2X,'/',/,4X,21(1H-)) 

07190 CALL PRINT1(6,12) 

07200 DO 600 t4-1 , MP 

07210 LMP=(M-1)*LP 

2-42

~ . ' 

Program CIRC 

07220 DO 600 L_1,LP 

07230 L1:-LMP+L 

07240 IF( .NOT .LAi4-D(LM)) GOTO 600 

07250 US(L,M)=0 .0 

07260 VB(L,hi)=0 .0 

07270 JLi-T=(LM-1)*JP 

072aD DO 500 J=1,J :' 

07290 JLFicJLt'v+ J 

07300 C(JLM)n0 .e 

07310 D(JLM)=0 .0 

07320 500 CON:'IfdUE 

07330 600 COUTINUE 

07340 

07350 

07360 

07370 

073d0 

IF(PRTFLO) WRITE(12) ITI!S,((UB(L,M),L-1,LP) , M_1 , r4P) , 

& ((VB(L,M),L=1,LP),M-1,MP) 

WRITE(12) ITI"w-,,(((CBC(J,L,M),Ja1,JP),L=1,LPP1),Mc1 , MPP1) , 

& {((DBC( .1,L,M),Jz1,JP),L=1,LPP1),M=1,FiPP1),(ETA(L!i),LM-1,L .°MP) 

WRITE(3,50)(ASTER,I=1,30) 

07390 RETURN 

07400 END 

07410 C 

07420 C f 07430 C 

f f i f f f i k f f IF # f# f f f f f• f f f* f R 

07440 

07450 C 

SUBROUTINE PRINT1(L,M) 

07460 C 

07470 C 

ROUTINE WHICH LISTS VARIOUS COFFICIENTS FOR ELEMF.!JT L,M . 

07480 COMRioN/tttJ='NOW/C(864),D(&64),ETA(288),UB (13,25),v'3(13,25) 

07490 COMMO:'?/CU ;IUJP,F?,LP,P?,KPM1,E1i,EDDY-i,C2,C4,C5,t'ERSIN (14),ITr?r;E, 

07500 & AF,?(12,24),IFit•a'(12,24),TITCIR(2U),JFLP*tP,LPI!P,JPLP,LPP1, .~!PP1, 

07510 

07520 

& MPMI,LPM1,r'P.C(3,13,25),DBC(3,13,27),LiOTIh!r',PRTPLO,IST?F,Wt : ."-`:?, 

& DTT,DL,TITt'IdD(20),TITV .ZS(20),TTTD:"!i(20),PLtI,WLtiCTT1,'vIPEP,OD 

07530 

07540 C 

Co%tMOV/tvlriDr%UA2(288),VA2(288),FX(288),FY(288),TAUX(864),TAcTY(864) 

07550 INTEGER IA.`;Pf2,AMPf2 

07560 LM_(F1-1)#LP+L 

07570 JLM_(LM-1)fJP 

07580 WRITE(3,150) L,M 

07590 150 FORMAT(//,45X,' SUMMARY OUTPUT FOR GRID(',I2,',',I2,')') 

07600 KRITE(3,200) UA2(LM),VA2(LM) 

07610 200 FOF.MAT(/,40X,' U*2=•,G10 .3,5X,'Vf2=',G10 .3,' SO M/SQ S') 

07620 WRITE(3,250) 

07630 250 FORMAT(20X,' UNDETERMINED PARAMETERS' ) 

07640 WRITE(3,300) (I,1=1,JP) 

07650 300 FORYiAT(//,' ',31X , 8(I2,10X)) 

07660 WRITE(3,310)(C(I+JLM),I_1,JP) 

07670 

07680 

310 FORMAT (22X,' C(J)',2X,8(F10 .3,2X)) 

WRITE(3,350) ;')(I+JLM),I=1,JP) 

07690 350 FORMAT (22Y.,' D(J)',2X,8(E10 .3,2X)) 

I-43

WFSCM - NECE 

07700 WRITE(3,400) 

07710 400 FORKkT(/,20X,' MASS FLUXES-SQ MTS/SEC :') 

07720 WRITE(3,450) UB(L,M),YB(L,M) 

07730 450 FORNu4T(22X,' QX_',E10 .3,6X,'QY=',E10 .3) 

07740 WRImE(3,460) ETA(LM) 

07750 460 FO^tiU:T(/,20R,' SURFACE E .EVATION(M)=',G10 .3) 

07760 RETURN 

07770 END 

07780 C 

07790 C a 

07800 C 

+~ s* a f~a a r r c a .• a•∎ a* s• r . . . : s~ • s a a a 

07810 SUSROUTItdF' HOT 

07820 C 

07830 C 

07840 C ROUTINE WHICH INITIALIZES THE Ut3KNOWNS C(JLM), D(JLM) AND ETA(LM) 

07850 C TO VALUES ACCESSED FROM DISK FILE12 . 

07860 C 

07870 CONMON/UNKt:OW/C(864),D(864),ETA(288),UB(13,25),VB(13,25) 

07880 COt°?10N/CON/JP,iT,LP,MP,KPM1,EiI,EDDYK,C2,C4,C5,VExSIN(14),ITIME, 

07890 & At-7(12,2)1),IAF1P(12,24),TITCIR(20),JPLP"P,LP!?P,JPLP,LPPI,MPP1, 

07900 & t?M1,LPM1,CBC(3,13,25),DBC(3,13,25),HOTIt~,E,PRTFLO,ISTPR,wAMP, 

07910 & DTT,DL,TIT(dND(20),TITVIS(20),TITDEN(20),PHI,i,'LNGTH,WPEROD 

07920 INTEGER IA"*2, AMPa2 

07930 LOGICAL PRTFLO,RLID 

07940 READ(12) (DUM,I=1,30), 

07950 & ((AMP(L,M),i.=1,LP),M=1,MP),((IAMP(L,M),L=1,LP),M=1,MP) 

07960 200 IF(PRTFLO) READ(12) ITIbc,(DUM,LM=1,LPPP),(DUM,LH-I,LPMP) 

07970 READ(12) ITI°M,(((CBC(J,L,M),J=1,JP),L=1,LPP1),M=1,MPP1), 

07980 & (((DBC(J,L,M),J=1,JP),L=1,LPP1),M=1,MPP1), 

07990 & (ETA(L11),Lt•f=1,LPt-1F) 

08000 IF(ITIP'rs .LT .HOTIP`=;) GOTO 200 

08010 DO 300 M=1,MP 

08020 LPSP=(M-1)5LP 

08030 DO 300 L-1,LP 

08040 LM-LMP+L 

08050 JLMP=(LM-1)fJP 

08060 DO 300 Jo1,JP 


08080 C(JLM)=CBC(J,L,M) 

08090 -D(JLM)=DBC(J,L,M) 


08110 WRITE(3,40G) ITIME,HOTIMS 

08120 400 FORMAT(///,' *#*** PROGRAM IS READING VALUES OF C(JLM), D(JLM) & 

08130 & ,'ETA(LM) FROM DISK FILE 12 .',/,'STARTING TIME=',I9, 

08140 & ' SECONDS',/,'SPECIFIED STAhTING TIME=',G10 .3,' SECONDS') 

08150 RETURN 

08160 END 

08170 C 

1-44 

- -. .. _ ._ . . . .,, . . . ..>w . . __ . . . ._~,

~* . . 

1 

WFSCM - NECE 

Program CIRC 

08180Cff ea•~t~a*******a*****•se*******o*** 

08190 C 

08200 SUBROUTINE ERROR( .IERR) 

08210 C 

08220 - WÎTE(3,100) IEP,R 

08230 100 FOnW.T( ///,' *~ ERROR N0 .' , I2,' HAS OCCURED IN PRCCRAM CIRC .' ) 

08240 RETURN 

08250 END 

08260 C * * * * * * * * * * * * * * 

08390 INTEGER IAMP*2,AP,P*2 

08400 LOGICAL RLID,DEhTSE,PRTFLO 

08410 DATA ASTER/'* * '/ 

08420 C 

08430 P.EWIND 12 

08440 WRITE(3,100) (ASTER,I=1,30),VERSIN 

08450 100 FORM .4T(///,'1',30A4,//,' ',40X,14A4,/,' ',40X,40(1H-)) 

08460 WRITE(12) TITCIR,DTT,PHI,DL,PERIOD,EDDYH,RLID,TLAST, 

08470 & DENSE,PRTFLO,ZDTPR, 

08480 & ((AMP(L,M),L-1,LP),M=1,MP),((IAMP(L,M),L :1,LP),Mc1,MP) 

08490 NRITE(3,200) TIT1 

08500 200 FORMAT(/,' ',30A4) 

08510 RETURN 

08520 END 

08530 C$ENTRY 

EOF : 

I-45 

.

}, Program PRTVEL 

.~ 

WFSCM - NECE 

00010 C . 

00020 C 

00030 C 

000 40 C PRO GRAM PRTVEL (GAL) 

00050 C 

C006 :: C VEFSIQN 7 - JULY 1952 - REVISIOII A 

00070 C 

0 0 0 80 c 3-D CIRCULATION IM'JDEL 

00090 C 

00100 C BY CORTIS COOP E R 

00110 C 

00120 C PART V OF PROGRAM GAL, THIS PROGR :M PRItdTS VARIOUS INFORMATION 

00130 C S b1't:'•LARI •".ING THE RUN . PR.^.G?' AM.S VI SCOiIS, '9IND ( OR IiiiRR), CIRC, 

00140 C AE.D P0.^:SIBLY DEtJSITY SHO'1LD HAVF BE?N RUN BEFORE EXECUTING 

00150 C PROGRAM PRTVEL . SEE GAL USERS MANUAL FOR DIRECTIOX S AND FOR 

00160 C LIST OF REVI SIOtiS . 

00170 C 

00180 C0M4JN/KNC'n'!H(288),CK(1552),ALPHA(864),9F,TA(864), 

00190 & Na(288),It(S64),CB(288),EDDY:'(1552 :l,CONNV,LAND(288) 

002 00 CO~ r•`,ON/iTIN.E/ITI ME ,ETI"iv,DTI!`'w,yJTI W- ,RTIt ;E .ICOUNT 

00210 CO:^~ iO:;/UNKi; C)W /C(3,13,25),D(3,13,25),ETA(28F3),UB(288),VB(288), 

00220 & SPEE'U(28A),DIREC(288) 

00230 COi .NOX /COi3/ JP,KP,LP,t~',F.PM1,CPHI,DTT,DL,PERIOD,EDDYS, 

00240 & EDDTT,REY!JO,tiIA2,At4P(288),IAMP(288),TIT1(20),TIT2(20), 

00250 & TIT3(2'1),TIT 4 (20),V'::'RSI*J(1u),rDD°f?,JPLPh;?,LPKP ,KPLPMP 

00260 CO?'~;^~iiil ;a?°/ITA2(?&8),Vti2(?_8°} 

C0270 CO'^-Ci7 :D?"•~/Rû iX(8ou),1'~' :TY(854),R'r;0'w(?a8),I^P,1'F't :SF 

0028t7 TE(10),!S~3a^S,L4j'ERS,P .°,"'E ."A,PFT~'L0, 

00 14,90 & L EVE:.S,?(10, 6),Z°ìD(16 ) ,LyY(16),LEV(16),RLID 

00300 C 

00310 IrJTE'•.^,sR Ik'.? Q2,AM"a2 

00320 LOG :CP.L CCld'

.- . ; 

6+TFSCM - NECE Program PRTVEL 

. 

0048o READ(4) TIT4 

00490 READ(10) (H(LM),LM=1,LPR?P),(LAND(LFI),LM=1,LPI-2), 

00500 & (CB(LM),LM=1,LPF4P),(CK(IO.M),P.LM=1,i:PLPfu ) 

00510 

00520 

READ(12) TIT1,DTT,CPHI,DL,PERIOD,EDDYIi,PLID,TLAST,DERSE, 

& PRTFLO,IDTPR, 

00530 & U I•t''r (L; :),Lr;_1,LP~t'~i ), (I .^:IIf'(LTwi),LM=1,LP:fit') 

00540 Ic ( DEI7i^ ) Ri;i:D ( i 1) TIT3 

00550 CALL Cx7PTS 

00560 CALL HEDER 

00570 ITLAST=INT(TLAST/IDTPR)AIDTPR-DTT 

00580 IDTT=DTT 

00590 DO 700 IT=1,ITLAST,JilTT 

00600 TIME=IT 

00610 IF(RTItIG .GT .TIME) GOTO 700 

00620 IF(PRTFLO) CALL RDFLO 

00630 READ(12) ITItC-,(((C(J,L,M),J=1,JP),L=1,LPP1),M=1,MPP1), 

00640 & (((D(J,L,M),J=1,JP),L_1,LPP1),M=1,MPP1), 

00650 & (ETA(LM),LM=1,LPMP) 

00660 RTIME=ITIP,i: 

00670 CALL WRTIME(RTIME,' 

00680 IF(ETIP4' .LT .RTIME) CALL RDNV(PRTNV) 

00690 IF(WTIME .LT.RTIM) CALL RDVIND(LP,MP,LPf4P,PRTWND) 

00700 IF(DENSE .Ai•tD .DTItrE .LT .TIME) CALL RDDEN(PRTDEN) 

00710 IF(PRTETA) CALL WRTETA 

00720 IF(NOGRDS .GT .0) CALL l-1RTP?iF 

00730 IF(LAYE'RS .GT .O) CALL YIdTLAY 

00740 IF(LEV7-LS .GT .0) CALL i,TRTPLT 

00750 706 C0~'TI\'UE 

00760 IF(LEVe•LS .GT .O) WRITE(3,800) ICOUNT 

00770 800 FORMAT(//,' ~•##* A TOTAL OF',I4,' PLOTS WERE CREATED') 

00'I'80 9o0 STOP 

00790 END 

0u8or 

00810 

C 

C s s a ~ s ~r +~ +r ~ s ~ ~ • +~ ~ +~ s ~ r s . ~r +s * ~ ~r o • r * r s 

00820 C 


00840 C 

00850 C0MM0N/Y,!10W/H(288),CK(1552),ALPHA(864),BETA(864) 

00860 & NB(288),A(864),CB(288),EDDYV(1552),CONNV,L .:*iD(288) 

00870 CONLMON/PRNTR/LOCATE(i0),NOGRDS,LAYERS,PRTETA,PRTFLO, 

00880 & LEVELS,Z(1U,16),ZEND(16),LAY(16),LEV(16),RLID 

00890 

COWiON/TTIME/ITZME ;ETIhIE,DTIME,WTIME,RTIME,ICOUNT 

00900 COMON/UNFKNOW/C(3,13,25),D(3,13,25),ETA(288),UB(288),VB(288), 

00910 ' & SPEED(288),DIREC(288) 

00920 COt~.MOIJ/C0N/IJP,KF,LP,MP,KPM1,CPHI,DTT,DL,PERIOD,EDDYS, 

00930 & EDDYT,REYNO,iJA2,AMP(288),IAMY(288),TIT1(20),TIT2(20), 

00940 & TIT3(20),TIT4(20),VERSIN(14),EDDYH,JPLPhfP,LPMP,KPLPMP 

00950 C0MM0N/WINDY/UA2(288),VA2(288) 

1-47 

_ _ .. . .,•.,, _. , . . _ . . • . ., :~. . ._,-.~

Program PRTVEL WFSCM - NECE 

00960 COMMON/DEN/ROWX(864),RO?v'Y(864),RE :Oh`(288),IPP,DENSE 

00970 C 

00980 INTEGER IAI~;P92,ArR'f2 

00990 LOGICAL C0NIiV,EDDYS,iDDYT,DENSE,PRTETA,PRTFLO,RLID,PRTFtND, 

01000 & PRTNV,PfiTDE,LAMDC1 

01010 REAL NB,LAY,LEV 

01020 COitiPLEX LOCATE 

01030 C 

01040 C 

01050 DATA ITIN;E,ICOLT,\7,fiTIFC-:,ETIMF.,DTIME,WTIME/2*0,4*0 .0/ 

01060 DATA EDDYS,i:DDYT,DENSE,PRTETA,PRTFLO,RLID/ 

01070 & T,F,F,T,F,F/ 

01080 DATA VERSIN/'GAL :','VERS','I0N ','7 - ','JULY',' 4, ', 

01090 & '1982',' - R','EV . ','A - ','PROG','RAM ','PRTV','EL '/ 

01100 

01110 C 

END 

01120 C 

01130 C ~ 

01140 C 

+ • * r « * * +~ ~ . ~r . r ~ ~ . * s r . « * ~ r ~ * . ~ . s r a s 

01150 

01160 C 

01170 C 

SUBROUT INE HEDER 

01180 C F'1UTINE WHICH PRINTS ESSENTIAL INFO THAT SUMMARIZES RUN . 

01190 C 

01200 COM0?1/UNKNOW/C(3,13,25),D(3,13,25),ETA(288),UB(288),VB(288), 

01210 & SPEED(288),DIREC(288) 

01220 COMON/CON/JP,KP,LP,?•:?,fU'M1,CPHI,DTT,DL,PERIOD,EDDY•S, 

01230 & EDDYT,REYNO,i•IA2,A :',!?(288),IAMP(288),TIT1(20),TIT2(20), 

01240 & TIT3(20),TIT4(20),VERSIN(14),EDDYH,JPLPMP,LP .':?,KPLPMP 

01250 CoM'•1oPI/Kr.O'J/H(2L'6),Cn(1552),ALPHA(864),BETA(864), 

01260 & .B(288),A(864),CB(288),EP.DY'ii(1552),CONNV,LA ."(288) 

01270 C0*410N/TrN /P,OWX ( 864 ), RO~IY( 864 ), RHOW ( 288 ), IPP , DEtdSE 

01280 INTEGER IAPT*2,AhLpw2 

01290 

REAL NB 

01300 LOGICAL CONNV,EDDYS,EDDYT,DENSE,LAND*1 

01310 DATA ASTBP,/'* * '/ 

01320 WRITE(3,50) (ASTER,I_1,30),VERSIN 

01330 50 FORMAT(///,'1',30A4,//,' ',40X,14A4,/,' ',40X,52(1H-)) 

01340 WRITE(3,100) TIT1 

01350 100 FORMAT(/,' ',30X,20A4) 

01360 WRITE(3,150) TIT2 

01370 150 FORMAT(/,30X,' VISCOUS TITLE : ',20A4) 

01380 IF(DENSE) WRITE(3,200) TIT3 

01390 200 FORMAT(/,30X,' DENSITY TITLE : ',20A4) 

01400 WRITE(3,250) TIT4 - 

01410 25 0 FORMAT(/,30X,' WIND TITLE :',20A4) 

01420 WRITE(3,300)JP,KP,LP,MP,EDDYH 

01430 300 FORMAT(/,30X,' JP=',I1,3X,'KP=',I1,3X,'LP=',I2,3X,'MP=',I2, 

I-48 ,

WFSCM - NECE Program PRTVEL 

01440 & 3X,' EDDYH_',E10 .3) 

01450 WRITE(3,350) DTT,DL,CPHI 

01460 350 FORt3AT(/,30X,' DT_',F4 .0,'SECS',3X,'DL=',F7 .1,' !'I;TERS', 

01470 & 3X,'LATITULE_',F4 .0,'DEC N') „ 

01480 k7cITE0,500) ' 

01490 500 FORiÀT( //, 4uY,,' 1 .°.TILL WATER DEPTHS (F2TERS)',/, 48`', 

01500 & ' ',25(iH-),/) 

01510 CALL OJTPUT(LP,NT,H,1) 

01520 Y:RITc:(3,600) 

01530 600 F0,M.4T(//,48X,'1FRICTION COETICIENTS (M/SEC)',/,48X,30(1H-),/) 

01540 CALL OUTPUT(LP,~R',CB,1) 

01550 W'rtITE(3,700) 

01550 700 FORM.AT(//,41Y.,'1LAYER DEPTHS FOR THE EDDY 'JISCOSITY ', 

01570 & '(NCNDIt~';NSIOPdAL) :',/,' ',41X,51(1H-),/) 

01580 CALL OUTPUT(LP,MP,CK,KP) 

01590 WRITE(3,800) 

01600 800 FORM.4T(//,5CX,'lINITIAL A .MPLITUDES(MTS) ',/,50X,24(1H-)) 

01610 CALL EQJATE(AMP,LP,MP) 

01620 ti,1RITE(3,850) PERIOD 

01630 850 FORMAT(/,' PERIOD OF THE TIDAL OSCILLATION-',G10 .3, 

01640 & 'SECS') 

01650 i'RITE0,900) 

01660 900 FOR?tAT(//,53X,'1ELEME-NT TYPES ',/,53X,12(1H-),/) 

01670 CALL EQUATR(TAMP,LP,M'P) 

01680 WRITB(3,950) (ASTEP,,I=1,30) 

01690 950 FORAi.4T(/,' ',30AU) 

01700 RETURN 

01710 E!r'D 

01720 C 

01730 C a • e a rt• a a s . n f~~ .~ ~t +~ o r• a .*~~• s 

01740 C 

01750 SUBROUTINE EQUATE(IZ,LP,MP) 

01760 C 

01770 C 

01780 C ROUTINE WHICH CO ::VERTS INTEGER*2 VARIABLE TO REAL#4 SO 

01790 C THAT IT MAY BE PRINTED USING TINE OUTPUT . 

01800 C 

01810 DIMENS ION IZ (1) , Z( 288 ) 

01820 I?FTEGE4# 2 IZ 

01830 C 

01840 LPFlP=LP*MP 

01850 DO 500 :.M-1,LPMP 

01860 Z(LM)-IZ(LM) 


01880 CALL QUTPUT(LP,MP,Z,1) 

01890 RETURN 

01900 END 

01910 C 

1-49 

_ --__ . .,~, . ..,.. . . ._ . . ._ ..,- ;,~

Program PRTVEL 

WFSCM - NECE 

01920 C 

01930 C 

01940 C 

01950 SUBROUTINE OOPTS 

01960 C 

01970 C 

01980 C ROUTINE WHICH READS DATA NEEDED FOR OUTPUT OPTIONS . 

01990 C 

02000 COMMON/PRNTR/LOCATE(10),NOGRDS,LAYERS,PRTETA,PRTFLO, 

02010 & LEVELS,7.(10,?6),ZEND(16),LAY(16),LEV(16),RLIL 

02020 LOGICAL PRTETA,PRTFLO 

02030 COMPLEX LOCATE 

02040 REAL LAY,LEV 

02050 IF (NOGRDS .EQ .0) GO TO 200 

02060 C READS IN DEPTHS AT WHICH VELOCITY WILL BE CALCULATED AND 

02070 C PRINTED FOR A PARTICULAR WATER COLUMN . 

02080 DO 100 J=1, NOGRDS 

02090 READ(1,10)(Z(J,I),I=1,16) 

02100 10 FORMAT (16F5 .1) 

02110 ro 20 I=2,16 

02120 IF(Z(J,I) .LT .0 .001) GO TO 100 


02140 100 ZEND(J)=I-1• 

02150 200 IF(LAYERS .EQ.O)GO TO 300 

02160 READ(1,10)(LAY(I),I=1,LAYERS) 

02170 C WRITT•.(3,10)(LAY(I),I=1,LAYERS) 

02180 300 IF(LEVELS .EQ .O) GO TO 500 

02190 READ(1,10)(LEV(I),I=1,LEVELS) 

02200 500 RETURN 

02210 END 

02220 C 

02230 C 

02240 C 

02250 C 

02260 SUBROUTINE OUTPUT (LP,MP,Z,INDEX) 

02270 C 

02280 C 

02290 C ROUTINE WHICH PRINTS A TABLE . MAIN OUTPUT ROUTINE USED IN THIS PROGH 

02300 C 

02310 DIMENSION Z(1) 

02320 LPAGE=O 

02330 MPAGE=(LP-1)/10+1 

02340 LPI=LP*INDEX 

02350 DO 800 MM=1,MPAGE 

02360 

LSTART=10*(MM-1) *INDEX+1 

02370 LSTOP=10*MM*INDEX 

02380 JSTOP=1L)*MM 

02390 JSTART=10* (NQM-1)+1 

1-50


02400 IF(MM .EQ .MFAGE) LSTGP_LP*INDEX 

02410 IF(M :d.GT .1) WiITE(3,100) 

02420 100 FORM&T('1',////,30Y.,'CONTINUED FROM PR EVIOUS PAGE') 

021130 WRITE(3,200)(J,J=Je~T!~RT,JSTOP) 

02440 200 FORMAT(53X,' X DIRECTIOiti",/,' -Y-',6X,10(I2,10X)) 

02450 ir'rIT"(3,300) 

02460 300 FORMAT(' ---',6X,10('--',10X)) 

02470 DO 700 M=1,NiP 

02480 NN=I;P+1-i4 

02490 LM=(NN-1)*LPI 

02500 DO 500 N=1,INDEX 

02510 LMINDX-LM+N-1 

02520 WRITE(3,400) NN,(Z(LMINDX+L),L=LSTART,LSTOP,INDEX) 

02530 400 FORhfAT(' ',I2,3X,10(G11 .4,1X)) 

02540 500 C.ONTIt;UE 

02550 NPAGE-(M#INDEX)/48 

02560 IF(NPAGE .EQ.LPAGE) GO TO 700 

02570 LPAGE=NPAr,E 

02580 j .*RITE0,600) 

025 90 600 FORMAT('1',////) 



02620 RETURN 

02630 END 

02640 C 

02650 C 

02660 C 

02670 C 

02680 SUBROUTINE 4'ELOCY (L,M,Z,U,V) 

02690 C 

02700 C 

02710 C ROUTINE WHICH CALCtJLATES VELOCITIES FOR TI ME T, LOCATION L,M AND DEP 

02720 C 

02730 COMMON/KNOW/H(288),CK(1552),ALPHA(864),BETA(864), 

02740 & NB(288),A(86ti),CB(288),EDDYV(1552),CONNV,LAND(288) 

02750 COMMON/UN .KNOW/C(3,13,25),D(3,13,25),ETA(288),UB(288),VB(288), 

02760 & SPEED(288),DIREC(288) 

02770 COMMON/CON/JP,KP,LP,MP,KPM1,CPHI,DTT,DL,PERIOD,EDDYS, 

02780 & EDDYT,P,EYNO,WA2,AtT(288),IAMP(288),TIT1(20),TIT2(20), 

02790 & TIT3(20),T_T4(20),VERST_N(14),EDDYy,JPLPMP,LPMP,KPLPNlP 

02800 COMMON/WINDY/UA2(288),VA2(288) 

02810 C 

02820 INTEGE!; IAMP*2,AMP*2 

02830 LOGICAL CO1;tJV,LAND* 1 

02840 REAL NB 

02850 LMP=(M-1)*LP 


02870 KLMP=(LM-1)*KPM1 

1-51

F ~ . . 

, 

,- ' 

s . 

i 

Program PRTVEL WFSCNI - NECE 

02880 

02890 C 

IS=IQ.MP+1 

02900 U01=Z*Z*H(LM)*(Z-1)/NB(LM) 

02910 U02=1 ./EETA(IS)4H(LMY"(1 .-Z) 

02920 DIF=ABS( (B ::TF (IS)-?.'B(Lt•!) )/rIB(Lh;) ) 

02930 IF(DIf.LT .0 .01) GO TU 50 

02940 U02=ALOG(N3(Li•",)!(IiLPHA(IS)#Z*H(LM)+BETA(IS)))/ALPHA(IS) 

02950 50 U0=0A2(LM)}(UU1+U02) 

02960 V0=VA2(Ltf)#(U01+U02) 

02970 UJ=0 .0 

02980 VJ=O .o 

02990 JLMP=(LM-1)*JP 

03000 DO 100 J=1,JP 

030'0 JLM=J+JLMP 

03020 UJ=C(J,L,M)*C0S(A(JLM)*Z)+UJ 

03030 100 VJ=D(J,L,M)OCOS(A(JLM)*Z)+VJ 

03040 C 

03050 U=UO+UJ 

03060 V=VO+VJ 

03070 ABVJ=ABS(VJ) 

03080 JLM=JLM-2 

03090 ABUJ=ABS(UJ) 

03100 IF(!BVJ .LT .1 .OE-10) V=0 .0 

03110 IF(kBUJ .LT .1 .0E-10) U=0 .0 

03120 C 

03130 RETURN 

03140 END 

03150 

03160 

C 

C • f r * * * s : « ~r . a a . . ~ ~ . s * « a ~ r a ~ s ~r * +t a +~ 

03170 C 

03180 C 

03190 

03200 C 

SUBROUTINE SPEDRC(DEPTH,LP,MP,KOUt :T) 

03210 C 

03220 C ROUTINE WHICH CALCULATES THE SPEED AND DIRECTION FOR THE ENTIRE 

03230 C 

03240 C 

GRID FOR A SPECIFIED WATER DEPTH . 

03250 COMMON/UNKNOW/C(3,13,25),D(3,13,25),ETA(288),UB(288),VB(288), 

03260 & SPEED(288),DIREC(288) . 

03270 COM0N/KNOW/H(288),CK(1552),ALPHA(864),BETA(864), 

03280 & NB(288),A(864),CB(288),EDDYV(1552),CONNV,LAND(288) 

03290 

03300 C 

LOGICAL CONNV,LAND*1 

03310 KOUNT=0 .0 

03320 DO 600 M=1,MP 

03330 LMP=(M-1)tLP 

03340 DO 600 L=1,LP 

03350 LM=L+LMP ' 

~ 

1-52 

. ... ........~.,e

e- . 

~- WFSCM 

:. 

. 

, 

- NECE Program PRTVEL 

03360 SPr,rD(LM)=0 .o 

03370 DIREC(LM)=0 .0 

03380 IF(LA?TD(L!1) .OR .DEPTH .GT.H(LM)) GO TO 600 

03390 CALL VELUCY(L,M,DEPTH,U,V) 

03400 SPEED(LM)_SQRT(ULL'+V*V) 

03410 ABiI_hBS(V) 

03420 ABU_ABS(U) 

03430 

03440 

IF(ABV .GT .1 .OE-10 .OR .ABU .GT .1 .OE-10) 

&DIF.EC(LM)-ATAN2(V,U)*180 ./3 .14159 


03460 RETURN 

03470 

03480 C 

END 

03490 c• 

03500 C 

03510 

03520 C 

SUBROUTIND RDNV(PRTNV) 

03530 C ROUTINE WHICH READS CONSTANTS ASSOCIATED WITH EDDY VISCOSITY AND 

03540 C 

03550 C 

PRINTS TABLES SUMMARIZING THE CONSTANTS . 

03560 C0MM0N/KIJOW/H(288),CK(1552),ALPHA(864),BETA(864), 

03570 & NB(288),A(864),CB(288),EDDYV(1552),CONNV,LAND(288) 

03580 

COMMOF./TTI"W/ITIM:,ETIME,DTIN-z,WTIME,RTItri',ICOUN1 

03590 COMNOi1/C0P'/JP,KP,LP,t-M,KPM1,CPHI,DTT,DL,PE9IOD,EDD'iS, 

03600 & EDDI"T,REYNO,WA2,AD?(288),IAt-.P(288),TIT1(20),TIT?(2C), 

03610 

03620 C 

& TIT3(20),TIT4(20),VERSIN(14),EDDYH,JPLPMP,LPMP,KPLPIfP 

03630 INTEGER I1lA!P*2,AMPf2 

03640 LOGICAL C0N ;N,EDDYS,EDDYT,DENSE,PRTETA,PRTFLO,RLID, 

03650 & PRTNV,LAhD*1 

03660 

03670 C 

REAL NB 

03680 JJLPMP=JP$JPLPMP 

03690 KLMM1_LPFIP*KPM1 

03700 IF(CONNV) JJLPMP=JPLPMP 

03710 50 READ(10) ETIME,(A(JLM),JLM-1,JPLPMP),(DUM,JLM='I,JPLPMP), 

03720 & (DUM,JLM-1,JPLPMP),(DUti ;JLM=1,JJLPMP), 

03730 & (DUM,JLM=1,JPLPMP),(DUU4,JLM=1,JPLPMP), 

03740 & (DUM,JLM=1,JPLPMP),(DUM,LM=1,LPMP), 

03750 & (EDDYV(KLM) ;KLM=1,L'PLPMP),(NB(LM),LM_1,LPMP), 

03760 & (ALPHA(KLM),KLM=1,KLMM1),(BETA(KLM),KLM=1,KLMM1) 

03770 

IF(ETIME .LT .RTIME) GOTO 50 

03780 IF( .NOT .PRTNV) RETURN 

03790 IF(EDDYS .OR .EDDYT) WRITE(3,400) REYNO 

03800 400 FORMAT(/30X,' REYNOLDS N0 ._',F5 .1) 

03810 IF (ED'?YS .AND .( .NOT .EDDYT)) WRITE(3,450) WA2 

03820 450 FORMAT(/30X,' THE AVG . WIND STRESS USED IN NV MODEL=',E10 .3) 

03830 WRITF(3,200) • 

1-53


WFSQM - NECE 

03840 200 FORM,AT(//,52X,'1N4' (SQ t4TS/SEC)',/,52X,16(1H-),/) 

03850 CALL Oi~'FiJT(LP,t?,EDDYV,iZP) 

03860 

03870 300 

1:RITE(3,300) 

rORFIt.T(//,57it,'1A(JLM,)',/,57x,7(1H-),/) 

03u"80 CALL 0'JTPUT(LP,f-P ,I" JP) 

03 :%r0 RETUfiii ; 

03 9 (r0 EPYD x 

03910 C 

03920 C 

, 

03930 C 

03940 C 

03950 

03960 C 

SUBROUTINE RDFLO 

03970 C ROUTINE WHICH READS IN MRSS FLUXES AND PRINTS OUT TABLE . 

03980 C 

03990 C0M0N/TTIME/ITIW-,ETINE,DTIME,WTIME,RTINE,ICOUNT 

04000 COMI40N/UNKNOW/C(3,13,25),D(3,13,25),ETA(288),UB(288),VB(288), ; 

04010 & SPEED(288),DIREC(288) 

04020 =1f021/CO'%T/JP,K'r,LP,P7P,I•.^rM1,CPHI,DTT,DL,PERIOD,EDDYS, 

04030 & EDDYT,REYNO,KA2.,AMP(288),IAW(288),TIT1(20),TIT2(20), 

04040 & TIT3(20),TIT4(20),IfERSIN(14),EDDYH,JPLPIfi',LPMP,KPLPMP 

04050 COMMON/DEN/ROWX(864) , ROWY(864) , RHOW(2E8) , IPP , DENSE - 

04060 C 

' 

04070 INTEGER IA :xD*2,1MP*2 

04080 LOGICAL CONi'IV,EDDYS,EDDYT,DENSE,PRTETA,PRTFLO,RLID,PRTWiVD, 

04090 & PRTh'V, LU.'D* 1 

04100 C 

04110 READ(12) ITI"M~,(UB(LM),Ltr=1,LPMP),(VB(LM),LM-1,LPtfP) 

04120 RTIP;3_ITI'r4E 

04130 CALL WftTIMETI!•iE,' 

04140 l7RITE(3,140) 

04150 140 FORMAT('1',///,41X,'N1RSS FLUXaS IN X DIRECTION - SQ MTS/SEC', 

04160 & /,41X,39(1H-)) 

04170 CALL OiJTPUT ( LP , MiP , UB ,1) 

04180 WRITE(3,150) 

04190 150 FORMAT('1',///,41X,'MASS FLUXES IN Y DIRECTION - SQ MTS/SEC', 

04200 & /,41Y.,39(1H-)) 

04210 CALL oUTPUT(LP,MP,VB,1) 

04220 - RETURN 

04230 END 

04240 C 

04250 C 

04260 C 

011270 C s s * s ~ r s . • • • * * s * # r r ~t ~ s # +~ * # ~ ~ r * s e • 

04280 C 

04290 C 

04300 SUBROUTINE RDWIND(LP,MP,LPMP,PRTWt3D) 

04310 C 

1-54 

~-

ti- 


~' 04320 C 

04330 C 

ROUTINE WHICH RLADS IN WIND SHEAR VELOCITY AIv'D PRINTS A TABLE . 

04340 C 

04350 

04360 

COI•L^':ON/TTIt .r!./T_TIF.t,ETIRE,DTIM,E,i*"fIME,RTIM:,ICOUNT 

CorL?sO ;c/ia.&?liDY/UF.2 ( 288 ), rA2 ( 288 ) 

04370 C 

04380 

04390 C 

LOGICAL PRThZtdD 

04400 50 READ(4) U*fZi'tE,(UA2(LM),LM=I,LPMP),(VA2(LFl),LMc1,LPMP) 

04410 WTIr;GzWTIIiE5`3600 . 

04420 IF(1;'TII1E .LT .RTIhL) GOTO 50 

04430 IF( .,:OT .PRTkI?JD) RETURN 

04440 WRI"' ;,(3,100) 

04450 100 FORMAT(//,'1',30X,'1WIND SHEAR VELOCITY SQRD IN X DIRECTION', 

04460 & ' (SQ MTS/SQ SEC)',/,' ',30X,54(1H-)) 

04470 CALL C1JTPUT(LP,MY,'JA2,1) 

04480 WRITE(3,200) 

04490 200 FORMAT(//,'1',30X,'1WItID SHEAR VELOCITY SQRD IN Y DIRECTION', 

04500 & ' (SQ MTS/SQ SEC)',/ , ' ' , 30X,54(1H-)) 

04510 CALL OUTPUT(LP,MP,VA2,1) 

04520 RETURN 

04530 

04540 C 

END 

04550 C 

04560 C 

04570 C 

04580 

04590 C 

SUBROUTINE RDDEN(PRTDZN) 

04600 C 

04610 COMMON/TTIME/ITIPic.',aTIt-T,DTIML^,'TIhtE',RTIME,ICOUNT 

04620 COhi"t0I?/DEti/TiQIdX(b64),ROWY(864),RHO'h'(288),IPP,DENSE 

04630 COl~LtO,1 ICi: ;diJP,gP,LP,r'.?,KPMI,CPHI,DTT,DL,PERIOD,EDDYS, 

04640 & EDDYT,REY1'IO,hll2,AMP(288),IAI4P(2a8),TIT1(20),TZi2(20), 

04650 

04660 C 

& TIT3(20),TIT4(20),VERSIN(14),EDDYH,JPLPMP,LPMP,RPLPHP 

04670 LOGICAL PRTDEN,EDDYS,EDDYT 

04680 

04690 C 

INTEGER IAMP92,AMP*2 

04700 50 READ(11) DTIME,IPP,(DUM, .TLM=1,JPLP,%T),(DUM,JLM=1,JPLPMP), 

04710 & (RHOtiI(LM),LM_1,LPMP) 

04720 IF(DTIME .LT .RTIf•y) GOTO 50 

04730 

IF( .NOT .PRTDEN) RETURN 

04740 WRITE(3,100) 

04750 100 FORMAT(//,30X,'1WATER DENSITY IN THE SURFACE LAYER ', 

04760 & ' (G/CUBIC Cll)',/,30X,' ',48(1H-)) 

04770 CALL OUTPUT(LP,MP,RHOW,1) 

04780 RETURN 

04790 END 

~ 

1-55


04800 C 

04 810 C ~* e s~ s e~ u a e s s o e~ s~ s•~ * 

04820 C 

04830 C 

e~t s**•~~ 

04340 

04850 C• 

SUBROUTINE WRTIFiE(TIlr,CHAR) 

0ti850 C ROUTIitiE WHICH LIRITES OUT TIM HEADING . 

04870 C 

04880 INTEGER CFiAR*2 

04890 

04900 C 

DkTA ASTER/'* # '/ 

04910 IF(TIME .GT .1 .0E32) TIME=0 .0 

04920 TIN:FH=TIyfE/3600 . 

04930 

WRITr,(3,50)(I:STER,I=1,30) 

04940 50 FOR`4AT(//,'1',30A4) 

04950 WRITE(3,100) CHAR,TIMEH 

04950 100 FOREiAT(//5X,21(1H-)/4X,'/ TIME',A2, 

04970 &F6 .2,' HOURS',2X,'/',/,4X,21 ;1H-)) 

04980 RETURN 

04990 - END 

05000 C 

05010 C 

05020 SUBROUTINE WRTPLT 

05030 C 

050u0 C ROUTINE WHICH V''?ITES A DISK FILE CONTAINING SPEED AND DIRECTION 

05050 C DATA WHICH CA F BE PLOTTED USING PROGRAM CURPLOT . 

05050 C 

05070 C 

05080 COt'",NiGN/TTIh E /ITIhE,}:TIME,DTIME,':'TIME,RTINF,ICOUNT 

05090 COMt"at1/UNxNG'o?/C(3,13,25),D(3,13,25),ETA(288),UB(288),VS(288), 

05100 & SPEED(288),DIR EC(2E8) 

05110 COWjON/CON/JP,Y•P,LP,t4l',KPM1,CPHI,DTT,DL,PERIOD,EDDYS, 

05120 & EDDYT,REYNO,WA2,AA4P(288),IAtAP(288),TIT1(20),TIT2(20), 

05130 & TIT3(20),TIT4(20),VGRSIN(14),EDDYH,JPLPMP,LPMP,KPLPMP 

05140 COhM0N/PRNTR/LOCATE(10),NOGRDS,LAYERS,PRTETA,PRTFLO, 

05150 

05160 C 

& LEVELS,Z(10,16),ZEND(16),LAY(16),LEV(16),RLID 

05170 INTEGER IAMP*2,A :4P*2 

05180 LOGICAL CONNV,EDDYS,EDDYT,DENSE,PRTETA,PRTFLQ,RLID,PRTWND, 

05190 & PRTNV,PRTDEN,LANDO1 

05200 REAL LEiY, LEV 

05210 

05220 C 

COMPLEX LOCATE 

05230 DO 200 J=1,LEVELS 

05240 ICOUNT=ICOUNT+1 

05250 CALL SPEDRC(LEV(J),LP,NP,DUM) 

05260 DEPTH=10 . * LEV(J) 

05270 WRITE(3,100) DEPTH 

1-56 

; 

i 

~ 

._ . . ys

i : . 

':fFSCM - NECE Program PRTVEL 

05280 100 FORMAT('1',////,20 .".,' DISK FILE CONTAINING CURRENT SPEED AND', 

05290 & 'DIRECTION FOR LEVEL',F5 .1,' % WAS CREATED') 

053C'0 

05310 200 

WF,ITE(13) RTItic,LEV(J),(SPEED(LH),DIRLC(Lfa),Lt-i=1,LPtu-) 

CONTINUE 

05320 RETURN 

05330 EhD 

05340 C 

05350 C a 

05360 C 

a r r a s•~ a~~ 4 s s x~• a•~a e•+~ +~ e a~~ e e a~• 

05370 

05330 C 

SUBROUTIR'E PRTLAY 

05390 C ROUTINE WHICH PRINTS PLAN VIEW OF VELOCITIES . 

05400 C 

05410 C 

05420 COP^90t ./TTIt'E/ITIYE,ETINL,DTIhL~,WTIME-,RTIhE- ,ICOUNT 

05430 COM'!ON/tINFCNOW/C(3,13,25),D(3,13,25),ETA(288),UB(288),VB(288), 

05440 & SPEED(28Et),DIREC(288) 

05450 COMf•,ON/CCN/JP,KP,LP,MP,K'i'Ft1,CPHI,DTT,DL,PERIOD,EDDYS, 

05460 & EDDYT,RE1'NO,WA2,Ah1P(288),IAMP(288),TIT1(20),TIT2(20), 

05470 & TIT3(20),TIT4(20),VERSIN(14),EDDYH,JPLPMP,LPFF°,KPLPMP 

05480 CONLM01/PRNTR/LOCATE(10),NOGRDS,LAYEFS,PRTETA,PRTrLO, 

05490 

05500 C 

& LEVELS,Z(10,16),ZEND(16),LAY(16),LEV(16),RLID 

05510 INTEGER IAMPQ2,AMP*2 

05520 LOGICAL CO*INV,EDDYS,EDDYT,DENSE,PRTis'TA,PRTFLO,RLID,PRT1JtID, 

05530 & PRTf.V,PRTDEN,LAND*1 

05540 REAL LAY,LEV 

05550 

05560 C 

COf-?LEX LOCATE 

05570 DO 1000 J :1,LAYERS 

05580 CALL SPEDRC(LAY(J),LP,MP,DUN,) 

.d5590 DZPTH-LAY(J) 


05610 620 FORMAT ('1'////,39X,' CURRENT SPEEDS AT LEVEL',F5 .1,' % ', 

05620 & 'IN tdTS/SEC',/,39X,' ',43(1H-)) 

05630 CALL OUTPUT (LP,MP,SPEED,1) 


05650 640 FORMAT ('1'///,32X,' CURRENT DIRECTIONS AT LEVEL',F5 .1,' % IN 

05660 &, 'DEG FROM THE X AXIS',/,32X,' ',59(1R-)) 

05670 CALL OUTPUT (LP,MP,DIREC,1) 

05680 1000 CON PiNUE 

05690 RETURN 

05700 END 

05710 C 

05720 C 

05730 C 

05740 SUBROUTINE WRTETA 

05750 C 

1-57 

~Y . .. ._ . . ., ..~s : _ . _r . . _ ., . . . _ . . .__ .. . ,.., .. r_.~..=-J`--~;w' _ ._ ._ ..o. . . .__~~~ ._ .. ..~ _ ... .~ .. .< . ._~~ . .. .


05760 COM?M0N/TTItCM/ITIME,ETItS,DTIME,WTIMEE ,FTIKE-,ICOiJiv°T 

05770 C0;'A:O:A/UNiCiiOi:'/C(3,13,25),D(3,13,25),ETA(28&),UB(288),VE(288), 

05780 

05790 

& SPEED(288),DIREC(268) 

C0FN0a/CON /JP, KT,LP,t-T, KPM1, CPitI,DTT,DL,PERIOD,EDDYS, 

05800 & EDDYT,RE?N0,17A2,AAr,-P(288),I : F•T(288),TIT1(20),TiT2(20), 

05810 & TIT3(?0),TITL(20),VEriI1d(14),EDD :H,Ji?LPif1P,L :'F:P, .ULnfi° 

05820 C0MM,0"t/blI';D .lUr'.2(288),V:2(28a) 

05830 C 

05840 INTEGCR L:v^"'2,k"2 

05850 LOt;ICA :. CON,'':G',IaDDYS,EDDYT,DT ;i;Sp,PRiETA,PRTx'LO,RLID,PRTFitdD, 

05860 & PRTttt',LAND*1 

05870 WRITE(3,120) 

05880 120 FORS!nT('1',///,41Y.,'WATER ELEVATION(MTS) ABOVE STILL WATER', 

05890 & /,41X,38(1H-)) 

05900 CALL OUTPUT(LP,MP,ETA,1) 

05910 RETURN 

05920 END 

05930 C 

05940 C 

05950 

05960 C 

SUBROUTINE WRT?RF 

05970 C 

05980 C 

ROUTINE WHICH WRITES TABLE CONTAINING VELOCITY PROFILE . 

05990 

C0'.t30N/KN01'I/'i(288),CK(1552),ALPHA(864),3E'TP.(864), 

06000 & NB(288),A(864),CB(288),EDDYV(1552),CO!1NV,LA"iD(288) 

06010 COt4tON/P!Rlt"i R/LOt :ATE (10 ), NOGRDS , LAYE?S , P?tT°TA , PRTFLO, 

06020 & LEVELS,Z(10,16),-Z~`.D(16),LAY(16),LEV(16),RLID 

06030 COM:O\/TTZ!!E/I'i'I!~i:',ETI ;'r,DTI!~,kTIN,E,RTI''fE,ICOUt~ 

06040 COM1"Or+/USd"io'01~/C(3,13,25),D(3,13,25),L'TA(288),UB(288),^B(288), 

06050 & SPF'ED(283),DIREC(288) 

06060 COM.";^ :1/C'JY/JP,',LP,MP,?CPM1,CDEiI,DTT,DL,PERI0D,EDDYS, 

06070 & EDD?T,REYNO,F,'!t2,At,T(2P8),IAr- : (288),TI':1(20),TIT2(20), 

06080 

06090 C 

& TIT3(20),TIT4(20),VERSIN(14),EDDYH,J?LPl,?,LP"iP,KPLPMP 

06100 INTEGER IAtIL°*2,AM"r'g2 

06110 LOGICAL LAND*1,COVNV,EDDYS,EDDYT,DENSF,PRTETA,PRTFLO,RLID,PRTWND, 

06120 & PRTNV 

06130 REAL NB,LAY,LEV 

06140 

06150 C 

COMPLEX LOCATE 

06160 C PRINTS THE VELOCITY PROFILES FOR TPE SPECIFIED GRIDS . 

0617C DO 999 N=1, NOGRDS 

06180 L=REAL (LOCATE(N)) 

06190 M=AIMAG(LOCATE(N))' 

06200 LMP=(M-1)*LP 

06210 LM=LtLMP 

06220 WRITE(3,210) L,M 

06230 210 FORMAT('1',//,45X,' VELOCITY PROFILE - GRID(',I2, 

1-58

;- . . 


06240 &',',I2,')',/,45X,3 0 (1H-)) 

: 06250 WRITE(3,220) 

06260 220 FORMAT (I,20X,' Z-idTS',T35,'U(Z)-M/S', 

06270 & T55,'V(Z)-!I/S',T75,'SPEED-M1S',T95,'DIREC-DEG') 

06280 WRITE(3,230) 

' 06290`230 FORMAT (' ',20X,5(1H-),T35,8(1H-),T55,8(1H-), - 

06300 & T75,9(1h-),TQ5,9(1k-)) ._ 

06310 IF(LAND(LFi)1 GO TO 450 

06320 IP = z : iui7(ra) 

06330 LO 280 I=1,IP 

06340 IF(Z(N,I) .Lr .H(LFi)) GO TO 240 

06350 wRITE(3,235) Z(it,I),H(LM) 

06360 235 FORMI:T(' ',19X,F5 .1,T35,'DEPTH SPECIFIED IS BELOW THr ', 

06370 & 'STILL WATER DEPTH FOR THE GRID(',F5 .1,')') . 

06380 GO TO 280 

06390 240 DEPTHcZ(N,I)/H(LM) 

06400 CALL VELOCY (L,M,DEPTH,U,V) ' 

06410 ABV_ABS(V) 

06420 ABU_ABS ( U ) 

06430 SPEED(I)=SQRT (U*U+V*V) 

06440 IF(ABV .GT .1 .OE-10 .OR .ABU .GT .1 .OE-10) 

06450 &DIREC(I)=ATAN2(V,U)*180 ./3 .1a159 

06460 WRITE(3,250) Z(N,I),U,V,SPEED(I),DIREC;I) ~ 

06470 250 FORMAT (' ',19X,F5 .1,T34,E10 .3,T54,E10 .3, 

06480 & T75,E10 .3,T96,F6 .1) 

06490 280 COW'TINUE 

06500 WRITE(3,300) (I,I=1,JP) 

06510 300 FORMAT (//,20X,' UNDETERMINED PARAASBTERS :',/, 

06520 & ' ',31X,8(I2,10X)) 

06530 WRITE(3,310)(C(I,L,M),I=1,JP) 

06540 310 FORM.fiT (22 ::,' C(J)',2X,8(E10 .3,2X)) 

06550 4TRITE(3,?20) (D(I,L,M),I-1,JP) , 

06560 320 FORMAT (2.2X,' D(J)',2Y.,8(E10 .3,2X)) 

06570 WRITE(3,330) 

06580 330 FORF'uAT(/,20X,' MASS FLUXES-SQ MTS/SEC :') 

06590 WRITE(3,3u0) UB(LM),VB(LM) 

06600 340 FORMAT(22X,' QX=',E10 .3,6X,'QY:',E10 .3) 

06610 WRITE(3,u00) ETA(LM) 

06620 400 FORMAT(/,20X,' SURFACE HEIGHT - M3'S :',E10 .3) 

06630 GO TO 999 . 

06640 450 WRITE(3,460) 

06650 460 FORMA'P(//,4OX,' -- LAND BOUNDARY - ZERO VELOCITY 06660 999 CONTINUE 

06670 RETURN 

06680 END 

06690 C$ENTRY 

EOF : 

I-59 

_ . .. .~.,. ._.. .- .. ..: .. .r :. ;,,, , ; . .. . .- .. .

-a-•- 

' ; Program PRTVEL 

w 

1-60 

40 

... 

WFSCP'1 - NECE 

_ ..._._. . -_-.. .~.~.,,~ ~ .,... . .... ., .r 

. . . . _ : . ~+ . 

. ._ . . .~. .__. . . _ _ _ _ _ ._ _. ..__ .. .~_ ,_ . . . . .. . . .

~ WFSCM - NECE Program PLOTVEL 

~ . 

i-a 

. 

00010 C PLOTVEL 7 .A 

00020 C .. 

000?0 C • 

0004t` C AUTHOR : C .K . COOPER, NECE AND B . FIDLER, U«0 . 

---'30350 C_ r--O A-;~--b^rG ..TUL VERSION BY FIDLER IN JUNL 1979, MAJOR MODIFICATION 

00060 C APRIL 1982 BY COOPER . 

00070 C PURPOSE : PROGRAM PLOTS A PLPL%I VIEW OF THE VELOCITY FIELD Ov A RFCT . 

00090 C GRID SYSTEM OF LP BY M' Ei.EME-NTS, EACH ELEMENT IS A SQUARE 

00090 C OF ACTUAL LENGTH DL AND PLOTTED LENGTH GRDSZ . 

00100 C 

00110 C 

00120 C 

00130 C HISTORY OF REVISIONS: ~ 

00140 C 

00150 C REV 1 .2 : READS IN VELOCITY IN F4 .0 FORMAT AND READS PLAN VEIW ~ 

" ' OU 13'3 C'---. DEPTH AS A$ 07 LOCAL DEPTH, NOT . METERS . 

00155 C REV 7 .A : SAMG AS L .2 EXCEPT READS IN VARIABLE SPANNED RECORD . 

00160 C 

00170 C • ~ • +~ s r • r +~ ~a f s s f r s 

00180 C 

* . ~ ~e • . * # ~ a • a • s • 

00190 C DESCRIPTION OF INPUT : 

00200 C 

00210 C TWO FILES :.irs NECESSARY, ONE CONSISTING OF A FORTnN-fv'lP ..'~L4-,T . 

00220 C AND THE OTHER OF SPEED AND DIRECTION DATA TO BE PLOTTED . 

00230 C THE SPEEDIDIREC FILE FORP;AT IS DEFINED IN ROUTINE RDSPD . EACH 

00240 C ARRAY OF SPEED AND DIRECTION SHOULD BE PRECEEDED BY OiJy RECORD 

00250 C CONTAINING T'rH; TIFE AND DEPTH (M) OF THE PLAN VIEW . 

00260 C THE NAFILIST FILE SHOULD CONTAIN THE FOLLOWING VARIABLES : 

00270 C 

00280 C GRDSZ - THE INDIVICUAL ELE%ZNT SIZE OF THE GRID SYSTEM IN INCHES . 

00290 C 

ACTUAL SIZE PLOTf5D WILL BE GRDtl"FACT INCHES . 

00300 C LP = THE NUF*,°ER OF E .EFIENTS IN THE X-DIRECTION, I .E . THE 

00310 C DIRECTION ALIGNED WITH THE WIDTH OF THE PLOTTING PAPER . 

00320 C MP = THE NUMBER CF ELE .NTS IN THE Y-DIRECTION, I .E . THE 

00330 C THE DIRECTION ALIGNED WITH THE LENGTH OF THE PAPER . 

00340 C DL = THE INDIVIDUAL ELEMENT SIZE IN METERS . 

00350 C ISKIP c THE 14U!'3ER OF PLdPJ VIEWS TO BE INITIALLY SEIPPED BEFORE 

00360 C 

DRAWING BEGINS . SHOULD BE 0 IF 1ST PLAN VIEW .!.:jDZE _ 

00370 C 

DRAWN . 

00380 C INC = THE NUMBER OF PLAN VIEWS TO BE SKIPPED BETWEEN DRAWINGS . 

00390 C 

SHOULD BE 0 IF EACH SUCCESSIVE PLAN VIEW IS TO BE DRAWN . 

00400 C VECTOR = LOGICAL VARIABLE . TRUE INDICATES VELOCITY VECTORS WILL 

00410 C BE DRAWN AS VECTORS WHOSE LENGTH WILL BE PROPORTIONAL 

00420 C 

TO THE SPEED . FALSE INDICATES THE VELOCITY WILL BE SHOtir^V 

00430 C 

AND AN ARROW OF CONSTANT LENGTH WITH FEATHERS ON THF. TAI_L . 

00440 C EACH'FEATHER WILL EQUAL SPDSCL (SEE BELOW) . 

1-61

Program PLOTVEL 

00450 C 

00460 C 

00470 C 

00480 C 

00490 C 

00500 C 

00510 C 

00520 C 

00530 C 

005 ;0 C 

00550 C 

00560 C 

00570 C 

00580 C 

00590 C 

00600 C 

00610 C 

00620 C 

00623 C 

00625 C 

00627 C 

00628 C 

00630 C 

00640 C 

00650 

00660 

00670 

00680 

00690 

00700 

00710 

00713 

00720 

00730 C 

00740 

00750 10 

00760 

00770 

00780 

00790 C 

00800 

00810 C 

00820 

00830 

00840 

00850 

00860 C 

00870 

WFSCM - NECE 

FACT = THE FACTOR BYa!•;HICH THE PLOTS WILL BE l:ODIFIED . IF .LT .1 

THE PLOTS WILL BE REDUCED . IF .GT.1 TIIE PLOTS WILL BE 

AM:'LIFIED . 

SCALE - LOGICAL VARIABLE . TRUE IhfiICATES PLOTS WILL BE SCALED 

AUT0MATICALLY BA:;:ED ON THE MAXIMUM SPEED EQUAL GRDSZ . 

FALSE INDICAT:.'S THAT SPDSCL WILL BE USED TO SCALE . --- 

SPDSGZ _ ONLY USED IF SC .;LP•. EQUAL FI.LSr . SPDSCL IS THE LEI:GTI ; OF 

ON,E F!-snTLT??R 0 ;:1; VELOCITY ARROW IF VECTOR .EQ .FALSE. IF 

VECTOfi .EQ .TRUE SPDSCL SHOULD BE APPROXIt4P.TELY EQUAL TO 

TEE HFXIM'JI•! SPEED TO OCCUR . 

ANGT = TIM ANGLE FROM THE X-A XIS TO TRUE NORTH III DEGREES 

CCW FROM THE X-AXIS . 

NOPLTS - THE ittUNBER OF PLAN VIE1ÎS TO BE DRAWN . 

N';tF1 ='"HE DEVICE NUM3ER WHERE THE SPEED /DIRLC DATA IS RESIDENT 

PRT = PRIV'P SWITCH . TRUE INDICATES TABLE.", OF THE SPEED AND 

DIRECTION ARRAYS WILL BE CREATED . FALSE, NO TABLES . 

DIST = THE DISTANCE IN INCHF~S, BETWEEN TWO CONISE'0 .'JTIVE PLAN VIEWS . 

SUNITS = TELLS PROGRAM lrTAT UNITS iHF SPEED WILL BE INPUT. IF 

M/S THEN SUIITS_1 ., IF CM/S THEN .01, IF M!M/S THEN .001, EC . 

DUNITS - TELLS PROGRAM WHAT UNITS THE DIRECTION WILL BE INPUT . 

IF IN TENS OF DEGREES, TiEN DUNITS=10 ., IF TO THE 

NEAREST WHOLE DEGREE, THEN 1 . 

# * * R N * * R • 1F • i • f i • * i1 a • • 2 M . f • f . ! * * i 

- ..r._ . 

COMMCN /AA/GRDSZ,GRD,N 4F1,MAYSPD,SCALE,SPDSCL,NOPLTS,LP,MP, 

& DL,AP :GT,SFEED(650),DIREC(650),TITLE'(20),TIF'E,LES', 

& IS :iP,INC,/ECTOR,LPMP,PRT,FEATHL,FEATHD,ARROw'L,SUNITS,DU :ITS 

LOGICAL PRT,VECTOR,SCALE 

REAL rD4.°",PD,LEV 

NAM.ELIST /MISC! GF.DSZ,LP,AIP,DL,ISKIP,INC,VECTOR,rACT, 

& SCALE,SPDSCL,ANGT,I:OPLTS,2.'Yrc1,PRT,DIST, 

& SUNITS, DUI;ITS 

EXTERNAL TEKQIK 

READ PLOTTING INFORMATION 

READ(1,10) TITLE 

FORM.AT(20AU) 

READ(1,MISC) 

LPMP_LP*MP 

ANGT=360 .-ANGT .,,. _ 

SET LENGTH OF PAPER USED . 

PLTLEN=(NOPLTS$((GRDSZ*FLOAT(MP)+5 .)+5 .)+10 .)OFACT 

INITIALIZE PLOTTER AND SET UP PLOT . 

CALL UMPLOT(PLTLEN) 

CALL FORM(' ') 

' C.V.:.• jIEADER('B0X 705 : COOPER',+16) 

CALL PLOTS(0,0,14) 

qb~ 

NEXT CALL PLOT SETS DISTANCE FROM EDGE OF PAPER TO GRID EDGE . 

CALL PLOT(0 .0,1 .5,-3) 

1-62

WFSCM - NECE Program PLOTVEL 

00880 CALL FACTOR(FACT) 

00890 C SKIP UNWANTED DATA FILES TO DESIRED FIRST PLOT 

00900 IF(ISKIP .GT.O) CALL SKIP (IS°nIP,&998) 

00910 C MAIN ITERATIVE LOOP . LOOP IS REPEATED FOR EACH NEW PLOT . 

00920 DO 20 IiOP_1,NOnLTS 

00930 C NEXT CALL PLOT SETS DISTANCE BETL•7EEN PLOTS . 

00940 CALL PLOT(DIST,0 .0,-3) 

00950 CALL G :'ID(O .,O .,GRDSZ,GRDSZ,MP,LP) 

00960 C CALL SUDROUTIttES WfiICH PLOT THE VELOCITY FIELD . 

00970 PLEN= GRDSZ*FLOhT(MP) 

00980 C NEXT CALL PLOT RESETS ORIGION AT GRID L-1, M=1 . 

00990 CALL PLOT (PLEN,O .,-3) 

01000 CALL RDSPD(&998) 

01010 CALL VELVEC 

01020 C IDENTIFY THE PLOT BY TITLE, TIME AND DEPTH AND PLOT NORTH ARROW . 

01030 C NEXT CALL PLGT SETS DISTANCE OF TITLE FROM BOTTOM OF GRID . 

01040 CALL PLOT( .5,1 .0,-3) 

01050' CALL PLABL 

01060 C NEXT CALL PLOT SETS DISTANCE FROM TIME AND DEPTH LABEL TO 

01070 C THE NORTH ARROW AND THE SCALES . 

01080 CALL FLOT(1 .25,0 .,-3) 

01090 CALL NASPLT 

01100 C SKIP RECORDS IF INC IS t10T ZERO . 

01110 IF(INC .GT .O) CALL SKIP(INC,LP,MP,NWF1,&998) 

01120 CALL PLOT(0 .0,-1 .0,-3) 


01140 CALL PLOT(1 .,0 .,999) 

01150 COTO 1000 

01160 998 WRITE(3,999) NOP 

01170 999 FORi'.AT( //,' * * * t * EXECUTION TERMINATING - PREM"T-JRE', 

01180 &' END OF DATA .',/,' ~***~ RECORDS READ=',I5) 


01200 RETURN 

01210 END 

01220 C 

01230 C 


01250 COMl90N /AA/GPDSZ,GRD,N61F1,MAXSPD,SCALE,SDDSCL,NOPLTS,LP,MP, 

01260 & DL,ANGT,SPEED(650),DIREC(650),TITLE(20),TIMr:,LEV, 

01270 & ISKIP,INC,VECTOR,LPMP,PRT,FEATHL,FEATHD,ARROWL,SUNITS,DUNITS 

01280 REAL MAXSPD,LEV 

01290 LOGICAL PRT,VECTOR,SCALE 

01300 DATA GRDSZ,DL,SUNITS,DUNITS,NOPLTS,LP,MP/ 

01303 & .5,30000 .,1 .,1 .,1,12,24/ 

01310 DATA ANGT,MAXSPD/65 ., .1/,FEATHL,FEATHD,ARROWi./3 .,10 ., .75/ 

01320 DATA NWF1/13/,SCALE/F/,VECTOR/F/,FACT,DIST/ .6,4 ./ 

01330 DATA ISKIP,INC /0,0/ 

01340 END 

1-63 

. ., ., . ...•-. . :. ~ .. ~~ .;

~-' 

Program PLOTVEL WFSCm - NECE 

01350Cs ~#•~aar••sr .reara~taee#~•fa~r .~rr 

01360 C 

01370 SUBROUTINE VELVEC 

01380 C 

01390 C ROUTINE WHICH PLOTS THE VELOCITY VECTORS . 

01400 C 

01410' C014i0 ;2 /AA/GRDSZ,GRD,t,F1,ETA :SPD,SCALE,SPDSCL,kOPLTS,LP,FiP, 

01420 & DL,AI:GT,SPEED(650),DIF:FC(650),TITLy`(20),TIM,LEV, 

01430 & ISKIP,INC,VECTOR,LPlL',PP.T,FEATHL,FEATIID,ARROWL,SUNITS,DUNITS 


01450 LOGICAL PRT,VECTGR,SCALE 

01460 C PLOT TF;E VELOCITY FIELD EXCLUDING THOSE VECTORS 

01470 C W!-:ICH ARE TOO SIdALL OR ARE ACTUALLY OVER LAND . 

01480 LM=O 

01490 DO 20 Ms1,MP 

01500 DO 20 L=1,LP 

01510 . LM-LM+1 

01520 DIR-DIREC(LM)*0 .0174533 

01530 X1=(FLOAT(L)-0 .5)#GRDSZ 

01540 Y1-(FLOAT(M)-0 .5)*GP,DSZ 

01550 C PLOT VELOCITY VECTOR IN ONE OF TWO WAYS DEPENDING ON 

01560 C USER PREFERENCE . 

01570 IF(VECTOR) CALL VECTR(X1,Y1,DIR,LM) 

01580 IF( .NOT .VECTOR) CALL ARRW(X1,YI,DIR,LM) 


01600 RETURN 

01610 END 

01620 C 01630 C 

01640 SU9ROUTIN-E, NASPLT 

01650 C 

01660 C ROUTINE WHICH PLOTS THE NORTH ARROWS 

01670 C AND DISTANCE AND SPEED SCiiLES . 

01680 C 

01690 COMMON !AA/GRDSZ,GRD,NWF1,"1AXSPD,SCALE,SPDSCL,NOPLTS,LP,MP, 

01700 & DL,ANGT,SPEED(650),DIREC(650),TITLE(20),TIMr.,LEV, 

01710 & ISKIP,INC,VECTOR,LPMP,PRT,FEATHL,FEATHD,ARROWL,SUNITS,DUNI"S 



01740 C 

01750 RANGT=0 .0174533*ANGT 

01760 ATLLN= .5 

01770 ICODE-16 

01780 C DETERMINE THE ORIENTATION OF THE NORTH ARROW 

01790 C FOR PROPER SCALE PLACEMENT . 

01800 ORIENT-1 . 

01810 IF((-1 .0 .LT .TAN(RANGT)) .AND .(TAN(RA'VGT) .LE .1 .0)) ORIENT-2 . 

01820 IF(ORIENT .EQ .1 .) GO TO 10 

I-64


01830 IF(COS(RANGT) .LT .O.) ORIENT=(-2 .) 

01840 GO TO 20 

01850 10 IF(SI :?(RAF?GT) .LT .O . ) ORIENT=(-1 . ) 

01860 C PLOT Tf•y fdORTH ARRGr: . 

01870 20 A f1LEPd=0 .1E *ATLEN 

01880 Aii:vID=0 .4 w hHi,EN 

01890 X2=ATLEN~SIA; ( RA 13GT ) 

01900 Y2=ATLri?A CuS ( F'.t-.?:G":' ) 

01910 CALL ff;^FID(0 .0,0 .0,X2,Y2,Ah2EP;,Ah'4dID,ICODE) 

01920 C PLG:' T'M SCALES 

01930 DELTAV = DL/(1000 .*GPliSZ) 

01940 CALL AXIS(0 .,1 .25,'F:", ',2,1 .0,90 .,0 .,DELTAV) 

01950 DELTAV = GRDSZ/MA7CSPD 

01960 IF( .t40T .VECTOR) DELTAV=FEATHL*SPDSCL/GRDSZ 

01970 CALL AXIS(0 .,3 .5,'VEL (M1S)',9,1 .0,90 .,0 .,DELTAV) 

01980 IF(VECTOR)GOTO 999 

01990 CALL SYMBOL( .75,0 .0,0 .14,'1 FEATHER - ',90 .,12) 

02000 CALL NUMHER(999 .,999 .,0.14,SPDSCL,90 .,3) 

02010 CALL SYMBCL(999 .,999 .,0 .14,' M/S',90 .,4) 

02020 999 RETURN 

02030 END 

02040 C 

02050 C 

02060 SUBROUTINE PLABL 

02070 C 

02080 C ROUTINE WfiICH IDENTIFIES THE PLOT IN TIME 

02090 C AND BY DEPTH LEVEL AND BY TITLE . 

02100 C 

02110 COMON /AA/GP.DSZ,GRi7,Mr+^r 1,MAY•SPD,SCALE,SPDSCL,NOPLTS,LP,MP, 

02120 & DL,A2JGT,SPEED(E50),DIF,EC(650),TITLE(20),TIMF,LEV, 

02130 & ISKIP,TNC,V^CTCR,LPI4P,PRT,FEATHL,FSATHD,ARROWL,S'.iNITS,DUNITS 

021u0 REAL LLV jSAY.SPD 

02150 LOGICAL P12T,VECTOR,SCALE 

0216 0 C 

02170 C PLOT THE TITLE 

02180 CALL SF~930L(0 .0,0 .0,0 .14,TITLE,90 .,80) 

02190 C PLOT TiM TIME . 

02200 CALL SYMf30L(0 ..5,0 .0,0 .14,'TIME =',90 .,6) 

02210 CALL NG'!-MER(999 .,999 .,0 .14,TIME,90 .,2) 

02220 CALL SYMBOL(999 .,999 .,0 .14,• H ',90 .,6) 

02230 C PLOT THE DEPTH . 

02240 CALL SYl4BCL(999 .,999 .,0 .14,' DEPTH =',90 .,9) 

02250 CALL NUMBER(999 .,999 .,0 .14,LEV,90 .,1) 

02260 CALL SYMBOL(999 .,999 .,0 .14,' %',90 .,2) 

02270 RETURN 

02280 cND 

02290 C s ~ # ~ x . ~ • f +r s f * ~ ~ ~ ~ * ~ ~ * # t * ~ * ~ # * 4 s * 

02300 C 

1-65

~- : 

. . 


02310 

02320 C 

02330 C 

02340 C 

02350 

02360 

02370 

02380 

02390 

02400 C 

02410 

02420 

02430 10 

02440 

02450 998 

02460 999 

02470 

02480 C 

02490 C 

.02500 

02510 C 

02520 C 

02530 C 

02540 C 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 100 

02670 

02680 200 

02690 

02700 300 

02710 

02720 

02730 

02740 

02750 

02760 

02770 40C 

02780 50C 

SUBPt)UTINE SKIP (NSI;IP,*) 

WFSCM - NECE 

ROUTINE WHICH SKIPS DATA ON WORP. FILE WHICH IS NOT TO BE PLOTTED 

COfVON /AA/GRDSZ,GRD,PPR': 1 ,F';iiSPD,SCALF,,SPDSCL,NOPLTS,LP,t :P, 

& DL, ::S,GT,SPEED(650),DIREC(650),'PITLE(20),TIt~',LEV, - 

& ISICIP,IPIC,UECTOR,LP :cr*,PRT,FEAT: 7. .,FEATHD,ARRGu'L,SUNITS,DUAÌTS 

REAL LEJ,rL4XSP1) - 


DO 10 I_1,hSKIP 

CALL RDSPD(&998) 

CONTIt3UE 

GOTO 999 - 

RETURN1 

RETURN ~ 

END ~ 

* +t * • • * a ~ ~ ~ t • +t +t * ~ +~ * r ~ * • * +~ ~ . . • • ~ r . e 

SUBROUTINE OUTPUT (LP,MP,Z,INDEX) 

ROUTINE WHICH PRINTS A TABLE . MP_IN OUTPUT ROUTINE USED~c'N THIS PROGR 

DIMENSION Z(1) 

LPA^vE-0 

MPAGE-(LP-1)/10+1 

LPI=LPOINDEX 

DO 800 bL1_ 1,MPAC,E 

LSTART=10*(tu*1-1)*INDEX+1 

LSTOPc.10*W,* INDEX • 

JSTOP=10 * MF1 . 

JSTART_10*(M!N-1)+1 

IF(MM .EQ .MPAGE) LSTOP=LP *INDEX 

IF(MM .GT .1) WRITE(3,100) 

FORrlAT('1',////,30X,'CO!JTINUED FROM PREVIOUS PAGE') 

WRITE(3,200)(J,J =JSTART,J5T0P) 

FORMAT(53X,' X DIRECTION',/,' -Y-',6X,10(I2,10X)) 

WRITE(3,300) 

FORMAT(' ---',6X,10('--',10X)) 

DO 700 M_1,MP 

NNoM?+1-M 

LM_(NN-1)*LPI ' 

DO 500 N=1,INDEX 

LMINDX=LM+N-1 

WRITE(3,400) NN,(Z(LMINDX+L),LcLSTART,LSTOP,INDEX) 

FORMAT(' ',I2,3X,10(G11 .4,1X)) 

CONTINUE • 

1-66 

~ . .

WFSCM - NECE 

Program PLOTVEL I ~ 

. s : 

02790 NPAGE_(MRINDEX)/48 

02800 IF(NPAGE .EQ .LPAGE) GO TO 700 

02'810 LPAGE=NPAGE _ 

02820 ~ WRITE ( 3, 600) 

02830 600 FORhL4T('11,////) • 

02840 700 CO}iTITdUE 

02850 800 CONTINUE ~ 

~ 02860 ' RETURN 

02870 END ~ 

02880 C " - 

02890 C 

02900 C 

02910 SUBROUTINE GRID(XO,YO,DX,DY,LX,LY) 

02920 C 

02930 C ROUTINE PLOTS A GRID . 

02940 C 

02950 COMMON /AA/GRDSZ,GRD,NWF1,MAXSPD,SCALE,SPDSCL,NOPLTS,LP,A4P, 

02960 & DL,ANGT,SPEED(650),DIREC(650),TITLE(20),TIA'.E,LEV, 

02970 & ISKIP,INC,VECTOR,iLPNT,PRT,FEATHL,FEATHD,ARROWL,SUNITS,DUNITS 



03000 C 

_ 

03010 CALL PLOT (XO,YO,3) 

03020 LXP1=LX+1 

03030 LYP1=LY+1 

03040 XEIdD=LX;DX 

03050 YEND=LY*DY 

03060 DO 10 I=1,LYP1 

03070 Y=(1-1)*DY 

03080 CALL PLOT(O .,Y,3) 

03090 CALL PLOT(XEND,Y,2) 

03100 10 CONTINUE " 

03110 DO 20 I_1,L :.P1 

03120 X=(1-1)*DX 

03130 CALL PLOT(X,0 .,3) 

03140 CALL PLOT(X,YEND,2) 


03160 RETURN 

03170 

03180 C• 

END 

03190 C - • 

03200 

03210 C 

SUBROUTINE VECTR(X1,YI,DIR,LM) 

03220 C ROUTINE TO DRAW A VELOCITY VECTOR AT GRID X1,Y1 . 

03230 C 

03240 COMMON /AA/GRDSZ,GRD,NYiF'1,MAXSPD,SCALE,SPDSC :.,NOPLTS,LP,MP, 

03250 & DL,ANGT,SPEED(650),DIREC(650),TITLE(20),TIME,LEV, 

03260 & ISKIP,INC,VECTOR,LPMP,PRT,FEATHL,FEATHD,ARROWL,SUNITS,DUNITS 

• 1-67 

i 

1 

f

a 

~ 

: 

Program PLOTVE'L WFSCM - NECE 

03270 P,E.R1I. MAXSi-D,LEV 

03280 LOGICAL PRT,tECTOR,SCI:LE 

03290 SC1.S:'D=SFEt^sD(LPi)&GF;hSZ/h~:A~'SPD' - 

03300 X2=7.1a-SCLSPT3*COS(DIR) 

03310 Y2=Y1fSCLSPU=°Ii'(DiR) 

03320 AHLE_`;=0 .375'•`3CLSPD 

03340 C C^:L.L h^.rF:;'- (-ii,X1,0 .1 ,FL .OAT(LM) ,90 . ,-1) 

03350 R"TuRN 

Q3360 END 

03370 C 

03 :; 80 C 

03390 C 

03-'100 

03410 C 

SUBROUTINE ARRW(X1,YI,DIR,LM) • . 

03420 C ROUTINE WHICH PLOTS A CONSTANT LENGTH ARROW IN THE DIRECTION 

03430 C OF THE VELOCITY VECTOR AND PLACES FEATHERS ON THE END WHICH 

--T)34"Tvw C`" 

03450 C 

ARE PROPORTIONAL TO THE SPEED AT GRIT) X1,Y1 . 

_ 

03$60 COMON /AA/GRDSZ,GP,D,N4TI,MAXSPD,SCALE,SPDSCL,NOPLTS,LP,MP, 

03470 & DL,ANGT,SPEED(C50),DIREC(650),TITLE(20),TIME:,LEV, 

03480 & ISf:IP,INC,VEJTOR,LP~?,PRT,FEATHL,FEATHD,ARROWL,SUNITS,DUNITS 



• Q .. ..~~~ .. .~~ - -~ . 

03510 C 

03520 C FLNGTH IS THE PLOTTED LL`7GTH OF A FEATHER . ONE FEA'"HER LEP:GTH IS 

03530 C EQUAL TO SPDSCL . k'hER1 PLOTTED ONE FEATHER LNGTH EQUAL GRDJZ/FaATIiL . 

03540 C ALNGHT i.C1t ;AL THE LENGTH OF THE VFLOCITY ARROrI, A CO;:STt,NT . 

03550 C FLATF',D EQUAL THE COic3TAR:T THAT DE'TEfiMILTS HOW FAR APART THE FEATHERS 

03560 C WILL BE DnA1?N ON TI:EE VELOCITY VECTOR . AFtr,Ok'L DETii:YMMS THE LENGTH 

03570 C OF THE VELOCITY AP.ROW . 

03580 IF(SPErD(LM) .LT .(SPD .>'CL/50.)) GOTO 300 

03590 ALA'GTH=GRDSZ*ARROi~T. ~ ~ 

03600 DIRC=DIREC(LM)+90. - 

03610 CALL SYtSOL(-Y1,XI,ALNGTH,13,DIREC(LM),-1) 

03620 

03630 

RN'JM=SPEED(LM)/SPDSCL 

N'JM=P,NUM 

03640 FLNGTH=GRD3Z/5 .O ~ ` 

03650 X2=X1-ALKGTH*COS(DIR)*o .5 

03660 Y2=Y1-ALt:GTH*SIN(DIR)*0 .5 

03670 HEADL=GRiSZ/5 . 

03680 X3=Xi+(ALNGTH)*COS(DIR)f0 .5 

03690 Y3_Y1+(ALIvGTH)*SIN(DIR)*0 .5 

03700 CALL SYM30L(-Y3,X3,HEADL,2,DIREC(LM),-1) 

03710 IF(NUM .EQ .O) GOTO 200 

03720 DO 100 N-1,NU"" 

_ 

03730 CALL SYMBOL(-Y2,X2,FLNGTH,13,DIRC,-1) 

03740 X2=X2±ALNGTH/FEATHD*COS(DIR) 

1-68

WFSCM - NECE Program PLOTVEL ' 

03750 Y2-f2+ALtiGTF3/PEATHD*SIN(DIR) 

03760 100 CONTINUE . 

03770 200 FLJdGTH=FLNGTH* (SPL•'cD(LM)-NUMfSPDSCL)/SPDSCL 

03780 CALL SYECOL(-Y2,X2,FLNGTH,13,DIRC,-1) 

03790 300 RETURN 

03800 END 

03810 

03820 

C 

C ~ s +t ~ s . o * ~ e ~ o o e s ~ a u ~ +a * s . ~ * ∎ e ~ ~ r * e 

03830 C 

03840 

03850 C 

SUBROUTINE RDSPD(*) 

03860 C READS .IN SPEED AND DIREC ARRAYS AND 

03870 C 

03880 C 

DETERMINES THE MAXIMUM SPEED FOR SCALING . 

03890 COND4ON /AA/GRDSZ,GRD,NWF1,MAXSPD,SCALE,SPDSCL,NOPLTS,LP,MP, 

03900 & DL,ANGT,SPEED(650),DIREC(650),TITLE(20),TIME,LEV, 

03910 & ISKIP,INC,VECTOR,LPMP,PRT,FEATHL,FEATHD,ARRO'a1L,SUNITS,DJNITS 

03920 REAL MAXSPD,LEV . 

03930 

03940 C 


03950 READ(Nk7F1,END_998) TIME,LEV,(SPEED(LM),DIREC(LM),LM=1,LPMP) 

03990 

DO 5 LM=1,LPMP ' 

04000 SPEED(LM)=SPEED(LM)*SUNITS 

04010 DIREC(LM)=DIREC(LM)*DUNITS 

04020 5 C01?L'E - 

014030 

IF( .NOT .PRT) GOTO 9 

04040 WRITE(3,6) TIME,LEV 

04050 6 FORMAT(////,'1 TI?-:E=',G10 .3,10X,'PLAN VIEW AT LEVEL =',G10 .3) 

04060 CALL OUTPUT(LP,MP,SPEED,~) 

04070 CALL OUTPUT(LP,HP,DIR,1) 

04080 9 MAXSPD = SPDSCL 

04090 IF( .NOT .SCALE) GO TO 999 

04100 MAXSPD=O . 

04110 DO 10 LM=1,LPMP 

04120 

MAXSPD=AMAX1(MAXSPD,SPEED(LM)) 

04130 IF( .NOT .VECTOR) SPDSCL=MAXSPD/5 .0 


04150 GOTO 999 

04160 998 RETURN1 

04170 999 RETURN ' 

04180 

04190 C$ENTRY 

EOF : 

END 

. _ . • 

• 1-69 

_

Program WIND 

C 

C 

C PROGRAM WIND(GAL) 

C 

C VERSIO*] 7 - July 1982 - P,.,VISIU2d A 

C 

C BY CORTIS COOPER, NECE 

C 

C PROGRAM WHICH CALULATES WIND FRICTION VELOCITIES SQUARED FOR 

C CASE WHERE WIND DOES NOT VARY SPATIALLY BUT DOES VARY 

C TEITORALLY . 

C 

DIMENSION UA2(600),VA2(600),TIT(20) 

NAMELIST/MISC/ITO,WTHETA,WTO,IDTT,MAY.T,LP,MP 

DATA UA2,VA2,/600;0 .0,600*0.0/,ITO,WTHETA,WTO,IDTT,MAXT,LP,MP/ 

& 3600,0,10,3600,72000,12,24/ 

C 

READ(1,100) TIT 

100 FORMAT(20A4) 

READ(1,MISC) 

WRITE(4) TIT 

LPMP=LP*MP 

MAXIT=MAXT/IDTT+1 

IF(ITO .LT .1) IT0=1 

IF(ITO .LE .ir'wXT) GOTO 120 

WRITE(3,50) 

50 FOR! :AT(///,' ERROR : ITO .GT .MAXT 

GOTO 600 

120 DO 500 I=1,MAXIT 

ITINE-I*IDTT 

WTIM.E=ITIi~M/3600 . 

C CALCULATES WIND AT NEW TIME USING A LINEAR RAMP FUNCTION IN TIME . 

W=WTO*ITIME/(FLOAT(ITO)) 

IF(ITIME .LE .ITO) GOTO 150 

I=MAXIT 

WTIME=1 .0E32 

W=WTO 

C CALCULATES WIND STRESS COEFFICIENTS ACCORDING TO WU'S FORMULAS . 

150 RRAPPA=( .95375+0 .0775*W) ;1 .E-06 

C CALCULATES WIND FRICTION VELOCITY SQUARED . 

U=COS(ir"TKETA*3 .14159/180 .0)*RKAPPA*Wf*2 

V=SIN(WTHETA*3 .14159/180 .0)*RKAPPA*W**2 

DO 200 LM=1,LPMP 

UA2(LM)=U 

VA2(LM)=V• 

200 CONTINUE 

WRITE(4) WTIME,(UA2(LM),LM=1,LPMP),(VA2(LM),LM=1,LPMP) 

' . t0 

WFSCM - NECE 

~ 

a 

- - . . . . . . . . . . . . . . . . . . --~ , srr

WRITE(3, 200) WTItfw, ,W 

300 F0~2',•1hT(' TIMC_,',u14 .4,5%,'SPEED_',G14 .4) 

500 COFITIidIJF' 

600 srop 

END 

1-71 

rrogram WtrvU 

~ ._ . _ . ._,. .. ,_. _ . ...,_ _ . ..~..., ~,~. ... .. .... ~. ... _.. .... :~.~. _ . . . .v,. ..~~ . . - - - ..~,.R.7 .:.:,.,,„,., . .. .. ..,~,. er._.~ ._. . ., ...,~. . .,y. . . . . ..~ ...:_ .,..: . . . .v . _, . . .._~ ... .. .,,w. 

f _ . . . . . . . __ .

s . 

~ .- ;. 

j .-. 

WFSCM - NECE 

00010 C 0*0 i* O;• SPATIAL 7 .A on* 0 *§ s 

00020 C M4IOrS SPATIAL INTERPOLATIOid OF WIND FIELD OVER A GAL h ;ODEL GRID 

00030 C GIVEN DATA AT SEVERAL KNO67N POINTS . PROGRAM IS SET UP 

00040 C FOR FIVE (5) MET STATION INPUTS . FOR l:ORE M,~T STATIONS, 

00050 C REDIMFiSION VARIABLE 'WT' AND REVISE I/0 FORMATS . 

00060 C 

00070 C LAST REV : 13 APRIL 1982, CKC, CHAhGE'D STRF.ES CALC . 

00080 C FROM WU (1969) TO WU (19tb ) 

00090 C PREVIOUS REV : 6 JAN 1982 

00100 C AUTHOR : ADRIAN C . HUTMiPHREYS, III, NECE 

00110 C 

00120 C DEFINITION OF VARIABL?S : 

00130 C LP = NO . OF GRID F.LEt4ENTS IN Y DIRECTION . 

00140 C MP = NO . OF GRID ELEMENTS IN X DIRECTION . 

00150 C N = NO . OF METEOROLOGICAL STATIONS (MAX . 0F 10) 

00160 C IX(I),IY(I) = GRID COORDINATES OF MET STATIONS . 

00170 C UM(I),L'M(I) = U&V COMPONENTS OF VELOCITY AT MET STATION 'I' . 

00180 C IUM( I), IVM( I)= DITTO, BUT IN INTEGER NODC FORMAT . 

00190 C W(I,K) = WEIGHTING FACTOR FOR MET STA 'I', AT GRID ELEMENT 'Y.' . 

00200 C LTIME = NO . OF SEQUENTIAL WIND FIELDS TO BE CREATED . 

00210 C U(I),V(I) - INTERPOLATED VELOCITY CO u'OYENTS AT GRID 

00220 C ELEMENT 'I' . WRITTEN TO DISK AND DISCARDED 

00230 C FROM MEMORY AFTER EACH TIVE STEP . 

00240 C 

00250 IMPLICIT REAL (A-H,O-Z) 

00260 COMON /OP:F ./ LP,NLa,LPNP,IX(5),IY(5),N,SYSW(5),INT 

00270 C0f0-,0fJ M•d0/ I'Jri(5),IVM(5),[tAt(5),VM(5),W(5,288) 

00280 CO!'i~10N /THREE/ iCARD,IN1,I0UT1,I0UT?_,IPRT 

00290 INTEGER A(20) 

00300 DIFEEtISIDt3 U(288),V(288) 

00310 DIMENSION WT(5) 

00320 DATA U,V /288*0 .0,288*0 .0/ 

00330 DATA K11T/0/,LIMIT/999/ 

00340 NAMELIST /GRID/LP,MP,N,IX,IY,SYSW,INT 

00350 C 

00360 Re,AD(ICARD,GRID) 

00370 LPI++P = LPfMP 

00380 tQVT=I4dT+1 

00390 C COMPUTE WEIGHTING FACTORS (N*LPMP VALUES) . ONE FOR EACH GRID 

00400 C ELEMENT FOR EACH WT STATION . . . 

00410 DO 100 L=1,LP 

00420 DO 100 M=1,MP 

00430 LM=MP*(L-1)+M 

00440 CALL WEIGHT (L,M,LM,WT) 

00450 DO 50 INDEX=1,N 

00460 W(INDEX,LM)=WT(INDEX)*SYSW(INDEX) 

1-72 

_ ~ . . ... ...,~..as..~+...~.w :w .., ...~-~ .rs... .. ..,.~a•r ... ...o ..: ..a.. • . . .P'-~ ..,w . . . . .. ~ . .... . .. . -. . . . . ..... . 

.~ .~.., , ..,..... ..- ., .~ . . .ew.--~ ...~.w. . .._ _...,. ..z- . ..~ . a:...~+.wsr- ..~.~.....r . - -~'". .

WFSCM - NECE Program SPAT 

00470 C IF(LM .LE .9) WRITE(IPRT,444) INDEX,LM,W(INDEX,LM) 

00480 444 FORMAT(1X,'WEIGHT(',I1, ',', I3,') = ',F10 .5) 


00500 100 CONTINUEE 

00510 C 

00520 C READ HEADER FROM DATA FILE . 

00530 READ(IN1,810,END-900,ERR=900) A 

00540 810 FORMAT(20AU) 

00550 C W}iITE HEADER TO UNFORMATTED DISK . . . 

00560 WRITE(IOUT1) A 

00570 C WRITE HEADER TO OUTPUT .FtONITOR FILE . . . 

00580 WRITE(IPRT,810) A 

00590 C PSGIN MAIN INTERPOLATION LOOP . . . 

00600 DO 300 ITIW?_=1,LIMIT, INT 

00610 C READ WIND VELOCITY FOR THIS TIME STEP AT EACH MET STATION FROM 

00520 C SPECIAL DATA FILE CONTAINING U & V COMPONENTS RELATIVE TO 

C0630 C GRID NORTH . . . 

00640 READ(IN1,820,END-900,ERRc900) (IUM(ISTA),IVM(ISrA),ISTA_1,N) 

00650 820 FORMAT(10I5) 

00660 C SKIPS NJXu'3ER IN INPUT RECORD = INT-1 

00670 IF(INT .EQ .1) GO TO 120 

00680 DO 115 I=2,INT 

00690 READ(IN1,820,END-900,ERR=900) DUM 


00710 C 

00720 120 DO 130 J1=1,N 

00730 UM(J1) = FLOAT(It1M(J1))/100 . 

00740 VM,(J1) = FLOP.T(IVM(J1))/100 . 


00760 C I9iTERPOLATE . . 'I' IS THE A''.ET STA COUNTER, 'K' IS THE 

00770 C GRID ELEMENT COUNTER . . . 

00780 DO 200 K=1,LPMP 

00790 VSUi4=0 .0 

00800 USUPS-0 .0 

00810 DO 150 I=1,N 

00820 USUM c USUM + W(I,K)OUM(I) 

00830 VSUM = VSUM + W(I,K)*VM(I) 


00850 U(K)=USUM 

00860 V(K)-VSUM 


00880 CALL STRESS(U,V,ITIME) 

00890 KW`P=KNT+1 


00910 GO TO 999 

00920 900 WRITE(IPRT,910) KNT 

00930 910 FORMAT(//1X,'READIHG TERMINATED DUE TO EOF OR ERROR', 

00940 A/1X,' AFTER ',I6,' RECORDS .') 

I-73

x. Program SPAT 4iFStM - NECE 

00950 999 STOP 

00960 END 

00970 C * ~~~ * t f# ~ ~~* 

00980 BLOCK DATA . 

00990 INL°LICIT REAL (A-H,O-Z) 

01000 CO1IM0Id /ONE/ LP,MP,LPtiP,IX(5),IY(5),N,SYSW(5),INT 

01010 COMMON /TWO/ IUM(5),IVFS(5),UM(5),Vt4(5),W(5,238) 

01020 COP^ ;ON /THREE/ ICARD,INI,IOUT1,IOUT2,IPRT 

01030 DATA ICARD,IN1,ICUT1,IOUT2,IPRT /1,1,4,3,3/ 

01040 DATA IX,IY /5#0,5*0/ 

01050 DATA UM /5$0 .0/, VM /500 .0/, W/144000 .0/ 

01060 DATA IUM /500/, IVM /5*0/ 

01070 DATA SYSW /5*1 .0/ 

01080 DATA INT,LP,MP,N/1,12,24,5/ 

01090 END 

01100 C •** * *** • • ** * 

01110 SUBROUTINF WEIGHT (L,M,LM,WT) 


01130 COMMON /ONE/ LP .~4P,LPM?,IY.(5),IY(5),N,SYSW(5),Ilv'T 

01140 COMMON /TWO/ IUM(5),IVM(5),UM(5),VY(5),W(5,288) 

01150 C0*"u~10'Q /THREE/ ICARD,IN1,IOUT1 ,IOUT2,IPRT 

01160 DIMENSION R(5),w°P(5) 

01170 C CON?UTES RADIAL DISTANCE FROM CEPJTER OF EACH GRID 

01180 C ELEMEN'T TO POINTS k'HOSE LOCATION IS KNOWN WRT THE 

01190 C GRID AXES . THEN COMPUTES N'F.IGFTING FACTORS, WHERE : 

01200 C EPS = SMALLNESS TEST FACTOR FOR PIVOT ELE!e=-NT IN 'SZR ;fJL' . 

01210 C IX(I),IY(I)o THE COORDINATES IN GRID SPACE OF MET STA 'I' . 

01220 C L, M ~ THE COORDINATES OF THE CENTER OF A GRID ELEWE"!T . 

01230 C 

01240 EPS=1 .0E-07 

01250 NP 1= N+ 1 

01260 C IhITIALIZF WEIGHTS . . . 

01270 DO 50 I=1,N . 

01280 Wr(7)_o .0 

01290 50 C,'-)':1i'INUE 

01300 C COM'UTE RADIAL DISTANCES . .. • 

01310 DO 100' x-1,N 

01320 R(K) = SORT( FLOAT(M-IX(K))0*2 + FLOAT(L-IY(R))#*2 ) 

01330 C IF RADIAL DISTANCE FROM THIS GRID ELEMENT TO MWT STA ' R' IS 

01340 C SMALL, WEIGHT THIS MET STA 100 PERCENT . 

01350 IF(R(K) GT . 0 .01) GO TO 100 

01360 kT(y) = 1 .0 

01370 RETURN 


01390 C 

01400 C NOW SET UP MATRIX & SOLVE L .EQ'S FOR WEIGHTING FACTORS . 

01410 C WT(1) + WT(2) + WT(3) + WT(4) = 1 .0 

01420 C R(1) ;WT(1) - R(2) *WT(2) - 0 .0 

I-74 

.._ ..~ ...__, . . __ .. .. ...~ . ._ . ._. ._.~ .~ ~ .~ ..~_ _ ~, . . . . . ._ . ..,_ . . : ~_ ,~ .~_ _ ~__ ._ . .. .,. .~. ., . .- . .__. ._ ._ __ a . ..~" ._ ----

WFSCM - NECE Program SPAT 

01430 C R(1);WT(1) - R(3)*WT(3) = 0 .0 

01440 C R(1)aWT(1) - R(4)fWT(4) = 0 .0 

01450 C 

01460 C THESE REDUCE TO . . . 

01470 C WT(2) _ ( R(1)/R(2) )#WT(1) 

01480 C WT(3) = ( R(1)/R(3) )fWT(1) 

01490 C WT(4) _( R(1)/R(4) )OWP(1), ETC . . . 

01500 C AND . . . 

01510 C WP(1)f( 1+ R(1)/R(2) + R(1)/R(3) + R(1)/R(4) + . . .= 1 .0 

01520 C 

01530 C SOLVING FOR FTP(1) . . . 

01540 SUM = 1 .0 

01550 DO 250 I=2,N 

01560 S ;IM = SUM + R(1)/R(I) 


01580 WT(1) = 1 .0/SUM 

01590 C SOLVE FOR REMAINING WEIGHTS . . . 

01600 DO 350 I=2,N 

01610 WT(I) _ ( R(1)/R(I) )*V1T(1) 


01630 RETURN 

01640 END 

01650 C * rf * *** i . * r * ** t * 

01660 SUBROUTINE STRESS(U,V,ITIME) 

01670 C C0A`d'UTES WIND STRESS AT EACH GRID ELEMF:J7T GIVEN VELOCITY COMPONENTS 

01680 C AND WRITES VALUES TO UNFORMATTED DISK . 

01690 C 


01710 C01-PA0:3 /OATE/ LP,~iP,LPMP,IX(5),IY(5),N,SYSW(5),INT 

01720 C0'v~',ON /TuREE/ ICARD,IN1,IOUT1,IOUT2,IPRT 

01730 DI!=NSION U(288),V(288),USTP.R(288),VSTAP,(299) 

01740 WTIME=FLOAT(ITIME) 

01750 DO 100 I=1,LPMP 

01760 SPD=SQRT( U(I)f*2 + V(I)#*2 ) 

01770 RRAPPA=( .95375+0 .0775*SPb)*1 .E-06 

01780 USTAR(I) = U(I) ;P,Kt.PPA*SPD 

01790 VSTAR(I) = V(I)*RRAPPA*SPD 

01800 IF(USTAR(I) .TE .1 .OE-02 AND . VSTAR(I) .LE .1 .OE-02) GO TO 100 

01810 WRITE(IPRT,870) WPIME,I,USTAR(I),VSTAR(I) 

01820 8?0 FORMAT(//1X,'JOB TERMINATED, tTSTAR OR VSTAR TOO LARGE', 

01830 A/1X,'TIME = ',F5 .0,' GRID ELEMENT = ',I3, 

01840 &/1X,'USTAR = ',1E12 .3,' VSTAR = ',1E12 .3,//) 

01850 STOP 


01870 WRITE(IOUT1) WTIME,(USTAR(LM),LM=1,LPMP),(VSTAR(LM),LM=1,LPNP) 

01880 WRITE(IPRT,851') WTIME 

01890 851 FORMAT(1X,'TIME _ ',F5 .0) 

01900 C WRITE(IPRT,854) 

1-75 

- _ . . . - _ . - • --~ ----- . .... .... .. .:. ..,~~ . . 

__ ~ ._ . .._ .._.. .: .,_ ._ _ . . ~_ 

~ . _ ._ ._. . . . . . . .__ . .__~ . . ... ..~_ . ._ ._ .~....- .._ .. .~__ .~ ._ . .,. .. :s . .r . ~.. ._...... .. .._.... . .:..~~-- . .. . . .

Program SPAT WFSC'! - NECE 

01910 854 FORMAT(1X,'USTAR(I),VSTAR(I),I_1,240') 

01920 C WRITE(IPRT,852) (USTAR(LM),VSTAR(LM), LM=1,LPMP) 

01930 852 FORMhT(1X,6E12 .3) 

01940 C WRITE(IPRT,853) 

01950 853 FORMAT(/1X,'WIND SPEED, U & V COMPONENTS') 

01960 C WRITE(IPRT,852) (U(LM),V(LM), LM=1,LPMP) 

01970 RETURFJ 

01980 END 

01990 C s *• a• *r e∎sr s *** * •a * 

02000 C$ENTRY 

EOF : 

2 . 

I-76

t+TFSCM - NECE Program DENSTAT 

C ;** •# DENSTAT ;+ •*+ 

C CQMPUTES STATISTICS ON DENSITY FROM NOBC OCEANOGRAPHIC TAPE . 

C AUTHOR : A . C . HUt•fPHREYS, NEW ENGLAND COASTAL ENGINEERS 

C DATE: 23 MARCH 1982 

C LAST REV : 16 APRIL 1982 

C 

CONC!ON /021E/ SIGSJM(10,8,4),Rtv'TS(10,8,4),ISIGMA(10,8,4,2000), 

& VAR(10,8,4),DEV(10,8,4),RtiNGE(10,8,4),AVG(10,8,4),ISUM(10,8) 

COMMSON M10/ IERP,I,IERR2,IERR3,IERR4,IERR5,ICODE 

COMNOY /TRE/ 1STIFt"r., I E TIF'E 

INTEGER 9 2 ISIGPSA 

INTEGER IDE'P(4),ISIG(4) 

NAME,LIST /MISC/ISTIt,'E, IETI ME 

DATA LOCN,LOCd / 2 *99/ 

DATA JDEP,JSIG /2*9999/ 

C 

READ(i,MISC) 

ITESTc1 

DO 500 ITER-1,36000 

READ(13,10,ENDs600) LAT,LONG,VODAY,IDEP,ISIG,IREC 

10 FORMAT(4X,I5,I6,5X,I4,3X,4A1,11X,4A1,33X,I1) 

IF(IREC EQ . 1) GO TO 500 

C 

C WRITE A COUNTER TO DISK FOR INFO IN CASE OF CRASH . . 

ITER2cITER/1000 

IF(ITER2 LT . ITEST) GO TO 20 

ITEST=ITEST+1 

WRITE(23,15) ITER 

15 FORt~',AT('PROGRAM DENSTAT2 PROCESSED AT LEAST ', I10,' RECORDS') 

20 CONTINUE 

C 

C REJECT DATA POINT IF NOT WITHIN DES?5ED TIME SPAN . . . 

IF(IABS(I-qTIF ;c,-IETIVE) LT . 28) GO TO 8 .00 

IF(ISTIf•E LT . TETIME) GO TO 25 

C . . . FOR SPANS BEGIh'WING LATE IN YEAR, ENDING EARLY . . . 

IF(MODAY GE . ISTIME OR. MODAY LE . IETIME) GO TO 30 

GO TO 497 

C . . . FOR S?At3S BEGINtvING EARLY, ENDING LATE . . 

25 IF(MODAY GE . ISTIESE AND . MODAY LE . IL'TIME) GO TO 30 

GO TO 497 

30 CALL LOCATE(LAT,LONG,LOCN,LOC6I) 

IF(LOCN EQ. 99 OR . LOCW EQ . 99) GO TO 470 

CALL ALFNUM(IDEP,JDEP) 

IF(JDEP EQ . 9999) GO TO 480 

CALL D-zEPS(JDEP,LOCD) 

IF(LOCD EQ . 5) GO TO 495 

CALL ALFNUM(ISIG,JSIG) 

1-77

WFSCM - NECE 

' IF(JSIG EQ . 9999) GO TO 490 

IF(JSIG LT. 1000 OR. JSIG GT. 3000) GO TO 490 

C IF(1,0DAY GE . 0401 AND. MODAY LT . 0930) 

C & ISL'M(LOCW,LOCW.)=ISUM(LOCSi,LOCtt)+1 

C 

KNTS(LOCN,LOCFI,LOCD) - KiJ'PS(LOCN,LOCW,LOCD) + 1 

KNT = KFiTS(LOCii,LOCiti,LOCD) 

ISIGMA(LOCt7,LOCW,LOCJ},Kh'T) - JSIG 

SIGSUNf(LOCtS,LOC (•I,LOCD) = SIGSL'?•f(LOCN,LOCW,LOCD) 

& + FLOr1T(JSIG) :100 .0 

C 

GfJ TO 500 

470 IERR1=IEF.R1 + 1 . 

GO TO 500 

480 IERR2 .1ERR2 + 1 

GO TO 500 

490 IERR3=IERR3 + 1 

GO TO 500 

495 1ERR4=IERR4 + 1 

GO TO 500 

497 IERR5=IERR5 + 1 

C 

500 CONTINUE 

ICODE=1 

ITER=ITER-1 

GO TO 610 

600 CONTINUE 

ITER = ITER-1 

610 CALL REPORT(ITER) 

C 

i'a: .L STAT2(SIGSiTh1,RNTS,ISIGAtA) 

C CALL STAT(SIGSU^".,KidTS,ISIGMA,AVG,VAR,DEV,RAUG E ) 

C CALL GUTPUT(KNTS,AVG,VAR,DEV,RAi1GE) 

C 

GO TO 999 

800 WRITE(3,810) ISTPKE,IETIME 

810 FORMAT(//1X,'LESS THAN ONE MONTH DATA REQUESTED, EXECUTION TERMINATED', 

&/,'FIRST DATE= ',I4,' SECOND DATE= ',i4) 

999 STOP 

END 

C 

C 

C 

BLOCK DATA 

C 

COMMON /ONE/ SIGSUM(10,8,4),KNTS(10,8,4),ISIGMA(10,8,4,2000), 

& VAR(10,8,4),DEV(10,8,4),RANGE(10,8,4),AVG(10,8,4),ISUM(10,8) 

COMMON /TWO/ IERR1,IERR2,IERR3,IERR4,IERR5,ICODE 

1-78 

._ ....~ ~ . ..•.. . „ .,_ .• . . . . . . . . .. _._.. . ~. . . .

~ WFSCM - NECE Program DENSTAT 

~ 

~ 

; 

~ COMMON /TRE/ ISTIME,IETIME 

~ C ' 

INTEGER*2 ISI" 

DATA SIGSUM /320 40 .0t, VAR/320 *0 .0/,DEV/320 * 0 .0/,RANGE/320#0 .0/ 

DATA KNTS /320i;0/, AVG/320*0.0/ 

DATA ISIG?iA /64C000*0/ 

DAT A IEfiR1,IEP.R2,IERR3,IEP.R'-i,IERR5,ICODE /6 *0/ 

DATA ISGr•i /80 00/ 

DATA ISTIICE, IETIME /0401,0930/ 

END 

C 

C ae~ af •rr f. f~~ .~ s* 

C 

SUBROUTINE LOCATE(LAT,LONG,LOCN,LOCW) 

C 

C ESTaBLISHr.S GRID LOCATION BASED 04I LATITUDE AND LONGITUDE 

C 

CALL CONVRT(LAT,DEGN) 

CALL CONVRT(LONG,DE ;,W) 

C 

C 25 DEGREES IS MINIMUM LATITUDE, 30 IS MAX . . . 

A=25 .0 

DO 30 I_1,10 

B=A+0 .5 

IF(DEGN GE . A .AND . DEGN LT . B) GO TO 50 

A =B 

30 CONTINUE 

C 

C DATA POINT OUT OF GEOGRAPHIC RANGE, ASSIGN ERROR VALUE TO LOCN 

LOCN=99 

RETURN 

C 

50 LOCN = I 

C 85 DEGREES IS MAXIMUM LONGITUDE, 81 IS MIN . . . 

A=85 .0 . 

DO 60 J=1,8 

Bz A-0 .5 

IF(DEGW LE . A .AND. DEGW GT. B) GO TO 70 

A=B 

60 CONTINUE 

C 

C DATA POINT OUT OF GF,OGRAPHIC RANGE, ASSIGN EPROR VA :,UE TO LOCW 

LOCW=99 

RETURN 

C 

70 LOCW=J 

C 

C REPORT LOCN & LOCW AS GRID LOCATIONS OF THIS DATA POINT . . . 

1-79 

k

- --o• am +rr.lvJTAT 

RETURN 

END 

C 

C 

C 

SULROUTIi'E CONVRT(IP7TEG,DEG) 

C 

C CONVERTS INTEGER DEGREES & MINUTES (16) TO DECIMAL DEGREES 

C 

NhEG - INTEG/100J 

MIN = INTEG - NDEG*1000 

DEG = FLOAT(NDEG) + FLOAT(MIN)/600 .0 

RETURN 

END 

C a~r ~r# +~+~# r~ ~tes rf f~e# 

C 

SUBROUTINE ALFNUM( ALF, NT,IM) 

C 

C CONVEZTS AN ALPHANUMERIC VALUE TO INTEGER 

C 

INTEGER A(10) 

IN"TEGER D(10) 

INTEGER B /' ' l 

INTEGER ALF(4),IN'!'EG(4) 

C 

DO 100 I=1,4 

DO 50 J=1,10 

IF( ALF(I) NE . D(J) ) GO TO 50 

INTEG(I) = J-1 

GO TO 100 

50 CONTINUE 

C IF(I .?'E. 4) GO TO 90 

C CHECK LAST CFS RACTER FOR 11 OVEP.PUNCH & TRANSLATE 

C DO 60 F=1,10 

C IF(ALF(I) NB . A(fi)) GO TO 60 

C INTEG(I)-K-1 

C GO TO 100 

C 60 CONTINUE _ 

90 IF( ALF(I) .ttE . B) GO TO 200 

INTEG(I) = 0 

100 CINTINUE 

C 

NUM = 1000*INTEG(1)+100*INTEG(2)+10*INTEG(3)+INTEG(4) 

RETURN 

C 

C ORIGINAL VALUE WAS NOT NUMBER, REPORT ERROR CODE . . . 

200 NUM=9999 

RETURN 

1-80 

WFSCM - t EECE

k 

~ WFSCM - AiECE Program DENSTAT 

[ END 

C 

C 0*• iIF 0 

C 

SUBROUTYtvE DEEPS(JDEP,LD) 

C 

C DF•.TER!fINES W.HERE IN DEPTH RANGE THIS DATA POINT LIES . ASSIGNS 

C DATA POINT TO A DEPTH CP_TEGORY FROM ONE (SHALLOW) TO FIVE (OVER 

C 100 M . DEPTH) . 

C 

INTEGER A,B 

A=0 

C 

DO 100 I=1,k 

B = A + ".0 

IF(I EQ . 4) B=100 

IF(JDEP GE . A .AND . JDEP LT . B) GO TO 150 

A-B 

100 CONTINUE 

C 

C DEPTH IS GREATER THAN 100 M . 

L D-=5 

RETURN 

C 

150 LD-I 

RETURN 

END 

C 

C 

SUBROUTINE REPORT(ITER) 

C 

C REPORTS ERRORS IN PROCESSING AT TOP OF PRINTOUT 

C 

COM0N /TWO/ IERR1,IERR2,IERR3,IERRk,IERR5,ICODE 

C 

IF(ICODE EQ . 0) WRITE(3,5) ITER 

IF(ICODE EQ . 1) WRITE(3,7) ITER 

5 FORP4AT(//'1','END OF FILE AFTER ',I6,' RECORDS') 

7 FORMAT(//1X,'NORMAL TERMINATION AFTER ',I6,' RECORDS', 

&/1X,'END OF FILE NOT REACHED') 

WP,ITE(3,10) IERR1 

10 FORMAT(//1X,I6,' DATA POINTS WERE OUT OF GEOGRAPHIC RANGE') 

WRITE(3,20) IERR2 

20 FORMAT(1X,I6,' DATA POINTS REFERRED TO GARBLED DEPTHS') 


30 FORMAT(1X,I6,' DATA POINTS REFERRED TO GARBLED SIGMA TEE VALUES') 


35 FORMAT(1X,I6,' DATA POINTS WERE BELOW 100 METRES DEPTH') 

1-81

~ 

Program DELISTAT KFSCM - NECE 

v 

~ WRITE(3,37) IERR5 

r 37 FVRtLYT (1 X, I6, 1 DATA POItdPS FTE'rE t.OT IN DESIRED TIME SPAR') 

IT 3',"-IE AR1+IE RR2+IE RR3+IEARii+IERR5 

~ idRITE(3,40) ITO'r 

40 FORrff:T(1X,I6,' TOTF.t.. VAL'u S G.Tt-RE ?:0T COUNTED IN T'rIIS CO!~ILATION' ) 

C 

RETLFFIN 

END 

C 

C aaa ~a a~o aa aaa ~sa a#a 

C 

StTUROISTIiSE STAT(SIGSM1,f0.tS,ISIa-33A,AVG,VAR,DEV,RhFIGE) 

C 

C COtTCTES ELEMMH: STATISTICS C K ACCMIU LATED DATA VALUES . 

C 

REAL SIu^SUPi(10,8,4),AVG(10,8,4), 

& VAR(10,8,4),DEV(10,8,4),Ri.NoE(10,8,4) 

ItTPEGEFa2 ISIGtifl(10,8,4,2000) 

IN2'EGER Y•tiTS(10,8,4) 

C 

DO 200 Js1,10 

DO 180 K=1,8 

DO 160 Lm1,4 

C 

IF(f0i'TS(J,K,L) .LT . 1) GO TO 120 

AVG(J,IC,L) = SIGSiJM(J,K,L)/FL0AT(KNTS(J,K.,L)) 

GO TO 125 

120 F.VG(J,R,L) = 0 .0 

125 COLZ iialE 

SIC4T" = 100 .0 

SIGiAX = 0 .0 

SS = 0 .0 

IEND - KiI'PS(J,C,L) 

IF(IEND EQ. 0) IEND_1 

C 

DO 140 M-1,IEND 

SIGM = ISIGMA(J,K,L,R4)/100 .0 

SS = SS + (SIG!A.A - AVG(J,K,L))aa2 

SIGmn,X - AMlAX1(SIGFiAX,SIGV7A) 

SIGMIta = AN',IN1(SIGYjIN,SIG'iA) 

140 CONTINUE 

C . 

IF(Kh;S(J,K,L) LE . 1) GO TO 145 

VAR(J,K,L) = SS/(KNTS(J,K,L)-i) 

G0 TO 150 

145 VAR(J,K,L) = 0 .0 

150 DEV(J,K,L) = SQRT(VAR(J,K,L)) 

RAliGE(J,K,L)= SIGMAX-SIMIN 

1-82

~ WFSCM - NECE Program DENSTAT 

~ 

i C 

t 160 COidTINUE 

1 180 C013Ti'NL'E 

200 CONTINUE 

C 

RETU Rid 

END 

C 

C 

C 

SUBIOUTINE OUTPUT(It'NTS,AVG,'JAR,DEC,RANGE) 

C 

C 4r'RITc.S SUMhYARY OF DATA IN TABULAR FORM, BY DEPTH 

C 

COMMON /TRE/ ISTIPC-, IETI!-!E 

REAL SIGSG?9(10,8,4),ANC(10,8,4), 

& VGR(10,8,4),DEV(10,8,4),RANGE(1o,8,4) 

INTEGER KiiTS(10,8,4) 

INTEGER A,B 

C 

A=O 

DO 200 L_1,4 

B = A + 10 

IF(L EQ . 4) B-100 

C IF(L EQ . 5) GO TO 15 

idRITE(3,10) A,B 

10 FORIa,AT(//'i','STATISTICS OY SIGMATEE FOR DEPTH3 LL'TWEEN ', 

& I6,' AND',I6,' M ETRES') 

C GO TJ 20 

C 15 t7RIT_E(3,17) 

C 17 FORMAT( / .'1X,'STFiTISTICS ON SIGMATEE FOR DEPTHS GREATER THAN 10311 

C & ' tE•;TRES' ) 

C 20 CONTINLE 

C 

J=11 

DO 180 J1=1,10 

J=J-1 

KRITE(3,80) (AVG(J,K,L), K=1,8) 

WRITE(3,82) (VAR(J,K,L), K=1,8) 

W'RITE(3,84) (DEV(J,K,L), iC=1,8) 

WRITE(3,86) (RArTGE(J,Y.,L), IC=1,8) 

WRITE(3,88) (KNTS(J,K,L), K=1,8) 

80 F0Rw4T(/1X,'MEAN', T15,8F8 .2) 

82 FORi•;AT(1X,'VARIANCE', T15,8F8 .2) 

84 FORFtAT(1X,'STD . DEV .',T15,8F8 .2) 

86 FOP,tUT(1X,'RANGL' , T15,8F8 .2) 

R$ hORMAT(1X,'N0 : OBS .', T15,8I8) 

C 

1-83 

. .~-vr . .~. ~ .. .__ .__~._ . . . ._ . . _. . .. . . . . . . . . _ . . ._ ._~~_..v ... .w. ..e~wi~+4s.AftA~4..^1w.'A.!~'~SL 

• ' ~ :a. . +.~ ... . . . . . _ . . . . . . ~ ._ . .r . . _. ~ .. ..._.J. . . . ...~._. . . . ._ ~ .. . . . . . . 

.~ . . . . . . . . . . .. ._ . . . . . . . . . ._ . .__ ._ . . . . . ._ . . . .~-- . . . ..- . ._•--s,..~ .^ _ 

. . • ~ . . . - . . . 

. _, .t .~ .. ~ - r : ;` 

. . . ~ ' J ~

. . :~, 

Program DENSTAT WftSCM - NECE 

C 

C 

C 

C 

C 

180 CONTINUE 

A=B 

200 CONTItiUE 

RETURN 

END 

SUBROUTINE SL~~:,`R (ISUM) 

INTEGER ISUM. (10,8) 

i:RITE(3,10) 

10 FOr^,Mt.T(//11i,'IiU.'•iâER OF SLF'dC-R SIGNA-T OBS IN EACH SQUPiRE',//) 

J=11 

DO 200 L0CN=1,'t0 

JcJ-1 

WRITE(3,20) (IS%i(J,LOCid), LOCE1=1,8) 

20 FORMAT(/1X,'N0 . OIIS .',T15,8I8) 

200 CONTINtTE 

RET(SRN 

END 

SUBRO*JTIP:E STAT2 (SIGStIlS, KNTS, ISIG4A-) 

C 

C CAMPL'TES Ei.E~i.'~' .f:TARY STATISTICS ON ACCOMULATED DATA VALOES . 

C ACCi3KULATr.S DATA FROM EACH DEPTH LAYER ABOVE LAYER 4 . 

C 

REAL SIGS(FM(10,8,4),AVG1(10,8),VAR1(10,8) .DEV1( .10,8),RNG1(10,8) 

BuSLTMt(10, 8 ) 

INTEGER TNTS(10,8,4) 

INTEGyRee ISI~iA 

DItSNSION ISIGE•M(10,8,4,2000) 

ItJTEG3R N('ia,8) 

C 

DO 200 L_ i ,'! 

DO 180 K=1,8 

DO 160 Ja1,10 

C 

C -COMPDTES INDIVIDUAL STATISTICS ON SURFACE AND BOT"'OM LAYERS, 

C L'IfiR7LATIVE STATISTICS FROM SURFACE TO BOTTOM OF LAYER 3 . 

IF(L .EQ . -2 OR . L .EQ . 4) GO TO 50 

N(J,R) o KNTS(J,K,L) 

SUM(J,K)=SIGSL'H(J,K,L) 

GO TO 60 

50 N(J,K) c N(J,R) + $t~'TS('J,G,L) 

SUM(J,K) = SUM(J,K) + SIGSUM(J,K,L) 

60 IF(N(J,K) LT . 1) GO TO 120 

AVG1(u',K) = SUtt(J,K`/FLOAT(N(J,K)) 

I-84 

3 

. .

i 

WFSCM _ NECE 

C 

C 

C 

C 

GO TO 125 

120 AVG1(J,K) = 0 .0 

125 COF'TItdU3 

SIGtiIN = 100 .0 

SIGMAX = 0 .0 

Ss = 0 .0 

DO 142 I1=1,L 

IEND = KNTS(J,K,L) 

IF(IEND EQ . 0) IEND=1 

DO 140 M=1,IEND 

SIGMA = ISIGt;A(J,K,L,M)/100 .0 

SS = SS + (SIGMA - AVG1(J,K))**2 

SIG!4AX = AMAX1(SIGKI X,SIGMA) 

SIGP;IN = k1IN1(SIGMIN,SIGMA) 

140 COt:TINUE 

142 C0NTINUE 

IF(ti(J,K) LE . 1) G0 TO 145 

VAR1(J,K) = SS/FLOAT(N(J,K)-1) 

GO TO 150 

145 VAR1('J,K) = 0 .0 

150 DEV1(J,K) = SQRT(VAR1(J,K)) 

RNG1(J,K) = SIGMAX-SIGMIN 

160 CONTINUE 

180 C0j%"TINJE 

CALL RITER(AVG1,VAR1,DEV1,RNG1,N,L) 

C 

200 CONTINUE 

C 

RETURN 

END 

C **• *s s** •* s*• ** w• 

C 

SUBROUTINE RITER(AVG1,VAR1,DEV1,RNG1,N,L) 

C 

C WRITES SUMMARY OF CUMULATIVE STATS IN TABULAR FORM, BY .DEPTH 

C 

CO-111NON /TRE/ ISTIME,IETIME 

REAL AVG1(10,8),VAR1(10,8),DEV1(10,8),RNG1(10,8) 

INTEGER A,B,N(10,8) 

WRITE(3,5) ISTIME,IETIME 

5 FORMAT(//1X,'FOR MONTHS BEGINNING : ',I4,',"AND ENDING : ',I4) 

A=O 

1-85 

Program DENSTAT

Program DEMSTAT 

B= 0 10 

IF(L .F,Q. 4) A =30 

IF(L .EQ . 4) B-100 

C IF(L .EQ . 5) GO TO 15 

kRITi:(3,16) A ,B 

10 FC}";i'nT(i/1X,'ST:^:I3TIGS 0?: °IC:RE.T?E FOR DLPTè1.S r;':;TwEElC ', 

& Ifi,' AP:D', I6,' F?':TRES' ) 

C 

J:11 

DO 100 J1 z 1,10 

JZJ-1 

I V i',?`:G(3,8C) ) WGi(o,X), tC-1,8) 

idlif':'E(3,82) (CAf;1(J,F), R= 1,8) 

kRITE(3,84) ( Df":1(J,E~)s E:1,8) 

Ml ITE(3,86) ( Rti^v1(J,E), R :1,8) 

b'RITa( 1 . 88 ) (*I(J, K), K_1,8) 

80 r 0

WEN - Ho SdPl 

H: . ::) 0 jiva .,o M .M .,a1a 

n .w ,r - ~ 

J .+,a 1 ~ 

a! 

Ivu) J o a 'i 

L8-I 

ZYZSrua M£•t v atd

The Department of the Interior Mission 

As the Nation's principal conservation agency, the Department of the Interior has responsibility 

for most of our nationally owned public lands and natural resources. This includes fostering 

sound use of our land and water resources; protecting our fish, wildlife, and biological diversity; 

preserving the environmental and cultural values of our national parks and historical places; 

and providing for the enjoyment of life through outdoor recreation. The Department assesses 

our energy and mineral resources and works to ensure that their development is in the best 

interests of all our people by encouraging stewardship and citizen participation in their care. 

The Department also has a major responsibility for American Indian reservation communities 

and for people who live in island territories under U.S. administration. 

The Minerals Management Service Mission 

As a bureau of the Department of the Interior, the Minerals Management Service's (MMS) 

primary responsibilities are to manage the mineral resources located on the Nation's Outer 

Continental Shelf (OCS), collect revenue from the Federal OCS and onshore Federal and Indian 

lands, and distribute those revenues. 

Moreover, in working to meet its responsibilities, the Offshore Minerals Management Program 

administers the OCS competitive leasing program and oversees the safe and environmentally 

sound exploration and production of our Nation's offshore natural gas, oil and other mineral 

resources. The MMS Minerals Revenue Management meets its responsibilities by ensuring the 

efficient, timely and accurate collection and disbursement of revenue from mineral leasing and 

production due to Indian tribes and allottees, States and the U.S. Treasury. 

The MMS strives to fulfill its responsibilities through the general guiding principles of: (1) being 

responsive to the public's concerns and interests by maintaining a dialogue with all potentially 

affected parties and (2) carrying out its programs with an emphasis on working to enhance the 

quality of life for all Americans by lending MMS assistance and expertise to economic 

development and environmental protection.

Southwest Florida Shelf Circulation Model Volume 2. Model ...

Create successful ePaper yourself

Delete template?

Save as template?