| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
10 |
THSICE_CALC_THICKN |
I frzmlt, Tf, oceTs, oceV2s, snowPr, |
|
./pkg/thsice/thsice_calc_thickn.F |
347 |
THSICE_CALC_THICKN |
fresh = fresh + snowPr |
|
./pkg/thsice/thsice_calc_thickn.F |
348 |
THSICE_CALC_THICKN |
qleft = qleft - snowPr*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
354 |
THSICE_CALC_THICKN |
hs = hs + dt*snowPr/rhos |
|
./pkg/thsice/thsice_calc_thickn.F |
53 |
THSICE_CALC_THICKN |
_RL oceTs, oceV2s, snowPr |
|
./pkg/thsice/thsice_step_fwd.F |
208 |
THSICE_STEP_FWD |
snowPr = snowPrc(i,j,bi,bj) |
|
./pkg/thsice/thsice_step_fwd.F |
217 |
THSICE_STEP_FWD |
I frzmltMxL, TFrzOce, oceTs, oceV2s, snowPr, |
|
./pkg/thsice/thsice_step_fwd.F |
225 |
THSICE_STEP_FWD |
snowPrc(i,j,bi,bj) = snowPr |
|
./pkg/thsice/thsice_step_fwd.F |
230 |
THSICE_STEP_FWD |
IF ( snowPr.GT.0. _d 0 ) |
|
./pkg/thsice/thsice_step_fwd.F |
232 |
THSICE_STEP_FWD |
& * EXP( -(thSIce_deltaT*snowPr/rhos)/hNewSnowAge ) |
|
./pkg/thsice/thsice_step_fwd.F |
243 |
THSICE_STEP_FWD |
& iceMask(i,j,bi,bj),flxAtm(i,j),evpAtm(i,j),-Lfresh*snowPr |
|
./pkg/thsice/thsice_step_fwd.F |
77 |
THSICE_STEP_FWD |
_RL snowPr |