Symbol Description Uses
swdt 14



File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 112 DO_FIZHI
      _RL swdt(sNx,sNy,Nrphys,Nsx,Nsy)
./pkg/fizhi/do_fizhi.F 154 DO_FIZHI
      common /saver/ lwdt,lwdtclr,swdt,swdtclr,turbu,turbv,turbt,turbq
./pkg/fizhi/do_fizhi.F 252 DO_FIZHI
     . lwdt(1,1,1,bi,bj),lwdtclr(1,1,1,bi,bj),swdt(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 303 DO_FIZHI
     .   swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 313 DO_FIZHI
     .  lwdt,swdt,lwdtclr,swdtclr,dlwdtg,
./pkg/fizhi/fizhi_driver.F 14 FIZHI_DRIVER
     . lwdt,lwdtclr,swdt,swdtclr,turbu,turbv,turbt,turbq,
./pkg/fizhi/fizhi_driver.F 165 FIZHI_DRIVER
     .   albvisdr,albvisdf,albnirdr,albnirdf,swdt,swdtclr,
./pkg/fizhi/fizhi_driver.F 74 FIZHI_DRIVER
      _RL swdt(im,jm,lm),swdtclr(im,jm,lm)
./pkg/fizhi/fizhi_step_diag.F 199 FIZHI_STEP_DIAG
     .      swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )
./pkg/fizhi/fizhi_step_diag.F 253 FIZHI_STEP_DIAG
     .  + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)*
./pkg/fizhi/fizhi_step_diag.F 36 FIZHI_STEP_DIAG
      _RL swdt(im2,jm2,Nrphys,Nbi,Nbj)
./pkg/fizhi/fizhi_step_diag.F 417 FIZHI_STEP_DIAG
     .             swdt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 8 FIZHI_STEP_DIAG
     .  lwdt,swdt,lwdtclr,swdtclr,dlwdtg,
./verification/fizhi-gridalt-hs/code/do_fizhi.F 112 DO_FIZHI
      _RL swdt(sNx,sNy,Nrphys,Nsx,Nsy)