| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
104 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
108 |
DYNSOLVER |
AAA=U1**2+V1**2 |
|
./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 |
45 |
DYNSOLVER |
_RL TEMPVAR, U1, V1 |