| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
117 |
DYNSOLVER |
WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(COSWIN*U1-SINWIN*V1) |
|
./pkg/seaice/dynsolver.F |
118 |
DYNSOLVER |
WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
124 |
DYNSOLVER |
FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(COSWIN*U1-SINWIN*V1) |
|
./pkg/seaice/dynsolver.F |
125 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
43 |
DYNSOLVER |
_RL RHOICE, RHOAIR, SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/dynsolver.F |
69 |
DYNSOLVER |
SINWIN=0.4226 _d 0 |
|
./pkg/seaice/dynsolver.F |
75 |
DYNSOLVER |
SINWIN=ZERO |
|
./pkg/seaice/ostres.F |
34 |
OSTRES |
_RL SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/ostres.F |
37 |
OSTRES |
SINWIN=0.4226 _d 0 |
|
./pkg/seaice/ostres.F |
42 |
OSTRES |
SINWIN=ZERO |