Symbol Description Uses
myid 415


File Line number Procedure Code
./pkg/fizhi/do_fizhi.F 237 DO_FIZHI 
      call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,
./pkg/fizhi/do_fizhi.F 312 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 144 GET_ALARM 
      integer myid,n,nalarm,nsecf
./pkg/fizhi/fizhi_clockstuff.F 146 GET_ALARM 
      myid = 1
./pkg/fizhi/fizhi_clockstuff.F 166 GET_ALARM 
      if( myid.eq.1 ) print *, 'Alarm has not been set for Tag: ',tag
./pkg/fizhi/fizhi_clockstuff.F 269 SET_TIME 
      integer myid
./pkg/fizhi/fizhi_clockstuff.F 271 SET_TIME 
      myid = 1
./pkg/fizhi/fizhi_clockstuff.F 272 SET_TIME 
      if(  myid.eq.1 ) then
./pkg/fizhi/fizhi_clockstuff.F 58 SET_ALARM 
      integer myid
./pkg/fizhi/fizhi_clockstuff.F 63 SET_ALARM 
      myid = 1
./pkg/fizhi/fizhi_clockstuff.F 79 SET_ALARM 
        if( myid.eq.1 ) then
./pkg/fizhi/fizhi_clockstuff.F 95 SET_ALARM 
            if( myid.eq.1 ) then
./pkg/fizhi/fizhi_driver.F 144 FIZHI_DRIVER 
      call GETPWHERE(myid,numpcheck,pcheckpress,pchecklevs)
./pkg/fizhi/fizhi_driver.F 164 FIZHI_DRIVER 
      call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F 187 FIZHI_DRIVER 
      call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F 213 FIZHI_DRIVER 
     &  myid)
./pkg/fizhi/fizhi_driver.F 220 FIZHI_DRIVER 
      call GWDRAG (myid,p,pl,ple,dpres,pkl,u,v,t,q,phis_var,
./pkg/fizhi/fizhi_driver.F 226 FIZHI_DRIVER 
      call RAYLEIGH(myid,pl,pkl,pkht,surfz,u,v,t,q,im,jm,lm,
./pkg/fizhi/fizhi_driver.F 252 FIZHI_DRIVER 
     &              .false.,myid)
./pkg/fizhi/fizhi_driver.F 52 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 102 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('OSRCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 108 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 113 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('PLALBEDO',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 123 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 128 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWGUP   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 135 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 140 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADLWG  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 147 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 152 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWGCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 159 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 167 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABU   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 173 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABU   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 178 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABV   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 184 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABV   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 189 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABT   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 200 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 205 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('DIABQ   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 213 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABQ   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 218 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADLW   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 227 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 232 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('LWCLR   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 241 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 246 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADSW   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 254 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 259 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SWCLR   ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 267 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 272 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('UWND    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 278 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'UWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 283 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VWND    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 289 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 294 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TMPU    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 300 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TMPU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 305 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TKE     ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 311 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TKE     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 316 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SPHU    ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 322 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SPHU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 331 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTMOIST',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 350 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 355 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTTURB ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 374 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 379 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTRADLW',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 399 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 404 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('VDTRADSW',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 424 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 429 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('TPW     ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 449 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 
      call DIAGNOSTICS_FILL(p(1,1,bi,bj),'PS      ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 65 FIZHI_STEP_DIAG 
     &                      0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 69 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('RADSWG  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 75 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 80 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('SWGCLR  ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 86 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 91 FIZHI_STEP_DIAG 
      if(diagnostics_is_on('OSR     ',myid) ) then
./pkg/fizhi/fizhi_step_diag.F 97 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSR     ',0,1,3,bi,bj,myid)
./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 1001 TURBIO 
     & nn,.false., 'UFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1003 TURBIO 
      if(diagnostics_is_on('VFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1005 TURBIO 
     & nn,.false., 'VFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1007 TURBIO 
      if(diagnostics_is_on('USTAR   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1009 TURBIO 
     & .false., 'USTAR   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1011 TURBIO 
      if(diagnostics_is_on('Z0      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1013 TURBIO 
     & .false., 'Z0      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1015 TURBIO 
      if(diagnostics_is_on('FRQTRB  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1017 TURBIO 
     & .false., 'FRQTRB  ', 0, nlay-1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1019 TURBIO 
      if(diagnostics_is_on('PBL     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1021 TURBIO 
     & .false., 'PBL     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1023 TURBIO 
      if(diagnostics_is_on('U2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1025 TURBIO 
     & .false., 'U2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1027 TURBIO 
      if(diagnostics_is_on('V2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1029 TURBIO 
     & .false., 'V2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1031 TURBIO 
      if(diagnostics_is_on('T2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1033 TURBIO 
     & .false., 'T2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1035 TURBIO 
      if(diagnostics_is_on('Q2M     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1044 TURBIO 
     & .false., 'Q2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1046 TURBIO 
      if(diagnostics_is_on('U10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1048 TURBIO 
     & .false., 'U10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1050 TURBIO 
      if(diagnostics_is_on('V10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1052 TURBIO 
     & .false., 'V10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1054 TURBIO 
      if(diagnostics_is_on('T10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1056 TURBIO 
     & .false., 'T10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1058 TURBIO 
      if(diagnostics_is_on('Q10M    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1067 TURBIO 
     & .false., 'Q10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1074 TURBIO 
      if(diagnostics_is_on('TDEEP   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1076 TURBIO 
     & .false., 'TDEEP   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1078 TURBIO 
      if(diagnostics_is_on('QCANOPY ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1080 TURBIO 
     & .false., 'QCANOPY ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1082 TURBIO 
      if(diagnostics_is_on('SMSHAL  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1084 TURBIO 
     & .false., 'SMSHAL  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1086 TURBIO 
      if(diagnostics_is_on('SMROOT  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1088 TURBIO 
     & .false., 'SMROOT  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1090 TURBIO 
      if(diagnostics_is_on('SMDEEP  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1092 TURBIO 
     & .false., 'SMDEEP  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1094 TURBIO 
      if(diagnostics_is_on('CAPACITY',myid) ) then
./pkg/fizhi/fizhi_turb.F 1096 TURBIO 
     & .false., 'CAPACITY', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1098 TURBIO 
      if(diagnostics_is_on('SNOW    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1100 TURBIO 
     & .false., 'SNOW    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1183 TURBIO 
      CALL DIAGNOSTICS_FILL(fcctmp,'TRBFCC  ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1185 TURBIO 
     &                             'TRBQLIQ ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1199 TURBIO 
      call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1200 TURBIO 
      call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1202 TURBIO 
      if(diagnostics_is_on('TS      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1206 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TS      ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1209 TURBIO 
      call DIAGNOSTICS_FILL(tgz,'DTG     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1216 TURBIO 
     &                            'TURBV   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1218 TURBIO 
     &                            'TURBU   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1221 TURBIO 
     &                            'TURBQ   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1223 TURBIO 
      if(diagnostics_is_on('TURBT   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 1228 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 145 TURBIO 
      integer myid
./pkg/fizhi/fizhi_turb.F 315 TURBIO 
     &                             'DTG     ',0,1,-3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 36 TURBIO 
     2 ,qqgrid,myid)
./pkg/fizhi/fizhi_turb.F 427 TURBIO 
      if(diagnostics_is_on('QICE    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 432 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'QICE    ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 534 TURBIO 
      if(diagnostics_is_on('QG      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 539 TURBIO 
     & .false., 'QG      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 584 TURBIO 
      if(diagnostics_is_on('DTSRF   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 589 TURBIO 
     & .false., 'DTSRF   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 674 TURBIO 
      if(diagnostics_is_on('SNOWFALL',myid) ) then
./pkg/fizhi/fizhi_turb.F 679 TURBIO 
     & .false., 'SNOWFALL', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 681 TURBIO 
      if(diagnostics_is_on('RAINCON ',myid) ) then
./pkg/fizhi/fizhi_turb.F 686 TURBIO 
     & .false., 'RAINCON ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 688 TURBIO 
      if(diagnostics_is_on('RAINLSP ',myid) ) then
./pkg/fizhi/fizhi_turb.F 693 TURBIO 
     & .false., 'RAINLSP ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 695 TURBIO 
      if(diagnostics_is_on('GREEN   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 697 TURBIO 
     & .false., 'GREEN   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 699 TURBIO 
      if(diagnostics_is_on('LAI     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 701 TURBIO 
     & .false., 'LAI     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 703 TURBIO 
      if(diagnostics_is_on('PARDR   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 705 TURBIO 
     & .false., 'PARDR   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 707 TURBIO 
      if(diagnostics_is_on('PARDF   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 709 TURBIO 
     & .false., 'PARDF   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 711 TURBIO 
      if(diagnostics_is_on('DLWDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 713 TURBIO 
     & .false., 'DLWDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 715 TURBIO 
      if(diagnostics_is_on('DHDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 717 TURBIO 
     & .false., 'DHDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 719 TURBIO 
      if(diagnostics_is_on('DEDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 721 TURBIO 
     & .false., 'DEDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 723 TURBIO 
      if(diagnostics_is_on('DHDQA   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 725 TURBIO 
     & .false., 'DHDQA   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 727 TURBIO 
      if(diagnostics_is_on('DEDQA   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 729 TURBIO 
     & .false., 'DEDQA   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 731 TURBIO 
      if(diagnostics_is_on('LWGDOWN ',myid) ) then
./pkg/fizhi/fizhi_turb.F 733 TURBIO 
     & .false., 'LWGDOWN ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 768 TURBIO 
      if(diagnostics_is_on('RUNOFF  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 770 TURBIO 
     & .false., 'RUNOFF  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 772 TURBIO 
      if(diagnostics_is_on('FWSOIL  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 774 TURBIO 
     & .false., 'FWSOIL  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 776 TURBIO 
      if(diagnostics_is_on('GDRAIN  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 778 TURBIO 
     & .false., 'GDRAIN  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 780 TURBIO 
      if(diagnostics_is_on('SNOWMELT',myid) ) then
./pkg/fizhi/fizhi_turb.F 782 TURBIO 
     & .false., 'SNOWMELT', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 784 TURBIO 
      if(diagnostics_is_on('EVEG    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 786 TURBIO 
     & .false., 'EVEG    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 788 TURBIO 
      if(diagnostics_is_on('ESNOW   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 790 TURBIO 
     & .false., 'ESNOW   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 792 TURBIO 
      if(diagnostics_is_on('ESOIL   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 794 TURBIO 
     & .false., 'ESOIL   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 796 TURBIO 
      if(diagnostics_is_on('ERESV   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 798 TURBIO 
     & .false., 'ERESV   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 800 TURBIO 
      if(diagnostics_is_on('EVPOT   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 802 TURBIO 
     & .false., 'EVPOT   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 804 TURBIO 
      if(diagnostics_is_on('DTC     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 806 TURBIO 
     & .false., 'DTC     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 808 TURBIO 
      if(diagnostics_is_on('DQC     ',myid) ) then
./pkg/fizhi/fizhi_turb.F 810 TURBIO 
     & .false., 'DQC     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 812 TURBIO 
      if(diagnostics_is_on('TCDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 814 TURBIO 
     & .false., 'TCDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 816 TURBIO 
      if(diagnostics_is_on('RADDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 818 TURBIO 
     & .false., 'RADDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 820 TURBIO 
      if(diagnostics_is_on('SENSDTC ',myid) ) then
./pkg/fizhi/fizhi_turb.F 822 TURBIO 
     & .false., 'SENSDTC ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 824 TURBIO 
      if(diagnostics_is_on('LATDTC  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 826 TURBIO 
     & .false., 'LATDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 828 TURBIO 
      if(diagnostics_is_on('TDDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 830 TURBIO 
     & .false., 'TDDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 832 TURBIO 
      if(diagnostics_is_on('QCDTC   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 834 TURBIO 
     & .false., 'QCDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 928 TURBIO 
      if(diagnostics_is_on('EVAP    ',myid) ) then
./pkg/fizhi/fizhi_turb.F 933 TURBIO 
     & .false., 'EVAP    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 935 TURBIO 
      if(diagnostics_is_on('EFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 940 TURBIO 
     & .false., 'EFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 942 TURBIO 
      if(diagnostics_is_on('HFLUX   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 947 TURBIO 
     & .false., 'HFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 949 TURBIO 
      if(diagnostics_is_on('TUFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 951 TURBIO 
     & .false., 'TUFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 953 TURBIO 
      if(diagnostics_is_on('TVFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 955 TURBIO 
     & .false., 'TVFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 957 TURBIO 
      if(diagnostics_is_on('TTFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 964 TURBIO 
     & .false., 'TTFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 966 TURBIO 
      if(diagnostics_is_on('TQFLUX  ',myid) ) then
./pkg/fizhi/fizhi_turb.F 973 TURBIO 
     & .false., 'TQFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 975 TURBIO 
      if(diagnostics_is_on('RI      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 977 TURBIO 
     & .false., 'RI      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 979 TURBIO 
      if(diagnostics_is_on('KH      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 981 TURBIO 
     & .false., 'KH      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 983 TURBIO 
      if(diagnostics_is_on('KM      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 985 TURBIO 
     & .false., 'KM      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 987 TURBIO 
      if(diagnostics_is_on('CT      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 989 TURBIO 
     & .false., 'CT      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 991 TURBIO 
      if(diagnostics_is_on('CU      ',myid) ) then
./pkg/fizhi/fizhi_turb.F 993 TURBIO 
     & .false., 'CU      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 995 TURBIO 
      if(diagnostics_is_on('WINDS   ',myid) ) then
./pkg/fizhi/fizhi_turb.F 997 TURBIO 
     & .false., 'WINDS   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 999 TURBIO 
      if(diagnostics_is_on('UFLUX   ',myid) ) then
./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/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 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 23 MITCPLR_INIT1 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init1.F 35 MITCPLR_INIT1 
      call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )
./pkg/compon_communic/mitcplr_init1.F 36 MITCPLR_INIT1 
      if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 37 MITCPLR_INIT1 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 40 MITCPLR_INIT1 
      if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 42 MITCPLR_INIT1 
      if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 43 MITCPLR_INIT1 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F 55 MITCPLR_INIT1 
       ibuf(1)=myid
./pkg/compon_communic/mitcplr_init1.F 69 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 72 MITCPLR_INIT1 
       if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init1.F 83 MITCPLR_INIT1 
        if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr,
./pkg/compon_communic/mitcplr_init2a.F 16 MITCPLR_INIT2A 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2a.F 22 MITCPLR_INIT2A 
      call MPI_COMM_RANK( MPI_COMM_myglobal, myid, ierr )
./pkg/compon_communic/mitcplr_init2a.F 24 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 30 MITCPLR_INIT2A 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2a.F 39 MITCPLR_INIT2A 
       ibuf( 1)=myid
./pkg/compon_communic/mitcplr_init2a.F 81 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 85 MITCPLR_INIT2A 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2a.F 90 MITCPLR_INIT2A 
      my_rank_in_global=myid
./pkg/compon_communic/mitcplr_init2b.F 16 MITCPLR_INIT2B 
      integer myid, numprocs, ierr
./pkg/compon_communic/mitcplr_init2b.F 28 MITCPLR_INIT2B 
       call MPI_COMM_RANK( MPI_COMM_temp, myid, ierr )
./pkg/compon_communic/mitcplr_init2b.F 30 MITCPLR_INIT2B 
     &     ' Rank = ',myid,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init2b.F 36 MITCPLR_INIT2B 
     &     ' Rank/Size = ',myid,' /',numprocs
./pkg/compon_communic/mitcplr_init2b.F 47 MITCPLR_INIT2B 
        ibuf( 1)=myid