| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
194 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(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 |
301 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(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 |
54 |
DYNSOLVER |
_RL E22 (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |