File |
Line number |
Procedure |
Code |
./pkg/seaice/seaice_summary.F |
93 |
SEAICE_SUMMARY |
CALL WRITE_0D_R8( SEAICE_waterDrag ,INDEX_NONE, |
./pkg/seaice/dynsolver.F |
240 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
./pkg/seaice/dynsolver.F |
243 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
./pkg/seaice/dynsolver.F |
347 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
./pkg/seaice/dynsolver.F |
350 |
DYNSOLVER |
DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR) |
./pkg/seaice/seaice_readparms.F |
41 |
SEAICE_READPARMS |
& SEAICE_drag, SEAICE_waterDrag, SEAICE_dryIceAlb, |
./pkg/seaice/seaice_readparms.F |
98 |
SEAICE_READPARMS |
SEAICE_waterDrag = 5.5 _d 0 |
./pkg/seaice/SEAICE_PARAMS.h |
113 |
NO PROCEDURE |
_RL SEAICE_drag, SEAICE_waterDrag, SEAICE_dryIceAlb |
./pkg/seaice/SEAICE_PARAMS.h |
128 |
NO PROCEDURE |
& SEAICE_drag, SEAICE_waterDrag, SEAICE_dryIceAlb, |