| 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_get_dynforcing.F |
120 |
SEAICE_GET_DYNFORCING |
& - 0.5 _d 0 * (uice(i,j,bi,bj)+uice(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_get_dynforcing.F |
164 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
172 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uice(i-1,j,bi,bj)+uice(i,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
182 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj))) |
|
./pkg/seaice/seaice_get_dynforcing.F |
190 |
SEAICE_GET_DYNFORCING |
& -0.5 _d 0*(uice(i,j-1,bi,bj)+uice(i+1,j-1,bi,bj))) |
|
./pkg/seaice/seaice_growth.F |
538 |
SEAICE_GROWTH |
& -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2 |
|
./pkg/seaice/seaice_model.F |
174 |
SEAICE_MODEL |
IF ( useOBCS ) CALL OBCS_APPLY_UVICE( uice, vice, myThid ) |