| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
57 |
DYNSOLVER |
_RL ECCEN, ECM2, PSTAR, AAA |
|
./pkg/seaice/dynsolver.F |
66 |
DYNSOLVER |
ECM2=ONE/(ECCEN**2) |
|
./pkg/seaice/lsr.F |
162 |
LSR |
ECM2= 1. _d 0/(SEAICE_eccen**2) |
|
./pkg/seaice/lsr.F |
199 |
LSR |
DELT1=(e11loc**2+e22loc**2)*(1. _d 0+ECM2) |
|
./pkg/seaice/lsr.F |
200 |
LSR |
& +4.0 _d 0*ECM2*e12loc**2 |
|
./pkg/seaice/lsr.F |
201 |
LSR |
& +2.0 _d 0*e11loc*e22loc*(1. _d 0-ECM2) |
|
./pkg/seaice/lsr.F |
213 |
LSR |
ETA(I,J,bi,bj) = ECM2*ZETA(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
60 |
LSR |
_RL ECM2, DELT1, DELT2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
144 |
SEAICE_CALC_VISCOSITIES |
eta (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
69 |
SEAICE_CALC_VISCOSITIES |
_RL ECM2, deltaCreg, tmp |