| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
122 |
DO_FIZHI |
_RL radswt(sNx,sNy,Nsx,Nsy),radswg(sNx,sNy,Nsx,Nsy) |
|
./pkg/fizhi/do_fizhi.F |
156 |
DO_FIZHI |
common /saver/ radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg |
|
./pkg/fizhi/do_fizhi.F |
256 |
DO_FIZHI |
. radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj), |
|
./pkg/fizhi/do_fizhi.F |
311 |
DO_FIZHI |
. radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |
|
./pkg/fizhi/fizhi_driver.F |
166 |
FIZHI_DRIVER |
. radswg,swgclr,fdifpar,fdirpar,osr,osrclr, |
|
./pkg/fizhi/fizhi_driver.F |
16 |
FIZHI_DRIVER |
. radswg,swgclr,fdirpar,fdifpar,osr,osrclr,tg0,radlwg,lwgclr, |
|
./pkg/fizhi/fizhi_driver.F |
207 |
FIZHI_DRIVER |
. turbu,turbv,turbt,turbq,radlwg,st4,dst4,radswg,radswt, |
|
./pkg/fizhi/fizhi_driver.F |
83 |
FIZHI_DRIVER |
_RL radswg(im,jm),swgclr(im,jm) |
|
./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 |
6 |
FIZHI_STEP_DIAG |
. radswt,radswg,swgclr,osr,osrclr,st4,dst4,tgz,tg0,radlwg,lwgclr, |
|
./pkg/fizhi/fizhi_step_diag.F |
75 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_swrad.F |
29 |
SWRIO |
_RL radswg(im,jm),swgclr(im,jm),fdifpar(im,jm),fdirpar(im,jm) |
|
./pkg/fizhi/fizhi_swrad.F |
485 |
SWRIO |
call PASTE ( flux (1,lm+1),radswg,istrip,im*jm,1,nn ) |
|
./pkg/fizhi/fizhi_swrad.F |
9 |
SWRIO |
. dtradsw,dtswclr,radswg,swgclr, |
|
./pkg/fizhi/fizhi_turb.F |
12 |
TURBIO |
8 ,duturb, dvturb, dtturb,dqturb,radlwg,st4,dst4,radswg,radswt |
|
./pkg/fizhi/fizhi_turb.F |
135 |
TURBIO |
_RL radswg(im*jm,1),radswt(im*jm,1),radlwg(im*jm,1) |
|
./pkg/fizhi/fizhi_turb.F |
397 |
TURBIO |
tmpdiag(i,1) = radswg(i,1) * radswt(i,1) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
122 |
DO_FIZHI |
_RL radswt(sNx,sNy,Nsx,Nsy),radswg(sNx,sNy,Nsx,Nsy) |