Symbol Description Uses
tmpdiag 200


File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 235 SWRIO 
        tmpdiag(i,j) = cswmo(i,j,L)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 238 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS  ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 246 SWRIO 
        tmpdiag(i,j) = cldtot(i,j,L)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 249 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT  ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 269 SWRIO 
        tmpdiag(i,j) = swlz(i,j,L) * 1.0e6
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 272 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'LZRAD   ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 314 SWRIO 
        tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 317 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE  ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 327 SWRIO 
        tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 330 SWRIO 
        tmpdiag(i,j) = 0.
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 335 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD  ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 336 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 353 SWRIO 
         tmpdiag(i,j) = 0.
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 372 SWRIO 
         tmpdiag(i,j) = 0.
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 391 SWRIO 
         tmpdiag(i,j) = 0.
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 508 SWRIO 
         tmpdiag(i,j) = albedo(i,j)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 511 SWRIO 
         tmpdiag(i,j) = 0.
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 516 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO  ',0,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 95 SWRIO 
      _RL tmpdiag(im,jm),tmpdiag2(im,jm)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1295 TURBIO 
         tmpdiag(i,j) = qliqtmp(i,j,L)*1.e6
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1298 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TRBQLIQ ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1326 TURBIO 
        tmpdiag(i,j) = tz(i,j,nlay) * pkht(i,j,nlay)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1329 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TS      ',0,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1344 TURBIO 
         tmpdiag(i,j) = dvturb(i,j,l) * atimstp * secday
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1347 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBV   ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1353 TURBIO 
         tmpdiag(i,j) = duturb(i,j,l) * atimstp * secday
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1356 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBU   ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1362 TURBIO 
         tmpdiag(i,j) = dqturb(i,j,l,1) * atimstp * secday * 1000.
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1365 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBQ   ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1371 TURBIO 
         tmpdiag(i,j) = dtturb(i,j,l) * pkz(i,j,l)*atimstp*secday
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 1374 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBT   ',L,1,3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 146 TURBIO 
      _RL tmpdiag(im,jm)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 338 TURBIO 
        tmpdiag(i,j) =  -tgz(i,j)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 341 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTG     ',0,1,-3,bi,bj,myid)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 356 TURBIO 
       tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1))
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 359 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 361 TURBIO 
       tmpdiag(i,1) = dst4(i,1)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 363 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 365 TURBIO 
       tmpdiag(i,1) = fdifpar(i,1) * radswt(i,1)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 367 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 369 TURBIO 
       tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 371 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 373 TURBIO 
       tmpdiag(i,1) = radswg(i,1) * radswt(i,1)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 375 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 377 TURBIO 
       tmpdiag(i,1) = radlwg(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1))
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 379 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 456 TURBIO 
        tmpdiag(i,1) = 0.0
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 458 TURBIO 
       call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm)
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F 459 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'QICE    ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 234 SWRIO 
        tmpdiag(i,j) = cswmo(i,j,L)
./pkg/fizhi/fizhi_swrad.F 237 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 245 SWRIO 
        tmpdiag(i,j) = cldtot(i,j,L)
./pkg/fizhi/fizhi_swrad.F 248 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 268 SWRIO 
        tmpdiag(i,j) = swlz(i,j,L) * 1.0e6
./pkg/fizhi/fizhi_swrad.F 271 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'LZRAD   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 313 SWRIO 
        tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./pkg/fizhi/fizhi_swrad.F 316 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 326 SWRIO 
        tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./pkg/fizhi/fizhi_swrad.F 329 SWRIO 
        tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 334 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 335 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 352 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 371 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 390 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 507 SWRIO 
         tmpdiag(i,j) = albedo(i,j)
./pkg/fizhi/fizhi_swrad.F 510 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 515 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 95 SWRIO 
      _RL tmpdiag(im,jm),tmpdiag2(im,jm)
./pkg/fizhi/fizhi_moist.F 1076 MOISTIO 
         tmpdiag(i,j) = cldtmp(i,j)*totcld(i,j)/tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F 1079 MOISTIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1084 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1093 MOISTIO 
         tmpdiag(i,j) = cldprs(i,j)*totcld(i,j)/tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F 1096 MOISTIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1101 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 148 MOISTIO 
      _RL tmpdiag(im,jm),tmpdiag2(im,jm)
./pkg/fizhi/fizhi_moist.F 836 MOISTIO 
        tmpdiag(i,j) = cldsr(i,j,L)
./pkg/fizhi/fizhi_moist.F 839 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDNP   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 850 MOISTIO 
        tmpdiag(i,j)=(dtmoist(i,j,L)*sday*pkzgather(indgath,L)/pz(i,j))
./pkg/fizhi/fizhi_moist.F 853 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTT  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 863 MOISTIO 
        tmpdiag(i,j)=(dqmoist(i,j,L,1)*sday*1000./pz(i,j))
./pkg/fizhi/fizhi_moist.F 866 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 877 MOISTIO 
        tmpdiag(i,j)=tmpgather(indgath,L)
./pkg/fizhi/fizhi_moist.F 880 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 891 MOISTIO 
        tmpdiag(i,j)=pkegather(indgath,L)
./pkg/fizhi/fizhi_moist.F 894 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 905 MOISTIO 
        tmpdiag(i,j)=deltrnev(indgath,L)
./pkg/fizhi/fizhi_moist.F 908 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTLS    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 919 MOISTIO 
        tmpdiag(i,j)=delqrnev(indgath,L)
./pkg/fizhi/fizhi_moist.F 922 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DQLS    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 931 MOISTIO 
        tmpdiag(i,j) = (lsp_new(I,j) + snow_new(I,j) + conv_new(i,j))
./pkg/fizhi/fizhi_moist.F 935 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'PREACC  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 944 MOISTIO 
        tmpdiag(i,j) = raincgath(indgath)*sday*tminv
./pkg/fizhi/fizhi_moist.F 947 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'PRECON  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 107 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 110 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 119 FIZHI_STEP_DIAG 
         tmpdiag(i,j) = osr(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 121 FIZHI_STEP_DIAG 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_step_diag.F 125 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 133 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = st4(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 137 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWGUP   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 145 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = radlwg(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 149 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 157 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = lwgclr(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 161 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 172 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (moistu (i,j,L,bi,bj)+turbu(i,j,L,bi,bj) )*86400
./pkg/fizhi/fizhi_step_diag.F 175 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABU   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 183 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (moistv (i,j,L,bi,bj)+turbv(i,j,L,bi,bj) )*86400
./pkg/fizhi/fizhi_step_diag.F 186 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABV   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 194 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 202 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 210 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 215 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABQ   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 223 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 229 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 237 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 243 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 251 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 256 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 264 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 269 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 277 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = uphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 280 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'UWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 288 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = vphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 291 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 299 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = thphy(i,j,L,bi,bj)*pk(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 302 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TMPU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 310 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = qq(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 313 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TKE     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 321 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = sphy(i,j,L,bi,bj) * 1000.
./pkg/fizhi/fizhi_step_diag.F 324 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SPHU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 349 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 352 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 373 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 376 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 398 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 401 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 422 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j) *
./pkg/fizhi/fizhi_step_diag.F 426 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 42 FIZHI_STEP_DIAG 
      _RL pinv(im2,jm2), qbar(im2,jm2),tmpdiag(im2,jm2)
./pkg/fizhi/fizhi_step_diag.F 74 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 77 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 85 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 88 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 96 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 99 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSR     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 208 GWDRAG 
        tmpdiag(i,j) = dragu(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 211 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 217 GWDRAG 
        tmpdiag(i,j) = dragv(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 220 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDV    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 226 GWDRAG 
        tmpdiag(i,j) = dragt(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 229 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDT    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 263 GWDRAG 
        tmpdiag(i,j) = dragx(i,j) + sumu(i,j)*pz(i,j)/grav*100
./pkg/fizhi/fizhi_gwdrag.F 266 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDUT   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 286 GWDRAG 
        tmpdiag(i,j) = dragy(i,j) + sumu(i,j)*pz(i,j)/grav*100
./pkg/fizhi/fizhi_gwdrag.F 289 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDVT   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 84 GWDRAG 
      _RL tmpdiag(im,jm)
./pkg/fizhi/fizhi_rayleigh.F 105 RAYLEIGH 
        tmpdiag(i,j) = rfu(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 108 RAYLEIGH 
       call DIAGNOSTICS_FILL(tmpdiag,'RFU     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_rayleigh.F 114 RAYLEIGH 
        tmpdiag(i,j) = rfv(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 117 RAYLEIGH 
       call DIAGNOSTICS_FILL(tmpdiag,'RFV     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_rayleigh.F 123 RAYLEIGH 
        tmpdiag(i,j) = rft(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 126 RAYLEIGH 
       call DIAGNOSTICS_FILL(tmpdiag,'RFT     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_rayleigh.F 52 RAYLEIGH 
      _RL tmpdiag(im,jm)
./pkg/fizhi/fizhi_turb.F 1255 TURBIO 
         tmpdiag(i,j) = qliqtmp(i,j,L)*1.e6
./pkg/fizhi/fizhi_turb.F 1258 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TRBQLIQ ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1286 TURBIO 
        tmpdiag(i,j) = tz(i,j,nlay) * pkht(i,j,nlay)
./pkg/fizhi/fizhi_turb.F 1289 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TS      ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1304 TURBIO 
         tmpdiag(i,j) = dvturb(i,j,l) * atimstp * secday
./pkg/fizhi/fizhi_turb.F 1307 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBV   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1313 TURBIO 
         tmpdiag(i,j) = duturb(i,j,l) * atimstp * secday
./pkg/fizhi/fizhi_turb.F 1316 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBU   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1322 TURBIO 
         tmpdiag(i,j) = dqturb(i,j,l,1) * atimstp * secday * 1000.
./pkg/fizhi/fizhi_turb.F 1325 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBQ   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1331 TURBIO 
         tmpdiag(i,j) = dtturb(i,j,l) * pkz(i,j,l)*atimstp*secday
./pkg/fizhi/fizhi_turb.F 1334 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 146 TURBIO 
      _RL tmpdiag(im,jm)
./pkg/fizhi/fizhi_turb.F 338 TURBIO 
        tmpdiag(i,j) =  -tgz(i,j)
./pkg/fizhi/fizhi_turb.F 341 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTG     ',0,1,-3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 356 TURBIO 
       tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1))
./pkg/fizhi/fizhi_turb.F 359 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,alwcoeff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 361 TURBIO 
       tmpdiag(i,1) = dst4(i,1)
./pkg/fizhi/fizhi_turb.F 363 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,blwcoeff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 365 TURBIO 
       tmpdiag(i,1) = fdifpar(i,1) * radswt(i,1)
./pkg/fizhi/fizhi_turb.F 367 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,pardiff,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 369 TURBIO 
       tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1)
./pkg/fizhi/fizhi_turb.F 371 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,pardirct,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 373 TURBIO 
       tmpdiag(i,1) = radswg(i,1) * radswt(i,1)
./pkg/fizhi/fizhi_turb.F 375 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,netsw,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 377 TURBIO 
       tmpdiag(i,1) = radlwg(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1))
./pkg/fizhi/fizhi_turb.F 379 TURBIO 
      call GRD2MSC(tmpdiag,im,jm,igrd,netlw,nchp,nchptot)
./pkg/fizhi/fizhi_turb.F 456 TURBIO 
        tmpdiag(i,1) = 0.0
./pkg/fizhi/fizhi_turb.F 458 TURBIO 
       call MSC2GRD (igrd,chfr,qice,nchp,nchptot,fracland,tmpdiag,im,jm)
./pkg/fizhi/fizhi_turb.F 459 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'QICE    ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 290 LWRIO 
         tmpdiag(i,j) = tz(i,j,L)*pkz(i,j,L)
./pkg/fizhi/fizhi_lwrad.F 293 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TLW     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 299 LWRIO 
         tmpdiag(i,j) = qz(i,j,L)*1000.
./pkg/fizhi/fizhi_lwrad.F 302 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'SHRAD   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 308 LWRIO 
         tmpdiag(i,j) = oz(i,j,L)
./pkg/fizhi/fizhi_lwrad.F 311 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'OZLW    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 77 LWRIO 
      _RL tmpdiag(im,jm)