| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1022 |
THSICE_CALC_THICKN |
fsalt(i,j) = (msalt0(i,j) - rhoi*hIce(i,j)*saltIce)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1028 |
THSICE_CALC_THICKN |
& evapLoc(i,j),frw2oc(i,j),fsalt(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1070 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+extend/rqh*salte |
|
./pkg/thsice/thsice_calc_thickn.F |
1077 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+salte |
|
./pkg/thsice/thsice_calc_thickn.F |
1107 |
THSICE_CALC_THICKN |
& icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
1124 |
THSICE_CALC_THICKN |
I flx2oc(i,j), frw2oc(i,j), fsalt, |
|
./pkg/thsice/thsice_calc_thickn.F |
129 |
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, |
|
./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 |
15 |
THSICE_EXTEND |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_extend.F |
215 |
THSICE_EXTEND |
fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
223 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
229 |
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 |
240 |
THSICE_STEP_FWD |
O frw2oc, fsalt, |
|
./pkg/thsice/thsice_step_fwd.F |
276 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
285 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
318 |
THSICE_STEP_FWD |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_step_fwd.F |
332 |
THSICE_STEP_FWD |
sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
336 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
91 |
THSICE_STEP_FWD |
_RL fsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |