| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
115 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag |
|
./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 |
121 |
DYNSOLVER |
DAIRN(I,J,bi,bj)=RHOAIR*(SEAICE_drag*AAA*AREA(I,J,1,bi,bj) |
|
./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 |
49 |
DYNSOLVER |
_RL DAIRN (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |