| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
12 |
THSICE_SOLVE4TEMP |
O Tice, sHeating, flxCnB, |
|
./pkg/thsice/thsice_solve4temp.F |
297 |
THSICE_SOLVE4TEMP |
sHeating = flx0 - fct |
|
./pkg/thsice/thsice_solve4temp.F |
63 |
THSICE_SOLVE4TEMP |
_RL sHeating |
|
./pkg/thsice/thsice_calc_thickn.F |
11 |
THSICE_CALC_THICKN |
I sHeating, flxCnB, evpAtm, |
|
./pkg/thsice/thsice_calc_thickn.F |
188 |
THSICE_CALC_THICKN |
if ( sHeating.gt.0. _d 0 ) then |
|
./pkg/thsice/thsice_calc_thickn.F |
189 |
THSICE_CALC_THICKN |
etop = (1. _d 0-frace)*sHeating * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
190 |
THSICE_CALC_THICKN |
etope = frace*sHeating * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
195 |
THSICE_CALC_THICKN |
esurp = sHeating * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
54 |
THSICE_CALC_THICKN |
_RL sHeating |
|
./pkg/thsice/thsice_impl_temp.F |
105 |
THSICE_IMPL_TEMP |
O Tice, sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj), |
|
./pkg/thsice/thsice_impl_temp.F |
121 |
THSICE_IMPL_TEMP |
& sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj), qicen |
|
./pkg/thsice/thsice_step_fwd.F |
138 |
THSICE_STEP_FWD |
O Tice, sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
158 |
THSICE_STEP_FWD |
& sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj), |
|
./pkg/thsice/thsice_step_fwd.F |
218 |
THSICE_STEP_FWD |
I sHeating(i,j,bi,bj), flxCndBt(i,j,bi,bj), evpAtm(i,j), |
|
./pkg/thsice/THSICE_VARS.h |
49 |
NO PROCEDURE |
& sHeating, flxCndBt, |
|
./pkg/thsice/THSICE_VARS.h |
59 |
NO PROCEDURE |
_RL sHeating(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_ini_vars.F |
67 |
THSICE_INI_VARS |
sHeating(i,j,bi,bj) = 0. _d 0 |
|
./pkg/aim_v23/aim_aim2sioce.F |
144 |
AIM_AIM2SIOCE |
sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj) |