| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
134 |
ADVECT |
& *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
141 |
ADVECT |
& *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
93 |
ADVECT |
& *(QUART/(DXTICE(I+1,J,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/advect.F |
99 |
ADVECT |
& *(QUART/(DYTICE(I,J+1,bi,bj)*CSTICE(I,J+1,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
104 |
DYNSOLVER |
U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
106 |
DYNSOLVER |
V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
191 |
DYNSOLVER |
& -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
203 |
DYNSOLVER |
& +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
240 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
241 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
258 |
DYNSOLVER |
& -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
261 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
& -QUART*(VICE(I+1,J+1,1,bi,bj)+VICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
310 |
DYNSOLVER |
& +QUART*(UICE(I+1,J+1,1,bi,bj)+UICE(I,J+1,1,bi,bj) |
|
./pkg/seaice/dynsolver.F |
347 |
DYNSOLVER |
IF ( TEMPVAR .LE. (QUART/SEAICE_waterDrag)**2 ) THEN |
|
./pkg/seaice/dynsolver.F |
348 |
DYNSOLVER |
DWATN(I,J,bi,bj)=QUART |
|
./pkg/seaice/dynsolver.F |
365 |
DYNSOLVER |
& -(QUART/(DXUICE(I,J,bi,bj)*CSUICE(I,J,bi,bj))) |
|
./pkg/seaice/dynsolver.F |
368 |
DYNSOLVER |
FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)-QUART/DYUICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
85 |
DYNSOLVER |
AMASS(I,J,bi,bj)=RHOICE*QUART*(HEFF(i,j,1,bi,bj) |
|
./pkg/seaice/lsr.F |
111 |
LSR |
ETAMEAN(I,J,bi,bj) =QUART*(ETA(I,J-1,bi,bj)+ETA(I-1,J-1,bi,bj) |
|
./pkg/seaice/lsr.F |
113 |
LSR |
ZETAMEAN(I,J,bi,bj)=QUART*(ZETA(I,J-1,bi,bj) |
|
./pkg/seaice/SEAICE_PARAMS.h |
158 |
NO PROCEDURE |
_RL QUART , HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
159 |
NO PROCEDURE |
parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |