| File |
Line number |
Procedure |
Code |
|
./pkg/salt_plume/salt_plume_frac.F |
105 |
SALT_PLUME_FRAC |
S = (facz/dd20) |
|
./pkg/salt_plume/salt_plume_frac.F |
116 |
SALT_PLUME_FRAC |
S = facz*S !raise to the Npowerloc+1 |
|
./pkg/salt_plume/salt_plume_frac.F |
124 |
SALT_PLUME_FRAC |
S = exp(facz/dd)-one |
|
./pkg/salt_plume/salt_plume_frac.F |
136 |
SALT_PLUME_FRAC |
S =facz-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 |
147 |
SALT_PLUME_FRAC |
IF( (facz.GE.dd).AND.(facz.LT.dd20) ) THEN |
|
./pkg/salt_plume/salt_plume_frac.F |
157 |
SALT_PLUME_FRAC |
S = (facz/dd20) |
|
./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 |
175 |
SALT_PLUME_FRAC |
S = facz*S !raise to the Npower+1 |
|
./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 |
|
./pkg/salt_plume/salt_plume_frac.F |
85 |
SALT_PLUME_FRAC |
facz = abs(fact*plumek(i)) |
|
./pkg/salt_plume/salt_plume_frac.F |
98 |
SALT_PLUME_FRAC |
IF (SPDepth(i).GE.facz .and. SPDepth(i) .GT. zero) THEN |
|
./model/src/swfrac.F |
101 |
SWFRAC |
facz = fact*swdk(i) |
|
./model/src/swfrac.F |
102 |
SWFRAC |
IF ( facz .LT. -200. _d 0 ) THEN |
|
./model/src/swfrac.F |
105 |
SWFRAC |
swdk(i) = rfac(jwtype) * exp( facz/a1(jwtype) ) |
|
./model/src/swfrac.F |
106 |
SWFRAC |
& + (1. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) ) |
|
./model/src/swfrac.F |
62 |
SWFRAC |
_RL facz |