| 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 |
70 |
DYNSOLVER |
COSWIN=0.9063 _d 0 |
|
./pkg/seaice/dynsolver.F |
76 |
DYNSOLVER |
COSWIN=ONE |
|
./pkg/seaice/ostres.F |
34 |
OSTRES |
_RL SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/ostres.F |
38 |
OSTRES |
COSWIN=0.9063 _d 0 |
|
./pkg/seaice/ostres.F |
43 |
OSTRES |
COSWIN=ONE |