| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
207 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
209 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
314 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
53 |
DYNSOLVER |
_RL E11 (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |