File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_driver.F |
121 |
FIZHI_DRIVER |
_RL ptop |
./pkg/fizhi/fizhi_driver.F |
128 |
FIZHI_DRIVER |
ptop = 0. |
./pkg/fizhi/fizhi_driver.F |
169 |
FIZHI_DRIVER |
& ptop,nswcld,cldtot_sw,cldras_sw,nswlz,swlz, |
./pkg/fizhi/fizhi_driver.F |
204 |
FIZHI_DRIVER |
& ptop,p,u,v,t,q,ntracer,ptracer,pl,ple,dpres,pkht,pkl, |
./pkg/fizhi/fizhi_driver.F |
248 |
FIZHI_DRIVER |
& moistu,moistv,moistt,moistq,cumfric,im,jm,lm,ptop,iras, |
./pkg/fizhi/fizhi_moist.F |
31 |
MOISTIO |
_RL ptop |
./pkg/fizhi/fizhi_moist.F |
605 |
MOISTIO |
psubcld (i) = sp(i)+ptop-ple(i,nsubcl) |
./pkg/fizhi/fizhi_moist.F |
9 |
MOISTIO |
. im,jm,lm,ptop, |
./pkg/fizhi/fizhi_swrad.F |
11 |
SWRIO |
. ptop,nswcld,cldsw,cswmo,nswlz,swlz, |
./pkg/fizhi/fizhi_swrad.F |
21 |
SWRIO |
_RL ptop |
./pkg/fizhi/fizhi_swrad.F |
473 |
SWRIO |
alf = grav*(ple(i,Lm+1)-ptop)/(cp*dpstrip(i,L)*100) |
./pkg/fizhi/fizhi_turb.F |
119 |
TURBIO |
_RL ptop |
./pkg/fizhi/fizhi_turb.F |
27 |
TURBIO |
1 ,ndturb,nltop,ptop, pz, uz, vz, tz, qz, ntracers,ptracers |
./pkg/fizhi/fizhi_turb.F |
396 |
TURBIO |
utility(I) = pmsc(i) + ptop |