Symbol Description Uses
ip ptracer number 1409


File Line number Procedure Code
./pkg/flt/flt_init.F 200 FLT_INIT 
          do ip=1,INT(npart_read)
./pkg/flt/flt_init.F 203 FLT_INIT 
     &                           imax,tmp,bi,bj,ip+1,mythid)
./pkg/flt/flt_init.F 38 FLT_INIT 
      INTEGER ip, iG, jG
./pkg/flt/flt_down.F 37 FLT_DOWN 
      integer ip
./pkg/flt/flt_down.F 45 FLT_DOWN 
      do ip=1,npart_tile(bi,bj)
./pkg/flt/flt_down.F 48 FLT_DOWN 
     &  (                             myCurrentTime.ge.tstart(ip,bi,bj))
./pkg/flt/flt_down.F 50 FLT_DOWN 
     &  (  tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le.  tend(ip,bi,bj))
./pkg/flt/flt_down.F 52 FLT_DOWN 
     &  (kpart(ip,bi,bj) .le. flt_surf)
./pkg/flt/flt_down.F 54 FLT_DOWN 
     &  (iup(ip,bi,bj)   .gt. 0.)
./pkg/flt/flt_down.F 65 FLT_DOWN 
            if(mod(myCurrentTime,iup(ip,bi,bj)).eq.itop(ip,bi,bj))
./pkg/flt/flt_down.F 66 FLT_DOWN 
     &      kpart(ip,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_runga2.F 101 FLT_RUNGA2 
                     xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid)
./pkg/flt/flt_runga2.F 102 FLT_RUNGA2 
                     yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid)
./pkg/flt/flt_runga2.F 103 FLT_RUNGA2 
                     kp=INT(kpart(ip,bi,bj))
./pkg/flt/flt_runga2.F 112 FLT_RUNGA2 
                     if (iup(ip,bi,bj).eq.-1.) then
./pkg/flt/flt_runga2.F 119 FLT_RUNGA2 
                        zz=kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 135 FLT_RUNGA2 
                     if (iup(ip,bi,bj).ne.-2.) then
./pkg/flt/flt_runga2.F 140 FLT_RUNGA2 
                        if (iup(ip,bi,bj).eq.-1.) then
./pkg/flt/flt_runga2.F 158 FLT_RUNGA2 
                     if (iup(ip,bi,bj).eq.-1.) then
./pkg/flt/flt_runga2.F 170 FLT_RUNGA2 
                     if (iup(ip,bi,bj).ne.-2.) then
./pkg/flt/flt_runga2.F 176 FLT_RUNGA2 
                        if (iup(ip,bi,bj).eq.-1.) then
./pkg/flt/flt_runga2.F 187 FLT_RUNGA2 
                        if (iup(ip,bi,bj).eq.-1.) then
./pkg/flt/flt_runga2.F 204 FLT_RUNGA2 
                     xpart(ip,bi,bj) = xpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 206 FLT_RUNGA2 
                     ypart(ip,bi,bj) = ypart(ip,bi,bj)
./pkg/flt/flt_runga2.F 209 FLT_RUNGA2 
                     if (iup(ip,bi,bj).eq.-1.) then
./pkg/flt/flt_runga2.F 210 FLT_RUNGA2 
                        kpart(ip,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 217 FLT_RUNGA2 
                     if (iup(ip,bi,bj).eq.-1.) then
./pkg/flt/flt_runga2.F 219 FLT_RUNGA2 
                        if(kpart(ip,bi,bj).lt.1.0)
./pkg/flt/flt_runga2.F 220 FLT_RUNGA2 
     &                       kpart(ip,bi,bj)=1.0
./pkg/flt/flt_runga2.F 221 FLT_RUNGA2 
     &                       +abs(1.0-kpart(ip,bi,bj))
./pkg/flt/flt_runga2.F 223 FLT_RUNGA2 
                        if(kpart(ip,bi,bj).gt.Nr)
./pkg/flt/flt_runga2.F 224 FLT_RUNGA2 
     &                       kpart(ip,bi,bj)=Nr
./pkg/flt/flt_runga2.F 49 FLT_RUNGA2 
      integer ip, kp, iG, jG
./pkg/flt/flt_runga2.F 76 FLT_RUNGA2 
            do ip=1,npart_tile(bi,bj)
./pkg/flt/flt_runga2.F 81 FLT_RUNGA2 
     & (tend(ip,bi,bj).ne.-1. .and. myCurrentTime.gt. tend(ip,bi,bj)))
./pkg/flt/flt_runga2.F 83 FLT_RUNGA2 
                  kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga2.F 88 FLT_RUNGA2 
     & (tstart(ip,bi,bj).eq.-1. .or. myCurrentTime.ge.tstart(ip,bi,bj))
./pkg/flt/flt_runga2.F 90 FLT_RUNGA2 
     & (  tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le.  tend(ip,bi,bj))
./pkg/flt/flt_runga2.F 92 FLT_RUNGA2 
     & (   iup(ip,bi,bj).ne. -3.)
./pkg/flt/flt_bilinear.F 171 FLT_TRILINEAR 
      integer ip
./pkg/flt/flt_bilinear.F 323 FLT_BILINEAR2D 
      integer ip
./pkg/flt/flt_bilinear.F 42 FLT_BILINEAR 
      integer ip
./pkg/flt/flt_exchg.F 100 FLT_EXCHG 
                     fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 101 FLT_EXCHG 
                     fltbuf_sendE(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 102 FLT_EXCHG 
                     fltbuf_sendE(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 103 FLT_EXCHG 
                     fltbuf_sendE(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 104 FLT_EXCHG 
                     fltbuf_sendE(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 106 FLT_EXCHG 
                     npart(ip,bi,bj) =   npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 107 FLT_EXCHG 
                     tstart(ip,bi,bj) =  tstart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 108 FLT_EXCHG 
                     xpart(ip,bi,bj)  =   xpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 109 FLT_EXCHG 
                     ypart(ip,bi,bj)  =   ypart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 110 FLT_EXCHG 
                     kpart(ip,bi,bj)  =   kpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 111 FLT_EXCHG 
                     kfloat(ip,bi,bj) =  kfloat(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 112 FLT_EXCHG 
                     iup(ip,bi,bj)    =     iup(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 113 FLT_EXCHG 
                     itop(ip,bi,bj)   =    itop(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 114 FLT_EXCHG 
                     tend(ip,bi,bj)   =    tend(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 120 FLT_EXCHG 
                  if (xpart(ip,bi,bj) .le. xlo) then
./pkg/flt/flt_exchg.F 126 FLT_EXCHG 
                     fltbuf_sendW(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 127 FLT_EXCHG 
                     fltbuf_sendW(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 128 FLT_EXCHG 
                     fltbuf_sendW(ic+3,bi,bj) =   xpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 129 FLT_EXCHG 
                     fltbuf_sendW(ic+4,bi,bj) =   ypart(ip,bi,bj)
./pkg/flt/flt_exchg.F 130 FLT_EXCHG 
                     fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 131 FLT_EXCHG 
                     fltbuf_sendW(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 132 FLT_EXCHG 
                     fltbuf_sendW(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 133 FLT_EXCHG 
                     fltbuf_sendW(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 134 FLT_EXCHG 
                     fltbuf_sendW(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 136 FLT_EXCHG 
                     npart(ip,bi,bj)  =   npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 137 FLT_EXCHG 
                     tstart(ip,bi,bj) =  tstart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 138 FLT_EXCHG 
                     xpart(ip,bi,bj)  =   xpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 139 FLT_EXCHG 
                     ypart(ip,bi,bj)  =   ypart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 140 FLT_EXCHG 
                     kpart(ip,bi,bj)  =   kpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 141 FLT_EXCHG 
                     kfloat(ip,bi,bj) =  kfloat(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 142 FLT_EXCHG 
                     iup(ip,bi,bj)    =     iup(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 143 FLT_EXCHG 
                     itop(ip,bi,bj)   =    itop(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 144 FLT_EXCHG 
                     tend(ip,bi,bj)   =    tend(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 166 FLT_EXCHG 
               do ip=1,max_npart_exch
./pkg/flt/flt_exchg.F 168 FLT_EXCHG 
                  ic=(ip-1)*imax
./pkg/flt/flt_exchg.F 196 FLT_EXCHG 
               do ip=1,max_npart_exch
./pkg/flt/flt_exchg.F 198 FLT_EXCHG 
                  ic=(ip-1)*imax
./pkg/flt/flt_exchg.F 259 FLT_EXCHG 
               do ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 261 FLT_EXCHG 
                  if (ypart(ip,bi,bj) .ge. yhi) then
./pkg/flt/flt_exchg.F 267 FLT_EXCHG 
                     fltbuf_sendE(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 268 FLT_EXCHG 
                     fltbuf_sendE(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 269 FLT_EXCHG 
                     fltbuf_sendE(ic+3,bi,bj) =   xpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 270 FLT_EXCHG 
                     fltbuf_sendE(ic+4,bi,bj) =   ypart(ip,bi,bj)
./pkg/flt/flt_exchg.F 271 FLT_EXCHG 
                     fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 272 FLT_EXCHG 
                     fltbuf_sendE(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 273 FLT_EXCHG 
                     fltbuf_sendE(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 274 FLT_EXCHG 
                     fltbuf_sendE(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 275 FLT_EXCHG 
                     fltbuf_sendE(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 277 FLT_EXCHG 
                     npart(ip,bi,bj) =  npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 278 FLT_EXCHG 
                     tstart(ip,bi,bj) = tstart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 279 FLT_EXCHG 
                     xpart(ip,bi,bj) =  xpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 280 FLT_EXCHG 
                     ypart(ip,bi,bj) =  ypart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 281 FLT_EXCHG 
                     kpart(ip,bi,bj) =  kpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 282 FLT_EXCHG 
                     kfloat(ip,bi,bj) = kfloat(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 283 FLT_EXCHG 
                     iup(ip,bi,bj)   =  iup(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 284 FLT_EXCHG 
                     itop(ip,bi,bj)  =  itop(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 285 FLT_EXCHG 
                     tend(ip,bi,bj)  =  tend(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 290 FLT_EXCHG 
                  if (ypart(ip,bi,bj) .le. ylo) then
./pkg/flt/flt_exchg.F 296 FLT_EXCHG 
                     fltbuf_sendW(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 297 FLT_EXCHG 
                     fltbuf_sendW(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 298 FLT_EXCHG 
                     fltbuf_sendW(ic+3,bi,bj) =   xpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 299 FLT_EXCHG 
                     fltbuf_sendW(ic+4,bi,bj) =   ypart(ip,bi,bj)
./pkg/flt/flt_exchg.F 300 FLT_EXCHG 
                     fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 301 FLT_EXCHG 
                     fltbuf_sendW(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 302 FLT_EXCHG 
                     fltbuf_sendW(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 303 FLT_EXCHG 
                     fltbuf_sendW(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 304 FLT_EXCHG 
                     fltbuf_sendW(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 306 FLT_EXCHG 
                     npart(ip,bi,bj) =   npart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 307 FLT_EXCHG 
                     tstart(ip,bi,bj) =  tstart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 308 FLT_EXCHG 
                     xpart(ip,bi,bj) =   xpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 309 FLT_EXCHG 
                     ypart(ip,bi,bj) =   ypart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 310 FLT_EXCHG 
                     kpart(ip,bi,bj) =   kpart(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 311 FLT_EXCHG 
                     kfloat(ip,bi,bj) =  kfloat(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 312 FLT_EXCHG 
                     iup(ip,bi,bj)   =   iup(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 313 FLT_EXCHG 
                     itop(ip,bi,bj)  =   itop(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 314 FLT_EXCHG 
                     tend(ip,bi,bj)  =   tend(npart_tile(bi,bj),bi,bj)
./pkg/flt/flt_exchg.F 337 FLT_EXCHG 
               do ip=1,max_npart_exch
./pkg/flt/flt_exchg.F 339 FLT_EXCHG 
                  ic=(ip-1)*imax
./pkg/flt/flt_exchg.F 367 FLT_EXCHG 
               do ip=1,max_npart_exch
./pkg/flt/flt_exchg.F 369 FLT_EXCHG 
                  ic=(ip-1)*imax
./pkg/flt/flt_exchg.F 45 FLT_EXCHG 
      integer ip
./pkg/flt/flt_exchg.F 88 FLT_EXCHG 
               do ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 90 FLT_EXCHG 
                  if (xpart(ip,bi,bj) .ge. xhi) then
./pkg/flt/flt_exchg.F 96 FLT_EXCHG 
                     fltbuf_sendE(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 97 FLT_EXCHG 
                     fltbuf_sendE(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 98 FLT_EXCHG 
                     fltbuf_sendE(ic+3,bi,bj) =   xpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 99 FLT_EXCHG 
                     fltbuf_sendE(ic+4,bi,bj) =   ypart(ip,bi,bj)
./pkg/flt/flt_restart.F 40 FLT_RESTART 
      integer ip
./pkg/flt/flt_restart.F 63 FLT_RESTART 
         do ip=1,npart_tile(bi,bj)
./pkg/flt/flt_restart.F 65 FLT_RESTART 
            tmp(1) =   npart(ip,bi,bj)
./pkg/flt/flt_restart.F 66 FLT_RESTART 
            tmp(2) =  tstart(ip,bi,bj)
./pkg/flt/flt_restart.F 67 FLT_RESTART 
            tmp(3) =   xpart(ip,bi,bj)
./pkg/flt/flt_restart.F 68 FLT_RESTART 
            tmp(4) =   ypart(ip,bi,bj)
./pkg/flt/flt_restart.F 69 FLT_RESTART 
            tmp(5) =   kpart(ip,bi,bj)
./pkg/flt/flt_restart.F 70 FLT_RESTART 
            tmp(6) =  kfloat(ip,bi,bj)
./pkg/flt/flt_restart.F 71 FLT_RESTART 
            tmp(7) =     iup(ip,bi,bj)
./pkg/flt/flt_restart.F 72 FLT_RESTART 
            tmp(8) =    itop(ip,bi,bj)
./pkg/flt/flt_restart.F 73 FLT_RESTART 
            tmp(9) =    tend(ip,bi,bj)
./pkg/flt/flt_restart.F 80 FLT_RESTART 
     &                          bi,bj,ip+1,myCurrentIter,mythid)
./pkg/flt/flt_up.F 110 FLT_UP 
         do ip=7,imax
./pkg/flt/flt_up.F 111 FLT_UP 
            tmp(ip) = 0.
./pkg/flt/flt_up.F 116 FLT_UP 
         do ip=1,npart_tile(bi,bj)
./pkg/flt/flt_up.F 121 FLT_UP 
     &  (                       myCurrentTime.ge.tstart(ip,bi,bj))
./pkg/flt/flt_up.F 123 FLT_UP 
     &  (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj))
./pkg/flt/flt_up.F 125 FLT_UP 
     &  (kpart(ip,bi,bj) .eq. kfloat(ip,bi,bj))
./pkg/flt/flt_up.F 127 FLT_UP 
     &  (iup(ip,bi,bj)   .gt. 0.)
./pkg/flt/flt_up.F 135 FLT_UP 
            if(mod(myCurrentTime,iup(ip,bi,bj)).eq.0.)
./pkg/flt/flt_up.F 136 FLT_UP 
     &      kpart(ip,bi,bj) = flt_surf
./pkg/flt/flt_up.F 143 FLT_UP 
     &  (tend(ip,bi,bj).ne.-1..and.myCurrentTime.gt.tend(ip,bi,bj))
./pkg/flt/flt_up.F 146 FLT_UP 
            kpart(ip,bi,bj) = 0.
./pkg/flt/flt_up.F 152 FLT_UP 
            xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid)
./pkg/flt/flt_up.F 153 FLT_UP 
            yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid)
./pkg/flt/flt_up.F 155 FLT_UP 
            tmp(1)  = npart(ip,bi,bj)
./pkg/flt/flt_up.F 157 FLT_UP 
            tmp(3)  = xpart(ip,bi,bj)
./pkg/flt/flt_up.F 158 FLT_UP 
            tmp(4)  = ypart(ip,bi,bj)
./pkg/flt/flt_up.F 159 FLT_UP 
            tmp(5)  = kpart(ip,bi,bj)
./pkg/flt/flt_up.F 162 FLT_UP 
     &  (                         myCurrentTime.ge.tstart(ip,bi,bj))
./pkg/flt/flt_up.F 164 FLT_UP 
     &  (tend(ip,bi,bj).eq.-1..or.myCurrentTime.le.tend(ip,bi,bj))
./pkg/flt/flt_up.F 199 FLT_UP 
            irecord=npart_read+ip+1
./pkg/flt/flt_up.F 46 FLT_UP 
      integer ip, k
./pkg/flt/flt_traj.F 109 FLT_TRAJ 
         do ip=7,imax
./pkg/flt/flt_traj.F 110 FLT_TRAJ 
            tmp(ip) = 0.
./pkg/flt/flt_traj.F 116 FLT_TRAJ 
         do ip=1,npart_tile(bi,bj)
./pkg/flt/flt_traj.F 118 FLT_TRAJ 
            xx=global2local_i(xpart(ip,bi,bj),bi,bj,mythid)
./pkg/flt/flt_traj.F 119 FLT_TRAJ 
            yy=global2local_j(ypart(ip,bi,bj),bi,bj,mythid)
./pkg/flt/flt_traj.F 120 FLT_TRAJ 
            kp=INT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F 121 FLT_TRAJ 
            tmp(1)  = npart(ip,bi,bj)
./pkg/flt/flt_traj.F 123 FLT_TRAJ 
            tmp(3)  = xpart(ip,bi,bj)
./pkg/flt/flt_traj.F 124 FLT_TRAJ 
            tmp(4)  = ypart(ip,bi,bj)
./pkg/flt/flt_traj.F 125 FLT_TRAJ 
            tmp(5)  = kpart(ip,bi,bj)
./pkg/flt/flt_traj.F 128 FLT_TRAJ 
     &  (                             myCurrentTime.ge.tstart(ip,bi,bj))
./pkg/flt/flt_traj.F 130 FLT_TRAJ 
     &  (  tend(ip,bi,bj).eq.-1. .or. myCurrentTime.le.  tend(ip,bi,bj))
./pkg/flt/flt_traj.F 159 FLT_TRAJ 
            irecord=npart_read+ip+1
./pkg/flt/flt_traj.F 44 FLT_TRAJ 
      integer ip, kp, iip
./verification/flt_example/extra/write_float.F 100 NO PROCEDURE 
        write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F 107 NO PROCEDURE 
                 ip=ip+1
./verification/flt_example/extra/write_float.F 108 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 117 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 122 NO PROCEDURE 
        write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F 134 NO PROCEDURE 
                 ip=ip+1
./verification/flt_example/extra/write_float.F 135 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 144 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 149 NO PROCEDURE 
        write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F 160 NO PROCEDURE 
                 ip=ip+1
./verification/flt_example/extra/write_float.F 161 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 170 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 175 NO PROCEDURE 
        write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F 182 NO PROCEDURE 
                 ip=ip+1
./verification/flt_example/extra/write_float.F 183 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 192 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/write_float.F 195 NO PROCEDURE 
        write(6,200) 'ip = ',ip,' kpart,kfloat,iup,itop,tstart,tend: ',
./verification/flt_example/extra/write_float.F 201 NO PROCEDURE 
        print*, 'total number of floats: npart = ',ip
./verification/flt_example/extra/write_float.F 205 NO PROCEDURE 
                   npart  = DBLE(ip)
./verification/flt_example/extra/write_float.F 210 NO PROCEDURE 
                   kfloat = DBLE(ip)
./verification/flt_example/extra/write_float.F 76 NO PROCEDURE 
        ip=0
./verification/flt_example/extra/write_float.F 85 NO PROCEDURE 
                 ip=ip+1
./verification/flt_example/extra/write_float.F 86 NO PROCEDURE 
                   npart  = REAL(ip)
./verification/flt_example/extra/write_float.F 95 NO PROCEDURE 
         if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart,
./verification/flt_example/extra/cvprofiles.F 242 NO PROCEDURE 
      do ip=1,npart
./verification/flt_example/extra/cvprofiles.F 243 NO PROCEDURE 
         pnum(ip) = FLOAT(ip)
./verification/flt_example/extra/cvprofiles.F 271 NO PROCEDURE 
               ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F 272 NO PROCEDURE 
               if (ip .gt. npart) then
./verification/flt_example/extra/cvprofiles.F 273 NO PROCEDURE 
                  print*,'ip out of order: ',ip,npart
./verification/flt_example/extra/cvprofiles.F 280 NO PROCEDURE 
               xpart(ip,np)  = SNGL(tmp(3))
./verification/flt_example/extra/cvprofiles.F 281 NO PROCEDURE 
               ypart(ip,np)  = SNGL(tmp(4))
./verification/flt_example/extra/cvprofiles.F 283 NO PROCEDURE 
               xpart(ip,np)  = SNGL(tmp(3))/1000.
./verification/flt_example/extra/cvprofiles.F 284 NO PROCEDURE 
               ypart(ip,np)  = SNGL(tmp(4))/1000.
./verification/flt_example/extra/cvprofiles.F 286 NO PROCEDURE 
               kpart(ip,np)  = SNGL(tmp(5))
./verification/flt_example/extra/cvprofiles.F 287 NO PROCEDURE 
               zeta(ip,np)   = SNGL(tmp(6))
./verification/flt_example/extra/cvprofiles.F 289 NO PROCEDURE 
                if (.not. preflag) uvel(ip,k,np)   = SNGL(tmp(6+k))
./verification/flt_example/extra/cvprofiles.F 290 NO PROCEDURE 
                if (.not. preflag) vvel(ip,k,np)   = SNGL(tmp(6+1*Nr+k))
./verification/flt_example/extra/cvprofiles.F 291 NO PROCEDURE 
                                   temp(ip,k,np)   = SNGL(tmp(6+2*Nr+k))
./verification/flt_example/extra/cvprofiles.F 292 NO PROCEDURE 
                if (.not. preflag) salt(ip,k,np)   = SNGL(tmp(6+3*Nr+k))
./verification/flt_example/extra/cvprofiles.F 293 NO PROCEDURE 
                  if (temp(ip,k,np) .eq. 0.) then
./verification/flt_example/extra/cvprofiles.F 294 NO PROCEDURE 
                    if (.not. preflag)  uvel(ip,k,np)   = spval
./verification/flt_example/extra/cvprofiles.F 295 NO PROCEDURE 
                    if (.not. preflag)  vvel(ip,k,np)   = spval
./verification/flt_example/extra/cvprofiles.F 296 NO PROCEDURE 
                                        temp(ip,k,np)   = spval
./verification/flt_example/extra/cvprofiles.F 297 NO PROCEDURE 
                    if (.not. preflag)  salt(ip,k,np)   = spval
./verification/flt_example/extra/cvprofiles.F 556 NO PROCEDURE 
               ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F 559 NO PROCEDURE 
                  temp(ip,k,np)   = SNGL(tmp(6+3*Nr+k))
./verification/flt_example/extra/cvprofiles.F 561 NO PROCEDURE 
                     temp(ip,k,np)   = spval
./verification/flt_example/extra/cvprofiles.F 586 NO PROCEDURE 
               ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F 589 NO PROCEDURE 
                  temp(ip,k,np)   = SNGL(tmp(6+k))
./verification/flt_example/extra/cvprofiles.F 591 NO PROCEDURE 
                     temp(ip,k,np)   = spval
./verification/flt_example/extra/cvprofiles.F 616 NO PROCEDURE 
               ip = INT(tmp(1))
./verification/flt_example/extra/cvprofiles.F 619 NO PROCEDURE 
                  temp(ip,k,np)   = SNGL(tmp(6+1*Nr+k))
./verification/flt_example/extra/cvprofiles.F 621 NO PROCEDURE 
                     temp(ip,k,np)   = spval
./verification/flt_example/extra/cvfloat.F 205 NO PROCEDURE 
      do ip=1,npart
./verification/flt_example/extra/cvfloat.F 206 NO PROCEDURE 
         pnum(ip) = FLOAT(ip)
./verification/flt_example/extra/cvfloat.F 233 NO PROCEDURE 
               ip = INT(tmp(1))
./verification/flt_example/extra/cvfloat.F 234 NO PROCEDURE 
               if (ip .gt. npart) then
./verification/flt_example/extra/cvfloat.F 235 NO PROCEDURE 
                  print*,'ip out of order: ',ip,npart
./verification/flt_example/extra/cvfloat.F 245 NO PROCEDURE 
               xpart(ip,np)  = SNGL(tmp(3))
./verification/flt_example/extra/cvfloat.F 246 NO PROCEDURE 
               ypart(ip,np)  = SNGL(tmp(4))
./verification/flt_example/extra/cvfloat.F 248 NO PROCEDURE 
               xpart(ip,np)  = SNGL(tmp(3))/1000.
./verification/flt_example/extra/cvfloat.F 249 NO PROCEDURE 
               ypart(ip,np)  = SNGL(tmp(4))/1000.
./verification/flt_example/extra/cvfloat.F 251 NO PROCEDURE 
               kpart(ip,np)  = SNGL(tmp(5))
./verification/flt_example/extra/cvfloat.F 252 NO PROCEDURE 
               uvel(ip,np)   = SNGL(tmp(6))
./verification/flt_example/extra/cvfloat.F 253 NO PROCEDURE 
               vvel(ip,np)   = SNGL(tmp(7))
./verification/flt_example/extra/cvfloat.F 254 NO PROCEDURE 
               temp(ip,np)   = SNGL(tmp(8))
./verification/flt_example/extra/cvfloat.F 255 NO PROCEDURE 
               salt(ip,np)   = SNGL(tmp(9))
./verification/flt_example/extra/cvfloat.F 256 NO PROCEDURE 
               zeta(ip,np)   = SNGL(tmp(10))
./model/src/thermodynamics.F 173 THERMODYNAMICS 
      INTEGER iTracer, ip
./model/src/thermodynamics.F 239 THERMODYNAMICS 
          DO ip=1,PTRACERS_num
./model/src/thermodynamics.F 240 THERMODYNAMICS 
           fVerP  (i,j,1,ip) = 0. _d 0
./model/src/thermodynamics.F 241 THERMODYNAMICS 
           fVerP  (i,j,2,ip) = 0. _d 0
./model/src/thermodynamics.F 242 THERMODYNAMICS 
           kappaRTr(i,j,ip)  = 0. _d 0
./pkg/ptracers/ptracers_monitor.F 52 PTRACERS_MONITOR 
      integer ip
./pkg/ptracers/ptracers_monitor.F 95 PTRACERS_MONITOR 
       DO ip = 1, PTRACERS_numInUse
./pkg/ptracers/ptracers_monitor.F 96 PTRACERS_MONITOR 
         WRITE(suff,'(A7,I2.2)') 'ptracer',ip
./pkg/ptracers/ptracers_monitor.F 98 PTRACERS_MONITOR 
     &        Nr, ptracer(1-Olx,1-Oly,1,1,1,ip),
./pkg/diagnostics/diagnostics_out.F 214 DIAGNOSTICS_OUT 
          ip = ABS(idiag(md,listId))
./pkg/diagnostics/diagnostics_out.F 216 DIAGNOSTICS_OUT 
          IF ( ndiag(ip,1,1).EQ.0 ) THEN
./pkg/diagnostics/diagnostics_out.F 231 DIAGNOSTICS_OUT 
     &       ndiag(ip,1,1), ' )'
./pkg/diagnostics/diagnostics_out.F 256 DIAGNOSTICS_OUT 
     &         '     Counter:',ndiag(ip,1,1),'   Parms: ',gdiag(ndId)
./pkg/diagnostics/diagnostics_out.F 295 DIAGNOSTICS_OUT 
     I                       ndId,mate,ip,im,bi,bj,myThid)
./pkg/diagnostics/diagnostics_out.F 55 DIAGNOSTICS_OUT 
      INTEGER md, ndId, ip, im
./pkg/diagnostics/diagnostics_is_on.F 36 NO PROCEDURE 
      INTEGER ip,iSp
./pkg/diagnostics/diagnostics_is_on.F 44 NO PROCEDURE 
          ip = ABS(idiag(m,n))
./pkg/diagnostics/diagnostics_is_on.F 45 NO PROCEDURE 
          IF ( ndiag(ip,1,1).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE.
./pkg/diagnostics/diagnostics_switch_onoff.F 47 DIAGNOSTICS_SWITCH_ONOFF 
      INTEGER bi, bj, ip, iSp
./pkg/diagnostics/diagnostics_switch_onoff.F 85 DIAGNOSTICS_SWITCH_ONOFF 
              ip = idiag(m,n)
./pkg/diagnostics/diagnostics_switch_onoff.F 86 DIAGNOSTICS_SWITCH_ONOFF 
              IF (ip.GT.0) ndiag(ip,bi,bj) = 0
./pkg/diagnostics/diagnostics_switch_onoff.F 93 DIAGNOSTICS_SWITCH_ONOFF 
              ip = idiag(m,n)
./pkg/diagnostics/diagnostics_switch_onoff.F 94 DIAGNOSTICS_SWITCH_ONOFF 
              IF (ip.GT.0) ndiag(ip,bi,bj) = -1
./pkg/diagnostics/diagnostics_utils.F 14 GETDIAG 
     I                    ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_utils.F 38 GETDIAG 
      INTEGER ndId, mate, ip, im
./pkg/diagnostics/diagnostics_utils.F 59 GETDIAG 
          ipnt = ip + lev - 1
./pkg/diagnostics/diagnostics_utils.F 60 GETDIAG 
          factor = FLOAT(ndiag(ip,bi,bj))
./pkg/diagnostics/diagnostics_utils.F 61 GETDIAG 
          IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor
./pkg/diagnostics/diagnostics_utils.F 76 GETDIAG 
          ipnt = ip + lev - 1
./pkg/fizhi/co2-tran3.h 103 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h 109 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 115 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 121 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 127 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 133 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 139 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 13 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 145 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 151 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 157 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 163 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 169 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 175 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 181 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 187 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 193 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 199 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 19 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 1 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 205 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 211 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 217 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 223 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 229 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 235 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 241 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 247 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 253 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 259 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 25 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 265 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 271 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 277 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 283 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 289 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 295 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 301 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 307 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 313 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 319 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 31 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 325 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 331 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 337 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 343 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 349 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 355 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 361 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 367 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 373 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 379 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 37 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 385 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 391 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 397 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 403 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 409 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 415 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 421 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 427 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 433 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 439 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 43 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 445 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 451 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 457 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 463 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 49 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 55 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 61 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 67 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 73 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 79 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 7 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 85 NO PROCEDURE 
      data ((c3(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 91 NO PROCEDURE 
      data ((c1(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h 97 NO PROCEDURE 
      data ((c2(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/fizhi_lwrad.F 2518 TABLUP 
      integer iw,ip,nn
./pkg/fizhi/fizhi_lwrad.F 2538 TABLUP 
        ip=int(pe+1.5)
./pkg/fizhi/fizhi_lwrad.F 2543 TABLUP 
        ip=min(ip,nx-1)
./pkg/fizhi/fizhi_lwrad.F 2544 TABLUP 
        ip=max(ip, 1)
./pkg/fizhi/fizhi_lwrad.F 2547 TABLUP 
        fp=pe-float(ip-1)
./pkg/fizhi/fizhi_lwrad.F 2551 TABLUP 
        pa = coef1(ip,iw-1,nn)*(1.-fp)+coef1(ip+1,iw-1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2552 TABLUP 
        pb = coef1(ip,iw,  nn)*(1.-fp)+coef1(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2553 TABLUP 
        pc = coef1(ip,iw+1,nn)*(1.-fp)+coef1(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2561 TABLUP 
        ba = coef2(ip,iw,  nn)*(1.-fp)+coef2(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2562 TABLUP 
        bb = coef2(ip,iw+1,nn)*(1.-fp)+coef2(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2565 TABLUP 
        ca = coef3(ip,iw,  nn)*(1.-fp)+coef3(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2566 TABLUP 
        cb = coef3(ip,iw+1,nn)*(1.-fp)+coef3(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 563 IRRAD 
      integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2
./pkg/fizhi/fizhi_lwrad.F 804 IRRAD 
         do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 805 IRRAD 
          h11(ip,iw,1)=1.0-h11(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 806 IRRAD 
          h21(ip,iw,1)=1.0-h21(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 807 IRRAD 
          h81(ip,iw,1)=1.0-h81(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 812 IRRAD 
         do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 813 IRRAD 
          c1(ip,iw,1)=1.0-c1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 824 IRRAD 
          do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 825 IRRAD 
           c1 (ip,iw,it)= c1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 826 IRRAD 
           c2 (ip,iw,it)= c2(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 827 IRRAD 
           c3 (ip,iw,it)= c3(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 831 IRRAD 
          do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 832 IRRAD 
           h11(ip,iw,it)=h11(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 833 IRRAD 
           h12(ip,iw,it)=h12(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 834 IRRAD 
           h13(ip,iw,it)=h13(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 835 IRRAD 
           h21(ip,iw,it)=h21(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 836 IRRAD 
           h22(ip,iw,it)=h22(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 837 IRRAD 
           h23(ip,iw,it)=h23(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 838 IRRAD 
           h81(ip,iw,it)=h81(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 839 IRRAD 
           h82(ip,iw,it)=h82(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 840 IRRAD 
           h83(ip,iw,it)=h83(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 850 IRRAD 
         do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 851 IRRAD 
          o1(ip,iw,1)=1.0-o1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 857 IRRAD 
          do ip=1,nx
./pkg/fizhi/fizhi_lwrad.F 858 IRRAD 
           o1 (ip,iw,it)= o1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 859 IRRAD 
           o2 (ip,iw,it)= o2(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 860 IRRAD 
           o3 (ip,iw,it)= o3(ip,iw,1)
./pkg/fizhi/h2o-tran3.h 1001 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1009 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1017 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1025 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1033 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1041 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1049 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1057 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 105 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1065 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1073 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1081 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1089 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1097 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1105 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1113 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1121 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1129 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1137 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 113 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1145 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1153 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1161 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1169 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1177 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1185 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1193 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1201 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1209 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1217 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 121 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1225 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1233 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1241 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1249 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1257 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1265 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1273 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1281 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1289 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1297 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 129 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1305 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1313 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1321 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1329 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1337 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1345 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1353 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1361 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1369 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1377 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 137 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1385 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1393 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1401 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1409 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1417 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1425 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1433 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1441 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1449 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1457 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 145 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1465 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1473 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1481 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1489 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1497 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1505 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1513 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1521 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1529 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1537 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 153 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1545 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1553 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1561 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1569 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1577 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1585 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1593 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1601 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1609 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1617 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 161 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1625 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1633 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1641 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1649 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1657 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1665 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1673 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1681 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1689 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1697 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 169 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1705 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1713 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1721 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1729 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1737 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1745 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1753 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1761 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1769 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1777 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 177 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1785 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1793 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 17 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1801 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1809 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1817 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1825 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1833 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1841 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1849 NO PROCEDURE 
      data ((h81(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1857 NO PROCEDURE 
      data ((h82(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 185 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1865 NO PROCEDURE 
      data ((h83(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 193 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 201 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 209 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 217 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 225 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 233 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 241 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 249 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 257 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 25 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 265 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 273 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 281 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 289 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 297 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 305 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 313 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 321 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 329 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 337 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 33 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 345 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 353 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 361 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 369 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 377 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 385 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 393 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 401 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 409 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 417 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 41 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 425 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 433 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 441 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 449 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 457 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 465 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 473 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 481 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 489 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 497 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 49 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 505 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 513 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 521 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 529 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 537 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 545 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 553 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 561 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 569 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 577 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 57 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 585 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 593 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 601 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 609 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 617 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 625 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 633 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 641 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 649 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 657 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 65 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 665 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 673 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 681 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 689 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 697 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 705 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 713 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 721 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 729 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 737 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 73 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 745 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 753 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 761 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 769 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 777 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 785 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 793 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 801 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 809 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 817 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 81 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 825 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 833 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 841 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 849 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 857 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 865 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 873 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 881 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 889 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 897 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 89 NO PROCEDURE 
      data ((h13(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 905 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 913 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 921 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 929 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 937 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 945 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 953 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 961 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 969 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 977 NO PROCEDURE 
      data ((h23(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 97 NO PROCEDURE 
      data ((h11(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 985 NO PROCEDURE 
      data ((h21(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 993 NO PROCEDURE 
      data ((h22(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 9 NO PROCEDURE 
      data ((h12(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 103 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h 109 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 115 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 121 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 127 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 133 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 139 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 13 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 145 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 151 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 157 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 163 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 169 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 175 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 181 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 187 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 193 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 199 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 19 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 1 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 205 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 211 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 217 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 223 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 229 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 235 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 241 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 247 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 253 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 259 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 25 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 265 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 271 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 277 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 283 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 289 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 295 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 301 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 307 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 313 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 319 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 31 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 325 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 331 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 337 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 343 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 349 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 355 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 361 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 367 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 373 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 379 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 37 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 385 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 391 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 397 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 403 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 409 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 415 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 421 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 427 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 433 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 439 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 43 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 445 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 451 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 457 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 463 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 49 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 55 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 61 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 67 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 73 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 79 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 7 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 85 NO PROCEDURE 
      data ((o3(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 91 NO PROCEDURE 
      data ((o1(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h 97 NO PROCEDURE 
      data ((o2(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/ctrl/ctrl_set_pack_yz.F 100 CTRL_SET_PACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 113 CTRL_SET_PACK_YZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F 116 CTRL_SET_PACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 146 CTRL_SET_PACK_YZ 
                     do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F 148 CTRL_SET_PACK_YZ 
                           weightfldyz(bi,ip,j,bj,jp,k,iobcs) = wbaro
./pkg/ctrl/ctrl_set_pack_yz.F 176 CTRL_SET_PACK_YZ 
                        do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F 181 CTRL_SET_PACK_YZ 
                                 globfld3d(i,bi,ip,j,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 198 CTRL_SET_PACK_YZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F 204 CTRL_SET_PACK_YZ 
                  if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 209 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_yz.F 211 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 217 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_yz.F 219 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 225 CTRL_SET_PACK_YZ 
                     cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F 264 CTRL_SET_PACK_YZ 
                     do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F 269 CTRL_SET_PACK_YZ 
                              globfldyz(bi,ip,j,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 286 CTRL_SET_PACK_YZ 
              do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F 289 CTRL_SET_PACK_YZ 
                 if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 294 CTRL_SET_PACK_YZ 
     &                       globfldyz(bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_yz.F 296 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 302 CTRL_SET_PACK_YZ 
     &                       globfldyz(bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_yz.F 304 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 310 CTRL_SET_PACK_YZ 
                     cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F 51 CTRL_SET_PACK_YZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_pack_yz.F 96 CTRL_SET_PACK_YZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_yz.F 98 CTRL_SET_PACK_YZ 
                        globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 100 CTRL_SET_UNPACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 101 CTRL_SET_UNPACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 102 CTRL_SET_UNPACK_XY 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xy.F 103 CTRL_SET_UNPACK_XY 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xy.F 189 CTRL_SET_UNPACK_XY 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xy.F 192 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 194 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 196 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 200 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 201 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xy.F 202 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 204 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 205 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)*
./pkg/ctrl/ctrl_set_unpack_xy.F 206 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 210 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 213 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 214 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 281 CTRL_SET_UNPACK_XY 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xy.F 284 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 286 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 288 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 292 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 293 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xy.F 294 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 296 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 297 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)*
./pkg/ctrl/ctrl_set_unpack_xy.F 298 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 302 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 305 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 306 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 48 CTRL_SET_UNPACK_XY 
      integer ip,jp
./pkg/ctrl/ctrl_set_unpack_xy.F 97 CTRL_SET_UNPACK_XY 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F 100 CTRL_SET_PACK_XY 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xy.F 101 CTRL_SET_PACK_XY 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xy.F 168 CTRL_SET_PACK_XY 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F 171 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,1)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 174 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F 175 CTRL_SET_PACK_XY 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 180 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F 181 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 184 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 185 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 188 CTRL_SET_PACK_XY 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 191 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 231 CTRL_SET_PACK_XY 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F 234 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,k)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 237 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F 238 CTRL_SET_PACK_XY 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 243 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F 244 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 247 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 248 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 251 CTRL_SET_PACK_XY 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 254 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 47 CTRL_SET_PACK_XY 
      integer ip,jp
./pkg/ctrl/ctrl_set_pack_xy.F 95 CTRL_SET_PACK_XY 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xy.F 98 CTRL_SET_PACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 99 CTRL_SET_PACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xyz.F 41 CTRL_SET_GLOBFLD_XYZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_globfld_xyz.F 69 CTRL_SET_GLOBFLD_XYZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_globfld_xyz.F 72 CTRL_SET_GLOBFLD_XYZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 101 CTRL_SET_UNPACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 114 CTRL_SET_UNPACK_XZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F 117 CTRL_SET_UNPACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 146 CTRL_SET_UNPACK_XZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F 149 CTRL_SET_UNPACK_XZ 
                           weightfldxz(i,bi,ip,bj,jp,k,iobcs) = wbaro
./pkg/ctrl/ctrl_set_unpack_xz.F 197 CTRL_SET_UNPACK_XZ 
                 do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F 200 CTRL_SET_UNPACK_XZ 
                    if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 202 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 205 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 206 CTRL_SET_UNPACK_XZ 
     &                      globfld3d(i,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_xz.F 208 CTRL_SET_UNPACK_XZ 
     &                      sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 214 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 270 CTRL_SET_UNPACK_XZ 
              do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F 273 CTRL_SET_UNPACK_XZ 
                  if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 275 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 277 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xz.F 278 CTRL_SET_UNPACK_XZ 
     &                    globfldxz(i,bi,ip,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xz.F 280 CTRL_SET_UNPACK_XZ 
     &                    sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 286 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 50 CTRL_SET_UNPACK_XZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_unpack_xz.F 96 CTRL_SET_UNPACK_XZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xz.F 99 CTRL_SET_UNPACK_XZ 
                        globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xy.F 46 CTRL_SET_GLOBFLD_XY 
      integer ip,jp
./pkg/ctrl/ctrl_set_globfld_xy.F 74 CTRL_SET_GLOBFLD_XY 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_globfld_xy.F 77 CTRL_SET_GLOBFLD_XY 
                        globfld2d(i,bi,ip,j,bj,jp) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xy.F 89 CTRL_SET_GLOBFLD_XY 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_globfld_xy.F 92 CTRL_SET_GLOBFLD_XY 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F 46 CTRL_SET_GLOBFLD_YZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_globfld_yz.F 75 CTRL_SET_GLOBFLD_YZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_globfld_yz.F 77 CTRL_SET_GLOBFLD_YZ 
                        globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F 89 CTRL_SET_GLOBFLD_YZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_globfld_yz.F 92 CTRL_SET_GLOBFLD_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 101 CTRL_SET_UNPACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 114 CTRL_SET_UNPACK_YZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F 117 CTRL_SET_UNPACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 147 CTRL_SET_UNPACK_YZ 
                     do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F 149 CTRL_SET_UNPACK_YZ 
                           weightfldyz(bi,ip,j,bj,jp,k,iobcs) = wbaro
./pkg/ctrl/ctrl_set_unpack_yz.F 196 CTRL_SET_UNPACK_YZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F 201 CTRL_SET_UNPACK_YZ 
                    if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 203 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 206 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 207 CTRL_SET_UNPACK_YZ 
     &                      globfld3d(ii,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_yz.F 209 CTRL_SET_UNPACK_YZ 
     &                      sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 215 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 270 CTRL_SET_UNPACK_YZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F 272 CTRL_SET_UNPACK_YZ 
                  if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 274 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F 276 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_yz.F 277 CTRL_SET_UNPACK_YZ 
     &                    globfldyz(bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_yz.F 279 CTRL_SET_UNPACK_YZ 
     &                    sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 285 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 50 CTRL_SET_UNPACK_YZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_unpack_yz.F 97 CTRL_SET_UNPACK_YZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_yz.F 99 CTRL_SET_UNPACK_YZ 
                        globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 105 CTRL_SET_UNPACK_XYZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xyz.F 108 CTRL_SET_UNPACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 109 CTRL_SET_UNPACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 110 CTRL_SET_UNPACK_XYZ 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xyz.F 111 CTRL_SET_UNPACK_XYZ 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xyz.F 210 CTRL_SET_UNPACK_XYZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_unpack_xyz.F 213 CTRL_SET_UNPACK_XYZ 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 215 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 217 CTRL_SET_UNPACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 221 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 222 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 224 CTRL_SET_UNPACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 229 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 230 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 232 CTRL_SET_UNPACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 239 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 242 CTRL_SET_UNPACK_XYZ 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 243 CTRL_SET_UNPACK_XYZ 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 48 CTRL_SET_UNPACK_XYZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_globfld_xz.F 46 CTRL_SET_GLOBFLD_XZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_globfld_xz.F 74 CTRL_SET_GLOBFLD_XZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_globfld_xz.F 77 CTRL_SET_GLOBFLD_XZ 
                        globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xz.F 89 CTRL_SET_GLOBFLD_XZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_globfld_xz.F 92 CTRL_SET_GLOBFLD_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 104 CTRL_SET_PACK_XYZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xyz.F 107 CTRL_SET_PACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 108 CTRL_SET_PACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 109 CTRL_SET_PACK_XYZ 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xyz.F 110 CTRL_SET_PACK_XYZ 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xyz.F 184 CTRL_SET_PACK_XYZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xyz.F 187 CTRL_SET_PACK_XYZ 
                  if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F 190 CTRL_SET_PACK_XYZ 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xyz.F 191 CTRL_SET_PACK_XYZ 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 196 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 198 CTRL_SET_PACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 204 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 206 CTRL_SET_PACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 212 CTRL_SET_PACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F 215 CTRL_SET_PACK_XYZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 48 CTRL_SET_PACK_XYZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_pack_xz.F 101 CTRL_SET_PACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 114 CTRL_SET_PACK_XZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F 117 CTRL_SET_PACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 146 CTRL_SET_PACK_XZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F 149 CTRL_SET_PACK_XZ 
                           weightfldxz(i,bi,ip,bj,jp,k,iobcs) = wbaro
./pkg/ctrl/ctrl_set_pack_xz.F 172 CTRL_SET_PACK_XZ 
                     do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F 178 CTRL_SET_PACK_XZ 
                                 globfld3d(i,bi,ip,j,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 195 CTRL_SET_PACK_XZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F 200 CTRL_SET_PACK_XZ 
                  if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 205 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_xz.F 207 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 213 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_xz.F 215 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 221 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 256 CTRL_SET_PACK_XZ 
                  do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F 262 CTRL_SET_PACK_XZ 
                              globfldxz(i,bi,ip,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 279 CTRL_SET_PACK_XZ 
              do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F 282 CTRL_SET_PACK_XZ 
                 if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 287 CTRL_SET_PACK_XZ 
     &                       globfldxz(i,bi,ip,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xz.F 289 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 295 CTRL_SET_PACK_XZ 
     &                       globfldxz(i,bi,ip,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xz.F 297 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 303 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xz.F 51 CTRL_SET_PACK_XZ 
      integer ip,jp
./pkg/ctrl/ctrl_set_pack_xz.F 96 CTRL_SET_PACK_XZ 
               do ip = 1,nPx
./pkg/ctrl/ctrl_set_pack_xz.F 99 CTRL_SET_PACK_XZ 
                        globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0