| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_viscosities.F |
108 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = tmp*tmp |
|
./pkg/seaice/seaice_calc_viscosities.F |
116 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_viscosities.F |
128 |
SEAICE_CALC_VISCOSITIES |
deltaCsq = ep*ep+recip_e2*(em*em+4. _d 0*e12Csq(i,j)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
187 |
SEAICE_CALC_VISCOSITIES |
etaDen = em*em + 4. _d 0 * e12Csq(i,j) |
|
./pkg/seaice/seaice_calc_viscosities.F |
74 |
SEAICE_CALC_VISCOSITIES |
_RL e12Csq(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_calc_viscosities.F |
96 |
SEAICE_CALC_VISCOSITIES |
e12Csq(i,j) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
126 |
SEAICE_EVP |
_RL e12Csq (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/seaice/seaice_evp.F |
368 |
SEAICE_EVP |
e12Csq (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_evp.F |
390 |
SEAICE_EVP |
e12Csq(i,j) = tmp*tmp |
|
./pkg/seaice/seaice_evp.F |
398 |
SEAICE_EVP |
e12Csq(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) * |
|
./pkg/seaice/seaice_evp.F |
409 |
SEAICE_EVP |
& + recip_ecc2 * 4. _d 0 * e12Csq(I,J) |
|
./pkg/seaice/seaice_evp.F |
516 |
SEAICE_EVP |
etaDenC = em(I,J)**2 + 4. _d 0 * e12Csq(I,J) |