| File |
Line number |
Procedure |
Code |
|
./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 |
55 |
DYNSOLVER |
_RS SINWIN, SINWAT |
|
./pkg/seaice/dynsolver.F |
69 |
DYNSOLVER |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
34 |
OSTRES |
_RL SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/ostres.F |
40 |
OSTRES |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./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 |
165 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
173 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
179 |
SEAICE_GET_DYNFORCING |
& (CDAIR(I,J)*(SIGN(SINWIN, _fCori(I,J,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
187 |
SEAICE_GET_DYNFORCING |
& +CDAIR(I,J-1)*(SIGN(SINWIN, _fCori(I,J-1,bi,bj))* |
|
./pkg/seaice/seaice_get_dynforcing.F |
204 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I ,J,bi,bj))*vWind(I ,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
207 |
SEAICE_GET_DYNFORCING |
& -SIGN(SINWIN, _fCori(I-1,J,bi,bj))*vWind(I-1,J,bi,bj) ) |
|
./pkg/seaice/seaice_get_dynforcing.F |
212 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J ,bi,bj))*uWind(I,J ,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
215 |
SEAICE_GET_DYNFORCING |
& SIGN(SINWIN, _fCori(I,J-1,bi,bj))*uWind(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_get_dynforcing.F |
59 |
SEAICE_GET_DYNFORCING |
_RS SINWIN |
|
./pkg/seaice/seaice_get_dynforcing.F |
72 |
SEAICE_GET_DYNFORCING |
SINWIN=SIN(SEAICE_airTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_get_dynforcing.F |
99 |
SEAICE_GET_DYNFORCING |
& (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1) |