| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/lsr.F |
223 |
LSR |
TEMPVAR=(uIce(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/lsr.F |
226 |
LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/lsr.F |
229 |
LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/lsr.F |
232 |
LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/lsr.F |
235 |
LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/lsr.F |
64 |
LSR |
_RL TEMPVAR |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
103 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
108 |
SEAICE_OCEANDRAG_COEFFS |
ELSEIF ( TEMPVAR.LE.(0.25 _d 0/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
111 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
67 |
SEAICE_OCEANDRAG_COEFFS |
_RL TEMPVAR |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
78 |
SEAICE_OCEANDRAG_COEFFS |
TEMPVAR = 0.25 _d 0*( |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
86 |
SEAICE_OCEANDRAG_COEFFS |
TEMPVAR = 0.25 _d 0*( |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
99 |
SEAICE_OCEANDRAG_COEFFS |
ELSEIF ( TEMPVAR |