| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_solve4temp.F |
106 |
THSICE_SOLVE4TEMP |
_RL icMask(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/thsice/thsice_solve4temp.F |
18 |
THSICE_SOLVE4TEMP |
I icMask, hIce, hSnow1, tFrz, flxExSW, |
|
./pkg/thsice/thsice_solve4temp.F |
254 |
THSICE_SOLVE4TEMP |
IF ( icMask(i,j).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
273 |
THSICE_SOLVE4TEMP |
IF ( hSnow1(i,j) .GT. icMask(i,j)*dhSnowLin ) THEN |
|
./pkg/thsice/thsice_solve4temp.F |
276 |
THSICE_SOLVE4TEMP |
frsnow = hSnow1(i,j)*recip_dhSnowLin/icMask(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
572 |
THSICE_SOLVE4TEMP |
IF ( icMask(i,j).GT.0. _d 0 ) THEN |