| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
79 |
NO PROCEDURE |
& DRAGS,DRAGA,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
90 |
NO PROCEDURE |
_RL DRAGA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
334 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
453 |
DYNSOLVER |
DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
202 |
LSR |
FXY(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
445 |
LSR |
FXY(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
94 |
SEAICE_INIT_VARIA |
DRAGA(i,j,bi,bj) = 0. _d 0 |