File |
Line number |
Procedure |
Code |
./pkg/salt_plume/salt_plume_frac.F |
102 |
SALT_PLUME_FRAC |
dd20 = (abs(SPDepth(i))) |
./pkg/salt_plume/salt_plume_frac.F |
104 |
SALT_PLUME_FRAC |
IF ( dd20 .GT. zero ) THEN |
./pkg/salt_plume/salt_plume_frac.F |
105 |
SALT_PLUME_FRAC |
S = (facz/dd20) |
./pkg/salt_plume/salt_plume_frac.F |
117 |
SALT_PLUME_FRAC |
So = dd20*So |
./pkg/salt_plume/salt_plume_frac.F |
133 |
SALT_PLUME_FRAC |
dd20 = (abs(SPDepth(i))) |
./pkg/salt_plume/salt_plume_frac.F |
134 |
SALT_PLUME_FRAC |
dd = dd20/SPovershoot |
./pkg/salt_plume/salt_plume_frac.F |
135 |
SALT_PLUME_FRAC |
So=dd20-dd |
./pkg/salt_plume/salt_plume_frac.F |
137 |
SALT_PLUME_FRAC |
IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN |
./pkg/salt_plume/salt_plume_frac.F |
146 |
SALT_PLUME_FRAC |
dd20 = one |
./pkg/salt_plume/salt_plume_frac.F |
147 |
SALT_PLUME_FRAC |
IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN |
./pkg/salt_plume/salt_plume_frac.F |
154 |
SALT_PLUME_FRAC |
dd20 = (abs(SPDepth(i))) |
./pkg/salt_plume/salt_plume_frac.F |
156 |
SALT_PLUME_FRAC |
IF ( dd20 .GT. zero ) THEN |
./pkg/salt_plume/salt_plume_frac.F |
157 |
SALT_PLUME_FRAC |
S = (facz/dd20) |
./pkg/salt_plume/salt_plume_frac.F |
160 |
SALT_PLUME_FRAC |
So = 1. _d 0/dd20 |
./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 |
72 |
SALT_PLUME_FRAC |
_RL facz, dd, dd20 |