| 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 |
1345 |
TRBFLX |
_RL b1,b3,alpha,halpha,qqmin,qbustr |
|
./pkg/fizhi/fizhi_turb.F |
3389 |
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 |
302 |
CG2D |
CALL GLOBAL_SUM_SINGLECPU_RL(localBuf, alpha, 0, 0, myThid) |
|
./model/src/cg2d.F |
304 |
CG2D |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
|
./model/src/cg2d.F |
310 |
CG2D |
alpha = eta_qrN/alpha |
|
./model/src/cg2d.F |
319 |
CG2D |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d.F |
320 |
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_ex0.F |
261 |
CG2D_EX0 |
alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj) |
|
./model/src/cg2d_ex0.F |
268 |
CG2D_EX0 |
cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
269 |
CG2D_EX0 |
cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj) |
|
./model/src/cg2d_ex0.F |
357 |
CG2D_EX0 |
alpha = -nIterMin |
|
./model/src/cg2d_ex0.F |
358 |
CG2D_EX0 |
_GLOBAL_MAX_RL( alpha, myThid ) |
|
./model/src/cg2d_ex0.F |
359 |
CG2D_EX0 |
nIterMin = NINT( -alpha ) |
|
./model/src/cg2d_ex0.F |
360 |
CG2D_EX0 |
alpha = numIters |
|
./model/src/cg2d_ex0.F |
361 |
CG2D_EX0 |
_GLOBAL_MAX_RL( alpha, myThid ) |
|
./model/src/cg2d_ex0.F |
362 |
CG2D_EX0 |
numIters = NINT( alpha ) |
|
./model/src/cg2d_ex0.F |
363 |
CG2D_EX0 |
alpha = -minResidualSq |
|
./model/src/cg2d_ex0.F |
364 |
CG2D_EX0 |
_GLOBAL_MAX_RL( alpha, myThid ) |
|
./model/src/cg2d_ex0.F |
365 |
CG2D_EX0 |
minResidualSq = -alpha |
|
./model/src/cg2d_ex0.F |
91 |
CG2D_EX0 |
_RL alpha, alphaTile(nSx,nSy) |
|
./model/src/cg2d_nsa.F |
107 |
CG2D_NSA |
_RL cgBeta, alpha |
|
./model/src/cg2d_nsa.F |
327 |
CG2D_NSA |
alpha = eta_qrN/alphaSum |
|
./model/src/cg2d_nsa.F |
341 |
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 |
342 |
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 |
104 |
CG2D_SR |
_RL alpha, alphaTile(nSx,nSy) |
|
./model/src/cg2d_sr.F |
268 |
CG2D_SR |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
|
./model/src/cg2d_sr.F |
270 |
CG2D_SR |
sigma = eta_qrN/alpha |
|
./model/src/cg2d_sr.F |
384 |
CG2D_SR |
alpha = delta - (cgBeta*cgBeta)*alpha |
|
./model/src/cg2d_sr.F |
385 |
CG2D_SR |
sigma = eta_qrN/alpha |
|
./model/src/cg3d.F |
105 |
CG3D |
_RL alpha , alphaTile(nSx,nSy) |
|
./model/src/cg3d.F |
471 |
CG3D |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
|
./model/src/cg3d.F |
476 |
CG3D |
alpha = eta_qrN/alpha |
|
./model/src/cg3d.F |
490 |
CG3D |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
492 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
453 |
CG3D_EX0 |
alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj) |
|
./model/src/cg3d_ex0.F |
465 |
CG3D_EX0 |
& +alpha*cg3d_s(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
467 |
CG3D_EX0 |
& -alpha*cg3d_q(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
524 |
CG3D_EX0 |
alpha = numIters |
|
./model/src/cg3d_ex0.F |
525 |
CG3D_EX0 |
_GLOBAL_MAX_RL( alpha, myThid ) |
|
./model/src/cg3d_ex0.F |
526 |
CG3D_EX0 |
numIters = NINT( alpha ) |
|
./model/src/cg3d_ex0.F |
97 |
CG3D_EX0 |
_RL alpha , alphaTile(nSx,nSy) |
|
./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/diagnostics/diag_cg2d.F |
290 |
DIAG_CG2D |
CALL GLOBAL_SUM_TILE_RL( alphaTile, alpha, myThid ) |
|
./pkg/diagnostics/diag_cg2d.F |
291 |
DIAG_CG2D |
alpha = eta_qrN/alpha |
|
./pkg/diagnostics/diag_cg2d.F |
300 |
DIAG_CG2D |
x2d(i,j,bi,bj)=x2d(i,j,bi,bj)+alpha*s2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
301 |
DIAG_CG2D |
r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj) |
|
./pkg/diagnostics/diag_cg2d.F |
86 |
DIAG_CG2D |
_RL alpha, alphaTile(nSx,nSy) |
|
./pkg/dic/DIC_VARS.h |
127 |
NO PROCEDURE |
& par, alpha, rain_ratio, InputFe, omegaC, CHL, |
|
./pkg/dic/DIC_VARS.h |
160 |
NO PROCEDURE |
_RL alpha(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/dic/bio_export.F |
148 |
BIO_EXPORT |
bioac(i,j,k)=alpha(i,j,bi,bj)* |
|
./pkg/dic/dic_init_varia.F |
60 |
DIC_INIT_VARIA |
alpha(i,j,bi,bj) = alphaUniform |
|
./pkg/dic/dic_set_control.F |
113 |
DIC_SET_CONTROL |
_EXCH_XY_RL( alpha, myThid ) |
|
./pkg/dic/dic_set_control.F |
67 |
DIC_SET_CONTROL |
print*,'QQ alpha before', alpha(20,10,1,1) |
|
./pkg/dic/dic_set_control.F |
81 |
DIC_SET_CONTROL |
alpha (i,j,bi,bj) = alpha(i,j,bi,bj) |
|
./pkg/dic/dic_set_control.F |
95 |
DIC_SET_CONTROL |
print*,'QQ - preturb alpha', alpha(20,10,1,1), |