Symbol | Description | Uses |
ECM2 | 8 |
File | Line number | Procedure | Code |
./pkg/seaice/dynsolver.F | 60 | DYNSOLVER |
_RL ECCEN, ECM2, PSTAR, AAA |
./pkg/seaice/dynsolver.F | 69 | DYNSOLVER |
ECM2=ONE/(ECCEN**2) |
./pkg/seaice/lsr.F | 165 | LSR |
ECM2= 1. _d 0/(SEAICE_eccen**2) |
./pkg/seaice/lsr.F | 202 | LSR |
DELT1=(e11loc**2+e22loc**2)*(1. _d 0+ECM2) |
./pkg/seaice/lsr.F | 203 | LSR |
& +4.0 _d 0*ECM2*e12loc**2 |
./pkg/seaice/lsr.F | 204 | LSR |
& +2.0 _d 0*e11loc*e22loc*(1. _d 0-ECM2) |
./pkg/seaice/lsr.F | 216 | LSR |
ETA(I,J,bi,bj) = ECM2*ZETA(I,J,bi,bj) |
./pkg/seaice/lsr.F | 63 | LSR |
_RL ECM2, DELT1, DELT2 |