| File |
Line number |
Procedure |
Code |
|
./pkg/salt_plume/salt_plume_frac.F |
114 |
SALT_PLUME_FRAC |
So = one |
|
./pkg/salt_plume/salt_plume_frac.F |
117 |
SALT_PLUME_FRAC |
So = dd20*So |
|
./pkg/salt_plume/salt_plume_frac.F |
119 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
125 |
SALT_PLUME_FRAC |
So = recip_expOneM1 !So = exp(one)-one |
|
./pkg/salt_plume/salt_plume_frac.F |
126 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S*So) |
|
./pkg/salt_plume/salt_plume_frac.F |
135 |
SALT_PLUME_FRAC |
So=dd20-dd |
|
./pkg/salt_plume/salt_plume_frac.F |
138 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
160 |
SALT_PLUME_FRAC |
So = 1. _d 0/dd20 |
|
./pkg/salt_plume/salt_plume_frac.F |
163 |
SALT_PLUME_FRAC |
So = zero |
|
./pkg/salt_plume/salt_plume_frac.F |
166 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two*So*facz-S) |
|
./pkg/salt_plume/salt_plume_frac.F |
169 |
SALT_PLUME_FRAC |
& three*So*facz - three*So*So*facz*facz + S) |
|
./pkg/salt_plume/salt_plume_frac.F |
173 |
SALT_PLUME_FRAC |
So = one |
|
./pkg/salt_plume/salt_plume_frac.F |
176 |
SALT_PLUME_FRAC |
So = dd20*So |
|
./pkg/salt_plume/salt_plume_frac.F |
179 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two/dd20*facz-S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
182 |
SALT_PLUME_FRAC |
& three/dd20*facz - three/(dd20*dd20)*facz*facz + S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
77 |
SALT_PLUME_FRAC |
_RL one, two, three, S, So, zero |