| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
79 |
NO PROCEDURE |
& DRAGS,DRAGA,FORCEX,FORCEY,UICEC,VICEC |
|
./pkg/seaice/SEAICE.h |
89 |
NO PROCEDURE |
_RL DRAGS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/dynsolver.F |
332 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
451 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/lsr.F |
164 |
LSR |
& + DRAGS(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
407 |
LSR |
& +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
450 |
SEAICE_EVP |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_evp.F |
507 |
SEAICE_EVP |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_evp.F |
515 |
SEAICE_EVP |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) ) |
|
./pkg/seaice/seaice_init_varia.F |
93 |
SEAICE_INIT_VARIA |
DRAGS(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_lsr.F |
240 |
SEAICE_LSR |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
422 |
SEAICE_LSR |
& + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) ) |
|
./pkg/seaice/seaice_lsr.F |
680 |
SEAICE_LSR |
& + 0.5 _d 0 * ( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) ) |