| File |
Line number |
Procedure |
Code |
|
./pkg/kpp/kpp_calc.F |
410 |
KPP_CALC |
temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj) |
|
./pkg/kpp/kpp_transport_s.F |
101 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./pkg/kpp/kpp_transport_s.F |
117 |
KPP_TRANSPORT_S |
& + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst |
|
./model/src/do_oceanic_phys.F |
200 |
DO_OCEANIC_PHYS |
saltPlumeFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/salt_plume/SALT_PLUME.h |
114 |
NO PROCEDURE |
COMMON /FFIELDS_saltPlumeFlux/ saltPlumeFlux |
|
./pkg/salt_plume/SALT_PLUME.h |
95 |
NO PROCEDURE |
_RL saltPlumeFlux (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/salt_plume/salt_plume_diagnostics_fill.F |
38 |
SALT_PLUME_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL( saltPlumeFlux, |
|
./pkg/salt_plume/salt_plume_do_exch.F |
40 |
SALT_PLUME_DO_EXCH |
_EXCH_XY_RL( saltPlumeFlux, myThid ) |
|
./pkg/salt_plume/salt_plume_forcing_surf.F |
73 |
SALT_PLUME_FORCING_SURF |
& - saltPlumeFlux(i,j,bi,bj) * mass2rUnit |
|
./pkg/salt_plume/salt_plume_init_varia.F |
42 |
SALT_PLUME_INIT_VARIA |
saltPlumeFlux (i,j,bi,bj) = 0. _d 0 |
|
./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 |
145 |
SALT_PLUME_TENDENCY_APPLY_S |
plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J) |
|
./pkg/salt_plume/salt_plume_volfrac.F |
149 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=saltPlumeFlux(i,j,bi,bj)/SPbrineSconst |
|
./pkg/seaice/seaice_growth.F |
1994 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
1999 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2041 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
2057 |
SEAICE_GROWTH |
saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
2079 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj)= |
|
./pkg/seaice/seaice_growth.F |
2085 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
2091 |
SEAICE_GROWTH |
& saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_tracer_phys.F |
212 |
SEAICE_TRACER_PHYS |
saltPlumeFlux(I,J,bi,bj) = MAX(ZERO,saltFlux(I,J,bi,bj)) |
|
./pkg/thsice/thsice_salt_plume.F |
64 |
THSICE_SALT_PLUME |
saltPlumeFlux(i,j,bi,bj) = 0. _d 0 |
|
./pkg/thsice/thsice_salt_plume.F |
70 |
THSICE_SALT_PLUME |
saltPlumeFlux(i,j,bi,bj) = |