| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_step_fwd.F |
133 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_step_fwd.F |
286 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
352 |
THSICE_STEP_FWD |
sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j) |
|
./pkg/atm2d/ATM2D_VARS.h |
198 |
NO PROCEDURE |
& pass_sIceLoad, sFluxFromIce |
|
./pkg/atm2d/ATM2D_VARS.h |
210 |
NO PROCEDURE |
_RL sFluxFromIce(1-OLx:sNx+OLx,1-OLy:sNy+OLy) ! upward salt flux->ocean (psu.kg/m^2/s) |
|
./pkg/atm2d/init_atm2d.F |
354 |
INIT_ATM2D |
sFluxFromIce(i,j)= 0. _d 0 |
|
./pkg/atm2d/put_ocnvars.F |
61 |
PUT_OCNVARS |
SaltFlx_ocn(i,j) = sFluxFromIce(i,j) |
|
./pkg/atm2d/put_ocnvars.F |
81 |
PUT_OCNVARS |
saltFlux(i,j,1,1)= sFluxFromIce(i,j) |