| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
132 |
THSICE_CALC_THICKN |
_RL fsalt (siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_calc_thickn.F |
16 |
THSICE_CALC_THICKN |
O frw2oc, fsalt, |
|
./pkg/thsice/thsice_calc_thickn.F |
834 |
THSICE_CALC_THICKN |
fsalt(i,j) = (msalt0 - rhoi*hi*saltIce)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
839 |
THSICE_CALC_THICKN |
& (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
864 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+extend/rqh*salte |
|
./pkg/thsice/thsice_calc_thickn.F |
871 |
THSICE_CALC_THICKN |
fsalt(i,j)=fsalt(i,j)+salte |
|
./pkg/thsice/thsice_calc_thickn.F |
892 |
THSICE_CALC_THICKN |
& iceFrac, qleft, fsalt(i,j), fresh |
|
./pkg/thsice/thsice_calc_thickn.F |
897 |
THSICE_CALC_THICKN |
I qleft, fresh, 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 |
209 |
THSICE_EXTEND |
fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice |
|
./pkg/thsice/thsice_extend.F |
217 |
THSICE_EXTEND |
& iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j) |
|
./pkg/thsice/thsice_extend.F |
223 |
THSICE_EXTEND |
I flx2oc(i,j), frw2oc(i,j), fsalt(i,j), |
|
./pkg/thsice/thsice_extend.F |
89 |
THSICE_EXTEND |
_RL fsalt (siLo:siHi,sjLo:sjHi) |
|
./pkg/thsice/thsice_step_fwd.F |
235 |
THSICE_STEP_FWD |
O frw2oc, fsalt, |
|
./pkg/thsice/thsice_step_fwd.F |
266 |
THSICE_STEP_FWD |
sFluxFromIce(i,j) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
275 |
THSICE_STEP_FWD |
saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
308 |
THSICE_STEP_FWD |
O flx2oc, frw2oc, fsalt, |
|
./pkg/thsice/thsice_step_fwd.F |
322 |
THSICE_STEP_FWD |
sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j) |
|
./pkg/thsice/thsice_step_fwd.F |
326 |
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) |