| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
130 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
135 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj) |
|
./pkg/seaice/advect.F |
176 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
195 |
ADVECT |
& ,DYTICE(I,J,bi,bj)))**2/DELTT |
|
./pkg/seaice/advect.F |
200 |
ADVECT |
CALL DIFFUS(HEFF,DIFFA,HEFFM,DELTT, myThid) |
|
./pkg/seaice/advect.F |
40 |
ADVECT |
_RL DELTT |
|
./pkg/seaice/advect.F |
49 |
ADVECT |
DELTT=SEAICE_deltaTtherm*TWO |
|
./pkg/seaice/advect.F |
53 |
ADVECT |
DELTT=SEAICE_deltaTtherm |
|
./pkg/seaice/advect.F |
89 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj)+HEFF |
|
./pkg/seaice/advect.F |
94 |
ADVECT |
& -DELTT*((HEFF(I+1,J+1,2,bi,bj) |
|
./pkg/seaice/diffus.F |
25 |
DIFFUS |
_RL DELTT |
|
./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 ) |