| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
466 |
NO PROCEDURE |
_RL SEAICE_drag, SEAICE_waterDrag, SEAICE_dryIceAlb |
|
./pkg/seaice/SEAICE_PARAMS.h |
519 |
NO PROCEDURE |
& SEAICE_drag, SEAICE_waterDrag, SEAICE_dryIceAlb, |
|
./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/seaice_freedrift.F |
112 |
SEAICE_FREEDRIFT |
tmpscal1 = 1. _d 0 /SEAICE_waterDrag |
|
./pkg/seaice/seaice_freedrift.F |
130 |
SEAICE_FREEDRIFT |
tmpscal1 = SEAICE_waterDrag |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
106 |
SEAICE_OCEANDRAG_COEFFS |
IF ( SEAICE_waterDrag.LE.0. ) THEN |
|
./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_readparms.F |
141 |
SEAICE_READPARMS |
& SEAICE_drag, SEAICE_waterDrag, SEAICE_dryIceAlb, |
|
./pkg/seaice/seaice_readparms.F |
366 |
SEAICE_READPARMS |
SEAICE_waterDrag = 5.5 _d 0 |
|
./pkg/seaice/seaice_readparms.F |
680 |
SEAICE_READPARMS |
& SEAICE_waterDrag_south = SEAICE_waterDrag |
|
./pkg/seaice/seaice_summary.F |
144 |
SEAICE_SUMMARY |
CALL WRITE_0D_RL( SEAICE_waterDrag ,INDEX_NONE, |