| File |
Line number |
Procedure |
Code |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
40 |
SALT_PLUME_TENDENCY_APPLY_S |
_RL plumekb(two2), SPdepth(two2), minusone |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
47 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(1)=abs(rF(klev)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
48 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=abs(rF(klev+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
53 |
SALT_PLUME_TENDENCY_APPLY_S |
U plumekb, |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
58 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=abs(rF(klev)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
61 |
SALT_PLUME_TENDENCY_APPLY_S |
plumefrac(I,J) = plumekb(1)*maskC(i,j,klev,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
62 |
SALT_PLUME_TENDENCY_APPLY_S |
& -plumekb(2)*maskC(i,j,kp1, bi,bj) |