File |
Line number |
Procedure |
Code |
./pkg/fizhi/do_fizhi.F |
127 |
DO_FIZHI |
_RL tg0(sNx,sNy,nSx,nSy),radlwg(sNx,sNy,nSx,nSy) |
./pkg/fizhi/do_fizhi.F |
157 |
DO_FIZHI |
COMMON /saver/ radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg |
./pkg/fizhi/do_fizhi.F |
260 |
DO_FIZHI |
& tg0(1,1,bi,bj),radlwg(1,1,bi,bj),lwgclr(1,1,bi,bj), |
./pkg/fizhi/do_fizhi.F |
313 |
DO_FIZHI |
& radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |
./pkg/fizhi/fizhi_driver.F |
16 |
FIZHI_DRIVER |
& radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg,lwgclr, |
./pkg/fizhi/fizhi_driver.F |
190 |
FIZHI_DRIVER |
& cfc11,cfc12,cfc22,methane,n2o,emiss,tgz,radlwg,st4,dst4, |
./pkg/fizhi/fizhi_driver.F |
210 |
FIZHI_DRIVER |
& turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt, |
./pkg/fizhi/fizhi_driver.F |
87 |
FIZHI_DRIVER |
_RL tg0(im,jm),radlwg(im,jm),lwgclr(im,jm),st4(im,jm) |
./pkg/fizhi/fizhi_lwrad.F |
10 |
LWRIO |
. tgz,radlwg,st4,dst4, |
./pkg/fizhi/fizhi_lwrad.F |
27 |
LWRIO |
_RL tgz(im,jm),radlwg(im,jm),st4(im,jm),dst4(im,jm) |
./pkg/fizhi/fizhi_step_diag.F |
143 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radlwg(i,j,bi,bj) + |
./pkg/fizhi/fizhi_step_diag.F |
25 |
FIZHI_STEP_DIAG |
_RL tg0(im2,jm2,Nbi,Nbj),radlwg(im2,jm2,Nbi,Nbj) |
./pkg/fizhi/fizhi_step_diag.F |
6 |
FIZHI_STEP_DIAG |
& radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |
./pkg/fizhi/fizhi_turb.F |
137 |
TURBIO |
_RL radswg(im*jm,1),radswt(im*jm,1),radlwg(im*jm,1) |
./pkg/fizhi/fizhi_turb.F |
33 |
TURBIO |
8 ,duturb, dvturb, dtturb,dqturb,radlwg,st4,dst4,radswg,radswt |
./pkg/fizhi/fizhi_turb.F |
350 |
TURBIO |
tmpdiag(i,1) = radlwg(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
127 |
DO_FIZHI |
_RL tg0(sNx,sNy,nSx,nSy),radlwg(sNx,sNy,nSx,nSy) |