| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1656 |
CLOUD |
PARAMETER (DAYLEN=86400.0, HALF=0.5, ONE=1.0, ZERO=0.0) |
|
./pkg/fizhi/fizhi_moist.F |
2074 |
CLOUD |
GMH(I,L) = HOL(I,L) + TX2(I) * PRI(II,L) * (ALBCP*HALF) |
|
./pkg/fizhi/fizhi_moist.F |
2085 |
CLOUD |
* * (TX3(I)*(ALHL*HALF) + ETA(I,IC) * TX8(I)) |
|
./pkg/fizhi/fizhi_moist.F |
2393 |
RNEVP |
PARAMETER ( HALF= 0.5) |
|
./pkg/fizhi/fizhi_moist.F |
2476 |
RNEVP |
IF(N.EQ.1)RELAX=HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
271 |
NO PROCEDURE |
_RL QUART , HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
272 |
NO PROCEDURE |
parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |
|
./pkg/seaice/advect.F |
112 |
ADVECT |
& *(HALF * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
120 |
ADVECT |
& *(HALF * _recip_dyF(I,J,bi,bj) * _recip_dxF(I,J,bi,bj)) |
|
./pkg/seaice/advect.F |
78 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
193 |
DYNSOLVER |
& )*HALF*_recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
198 |
DYNSOLVER |
& )*HALF*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
264 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF* _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
271 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF* _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
274 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
277 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
293 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
369 |
DYNSOLVER |
UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
370 |
DYNSOLVER |
VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
383 |
DYNSOLVER |
E11(I,J,bi,bj)=HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
390 |
DYNSOLVER |
E22(I,J,bi,bj)=HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
393 |
DYNSOLVER |
E12(I,J,bi,bj)=HALF*(HALF * _recip_dyF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
396 |
DYNSOLVER |
& +HALF * _recip_dxF(I,J,bi,bj) * |
|
./pkg/seaice/dynsolver.F |
412 |
DYNSOLVER |
ZETA(I,J,bi,bj)=HALF*PRESS0(I,J,bi,bj)/DELT2 |
|
./pkg/seaice/dynsolver.F |
79 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/ostres.F |
101 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
103 |
OSTRES |
fv(I,J,bi,bj)=HALF |
|
./pkg/seaice/seaice_calc_strainrates.F |
148 |
SEAICE_CALC_STRAINRATES |
& -HALF* |
|
./pkg/seaice/seaice_calc_strainrates.F |
158 |
SEAICE_CALC_STRAINRATES |
e12Loc(I,J,bi,bj) = HALF*( |
|
./pkg/seaice/seaice_calc_viscosities.F |
97 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_dynsolver.F |
102 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
104 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_evp.F |
140 |
SEAICE_EVP |
fac = HALF * SEAICE_evpDampC * SEAICE_evpTauRelax |
|
./pkg/seaice/seaice_evp.F |
242 |
SEAICE_EVP |
zetaC(I,J) = HALF*press0(I,J,bi,bj)/deltaCreg |
|
./pkg/seaice/seaice_evp.F |
246 |
SEAICE_EVP |
zetaZ(I,J) = HALF/deltaZreg * pressZ |
|
./pkg/seaice/seaice_growth.F |
532 |
SEAICE_GROWTH |
& +HALF*HCORR(I,J)*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
537 |
SEAICE_GROWTH |
& +HALF*HCORR(I,J)*AREANm1(I,J,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1140 |
SEAICE_LSR |
& HALF*(ETA (I,J,bi,bj) + ETA (I-1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1146 |
SEAICE_LSR |
& HALF*(ETA (I,J,bi,bj) + ETA (I ,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
173 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
174 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
996 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
997 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
89 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |