| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
53 |
NO PROCEDURE |
COMMON/ARRAYCMETRIC/ k1AtC, k1AtZ, k2AtC, k2AtZ |
|
./pkg/seaice/SEAICE.h |
56 |
NO PROCEDURE |
_RS k2AtC (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_strainrates.F |
91 |
SEAICE_CALC_STRAINRATES |
e11Loc(I,J,bi,bj) = dudx(I,J) + vave(I,J) * k2AtC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
113 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
125 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere |
|
./pkg/seaice/seaice_init_fixed.F |
147 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_fixed.F |
154 |
SEAICE_INIT_FIXED |
k2AtC(I,J,bi,bj) = _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
357 |
SEAICE_LSR |
& * k2AtC(I,J,bi,bj) * 0.5 _d 0 |
|
./pkg/seaice/seaice_lsr.F |
441 |
SEAICE_LSR |
& + etaPlusZeta(I,J,bi,bj) * k2AtC(I,J,bi,bj) |