| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
126 |
MOISTIO |
_RL offset, alpha, rasmax |
|
./pkg/fizhi/fizhi_moist.F |
169 |
MOISTIO |
alpha = 0.80 |
|
./pkg/fizhi/fizhi_moist.F |
2367 |
RNEVP |
2 tmfrc,cp,gravity,alhl,gamfac,cldlz,RHCRIT,offset,alpha) |
|
./pkg/fizhi/fizhi_moist.F |
2379 |
RNEVP |
_RL tmscl,tmfrc,cp,gravity,alhl,gamfac,offset,alpha |
|
./pkg/fizhi/fizhi_moist.F |
2554 |
RNEVP |
fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) / |
|
./pkg/fizhi/fizhi_moist.F |
2586 |
SRCLOUDS |
1 rhc,offset,alpha) |
|
./pkg/fizhi/fizhi_moist.F |
2630 |
SRCLOUDS |
_RL offset,alpha |
|
./pkg/fizhi/fizhi_moist.F |
2657 |
SRCLOUDS |
ratio = alpha*(rh-rhcrit)/offset |
|
./pkg/fizhi/fizhi_moist.F |
656 |
MOISTIO |
. CLSBTH,TMSTP,one,cp,grav,alhl,gamfac,cldlz,rhcrit,offset,alpha) |
|
./pkg/fizhi/fizhi_moist.F |
701 |
MOISTIO |
. rhcrit,offset,alpha) |
|
./pkg/fizhi/fizhi_turb.F |
1515 |
TRBFLX |
_RL b1,b3,alpha,halpha,qqmin,qbustr |
|
./pkg/fizhi/fizhi_turb.F |
3843 |
TRBLEN |
_RL rf1,rf2,e5,d4,d1,rfc,ricr,alpha,dzcnv,xl0cnv,xl0min |
|
./pkg/land/land_impl_temp.F |
139 |
LAND_IMPL_TEMP |
alpha = land_hSnow(i,j,bi,bj)/diffKsnow |
|
./pkg/land/land_impl_temp.F |
140 |
LAND_IMPL_TEMP |
beta = 1. _d 0/(1. _d 0+alpha*bLoc) |
|
./pkg/land/land_impl_temp.F |
165 |
LAND_IMPL_TEMP |
tSurf = ( tg(1) + alpha*fLoc ) * beta |
|
./pkg/land/land_impl_temp.F |
187 |
LAND_IMPL_TEMP |
tSurf = ( tg(1) + alpha*fLoc ) * beta |
|
./pkg/land/land_impl_temp.F |
202 |
LAND_IMPL_TEMP |
& tmp2,(tmp1+alpha*fLoc)*beta |
|
./pkg/land/land_impl_temp.F |
228 |
LAND_IMPL_TEMP |
tSurf = alpha*fLoc * beta |
|
./pkg/land/land_impl_temp.F |
255 |
LAND_IMPL_TEMP |
& tmp1,(tmp1+alpha*fLoc)*beta |
|
./pkg/land/land_impl_temp.F |
304 |
LAND_IMPL_TEMP |
& / ( cg(1)+aLoc + delT/alpha - aLoc*aLoc/(cg(2)+aLoc) ) |
|
./pkg/land/land_impl_temp.F |
308 |
LAND_IMPL_TEMP |
tg(1) = cg(1)*tg(1) / ( cg(1)+aLoc + delT/alpha ) |
|
./pkg/land/land_impl_temp.F |
313 |
LAND_IMPL_TEMP |
dMsn = ( fLoc+tg(1)/alpha )*delT*recip_Lfreez |
|
./pkg/land/land_impl_temp.F |
317 |
LAND_IMPL_TEMP |
& 2, dMsn, fLoc,tg(1)/alpha |
|
./pkg/land/land_impl_temp.F |
80 |
LAND_IMPL_TEMP |
_RL aLoc, bLoc, cLoc, eLoc, fLoc, alpha, beta |
|
./model/src/cg2d.F |
342 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, alpha, 0, 0, myThid) |
|
./model/src/cg2d.F |
344 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
|
./model/src/cg2d.F |
349 |
CG2D |
alpha = eta_qrN/alpha |
|
./model/src/cg2d.F |
361 |
CG2D |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d.F |
362 |
CG2D |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d.F |
98 |
CG2D |
_RL alpha, alphaTile(nSx,nSy) |
|
./model/src/cg2d_nsa.F |
111 |
CG2D_NSA |
_RL alpha |
|
./model/src/cg2d_nsa.F |
371 |
CG2D_NSA |
alpha = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
404 |
CG2D_NSA |
alpha = eta_qrN/alpha_aux |
|
./model/src/cg2d_nsa.F |
422 |
CG2D_NSA |
cg2d_x(I,J,bi,bj)=cg2d_x(I,J,bi,bj)+alpha*cg2d_s(I,J,bi,bj) |
|
./model/src/cg2d_nsa.F |
423 |
CG2D_NSA |
cg2d_r(I,J,bi,bj)=cg2d_r(I,J,bi,bj)-alpha*cg2d_q(I,J,bi,bj) |
|
./model/src/cg2d_sr.F |
103 |
CG2D_SR |
_RL alpha, alphaTile(nSx,nSy) |
|
./model/src/cg2d_sr.F |
234 |
CG2D_SR |
alpha = 0. _d 0 |
|
./model/src/cg2d_sr.F |
256 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
|
./model/src/cg2d_sr.F |
258 |
CG2D_SR |
sigma = eta_qrN/alpha |
|
./model/src/cg2d_sr.F |
372 |
CG2D_SR |
alpha = delta - cgBeta**2*alpha |
|
./model/src/cg2d_sr.F |
373 |
CG2D_SR |
sigma = eta_qrN/alpha |
|
./model/src/cg3d.F |
105 |
CG3D |
_RL alpha , alphaTile(nSx,nSy) |
|
./model/src/cg3d.F |
361 |
CG3D |
alpha = 0. _d 0 |
|
./model/src/cg3d.F |
479 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
|
./model/src/cg3d.F |
483 |
CG3D |
alpha = eta_qrN/alpha |
|
./model/src/cg3d.F |
501 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
503 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./lsopt/hessupd.F |
38 |
HESSUPD |
double precision dd(nn), alpha(100), xdiff(nn) |
|
./lsopt/hessupd.F |
75 |
HESSUPD |
alpha(jp) = r |
|
./lsopt/hessupd.F |
98 |
HESSUPD |
r = alpha(jp) - DDOT( nn, dd,1 , xdiff, 1 ) |
|
./pkg/dic/DIC_VARS.h |
120 |
NO PROCEDURE |
& alpha, rain_ratio, InputFe, omegaC, |
|
./pkg/dic/DIC_VARS.h |
149 |
NO PROCEDURE |
_RL alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/dic/bio_export.F |
147 |
BIO_EXPORT |
bioac(i,j,k)=alpha(i,j,bi,bj)* |
|
./pkg/dic/dic_init_varia.F |
45 |
DIC_INIT_VARIA |
alpha(i,j,bi,bj) = alphaUniform |
|
./pkg/dic/dic_set_control.F |
110 |
DIC_SET_CONTROL |
_EXCH_XY_RL( alpha, myThid ) |
|
./pkg/dic/dic_set_control.F |
64 |
DIC_SET_CONTROL |
print*,'QQ alpha before', alpha(20,10,1,1) |
|
./pkg/dic/dic_set_control.F |
78 |
DIC_SET_CONTROL |
alpha (i,j,bi,bj) = alpha(i,j,bi,bj) |
|
./pkg/dic/dic_set_control.F |
92 |
DIC_SET_CONTROL |
print*,'QQ - preturb alpha', alpha(20,10,1,1), |