File |
Line number |
Procedure |
Code |
./pkg/salt_plume/salt_plume_frac.F |
113 |
SALT_PLUME_FRAC |
tempN20 = one |
./pkg/salt_plume/salt_plume_frac.F |
116 |
SALT_PLUME_FRAC |
tempN20 = dd20*tempN20 |
./pkg/salt_plume/salt_plume_frac.F |
119 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,two/dd20*facz-tempN/tempN20) |
./pkg/salt_plume/salt_plume_frac.F |
123 |
SALT_PLUME_FRAC |
& + tempN/tempN20) |
./pkg/salt_plume/salt_plume_frac.F |
64 |
SALT_PLUME_FRAC |
_RL one, two, three, tempN, tempN20 |
./pkg/salt_plume/salt_plume_frac.F |
75 |
SALT_PLUME_FRAC |
tempN20 = one |
./pkg/salt_plume/salt_plume_frac.F |
78 |
SALT_PLUME_FRAC |
tempN20 = dd20*tempN20 |
./pkg/salt_plume/salt_plume_frac.F |
80 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,tempN/tempN20) |