| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
246 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
251 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
255 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
353 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
358 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
362 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
43 |
DYNSOLVER |
_RL RHOICE, RHOAIR, SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/dynsolver.F |
72 |
DYNSOLVER |
COSWAT=0.9063 _d 0 |
|
./pkg/seaice/dynsolver.F |
78 |
DYNSOLVER |
COSWAT=ONE |
|
./pkg/seaice/ostres.F |
34 |
OSTRES |
_RL SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/ostres.F |
40 |
OSTRES |
COSWAT=0.9063 _d 0 |
|
./pkg/seaice/ostres.F |
45 |
OSTRES |
COSWAT=ONE |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
& *(COSWAT*(GWATX(I,J,bi,bj)-UICE(I,J,1,bi,bj)) |
|
./pkg/seaice/ostres.F |
61 |
OSTRES |
& +COSWAT*(GWATY(I,J,bi,bj)-VICE(I,J,1,bi,bj))) |