| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_viscosities.F |
114 |
SEAICE_CALC_VISCOSITIES |
seaice_div (I,J,bi,bj) = (e11+e22)/DELT2*hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
115 |
SEAICE_CALC_VISCOSITIES |
seaice_tension(I,J,bi,bj) = (e11-e22)/DELT2*hEffM(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_viscosities.F |
61 |
SEAICE_CALC_VISCOSITIES |
_RL e11, e12, e22 |
|
./pkg/seaice/seaice_calc_viscosities.F |
76 |
SEAICE_CALC_VISCOSITIES |
e11= _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/seaice_calc_viscosities.F |
96 |
SEAICE_CALC_VISCOSITIES |
DELT1=(e11**2+e22**2)*(ONE+ECM2) |
|
./pkg/seaice/seaice_calc_viscosities.F |
98 |
SEAICE_CALC_VISCOSITIES |
& +TWO*e11*e22*(ONE-ECM2) |