Symbol Description Uses
myid 424


File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 236 DO_FIZHI 
      call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,xlats,
./pkg/fizhi/do_fizhi.F 310 DO_FIZHI 
      call FIZHI_STEP_DIAG(myid,p,u,v,t,q,qq,pkl,dpres,
./pkg/fizhi/do_fizhi.F 34 DO_FIZHI 
      integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2
./pkg/fizhi/do_fizhi.F 4 DO_FIZHI 
       subroutine DO_FIZHI(myIter,myid,
./pkg/fizhi/fizhi_alarms.F 28 FIZHI_ALARMS 
      integer  myid
./pkg/fizhi/fizhi_alarms.F 36 FIZHI_ALARMS 
      myid = 1
./pkg/fizhi/fizhi_alarms.F 59 FIZHI_ALARMS 
          if( myid.eq.1 ) then
./pkg/fizhi/fizhi_alarms.F 82 FIZHI_ALARMS 
          if( myid.eq.1 ) then
./pkg/fizhi/fizhi_clockstuff.F 130 GET_ALARM 
      integer myid,n,nalarm,nsecf
./pkg/fizhi/fizhi_clockstuff.F 132 GET_ALARM 
      myid = 1
./pkg/fizhi/fizhi_clockstuff.F 152 GET_ALARM 
      if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag
./pkg/fizhi/fizhi_clockstuff.F 255 SET_TIME 
      integer myid
./pkg/fizhi/fizhi_clockstuff.F 257 SET_TIME 
      myid = 1
./pkg/fizhi/fizhi_clockstuff.F 258 SET_TIME 
      if(  myid.eq.1 ) then
./pkg/fizhi/fizhi_clockstuff.F 48 SET_ALARM 
      integer myid
./pkg/fizhi/fizhi_clockstuff.F 53 SET_ALARM 
      myid = 1
./pkg/fizhi/fizhi_clockstuff.F 60 SET_ALARM 
         if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(1)
./pkg/fizhi/fizhi_clockstuff.F 66 SET_ALARM 
        if( myid.eq.1 ) then
./pkg/fizhi/fizhi_clockstuff.F 82 SET_ALARM 
            if( myid.eq.1 ) then
./pkg/fizhi/fizhi_clockstuff.F 93 SET_ALARM 
         if( myid.eq.1 ) write(6,100) datein,timein,freq,tags(ntags)
./pkg/fizhi/fizhi_driver.F 142 FIZHI_DRIVER 
      call GETPWHERE(myid,numpcheck,pcheckpress,pchecklevs)
./pkg/fizhi/fizhi_driver.F 162 FIZHI_DRIVER 
      call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F 185 FIZHI_DRIVER 
      call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F 210 FIZHI_DRIVER 
     .  myid)
./pkg/fizhi/fizhi_driver.F 217 FIZHI_DRIVER 
      call GWDRAG (myid,p,pl,ple,dpres,pkl,u,v,t,q,phis_var,
./pkg/fizhi/fizhi_driver.F 223 FIZHI_DRIVER 
      call RAYLEIGH(myid,pl,pkl,pkht,surfz,u,v,t,q,im,jm,lm,
./pkg/fizhi/fizhi_driver.F 249 FIZHI_DRIVER 
     .              .false.,myid)
./pkg/fizhi/fizhi_driver.F 51 FIZHI_DRIVER 
      integer myid,im,jm,lm,bi,bj,ptracer,ntracer
./pkg/fizhi/fizhi_driver.F 5 FIZHI_DRIVER 
      subroutine FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer,
./pkg/fizhi/fizhi_gwdrag.F 205 GWDRAG 
      if(diagnostics_is_on('GWDU    ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 211 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 214 GWDRAG 
      if(diagnostics_is_on('GWDV    ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 220 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDV    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 223 GWDRAG 
      if(diagnostics_is_on('GWDT    ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 229 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDT    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 236 GWDRAG 
      if(diagnostics_is_on('GWDUS   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 237 GWDRAG 
       call DIAGNOSTICS_FILL(dragx,'GWDUS   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 242 GWDRAG 
      if(diagnostics_is_on('GWDVS   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 243 GWDRAG 
       call DIAGNOSTICS_FILL(dragy,'GWDVS   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 248 GWDRAG 
      if(diagnostics_is_on('GWDUT   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 266 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDUT   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 271 GWDRAG 
      if(diagnostics_is_on('GWDVT   ',myid) ) then
./pkg/fizhi/fizhi_gwdrag.F 289 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDVT   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 43 GWDRAG 
      integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal
./pkg/fizhi/fizhi_gwdrag.F 4 GWDRAG 
      subroutine GWDRAG (myid,pz,pl,ple,dpres,pkz,uz,vz,tz,qz,phis_var,
./pkg/fizhi/fizhi_lwrad.F 19 LWRIO 
      integer nymd,nhms,istrip,npcs,bi,bj,myid
./pkg/fizhi/fizhi_lwrad.F 281 LWRIO 
      if(diagnostics_is_on('TGRLW   ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 282 LWRIO 
       call DIAGNOSTICS_FILL(tgz,'TGRLW   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 287 LWRIO 
       if(diagnostics_is_on('TLW     ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 293 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TLW     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 296 LWRIO 
       if(diagnostics_is_on('SHRAD   ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 302 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'SHRAD   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 305 LWRIO 
       if(diagnostics_is_on('OZLW    ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 311 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'OZLW    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 316 LWRIO 
      if(diagnostics_is_on('OLR     ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 317 LWRIO 
       call DIAGNOSTICS_FILL(tempor1,'OLR     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 320 LWRIO 
      if(diagnostics_is_on('OLRCLR  ',myid) ) then
./pkg/fizhi/fizhi_lwrad.F 321 LWRIO 
       call DIAGNOSTICS_FILL(tempor2,'OLRCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 5 LWRIO 
      subroutine LWRIO (nymd,nhms,bi,bj,myid,istrip,npcs,
./pkg/fizhi/fizhi_moist.F 1129 MOISTIO 
      if(diagnostics_is_on('CLDTMP  ',myid) .and.
./pkg/fizhi/fizhi_moist.F 1130 MOISTIO 
     .                 diagnostics_is_on('CTTCNT  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 1142 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1143 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'CTTCNT  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1146 MOISTIO 
      if(diagnostics_is_on('CLDPRS  ',myid) .and.
./pkg/fizhi/fizhi_moist.F 1147 MOISTIO 
     .                 diagnostics_is_on('CTPCNTC ',myid) ) then
./pkg/fizhi/fizhi_moist.F 1159 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1160 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'CTPCNT  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1386 RNDCLOUD 
      subroutine RNDCLOUD (iras,nrnd,rnd,myid)
./pkg/fizhi/fizhi_moist.F 1388 RNDCLOUD 
      integer n,iras,nrnd,myid
./pkg/fizhi/fizhi_moist.F 13 MOISTIO 
     .   lpnt,myid)
./pkg/fizhi/fizhi_moist.F 1406 RNDCLOUD 
       if(first .and. myid.eq.1) print *,' NO RANDOM CLOUDS IN RAS '
./pkg/fizhi/fizhi_moist.F 1432 RNDCLOUD 
       if( myid.eq.1 ) print *, 'Creating Rand Numb Array in RNDCLOUD'
./pkg/fizhi/fizhi_moist.F 1434 RNDCLOUD 
       if( myid.eq.1 ) print *, 'IRAS: ',iras,'  IRAS0: ',iras0,
./pkg/fizhi/fizhi_moist.F 203 MOISTIO 
      if(first .and. myid.eq.1 .and. bi.eq.1 ) then
./pkg/fizhi/fizhi_moist.F 328 MOISTIO 
      call RNDCLOUD(iras,ncrnd,rnd,myid)
./pkg/fizhi/fizhi_moist.F 41 MOISTIO 
      integer myid
./pkg/fizhi/fizhi_moist.F 848 MOISTIO 
      if(diagnostics_is_on('PSUBCLD ',myid) .and.
./pkg/fizhi/fizhi_moist.F 849 MOISTIO 
     .                 diagnostics_is_on('PSUBCLDC',myid) ) then
./pkg/fizhi/fizhi_moist.F 850 MOISTIO 
       call DIAGNOSTICS_FILL(psubcldg,'PSUBCLD ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 851 MOISTIO 
       call DIAGNOSTICS_FILL(psubcldgc,'PSUBCLDC',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 856 MOISTIO 
      if(diagnostics_is_on('CLDNP   ',myid) ) then
./pkg/fizhi/fizhi_moist.F 863 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDNP   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 869 MOISTIO 
      if(diagnostics_is_on('MOISTT  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 877 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTT  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 883 MOISTIO 
      if(diagnostics_is_on('MOISTQ  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 890 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 896 MOISTIO 
      if(diagnostics_is_on('MOISTU  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 903 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTU  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 909 MOISTIO 
      if(diagnostics_is_on('MOISTV  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 916 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTV  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 922 MOISTIO 
      if(diagnostics_is_on('CLDMAS  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 930 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 936 MOISTIO 
      if(diagnostics_is_on('DTRAIN  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 944 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 950 MOISTIO 
      if(diagnostics_is_on('DTLS    ',myid) ) then
./pkg/fizhi/fizhi_moist.F 958 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTLS    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 964 MOISTIO 
      if(diagnostics_is_on('DQLS    ',myid) ) then
./pkg/fizhi/fizhi_moist.F 972 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DQLS    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 978 MOISTIO 
      if(diagnostics_is_on('PREACC  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 985 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'PREACC  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 990 MOISTIO 
      if(diagnostics_is_on('PRECON  ',myid) ) then
./pkg/fizhi/fizhi_moist.F 997 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'PRECON  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_rayleigh.F 102 RAYLEIGH 
      if(diagnostics_is_on('RFU     ',myid) ) then
./pkg/fizhi/fizhi_rayleigh.F 111 RAYLEIGH 
      if(diagnostics_is_on('RFV     ',myid) ) then
./pkg/fizhi/fizhi_rayleigh.F 120 RAYLEIGH 
      if(diagnostics_is_on('RFT     ',myid) ) then
./pkg/fizhi/fizhi_rayleigh.F 38 RAYLEIGH 
      integer myid,im,jm,lm,bi,bj
./pkg/fizhi/fizhi_rayleigh.F 5 RAYLEIGH 
      subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm,
./pkg/fizhi/fizhi_step_diag.F 100 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSR     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 105 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('OSRCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 111 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 116 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('PLALBEDO',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 126 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 131 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWGUP   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 138 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWGUP   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 13 FIZHI_STEP_DIAG 
      integer myid,im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer
./pkg/fizhi/fizhi_step_diag.F 143 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADLWG  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 150 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 155 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWGCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 162 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 170 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABU   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 176 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABU   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 181 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABV   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 187 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABV   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 192 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABT   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 203 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 208 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABQ   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 216 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABQ   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 221 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADLW   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 230 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 235 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWCLR   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 244 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 249 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADSW   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 257 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 262 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SWCLR   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 270 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 275 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('UWND    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 281 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'UWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 286 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VWND    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 292 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 297 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TMPU    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 303 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TMPU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 308 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TKE     ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 314 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TKE     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 319 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SPHU    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 325 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SPHU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 334 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTMOIST',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 353 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 358 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTTURB ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 377 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 382 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTRADLW',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 402 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 407 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTRADSW',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 427 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 432 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TPW     ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 452 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TPW     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 5 FIZHI_STEP_DIAG 
      subroutine FIZHI_STEP_DIAG(myid,p,uphy,vphy,thphy,sphy,qq,pk,dp,
./pkg/fizhi/fizhi_step_diag.F 60 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('PS      ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 61 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(p(1,1,bi,bj),'PS      ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 66 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADSWT  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 67 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(radswt,'RADSWT  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 72 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADSWG  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 78 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 83 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SWGCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 89 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 94 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('OSR     ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 122 SWRIO 
      if (first .and. myid.eq.1 ) then
./pkg/fizhi/fizhi_swrad.F 18 SWRIO 
      integer nymd,nhms,bi,bj,ndswr,myid,istrip,npcs
./pkg/fizhi/fizhi_swrad.F 234 SWRIO 
      if(diagnostics_is_on('CLDFRC  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 235 SWRIO 
       call DIAGNOSTICS_FILL(totcld,'CLDFRC  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 238 SWRIO 
      if(diagnostics_is_on('CLDRAS  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 245 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 249 SWRIO 
      if(diagnostics_is_on('CLDTOT  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 256 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 260 SWRIO 
      if(diagnostics_is_on('CLDLOW  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 261 SWRIO 
       call DIAGNOSTICS_FILL(cldlow,'CLDLOW  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 264 SWRIO 
      if(diagnostics_is_on('CLDMID  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 265 SWRIO 
       call DIAGNOSTICS_FILL(cldmid,'CLDMID  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 268 SWRIO 
      if(diagnostics_is_on('CLDHI   ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 269 SWRIO 
       call DIAGNOSTICS_FILL(cldhi,'CLDHI   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 272 SWRIO 
      if(diagnostics_is_on('LZRAD   ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 279 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'LZRAD   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 285 SWRIO 
      if(diagnostics_is_on('ALBVISDR',myid) ) then
./pkg/fizhi/fizhi_swrad.F 286 SWRIO 
       call DIAGNOSTICS_FILL(albvisdr,'ALBVISDR',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 289 SWRIO 
      if(diagnostics_is_on('ALBVISDF',myid) ) then
./pkg/fizhi/fizhi_swrad.F 290 SWRIO 
       call DIAGNOSTICS_FILL(albvisdf,'ALBVISDF',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 293 SWRIO 
      if(diagnostics_is_on('ALBNIRDR',myid) ) then
./pkg/fizhi/fizhi_swrad.F 294 SWRIO 
       call DIAGNOSTICS_FILL(albnirdr,'ALBNIRDR',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 297 SWRIO 
      if(diagnostics_is_on('ALBNIRDF',myid) ) then
./pkg/fizhi/fizhi_swrad.F 298 SWRIO 
       call DIAGNOSTICS_FILL(albnirdf,'ALBNIRDF',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 317 SWRIO 
      if(diagnostics_is_on('TAUAVE  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 324 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 328 SWRIO 
      if(diagnostics_is_on('TAUCLD  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 329 SWRIO 
     .                 diagnostics_is_on('TAUCLDC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 342 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 343 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 349 SWRIO 
      if(diagnostics_is_on('TAULOW  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 350 SWRIO 
     .                 diagnostics_is_on('TAULOWC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 364 SWRIO 
       call DIAGNOSTICS_FILL(taulow,'TAULOW  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 365 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'TAULOWC ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 368 SWRIO 
      if(diagnostics_is_on('TAUMID  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 369 SWRIO 
     .                 diagnostics_is_on('TAUMIDC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 383 SWRIO 
       call DIAGNOSTICS_FILL(taumid,'TAUMID  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 384 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'TAUMIDC ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 387 SWRIO 
      if(diagnostics_is_on('TAUHI   ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 388 SWRIO 
     .                 diagnostics_is_on('TAUHIC  ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 402 SWRIO 
       call DIAGNOSTICS_FILL(tauhi,'TAUHI   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 403 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'TAUHIC  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 510 SWRIO 
      if(diagnostics_is_on('ALBEDO  ',myid) .and.
./pkg/fizhi/fizhi_swrad.F 511 SWRIO 
     .                 diagnostics_is_on('ALBEDOC ',myid) ) then
./pkg/fizhi/fizhi_swrad.F 523 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 524 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'ALBEDOC ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 5 SWRIO 
      subroutine SWRIO (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs,
./pkg/fizhi/fizhi_turb.F 1020 TURBIO 
      if(diagnostics_is_on('EVAP    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1025 TURBIO 
     . .false., 'EVAP    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1027 TURBIO 
      if(diagnostics_is_on('EFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1032 TURBIO 
     . .false., 'EFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1034 TURBIO 
      if(diagnostics_is_on('HFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1039 TURBIO 
     . .false., 'HFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1041 TURBIO 
      if(diagnostics_is_on('TUFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1043 TURBIO 
     . .false., 'TUFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1045 TURBIO 
      if(diagnostics_is_on('TVFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1047 TURBIO 
     . .false., 'TVFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1049 TURBIO 
      if(diagnostics_is_on('TTFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1056 TURBIO 
     . .false., 'TTFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1058 TURBIO 
      if(diagnostics_is_on('TQFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1065 TURBIO 
     . .false., 'TQFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1067 TURBIO 
      if(diagnostics_is_on('RI      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1069 TURBIO 
     . .false., 'RI      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1071 TURBIO 
      if(diagnostics_is_on('KH      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1073 TURBIO 
     . .false., 'KH      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1075 TURBIO 
      if(diagnostics_is_on('KM      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1077 TURBIO 
     . .false., 'KM      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1079 TURBIO 
      if(diagnostics_is_on('CT      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1081 TURBIO 
     . .false., 'CT      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1083 TURBIO 
      if(diagnostics_is_on('CU      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1085 TURBIO 
     . .false., 'CU      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1087 TURBIO 
      if(diagnostics_is_on('WINDS   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1089 TURBIO 
     . .false., 'WINDS   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1091 TURBIO 
      if(diagnostics_is_on('UFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1093 TURBIO 
     . nn,.false., 'UFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1095 TURBIO 
      if(diagnostics_is_on('VFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1097 TURBIO 
     . nn,.false., 'VFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1099 TURBIO 
      if(diagnostics_is_on('USTAR   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1101 TURBIO 
     . .false., 'USTAR   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1103 TURBIO 
      if(diagnostics_is_on('Z0      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1105 TURBIO 
     . .false., 'Z0      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1107 TURBIO 
      if(diagnostics_is_on('FRQTRB  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1109 TURBIO 
     . .false., 'FRQTRB  ', 0, nlay-1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1111 TURBIO 
      if(diagnostics_is_on('PBL     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1113 TURBIO 
     . .false., 'PBL     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1115 TURBIO 
      if(diagnostics_is_on('U2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1117 TURBIO 
     . .false., 'U2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1119 TURBIO 
      if(diagnostics_is_on('V2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1121 TURBIO 
     . .false., 'V2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1123 TURBIO 
      if(diagnostics_is_on('T2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1125 TURBIO 
     . .false., 'T2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1127 TURBIO 
      if(diagnostics_is_on('Q2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1136 TURBIO 
     . .false., 'Q2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1138 TURBIO 
      if(diagnostics_is_on('U10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1140 TURBIO 
     . .false., 'U10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1142 TURBIO 
      if(diagnostics_is_on('V10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1144 TURBIO 
     . .false., 'V10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1146 TURBIO 
      if(diagnostics_is_on('T10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1148 TURBIO 
     . .false., 'T10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1150 TURBIO 
      if(diagnostics_is_on('Q10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1159 TURBIO 
     . .false., 'Q10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1166 TURBIO 
      if(diagnostics_is_on('TDEEP   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1168 TURBIO 
     . .false., 'TDEEP   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1170 TURBIO 
      if(diagnostics_is_on('QCANOPY ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1172 TURBIO 
     . .false., 'QCANOPY ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1174 TURBIO 
      if(diagnostics_is_on('SMSHAL  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1176 TURBIO 
     . .false., 'SMSHAL  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1178 TURBIO 
      if(diagnostics_is_on('SMROOT  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1180 TURBIO 
     . .false., 'SMROOT  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1182 TURBIO 
      if(diagnostics_is_on('SMDEEP  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1184 TURBIO 
     . .false., 'SMDEEP  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1186 TURBIO 
      if(diagnostics_is_on('CAPACITY',myid) ) then
./pkg/fizhi/fizhi_turb.F 1188 TURBIO 
     . .false., 'CAPACITY', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1190 TURBIO 
      if(diagnostics_is_on('SNOW    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1192 TURBIO 
     . .false., 'SNOW    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1295 TURBIO 
      CALL DIAGNOSTICS_FILL(fcctmp,'TRBFCC  ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1297 TURBIO 
     &                             'TRBQLIQ ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1317 TURBIO 
       call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1320 TURBIO 
       call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1323 TURBIO 
      if(diagnostics_is_on('TS      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1331 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TS      ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1335 TURBIO 
       call DIAGNOSTICS_FILL(tgz,'DTG     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1343 TURBIO 
     &                            'TURBV   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1345 TURBIO 
     &                            'TURBU   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1348 TURBIO 
     &                            'TURBQ   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1379 TURBIO 
       if(diagnostics_is_on('TURBT   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1389 TURBIO 
         call DIAGNOSTICS_FILL(tmpdiag,'TURBT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 146 TURBIO 
      integer myid
./pkg/fizhi/fizhi_turb.F 15 TURBIO 
     2 ,qqgrid,myid)
./pkg/fizhi/fizhi_turb.F 341 TURBIO 
          if( myid.eq.1 .and. bi.eq.1 ) then
./pkg/fizhi/fizhi_turb.F 366 TURBIO 
     &                             'DTG     ',0,1,-3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 478 TURBIO 
      if(diagnostics_is_on('QICE    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 483 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'QICE    ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 585 TURBIO 
      if(diagnostics_is_on('QG      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 590 TURBIO 
     . .false., 'QG      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 635 TURBIO 
      if(diagnostics_is_on('DTSRF   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 640 TURBIO 
     . .false., 'DTSRF   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 725 TURBIO 
      if(diagnostics_is_on('SNOWFALL',myid) ) then
./pkg/fizhi/fizhi_turb.F 730 TURBIO 
     . .false., 'SNOWFALL', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 732 TURBIO 
      if(diagnostics_is_on('RAINCON ',myid) ) then
./pkg/fizhi/fizhi_turb.F 737 TURBIO 
     . .false., 'RAINCON ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 739 TURBIO 
      if(diagnostics_is_on('RAINLSP ',myid) ) then
./pkg/fizhi/fizhi_turb.F 744 TURBIO 
     . .false., 'RAINLSP ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 746 TURBIO 
      if(diagnostics_is_on('GREEN   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 748 TURBIO 
     . .false., 'GREEN   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 750 TURBIO 
      if(diagnostics_is_on('LAI     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 752 TURBIO 
     . .false., 'LAI     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 754 TURBIO 
      if(diagnostics_is_on('PARDR   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 756 TURBIO 
     . .false., 'PARDR   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 758 TURBIO 
      if(diagnostics_is_on('PARDF   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 760 TURBIO 
     . .false., 'PARDF   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 762 TURBIO 
      if(diagnostics_is_on('DLWDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 764 TURBIO 
     . .false., 'DLWDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 766 TURBIO 
      if(diagnostics_is_on('DHDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 768 TURBIO 
     . .false., 'DHDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 770 TURBIO 
      if(diagnostics_is_on('DEDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 772 TURBIO 
     . .false., 'DEDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 774 TURBIO 
      if(diagnostics_is_on('DHDQA   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 776 TURBIO 
     . .false., 'DHDQA   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 778 TURBIO 
      if(diagnostics_is_on('DEDQA   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 780 TURBIO 
     . .false., 'DEDQA   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 782 TURBIO 
      if(diagnostics_is_on('LWGDOWN ',myid) ) then
./pkg/fizhi/fizhi_turb.F 784 TURBIO 
     . .false., 'LWGDOWN ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 819 TURBIO 
      if(diagnostics_is_on('RUNOFF  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 821 TURBIO 
     . .false., 'RUNOFF  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 823 TURBIO 
      if(diagnostics_is_on('FWSOIL  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 825 TURBIO 
     . .false., 'FWSOIL  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 827 TURBIO 
      if(diagnostics_is_on('GDRAIN  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 829 TURBIO 
     . .false., 'GDRAIN  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 831 TURBIO 
      if(diagnostics_is_on('SNOWMELT',myid) ) then
./pkg/fizhi/fizhi_turb.F 833 TURBIO 
     . .false., 'SNOWMELT', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 835 TURBIO 
      if(diagnostics_is_on('EVEG    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 837 TURBIO 
     . .false., 'EVEG    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 839 TURBIO 
      if(diagnostics_is_on('ESNOW   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 841 TURBIO 
     . .false., 'ESNOW   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 843 TURBIO 
      if(diagnostics_is_on('ESOIL   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 845 TURBIO 
     . .false., 'ESOIL   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 847 TURBIO 
      if(diagnostics_is_on('ERESV   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 849 TURBIO 
     . .false., 'ERESV   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 851 TURBIO 
      if(diagnostics_is_on('EVPOT   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 853 TURBIO 
     . .false., 'EVPOT   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 855 TURBIO 
      if(diagnostics_is_on('DTC     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 857 TURBIO 
     . .false., 'DTC     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 859 TURBIO 
      if(diagnostics_is_on('DQC     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 861 TURBIO 
     . .false., 'DQC     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 863 TURBIO 
      if(diagnostics_is_on('TCDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 865 TURBIO 
     . .false., 'TCDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 867 TURBIO 
      if(diagnostics_is_on('RADDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 869 TURBIO 
     . .false., 'RADDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 871 TURBIO 
      if(diagnostics_is_on('SENSDTC ',myid) ) then
./pkg/fizhi/fizhi_turb.F 873 TURBIO 
     . .false., 'SENSDTC ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 875 TURBIO 
      if(diagnostics_is_on('LATDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 877 TURBIO 
     . .false., 'LATDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 879 TURBIO 
      if(diagnostics_is_on('TDDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 881 TURBIO 
     . .false., 'TDDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 883 TURBIO 
      if(diagnostics_is_on('QCDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 885 TURBIO 
     . .false., 'QCDTC   ', 1, 1, bi, bj, myid)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 34 DO_FIZHI 
      integer myIter,myid,im1,im2,jm1,jm2,idim1,idim2,jdim1,jdim2
./verification/fizhi-gridalt-hs/code/do_fizhi.F 4 DO_FIZHI 
       subroutine DO_FIZHI(myIter,myid,
./pkg/chronos/chronos.F 140 GET_ALARM 
      integer myid,n,nalarm,nsecf
./pkg/chronos/chronos.F 143 GET_ALARM 
      call MPI_COMM_RANK ( mpi_comm_model,myid,ierror )
./pkg/chronos/chronos.F 145 GET_ALARM 
      myid = 1
./pkg/chronos/chronos.F 167 GET_ALARM 
      if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag
./pkg/chronos/chronos.F 223 SET_TIME 
      integer myid
./pkg/chronos/chronos.F 226 SET_TIME 
      call MPI_COMM_RANK ( mpi_comm_model,myid,ierror )
./pkg/chronos/chronos.F 228 SET_TIME 
      myid = 1
./pkg/chronos/chronos.F 230 SET_TIME 
      if(  myid.eq.1 ) then
./pkg/chronos/chronos.F 40 SET_ALARM 
      integer myid
./pkg/chronos/chronos.F 46 SET_ALARM 
      call MPI_COMM_RANK ( mpi_comm_model,myid,ierror )
./pkg/chronos/chronos.F 48 SET_ALARM 
      myid = 1
./pkg/chronos/chronos.F 57 SET_ALARM 
         if( myid.eq.1 ) write(6,100) date,time,freq,tags(1)
./pkg/chronos/chronos.F 63 SET_ALARM 
        if( myid.eq.1 ) then
./pkg/chronos/chronos.F 79 SET_ALARM 
            if( myid.eq.1 ) then
./pkg/chronos/chronos.F 90 SET_ALARM 
         if( myid.eq.1 ) write(6,100) date,time,freq,tags(ntags)
./pkg/compon_communic/mitcomponent_init.F 14 MITCOMPONENT_INIT 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcomponent_register.F 13 MITCOMPONENT_REGISTER 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcomponent_tile_register.F 15 MITCOMPONENT_TILE_REGISTER 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcoupler_init.F 14 MITCOUPLER_INIT 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcplr_init1.F 106 MITCPLR_INIT1 
      if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 110 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 113 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 124 MITCPLR_INIT1 
      if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 137 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 147 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 14 MITCPLR_INIT1 
      integer myid, numprocs, ierr, rc
./pkg/compon_communic/mitcplr_init1.F 158 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 168 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 189 MITCPLR_INIT1 
      if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 197 MITCPLR_INIT1 
        if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 201 MITCPLR_INIT1 
        if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 203 MITCPLR_INIT1 
        if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 210 MITCPLR_INIT1 
       if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 214 MITCPLR_INIT1 
       if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 216 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 221 MITCPLR_INIT1 
      if ( couplerFlag ) j=myid
./pkg/compon_communic/mitcplr_init1.F 228 MITCPLR_INIT1 
      write(LogUnit,*) 'myid in MPI_COMM_World = ',myid
./pkg/compon_communic/mitcplr_init1.F 34 MITCPLR_INIT1 
      call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
./pkg/compon_communic/mitcplr_init1.F 35 MITCPLR_INIT1 
      if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 36 MITCPLR_INIT1 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 39 MITCPLR_INIT1 
      if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 41 MITCPLR_INIT1 
      if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 42 MITCPLR_INIT1 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F 54 MITCPLR_INIT1 
       ibuf(1)=myid
./pkg/compon_communic/mitcplr_init1.F 68 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 71 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 82 MITCPLR_INIT1 
        if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init2a.F 13 MITCPLR_INIT2A 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2a.F 19 MITCPLR_INIT2A 
      call MPI_COMM_RANK( MPI_COMM_myglobal, myid, ierr )
./pkg/compon_communic/mitcplr_init2a.F 21 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 27 MITCPLR_INIT2A 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2a.F 36 MITCPLR_INIT2A 
       ibuf( 1)=myid
./pkg/compon_communic/mitcplr_init2a.F 78 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 82 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 87 MITCPLR_INIT2A 
      my_rank_in_global=myid
./pkg/compon_communic/mitcplr_init2b.F 13 MITCPLR_INIT2B 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2b.F 25 MITCPLR_INIT2B 
       call MPI_COMM_RANK( MPI_COMM_temp, myid, ierr )
./pkg/compon_communic/mitcplr_init2b.F 27 MITCPLR_INIT2B 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2b.F 33 MITCPLR_INIT2B 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2b.F 44 MITCPLR_INIT2B 
        ibuf( 1)=myid