| 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 |
40 |
NO PROCEDURE |
_RL DRAGA (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
248 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
355 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)*SINWAT+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
162 |
LSR |
FXY(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
399 |
LSR |
FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |