| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
335 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
339 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
341 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
454 |
DYNSOLVER |
& *SIGN(SINWAT, _fCori(I,J,bi,bj))+COR_ICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
458 |
DYNSOLVER |
& -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
460 |
DYNSOLVER |
& *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
55 |
DYNSOLVER |
_RS SINWIN, SINWAT |
|
./pkg/seaice/dynsolver.F |
71 |
DYNSOLVER |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
34 |
OSTRES |
_RL SINWIN, COSWIN, SINWAT, COSWAT |
|
./pkg/seaice/ostres.F |
42 |
OSTRES |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/ostres.F |
76 |
OSTRES |
& -SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/ostres.F |
81 |
OSTRES |
& SIGN(SINWAT,COR_ICE(I,J,bi,bj)) * |
|
./pkg/seaice/seaice_evp.F |
101 |
SEAICE_EVP |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_evp.F |
461 |
SEAICE_EVP |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
472 |
SEAICE_EVP |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_evp.F |
73 |
SEAICE_EVP |
_RS SINWAT |
|
./pkg/seaice/seaice_lsr.F |
109 |
SEAICE_LSR |
_RS SINWAT |
|
./pkg/seaice/seaice_lsr.F |
127 |
SEAICE_LSR |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_lsr.F |
251 |
SEAICE_LSR |
& - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 * |
|
./pkg/seaice/seaice_lsr.F |
262 |
SEAICE_LSR |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |
|
./pkg/seaice/seaice_ocean_stress.F |
43 |
SEAICE_OCEAN_STRESS |
_RS SINWAT |
|
./pkg/seaice/seaice_ocean_stress.F |
50 |
SEAICE_OCEAN_STRESS |
SINWAT=SIN(SEAICE_waterTurnAngle*deg2rad) |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 * |