| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
170 |
ADVECT |
DIFFA(I,J,bi,bj)=DIFF1*MIN(DXTICE(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
176 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
194 |
ADVECT |
DIFFA(I,J,bi,bj)=-(MIN(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj) |
|
./pkg/seaice/advect.F |
200 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
44 |
ADVECT |
_RL DIFFA(1-OLx:sNx+OLx, 1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/diffus.F |
24 |
DIFFUS |
_RL DIFFA (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/diffus.F |
48 |
DIFFUS |
DELTXX1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
49 |
DIFFUS |
DELTYY1=DELTT*DIFFA(I,J,bi,bj) |
|
./pkg/seaice/diffus.F |
7 |
DIFFUS |
SUBROUTINE DIFFUS( HEFF, DIFFA, HEFFM, DELTT, myThid ) |