File |
Line number |
Procedure |
Code |
./pkg/fizhi/do_fizhi.F |
129 |
DO_FIZHI |
_RL dst4(sNx,sNy,nSx,nSy),dlwdtg(sNx,sNy,Nrphys,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 |
88 |
FIZHI_DRIVER |
_RL dst4(im,jm) |
./pkg/fizhi/fizhi_lwrad.F |
10 |
LWRIO |
. tgz,radlwg,st4,dst4, |
./pkg/fizhi/fizhi_lwrad.F |
249 |
LWRIO |
CALL PASTE ( dsgmt4,dst4,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_step_diag.F |
132 |
FIZHI_STEP_DIAG |
& + dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
./pkg/fizhi/fizhi_step_diag.F |
144 |
FIZHI_STEP_DIAG |
& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
./pkg/fizhi/fizhi_step_diag.F |
156 |
FIZHI_STEP_DIAG |
& dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) |
./pkg/fizhi/fizhi_step_diag.F |
24 |
FIZHI_STEP_DIAG |
_RL dst4(im2,jm2,Nbi,Nbj),tgz(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_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 |
330 |
TURBIO |
1 - dst4(i,1)* tgz(i,1) |
./pkg/fizhi/fizhi_turb.F |
334 |
TURBIO |
tmpdiag(i,1) = dst4(i,1) |
./pkg/fizhi/fizhi_turb.F |
33 |
TURBIO |
8 ,duturb, dvturb, dtturb,dqturb,radlwg,st4,dst4,radswg,radswt |
./pkg/fizhi/fizhi_turb.F |
350 |
TURBIO |
tmpdiag(i,1) = radlwg(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1)) |
./pkg/fizhi/fizhi_turb.F |
4526 |
SEAICE |
& swnet, lwnet, dst4, |
./pkg/fizhi/fizhi_turb.F |
4532 |
SEAICE |
_RL swnet(nocean),lwnet(nocean), dst4(nocean) |
./pkg/fizhi/fizhi_turb.F |
4554 |
SEAICE |
& / ( codt+dst4(i)+latent*dedtc(i)+dhsdtc(i)-dqice(i) ) |
./verification/fizhi-gridalt-hs/code/do_fizhi.F |
129 |
DO_FIZHI |
_RL dst4(sNx,sNy,nSx,nSy),dlwdtg(sNx,sNy,Nrphys,nSx,nSy) |