| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
128 |
DO_FIZHI |
_RL lwgclr(sNx,sNy,nSx,nSy),st4(sNx,sNy,nSx,nSy) |
|
./pkg/fizhi/do_fizhi.F |
158 |
DO_FIZHI |
COMMON /saver/ st4,dst4,dlwdtg,lwgclr |
|
./pkg/fizhi/do_fizhi.F |
261 |
DO_FIZHI |
& st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,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 |
17 |
FIZHI_DRIVER |
& st4,dst4,dlwdtg,rainlsp,raincon,snowfall,iras,nlwcld, |
|
./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 |
1658 |
IRRAD |
st4(i,j)=st4(i,j)-blayer(i,j,np+1) |
|
./pkg/fizhi/fizhi_lwrad.F |
248 |
LWRIO |
CALL PASTE ( sgmt4, st4,ISTRIP,im*jm,1,NN ) |
|
./pkg/fizhi/fizhi_lwrad.F |
27 |
LWRIO |
_RL tgz(im,jm),radlwg(im,jm),st4(im,jm),dst4(im,jm) |
|
./pkg/fizhi/fizhi_lwrad.F |
350 |
IRRAD |
* high,trace,flx,flc,dfdts,st4) |
|
./pkg/fizhi/fizhi_lwrad.F |
580 |
IRRAD |
* st4(m,ndim) |
|
./pkg/fizhi/fizhi_lwrad.F |
969 |
IRRAD |
st4(i,j) = 0.0 |
|
./pkg/fizhi/fizhi_step_diag.F |
131 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = st4(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
23 |
FIZHI_STEP_DIAG |
_RL osrclr(im2,jm2,Nbi,Nbj),st4(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_swrad.F |
1997 |
DELEDD |
* all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 |
|
./pkg/fizhi/fizhi_swrad.F |
2057 |
DELEDD |
st4 = st2 * st2 |
|
./pkg/fizhi/fizhi_swrad.F |
2059 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |
|
./pkg/fizhi/fizhi_swrad.F |
2064 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2065 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./pkg/fizhi/fizhi_turb.F |
136 |
TURBIO |
_RL st4(im*jm,1),dst4(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
329 |
TURBIO |
tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
|
./pkg/fizhi/fizhi_turb.F |
33 |
TURBIO |
8 ,duturb, dvturb, dtturb,dqturb,radlwg,st4,dst4,radswg,radswt |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
128 |
DO_FIZHI |
_RL lwgclr(sNx,sNy,nSx,nSy),st4(sNx,sNy,nSx,nSy) |