| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
332 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
338 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
342 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
451 |
DYNSOLVER |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/dynsolver.F |
457 |
DYNSOLVER |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
461 |
DYNSOLVER |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
54 |
DYNSOLVER |
_RL COSWIN, COSWAT |
|
./pkg/seaice/dynsolver.F |
72 |
DYNSOLVER |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
34 |
OSTRES |
_RL SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/ostres.F |
43 |
OSTRES |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
73 |
OSTRES |
& COSWAT * |
|
./pkg/seaice/ostres.F |
84 |
OSTRES |
& + COSWAT * |
|
./pkg/seaice/seaice_evp.F |
102 |
SEAICE_EVP |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
450 |
SEAICE_EVP |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_evp.F |
460 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
471 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
72 |
SEAICE_EVP |
_RL COSWAT |
|
./pkg/seaice/seaice_lsr.F |
108 |
SEAICE_LSR |
_RL COSWAT |
|
./pkg/seaice/seaice_lsr.F |
128 |
SEAICE_LSR |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
240 |
SEAICE_LSR |
DRAGS(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
250 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
261 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
106 |
SEAICE_OCEAN_STRESS |
& COSWAT * |
|
./pkg/seaice/seaice_ocean_stress.F |
42 |
SEAICE_OCEAN_STRESS |
_RL COSWAT |
|
./pkg/seaice/seaice_ocean_stress.F |
51 |
SEAICE_OCEAN_STRESS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
95 |
SEAICE_OCEAN_STRESS |
& COSWAT * |