| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_dynsolver.F |
254 |
SEAICE_DYNSOLVER |
uIce(i,j,bi,bj) = uIce_fd(i,j,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
176 |
SEAICE_FREEDRIFT |
uIce_fd(i,j,bi,bj)=uIce_fd(i,j,bi,bj)* _maskW(i,j,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
471 |
SEAICE_LSR |
uIce_fd(i,j,bi,bj) = FORCEX(i,j,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
485 |
SEAICE_LSR |
CALL EXCH_UV_XY_RL( uIce_fd, vIce_fd, .TRUE., myThid ) |
|
./pkg/seaice/seaice_lsr.F |
490 |
SEAICE_LSR |
I AU, BU, CU, AV, BV, CV, uIce_fd, vIce_fd, |
|
./pkg/seaice/seaice_lsr.F |
515 |
SEAICE_LSR |
& + errIni*uIce_fd(i,j,bi,bj) |