| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_calc_residual.F |
115 |
SEAICE_CALC_RESIDUAL |
O uIceRHS, vIceRHS, |
|
./pkg/seaice/seaice_calc_residual.F |
139 |
SEAICE_CALC_RESIDUAL |
uIceRes(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - uIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_residual.F |
60 |
SEAICE_CALC_RESIDUAL |
_RL uIceRHS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_residual.F |
74 |
SEAICE_CALC_RESIDUAL |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_calc_rhs.F |
10 |
SEAICE_CALC_RHS |
O uIceRHS, vIceRHS, |
|
./pkg/seaice/seaice_calc_rhs.F |
111 |
SEAICE_CALC_RHS |
uIceRHS(I,J,bi,bj) = uIceRHS(I,J,bi,bj)*maskinW(I,J,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
50 |
SEAICE_CALC_RHS |
_RL uIceRHS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_calc_rhs.F |
92 |
SEAICE_CALC_RHS |
uIceRHS(I,J,bi,bj) = FORCEX(I,J,bi,bj) + ( |
|
./pkg/seaice/seaice_krylov.F |
100 |
SEAICE_KRYLOV |
_RL uIceRHS(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_krylov.F |
152 |
SEAICE_KRYLOV |
uIceRHS(I,J,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_krylov.F |
229 |
SEAICE_KRYLOV |
O uIceRHS, vIceRHS, |
|
./pkg/seaice/seaice_krylov.F |
241 |
SEAICE_KRYLOV |
uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - uIceRHS(I,J,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
304 |
SEAICE_KRYLOV |
CALL SEAICE_MAP2VEC(nVec,uIceRHS,vIceRHS,rhs,.TRUE.,myThid) |