| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1104 |
THSICE_CALC_THICKN |
fzMlOc(i,j) = fzMlOc(i,j) - Fbot(i,j)*iceMask(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
127 |
THSICE_CALC_THICKN |
_RL fzMlOc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_calc_thickn.F |
15 |
THSICE_CALC_THICKN |
U frwAtm, fzMlOc, flx2oc, |
|
./pkg/thsice/thsice_calc_thickn.F |
359 |
THSICE_CALC_THICKN |
IF (fzMlOc(i,j).GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
363 |
THSICE_CALC_THICKN |
Fbot(i,j) = fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
366 |
THSICE_CALC_THICKN |
Fbot(i,j) = enFrcFrz(i,j)*fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
373 |
THSICE_CALC_THICKN |
Fbot(i,j) = (1. _d 0 - fracEnFreez)*fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
390 |
THSICE_CALC_THICKN |
Fbot(i,j) = max(Fbot(i,j),fzMlOc(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
401 |
THSICE_CALC_THICKN |
& frwAtm(i,j),fzMlOc(i,j),Fbot(i,j) |
|
./pkg/thsice/thsice_extend.F |
12 |
THSICE_EXTEND |
I fzMlOc, tFrz, tOce, |
|
./pkg/thsice/thsice_extend.F |
172 |
THSICE_EXTEND |
IF (fzMlOc(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
173 |
THSICE_EXTEND |
esurp = fzMlOc(i,j) |
|
./pkg/thsice/thsice_extend.F |
73 |
THSICE_EXTEND |
_RL fzMlOc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |