| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
1990 |
DELEDD |
* all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2050 |
DELEDD |
st4 = st2 * st2 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2052 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2057 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F |
2058 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
120 |
TURBIO |
_RL st4(im,jm),dst4(im,jm) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
12 |
TURBIO |
8 ,duturb, dvturb, dtturb,dqturb,radlwg,st4,dst4,radswg,radswt |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
356 |
TURBIO |
tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
127 |
DO_FIZHI |
_RL lwgclr(sNx,sNy,Nsx,Nsy),st4(sNx,sNy,Nsx,Nsy) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
157 |
DO_FIZHI |
common /saver/ st4,dst4,dlwdtg |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
256 |
DO_FIZHI |
. st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,1,1,bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
308 |
DO_FIZHI |
. radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
127 |
DO_FIZHI |
_RL lwgclr(sNx,sNy,Nsx,Nsy),st4(sNx,sNy,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_swrad.F |
1989 |
DELEDD |
* all1,bll,st7,st8,cll,dll,fll,ell,st1,st2,st3,st4 |
|
./pkg/fizhi/fizhi_swrad.F |
2049 |
DELEDD |
st4 = st2 * st2 |
|
./pkg/fizhi/fizhi_swrad.F |
2051 |
DELEDD |
st1 = sscp / ((akk+gm1 + (akk-gm1)*st4) * st3) |
|
./pkg/fizhi/fizhi_swrad.F |
2056 |
DELEDD |
rr = ( cll-dll*st4 -all1*st2)*st1 |
|
./pkg/fizhi/fizhi_swrad.F |
2057 |
DELEDD |
tt = - ((fll-ell*st4)*td-bll*st2)*st1 |
|
./pkg/fizhi/fizhi_step_diag.F |
133 |
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_driver.F |
17 |
FIZHI_DRIVER |
. st4,dst4,dlwdtg,rainlsp,raincon,snowfall,iras,nlwcld, |
|
./pkg/fizhi/fizhi_driver.F |
186 |
FIZHI_DRIVER |
. cfc11,cfc12,cfc22,methane,n2o,emiss,tgz,radlwg,st4,dst4, |
|
./pkg/fizhi/fizhi_driver.F |
205 |
FIZHI_DRIVER |
. turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt, |
|
./pkg/fizhi/fizhi_driver.F |
85 |
FIZHI_DRIVER |
_RL tg0(im,jm),radlwg(im,jm),lwgclr(im,jm),st4(im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
120 |
TURBIO |
_RL st4(im,jm),dst4(im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
12 |
TURBIO |
8 ,duturb, dvturb, dtturb,dqturb,radlwg,st4,dst4,radswg,radswt |
|
./pkg/fizhi/fizhi_turb.F |
356 |
TURBIO |
tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
|
./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/do_fizhi.F |
127 |
DO_FIZHI |
_RL lwgclr(sNx,sNy,Nsx,Nsy),st4(sNx,sNy,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
157 |
DO_FIZHI |
common /saver/ st4,dst4,dlwdtg |
|
./pkg/fizhi/do_fizhi.F |
255 |
DO_FIZHI |
. st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
307 |
DO_FIZHI |
. radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |