| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/do_fizhi.F |
126 |
DO_FIZHI |
_RL osr(sNx,sNy,nSx,nSy),osrclr(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 |
259 |
DO_FIZHI |
& fdifpar(1,1,bi,bj),osr(1,1,bi,bj),osrclr(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 |
168 |
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 |
86 |
FIZHI_DRIVER |
_RL fdirpar(im,jm),fdifpar(im,jm),osr(im,jm),osrclr(im,jm) |
|
./pkg/fizhi/fizhi_step_diag.F |
117 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = osr(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_step_diag.F |
22 |
FIZHI_STEP_DIAG |
_RL swgclr(im2,jm2,Nbi,Nbj),osr(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 |
94 |
FIZHI_STEP_DIAG |
tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_swrad.F |
10 |
SWRIO |
. fdifpar,fdirpar,osr,osrclr, |
|
./pkg/fizhi/fizhi_swrad.F |
30 |
SWRIO |
_RL osr(im,jm),osrclr(im,jm),dtradsw(im,jm,lm) |
|
./pkg/fizhi/fizhi_swrad.F |
482 |
SWRIO |
call PASTE ( flux (1,1),osr ,istrip,im*jm,1,nn ) |
|
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
126 |
DO_FIZHI |
_RL osr(sNx,sNy,nSx,nSy),osrclr(sNx,sNy,nSx,nSy) |