| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1035 |
THSICE_CALC_THICKN |
& flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
1063 |
THSICE_CALC_THICKN |
extend=etope(i,j)+ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
180 |
THSICE_CALC_THICKN |
_RL ebote (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
280 |
THSICE_CALC_THICKN |
ebote (i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
465 |
THSICE_CALC_THICKN |
ebote(i,j) = frace*ebot(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
466 |
THSICE_CALC_THICKN |
ebot(i,j) = ebot(i,j)-ebote(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
468 |
THSICE_CALC_THICKN |
ebote(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
473 |
THSICE_CALC_THICKN |
& etop(i,j),etope(i,j),ebot(i,j),ebote(i,j) |