| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
33 |
NO PROCEDURE |
& ETA,ZETA,DRAGS,DRAGA,AMASS,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
43 |
NO PROCEDURE |
_RL FORCEY (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
125 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*(SINWIN*U1+COSWIN*V1) |
|
./pkg/seaice/dynsolver.F |
138 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
142 |
DYNSOLVER |
FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
253 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
261 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
360 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
368 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
107 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
110 |
LSR |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
400 |
LSR |
2 +FORCEY(I,J,bi,bj) |