| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
168 |
LSR |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/lsr.F |
239 |
LSR |
DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/lsr.F |
246 |
LSR |
& *(COSWAT*GWATX(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
250 |
LSR |
& +COSWAT*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
61 |
LSR |
_RL COSWAT |
|
./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_calc_lhs.F |
121 |
SEAICE_CALC_LHS |
dragSym(I,J) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_calc_lhs.F |
78 |
SEAICE_CALC_LHS |
_RL COSWAT, recip_deltaT, eplus, eminus |
|
./pkg/seaice/seaice_calc_lhs.F |
97 |
SEAICE_CALC_LHS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_calc_rhs.F |
103 |
SEAICE_CALC_RHS |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
58 |
SEAICE_CALC_RHS |
_RL COSWAT |
|
./pkg/seaice/seaice_calc_rhs.F |
67 |
SEAICE_CALC_RHS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_calc_rhs.F |
94 |
SEAICE_CALC_RHS |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
110 |
SEAICE_EVP |
_RL COSWAT |
|
./pkg/seaice/seaice_evp.F |
189 |
SEAICE_EVP |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
784 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
795 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
864 |
SEAICE_EVP |
& * COSWAT * areaW(I,J,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
867 |
SEAICE_EVP |
& * COSWAT * areaS(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
141 |
SEAICE_LSR |
_RL COSWAT |
|
./pkg/seaice/seaice_lsr.F |
259 |
SEAICE_LSR |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
362 |
SEAICE_LSR |
dragSym(I,J,bi,bj) = DWATN(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_lsr.F |
382 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
393 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
107 |
SEAICE_OCEAN_STRESS |
& COSWAT * |
|
./pkg/seaice/seaice_ocean_stress.F |
43 |
SEAICE_OCEAN_STRESS |
_RL COSWAT |
|
./pkg/seaice/seaice_ocean_stress.F |
52 |
SEAICE_OCEAN_STRESS |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
96 |
SEAICE_OCEAN_STRESS |
& COSWAT * |
|
./pkg/seaice/seaice_preconditioner.F |
117 |
SEAICE_PRECONDITIONER |
_RL COSWAT |
|
./pkg/seaice/seaice_preconditioner.F |
142 |
SEAICE_PRECONDITIONER |
COSWAT=COS(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_preconditioner.F |
162 |
SEAICE_PRECONDITIONER |
dragSym(I,J,bi,bj) = dwatPre(I,J,bi,bj)*COSWAT |
|
./pkg/seaice/seaice_preconditioner.F |
243 |
SEAICE_PRECONDITIONER |
I dwatPre, coriFac, fricFac, SINWAT, COSWAT, |
|
./pkg/seaice/seaice_preconditioner.F |
249 |
SEAICE_PRECONDITIONER |
I dwatPre, coriFac, fricFac, SINWAT, COSWAT, |
|
./pkg/seaice/seaice_preconditioner.F |
304 |
SEAICE_PRECONDITIONER |
I dwatPre, coriFac, fricFac, SINWAT, COSWAT, |
|
./pkg/seaice/seaice_preconditioner.F |
311 |
SEAICE_PRECONDITIONER |
I dwatPre, coriFac, fricFac, SINWAT, COSWAT, |
|
./pkg/seaice/seaice_preconditioner.F |
354 |
SEAICE_PRECONDITIONER |
I dwatPre, coriFac, fricFac, SINWAT, COSWAT, |
|
./pkg/seaice/seaice_preconditioner.F |
439 |
SEAICE_PRECOND_RHSU |
I dwatPre, coriFac, fricFac, SINWAT, COSWAT, |
|
./pkg/seaice/seaice_preconditioner.F |
473 |
SEAICE_PRECOND_RHSU |
_RL COSWAT |
|
./pkg/seaice/seaice_preconditioner.F |
544 |
SEAICE_PRECOND_RHSV |
I dwatPre, coriFac, fricFac, SINWAT, COSWAT, |
|
./pkg/seaice/seaice_preconditioner.F |
578 |
SEAICE_PRECOND_RHSV |
_RL COSWAT |