| File |
Line number |
Procedure |
Code |
|
./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/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 |