| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
119 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
121 |
DYNSOLVER |
AAA=U1**2+V1**2 |
|
./pkg/seaice/dynsolver.F |
131 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
133 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
148 |
DYNSOLVER |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |
|
./pkg/seaice/dynsolver.F |
150 |
DYNSOLVER |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
57 |
DYNSOLVER |
_RL TEMPVAR, U1, V1 |
|
./pkg/seaice/seaice_get_dynforcing.F |
101 |
SEAICE_GET_DYNFORCING |
& (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1) |
|
./pkg/seaice/seaice_get_dynforcing.F |
121 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
124 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
141 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
142 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
57 |
SEAICE_GET_DYNFORCING |
_RL U1, V1, AAA |
|
./pkg/seaice/seaice_get_dynforcing.F |
89 |
SEAICE_GET_DYNFORCING |
V1=VWIND(I,J,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
90 |
SEAICE_GET_DYNFORCING |
AAA=U1**2+V1**2 |
|
./pkg/seaice/seaice_get_dynforcing.F |
99 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |