| 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 |
581 |
NO PROCEDURE |
_RL QUART , HALF |
|
./pkg/seaice/SEAICE_PARAMS.h |
582 |
NO PROCEDURE |
PARAMETER ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 ) |
|
./pkg/seaice/advect.F |
131 |
ADVECT |
& *(HALF * _recip_dxF(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
139 |
ADVECT |
& *(HALF * _recip_dyF(i,j,bi,bj) * _recip_dxF(i,j,bi,bj)) |
|
./pkg/seaice/advect.F |
97 |
ADVECT |
tmpFld(i,j,bi,bj)=HALF*(fld(i,j,bi,bj) |
|
./pkg/seaice/diffus.F |
72 |
DIFFUS |
& * ( DIFFA(i,j,bi,bj)+DIFFA(i-1,j,bi,bj) )*HALF |
|
./pkg/seaice/diffus.F |
82 |
DIFFUS |
& * ( DIFFA(i,j,bi,bj)+DIFFA(i,j-1,bi,bj) )*HALF |
|
./pkg/seaice/dynsolver.F |
200 |
DYNSOLVER |
& )*HALF*_recip_dxV(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
205 |
DYNSOLVER |
& )*HALF*_recip_dyU(I,J,bi,bj) |
|
./pkg/seaice/dynsolver.F |
278 |
DYNSOLVER |
UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
279 |
DYNSOLVER |
VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj)) |
|
./pkg/seaice/dynsolver.F |
81 |
DYNSOLVER |
GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj) |
|
./pkg/seaice/dynsolver.F |
83 |
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 |
159 |
SEAICE_CALC_VISCOSITIES |
zeta (I,J,bi,bj) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_dynsolver.F |
117 |
SEAICE_DYNSOLVER |
seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
119 |
SEAICE_DYNSOLVER |
seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
129 |
SEAICE_DYNSOLVER |
& + SEAICE_rhoSnow*HALF*( |
|
./pkg/seaice/seaice_dynsolver.F |
133 |
SEAICE_DYNSOLVER |
& + SEAICE_rhoSnow*HALF*( |
|
./pkg/seaice/seaice_evp.F |
426 |
SEAICE_EVP |
zetaC(I,J) = HALF*( press0(I,J,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
120 |
SEAICE_FREEDRIFT |
sol_n=SQRT(HALF*(SQRT(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
163 |
SEAICE_FREEDRIFT |
uice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
165 |
SEAICE_FREEDRIFT |
vice_fd(i,j,bi,bj)=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
84 |
SEAICE_FREEDRIFT |
taux_onIce_cntr=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
86 |
SEAICE_FREEDRIFT |
tauy_onIce_cntr=HALF* |
|
./pkg/seaice/seaice_freedrift.F |
91 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
92 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1849 |
SEAICE_GROWTH |
& + recip_HO*tmpscal4+HALF*recip_HH*tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1860 |
SEAICE_GROWTH |
& +HALF*recip_HH*MIN(0. _d 0,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1863 |
SEAICE_GROWTH |
& HALF*recip_HH*MIN(0. _d 0,d_HEFFbyATMonOCN_cover(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1866 |
SEAICE_GROWTH |
& HALF*recip_HH*MIN( 0. _d 0,d_HEFFbyOCNonICE(I,J) ) |
|
./pkg/seaice/seaice_lsr.F |
291 |
SEAICE_LSR |
uIce (I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
292 |
SEAICE_LSR |
vIce (I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
407 |
SEAICE_LSR |
FORCEX(I,J,bi,bj) = FORCEX(I,J,bi,bj) + HALF* |
|
./pkg/seaice/seaice_lsr.F |
412 |
SEAICE_LSR |
FORCEY(I,J,bi,bj) = FORCEY(I,J,bi,bj) - HALF* |
|
./pkg/seaice/seaice_lsr.F |
555 |
SEAICE_LSR |
& + HALF*( dragSym(i,j,bi,bj) + dragSym(i-1,j,bi,bj) ) |
|
./pkg/seaice/seaice_lsr.F |
561 |
SEAICE_LSR |
& + HALF*( dragSym(i,j,bi,bj) + dragSym(i,j-1,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
106 |
SEAICE_OCEAN_STRESS |
fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )* |
|
./pkg/seaice/seaice_ocean_stress.F |
95 |
SEAICE_OCEAN_STRESS |
fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )* |