| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
196 |
ADVECT |
CALL DIFFUS(tmpFld,DIFFA,iceMsk,DELTT, myThid) |
|
./pkg/seaice/advect.F |
203 |
ADVECT |
& *iceMsk(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
32 |
ADVECT |
_RL iceMsk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/advect.F |
7 |
ADVECT |
SUBROUTINE ADVECT( UI,VI,fld,fldNm1,iceMsk,myThid ) |
|
./pkg/seaice/diffus.F |
25 |
DIFFUS |
_RL iceMsk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/diffus.F |
62 |
DIFFUS |
& *iceMsk(I+1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
64 |
DIFFUS |
& *iceMsk(I-1,J,bi,bj)) |
|
./pkg/seaice/diffus.F |
67 |
DIFFUS |
& * _dxG(I+1,J+1,bi,bj)*iceMsk(I,J+1,bi,bj) |
|
./pkg/seaice/diffus.F |
69 |
DIFFUS |
& * _dxG(I+1,J, bi,bj)*iceMsk(I,J-1,bi,bj)) |
|
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( fld, DIFFA, iceMsk, DELTT, myThid ) |
|
./pkg/seaice/diffus.F |
86 |
DIFFUS |
& * iceMsk(I,J,bi,bj) * iceMsk(I-1,J,bi,bj) |
|
./pkg/seaice/diffus.F |
92 |
DIFFUS |
& * iceMsk(I,J,bi,bj) * iceMsk(I,J-1,bi,bj) |
|
./pkg/thsice/thsice_get_precip.F |
13 |
THSICE_GET_PRECIP |
I iceMsk, |
|
./pkg/thsice/thsice_get_precip.F |
47 |
THSICE_GET_PRECIP |
_RL iceMsk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_get_precip.F |
69 |
THSICE_GET_PRECIP |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |
|
./pkg/thsice/thsice_map_exf.F |
13 |
THSICE_MAP_EXF |
I iceMsk, |
|
./pkg/thsice/thsice_map_exf.F |
48 |
THSICE_MAP_EXF |
_RL iceMsk (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/thsice/thsice_map_exf.F |
95 |
THSICE_MAP_EXF |
IF ( iceMsk(i,j,bi,bj).GT.0. _d 0 |