| File |
Line number |
Procedure |
Code |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
121 |
TURBIO |
_RL radswg(im,jm),radswt(im,jm),radlwg(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 |
365 |
TURBIO |
tmpdiag(i,1) = fdifpar(i,1) * radswt(i,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
369 |
TURBIO |
tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
373 |
TURBIO |
tmpdiag(i,1) = radswg(i,1) * radswt(i,1) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
122 |
DO_FIZHI |
_RL radswt(sNx,sNy,Nsx,Nsy),radswg(sNx,sNy,Nsx,Nsy) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
180 |
DO_FIZHI |
radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
236 |
DO_FIZHI |
. fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj), |
|
./verification/fizhi-cs-aqualev10/code/do_fizhi.F |
300 |
DO_FIZHI |
. swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,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 |
122 |
DO_FIZHI |
_RL radswt(sNx,sNy,Nsx,Nsy),radswg(sNx,sNy,Nsx,Nsy) |
|
./pkg/fizhi/fizhi_step_diag.F |
107 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
118 |
FIZHI_STEP_DIAG |
if(radswt(i,j,bi,bj).ne.0.) then |
|
./pkg/fizhi/fizhi_step_diag.F |
198 |
FIZHI_STEP_DIAG |
. swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) ) |
|
./pkg/fizhi/fizhi_step_diag.F |
21 |
FIZHI_STEP_DIAG |
_RL radswt(im2,jm2,Nbi,Nbj),radswg(im2,jm2,Nbi,Nbj) |
|
./pkg/fizhi/fizhi_step_diag.F |
252 |
FIZHI_STEP_DIAG |
. + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
265 |
FIZHI_STEP_DIAG |
. + swdtclr(i,j,l,bi,bj)*radswt(i,j,bi,bj)* |
|
./pkg/fizhi/fizhi_step_diag.F |
423 |
FIZHI_STEP_DIAG |
. radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400 |
|
./pkg/fizhi/fizhi_step_diag.F |
66 |
FIZHI_STEP_DIAG |
call DIAGNOSTICS_FILL(radswt,'RADSWT ',0,1,3,bi,bj,myid) |
|
./pkg/fizhi/fizhi_step_diag.F |
6 |
FIZHI_STEP_DIAG |
. radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |
|
./pkg/fizhi/fizhi_step_diag.F |
74 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
85 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
96 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_driver.F |
205 |
FIZHI_DRIVER |
. turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt, |
|
./pkg/fizhi/fizhi_driver.F |
64 |
FIZHI_DRIVER |
_RL radswt(im,jm), fracland(im,jm) |
|
./pkg/fizhi/fizhi_driver.F |
7 |
FIZHI_DRIVER |
. p,u,v,t,q,pl,ple,dpres,pkht,pkl,surfz,fracland,landtype,radswt, |
|
./pkg/fizhi/fizhi_turb.F |
121 |
TURBIO |
_RL radswg(im,jm),radswt(im,jm),radlwg(im,jm) |
|
./pkg/fizhi/fizhi_turb.F |
12 |
TURBIO |
8 ,duturb, dvturb, dtturb,dqturb,radlwg,st4,dst4,radswg,radswt |
|
./pkg/fizhi/fizhi_turb.F |
365 |
TURBIO |
tmpdiag(i,1) = fdifpar(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
369 |
TURBIO |
tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1) |
|
./pkg/fizhi/fizhi_turb.F |
373 |
TURBIO |
tmpdiag(i,1) = radswg(i,1) * radswt(i,1) |
|
./pkg/fizhi/do_fizhi.F |
122 |
DO_FIZHI |
_RL radswt(sNx,sNy,Nsx,Nsy),radswg(sNx,sNy,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
179 |
DO_FIZHI |
radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j) |
|
./pkg/fizhi/do_fizhi.F |
235 |
DO_FIZHI |
. fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
299 |
DO_FIZHI |
. swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj) |
|
./pkg/fizhi/do_fizhi.F |
307 |
DO_FIZHI |
. radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |