forked from nick-klingaman/mckpp
-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathproc_swit.com
More file actions
20 lines (17 loc) · 824 Bytes
/
Copy pathproc_swit.com
File metadata and controls
20 lines (17 loc) · 824 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
LOGICAL LKPP , LRI, LDD, LICE, LBIO, LNBFLX, LTGRID, LRHS,
& lsaveaverages,L_STRETCHGRID,lrepeatdat,
& lradtq,lfluxSSTdat,
& lLWupSSTdat,lrhdat,lclddat,L_EKMAN_PUMP,
& L_BARRIER_REMOVE,L_BARRIER_SALISO,L_BARRIER_SALVAVG,
& L_NO_EGTP
INTEGER barrier_ifirst,barrier_ilast,
& barrier_jfirst,barrier_jlast
REAL barrier_subdepth,barrier_dT
common/ proc_swit / LKPP , LRI, LDD, LICE, LBIO, LNBFLX, LTGRID,
& LRHS,
& lsaveaverages,L_STRETCHGRID,lrepeatdat,
& lradtq,lfluxSSTdat,
& lLWupSSTdat,lrhdat,lclddat,L_EKMAN_PUMP,
& L_BARRIER_REMOVE,L_BARRIER_SALISO,L_BARRIER_SALVAVG,
& L_NO_EGTP,barrier_subdepth,barrier_dT,barrier_ifirst,
& barrier_ilast,barrier_jfirst,barrier_jlast