| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE_PARAMS.h |
501 |
NO PROCEDURE |
_RL QUART , HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
502 |
NO PROCEDURE |
PARAMETER ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |
|
./pkg/seaice/dynsolver.F |
104 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*( |
|
./pkg/seaice/dynsolver.F |
121 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
123 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
223 |
LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag_south)**2 ) THEN |
|
./pkg/seaice/lsr.F |
224 |
LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/lsr.F |
229 |
LSR |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/lsr.F |
230 |
LSR |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/lsr.F |
253 |
LSR |
& -QUART * _recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
257 |
LSR |
& -QUART * _recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
707 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*( |
|
./pkg/seaice/lsr.F |
710 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*( |
|
./pkg/seaice/ostres.F |
72 |
OSTRES |
fuIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I,J+1,bi,bj) )*( |
|
./pkg/seaice/ostres.F |
80 |
OSTRES |
fvIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I+1,J,bi,bj) )*( |