| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/dynsolver.F |
316 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
319 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
325 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
328 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
435 |
DYNSOLVER |
TEMPVAR=(UICE(I,J,bi,bj)-GWATX(I,J,bi,bj))**2 |
|
./pkg/seaice/dynsolver.F |
438 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
441 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
444 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
447 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/dynsolver.F |
57 |
DYNSOLVER |
_RL TEMPVAR, U1, V1 |
|
./pkg/seaice/seaice_evp.F |
430 |
SEAICE_EVP |
TEMPVAR = QUART*( |
|
./pkg/seaice/seaice_evp.F |
436 |
SEAICE_EVP |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/seaice_evp.F |
439 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
442 |
SEAICE_EVP |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/seaice_evp.F |
445 |
SEAICE_EVP |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_evp.F |
74 |
SEAICE_EVP |
_RL TEMPVAR, ecc2, recip_ecc2, recip_evp_tau |
|
./pkg/seaice/seaice_lsr.F |
110 |
SEAICE_LSR |
_RL TEMPVAR |
|
./pkg/seaice/seaice_lsr.F |
220 |
SEAICE_LSR |
TEMPVAR = QUART*( |
|
./pkg/seaice/seaice_lsr.F |
226 |
SEAICE_LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
229 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
232 |
SEAICE_LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
235 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |