| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
271 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF* _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
285 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
287 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |
|
./pkg/seaice/dynsolver.F |
390 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
404 |
DYNSOLVER |
DELT1=(E11(I,J,bi,bj)**2+E22(I,J,bi,bj)**2)*(ONE+ECM2) |
|
./pkg/seaice/dynsolver.F |
406 |
DYNSOLVER |
1 +TWO*E11(I,J,bi,bj)*E22(I,J,bi,bj)*(ONE-ECM2) |