File |
Line number |
Procedure |
Code |
./pkg/salt_plume/salt_plume_frac.F |
112 |
SALT_PLUME_FRAC |
tempN = one !input depth temp |
./pkg/salt_plume/salt_plume_frac.F |
115 |
SALT_PLUME_FRAC |
tempN = facz*tempN !raise to the Npower+1 |
./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 |
74 |
SALT_PLUME_FRAC |
tempN = one !input depth temp |
./pkg/salt_plume/salt_plume_frac.F |
77 |
SALT_PLUME_FRAC |
tempN = facz*tempN !raise to the Npower+1 |
./pkg/salt_plume/salt_plume_frac.F |
80 |
SALT_PLUME_FRAC |
plumek(i) = one - min(one,tempN/tempN20) |