| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1099 |
THSICE_CALC_THICKN |
fzMlOc(i,j) = fzMlOc(i,j) - Fbot(i,j)*iceMask(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
126 |
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 |
358 |
THSICE_CALC_THICKN |
IF (fzMlOc(i,j).GE. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
362 |
THSICE_CALC_THICKN |
Fbot(i,j) = fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
365 |
THSICE_CALC_THICKN |
Fbot(i,j) = enFrcFrz(i,j)*fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
372 |
THSICE_CALC_THICKN |
Fbot(i,j) = (1. _d 0 - fracEnFreez)*fzMlOc(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
389 |
THSICE_CALC_THICKN |
Fbot(i,j) = max(Fbot(i,j),fzMlOc(i,j)) |
|
./pkg/thsice/thsice_calc_thickn.F |
400 |
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 |
163 |
THSICE_EXTEND |
IF (fzMlOc(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_extend.F |
164 |
THSICE_EXTEND |
esurp = fzMlOc(i,j) |
|
./pkg/thsice/thsice_extend.F |
73 |
THSICE_EXTEND |
_RL fzMlOc (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |