| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
217 |
NO PROCEDURE |
_RL SEAICE_drag_south, SEAICE_waterDrag_south |
|
./pkg/seaice/SEAICE_PARAMS.h |
241 |
NO PROCEDURE |
& SEAICE_drag_south, SEAICE_waterDrag_south, |
|
./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 |
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/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_lsr.F |
1058 |
SEAICE_LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
1061 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_lsr.F |
227 |
SEAICE_LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/seaice_lsr.F |
230 |
SEAICE_LSR |
DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR) |
|
./pkg/seaice/seaice_readparms.F |
184 |
SEAICE_READPARMS |
SEAICE_waterDrag_south = UNSET_RL |
|
./pkg/seaice/seaice_readparms.F |
281 |
SEAICE_READPARMS |
IF (SEAICE_waterDrag_south .EQ. UNSET_RL) |
|
./pkg/seaice/seaice_readparms.F |
282 |
SEAICE_READPARMS |
& SEAICE_waterDrag_south = SEAICE_waterDrag |
|
./pkg/seaice/seaice_readparms.F |
61 |
SEAICE_READPARMS |
& SEAICE_drag_south, SEAICE_waterDrag_south, |
|
./pkg/seaice/seaice_summary.F |
185 |
SEAICE_SUMMARY |
CALL WRITE_0D_RL( SEAICE_waterDrag_south ,INDEX_NONE, |