File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_calc_thickn.F |
1027 |
THSICE_CALC_THICKN |
fsalt(i,j) = (msalt0(i,j) - rhoi*hIce(i,j)*saltIce)/dt |
./pkg/thsice/thsice_calc_thickn.F |
1033 |
THSICE_CALC_THICKN |
& evapLoc(i,j),frw2oc(i,j),fsalt(i,j) |
./pkg/thsice/thsice_calc_thickn.F |
1075 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+extend/rqh*salte |
./pkg/thsice/thsice_calc_thickn.F |
1082 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+salte |
./pkg/thsice/thsice_calc_thickn.F |
1112 |
THSICE_CALC_THICKN |
& icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j) |
./pkg/thsice/thsice_calc_thickn.F |
1129 |
THSICE_CALC_THICKN |
I flx2oc(i,j), frw2oc(i,j), fsalt, |
./pkg/thsice/thsice_calc_thickn.F |
130 |
THSICE_CALC_THICKN |
_RL fsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/thsice/thsice_calc_thickn.F |
16 |
THSICE_CALC_THICKN |
O frw2oc, fsalt, frzSeaWat, |
./pkg/thsice/thsice_check_conserv.F |
11 |
THSICE_CHECK_CONSERV |
I qleft, ffresh, fsalt, |
./pkg/thsice/thsice_check_conserv.F |
39 |
THSICE_CHECK_CONSERV |
_RL qleft, fsalt, ffresh |
./pkg/thsice/thsice_check_conserv.F |
87 |
THSICE_CHECK_CONSERV |
& flxAtm-qleft, -ffresh-frwAtm,-fsalt |
./pkg/thsice/thsice_check_conserv.F |
90 |
THSICE_CHECK_CONSERV |
dSalt = dSalt - thSIce_deltaT*flxFrac*fsalt |
./pkg/thsice/thsice_extend.F |
129 |
THSICE_EXTEND |
fsalt (i,j) = 0. _d 0 |
./pkg/thsice/thsice_extend.F |
15 |
THSICE_EXTEND |
O flx2oc, frw2oc, fsalt, |
./pkg/thsice/thsice_extend.F |
224 |
THSICE_EXTEND |
fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice |
./pkg/thsice/thsice_extend.F |
232 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
./pkg/thsice/thsice_extend.F |
238 |
THSICE_EXTEND |
I flx2oc(i,j), frw2oc(i,j), fsalt(i,j), |
./pkg/thsice/thsice_extend.F |
86 |
THSICE_EXTEND |
_RL fsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
./pkg/thsice/thsice_step_fwd.F |
144 |
THSICE_STEP_FWD |
fsalt (i,j) = 0. _d 0 |
./pkg/thsice/thsice_step_fwd.F |
250 |
THSICE_STEP_FWD |
O frw2oc, fsalt, frzSeaWat, |
./pkg/thsice/thsice_step_fwd.F |
286 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = -icFrac*fsalt(i,j) |
./pkg/thsice/thsice_step_fwd.F |
295 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
./pkg/thsice/thsice_step_fwd.F |
327 |
THSICE_STEP_FWD |
fsalt (i,j) = 0. _d 0 |
./pkg/thsice/thsice_step_fwd.F |
339 |
THSICE_STEP_FWD |
O flx2oc, frw2oc, fsalt, |
./pkg/thsice/thsice_step_fwd.F |
352 |
THSICE_STEP_FWD |
sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j) |
./pkg/thsice/thsice_step_fwd.F |
356 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j) |
./pkg/thsice/thsice_step_fwd.F |
96 |
THSICE_STEP_FWD |
_RL fsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |