| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_advdiff.F |
190 |
THSICE_ADVDIFF |
maskOce(i,j) = 0. _d 0 |
|
./pkg/thsice/thsice_advdiff.F |
191 |
THSICE_ADVDIFF |
IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1. |
|
./pkg/thsice/thsice_advdiff.F |
211 |
THSICE_ADVDIFF |
I maskOce, |
|
./pkg/thsice/thsice_advdiff.F |
222 |
THSICE_ADVDIFF |
& *maskOce(i-1,j)*maskOce(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
228 |
THSICE_ADVDIFF |
& *maskOce(i,j-1)*maskOce(i,j) |
|
./pkg/thsice/thsice_advdiff.F |
245 |
THSICE_ADVDIFF |
I uTrIce, vTrIce, maskOce, thSIce_deltaT, areaEpsil, |
|
./pkg/thsice/thsice_advdiff.F |
258 |
THSICE_ADVDIFF |
I uTrans, vTrans, maskOce, thSIce_deltaT, areaEpsil, |
|
./pkg/thsice/thsice_advdiff.F |
276 |
THSICE_ADVDIFF |
I uTrans, vTrans, maskOce, thSIce_deltaT, areaEpsil, |
|
./pkg/thsice/thsice_advdiff.F |
356 |
THSICE_ADVDIFF |
I uTrIce, vTrIce, maskOce, thSIce_deltaT, vol_Epsil, |
|
./pkg/thsice/thsice_advdiff.F |
393 |
THSICE_ADVDIFF |
I uTrIce, vTrIce, maskOce, thSIce_deltaT, vol_Epsil, |
|
./pkg/thsice/thsice_advdiff.F |
88 |
THSICE_ADVDIFF |
_RS maskOce (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |