| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/advect.F |
117 |
ADVECT |
HEFF(I,J,2,bi,bj)=HALF*(HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_model.F |
86 |
SEAICE_MODEL |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/seaice_model.F |
88 |
SEAICE_MODEL |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
188 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
194 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
197 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
& +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
215 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
281 |
DYNSOLVER |
UICE(I,J,1,bi,bj)=HALF*(UICE(I,J,1,bi,bj)+UICE(I,J,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
282 |
DYNSOLVER |
VICE(I,J,1,bi,bj)=HALF*(VICE(I,J,1,bi,bj)+VICE(I,J,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
295 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
301 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
304 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF/DYTICE(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
307 |
DYNSOLVER |
& +HALF/(DXTICE(I,J,bi,bj)*CSTICE(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
322 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/lsr.F |
116 |
LSR |
DELX2(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DXUICE(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
117 |
LSR |
DELY2(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*DYUICE(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
118 |
LSR |
DELXY(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*DYUICE(I,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
119 |
LSR |
DELXR(I,J,bi,bj)=HALF/(DXUICE(I,J,bi,bj)*RADIUS) |
|
./pkg/seaice/lsr.F |
120 |
LSR |
DELYR(I,J,bi,bj)=HALF/(DYUICE(I,J,bi,bj)*RADIUS) |
|
./pkg/seaice/lsr.F |
164 |
LSR |
3 +HALF*(ZETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
177 |
LSR |
4 -HALF*(ETA(I,J,bi,bj)*(VICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
190 |
LSR |
5 +HALF*(ETA(I,J,bi,bj)*RECIP_CSTICE(I-1,J,bi,bj) |
|
./pkg/seaice/lsr.F |
401 |
LSR |
3 +(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
404 |
LSR |
3 *RECIP_CSUICE(I,J,bi,bj)+HALF*ZETAMEAN(I,J,bi,bj) |
|
./pkg/seaice/lsr.F |
410 |
LSR |
4 -(HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
414 |
LSR |
4 +HALF*ETAMEAN(I,J,bi,bj)*((UICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/lsr.F |
419 |
LSR |
5 +HALF*(ETA(I,J,bi,bj)*(UICEC(I+1,J+1,bi,bj) |
|
./pkg/seaice/ostres.F |
100 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
120 |
OSTRES |
& HALF*AREA(I,J,1,bi,bj)* |
|
./pkg/seaice/ostres.F |
123 |
OSTRES |
& HALF*AREA(I,J,1,bi,bj)* |
|
./pkg/seaice/ostres.F |
98 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/growth.F |
230 |
GROWTH |
& +HALF*HCORR(I,J,bi,bj)*AREA(I,J,2,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 ) |