| File |
Line number |
Procedure |
Code |
|
./pkg/salt_plume/salt_plume_frac.F |
115 |
SALT_PLUME_FRAC |
So = one |
|
./pkg/salt_plume/salt_plume_frac.F |
118 |
SALT_PLUME_FRAC |
So = dd20*So |
|
./pkg/salt_plume/salt_plume_frac.F |
120 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
126 |
SALT_PLUME_FRAC |
So = recip_expOneM1 !So = exp(one)-one |
|
./pkg/salt_plume/salt_plume_frac.F |
127 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S*So) |
|
./pkg/salt_plume/salt_plume_frac.F |
136 |
SALT_PLUME_FRAC |
So=dd20-dd |
|
./pkg/salt_plume/salt_plume_frac.F |
139 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
161 |
SALT_PLUME_FRAC |
So = 1. _d 0/dd20 |
|
./pkg/salt_plume/salt_plume_frac.F |
164 |
SALT_PLUME_FRAC |
So = zero |
|
./pkg/salt_plume/salt_plume_frac.F |
167 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two*So*facz-S) |
|
./pkg/salt_plume/salt_plume_frac.F |
170 |
SALT_PLUME_FRAC |
& three*So*facz - three*So*So*facz*facz + S) |
|
./pkg/salt_plume/salt_plume_frac.F |
174 |
SALT_PLUME_FRAC |
So = one |
|
./pkg/salt_plume/salt_plume_frac.F |
177 |
SALT_PLUME_FRAC |
So = dd20*So |
|
./pkg/salt_plume/salt_plume_frac.F |
180 |
SALT_PLUME_FRAC |
plumek(i) = max(zero,two/dd20*facz-S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
183 |
SALT_PLUME_FRAC |
& three/dd20*facz - three/(dd20*dd20)*facz*facz + S/So) |
|
./pkg/salt_plume/salt_plume_frac.F |
78 |
SALT_PLUME_FRAC |
_RL one, two, three, S, So, zero |