Symbol Description Uses
dst4 26



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)