| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1596 |
CLOUD |
PARAMETER (DAYLEN=86400.0, HALF=0.5, ONE=1.0, ZERO=0.0) |
|
./pkg/fizhi/fizhi_moist.F |
2002 |
CLOUD |
GMH(I,L) = HOL(I,L) + TX2(I) * PRI(II,L) * (ALBCP*HALF) |
|
./pkg/fizhi/fizhi_moist.F |
2013 |
CLOUD |
* * (TX3(I)*(ALHL*HALF) + ETA(I,IC) * TX8(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2321 |
RNEVP |
PARAMETER ( HALF= 0.5) |
|
./pkg/fizhi/fizhi_moist.F |
2403 |
RNEVP |
IF(N.EQ.1)RELAX=HALF |
|
./pkg/seaice/seaice_lsr.F |
193 |
SEAICE_LSR |
& HALF*(ETA (I,J,bi,bj) + ETA (I-1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
195 |
SEAICE_LSR |
& HALF*(ETA (I,J,bi,bj) + ETA (I ,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
201 |
SEAICE_LSR |
& HALF * ( etaMeanU(I,J,bi,bj) + etaMeanU(I,J-1,bi,bj) ) |
|
./pkg/seaice/SEAICE_PARAMS.h |
223 |
NO PROCEDURE |
_RL QUART , HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
224 |
NO PROCEDURE |
parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
SEAICE_OCEAN_STRESS |
& HALF*(ETA (I,J,bi,bj) + ETA (I-1,J ,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
104 |
SEAICE_OCEAN_STRESS |
& HALF*(ETA (I,J,bi,bj) + ETA (I ,J-1,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
267 |
SEAICE_OCEAN_STRESS |
fuIce=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J+1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
278 |
SEAICE_OCEAN_STRESS |
fvIce=HALF*( DWATN(I,J,bi,bj)+DWATN(I+1,J,bi,bj) )* |
|
./pkg/seaice/advect.F |
108 |
ADVECT |
& -DELTT * HALF * ( |
|
./pkg/seaice/advect.F |
140 |
ADVECT |
HEFF(I,J,2,bi,bj)=HALF*(HEFF(I,J,1,bi,bj) |
|
./pkg/seaice/advect.F |
161 |
ADVECT |
& *(HALF * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
169 |
ADVECT |
& *(HALF * _recip_dyF(I,J,bi,bj) * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
181 |
ADVECT |
& -DELTT * HALF * ( |
|
./pkg/seaice/advect.F |
88 |
ADVECT |
& *(HALF * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
96 |
ADVECT |
& *(HALF * _recip_dyF(I,J,bi,bj) * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/seaice_calc_viscosities.F |
104 |
SEAICE_CALC_VISCOSITIES |
zeta(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/seaice_calc_viscosities.F |
78 |
SEAICE_CALC_VISCOSITIES |
& -HALF* |
|
./pkg/seaice/seaice_calc_viscosities.F |
84 |
SEAICE_CALC_VISCOSITIES |
e12=HALF*( |
|
./pkg/seaice/seaice_calc_viscosities.F |
92 |
SEAICE_CALC_VISCOSITIES |
& +HALF* |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF* _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
207 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF* _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
210 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
213 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
229 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
297 |
DYNSOLVER |
UICE(I,J,1,bi,bj)=HALF*(UICE(I,J,1,bi,bj)+UICE(I,J,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
298 |
DYNSOLVER |
VICE(I,J,1,bi,bj)=HALF*(VICE(I,J,1,bi,bj)+VICE(I,J,2,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
311 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
318 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
321 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
324 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
340 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
74 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
76 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
262 |
SEAICE_DYNSOLVER |
uIce(I,J,1,bi,bj)=HALF*(uIce(I,J,1,bi,bj)+uIce(I,J,2,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
263 |
SEAICE_DYNSOLVER |
vIce(I,J,1,bi,bj)=HALF*(vIce(I,J,1,bi,bj)+vIce(I,J,2,bi,bj)) |
|
./pkg/seaice/seaice_dynsolver.F |
83 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=RHOICE*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
85 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=RHOICE*HALF*( |
|
./pkg/seaice/lsr.F |
413 |
LSR |
& + HALF*(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj)) |
|
./pkg/seaice/lsr.F |
419 |
LSR |
& +HALF*(ZETAMEAN(I,J,bi,bj) - ETAMEAN(I,J,bi,bj)) |
|
./pkg/seaice/growth.F |
239 |
GROWTH |
& +HALF*HCORR(I,J,bi,bj)*AREA(I,J,2,bi,bj) |
|
./pkg/seaice/ostres.F |
100 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
98 |
OSTRES |
fu(I,J,bi,bj)=HALF |