| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
468 |
NO PROCEDURE |
_RL SEAICE_drag_south, SEAICE_waterDrag_south |
|
./pkg/seaice/SEAICE_PARAMS.h |
521 |
NO PROCEDURE |
& SEAICE_drag_south, SEAICE_waterDrag_south, |
|
./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/seaice_freedrift.F |
110 |
SEAICE_FREEDRIFT |
tmpscal1 = 1. _d 0 /SEAICE_waterDrag_south |
|
./pkg/seaice/seaice_freedrift.F |
128 |
SEAICE_FREEDRIFT |
tmpscal1 = SEAICE_waterDrag_south |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
100 |
SEAICE_OCEANDRAG_COEFFS |
& .LE.(0.25 _d 0/SEAICE_waterDrag_south)**2 ) THEN |
|
./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 |
97 |
SEAICE_OCEANDRAG_COEFFS |
IF ( SEAICE_waterDrag_south.LE.0. ) THEN |
|
./pkg/seaice/seaice_readparms.F |
143 |
SEAICE_READPARMS |
& SEAICE_drag_south, SEAICE_waterDrag_south, |
|
./pkg/seaice/seaice_readparms.F |
373 |
SEAICE_READPARMS |
SEAICE_waterDrag_south = UNSET_RL |
|
./pkg/seaice/seaice_readparms.F |
679 |
SEAICE_READPARMS |
IF (SEAICE_waterDrag_south .EQ. UNSET_RL) |
|
./pkg/seaice/seaice_readparms.F |
680 |
SEAICE_READPARMS |
& SEAICE_waterDrag_south = SEAICE_waterDrag |
|
./pkg/seaice/seaice_summary.F |
146 |
SEAICE_SUMMARY |
CALL WRITE_0D_RL( SEAICE_waterDrag_south ,INDEX_NONE, |