| File |
Line number |
Procedure |
Code |
|
./pkg/salt_plume/SALT_PLUME.h |
108 |
NO PROCEDURE |
& ,SPbrineVolFlux,SPforcS1,SPforcT1 |
|
./pkg/salt_plume/SALT_PLUME.h |
97 |
NO PROCEDURE |
_RL SPbrineVolFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/salt_plume/salt_plume_apply.F |
198 |
SALT_PLUME_APPLY |
gTr_totSurf2Below = SPbrineVolFlux(i,j,bi,bj)*SurfVal |
|
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
42 |
SALT_PLUME_DIAGNOSTICS_FILL |
& SPbrineVolFlux,'oceSPvol',0,1,0,1,1,myThid ) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
58 |
SALT_PLUME_FORCING_SURF |
SPforcS1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
60 |
SALT_PLUME_FORCING_SURF |
SPforcT1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_init_varia.F |
44 |
SALT_PLUME_INIT_VARIA |
SPbrineVolFlux (i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/salt_plume_volfrac.F |
150 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj)=dMbdt(i,j)*mass2rUnit |
|
./pkg/salt_plume/salt_plume_volfrac.F |
159 |
SALT_PLUME_VOLFRAC |
dSPvolSurf2kLev(i,j,k,bi,bj)=dplumek*SPbrineVolFlux(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
86 |
SALT_PLUME_VOLFRAC |
SPbrineVolFlux(i,j,bi,bj) = 0. _d 0 |