| 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 |
278 |
NO PROCEDURE |
_RL QUART , HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
279 |
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 |
55 |
OSTRES |
fu(I,J,bi,bj)=HALF |
|
./pkg/seaice/ostres.F |
57 |
OSTRES |
fv(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_freedrift.F |
122 |
SEAICE_FREEDRIFT |
sol_n=sqrt(HALF*(sqrt(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
165 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
167 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
87 |
SEAICE_FREEDRIFT |
& tmpscal1*HALF*(TAUX(i,j,bi,bj)+TAUX(i+1,j,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
89 |
SEAICE_FREEDRIFT |
& tmpscal1*HALF*(TAUY(i,j,bi,bj)+TAUY(i,j+1,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
93 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
94 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1058 |
SEAICE_GROWTH |
& +HALF*tmpscal3*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1061 |
SEAICE_GROWTH |
& +HALF*tmpscal3/heffActual(I,J) |
|
./pkg/seaice/seaice_lsr.F |
172 |
SEAICE_LSR |
uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
173 |
SEAICE_LSR |
vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
105 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
94 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
278 |
NO PROCEDURE |
_RL QUART , HALF |
|
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h |
279 |
NO PROCEDURE |
parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |