| File |
Line number |
Procedure |
Code |
|
./pkg/salt_plume/salt_plume_apply.F |
153 |
SALT_PLUME_APPLY |
plumetend(i,j,k) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_apply.F |
210 |
SALT_PLUME_APPLY |
plumetend(i,j,k) = ConvertFac * |
|
./pkg/salt_plume/salt_plume_apply.F |
212 |
SALT_PLUME_APPLY |
IF(k.eq.1) plumetend(i,j,k) = ConvertFac * |
|
./pkg/salt_plume/salt_plume_apply.F |
225 |
SALT_PLUME_APPLY |
SPforcingS(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
228 |
SALT_PLUME_APPLY |
SPforcingT(i,j,k,bi,bj)=plumetend(i,j,k) |
|
./pkg/salt_plume/salt_plume_apply.F |
235 |
SALT_PLUME_APPLY |
& CALL DIAGNOSTICS_FILL(plumetend, diagName, 0,Nr,2,bi,bj,myThid) |
|
./pkg/salt_plume/salt_plume_apply.F |
250 |
SALT_PLUME_APPLY |
& plumetend(i,j,k)=SPforcingT(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
252 |
SALT_PLUME_APPLY |
plumetend(i,j,k)=SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_apply.F |
77 |
SALT_PLUME_APPLY |
_RL plumetend(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
107 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
109 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
111 |
SALT_PLUME_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
115 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
145 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
147 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(i,j) = SPforcingS(i,j,k,bi,bj) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
149 |
SALT_PLUME_TENDENCY_APPLY_S |
gS_arr(i,j) = gS_arr(i,j) + plumetend(I,J) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
153 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
164 |
SALT_PLUME_TENDENCY_APPLY_S |
& plumetend,'oceSPtnd',k,1,2,bi,bj,myThid ) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
55 |
SALT_PLUME_TENDENCY_APPLY_S |
_RL plumetend(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |