Symbol Description Uses
i loop indices 31158


File Line number Procedure Code
./model/inc/HFACS_MACROS.h 36 NO PROCEDURE 
# define _hFacS(i,j,k,bi,bj) hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/fizhi/fizhi_driver.F 115 FIZHI_DRIVER 
      integer i,j
./pkg/fizhi/fizhi_driver.F 180 FIZHI_DRIVER 
      do i=1,im
./pkg/fizhi/fizhi_driver.F 181 FIZHI_DRIVER 
      tg0(i,j) = tgz(i,j)
./pkg/fizhi/fizhi_fillnegs.F 113 TRACER_FILL 
      do i=2,im
./pkg/fizhi/fizhi_fillnegs.F 114 TRACER_FILL 
      lam(i) = lam(i-1) + dlam(i-1)
./pkg/fizhi/fizhi_fillnegs.F 128 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 129 TRACER_FILL 
      dxu(i,j) = a*cos(phi(j))*dlam(i)
./pkg/fizhi/fizhi_fillnegs.F 134 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 135 TRACER_FILL 
      dyv(i,j) = a*dphi(j)
./pkg/fizhi/fizhi_fillnegs.F 138 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 139 TRACER_FILL 
      dyv(i,1)    = a*(dphi(1)   +0.5*dphi(2)   )
./pkg/fizhi/fizhi_fillnegs.F 140 TRACER_FILL 
      dyv(i,jm-1) = a*(dphi(jm-1)+0.5*dphi(jm-2))
./pkg/fizhi/fizhi_fillnegs.F 147 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 148 TRACER_FILL 
      dxp(i,j) = ( dxu(i,j)+dxu(im1,j) )*0.5
./pkg/fizhi/fizhi_fillnegs.F 149 TRACER_FILL 
      im1 = i
./pkg/fizhi/fizhi_fillnegs.F 154 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 155 TRACER_FILL 
      dxv(i,j) = ( dxp(i,j)+dxp(i,j+1) )*0.5
./pkg/fizhi/fizhi_fillnegs.F 162 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 163 TRACER_FILL 
      dyp(i,j) = ( dyv(i,j)+dyv(i,j-1) )*0.5
./pkg/fizhi/fizhi_fillnegs.F 166 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 167 TRACER_FILL 
      dyp(i,2)    = dyv(i,1)
./pkg/fizhi/fizhi_fillnegs.F 168 TRACER_FILL 
      dyp(i,jm-1) = dyv(i,jm-1)
./pkg/fizhi/fizhi_fillnegs.F 174 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 175 TRACER_FILL 
      d2p(i,j) = 0.5*( dxv(i,j)+dxv(i,j-1) )*dyp(i,j)
./pkg/fizhi/fizhi_fillnegs.F 178 TRACER_FILL 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 179 TRACER_FILL 
      d2p(i,2)    = dxv(i,2)   *dyp(i,2)
./pkg/fizhi/fizhi_fillnegs.F 180 TRACER_FILL 
      d2p(i,jm-1) = dxv(i,jm-2)*dyp(i,jm-1)
./pkg/fizhi/fizhi_fillnegs.F 193 TRACER_FILL 
      i   = im
./pkg/fizhi/fizhi_fillnegs.F 196 TRACER_FILL 
      if( pq(i,j,L).lt.0.0 ) then
./pkg/fizhi/fizhi_fillnegs.F 198 TRACER_FILL 
      qval     = pq(i  ,j,L)*d2p(i  ,j)*dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F 199 TRACER_FILL 
      array(1) = pq(ip1,j,L)*d2p(ip1,j)*dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F 200 TRACER_FILL 
      array(2) = pq(im1,j,L)*d2p(im1,j)*dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F 205 TRACER_FILL 
      array(3) = pq(i,j+1,L)*d2p(i,j+1)*dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F 210 TRACER_FILL 
      array(4) = pq(i,j-1,L)*d2p(i,j-1)*dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F 215 TRACER_FILL 
      array(5) = pq(i,j,L-1)*d2p(i,j)*dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F 220 TRACER_FILL 
      array(6) = pq(i,j,L+1)*d2p(i,j)*dp(i,j,L)
./pkg/fizhi/fizhi_fillnegs.F 234 TRACER_FILL 
               if( array(3).gt.0 ) pq(i,j+1,L) = pq(i,j+1,L) * fact
./pkg/fizhi/fizhi_fillnegs.F 235 TRACER_FILL 
               if( array(4).gt.0 ) pq(i,j-1,L) = pq(i,j-1,L) * fact
./pkg/fizhi/fizhi_fillnegs.F 236 TRACER_FILL 
               if( array(5).gt.0 ) pq(i,j,L-1) = pq(i,j,L-1) * fact
./pkg/fizhi/fizhi_fillnegs.F 237 TRACER_FILL 
               if( array(6).gt.0 ) pq(i,j,L+1) = pq(i,j,L+1) * fact
./pkg/fizhi/fizhi_fillnegs.F 238 TRACER_FILL 
                                   pq(i,j,L)   = 0.0
./pkg/fizhi/fizhi_fillnegs.F 240 TRACER_FILL 
               pq(i,j,L) = 0.0
./pkg/fizhi/fizhi_fillnegs.F 244 TRACER_FILL 
     .                                 pq(i,j,L)*d2p(i,j)/d2p(ip1,j)
./pkg/fizhi/fizhi_fillnegs.F 246 TRACER_FILL 
     .                                 pq(i,j,L)*d2p(i,j)/d2p(im1,j)
./pkg/fizhi/fizhi_fillnegs.F 247 TRACER_FILL 
          if( imax.eq.3 ) pq(i,j+1,L) = pq(i,j+1,L) +
./pkg/fizhi/fizhi_fillnegs.F 248 TRACER_FILL 
     .                                 pq(i,j,L)*d2p(i,j)/d2p(i,j+1)
./pkg/fizhi/fizhi_fillnegs.F 249 TRACER_FILL 
          if( imax.eq.4 ) pq(i,j-1,L) = pq(i,j-1,L) +
./pkg/fizhi/fizhi_fillnegs.F 250 TRACER_FILL 
     .                                 pq(i,j,L)*d2p(i,j)/d2p(i,j-1)
./pkg/fizhi/fizhi_fillnegs.F 251 TRACER_FILL 
          if( imax.eq.5 ) pq(i,j,L-1) = pq(i,j,L-1) +
./pkg/fizhi/fizhi_fillnegs.F 252 TRACER_FILL 
     .                                 pq(i,j,L)*dp(i,j,L) /dp(i,j,L-1)
./pkg/fizhi/fizhi_fillnegs.F 253 TRACER_FILL 
          if( imax.eq.6 ) pq(i,j,L+1) = pq(i,j,L+1) +
./pkg/fizhi/fizhi_fillnegs.F 254 TRACER_FILL 
     .                                 pq(i,j,L)*dp(i,j,L) /dp(i,j,L+1)
./pkg/fizhi/fizhi_fillnegs.F 255 TRACER_FILL 
                          pq(i,j,L)   = 0.0
./pkg/fizhi/fizhi_fillnegs.F 260 TRACER_FILL 
      im1 = i
./pkg/fizhi/fizhi_fillnegs.F 261 TRACER_FILL 
      i   = ip1
./pkg/fizhi/fizhi_fillnegs.F 289 MAXVAL1 
      integer  im, i, imax
./pkg/fizhi/fizhi_fillnegs.F 293 MAXVAL1 
      do i=1,im
./pkg/fizhi/fizhi_fillnegs.F 294 MAXVAL1 
      if( q(i).gt.qmax ) then
./pkg/fizhi/fizhi_fillnegs.F 295 MAXVAL1 
      qmax = q(i)
./pkg/fizhi/fizhi_fillnegs.F 296 MAXVAL1 
      imax =   i
./pkg/fizhi/fizhi_fillnegs.F 31 QCHECK 
      integer i,j,L,LM1
./pkg/fizhi/fizhi_fillnegs.F 39 QCHECK 
      do i=im1,im2
./pkg/fizhi/fizhi_fillnegs.F 40 QCHECK 
       ddsig = dp(i,j,LM1,bi,bj)/dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_fillnegs.F 41 QCHECK 
       if( qz(i,j,LM1,bi,bj).lt.0.0  _d 0) then
./pkg/fizhi/fizhi_fillnegs.F 42 QCHECK 
        qz(i,j,L,bi,bj  ) = qz(i,j,L,bi,bj) + qz(i,j,LM1,bi,bj)*ddsig
./pkg/fizhi/fizhi_fillnegs.F 43 QCHECK 
        qz(i,j,LM1,bi,bj) = 0.0 _d 0
./pkg/fizhi/fizhi_fillnegs.F 50 QCHECK 
      do i=im1,im2
./pkg/fizhi/fizhi_fillnegs.F 51 QCHECK 
       if(qz(i,j,Ldim,bi,bj).lt.0.0  _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0
./pkg/fizhi/fizhi_fillnegs.F 89 TRACER_FILL 
      integer  i,j,l,im1,ip1,imax,m
./pkg/fizhi/fizhi_gwdrag.F 102 GWDRAG 
       if( pz(i,j)-ple(i,j,Lm+2-nthini).gt.25. ) then
./pkg/fizhi/fizhi_gwdrag.F 103 GWDRAG 
        nthin(i,j) = nthini
./pkg/fizhi/fizhi_gwdrag.F 109 GWDRAG 
       if( ple(i,j,Lm+2-nbasei).lt.(0.667*pz(i,j)) ) then
./pkg/fizhi/fizhi_gwdrag.F 110 GWDRAG 
        nbase(i,j) = nbasei
./pkg/fizhi/fizhi_gwdrag.F 115 GWDRAG 
      if( (0.667*pz(i,j))-ple(i,j,Lm+2-nbase(i,j)) .gt.
./pkg/fizhi/fizhi_gwdrag.F 116 GWDRAG 
     .           ple(i,j,Lm+3-nbase(i,j))-(0.667*pz(i,j)) ) then
./pkg/fizhi/fizhi_gwdrag.F 117 GWDRAG 
      nbase(i,j) = nbase(i,j)-1
./pkg/fizhi/fizhi_gwdrag.F 127 GWDRAG 
      do i=1,im
./pkg/fizhi/fizhi_gwdrag.F 128 GWDRAG 
         phis_std(i,j) = min( 400.0 _d 0, sqrt( max(0.0 _d 0,
./pkg/fizhi/fizhi_gwdrag.F 129 GWDRAG 
     $        phis_var(i,j)) )/grav )
./pkg/fizhi/fizhi_gwdrag.F 137 GWDRAG 
      do i = 1,im
./pkg/fizhi/fizhi_gwdrag.F 138 GWDRAG 
      tv(i,j,L) = tz(i,j,L)*pkz(i,j,L)*(1.+.609*qz(i,j,L))
./pkg/fizhi/fizhi_gwdrag.F 145 GWDRAG 
      do i = 1,im
./pkg/fizhi/fizhi_gwdrag.F 146 GWDRAG 
       dragu(i,j,L) = 0.
./pkg/fizhi/fizhi_gwdrag.F 147 GWDRAG 
       dragv(i,j,L) = 0.
./pkg/fizhi/fizhi_gwdrag.F 148 GWDRAG 
       dragt(i,j,L) = 0.
./pkg/fizhi/fizhi_gwdrag.F 186 GWDRAG 
      do i = 1,im
./pkg/fizhi/fizhi_gwdrag.F 187 GWDRAG 
         dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(i
./pkg/fizhi/fizhi_gwdrag.F 189 GWDRAG 
         dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i
./pkg/fizhi/fizhi_gwdrag.F 191 GWDRAG 
      dragt(i,j,L) = -( uz(i,j,L)*dragu(i,j,L)+vz(i,j,L)*dragv(i,j,L) )
./pkg/fizhi/fizhi_gwdrag.F 193 GWDRAG 
       dudt(i,j,L) = dudt(i,j,L) + dragu(i,j,L)
./pkg/fizhi/fizhi_gwdrag.F 194 GWDRAG 
       dvdt(i,j,L) = dvdt(i,j,L) + dragv(i,j,L)
./pkg/fizhi/fizhi_gwdrag.F 195 GWDRAG 
       dtdt(i,j,L) = dtdt(i,j,L) + dragt(i,j,L)*pz(i,j)/pkz(i,j,L)
./pkg/fizhi/fizhi_gwdrag.F 207 GWDRAG 
       do i=1,im
./pkg/fizhi/fizhi_gwdrag.F 208 GWDRAG 
        tmpdiag(i,j) = dragu(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 216 GWDRAG 
       do i=1,im
./pkg/fizhi/fizhi_gwdrag.F 217 GWDRAG 
        tmpdiag(i,j) = dragv(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 225 GWDRAG 
       do i=1,im
./pkg/fizhi/fizhi_gwdrag.F 226 GWDRAG 
        tmpdiag(i,j) = dragt(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 250 GWDRAG 
      do i = 1,im
./pkg/fizhi/fizhi_gwdrag.F 251 GWDRAG 
      sumu(i,j) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 256 GWDRAG 
      do i = 1,im
./pkg/fizhi/fizhi_gwdrag.F 257 GWDRAG 
      sumu(i,j) = sumu(i,j) + dragu(i,j,L)*dpres(i,j,L)/pz(i,j)
./pkg/fizhi/fizhi_gwdrag.F 262 GWDRAG 
       do i=1,im
./pkg/fizhi/fizhi_gwdrag.F 263 GWDRAG 
        tmpdiag(i,j) = dragx(i,j) + sumu(i,j)*pz(i,j)/grav*100
./pkg/fizhi/fizhi_gwdrag.F 273 GWDRAG 
      do i = 1,im
./pkg/fizhi/fizhi_gwdrag.F 274 GWDRAG 
      sumu(i,j) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 279 GWDRAG 
      do i = 1,im
./pkg/fizhi/fizhi_gwdrag.F 280 GWDRAG 
      sumu(i,j) = sumu(i,j) + dragv(i,j,L)*dpres(i,j,L)/pz(i,j)
./pkg/fizhi/fizhi_gwdrag.F 285 GWDRAG 
       do i=1,im
./pkg/fizhi/fizhi_gwdrag.F 286 GWDRAG 
        tmpdiag(i,j) = dragy(i,j) + sumu(i,j)*pz(i,j)/grav*100
./pkg/fizhi/fizhi_gwdrag.F 367 GWDD 
      integer  i,L
./pkg/fizhi/fizhi_gwdrag.F 384 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 385 GWDD 
       ro(i,L) = pl(i,Lm+1-L)/(rgas*t(i,Lm+1-L))
./pkg/fizhi/fizhi_gwdrag.F 392 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 393 GWDD 
       roiave  = ( 1./ro(i,L-1) + 1./ro(i,L) )*0.5
./pkg/fizhi/fizhi_gwdrag.F 394 GWDD 
       dz(i,L) = agrav*roiave*( pl(i,Lm+2-L)-pl(i,Lm+1-L) )
./pkg/fizhi/fizhi_gwdrag.F 405 GWDD 
      do  i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 406 GWDD 
       robar(i) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 407 GWDD 
       ubar(i) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 408 GWDD 
       vbar(i) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 411 GWDD 
      do  i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 412 GWDD 
      do  L = 1,nbase(i)-1
./pkg/fizhi/fizhi_gwdrag.F 413 GWDD 
       robar(i) = robar(i) + ro(i,L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L))
./pkg/fizhi/fizhi_gwdrag.F 414 GWDD 
       ubar(i) = ubar(i) + u(i,Lm+1-L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L))
./pkg/fizhi/fizhi_gwdrag.F 415 GWDD 
       vbar(i) = vbar(i) + v(i,Lm+1-L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L))
./pkg/fizhi/fizhi_gwdrag.F 419 GWDD 
      do  i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 420 GWDD 
       robar(i) = robar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1))) * 100.0
./pkg/fizhi/fizhi_gwdrag.F 421 GWDD 
       ubar(i) = ubar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1)))
./pkg/fizhi/fizhi_gwdrag.F 422 GWDD 
       vbar(i) = vbar(i)/(ps(i)-ple(i,Lm+1-(nbase(i)-1)))
./pkg/fizhi/fizhi_gwdrag.F 424 GWDD 
       speed(i) = sqrt( ubar(i)*ubar(i) + vbar(i)*vbar(i) )
./pkg/fizhi/fizhi_gwdrag.F 425 GWDD 
       ang(i) = atan2(vbar(i),ubar(i))
./pkg/fizhi/fizhi_gwdrag.F 430 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 431 GWDD 
       do l = 2,nbase(i)
./pkg/fizhi/fizhi_gwdrag.F 432 GWDD 
        vai1 = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp
./pkg/fizhi/fizhi_gwdrag.F 436 GWDD 
        vai2    = 2.0*grav/( t(i,Lm+1-L)+t(i,Lm+2-L) )
./pkg/fizhi/fizhi_gwdrag.F 438 GWDD 
        bv(i,L) = sqrt(vsqua)
./pkg/fizhi/fizhi_gwdrag.F 444 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 445 GWDD 
       nbar(i) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 447 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 448 GWDD 
      do l = 2,nbase(i)
./pkg/fizhi/fizhi_gwdrag.F 449 GWDD 
       nbar(i) = nbar(i) + bv(i,L)*(pl(i,Lm+2-L)-pl(i,Lm+1-L))
./pkg/fizhi/fizhi_gwdrag.F 453 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 454 GWDD 
       nbar(i) = nbar(i)/(pl(i,Lm)-pl(i,Lm+1-nbase(i)))
./pkg/fizhi/fizhi_gwdrag.F 455 GWDD 
       frsf = nbar(i)*std(i)/speed(i)
./pkg/fizhi/fizhi_gwdrag.F 457 GWDD 
       if( speed(i).eq.0.0 .or. nbar(i).eq.0.0 ) then
./pkg/fizhi/fizhi_gwdrag.F 458 GWDD 
        tensio(i,1) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 461 GWDD 
        tensio(i,1) = gstar*(robar(i)*speed(i)*speed(i)*speed(i))
./pkg/fizhi/fizhi_gwdrag.F 462 GWDD 
     .            / (nbar(i)*lstar)
./pkg/fizhi/fizhi_gwdrag.F 465 GWDD 
       xtens(i,1) = tensio(i,1) * cos(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 466 GWDD 
       ytens(i,1) = tensio(i,1) * sin(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 467 GWDD 
       dragsf(i) = tensio(i,1)
./pkg/fizhi/fizhi_gwdrag.F 468 GWDD 
       xdrag(i) = xtens(i,1)
./pkg/fizhi/fizhi_gwdrag.F 469 GWDD 
       ydrag(i) = ytens(i,1)
./pkg/fizhi/fizhi_gwdrag.F 474 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 475 GWDD 
       if( nthin(i).gt.1 ) then
./pkg/fizhi/fizhi_gwdrag.F 476 GWDD 
        do l = 1,nthin(i)
./pkg/fizhi/fizhi_gwdrag.F 477 GWDD 
         tensio(i,L) = tensio(i,1)
./pkg/fizhi/fizhi_gwdrag.F 478 GWDD 
         xtens(i,L) = xtens(i,1)
./pkg/fizhi/fizhi_gwdrag.F 479 GWDD 
         ytens(i,L) = ytens(i,1)
./pkg/fizhi/fizhi_gwdrag.F 488 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 489 GWDD 
       do l = nthin(i)+1,nbase(i)
./pkg/fizhi/fizhi_gwdrag.F 491 GWDD 
        velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i))
./pkg/fizhi/fizhi_gwdrag.F 492 GWDD 
     .            + (u(i,Lm+2-L)*ubar(i) + v(i,Lm+2-L)*vbar(i))  )
./pkg/fizhi/fizhi_gwdrag.F 493 GWDD 
     .      /   speed(i)
./pkg/fizhi/fizhi_gwdrag.F 496 GWDD 
        roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0
./pkg/fizhi/fizhi_gwdrag.F 499 GWDD 
         tensio(i,L) = tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 505 GWDD 
        fro2 = bv(i,L)/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 506 GWDD 
        deluu = u(i,Lm+1-L)-u(i,Lm+2-L)
./pkg/fizhi/fizhi_gwdrag.F 507 GWDD 
        delvv = v(i,Lm+1-L)-v(i,Lm+2-L)
./pkg/fizhi/fizhi_gwdrag.F 513 GWDD 
         delz = dz(i,L)
./pkg/fizhi/fizhi_gwdrag.F 514 GWDD 
         vsqua = bv(i,L)*bv(i,L)
./pkg/fizhi/fizhi_gwdrag.F 521 GWDD 
         tensio(i,L) = tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 533 GWDD 
         tensio(i,L) = crif2/fro2*tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 535 GWDD 
         tensio(i,L) = tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 539 GWDD 
        xtens(i,L) = tensio(i,L)*cos(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 540 GWDD 
        ytens(i,L) = tensio(i,L)*sin(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 549 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 550 GWDD 
       icrilv(i) = 0
./pkg/fizhi/fizhi_gwdrag.F 553 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 554 GWDD 
       do l = nbase(i)+1,Lm+1
./pkg/fizhi/fizhi_gwdrag.F 556 GWDD 
        tensio(i,L) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 560 GWDD 
        if( icrilv(i).eq.1 ) goto 130
./pkg/fizhi/fizhi_gwdrag.F 565 GWDD 
         tensio(i,L) = tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 569 GWDD 
        roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0
./pkg/fizhi/fizhi_gwdrag.F 570 GWDD 
        vai1  = (t(i,Lm+1-L)-t(i,Lm+2-L))/dz(i,L)+gocp
./pkg/fizhi/fizhi_gwdrag.F 573 GWDD 
         icrilv(i)   = 1
./pkg/fizhi/fizhi_gwdrag.F 574 GWDD 
         tensio(i,L) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 578 GWDD 
        vai2  = 2.0*grav/(t(i,Lm+1-L)+t(i,Lm+2-L))
./pkg/fizhi/fizhi_gwdrag.F 582 GWDD 
        velco = 0.5*( (u(i,Lm+1-L)*ubar(i) + v(i,Lm+1-L)*vbar(i))
./pkg/fizhi/fizhi_gwdrag.F 583 GWDD 
     .            + (u(i,Lm+2-L)*ubar(i) + v(i,Lm+2-L)*vbar(i))  )
./pkg/fizhi/fizhi_gwdrag.F 584 GWDD 
     .      /   speed(i)
./pkg/fizhi/fizhi_gwdrag.F 587 GWDD 
         icrilv(i)   = 1
./pkg/fizhi/fizhi_gwdrag.F 588 GWDD 
         tensio(i,L) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 594 GWDD 
        fro2 = vaisd/(akwnmb*roave*velco*velco*velco)*tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 595 GWDD 
        deluu = u(i,Lm+1-L)-u(i,Lm+2-L)
./pkg/fizhi/fizhi_gwdrag.F 596 GWDD 
        delvv = v(i,Lm+1-L)-v(i,Lm+2-L)
./pkg/fizhi/fizhi_gwdrag.F 602 GWDD 
         delz   = dz(i,L)
./pkg/fizhi/fizhi_gwdrag.F 609 GWDD 
         tensio(i,L) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 610 GWDD 
         icrilv(i)   = 1
./pkg/fizhi/fizhi_gwdrag.F 621 GWDD 
         tensio(i,L) = crif2/fro2*tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 623 GWDD 
         tensio(i,L) = tensio(i,L-1)
./pkg/fizhi/fizhi_gwdrag.F 627 GWDD 
        xtens(i,L) = tensio(i,L)*cos(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 628 GWDD 
        ytens(i,L) = tensio(i,L)*sin(ang(i))
./pkg/fizhi/fizhi_gwdrag.F 636 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 637 GWDD 
      do l = nthin(i)+1,Lm
./pkg/fizhi/fizhi_gwdrag.F 638 GWDD 
       coef = -grav*ps(i)/dpres(i,Lm+1-L)
./pkg/fizhi/fizhi_gwdrag.F 639 GWDD 
       dudt(i,Lm+1-L) = coef*(xtens(i,L+1)-xtens(i,L))
./pkg/fizhi/fizhi_gwdrag.F 640 GWDD 
       dvdt(i,Lm+1-L) = coef*(ytens(i,L+1)-ytens(i,L))
./pkg/fizhi/fizhi_gwdrag.F 646 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 647 GWDD 
       coef = grav*ps(i)/(ple(i,Lm+1-nthin(i))-ple(i,Lm+1))
./pkg/fizhi/fizhi_gwdrag.F 648 GWDD 
       dudt(i,Lm) = coef*(xtens(i,nthin(i)+1)-xtens(i,1))
./pkg/fizhi/fizhi_gwdrag.F 649 GWDD 
       dvdt(i,Lm) = coef*(ytens(i,nthin(i)+1)-ytens(i,1))
./pkg/fizhi/fizhi_gwdrag.F 654 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 655 GWDD 
       if( nthin(i).gt.1 ) then
./pkg/fizhi/fizhi_gwdrag.F 656 GWDD 
        do l = 2,nthin(i)
./pkg/fizhi/fizhi_gwdrag.F 657 GWDD 
         dudt(i,Lm+1-L) = dudt(i,Lm)
./pkg/fizhi/fizhi_gwdrag.F 658 GWDD 
         dvdt(i,Lm+1-L) = dvdt(i,Lm)
./pkg/fizhi/fizhi_gwdrag.F 666 GWDD 
      do i = 1,irun
./pkg/fizhi/fizhi_gwdrag.F 667 GWDD 
       dudt(i,L) = - dudt(i,L)/ps(i)*0.01
./pkg/fizhi/fizhi_gwdrag.F 668 GWDD 
       dvdt(i,L) = - dvdt(i,L)/ps(i)*0.01
./pkg/fizhi/fizhi_gwdrag.F 78 GWDRAG 
      integer n,i,j,L
./pkg/fizhi/fizhi_gwdrag.F 99 GWDRAG 
      do i=1,im
./pkg/fizhi/fizhi_init_fixed.F 114 FIZHI_INIT_FIXED 
        do i=im1,im2
./pkg/fizhi/fizhi_init_fixed.F 115 FIZHI_INIT_FIXED 
         landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F 116 FIZHI_INIT_FIXED 
         if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100)
./pkg/fizhi/fizhi_init_fixed.F 117 FIZHI_INIT_FIXED 
     .            landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F 118 FIZHI_INIT_FIXED 
         if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101
./pkg/fizhi/fizhi_init_fixed.F 156 FIZHI_INIT_FIXED 
        do i=im1,im2
./pkg/fizhi/fizhi_init_fixed.F 157 FIZHI_INIT_FIXED 
         if(fracland(i,j,bi,bj).gt.0.3) then
./pkg/fizhi/fizhi_init_fixed.F 158 FIZHI_INIT_FIXED 
          phis_var(i,j,bi,bj) = tempoverlap(i,j,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F 160 FIZHI_INIT_FIXED 
          phis_var(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_fixed.F 44 FIZHI_INIT_FIXED 
       integer i,j,L,bi,bj
./pkg/fizhi/fizhi_init_fixed.F 88 FIZHI_INIT_FIXED 
       do i = im1,im2
./pkg/fizhi/fizhi_init_fixed.F 89 FIZHI_INIT_FIXED 
        lons(i,j,bi,bj) = xC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_fixed.F 90 FIZHI_INIT_FIXED 
        lats(i,j,bi,bj) = yC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 101 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 103 FIZHI_INIT_VARS 
          pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 108 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 109 FIZHI_INIT_VARS 
         Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 111 FIZHI_INIT_VARS 
     .    pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 115 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 116 FIZHI_INIT_VARS 
         Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 118 FIZHI_INIT_VARS 
          pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./pkg/fizhi/fizhi_init_vars.F 119 FIZHI_INIT_VARS 
     .                        drF(L-1)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 122 FIZHI_INIT_VARS 
         if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_init_vars.F 123 FIZHI_INIT_VARS 
     .                               pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_init_vars.F 128 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 129 FIZHI_INIT_VARS 
         pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 131 FIZHI_INIT_VARS 
          pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 134 FIZHI_INIT_VARS 
         if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_init_vars.F 135 FIZHI_INIT_VARS 
     .                               pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_init_vars.F 144 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 145 FIZHI_INIT_VARS 
         windphy(i,j,L,bi,bj) = 0.025 *
./pkg/fizhi/fizhi_init_vars.F 146 FIZHI_INIT_VARS 
     .             log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.)
./pkg/fizhi/fizhi_init_vars.F 168 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 169 FIZHI_INIT_VARS 
         uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 177 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 178 FIZHI_INIT_VARS 
         vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 186 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 187 FIZHI_INIT_VARS 
         thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 195 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 196 FIZHI_INIT_VARS 
         sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_init_vars.F 204 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 205 FIZHI_INIT_VARS 
         duphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 206 FIZHI_INIT_VARS 
         dvphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 207 FIZHI_INIT_VARS 
         dthphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 208 FIZHI_INIT_VARS 
         dsphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 216 FIZHI_INIT_VARS 
        do i = im1,im2
./pkg/fizhi/fizhi_init_vars.F 217 FIZHI_INIT_VARS 
         guphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 218 FIZHI_INIT_VARS 
         gvphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 219 FIZHI_INIT_VARS 
         gthphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 220 FIZHI_INIT_VARS 
         gsphy(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 228 FIZHI_INIT_VARS 
         do i = 1,nchp
./pkg/fizhi/fizhi_init_vars.F 229 FIZHI_INIT_VARS 
          ctmt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 230 FIZHI_INIT_VARS 
          xxmt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 231 FIZHI_INIT_VARS 
          yymt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 232 FIZHI_INIT_VARS 
          zetamt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 235 FIZHI_INIT_VARS 
         do i = 1,nchp
./pkg/fizhi/fizhi_init_vars.F 236 FIZHI_INIT_VARS 
          tke(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 237 FIZHI_INIT_VARS 
          xlmt(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 238 FIZHI_INIT_VARS 
          khmt(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 261 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 262 FIZHI_INIT_VARS 
         swlz(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 263 FIZHI_INIT_VARS 
         lwlz(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 264 FIZHI_INIT_VARS 
         qliqavesw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 265 FIZHI_INIT_VARS 
         qliqavelw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 266 FIZHI_INIT_VARS 
         fccavesw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 267 FIZHI_INIT_VARS 
         fccavelw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 268 FIZHI_INIT_VARS 
         cldtot_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 269 FIZHI_INIT_VARS 
         cldras_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 270 FIZHI_INIT_VARS 
         cldlsp_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 271 FIZHI_INIT_VARS 
         cldtot_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 272 FIZHI_INIT_VARS 
         cldras_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 273 FIZHI_INIT_VARS 
         cldlsp_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 278 FIZHI_INIT_VARS 
        do i = 1,sNx
./pkg/fizhi/fizhi_init_vars.F 279 FIZHI_INIT_VARS 
         rainlsp(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 280 FIZHI_INIT_VARS 
         raincon(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 281 FIZHI_INIT_VARS 
         snowfall(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 60 FIZHI_INIT_VARS 
       integer i, j, L, bi, bj, Lbotij
./pkg/fizhi/fizhi_init_veg.F 123 FIZHI_INIT_VEG 
      do i = 1,im
./pkg/fizhi/fizhi_init_veg.F 124 FIZHI_INIT_VEG 
       surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal)
./pkg/fizhi/fizhi_init_veg.F 125 FIZHI_INIT_VEG 
       tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal)
./pkg/fizhi/fizhi_init_veg.F 150 FIZHI_INIT_VEG 
              do i=1,im
./pkg/fizhi/fizhi_init_veg.F 151 FIZHI_INIT_VEG 
                if(surftype(i,j,k,bi,bj).lt.100 .and.
./pkg/fizhi/fizhi_init_veg.F 152 FIZHI_INIT_VEG 
     .               tilefrac(i,j,k,bi,bj).gt.0.) then
./pkg/fizhi/fizhi_init_veg.F 154 FIZHI_INIT_VEG 
                  igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im
./pkg/fizhi/fizhi_init_veg.F 155 FIZHI_INIT_VEG 
                  ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 156 FIZHI_INIT_VEG 
                  chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 157 FIZHI_INIT_VEG 
                  chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 158 FIZHI_INIT_VEG 
                  chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 170 FIZHI_INIT_VEG 
              do i=1,im
./pkg/fizhi/fizhi_init_veg.F 171 FIZHI_INIT_VEG 
                if(surftype(i,j,k,bi,bj).ge.100 .and.
./pkg/fizhi/fizhi_init_veg.F 172 FIZHI_INIT_VEG 
     .               tilefrac(i,j,k,bi,bj).gt.0.) then
./pkg/fizhi/fizhi_init_veg.F 174 FIZHI_INIT_VEG 
                  igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./pkg/fizhi/fizhi_init_veg.F 175 FIZHI_INIT_VEG 
                  ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 176 FIZHI_INIT_VEG 
                  chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 177 FIZHI_INIT_VEG 
                  chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 178 FIZHI_INIT_VEG 
                  chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 72 FIZHI_INIT_VEG 
      integer i,j,k,bi,bj,ierr1,kveg
./model/inc/HFACW_MACROS.h 36 NO PROCEDURE 
# define _hFacW(i,j,k,bi,bj) hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_vegsurftiles.F 109 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 110 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,2)
./pkg/fizhi/fizhi_init_vegsurftiles.F 111 FIZHI_INIT_VEGSURFTILES 
        if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F 112 FIZHI_INIT_VEGSURFTILES 
     .    tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1) - 0.5
./pkg/fizhi/fizhi_init_vegsurftiles.F 122 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 123 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,3)
./pkg/fizhi/fizhi_init_vegsurftiles.F 124 FIZHI_INIT_VEGSURFTILES 
        if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F 125 FIZHI_INIT_VEGSURFTILES 
     .    tempgrid(i,j) = 0.01
./pkg/fizhi/fizhi_init_vegsurftiles.F 135 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 136 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,4)
./pkg/fizhi/fizhi_init_vegsurftiles.F 137 FIZHI_INIT_VEGSURFTILES 
        if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F 138 FIZHI_INIT_VEGSURFTILES 
     .    tempgrid(i,j) = 0.7
./pkg/fizhi/fizhi_init_vegsurftiles.F 148 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 149 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,5)
./pkg/fizhi/fizhi_init_vegsurftiles.F 150 FIZHI_INIT_VEGSURFTILES 
        if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F 151 FIZHI_INIT_VEGSURFTILES 
     .    tempgrid(i,j) = 0.5
./pkg/fizhi/fizhi_init_vegsurftiles.F 161 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 162 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,6)
./pkg/fizhi/fizhi_init_vegsurftiles.F 163 FIZHI_INIT_VEGSURFTILES 
        if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F 164 FIZHI_INIT_VEGSURFTILES 
     .    tempgrid(i,j) = 0.3
./pkg/fizhi/fizhi_init_vegsurftiles.F 174 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 175 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,7)
./pkg/fizhi/fizhi_init_vegsurftiles.F 176 FIZHI_INIT_VEGSURFTILES 
        if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F 177 FIZHI_INIT_VEGSURFTILES 
     .    tempgrid(i,j) = 0.
./pkg/fizhi/fizhi_init_vegsurftiles.F 187 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 188 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,8)
./pkg/fizhi/fizhi_init_vegsurftiles.F 189 FIZHI_INIT_VEGSURFTILES 
        if (tempgrid(i,j).gt.1.e14 .and. fracland(i,j,bi,bj).gt.0.0001)
./pkg/fizhi/fizhi_init_vegsurftiles.F 190 FIZHI_INIT_VEGSURFTILES 
     .    tempgrid(i,j) = 0.
./pkg/fizhi/fizhi_init_vegsurftiles.F 46 FIZHI_INIT_VEGSURFTILES 
      integer i,j,n
./pkg/fizhi/fizhi_init_vegsurftiles.F 98 FIZHI_INIT_VEGSURFTILES 
       do i = 1,sNx
./pkg/fizhi/fizhi_init_vegsurftiles.F 99 FIZHI_INIT_VEGSURFTILES 
        tempgrid(i,j) = globalarr(i+bislot,j+bjslot,1)
./pkg/fizhi/fizhi_lwrad.F 100 LWRIO 
           cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/
./pkg/fizhi/fizhi_lwrad.F 1023 IRRAD 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1024 IRRAD 
          blayer(i,j,k)=ta(i,j,k)*(ta(i,j,k)*(ta(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1025 IRRAD 
     *                 *(ta(i,j,k)*cb(5,ib)+cb(4,ib))+cb(3,ib))
./pkg/fizhi/fizhi_lwrad.F 102 LWRIO 
           cldmxo(i,j,L) =  min( 1.0 _d 0,      clwmo(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F 1034 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1035 IRRAD 
         blayer(i,j,0)   = 0.0
./pkg/fizhi/fizhi_lwrad.F 1036 IRRAD 
         blayer(i,j,np+1)= ( ts(i,j)*(ts(i,j)*(ts(i,j)
./pkg/fizhi/fizhi_lwrad.F 1037 IRRAD 
     *                    *(ts(i,j)*cb(5,ib)+cb(4,ib))+cb(3,ib))
./pkg/fizhi/fizhi_lwrad.F 1038 IRRAD 
     *                    +cb(2,ib))+cb(1,ib) )*emiss(i,j,ib)
./pkg/fizhi/fizhi_lwrad.F 103 LWRIO 
           lwlz(i,j,L) =  lwlz(i,j,L) + qliqave(i,j,L)/imstturb
./pkg/fizhi/fizhi_lwrad.F 1043 IRRAD 
         dbs(i,j)=(ts(i,j)*(ts(i,j)*(ts(i,j)*4.*cb(5,ib)
./pkg/fizhi/fizhi_lwrad.F 1044 IRRAD 
     *           +3.*cb(4,ib))+2.*cb(3,ib))+cb(2,ib))*emiss(i,j,ib)
./pkg/fizhi/fizhi_lwrad.F 1051 IRRAD 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1052 IRRAD 
           dlayer(i,j,k)=blayer(i,j,k-1)-blayer(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1076 IRRAD 
         do i= 1, m
./pkg/fizhi/fizhi_lwrad.F 1077 IRRAD 
          taucl(i,j,k,1)=cwp(i,j,k,1)*(aib(1,ib)+aib(2,ib)/
./pkg/fizhi/fizhi_lwrad.F 1078 IRRAD 
     *      reff(i,j,k,1)**aib(3,ib))
./pkg/fizhi/fizhi_lwrad.F 1079 IRRAD 
          taucl(i,j,k,2)=cwp(i,j,k,2)*(awb(1,ib)+(awb(2,ib)+(awb(3,ib)
./pkg/fizhi/fizhi_lwrad.F 1080 IRRAD 
     *      +awb(4,ib)*reff(i,j,k,2))*reff(i,j,k,2))*reff(i,j,k,2))
./pkg/fizhi/fizhi_lwrad.F 1093 IRRAD 
         do i= 1, m
./pkg/fizhi/fizhi_lwrad.F 1095 IRRAD 
           clr(i,j,k)    = 1.0
./pkg/fizhi/fizhi_lwrad.F 1096 IRRAD 
           taux=taucl(i,j,k,1)+taucl(i,j,k,2)+taucl(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 1098 IRRAD 
          if (taux.gt.0.02 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_lwrad.F 1100 IRRAD 
           reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_lwrad.F 1101 IRRAD 
           reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_lwrad.F 1103 IRRAD 
           w1=taucl(i,j,k,1)*(aiw(1,ib)+(aiw(2,ib)+(aiw(3,ib)
./pkg/fizhi/fizhi_lwrad.F 1105 IRRAD 
           w2=taucl(i,j,k,2)*(aww(1,ib)+(aww(2,ib)+(aww(3,ib)
./pkg/fizhi/fizhi_lwrad.F 1107 IRRAD 
           w3=taucl(i,j,k,3)*0.54
./pkg/fizhi/fizhi_lwrad.F 110 LWRIO 
        do i =1,im
./pkg/fizhi/fizhi_lwrad.F 111 LWRIO 
         cldtot(i,j,L) =  min( 1.0 _d 0,cldlw(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F 1128 IRRAD 
           clr(i,j,k)=1.0-(fcld(i,j,k)*(1.0-exp(-1.66*taux)))
./pkg/fizhi/fizhi_lwrad.F 112 LWRIO 
         cldmxo(i,j,L) =  min( 1.0 _d 0,clwmo(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F 1233 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1234 IRRAD 
         flxu(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F 1235 IRRAD 
         flxd(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F 1236 IRRAD 
         flcu(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F 1237 IRRAD 
         flcd(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F 1251 IRRAD 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1252 IRRAD 
          fclr(i,j)  = 1.0
./pkg/fizhi/fizhi_lwrad.F 1253 IRRAD 
          clrlw(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F 1254 IRRAD 
          clrmd(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F 1255 IRRAD 
          clrhi(i,j) = 1.0
./pkg/fizhi/fizhi_lwrad.F 1256 IRRAD 
          tranal(i,j)= 1.0
./pkg/fizhi/fizhi_lwrad.F 1265 IRRAD 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1266 IRRAD 
           th2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1277 IRRAD 
           do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1278 IRRAD 
            tcon(i,j,iq)=1.0
./pkg/fizhi/fizhi_lwrad.F 1292 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1293 IRRAD 
             tco2(i,j,ik,isb)=1.0
./pkg/fizhi/fizhi_lwrad.F 1309 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1310 IRRAD 
             tn2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1321 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1322 IRRAD 
             tch4(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1333 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1334 IRRAD 
             tcom(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1344 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1345 IRRAD 
             tf11(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1354 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1355 IRRAD 
             tf12(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1364 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1365 IRRAD 
             tf22(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1375 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1376 IRRAD 
              th2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1377 IRRAD 
              tco2(i,j,ik,1)=1.0
./pkg/fizhi/fizhi_lwrad.F 1383 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1384 IRRAD 
              tcon(i,j,iq)=1.0
./pkg/fizhi/fizhi_lwrad.F 1390 IRRAD 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1391 IRRAD 
              tn2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1406 IRRAD 
           do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1407 IRRAD 
            trant(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1531 IRRAD 
       do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1532 IRRAD 
         ff=0.5+(0.3739+(0.0076+0.1185*asyal(i,j,k2-1,ib))
./pkg/fizhi/fizhi_lwrad.F 1533 IRRAD 
     *      *asyal(i,j,k2-1,ib))*asyal(i,j,k2-1,ib)
./pkg/fizhi/fizhi_lwrad.F 1534 IRRAD 
         taux=taual(i,j,k2-1,ib)*(1.-ssaal(i,j,k2-1,ib)*ff)
./pkg/fizhi/fizhi_lwrad.F 1535 IRRAD 
         tranal(i,j)=tranal(i,j)*exp(-1.66*taux)
./pkg/fizhi/fizhi_lwrad.F 1536 IRRAD 
         trant (i,j)=trant(i,j) *tranal(i,j)
./pkg/fizhi/fizhi_lwrad.F 1546 IRRAD 
       do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1548 IRRAD 
            clrhi(i,j)=min(clr(i,j,k2-1),clrhi(i,j))
./pkg/fizhi/fizhi_lwrad.F 1550 IRRAD 
            clrmd(i,j)=min(clr(i,j,k2-1),clrmd(i,j))
./pkg/fizhi/fizhi_lwrad.F 1552 IRRAD 
            clrlw(i,j)=min(clr(i,j,k2-1),clrlw(i,j))
./pkg/fizhi/fizhi_lwrad.F 1554 IRRAD 
            fclr(i,j)=clrlw(i,j)*clrmd(i,j)*clrhi(i,j)
./pkg/fizhi/fizhi_lwrad.F 155 LWRIO 
        CLRO(I,L) = min( 1.0 _d 0,clro(i,L) )
./pkg/fizhi/fizhi_lwrad.F 1569 IRRAD 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 156 LWRIO 
        CLMO(I,L) = min( 1.0 _d 0,clmo(i,L) )
./pkg/fizhi/fizhi_lwrad.F 1573 IRRAD 
          flcu(i,j,k1)=flcu(i,j,k1)-blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1574 IRRAD 
          flcd(i,j,k2)=flcd(i,j,k2)+blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1578 IRRAD 
          flxu(i,j,k1)=flxu(i,j,k1)-blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1579 IRRAD 
          flxd(i,j,k2)=flxd(i,j,k2)+blayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1590 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1591 IRRAD 
         xx=trant(i,j)*dlayer(i,j,k2)
./pkg/fizhi/fizhi_lwrad.F 1592 IRRAD 
         flcu(i,j,k1) =flcu(i,j,k1)+xx
./pkg/fizhi/fizhi_lwrad.F 1593 IRRAD 
         flxu(i,j,k1) =flxu(i,j,k1)+xx*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F 1594 IRRAD 
         xx=trant(i,j)*dlayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1595 IRRAD 
         flcd(i,j,k2) =flcd(i,j,k2)+xx
./pkg/fizhi/fizhi_lwrad.F 1596 IRRAD 
         flxd(i,j,k2) =flxd(i,j,k2)+xx*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F 1607 IRRAD 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1608 IRRAD 
           rflx(i,j,k1) = rflx(i,j,k1)+trant(i,j)*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F 1609 IRRAD 
     *                   *dlayer(i,j,k2)
./pkg/fizhi/fizhi_lwrad.F 1610 IRRAD 
           rflx(i,j,k2) = rflx(i,j,k2)+trant(i,j)*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F 1611 IRRAD 
     *                   *dlayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1612 IRRAD 
           rflc(i,j,k1) = rflc(i,j,k1)+trant(i,j)
./pkg/fizhi/fizhi_lwrad.F 1613 IRRAD 
     *                   *dlayer(i,j,k2)
./pkg/fizhi/fizhi_lwrad.F 1614 IRRAD 
           rflc(i,j,k2) = rflc(i,j,k2)+trant(i,j)
./pkg/fizhi/fizhi_lwrad.F 1615 IRRAD 
     *                   *dlayer(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1629 IRRAD 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1630 IRRAD 
           trantcr(i,j,k1) =trant(i,j)
./pkg/fizhi/fizhi_lwrad.F 1631 IRRAD 
           transfc(i,j,k1) =trant(i,j)*fclr(i,j)
./pkg/fizhi/fizhi_lwrad.F 1641 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1642 IRRAD 
         dfdts(i,j,k1) =dfdts(i,j,k1)-dbs(i,j)*transfc(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 1655 IRRAD 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1656 IRRAD 
          flcu(i,j,np+1)=flcu(i,j,np+1)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F 1657 IRRAD 
          flxu(i,j,np+1)=flxu(i,j,np+1)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F 1658 IRRAD 
          st4(i,j)=st4(i,j)-blayer(i,j,np+1)
./pkg/fizhi/fizhi_lwrad.F 1659 IRRAD 
          dfdts(i,j,np+1)=dfdts(i,j,np+1)-dbs(i,j)
./pkg/fizhi/fizhi_lwrad.F 1668 IRRAD 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1669 IRRAD 
           flcu(i,j,k)=flcu(i,j,k)-
./pkg/fizhi/fizhi_lwrad.F 1670 IRRAD 
     *           flcd(i,j,np+1)*trantcr(i,j,k)*(1.-emiss(i,j,ib))
./pkg/fizhi/fizhi_lwrad.F 1671 IRRAD 
           flxu(i,j,k)=flxu(i,j,k)-
./pkg/fizhi/fizhi_lwrad.F 1672 IRRAD 
     *           flxd(i,j,np+1)*transfc(i,j,k)*(1.-emiss(i,j,ib))
./pkg/fizhi/fizhi_lwrad.F 1683 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1684 IRRAD 
         flc(i,j,k)=flc(i,j,k)+flcd(i,j,k)+flcu(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1685 IRRAD 
         flx(i,j,k)=flx(i,j,k)+flxd(i,j,k)+flxu(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1696 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1697 IRRAD 
         flc(i,j,k)=flc(i,j,k)+rflc(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1698 IRRAD 
         flx(i,j,k)=flx(i,j,k)+rflx(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 170 LWRIO 
      TZL(I,lm) = ( 2*tzl(i,lm)+tsurf(i) )/3.0
./pkg/fizhi/fizhi_lwrad.F 1731 COLUMN 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 1743 COLUMN 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1744 COLUMN 
          sabs(i,j,1)=0.0
./pkg/fizhi/fizhi_lwrad.F 1745 COLUMN 
          spre(i,j,1)=0.0
./pkg/fizhi/fizhi_lwrad.F 1746 COLUMN 
          stem(i,j,1)=0.0
./pkg/fizhi/fizhi_lwrad.F 1752 COLUMN 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1753 COLUMN 
           sabs(i,j,k+1)=sabs(i,j,k)+sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1754 COLUMN 
           spre(i,j,k+1)=spre(i,j,k)+pa(i,j,k)*sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1755 COLUMN 
           stem(i,j,k+1)=stem(i,j,k)+dt(i,j,k)*sabs0(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 1786 H2OEXPS 
      integer ib,m,n,np,i,j,k,ik
./pkg/fizhi/fizhi_lwrad.F 179 LWRIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_lwrad.F 180 LWRIO 
      tauc(i,L,n) = tauc(i,L,n)*0.75
./pkg/fizhi/fizhi_lwrad.F 1812 H2OEXPS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1817 H2OEXPS 
           xh = dh2o(i,j,k)*(pa(i,j,k)/500.)**pm(ib)
./pkg/fizhi/fizhi_lwrad.F 1818 H2OEXPS 
     1        * ( 1.+(aw(ib)+bw(ib)* dt(i,j,k))*dt(i,j,k) )
./pkg/fizhi/fizhi_lwrad.F 1823 H2OEXPS 
           h2oexp(i,j,k,1) = exp(-xh*xkw(ib))
./pkg/fizhi/fizhi_lwrad.F 1835 H2OEXPS 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1836 H2OEXPS 
             xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F 1837 H2OEXPS 
             h2oexp(i,j,k,ik) = xh*xh*xh
./pkg/fizhi/fizhi_lwrad.F 1846 H2OEXPS 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1847 H2OEXPS 
             xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F 1849 H2OEXPS 
             h2oexp(i,j,k,ik) = xh*xh
./pkg/fizhi/fizhi_lwrad.F 1858 H2OEXPS 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1859 H2OEXPS 
             xh=h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F 1861 H2OEXPS 
             h2oexp(i,j,k,ik) = xh*xh1
./pkg/fizhi/fizhi_lwrad.F 1870 H2OEXPS 
            do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1871 H2OEXPS 
             xh = h2oexp(i,j,k,ik-1)*h2oexp(i,j,k,ik-1)
./pkg/fizhi/fizhi_lwrad.F 1874 H2OEXPS 
             h2oexp(i,j,k,ik) = xh*xh
./pkg/fizhi/fizhi_lwrad.F 1902 CONEXPS 
      integer ib,m,n,np,i,j,k,iq
./pkg/fizhi/fizhi_lwrad.F 190 LWRIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_lwrad.F 191 LWRIO 
      taual(i,L,n) = 0.
./pkg/fizhi/fizhi_lwrad.F 1920 CONEXPS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1921 CONEXPS 
           conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib))
./pkg/fizhi/fizhi_lwrad.F 192 LWRIO 
      ssaal(i,L,n) = 0.
./pkg/fizhi/fizhi_lwrad.F 1935 CONEXPS 
           do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1936 CONEXPS 
            conexp(i,j,k,iq) = conexp(i,j,k,iq-1) *conexp(i,j,k,iq-1)
./pkg/fizhi/fizhi_lwrad.F 193 LWRIO 
      asyal(i,L,n) = 0.
./pkg/fizhi/fizhi_lwrad.F 1963 CO2EXPS 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 1981 CO2EXPS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 1986 CO2EXPS 
           xc = dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5
./pkg/fizhi/fizhi_lwrad.F 1987 CO2EXPS 
     1             *(1.+(0.0182+1.07e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 1991 CO2EXPS 
           co2exp(i,j,k,1,1)=exp(-xc*2.656e-5)
./pkg/fizhi/fizhi_lwrad.F 1993 CO2EXPS 
           xc=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 1995 CO2EXPS 
           co2exp(i,j,k,2,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 1997 CO2EXPS 
           xc=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 1999 CO2EXPS 
           co2exp(i,j,k,3,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2001 CO2EXPS 
           xc=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 2003 CO2EXPS 
           co2exp(i,j,k,4,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2005 CO2EXPS 
           xc=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 2007 CO2EXPS 
           co2exp(i,j,k,5,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2009 CO2EXPS 
           xc=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 2011 CO2EXPS 
           co2exp(i,j,k,6,1)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2016 CO2EXPS 
           xc = dco2(i,j,k)*(pa(i,j,k)/30.0)**0.85
./pkg/fizhi/fizhi_lwrad.F 2017 CO2EXPS 
     1             *(1.+(0.0042+2.00e-5*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2019 CO2EXPS 
           co2exp(i,j,k,1,2)=exp(-xc*2.656e-3)
./pkg/fizhi/fizhi_lwrad.F 2021 CO2EXPS 
           xc=co2exp(i,j,k,1,2)*co2exp(i,j,k,1,2)
./pkg/fizhi/fizhi_lwrad.F 2023 CO2EXPS 
           co2exp(i,j,k,2,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2025 CO2EXPS 
           xc=co2exp(i,j,k,2,2)*co2exp(i,j,k,2,2)
./pkg/fizhi/fizhi_lwrad.F 2027 CO2EXPS 
           co2exp(i,j,k,3,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2029 CO2EXPS 
           xc=co2exp(i,j,k,3,2)*co2exp(i,j,k,3,2)
./pkg/fizhi/fizhi_lwrad.F 202 LWRIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_lwrad.F 2031 CO2EXPS 
           co2exp(i,j,k,4,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2033 CO2EXPS 
           xc=co2exp(i,j,k,4,2)*co2exp(i,j,k,4,2)
./pkg/fizhi/fizhi_lwrad.F 2035 CO2EXPS 
           co2exp(i,j,k,5,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2037 CO2EXPS 
           xc=co2exp(i,j,k,5,2)*co2exp(i,j,k,5,2)
./pkg/fizhi/fizhi_lwrad.F 2039 CO2EXPS 
           co2exp(i,j,k,6,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 203 LWRIO 
       cwc(i,L,n) = 0.
./pkg/fizhi/fizhi_lwrad.F 204 LWRIO 
      reff(i,L,n) = 0.
./pkg/fizhi/fizhi_lwrad.F 2065 N2OEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2083 N2OEXPS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2089 N2OEXPS 
           xc=dn2o(i,j,k)*(1.+(1.9297e-3+4.3750e-6*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2090 N2OEXPS 
           n2oexp(i,j,k,1)=exp(-xc*6.31582e-2)
./pkg/fizhi/fizhi_lwrad.F 2092 N2OEXPS 
           xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2095 N2OEXPS 
           n2oexp(i,j,k,2)=xc*xc1*xc2
./pkg/fizhi/fizhi_lwrad.F 2101 N2OEXPS 
           xc=dn2o(i,j,k)*(pa(i,j,k)/500.0)**0.48
./pkg/fizhi/fizhi_lwrad.F 2102 N2OEXPS 
     *        *(1.+(1.3804e-3+7.4838e-6*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2103 N2OEXPS 
           n2oexp(i,j,k,1)=exp(-xc*5.35779e-2)
./pkg/fizhi/fizhi_lwrad.F 2105 N2OEXPS 
           xc=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2107 N2OEXPS 
           n2oexp(i,j,k,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2108 N2OEXPS 
           xc=n2oexp(i,j,k,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2110 N2OEXPS 
           n2oexp(i,j,k,3)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2111 N2OEXPS 
           xc=n2oexp(i,j,k,3)*n2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2113 N2OEXPS 
           n2oexp(i,j,k,4)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2141 CH4EXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2159 CH4EXPS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2165 CH4EXPS 
           xc=dch4(i,j,k)*(1.+(1.7007e-2+1.5826e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2166 CH4EXPS 
           ch4exp(i,j,k,1)=exp(-xc*5.80708e-3)
./pkg/fizhi/fizhi_lwrad.F 2172 CH4EXPS 
           xc=dch4(i,j,k)*(pa(i,j,k)/500.0)**0.65
./pkg/fizhi/fizhi_lwrad.F 2173 CH4EXPS 
     *       *(1.+(5.9590e-4-2.2931e-6*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2174 CH4EXPS 
           ch4exp(i,j,k,1)=exp(-xc*6.29247e-2)
./pkg/fizhi/fizhi_lwrad.F 2176 CH4EXPS 
           xc=ch4exp(i,j,k,1)*ch4exp(i,j,k,1)*ch4exp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2178 CH4EXPS 
           ch4exp(i,j,k,2)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2180 CH4EXPS 
           xc=ch4exp(i,j,k,2)*ch4exp(i,j,k,2)*ch4exp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2182 CH4EXPS 
           ch4exp(i,j,k,3)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2184 CH4EXPS 
           xc=ch4exp(i,j,k,3)*ch4exp(i,j,k,3)*ch4exp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2186 CH4EXPS 
           ch4exp(i,j,k,4)=xc*xc
./pkg/fizhi/fizhi_lwrad.F 2213 COMEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2231 COMEXPS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2237 COMEXPS 
           xc=dcom(i,j,k)*(1.+(3.5775e-2+4.0447e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2238 COMEXPS 
           comexp(i,j,k,1)=exp(-xc*2.18947e-5)
./pkg/fizhi/fizhi_lwrad.F 2240 COMEXPS 
           xc=comexp(i,j,k,1)*comexp(i,j,k,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2245 COMEXPS 
           comexp(i,j,k,2)=xc*xc1
./pkg/fizhi/fizhi_lwrad.F 224 LWRIO 
       do i = 1,istrip
./pkg/fizhi/fizhi_lwrad.F 2251 COMEXPS 
           xc=dcom(i,j,k)*(1.+(3.4268e-2+3.7401e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2252 COMEXPS 
           comexp(i,j,k,1)=exp(-xc*4.74570e-5)
./pkg/fizhi/fizhi_lwrad.F 2254 COMEXPS 
           xc=comexp(i,j,k,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2259 COMEXPS 
           comexp(i,j,k,2)=xc1*xc2*xc
./pkg/fizhi/fizhi_lwrad.F 225 LWRIO 
         dtrad(i,L) = (   flx(i,L)-   flx(i,L+1))*adelpl(i,L)
./pkg/fizhi/fizhi_lwrad.F 226 LWRIO 
         tmpstrip(i,L) = flx(i,L)
./pkg/fizhi/fizhi_lwrad.F 227 LWRIO 
         dtdtg(i,L) = ( dfdts(i,L)- dfdts(i,L+1))*adelpl(i,L)
./pkg/fizhi/fizhi_lwrad.F 228 LWRIO 
        dtradc(i,L) = (flxclr(i,L)-flxclr(i,L+1))*adelpl(i,L)
./pkg/fizhi/fizhi_lwrad.F 2290 CFCEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2312 CFCEXPS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2317 CFCEXPS 
           xf=dcfc(i,j,k)*(1.+(a1+b1*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2318 CFCEXPS 
           cfcexp(i,j,k)=exp(-xf*fk1)
./pkg/fizhi/fizhi_lwrad.F 2320 CFCEXPS 
           xf=dcfc(i,j,k)*(1.+(a2+b2*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2321 CFCEXPS 
           cfcexp(i,j,k)=exp(-xf*fk2)
./pkg/fizhi/fizhi_lwrad.F 2352 B10EXPS 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2372 B10EXPS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2377 B10EXPS 
           xx=dh2o(i,j,k)*(pa(i,j,k)/500.0)
./pkg/fizhi/fizhi_lwrad.F 2378 B10EXPS 
     1           *(1.+(0.0149+6.20e-5*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 237 LWRIO 
        flx   (i,1)    = -flx   (i,1)
./pkg/fizhi/fizhi_lwrad.F 2383 B10EXPS 
           h2oexp(i,j,k,1)=exp(-xx*0.10624)
./pkg/fizhi/fizhi_lwrad.F 2385 B10EXPS 
           xx=h2oexp(i,j,k,1)*h2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2387 B10EXPS 
           h2oexp(i,j,k,2)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2389 B10EXPS 
           xx=h2oexp(i,j,k,2)*h2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 238 LWRIO 
        flxclr(i,1)    = -flxclr(i,1)
./pkg/fizhi/fizhi_lwrad.F 2391 B10EXPS 
           h2oexp(i,j,k,3)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2393 B10EXPS 
           xx=h2oexp(i,j,k,3)*h2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2395 B10EXPS 
           h2oexp(i,j,k,4)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2397 B10EXPS 
           xx=h2oexp(i,j,k,4)*h2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F 2399 B10EXPS 
           h2oexp(i,j,k,5)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 239 LWRIO 
        flx   (i,lm+1) = -flx   (i,lm+1)
./pkg/fizhi/fizhi_lwrad.F 2401 B10EXPS 
           xx=h2oexp(i,j,k,5)*h2oexp(i,j,k,5)
./pkg/fizhi/fizhi_lwrad.F 2403 B10EXPS 
           h2oexp(i,j,k,6)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2408 B10EXPS 
           xx=dco2(i,j,k)*(pa(i,j,k)/300.0)**0.5
./pkg/fizhi/fizhi_lwrad.F 2409 B10EXPS 
     1           *(1.+(0.0179+1.02e-4*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 240 LWRIO 
        flxclr(i,lm+1) = -flxclr(i,lm+1)
./pkg/fizhi/fizhi_lwrad.F 2414 B10EXPS 
           co2exp(i,j,k,1,1)=exp(-xx*2.656e-5)
./pkg/fizhi/fizhi_lwrad.F 2416 B10EXPS 
           xx=co2exp(i,j,k,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 2418 B10EXPS 
           co2exp(i,j,k,2,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 241 LWRIO 
              sgmt4(i) = - sgmt4(i)
./pkg/fizhi/fizhi_lwrad.F 2420 B10EXPS 
           xx=co2exp(i,j,k,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 2422 B10EXPS 
           co2exp(i,j,k,3,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2424 B10EXPS 
           xx=co2exp(i,j,k,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 2426 B10EXPS 
           co2exp(i,j,k,4,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2428 B10EXPS 
           xx=co2exp(i,j,k,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 242 LWRIO 
             dsgmt4(i) = - dfdts(i,lm+1)
./pkg/fizhi/fizhi_lwrad.F 2430 B10EXPS 
           co2exp(i,j,k,5,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2432 B10EXPS 
           xx=co2exp(i,j,k,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 2434 B10EXPS 
           co2exp(i,j,k,6,1)=xx*xx
./pkg/fizhi/fizhi_lwrad.F 2440 B10EXPS 
           conexp(i,j,k,1)=exp(-dcont(i,j,k)*1.04995e+2)
./pkg/fizhi/fizhi_lwrad.F 2444 B10EXPS 
           xx=dn2o(i,j,k)*(1.+(1.4476e-3+3.6656e-6*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 2448 B10EXPS 
           n2oexp(i,j,k,1)=exp(-xx*0.25238)
./pkg/fizhi/fizhi_lwrad.F 2450 B10EXPS 
           xx=n2oexp(i,j,k,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2455 B10EXPS 
           n2oexp(i,j,k,2)=xx*xx1*xx2*xx3
./pkg/fizhi/fizhi_lwrad.F 2503 TABLUP 
      integer k1,k2,m,n,np,nx,nh,nt,i,j
./pkg/fizhi/fizhi_lwrad.F 2523 TABLUP 
       do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2525 TABLUP 
        nn=mod(i,nt)+1
./pkg/fizhi/fizhi_lwrad.F 2527 TABLUP 
        x1=sabs(i,j,k2)-sabs(i,j,k1)
./pkg/fizhi/fizhi_lwrad.F 2528 TABLUP 
        x2=(spre(i,j,k2)-spre(i,j,k1))/x1
./pkg/fizhi/fizhi_lwrad.F 2529 TABLUP 
        x3=(stem(i,j,k2)-stem(i,j,k1))/x1
./pkg/fizhi/fizhi_lwrad.F 2571 TABLUP 
        tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j)
./pkg/fizhi/fizhi_lwrad.F 2611 H2OKDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2640 H2OKDIS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2641 H2OKDIS 
           th2o(i,j,1) = th2o(i,j,1)*h2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2642 H2OKDIS 
           th2o(i,j,2) = th2o(i,j,2)*h2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2643 H2OKDIS 
           th2o(i,j,3) = th2o(i,j,3)*h2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2644 H2OKDIS 
           th2o(i,j,4) = th2o(i,j,4)*h2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F 2645 H2OKDIS 
           th2o(i,j,5) = th2o(i,j,5)*h2oexp(i,j,k,5)
./pkg/fizhi/fizhi_lwrad.F 2646 H2OKDIS 
           th2o(i,j,6) = th2o(i,j,6)*h2oexp(i,j,k,6)
./pkg/fizhi/fizhi_lwrad.F 264 LWRIO 
      DTRAD (I,L) = ple(i,lm+1) * DTRAD (I,L)/pk(I,L)
./pkg/fizhi/fizhi_lwrad.F 2653 H2OKDIS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2655 H2OKDIS 
           trnth2o      =(fkw(1,ib)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2656 H2OKDIS 
     *                  + fkw(2,ib)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2657 H2OKDIS 
     *                  + fkw(3,ib)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2658 H2OKDIS 
     *                  + fkw(4,ib)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2659 H2OKDIS 
     *                  + fkw(5,ib)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F 265 LWRIO 
      DTRADC(I,L) = ple(i,lm+1) * DTRADC(I,L)/pk(I,L)
./pkg/fizhi/fizhi_lwrad.F 2660 H2OKDIS 
     *                  + fkw(6,ib)*th2o(i,j,6))
./pkg/fizhi/fizhi_lwrad.F 2662 H2OKDIS 
          tran(i,j)=tran(i,j)*trnth2o
./pkg/fizhi/fizhi_lwrad.F 266 LWRIO 
       dtdtg(I,L) = ple(i,lm+1) * dtdtg (I,L)/pk(I,L)
./pkg/fizhi/fizhi_lwrad.F 2670 H2OKDIS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2672 H2OKDIS 
           tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2674 H2OKDIS 
           trnth2o      =(fkw(1,ib)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2675 H2OKDIS 
     *                  + fkw(2,ib)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2676 H2OKDIS 
     *                  + fkw(3,ib)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2677 H2OKDIS 
     *                  + fkw(4,ib)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2678 H2OKDIS 
     *                  + fkw(5,ib)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F 2679 H2OKDIS 
     *                  + fkw(6,ib)*th2o(i,j,6))*tcon(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2681 H2OKDIS 
          tran(i,j)=tran(i,j)*trnth2o
./pkg/fizhi/fizhi_lwrad.F 2689 H2OKDIS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2691 H2OKDIS 
           tcon(i,j,1)= tcon(i,j,1)*conexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2692 H2OKDIS 
           tcon(i,j,2)= tcon(i,j,2)*conexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2693 H2OKDIS 
           tcon(i,j,3)= tcon(i,j,3)*conexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2696 H2OKDIS 
           trnth2o      = (  gkw(1,1)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2697 H2OKDIS 
     *                     + gkw(2,1)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2698 H2OKDIS 
     *                     + gkw(3,1)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2699 H2OKDIS 
     *                     + gkw(4,1)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2700 H2OKDIS 
     *                     + gkw(5,1)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F 2701 H2OKDIS 
     *                     + gkw(6,1)*th2o(i,j,6) ) * tcon(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2702 H2OKDIS 
     *                  + (  gkw(1,2)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2703 H2OKDIS 
     *                     + gkw(2,2)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2704 H2OKDIS 
     *                     + gkw(3,2)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2705 H2OKDIS 
     *                     + gkw(4,2)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2706 H2OKDIS 
     *                     + gkw(5,2)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F 2707 H2OKDIS 
     *                     + gkw(6,2)*th2o(i,j,6) ) * tcon(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2708 H2OKDIS 
     *                  + (  gkw(1,3)*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2709 H2OKDIS 
     *                     + gkw(2,3)*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2710 H2OKDIS 
     *                     + gkw(3,3)*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2711 H2OKDIS 
     *                     + gkw(4,3)*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2712 H2OKDIS 
     *                     + gkw(5,3)*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F 2713 H2OKDIS 
     *                     + gkw(6,3)*th2o(i,j,6) ) * tcon(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2715 H2OKDIS 
          tran(i,j)=tran(i,j)*trnth2o
./pkg/fizhi/fizhi_lwrad.F 2745 CO2KDIS 
      integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2763 CO2KDIS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2767 CO2KDIS 
           tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 2768 CO2KDIS 
           xc=   0.1395 *tco2(i,j,1,1)
./pkg/fizhi/fizhi_lwrad.F 2770 CO2KDIS 
           tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 2771 CO2KDIS 
           xc=xc+0.1407 *tco2(i,j,2,1)
./pkg/fizhi/fizhi_lwrad.F 2773 CO2KDIS 
           tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 2774 CO2KDIS 
           xc=xc+0.1549 *tco2(i,j,3,1)
./pkg/fizhi/fizhi_lwrad.F 2776 CO2KDIS 
           tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 2777 CO2KDIS 
           xc=xc+0.1357 *tco2(i,j,4,1)
./pkg/fizhi/fizhi_lwrad.F 2779 CO2KDIS 
           tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 2780 CO2KDIS 
           xc=xc+0.0182 *tco2(i,j,5,1)
./pkg/fizhi/fizhi_lwrad.F 2782 CO2KDIS 
           tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1)
./pkg/fizhi/fizhi_lwrad.F 2783 CO2KDIS 
           xc=xc+0.0220 *tco2(i,j,6,1)
./pkg/fizhi/fizhi_lwrad.F 2787 CO2KDIS 
           tco2(i,j,1,2)=tco2(i,j,1,2)*co2exp(i,j,k,1,2)
./pkg/fizhi/fizhi_lwrad.F 2788 CO2KDIS 
           xc=xc+0.0766 *tco2(i,j,1,2)
./pkg/fizhi/fizhi_lwrad.F 2790 CO2KDIS 
           tco2(i,j,2,2)=tco2(i,j,2,2)*co2exp(i,j,k,2,2)
./pkg/fizhi/fizhi_lwrad.F 2791 CO2KDIS 
           xc=xc+0.1372 *tco2(i,j,2,2)
./pkg/fizhi/fizhi_lwrad.F 2793 CO2KDIS 
           tco2(i,j,3,2)=tco2(i,j,3,2)*co2exp(i,j,k,3,2)
./pkg/fizhi/fizhi_lwrad.F 2794 CO2KDIS 
           xc=xc+0.1189 *tco2(i,j,3,2)
./pkg/fizhi/fizhi_lwrad.F 2796 CO2KDIS 
           tco2(i,j,4,2)=tco2(i,j,4,2)*co2exp(i,j,k,4,2)
./pkg/fizhi/fizhi_lwrad.F 2797 CO2KDIS 
           xc=xc+0.0335 *tco2(i,j,4,2)
./pkg/fizhi/fizhi_lwrad.F 2799 CO2KDIS 
           tco2(i,j,5,2)=tco2(i,j,5,2)*co2exp(i,j,k,5,2)
./pkg/fizhi/fizhi_lwrad.F 2800 CO2KDIS 
           xc=xc+0.0169 *tco2(i,j,5,2)
./pkg/fizhi/fizhi_lwrad.F 2802 CO2KDIS 
           tco2(i,j,6,2)=tco2(i,j,6,2)*co2exp(i,j,k,6,2)
./pkg/fizhi/fizhi_lwrad.F 2803 CO2KDIS 
           xc=xc+0.0059 *tco2(i,j,6,2)
./pkg/fizhi/fizhi_lwrad.F 2805 CO2KDIS 
           tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F 2834 N2OKDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2852 N2OKDIS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2858 N2OKDIS 
           tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2859 N2OKDIS 
           xc=   0.940414*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2861 N2OKDIS 
           tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2862 N2OKDIS 
           xc=xc+0.059586*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2868 N2OKDIS 
           tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2869 N2OKDIS 
           xc=   0.561961*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2871 N2OKDIS 
           tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2872 N2OKDIS 
           xc=xc+0.138707*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2874 N2OKDIS 
           tn2o(i,j,3)=tn2o(i,j,3)*n2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2875 N2OKDIS 
           xc=xc+0.240670*tn2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2877 N2OKDIS 
           tn2o(i,j,4)=tn2o(i,j,4)*n2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F 2878 N2OKDIS 
           xc=xc+0.058662*tn2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2882 N2OKDIS 
           tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F 289 LWRIO 
        do i = 1,im
./pkg/fizhi/fizhi_lwrad.F 290 LWRIO 
         tmpdiag(i,j) = tz(i,j,L)*pkz(i,j,L)
./pkg/fizhi/fizhi_lwrad.F 2911 CH4KDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 2929 CH4KDIS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 2935 CH4KDIS 
           tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2936 CH4KDIS 
           xc= tch4(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2942 CH4KDIS 
           tch4(i,j,1)=tch4(i,j,1)*ch4exp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 2943 CH4KDIS 
           xc=   0.610650*tch4(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 2945 CH4KDIS 
           tch4(i,j,2)=tch4(i,j,2)*ch4exp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 2946 CH4KDIS 
           xc=xc+0.280212*tch4(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 2948 CH4KDIS 
           tch4(i,j,3)=tch4(i,j,3)*ch4exp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 2949 CH4KDIS 
           xc=xc+0.107349*tch4(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 2951 CH4KDIS 
           tch4(i,j,4)=tch4(i,j,4)*ch4exp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F 2952 CH4KDIS 
           xc=xc+0.001789*tch4(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 2956 CH4KDIS 
           tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F 2985 COMKDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 298 LWRIO 
        do i = 1,im
./pkg/fizhi/fizhi_lwrad.F 299 LWRIO 
         tmpdiag(i,j) = qz(i,j,L)*1000.
./pkg/fizhi/fizhi_lwrad.F 3003 COMKDIS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 3009 COMKDIS 
            tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 3010 COMKDIS 
            xc=   0.972025*tcom(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 3011 COMKDIS 
            tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 3012 COMKDIS 
            xc=xc+0.027975*tcom(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 3018 COMKDIS 
            tcom(i,j,1)=tcom(i,j,1)*comexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 3019 COMKDIS 
            xc=   0.961324*tcom(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 3020 COMKDIS 
            tcom(i,j,2)=tcom(i,j,2)*comexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 3021 COMKDIS 
            xc=xc+0.038676*tcom(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 3025 COMKDIS 
            tran(i,j)=tran(i,j)*xc
./pkg/fizhi/fizhi_lwrad.F 3053 CFCKDIS 
      integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 3066 CFCKDIS 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 3068 CFCKDIS 
            tcfc(i,j)=tcfc(i,j)*cfcexp(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 3069 CFCKDIS 
            tran(i,j)=tran(i,j)*tcfc(i,j)
./pkg/fizhi/fizhi_lwrad.F 307 LWRIO 
        do i = 1,im
./pkg/fizhi/fizhi_lwrad.F 308 LWRIO 
         tmpdiag(i,j) = oz(i,j,L)
./pkg/fizhi/fizhi_lwrad.F 3109 B10KDIS 
      integer m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 3128 B10KDIS 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 3129 B10KDIS 
           tran(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 3136 B10KDIS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 3138 B10KDIS 
           th2o(i,j,1)=th2o(i,j,1)*h2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 3139 B10KDIS 
           xx=   0.3153*th2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 3141 B10KDIS 
           th2o(i,j,2)=th2o(i,j,2)*h2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 3142 B10KDIS 
           xx=xx+0.4604*th2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 3144 B10KDIS 
           th2o(i,j,3)=th2o(i,j,3)*h2oexp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 3145 B10KDIS 
           xx=xx+0.1326*th2o(i,j,3)
./pkg/fizhi/fizhi_lwrad.F 3147 B10KDIS 
           th2o(i,j,4)=th2o(i,j,4)*h2oexp(i,j,k,4)
./pkg/fizhi/fizhi_lwrad.F 3148 B10KDIS 
           xx=xx+0.0798*th2o(i,j,4)
./pkg/fizhi/fizhi_lwrad.F 3150 B10KDIS 
           th2o(i,j,5)=th2o(i,j,5)*h2oexp(i,j,k,5)
./pkg/fizhi/fizhi_lwrad.F 3151 B10KDIS 
           xx=xx+0.0119*th2o(i,j,5)
./pkg/fizhi/fizhi_lwrad.F 3153 B10KDIS 
           tran(i,j)=tran(i,j)*xx
./pkg/fizhi/fizhi_lwrad.F 3161 B10KDIS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 3163 B10KDIS 
           tcon(i,j,1)=tcon(i,j,1)*conexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 3164 B10KDIS 
           tran(i,j)=tran(i,j)*tcon(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 3172 B10KDIS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 3174 B10KDIS 
           tco2(i,j,1,1)=tco2(i,j,1,1)*co2exp(i,j,k,1,1)
./pkg/fizhi/fizhi_lwrad.F 3175 B10KDIS 
           xx=    0.2673*tco2(i,j,1,1)
./pkg/fizhi/fizhi_lwrad.F 3177 B10KDIS 
           tco2(i,j,2,1)=tco2(i,j,2,1)*co2exp(i,j,k,2,1)
./pkg/fizhi/fizhi_lwrad.F 3178 B10KDIS 
           xx=xx+ 0.2201*tco2(i,j,2,1)
./pkg/fizhi/fizhi_lwrad.F 3180 B10KDIS 
           tco2(i,j,3,1)=tco2(i,j,3,1)*co2exp(i,j,k,3,1)
./pkg/fizhi/fizhi_lwrad.F 3181 B10KDIS 
           xx=xx+ 0.2106*tco2(i,j,3,1)
./pkg/fizhi/fizhi_lwrad.F 3183 B10KDIS 
           tco2(i,j,4,1)=tco2(i,j,4,1)*co2exp(i,j,k,4,1)
./pkg/fizhi/fizhi_lwrad.F 3184 B10KDIS 
           xx=xx+ 0.2409*tco2(i,j,4,1)
./pkg/fizhi/fizhi_lwrad.F 3186 B10KDIS 
           tco2(i,j,5,1)=tco2(i,j,5,1)*co2exp(i,j,k,5,1)
./pkg/fizhi/fizhi_lwrad.F 3187 B10KDIS 
           xx=xx+ 0.0196*tco2(i,j,5,1)
./pkg/fizhi/fizhi_lwrad.F 3189 B10KDIS 
           tco2(i,j,6,1)=tco2(i,j,6,1)*co2exp(i,j,k,6,1)
./pkg/fizhi/fizhi_lwrad.F 3190 B10KDIS 
           xx=xx+ 0.0415*tco2(i,j,6,1)
./pkg/fizhi/fizhi_lwrad.F 3192 B10KDIS 
           tran(i,j)=tran(i,j)*xx
./pkg/fizhi/fizhi_lwrad.F 3200 B10KDIS 
         do i=1,m
./pkg/fizhi/fizhi_lwrad.F 3202 B10KDIS 
           tn2o(i,j,1)=tn2o(i,j,1)*n2oexp(i,j,k,1)
./pkg/fizhi/fizhi_lwrad.F 3203 B10KDIS 
           xx=   0.970831*tn2o(i,j,1)
./pkg/fizhi/fizhi_lwrad.F 3205 B10KDIS 
           tn2o(i,j,2)=tn2o(i,j,2)*n2oexp(i,j,k,2)
./pkg/fizhi/fizhi_lwrad.F 3206 B10KDIS 
           xx=xx+0.029169*tn2o(i,j,2)
./pkg/fizhi/fizhi_lwrad.F 3208 B10KDIS 
           tran(i,j)=tran(i,j)*(xx-1.0)
./pkg/fizhi/fizhi_lwrad.F 335 LWRIO 
      do i = 1,im
./pkg/fizhi/fizhi_lwrad.F 336 LWRIO 
         fccave(i,j,L) = 0.
./pkg/fizhi/fizhi_lwrad.F 337 LWRIO 
        qliqave(i,j,L) = 0.
./pkg/fizhi/fizhi_lwrad.F 39 LWRIO 
      integer i,j,l,n,nn
./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 873 IRRAD 
       do i=1,m
./pkg/fizhi/fizhi_lwrad.F 874 IRRAD 
          if (pl(i,j,1) .eq. 0.0) then
./pkg/fizhi/fizhi_lwrad.F 875 IRRAD 
              pl(i,j,1)=1.0e-4
./pkg/fizhi/fizhi_lwrad.F 884 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 885 IRRAD 
         pa(i,j,k)=0.5*(pl(i,j,k)+pl(i,j,k+1))
./pkg/fizhi/fizhi_lwrad.F 886 IRRAD 
         dt(i,j,k)=ta(i,j,k)-250.0
./pkg/fizhi/fizhi_lwrad.F 911 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 913 IRRAD 
         dp           = pl(i,j,k+1)-pl(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 914 IRRAD 
         dh2o (i,j,k) = 1.02*wa(i,j,k)*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 915 IRRAD 
         do3  (i,j,k) = 476.*oa(i,j,k)*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 916 IRRAD 
         dco2 (i,j,k) = 789.*co2*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 917 IRRAD 
         dch4 (i,j,k) = 789.*ch4(k)*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 918 IRRAD 
         dn2o (i,j,k) = 789.*n2o(k)*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 919 IRRAD 
         df11 (i,j,k) = 789.*cfc11*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 920 IRRAD 
         df12 (i,j,k) = 789.*cfc12*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 921 IRRAD 
         df22 (i,j,k) = 789.*cfc22*dp+1.e-10
./pkg/fizhi/fizhi_lwrad.F 926 IRRAD 
         xx=pa(i,j,k)*0.001618*wa(i,j,k)*wa(i,j,k)*dp
./pkg/fizhi/fizhi_lwrad.F 927 IRRAD 
         dcont(i,j,k) = xx*exp(1800./ta(i,j,k)-6.081)+1.e-10
./pkg/fizhi/fizhi_lwrad.F 948 IRRAD 
          do i=1,m
./pkg/fizhi/fizhi_lwrad.F 949 IRRAD 
             dp          =pl(i,j,k+1)-pl(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 950 IRRAD 
             cwp(i,j,k,1)=1.02*10000.0*cwc(i,j,k,1)*dp
./pkg/fizhi/fizhi_lwrad.F 951 IRRAD 
             cwp(i,j,k,2)=1.02*10000.0*cwc(i,j,k,2)*dp
./pkg/fizhi/fizhi_lwrad.F 952 IRRAD 
             cwp(i,j,k,3)=1.02*10000.0*cwc(i,j,k,3)*dp
./pkg/fizhi/fizhi_lwrad.F 953 IRRAD 
             taucl(i,j,k,3)=0.00307*cwp(i,j,k,3)
./pkg/fizhi/fizhi_lwrad.F 966 IRRAD 
       do i=1,m
./pkg/fizhi/fizhi_lwrad.F 967 IRRAD 
        clr(i,j,0)    = 1.0
./pkg/fizhi/fizhi_lwrad.F 968 IRRAD 
        clr(i,j,np+1) = 0.0
./pkg/fizhi/fizhi_lwrad.F 969 IRRAD 
        st4(i,j)      = 0.0
./pkg/fizhi/fizhi_lwrad.F 970 IRRAD 
        transfc(i,j,np+1)=1.0
./pkg/fizhi/fizhi_lwrad.F 971 IRRAD 
        trantcr(i,j,np+1)=1.0
./pkg/fizhi/fizhi_lwrad.F 979 IRRAD 
        do i=1,m
./pkg/fizhi/fizhi_lwrad.F 980 IRRAD 
         flx(i,j,k)  = 0.0
./pkg/fizhi/fizhi_lwrad.F 981 IRRAD 
         flc(i,j,k)  = 0.0
./pkg/fizhi/fizhi_lwrad.F 982 IRRAD 
         dfdts(i,j,k)= 0.0
./pkg/fizhi/fizhi_lwrad.F 983 IRRAD 
         rflx(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F 984 IRRAD 
         rflc(i,j,k) = 0.0
./pkg/fizhi/fizhi_lwrad.F 99 LWRIO 
        do i =1,im
./pkg/fizhi/fizhi_mnc_init.F 106 FIZHI_MNC_INIT 
                DO i = 1,CW_MAX_LOC
./pkg/fizhi/fizhi_mnc_init.F 107 FIZHI_MNC_INIT 
                  dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/fizhi/fizhi_mnc_init.F 108 FIZHI_MNC_INIT 
                  dim(i) = 0
./pkg/fizhi/fizhi_mnc_init.F 109 FIZHI_MNC_INIT 
                  ib(i) = 0
./pkg/fizhi/fizhi_mnc_init.F 110 FIZHI_MNC_INIT 
                  ie(i) = 0
./pkg/fizhi/fizhi_mnc_init.F 38 FIZHI_MNC_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./pkg/fizhi/fizhi_moist.F 1008 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 1009 MOISTIO 
       rainlsp (i,j) = rainlsp (i,j) +  lsp_new(i,j)*tminv
./pkg/fizhi/fizhi_moist.F 1010 MOISTIO 
       rainconv(i,j) = rainconv(i,j) + conv_new(i,j)*tminv
./pkg/fizhi/fizhi_moist.F 1011 MOISTIO 
       snowfall(i,j) = snowfall(i,j) + snow_new(i,j)*tminv
./pkg/fizhi/fizhi_moist.F 1022 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 1023 MOISTIO 
          cldhi (i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1024 MOISTIO 
          cldmid(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1025 MOISTIO 
          cldlow(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1026 MOISTIO 
          cldtmp(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1027 MOISTIO 
          cldprs(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1028 MOISTIO 
         tmpimjm(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1041 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 1045 MOISTIO 
       indx = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 1050 MOISTIO 
       watnow = cldwater(i,j,L)
./pkg/fizhi/fizhi_moist.F 1052 MOISTIO 
          cldras = min( max( cldras_lw(i,j,L)*cldras_mem,cpen(i,j,L)),
./pkg/fizhi/fizhi_moist.F 1057 MOISTIO 
       cldlsp = min( max( cldlsp_lw(i,j,L)*cldlsp_mem,cldls(i,j,L)),
./pkg/fizhi/fizhi_moist.F 1065 MOISTIO 
       lwlz(i,j,L) = ( nlwlz*lwlz(i,j,L) + watnow)/(nlwlz +1)
./pkg/fizhi/fizhi_moist.F 1066 MOISTIO 
       cldtot_lw(i,j,L) = (nlwcld*cldtot_lw(i,j,L) + cldnow)/(nlwcld+1)
./pkg/fizhi/fizhi_moist.F 1067 MOISTIO 
       cldlsp_lw(i,j,L) = (nlwcld*cldlsp_lw(i,j,L) + cldlsp)/(nlwcld+1)
./pkg/fizhi/fizhi_moist.F 1068 MOISTIO 
       cldras_lw(i,j,L) = (nlwcld*cldras_lw(i,j,L) + cldras)/(nlwcld+1)
./pkg/fizhi/fizhi_moist.F 1073 MOISTIO 
       watnow = cldwater(i,j,L)
./pkg/fizhi/fizhi_moist.F 1075 MOISTIO 
          cldras = min( max(cldras_sw(i,j,L)*cldras_mem, cpen(i,j,L)),
./pkg/fizhi/fizhi_moist.F 1080 MOISTIO 
       cldlsp = min( max(cldlsp_sw(i,j,L)*cldlsp_mem,cldls(i,j,L)),
./pkg/fizhi/fizhi_moist.F 1088 MOISTIO 
       swlz(i,j,L) = ( nswlz*swlz(i,j,L) + watnow)/(nswlz +1)
./pkg/fizhi/fizhi_moist.F 1089 MOISTIO 
       cldtot_sw(i,j,L) = (nswcld*cldtot_sw(i,j,L) + cldnow)/(nswcld+1)
./pkg/fizhi/fizhi_moist.F 1090 MOISTIO 
       cldlsp_sw(i,j,L) = (nswcld*cldlsp_sw(i,j,L) + cldlsp)/(nswcld+1)
./pkg/fizhi/fizhi_moist.F 1091 MOISTIO 
       cldras_sw(i,j,L) = (nswcld*cldras_sw(i,j,L) + cldras)/(nswcld+1)
./pkg/fizhi/fizhi_moist.F 1097 MOISTIO 
       if( L.lt.midlevel ) cldhi (i,j) = max( cldnow,cldhi (i,j) )
./pkg/fizhi/fizhi_moist.F 1099 MOISTIO 
     .      L.lt.lowlevel ) cldmid(i,j) = max( cldnow,cldmid(i,j) )
./pkg/fizhi/fizhi_moist.F 1100 MOISTIO 
       if( L.ge.lowlevel ) cldlow(i,j) = max( cldnow,cldlow(i,j) )
./pkg/fizhi/fizhi_moist.F 1104 MOISTIO 
       cldtmp(i,j) =  cldtmp(i,j) + cldnow*pkzgather(i,L)
./pkg/fizhi/fizhi_moist.F 1105 MOISTIO 
     .             *  ( tz(i,j,L) + dtmoist(i,j,L)*tmstp/pz(i,j) )
./pkg/fizhi/fizhi_moist.F 1106 MOISTIO 
       cldprs(i,j) =  cldprs(i,j) + cldnow*plev
./pkg/fizhi/fizhi_moist.F 1107 MOISTIO 
       tmpimjm(i,j) = tmpimjm(i,j) + cldnow
./pkg/fizhi/fizhi_moist.F 1116 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 1117 MOISTIO 
      totcld(i,j) = 1.0 - (1.-cldhi (i,j))
./pkg/fizhi/fizhi_moist.F 1118 MOISTIO 
     .                  * (1.-cldmid(i,j))
./pkg/fizhi/fizhi_moist.F 1119 MOISTIO 
     .                  * (1.-cldlow(i,j))
./pkg/fizhi/fizhi_moist.F 1132 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 1133 MOISTIO 
        if( cldtmp(i,j).gt.0. ) then
./pkg/fizhi/fizhi_moist.F 1134 MOISTIO 
         tmpdiag(i,j) = cldtmp(i,j)*totcld(i,j)/tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F 1135 MOISTIO 
         tmpdiag2(i,j) = totcld(i,j)
./pkg/fizhi/fizhi_moist.F 1137 MOISTIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1138 MOISTIO 
         tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1149 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 1150 MOISTIO 
        if( cldprs(i,j).gt.0. ) then
./pkg/fizhi/fizhi_moist.F 1151 MOISTIO 
         tmpdiag(i,j) = cldprs(i,j)*totcld(i,j)/tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F 1152 MOISTIO 
         tmpdiag2(i,j) = totcld(i,j)
./pkg/fizhi/fizhi_moist.F 1154 MOISTIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1155 MOISTIO 
         tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_moist.F 1231 RAS 
      integer i,L,nc,ib,nt
./pkg/fizhi/fizhi_moist.F 1237 RAS 
       rains(i,l) = 0.
./pkg/fizhi/fizhi_moist.F 1292 RAS 
      do i = 1,lenc
./pkg/fizhi/fizhi_moist.F 1293 RAS 
      cloudn(i) = 0.0
./pkg/fizhi/fizhi_moist.F 1308 RAS 
      do i = 1,lenc
./pkg/fizhi/fizhi_moist.F 1312 RAS 
       tx1(i) = cmb2pa *  (prs(i,ib+1) - prs(i,ib))/(grav*dt)
./pkg/fizhi/fizhi_moist.F 1316 RAS 
       tx1(i) = rhfrac(i)*rknob * cmass(i,ib) / tx1(i)
./pkg/fizhi/fizhi_moist.F 1317 RAS 
       if(cmass(i,K).gt.0.) clf(i,ib) = clf(i,ib) + tx1(i)
./pkg/fizhi/fizhi_moist.F 1318 RAS 
       if( clf(i,ib).gt.1.) clf(i,ib) = 1.
./pkg/fizhi/fizhi_moist.F 1324 RAS 
      do i=1,lenc
./pkg/fizhi/fizhi_moist.F 1325 RAS 
       cmass(i,L) = rhfrac(i)*cmass(i,L) * dt
./pkg/fizhi/fizhi_moist.F 1330 RAS 
      do i=1,lenc
./pkg/fizhi/fizhi_moist.F 1331 RAS 
       cldmas(i,L) = cldmas(i,L) + cmass(i,L)
./pkg/fizhi/fizhi_moist.F 1335 RAS 
      do i=1,lenc
./pkg/fizhi/fizhi_moist.F 1336 RAS 
      detrain(i,ib) = detrain(i,ib) + cmass(i,ib)
./pkg/fizhi/fizhi_moist.F 1342 RAS 
        POI(I,L) = POI(I,L) + TCU(I,L) * DT * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1343 RAS 
        QOI(I,L) = QOI(I,L) + QCU(I,L) * DT * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1349 RAS 
        UOI(I,L+nltop-1,NT)=UOI(I,L+nltop-1,NT)+UCU(I,L,NT)*DT*rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1354 RAS 
       rains(I,ib) = rains(I,ib) + PCU(I)*dt * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1357 RAS 
      do i = 1,lenc
./pkg/fizhi/fizhi_moist.F 1360 RAS 
        if(tcu(i,L).ne.0.)ifound = ifound + 1
./pkg/fizhi/fizhi_moist.F 1365 RAS 
         temp = TCU(I,L) * DT * rhfrac(i)
./pkg/fizhi/fizhi_moist.F 1378 RAS 
      do i=1,lenc
./pkg/fizhi/fizhi_moist.F 1379 RAS 
         tx1(i)   = 100*(prs(i,L+1)-prs(i,L))/grav
./pkg/fizhi/fizhi_moist.F 1380 RAS 
         cln(i,L) = min(1600*rains(i,L)/tx1(i),rasmax )
./pkg/fizhi/fizhi_moist.F 1395 RNDCLOUD 
      integer i,mcheck,iseed,indx
./pkg/fizhi/fizhi_moist.F 139 MOISTIO 
      integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt
./pkg/fizhi/fizhi_moist.F 1403 RNDCLOUD 
       do i = 1,nrnd
./pkg/fizhi/fizhi_moist.F 1404 RNDCLOUD 
        rnd(i) = 0
./pkg/fizhi/fizhi_moist.F 1427 RNDCLOUD 
       do i = 1,irm
./pkg/fizhi/fizhi_moist.F 1428 RNDCLOUD 
        random(i) = random_numbx(iseed)
./pkg/fizhi/fizhi_moist.F 1661 CLOUD 
      integer nt,km1,ic1,i,L,len1,len2,isav,len11,ii
./pkg/fizhi/fizhi_moist.F 1787 CLOUD 
     .                     .AND. rhfrac(i).ne.0.0 ) THEN
./pkg/fizhi/fizhi_moist.F 1798 CLOUD 
     .                       .AND. rhfrac(i).ne.0.0 ) THEN
./pkg/fizhi/fizhi_moist.F 216 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 217 MOISTIO 
       qqcolmin(i,j) = qqz(i,j,lm)*fracqq
./pkg/fizhi/fizhi_moist.F 218 MOISTIO 
       qqcolmax(i,j) = qqz(i,j,lm)
./pkg/fizhi/fizhi_moist.F 219 MOISTIO 
         levpbl(i,j) = lm+1
./pkg/fizhi/fizhi_moist.F 225 MOISTIO 
       DO i = 1,im
./pkg/fizhi/fizhi_moist.F 226 MOISTIO 
        IF((qqz(i,j,l).gt.qqcolmax(i,j))
./pkg/fizhi/fizhi_moist.F 2279 RNCL 
      integer i
./pkg/fizhi/fizhi_moist.F 227 MOISTIO 
     1                   .and.(levpbl(i,j).eq.lm+1))then
./pkg/fizhi/fizhi_moist.F 2282 RNCL 
                           rno(i) = 1.0
./pkg/fizhi/fizhi_moist.F 228 MOISTIO 
         qqcolmax(i,j) = qqz(i,j,l)
./pkg/fizhi/fizhi_moist.F 229 MOISTIO 
         qqcolmin(i,j) = fracqq*qqcolmax(i,j)
./pkg/fizhi/fizhi_moist.F 231 MOISTIO 
        if((qqz(i,j,l).lt.qqcolmin(i,j))
./pkg/fizhi/fizhi_moist.F 232 MOISTIO 
     1                   .and.(levpbl(i,j).eq.lm+1))levpbl(i,j)=L+1
./pkg/fizhi/fizhi_moist.F 2330 ACRITN 
      integer i,L
./pkg/fizhi/fizhi_moist.F 2345 ACRITN 
      do i=1,lng
./pkg/fizhi/fizhi_moist.F 2346 ACRITN 
         if( pl(i).ge.p(L)   .and.
./pkg/fizhi/fizhi_moist.F 2347 ACRITN 
     .       pl(i).le.p(L+1)) then
./pkg/fizhi/fizhi_moist.F 2348 ACRITN 
         temp = ( pl(i)-p(L) )/( p(L+1)-p(L) )
./pkg/fizhi/fizhi_moist.F 2349 ACRITN 
         acr(i) = a(L+1)*temp + a(L)*(1-temp)
./pkg/fizhi/fizhi_moist.F 2354 ACRITN 
      do i=1,lng
./pkg/fizhi/fizhi_moist.F 2355 ACRITN 
      if( pl(i).lt.p(1)   ) acr(i) = a(1)
./pkg/fizhi/fizhi_moist.F 2356 ACRITN 
      if( pl(i).gt.p(lma) ) acr(i) = a(lma)
./pkg/fizhi/fizhi_moist.F 2359 ACRITN 
      do i=1,lng
./pkg/fizhi/fizhi_moist.F 2360 ACRITN 
      acr(i) = acr(i) * (plb(i)-pl(i))
./pkg/fizhi/fizhi_moist.F 238 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 239 MOISTIO 
        if(levpbl(i,j).gt.nsubmin) levpbl(i,j) = nsubmin
./pkg/fizhi/fizhi_moist.F 2407 RNEVP 
      integer i,L,n,nlaym1,irnlay,irnlm1
./pkg/fizhi/fizhi_moist.F 240 MOISTIO 
        if(levpbl(i,j).lt.nsubmax) levpbl(i,j) = nsubmax
./pkg/fizhi/fizhi_moist.F 2434 RNEVP 
         water(i) = 0.
./pkg/fizhi/fizhi_moist.F 2435 RNEVP 
       crystal(i) = 0.
./pkg/fizhi/fizhi_moist.F 2439 RNEVP 
       do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2440 RNEVP 
          EVP9(i,L) = 0.
./pkg/fizhi/fizhi_moist.F 2441 RNEVP 
         TEMP1(i,L) = 0.
./pkg/fizhi/fizhi_moist.F 2442 RNEVP 
         TEMP2(i,L) = 0.
./pkg/fizhi/fizhi_moist.F 2443 RNEVP 
         TEMP3(i,L) = 0.
./pkg/fizhi/fizhi_moist.F 2444 RNEVP 
        CLSBTH(i,L) = 0.
./pkg/fizhi/fizhi_moist.F 2445 RNEVP 
         cldlz(i,L) = 0.
./pkg/fizhi/fizhi_moist.F 2480 RNEVP 
       call QSAT ( temp1(i,3),pl(i,L),temp1(i,2),temp1(i,6),.true. )
./pkg/fizhi/fizhi_moist.F 2492 RNEVP 
         cldlz(i,L) = rain(i,L)*temp3(i,L)
./pkg/fizhi/fizhi_moist.F 2493 RNEVP 
       if(  tl(i,L).gt.tice-20.) then
./pkg/fizhi/fizhi_moist.F 2494 RNEVP 
           water(i) =   water(i) + rain(i,L)
./pkg/fizhi/fizhi_moist.F 2496 RNEVP 
         crystal(i) = crystal(i) + rain(i,L)
./pkg/fizhi/fizhi_moist.F 2507 RNEVP 
        iceevap(i) = 0.
./pkg/fizhi/fizhi_moist.F 2508 RNEVP 
        watevap(i) = 0.
./pkg/fizhi/fizhi_moist.F 250 MOISTIO 
       do i = 1,im
./pkg/fizhi/fizhi_moist.F 2510 RNEVP 
       if( (evp9(i,L).gt.0.) .and. (crystal(i).gt.0.) ) then
./pkg/fizhi/fizhi_moist.F 2512 RNEVP 
       IF(iceevap(i).GE.crystal(i)) iceevap(i) = crystal(i)
./pkg/fizhi/fizhi_moist.F 2514 RNEVP 
       crystal(i) = crystal(i) - iceevap(i)
./pkg/fizhi/fizhi_moist.F 2518 RNEVP 
       if( (evp9(i,L).gt.0.) .and. (water(i).gt.0.) ) then
./pkg/fizhi/fizhi_moist.F 2519 RNEVP 
       exparg    = ZM1P04*tmscl*((water(i)*RPHF*TEMP2(I,L))**ZP578)
./pkg/fizhi/fizhi_moist.F 251 MOISTIO 
        if(levpbl(i,j).eq.L) then
./pkg/fizhi/fizhi_moist.F 2522 RNEVP 
       IF(watevap(I).GE.water(i)) watevap(I) = water(i)
./pkg/fizhi/fizhi_moist.F 2524 RNEVP 
       water(i) = water(i) - watevap(i)
./pkg/fizhi/fizhi_moist.F 2527 RNEVP 
       QL(I,L) = QL(I,L)+(iceevap(i)+watevap(i))*TEMP3(I,L)
./pkg/fizhi/fizhi_moist.F 2528 RNEVP 
       TL(I,L) = TL(I,L)-(iceevap(i)+watevap(i))*TEMP3(I,L)*ELOCP
./pkg/fizhi/fizhi_moist.F 2534 RNEVP 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2535 RNEVP 
      rcon(i) = water(i) + crystal(i)
./pkg/fizhi/fizhi_moist.F 253 MOISTIO 
         pblindex(indx) = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 2544 RNEVP 
        rainmax(i) = rhcrit(i,L)*evp9(i,L) +
./pkg/fizhi/fizhi_moist.F 2545 RNEVP 
     .               ql(i,L)*(rhcrit(i,L)-1.)/temp3(i,L)
./pkg/fizhi/fizhi_moist.F 2547 RNEVP 
         if (rainmax(i).LE.0.0) then
./pkg/fizhi/fizhi_moist.F 2548 RNEVP 
           call QSAT( tl(i,L),pl(i,L),rh,dum,.false.)
./pkg/fizhi/fizhi_moist.F 2549 RNEVP 
           rh = ql(i,L)/rh
./pkg/fizhi/fizhi_moist.F 2551 RNEVP 
           if( rhcrit(i,L).eq.1.0 ) then
./pkg/fizhi/fizhi_moist.F 2554 RNEVP 
           fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) /
./pkg/fizhi/fizhi_moist.F 2555 RNEVP 
     1                                          (1.0-rhcrit(i,L)) )
./pkg/fizhi/fizhi_moist.F 2559 RNEVP 
           if( pl(i,L).ge.10.0 ) CLSBTH(I,L) = fact
./pkg/fizhi/fizhi_moist.F 2564 RNEVP 
        cldlz(i,L) = cldlz(i,L) - rainmax(i)*temp3(i,L)
./pkg/fizhi/fizhi_moist.F 2627 SRCLOUDS 
      integer i,L
./pkg/fizhi/fizhi_moist.F 2646 SRCLOUDS 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2647 SRCLOUDS 
                  temp = th(i,L)*plk(i,L)
./pkg/fizhi/fizhi_moist.F 2648 SRCLOUDS 
      call QSAT ( temp,pl(i,L),qs(i,L),dum,.false. )
./pkg/fizhi/fizhi_moist.F 2653 SRCLOUDS 
      do i  = 1,irun
./pkg/fizhi/fizhi_moist.F 2654 SRCLOUDS 
      rh    = q(i,L)/qs(i,L)
./pkg/fizhi/fizhi_moist.F 2656 SRCLOUDS 
      rhcrit = rhc(i,L) - offset
./pkg/fizhi/fizhi_moist.F 2659 SRCLOUDS 
      if(cloud(i,L).eq.  0.0 .and. ratio.gt.0.0 ) then
./pkg/fizhi/fizhi_moist.F 265 MOISTIO 
        i = 1+MOD((pblindex(indx)-1),im)
./pkg/fizhi/fizhi_moist.F 2660 SRCLOUDS 
         cloud(i,L) = min( ratio,1.0 _d 0)
./pkg/fizhi/fizhi_moist.F 266 MOISTIO 
       levgather(indx) = levpbl(i,j)
./pkg/fizhi/fizhi_moist.F 2678 CTEI 
      integer i,L
./pkg/fizhi/fizhi_moist.F 267 MOISTIO 
        pigather(indx) =     pz(i,j)
./pkg/fizhi/fizhi_moist.F 2688 CTEI 
      do i=1,im
./pkg/fizhi/fizhi_moist.F 2689 CTEI 
          dq = q(i,L)+cldwat(i,L)-q(i,L-1)-cldwat(i,L-1)
./pkg/fizhi/fizhi_moist.F 268 MOISTIO 
        pkegather(indx,lm+1) = pkht(i,j,lm+1)
./pkg/fizhi/fizhi_moist.F 2691 CTEI 
      k = 1.0 + cpoel*plke(i,L)*( th(i,L)-th(i,L-1) ) / dq
./pkg/fizhi/fizhi_moist.F 2693 CTEI 
      t = th(i,L)*plk(i,L)
./pkg/fizhi/fizhi_moist.F 2694 CTEI 
      p = pl(i,L)
./pkg/fizhi/fizhi_moist.F 269 MOISTIO 
        plegather(indx,lm+1) = plze(i,j,lm+1)
./pkg/fizhi/fizhi_moist.F 2708 CTEI 
      cldfrc(i,L) = cldfrc(i,L)*f
./pkg/fizhi/fizhi_moist.F 2709 CTEI 
      cldwat(i,L) = cldwat(i,L)*f
./pkg/fizhi/fizhi_moist.F 2719 BACK2GRD 
      integer i,irun,indeces(irun)
./pkg/fizhi/fizhi_moist.F 2722 BACK2GRD 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2723 BACK2GRD 
       temp(indeces(i)) = gathered(i)
./pkg/fizhi/fizhi_moist.F 2725 BACK2GRD 
      do i = 1,irun
./pkg/fizhi/fizhi_moist.F 2726 BACK2GRD 
       scattered(i) = temp(i)
./pkg/fizhi/fizhi_moist.F 282 MOISTIO 
        i = 1+MOD((pblindex(indx)-1),im)
./pkg/fizhi/fizhi_moist.F 283 MOISTIO 
         thgather(indx,L) = tz(i,j,L)
./pkg/fizhi/fizhi_moist.F 284 MOISTIO 
         shgather(indx,L) = qz(i,j,L,1)
./pkg/fizhi/fizhi_moist.F 285 MOISTIO 
        pkegather(indx,L) = pkht(i,j,L)
./pkg/fizhi/fizhi_moist.F 286 MOISTIO 
        pkzgather(indx,L) = pkl(i,j,L)
./pkg/fizhi/fizhi_moist.F 287 MOISTIO 
        plegather(indx,L) = plze(i,j,L)
./pkg/fizhi/fizhi_moist.F 288 MOISTIO 
        plzgather(indx,L) = plz(i,j,L)
./pkg/fizhi/fizhi_moist.F 289 MOISTIO 
         dpgather(indx,L) = dpres(i,j,L)
./pkg/fizhi/fizhi_moist.F 299 MOISTIO 
        i = 1+MOD((pblindex(indx)-1),im)
./pkg/fizhi/fizhi_moist.F 300 MOISTIO 
        ugather(indx,L,nt) = qz(i,j,L,nt+ptracer)
./pkg/fizhi/fizhi_moist.F 313 MOISTIO 
        i = 1+MOD((pblindex(indx)-1),im)
./pkg/fizhi/fizhi_moist.F 314 MOISTIO 
        ugather(indx,L,ntracerin-ptracer+1) = uz(i,j,L)
./pkg/fizhi/fizhi_moist.F 315 MOISTIO 
        ugather(indx,L,ntracerin-ptracer+2) = vz(i,j,L)
./pkg/fizhi/fizhi_moist.F 332 MOISTIO 
      do i=1,im
./pkg/fizhi/fizhi_moist.F 333 MOISTIO 
      dumoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F 334 MOISTIO 
      dvmoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F 335 MOISTIO 
      dtmoist(i,j,l) = 0.
./pkg/fizhi/fizhi_moist.F 337 MOISTIO 
        dqmoist(i,j,l,nt) = 0.
./pkg/fizhi/fizhi_moist.F 388 MOISTIO 
       do i = 1,istrip
./pkg/fizhi/fizhi_moist.F 389 MOISTIO 
       if(pbl(i).eq.L) nindeces(L) = nindeces(L) + 1
./pkg/fizhi/fizhi_moist.F 417 MOISTIO 
        TMP1(I,2) = TMP1(I,2) + (PLE(I,L+1)-PLE(I,L))*TH (I,L)/sp(i)
./pkg/fizhi/fizhi_moist.F 418 MOISTIO 
        TMP1(I,3) = TMP1(I,3) + (PLE(I,L+1)-PLE(I,L))*SHL(I,L)/sp(i)
./pkg/fizhi/fizhi_moist.F 431 MOISTIO 
          do  i = num,num+nindeces(nsubcl)-1
./pkg/fizhi/fizhi_moist.F 432 MOISTIO 
          saveu(i,L,nt) = ul(i,L,nt)
./pkg/fizhi/fizhi_moist.F 440 MOISTIO 
           TMP1(I,2) = TMP1(I,2)+(PLE(I,L+1)-PLE(I,L))*UL(I,L,NT)/sp(i)
./pkg/fizhi/fizhi_moist.F 445 MOISTIO 
             usubcl(i,nt) = ul(i,nsubcl,nt)
./pkg/fizhi/fizhi_moist.F 473 MOISTIO 
      do i=num,num+nindeces(nsubcl)-1
./pkg/fizhi/fizhi_moist.F 475 MOISTIO 
      tmp2(i,1) = TH(i,NSUBCL) * PLKE(i,NSUBCL)/P0KAPPA
./pkg/fizhi/fizhi_moist.F 477 MOISTIO 
      tmp2(i,2) = tmp4(i,nsubcl)
./pkg/fizhi/fizhi_moist.F 480 MOISTIO 
      do i=num,num+nindeces(nsubcl)-1
./pkg/fizhi/fizhi_moist.F 481 MOISTIO 
       call QSAT (tmp2(i,1),tmp2(i,2),tmp2(i,3),dum,.false.)
./pkg/fizhi/fizhi_moist.F 482 MOISTIO 
       rh =  SHL(I,NSUBCL) / tmp2(i,3)
./pkg/fizhi/fizhi_moist.F 484 MOISTIO 
         rhfrac(i) = 0.
./pkg/fizhi/fizhi_moist.F 486 MOISTIO 
         rhfrac(i) = 1.
./pkg/fizhi/fizhi_moist.F 488 MOISTIO 
         rhfrac(i) = (rh-0.85)*10.
./pkg/fizhi/fizhi_moist.F 502 MOISTIO 
      do i=num,num+nindeces(nsubcl)-1
./pkg/fizhi/fizhi_moist.F 504 MOISTIO 
         rhcrit(i,L) = 1.
./pkg/fizhi/fizhi_moist.F 507 MOISTIO 
        pcheck = pl(i,L)
./pkg/fizhi/fizhi_moist.F 509 MOISTIO 
         rhcrit(i,L) = rhmin
./pkg/fizhi/fizhi_moist.F 511 MOISTIO 
         ppbl = pl(i,nsubcl)
./pkg/fizhi/fizhi_moist.F 512 MOISTIO 
         rhcrit(i,L) = rhmin + (1.-rhmin)/(19.) *
./pkg/fizhi/fizhi_moist.F 523 MOISTIO 
      do i = num,num+nindeces(nsubcl)-1
./pkg/fizhi/fizhi_moist.F 524 MOISTIO 
        saveth(i,L) = th (i,L)
./pkg/fizhi/fizhi_moist.F 525 MOISTIO 
        saveq (i,L) = shl(i,L)
./pkg/fizhi/fizhi_moist.F 526 MOISTIO 
        PCPEN (i,L) = 0.
./pkg/fizhi/fizhi_moist.F 527 MOISTIO 
        CLFRAC(i,L) = 0.
./pkg/fizhi/fizhi_moist.F 542 MOISTIO 
        dum = dp(i,L)/(ple(i,lm+1)-ple(i,nsubcl))
./pkg/fizhi/fizhi_moist.F 543 MOISTIO 
        cldmas(i,L) = cldmas(i,L-1) - dum*cldmas(i,nsubcl-1)
./pkg/fizhi/fizhi_moist.F 551 MOISTIO 
        CVTH(I,L) =  (TH (I,L) - saveth(i,l))
./pkg/fizhi/fizhi_moist.F 552 MOISTIO 
        CVQ (I,L) =  (SHL(I,L) - saveq (i,l))
./pkg/fizhi/fizhi_moist.F 557 MOISTIO 
        CVTH(I,L) = cvth(i,nsubcl)
./pkg/fizhi/fizhi_moist.F 558 MOISTIO 
        CVQ (I,L) = cvq (i,nsubcl)
./pkg/fizhi/fizhi_moist.F 564 MOISTIO 
        TH (I,L) = saveth(i,l) + cvth(i,l)
./pkg/fizhi/fizhi_moist.F 565 MOISTIO 
        SHL(I,L) = saveq (i,l) + cvq (i,l)
./pkg/fizhi/fizhi_moist.F 580 MOISTIO 
         CVU(I,L,nt) = ( UL(I,L,nt)-saveu(i,l,nt) )*sp(i)*tminv
./pkg/fizhi/fizhi_moist.F 585 MOISTIO 
         if( usubcl(i,nt).ne.0.0 ) then
./pkg/fizhi/fizhi_moist.F 586 MOISTIO 
          cvu(i,L,nt) = ( ul(i,nsubcl,nt)-usubcl(i,nt) ) *
./pkg/fizhi/fizhi_moist.F 587 MOISTIO 
     .                     ( saveu(i,L,nt)/usubcl(i,nt) )*sp(i)*tminv
./pkg/fizhi/fizhi_moist.F 589 MOISTIO 
          cvu(i,L,nt) = 0.0
./pkg/fizhi/fizhi_moist.F 597 MOISTIO 
       do i=num,num+nindeces(nsubcl)-1
./pkg/fizhi/fizhi_moist.F 600 MOISTIO 
       if( cvq(i,L).ne.0.0 ) lras = .true.
./pkg/fizhi/fizhi_moist.F 602 MOISTIO 
       psubcld    (i) = 0.0
./pkg/fizhi/fizhi_moist.F 603 MOISTIO 
       psubcld_cnt(i) = 0.0
./pkg/fizhi/fizhi_moist.F 605 MOISTIO 
       psubcld    (i) = sp(i)+ptop-ple(i,nsubcl)
./pkg/fizhi/fizhi_moist.F 606 MOISTIO 
       psubcld_cnt(i) = 1.0
./pkg/fizhi/fizhi_moist.F 665 MOISTIO 
       TMP1(I,L) = sp(i) * (SHL(I,L)-saveq(I,L)) * tminv
./pkg/fizhi/fizhi_moist.F 670 MOISTIO 
       TMP1(I,L) = sp(i) * ((TL(I,L)/PLK(I,L))-saveth(i,l)) * tminv
./pkg/fizhi/fizhi_moist.F 677 MOISTIO 
        TMP1(I,L) = ((TL(I,L)/PLK(I,L))-saveth(i,l))*plk(i,l)*sday*tminv
./pkg/fizhi/fizhi_moist.F 695 MOISTIO 
      do i=1,istrip
./pkg/fizhi/fizhi_moist.F 696 MOISTIO 
      srcld(i,L) = -clsbth(i,L)
./pkg/fizhi/fizhi_moist.F 704 MOISTIO 
      do i=1,istrip
./pkg/fizhi/fizhi_moist.F 705 MOISTIO 
      srcld(i,L) = srcld(i,L)+clsbth(i,L)
./pkg/fizhi/fizhi_moist.F 720 MOISTIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_moist.F 722 MOISTIO 
      tmp1(i,1) = 0.0
./pkg/fizhi/fizhi_moist.F 723 MOISTIO 
      tmp1(i,2) = 0.0
./pkg/fizhi/fizhi_moist.F 724 MOISTIO 
      tmp1(i,3) = 0.0
./pkg/fizhi/fizhi_moist.F 727 MOISTIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_moist.F 728 MOISTIO 
      prep(i)   = PRECIP(I) + PCNET(I)
./pkg/fizhi/fizhi_moist.F 729 MOISTIO 
      tmp1(i,1) = PRECIP(I)
./pkg/fizhi/fizhi_moist.F 730 MOISTIO 
      tmp1(i,2) = pcnet(i)
./pkg/fizhi/fizhi_moist.F 741 MOISTIO 
        do i = 1,istrip
./pkg/fizhi/fizhi_moist.F 744 MOISTIO 
            if (saveth(i,l)*plk(i,l).le. tice ) then
./pkg/fizhi/fizhi_moist.F 749 MOISTIO 
            tmp1(i,3) = prep(i)
./pkg/fizhi/fizhi_moist.F 750 MOISTIO 
            tmp1(i,1)=0.0
./pkg/fizhi/fizhi_moist.F 751 MOISTIO 
            tmp1(i,2)=0.0
./pkg/fizhi/fizhi_moist.F 824 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 825 MOISTIO 
       tmpimjm(i,j) = 1./pz(i,j)
./pkg/fizhi/fizhi_moist.F 830 MOISTIO 
      do i = 1,im
./pkg/fizhi/fizhi_moist.F 831 MOISTIO 
       dumoist(i,j,L) = dumoist(i,j,L) * tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F 832 MOISTIO 
       dvmoist(i,j,L) = dvmoist(i,j,L) * tmpimjm(i,j)
./pkg/fizhi/fizhi_moist.F 859 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 860 MOISTIO 
        tmpdiag(i,j) = cldsr(i,j,L)
./pkg/fizhi/fizhi_moist.F 872 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 873 MOISTIO 
        indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 874 MOISTIO 
        tmpdiag(i,j)=(dtmoist(i,j,L)*sday*pkzgather(indgath,L)/pz(i,j))
./pkg/fizhi/fizhi_moist.F 886 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 887 MOISTIO 
        tmpdiag(i,j)=(dqmoist(i,j,L,1)*sday*1000./pz(i,j))
./pkg/fizhi/fizhi_moist.F 899 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 900 MOISTIO 
        tmpdiag(i,j)=dumoist(i,j,L)*sday
./pkg/fizhi/fizhi_moist.F 912 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 913 MOISTIO 
        tmpdiag(i,j)=dvmoist(i,j,L)*sday
./pkg/fizhi/fizhi_moist.F 925 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 926 MOISTIO 
        indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 927 MOISTIO 
        tmpdiag(i,j)=tmpgather(indgath,L)
./pkg/fizhi/fizhi_moist.F 939 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 940 MOISTIO 
        indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 941 MOISTIO 
        tmpdiag(i,j)=pkegather(indgath,L)
./pkg/fizhi/fizhi_moist.F 953 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 954 MOISTIO 
        indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 955 MOISTIO 
        tmpdiag(i,j)=deltrnev(indgath,L)
./pkg/fizhi/fizhi_moist.F 967 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 968 MOISTIO 
        indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 969 MOISTIO 
        tmpdiag(i,j)=delqrnev(indgath,L)
./pkg/fizhi/fizhi_moist.F 980 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 981 MOISTIO 
        tmpdiag(i,j) = (lsp_new(I,j) + snow_new(I,j) + conv_new(i,j))
./pkg/fizhi/fizhi_moist.F 992 MOISTIO 
       do i=1,im
./pkg/fizhi/fizhi_moist.F 993 MOISTIO 
        indgath = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 994 MOISTIO 
        tmpdiag(i,j) = raincgath(indgath)*sday*tminv
./pkg/fizhi/fizhi_rayleigh.F 104 RAYLEIGH 
       do i=1,im
./pkg/fizhi/fizhi_rayleigh.F 105 RAYLEIGH 
        tmpdiag(i,j) = rfu(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 113 RAYLEIGH 
       do i=1,im
./pkg/fizhi/fizhi_rayleigh.F 114 RAYLEIGH 
        tmpdiag(i,j) = rfv(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 122 RAYLEIGH 
       do i=1,im
./pkg/fizhi/fizhi_rayleigh.F 123 RAYLEIGH 
        tmpdiag(i,j) = rft(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 44 RAYLEIGH 
      integer  i,j,L
./pkg/fizhi/fizhi_rayleigh.F 66 RAYLEIGH 
       do i=1,im
./pkg/fizhi/fizhi_rayleigh.F 67 RAYLEIGH 
        dz(i,j,L) = cpog * (pekap(i,j,L+1)-pekap(i,j,L)) * t(i,j,L) *
./pkg/fizhi/fizhi_rayleigh.F 68 RAYLEIGH 
     .                (1.+virtcon*s(i,j,L))
./pkg/fizhi/fizhi_rayleigh.F 74 RAYLEIGH 
      do i=1,im
./pkg/fizhi/fizhi_rayleigh.F 75 RAYLEIGH 
       z(i,j,lm) = zsurf(i,j) +  0.5 * dz(i,j,lm)
./pkg/fizhi/fizhi_rayleigh.F 81 RAYLEIGH 
       do i=1,im
./pkg/fizhi/fizhi_rayleigh.F 82 RAYLEIGH 
        z(i,j,L) = z(i,j,L+1) + 0.5 * (dz(i,j,L)+dz(i,j,L+1))
./pkg/fizhi/fizhi_rayleigh.F 89 RAYLEIGH 
       do i=1,im
./pkg/fizhi/fizhi_rayleigh.F 90 RAYLEIGH 
        rf(i,j,L) = dampcoef*(1+tanh((z(i,j,L)-50000.)/5000.))/86400.
./pkg/fizhi/fizhi_rayleigh.F 91 RAYLEIGH 
        rfu(i,j,L) = - rf(i,j,L) * u(i,j,L)
./pkg/fizhi/fizhi_rayleigh.F 92 RAYLEIGH 
        rfv(i,j,L) = - rf(i,j,L) * v(i,j,L)
./pkg/fizhi/fizhi_rayleigh.F 93 RAYLEIGH 
        rft(i,j,L) = -(u(i,j,L)*rfu(i,j,L) + v(i,j,L)*rfv(i,j,L) )*cpinv
./pkg/fizhi/fizhi_rayleigh.F 94 RAYLEIGH 
     .                        /pkap(i,j,L)
./pkg/fizhi/fizhi_read_pickup.F 42 FIZHI_READ_PICKUP 
      INTEGER i, prec
./pkg/fizhi/fizhi_read_pickup.F 47 FIZHI_READ_PICKUP 
      DO i = 1,MAX_LEN_FNAM
./pkg/fizhi/fizhi_read_pickup.F 48 FIZHI_READ_PICKUP 
        fn(i:i) = ' '
./pkg/fizhi/fizhi_read_pickup.F 77 FIZHI_READ_PICKUP 
       do i = 1-OLx,sNx+OLx
./pkg/fizhi/fizhi_read_pickup.F 78 FIZHI_READ_PICKUP 
        raincon(i,j,bi,bj) = temp(i,j,1,bi,bj)
./pkg/fizhi/fizhi_read_pickup.F 79 FIZHI_READ_PICKUP 
        rainlsp(i,j,bi,bj) = temp(i,j,2,bi,bj)
./pkg/fizhi/fizhi_read_pickup.F 80 FIZHI_READ_PICKUP 
        snowfall(i,j,bi,bj) = temp(i,j,3,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 320 FIZHI_READ_VEGTILES 
      integer i,k,n
./pkg/fizhi/fizhi_readwrite_vegtiles.F 326 FIZHI_READ_VEGTILES 
      DO i = 1,80
./pkg/fizhi/fizhi_readwrite_vegtiles.F 327 FIZHI_READ_VEGTILES 
        bnam(i:i) = ' '
./pkg/fizhi/fizhi_readwrite_vegtiles.F 48 FIZHI_WRITE_VEGTILES 
      integer i,k,n
./pkg/fizhi/fizhi_readwrite_vegtiles.F 56 FIZHI_WRITE_VEGTILES 
      DO i = 1,80
./pkg/fizhi/fizhi_readwrite_vegtiles.F 57 FIZHI_WRITE_VEGTILES 
        bnam(i:i) = ' '
./pkg/fizhi/fizhi_step_diag.F 107 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 108 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 118 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 119 FIZHI_STEP_DIAG 
        if(radswt(i,j,bi,bj).ne.0.) then
./pkg/fizhi/fizhi_step_diag.F 120 FIZHI_STEP_DIAG 
         tmpdiag(i,j) = osr(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 122 FIZHI_STEP_DIAG 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_step_diag.F 133 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 134 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = st4(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 135 FIZHI_STEP_DIAG 
     .                 + dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F 145 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 146 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = radlwg(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 147 FIZHI_STEP_DIAG 
     .                  dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F 157 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 158 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = lwgclr(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 159 FIZHI_STEP_DIAG 
     .                  dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F 172 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 173 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (moistu (i,j,L,bi,bj)+turbu(i,j,L,bi,bj) )*86400
./pkg/fizhi/fizhi_step_diag.F 183 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 184 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (moistv (i,j,L,bi,bj)+turbv(i,j,L,bi,bj) )*86400
./pkg/fizhi/fizhi_step_diag.F 194 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 195 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 196 FIZHI_STEP_DIAG 
     .   ( turbt(i,j,L,bi,bj) + moistt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 197 FIZHI_STEP_DIAG 
     .      lwdt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 198 FIZHI_STEP_DIAG 
     .      dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) +
./pkg/fizhi/fizhi_step_diag.F 199 FIZHI_STEP_DIAG 
     .      swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )
./pkg/fizhi/fizhi_step_diag.F 200 FIZHI_STEP_DIAG 
     .      * pk(i,j,L,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 210 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 211 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 212 FIZHI_STEP_DIAG 
     . ( turbq(i,j,L,1,bi,bj) + moistq(i,j,L,1,bi,bj) ) *
./pkg/fizhi/fizhi_step_diag.F 213 FIZHI_STEP_DIAG 
     .                                      pinv(i,j)*86400*1000
./pkg/fizhi/fizhi_step_diag.F 223 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 224 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 225 FIZHI_STEP_DIAG 
     . ( lwdt(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 226 FIZHI_STEP_DIAG 
     .            dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) )
./pkg/fizhi/fizhi_step_diag.F 227 FIZHI_STEP_DIAG 
     .                      * pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 237 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 238 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 239 FIZHI_STEP_DIAG 
     . ( lwdtclr(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 240 FIZHI_STEP_DIAG 
     .            dlwdtg (i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) )
./pkg/fizhi/fizhi_step_diag.F 241 FIZHI_STEP_DIAG 
     .                      * pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 251 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 252 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 253 FIZHI_STEP_DIAG 
     .  + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)*
./pkg/fizhi/fizhi_step_diag.F 254 FIZHI_STEP_DIAG 
     .                   pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 264 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 265 FIZHI_STEP_DIAG 
        tmpdiag(i,j) =
./pkg/fizhi/fizhi_step_diag.F 266 FIZHI_STEP_DIAG 
     .  + swdtclr(i,j,l,bi,bj)*radswt(i,j,bi,bj)*
./pkg/fizhi/fizhi_step_diag.F 267 FIZHI_STEP_DIAG 
     .                   pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 277 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 278 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = uphy(i,j,L)
./pkg/fizhi/fizhi_step_diag.F 288 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 289 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = vphy(i,j,L)
./pkg/fizhi/fizhi_step_diag.F 299 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 300 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 310 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 311 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = qq(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 321 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 322 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = sphy(i,j,L) * 1000.
./pkg/fizhi/fizhi_step_diag.F 336 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 337 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 342 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 343 FIZHI_STEP_DIAG 
       qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F 344 FIZHI_STEP_DIAG 
     .             moistt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 349 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 350 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 360 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 361 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 366 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 367 FIZHI_STEP_DIAG 
       qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F 368 FIZHI_STEP_DIAG 
     .             turbt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 373 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 374 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 384 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 385 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 390 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 391 FIZHI_STEP_DIAG 
        qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 392 FIZHI_STEP_DIAG 
     .  dlwdtg(i,j,L,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) )
./pkg/fizhi/fizhi_step_diag.F 393 FIZHI_STEP_DIAG 
     .             *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 398 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 399 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*pinv(i,j)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 409 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 410 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 415 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 416 FIZHI_STEP_DIAG 
        qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F 417 FIZHI_STEP_DIAG 
     .             swdt(i,j,L,bi,bj)*pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 41 FIZHI_STEP_DIAG 
      integer  i,j,L
./pkg/fizhi/fizhi_step_diag.F 422 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 423 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j) *
./pkg/fizhi/fizhi_step_diag.F 424 FIZHI_STEP_DIAG 
     .             radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400
./pkg/fizhi/fizhi_step_diag.F 435 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 436 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 441 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 442 FIZHI_STEP_DIAG 
       qbar(i,j) = qbar(i,j) +
./pkg/fizhi/fizhi_step_diag.F 443 FIZHI_STEP_DIAG 
     .             sphy(i,j,L)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 448 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 449 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity
./pkg/fizhi/fizhi_step_diag.F 53 FIZHI_STEP_DIAG 
      do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 54 FIZHI_STEP_DIAG 
      pinv(i,j) = 1.0 / p(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 74 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 75 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 85 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 86 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 96 FIZHI_STEP_DIAG 
       do i=im1,im2
./pkg/fizhi/fizhi_step_diag.F 97 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_swrad.F 1012 CLDSCALE 
      integer i,j,k,im,it,ia,kk
./pkg/fizhi/fizhi_swrad.F 1034 CLDSCALE 
       do i=1,m
./pkg/fizhi/fizhi_swrad.F 1035 CLDSCALE 
          cc(i,j,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1036 CLDSCALE 
          cc(i,j,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1037 CLDSCALE 
          cc(i,j,3)=0.0
./pkg/fizhi/fizhi_swrad.F 1043 CLDSCALE 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 1044 CLDSCALE 
           cc(i,j,1)=max(cc(i,j,1),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 1051 CLDSCALE 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 1052 CLDSCALE 
           cc(i,j,2)=max(cc(i,j,2),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 1059 CLDSCALE 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 1060 CLDSCALE 
           cc(i,j,3)=max(cc(i,j,3),fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 1080 CLDSCALE 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 1082 CLDSCALE 
         tauclb(i,j,k) = 0.0
./pkg/fizhi/fizhi_swrad.F 1083 CLDSCALE 
         tauclf(i,j,k) = 0.0
./pkg/fizhi/fizhi_swrad.F 1085 CLDSCALE 
         taux=taucld(i,j,k,1)+taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F 1086 CLDSCALE 
         if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F 1090 CLDSCALE 
           fa=fcld(i,j,k)/cc(i,j,kk)
./pkg/fizhi/fizhi_swrad.F 1096 CLDSCALE 
           fm=cosz(i,j)/dm
./pkg/fizhi/fizhi_swrad.F 1132 CLDSCALE 
           tauclb(i,j,k) = taux*xai
./pkg/fizhi/fizhi_swrad.F 1147 CLDSCALE 
           tauclf(i,j,k) = taux*xai
./pkg/fizhi/fizhi_swrad.F 116 SWRIO 
      do i=1,im
./pkg/fizhi/fizhi_swrad.F 117 SWRIO 
      tdry(i,j,L) = tz(i,j,L)*pkz(i,j,L)
./pkg/fizhi/fizhi_swrad.F 1253 SOLIR 
      integer ib,ik,i,j,k
./pkg/fizhi/fizhi_swrad.F 1322 SOLIR 
       do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1323 SOLIR 
         fdirir(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1324 SOLIR 
         fdifir(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1325 SOLIR 
         rr(i,j,np+1,1)=rsirbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1326 SOLIR 
         rr(i,j,np+1,2)=rsirbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1327 SOLIR 
         rs(i,j,np+1,1)=rsirdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1328 SOLIR 
         rs(i,j,np+1,2)=rsirdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1329 SOLIR 
         td(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1330 SOLIR 
         td(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1331 SOLIR 
         tt(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1332 SOLIR 
         tt(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1333 SOLIR 
         ts(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1334 SOLIR 
         ts(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1348 SOLIR 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1350 SOLIR 
           ssaclt(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F 1351 SOLIR 
           asyclt(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F 1353 SOLIR 
           taux=taucld(i,j,k,1)+taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F 1354 SOLIR 
          if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F 1356 SOLIR 
           reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_swrad.F 1357 SOLIR 
           reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1360 SOLIR 
     *         aia(ib,3)*reff1)*reff1))*taucld(i,j,k,1)
./pkg/fizhi/fizhi_swrad.F 1362 SOLIR 
     *         awa(ib,3)*reff2)*reff2))*taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F 1363 SOLIR 
           ssaclt(i,j)=(w1+w2)/taux
./pkg/fizhi/fizhi_swrad.F 1367 SOLIR 
           asyclt(i,j)=(g1+g2)/(w1+w2)
./pkg/fizhi/fizhi_swrad.F 1375 SOLIR 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1376 SOLIR 
            ssacl(i,j,k)=ssaclt(i,j)
./pkg/fizhi/fizhi_swrad.F 1380 SOLIR 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1381 SOLIR 
            asycl(i,j,k)=asyclt(i,j)
./pkg/fizhi/fizhi_swrad.F 1394 SOLIR 
            do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1396 SOLIR 
             tauwv=xk(ik)*wh(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1401 SOLIR 
             tausto=tauwv+taual(i,j,k)+1.0e-8
./pkg/fizhi/fizhi_swrad.F 1402 SOLIR 
             ssatau=ssaal(ib)*taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1403 SOLIR 
             asysto=asyal(ib)*ssaal(ib)*taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1422 SOLIR 
             td1t(i,j)=expmn(-tauto*csm(i,j))
./pkg/fizhi/fizhi_swrad.F 1423 SOLIR 
             ts1t(i,j)=expmn(-1.66*tauto)
./pkg/fizhi/fizhi_swrad.F 1424 SOLIR 
             tt1t(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1425 SOLIR 
             rr1t(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1426 SOLIR 
             rs1t(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1432 SOLIR 
             if (tauclb(i,j,k) .lt. 0.01) then
./pkg/fizhi/fizhi_swrad.F 1434 SOLIR 
              rr2t(i,j)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1435 SOLIR 
              tt2t(i,j)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1436 SOLIR 
              td2t(i,j)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1437 SOLIR 
              rs2t(i,j)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1438 SOLIR 
              ts2t(i,j)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1442 SOLIR 
              tauto=tausto+tauclb(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1443 SOLIR 
              ssato=(ssatau+ssacl(i,j,k)*tauclb(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F 1445 SOLIR 
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclb(i,j,k))/
./pkg/fizhi/fizhi_swrad.F 1448 SOLIR 
              call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F 1449 SOLIR 
     *                    rr2t(i,j),tt2t(i,j),td2t(i,j))
./pkg/fizhi/fizhi_swrad.F 1451 SOLIR 
              tauto=tausto+tauclf(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1452 SOLIR 
              ssato=(ssatau+ssacl(i,j,k)*tauclf(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F 1454 SOLIR 
              asyto=(asysto+asycl(i,j,k)*ssacl(i,j,k)*tauclf(i,j,k))/
./pkg/fizhi/fizhi_swrad.F 1457 SOLIR 
              call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j))
./pkg/fizhi/fizhi_swrad.F 1468 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1469 SOLIR 
               rr(i,j,k,1)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1473 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1474 SOLIR 
               tt(i,j,k,1)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1478 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1479 SOLIR 
               td(i,j,k,1)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1483 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1484 SOLIR 
               rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1488 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1489 SOLIR 
               ts(i,j,k,1)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1494 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1495 SOLIR 
               rr(i,j,k,2)=rr2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1499 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1500 SOLIR 
               tt(i,j,k,2)=tt2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1504 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1505 SOLIR 
               td(i,j,k,2)=td2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1509 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1510 SOLIR 
               rs(i,j,k,2)=rs2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1514 SOLIR 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 1515 SOLIR 
               ts(i,j,k,2)=ts2t(i,j)
./pkg/fizhi/fizhi_swrad.F 151 SWRIO 
      do i = 1,im
./pkg/fizhi/fizhi_swrad.F 1525 SOLIR 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1526 SOLIR 
          fclr(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F 1527 SOLIR 
          fall(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F 1532 SOLIR 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1533 SOLIR 
         fsdir(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 1534 SOLIR 
         fsdif(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 1543 SOLIR 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1544 SOLIR 
          flx(i,j,k) = flx(i,j,k)+fall(i,j,k)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F 1548 SOLIR 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1549 SOLIR 
          flc(i,j,k) = flc(i,j,k)+fclr(i,j,k)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F 1555 SOLIR 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1556 SOLIR 
          fdirir(i,j) = fdirir(i,j)+fsdir(i,j)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F 1557 SOLIR 
          fdifir(i,j) = fdifir(i,j)+fsdif(i,j)*hk(ib,ik)
./pkg/fizhi/fizhi_swrad.F 1676 SOLUV 
      integer i,j,k,ib
./pkg/fizhi/fizhi_swrad.F 167 SWRIO 
      do i =1,im
./pkg/fizhi/fizhi_swrad.F 168 SWRIO 
      cldlow(i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F 169 SWRIO 
      cldmid(i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F 170 SWRIO 
      cldhi (i,j) = 0.0
./pkg/fizhi/fizhi_swrad.F 1720 SOLUV 
       do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1721 SOLUV 
         rr(i,j,np+1,1)=rsuvbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1722 SOLUV 
         rr(i,j,np+1,2)=rsuvbm(i,j)
./pkg/fizhi/fizhi_swrad.F 1723 SOLUV 
         rs(i,j,np+1,1)=rsuvdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1724 SOLUV 
         rs(i,j,np+1,2)=rsuvdf(i,j)
./pkg/fizhi/fizhi_swrad.F 1725 SOLUV 
         td(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1726 SOLUV 
         td(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1727 SOLUV 
         tt(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1728 SOLUV 
         tt(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1729 SOLUV 
         ts(i,j,np+1,1)=0.0
./pkg/fizhi/fizhi_swrad.F 1730 SOLUV 
         ts(i,j,np+1,2)=0.0
./pkg/fizhi/fizhi_swrad.F 1740 SOLUV 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1742 SOLUV 
           asyclt(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F 1744 SOLUV 
           taux=taucld(i,j,k,1)+taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F 1745 SOLUV 
          if (taux.gt.0.05 .and. fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F 1747 SOLUV 
           reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_swrad.F 1748 SOLUV 
           reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1750 SOLUV 
           g1=(aig(1)+(aig(2)+aig(3)*reff1)*reff1)*taucld(i,j,k,1)
./pkg/fizhi/fizhi_swrad.F 1751 SOLUV 
           g2=(awg(1)+(awg(2)+awg(3)*reff2)*reff2)*taucld(i,j,k,2)
./pkg/fizhi/fizhi_swrad.F 1752 SOLUV 
           asyclt(i,j)=(g1+g2)/taux
./pkg/fizhi/fizhi_swrad.F 1760 SOLUV 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 1761 SOLUV 
           asycl(i,j,k)=asyclt(i,j)
./pkg/fizhi/fizhi_swrad.F 1768 SOLUV 
       do i=1,m
./pkg/fizhi/fizhi_swrad.F 1769 SOLUV 
        fdiruv(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1770 SOLUV 
        fdifuv(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 1781 SOLUV 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1785 SOLUV 
          taurs=ry(ib)*dp(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1786 SOLUV 
          tauoz=xk(ib)*oh(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1791 SOLUV 
          tausto=taurs+tauoz+taual(i,j,k)+1.0e-8
./pkg/fizhi/fizhi_swrad.F 1792 SOLUV 
          ssatau=ssaal(ib)*taual(i,j,k)+taurs
./pkg/fizhi/fizhi_swrad.F 1793 SOLUV 
          asysto=asyal(ib)*ssaal(ib)*taual(i,j,k)
./pkg/fizhi/fizhi_swrad.F 179 SWRIO 
        do i =1,im
./pkg/fizhi/fizhi_swrad.F 1802 SOLUV 
          call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F 1803 SOLUV 
     *                rr1t(i,j),tt1t(i,j),td1t(i,j))
./pkg/fizhi/fizhi_swrad.F 1805 SOLUV 
          call SAGPOL (tauto,ssato,asyto,rs1t(i,j),ts1t(i,j))
./pkg/fizhi/fizhi_swrad.F 1809 SOLUV 
          if (tauclb(i,j,k) .lt. 0.01) then
./pkg/fizhi/fizhi_swrad.F 180 SWRIO 
           cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/
./pkg/fizhi/fizhi_swrad.F 1811 SOLUV 
           rr2t(i,j)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1812 SOLUV 
           tt2t(i,j)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1813 SOLUV 
           td2t(i,j)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1814 SOLUV 
           rs2t(i,j)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1815 SOLUV 
           ts2t(i,j)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1819 SOLUV 
           tauto=tausto+tauclb(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1820 SOLUV 
           ssato=(ssatau+tauclb(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F 1822 SOLUV 
           asyto=(asysto+asycl(i,j,k)*tauclb(i,j,k))/(ssato*tauto)
./pkg/fizhi/fizhi_swrad.F 1824 SOLUV 
           call DELEDD(tauto,ssato,asyto,csm(i,j),
./pkg/fizhi/fizhi_swrad.F 1825 SOLUV 
     *                 rr2t(i,j),tt2t(i,j),td2t(i,j))
./pkg/fizhi/fizhi_swrad.F 1827 SOLUV 
           tauto=tausto+tauclf(i,j,k)
./pkg/fizhi/fizhi_swrad.F 1828 SOLUV 
           ssato=(ssatau+tauclf(i,j,k))/tauto+1.0e-8
./pkg/fizhi/fizhi_swrad.F 182 SWRIO 
           cldmxo(i,j,L)=min(1.0 _d 0,cswmo(i,j,L))
./pkg/fizhi/fizhi_swrad.F 1830 SOLUV 
           asyto=(asysto+asycl(i,j,k)*tauclf(i,j,k))/(ssato*tauto)
./pkg/fizhi/fizhi_swrad.F 1832 SOLUV 
           call SAGPOL (tauto,ssato,asyto,rs2t(i,j),ts2t(i,j))
./pkg/fizhi/fizhi_swrad.F 183 SWRIO 
           swlz(i,j,L)=swlz(i,j,L)+qliqave(i,j,L)/imstturb
./pkg/fizhi/fizhi_swrad.F 1840 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1841 SOLUV 
            rr(i,j,k,1)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1845 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1846 SOLUV 
            tt(i,j,k,1)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1850 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1851 SOLUV 
            td(i,j,k,1)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1855 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1856 SOLUV 
            rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1860 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1861 SOLUV 
            ts(i,j,k,1)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1866 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1867 SOLUV 
            rr(i,j,k,2)=rr2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1871 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1872 SOLUV 
            tt(i,j,k,2)=tt2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1876 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1877 SOLUV 
            td(i,j,k,2)=td2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1881 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1882 SOLUV 
            rs(i,j,k,2)=rs2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1886 SOLUV 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 1887 SOLUV 
            ts(i,j,k,2)=ts2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1897 SOLUV 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1898 SOLUV 
          fclr(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F 1899 SOLUV 
          fall(i,j,k) = 0.
./pkg/fizhi/fizhi_swrad.F 1904 SOLUV 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1905 SOLUV 
         fsdir(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 1906 SOLUV 
         fsdif(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 190 SWRIO 
        do i =1,im
./pkg/fizhi/fizhi_swrad.F 1914 SOLUV 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 1915 SOLUV 
          flx(i,j,k)=flx(i,j,k)+fall(i,j,k)*hk(ib)
./pkg/fizhi/fizhi_swrad.F 1919 SOLUV 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 191 SWRIO 
         cldtot(i,j,L) =  min( 1.0 _d 0,cldsw(i,j,L) )
./pkg/fizhi/fizhi_swrad.F 1920 SOLUV 
          flc(i,j,k)=flc(i,j,k)+fclr(i,j,k)*hk(ib)
./pkg/fizhi/fizhi_swrad.F 1927 SOLUV 
          do i=1,m
./pkg/fizhi/fizhi_swrad.F 1928 SOLUV 
           fdirpar(i,j)=fsdir(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F 1929 SOLUV 
           fdifpar(i,j)=fsdif(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F 192 SWRIO 
         cldmxo(i,j,L) =  min( 1.0 _d 0,cswmo(i,j,L) )
./pkg/fizhi/fizhi_swrad.F 1934 SOLUV 
          do i=1,m
./pkg/fizhi/fizhi_swrad.F 1935 SOLUV 
           fdiruv(i,j)=fdiruv(i,j)+fsdir(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F 1936 SOLUV 
           fdifuv(i,j)=fdifuv(i,j)+fsdif(i,j)*hk(ib)
./pkg/fizhi/fizhi_swrad.F 203 SWRIO 
      do i = 1,im
./pkg/fizhi/fizhi_swrad.F 207 SWRIO 
             cldhi (i,j) = max( cldtot(i,j,L),cldhi (i,j) )
./pkg/fizhi/fizhi_swrad.F 210 SWRIO 
             cldmid(i,j) = max( cldtot(i,j,L),cldmid(i,j) )
./pkg/fizhi/fizhi_swrad.F 212 SWRIO 
             cldlow(i,j) = max( cldtot(i,j,L),cldlow(i,j) )
./pkg/fizhi/fizhi_swrad.F 2204 CLDFLX 
      integer i,j,k,ih,im,is
./pkg/fizhi/fizhi_swrad.F 2220 CLDFLX 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 2221 CLDFLX 
           fall(i,j,k)=0.0
./pkg/fizhi/fizhi_swrad.F 2227 CLDFLX 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 2228 CLDFLX 
           fsdir(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 2229 CLDFLX 
           fsdif(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 223 SWRIO 
      do i = 1,im
./pkg/fizhi/fizhi_swrad.F 2248 CLDFLX 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2249 CLDFLX 
          tda(i,j,1,ih,1)=td(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F 224 SWRIO 
      totcld(i,j) = 1.0 - (1.-cldhi (i,j))
./pkg/fizhi/fizhi_swrad.F 2250 CLDFLX 
          tta(i,j,1,ih,1)=tt(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F 2251 CLDFLX 
          rsa(i,j,1,ih,1)=rs(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F 2252 CLDFLX 
          tda(i,j,1,ih,2)=td(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F 2253 CLDFLX 
          tta(i,j,1,ih,2)=tt(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F 2254 CLDFLX 
          rsa(i,j,1,ih,2)=rs(i,j,1,ih)
./pkg/fizhi/fizhi_swrad.F 225 SWRIO 
     .                  * (1.-cldmid(i,j))
./pkg/fizhi/fizhi_swrad.F 2260 CLDFLX 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2261 CLDFLX 
          denm = ts(i,j,k,ih)/( 1.-rsa(i,j,k-1,ih,1)*rs(i,j,k,ih))
./pkg/fizhi/fizhi_swrad.F 2262 CLDFLX 
          tda(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*td(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2263 CLDFLX 
          tta(i,j,k,ih,1)= tda(i,j,k-1,ih,1)*tt(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2264 CLDFLX 
     *                  +(tda(i,j,k-1,ih,1)*rr(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2265 CLDFLX 
     *                  *rsa(i,j,k-1,ih,1)+tta(i,j,k-1,ih,1))*denm
./pkg/fizhi/fizhi_swrad.F 2266 CLDFLX 
          rsa(i,j,k,ih,1)= rs(i,j,k,ih)+ts(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2267 CLDFLX 
     *                  *rsa(i,j,k-1,ih,1)*denm
./pkg/fizhi/fizhi_swrad.F 2268 CLDFLX 
          tda(i,j,k,ih,2)= tda(i,j,k,ih,1)
./pkg/fizhi/fizhi_swrad.F 2269 CLDFLX 
          tta(i,j,k,ih,2)= tta(i,j,k,ih,1)
./pkg/fizhi/fizhi_swrad.F 226 SWRIO 
     .                  * (1.-cldlow(i,j))
./pkg/fizhi/fizhi_swrad.F 2270 CLDFLX 
          rsa(i,j,k,ih,2)= rsa(i,j,k,ih,1)
./pkg/fizhi/fizhi_swrad.F 2281 CLDFLX 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2282 CLDFLX 
          denm = ts(i,j,k,im)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,im))
./pkg/fizhi/fizhi_swrad.F 2283 CLDFLX 
          tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2284 CLDFLX 
          tta(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*tt(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2285 CLDFLX 
     *                  +(tda(i,j,k-1,ih,im)*rr(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2286 CLDFLX 
     *                  *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm
./pkg/fizhi/fizhi_swrad.F 2287 CLDFLX 
          rsa(i,j,k,ih,im)= rs(i,j,k,im)+ts(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2288 CLDFLX 
     *                  *rsa(i,j,k-1,ih,im)*denm
./pkg/fizhi/fizhi_swrad.F 2306 CLDFLX 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2307 CLDFLX 
         rra(i,j,np+1,1,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2308 CLDFLX 
         rxa(i,j,np+1,1,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2309 CLDFLX 
         rra(i,j,np+1,2,is)=rr(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2310 CLDFLX 
         rxa(i,j,np+1,2,is)=rs(i,j,np+1,is)
./pkg/fizhi/fizhi_swrad.F 2316 CLDFLX 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2317 CLDFLX 
          denm=ts(i,j,k,is)/( 1.-rs(i,j,k,is)*rxa(i,j,k+1,1,is) )
./pkg/fizhi/fizhi_swrad.F 2318 CLDFLX 
          rra(i,j,k,1,is)=rr(i,j,k,is)+(td(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2319 CLDFLX 
     *        *rra(i,j,k+1,1,is)+tt(i,j,k,is)*rxa(i,j,k+1,1,is))*denm
./pkg/fizhi/fizhi_swrad.F 2320 CLDFLX 
          rxa(i,j,k,1,is)= rs(i,j,k,is)+ts(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2321 CLDFLX 
     *        *rxa(i,j,k+1,1,is)*denm
./pkg/fizhi/fizhi_swrad.F 2322 CLDFLX 
          rra(i,j,k,2,is)=rra(i,j,k,1,is)
./pkg/fizhi/fizhi_swrad.F 2323 CLDFLX 
          rxa(i,j,k,2,is)=rxa(i,j,k,1,is)
./pkg/fizhi/fizhi_swrad.F 2334 CLDFLX 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2335 CLDFLX 
          denm=ts(i,j,k,im)/( 1.-rs(i,j,k,im)*rxa(i,j,k+1,im,is) )
./pkg/fizhi/fizhi_swrad.F 2336 CLDFLX 
          rra(i,j,k,im,is)= rr(i,j,k,im)+(td(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2337 CLDFLX 
     *        *rra(i,j,k+1,im,is)+tt(i,j,k,im)*rxa(i,j,k+1,im,is))*denm
./pkg/fizhi/fizhi_swrad.F 2338 CLDFLX 
          rxa(i,j,k,im,is)= rs(i,j,k,im)+ts(i,j,k,im)
./pkg/fizhi/fizhi_swrad.F 2339 CLDFLX 
     *        *rxa(i,j,k+1,im,is)*denm
./pkg/fizhi/fizhi_swrad.F 2355 CLDFLX 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 2356 CLDFLX 
             ch(i,j)=1.0-cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F 2365 CLDFLX 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 2366 CLDFLX 
             ch(i,j)=cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F 2379 CLDFLX 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 2380 CLDFLX 
              cm(i,j)=ch(i,j)*(1.0-cc(i,j,2))
./pkg/fizhi/fizhi_swrad.F 2389 CLDFLX 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 2390 CLDFLX 
              cm(i,j)=ch(i,j)*cc(i,j,2)
./pkg/fizhi/fizhi_swrad.F 2403 CLDFLX 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 2404 CLDFLX 
             ct(i,j)=cm(i,j)*(1.0-cc(i,j,3))
./pkg/fizhi/fizhi_swrad.F 2413 CLDFLX 
            do i=1,m
./pkg/fizhi/fizhi_swrad.F 2414 CLDFLX 
             ct(i,j)=cm(i,j)*cc(i,j,3)
./pkg/fizhi/fizhi_swrad.F 241 SWRIO 
       do i=1,im
./pkg/fizhi/fizhi_swrad.F 2424 CLDFLX 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2425 CLDFLX 
          denm = ts(i,j,k,is)/( 1.-rsa(i,j,k-1,ih,im)*rs(i,j,k,is) )
./pkg/fizhi/fizhi_swrad.F 2426 CLDFLX 
          tda(i,j,k,ih,im)= tda(i,j,k-1,ih,im)*td(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2427 CLDFLX 
          tta(i,j,k,ih,im)=  tda(i,j,k-1,ih,im)*tt(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2428 CLDFLX 
     *         +(tda(i,j,k-1,ih,im)*rr(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2429 CLDFLX 
     *         *rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm
./pkg/fizhi/fizhi_swrad.F 242 SWRIO 
        tmpdiag(i,j) = cswmo(i,j,L)
./pkg/fizhi/fizhi_swrad.F 2430 CLDFLX 
          rsa(i,j,k,ih,im)= rs(i,j,k,is)+ts(i,j,k,is)
./pkg/fizhi/fizhi_swrad.F 2431 CLDFLX 
     *         *rsa(i,j,k-1,ih,im)*denm
./pkg/fizhi/fizhi_swrad.F 2440 CLDFLX 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 2441 CLDFLX 
          denm =ts(i,j,k,ih)/(1.-rs(i,j,k,ih)*rxa(i,j,k+1,im,is))
./pkg/fizhi/fizhi_swrad.F 2442 CLDFLX 
          rra(i,j,k,im,is)= rr(i,j,k,ih)+(td(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2443 CLDFLX 
     *        *rra(i,j,k+1,im,is)+tt(i,j,k,ih)*rxa(i,j,k+1,im,is))*denm
./pkg/fizhi/fizhi_swrad.F 2444 CLDFLX 
          rxa(i,j,k,im,is)= rs(i,j,k,ih)+ts(i,j,k,ih)
./pkg/fizhi/fizhi_swrad.F 2445 CLDFLX 
     *        *rxa(i,j,k+1,im,is)*denm
./pkg/fizhi/fizhi_swrad.F 2458 CLDFLX 
        do i=1, m
./pkg/fizhi/fizhi_swrad.F 2459 CLDFLX 
         denm= 1./(1.- rxa(i,j,k,im,is)*rsa(i,j,k-1,ih,im))
./pkg/fizhi/fizhi_swrad.F 2460 CLDFLX 
         fdndir(i,j)= tda(i,j,k-1,ih,im)
./pkg/fizhi/fizhi_swrad.F 2461 CLDFLX 
         xx = tda(i,j,k-1,ih,im)*rra(i,j,k,im,is)
./pkg/fizhi/fizhi_swrad.F 2462 CLDFLX 
         fdndif(i,j)= (xx*rsa(i,j,k-1,ih,im)+tta(i,j,k-1,ih,im))*denm
./pkg/fizhi/fizhi_swrad.F 2463 CLDFLX 
         fupdif= (xx+tta(i,j,k-1,ih,im)*rxa(i,j,k,im,is))*denm
./pkg/fizhi/fizhi_swrad.F 2464 CLDFLX 
         flxdn(i,j,k)=fdndir(i,j)+fdndif(i,j)-fupdif
./pkg/fizhi/fizhi_swrad.F 2470 CLDFLX 
        do i=1, m
./pkg/fizhi/fizhi_swrad.F 2471 CLDFLX 
         flxdn(i,j,1)=1.0-rra(i,j,1,im,is)
./pkg/fizhi/fizhi_swrad.F 2479 CLDFLX 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 2481 CLDFLX 
             fclr(i,j,k)=flxdn(i,j,k)
./pkg/fizhi/fizhi_swrad.F 2483 CLDFLX 
             fall(i,j,k)=fall(i,j,k)+flxdn(i,j,k)*ct(i,j)
./pkg/fizhi/fizhi_swrad.F 2489 CLDFLX 
         do i=1,m
./pkg/fizhi/fizhi_swrad.F 2490 CLDFLX 
            fsdir(i,j)=fsdir(i,j)+fdndir(i,j)*ct(i,j)
./pkg/fizhi/fizhi_swrad.F 2491 CLDFLX 
            fsdif(i,j)=fsdif(i,j)+fdndif(i,j)*ct(i,j)
./pkg/fizhi/fizhi_swrad.F 2522 FLXCO2 
      integer i,j,k,ic,iw
./pkg/fizhi/fizhi_swrad.F 252 SWRIO 
       do i=1,im
./pkg/fizhi/fizhi_swrad.F 2538 FLXCO2 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 253 SWRIO 
        tmpdiag(i,j) = cldtot(i,j,L)
./pkg/fizhi/fizhi_swrad.F 2540 FLXCO2 
          clog1=log10(swc(i,j,k)*csm(i,j))
./pkg/fizhi/fizhi_swrad.F 2541 FLXCO2 
          wlog=log10(swh(i,j,k)*csm(i,j))
./pkg/fizhi/fizhi_swrad.F 2554 FLXCO2 
          df(i,j,k)=df(i,j,k)+0.0343*(x1-y2)
./pkg/fizhi/fizhi_swrad.F 275 SWRIO 
       do i=1,im
./pkg/fizhi/fizhi_swrad.F 276 SWRIO 
        tmpdiag(i,j) = swlz(i,j,L) * 1.0e6
./pkg/fizhi/fizhi_swrad.F 310 SWRIO 
      do i = 1,im
./pkg/fizhi/fizhi_swrad.F 311 SWRIO 
      tau(i,j,L) = tautype(i,j,L,1)+tautype(i,j,L,2)+tautype(i,j,L,3)
./pkg/fizhi/fizhi_swrad.F 320 SWRIO 
       do i=1,im
./pkg/fizhi/fizhi_swrad.F 321 SWRIO 
        tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./pkg/fizhi/fizhi_swrad.F 332 SWRIO 
       do i=1,im
./pkg/fizhi/fizhi_swrad.F 333 SWRIO 
        if( cldtot(i,j,L).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F 334 SWRIO 
        tmpdiag(i,j) = tau(i,j,L)*100/(plze(i,j,L+1)-plze(i,j,L))
./pkg/fizhi/fizhi_swrad.F 335 SWRIO 
        tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F 337 SWRIO 
        tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 338 SWRIO 
        tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 352 SWRIO 
       do i = 1,im
./pkg/fizhi/fizhi_swrad.F 353 SWRIO 
        taulow(i,j) =  0.0
./pkg/fizhi/fizhi_swrad.F 354 SWRIO 
        if( cldlow(i,j).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F 356 SWRIO 
          taulow(i,j) = taulow(i,j) + tau(i,j,L)
./pkg/fizhi/fizhi_swrad.F 358 SWRIO 
         tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F 360 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 371 SWRIO 
       do i = 1,im
./pkg/fizhi/fizhi_swrad.F 372 SWRIO 
        taumid(i,j) =  0.0
./pkg/fizhi/fizhi_swrad.F 373 SWRIO 
        if( cldmid(i,j).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F 375 SWRIO 
          taumid(i,j) = taumid(i,j) + tau(i,j,L)
./pkg/fizhi/fizhi_swrad.F 377 SWRIO 
         tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F 379 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 390 SWRIO 
       do i = 1,im
./pkg/fizhi/fizhi_swrad.F 391 SWRIO 
        tauhi(i,j) =  0.0
./pkg/fizhi/fizhi_swrad.F 392 SWRIO 
        if( cldhi(i,j).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F 394 SWRIO 
          tauhi(i,j) = tauhi(i,j) + tau(i,j,L)
./pkg/fizhi/fizhi_swrad.F 396 SWRIO 
         tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F 398 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 42 SWRIO 
      integer   i,j,L,nn,nsecf
./pkg/fizhi/fizhi_swrad.F 437 SWRIO 
      do i= 1,istrip
./pkg/fizhi/fizhi_swrad.F 438 SWRIO 
              alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0)
./pkg/fizhi/fizhi_swrad.F 439 SWRIO 
      taua(i,L)   = 0.
./pkg/fizhi/fizhi_swrad.F 442 SWRIO 
      tauc(i,L,1) = taul(i,L)/(1.+alf/(1-alf) * (reffi/reffw*0.80) )
./pkg/fizhi/fizhi_swrad.F 443 SWRIO 
      tauc(i,L,2) = taul(i,L)/(1.+(1-alf)/alf * (reffw/reffi*1.25) )
./pkg/fizhi/fizhi_swrad.F 447 SWRIO 
      tauc(i,L,1) = taul(i,L)
./pkg/fizhi/fizhi_swrad.F 448 SWRIO 
      tauc(i,L,2) = 0.0
./pkg/fizhi/fizhi_swrad.F 452 SWRIO 
      tauc(i,L,1) = 0.0
./pkg/fizhi/fizhi_swrad.F 453 SWRIO 
      tauc(i,L,2) = taul(i,L)
./pkg/fizhi/fizhi_swrad.F 456 SWRIO 
      reff(i,L,1) = reffi
./pkg/fizhi/fizhi_swrad.F 457 SWRIO 
      reff(i,L,2) = reffw
./pkg/fizhi/fizhi_swrad.F 472 SWRIO 
      do i=1,istrip
./pkg/fizhi/fizhi_swrad.F 473 SWRIO 
      alf = grav*(ple(i,Lm+1)-ptop)/(cp*dpstrip(i,L)*100)
./pkg/fizhi/fizhi_swrad.F 474 SWRIO 
      dtsw (i,L) = alf*( flux   (i,L)-flux   (i,L+1) )/pk(i,L)
./pkg/fizhi/fizhi_swrad.F 475 SWRIO 
      dtswc(i,L) = alf*( fluxclr(i,L)-fluxclr(i,L+1) )/pk(i,L)
./pkg/fizhi/fizhi_swrad.F 493 SWRIO 
      do i=1,istrip
./pkg/fizhi/fizhi_swrad.F 494 SWRIO 
       if( cosz(i).gt.0.0 ) then
./pkg/fizhi/fizhi_swrad.F 495 SWRIO 
        tstrip(i) = 1.0 - flux(i,lm+1)/
./pkg/fizhi/fizhi_swrad.F 496 SWRIO 
     . ( fdirir(i)+fdifir(i)+dirpar(i)+difpar(i) + fdiruv(i)+fdifuv(i) )
./pkg/fizhi/fizhi_swrad.F 497 SWRIO 
        if( tstrip(i).lt.0.0 ) tstrip(i) = undef
./pkg/fizhi/fizhi_swrad.F 499 SWRIO 
        tstrip(i) = undef
./pkg/fizhi/fizhi_swrad.F 513 SWRIO 
       do i=1,im
./pkg/fizhi/fizhi_swrad.F 514 SWRIO 
        if( albedo(i,j).ne.undef ) then
./pkg/fizhi/fizhi_swrad.F 515 SWRIO 
         tmpdiag(i,j) = albedo(i,j)
./pkg/fizhi/fizhi_swrad.F 516 SWRIO 
         tmpdiag2(i,j) = 1.
./pkg/fizhi/fizhi_swrad.F 518 SWRIO 
         tmpdiag(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 519 SWRIO 
         tmpdiag2(i,j) = 0.
./pkg/fizhi/fizhi_swrad.F 538 SWRIO 
      do i = 1,im
./pkg/fizhi/fizhi_swrad.F 539 SWRIO 
         fccave(i,j,L) = 0.
./pkg/fizhi/fizhi_swrad.F 540 SWRIO 
        qliqave(i,j,L) = 0.
./pkg/fizhi/fizhi_swrad.F 579 OPTHK 
      integer  im,jm,lm,i,j,L
./pkg/fizhi/fizhi_swrad.F 597 OPTHK 
      do i=1,im
./pkg/fizhi/fizhi_swrad.F 598 OPTHK 
         alf   =  min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0)
./pkg/fizhi/fizhi_swrad.F 599 OPTHK 
         dp   =  ple(i,j,L+1)-ple(i,j,L)
./pkg/fizhi/fizhi_swrad.F 600 OPTHK 
         tau(i,j,L,1)  = 0.0
./pkg/fizhi/fizhi_swrad.F 601 OPTHK 
         tau(i,j,L,2)  = 0.0
./pkg/fizhi/fizhi_swrad.F 602 OPTHK 
         tau(i,j,L,3)  = 0.0
./pkg/fizhi/fizhi_swrad.F 603 OPTHK 
      if( cf(i,j,L).ne.0.0 ) then
./pkg/fizhi/fizhi_swrad.F 607 OPTHK 
         fracls = ( cf(i,j,L)-cfm(i,j,L) )/cf(i,j,L)
./pkg/fizhi/fizhi_swrad.F 618 OPTHK 
         tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F 620 OPTHK 
         tau(i,j,L,1) = fracls*(1-alf)*tauice*dp
./pkg/fizhi/fizhi_swrad.F 625 OPTHK 
         if( lwi(i,j).le.10 ) then
./pkg/fizhi/fizhi_swrad.F 626 OPTHK 
            tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F 628 OPTHK 
          tau(i,j,L,3) = fracls*alf*tauh2o*dp
./pkg/fizhi/fizhi_swrad.F 631 OPTHK 
          if( lz(i,j,L).eq.0.0 ) then
./pkg/fizhi/fizhi_swrad.F 633 OPTHK 
           tau(i,j,L,2) = fracls*alf*tauh2o*dp
./pkg/fizhi/fizhi_swrad.F 636 OPTHK 
             tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F 638 OPTHK 
           tau(i,j,L,3) = fracls*alf*tauh2o*dp
./pkg/fizhi/fizhi_swrad.F 644 OPTHK 
         if( tl(i,j,L).gt.210.0 ) then
./pkg/fizhi/fizhi_swrad.F 646 OPTHK 
         tau(i,j,L,3) = tau(i,j,L,3) + fraccu*tauras*dp
./pkg/fizhi/fizhi_swrad.F 649 OPTHK 
         tau(i,j,L,1) = tau(i,j,L,1) + fraccu*tauras*dp
./pkg/fizhi/fizhi_swrad.F 787 SORAD 
      integer i,j,k
./pkg/fizhi/fizhi_swrad.F 796 SORAD 
       do i= 1, m
./pkg/fizhi/fizhi_swrad.F 798 SORAD 
         swh(i,j,1)=0.
./pkg/fizhi/fizhi_swrad.F 799 SORAD 
         so2(i,j,1)=0.
./pkg/fizhi/fizhi_swrad.F 804 SORAD 
         csm(i,j)=35./sqrt(1224.*cosz(i,j)*cosz(i,j)+1.)
./pkg/fizhi/fizhi_swrad.F 812 SORAD 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 818 SORAD 
          dp(i,j,k)=pl(i,j,k+1)-pl(i,j,k)
./pkg/fizhi/fizhi_swrad.F 819 SORAD 
          scal(i,j,k)=dp(i,j,k)*(.5*(pl(i,j,k)+pl(i,j,k+1))/300.)**.8
./pkg/fizhi/fizhi_swrad.F 823 SORAD 
          wh(i,j,k)=1.02*wa(i,j,k)*scal(i,j,k)*
./pkg/fizhi/fizhi_swrad.F 824 SORAD 
     *              (1.+0.00135*(ta(i,j,k)-240.))
./pkg/fizhi/fizhi_swrad.F 825 SORAD 
          swh(i,j,k+1)=swh(i,j,k)+wh(i,j,k)
./pkg/fizhi/fizhi_swrad.F 829 SORAD 
          oh(i,j,k)=1.02*oa(i,j,k)*dp(i,j,k)*466.7
./pkg/fizhi/fizhi_swrad.F 849 SORAD 
        do i=1, m
./pkg/fizhi/fizhi_swrad.F 850 SORAD 
          flx(i,j,k)=0.
./pkg/fizhi/fizhi_swrad.F 851 SORAD 
          flc(i,j,k)=0.
./pkg/fizhi/fizhi_swrad.F 852 SORAD 
          df(i,j,k)=0.
./pkg/fizhi/fizhi_swrad.F 872 SORAD 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 873 SORAD 
          so2(i,j,k+1)=so2(i,j,k)+165.22*scal(i,j,k)
./pkg/fizhi/fizhi_swrad.F 884 SORAD 
         do i= 1, m
./pkg/fizhi/fizhi_swrad.F 885 SORAD 
           x=so2(i,j,k)*csm(i,j)
./pkg/fizhi/fizhi_swrad.F 886 SORAD 
           df(i,j,k)=df(i,j,k)+0.0287*(1.-expmn(-0.00027*sqrt(x)))
./pkg/fizhi/fizhi_swrad.F 895 SORAD 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 896 SORAD 
         so2(i,j,k+1)=so2(i,j,k)+co2*789.*scal(i,j,k)
./pkg/fizhi/fizhi_swrad.F 910 SORAD 
        do i= 1, m
./pkg/fizhi/fizhi_swrad.F 911 SORAD 
          flc(i,j,k)=flc(i,j,k)-df(i,j,k)
./pkg/fizhi/fizhi_swrad.F 921 SORAD 
       do i=1,m
./pkg/fizhi/fizhi_swrad.F 922 SORAD 
        sdf(i,j)=0.0
./pkg/fizhi/fizhi_swrad.F 923 SORAD 
        sclr(i,j)=1.0
./pkg/fizhi/fizhi_swrad.F 929 SORAD 
        do i=1,m
./pkg/fizhi/fizhi_swrad.F 934 SORAD 
         if(fcld(i,j,k).gt.0.01) then
./pkg/fizhi/fizhi_swrad.F 935 SORAD 
          sdf(i,j)=sdf(i,j)+df(i,j,k)*sclr(i,j)*fcld(i,j,k)
./pkg/fizhi/fizhi_swrad.F 936 SORAD 
          sclr(i,j)=sclr(i,j)*(1.-fcld(i,j,k))
./pkg/fizhi/fizhi_swrad.F 938 SORAD 
          flx(i,j,k+1)=flx(i,j,k+1)-sdf(i,j)-df(i,j,k+1)*sclr(i,j)
./pkg/fizhi/fizhi_swrad.F 946 SORAD 
       do i= 1, m
./pkg/fizhi/fizhi_swrad.F 947 SORAD 
         x = (1.-rsirdf(i,j))*fdifir(i,j) + (1.-rsirbm(i,j))*fdirir(i,j)
./pkg/fizhi/fizhi_swrad.F 948 SORAD 
         x = (-sdf(i,j)-df(i,j,np+1)*sclr(i,j))/x
./pkg/fizhi/fizhi_swrad.F 949 SORAD 
         fdirir(i,j)=fdirir(i,j)*(1.+x)
./pkg/fizhi/fizhi_swrad.F 950 SORAD 
         fdifir(i,j)=fdifir(i,j)*(1.+x)
./pkg/fizhi/fizhi_tendency_apply.F 112 FIZHI_TENDENCY_APPLY_V 
      integer i, j
./pkg/fizhi/fizhi_tendency_apply.F 125 FIZHI_TENDENCY_APPLY_V 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 126 FIZHI_TENDENCY_APPLY_V 
        gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) +
./pkg/fizhi/fizhi_tendency_apply.F 127 FIZHI_TENDENCY_APPLY_V 
     .      maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 128 FIZHI_TENDENCY_APPLY_V 
     . - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 134 FIZHI_TENDENCY_APPLY_V 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 135 FIZHI_TENDENCY_APPLY_V 
        tmpdiag(i,j) = ( maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 136 FIZHI_TENDENCY_APPLY_V 
     .    - rayleighdrag * maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 145 FIZHI_TENDENCY_APPLY_V 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 146 FIZHI_TENDENCY_APPLY_V 
        tmpdiag(i,j) = -1. _d 0 * rayleighdrag *
./pkg/fizhi/fizhi_tendency_apply.F 147 FIZHI_TENDENCY_APPLY_V 
     .       maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400
./pkg/fizhi/fizhi_tendency_apply.F 186 FIZHI_TENDENCY_APPLY_T 
      integer i, j
./pkg/fizhi/fizhi_tendency_apply.F 202 FIZHI_TENDENCY_APPLY_T 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 203 FIZHI_TENDENCY_APPLY_T 
        gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 204 FIZHI_TENDENCY_APPLY_T 
     .       *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 206 FIZHI_TENDENCY_APPLY_T 
     . (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 207 FIZHI_TENDENCY_APPLY_T 
     .  maskW(i+1,j,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 208 FIZHI_TENDENCY_APPLY_T 
     .                uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 209 FIZHI_TENDENCY_APPLY_T 
     .  maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 210 FIZHI_TENDENCY_APPLY_T 
     .  maskS(i,j+1,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 211 FIZHI_TENDENCY_APPLY_T 
     .                vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj))
./pkg/fizhi/fizhi_tendency_apply.F 217 FIZHI_TENDENCY_APPLY_T 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 218 FIZHI_TENDENCY_APPLY_T 
        tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gthphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 220 FIZHI_TENDENCY_APPLY_T 
     . (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 221 FIZHI_TENDENCY_APPLY_T 
     .  maskW(i+1,j,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 222 FIZHI_TENDENCY_APPLY_T 
     .                uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 223 FIZHI_TENDENCY_APPLY_T 
     .  maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 224 FIZHI_TENDENCY_APPLY_T 
     .  maskS(i,j+1,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 225 FIZHI_TENDENCY_APPLY_T 
     .                vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) )
./pkg/fizhi/fizhi_tendency_apply.F 234 FIZHI_TENDENCY_APPLY_T 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 235 FIZHI_TENDENCY_APPLY_T 
        tmpdiag(i,j) = ( rayleighdrag * 0.5 *
./pkg/fizhi/fizhi_tendency_apply.F 236 FIZHI_TENDENCY_APPLY_T 
     . (maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 237 FIZHI_TENDENCY_APPLY_T 
     .  maskW(i+1,j,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 238 FIZHI_TENDENCY_APPLY_T 
     .                uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 239 FIZHI_TENDENCY_APPLY_T 
     .  maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)+
./pkg/fizhi/fizhi_tendency_apply.F 240 FIZHI_TENDENCY_APPLY_T 
     .  maskS(i,j+1,kLev,bi,bj)*
./pkg/fizhi/fizhi_tendency_apply.F 241 FIZHI_TENDENCY_APPLY_T 
     .                vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)) )
./pkg/fizhi/fizhi_tendency_apply.F 280 FIZHI_TENDENCY_APPLY_S 
      integer i, j
./pkg/fizhi/fizhi_tendency_apply.F 287 FIZHI_TENDENCY_APPLY_S 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 288 FIZHI_TENDENCY_APPLY_S 
        gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 289 FIZHI_TENDENCY_APPLY_S 
     .       *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 295 FIZHI_TENDENCY_APPLY_S 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 296 FIZHI_TENDENCY_APPLY_S 
        tmpdiag(i,j) = ( maskC(i,j,kLev,bi,bj) * gsphy(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 37 FIZHI_TENDENCY_APPLY_U 
      integer i, j
./pkg/fizhi/fizhi_tendency_apply.F 50 FIZHI_TENDENCY_APPLY_U 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 51 FIZHI_TENDENCY_APPLY_U 
        gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) +
./pkg/fizhi/fizhi_tendency_apply.F 52 FIZHI_TENDENCY_APPLY_U 
     .      maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 53 FIZHI_TENDENCY_APPLY_U 
     . - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 59 FIZHI_TENDENCY_APPLY_U 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 60 FIZHI_TENDENCY_APPLY_U 
        tmpdiag(i,j) = ( maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 61 FIZHI_TENDENCY_APPLY_U 
     .    - rayleighdrag * maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 70 FIZHI_TENDENCY_APPLY_U 
       do i=iMin,iMax
./pkg/fizhi/fizhi_tendency_apply.F 71 FIZHI_TENDENCY_APPLY_U 
        tmpdiag(i,j) = -1. _d 0 * rayleighdrag *
./pkg/fizhi/fizhi_tendency_apply.F 72 FIZHI_TENDENCY_APPLY_U 
     .       maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400
./pkg/fizhi/fizhi_turb.F 1021 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 1022 TURBIO 
      tmpstrip(i) = stqflux(i,nlay) * 86400
./pkg/fizhi/fizhi_turb.F 1028 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 1029 TURBIO 
      tmpstrip(i) = stqflux(i,nlay) * alhl
./pkg/fizhi/fizhi_turb.F 1035 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 1036 TURBIO 
      tmpstrip(i) = sttflux(i,nlay) * cp
./pkg/fizhi/fizhi_turb.F 1051 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 1052 TURBIO 
      sttflux(i,l) = sttflux(i,l) * cp
./pkg/fizhi/fizhi_turb.F 1060 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 1061 TURBIO 
      stqflux(i,l) = stqflux(i,l) * alhl
./pkg/fizhi/fizhi_turb.F 1128 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 1129 TURBIO 
         if( stq2m(i).ne.undef ) then
./pkg/fizhi/fizhi_turb.F 1130 TURBIO 
             tmpstrip(i) = stq2m(i) * 1000
./pkg/fizhi/fizhi_turb.F 1132 TURBIO 
             tmpstrip(i) = undef
./pkg/fizhi/fizhi_turb.F 1151 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 1152 TURBIO 
         if( stq10m(i).ne.undef ) then
./pkg/fizhi/fizhi_turb.F 1153 TURBIO 
             tmpstrip(i) = stq10m(i) * 1000
./pkg/fizhi/fizhi_turb.F 1155 TURBIO 
             tmpstrip(i) = undef
./pkg/fizhi/fizhi_turb.F 1208 TURBIO 
      do i =1,nchptot
./pkg/fizhi/fizhi_turb.F 1209 TURBIO 
      if( (icethk(i).gt.0.).and.(tground(i).gt.tice) ) tground(i)=tice
./pkg/fizhi/fizhi_turb.F 1215 TURBIO 
      do i =1,nchptot
./pkg/fizhi/fizhi_turb.F 1216 TURBIO 
       tcanopy(i) = tground(i)
./pkg/fizhi/fizhi_turb.F 1217 TURBIO 
       ecanopy(i) = qground(i)
./pkg/fizhi/fizhi_turb.F 1223 TURBIO 
       do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 1224 TURBIO 
           duturb(i,1,L) = 0.
./pkg/fizhi/fizhi_turb.F 1225 TURBIO 
           dvturb(i,1,L) = 0.
./pkg/fizhi/fizhi_turb.F 1226 TURBIO 
           dtturb(i,1,L) = 0.
./pkg/fizhi/fizhi_turb.F 1227 TURBIO 
           qqgrid(i,1,L) = 0.
./pkg/fizhi/fizhi_turb.F 1228 TURBIO 
          qliqtmp(i,1,L) = 0.
./pkg/fizhi/fizhi_turb.F 1229 TURBIO 
           fcctmp(i,1,L) = 0.
./pkg/fizhi/fizhi_turb.F 1232 TURBIO 
        do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 1233 TURBIO 
           dqturb(i,1,L,nt) = 0.
./pkg/fizhi/fizhi_turb.F 1275 TURBIO 
       do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 1276 TURBIO 
         fccavesw(i,1,L) =  fccavesw(i,1,L) +  fcctmp(i,1,L)
./pkg/fizhi/fizhi_turb.F 1277 TURBIO 
         fccavelw(i,1,L) =  fccavelw(i,1,L) +  fcctmp(i,1,L)
./pkg/fizhi/fizhi_turb.F 1278 TURBIO 
        qliqavelw(i,1,L) = qliqavelw(i,1,L) + qliqtmp(i,1,L)
./pkg/fizhi/fizhi_turb.F 1279 TURBIO 
        qliqavesw(i,1,L) = qliqavesw(i,1,L) + qliqtmp(i,1,L)
./pkg/fizhi/fizhi_turb.F 1306 TURBIO 
      do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 1307 TURBIO 
         tgz(i,1) = 0.
./pkg/fizhi/fizhi_turb.F 1328 TURBIO 
       do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 1329 TURBIO 
        tmpdiag(i,1) = tz(i,1,nlay) * pkht(i,1,nlay)
./pkg/fizhi/fizhi_turb.F 1386 TURBIO 
         do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 1387 TURBIO 
          tmpdiag(i,1) = dtturb(i,1,l) * pkz(i,1,l)*atimstp*secday
./pkg/fizhi/fizhi_turb.F 1397 TURBIO 
      do i =1,ijall
./pkg/fizhi/fizhi_turb.F 1398 TURBIO 
      thtgz(i) = pz(i,1) * atimstp
./pkg/fizhi/fizhi_turb.F 1401 TURBIO 
       do i =1,ijall
./pkg/fizhi/fizhi_turb.F 1402 TURBIO 
        duturb(i,1,l) = duturb(i,1,l)*atimstp
./pkg/fizhi/fizhi_turb.F 1403 TURBIO 
        dvturb(i,1,l) = dvturb(i,1,l)*atimstp
./pkg/fizhi/fizhi_turb.F 1404 TURBIO 
        dtturb(i,1,l) = dtturb(i,1,l)*thtgz(i)
./pkg/fizhi/fizhi_turb.F 1407 TURBIO 
        do i =1,ijall
./pkg/fizhi/fizhi_turb.F 1408 TURBIO 
         dqturb(i,1,l,nt) = dqturb(i,1,l,nt)*thtgz(i)
./pkg/fizhi/fizhi_turb.F 1425 TURBIO 
       do i =1,ijall
./pkg/fizhi/fizhi_turb.F 1426 TURBIO 
         rainlsp(i,1) = 0.
./pkg/fizhi/fizhi_turb.F 1427 TURBIO 
        rainconv(i,1) = 0.
./pkg/fizhi/fizhi_turb.F 1428 TURBIO 
        snowfall(i,1) = 0.
./pkg/fizhi/fizhi_turb.F 1613 TRBFLX 
      integer i,iter,init,n,LL,L,Lp,Lp1,lmin,lminq,lminq1,ibit
./pkg/fizhi/fizhi_turb.F 1686 TRBFLX 
      scu(i) = 0.
./pkg/fizhi/fizhi_turb.F 1689 TRBFLX 
      sct(i) = 0.
./pkg/fizhi/fizhi_turb.F 1692 TRBFLX 
      pbldpth(i) = 0.
./pkg/fizhi/fizhi_turb.F 1695 TRBFLX 
      sustar(i) = 0.
./pkg/fizhi/fizhi_turb.F 1698 TRBFLX 
      sz0(i) = 0.
./pkg/fizhi/fizhi_turb.F 1704 TRBFLX 
      stu2m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1707 TRBFLX 
      stv2m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1710 TRBFLX 
      stt2m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1713 TRBFLX 
      stq2m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1716 TRBFLX 
      stu10m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1719 TRBFLX 
      stv10m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1722 TRBFLX 
      stt10m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1725 TRBFLX 
      stq10m(i) = 0.
./pkg/fizhi/fizhi_turb.F 1970 TRBFLX 
       call QSAT ( tl(i,nlev),pl(i,nlev),shsat(i,nlev),dum,.false. )
./pkg/fizhi/fizhi_turb.F 1997 TRBFLX 
     1         ( TH(I,NLEV) + CLH * SHL(I,NLEV) * (1./plk(i,nlev)) )
./pkg/fizhi/fizhi_turb.F 1999 TRBFLX 
     1  * (1./plk(i,nlev)) * CLH - VRT1CON * TH(I,NLEV)
./pkg/fizhi/fizhi_turb.F 2084 TRBFLX 
       call QSAT ( tl(i,LL),pl(i,LL),shsat(i,LL),dum,.false. )
./pkg/fizhi/fizhi_turb.F 2173 TRBFLX 
     1               BB(I,L)*plk(i,L) * FCC(I,L) * BETAL(I,L)
./pkg/fizhi/fizhi_turb.F 2447 TRBFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2451 TRBFLX 
         if(pl(i,L).le.150.) then
./pkg/fizhi/fizhi_turb.F 2452 TRBFLX 
          qxlm(i,L) = min(qxlm(i,L),5. _d 0)
./pkg/fizhi/fizhi_turb.F 2522 TRBFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2527 TRBFLX 
         if(pl(i,L).le.150.) then
./pkg/fizhi/fizhi_turb.F 2528 TRBFLX 
          kh(i,L) = min(kh(i,L),5. _d 0)
./pkg/fizhi/fizhi_turb.F 2529 TRBFLX 
          km(i,L) = min(km(i,L),5. _d 0)
./pkg/fizhi/fizhi_turb.F 2552 TRBFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2553 TRBFLX 
       hsturb(i) = -1.* dths(i)
./pkg/fizhi/fizhi_turb.F 2554 TRBFLX 
       dhsdtc(i) = -1.* delths(i)
./pkg/fizhi/fizhi_turb.F 2557 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2558 TRBFLX 
        dthdthg(i,L) = delth(i,L)
./pkg/fizhi/fizhi_turb.F 2562 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2563 TRBFLX 
        transth(i,L) = temp(i,L)
./pkg/fizhi/fizhi_turb.F 2585 TRBFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2586 TRBFLX 
       eturb(i) = -1.* dthl(i)
./pkg/fizhi/fizhi_turb.F 2587 TRBFLX 
       dedqa(i) = -1.* delthl(i)
./pkg/fizhi/fizhi_turb.F 2590 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2591 TRBFLX 
        dshdshg(i,L) = delsh(i,L)
./pkg/fizhi/fizhi_turb.F 2595 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2596 TRBFLX 
        transsh(i,L) = rhokdz(i,L)
./pkg/fizhi/fizhi_turb.F 259 TURBIO 
      integer istnp1,istnlay,itrtrb,i,L,nn,nt
./pkg/fizhi/fizhi_turb.F 2603 TRBFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2604 TRBFLX 
      rhokdz(i,nlev) = 0.0
./pkg/fizhi/fizhi_turb.F 2657 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2658 TRBFLX 
        qqcolmin(i) = qq(i,nlev)*0.1
./pkg/fizhi/fizhi_turb.F 2659 TRBFLX 
        qqcolmax(i) = qq(i,nlev)
./pkg/fizhi/fizhi_turb.F 2660 TRBFLX 
        levpbl(i) = nlev
./pkg/fizhi/fizhi_turb.F 2664 TRBFLX 
         IF ( (qq(i,l).gt.qqcolmax(I)).and.(levpbl(i).eq.nlev))then
./pkg/fizhi/fizhi_turb.F 2665 TRBFLX 
          qqcolmax(i) = qq(i,l)
./pkg/fizhi/fizhi_turb.F 2666 TRBFLX 
          qqcolmin(i) = 0.1*qqcolmax(I)
./pkg/fizhi/fizhi_turb.F 2668 TRBFLX 
         if((qq(i,l).lt.qqcolmin(i)).and.(levpbl(i).eq.nlev))
./pkg/fizhi/fizhi_turb.F 2669 TRBFLX 
     1                                                levpbl(i)=l
./pkg/fizhi/fizhi_turb.F 2672 TRBFLX 
       do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2673 TRBFLX 
        lp = levpbl(i)
./pkg/fizhi/fizhi_turb.F 2676 TRBFLX 
     1    ( (ple(i,lp+2)-ple(i,lp+1))*(qq(i,lp+1)-qqcolmin(i))
./pkg/fizhi/fizhi_turb.F 2677 TRBFLX 
     2          / (qq(i,lp+1)-qq(i,lp)) ) ) * aitr
./pkg/fizhi/fizhi_turb.F 2680 TRBFLX 
     1    ( (ple(i,2)-ple(i,1))*(qq(i,1)-qqcolmin(i))
./pkg/fizhi/fizhi_turb.F 2681 TRBFLX 
     2          / qq(i,1) ) ) * aitr
./pkg/fizhi/fizhi_turb.F 2684 TRBFLX 
      do i=1,irun
./pkg/fizhi/fizhi_turb.F 2685 TRBFLX 
      sustar(i) = sustar(i) + aitr*ustar(i)
./pkg/fizhi/fizhi_turb.F 2687 TRBFLX 
      do i=1,irun
./pkg/fizhi/fizhi_turb.F 2688 TRBFLX 
      sz0(i) = sz0(i) + aitr*z0(i)
./pkg/fizhi/fizhi_turb.F 2869 SFCFLX 
      integer i,iter
./pkg/fizhi/fizhi_turb.F 2903 SFCFLX 
      do i = 1,irun
./pkg/fizhi/fizhi_turb.F 2904 SFCFLX 
       vh0(i) = h0byz0 * vz0(i)
./pkg/fizhi/fizhi_turb.F 2905 SFCFLX 
       if(vz0(i).ge.z0vegm)vh0(i) = h0veg
./pkg/fizhi/fizhi_turb.F 2947 SFCFLX 
         vh0(i) = h0byz0 * vz0(i)
./pkg/fizhi/fizhi_turb.F 2991 SFCFLX 
         vh0(i) = h0byz0 * vz0(i)
./pkg/fizhi/fizhi_turb.F 3024 SFCFLX 
         vh0(i) = h0byz0 * vz0(i)
./pkg/fizhi/fizhi_turb.F 3093 SFCFLX 
          vh0(i) = h0byz0 * vz0(i)
./pkg/fizhi/fizhi_turb.F 3146 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 3147 SFCFLX 
         vtemp(i) = 2. * vahs(i) * vzeta(i)
./pkg/fizhi/fizhi_turb.F 3148 SFCFLX 
         vzh(i) = vz0(i) * 0.5
./pkg/fizhi/fizhi_turb.F 3149 SFCFLX 
         if(vz0(i).ge.2.)vzh(i) = 0.9
./pkg/fizhi/fizhi_turb.F 3152 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 3153 SFCFLX 
         stu2m(i) = (psimdiag(i)/vpsim(i) * vus(i))
./pkg/fizhi/fizhi_turb.F 3154 SFCFLX 
         stv2m(i) = (psimdiag(i)/vpsim(i) * vvs(i))
./pkg/fizhi/fizhi_turb.F 3155 SFCFLX 
         stt2m(i) = ( (vth2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))*
./pkg/fizhi/fizhi_turb.F 3156 SFCFLX 
     1                             (vth1(i)-vth2(i))) ) * vpke(i)
./pkg/fizhi/fizhi_turb.F 3157 SFCFLX 
         stq2m(i) = (vsh2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))*
./pkg/fizhi/fizhi_turb.F 3158 SFCFLX 
     1                                             (vsh1(i)-vsh2(i)))
./pkg/fizhi/fizhi_turb.F 3159 SFCFLX 
         if(vz0(i).ge.2.)then
./pkg/fizhi/fizhi_turb.F 3160 SFCFLX 
          stu2m(i) = UNDEF
./pkg/fizhi/fizhi_turb.F 3161 SFCFLX 
          stv2m(i) = UNDEF
./pkg/fizhi/fizhi_turb.F 3162 SFCFLX 
          stt2m(i) = UNDEF
./pkg/fizhi/fizhi_turb.F 3163 SFCFLX 
          stq2m(i) = UNDEF
./pkg/fizhi/fizhi_turb.F 3166 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 3167 SFCFLX 
         vtemp(i) = 10. * vahs(i) * vzeta(i)
./pkg/fizhi/fizhi_turb.F 3168 SFCFLX 
         vzh(i) = vz0(i) * 0.1
./pkg/fizhi/fizhi_turb.F 3171 SFCFLX 
        do i = 1,irun
./pkg/fizhi/fizhi_turb.F 3172 SFCFLX 
         stu10m(i) = (psimdiag(i)/vpsim(i) * vus(i))
./pkg/fizhi/fizhi_turb.F 3173 SFCFLX 
         stv10m(i) = (psimdiag(i)/vpsim(i) * vvs(i))
./pkg/fizhi/fizhi_turb.F 3174 SFCFLX 
         stt10m(i) = ( (vth2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))*
./pkg/fizhi/fizhi_turb.F 3175 SFCFLX 
     1                            (vth1(i)-vth2(i))) ) * vpke(i)
./pkg/fizhi/fizhi_turb.F 3176 SFCFLX 
         stq10m(i) = (vsh2(i) + ((psihdiag(i)+vpsig(i))/vpsihg(i))*
./pkg/fizhi/fizhi_turb.F 3177 SFCFLX 
     1                                             (vsh1(i)-vsh2(i)))
./pkg/fizhi/fizhi_turb.F 3399 PHI 
      integer ibit1,ibit2,i
./pkg/fizhi/fizhi_turb.F 3436 PHI 
       if( z(i).ge.0.15 ) then
./pkg/fizhi/fizhi_turb.F 3448 PHI 
       if( z(i).ge.0.15 ) then
./pkg/fizhi/fizhi_turb.F 3536 PSI 
      integer i
./pkg/fizhi/fizhi_turb.F 379 TURBIO 
      do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 380 TURBIO 
       tmpdiag(i,1) = st4(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1))
./pkg/fizhi/fizhi_turb.F 381 TURBIO 
     1                         - dst4(i,1)* tgz(i,1)
./pkg/fizhi/fizhi_turb.F 384 TURBIO 
      do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 385 TURBIO 
       tmpdiag(i,1) = dst4(i,1)
./pkg/fizhi/fizhi_turb.F 3861 TRBLEN 
      integer i,L,LL
./pkg/fizhi/fizhi_turb.F 388 TURBIO 
      do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 389 TURBIO 
       tmpdiag(i,1) = fdifpar(i,1) * radswt(i,1)
./pkg/fizhi/fizhi_turb.F 392 TURBIO 
      do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 393 TURBIO 
       tmpdiag(i,1) = fdirpar(i,1) * radswt(i,1)
./pkg/fizhi/fizhi_turb.F 396 TURBIO 
      do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 397 TURBIO 
       tmpdiag(i,1) = radswg(i,1) * radswt(i,1)
./pkg/fizhi/fizhi_turb.F 400 TURBIO 
      do i = 1,ijall
./pkg/fizhi/fizhi_turb.F 401 TURBIO 
       tmpdiag(i,1) = radlwg(i,1) + dst4(i,1)*(tgz(i,1)-tempref(i,1))
./pkg/fizhi/fizhi_turb.F 420 TURBIO 
      do i = 1,nchptot
./pkg/fizhi/fizhi_turb.F 421 TURBIO 
       water(i) = 0
./pkg/fizhi/fizhi_turb.F 422 TURBIO 
       if((ityp(i).eq.100).and.(icethk(i).eq.0. ))water(i) = 1
./pkg/fizhi/fizhi_turb.F 427 TURBIO 
      do i =1,nchptot
./pkg/fizhi/fizhi_turb.F 428 TURBIO 
       if (icethk(i).gt.0.) then
./pkg/fizhi/fizhi_turb.F 429 TURBIO 
        z0(i) = 1.e-4
./pkg/fizhi/fizhi_turb.F 4309 TRBL20 
      integer i
./pkg/fizhi/fizhi_turb.F 430 TURBIO 
       else if (ityp(i).eq.100) then
./pkg/fizhi/fizhi_turb.F 431 TURBIO 
        z0(i) = 3.e-4
./pkg/fizhi/fizhi_turb.F 433 TURBIO 
        z0(i) = zoch(i)
./pkg/fizhi/fizhi_turb.F 440 TURBIO 
      do i = 1,nchplnd
./pkg/fizhi/fizhi_turb.F 4413 TRBL25 
      integer i
./pkg/fizhi/fizhi_turb.F 441 TURBIO 
       tground(i) = tcanopy(i)
./pkg/fizhi/fizhi_turb.F 447 TURBIO 
      utility(I) = pmsc(i) + ptop
./pkg/fizhi/fizhi_turb.F 448 TURBIO 
      call QSAT ( tground(i),utility(i),shg(i),dqsdt(i),.true. )
./pkg/fizhi/fizhi_turb.F 454 TURBIO 
      do i = 1,nchplnd
./pkg/fizhi/fizhi_turb.F 455 TURBIO 
       qground(i) = ecanopy(i)
./pkg/fizhi/fizhi_turb.F 457 TURBIO 
      do i = nchplnd+1,nchptot
./pkg/fizhi/fizhi_turb.F 4584 VTRI0 
      integer i,L,Lm1
./pkg/fizhi/fizhi_turb.F 458 TURBIO 
       qground(i) = shg(i)
./pkg/fizhi/fizhi_turb.F 4614 VTRI1 
      integer i,L
./pkg/fizhi/fizhi_turb.F 462 TURBIO 
      do i = nchplnd+1,nchptot
./pkg/fizhi/fizhi_turb.F 4632 VTRI2 
      integer i,L
./pkg/fizhi/fizhi_turb.F 463 TURBIO 
       swetshal(i) = 1.
./pkg/fizhi/fizhi_turb.F 469 TURBIO 
      do i =1,nchptot
./pkg/fizhi/fizhi_turb.F 470 TURBIO 
             qice(i) =  0.0
./pkg/fizhi/fizhi_turb.F 471 TURBIO 
            dqice(i) =  0.0
./pkg/fizhi/fizhi_turb.F 4727 LINADJ 
      integer i
./pkg/fizhi/fizhi_turb.F 472 TURBIO 
       if( icethk(i).gt.0.0 ) then
./pkg/fizhi/fizhi_turb.F 473 TURBIO 
             qice(i) =  const*(tice-tground(i))
./pkg/fizhi/fizhi_turb.F 474 TURBIO 
            dqice(i) = -const
./pkg/fizhi/fizhi_turb.F 4789 LINADJ 
        if(vpsig(i).gt.0.)VPSIGB2(I) =
./pkg/fizhi/fizhi_turb.F 4790 LINADJ 
     1        0.5 * ( vpsig(i)*vpsig(i) + b2uhs ) / vpsig(i)
./pkg/fizhi/fizhi_turb.F 479 TURBIO 
       do i =1,ijall
./pkg/fizhi/fizhi_turb.F 480 TURBIO 
        tmpdiag(i,1) = 0.0
./pkg/fizhi/fizhi_turb.F 5001 ZCSUB 
      integer i,k
./pkg/fizhi/fizhi_turb.F 5107 SEAICE 
      integer i
./pkg/fizhi/fizhi_turb.F 5116 SEAICE 
      do i =1,nocean
./pkg/fizhi/fizhi_turb.F 5117 SEAICE 
       if( seaic(i).gt.0.0 ) then
./pkg/fizhi/fizhi_turb.F 5118 SEAICE 
        deltg = ( swnet(i)-lwnet(i)-latent*eturb(i)-hsturb(i)+qice(i) )
./pkg/fizhi/fizhi_turb.F 5119 SEAICE 
     .          / ( codt+dst4(i)+latent*dedtc(i)+dhsdtc(i)-dqice(i) )
./pkg/fizhi/fizhi_turb.F 5120 SEAICE 
        qa(i) = qa(i) + (faceps*qa(i)/(tc(i)*tc(i)))*deltg
./pkg/fizhi/fizhi_turb.F 5121 SEAICE 
        tc(i) = tc(i) + deltg
./pkg/fizhi/fizhi_turb.F 565 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 566 TURBIO 
       if( types(i).lt.100 ) nland  = nland  + 1
./pkg/fizhi/fizhi_turb.F 567 TURBIO 
       if( types(i).eq.100 ) nocean = nocean + 1
./pkg/fizhi/fizhi_turb.F 568 TURBIO 
       if( types(i).eq.100 .and. icest(i).gt.0.0 ) nice = nice + 1
./pkg/fizhi/fizhi_turb.F 573 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 574 TURBIO 
       u(i,nlay+1) = 0.
./pkg/fizhi/fizhi_turb.F 575 TURBIO 
       v(i,nlay+1) = 0.
./pkg/fizhi/fizhi_turb.F 580 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 581 TURBIO 
      th(i,nlay+1) = th(i,nlay+1) / pke(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 582 TURBIO 
      sh(i,nlay+1) = qa(i)
./pkg/fizhi/fizhi_turb.F 586 TURBIO 
      do i=1,istrip
./pkg/fizhi/fizhi_turb.F 587 TURBIO 
      tmpstrip(i) = sh(i,nlay+1)*1000
./pkg/fizhi/fizhi_turb.F 604 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 605 TURBIO 
      thv(i,L) = 1. + virtcon * sh(i,L)
./pkg/fizhi/fizhi_turb.F 606 TURBIO 
      thv(i,L) = th(i,L) * thv(i,L)
./pkg/fizhi/fizhi_turb.F 609 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 610 TURBIO 
      sh(i,nlay+1) = qa(i)
./pkg/fizhi/fizhi_turb.F 615 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 616 TURBIO 
      qliq(i,L) = 0.
./pkg/fizhi/fizhi_turb.F 617 TURBIO 
      turbfcc(i,L) = 0.
./pkg/fizhi/fizhi_turb.F 623 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 624 TURBIO 
       eturb(i) = 0.
./pkg/fizhi/fizhi_turb.F 625 TURBIO 
       scu(i) = 0.
./pkg/fizhi/fizhi_turb.F 626 TURBIO 
       dedqa(i) = 0.
./pkg/fizhi/fizhi_turb.F 627 TURBIO 
       dedtc(i) = 0.
./pkg/fizhi/fizhi_turb.F 628 TURBIO 
       hsturb(i) = 0.
./pkg/fizhi/fizhi_turb.F 629 TURBIO 
       dhsdqa(i) = 0.
./pkg/fizhi/fizhi_turb.F 630 TURBIO 
       dhsdtc(i) = 0.
./pkg/fizhi/fizhi_turb.F 636 TURBIO 
       do i=1,istrip
./pkg/fizhi/fizhi_turb.F 637 TURBIO 
        stdiag(i) = ( thv(i,nlay+1)-thv(i,nlay) ) / pke(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 666 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 667 TURBIO 
       evpot(i) = transsh(i,nlay) * (shgstr(i) - sh(i,nlay))
./pkg/fizhi/fizhi_turb.F 674 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 675 TURBIO 
       savetc(i) = tc(i)
./pkg/fizhi/fizhi_turb.F 676 TURBIO 
       saveqa(i) = qa(i)
./pkg/fizhi/fizhi_turb.F 678 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 679 TURBIO 
       cosz(i) = max(cosz(i),0.0001 _d 0)
./pkg/fizhi/fizhi_turb.F 680 TURBIO 
       cd(i) = scu(i)*scu(i)
./pkg/fizhi/fizhi_turb.F 681 TURBIO 
       tmpnlay(i) = th(i,nlay)*pk(i,nlay)
./pkg/fizhi/fizhi_turb.F 682 TURBIO 
       hlwdwn(i) = alwrad(i)+blwrad(i)*tc(i)-lwstrip(i)
./pkg/fizhi/fizhi_turb.F 683 TURBIO 
       psurf(i) = pe(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 684 TURBIO 
       wspeed(i) = sqrt(u(i,nlay)*u(i,nlay) + v(i,nlay)*v(i,nlay))
./pkg/fizhi/fizhi_turb.F 685 TURBIO 
       if(wspeed(i) .lt. 1.e-20) wspeed(i) = 1.e-20
./pkg/fizhi/fizhi_turb.F 692 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 693 TURBIO 
       eturb(i) = eturb(i) * pke(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 694 TURBIO 
       dedqa(i) = dedqa(i) * pke(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 695 TURBIO 
       hsturb(i) = hsturb(i) * pke(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 698 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 699 TURBIO 
       strdg1(i) = 0.
./pkg/fizhi/fizhi_turb.F 700 TURBIO 
       strdg2(i) = 0.
./pkg/fizhi/fizhi_turb.F 701 TURBIO 
       strdg3(i) = 0.
./pkg/fizhi/fizhi_turb.F 702 TURBIO 
       strdg4(i) = 0.
./pkg/fizhi/fizhi_turb.F 703 TURBIO 
       strdg5(i) = 0.
./pkg/fizhi/fizhi_turb.F 704 TURBIO 
       strdg6(i) = 0.
./pkg/fizhi/fizhi_turb.F 705 TURBIO 
       strdg7(i) = 0.
./pkg/fizhi/fizhi_turb.F 706 TURBIO 
       strdg8(i) = 0.
./pkg/fizhi/fizhi_turb.F 707 TURBIO 
       strdg9(i) = 0.
./pkg/fizhi/fizhi_turb.F 708 TURBIO 
       bomb(i)   = 0.
./pkg/fizhi/fizhi_turb.F 709 TURBIO 
       runoff(i) = 0.
./pkg/fizhi/fizhi_turb.F 710 TURBIO 
       eint(i)   = 0.
./pkg/fizhi/fizhi_turb.F 711 TURBIO 
       esoi(i)   = 0.
./pkg/fizhi/fizhi_turb.F 712 TURBIO 
       eveg(i)   = 0.
./pkg/fizhi/fizhi_turb.F 713 TURBIO 
       esno(i)   = 0.
./pkg/fizhi/fizhi_turb.F 714 TURBIO 
       smelt(i)  = 0.
./pkg/fizhi/fizhi_turb.F 715 TURBIO 
       hlatn(i)  = 0.
./pkg/fizhi/fizhi_turb.F 716 TURBIO 
       hlwup(i)  = 0.
./pkg/fizhi/fizhi_turb.F 717 TURBIO 
       gdrain(i) = 0.
./pkg/fizhi/fizhi_turb.F 718 TURBIO 
       runsrf(i) = 0.
./pkg/fizhi/fizhi_turb.F 719 TURBIO 
       fwsoil(i) = 0.
./pkg/fizhi/fizhi_turb.F 726 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 727 TURBIO 
      tmpstrip(i) = newsnow(i)*86400
./pkg/fizhi/fizhi_turb.F 733 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 734 TURBIO 
      tmpstrip(i) = raincon(i)*86400
./pkg/fizhi/fizhi_turb.F 740 TURBIO 
      do i = 1,istrip
./pkg/fizhi/fizhi_turb.F 741 TURBIO 
      tmpstrip(i) = rainls(i)*86400
./pkg/fizhi/fizhi_turb.F 943 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 944 TURBIO 
      th(i,nlay+1) = tc(i) / pke(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 947 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 948 TURBIO 
      th(i,L) = th(i,L) + dthdthg(i,L)*(tc(i)-savetc(i))/pke(i,nlay+1)
./pkg/fizhi/fizhi_turb.F 952 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 953 TURBIO 
      sh(i,nlay+1) = qa(i)
./pkg/fizhi/fizhi_turb.F 956 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 957 TURBIO 
      sh(i,L) = sh(i,L) + dshdshg(i,L)*(qa(i)-saveqa(i))
./pkg/fizhi/fizhi_turb.F 962 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 963 TURBIO 
       sttflux(i,L) = transth(i,L) * (th(i,L+1)-th(i,L))
./pkg/fizhi/fizhi_turb.F 964 TURBIO 
       stqflux(i,L) = transsh(i,L) * (sh(i,L+1)-sh(i,L))
./pkg/fizhi/fizhi_turb.F 973 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 974 TURBIO 
      tends(i) = ( u(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_turb.F 980 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 981 TURBIO 
      tends(i) = ( v(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_turb.F 987 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 988 TURBIO 
      tends(i) = ( th(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_turb.F 995 TURBIO 
      do i =1,istrip
./pkg/fizhi/fizhi_turb.F 996 TURBIO 
      tends(i) = ( sh(i,l)-tmpstrip(i) )
./pkg/fizhi/fizhi_utils.F 10 NO PROCEDURE 
      do i=1,im
./pkg/fizhi/fizhi_utils.F 11 NO PROCEDURE 
      if( q(i).lt.minval ) minval = q(i)
./pkg/fizhi/fizhi_utils.F 123 PASTE 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F 141 PSTBMP 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F 159 STRINT 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F 377 VQSAT 
      integer  i,n
./pkg/fizhi/fizhi_utils.F 385 VQSAT 
      do i=1,n
./pkg/fizhi/fizhi_utils.F 386 VQSAT 
      call QSAT ( tt(i),p(i),q(i),dqdt(i),ldqdt )
./pkg/fizhi/fizhi_utils.F 395 STRIPIT 
      integer   i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F 403 STRIPIT 
        do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 404 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 408 STRIPIT 
        do 300 i=1,Lena
./pkg/fizhi/fizhi_utils.F 409 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 411 STRIPIT 
        do 400 i=1,ib-Lena
./pkg/fizhi/fizhi_utils.F 412 STRIPIT 
        b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F 422 STRIPITINT 
      integer i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F 430 STRIPITINT 
        do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 431 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 435 STRIPITINT 
        do 300 i=1,Lena
./pkg/fizhi/fizhi_utils.F 436 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 438 STRIPITINT 
        do 400 i=1,ib-Lena
./pkg/fizhi/fizhi_utils.F 439 STRIPITINT 
        b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F 449 PASTIT 
      integer i,j
./pkg/fizhi/fizhi_utils.F 457 PASTIT 
      do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 458 PASTIT 
      a(i+offset-1,j) = b(i,j)
./pkg/fizhi/fizhi_utils.F 468 PSTBITINT 
      integer i,j
./pkg/fizhi/fizhi_utils.F 475 PSTBITINT 
      do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 476 PSTBITINT 
      a(i+offset-1,j) = a(i+offset-1,j) + float(b(i,j))
./pkg/fizhi/fizhi_utils.F 486 PSTBMPIT 
      integer i,j
./pkg/fizhi/fizhi_utils.F 493 PSTBMPIT 
      do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 494 PSTBMPIT 
      a(i+offset-1,j) = a(i+offset-1,j) + b(i,j)
./pkg/fizhi/fizhi_utils.F 522 STRIP2TILE 
      integer i,k,Lena,offset
./pkg/fizhi/fizhi_utils.F 530 STRIP2TILE 
        do 100 i=1,Lena
./pkg/fizhi/fizhi_utils.F 531 STRIP2TILE 
        b(i,k) = a(indx(i+offset-1),k)
./pkg/fizhi/fizhi_utils.F 535 STRIP2TILE 
        do 300 i=1,Lena
./pkg/fizhi/fizhi_utils.F 536 STRIP2TILE 
        b(i,k) = a(indx(i+offset-1),k)
./pkg/fizhi/fizhi_utils.F 538 STRIP2TILE 
        do 400 i=1,ib-Lena
./pkg/fizhi/fizhi_utils.F 539 STRIP2TILE 
        b(Lena+i,k) = a(indx(Lena+offset-1),k)
./pkg/fizhi/fizhi_utils.F 577 PASTE2GRD_OLD 
      integer i,L,offset,Lena
./pkg/fizhi/fizhi_utils.F 584 PASTE2GRD_OLD 
      do i=1,Lena
./pkg/fizhi/fizhi_utils.F 585 PASTE2GRD_OLD 
       a(indx(i+offset-1),L) = a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/fizhi/fizhi_utils.F 624 PASTE2GRD 
      integer i,L,offset,Lena
./pkg/fizhi/fizhi_utils.F 634 PASTE2GRD 
       do i= 1,Lena
./pkg/fizhi/fizhi_utils.F 635 PASTE2GRD 
        if( a(indx(i+offset-1),L).eq.undef .or. b(i,L).eq.undef ) then
./pkg/fizhi/fizhi_utils.F 636 PASTE2GRD 
         a(indx(i+offset-1),L) = undef
./pkg/fizhi/fizhi_utils.F 638 PASTE2GRD 
         a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/fizhi/fizhi_utils.F 644 PASTE2GRD 
       do i= 1,Lena
./pkg/fizhi/fizhi_utils.F 645 PASTE2GRD 
        a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/fizhi/fizhi_utils.F 65 STRIP 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F 660 GRD2MSC 
      integer i
./pkg/fizhi/fizhi_utils.F 687 MSC2GRD 
      integer i
./pkg/fizhi/fizhi_utils.F 733 CHPPRM 
      integer k1,k2,nymd1,nhms1,nymd2,nhms2,i
./pkg/fizhi/fizhi_utils.F 7 NO PROCEDURE 
      integer  im, i
./pkg/fizhi/fizhi_utils.F 868 CHPPRM 
      do i=1,nchp
./pkg/fizhi/fizhi_utils.F 870 CHPPRM 
      zoch(i) = vgz0(k2,ityp(i))*facp + vgz0(k1,ityp(i))*facm
./pkg/fizhi/fizhi_utils.F 871 CHPPRM 
      rdcs(i) = vgrd(k2,ityp(i))*facp + vgrd(k1,ityp(i))*facm
./pkg/fizhi/fizhi_utils.F 873 CHPPRM 
      rootl   = vgrt(k2,ityp(i))*facp + vgrt(k1,ityp(i))*facm
./pkg/fizhi/fizhi_utils.F 875 CHPPRM 
      vroot  = rootl * vgroca(ityp (i))
./pkg/fizhi/fizhi_utils.F 880 CHPPRM 
      rsl1(i) = vgrdrs (ityp (i)) / (rootl * vgrotd (ityp (i)))
./pkg/fizhi/fizhi_utils.F 881 CHPPRM 
      rsl2(i) = alphaf / vgrotd (ityp (i))
./pkg/fizhi/fizhi_utils.F 883 CHPPRM 
      scat =       agrn(i) *(vgtr11(ityp(i)) + vgrf11(ityp(i)))
./pkg/fizhi/fizhi_utils.F 884 CHPPRM 
     &     + (1. - agrn(i))*(vgtr12(ityp(i)) + vgrf12(ityp(i)))
./pkg/fizhi/fizhi_utils.F 885 CHPPRM 
      sqsc(i) = sqrt (1. - scat)
./pkg/fizhi/fizhi_utils.F 887 CHPPRM 
      d       = vgdd(k2,ityp(i))*facp + vgdd(k1,ityp(i))*facm
./pkg/fizhi/fizhi_utils.F 888 CHPPRM 
      ufac(i) = log( (vgz2(ityp(i)) - d) / zoch(i) )
./pkg/fizhi/fizhi_utils.F 889 CHPPRM 
     *        / log(  pblzet             / zoch(i) )
./pkg/fizhi/fizhi_utils.F 891 CHPPRM 
      z2ch(i) = vgz2(ityp (i))
./pkg/fizhi/fizhi_utils.F 893 CHPPRM 
      cdsc(i) = pblzet/zoch(i)+1.
./pkg/fizhi/fizhi_utils.F 894 CHPPRM 
      cdrc(i) = vkrm/log(cdsc(i))
./pkg/fizhi/fizhi_utils.F 895 CHPPRM 
      cdrc(i) = cdrc(i)*cdrc(i)
./pkg/fizhi/fizhi_utils.F 896 CHPPRM 
      cdsc(i) = sqrt(cdsc(i))
./pkg/fizhi/fizhi_utils.F 897 CHPPRM 
      cdsc(i) = cdrc(i)*cdsc(i)
./pkg/fizhi/fizhi_utils.F 925 PKAPPA 
      integer i,j,L
./pkg/fizhi/fizhi_utils.F 931 PKAPPA 
      do i = 1,im
./pkg/fizhi/fizhi_utils.F 932 PKAPPA 
       pkz(i,j,L) = ( ple (i,j,l+1)*pkle(i,j,l+1)
./pkg/fizhi/fizhi_utils.F 933 PKAPPA 
     .             - ple (i,j,l)*pkle(i,j,l) )
./pkg/fizhi/fizhi_utils.F 934 PKAPPA 
     .           /  ( akap1* (ple (i,j,l+1)-ple (i,j,l)) )
./pkg/fizhi/fizhi_utils.F 94 STRIPINT 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_wrapper.F 103 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 104 FIZHI_WRAPPER 
         vdynbef(i,j,L,bi,bj) = vvel(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 117 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 118 FIZHI_WRAPPER 
         thbef(i,j,L,bi,bj) = thphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 124 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 125 FIZHI_WRAPPER 
         thdynbef(i,j,L,bi,bj) = theta(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 138 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 139 FIZHI_WRAPPER 
         sbef(i,j,L,bi,bj) = sphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 145 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 146 FIZHI_WRAPPER 
         sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 163 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 164 FIZHI_WRAPPER 
         pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj))
./pkg/fizhi/fizhi_wrapper.F 166 FIZHI_WRAPPER 
          pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 170 FIZHI_WRAPPER 
          pephy4fiz(i,j,Nrphys+2-L,bi,bj)=pephy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 172 FIZHI_WRAPPER 
         if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_wrapper.F 173 FIZHI_WRAPPER 
     .                               pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_wrapper.F 178 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 180 FIZHI_WRAPPER 
          pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_wrapper.F 185 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 186 FIZHI_WRAPPER 
         Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 188 FIZHI_WRAPPER 
     . pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj))
./pkg/fizhi/fizhi_wrapper.F 192 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 193 FIZHI_WRAPPER 
         Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 195 FIZHI_WRAPPER 
          pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./pkg/fizhi/fizhi_wrapper.F 196 FIZHI_WRAPPER 
     .           drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 199 FIZHI_WRAPPER 
         if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./pkg/fizhi/fizhi_wrapper.F 200 FIZHI_WRAPPER 
     .                               pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./pkg/fizhi/fizhi_wrapper.F 212 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 214 FIZHI_WRAPPER 
         tempphy(i,j,L,bi,bj) = pephy4fiz(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 237 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 238 FIZHI_WRAPPER 
         tempdiag(i,j) = topoZ(i,j,bi,bj)*grav
./pkg/fizhi/fizhi_wrapper.F 239 FIZHI_WRAPPER 
         tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100.
./pkg/fizhi/fizhi_wrapper.F 244 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 245 FIZHI_WRAPPER 
         tempLdiag(i,j,L) = pephy4fiz(i,j,L,bi,bj)/100.
./pkg/fizhi/fizhi_wrapper.F 246 FIZHI_WRAPPER 
         tempLdiag2(i,j,L) = thphy(i,j,L,bi,bj) *
./pkg/fizhi/fizhi_wrapper.F 247 FIZHI_WRAPPER 
     .        (1.+0.609*sphy(i,j,L,bi,bj))
./pkg/fizhi/fizhi_wrapper.F 287 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 289 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 296 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 298 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 305 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 307 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 314 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 316 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 53 FIZHI_WRAPPER 
       integer i, j, L, Lbotij, bi, bj
./pkg/fizhi/fizhi_wrapper.F 75 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 76 FIZHI_WRAPPER 
         ubef(i,j,L,bi,bj) = uphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 82 FIZHI_WRAPPER 
        do i = 1,sNx+1
./pkg/fizhi/fizhi_wrapper.F 83 FIZHI_WRAPPER 
         udynbef(i,j,L,bi,bj) = uvel(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 96 FIZHI_WRAPPER 
        do i = 1,sNx
./pkg/fizhi/fizhi_wrapper.F 97 FIZHI_WRAPPER 
         vbef(i,j,L,bi,bj) = vphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_write_pickup.F 49 FIZHI_WRITE_PICKUP 
      integer i,j,k,bi,bj
./pkg/fizhi/fizhi_write_pickup.F 56 FIZHI_WRITE_PICKUP 
      do i = 1-OLx,sNx+OLx
./pkg/fizhi/fizhi_write_pickup.F 57 FIZHI_WRITE_PICKUP 
       temp(i,j,k,bi,bj) = 0.
./pkg/fizhi/fizhi_write_pickup.F 94 FIZHI_WRITE_PICKUP 
      do i = 1,sNx
./pkg/fizhi/fizhi_write_pickup.F 95 FIZHI_WRITE_PICKUP 
       temp(i,j,1,bi,bj) = raincon(i,j,bi,bj)
./pkg/fizhi/fizhi_write_pickup.F 96 FIZHI_WRITE_PICKUP 
       temp(i,j,2,bi,bj) = rainlsp(i,j,bi,bj)
./pkg/fizhi/fizhi_write_pickup.F 97 FIZHI_WRITE_PICKUP 
       temp(i,j,3,bi,bj) = snowfall(i,j,bi,bj)
./pkg/fizhi/slprs.F 32 SLPRS 
      integer i,L
./pkg/fizhi/slprs.F 43 SLPRS 
      do i=1,im*jm
./pkg/fizhi/slprs.F 44 SLPRS 
      tm(i) = 0.0
./pkg/fizhi/slprs.F 45 SLPRS 
      Ltop(i) = lm
./pkg/fizhi/slprs.F 49 SLPRS 
       do i=1,im*jm
./pkg/fizhi/slprs.F 50 SLPRS 
        if ( ple(i,L+1).ge.(ple(i,lm+1)-100.) ) then
./pkg/fizhi/slprs.F 51 SLPRS 
         Ltop(i) = L
./pkg/fizhi/slprs.F 52 SLPRS 
         tm(i) = tm(i) + thz(i,L)*(ple(i,L+1)-ple(i,L))
./pkg/fizhi/slprs.F 57 SLPRS 
      do i=1,im*jm
./pkg/fizhi/slprs.F 58 SLPRS 
      tm(i) = tm(i)/(ple(i,lm+1)-ple(i,Ltop(i)))
./pkg/fizhi/slprs.F 65 SLPRS 
      do i=1,im*jm
./pkg/fizhi/slprs.F 66 SLPRS 
      if( lwmask(i).ne.0.0 ) then
./pkg/fizhi/step_fizhi_corr.F 101 STEP_FIZHI_CORR 
         if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./pkg/fizhi/step_fizhi_corr.F 102 STEP_FIZHI_CORR 
     .                               pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./pkg/fizhi/step_fizhi_corr.F 107 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 108 STEP_FIZHI_CORR 
         pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 110 STEP_FIZHI_CORR 
          pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys(i,j,L-1,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 113 STEP_FIZHI_CORR 
         if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./pkg/fizhi/step_fizhi_corr.F 114 STEP_FIZHI_CORR 
     .                               pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./pkg/fizhi/step_fizhi_corr.F 122 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 123 STEP_FIZHI_CORR 
         windphy(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F 124 STEP_FIZHI_CORR 
     .     sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 125 STEP_FIZHI_CORR 
     .        + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj))
./pkg/fizhi/step_fizhi_corr.F 141 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 142 STEP_FIZHI_CORR 
         tempphy(i,j,Nrphys+1-L,bi,bj) = uphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 150 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 151 STEP_FIZHI_CORR 
         tempphy(i,j,Nrphys+1-L,bi,bj) = vphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 159 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 160 STEP_FIZHI_CORR 
         tempphy(i,j,Nrphys+1-L,bi,bj) = thphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 168 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 169 STEP_FIZHI_CORR 
         tempphy(i,j,Nrphys+1-L,bi,bj) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 193 STEP_FIZHI_CORR 
        do i = idim1,idim2
./pkg/fizhi/step_fizhi_corr.F 194 STEP_FIZHI_CORR 
        udyntemp(i,j,L,bi,bj)=uvel(i,j,L,bi,bj)-udyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 195 STEP_FIZHI_CORR 
        vdyntemp(i,j,L,bi,bj)=vvel(i,j,L,bi,bj)-vdyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 196 STEP_FIZHI_CORR 
        thdyntemp(i,j,L,bi,bj)=theta(i,j,L,bi,bj)-thdyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 197 STEP_FIZHI_CORR 
        sdyntemp(i,j,L,bi,bj)=salt(i,j,L,bi,bj)-sdyntemp(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 221 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 222 STEP_FIZHI_CORR 
         uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 230 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 231 STEP_FIZHI_CORR 
         vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 239 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 240 STEP_FIZHI_CORR 
         thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 248 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 249 STEP_FIZHI_CORR 
         sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 286 STEP_FIZHI_CORR 
        do i=im1,im2
./pkg/fizhi/step_fizhi_corr.F 287 STEP_FIZHI_CORR 
         tempij(i,j) = (uphy (i,j,L,bi,bj)-ubef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F 298 STEP_FIZHI_CORR 
        do i=im1,im2
./pkg/fizhi/step_fizhi_corr.F 299 STEP_FIZHI_CORR 
         tempij(i,j) = (vphy (i,j,L,bi,bj)-vbef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F 310 STEP_FIZHI_CORR 
        do i=im1,im2
./pkg/fizhi/step_fizhi_corr.F 311 STEP_FIZHI_CORR 
         tempij(i,j) = (thphy (i,j,L,bi,bj)-thbef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F 322 STEP_FIZHI_CORR 
        do i=im1,im2
./pkg/fizhi/step_fizhi_corr.F 323 STEP_FIZHI_CORR 
         tempij(i,j) = (sphy (i,j,L,bi,bj)-sbef(i,j,L,bi,bj) )
./pkg/fizhi/step_fizhi_corr.F 345 STEP_FIZHI_CORR 
       do i=im1,im2
./pkg/fizhi/step_fizhi_corr.F 346 STEP_FIZHI_CORR 
        udyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F 347 STEP_FIZHI_CORR 
     .    (uvel(i,j,L,bi,bj)-udynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F 348 STEP_FIZHI_CORR 
     .                                        guphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 349 STEP_FIZHI_CORR 
        vdyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F 350 STEP_FIZHI_CORR 
     .    (vvel(i,j,L,bi,bj)-vdynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F 351 STEP_FIZHI_CORR 
     .                                        gvphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 364 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 365 STEP_FIZHI_CORR 
        windphy(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F 366 STEP_FIZHI_CORR 
     .     sqrt(uphy(i,j,Nrphys+1-L,bi,bj)*uphy(i,j,Nrphys+1-L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 367 STEP_FIZHI_CORR 
     .        + vphy(i,j,Nrphys+1-L,bi,bj)*vphy(i,j,Nrphys+1-L,bi,bj))
./pkg/fizhi/step_fizhi_corr.F 378 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 379 STEP_FIZHI_CORR 
         uphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 387 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 388 STEP_FIZHI_CORR 
         vphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 395 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 396 STEP_FIZHI_CORR 
        uphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F 397 STEP_FIZHI_CORR 
     .    ( (uphy(i,j,L,bi,bj)-ubef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F 398 STEP_FIZHI_CORR 
     .     - duphy(i,j,L,bi,bj) - uphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 399 STEP_FIZHI_CORR 
        vphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F 400 STEP_FIZHI_CORR 
     .    ( (vphy(i,j,L,bi,bj)-vbef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F 401 STEP_FIZHI_CORR 
     .     - dvphy(i,j,L,bi,bj) - vphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 427 STEP_FIZHI_CORR 
       do i=im1,im2
./pkg/fizhi/step_fizhi_corr.F 428 STEP_FIZHI_CORR 
        thdyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F 429 STEP_FIZHI_CORR 
     .    (theta(i,j,L,bi,bj)-thdynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F 430 STEP_FIZHI_CORR 
     .                                        gthphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 442 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 443 STEP_FIZHI_CORR 
         thphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 450 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 451 STEP_FIZHI_CORR 
        thphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F 452 STEP_FIZHI_CORR 
     .    ( (thphy(i,j,L,bi,bj)-thbef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F 453 STEP_FIZHI_CORR 
     .     - dthphy(i,j,L,bi,bj) - thphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 473 STEP_FIZHI_CORR 
       do i=im1,im2
./pkg/fizhi/step_fizhi_corr.F 474 STEP_FIZHI_CORR 
        sdyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F 475 STEP_FIZHI_CORR 
     .    (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F 476 STEP_FIZHI_CORR 
     .                                        gsphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 488 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 489 STEP_FIZHI_CORR 
         sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 496 STEP_FIZHI_CORR 
       do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 497 STEP_FIZHI_CORR 
        sphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F 498 STEP_FIZHI_CORR 
     .    ( (sphy(i,j,L,bi,bj)-sbef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F 499 STEP_FIZHI_CORR 
     .     - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 56 STEP_FIZHI_CORR 
       integer i, j, L, Lbotij, bi, bj
./pkg/fizhi/step_fizhi_corr.F 80 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 82 STEP_FIZHI_CORR 
          pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/step_fizhi_corr.F 87 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 88 STEP_FIZHI_CORR 
         Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 90 STEP_FIZHI_CORR 
     .    pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 94 STEP_FIZHI_CORR 
        do i = 1,sNx
./pkg/fizhi/step_fizhi_corr.F 95 STEP_FIZHI_CORR 
         Lbotij = ksurfC(i,j,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 97 STEP_FIZHI_CORR 
          pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./pkg/fizhi/step_fizhi_corr.F 98 STEP_FIZHI_CORR 
     .               drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj)
./pkg/fizhi/step_fizhi_fg.F 32 STEP_FIZHI_FG 
       integer i,j,L
./pkg/fizhi/step_fizhi_fg.F 55 STEP_FIZHI_FG 
       do i = im1,im2
./pkg/fizhi/step_fizhi_fg.F 56 STEP_FIZHI_FG 
        tempij(i,j) = uphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F 63 STEP_FIZHI_FG 
       do i = im1,im2
./pkg/fizhi/step_fizhi_fg.F 64 STEP_FIZHI_FG 
        tempij(i,j) = vphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F 71 STEP_FIZHI_FG 
       do i = im1,im2
./pkg/fizhi/step_fizhi_fg.F 72 STEP_FIZHI_FG 
        tempij(i,j) = thphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F 79 STEP_FIZHI_FG 
       do i = im1,im2
./pkg/fizhi/step_fizhi_fg.F 80 STEP_FIZHI_FG 
        tempij(i,j) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F 94 STEP_FIZHI_FG 
       do i = im1,im2
./pkg/fizhi/step_fizhi_fg.F 95 STEP_FIZHI_FG 
        tempij(i,j) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_physics.F 25 STEP_PHYSICS 
       integer i,j,L
./pkg/fizhi/step_physics.F 29 STEP_PHYSICS 
        do i = im1,im2
./pkg/fizhi/step_physics.F 30 STEP_PHYSICS 
         uphy(i,j,L,bi,bj) = uphy(i,j,L,bi,bj) + duphy(i,j,L,bi,bj) * dt
./pkg/fizhi/step_physics.F 31 STEP_PHYSICS 
         vphy(i,j,L,bi,bj) = vphy(i,j,L,bi,bj) + dvphy(i,j,L,bi,bj) * dt
./pkg/fizhi/step_physics.F 32 STEP_PHYSICS 
         thphy(i,j,L,bi,bj)=thphy(i,j,L,bi,bj) + dthphy(i,j,L,bi,bj)* dt
./pkg/fizhi/step_physics.F 33 STEP_PHYSICS 
         sphy(i,j,L,bi,bj) = sphy(i,j,L,bi,bj) + dsphy(i,j,L,bi,bj) * dt
./pkg/fizhi/update_chemistry_exports.F 177 INTERP_QZ 
      integer i,k,L1,L2,LM,LP
./pkg/fizhi/update_chemistry_exports.F 191 INTERP_QZ 
        DO 34   i = 1,irun
./pkg/fizhi/update_chemistry_exports.F 194 INTERP_QZ 
           IF( watlats(jlat).gt.xlat(i) ) THEN
./pkg/fizhi/update_chemistry_exports.F 198 INTERP_QZ 
                  slope(i) = 0
./pkg/fizhi/update_chemistry_exports.F 202 INTERP_QZ 
                  slope(i) = ( xlat(i)        -watlats(jlat-1) )
./pkg/fizhi/update_chemistry_exports.F 210 INTERP_QZ 
        slope(i) =  1
./pkg/fizhi/update_chemistry_exports.F 212 INTERP_QZ 
        QPR1(i) = stratq(jlatm,k)
./pkg/fizhi/update_chemistry_exports.F 213 INTERP_QZ 
        QPR2(i) = stratq(jlatp,k)
./pkg/fizhi/update_chemistry_exports.F 216 INTERP_QZ 
        do  i = 1,irun
./pkg/fizhi/update_chemistry_exports.F 217 INTERP_QZ 
        h2o_time_lat(i,k) = qpr1(i) + slope(i)*(qpr2(i)-qpr1(i))
./pkg/fizhi/update_chemistry_exports.F 228 INTERP_QZ 
        DO 44 i= 1, irun
./pkg/fizhi/update_chemistry_exports.F 230 INTERP_QZ 
           IF( watlevs(L1).GT.pres(i,L2) ) THEN
./pkg/fizhi/update_chemistry_exports.F 244 INTERP_QZ 
         PR1(i) =     watlevs (LM)
./pkg/fizhi/update_chemistry_exports.F 245 INTERP_QZ 
         PR2(i) =     watlevs (LP)
./pkg/fizhi/update_chemistry_exports.F 246 INTERP_QZ 
        QPR1(i) = h2o_time_lat(i,LM)
./pkg/fizhi/update_chemistry_exports.F 247 INTERP_QZ 
        QPR2(i) = h2o_time_lat(i,LP)
./pkg/fizhi/update_chemistry_exports.F 250 INTERP_QZ 
      do i= 1, irun
./pkg/fizhi/update_chemistry_exports.F 251 INTERP_QZ 
           slope(i) =(QPR1(i)-QPR2(i)) / (PR1(i)-PR2(i))
./pkg/fizhi/update_chemistry_exports.F 252 INTERP_QZ 
      qz_clim(i,L2) = QPR2(i) + (pres(i,L2)-PR2(i))*SLOPE(i)
./pkg/fizhi/update_chemistry_exports.F 263 INTERP_QZ 
      do i= 1, irun
./pkg/fizhi/update_chemistry_exports.F 264 INTERP_QZ 
           if( pres(i,k).ge.pqu  .and. pres(i,k).le. pql) then
./pkg/fizhi/update_chemistry_exports.F 265 INTERP_QZ 
             qz_out(i,k) = qz_clim(i,k)+(qz_in(i,k)-
./pkg/fizhi/update_chemistry_exports.F 266 INTERP_QZ 
     1                     qz_clim(i,k))*(pres(i,k)-pqu)/dpq
./pkg/fizhi/update_chemistry_exports.F 267 INTERP_QZ 
      else if( pres(i,k) .gt. pql ) then
./pkg/fizhi/update_chemistry_exports.F 268 INTERP_QZ 
             qz_out(i,k) = qz_in  (i,k)
./pkg/fizhi/update_chemistry_exports.F 270 INTERP_QZ 
             qz_out(i,k) = qz_clim(i,k)
./pkg/fizhi/update_chemistry_exports.F 311 INTERP_OZ 
      integer  i,k,L1,L2,LM,LP
./pkg/fizhi/update_chemistry_exports.F 325 INTERP_OZ 
      IF( ozlats(jlat).gt.xlat(i) ) THEN
./pkg/fizhi/update_chemistry_exports.F 329 INTERP_OZ 
      slope(i) = zero
./pkg/fizhi/update_chemistry_exports.F 333 INTERP_OZ 
      slope(i) = ( XLAT(I)        -ozlats(jlat-1) )
./pkg/fizhi/update_chemistry_exports.F 341 INTERP_OZ 
      slope(i) = one
./pkg/fizhi/update_chemistry_exports.F 348 INTERP_OZ 
      o3int1(i,k) = qpr1(i) + slope(i)*( qpr2(i)-qpr1(i) )
./pkg/fizhi/update_chemistry_exports.F 35 UPDATE_CHEMISTRY_EXPORTS 
      integer i, j, L, LL, bi, bj
./pkg/fizhi/update_chemistry_exports.F 386 INTERP_OZ 
      if( ozrad(i,l2).lt.o3min ) then
./pkg/fizhi/update_chemistry_exports.F 387 INTERP_OZ 
          ozrad(i,l2) =  o3min
./pkg/fizhi/update_chemistry_exports.F 55 UPDATE_CHEMISTRY_EXPORTS 
        do i = 1,sNx
./pkg/fizhi/update_chemistry_exports.F 56 UPDATE_CHEMISTRY_EXPORTS 
         pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj))
./pkg/fizhi/update_chemistry_exports.F 59 UPDATE_CHEMISTRY_EXPORTS 
         pephy(i,j,LL,bi,bj)=pephy(i,j,LL+1,bi,bj)-dpphys(i,j,L-1,bi,bj)
./pkg/fizhi/update_chemistry_exports.F 64 UPDATE_CHEMISTRY_EXPORTS 
        do i = 1,sNx
./pkg/fizhi/update_chemistry_exports.F 66 UPDATE_CHEMISTRY_EXPORTS 
          pphy(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)+pephy(i,j,L,bi,bj))
./pkg/fizhi/update_chemistry_exports.F 73 UPDATE_CHEMISTRY_EXPORTS 
        do i = 1,sNx
./pkg/fizhi/update_chemistry_exports.F 74 UPDATE_CHEMISTRY_EXPORTS 
         xlat(i,j) = yC(i,j,bi,bj)
./pkg/fizhi/update_chemistry_exports.F 76 UPDATE_CHEMISTRY_EXPORTS 
          waterin(i,j,L) = sphy(i,j,L,bi,bj)
./pkg/fizhi/update_earth_exports.F 1010 GETEMISS 
      do i = 1,im
./pkg/fizhi/update_earth_exports.F 1011 GETEMISS 
       tmpij(i,j) = 0.0
./pkg/fizhi/update_earth_exports.F 1017 GETEMISS 
      do i = 1,im
./pkg/fizhi/update_earth_exports.F 1018 GETEMISS 
       emiss(i,j,k,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 1036 EMISSIVITY 
      integer i,j
./pkg/fizhi/update_earth_exports.F 1090 EMISSIVITY 
      data ((emis(i,j),i=1,12),j=1,11) /
./pkg/fizhi/update_earth_exports.F 1129 EMISSIVITY 
      do i=1,numpts
./pkg/fizhi/update_earth_exports.F 1133 EMISSIVITY 
       if(ityp(i).le.10)then
./pkg/fizhi/update_earth_exports.F 1134 EMISSIVITY 
        newemis(i, 1) = (emis( 1,ityp(i))+emis(2,ityp(i)))/2.
./pkg/fizhi/update_earth_exports.F 1135 EMISSIVITY 
        newemis(i, 2) = (emis( 2,ityp(i))+emis(3,ityp(i)))/2.
./pkg/fizhi/update_earth_exports.F 1136 EMISSIVITY 
        newemis(i, 3) = (emis( 4,ityp(i))+emis(5,ityp(i)))/2.
./pkg/fizhi/update_earth_exports.F 1137 EMISSIVITY 
        newemis(i, 4) =  emis( 6,ityp(i))
./pkg/fizhi/update_earth_exports.F 1138 EMISSIVITY 
        newemis(i, 5) =  emis( 7,ityp(i))
./pkg/fizhi/update_earth_exports.F 1139 EMISSIVITY 
        newemis(i, 6) =  emis( 8,ityp(i))
./pkg/fizhi/update_earth_exports.F 1140 EMISSIVITY 
        newemis(i, 7) =  emis( 9,ityp(i))
./pkg/fizhi/update_earth_exports.F 1141 EMISSIVITY 
        newemis(i, 8) = (emis(10,ityp(i))+emis(11,ityp(i)))/2.
./pkg/fizhi/update_earth_exports.F 1142 EMISSIVITY 
        newemis(i, 9) =  emis(12,ityp(i))
./pkg/fizhi/update_earth_exports.F 1143 EMISSIVITY 
        newemis(i,10) =  emis( 4,ityp(i))
./pkg/fizhi/update_earth_exports.F 1147 EMISSIVITY 
        if(snowdepth (i).gt.0.) then
./pkg/fizhi/update_earth_exports.F 1148 EMISSIVITY 
         fac = snowdepth(i) / (snowdepth(i) + snwmid(ityp(i)))
./pkg/fizhi/update_earth_exports.F 1149 EMISSIVITY 
         newemis(i, 1) = newemis(i, 1) + (((emis( 1,9)+emis( 2,9))/2.)
./pkg/fizhi/update_earth_exports.F 1150 EMISSIVITY 
     &                                           - newemis(i, 1)) * fac
./pkg/fizhi/update_earth_exports.F 1151 EMISSIVITY 
         newemis(i, 2) = newemis(i, 2) + (((emis( 2,9)+emis( 3,9))/2.)
./pkg/fizhi/update_earth_exports.F 1152 EMISSIVITY 
     &                                           - newemis(i, 2)) * fac
./pkg/fizhi/update_earth_exports.F 1153 EMISSIVITY 
         newemis(i, 3) = newemis(i, 3) + (((emis( 4,9)+emis( 5,9))/2.)
./pkg/fizhi/update_earth_exports.F 1154 EMISSIVITY 
     &                                           - newemis(i, 3)) * fac
./pkg/fizhi/update_earth_exports.F 1155 EMISSIVITY 
         newemis(i, 4) = newemis(i, 4) +              (emis( 6,9)
./pkg/fizhi/update_earth_exports.F 1156 EMISSIVITY 
     &                                           - newemis(i, 4)) * fac
./pkg/fizhi/update_earth_exports.F 1157 EMISSIVITY 
         newemis(i, 5) = newemis(i, 5) +              (emis( 7,9)
./pkg/fizhi/update_earth_exports.F 1158 EMISSIVITY 
     &                                           - newemis(i, 5)) * fac
./pkg/fizhi/update_earth_exports.F 1159 EMISSIVITY 
         newemis(i, 6) = newemis(i, 6) +              (emis( 8,9)
./pkg/fizhi/update_earth_exports.F 1160 EMISSIVITY 
     &                                           - newemis(i, 6)) * fac
./pkg/fizhi/update_earth_exports.F 1161 EMISSIVITY 
         newemis(i, 7) = newemis(i, 7) +              (emis( 9,9)
./pkg/fizhi/update_earth_exports.F 1162 EMISSIVITY 
     &                                           - newemis(i, 7)) * fac
./pkg/fizhi/update_earth_exports.F 1163 EMISSIVITY 
         newemis(i, 8) = newemis(i, 8) + (((emis(10,9)+emis(11,9))/2.)
./pkg/fizhi/update_earth_exports.F 1164 EMISSIVITY 
     &                                           - newemis(i, 8)) * fac
./pkg/fizhi/update_earth_exports.F 1165 EMISSIVITY 
         newemis(i, 9) = newemis(i, 9) +              (emis(12,9)
./pkg/fizhi/update_earth_exports.F 1166 EMISSIVITY 
     &                                           - newemis(i, 9)) * fac
./pkg/fizhi/update_earth_exports.F 1167 EMISSIVITY 
         newemis(i,10) = newemis(i,10) +              (emis( 4,9)
./pkg/fizhi/update_earth_exports.F 1168 EMISSIVITY 
     &                                           - newemis(i,10)) * fac
./pkg/fizhi/update_earth_exports.F 1174 EMISSIVITY 
        if(fraci(i).eq.0.)then
./pkg/fizhi/update_earth_exports.F 1175 EMISSIVITY 
         newemis(i, 1) = (emis( 1,11)+emis(2,11))/2.
./pkg/fizhi/update_earth_exports.F 1176 EMISSIVITY 
         newemis(i, 2) = (emis( 2,11)+emis(3,11))/2.
./pkg/fizhi/update_earth_exports.F 1177 EMISSIVITY 
         newemis(i, 3) = (emis( 4,11)+emis(5,11))/2.
./pkg/fizhi/update_earth_exports.F 1178 EMISSIVITY 
         newemis(i, 4) =  emis( 6,11)
./pkg/fizhi/update_earth_exports.F 1179 EMISSIVITY 
         newemis(i, 5) =  emis( 7,11)
./pkg/fizhi/update_earth_exports.F 1180 EMISSIVITY 
         newemis(i, 6) =  emis( 8,11)
./pkg/fizhi/update_earth_exports.F 1181 EMISSIVITY 
         newemis(i, 7) =  emis( 9,11)
./pkg/fizhi/update_earth_exports.F 1182 EMISSIVITY 
         newemis(i, 8) = (emis(10,11)+emis(11,11))/2.
./pkg/fizhi/update_earth_exports.F 1183 EMISSIVITY 
         newemis(i, 9) =  emis(12,11)
./pkg/fizhi/update_earth_exports.F 1184 EMISSIVITY 
         newemis(i,10) =  emis( 4,11)
./pkg/fizhi/update_earth_exports.F 1189 EMISSIVITY 
         newemis(i, 1) = (emis( 1,9)+emis(2,9))/2.
./pkg/fizhi/update_earth_exports.F 1190 EMISSIVITY 
         newemis(i, 2) = (emis( 2,9)+emis(3,9))/2.
./pkg/fizhi/update_earth_exports.F 1191 EMISSIVITY 
         newemis(i, 3) = (emis( 4,9)+emis(5,9))/2.
./pkg/fizhi/update_earth_exports.F 1192 EMISSIVITY 
         newemis(i, 4) =  emis( 6,9)
./pkg/fizhi/update_earth_exports.F 1193 EMISSIVITY 
         newemis(i, 5) =  emis( 7,9)
./pkg/fizhi/update_earth_exports.F 1194 EMISSIVITY 
         newemis(i, 6) =  emis( 8,9)
./pkg/fizhi/update_earth_exports.F 1195 EMISSIVITY 
         newemis(i, 7) =  emis( 9,9)
./pkg/fizhi/update_earth_exports.F 1196 EMISSIVITY 
         newemis(i, 8) = (emis(10,9)+emis(11,9))/2.
./pkg/fizhi/update_earth_exports.F 1197 EMISSIVITY 
         newemis(i, 9) =  emis(12,9)
./pkg/fizhi/update_earth_exports.F 1198 EMISSIVITY 
         newemis(i,10) =  emis( 4,9)
./pkg/fizhi/update_earth_exports.F 1219 GET_LANDFRAC 
      integer  i,j,k
./pkg/fizhi/update_earth_exports.F 1222 GET_LANDFRAC 
      do i=1,im
./pkg/fizhi/update_earth_exports.F 1223 GET_LANDFRAC 
      frac(i,j) = 0.0
./pkg/fizhi/update_earth_exports.F 1229 GET_LANDFRAC 
      do i=1,im
./pkg/fizhi/update_earth_exports.F 1230 GET_LANDFRAC 
      if( (surftype(i,j,k,bi,bj).lt.100.).and.
./pkg/fizhi/update_earth_exports.F 1231 GET_LANDFRAC 
     &                               (tilefrac(i,j,k,bi,bj).gt.0.0))then
./pkg/fizhi/update_earth_exports.F 1232 GET_LANDFRAC 
       frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj)
./pkg/fizhi/update_earth_exports.F 124 UPDATE_EARTH_EXPORTS 
       do i = im1,im2
./pkg/fizhi/update_earth_exports.F 125 UPDATE_EARTH_EXPORTS 
        tmpij(i,j) = 0.
./pkg/fizhi/update_earth_exports.F 128 UPDATE_EARTH_EXPORTS 
       do i = 1,nchptot(bi,bj)
./pkg/fizhi/update_earth_exports.F 129 UPDATE_EARTH_EXPORTS 
        tmpchp(i) = tcanopy(i,bi,bj)
./pkg/fizhi/update_earth_exports.F 134 UPDATE_EARTH_EXPORTS 
       do i = im1,im2
./pkg/fizhi/update_earth_exports.F 135 UPDATE_EARTH_EXPORTS 
        tgz(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 136 UPDATE_EARTH_EXPORTS 
        if(fracl(i,j).lt.0.3.and.sice(i,j,bi,bj).eq.0.0)
./pkg/fizhi/update_earth_exports.F 137 UPDATE_EARTH_EXPORTS 
     &                                 tgz(i,j,bi,bj) = sst(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 41 UPDATE_EARTH_EXPORTS 
      integer i, j, n, bi, bj
./pkg/fizhi/update_earth_exports.F 64 UPDATE_EARTH_EXPORTS 
       do i = im1,im2
./pkg/fizhi/update_earth_exports.F 65 UPDATE_EARTH_EXPORTS 
        lons(i,j) = xC(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 66 UPDATE_EARTH_EXPORTS 
        lats(i,j) = yC(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 712 GETLGR 
      integer i,midmon,midm,midp,id,k1,k2,kk1,kk2
./pkg/fizhi/update_earth_exports.F 74 UPDATE_EARTH_EXPORTS 
       do i = im1,im2
./pkg/fizhi/update_earth_exports.F 75 UPDATE_EARTH_EXPORTS 
        if(sice(i,j,bi,bj).gt.0.) then
./pkg/fizhi/update_earth_exports.F 76 UPDATE_EARTH_EXPORTS 
           fraci(i,j) = 1.
./pkg/fizhi/update_earth_exports.F 78 UPDATE_EARTH_EXPORTS 
           fraci(i,j) = 0.
./pkg/fizhi/update_earth_exports.F 876 GETALB 
      integer i,j
./pkg/fizhi/update_earth_exports.F 901 GETALB 
       tmpij(i,j) = albvr(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 909 GETALB 
       albvr(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 914 GETALB 
       tmpij(i,j) = albvf(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 921 GETALB 
       albvf(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 926 GETALB 
       tmpij(i,j) = albnr(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 933 GETALB 
       albnr(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 938 GETALB 
       tmpij(i,j) = albnf(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 945 GETALB 
       albnf(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 993 GETEMISS 
      integer i,j,k,n
./pkg/fizhi/update_earth_exports.F 995 GETEMISS 
      do i = 1,10
./pkg/fizhi/update_earth_exports.F 997 GETEMISS 
         emisstile(n,i) = 1.
./pkg/fizhi/update_ocean_exports.F 103 UPDATE_OCEAN_EXPORTS 
       do i=im1,im2
./pkg/fizhi/update_ocean_exports.F 104 UPDATE_OCEAN_EXPORTS 
       if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin)
./pkg/fizhi/update_ocean_exports.F 105 UPDATE_OCEAN_EXPORTS 
     .                                          sst(i,j,bi,bj) = sstmin
./pkg/fizhi/update_ocean_exports.F 184 GETSICE 
      integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F 34 UPDATE_OCEAN_EXPORTS 
       integer i, j, bi, bj, bislot, bjslot
./pkg/fizhi/update_ocean_exports.F 353 GETSICE 
      do i = im1,im2
./pkg/fizhi/update_ocean_exports.F 354 GETSICE 
       sice(i,j,bi,bj) = sicebc1(i+bislot,j+bjslot)*fac1
./pkg/fizhi/update_ocean_exports.F 355 GETSICE 
     .                 + sicebc2(i+bislot,j+bjslot)*fac2
./pkg/fizhi/update_ocean_exports.F 358 GETSICE 
       if (sice(i,j,bi,bj) .ge. 0.5) then
./pkg/fizhi/update_ocean_exports.F 359 GETSICE 
        sice(i,j,bi,bj) = 1.
./pkg/fizhi/update_ocean_exports.F 361 GETSICE 
        sice(i,j,bi,bj) = 0.
./pkg/fizhi/update_ocean_exports.F 368 GETSICE 
      do i = im1,im2
./pkg/fizhi/update_ocean_exports.F 369 GETSICE 
       if (sice(i,j,bi,bj) .eq. 1.) then
./pkg/fizhi/update_ocean_exports.F 370 GETSICE 
        sice(i,j,bi,bj) = 3.
./pkg/fizhi/update_ocean_exports.F 445 GETSST 
      integer i,j,n,nn,iyear,iyearbc,nd,ndby3,imbc,jmbc
./pkg/fizhi/update_ocean_exports.F 615 GETSST 
      do i = im1,im2
./pkg/fizhi/update_ocean_exports.F 616 GETSST 
       sst(i,j,bi,bj) = sstbc1(i+bislot,j+bjslot)*fac1
./pkg/fizhi/update_ocean_exports.F 617 GETSST 
     .                + sstbc2(i+bislot,j+bjslot)*fac2
./pkg/fizhi/update_ocean_exports.F 652 BCDATA 
      integer i,j
./pkg/fizhi/update_ocean_exports.F 664 BCDATA 
      do i=1,im
./pkg/fizhi/update_ocean_exports.F 665 BCDATA 
       field1(i,j) = f1(i,j)
./pkg/fizhi/update_ocean_exports.F 666 BCDATA 
       field2(i,j) = f2(i,j)
./pkg/fizhi/update_ocean_exports.F 710 BCHEADER 
      integer i
./pkg/fizhi/update_ocean_exports.F 731 BCHEADER 
     .     (nymdbc_32(i), nhmsbc_32(i), i=1,ndatebc_32)
./pkg/fizhi/update_ocean_exports.F 740 BCHEADER 
      do i=1,ndatebc
./pkg/fizhi/update_ocean_exports.F 742 BCHEADER 
      call MDS_BYTESWAPI4( 1, nymdbc_32(i))
./pkg/fizhi/update_ocean_exports.F 743 BCHEADER 
      call MDS_BYTESWAPI4( 1, nhmsbc_32(i))
./pkg/fizhi/update_ocean_exports.F 745 BCHEADER 
      nymdbc(i) = nymdbc_32(i)
./pkg/fizhi/update_ocean_exports.F 746 BCHEADER 
      nhmsbc(i) = nhmsbc_32(i)
./pkg/flt/flt_mapping.F 120 FLT_MAP_IJLOCAL2XY 
      INTEGER i, j
./pkg/flt/flt_mapping.F 128 FLT_MAP_IJLOCAL2XY 
        i = NINT(ix)
./pkg/flt/flt_mapping.F 130 FLT_MAP_IJLOCAL2XY 
        ddx = 0.5 _d 0 + ix - DFLOAT(i)
./pkg/flt/flt_mapping.F 133 FLT_MAP_IJLOCAL2XY 
        xx = xG(i,j,bi,bj) + ddx*( xG(i+1,j,bi,bj) - xG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F 134 FLT_MAP_IJLOCAL2XY 
        yy = yG(i,j,bi,bj) + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F 46 FLT_MAP_XY2IJLOCAL 
      INTEGER i, j
./pkg/flt/flt_mapping.F 58 FLT_MAP_XY2IJLOCAL 
        DO i=0,sNx+1
./pkg/flt/flt_mapping.F 60 FLT_MAP_XY2IJLOCAL 
           IF ( xG(i,j,bi,bj).LE.xx .AND. xx.LT.xG(i+1,j,bi,bj) ) THEN
./pkg/flt/flt_mapping.F 61 FLT_MAP_XY2IJLOCAL 
             dist = xG(i+1,j,bi,bj) - xG(i,j,bi,bj)
./pkg/flt/flt_mapping.F 62 FLT_MAP_XY2IJLOCAL 
             fm = ( xx - xG(i,j,bi,bj) ) / dist
./pkg/flt/flt_mapping.F 63 FLT_MAP_XY2IJLOCAL 
             ix = DFLOAT(i)+fm-0.5 _d 0
./pkg/flt/flt_mapping.F 68 FLT_MAP_XY2IJLOCAL 
        i = 1
./pkg/flt/flt_mapping.F 71 FLT_MAP_XY2IJLOCAL 
           IF ( yG(i,j,bi,bj).LE.yy .AND. yy.LT.yG(i,j+1,bi,bj) ) THEN
./pkg/flt/flt_mapping.F 72 FLT_MAP_XY2IJLOCAL 
             dist = yG(i,j+1,bi,bj) - yG(i,j,bi,bj)
./pkg/flt/flt_mapping.F 73 FLT_MAP_XY2IJLOCAL 
             fm = ( yy - yG(i,j,bi,bj) ) / dist
./pkg/flt/flt_mdsreadvector.F 201 FLT_MDSREADVECTOR 
           READ( dUnit, rec=irec ) ( arr(i),i=1,narr )
./pkg/flt/flt_mdsreadvector.F 72 FLT_MDSREADVECTOR 
      INTEGER i,iG,jG,irec,dUnit,IL,iLfn
./pkg/gchem/gchem_add_tendency.F 47 GCHEM_ADD_TENDENCY 
      INTEGER i,j
./pkg/gchem/gchem_add_tendency.F 59 GCHEM_ADD_TENDENCY 
       DO i=iMin,iMax
./pkg/gchem/gchem_calc_tendency.F 49 GCHEM_CALC_TENDENCY 
      INTEGER i,j
./pkg/gchem/gchem_forcing_sep.F 53 GCHEM_FORCING_SEP 
      INTEGER i,j
./pkg/generic_advdiff/gad_advection.F 124 GAD_ADVECTION 
      INTEGER i,j,k,kUp,kDown
./pkg/generic_advdiff/gad_advection.F 204 GAD_ADVECTION 
       DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_advection.F 205 GAD_ADVECTION 
        xA(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 206 GAD_ADVECTION 
        yA(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 207 GAD_ADVECTION 
        uTrans(i,j)  = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 208 GAD_ADVECTION 
        vTrans(i,j)  = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 209 GAD_ADVECTION 
        rTrans(i,j)  = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 210 GAD_ADVECTION 
        fVerT(i,j,1) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 211 GAD_ADVECTION 
        fVerT(i,j,2) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 212 GAD_ADVECTION 
        rTransKp1(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_advection.F 214 GAD_ADVECTION 
        localTij(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 215 GAD_ADVECTION 
        wfld(i,j)    = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 273 GAD_ADVECTION 
       DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_advection.F 274 GAD_ADVECTION 
         localTij(i,j)=tracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 275 GAD_ADVECTION 
         maskLocW(i,j)=_maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 276 GAD_ADVECTION 
         maskLocS(i,j)=_maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 339 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 340 GAD_ADVECTION 
          af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 426 GAD_ADVECTION 
          DO i=iMinUpd,iMaxUpd
./pkg/generic_advdiff/gad_advection.F 427 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 429 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 430 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 431 GAD_ADVECTION 
     &       *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 432 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 439 GAD_ADVECTION 
          DO i=iMinUpd,iMaxUpd
./pkg/generic_advdiff/gad_advection.F 440 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 442 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 443 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 444 GAD_ADVECTION 
     &       *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 445 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 458 GAD_ADVECTION 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/generic_advdiff/gad_advection.F 459 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 461 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 462 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 463 GAD_ADVECTION 
     &       *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 464 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 470 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 471 GAD_ADVECTION 
          afx(i,j) = af(i,j)
./pkg/generic_advdiff/gad_advection.F 502 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 503 GAD_ADVECTION 
          af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 535 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 536 GAD_ADVECTION 
          af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 596 GAD_ADVECTION 
          DO i=1-Olx,0
./pkg/generic_advdiff/gad_advection.F 597 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 599 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 600 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 601 GAD_ADVECTION 
     &       *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 602 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 609 GAD_ADVECTION 
          DO i=sNx+1,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 610 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 612 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 613 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 614 GAD_ADVECTION 
     &       *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 615 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 628 GAD_ADVECTION 
         DO i=iMinUpd,iMaxUpd
./pkg/generic_advdiff/gad_advection.F 629 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 631 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 632 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 633 GAD_ADVECTION 
     &       *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 634 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 640 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 641 GAD_ADVECTION 
          afy(i,j) = af(i,j)
./pkg/generic_advdiff/gad_advection.F 673 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 674 GAD_ADVECTION 
          gTracer(i,j,k,bi,bj)=
./pkg/generic_advdiff/gad_advection.F 675 GAD_ADVECTION 
     &     (localTij(i,j)-tracer(i,j,k,bi,bj))/deltaTLev(k)
./pkg/generic_advdiff/gad_advection.F 681 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 682 GAD_ADVECTION 
          localTijk(i,j,k)=localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 752 GAD_ADVECTION 
          DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 753 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 754 GAD_ADVECTION 
           wFld(i,j)   = 0.
./pkg/generic_advdiff/gad_advection.F 755 GAD_ADVECTION 
           rTrans(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 756 GAD_ADVECTION 
           fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F 769 GAD_ADVECTION 
          DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 770 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 771 GAD_ADVECTION 
           wFld(i,j)   = wVel(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 772 GAD_ADVECTION 
           rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 774 GAD_ADVECTION 
     &                 *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_advection.F 775 GAD_ADVECTION 
           fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F 840 GAD_ADVECTION 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_advection.F 841 GAD_ADVECTION 
          localTij(i,j) = localTijk(i,j,k)
./pkg/generic_advdiff/gad_advection.F 843 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 844 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 845 GAD_ADVECTION 
     &       *( fVerT(i,j,kDown)-fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_advection.F 846 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 848 GAD_ADVECTION 
          gTracer(i,j,k,bi,bj)=
./pkg/generic_advdiff/gad_advection.F 849 GAD_ADVECTION 
     &     (localTij(i,j)-tracer(i,j,k,bi,bj))/deltaTLev(k)
./pkg/generic_advdiff/gad_biharm_x.F 47 GAD_BIHARM_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_biharm_x.F 53 GAD_BIHARM_X 
       DO i=1-Olx+1,sNx+Olx
./pkg/generic_advdiff/gad_biharm_x.F 55 GAD_BIHARM_X 
         dfx(i,j) = dfx(i,j) + diffK4*xA(i,j)
./pkg/generic_advdiff/gad_biharm_x.F 56 GAD_BIHARM_X 
     &    *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./pkg/generic_advdiff/gad_biharm_x.F 57 GAD_BIHARM_X 
     &    *(del2T(i,j)-del2T(i-1,j))
./pkg/generic_advdiff/gad_biharm_y.F 47 GAD_BIHARM_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_biharm_y.F 55 GAD_BIHARM_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_biharm_y.F 57 GAD_BIHARM_Y 
         dfy(i,j) = dfy(i,j) + diffK4*yA(i,j)
./pkg/generic_advdiff/gad_biharm_y.F 58 GAD_BIHARM_Y 
     &    *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./pkg/generic_advdiff/gad_biharm_y.F 59 GAD_BIHARM_Y 
     &    *(del2T(i,j)-del2T(i,j-1))
./pkg/generic_advdiff/gad_c2_adv_r.F 49 GAD_C2_ADV_R 
      INTEGER i,j,km1
./pkg/generic_advdiff/gad_c2_adv_r.F 56 GAD_C2_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c2_adv_r.F 57 GAD_C2_ADV_R 
         wT(i,j) = 0.
./pkg/generic_advdiff/gad_c2_adv_r.F 62 GAD_C2_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c2_adv_r.F 63 GAD_C2_ADV_R 
         wT(i,j) = maskC(i,j,kM1,bi,bj)*
./pkg/generic_advdiff/gad_c2_adv_r.F 64 GAD_C2_ADV_R 
     &     rTrans(i,j)*
./pkg/generic_advdiff/gad_c2_adv_r.F 65 GAD_C2_ADV_R 
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,kM1,bi,bj))*0.5 _d 0
./pkg/generic_advdiff/gad_c2_adv_x.F 46 GAD_C2_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_c2_adv_x.F 53 GAD_C2_ADV_X 
       DO i=1-Olx+1,sNx+Olx
./pkg/generic_advdiff/gad_c2_adv_x.F 54 GAD_C2_ADV_X 
        uT(i,j) =
./pkg/generic_advdiff/gad_c2_adv_x.F 55 GAD_C2_ADV_X 
     &   uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0
./pkg/generic_advdiff/gad_c2_adv_y.F 46 GAD_C2_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_c2_adv_y.F 49 GAD_C2_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c2_adv_y.F 50 GAD_C2_ADV_Y 
       vT(i,1-Oly)=0.
./pkg/generic_advdiff/gad_c2_adv_y.F 53 GAD_C2_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c2_adv_y.F 54 GAD_C2_ADV_Y 
        vT(i,j) =
./pkg/generic_advdiff/gad_c2_adv_y.F 55 GAD_C2_ADV_Y 
     &   vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0
./pkg/generic_advdiff/gad_c2_impl_r.F 53 GAD_C2_IMPL_R 
      INTEGER i,j
./pkg/generic_advdiff/gad_c2_impl_r.F 62 GAD_C2_IMPL_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_c2_impl_r.F 63 GAD_C2_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_c2_impl_r.F 64 GAD_C2_IMPL_R 
           a3d(i,j,k)   = a3d(i,j,k)
./pkg/generic_advdiff/gad_c2_impl_r.F 66 GAD_C2_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_c2_impl_r.F 67 GAD_C2_IMPL_R 
           b3d(i,j,k)   = b3d(i,j,k)
./pkg/generic_advdiff/gad_c2_impl_r.F 69 GAD_C2_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_c2_impl_r.F 70 GAD_C2_IMPL_R 
           b3d(i,j,k-1) = b3d(i,j,k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F 72 GAD_C2_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F 73 GAD_C2_IMPL_R 
           c3d(i,j,k-1) = c3d(i,j,k-1)
./pkg/generic_advdiff/gad_c2_impl_r.F 75 GAD_C2_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_c4_adv_r.F 56 GAD_C4_ADV_R 
      INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_c4_adv_r.F 69 GAD_C4_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c4_adv_r.F 70 GAD_C4_ADV_R 
         wT(i,j) = 0.
./pkg/generic_advdiff/gad_c4_adv_r.F 75 GAD_C4_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c4_adv_r.F 76 GAD_C4_ADV_R 
         maskBound = maskPM*maskC(i,j,km2,bi,bj)*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F 77 GAD_C4_ADV_R 
         Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj))
./pkg/generic_advdiff/gad_c4_adv_r.F 78 GAD_C4_ADV_R 
     &        *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F 79 GAD_C4_ADV_R 
         Rj =(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj))
./pkg/generic_advdiff/gad_c4_adv_r.F 80 GAD_C4_ADV_R 
         Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,km2,bi,bj))
./pkg/generic_advdiff/gad_c4_adv_r.F 81 GAD_C4_ADV_R 
     &        *maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F 84 GAD_C4_ADV_R 
         wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_c4_adv_r.F 85 GAD_C4_ADV_R 
     &     rTrans(i,j)*(
./pkg/generic_advdiff/gad_c4_adv_r.F 86 GAD_C4_ADV_R 
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0
./pkg/generic_advdiff/gad_c4_adv_r.F 88 GAD_C4_ADV_R 
     &    +ABS(rTrans(i,j))*
./pkg/generic_advdiff/gad_c4_adv_x.F 52 GAD_C4_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_c4_adv_x.F 62 GAD_C4_ADV_X 
       DO i=1-Olx+2,sNx+Olx-1
./pkg/generic_advdiff/gad_c4_adv_x.F 63 GAD_C4_ADV_X 
        Rjp=(tracer(i+1,j)-tracer(i,j))
./pkg/generic_advdiff/gad_c4_adv_x.F 64 GAD_C4_ADV_X 
     &     *maskW(i+1,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_x.F 65 GAD_C4_ADV_X 
        Rj =(tracer(i,j)-tracer(i-1,j))
./pkg/generic_advdiff/gad_c4_adv_x.F 66 GAD_C4_ADV_X 
     &     *maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_x.F 67 GAD_C4_ADV_X 
        Rjm=(tracer(i-1,j)-tracer(i-2,j))
./pkg/generic_advdiff/gad_c4_adv_x.F 68 GAD_C4_ADV_X 
     &     *maskW(i-1,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_x.F 71 GAD_C4_ADV_X 
        uT(i,j) =
./pkg/generic_advdiff/gad_c4_adv_x.F 72 GAD_C4_ADV_X 
     &   uTrans(i,j)*(
./pkg/generic_advdiff/gad_c4_adv_x.F 73 GAD_C4_ADV_X 
     &     Tracer(i,j)+Tracer(i-1,j)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_c4_adv_x.F 75 GAD_C4_ADV_X 
     &  +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_c4_adv_x.F 76 GAD_C4_ADV_X 
     &    *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) )
./pkg/generic_advdiff/gad_c4_adv_y.F 52 GAD_C4_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_c4_adv_y.F 56 GAD_C4_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c4_adv_y.F 57 GAD_C4_ADV_Y 
       vT(i,1-Oly)=0.
./pkg/generic_advdiff/gad_c4_adv_y.F 58 GAD_C4_ADV_Y 
       vT(i,2-Oly)=0.
./pkg/generic_advdiff/gad_c4_adv_y.F 59 GAD_C4_ADV_Y 
       vT(i,sNy+Oly)=0.
./pkg/generic_advdiff/gad_c4_adv_y.F 62 GAD_C4_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_c4_adv_y.F 63 GAD_C4_ADV_Y 
        Rjp=(tracer(i,j+1)-tracer(i,j))
./pkg/generic_advdiff/gad_c4_adv_y.F 64 GAD_C4_ADV_Y 
     &     *maskS(i,j+1,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_y.F 65 GAD_C4_ADV_Y 
        Rj =(tracer(i,j)-tracer(i,j-1))
./pkg/generic_advdiff/gad_c4_adv_y.F 66 GAD_C4_ADV_Y 
     &     *maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_y.F 67 GAD_C4_ADV_Y 
        Rjm=(tracer(i,j-1)-tracer(i,j-2))
./pkg/generic_advdiff/gad_c4_adv_y.F 68 GAD_C4_ADV_Y 
     &     *maskS(i,j-1,k,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_y.F 71 GAD_C4_ADV_Y 
        vT(i,j) =
./pkg/generic_advdiff/gad_c4_adv_y.F 72 GAD_C4_ADV_Y 
     &   vTrans(i,j)*(
./pkg/generic_advdiff/gad_c4_adv_y.F 73 GAD_C4_ADV_Y 
     &     Tracer(i,j)+Tracer(i,j-1)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_c4_adv_y.F 75 GAD_C4_ADV_Y 
     &  +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_c4_adv_y.F 76 GAD_C4_ADV_Y 
     &    *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) )
./pkg/generic_advdiff/gad_calc_rhs.F 132 GAD_CALC_RHS 
      INTEGER i,j
./pkg/generic_advdiff/gad_calc_rhs.F 165 GAD_CALC_RHS 
       DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_calc_rhs.F 166 GAD_CALC_RHS 
        fZon(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 167 GAD_CALC_RHS 
        fMer(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 168 GAD_CALC_RHS 
        fVerT(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 169 GAD_CALC_RHS 
        df(i,j)        = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 170 GAD_CALC_RHS 
        df4(i,j)       = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 177 GAD_CALC_RHS 
         DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_calc_rhs.F 178 GAD_CALC_RHS 
          localT(i,j)=TracerN(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 179 GAD_CALC_RHS 
          locABT(i,j)= TracAB(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 184 GAD_CALC_RHS 
         DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_calc_rhs.F 185 GAD_CALC_RHS 
          localT(i,j)= TracAB(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 186 GAD_CALC_RHS 
          locABT(i,j)= TracAB(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 211 GAD_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 212 GAD_CALC_RHS 
        fZon(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 258 GAD_CALC_RHS 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 259 GAD_CALC_RHS 
          fZon(i,j) = fZon(i,j) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 275 GAD_CALC_RHS 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 276 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 307 GAD_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 308 GAD_CALC_RHS 
        fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 324 GAD_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 325 GAD_CALC_RHS 
        fMer(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 371 GAD_CALC_RHS 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 372 GAD_CALC_RHS 
          fMer(i,j) = fMer(i,j) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 388 GAD_CALC_RHS 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 389 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 420 GAD_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 421 GAD_CALC_RHS 
        fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 487 GAD_CALC_RHS 
         DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 488 GAD_CALC_RHS 
          fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 507 GAD_CALC_RHS 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 508 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 540 GAD_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 541 GAD_CALC_RHS 
        fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 559 GAD_CALC_RHS 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 560 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 587 GAD_CALC_RHS 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_calc_rhs.F 588 GAD_CALC_RHS 
         fVerT(i,j,kUp) = fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F 589 GAD_CALC_RHS 
     &                  + df(i,j)*maskUp(i,j)*rhoFacF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 614 GAD_CALC_RHS 
        DO i=1-Olx,sNx+Olx-1
./pkg/generic_advdiff/gad_calc_rhs.F 617 GAD_CALC_RHS 
     &    _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 618 GAD_CALC_RHS 
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 619 GAD_CALC_RHS 
     &    *( MAX(0. _d 0,fZon(i+1,j)) + MAX(0. _d 0,-fZon(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 620 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fMer(i,j+1)) + MAX(0. _d 0,-fMer(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 621 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 622 GAD_CALC_RHS 
     &      +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 625 GAD_CALC_RHS 
           trac=TracerN(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 627 GAD_CALC_RHS 
           trac=TracAB(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 636 GAD_CALC_RHS 
           IF (fZon(i+1,j).GT.0. _d 0) fZon(i+1,j)=fac*fZon(i+1,j)
./pkg/generic_advdiff/gad_calc_rhs.F 637 GAD_CALC_RHS 
           IF (-fZon(i,j) .GT.0. _d 0) fZon(i,j)  =fac*fZon(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 638 GAD_CALC_RHS 
           IF (fMer(i,j+1).GT.0. _d 0) fMer(i,j+1)=fac*fMer(i,j+1)
./pkg/generic_advdiff/gad_calc_rhs.F 639 GAD_CALC_RHS 
           IF (-fMer(i,j) .GT.0. _d 0) fMer(i,j)  =fac*fMer(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 640 GAD_CALC_RHS 
           IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0)
./pkg/generic_advdiff/gad_calc_rhs.F 641 GAD_CALC_RHS 
     &       fVerT(i,j,kUp)=fac*fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F 643 GAD_CALC_RHS 
           IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_calc_rhs.F 654 GAD_CALC_RHS 
                gTrFac = gTrFac/rStarExpC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 660 GAD_CALC_RHS 
             gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 662 GAD_CALC_RHS 
     &         *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 663 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 665 GAD_CALC_RHS 
     &         *( -fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 667 GAD_CALC_RHS 
             fVerT(i,j,kDown)=fac*fVerT(i,j,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 669 GAD_CALC_RHS 
             gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 671 GAD_CALC_RHS 
     &         *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 672 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 674 GAD_CALC_RHS 
     &         *( fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 686 GAD_CALC_RHS 
       DO i=1-Olx,sNx+Olx-1
./pkg/generic_advdiff/gad_calc_rhs.F 687 GAD_CALC_RHS 
        gTracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 688 GAD_CALC_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 689 GAD_CALC_RHS 
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 690 GAD_CALC_RHS 
     &   *( (fZon(i+1,j)-fZon(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 691 GAD_CALC_RHS 
     &     +(fMer(i,j+1)-fMer(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 692 GAD_CALC_RHS 
     &     +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F 693 GAD_CALC_RHS 
     &     -localT(i,j)*( (uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 694 GAD_CALC_RHS 
     &                   +(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 695 GAD_CALC_RHS 
     &                   +(rTransKp1(i,j)-rTrans(i,j))*rAdvFac
./pkg/generic_advdiff/gad_del2.F 44 GAD_DEL2 
      INTEGER i,j
./pkg/generic_advdiff/gad_del2.F 49 GAD_DEL2 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_del2.F 50 GAD_DEL2 
        del2(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_del2.F 57 GAD_DEL2 
       DO i=1-Olx,sNx+Olx-1
./pkg/generic_advdiff/gad_del2.F 58 GAD_DEL2 
        del2(i,j)=recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_del2.F 59 GAD_DEL2 
     &           *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_del2.F 60 GAD_DEL2 
     &           *( ( dTdx(i+1,j)-dTdx(i,j) )
./pkg/generic_advdiff/gad_del2.F 61 GAD_DEL2 
     &             +( dTdy(i,j+1)-dTdy(i,j) )
./pkg/generic_advdiff/gad_diagnostics_state.F 118 GAD_DIAGNOSTICS_STATE 
             DO i = 1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_diagnostics_state.F 119 GAD_DIAGNOSTICS_STATE 
              recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_diagnostics_state.F 120 GAD_DIAGNOSTICS_STATE 
     &                  *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_diagnostics_state.F 122 GAD_DIAGNOSTICS_STATE 
              locVar(i,j,k) = (
./pkg/generic_advdiff/gad_diagnostics_state.F 123 GAD_DIAGNOSTICS_STATE 
     &               (  som_S(i,j,k,bi,bj,1)*som_S(i,j,k,bi,bj,1)
./pkg/generic_advdiff/gad_diagnostics_state.F 124 GAD_DIAGNOSTICS_STATE 
     &                + som_S(i,j,k,bi,bj,2)*som_S(i,j,k,bi,bj,2)
./pkg/generic_advdiff/gad_diagnostics_state.F 125 GAD_DIAGNOSTICS_STATE 
     &                + som_S(i,j,k,bi,bj,3)*som_S(i,j,k,bi,bj,3)
./pkg/generic_advdiff/gad_diagnostics_state.F 127 GAD_DIAGNOSTICS_STATE 
     &             + (  som_S(i,j,k,bi,bj,4)*som_S(i,j,k,bi,bj,4)
./pkg/generic_advdiff/gad_diagnostics_state.F 128 GAD_DIAGNOSTICS_STATE 
     &                + som_S(i,j,k,bi,bj,5)*som_S(i,j,k,bi,bj,5)
./pkg/generic_advdiff/gad_diagnostics_state.F 129 GAD_DIAGNOSTICS_STATE 
     &                + som_S(i,j,k,bi,bj,6)*som_S(i,j,k,bi,bj,6)
./pkg/generic_advdiff/gad_diagnostics_state.F 131 GAD_DIAGNOSTICS_STATE 
     &             + (  som_S(i,j,k,bi,bj,7)*som_S(i,j,k,bi,bj,7)
./pkg/generic_advdiff/gad_diagnostics_state.F 132 GAD_DIAGNOSTICS_STATE 
     &                + som_S(i,j,k,bi,bj,8)*som_S(i,j,k,bi,bj,8)
./pkg/generic_advdiff/gad_diagnostics_state.F 133 GAD_DIAGNOSTICS_STATE 
     &                + som_S(i,j,k,bi,bj,9)*som_S(i,j,k,bi,bj,9)
./pkg/generic_advdiff/gad_diagnostics_state.F 45 GAD_DIAGNOSTICS_STATE 
      INTEGER   i,j,k,bi,bj,n
./pkg/generic_advdiff/gad_diagnostics_state.F 73 GAD_DIAGNOSTICS_STATE 
             DO i = 1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_diagnostics_state.F 74 GAD_DIAGNOSTICS_STATE 
              recipVol = recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_diagnostics_state.F 75 GAD_DIAGNOSTICS_STATE 
     &                  *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_diagnostics_state.F 77 GAD_DIAGNOSTICS_STATE 
              locVar(i,j,k) = (
./pkg/generic_advdiff/gad_diagnostics_state.F 78 GAD_DIAGNOSTICS_STATE 
     &               (  som_T(i,j,k,bi,bj,1)*som_T(i,j,k,bi,bj,1)
./pkg/generic_advdiff/gad_diagnostics_state.F 79 GAD_DIAGNOSTICS_STATE 
     &                + som_T(i,j,k,bi,bj,2)*som_T(i,j,k,bi,bj,2)
./pkg/generic_advdiff/gad_diagnostics_state.F 80 GAD_DIAGNOSTICS_STATE 
     &                + som_T(i,j,k,bi,bj,3)*som_T(i,j,k,bi,bj,3)
./pkg/generic_advdiff/gad_diagnostics_state.F 82 GAD_DIAGNOSTICS_STATE 
     &             + (  som_T(i,j,k,bi,bj,4)*som_T(i,j,k,bi,bj,4)
./pkg/generic_advdiff/gad_diagnostics_state.F 83 GAD_DIAGNOSTICS_STATE 
     &                + som_T(i,j,k,bi,bj,5)*som_T(i,j,k,bi,bj,5)
./pkg/generic_advdiff/gad_diagnostics_state.F 84 GAD_DIAGNOSTICS_STATE 
     &                + som_T(i,j,k,bi,bj,6)*som_T(i,j,k,bi,bj,6)
./pkg/generic_advdiff/gad_diagnostics_state.F 86 GAD_DIAGNOSTICS_STATE 
     &             + (  som_T(i,j,k,bi,bj,7)*som_T(i,j,k,bi,bj,7)
./pkg/generic_advdiff/gad_diagnostics_state.F 87 GAD_DIAGNOSTICS_STATE 
     &                + som_T(i,j,k,bi,bj,8)*som_T(i,j,k,bi,bj,8)
./pkg/generic_advdiff/gad_diagnostics_state.F 88 GAD_DIAGNOSTICS_STATE 
     &                + som_T(i,j,k,bi,bj,9)*som_T(i,j,k,bi,bj,9)
./pkg/generic_advdiff/gad_diff_r.F 49 GAD_DIFF_R 
      INTEGER i,j,km1
./pkg/generic_advdiff/gad_diff_r.F 56 GAD_DIFF_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_diff_r.F 57 GAD_DIFF_R 
         dfr(i,j) = 0.
./pkg/generic_advdiff/gad_diff_r.F 62 GAD_DIFF_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_diff_r.F 63 GAD_DIFF_R 
         dfr(i,j) = -KappaR(i,j)
./pkg/generic_advdiff/gad_diff_r.F 64 GAD_DIFF_R 
     &            *_rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./pkg/generic_advdiff/gad_diff_r.F 66 GAD_DIFF_R 
     &            *(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj))*rkSign
./pkg/generic_advdiff/gad_diff_x.F 48 GAD_DIFF_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_diff_x.F 53 GAD_DIFF_X 
       DO i=1-Olx+1,sNx+Olx
./pkg/generic_advdiff/gad_diff_x.F 54 GAD_DIFF_X 
        dfx(i,j) = -diffKh*xA(i,j)
./pkg/generic_advdiff/gad_diff_x.F 55 GAD_DIFF_X 
     &      *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./pkg/generic_advdiff/gad_diff_x.F 56 GAD_DIFF_X 
     &      *(tracer(i,j)-tracer(i-1,j))
./pkg/generic_advdiff/gad_diff_y.F 48 GAD_DIFF_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_diff_y.F 51 GAD_DIFF_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_diff_y.F 52 GAD_DIFF_Y 
       dfy(i,1-Oly)=0.
./pkg/generic_advdiff/gad_diff_y.F 55 GAD_DIFF_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_diff_y.F 56 GAD_DIFF_Y 
        dfy(i,j) = -diffKh*yA(i,j)
./pkg/generic_advdiff/gad_diff_y.F 57 GAD_DIFF_Y 
     &           *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./pkg/generic_advdiff/gad_diff_y.F 58 GAD_DIFF_Y 
     &           *(tracer(i,j)-tracer(i,j-1))
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 56 GAD_DST2U1_ADV_R 
      INTEGER i,j,km1
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 67 GAD_DST2U1_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 68 GAD_DST2U1_ADV_R 
         wT(i,j) = 0.
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 73 GAD_DST2U1_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 75 GAD_DST2U1_ADV_R 
         wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 88 GAD_DST2U1_ADV_R 
         wAbs = ABS(rTrans(i,j))*rkSign
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 90 GAD_DST2U1_ADV_R 
         wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 91 GAD_DST2U1_ADV_R 
     &             ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 92 GAD_DST2U1_ADV_R 
     &           + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 56 GAD_DST2U1_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 67 GAD_DST2U1_ADV_X 
       DO i=1-Olx+1,sNx+Olx
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 69 GAD_DST2U1_ADV_X 
        uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 70 GAD_DST2U1_ADV_X 
        IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 71 GAD_DST2U1_ADV_X 
     &                  *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 81 GAD_DST2U1_ADV_X 
        uAbs = ABS(uTrans(i,j))
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 83 GAD_DST2U1_ADV_X 
        uT(i,j) = ( uTrans(i,j)+uAbs )* 0.5 _d 0 * tracer(i-1,j)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 84 GAD_DST2U1_ADV_X 
     &          + ( uTrans(i,j)-uAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 55 GAD_DST2U1_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 62 GAD_DST2U1_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 63 GAD_DST2U1_ADV_Y 
       vT(i,1-Oly)=0.
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 66 GAD_DST2U1_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 68 GAD_DST2U1_ADV_Y 
        vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 69 GAD_DST2U1_ADV_Y 
        IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 70 GAD_DST2U1_ADV_Y 
     &                  *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 80 GAD_DST2U1_ADV_Y 
        vAbs = ABS(vTrans(i,j))
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 82 GAD_DST2U1_ADV_Y 
        vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 83 GAD_DST2U1_ADV_Y 
     &          + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 60 GAD_DST2U1_IMPL_R 
      INTEGER i,j
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 76 GAD_DST2U1_IMPL_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 77 GAD_DST2U1_IMPL_R 
           w_CFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 78 GAD_DST2U1_IMPL_R 
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 79 GAD_DST2U1_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 83 GAD_DST2U1_IMPL_R 
           a3d(i,j,k)   = a3d(i,j,k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 85 GAD_DST2U1_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 86 GAD_DST2U1_IMPL_R 
           b3d(i,j,k)   = b3d(i,j,k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 88 GAD_DST2U1_IMPL_R 
     &                    *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 89 GAD_DST2U1_IMPL_R 
           b3d(i,j,k-1) = b3d(i,j,k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 91 GAD_DST2U1_IMPL_R 
     &                    *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 92 GAD_DST2U1_IMPL_R 
           c3d(i,j,k-1) = c3d(i,j,k-1)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 94 GAD_DST2U1_IMPL_R 
     &                    *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3_adv_r.F 106 GAD_DST3_ADV_R 
         wT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_r.F 107 GAD_DST3_ADV_R 
     &    0.5*(rTrans(i,j)+ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 108 GAD_DST3_ADV_R 
     &       *( tracer(i,j, k ) + psiM*Rj )
./pkg/generic_advdiff/gad_dst3_adv_r.F 109 GAD_DST3_ADV_R 
     &   +0.5*(rTrans(i,j)-ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 110 GAD_DST3_ADV_R 
     &       *( tracer(i,j,km1) - psiP*Rj )
./pkg/generic_advdiff/gad_dst3_adv_r.F 112 GAD_DST3_ADV_R 
        wT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_r.F 113 GAD_DST3_ADV_R 
     &    0.5*(rTrans(i,j)+ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 114 GAD_DST3_ADV_R 
     &       *( tracer(i,j, k ) + (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_r.F 115 GAD_DST3_ADV_R 
     &   +0.5*(rTrans(i,j)-ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_r.F 116 GAD_DST3_ADV_R 
     &       *( tracer(i,j,km1) - (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_r.F 57 GAD_DST3_ADV_R 
      INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_dst3_adv_r.F 76 GAD_DST3_ADV_R 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst3_adv_r.F 77 GAD_DST3_ADV_R 
        Rjp=(tracer(i,j,k)-tracer(i,j,kp1))
./pkg/generic_advdiff/gad_dst3_adv_r.F 78 GAD_DST3_ADV_R 
     &         *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F 79 GAD_DST3_ADV_R 
        Rj =(tracer(i,j,km1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_dst3_adv_r.F 80 GAD_DST3_ADV_R 
     &         *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F 81 GAD_DST3_ADV_R 
        Rjm=(tracer(i,j,km2)-tracer(i,j,km1))
./pkg/generic_advdiff/gad_dst3_adv_r.F 82 GAD_DST3_ADV_R 
     &         *maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F 84 GAD_DST3_ADV_R 
        wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F 105 GAD_DST3_ADV_X 
        uT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_x.F 106 GAD_DST3_ADV_X 
     &   0.5*(uTrans(i,j)+ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F 107 GAD_DST3_ADV_X 
     &      *( Tracer(i-1,j) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3_adv_x.F 108 GAD_DST3_ADV_X 
     &  +0.5*(uTrans(i,j)-ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F 109 GAD_DST3_ADV_X 
     &      *( Tracer( i ,j) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3_adv_x.F 111 GAD_DST3_ADV_X 
        uT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_x.F 112 GAD_DST3_ADV_X 
     &   0.5*(uTrans(i,j)+ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F 113 GAD_DST3_ADV_X 
     &      *( Tracer(i-1,j) + (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_x.F 114 GAD_DST3_ADV_X 
     &  +0.5*(uTrans(i,j)-ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_x.F 115 GAD_DST3_ADV_X 
     &      *( Tracer( i ,j) - (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_x.F 58 GAD_DST3_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_dst3_adv_x.F 78 GAD_DST3_ADV_X 
       DO i=1-Olx+2,sNx+Olx-1
./pkg/generic_advdiff/gad_dst3_adv_x.F 79 GAD_DST3_ADV_X 
        Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F 80 GAD_DST3_ADV_X 
        Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F 81 GAD_DST3_ADV_X 
        Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F 83 GAD_DST3_ADV_X 
        uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_dst3_adv_x.F 84 GAD_DST3_ADV_X 
        IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3_adv_x.F 85 GAD_DST3_ADV_X 
     &                  *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 104 GAD_DST3_ADV_Y 
        vT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_y.F 105 GAD_DST3_ADV_Y 
     &   0.5*(vTrans(i,j)+ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F 106 GAD_DST3_ADV_Y 
     &      *( Tracer(i,j-1) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3_adv_y.F 107 GAD_DST3_ADV_Y 
     &  +0.5*(vTrans(i,j)-ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F 108 GAD_DST3_ADV_Y 
     &      *( Tracer(i, j ) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3_adv_y.F 110 GAD_DST3_ADV_Y 
        vT(i,j)=
./pkg/generic_advdiff/gad_dst3_adv_y.F 111 GAD_DST3_ADV_Y 
     &   0.5*(vTrans(i,j)+ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F 112 GAD_DST3_ADV_Y 
     &      *( Tracer(i,j-1) + (d0*Rj+d1*Rjm) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 113 GAD_DST3_ADV_Y 
     &  +0.5*(vTrans(i,j)-ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3_adv_y.F 114 GAD_DST3_ADV_Y 
     &      *( Tracer(i, j ) - (d0*Rj+d1*Rjp) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 57 GAD_DST3_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_dst3_adv_y.F 71 GAD_DST3_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst3_adv_y.F 72 GAD_DST3_ADV_Y 
       vT(i,1-Oly)=0.
./pkg/generic_advdiff/gad_dst3_adv_y.F 73 GAD_DST3_ADV_Y 
       vT(i,2-Oly)=0.
./pkg/generic_advdiff/gad_dst3_adv_y.F 74 GAD_DST3_ADV_Y 
       vT(i,sNy+Oly)=0.
./pkg/generic_advdiff/gad_dst3_adv_y.F 77 GAD_DST3_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst3_adv_y.F 78 GAD_DST3_ADV_Y 
        Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_dst3_adv_y.F 79 GAD_DST3_ADV_Y 
        Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_dst3_adv_y.F 80 GAD_DST3_ADV_Y 
        Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_dst3_adv_y.F 82 GAD_DST3_ADV_Y 
        vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_dst3_adv_y.F 83 GAD_DST3_ADV_Y 
        IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3_adv_y.F 84 GAD_DST3_ADV_Y 
     &                  *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 108 GAD_DST3FL_ADV_R 
        wT(i,j)=
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 109 GAD_DST3FL_ADV_R 
     &   0.5*(rTrans(i,j)+ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 110 GAD_DST3FL_ADV_R 
     &      *( tracer(i,j, k ) + psiM*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 111 GAD_DST3FL_ADV_R 
     &  +0.5*(rTrans(i,j)-ABS(rTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 112 GAD_DST3FL_ADV_R 
     &      *( tracer(i,j,km1) - psiP*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 55 GAD_DST3FL_ADV_R 
      INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 67 GAD_DST3FL_ADV_R 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 68 GAD_DST3FL_ADV_R 
        Rjp=(tracer(i,j,k)-tracer(i,j,kp1))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 69 GAD_DST3FL_ADV_R 
     &         *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 70 GAD_DST3FL_ADV_R 
        Rj =(tracer(i,j,km1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 71 GAD_DST3FL_ADV_R 
     &         *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 72 GAD_DST3FL_ADV_R 
        Rjm=(tracer(i,j,km2)-tracer(i,j,km1))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 73 GAD_DST3FL_ADV_R 
     &         *maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 75 GAD_DST3FL_ADV_R 
        wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 36 GAD_DST3FL_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 51 GAD_DST3FL_ADV_X 
       DO i=1-Olx+2,sNx+Olx-1
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 52 GAD_DST3FL_ADV_X 
        Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 53 GAD_DST3FL_ADV_X 
        Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 54 GAD_DST3FL_ADV_X 
        Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 56 GAD_DST3FL_ADV_X 
        uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 57 GAD_DST3FL_ADV_X 
        IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 58 GAD_DST3FL_ADV_X 
     &                  *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 90 GAD_DST3FL_ADV_X 
        uT(i,j)=
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 91 GAD_DST3FL_ADV_X 
     &   0.5*(uTrans(i,j)+ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 92 GAD_DST3FL_ADV_X 
     &      *( Tracer(i-1,j) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 93 GAD_DST3FL_ADV_X 
     &  +0.5*(uTrans(i,j)-ABS(uTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 94 GAD_DST3FL_ADV_X 
     &      *( Tracer( i ,j) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 36 GAD_DST3FL_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 41 GAD_DST3FL_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 42 GAD_DST3FL_ADV_Y 
       vT(i,1-Oly)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 43 GAD_DST3FL_ADV_Y 
       vT(i,2-Oly)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 44 GAD_DST3FL_ADV_Y 
       vT(i,sNy+Oly)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 47 GAD_DST3FL_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 48 GAD_DST3FL_ADV_Y 
        Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 49 GAD_DST3FL_ADV_Y 
        Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 50 GAD_DST3FL_ADV_Y 
        Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 52 GAD_DST3FL_ADV_Y 
        vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 53 GAD_DST3FL_ADV_Y 
        IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 54 GAD_DST3FL_ADV_Y 
     &                  *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 86 GAD_DST3FL_ADV_Y 
        vT(i,j)=
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 87 GAD_DST3FL_ADV_Y 
     &   0.5*(vTrans(i,j)+ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 88 GAD_DST3FL_ADV_Y 
     &      *( Tracer(i,j-1) + psiP*Rj )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 89 GAD_DST3FL_ADV_Y 
     &  +0.5*(vTrans(i,j)-ABS(vTrans(i,j)))
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 90 GAD_DST3FL_ADV_Y 
     &      *( Tracer(i, j ) - psiM*Rj )
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 100 GAD_DST3FL_IMPL_R 
           wCFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 101 GAD_DST3FL_IMPL_R 
     &           *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 107 GAD_DST3FL_IMPL_R 
           Rj =(tFld(i,j,k)  -tFld(i,j,k-1))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 108 GAD_DST3FL_IMPL_R 
           IF ( rTrans(i,j).GT.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 109 GAD_DST3FL_IMPL_R 
             Rjh = (tFld(i,j,k-1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 111 GAD_DST3FL_IMPL_R 
             Rjh = (tFld(i,j,kp1)-tFld(i,j,k)  )*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 115 GAD_DST3FL_IMPL_R 
             lowFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 116 GAD_DST3FL_IMPL_R 
             highFac(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 124 GAD_DST3FL_IMPL_R 
             lowFac(i,j) = cL1
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 125 GAD_DST3FL_IMPL_R 
             highFac(i,j)= cH3
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 128 GAD_DST3FL_IMPL_R 
             lowFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 129 GAD_DST3FL_IMPL_R 
             highFac(i,j)= cM2
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 132 GAD_DST3FL_IMPL_R 
             lowFac(i,j) = 1. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 133 GAD_DST3FL_IMPL_R 
             highFac(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 141 GAD_DST3FL_IMPL_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 142 GAD_DST3FL_IMPL_R 
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 143 GAD_DST3FL_IMPL_R 
           mskM   = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 144 GAD_DST3FL_IMPL_R 
           mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 145 GAD_DST3FL_IMPL_R 
           rUpwind= (0.5 _d 0 -lowFac(i,j))*ABS(rCenter)*2. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 146 GAD_DST3FL_IMPL_R 
           rC4km  = highFac(i,j)*(rCenter+ABS(rCenter))*mskM
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 147 GAD_DST3FL_IMPL_R 
           rC4kp  = highFac(i,j)*(rCenter-ABS(rCenter))*mskP
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 149 GAD_DST3FL_IMPL_R 
           a5d(i,j,k)   = a5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 152 GAD_DST3FL_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 153 GAD_DST3FL_IMPL_R 
           b5d(i,j,k)   = b5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 156 GAD_DST3FL_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 157 GAD_DST3FL_IMPL_R 
           c5d(i,j,k)   = c5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 160 GAD_DST3FL_IMPL_R 
     &                    *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 161 GAD_DST3FL_IMPL_R 
           d5d(i,j,k)   = d5d(i,j,k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 164 GAD_DST3FL_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 165 GAD_DST3FL_IMPL_R 
           b5d(i,j,k-1) = b5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 168 GAD_DST3FL_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 169 GAD_DST3FL_IMPL_R 
           c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 172 GAD_DST3FL_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 173 GAD_DST3FL_IMPL_R 
           d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 176 GAD_DST3FL_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 177 GAD_DST3FL_IMPL_R 
           e5d(i,j,k-1) = e5d(i,j,k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 180 GAD_DST3FL_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 71 GAD_DST3FL_IMPL_R 
      INTEGER i,j,kp1,km2
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 99 GAD_DST3FL_IMPL_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 100 GAD_FLUXLIMIT_ADV_R 
          IF (rTrans(i,j).LT.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 107 GAD_FLUXLIMIT_ADV_R 
         wT(i,j) = maskC(i,j,kM1,bi,bj)*(
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 108 GAD_FLUXLIMIT_ADV_R 
     &     rTrans(i,j)*
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 109 GAD_FLUXLIMIT_ADV_R 
     &        (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 110 GAD_FLUXLIMIT_ADV_R 
     &    +ABS(rTrans(i,j))*((1.-Cr)+wCFL*Cr)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 64 GAD_FLUXLIMIT_ADV_R 
      INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 77 GAD_FLUXLIMIT_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 78 GAD_FLUXLIMIT_ADV_R 
         wT(i,j) = 0.
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 83 GAD_FLUXLIMIT_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 85 GAD_FLUXLIMIT_ADV_R 
         wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 87 GAD_FLUXLIMIT_ADV_R 
         Rjp=(tracer(i,j,kp1)-tracer(i,j,k))
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 88 GAD_FLUXLIMIT_ADV_R 
     &        *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 89 GAD_FLUXLIMIT_ADV_R 
         Rj= (tracer(i,j,k)  -tracer(i,j,kM1))
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 90 GAD_FLUXLIMIT_ADV_R 
         Rjm=(tracer(i,j,km1)-tracer(i,j,kM2))
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 91 GAD_FLUXLIMIT_ADV_R 
     &        *maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 94 GAD_FLUXLIMIT_ADV_R 
          IF (rTrans(i,j).LT.0.) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 61 GAD_FLUXLIMIT_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 74 GAD_FLUXLIMIT_ADV_X 
       DO i=1-Olx+2,sNx+Olx-1
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 76 GAD_FLUXLIMIT_ADV_X 
        uCFL = uFld(i,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 77 GAD_FLUXLIMIT_ADV_X 
        IF ( calcCFL ) uCFL = ABS( uFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 78 GAD_FLUXLIMIT_ADV_X 
     &                  *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 79 GAD_FLUXLIMIT_ADV_X 
        Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 80 GAD_FLUXLIMIT_ADV_X 
        Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 81 GAD_FLUXLIMIT_ADV_X 
        Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 84 GAD_FLUXLIMIT_ADV_X 
         IF (uTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 90 GAD_FLUXLIMIT_ADV_X 
         IF (uTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 97 GAD_FLUXLIMIT_ADV_X 
        uT(i,j) =
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 98 GAD_FLUXLIMIT_ADV_X 
     &   uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 99 GAD_FLUXLIMIT_ADV_X 
     &   -ABS(uTrans(i,j))*((1.-Cr)+uCFL*Cr)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 61 GAD_FLUXLIMIT_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 68 GAD_FLUXLIMIT_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 69 GAD_FLUXLIMIT_ADV_Y 
       vT(i,1-Oly)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 70 GAD_FLUXLIMIT_ADV_Y 
       vT(i,2-Oly)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 71 GAD_FLUXLIMIT_ADV_Y 
       vT(i,sNy+Oly)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 74 GAD_FLUXLIMIT_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 76 GAD_FLUXLIMIT_ADV_Y 
        vCFL = vFld(i,j)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 77 GAD_FLUXLIMIT_ADV_Y 
        IF ( calcCFL ) vCFL = ABS( vFld(i,j)*deltaTloc
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 78 GAD_FLUXLIMIT_ADV_Y 
     &                  *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 79 GAD_FLUXLIMIT_ADV_Y 
        Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 80 GAD_FLUXLIMIT_ADV_Y 
        Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 81 GAD_FLUXLIMIT_ADV_Y 
        Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 84 GAD_FLUXLIMIT_ADV_Y 
         IF (vTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 90 GAD_FLUXLIMIT_ADV_Y 
         IF (vTrans(i,j).GT.0) THEN
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 97 GAD_FLUXLIMIT_ADV_Y 
        vT(i,j) =
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 98 GAD_FLUXLIMIT_ADV_Y 
     &   vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 99 GAD_FLUXLIMIT_ADV_Y 
     &   -ABS(vTrans(i,j))*((1.-Cr)+vCFL*Cr)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 101 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 108 GAD_FLUXLIMIT_IMPL_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 109 GAD_FLUXLIMIT_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 110 GAD_FLUXLIMIT_IMPL_R 
           rUpwind = ABS(rCenter)*upwindFac(i,j)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 111 GAD_FLUXLIMIT_IMPL_R 
           a3d(i,j,k)   = a3d(i,j,k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 113 GAD_FLUXLIMIT_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 114 GAD_FLUXLIMIT_IMPL_R 
           b3d(i,j,k)   = b3d(i,j,k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 116 GAD_FLUXLIMIT_IMPL_R 
     &                    *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 117 GAD_FLUXLIMIT_IMPL_R 
           b3d(i,j,k-1) = b3d(i,j,k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 119 GAD_FLUXLIMIT_IMPL_R 
     &                    *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 120 GAD_FLUXLIMIT_IMPL_R 
           c3d(i,j,k-1) = c3d(i,j,k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 122 GAD_FLUXLIMIT_IMPL_R 
     &                    *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 65 GAD_FLUXLIMIT_IMPL_R 
      INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 85 GAD_FLUXLIMIT_IMPL_R 
        DO i=iMin,iMax
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 86 GAD_FLUXLIMIT_IMPL_R 
         w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 87 GAD_FLUXLIMIT_IMPL_R 
         Rjp=(tFld(i,j,kp1)-tFld(i,j,k)  )*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 88 GAD_FLUXLIMIT_IMPL_R 
         Rj =(tFld(i,j,k)  -tFld(i,j,km1))
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 89 GAD_FLUXLIMIT_IMPL_R 
         Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 92 GAD_FLUXLIMIT_IMPL_R 
          IF (rTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 97 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = 1. _d 0
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 99 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) )
./pkg/generic_advdiff/gad_grad_x.F 47 GAD_GRAD_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_grad_x.F 61 GAD_GRAD_X 
       DO i=1-Olx+1,sNx+Olx
./pkg/generic_advdiff/gad_grad_x.F 62 GAD_GRAD_X 
        dTdx(i,j) = xA(i,j)
./pkg/generic_advdiff/gad_grad_x.F 63 GAD_GRAD_X 
     &            *_recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./pkg/generic_advdiff/gad_grad_x.F 64 GAD_GRAD_X 
     &            *(tracer(i,j)-tracer(i-1,j))
./pkg/generic_advdiff/gad_grad_y.F 47 GAD_GRAD_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_grad_y.F 59 GAD_GRAD_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_grad_y.F 63 GAD_GRAD_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_grad_y.F 64 GAD_GRAD_Y 
        dTdy(i,j) = yA(i,j)
./pkg/generic_advdiff/gad_grad_y.F 65 GAD_GRAD_Y 
     &            *_recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./pkg/generic_advdiff/gad_grad_y.F 66 GAD_GRAD_Y 
     &            *(tracer(i,j)-tracer(i,j-1))
./pkg/generic_advdiff/gad_implicit_r.F 100 GAD_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 101 GAD_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 102 GAD_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 103 GAD_IMPLICIT_R 
         e5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 115 GAD_IMPLICIT_R 
           DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_implicit_r.F 116 GAD_IMPLICIT_R 
            localTijk(i,j,k) = gTracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 123 GAD_IMPLICIT_R 
           DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_implicit_r.F 124 GAD_IMPLICIT_R 
            localTijk(i,j,k) = tracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 137 GAD_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_implicit_r.F 138 GAD_IMPLICIT_R 
           b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 139 GAD_IMPLICIT_R 
     &                  *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 140 GAD_IMPLICIT_R 
     &                  *kappaRX(i,j, k )*recip_drC( k )
./pkg/generic_advdiff/gad_implicit_r.F 147 GAD_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_implicit_r.F 148 GAD_IMPLICIT_R 
           d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 149 GAD_IMPLICIT_R 
     &                 *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 150 GAD_IMPLICIT_R 
     &                 *KappaRX(i,j,k+1)*recip_drC(k+1)
./pkg/generic_advdiff/gad_implicit_r.F 157 GAD_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_implicit_r.F 158 GAD_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F 173 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_implicit_r.F 174 GAD_IMPLICIT_R 
            rTransKp1(i,j) = 0.
./pkg/generic_advdiff/gad_implicit_r.F 179 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_implicit_r.F 180 GAD_IMPLICIT_R 
            rTransKp1(i,j) = rTrans(i,j)
./pkg/generic_advdiff/gad_implicit_r.F 187 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_implicit_r.F 188 GAD_IMPLICIT_R 
            wFld(i,j)   = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 189 GAD_IMPLICIT_R 
            rTrans(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 194 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_implicit_r.F 195 GAD_IMPLICIT_R 
            wFld(i,j)   = wVel(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 196 GAD_IMPLICIT_R 
            rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 208 GAD_IMPLICIT_R 
          DO i=iMin,iMax
./pkg/generic_advdiff/gad_implicit_r.F 210 GAD_IMPLICIT_R 
           gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 211 GAD_IMPLICIT_R 
     &      + deltaTLev(1)*recip_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 212 GAD_IMPLICIT_R 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 213 GAD_IMPLICIT_R 
     &       *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign
./pkg/generic_advdiff/gad_implicit_r.F 306 GAD_IMPLICIT_R 
             DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_implicit_r.F 307 GAD_IMPLICIT_R 
               df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 312 GAD_IMPLICIT_R 
             DO i=1,sNx
./pkg/generic_advdiff/gad_implicit_r.F 313 GAD_IMPLICIT_R 
               df(i,j) =
./pkg/generic_advdiff/gad_implicit_r.F 314 GAD_IMPLICIT_R 
     &              rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 315 GAD_IMPLICIT_R 
     &            * KappaRX(i,j,k)*recip_drC(k)
./pkg/generic_advdiff/gad_implicit_r.F 316 GAD_IMPLICIT_R 
     &            * (gTracer(i,j,k,bi,bj) - gTracer(i,j,k-1,bi,bj))
./pkg/generic_advdiff/gad_implicit_r.F 67 GAD_IMPLICIT_R 
      INTEGER i,j,k
./pkg/generic_advdiff/gad_implicit_r.F 98 GAD_IMPLICIT_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_implicit_r.F 99 GAD_IMPLICIT_R 
         a5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_init_varia.F 37 GAD_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/generic_advdiff/gad_init_varia.F 47 GAD_INIT_VARIA 
           DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_init_varia.F 49 GAD_INIT_VARIA 
            som_T(i,j,k,bi,bj,n) = 0. _d 0
./pkg/generic_advdiff/gad_init_varia.F 51 GAD_INIT_VARIA 
            som_S(i,j,k,bi,bj,n) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 112 GAD_OS7MP_ADV_R 
        IF (wTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F 202 GAD_OS7MP_ADV_R 
         wT(i,j) = wTrans(i,j)*( Qi + Psi*DelIp )
./pkg/generic_advdiff/gad_os7mp_adv_r.F 204 GAD_OS7MP_ADV_R 
         wT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 34 GAD_OS7MP_ADV_R 
      INTEGER i,j,kp3,kp2,kp1,km1,km2,km3,km4
./pkg/generic_advdiff/gad_os7mp_adv_r.F 60 GAD_OS7MP_ADV_R 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_os7mp_adv_r.F 62 GAD_OS7MP_ADV_R 
        wLoc = wFld(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 65 GAD_OS7MP_ADV_R 
        IF (wTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F 66 GAD_OS7MP_ADV_R 
         Qippp = Q(i,j,kp2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 67 GAD_OS7MP_ADV_R 
         Qipp  = Q(i,j,kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 68 GAD_OS7MP_ADV_R 
         Qip   = Q(i,j,k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 69 GAD_OS7MP_ADV_R 
         Qi    = Q(i,j,km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 70 GAD_OS7MP_ADV_R 
         Qim   = Q(i,j,km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 71 GAD_OS7MP_ADV_R 
         Qimm  = Q(i,j,km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 72 GAD_OS7MP_ADV_R 
         Qimmm = Q(i,j,km4)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 74 GAD_OS7MP_ADV_R 
         MskIpp  = maskC(i,j,kp2,bi,bj) * float(kp2-kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 75 GAD_OS7MP_ADV_R 
         MskIp   = maskC(i,j,kp1,bi,bj) * float(kp1-k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 76 GAD_OS7MP_ADV_R 
         MskI    = maskC(i,j,k,bi,bj)   * float(k-km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 77 GAD_OS7MP_ADV_R 
         MskIm   = maskC(i,j,km1,bi,bj) * float(km1-km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 78 GAD_OS7MP_ADV_R 
         MskImm  = maskC(i,j,km2,bi,bj) * float(km2-km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 79 GAD_OS7MP_ADV_R 
         MskImmm = maskC(i,j,km3,bi,bj) * float(km3-km4)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 80 GAD_OS7MP_ADV_R 
        ELSEIF (wTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F 81 GAD_OS7MP_ADV_R 
         Qippp = Q(i,j,km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 82 GAD_OS7MP_ADV_R 
         Qipp  = Q(i,j,km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 83 GAD_OS7MP_ADV_R 
         Qip   = Q(i,j,km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 84 GAD_OS7MP_ADV_R 
         Qi    = Q(i,j,k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 85 GAD_OS7MP_ADV_R 
         Qim   = Q(i,j,kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 86 GAD_OS7MP_ADV_R 
         Qimm  = Q(i,j,kp2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 87 GAD_OS7MP_ADV_R 
         Qimmm = Q(i,j,kp3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 89 GAD_OS7MP_ADV_R 
         MskIpp  = maskC(i,j,km2,bi,bj) * float(km2-km3)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 90 GAD_OS7MP_ADV_R 
         MskIp   = maskC(i,j,km1,bi,bj) * float(km1-km2)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 91 GAD_OS7MP_ADV_R 
         MskI    = maskC(i,j,k,bi,bj)   * float(k-km1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 92 GAD_OS7MP_ADV_R 
         MskIm   = maskC(i,j,kp1,bi,bj) * float(kp1-k)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 93 GAD_OS7MP_ADV_R 
         MskImm  = maskC(i,j,kp2,bi,bj) * float(kp2-kp1)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 94 GAD_OS7MP_ADV_R 
         MskImmm = maskC(i,j,kp3,bi,bj) * float(kp3-kp2)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 116 GAD_OS7MP_ADV_X 
        IF (uTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F 206 GAD_OS7MP_ADV_X 
         uT(i,j) = uTrans(i,j)*( Qi + Psi*DelIp )
./pkg/generic_advdiff/gad_os7mp_adv_x.F 208 GAD_OS7MP_ADV_X 
         uT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 36 GAD_OS7MP_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_os7mp_adv_x.F 63 GAD_OS7MP_ADV_X 
       DO i=1-Olx+4,sNx+Olx-3
./pkg/generic_advdiff/gad_os7mp_adv_x.F 65 GAD_OS7MP_ADV_X 
        uLoc = uFld(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 67 GAD_OS7MP_ADV_X 
        IF ( calcCFL ) cfl = abs(uLoc*deltaTloc*recip_dxC(i,j,bi,bj))
./pkg/generic_advdiff/gad_os7mp_adv_x.F 69 GAD_OS7MP_ADV_X 
        IF (uTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F 70 GAD_OS7MP_ADV_X 
         Qippp = Q(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 71 GAD_OS7MP_ADV_X 
         Qipp  = Q(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 72 GAD_OS7MP_ADV_X 
         Qip   = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 73 GAD_OS7MP_ADV_X 
         Qi    = Q(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 74 GAD_OS7MP_ADV_X 
         Qim   = Q(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 75 GAD_OS7MP_ADV_X 
         Qimm  = Q(i-3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 76 GAD_OS7MP_ADV_X 
         Qimmm = Q(i-4,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 78 GAD_OS7MP_ADV_X 
         MskIpp  = maskLocW(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 79 GAD_OS7MP_ADV_X 
         MskIp   = maskLocW(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 80 GAD_OS7MP_ADV_X 
         MskI    = maskLocW(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 81 GAD_OS7MP_ADV_X 
         MskIm   = maskLocW(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 82 GAD_OS7MP_ADV_X 
         MskImm  = maskLocW(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 83 GAD_OS7MP_ADV_X 
         MskImmm = maskLocW(i-3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 84 GAD_OS7MP_ADV_X 
        ELSEIF (uTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F 85 GAD_OS7MP_ADV_X 
         Qippp = Q(i-3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 86 GAD_OS7MP_ADV_X 
         Qipp  = Q(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 87 GAD_OS7MP_ADV_X 
         Qip   = Q(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 88 GAD_OS7MP_ADV_X 
         Qi    = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 89 GAD_OS7MP_ADV_X 
         Qim   = Q(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 90 GAD_OS7MP_ADV_X 
         Qimm  = Q(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 91 GAD_OS7MP_ADV_X 
         Qimmm = Q(i+3,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 93 GAD_OS7MP_ADV_X 
         MskIpp  = maskLocW(i-2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 94 GAD_OS7MP_ADV_X 
         MskIp   = maskLocW(i-1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 95 GAD_OS7MP_ADV_X 
         MskI    = maskLocW(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 96 GAD_OS7MP_ADV_X 
         MskIm   = maskLocW(i+1,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 97 GAD_OS7MP_ADV_X 
         MskImm  = maskLocW(i+2,j)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 98 GAD_OS7MP_ADV_X 
         MskImmm = maskLocW(i+3,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 116 GAD_OS7MP_ADV_Y 
        IF (vTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F 206 GAD_OS7MP_ADV_Y 
         vT(i,j) = vTrans(i,j)*( Qi + Psi*DelIp )
./pkg/generic_advdiff/gad_os7mp_adv_y.F 208 GAD_OS7MP_ADV_Y 
         vT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 36 GAD_OS7MP_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_os7mp_adv_y.F 53 GAD_OS7MP_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_os7mp_adv_y.F 54 GAD_OS7MP_ADV_Y 
       vT(i,1-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 55 GAD_OS7MP_ADV_Y 
       vT(i,2-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 56 GAD_OS7MP_ADV_Y 
       vT(i,3-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 57 GAD_OS7MP_ADV_Y 
       vT(i,4-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 58 GAD_OS7MP_ADV_Y 
       vT(i,sNy+Oly-2)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 59 GAD_OS7MP_ADV_Y 
       vT(i,sNy+Oly-1)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 60 GAD_OS7MP_ADV_Y 
       vT(i,sNy+Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 63 GAD_OS7MP_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_os7mp_adv_y.F 65 GAD_OS7MP_ADV_Y 
        vLoc = vFld(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 67 GAD_OS7MP_ADV_Y 
        IF ( calcCFL ) cfl = abs(vLoc*deltaTloc*recip_dyC(i,j,bi,bj))
./pkg/generic_advdiff/gad_os7mp_adv_y.F 69 GAD_OS7MP_ADV_Y 
        IF (vTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F 70 GAD_OS7MP_ADV_Y 
         Qippp = Q(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 71 GAD_OS7MP_ADV_Y 
         Qipp  = Q(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 72 GAD_OS7MP_ADV_Y 
         Qip   = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 73 GAD_OS7MP_ADV_Y 
         Qi    = Q(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 74 GAD_OS7MP_ADV_Y 
         Qim   = Q(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 75 GAD_OS7MP_ADV_Y 
         Qimm  = Q(i,j-3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 76 GAD_OS7MP_ADV_Y 
         Qimmm = Q(i,j-4)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 78 GAD_OS7MP_ADV_Y 
         MskIpp  = maskLocS(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 79 GAD_OS7MP_ADV_Y 
         MskIp   = maskLocS(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 80 GAD_OS7MP_ADV_Y 
         MskI    = maskLocS(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 81 GAD_OS7MP_ADV_Y 
         MskIm   = maskLocS(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 82 GAD_OS7MP_ADV_Y 
         MskImm  = maskLocS(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 83 GAD_OS7MP_ADV_Y 
         MskImmm = maskLocS(i,j-3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 84 GAD_OS7MP_ADV_Y 
        ELSEIF (vTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F 85 GAD_OS7MP_ADV_Y 
         Qippp = Q(i,j-3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 86 GAD_OS7MP_ADV_Y 
         Qipp  = Q(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 87 GAD_OS7MP_ADV_Y 
         Qip   = Q(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 88 GAD_OS7MP_ADV_Y 
         Qi    = Q(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 89 GAD_OS7MP_ADV_Y 
         Qim   = Q(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 90 GAD_OS7MP_ADV_Y 
         Qimm  = Q(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 91 GAD_OS7MP_ADV_Y 
         Qimmm = Q(i,j+3)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 93 GAD_OS7MP_ADV_Y 
         MskIpp  = maskLocS(i,j-2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 94 GAD_OS7MP_ADV_Y 
         MskIp   = maskLocS(i,j-1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 95 GAD_OS7MP_ADV_Y 
         MskI    = maskLocS(i,j)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 96 GAD_OS7MP_ADV_Y 
         MskIm   = maskLocS(i,j+1)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 97 GAD_OS7MP_ADV_Y 
         MskImm  = maskLocS(i,j+2)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 98 GAD_OS7MP_ADV_Y 
         MskImmm = maskLocS(i,j+3)
./pkg/generic_advdiff/gad_som_adv_r.F 111 GAD_SOM_ADV_R 
      INTEGER i,j
./pkg/generic_advdiff/gad_som_adv_r.F 125 GAD_SOM_ADV_R 
        DO i=iMinAdvR,iMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F 126 GAD_SOM_ADV_R 
          wLoc = rTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F 130 GAD_SOM_ADV_R 
          fp_v (i,j,kUp) = MAX( 0. _d 0,  wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 131 GAD_SOM_ADV_R 
          alp  (i,j,kUp) = fp_v(i,j,kUp)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 132 GAD_SOM_ADV_R 
          alpq           = alp(i,j,kUp)*alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 133 GAD_SOM_ADV_R 
          alp1           = 1. _d 0 - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 136 GAD_SOM_ADV_R 
          fp_o (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 137 GAD_SOM_ADV_R 
     &                   ( sm_o(i,j, k ) + alp1*sm_z(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 138 GAD_SOM_ADV_R 
     &                   + alp1*(alp1-alp(i,j,kUp))*sm_zz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 140 GAD_SOM_ADV_R 
          fp_z (i,j,kUp) = alpq*
./pkg/generic_advdiff/gad_som_adv_r.F 141 GAD_SOM_ADV_R 
     &                   ( sm_z(i,j, k ) + three*alp1*sm_zz(i,j, k ) )
./pkg/generic_advdiff/gad_som_adv_r.F 142 GAD_SOM_ADV_R 
          fp_zz(i,j,kUp) = alp(i,j,kUp)*alpq*sm_zz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 143 GAD_SOM_ADV_R 
          fp_x (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 144 GAD_SOM_ADV_R 
     &                   ( sm_x(i,j, k ) + alp1*sm_xz(i,j, k ) )
./pkg/generic_advdiff/gad_som_adv_r.F 145 GAD_SOM_ADV_R 
          fp_y (i,j,kUp) = alp(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 146 GAD_SOM_ADV_R 
     &                   ( sm_y(i,j, k ) + alp1*sm_yz(i,j, k ) )
./pkg/generic_advdiff/gad_som_adv_r.F 147 GAD_SOM_ADV_R 
          fp_xz(i,j,kUp) = alpq        *sm_xz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 148 GAD_SOM_ADV_R 
          fp_yz(i,j,kUp) = alpq        *sm_yz(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 149 GAD_SOM_ADV_R 
          fp_xx(i,j,kUp) = alp(i,j,kUp)*sm_xx(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 150 GAD_SOM_ADV_R 
          fp_yy(i,j,kUp) = alp(i,j,kUp)*sm_yy(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 151 GAD_SOM_ADV_R 
          fp_xy(i,j,kUp) = alp(i,j,kUp)*sm_xy(i,j, k )
./pkg/generic_advdiff/gad_som_adv_r.F 158 GAD_SOM_ADV_R 
        DO i=iMinAdvR,iMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F 159 GAD_SOM_ADV_R 
          wLoc = rTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F 162 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 163 GAD_SOM_ADV_R 
          aln  (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 164 GAD_SOM_ADV_R 
          alnq           = aln(i,j,kUp)*aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 165 GAD_SOM_ADV_R 
          aln1           = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 168 GAD_SOM_ADV_R 
          fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 169 GAD_SOM_ADV_R 
          fn_z (i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 170 GAD_SOM_ADV_R 
          fn_zz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 171 GAD_SOM_ADV_R 
          fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 172 GAD_SOM_ADV_R 
          fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 173 GAD_SOM_ADV_R 
          fn_xz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 174 GAD_SOM_ADV_R 
          fn_yz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 175 GAD_SOM_ADV_R 
          fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 176 GAD_SOM_ADV_R 
          fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 177 GAD_SOM_ADV_R 
          fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 179 GAD_SOM_ADV_R 
          wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F 186 GAD_SOM_ADV_R 
        DO i=iMinAdvR,iMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F 187 GAD_SOM_ADV_R 
          wLoc = maskUp(i,j)*rTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F 189 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 190 GAD_SOM_ADV_R 
          aln  (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 191 GAD_SOM_ADV_R 
          alnq           = aln(i,j,kUp)*aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 192 GAD_SOM_ADV_R 
          aln1           = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 195 GAD_SOM_ADV_R 
          fn_o (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 196 GAD_SOM_ADV_R 
     &                   ( sm_o(i,j,km1) - aln1*sm_z(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 197 GAD_SOM_ADV_R 
     &                   + aln1*(aln1-aln(i,j,kUp))*sm_zz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 199 GAD_SOM_ADV_R 
          fn_z (i,j,kUp) = alnq*
./pkg/generic_advdiff/gad_som_adv_r.F 200 GAD_SOM_ADV_R 
     &                   ( sm_z(i,j,km1) - three*aln1*sm_zz(i,j,km1) )
./pkg/generic_advdiff/gad_som_adv_r.F 201 GAD_SOM_ADV_R 
          fn_zz(i,j,kUp) = aln(i,j,kUp)*alnq*sm_zz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 202 GAD_SOM_ADV_R 
          fn_x (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 203 GAD_SOM_ADV_R 
     &                   ( sm_x(i,j,km1) - aln1*sm_xz(i,j,km1) )
./pkg/generic_advdiff/gad_som_adv_r.F 204 GAD_SOM_ADV_R 
          fn_y (i,j,kUp) = aln(i,j,kUp)*
./pkg/generic_advdiff/gad_som_adv_r.F 205 GAD_SOM_ADV_R 
     &                   ( sm_y(i,j,km1) - aln1*sm_yz(i,j,km1) )
./pkg/generic_advdiff/gad_som_adv_r.F 206 GAD_SOM_ADV_R 
          fn_xz(i,j,kUp) = alnq        *sm_xz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 207 GAD_SOM_ADV_R 
          fn_yz(i,j,kUp) = alnq        *sm_yz(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 208 GAD_SOM_ADV_R 
          fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 209 GAD_SOM_ADV_R 
          fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 210 GAD_SOM_ADV_R 
          fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 212 GAD_SOM_ADV_R 
          wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F 226 GAD_SOM_ADV_R 
        DO i=iMinAdvR,iMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F 227 GAD_SOM_ADV_R 
         wLoc = rTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F 228 GAD_SOM_ADV_R 
         IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN
./pkg/generic_advdiff/gad_som_adv_r.F 230 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 231 GAD_SOM_ADV_R 
          aln  (i,j,kUp) = fn_v(i,j,kUp)/sm_v(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 234 GAD_SOM_ADV_R 
          fn_o (i,j,kUp) = aln(i,j,kUp)*sm_o(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 235 GAD_SOM_ADV_R 
          fn_x (i,j,kUp) = aln(i,j,kUp)*sm_x(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 236 GAD_SOM_ADV_R 
          fn_y (i,j,kUp) = aln(i,j,kUp)*sm_y(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 237 GAD_SOM_ADV_R 
          fn_xx(i,j,kUp) = aln(i,j,kUp)*sm_xx(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 238 GAD_SOM_ADV_R 
          fn_yy(i,j,kUp) = aln(i,j,kUp)*sm_yy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 239 GAD_SOM_ADV_R 
          fn_xy(i,j,kUp) = aln(i,j,kUp)*sm_xy(i,j,km1)
./pkg/generic_advdiff/gad_som_adv_r.F 241 GAD_SOM_ADV_R 
          wT(i,j) = ( fp_o(i,j,kUp) - fn_o(i,j,kUp) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_r.F 251 GAD_SOM_ADV_R 
       DO i=iMinAdvR,iMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F 252 GAD_SOM_ADV_R 
        alf1  = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 254 GAD_SOM_ADV_R 
        alpmn = alp(i,j,kUp) - aln(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 255 GAD_SOM_ADV_R 
        sm_v (i,j,k) = sm_v (i,j,k) - fn_v (i,j,kDw) - fp_v (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 256 GAD_SOM_ADV_R 
        sm_o (i,j,k) = sm_o (i,j,k) - fn_o (i,j,kDw) - fp_o (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 257 GAD_SOM_ADV_R 
        sm_z (i,j,k) = alf1q*( sm_z(i,j,k) - three*alpmn*sm_zz(i,j,k) )
./pkg/generic_advdiff/gad_som_adv_r.F 258 GAD_SOM_ADV_R 
        sm_zz(i,j,k) = alf1*alf1q*sm_zz(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 259 GAD_SOM_ADV_R 
        sm_xz(i,j,k) = alf1q*sm_xz(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 260 GAD_SOM_ADV_R 
        sm_yz(i,j,k) = alf1q*sm_yz(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 261 GAD_SOM_ADV_R 
        sm_x (i,j,k) = sm_x (i,j,k) - fn_x (i,j,kDw) - fp_x (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 262 GAD_SOM_ADV_R 
        sm_xx(i,j,k) = sm_xx(i,j,k) - fn_xx(i,j,kDw) - fp_xx(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 263 GAD_SOM_ADV_R 
        sm_y (i,j,k) = sm_y (i,j,k) - fn_y (i,j,kDw) - fp_y (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 264 GAD_SOM_ADV_R 
        sm_yy(i,j,k) = sm_yy(i,j,k) - fn_yy(i,j,kDw) - fp_yy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 265 GAD_SOM_ADV_R 
        sm_xy(i,j,k) = sm_xy(i,j,k) - fn_xy(i,j,kDw) - fp_xy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 273 GAD_SOM_ADV_R 
       DO i=iMinAdvR,iMaxAdvR
./pkg/generic_advdiff/gad_som_adv_r.F 274 GAD_SOM_ADV_R 
        sm_v (i,j,k) = sm_v (i,j,k) + fp_v (i,j,kDw) + fn_v (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 275 GAD_SOM_ADV_R 
        alfp = fp_v(i,j,kDw)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 276 GAD_SOM_ADV_R 
        alfn = fn_v(i,j,kUp)/sm_v(i,j,k)
./pkg/generic_advdiff/gad_som_adv_r.F 281 GAD_SOM_ADV_R 
        locTp = alfp*sm_o(i,j,k) - alp1*fp_o(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 282 GAD_SOM_ADV_R 
        locTn = alfn*sm_o(i,j,k) - aln1*fn_o(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 283 GAD_SOM_ADV_R 
        sm_zz(i,j,k) = alf1*alf1*sm_zz(i,j,k) + alfp*alfp*fp_zz(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 284 GAD_SOM_ADV_R 
     &                                        + alfn*alfn*fn_zz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 285 GAD_SOM_ADV_R 
     &     - 5. _d 0*(-alpmn*alf1*sm_z(i,j,k) + alfp*alp1*fp_z(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 286 GAD_SOM_ADV_R 
     &                                        - alfn*aln1*fn_z(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 287 GAD_SOM_ADV_R 
     &               + two*alfp*alfn*sm_o(i,j,k) + (alp1-alfp)*locTp
./pkg/generic_advdiff/gad_som_adv_r.F 290 GAD_SOM_ADV_R 
        sm_xz(i,j,k) = alf1*sm_xz(i,j,k) + alfp*fp_xz(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 291 GAD_SOM_ADV_R 
     &                                   + alfn*fn_xz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 292 GAD_SOM_ADV_R 
     &       + three*( alpmn*sm_x(i,j,k) - alp1*fp_x(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 293 GAD_SOM_ADV_R 
     &                                   + aln1*fn_x(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 295 GAD_SOM_ADV_R 
        sm_yz(i,j,k) = alf1*sm_yz(i,j,k) + alfp*fp_yz(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 296 GAD_SOM_ADV_R 
     &                                   + alfn*fn_yz(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 297 GAD_SOM_ADV_R 
     &       + three*( alpmn*sm_y(i,j,k) - alp1*fp_y(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 298 GAD_SOM_ADV_R 
     &                                   + aln1*fn_y(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 300 GAD_SOM_ADV_R 
        sm_z (i,j,k) = alf1*sm_z(i,j,k) + alfp*fp_z(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_r.F 301 GAD_SOM_ADV_R 
     &                                  + alfn*fn_z(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 303 GAD_SOM_ADV_R 
        sm_o (i,j,k) = sm_o (i,j,k) + fp_o (i,j,kDw) + fn_o (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 304 GAD_SOM_ADV_R 
        sm_x (i,j,k) = sm_x (i,j,k) + fp_x (i,j,kDw) + fn_x (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 305 GAD_SOM_ADV_R 
        sm_xx(i,j,k) = sm_xx(i,j,k) + fp_xx(i,j,kDw) + fn_xx(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 306 GAD_SOM_ADV_R 
        sm_y (i,j,k) = sm_y (i,j,k) + fp_y (i,j,kDw) + fn_y (i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 307 GAD_SOM_ADV_R 
        sm_yy(i,j,k) = sm_yy(i,j,k) + fp_yy(i,j,kDw) + fn_yy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 308 GAD_SOM_ADV_R 
        sm_xy(i,j,k) = sm_xy(i,j,k) + fp_xy(i,j,kDw) + fn_xy(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_x.F 162 GAD_SOM_ADV_X 
        DO i=iMinUpd(1)-1,iMaxUpd(1)+1
./pkg/generic_advdiff/gad_som_adv_x.F 166 GAD_SOM_ADV_X 
         IF ( sm_o(i,j).GT.0. ) slpmax = sm_o(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 168 GAD_SOM_ADV_X 
         s1new = MIN(  s1max, MAX(-s1max,sm_x(i,j)) )
./pkg/generic_advdiff/gad_som_adv_x.F 170 GAD_SOM_ADV_X 
     &                MAX(ABS(s1new)-slpmax,sm_xx(i,j))  )
./pkg/generic_advdiff/gad_som_adv_x.F 171 GAD_SOM_ADV_X 
         sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) )
./pkg/generic_advdiff/gad_som_adv_x.F 172 GAD_SOM_ADV_X 
         sm_xz(i,j) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j)) )
./pkg/generic_advdiff/gad_som_adv_x.F 173 GAD_SOM_ADV_X 
         sm_x (i,j) = s1new
./pkg/generic_advdiff/gad_som_adv_x.F 174 GAD_SOM_ADV_X 
         sm_xx(i,j) = s2new
./pkg/generic_advdiff/gad_som_adv_x.F 182 GAD_SOM_ADV_X 
       DO i=iMinUpd(1),iMaxUpd(1)+1
./pkg/generic_advdiff/gad_som_adv_x.F 183 GAD_SOM_ADV_X 
        uLoc = uTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_x.F 185 GAD_SOM_ADV_X 
        fp_v (i,j) = MAX( 0. _d 0,  uLoc )
./pkg/generic_advdiff/gad_som_adv_x.F 186 GAD_SOM_ADV_X 
        alp  (i,j) = fp_v(i,j)/sm_v(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 187 GAD_SOM_ADV_X 
        alpq       = alp(i,j)*alp(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 188 GAD_SOM_ADV_X 
        alp1       = 1. _d 0 - alp(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 191 GAD_SOM_ADV_X 
        fp_o (i,j) = alp(i,j)*( sm_o(i-1,j) + alp1*sm_x(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 192 GAD_SOM_ADV_X 
     &                        + alp1*(alp1-alp(i,j))*sm_xx(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 194 GAD_SOM_ADV_X 
        fp_x (i,j) = alpq    *( sm_x(i-1,j) + three*alp1*sm_xx(i-1,j) )
./pkg/generic_advdiff/gad_som_adv_x.F 195 GAD_SOM_ADV_X 
        fp_xx(i,j) = alp(i,j)*alpq*sm_xx(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 196 GAD_SOM_ADV_X 
        fp_y (i,j) = alp(i,j)*( sm_y(i-1,j) + alp1*sm_xy(i-1,j) )
./pkg/generic_advdiff/gad_som_adv_x.F 197 GAD_SOM_ADV_X 
        fp_z (i,j) = alp(i,j)*( sm_z(i-1,j) + alp1*sm_xz(i-1,j) )
./pkg/generic_advdiff/gad_som_adv_x.F 198 GAD_SOM_ADV_X 
        fp_xy(i,j) = alpq    *sm_xy(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 199 GAD_SOM_ADV_X 
        fp_xz(i,j) = alpq    *sm_xz(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 200 GAD_SOM_ADV_X 
        fp_yy(i,j) = alp(i,j)*sm_yy(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 201 GAD_SOM_ADV_X 
        fp_zz(i,j) = alp(i,j)*sm_zz(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 202 GAD_SOM_ADV_X 
        fp_yz(i,j) = alp(i,j)*sm_yz(i-1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 204 GAD_SOM_ADV_X 
        fn_v (i,j) = MAX( 0. _d 0, -uLoc )
./pkg/generic_advdiff/gad_som_adv_x.F 205 GAD_SOM_ADV_X 
        aln  (i,j) = fn_v(i,j)/sm_v( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 206 GAD_SOM_ADV_X 
        alnq       = aln(i,j)*aln(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 207 GAD_SOM_ADV_X 
        aln1       = 1. _d 0 - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 210 GAD_SOM_ADV_X 
        fn_o (i,j) = aln(i,j)*( sm_o( i ,j) - aln1*sm_x( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 211 GAD_SOM_ADV_X 
     &                        + aln1*(aln1-aln(i,j))*sm_xx( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 213 GAD_SOM_ADV_X 
        fn_x (i,j) = alnq    *( sm_x( i ,j) - three*aln1*sm_xx( i ,j) )
./pkg/generic_advdiff/gad_som_adv_x.F 214 GAD_SOM_ADV_X 
        fn_xx(i,j) = aln(i,j)*alnq*sm_xx( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 215 GAD_SOM_ADV_X 
        fn_y (i,j) = aln(i,j)*( sm_y( i ,j) - aln1*sm_xy( i ,j) )
./pkg/generic_advdiff/gad_som_adv_x.F 216 GAD_SOM_ADV_X 
        fn_z (i,j) = aln(i,j)*( sm_z( i ,j) - aln1*sm_xz( i ,j) )
./pkg/generic_advdiff/gad_som_adv_x.F 217 GAD_SOM_ADV_X 
        fn_xy(i,j) = alnq    *sm_xy( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 218 GAD_SOM_ADV_X 
        fn_xz(i,j) = alnq    *sm_xz( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 219 GAD_SOM_ADV_X 
        fn_yy(i,j) = aln(i,j)*sm_yy( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 220 GAD_SOM_ADV_X 
        fn_zz(i,j) = aln(i,j)*sm_zz( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 221 GAD_SOM_ADV_X 
        fn_yz(i,j) = aln(i,j)*sm_yz( i ,j)
./pkg/generic_advdiff/gad_som_adv_x.F 223 GAD_SOM_ADV_X 
        uT(i,j) = ( fp_o(i,j) - fn_o(i,j) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_x.F 245 GAD_SOM_ADV_X 
       DO i=iMinUpd(1),iMaxUpd(1)
./pkg/generic_advdiff/gad_som_adv_x.F 246 GAD_SOM_ADV_X 
        alf1  = 1. _d 0 - aln(i,j) - alp(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 248 GAD_SOM_ADV_X 
        alpmn = alp(i+1,j) - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 249 GAD_SOM_ADV_X 
        sm_v (i,j) = sm_v (i,j) - fn_v (i,j) - fp_v (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 250 GAD_SOM_ADV_X 
        sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 251 GAD_SOM_ADV_X 
        sm_x (i,j) = alf1q*( sm_x(i,j) - three*alpmn*sm_xx(i,j) )
./pkg/generic_advdiff/gad_som_adv_x.F 252 GAD_SOM_ADV_X 
        sm_xx(i,j) = alf1*alf1q*sm_xx(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 253 GAD_SOM_ADV_X 
        sm_xy(i,j) = alf1q*sm_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 254 GAD_SOM_ADV_X 
        sm_xz(i,j) = alf1q*sm_xz(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 255 GAD_SOM_ADV_X 
        sm_y (i,j) = sm_y (i,j) - fn_y (i,j) - fp_y (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 256 GAD_SOM_ADV_X 
        sm_yy(i,j) = sm_yy(i,j) - fn_yy(i,j) - fp_yy(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 257 GAD_SOM_ADV_X 
        sm_z (i,j) = sm_z (i,j) - fn_z (i,j) - fp_z (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 258 GAD_SOM_ADV_X 
        sm_zz(i,j) = sm_zz(i,j) - fn_zz(i,j) - fp_zz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 259 GAD_SOM_ADV_X 
        sm_yz(i,j) = sm_yz(i,j) - fn_yz(i,j) - fp_yz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 267 GAD_SOM_ADV_X 
       DO i=iMinUpd(1),iMaxUpd(1)
./pkg/generic_advdiff/gad_som_adv_x.F 268 GAD_SOM_ADV_X 
        sm_v (i,j) = sm_v (i,j) + fp_v (i,j) + fn_v (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 269 GAD_SOM_ADV_X 
        alfp = fp_v( i ,j)/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 270 GAD_SOM_ADV_X 
        alfn = fn_v(i+1,j)/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 275 GAD_SOM_ADV_X 
        locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 276 GAD_SOM_ADV_X 
        locTn = alfn*sm_o(i,j) - aln1*fn_o(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 277 GAD_SOM_ADV_X 
        sm_xx(i,j) = alf1*alf1*sm_xx(i,j) + alfp*alfp*fp_xx(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 278 GAD_SOM_ADV_X 
     &                                    + alfn*alfn*fn_xx(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 279 GAD_SOM_ADV_X 
     &   - 5. _d 0*(-alpmn*alf1*sm_x(i,j) + alfp*alp1*fp_x(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 280 GAD_SOM_ADV_X 
     &                                    - alfn*aln1*fn_x(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 281 GAD_SOM_ADV_X 
     &             + two*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp
./pkg/generic_advdiff/gad_som_adv_x.F 284 GAD_SOM_ADV_X 
        sm_xy(i,j) = alf1*sm_xy(i,j) + alfp*fp_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 285 GAD_SOM_ADV_X 
     &                               + alfn*fn_xy(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 286 GAD_SOM_ADV_X 
     &     + three*( alpmn*sm_y(i,j) - alp1*fp_y(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 287 GAD_SOM_ADV_X 
     &                               + aln1*fn_y(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 289 GAD_SOM_ADV_X 
        sm_xz(i,j) = alf1*sm_xz(i,j) + alfp*fp_xz(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 290 GAD_SOM_ADV_X 
     &                               + alfn*fn_xz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 291 GAD_SOM_ADV_X 
     &     + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 292 GAD_SOM_ADV_X 
     &                               + aln1*fn_z(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 294 GAD_SOM_ADV_X 
        sm_x (i,j) = alf1*sm_x(i,j) + alfp*fp_x(i,j) + alfn*fn_x(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 296 GAD_SOM_ADV_X 
        sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 297 GAD_SOM_ADV_X 
        sm_y (i,j) = sm_y (i,j) + fp_y (i,j) + fn_y (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 298 GAD_SOM_ADV_X 
        sm_yy(i,j) = sm_yy(i,j) + fp_yy(i,j) + fn_yy(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 299 GAD_SOM_ADV_X 
        sm_z (i,j) = sm_z (i,j) + fp_z (i,j) + fn_z (i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 300 GAD_SOM_ADV_X 
        sm_zz(i,j) = sm_zz(i,j) + fp_zz(i,j) + fn_zz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 301 GAD_SOM_ADV_X 
        sm_yz(i,j) = sm_yz(i,j) + fp_yz(i,j) + fn_yz(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 87 GAD_SOM_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_som_adv_y.F 162 GAD_SOM_ADV_Y 
        DO i=iMinUpd(ns),iMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_y.F 166 GAD_SOM_ADV_Y 
         IF ( sm_o(i,j).GT.0. ) slpmax = sm_o(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 168 GAD_SOM_ADV_Y 
         s1new = MIN(  s1max, MAX(-s1max,sm_y(i,j)) )
./pkg/generic_advdiff/gad_som_adv_y.F 170 GAD_SOM_ADV_Y 
     &                MAX(ABS(s1new)-slpmax,sm_yy(i,j))  )
./pkg/generic_advdiff/gad_som_adv_y.F 171 GAD_SOM_ADV_Y 
         sm_xy(i,j) = MIN( slpmax, MAX(-slpmax,sm_xy(i,j)) )
./pkg/generic_advdiff/gad_som_adv_y.F 172 GAD_SOM_ADV_Y 
         sm_yz(i,j) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j)) )
./pkg/generic_advdiff/gad_som_adv_y.F 173 GAD_SOM_ADV_Y 
         sm_y (i,j) = s1new
./pkg/generic_advdiff/gad_som_adv_y.F 174 GAD_SOM_ADV_Y 
         sm_yy(i,j) = s2new
./pkg/generic_advdiff/gad_som_adv_y.F 182 GAD_SOM_ADV_Y 
       DO i=iMinUpd(ns),iMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_y.F 183 GAD_SOM_ADV_Y 
        vLoc = vTrans(i,j)*deltaTloc
./pkg/generic_advdiff/gad_som_adv_y.F 185 GAD_SOM_ADV_Y 
        fp_v (i,j) = MAX( 0. _d 0,  vLoc )
./pkg/generic_advdiff/gad_som_adv_y.F 186 GAD_SOM_ADV_Y 
        alp  (i,j) = fp_v(i,j)/sm_v(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 187 GAD_SOM_ADV_Y 
        alpq       = alp(i,j)*alp(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 188 GAD_SOM_ADV_Y 
        alp1       = 1. _d 0 - alp(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 191 GAD_SOM_ADV_Y 
        fp_o (i,j) = alp(i,j)*( sm_o(i,j-1) + alp1*sm_y(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 192 GAD_SOM_ADV_Y 
     &                        + alp1*(alp1-alp(i,j))*sm_yy(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 194 GAD_SOM_ADV_Y 
        fp_y (i,j) = alpq    *( sm_y(i,j-1) + three*alp1*sm_yy(i,j-1) )
./pkg/generic_advdiff/gad_som_adv_y.F 195 GAD_SOM_ADV_Y 
        fp_yy(i,j) = alp(i,j)*alpq*sm_yy(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 196 GAD_SOM_ADV_Y 
        fp_x (i,j) = alp(i,j)*( sm_x(i,j-1) + alp1*sm_xy(i,j-1) )
./pkg/generic_advdiff/gad_som_adv_y.F 197 GAD_SOM_ADV_Y 
        fp_z (i,j) = alp(i,j)*( sm_z(i,j-1) + alp1*sm_yz(i,j-1) )
./pkg/generic_advdiff/gad_som_adv_y.F 199 GAD_SOM_ADV_Y 
        fp_xy(i,j) = alpq    *sm_xy(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 200 GAD_SOM_ADV_Y 
        fp_yz(i,j) = alpq    *sm_yz(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 201 GAD_SOM_ADV_Y 
        fp_xx(i,j) = alp(i,j)*sm_xx(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 202 GAD_SOM_ADV_Y 
        fp_zz(i,j) = alp(i,j)*sm_zz(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 203 GAD_SOM_ADV_Y 
        fp_xz(i,j) = alp(i,j)*sm_xz(i,j-1)
./pkg/generic_advdiff/gad_som_adv_y.F 205 GAD_SOM_ADV_Y 
        fn_v (i,j) = MAX( 0. _d 0, -vLoc )
./pkg/generic_advdiff/gad_som_adv_y.F 206 GAD_SOM_ADV_Y 
        aln  (i,j) = fn_v(i,j)/sm_v(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 207 GAD_SOM_ADV_Y 
        alnq       = aln(i,j)*aln(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 208 GAD_SOM_ADV_Y 
        aln1       = 1. _d 0 - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 211 GAD_SOM_ADV_Y 
        fn_o (i,j) = aln(i,j)*( sm_o(i, j ) - aln1*sm_y(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 212 GAD_SOM_ADV_Y 
     &                        + aln1*(aln1-aln(i,j))*sm_yy(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 214 GAD_SOM_ADV_Y 
        fn_y (i,j) = alnq    *( sm_y(i, j ) - three*aln1*sm_yy(i, j ) )
./pkg/generic_advdiff/gad_som_adv_y.F 215 GAD_SOM_ADV_Y 
        fn_yy(i,j) = aln(i,j)*alnq*sm_yy(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 216 GAD_SOM_ADV_Y 
        fn_x (i,j) = aln(i,j)*( sm_x(i, j ) - aln1*sm_xy(i, j ) )
./pkg/generic_advdiff/gad_som_adv_y.F 217 GAD_SOM_ADV_Y 
        fn_z (i,j) = aln(i,j)*( sm_z(i, j ) - aln1*sm_yz(i, j ) )
./pkg/generic_advdiff/gad_som_adv_y.F 218 GAD_SOM_ADV_Y 
        fn_xy(i,j) = alnq    *sm_xy(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 219 GAD_SOM_ADV_Y 
        fn_yz(i,j) = alnq    *sm_yz(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 220 GAD_SOM_ADV_Y 
        fn_xx(i,j) = aln(i,j)*sm_xx(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 221 GAD_SOM_ADV_Y 
        fn_zz(i,j) = aln(i,j)*sm_zz(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 222 GAD_SOM_ADV_Y 
        fn_xz(i,j) = aln(i,j)*sm_xz(i, j )
./pkg/generic_advdiff/gad_som_adv_y.F 224 GAD_SOM_ADV_Y 
        vT(i,j) = ( fp_o(i,j) - fn_o(i,j) )*recip_dT
./pkg/generic_advdiff/gad_som_adv_y.F 246 GAD_SOM_ADV_Y 
       DO i=iMinUpd(ns),iMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_y.F 247 GAD_SOM_ADV_Y 
        alf1  = 1. _d 0 - aln(i,j) - alp(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 249 GAD_SOM_ADV_Y 
        alpmn = alp(i,j+1) - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 250 GAD_SOM_ADV_Y 
        sm_v (i,j) = sm_v (i,j) - fn_v (i,j) - fp_v (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 251 GAD_SOM_ADV_Y 
        sm_o (i,j) = sm_o (i,j) - fn_o (i,j) - fp_o (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 252 GAD_SOM_ADV_Y 
        sm_y (i,j) = alf1q*( sm_y(i,j) - three*alpmn*sm_yy(i,j) )
./pkg/generic_advdiff/gad_som_adv_y.F 253 GAD_SOM_ADV_Y 
        sm_yy(i,j) = alf1*alf1q*sm_yy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 254 GAD_SOM_ADV_Y 
        sm_xy(i,j) = alf1q*sm_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 255 GAD_SOM_ADV_Y 
        sm_yz(i,j) = alf1q*sm_yz(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 256 GAD_SOM_ADV_Y 
        sm_x (i,j) = sm_x (i,j) - fn_x (i,j) - fp_x (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 257 GAD_SOM_ADV_Y 
        sm_xx(i,j) = sm_xx(i,j) - fn_xx(i,j) - fp_xx(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 258 GAD_SOM_ADV_Y 
        sm_z (i,j) = sm_z (i,j) - fn_z (i,j) - fp_z (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 259 GAD_SOM_ADV_Y 
        sm_zz(i,j) = sm_zz(i,j) - fn_zz(i,j) - fp_zz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 260 GAD_SOM_ADV_Y 
        sm_xz(i,j) = sm_xz(i,j) - fn_xz(i,j) - fp_xz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 268 GAD_SOM_ADV_Y 
       DO i=iMinUpd(ns),iMaxUpd(ns)
./pkg/generic_advdiff/gad_som_adv_y.F 269 GAD_SOM_ADV_Y 
        sm_v (i,j) = sm_v (i,j) + fp_v (i,j) + fn_v (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 270 GAD_SOM_ADV_Y 
        alfp = fp_v(i, j )/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 271 GAD_SOM_ADV_Y 
        alfn = fn_v(i,j+1)/sm_v(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 276 GAD_SOM_ADV_Y 
        locTp = alfp*sm_o(i,j) - alp1*fp_o(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 277 GAD_SOM_ADV_Y 
        locTn = alfn*sm_o(i,j) - aln1*fn_o(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 278 GAD_SOM_ADV_Y 
        sm_yy(i,j) = alf1*alf1*sm_yy(i,j) + alfp*alfp*fp_yy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 279 GAD_SOM_ADV_Y 
     &                                    + alfn*alfn*fn_yy(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 280 GAD_SOM_ADV_Y 
     &   - 5. _d 0*(-alpmn*alf1*sm_y(i,j) + alfp*alp1*fp_y(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 281 GAD_SOM_ADV_Y 
     &                                    - alfn*aln1*fn_y(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 282 GAD_SOM_ADV_Y 
     &             + two*alfp*alfn*sm_o(i,j) + (alp1-alfp)*locTp
./pkg/generic_advdiff/gad_som_adv_y.F 285 GAD_SOM_ADV_Y 
        sm_xy(i,j) = alf1*sm_xy(i,j) + alfp*fp_xy(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 286 GAD_SOM_ADV_Y 
     &                               + alfn*fn_xy(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 287 GAD_SOM_ADV_Y 
     &     + three*( alpmn*sm_x(i,j) - alp1*fp_x(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 288 GAD_SOM_ADV_Y 
     &                               + aln1*fn_x(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 290 GAD_SOM_ADV_Y 
        sm_yz(i,j) = alf1*sm_yz(i,j) + alfp*fp_yz(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 291 GAD_SOM_ADV_Y 
     &                               + alfn*fn_yz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 292 GAD_SOM_ADV_Y 
     &     + three*( alpmn*sm_z(i,j) - alp1*fp_z(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 293 GAD_SOM_ADV_Y 
     &                               + aln1*fn_z(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 295 GAD_SOM_ADV_Y 
        sm_y (i,j) = alf1*sm_y(i,j) + alfp*fp_y(i,j) + alfn*fn_y(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 297 GAD_SOM_ADV_Y 
        sm_o (i,j) = sm_o (i,j) + fp_o (i,j) + fn_o (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 298 GAD_SOM_ADV_Y 
        sm_x (i,j) = sm_x (i,j) + fp_x (i,j) + fn_x (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 299 GAD_SOM_ADV_Y 
        sm_xx(i,j) = sm_xx(i,j) + fp_xx(i,j) + fn_xx(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 300 GAD_SOM_ADV_Y 
        sm_z (i,j) = sm_z (i,j) + fp_z (i,j) + fn_z (i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 301 GAD_SOM_ADV_Y 
        sm_zz(i,j) = sm_zz(i,j) + fp_zz(i,j) + fn_zz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 302 GAD_SOM_ADV_Y 
        sm_xz(i,j) = sm_xz(i,j) + fp_xz(i,j) + fn_xz(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 87 GAD_SOM_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_som_advect.F 182 GAD_SOM_ADVECT 
       DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 183 GAD_SOM_ADVECT 
         afx(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F 184 GAD_SOM_ADVECT 
         afy(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F 198 GAD_SOM_ADVECT 
         DO i=1,OLx
./pkg/generic_advdiff/gad_som_advect.F 199 GAD_SOM_ADVECT 
          smCorners(i,j,k,n) = 0.
./pkg/generic_advdiff/gad_som_advect.F 265 GAD_SOM_ADVECT 
        DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 266 GAD_SOM_ADVECT 
         smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 267 GAD_SOM_ADVECT 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 269 GAD_SOM_ADVECT 
         smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k)
./pkg/generic_advdiff/gad_som_advect.F 271 GAD_SOM_ADVECT 
         smVol(i,j,k) = smVol(i,j,k)
./pkg/generic_advdiff/gad_som_advect.F 272 GAD_SOM_ADVECT 
     &                + (1. _d 0 - maskC(i,j,k,bi,bj))
./pkg/generic_advdiff/gad_som_advect.F 439 GAD_SOM_ADVECT 
         DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 445 GAD_SOM_ADVECT 
          gTracer(i,j,k,bi,bj) =
./pkg/generic_advdiff/gad_som_advect.F 446 GAD_SOM_ADVECT 
     &          ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) )
./pkg/generic_advdiff/gad_som_advect.F 447 GAD_SOM_ADVECT 
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 448 GAD_SOM_ADVECT 
     &            *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 507 GAD_SOM_ADVECT 
          DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 508 GAD_SOM_ADVECT 
           alp  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 509 GAD_SOM_ADVECT 
           aln  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 510 GAD_SOM_ADVECT 
           fp_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 511 GAD_SOM_ADVECT 
           fn_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 512 GAD_SOM_ADVECT 
           fp_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 513 GAD_SOM_ADVECT 
           fn_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 514 GAD_SOM_ADVECT 
           fp_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 515 GAD_SOM_ADVECT 
           fn_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 516 GAD_SOM_ADVECT 
           fp_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 517 GAD_SOM_ADVECT 
           fn_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 518 GAD_SOM_ADVECT 
           fp_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 519 GAD_SOM_ADVECT 
           fn_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 520 GAD_SOM_ADVECT 
           fp_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 521 GAD_SOM_ADVECT 
           fn_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 522 GAD_SOM_ADVECT 
           fp_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 523 GAD_SOM_ADVECT 
           fn_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 524 GAD_SOM_ADVECT 
           fp_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 525 GAD_SOM_ADVECT 
           fn_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 526 GAD_SOM_ADVECT 
           fp_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 527 GAD_SOM_ADVECT 
           fn_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 528 GAD_SOM_ADVECT 
           fp_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 529 GAD_SOM_ADVECT 
           fn_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 530 GAD_SOM_ADVECT 
           fp_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 531 GAD_SOM_ADVECT 
           fn_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 548 GAD_SOM_ADVECT 
          DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 549 GAD_SOM_ADVECT 
           wFld(i,j)   = 0.
./pkg/generic_advdiff/gad_som_advect.F 550 GAD_SOM_ADVECT 
           rTrans(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F 551 GAD_SOM_ADVECT 
           maskUp(i,j) = 0.
./pkg/generic_advdiff/gad_som_advect.F 558 GAD_SOM_ADVECT 
          DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 559 GAD_SOM_ADVECT 
           wFld(i,j)   = wVel(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 560 GAD_SOM_ADVECT 
           rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 562 GAD_SOM_ADVECT 
     &                 *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 563 GAD_SOM_ADVECT 
           maskUp(i,j) = 1.
./pkg/generic_advdiff/gad_som_advect.F 571 GAD_SOM_ADVECT 
          DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 572 GAD_SOM_ADVECT 
           wFld(i,j)   = wVel(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 573 GAD_SOM_ADVECT 
           rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 575 GAD_SOM_ADVECT 
           maskUp(i,j) = maskC(i,j,km1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 618 GAD_SOM_ADVECT 
         DO i=1-OLx,sNx+OLx
./pkg/generic_advdiff/gad_som_advect.F 624 GAD_SOM_ADVECT 
          gTracer(i,j,k,bi,bj) =
./pkg/generic_advdiff/gad_som_advect.F 625 GAD_SOM_ADVECT 
     &          ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) )
./pkg/generic_advdiff/gad_som_advect.F 626 GAD_SOM_ADVECT 
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 627 GAD_SOM_ADVECT 
     &            *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 97 GAD_SOM_ADVECT 
      INTEGER i,j,k,km1,kUp,kDown
./pkg/generic_advdiff/gad_som_lim_r.F 59 GAD_SOM_LIM_R 
      INTEGER i,j,k
./pkg/generic_advdiff/gad_som_lim_r.F 66 GAD_SOM_LIM_R 
         DO i=iMinAdvR,iMaxAdvR
./pkg/generic_advdiff/gad_som_lim_r.F 70 GAD_SOM_LIM_R 
          IF ( sm_o(i,j,k).GT.0. ) slpmax = sm_o(i,j,k)
./pkg/generic_advdiff/gad_som_lim_r.F 72 GAD_SOM_LIM_R 
          s1new = MIN(  s1max, MAX(-s1max,sm_z(i,j,k)) )
./pkg/generic_advdiff/gad_som_lim_r.F 74 GAD_SOM_LIM_R 
     &                 MAX(ABS(s1new)-slpmax,sm_zz(i,j,k))  )
./pkg/generic_advdiff/gad_som_lim_r.F 75 GAD_SOM_LIM_R 
          sm_xz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_xz(i,j,k)) )
./pkg/generic_advdiff/gad_som_lim_r.F 76 GAD_SOM_LIM_R 
          sm_yz(i,j,k) = MIN( slpmax, MAX(-slpmax,sm_yz(i,j,k)) )
./pkg/generic_advdiff/gad_som_lim_r.F 77 GAD_SOM_LIM_R 
          sm_z (i,j,k) = s1new
./pkg/generic_advdiff/gad_som_lim_r.F 78 GAD_SOM_LIM_R 
          sm_zz(i,j,k) = s2new
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 130 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 131 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,1,-1) = smVol(i-OLx,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 132 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,1, 0) = smTr0(i-OLx,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 134 GAD_SOM_PREP_CS_CORNER 
             smCorners(i,j,1,n) = smTr (i-OLx,j-OLy,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 141 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 142 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,2,-1) = smVol(sNx+i,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 143 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,2, 0) = smTr0(sNx+i,j-OLy,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 145 GAD_SOM_PREP_CS_CORNER 
             smCorners(i,j,2,n) = smTr (sNx+i,j-OLy,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 152 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 153 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,3,-1) = smVol(sNx+i,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 154 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,3, 0) = smTr0(sNx+i,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 156 GAD_SOM_PREP_CS_CORNER 
             smCorners(i,j,3,n) = smTr (sNx+i,sNy+j,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 163 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 164 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,4,-1) = smVol(i-OLx,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 165 GAD_SOM_PREP_CS_CORNER 
            smCorners(i,j,4, 0) = smTr0(i-OLx,sNy+j,k)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 167 GAD_SOM_PREP_CS_CORNER 
             smCorners(i,j,4,n) = smTr (i-OLx,sNy+j,k,bi,bj,n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 183 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 184 GAD_SOM_PREP_CS_CORNER 
            smVol(i-OLx,j-OLy,k )        = smCorners(i,j,1,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 185 GAD_SOM_PREP_CS_CORNER 
            smTr0(i-OLx,j-OLy,k )        = smCorners(i,j,1, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 187 GAD_SOM_PREP_CS_CORNER 
             smTr(i-OLx,j-OLy,k,bi,bj,n) = smCorners(i,j,1, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 194 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 195 GAD_SOM_PREP_CS_CORNER 
            smVol(sNx+i,j-OLy,k )        = smCorners(i,j,2,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 196 GAD_SOM_PREP_CS_CORNER 
            smTr0(sNx+i,j-OLy,k )        = smCorners(i,j,2, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 198 GAD_SOM_PREP_CS_CORNER 
             smTr(sNx+i,j-OLy,k,bi,bj,n) = smCorners(i,j,2, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 205 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 206 GAD_SOM_PREP_CS_CORNER 
            smVol(sNx+i,sNy+j,k )        = smCorners(i,j,3,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 207 GAD_SOM_PREP_CS_CORNER 
            smTr0(sNx+i,sNy+j,k )        = smCorners(i,j,3, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 209 GAD_SOM_PREP_CS_CORNER 
             smTr(sNx+i,sNy+j,k,bi,bj,n) = smCorners(i,j,3, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 216 GAD_SOM_PREP_CS_CORNER 
           DO i=1,OLx
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 217 GAD_SOM_PREP_CS_CORNER 
            smVol(i-OLx,sNy+j,k )        = smCorners(i,j,4,-1)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 218 GAD_SOM_PREP_CS_CORNER 
            smTr0(i-OLx,sNy+j,k )        = smCorners(i,j,4, 0)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 220 GAD_SOM_PREP_CS_CORNER 
             smTr(i-OLx,sNy+j,k,bi,bj,n) = smCorners(i,j,4, n)
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 62 GAD_SOM_PREP_CS_CORNER 
      INTEGER i,j, jPass, n
./pkg/generic_advdiff/gad_u3_adv_r.F 54 GAD_U3_ADV_R 
      INTEGER i,j,kp1,km1,km2
./pkg/generic_advdiff/gad_u3_adv_r.F 64 GAD_U3_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_u3_adv_r.F 65 GAD_U3_ADV_R 
         wT(i,j) = 0.
./pkg/generic_advdiff/gad_u3_adv_r.F 70 GAD_U3_ADV_R 
        DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_u3_adv_r.F 71 GAD_U3_ADV_R 
         Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj))
./pkg/generic_advdiff/gad_u3_adv_r.F 72 GAD_U3_ADV_R 
     &        *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_r.F 73 GAD_U3_ADV_R 
         Rj=(tracer(i,j,k,bi,bj)-tracer(i,j,km1,bi,bj))
./pkg/generic_advdiff/gad_u3_adv_r.F 74 GAD_U3_ADV_R 
         Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,km2,bi,bj))
./pkg/generic_advdiff/gad_u3_adv_r.F 75 GAD_U3_ADV_R 
     &        *maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_r.F 78 GAD_U3_ADV_R 
         wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_u3_adv_r.F 79 GAD_U3_ADV_R 
     &     rTrans(i,j)*(
./pkg/generic_advdiff/gad_u3_adv_r.F 80 GAD_U3_ADV_R 
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0
./pkg/generic_advdiff/gad_u3_adv_r.F 82 GAD_U3_ADV_R 
     &    +ABS(rTrans(i,j))*
./pkg/generic_advdiff/gad_u3_adv_x.F 51 GAD_U3_ADV_X 
      INTEGER i,j
./pkg/generic_advdiff/gad_u3_adv_x.F 61 GAD_U3_ADV_X 
       DO i=1-Olx+2,sNx+Olx-1
./pkg/generic_advdiff/gad_u3_adv_x.F 62 GAD_U3_ADV_X 
        Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_x.F 63 GAD_U3_ADV_X 
        Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_x.F 64 GAD_U3_ADV_X 
        Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskW(i-1,j,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_x.F 67 GAD_U3_ADV_X 
        uT(i,j) =
./pkg/generic_advdiff/gad_u3_adv_x.F 68 GAD_U3_ADV_X 
     &   uTrans(i,j)*(
./pkg/generic_advdiff/gad_u3_adv_x.F 69 GAD_U3_ADV_X 
     &     Tracer(i,j)+Tracer(i-1,j)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_u3_adv_x.F 71 GAD_U3_ADV_X 
     &  +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_u3_adv_y.F 51 GAD_U3_ADV_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_u3_adv_y.F 55 GAD_U3_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_u3_adv_y.F 56 GAD_U3_ADV_Y 
       vT(i,1-Oly)=0.
./pkg/generic_advdiff/gad_u3_adv_y.F 57 GAD_U3_ADV_Y 
       vT(i,2-Oly)=0.
./pkg/generic_advdiff/gad_u3_adv_y.F 58 GAD_U3_ADV_Y 
       vT(i,sNy+Oly)=0.
./pkg/generic_advdiff/gad_u3_adv_y.F 61 GAD_U3_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/generic_advdiff/gad_u3_adv_y.F 62 GAD_U3_ADV_Y 
        Rjp=(tracer(i,j+1)-tracer(i,j))*maskS(i,j+1,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_y.F 63 GAD_U3_ADV_Y 
        Rj =(tracer(i,j)-tracer(i,j-1))*maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_y.F 64 GAD_U3_ADV_Y 
        Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskS(i,j-1,k,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_y.F 67 GAD_U3_ADV_Y 
        vT(i,j) =
./pkg/generic_advdiff/gad_u3_adv_y.F 68 GAD_U3_ADV_Y 
     &   vTrans(i,j)*(
./pkg/generic_advdiff/gad_u3_adv_y.F 69 GAD_U3_ADV_Y 
     &     Tracer(i,j)+Tracer(i,j-1)-oneSixth*( Rjjp+Rjjm )
./pkg/generic_advdiff/gad_u3_adv_y.F 71 GAD_U3_ADV_Y 
     &  +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_u3c4_impl_r.F 101 GAD_U3C4_IMPL_R 
            wCFL = deltaTcfl*ABS(rTrans(i,j))
./pkg/generic_advdiff/gad_u3c4_impl_r.F 102 GAD_U3C4_IMPL_R 
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 113 GAD_U3C4_IMPL_R 
           a5d(i,j,k)   = a5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 116 GAD_U3C4_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 117 GAD_U3C4_IMPL_R 
           b5d(i,j,k)   = b5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 120 GAD_U3C4_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 121 GAD_U3C4_IMPL_R 
           c5d(i,j,k)   = c5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 124 GAD_U3C4_IMPL_R 
     &                    *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 125 GAD_U3C4_IMPL_R 
           d5d(i,j,k)   = d5d(i,j,k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 128 GAD_U3C4_IMPL_R 
     &                   *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 129 GAD_U3C4_IMPL_R 
           b5d(i,j,k-1) = b5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 132 GAD_U3C4_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 133 GAD_U3C4_IMPL_R 
           c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 136 GAD_U3C4_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 137 GAD_U3C4_IMPL_R 
           d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 140 GAD_U3C4_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 141 GAD_U3C4_IMPL_R 
           e5d(i,j,k-1) = e5d(i,j,k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 144 GAD_U3C4_IMPL_R 
     &                   *_recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 70 GAD_U3C4_IMPL_R 
      INTEGER i,j,kp1,km2
./pkg/generic_advdiff/gad_u3c4_impl_r.F 92 GAD_U3C4_IMPL_R 
         DO i=iMin,iMax
./pkg/generic_advdiff/gad_u3c4_impl_r.F 93 GAD_U3C4_IMPL_R 
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3c4_impl_r.F 94 GAD_U3C4_IMPL_R 
           mskM   = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_u3c4_impl_r.F 95 GAD_U3C4_IMPL_R 
           mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/salt_fill.F 100 SALT_FILL 
        do i=1,sNx
./pkg/generic_advdiff/salt_fill.F 101 SALT_FILL 
         if(salt(i,j,1,bi,bj).lt.0.0 _d 0)
./pkg/generic_advdiff/salt_fill.F 102 SALT_FILL 
     .                  salt(i,j,1,bi,bj) = 0.0 _d 0
./pkg/generic_advdiff/salt_fill.F 62 SALT_FILL 
      INTEGER bi,bj,i,j,L,LM1
./pkg/generic_advdiff/salt_fill.F 89 SALT_FILL 
         do i=1,sNx
./pkg/generic_advdiff/salt_fill.F 90 SALT_FILL 
          if( salt(i,j,L,bi,bj).lt.0.0  _d 0) then
./pkg/generic_advdiff/salt_fill.F 91 SALT_FILL 
           salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) +
./pkg/generic_advdiff/salt_fill.F 92 SALT_FILL 
     .          salt(i,j,L,bi,bj)*dpratio
./pkg/generic_advdiff/salt_fill.F 93 SALT_FILL 
           salt(i,j,L,bi,bj) = 0.0 _d 0
./pkg/ggl90/ggl90_calc.F 137 GGL90_CALC 
        DO i=1-Olx,sNx+Olx
./pkg/ggl90/ggl90_calc.F 138 GGL90_CALC 
         KappaE(i,j,k)            = 0. _d 0
./pkg/ggl90/ggl90_calc.F 139 GGL90_CALC 
         TKEPrandtlNumber(i,j,k)  = 1. _d 0
./pkg/ggl90/ggl90_calc.F 140 GGL90_CALC 
         GGL90mixingLength(i,j,k) = GGL90mixingLengthMin
./pkg/ggl90/ggl90_calc.F 141 GGL90_CALC 
         GGL90visctmp(i,j,k)      = 0. _d 0
./pkg/ggl90/ggl90_calc.F 146 GGL90_CALC 
       DO i=1-Olx,sNx+Olx
./pkg/ggl90/ggl90_calc.F 147 GGL90_CALC 
        rhoK(i,j)          = 0. _d 0
./pkg/ggl90/ggl90_calc.F 148 GGL90_CALC 
        rhoKm1(i,j)        = 0. _d 0
./pkg/ggl90/ggl90_calc.F 149 GGL90_CALC 
        totalDepth(i,j)    = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 150 GGL90_CALC 
        rMixingLength(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 151 GGL90_CALC 
        mxLength_Dn(i,j,1) = GGL90mixingLengthMin
./pkg/ggl90/ggl90_calc.F 152 GGL90_CALC 
        SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) )
./pkg/ggl90/ggl90_calc.F 172 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 173 GGL90_CALC 
         SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) )
./pkg/ggl90/ggl90_calc.F 176 GGL90_CALC 
         Nsquare(i,j,k) = - gravity*recip_rhoConst*recip_drC(k)
./pkg/ggl90/ggl90_calc.F 177 GGL90_CALC 
     &        * ( rhoKm1(i,j) - rhoK(i,j) )*maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 192 GGL90_CALC 
         GGL90mixingLength(i,j,k) = SQRTTWO *
./pkg/ggl90/ggl90_calc.F 193 GGL90_CALC 
     &        SQRTTKE(i,j,k)/SQRT( MAX(Nsquare(i,j,k),GGL90eps) )
./pkg/ggl90/ggl90_calc.F 203 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 204 GGL90_CALC 
          MaxLength=totalDepth(i,j)
./pkg/ggl90/ggl90_calc.F 205 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 213 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 214 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 216 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 225 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 226 GGL90_CALC 
          MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj))
./pkg/ggl90/ggl90_calc.F 228 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 236 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 237 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 239 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 255 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 256 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 257 GGL90_CALC 
     &        GGL90mixingLength(i,j,k-1)+drF(k-1))
./pkg/ggl90/ggl90_calc.F 262 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 263 GGL90_CALC 
          GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr),
./pkg/ggl90/ggl90_calc.F 269 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 270 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 271 GGL90_CALC 
     &        GGL90mixingLength(i,j,k+1)+drF(k))
./pkg/ggl90/ggl90_calc.F 278 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 279 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MAX(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 281 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 290 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 291 GGL90_CALC 
          mxLength_Dn(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 292 GGL90_CALC 
     &        mxLength_Dn(i,j,k-1)+drF(k-1))
./pkg/ggl90/ggl90_calc.F 297 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 298 GGL90_CALC 
          GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr),
./pkg/ggl90/ggl90_calc.F 304 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 305 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 306 GGL90_CALC 
     &        GGL90mixingLength(i,j,k+1)+drF(k))
./pkg/ggl90/ggl90_calc.F 313 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 314 GGL90_CALC 
          GGL90mixingLength(i,j,k) = MIN(GGL90mixingLength(i,j,k),
./pkg/ggl90/ggl90_calc.F 315 GGL90_CALC 
     &                                  mxLength_Dn(i,j,k))
./pkg/ggl90/ggl90_calc.F 316 GGL90_CALC 
          tmpmlx = SQRT( GGL90mixingLength(i,j,k)*mxLength_Dn(i,j,k) )
./pkg/ggl90/ggl90_calc.F 318 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / tmpmlx
./pkg/ggl90/ggl90_calc.F 347 GGL90_CALC 
         DO i=1-Olx,sNx+Olx
./pkg/ggl90/ggl90_calc.F 348 GGL90_CALC 
          xA(i,j) = _dyG(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 349 GGL90_CALC 
     &         *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 350 GGL90_CALC 
          yA(i,j) = _dxG(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 351 GGL90_CALC 
     &         *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 358 GGL90_CALC 
         DO i=1-Olx+1,sNx+Olx
./pkg/ggl90/ggl90_calc.F 359 GGL90_CALC 
          dfx(i,j) = -GGL90diffTKEh*xA(i,j)
./pkg/ggl90/ggl90_calc.F 360 GGL90_CALC 
     &      *_recip_dxC(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 361 GGL90_CALC 
     &      *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj))
./pkg/ggl90/ggl90_calc.F 366 GGL90_CALC 
        DO i=1-Olx,sNx+Olx
./pkg/ggl90/ggl90_calc.F 367 GGL90_CALC 
         dfy(i,1-Oly)=0. _d 0
./pkg/ggl90/ggl90_calc.F 370 GGL90_CALC 
         DO i=1-Olx,sNx+Olx
./pkg/ggl90/ggl90_calc.F 371 GGL90_CALC 
          dfy(i,j) = -GGL90diffTKEh*yA(i,j)
./pkg/ggl90/ggl90_calc.F 372 GGL90_CALC 
     &      *_recip_dyC(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 373 GGL90_CALC 
     &      *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj))
./pkg/ggl90/ggl90_calc.F 381 GGL90_CALC 
         DO i=1-Olx,sNx+Olx-1
./pkg/ggl90/ggl90_calc.F 382 GGL90_CALC 
          gTKE(i,j) =
./pkg/ggl90/ggl90_calc.F 383 GGL90_CALC 
     &    -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 384 GGL90_CALC 
     &         *( (dfx(i+1,j)-dfx(i,j))
./pkg/ggl90/ggl90_calc.F 385 GGL90_CALC 
     &           +(dfy(i,j+1)-dfy(i,j))
./pkg/ggl90/ggl90_calc.F 394 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 396 GGL90_CALC 
         tempU= .5 _d 0*( uVel(i,j,km1,bi,bj)+uVel(i+1,j,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 397 GGL90_CALC 
     &                 -( uVel(i,j,k  ,bi,bj)+uVel(i+1,j,k  ,bi,bj)) )
./pkg/ggl90/ggl90_calc.F 399 GGL90_CALC 
         tempV= .5 _d 0*( vVel(i,j,km1,bi,bj)+vVel(i,j+1,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 400 GGL90_CALC 
     &                 -( vVel(i,j,k  ,bi,bj)+vVel(i,j+1,k  ,bi,bj)) )
./pkg/ggl90/ggl90_calc.F 403 GGL90_CALC 
         RiNumber = MAX(Nsquare(i,j,k),0. _d 0)/(verticalShear+GGL90eps)
./pkg/ggl90/ggl90_calc.F 407 GGL90_CALC 
         TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp)
./pkg/ggl90/ggl90_calc.F 411 GGL90_CALC 
         KappaM = GGL90ck*GGL90mixingLength(i,j,k)*SQRTTKE(i,j,k)
./pkg/ggl90/ggl90_calc.F 412 GGL90_CALC 
         GGL90visctmp(i,j,k) = MAX(KappaM,diffKrNrT(k))
./pkg/ggl90/ggl90_calc.F 413 GGL90_CALC 
     &                            * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 416 GGL90_CALC 
         KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 417 GGL90_CALC 
         KappaH = KappaM/TKEPrandtlNumber(i,j,k)
./pkg/ggl90/ggl90_calc.F 418 GGL90_CALC 
         KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 422 GGL90_CALC 
     &        *SQRTTKE(i,j,k)*rMixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 423 GGL90_CALC 
     &        *GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 425 GGL90_CALC 
         GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 428 GGL90_CALC 
     &        - KappaH*Nsquare(i,j,k)
./pkg/ggl90/ggl90_calc.F 438 GGL90_CALC 
         DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 439 GGL90_CALC 
          GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 440 GGL90_CALC 
     &                          + gTKE(i,j)*deltaTggl90
./pkg/ggl90/ggl90_calc.F 456 GGL90_CALC 
       DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 457 GGL90_CALC 
         a(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 463 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 467 GGL90_CALC 
         a(i,j,k) = -deltaTggl90
./pkg/ggl90/ggl90_calc.F 468 GGL90_CALC 
     &        *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 469 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1))
./pkg/ggl90/ggl90_calc.F 470 GGL90_CALC 
     &        *recip_drC(k)*maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 476 GGL90_CALC 
       DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 477 GGL90_CALC 
         c(i,j,1)  = 0. _d 0
./pkg/ggl90/ggl90_calc.F 482 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 483 GGL90_CALC 
          kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1))
./pkg/ggl90/ggl90_calc.F 487 GGL90_CALC 
          c(i,j,k) = -deltaTggl90
./pkg/ggl90/ggl90_calc.F 488 GGL90_CALC 
     &        *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 489 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1))
./pkg/ggl90/ggl90_calc.F 490 GGL90_CALC 
     &        *recip_drC(k)*maskC(i,j,k-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 498 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 499 GGL90_CALC 
          b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./pkg/ggl90/ggl90_calc.F 500 GGL90_CALC 
     &        + implDissFac*deltaTggl90*GGL90ceps*SQRTTKE(i,j,k)
./pkg/ggl90/ggl90_calc.F 501 GGL90_CALC 
     &        * rMixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 502 GGL90_CALC 
     &        * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 511 GGL90_CALC 
       DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 514 GGL90_CALC 
     &    ( .5 _d 0*( surfaceForcingU(i,  j,  bi,bj)
./pkg/ggl90/ggl90_calc.F 515 GGL90_CALC 
     &              + surfaceForcingU(i+1,j,  bi,bj) ) )**2
./pkg/ggl90/ggl90_calc.F 516 GGL90_CALC 
     &  + ( .5 _d 0*( surfaceForcingV(i,  j,  bi,bj)
./pkg/ggl90/ggl90_calc.F 517 GGL90_CALC 
     &              + surfaceForcingV(i,  j+1,bi,bj) ) )**2
./pkg/ggl90/ggl90_calc.F 520 GGL90_CALC 
        GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 522 GGL90_CALC 
        GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj)
./pkg/ggl90/ggl90_calc.F 523 GGL90_CALC 
     &               - a(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 524 GGL90_CALC 
        a(i,j,kp1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 526 GGL90_CALC 
        kBottom   = MAX(kLowC(i,j,bi,bj),1)
./pkg/ggl90/ggl90_calc.F 527 GGL90_CALC 
        GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj)
./pkg/ggl90/ggl90_calc.F 528 GGL90_CALC 
     &                              - GGL90TKEbottom*c(i,j,kBottom)
./pkg/ggl90/ggl90_calc.F 529 GGL90_CALC 
        c(i,j,kBottom) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 542 GGL90_CALC 
        DO i=iMin,iMax
./pkg/ggl90/ggl90_calc.F 544 GGL90_CALC 
         GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 545 GGL90_CALC 
     &                  *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin )
./pkg/ggl90/ggl90_calc.F 555 GGL90_CALC 
        DO i=1,sNx
./pkg/ggl90/ggl90_calc.F 559 GGL90_CALC 
     &   p4 *  GGL90visctmp(i  ,j  ,k) * mskCor(i  ,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 560 GGL90_CALC 
     &  +p8 *( GGL90visctmp(i-1,j  ,k) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 561 GGL90_CALC 
     &       + GGL90visctmp(i  ,j-1,k) * mskCor(i  ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 562 GGL90_CALC 
     &       + GGL90visctmp(i+1,j  ,k) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 563 GGL90_CALC 
     &       + GGL90visctmp(i  ,j+1,k) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 564 GGL90_CALC 
     &  +p16*( GGL90visctmp(i+1,j+1,k) * mskCor(i+1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F 565 GGL90_CALC 
     &       + GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 566 GGL90_CALC 
     &       + GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F 567 GGL90_CALC 
     &       + GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 570 GGL90_CALC 
     &  +p8 *(       maskC(i-1,j  ,k,bi,bj) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 571 GGL90_CALC 
     &       +       maskC(i  ,j-1,k,bi,bj) * mskCor(i  ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 572 GGL90_CALC 
     &       +       maskC(i+1,j  ,k,bi,bj) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 573 GGL90_CALC 
     &       +       maskC(i  ,j+1,k,bi,bj) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 574 GGL90_CALC 
     &  +p16*(       maskC(i+1,j+1,k,bi,bj) * mskCor(i+1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F 575 GGL90_CALC 
     &       +       maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 576 GGL90_CALC 
     &       +       maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F 577 GGL90_CALC 
     &       +       maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 578 GGL90_CALC 
     &  )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 580 GGL90_CALC 
         tmpVisc = GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc.F 582 GGL90_CALC 
         tmpVisc = MIN(tmpVisc/TKEPrandtlNumber(i,j,k),GGL90diffMax)
./pkg/ggl90/ggl90_calc.F 583 GGL90_CALC 
         GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrT(k) )
./pkg/ggl90/ggl90_calc.F 590 GGL90_CALC 
        DO i=1,sNx+1
./pkg/ggl90/ggl90_calc.F 594 GGL90_CALC 
     &   p4 *(GGL90visctmp(i  ,j  ,k) * mskCor(i  ,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 595 GGL90_CALC 
     &       +GGL90visctmp(i-1,j  ,k) * mskCor(i-1,j  ,bi,bj))
./pkg/ggl90/ggl90_calc.F 596 GGL90_CALC 
     &  +p8 *(GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 597 GGL90_CALC 
     &       +GGL90visctmp(i-1,j+1,k) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F 598 GGL90_CALC 
     &       +GGL90visctmp(i  ,j-1,k) * mskCor(i  ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 599 GGL90_CALC 
     &       +GGL90visctmp(i  ,j+1,k) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 602 GGL90_CALC 
     &  +p8 *(      maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 603 GGL90_CALC 
     &       +      maskC(i-1,j+1,k,bi,bj) * mskCor(i-1,j+1,bi,bj)
./pkg/ggl90/ggl90_calc.F 604 GGL90_CALC 
     &       +      maskC(i  ,j-1,k,bi,bj) * mskCor(i  ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 605 GGL90_CALC 
     &       +      maskC(i  ,j+1,k,bi,bj) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 607 GGL90_CALC 
     &  *maskC(i  ,j,k,bi,bj)*mskCor(i  ,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 608 GGL90_CALC 
     &  *maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 610 GGL90_CALC 
        tmpVisc = _maskW(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc.F 611 GGL90_CALC 
     &                   (.5 _d 0*(GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc.F 612 GGL90_CALC 
     &                            +GGL90visctmp(i-1,j,k))
./pkg/ggl90/ggl90_calc.F 616 GGL90_CALC 
        GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) )
./pkg/ggl90/ggl90_calc.F 623 GGL90_CALC 
        DO i=1,sNx
./pkg/ggl90/ggl90_calc.F 627 GGL90_CALC 
     &   p4 *(GGL90visctmp(i  ,j  ,k) * mskCor(i  ,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 628 GGL90_CALC 
     &       +GGL90visctmp(i  ,j-1,k) * mskCor(i  ,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 629 GGL90_CALC 
     &  +p8 *(GGL90visctmp(i-1,j  ,k) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 630 GGL90_CALC 
     &       +GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 631 GGL90_CALC 
     &       +GGL90visctmp(i+1,j  ,k) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 632 GGL90_CALC 
     &       +GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 635 GGL90_CALC 
     &  +p8 *(      maskC(i-1,j  ,k,bi,bj) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 636 GGL90_CALC 
     &       +      maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 637 GGL90_CALC 
     &       +      maskC(i+1,j  ,k,bi,bj) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 638 GGL90_CALC 
     &       +      maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 640 GGL90_CALC 
     &   *maskC(i,j  ,k,bi,bj)*mskCor(i,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 641 GGL90_CALC 
     &   *maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 643 GGL90_CALC 
        tmpVisc = _maskS(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc.F 644 GGL90_CALC 
     &                   (.5 _d 0*(GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc.F 645 GGL90_CALC 
     &                            +GGL90visctmp(i,j-1,k))
./pkg/ggl90/ggl90_calc.F 650 GGL90_CALC 
        GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) )
./pkg/ggl90/ggl90_calc.F 77 GGL90_CALC 
      INTEGER i, j, k, kp1, km1, kSurf, kBottom
./pkg/ggl90/ggl90_calc_diff.F 45 GGL90_CALC_DIFF 
      INTEGER i,j,k
./pkg/ggl90/ggl90_calc_diff.F 52 GGL90_CALC_DIFF 
          DO i=iMin,iMax
./pkg/ggl90/ggl90_calc_diff.F 53 GGL90_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/ggl90/ggl90_calc_diff.F 54 GGL90_CALC_DIFF 
     &                  +( GGL90diffKr(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc_diff.F 63 GGL90_CALC_DIFF 
          DO i=iMin,iMax
./pkg/ggl90/ggl90_calc_diff.F 64 GGL90_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/ggl90/ggl90_calc_diff.F 65 GGL90_CALC_DIFF 
     &                  +( GGL90diffKr(i,j,kArg,bi,bj)
./pkg/ggl90/ggl90_calc_visc.F 40 GGL90_CALC_VISC 
      INTEGER i,j
./pkg/ggl90/ggl90_calc_visc.F 48 GGL90_CALC_VISC 
       DO i=iMin,iMax
./pkg/ggl90/ggl90_calc_visc.F 49 GGL90_CALC_VISC 
        KappaRU(i,j,k) = KappaRU(i,j,k) +
./pkg/ggl90/ggl90_calc_visc.F 50 GGL90_CALC_VISC 
     &                   (GGL90viscArU(i,j,k,bi,bj) - viscArNr(k) )
./pkg/ggl90/ggl90_calc_visc.F 55 GGL90_CALC_VISC 
       DO i=iMin,iMax
./pkg/ggl90/ggl90_calc_visc.F 56 GGL90_CALC_VISC 
        KappaRV(i,j,k) = KappaRV(i,j,k) + _maskS(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc_visc.F 57 GGL90_CALC_VISC 
     &                   (GGL90viscArV(i,j,k,bi,bj) - viscArNr(k) )
./pkg/ggl90/ggl90_init_fixed.F 31 GGL90_INIT_FIXED 
      INTEGER i, j, bi, bj
./pkg/ggl90/ggl90_init_fixed.F 50 GGL90_INIT_FIXED 
         DO i=1-Olx,sNx+Olx
./pkg/ggl90/ggl90_init_fixed.F 51 GGL90_INIT_FIXED 
          mskCor(i,j,bi,bj) = 1. _d 0
./pkg/gmredi/gmredi_calc_diff.F 49 GMREDI_CALC_DIFF 
      INTEGER i,j,k
./pkg/gmredi/gmredi_calc_diff.F 56 GMREDI_CALC_DIFF 
          DO i=iMin,iMax
./pkg/gmredi/gmredi_calc_diff.F 58 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 61 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 63 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 73 GMREDI_CALC_DIFF 
          DO i=iMin,iMax
./pkg/gmredi/gmredi_calc_diff.F 75 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 78 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 80 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 102 GMREDI_CALC_PSI_B 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_psi_b.F 103 GMREDI_CALC_PSI_B 
         SlopeY(i,j)=op5*( sigmaY(i,j,km1)+sigmaY(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F 104 GMREDI_CALC_PSI_B 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 105 GMREDI_CALC_PSI_B 
         dSigmaDrS(i,j)=op5*( sigmaR(i,j-1,k)+sigmaR(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F 106 GMREDI_CALC_PSI_B 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 127 GMREDI_CALC_PSI_B 
        DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_calc_psi_b.F 128 GMREDI_CALC_PSI_B 
          GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 130 GMREDI_CALC_PSI_B 
     &     *( kapgm(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 135 GMREDI_CALC_PSI_B 
     &      +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 137 GMREDI_CALC_PSI_B 
     &      )*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 139 GMREDI_CALC_PSI_B 
     &     +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 144 GMREDI_CALC_PSI_B 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_psi_b.F 145 GMREDI_CALC_PSI_B 
         GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 147 GMREDI_CALC_PSI_B 
     &     *( kapgm(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 152 GMREDI_CALC_PSI_B 
     &      +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 154 GMREDI_CALC_PSI_B 
     &      )*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 156 GMREDI_CALC_PSI_B 
     &     +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 48 GMREDI_CALC_PSI_B 
      INTEGER i,j,k, km1
./pkg/gmredi/gmredi_calc_psi_b.F 83 GMREDI_CALC_PSI_B 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_psi_b.F 84 GMREDI_CALC_PSI_B 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 85 GMREDI_CALC_PSI_B 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 86 GMREDI_CALC_PSI_B 
         dSigmaDrW(i,j)    = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 87 GMREDI_CALC_PSI_B 
         dSigmaDrS(i,j)    = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 94 GMREDI_CALC_PSI_B 
        DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_calc_psi_b.F 95 GMREDI_CALC_PSI_B 
         SlopeX(i,j)=op5*( sigmaX(i,j,km1)+sigmaX(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F 96 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 97 GMREDI_CALC_PSI_B 
         dSigmaDrW(i,j)=op5*( sigmaR(i-1,j,k)+sigmaR(i,j,k) )
./pkg/gmredi/gmredi_calc_psi_b.F 98 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 144 GMREDI_CALC_TENSOR 
       DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 145 GMREDI_CALC_TENSOR 
        VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 158 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 159 GMREDI_CALC_TENSOR 
         IF (fCori(i,j,bi,bj).NE.0.) THEN
./pkg/gmredi/gmredi_calc_tensor.F 160 GMREDI_CALC_TENSOR 
           ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 162 GMREDI_CALC_TENSOR 
           ldd97_LrhoC(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 164 GMREDI_CALC_TENSOR 
         ldd97_LrhoC(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoC(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 171 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 172 GMREDI_CALC_TENSOR 
         kLow_W(i,j) = MIN(kLowC(i-1,j,bi,bj),kLowC(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 173 GMREDI_CALC_TENSOR 
         fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 175 GMREDI_CALC_TENSOR 
           ldd97_LrhoW(i,j) = Cspd/ABS(fCoriLoc)
./pkg/gmredi/gmredi_calc_tensor.F 177 GMREDI_CALC_TENSOR 
           ldd97_LrhoW(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 179 GMREDI_CALC_TENSOR 
         ldd97_LrhoW(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoW(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 183 GMREDI_CALC_TENSOR 
       DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 184 GMREDI_CALC_TENSOR 
         kLow_S(i,1-Oly) = 0
./pkg/gmredi/gmredi_calc_tensor.F 185 GMREDI_CALC_TENSOR 
         ldd97_LrhoS(i,1-Oly) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 188 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 189 GMREDI_CALC_TENSOR 
         kLow_S(i,j) = MIN(kLowC(i,j-1,bi,bj),kLowC(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 190 GMREDI_CALC_TENSOR 
         fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 192 GMREDI_CALC_TENSOR 
           ldd97_LrhoS(i,j) = Cspd/ABS(fCoriLoc)
./pkg/gmredi/gmredi_calc_tensor.F 194 GMREDI_CALC_TENSOR 
           ldd97_LrhoS(i,j) = LrhoSup
./pkg/gmredi/gmredi_calc_tensor.F 196 GMREDI_CALC_TENSOR 
         ldd97_LrhoS(i,j) = MAX(LrhoInf,MIN(ldd97_LrhoS(i,j),LrhoSup))
./pkg/gmredi/gmredi_calc_tensor.F 202 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 203 GMREDI_CALC_TENSOR 
          ldd97_LrhoC(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 204 GMREDI_CALC_TENSOR 
          ldd97_LrhoW(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 205 GMREDI_CALC_TENSOR 
          ldd97_LrhoS(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 214 GMREDI_CALC_TENSOR 
       DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 215 GMREDI_CALC_TENSOR 
         hTransLay(i,j) = R_low(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 216 GMREDI_CALC_TENSOR 
         baseSlope(i,j) =  0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 217 GMREDI_CALC_TENSOR 
         recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 218 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 224 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 225 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = KPPhbl(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 233 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 234 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = hMixLayer(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 244 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 245 GMREDI_CALC_TENSOR 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 246 GMREDI_CALC_TENSOR 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 247 GMREDI_CALC_TENSOR 
         dSigmaDx(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 248 GMREDI_CALC_TENSOR 
         dSigmaDy(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 249 GMREDI_CALC_TENSOR 
         dSigmaDr(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 250 GMREDI_CALC_TENSOR 
         SlopeSqr(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 251 GMREDI_CALC_TENSOR 
         taperFct(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 252 GMREDI_CALC_TENSOR 
         Kwx(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 253 GMREDI_CALC_TENSOR 
         Kwy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 254 GMREDI_CALC_TENSOR 
         Kwz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 256 GMREDI_CALC_TENSOR 
         Kux(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 257 GMREDI_CALC_TENSOR 
         Kvy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 260 GMREDI_CALC_TENSOR 
         Kuz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 261 GMREDI_CALC_TENSOR 
         Kvz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 264 GMREDI_CALC_TENSOR 
         GM_PsiX(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 265 GMREDI_CALC_TENSOR 
         GM_PsiY(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 272 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 274 GMREDI_CALC_TENSOR 
         dSigmaDx(i,j)=op25*( sigmaX(i+1,j,k-1)+sigmaX(i,j,k-1)
./pkg/gmredi/gmredi_calc_tensor.F 275 GMREDI_CALC_TENSOR 
     &                       +sigmaX(i+1,j, k )+sigmaX(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F 276 GMREDI_CALC_TENSOR 
     &                      )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 277 GMREDI_CALC_TENSOR 
         dSigmaDy(i,j)=op25*( sigmaY(i,j+1,k-1)+sigmaY(i,j,k-1)
./pkg/gmredi/gmredi_calc_tensor.F 278 GMREDI_CALC_TENSOR 
     &                       +sigmaY(i,j+1, k )+sigmaY(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F 279 GMREDI_CALC_TENSOR 
     &                      )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 290 GMREDI_CALC_TENSOR 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 291 GMREDI_CALC_TENSOR 
          dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 )
./pkg/gmredi/gmredi_calc_tensor.F 304 GMREDI_CALC_TENSOR 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 305 GMREDI_CALC_TENSOR 
          IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 306 GMREDI_CALC_TENSOR 
           integrDepth = -rC( kLowC(i,j,bi,bj) )
./pkg/gmredi/gmredi_calc_tensor.F 323 GMREDI_CALC_TENSOR 
           dSigmaR = ( dSigmaDr(i,j)*4. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 324 GMREDI_CALC_TENSOR 
     &               + dSigmaDr(i-1,j)
./pkg/gmredi/gmredi_calc_tensor.F 325 GMREDI_CALC_TENSOR 
     &               + dSigmaDr(i+1,j)
./pkg/gmredi/gmredi_calc_tensor.F 326 GMREDI_CALC_TENSOR 
     &               + dSigmaDr(i,j-1)
./pkg/gmredi/gmredi_calc_tensor.F 327 GMREDI_CALC_TENSOR 
     &               + dSigmaDr(i,j+1)
./pkg/gmredi/gmredi_calc_tensor.F 329 GMREDI_CALC_TENSOR 
     &                 + maskC(i-1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 330 GMREDI_CALC_TENSOR 
     &                 + maskC(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 331 GMREDI_CALC_TENSOR 
     &                 + maskC(i,j-1,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 332 GMREDI_CALC_TENSOR 
     &                 + maskC(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 334 GMREDI_CALC_TENSOR 
           dSigmaH = dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 335 GMREDI_CALC_TENSOR 
     &             + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 356 GMREDI_CALC_TENSOR 
           VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 366 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 367 GMREDI_CALC_TENSOR 
         dSigmaDr(i,j)=sigmaR(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F 392 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 394 GMREDI_CALC_TENSOR 
         SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 395 GMREDI_CALC_TENSOR 
         SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 396 GMREDI_CALC_TENSOR 
         SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 410 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 411 GMREDI_CALC_TENSOR 
          Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 412 GMREDI_CALC_TENSOR 
          Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 413 GMREDI_CALC_TENSOR 
          Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 420 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 424 GMREDI_CALC_TENSOR 
        Ssq(i,j)=SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 440 GMREDI_CALC_TENSOR 
        IF ( Ssq(i,j).NE.0. .AND. dSigmaDr(i,j).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 441 GMREDI_CALC_TENSOR 
         N2loc = -gravity*recip_rhoConst*dSigmaDr(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 442 GMREDI_CALC_TENSOR 
         SNloc = SQRT(Ssq(i,j)*N2loc )
./pkg/gmredi/gmredi_calc_tensor.F 443 GMREDI_CALC_TENSOR 
         VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 464 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 465 GMREDI_CALC_TENSOR 
         VisbeckK(i,j,bi,bj)=
./pkg/gmredi/gmredi_calc_tensor.F 466 GMREDI_CALC_TENSOR 
     &       MIN( MAX( VisbeckK(i,j,bi,bj), GM_Visbeck_minVal_K ),
./pkg/gmredi/gmredi_calc_tensor.F 490 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 492 GMREDI_CALC_TENSOR 
         Kgm_tmp = kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 497 GMREDI_CALC_TENSOR 
     &           + GM_skewflx*kapgm(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 502 GMREDI_CALC_TENSOR 
     &           + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx)
./pkg/gmredi/gmredi_calc_tensor.F 504 GMREDI_CALC_TENSOR 
         Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 505 GMREDI_CALC_TENSOR 
         Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 507 GMREDI_CALC_TENSOR 
         Kwz(i,j,k,bi,bj)= ( kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 509 GMREDI_CALC_TENSOR 
         Kwz(i,j,k,bi,bj)= ( GM_isopycK
./pkg/gmredi/gmredi_calc_tensor.F 512 GMREDI_CALC_TENSOR 
     &                     + VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 514 GMREDI_CALC_TENSOR 
     &                     )*Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 535 GMREDI_CALC_TENSOR 
        DO i=2-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 536 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( KPPhbl(i-1,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 537 GMREDI_CALC_TENSOR 
     &                      + KPPhbl( i ,j,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 545 GMREDI_CALC_TENSOR 
        DO i=2-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 546 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( hMixLayer(i-1,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 547 GMREDI_CALC_TENSOR 
     &                      + hMixLayer( i ,j,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 552 GMREDI_CALC_TENSOR 
       DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 553 GMREDI_CALC_TENSOR 
         hTransLay(i,j) =  0.
./pkg/gmredi/gmredi_calc_tensor.F 554 GMREDI_CALC_TENSOR 
         baseSlope(i,j) =  0.
./pkg/gmredi/gmredi_calc_tensor.F 555 GMREDI_CALC_TENSOR 
         recipLambda(i,j)= 0.
./pkg/gmredi/gmredi_calc_tensor.F 557 GMREDI_CALC_TENSOR 
       DO i=2-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 558 GMREDI_CALC_TENSOR 
         hTransLay(i,j) = MAX( R_low(i-1,j,bi,bj), R_low(i,j,bi,bj) )
./pkg/gmredi/gmredi_calc_tensor.F 572 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 573 GMREDI_CALC_TENSOR 
         dSigmaDx(i,j)=sigmaX(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F 574 GMREDI_CALC_TENSOR 
     &                       *_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 575 GMREDI_CALC_TENSOR 
         dSigmaDy(i,j)=op25*( sigmaY(i-1,j+1,k)+sigmaY(i,j+1,k)
./pkg/gmredi/gmredi_calc_tensor.F 576 GMREDI_CALC_TENSOR 
     &                       +sigmaY(i-1, j ,k)+sigmaY(i, j ,k)
./pkg/gmredi/gmredi_calc_tensor.F 577 GMREDI_CALC_TENSOR 
     &                      )*_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 578 GMREDI_CALC_TENSOR 
         dSigmaDr(i,j)=op25*( sigmaR(i-1,j, k )+sigmaR(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F 579 GMREDI_CALC_TENSOR 
     &                      +(sigmaR(i-1,j,kp1)+sigmaR(i,j,kp1))*maskp1
./pkg/gmredi/gmredi_calc_tensor.F 580 GMREDI_CALC_TENSOR 
     &                      )*_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 614 GMREDI_CALC_TENSOR 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 615 GMREDI_CALC_TENSOR 
          Kux(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 617 GMREDI_CALC_TENSOR 
     &     ( kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 622 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 624 GMREDI_CALC_TENSOR 
     &     )*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 633 GMREDI_CALC_TENSOR 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 634 GMREDI_CALC_TENSOR 
          Kux(i,j,k,bi,bj) = MAX( Kux(i,j,k,bi,bj), GM_Kmin_horiz )
./pkg/gmredi/gmredi_calc_tensor.F 648 GMREDI_CALC_TENSOR 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 649 GMREDI_CALC_TENSOR 
          Kuz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 651 GMREDI_CALC_TENSOR 
     &     ( kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 656 GMREDI_CALC_TENSOR 
     &     - GM_skewflx*kapgm(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 661 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 663 GMREDI_CALC_TENSOR 
     &     )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 66 GMREDI_CALC_TENSOR 
      INTEGER i,j,k
./pkg/gmredi/gmredi_calc_tensor.F 673 GMREDI_CALC_TENSOR 
         DO i=1,sNx+1
./pkg/gmredi/gmredi_calc_tensor.F 676 GMREDI_CALC_TENSOR 
          tmp1k(i,j) = ( kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 678 GMREDI_CALC_TENSOR 
          tmp1k(i,j) = ( GM_isopycK
./pkg/gmredi/gmredi_calc_tensor.F 681 GMREDI_CALC_TENSOR 
     &     +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F 683 GMREDI_CALC_TENSOR 
     &                 )*SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 687 GMREDI_CALC_TENSOR 
         DO i=1,sNx+1
./pkg/gmredi/gmredi_calc_tensor.F 691 GMREDI_CALC_TENSOR 
     &       ( maskC(i-1,j,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 692 GMREDI_CALC_TENSOR 
     &           (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 693 GMREDI_CALC_TENSOR 
     &        +maskC( i ,j,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 694 GMREDI_CALC_TENSOR 
     &           (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 697 GMREDI_CALC_TENSOR 
     &       ( maskC(i-1,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 698 GMREDI_CALC_TENSOR 
     &           (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 699 GMREDI_CALC_TENSOR 
     &        +maskC( i ,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 700 GMREDI_CALC_TENSOR 
     &           (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 702 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F 703 GMREDI_CALC_TENSOR 
     &                * _hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 704 GMREDI_CALC_TENSOR 
     &                * tmp1k(i,j) * dTdz
./pkg/gmredi/gmredi_calc_tensor.F 720 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 721 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( KPPhbl(i,j-1,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 722 GMREDI_CALC_TENSOR 
     &                      + KPPhbl(i, j ,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 730 GMREDI_CALC_TENSOR 
        DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 731 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( hMixLayer(i,j-1,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 732 GMREDI_CALC_TENSOR 
     &                      + hMixLayer(i, j ,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 737 GMREDI_CALC_TENSOR 
       DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 738 GMREDI_CALC_TENSOR 
         hTransLay(i,j) =  0.
./pkg/gmredi/gmredi_calc_tensor.F 739 GMREDI_CALC_TENSOR 
         baseSlope(i,j) =  0.
./pkg/gmredi/gmredi_calc_tensor.F 740 GMREDI_CALC_TENSOR 
         recipLambda(i,j)= 0.
./pkg/gmredi/gmredi_calc_tensor.F 744 GMREDI_CALC_TENSOR 
       DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_calc_tensor.F 745 GMREDI_CALC_TENSOR 
         hTransLay(i,j) = MAX( R_low(i,j-1,bi,bj), R_low(i,j,bi,bj) )
./pkg/gmredi/gmredi_calc_tensor.F 759 GMREDI_CALC_TENSOR 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 760 GMREDI_CALC_TENSOR 
         dSigmaDx(i,j)=op25*( sigmaX(i, j ,k) +sigmaX(i+1, j ,k)
./pkg/gmredi/gmredi_calc_tensor.F 761 GMREDI_CALC_TENSOR 
     &                       +sigmaX(i,j-1,k) +sigmaX(i+1,j-1,k)
./pkg/gmredi/gmredi_calc_tensor.F 762 GMREDI_CALC_TENSOR 
     &                      )*_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 763 GMREDI_CALC_TENSOR 
         dSigmaDy(i,j)=sigmaY(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F 764 GMREDI_CALC_TENSOR 
     &                       *_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 765 GMREDI_CALC_TENSOR 
         dSigmaDr(i,j)=op25*( sigmaR(i,j-1, k )+sigmaR(i,j, k )
./pkg/gmredi/gmredi_calc_tensor.F 766 GMREDI_CALC_TENSOR 
     &                      +(sigmaR(i,j-1,kp1)+sigmaR(i,j,kp1))*maskp1
./pkg/gmredi/gmredi_calc_tensor.F 767 GMREDI_CALC_TENSOR 
     &                      )*_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 802 GMREDI_CALC_TENSOR 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 803 GMREDI_CALC_TENSOR 
          Kvy(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 805 GMREDI_CALC_TENSOR 
     &     ( kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 810 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 812 GMREDI_CALC_TENSOR 
     &     )*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 821 GMREDI_CALC_TENSOR 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 822 GMREDI_CALC_TENSOR 
          Kvy(i,j,k,bi,bj) = MAX( Kvy(i,j,k,bi,bj), GM_Kmin_horiz )
./pkg/gmredi/gmredi_calc_tensor.F 836 GMREDI_CALC_TENSOR 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 837 GMREDI_CALC_TENSOR 
          Kvz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 839 GMREDI_CALC_TENSOR 
     &     ( kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 844 GMREDI_CALC_TENSOR 
     &     - GM_skewflx*kapgm(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 849 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 851 GMREDI_CALC_TENSOR 
     &     )*SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 861 GMREDI_CALC_TENSOR 
         DO i=1,sNx
./pkg/gmredi/gmredi_calc_tensor.F 864 GMREDI_CALC_TENSOR 
          tmp1k(i,j) = ( kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 866 GMREDI_CALC_TENSOR 
          tmp1k(i,j) = ( GM_isopycK
./pkg/gmredi/gmredi_calc_tensor.F 869 GMREDI_CALC_TENSOR 
     &     +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F 871 GMREDI_CALC_TENSOR 
     &                 )*SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 875 GMREDI_CALC_TENSOR 
         DO i=1,sNx
./pkg/gmredi/gmredi_calc_tensor.F 879 GMREDI_CALC_TENSOR 
     &       ( maskC(i,j-1,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 880 GMREDI_CALC_TENSOR 
     &           (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 881 GMREDI_CALC_TENSOR 
     &        +maskC(i, j ,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 882 GMREDI_CALC_TENSOR 
     &           (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 885 GMREDI_CALC_TENSOR 
     &       ( maskC(i,j-1,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 886 GMREDI_CALC_TENSOR 
     &           (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 887 GMREDI_CALC_TENSOR 
     &        +maskC(i, j ,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 888 GMREDI_CALC_TENSOR 
     &           (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 890 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F 891 GMREDI_CALC_TENSOR 
     &                * _hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 892 GMREDI_CALC_TENSOR 
     &                * tmp1k(i,j) * dTdz
./pkg/gmredi/gmredi_calc_tensor.F 987 GMREDI_CALC_TENSOR_DUMMY 
      INTEGER i, j, k
./pkg/gmredi/gmredi_calc_tensor.F 991 GMREDI_CALC_TENSOR_DUMMY 
        DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_calc_tensor.F 992 GMREDI_CALC_TENSOR_DUMMY 
         Kwx(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 993 GMREDI_CALC_TENSOR_DUMMY 
         Kwy(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 994 GMREDI_CALC_TENSOR_DUMMY 
         Kwz(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_uvflow.F 46 GMREDI_CALC_UVFLOW 
      INTEGER i, j
./pkg/gmredi/gmredi_calc_uvflow.F 59 GMREDI_CALC_UVFLOW 
        DO i=1-OLx,sNx+OLx
./pkg/gmredi/gmredi_calc_uvflow.F 60 GMREDI_CALC_UVFLOW 
         delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_calc_uvflow.F 61 GMREDI_CALC_UVFLOW 
     &          - GM_PsiX(i,j, k, bi,bj)
./pkg/gmredi/gmredi_calc_uvflow.F 62 GMREDI_CALC_UVFLOW 
         uFld(i,j)   = uFld(i,j)
./pkg/gmredi/gmredi_calc_uvflow.F 63 GMREDI_CALC_UVFLOW 
     &               + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_uvflow.F 64 GMREDI_CALC_UVFLOW 
         uTrans(i,j) = uTrans(i,j)
./pkg/gmredi/gmredi_calc_uvflow.F 65 GMREDI_CALC_UVFLOW 
     &               + dyG(i,j,bi,bj)*delPsi*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_uvflow.F 69 GMREDI_CALC_UVFLOW 
        DO i=1-OLx,sNx+OLx
./pkg/gmredi/gmredi_calc_uvflow.F 70 GMREDI_CALC_UVFLOW 
         delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_calc_uvflow.F 71 GMREDI_CALC_UVFLOW 
     &          - GM_PsiY(i,j, k, bi,bj)
./pkg/gmredi/gmredi_calc_uvflow.F 72 GMREDI_CALC_UVFLOW 
         vFld(i,j)   = vFld(i,j)
./pkg/gmredi/gmredi_calc_uvflow.F 73 GMREDI_CALC_UVFLOW 
     &               + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_uvflow.F 74 GMREDI_CALC_UVFLOW 
         vTrans(i,j) = vTrans(i,j)
./pkg/gmredi/gmredi_calc_uvflow.F 75 GMREDI_CALC_UVFLOW 
     &               + dxG(i,j,bi,bj)*delPsi*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 42 GMREDI_CALC_WFLOW 
      INTEGER i, j
./pkg/gmredi/gmredi_calc_wflow.F 50 GMREDI_CALC_WFLOW 
        DO i=1-Olx,sNx+Olx-1
./pkg/gmredi/gmredi_calc_wflow.F 51 GMREDI_CALC_WFLOW 
         delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 52 GMREDI_CALC_WFLOW 
     &             -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 53 GMREDI_CALC_WFLOW 
     &             +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 54 GMREDI_CALC_WFLOW 
     &             -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 55 GMREDI_CALC_WFLOW 
     &            )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 56 GMREDI_CALC_WFLOW 
         wFld(i,j)   = wFld(i,j)   + delPsi*recip_rA(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_wflow.F 57 GMREDI_CALC_WFLOW 
         rTrans(i,j) = rTrans(i,j) + delPsi
./pkg/gmredi/gmredi_diagnostics_fill.F 39 GMREDI_DIAGNOSTICS_FILL 
      INTEGER i,j,k
./pkg/gmredi/gmredi_diagnostics_fill.F 78 GMREDI_DIAGNOSTICS_FILL 
          DO i = 1, snx
./pkg/gmredi/gmredi_diagnostics_fill.F 79 GMREDI_DIAGNOSTICS_FILL 
           tmpfld3dloc(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_diagnostics_fill.F 80 GMREDI_DIAGNOSTICS_FILL 
     &      0.5*rhoConst*fCori(i,j,bi,bj)*
./pkg/gmredi/gmredi_diagnostics_fill.F 81 GMREDI_DIAGNOSTICS_FILL 
     &      Kwy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_diagnostics_fill.F 92 GMREDI_DIAGNOSTICS_FILL 
          DO i = 1, snx
./pkg/gmredi/gmredi_diagnostics_fill.F 93 GMREDI_DIAGNOSTICS_FILL 
           tmpfld3dloc(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_diagnostics_fill.F 94 GMREDI_DIAGNOSTICS_FILL 
     &      -0.5*rhoConst*fCori(i,j,bi,bj)*
./pkg/gmredi/gmredi_diagnostics_fill.F 95 GMREDI_DIAGNOSTICS_FILL 
     &      Kwx(i,j,k,bi,bj)
./pkg/gmredi/gmredi_init.F 38 GMREDI_INIT 
      INTEGER i,j,k,bi,bj
./pkg/gmredi/gmredi_init.F 46 GMREDI_INIT 
          DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_init.F 47 GMREDI_INIT 
           Kwx(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 48 GMREDI_INIT 
           Kwy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 49 GMREDI_INIT 
           Kwz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 51 GMREDI_INIT 
           Kuz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 52 GMREDI_INIT 
           Kvz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 55 GMREDI_INIT 
           Kux(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 56 GMREDI_INIT 
           Kvy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 59 GMREDI_INIT 
           GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 60 GMREDI_INIT 
           GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init.F 63 GMREDI_INIT 
          VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_rtransport.F 100 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 101 GMREDI_RTRANSPORT 
     &           (Tracer(i,j,k-1,bi,bj)-Tracer(i-1,j,k-1,bi,bj)))
./pkg/gmredi/gmredi_rtransport.F 104 GMREDI_RTRANSPORT 
        dTdy(i,j) = op5*(
./pkg/gmredi/gmredi_rtransport.F 105 GMREDI_RTRANSPORT 
     &   +op5*(_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 106 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 107 GMREDI_RTRANSPORT 
     &           (Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 108 GMREDI_RTRANSPORT 
     &        +_maskS(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 109 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j+1,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 110 GMREDI_RTRANSPORT 
     &           (Tracer(i,j+1,k,bi,bj)-Tracer(i,j,k,bi,bj)))
./pkg/gmredi/gmredi_rtransport.F 111 GMREDI_RTRANSPORT 
     &   +op5*(_maskS(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 112 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 113 GMREDI_RTRANSPORT 
     &           (Tracer(i,j,k-1,bi,bj)-Tracer(i,j-1,k-1,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 114 GMREDI_RTRANSPORT 
     &        +_maskS(i,j+1,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 115 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j+1,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 116 GMREDI_RTRANSPORT 
     &           (Tracer(i,j+1,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj)))
./pkg/gmredi/gmredi_rtransport.F 130 GMREDI_RTRANSPORT 
       DO i=iMin,iMax
./pkg/gmredi/gmredi_rtransport.F 132 GMREDI_RTRANSPORT 
         df(i,j) = df(i,j)
./pkg/gmredi/gmredi_rtransport.F 133 GMREDI_RTRANSPORT 
     &      - _rA(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 134 GMREDI_RTRANSPORT 
     &        *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) )
./pkg/gmredi/gmredi_rtransport.F 136 GMREDI_RTRANSPORT 
         df(i,j) = df(i,j)
./pkg/gmredi/gmredi_rtransport.F 137 GMREDI_RTRANSPORT 
     &      - _rA(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 139 GMREDI_RTRANSPORT 
     &    *(LS_Kwx(i,j,k,bi,bj)*dTdx(i,j)+LS_Kwy(i,j,k,bi,bj)*dTdy(i,j))
./pkg/gmredi/gmredi_rtransport.F 141 GMREDI_RTRANSPORT 
     &        *( Kwx(i,j,k,bi,bj)*dTdx(i,j)+Kwy(i,j,k,bi,bj)*dTdy(i,j) )
./pkg/gmredi/gmredi_rtransport.F 151 GMREDI_RTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_rtransport.F 152 GMREDI_RTRANSPORT 
         rTrans(i,j) =
./pkg/gmredi/gmredi_rtransport.F 153 GMREDI_RTRANSPORT 
     &      dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 154 GMREDI_RTRANSPORT 
     &     -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 155 GMREDI_RTRANSPORT 
     &     +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 156 GMREDI_RTRANSPORT 
     &     -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 164 GMREDI_RTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_rtransport.F 165 GMREDI_RTRANSPORT 
         df(i,j) = df(i,j)
./pkg/gmredi/gmredi_rtransport.F 166 GMREDI_RTRANSPORT 
     &    +rTrans(i,j)*op5
./pkg/gmredi/gmredi_rtransport.F 167 GMREDI_RTRANSPORT 
     &                *(Tracer(i,j,k,bi,bj)+Tracer(i,j,k-1,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 88 GMREDI_RTRANSPORT 
       DO i=iMin,iMax
./pkg/gmredi/gmredi_rtransport.F 89 GMREDI_RTRANSPORT 
        dTdx(i,j) = op5*(
./pkg/gmredi/gmredi_rtransport.F 90 GMREDI_RTRANSPORT 
     &   +op5*(_maskW(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 91 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i+1,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 92 GMREDI_RTRANSPORT 
     &           (Tracer(i+1,j,k,bi,bj)-Tracer(i,j,k,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 93 GMREDI_RTRANSPORT 
     &        +_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 94 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 95 GMREDI_RTRANSPORT 
     &           (Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj)))
./pkg/gmredi/gmredi_rtransport.F 96 GMREDI_RTRANSPORT 
     &   +op5*(_maskW(i+1,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 97 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i+1,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 98 GMREDI_RTRANSPORT 
     &           (Tracer(i+1,j,k-1,bi,bj)-Tracer(i,j,k-1,bi,bj))
./pkg/gmredi/gmredi_rtransport.F 99 GMREDI_RTRANSPORT 
     &        +_maskW(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_slope_limit.F 114 GMREDI_SLOPE_LIMIT 
      INTEGER i,j
./pkg/gmredi/gmredi_slope_limit.F 142 GMREDI_SLOPE_LIMIT 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 143 GMREDI_SLOPE_LIMIT 
        dSigmMod(i,j)    = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 144 GMREDI_SLOPE_LIMIT 
        tmpFld(i,j)      = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 159 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 160 GMREDI_SLOPE_LIMIT 
          IF ( dSigmaDr(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 161 GMREDI_SLOPE_LIMIT 
           IF (dSigmaDr(i,j).GE.(-GM_Small_Number))
./pkg/gmredi/gmredi_slope_limit.F 162 GMREDI_SLOPE_LIMIT 
     &         dSigmaDr(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_limit.F 174 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 175 GMREDI_SLOPE_LIMIT 
          IF ( dSigmaDr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 176 GMREDI_SLOPE_LIMIT 
           IF ( dSigmaDx(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 177 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 179 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 181 GMREDI_SLOPE_LIMIT 
           IF ( dSigmaDy(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 182 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 184 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 187 GMREDI_SLOPE_LIMIT 
           dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 188 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 189 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 200 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_limit.F 201 GMREDI_SLOPE_LIMIT 
        slopeTmpSpec=sqrt( SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 202 GMREDI_SLOPE_LIMIT 
     &              +SlopeY(i,j)*SlopeY(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 204 GMREDI_SLOPE_LIMIT 
        SlopeX(i,j)=SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F 205 GMREDI_SLOPE_LIMIT 
        SlopeY(i,j)=SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_limit.F 207 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 208 GMREDI_SLOPE_LIMIT 
     &                   +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 209 GMREDI_SLOPE_LIMIT 
          taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 230 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 231 GMREDI_SLOPE_LIMIT 
          tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 232 GMREDI_SLOPE_LIMIT 
     &                + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F 233 GMREDI_SLOPE_LIMIT 
          IF ( tmpFld(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 234 GMREDI_SLOPE_LIMIT 
           dSigmMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 236 GMREDI_SLOPE_LIMIT 
           dSigmMod(i,j) = SQRT( tmpFld(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 247 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 248 GMREDI_SLOPE_LIMIT 
          IF (dSigmMod(i,j) .NE. 0.) THEN
./pkg/gmredi/gmredi_slope_limit.F 249 GMREDI_SLOPE_LIMIT 
           tmpFld(i,j) = -dSigmMod(i,j)*GM_rMaxSlope
./pkg/gmredi/gmredi_slope_limit.F 250 GMREDI_SLOPE_LIMIT 
           IF ( dSigmaDr(i,j) .GE. tmpFld(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 251 GMREDI_SLOPE_LIMIT 
     &          dSigmaDr(i,j) = tmpFld(i,j)
./pkg/gmredi/gmredi_slope_limit.F 263 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 264 GMREDI_SLOPE_LIMIT 
          IF (dSigmMod(i,j) .EQ. 0.) THEN
./pkg/gmredi/gmredi_slope_limit.F 265 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 266 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 268 GMREDI_SLOPE_LIMIT 
           dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 269 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 270 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 281 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 282 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j)=SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 283 GMREDI_SLOPE_LIMIT 
     &                 +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 284 GMREDI_SLOPE_LIMIT 
          taperFct(i,j)=1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 302 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 303 GMREDI_SLOPE_LIMIT 
          IF ( k.GT.kLow(i,j) ) THEN
./pkg/gmredi/gmredi_slope_limit.F 305 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 306 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 307 GMREDI_SLOPE_LIMIT 
            SlopeMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 308 GMREDI_SLOPE_LIMIT 
            taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 311 GMREDI_SLOPE_LIMIT 
           IF ( dSigmaDr(i,j).GE. -GM_Small_Number )
./pkg/gmredi/gmredi_slope_limit.F 312 GMREDI_SLOPE_LIMIT 
     &          dSigmaDr(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_limit.F 313 GMREDI_SLOPE_LIMIT 
           tmpFld(i,j) = dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 314 GMREDI_SLOPE_LIMIT 
     &                 + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F 315 GMREDI_SLOPE_LIMIT 
           IF ( tmpFld(i,j).GT.0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 316 GMREDI_SLOPE_LIMIT 
            locVar(i,j) = SQRT( tmpFld(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 317 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = dSigmaDx(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F 318 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = dSigmaDy(i,j)/locVar(i,j)
./pkg/gmredi/gmredi_slope_limit.F 319 GMREDI_SLOPE_LIMIT 
            SlopeMod(i,j) = -locVar(i,j)/dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 320 GMREDI_SLOPE_LIMIT 
            taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 322 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 323 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 324 GMREDI_SLOPE_LIMIT 
            SlopeMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 325 GMREDI_SLOPE_LIMIT 
            taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 338 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 339 GMREDI_SLOPE_LIMIT 
          IF ( hTransLay(i,j).LE.0. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F 341 GMREDI_SLOPE_LIMIT 
            tmpFld(i,j) = Lrho(i,j)*SlopeMod(i,j)
./pkg/gmredi/gmredi_slope_limit.F 345 GMREDI_SLOPE_LIMIT 
     &        MIN( MAX( tmpFld(i,j), minTransLay ),
./pkg/gmredi/gmredi_slope_limit.F 346 GMREDI_SLOPE_LIMIT 
     &             MAX( GM_facTrL2ML*hMixLay(i,j), GM_maxTransLay ) )
./pkg/gmredi/gmredi_slope_limit.F 347 GMREDI_SLOPE_LIMIT 
            IF ( k.GE.kLow(i,j) ) THEN
./pkg/gmredi/gmredi_slope_limit.F 349 GMREDI_SLOPE_LIMIT 
              recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 350 GMREDI_SLOPE_LIMIT 
              baseSlope(i,j)   = SlopeMod(i,j)
./pkg/gmredi/gmredi_slope_limit.F 354 GMREDI_SLOPE_LIMIT 
            ELSEIF ( dTransLay+hMixLay(i,j)+depthZ(k) .GE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 356 GMREDI_SLOPE_LIMIT 
              hTransLay(i,j) = -depthZ(k+1)
./pkg/gmredi/gmredi_slope_limit.F 358 GMREDI_SLOPE_LIMIT 
              IF ( baseSlope(i,j).GT.0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 359 GMREDI_SLOPE_LIMIT 
                recipLambda(i,j) = recipLambda(i,j)
./pkg/gmredi/gmredi_slope_limit.F 360 GMREDI_SLOPE_LIMIT 
     &                           / MIN( baseSlope(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F 362 GMREDI_SLOPE_LIMIT 
                recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 365 GMREDI_SLOPE_LIMIT 
              IF ( hMixLay(i,j)+depthZ(k+1).LT.0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 366 GMREDI_SLOPE_LIMIT 
                rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) )
./pkg/gmredi/gmredi_slope_limit.F 367 GMREDI_SLOPE_LIMIT 
                recipLambda(i,j) = MAX( recipLambda(i,j), rLambMin )
./pkg/gmredi/gmredi_slope_limit.F 371 GMREDI_SLOPE_LIMIT 
              recipLambda(i,j) = ( MIN( SlopeMod(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F 372 GMREDI_SLOPE_LIMIT 
     &                           - MIN( baseSlope(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F 374 GMREDI_SLOPE_LIMIT 
              baseSlope(i,j)   = SlopeMod(i,j)
./pkg/gmredi/gmredi_slope_limit.F 383 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 384 GMREDI_SLOPE_LIMIT 
          IF ( hTransLay(i,j).GT.0. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F 387 GMREDI_SLOPE_LIMIT 
            DoverLamb = (hTransLay(i,j)-hMixLay(i,j))*recipLambda(i,j)
./pkg/gmredi/gmredi_slope_limit.F 388 GMREDI_SLOPE_LIMIT 
            IF ( -depthZ(k).LE.hMixLay(i,j) ) THEN
./pkg/gmredi/gmredi_slope_limit.F 391 GMREDI_SLOPE_LIMIT 
     &          ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F 396 GMREDI_SLOPE_LIMIT 
     &          ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F 403 GMREDI_SLOPE_LIMIT 
     &          ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F 406 GMREDI_SLOPE_LIMIT 
     &        - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F 407 GMREDI_SLOPE_LIMIT 
     &            /( hTransLay(i,j)*hTransLay(i,j)
./pkg/gmredi/gmredi_slope_limit.F 408 GMREDI_SLOPE_LIMIT 
     &               - hMixLay(i,j)*hMixLay(i,j)  )
./pkg/gmredi/gmredi_slope_limit.F 409 GMREDI_SLOPE_LIMIT 
     &            *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 413 GMREDI_SLOPE_LIMIT 
     &          ( -depthZ(k)/(hTransLay(i,j)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F 417 GMREDI_SLOPE_LIMIT 
     &        - ( (depthZ(k)+hMixLay(i,j))*(depthZ(k)+hMixLay(i,j))
./pkg/gmredi/gmredi_slope_limit.F 418 GMREDI_SLOPE_LIMIT 
     &            /( hTransLay(i,j)*hTransLay(i,j)
./pkg/gmredi/gmredi_slope_limit.F 419 GMREDI_SLOPE_LIMIT 
     &               - hMixLay(i,j)*hMixLay(i,j)  )
./pkg/gmredi/gmredi_slope_limit.F 420 GMREDI_SLOPE_LIMIT 
     &            *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j)*2. _d 0 )
./pkg/gmredi/gmredi_slope_limit.F 426 GMREDI_SLOPE_LIMIT 
            Smod = MIN( baseSlope(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F 427 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod*taperFctLoc
./pkg/gmredi/gmredi_slope_limit.F 428 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SlopeY(i,j)*Smod*taperFctLoc
./pkg/gmredi/gmredi_slope_limit.F 431 GMREDI_SLOPE_LIMIT 
            SlopeSqr(i,j) = MIN( baseSlope(i,j), GM_bigSlope )
./pkg/gmredi/gmredi_slope_limit.F 438 GMREDI_SLOPE_LIMIT 
            Smod = MIN( SlopeMod(i,j), GM_maxSlope )
./pkg/gmredi/gmredi_slope_limit.F 439 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SlopeX(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F 440 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SlopeY(i,j)*Smod
./pkg/gmredi/gmredi_slope_limit.F 443 GMREDI_SLOPE_LIMIT 
            SlopeSqr(i,j) = MIN( SlopeMod(i,j), GM_bigSlope )
./pkg/gmredi/gmredi_slope_limit.F 468 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 469 GMREDI_SLOPE_LIMIT 
          dRdSigmaLtd(i,j)=
./pkg/gmredi/gmredi_slope_limit.F 470 GMREDI_SLOPE_LIMIT 
     &                        dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 471 GMREDI_SLOPE_LIMIT 
     &                      + dSigmaDy(i,j)*dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F 472 GMREDI_SLOPE_LIMIT 
     &                      + dSigmaDr(i,j)*dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 473 GMREDI_SLOPE_LIMIT 
          taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 475 GMREDI_SLOPE_LIMIT 
          IF (dRdSigmaLtd(i,j).NE.0.) THEN
./pkg/gmredi/gmredi_slope_limit.F 476 GMREDI_SLOPE_LIMIT 
             dRdSigmaLtd(i,j)=1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 477 GMREDI_SLOPE_LIMIT 
     &            / ( dRdSigmaLtd(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 478 GMREDI_SLOPE_LIMIT 
             SlopeSqr(i,j)=(dSigmaDx(i,j)*dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 479 GMREDI_SLOPE_LIMIT 
     &            +dSigmaDy(i,j)*dSigmaDy(i,j))*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 480 GMREDI_SLOPE_LIMIT 
             SlopeX(i,j)=-dSigmaDx(i,j)
./pkg/gmredi/gmredi_slope_limit.F 481 GMREDI_SLOPE_LIMIT 
     &            *dRdSigmaLtd(i,j)*dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 482 GMREDI_SLOPE_LIMIT 
             SlopeY(i,j)=-dSigmaDy(i,j)
./pkg/gmredi/gmredi_slope_limit.F 483 GMREDI_SLOPE_LIMIT 
     &            *dRdSigmaLtd(i,j)*dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 488 GMREDI_SLOPE_LIMIT 
          IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND.
./pkg/gmredi/gmredi_slope_limit.F 489 GMREDI_SLOPE_LIMIT 
     &         SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F 490 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 491 GMREDI_SLOPE_LIMIT 
          ELSE IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F 492 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 518 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 519 GMREDI_SLOPE_LIMIT 
          IF ( dSigmaDr(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 520 GMREDI_SLOPE_LIMIT 
           IF (dSigmaDr(i,j).GE.(-GM_Small_Number))
./pkg/gmredi/gmredi_slope_limit.F 521 GMREDI_SLOPE_LIMIT 
     &         dSigmaDr(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_limit.F 533 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 534 GMREDI_SLOPE_LIMIT 
          IF ( dSigmaDr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 535 GMREDI_SLOPE_LIMIT 
           IF ( dSigmaDx(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 536 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = SIGN( GM_bigSlope, dSigmaDx(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 538 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 540 GMREDI_SLOPE_LIMIT 
           IF ( dSigmaDy(i,j) .NE. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 541 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = SIGN( GM_bigSlope, dSigmaDy(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 543 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 546 GMREDI_SLOPE_LIMIT 
           dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 547 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j)=-dSigmaDx(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 548 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j)=-dSigmaDy(i,j)*dRdSigmaLtd(i,j)
./pkg/gmredi/gmredi_slope_limit.F 561 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 562 GMREDI_SLOPE_LIMIT 
          SlopeSqr(i,j) = SlopeX(i,j)*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_limit.F 563 GMREDI_SLOPE_LIMIT 
     &                   +SlopeY(i,j)*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_limit.F 564 GMREDI_SLOPE_LIMIT 
          taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 565 GMREDI_SLOPE_LIMIT 
          IF ( SlopeSqr(i,j) .GT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F 566 GMREDI_SLOPE_LIMIT 
             slopeSqr(i,j) = GM_slopeSqCutoff
./pkg/gmredi/gmredi_slope_limit.F 567 GMREDI_SLOPE_LIMIT 
             taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 579 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 581 GMREDI_SLOPE_LIMIT 
          IF ( SlopeSqr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 582 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 583 GMREDI_SLOPE_LIMIT 
          ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND.
./pkg/gmredi/gmredi_slope_limit.F 584 GMREDI_SLOPE_LIMIT 
     &             SlopeSqr(i,j) .LT. GM_slopeSqCutoff )  THEN
./pkg/gmredi/gmredi_slope_limit.F 585 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = SQRT(maxSlopeSqr / SlopeSqr(i,j))
./pkg/gmredi/gmredi_slope_limit.F 586 GMREDI_SLOPE_LIMIT 
           slopeSqr(i,j) = MIN( slopeSqr(i,j),GM_bigSlope*GM_bigSlope )
./pkg/gmredi/gmredi_slope_limit.F 597 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 599 GMREDI_SLOPE_LIMIT 
          IF ( SlopeSqr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 600 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 601 GMREDI_SLOPE_LIMIT 
          ELSE IF ( SlopeSqr(i,j) .GT. maxSlopeSqr .AND.
./pkg/gmredi/gmredi_slope_limit.F 602 GMREDI_SLOPE_LIMIT 
     &             SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F 603 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 613 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 615 GMREDI_SLOPE_LIMIT 
          IF ( SlopeSqr(i,j) .EQ. 0. ) THEN
./pkg/gmredi/gmredi_slope_limit.F 616 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 617 GMREDI_SLOPE_LIMIT 
          ELSE IF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F 618 GMREDI_SLOPE_LIMIT 
           Smod=SQRT(SlopeSqr(i,j))
./pkg/gmredi/gmredi_slope_limit.F 619 GMREDI_SLOPE_LIMIT 
           taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_limit.F 628 GMREDI_SLOPE_LIMIT 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/gmredi/gmredi_slope_limit.F 630 GMREDI_SLOPE_LIMIT 
          IF (SlopeSqr(i,j) .EQ. 0.) THEN
./pkg/gmredi/gmredi_slope_limit.F 631 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 632 GMREDI_SLOPE_LIMIT 
          ELSEIF ( SlopeSqr(i,j) .LT. GM_slopeSqCutoff ) THEN
./pkg/gmredi/gmredi_slope_limit.F 633 GMREDI_SLOPE_LIMIT 
           Smod=SQRT(SlopeSqr(i,j))
./pkg/gmredi/gmredi_slope_limit.F 635 GMREDI_SLOPE_LIMIT 
           Rnondim= -depthZ(k)/(Lrho(i,j)*Smod)
./pkg/gmredi/gmredi_slope_limit.F 641 GMREDI_SLOPE_LIMIT 
           taperFct(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_psi.F 106 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 107 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 114 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 115 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = -(GM_Small_Number+
./pkg/gmredi/gmredi_slope_psi.F 116 GMREDI_SLOPE_PSI 
     &     ABS(SlopeX(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F 124 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 125 GMREDI_SLOPE_PSI 
          IF (dSigmaDrW(i,j).GE.dSigmaDrLtd(i,j))
./pkg/gmredi/gmredi_slope_psi.F 126 GMREDI_SLOPE_PSI 
     &        dSigmaDrW(i,j) = dSigmaDrLtd(i,j)
./pkg/gmredi/gmredi_slope_psi.F 133 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 134 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 135 GMREDI_SLOPE_PSI 
          taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 143 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 144 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 149 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 150 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = -(GM_Small_Number+
./pkg/gmredi/gmredi_slope_psi.F 151 GMREDI_SLOPE_PSI 
     &     ABS(SlopeY(i,j))*GM_rMaxSlope)
./pkg/gmredi/gmredi_slope_psi.F 159 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 160 GMREDI_SLOPE_PSI 
          IF (dSigmaDrS(i,j).GE.dSigmaDrLtd(i,j))
./pkg/gmredi/gmredi_slope_psi.F 161 GMREDI_SLOPE_PSI 
     &        dSigmaDrS(i,j) = dSigmaDrLtd(i,j)
./pkg/gmredi/gmredi_slope_psi.F 168 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 169 GMREDI_SLOPE_PSI 
          SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F 170 GMREDI_SLOPE_PSI 
          taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 196 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 197 GMREDI_SLOPE_PSI 
          IF (dSigmaDrW(i,j).GE.-GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F 198 GMREDI_SLOPE_PSI 
     &        dSigmaDrW(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_psi.F 205 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 206 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 207 GMREDI_SLOPE_PSI 
          taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 214 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 215 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F 216 GMREDI_SLOPE_PSI 
             SlopeX(i,j) = SIGN(slopeCutoff,SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 217 GMREDI_SLOPE_PSI 
             taperX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 228 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 229 GMREDI_SLOPE_PSI 
          IF (dSigmaDrS(i,j).GE.-GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F 230 GMREDI_SLOPE_PSI 
     &        dSigmaDrS(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_psi.F 237 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 238 GMREDI_SLOPE_PSI 
          SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F 239 GMREDI_SLOPE_PSI 
          taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 246 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 247 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeY(i,j)) .GE. slopeCutoff ) THEN
./pkg/gmredi/gmredi_slope_psi.F 248 GMREDI_SLOPE_PSI 
             SlopeY(i,j) = SIGN(slopeCutoff,SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 249 GMREDI_SLOPE_PSI 
             taperY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 265 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 266 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 269 GMREDI_SLOPE_PSI 
     &           taperX(i,j)=GM_maxSlope/(Smod+GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F 273 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 274 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 277 GMREDI_SLOPE_PSI 
     &           taperY(i,j)=GM_maxSlope/(Smod+GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F 286 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 287 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeX(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F 288 GMREDI_SLOPE_PSI 
     &           ABS(SlopeX(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F 289 GMREDI_SLOPE_PSI 
     &           taperX(i,j)=maxSlopeSqr/
./pkg/gmredi/gmredi_slope_psi.F 290 GMREDI_SLOPE_PSI 
     &           ( SlopeX(i,j)*SlopeX(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F 294 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 295 GMREDI_SLOPE_PSI 
          IF ( ABS(SlopeY(i,j)) .GT. GM_maxSlope .AND.
./pkg/gmredi/gmredi_slope_psi.F 296 GMREDI_SLOPE_PSI 
     &           ABS(SlopeY(i,j)) .LT. slopeCutoff )
./pkg/gmredi/gmredi_slope_psi.F 297 GMREDI_SLOPE_PSI 
     &           taperY(i,j)=maxSlopeSqr/
./pkg/gmredi/gmredi_slope_psi.F 298 GMREDI_SLOPE_PSI 
     &           ( SlopeY(i,j)*SlopeY(i,j) + GM_Small_Number )
./pkg/gmredi/gmredi_slope_psi.F 306 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 307 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 308 GMREDI_SLOPE_PSI 
          taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F 312 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 313 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 314 GMREDI_SLOPE_PSI 
          taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F 323 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 324 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 328 GMREDI_SLOPE_PSI 
              Rnondim = -depthZ/(LrhoW(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F 337 GMREDI_SLOPE_PSI 
            taperX(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_psi.F 343 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 344 GMREDI_SLOPE_PSI 
          Smod = ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 348 GMREDI_SLOPE_PSI 
              Rnondim = -depthZ/(LrhoS(i,j)*Smod)
./pkg/gmredi/gmredi_slope_psi.F 357 GMREDI_SLOPE_PSI 
            taperY(i,j)=f1*f2
./pkg/gmredi/gmredi_slope_psi.F 381 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 382 GMREDI_SLOPE_PSI 
          IF (dSigmaDrW(i,j).GE.-GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F 383 GMREDI_SLOPE_PSI 
     &        dSigmaDrW(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_psi.F 390 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 391 GMREDI_SLOPE_PSI 
          SlopeX(i,j) = -SlopeX(i,j)/dSigmaDrW(i,j)
./pkg/gmredi/gmredi_slope_psi.F 392 GMREDI_SLOPE_PSI 
          taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 402 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 403 GMREDI_SLOPE_PSI 
          IF (dSigmaDrS(i,j).GE.-GM_Small_Number)
./pkg/gmredi/gmredi_slope_psi.F 404 GMREDI_SLOPE_PSI 
     &        dSigmaDrS(i,j) = -GM_Small_Number
./pkg/gmredi/gmredi_slope_psi.F 411 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 412 GMREDI_SLOPE_PSI 
          SlopeY(i,j) = -SlopeY(i,j)/dSigmaDrS(i,j)
./pkg/gmredi/gmredi_slope_psi.F 413 GMREDI_SLOPE_PSI 
          taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 423 GMREDI_SLOPE_PSI 
         DO i=1-Olx+1,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 424 GMREDI_SLOPE_PSI 
       slopeTmpSpec=ABS(SlopeX(i,j))
./pkg/gmredi/gmredi_slope_psi.F 426 GMREDI_SLOPE_PSI 
        SlopeX(i,j)=5.*SlopeX(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F 428 GMREDI_SLOPE_PSI 
        SlopeX(i,j)=5.*SlopeX(i,j)
./pkg/gmredi/gmredi_slope_psi.F 430 GMREDI_SLOPE_PSI 
       taperX(i,j)=1.
./pkg/gmredi/gmredi_slope_psi.F 434 GMREDI_SLOPE_PSI 
         DO i=1-Olx,sNx+Olx
./pkg/gmredi/gmredi_slope_psi.F 435 GMREDI_SLOPE_PSI 
       slopeTmpSpec=ABS(SlopeY(i,j))
./pkg/gmredi/gmredi_slope_psi.F 437 GMREDI_SLOPE_PSI 
        SlopeY(i,j)=5.*SlopeY(i,j)*slopeMaxSpec/slopeTmpSpec
./pkg/gmredi/gmredi_slope_psi.F 439 GMREDI_SLOPE_PSI 
        SlopeY(i,j)=5.*SlopeY(i,j)
./pkg/gmredi/gmredi_slope_psi.F 441 GMREDI_SLOPE_PSI 
       taperY(i,j)=1.
./pkg/gmredi/gmredi_slope_psi.F 64 GMREDI_SLOPE_PSI 
      INTEGER i,j
./model/inc/RECIP_HFACC_MACROS.h 36 NO PROCEDURE 
# define _recip_hFacC(i,j,k,bi,bj) recip_hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 105 GMREDI_XTRANSPORT 
       DO i=iMin,iMax
./pkg/gmredi/gmredi_xtransport.F 106 GMREDI_XTRANSPORT 
        df(i,j) = df(i,j)
./pkg/gmredi/gmredi_xtransport.F 107 GMREDI_XTRANSPORT 
     &   -xA(i,j)
./pkg/gmredi/gmredi_xtransport.F 109 GMREDI_XTRANSPORT 
     &    *Kux(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 112 GMREDI_XTRANSPORT 
     &    *(kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 117 GMREDI_XTRANSPORT 
     &    +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 121 GMREDI_XTRANSPORT 
     &    *_recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 122 GMREDI_XTRANSPORT 
     &    *(Tracer(i,j,k,bi,bj)-Tracer(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 132 GMREDI_XTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_xtransport.F 134 GMREDI_XTRANSPORT 
        dTdz(i,j) =  op5*(
./pkg/gmredi/gmredi_xtransport.F 136 GMREDI_XTRANSPORT 
     &       ( maskC(i-1,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 137 GMREDI_XTRANSPORT 
     &           (Tracer(i-1,j,km1,bi,bj)-Tracer(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 138 GMREDI_XTRANSPORT 
     &        +maskC( i ,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 139 GMREDI_XTRANSPORT 
     &           (Tracer( i ,j,km1,bi,bj)-Tracer( i ,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 142 GMREDI_XTRANSPORT 
     &       ( maskC(i-1,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 143 GMREDI_XTRANSPORT 
     &           (Tracer(i-1,j,k,bi,bj)-Tracer(i-1,j,kp1,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 144 GMREDI_XTRANSPORT 
     &        +maskC( i ,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 145 GMREDI_XTRANSPORT 
     &           (Tracer( i ,j,k,bi,bj)-Tracer( i ,j,kp1,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 156 GMREDI_XTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_xtransport.F 158 GMREDI_XTRANSPORT 
        df(i,j) = df(i,j) - xA(i,j)*Kuz(i,j,k,bi,bj)*dTdz(i,j)
./pkg/gmredi/gmredi_xtransport.F 171 GMREDI_XTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_xtransport.F 172 GMREDI_XTRANSPORT 
         uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_xtransport.F 173 GMREDI_XTRANSPORT 
     &                                 -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_xtransport.F 174 GMREDI_XTRANSPORT 
     &                               *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 182 GMREDI_XTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_xtransport.F 183 GMREDI_XTRANSPORT 
         df(i,j) = df(i,j)
./pkg/gmredi/gmredi_xtransport.F 184 GMREDI_XTRANSPORT 
     &    +uTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 199 GMREDI_XTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_xtransport.F 200 GMREDI_XTRANSPORT 
         tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_xtransport.F 201 GMREDI_XTRANSPORT 
     &                                -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_xtransport.F 202 GMREDI_XTRANSPORT 
     &                               *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 203 GMREDI_XTRANSPORT 
     &               *op5*(Tracer(i,j,k,bi,bj)+Tracer(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 105 GMREDI_YTRANSPORT 
       DO i=iMin,iMax
./pkg/gmredi/gmredi_ytransport.F 106 GMREDI_YTRANSPORT 
        df(i,j) = df(i,j)
./pkg/gmredi/gmredi_ytransport.F 107 GMREDI_YTRANSPORT 
     &   -yA(i,j)
./pkg/gmredi/gmredi_ytransport.F 109 GMREDI_YTRANSPORT 
     &    *Kvy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 112 GMREDI_YTRANSPORT 
     &    *(kapredi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 117 GMREDI_YTRANSPORT 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 121 GMREDI_YTRANSPORT 
     &    *_recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 122 GMREDI_YTRANSPORT 
     &    *(Tracer(i,j,k,bi,bj)-Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 132 GMREDI_YTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_ytransport.F 135 GMREDI_YTRANSPORT 
        dTdz(i,j) =  op5*(
./pkg/gmredi/gmredi_ytransport.F 137 GMREDI_YTRANSPORT 
     &       ( maskC(i,j-1,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 138 GMREDI_YTRANSPORT 
     &           (Tracer(i,j-1,km1,bi,bj)-Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 139 GMREDI_YTRANSPORT 
     &        +maskC(i, j ,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 140 GMREDI_YTRANSPORT 
     &           (Tracer(i, j ,km1,bi,bj)-Tracer(i, j ,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 143 GMREDI_YTRANSPORT 
     &       ( maskC(i,j-1,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 144 GMREDI_YTRANSPORT 
     &           (Tracer(i,j-1,k,bi,bj)-Tracer(i,j-1,kp1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 145 GMREDI_YTRANSPORT 
     &        +maskC(i, j ,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 146 GMREDI_YTRANSPORT 
     &           (Tracer(i, j ,k,bi,bj)-Tracer(i, j ,kp1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 155 GMREDI_YTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_ytransport.F 157 GMREDI_YTRANSPORT 
          df(i,j) = df(i,j) - yA(i,j)*Kvz(i,j,k,bi,bj)*dTdz(i,j)
./pkg/gmredi/gmredi_ytransport.F 171 GMREDI_YTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_ytransport.F 172 GMREDI_YTRANSPORT 
         vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_ytransport.F 173 GMREDI_YTRANSPORT 
     &                                 -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_ytransport.F 174 GMREDI_YTRANSPORT 
     &                               *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 182 GMREDI_YTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_ytransport.F 183 GMREDI_YTRANSPORT 
         df(i,j) = df(i,j)
./pkg/gmredi/gmredi_ytransport.F 184 GMREDI_YTRANSPORT 
     &    +vTrans(i,j)*op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 198 GMREDI_YTRANSPORT 
        DO i=iMin,iMax
./pkg/gmredi/gmredi_ytransport.F 199 GMREDI_YTRANSPORT 
         tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_ytransport.F 200 GMREDI_YTRANSPORT 
     &                                -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_ytransport.F 201 GMREDI_YTRANSPORT 
     &                               *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 202 GMREDI_YTRANSPORT 
     &               *op5*(Tracer(i,j,k,bi,bj)+Tracer(i,j-1,k,bi,bj))
./pkg/grdchk/grdchk_get_obcs_mask.F 103 GRDCHK_GET_OBCS_MASK 
                  do i = imin,imax
./pkg/grdchk/grdchk_get_obcs_mask.F 104 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 105 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldxz(i,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F 39 GRDCHK_GET_OBCS_MASK 
      integer i,j,k
./pkg/grdchk/grdchk_get_obcs_mask.F 80 GRDCHK_GET_OBCS_MASK 
                  do i = imin,imax
./pkg/grdchk/grdchk_get_obcs_mask.F 81 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 82 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldxz(i,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 130 GRDCHK_GET_POSITION 
                do i = iwrk, ncvarxmax(grdchkvarindex)
./pkg/grdchk/grdchk_get_position.F 133 GRDCHK_GET_POSITION 
                     if ( maskC(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 136 GRDCHK_GET_POSITION 
                     wetlocal = maskC(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 138 GRDCHK_GET_POSITION 
                     if ( _maskS(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 141 GRDCHK_GET_POSITION 
                     wetlocal = _maskS(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 143 GRDCHK_GET_POSITION 
                     if ( _maskW(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 146 GRDCHK_GET_POSITION 
                     wetlocal = _maskW(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 150 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 153 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 157 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 160 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 179 GRDCHK_GET_POSITION 
                  if ( i     .EQ. itilepos .AND.
./pkg/grdchk/grdchk_get_position.F 50 GRDCHK_GET_POSITION 
      integer i,j,k
./pkg/grdchk/grdchk_getadxx.F 65 GRDCHK_GETADXX 
      integer i,j,k
./pkg/grdchk/grdchk_init.F 41 GRDCHK_INIT 
      integer i,j,k
./pkg/grdchk/grdchk_loc.F 192 GRDCHK_LOC 
                do i = iwrk, ncvarxmax(grdchkvarindex)
./pkg/grdchk/grdchk_loc.F 195 GRDCHK_LOC 
                     if ( maskC(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 197 GRDCHK_LOC 
                        itmp = i
./pkg/grdchk/grdchk_loc.F 201 GRDCHK_LOC 
                     if ( _maskS(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 203 GRDCHK_LOC 
                        itmp = i
./pkg/grdchk/grdchk_loc.F 207 GRDCHK_LOC 
                     if ( _maskW(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 209 GRDCHK_LOC 
                        itmp = i
./pkg/grdchk/grdchk_loc.F 215 GRDCHK_LOC 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 217 GRDCHK_LOC 
                           itmp = i
./pkg/grdchk/grdchk_loc.F 223 GRDCHK_LOC 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 225 GRDCHK_LOC 
                           itmp = i
./pkg/grdchk/grdchk_loc.F 74 GRDCHK_LOC 
      integer i,j,k
./model/inc/RECIP_HFACS_MACROS.h 36 NO PROCEDURE 
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/grdchk/grdchk_main.F 100 GRDCHK_MAIN 
      integer i,  imin, imax
./pkg/grdchk/grdchk_main.F 175 GRDCHK_MAIN 
                  do i = imin, imax
./pkg/grdchk/grdchk_main.F 176 GRDCHK_MAIN 
                     tmpplot1(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 177 GRDCHK_MAIN 
                     tmpplot2(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 178 GRDCHK_MAIN 
                     tmpplot3(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 275 GRDCHK_MAIN 
              do i=1,snx
./pkg/grdchk/grdchk_main.F 276 GRDCHK_MAIN 
               g_objf_state_final(i,j,1,1,k) = 0.
./pkg/grdchk/grdchk_print.F 128 GRDCHK_PRINT 
      do i = 1, numchecks
./pkg/grdchk/grdchk_print.F 129 GRDCHK_PRINT 
        xxmemo_ref   = xxmemref  (i)
./pkg/grdchk/grdchk_print.F 130 GRDCHK_PRINT 
        xxmemo_pert  = xxmempert (i)
./pkg/grdchk/grdchk_print.F 131 GRDCHK_PRINT 
        adxxmemo     = adxxmem   (i)
./pkg/grdchk/grdchk_print.F 132 GRDCHK_PRINT 
        ftlxxmemo    = ftlxxmem  (i)
./pkg/grdchk/grdchk_print.F 133 GRDCHK_PRINT 
        fcref        = fcrmem    (i)
./pkg/grdchk/grdchk_print.F 134 GRDCHK_PRINT 
        fcpertplus   = fcppmem   (i)
./pkg/grdchk/grdchk_print.F 135 GRDCHK_PRINT 
        fcpertminus  = fcpmmem   (i)
./pkg/grdchk/grdchk_print.F 136 GRDCHK_PRINT 
        gfd          = gfdmem    (i)
./pkg/grdchk/grdchk_print.F 137 GRDCHK_PRINT 
        ratio_ad     = ratioadmem  (i)
./pkg/grdchk/grdchk_print.F 138 GRDCHK_PRINT 
        ratio_ftl    = ratioftlmem (i)
./pkg/grdchk/grdchk_print.F 139 GRDCHK_PRINT 
        itile        = bimem   (i)
./pkg/grdchk/grdchk_print.F 140 GRDCHK_PRINT 
        jtile        = bjmem   (i)
./pkg/grdchk/grdchk_print.F 141 GRDCHK_PRINT 
        itilepos     = ilocmem (i)
./pkg/grdchk/grdchk_print.F 142 GRDCHK_PRINT 
        jtilepos     = jlocmem (i)
./pkg/grdchk/grdchk_print.F 143 GRDCHK_PRINT 
        layer        = klocmem (i)
./pkg/grdchk/grdchk_print.F 144 GRDCHK_PRINT 
        icomp        = icompmem(i)
./pkg/grdchk/grdchk_print.F 145 GRDCHK_PRINT 
        ierr         = ierrmem (i)
./pkg/grdchk/grdchk_print.F 153 GRDCHK_PRINT 
     &       i, itilepos, jtilepos, layer,
./pkg/grdchk/grdchk_print.F 160 GRDCHK_PRINT 
     &          i, fcref, fcpertplus, fcpertminus
./pkg/grdchk/grdchk_print.F 166 GRDCHK_PRINT 
     &         i, gfd, ftlxxmemo, ratio_ftl
./pkg/grdchk/grdchk_print.F 170 GRDCHK_PRINT 
     &          i, gfd, adxxmemo, ratio_ad
./pkg/grdchk/grdchk_print.F 54 GRDCHK_PRINT 
      integer i
./pkg/grdchk/grdchk_readparms.F 39 GRDCHK_READPARMS 
      integer i,j,k
./pkg/grdchk/grdchk_setxx.F 57 GRDCHK_SETXX 
      integer i,j,k
./pkg/gridalt/dyn2phys.F 102 DYN2PHYS 
          dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj)
./pkg/gridalt/dyn2phys.F 108 DYN2PHYS 
            dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj)
./pkg/gridalt/dyn2phys.F 109 DYN2PHYS 
            windsum = windsum+(windphy(i,j,Lphy,bi,bj)*dpkephy)/dpkedyn
./pkg/gridalt/dyn2phys.F 114 DYN2PHYS 
           weights(i,j,Lphy) = 1.
./pkg/gridalt/dyn2phys.F 116 DYN2PHYS 
     .                weights(i,j,Lphy)=windphy(i,j,Lphy,bi,bj)/windsum
./pkg/gridalt/dyn2phys.F 117 DYN2PHYS 
           if( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).lt.10000.)) then
./pkg/gridalt/dyn2phys.F 118 DYN2PHYS 
            weights(i,j,Lphy) =
./pkg/gridalt/dyn2phys.F 119 DYN2PHYS 
     .   (qd-5. + (10.*(pedyn(i,j,L,bi,bj)-pphy(i,j,Lphy))/dpkedyn))/qd
./pkg/gridalt/dyn2phys.F 120 DYN2PHYS 
           elseif( (flg.eq.2) .and. (pedyn(i,j,L,bi,bj).ge.10000.)) then
./pkg/gridalt/dyn2phys.F 121 DYN2PHYS 
            weights(i,j,Lphy) = 1.
./pkg/gridalt/dyn2phys.F 123 DYN2PHYS 
           qphy(i,j,Lphy,bi,bj) = qd * weights(i,j,Lphy)
./pkg/gridalt/dyn2phys.F 59 DYN2PHYS 
      integer  i,j,L,Lout1,Lout2,Lphy
./pkg/gridalt/dyn2phys.F 78 DYN2PHYS 
        do i = idim1,idim2
./pkg/gridalt/dyn2phys.F 79 DYN2PHYS 
         pphy(i,j,Lphy) =
./pkg/gridalt/dyn2phys.F 80 DYN2PHYS 
     .       (pephy(i,j,Lphy,bi,bj)+pephy(i,j,Lphy+1,bi,bj))/2.
./pkg/gridalt/dyn2phys.F 89 DYN2PHYS 
        do i = idim1,idim2
./pkg/gridalt/dyn2phys.F 90 DYN2PHYS 
         qd = qdyn(i,j,L,bi,bj)
./pkg/gridalt/dyn2phys.F 92 DYN2PHYS 
         if(L.ge.Lbot(i,j,bi,bj))then
./pkg/gridalt/dyn2phys.F 93 DYN2PHYS 
          if(L.eq.Lbot(i,j,bi,bj)) then
./pkg/gridalt/dyn2phys.F 96 DYN2PHYS 
           Lout1 = nlperdyn(i,j,L-1,bi,bj)
./pkg/gridalt/dyn2phys.F 98 DYN2PHYS 
          Lout2 = nlperdyn(i,j,L,bi,bj)
./model/inc/RECIP_HFACW_MACROS.h 36 NO PROCEDURE 
# define _recip_hFacW(i,j,k,bi,bj) recip_hFacW(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/gridalt/gridalt_update.F 31 GRIDALT_UPDATE 
       integer i,j,L
./pkg/gridalt/gridalt_update.F 54 GRIDALT_UPDATE 
          do i = i1,i2
./pkg/gridalt/gridalt_update.F 55 GRIDALT_UPDATE 
           dpphys(i,j,L,bi,bj) = dpphys0(i,j,L,bi,bj) *
./pkg/gridalt/gridalt_update.F 56 GRIDALT_UPDATE 
     .                     rstarfacC(i,j,bi,bj)
./pkg/gridalt/gridalt_update.F 75 GRIDALT_UPDATE 
          do i = i1,i2
./pkg/gridalt/gridalt_update.F 76 GRIDALT_UPDATE 
           temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1. _d -2
./pkg/gridalt/make_phys_grid.F 121 MAKE_PHYS_GRID 
       do i = i1,i2
./pkg/gridalt/make_phys_grid.F 122 MAKE_PHYS_GRID 
        Lbotij = Lbot(i,j,bi,bj)
./pkg/gridalt/make_phys_grid.F 129 MAKE_PHYS_GRID 
     . (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then
./pkg/gridalt/make_phys_grid.F 143 MAKE_PHYS_GRID 
         if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge.
./pkg/gridalt/make_phys_grid.F 146 MAKE_PHYS_GRID 
          dpphys(i,j,nlphys,bi,bj) = dptry(Lnew)
./pkg/gridalt/make_phys_grid.F 151 MAKE_PHYS_GRID 
          if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)*
./pkg/gridalt/make_phys_grid.F 155 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) =
./pkg/gridalt/make_phys_grid.F 156 MAKE_PHYS_GRID 
     .                      (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap
./pkg/gridalt/make_phys_grid.F 159 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) +
./pkg/gridalt/make_phys_grid.F 160 MAKE_PHYS_GRID 
     .                      (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F 162 MAKE_PHYS_GRID 
          deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F 166 MAKE_PHYS_GRID 
        nlperdyn(i,j,Lbotij,bi,bj) = nlphys
./pkg/gridalt/make_phys_grid.F 177 MAKE_PHYS_GRID 
           if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then
./pkg/gridalt/make_phys_grid.F 179 MAKE_PHYS_GRID 
            dpphys(i,j,nlphys,bi,bj) = dptry(Lnew)
./pkg/gridalt/make_phys_grid.F 186 MAKE_PHYS_GRID 
            if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap))
./pkg/gridalt/make_phys_grid.F 190 MAKE_PHYS_GRID 
             dpphys(i,j,nlphys,bi,bj) =
./pkg/gridalt/make_phys_grid.F 191 MAKE_PHYS_GRID 
     .                             (hfacC(i,j,L,bi,bj)*drF(L))-deltap
./pkg/gridalt/make_phys_grid.F 192 MAKE_PHYS_GRID 
             deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 195 MAKE_PHYS_GRID 
             dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) +
./pkg/gridalt/make_phys_grid.F 196 MAKE_PHYS_GRID 
     .                      (hfacC(i,j,L,bi,bj)*drF(L)-deltap)
./pkg/gridalt/make_phys_grid.F 197 MAKE_PHYS_GRID 
             deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 206 MAKE_PHYS_GRID 
           if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then
./pkg/gridalt/make_phys_grid.F 208 MAKE_PHYS_GRID 
            dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1)
./pkg/gridalt/make_phys_grid.F 216 MAKE_PHYS_GRID 
          if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then
./pkg/gridalt/make_phys_grid.F 218 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1)
./pkg/gridalt/make_phys_grid.F 221 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 224 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 230 MAKE_PHYS_GRID 
          dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 232 MAKE_PHYS_GRID 
         nlperdyn(i,j,L,bi,bj) = nlphys
./pkg/gridalt/make_phys_grid.F 239 MAKE_PHYS_GRID 
        dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs
./pkg/gridalt/make_phys_grid.F 241 MAKE_PHYS_GRID 
         dpphys(i,j,Lnew,bi,bj) = thindp
./pkg/gridalt/make_phys_grid.F 243 MAKE_PHYS_GRID 
        nlperdyn(i,j,Nr,bi,bj) = numlevphys
./pkg/gridalt/make_phys_grid.F 55 MAKE_PHYS_GRID 
       integer i,j,L,Lbotij,Lnew
./pkg/gridalt/make_phys_grid.F 96 MAKE_PHYS_GRID 
        do i = i1,i2+1
./pkg/gridalt/make_phys_grid.F 97 MAKE_PHYS_GRID 
         nlperdyn(i,j,L,bi,bj) = 0
./pkg/gridalt/phys2dyn.F 51 PHYS2DYN 
      integer  i,j,L,Lout1,Lout1p1,Lout2,Lphy
./pkg/gridalt/phys2dyn.F 73 PHYS2DYN 
        do i = idim1,idim2
./pkg/gridalt/phys2dyn.F 74 PHYS2DYN 
         qdyn(i,j,L,bi,bj) = 0.
./pkg/gridalt/phys2dyn.F 76 PHYS2DYN 
         if(L.ge.Lbot(i,j,bi,bj))then
./pkg/gridalt/phys2dyn.F 77 PHYS2DYN 
          if(L.eq.Lbot(i,j,bi,bj)) then
./pkg/gridalt/phys2dyn.F 80 PHYS2DYN 
           Lout1 = nlperdyn(i,j,L-1,bi,bj)
./pkg/gridalt/phys2dyn.F 82 PHYS2DYN 
          Lout2 = nlperdyn(i,j,L,bi,bj)
./pkg/gridalt/phys2dyn.F 86 PHYS2DYN 
          dpkedyn = pedyn(i,j,L,bi,bj)-pedyn(i,j,L+1,bi,bj)
./pkg/gridalt/phys2dyn.F 92 PHYS2DYN 
           dpkephy = pephy(i,j,Lphy,bi,bj)-pephy(i,j,Lphy+1,bi,bj)
./pkg/gridalt/phys2dyn.F 93 PHYS2DYN 
           sum=sum+qphy(i,j,Lphy,bi,bj)*(dpkephy/dpkedyn)
./pkg/gridalt/phys2dyn.F 95 PHYS2DYN 
          qdyn(i,j,L,bi,bj) = sum
./pkg/icefront/icefront_init_fixed.F 60 ICEFRONT_INIT_FIXED 
          K_icefront(i,j,bi,bj) = 0
./pkg/icefront/icefront_init_varia.F 42 ICEFRONT_INIT_VARIA 
           icefront_TendT (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_init_varia.F 43 ICEFRONT_INIT_VARIA 
           icefront_TendS (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_tendency_apply.F 36 ICEFRONT_TENDENCY_APPLY_T 
      INTEGER i, j
./pkg/icefront/icefront_tendency_apply.F 40 ICEFRONT_TENDENCY_APPLY_T 
        DO i=1,sNx
./pkg/icefront/icefront_tendency_apply.F 41 ICEFRONT_TENDENCY_APPLY_T 
         IF (k .LE. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_tendency_apply.F 42 ICEFRONT_TENDENCY_APPLY_T 
          gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
./pkg/icefront/icefront_tendency_apply.F 43 ICEFRONT_TENDENCY_APPLY_T 
     &         + ICEFRONT_TendT(i,j,k,bi,bj)
./pkg/icefront/icefront_tendency_apply.F 78 ICEFRONT_TENDENCY_APPLY_S 
      INTEGER i, j
./pkg/icefront/icefront_tendency_apply.F 82 ICEFRONT_TENDENCY_APPLY_S 
        DO i=1,sNx
./pkg/icefront/icefront_tendency_apply.F 83 ICEFRONT_TENDENCY_APPLY_S 
         IF (k .LE. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_tendency_apply.F 84 ICEFRONT_TENDENCY_APPLY_S 
          gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj)
./pkg/icefront/icefront_tendency_apply.F 85 ICEFRONT_TENDENCY_APPLY_S 
     &         + ICEFRONT_TendS(i,j,k,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 149 ICEFRONT_THERMODYNAMICS 
            icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5
./pkg/icefront/icefront_thermodynamics.F 150 ICEFRONT_THERMODYNAMICS 
            icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) *
./pkg/icefront/icefront_thermodynamics.F 155 ICEFRONT_THERMODYNAMICS 
            IF (k .LT. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_thermodynamics.F 156 ICEFRONT_THERMODYNAMICS 
             icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 157 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 158 ICEFRONT_THERMODYNAMICS 
             icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 159 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 160 ICEFRONT_THERMODYNAMICS 
            ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_thermodynamics.F 163 ICEFRONT_THERMODYNAMICS 
             icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 164 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 167 ICEFRONT_THERMODYNAMICS 
             icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 168 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 202 KPP_CALC 
      integer i, j, k, kp1, km1, im1, ip1, jm1, jp1
./pkg/kpp/kpp_calc.F 268 KPP_CALC 
            DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_calc.F 269 KPP_CALC 
               ghat(i,j,k) = dbloc(i,j,k)
./pkg/kpp/kpp_calc.F 318 KPP_CALC 
            DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_calc.F 322 KPP_CALC 
               dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 323 KPP_CALC 
     &              * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 324 KPP_CALC 
               ghat(i,j,k)  = ghat(i,j,k)  * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 325 KPP_CALC 
     &              * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 326 KPP_CALC 
               Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 327 KPP_CALC 
     &              * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 328 KPP_CALC 
               if(k.eq.nzmax(i,j,bi,bj)) then
./pkg/kpp/kpp_calc.F 329 KPP_CALC 
                  dbloc(i,j,k) = p0
./pkg/kpp/kpp_calc.F 330 KPP_CALC 
                  ghat(i,j,k)  = p0
./pkg/kpp/kpp_calc.F 331 KPP_CALC 
                  Ritop(i,j,k) = p0
./pkg/kpp/kpp_calc.F 337 KPP_CALC 
               Ritop(i,j,k) = (zgrid(1)-zgrid(k)) * Ritop(i,j,k)
./pkg/kpp/kpp_calc.F 416 KPP_CALC 
        DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_calc.F 417 KPP_CALC 
         shsq(i,j,k) = p0
./pkg/kpp/kpp_calc.F 428 KPP_CALC 
        DO i = imin, imax
./pkg/kpp/kpp_calc.F 429 KPP_CALC 
         im1 = i - 1
./pkg/kpp/kpp_calc.F 430 KPP_CALC 
         ip1 = i + 1
./pkg/kpp/kpp_calc.F 431 KPP_CALC 
         shsq(i,j,k) = p5 * (
./pkg/kpp/kpp_calc.F 432 KPP_CALC 
     &        (uVel(i,  j,  k,bi,bj)-uVel(i,  j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 433 KPP_CALC 
     &        (uVel(i,  j,  k,bi,bj)-uVel(i,  j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 436 KPP_CALC 
     &        (vVel(i,  j,  k,bi,bj)-vVel(i,  j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 437 KPP_CALC 
     &        (vVel(i,  j,  k,bi,bj)-vVel(i,  j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 438 KPP_CALC 
     &        (vVel(i,  jp1,k,bi,bj)-vVel(i,  jp1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 439 KPP_CALC 
     &        (vVel(i,  jp1,k,bi,bj)-vVel(i,  jp1,kp1,bi,bj)) )
./pkg/kpp/kpp_calc.F 441 KPP_CALC 
         shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * (
./pkg/kpp/kpp_calc.F 442 KPP_CALC 
     &        (uVel(i,  jm1,k,bi,bj)-uVel(i,  jm1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 443 KPP_CALC 
     &        (uVel(i,  jm1,k,bi,bj)-uVel(i,  jm1,kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 446 KPP_CALC 
     &        (uVel(i,  jp1,k,bi,bj)-uVel(i,  jp1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 447 KPP_CALC 
     &        (uVel(i,  jp1,k,bi,bj)-uVel(i,  jp1,kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 500 KPP_CALC 
         DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_calc.F 501 KPP_CALC 
            work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 502 KPP_CALC 
            work2(i,j) = Fcori(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 526 KPP_CALC 
       DO i = imin, imax
./pkg/kpp/kpp_calc.F 529 KPP_CALC 
         KPPviscAz(i,j,k,bi,bj) = vddiff(i,j,k-1,1) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 530 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 531 KPP_CALC 
         KPPdiffKzS(i,j,k,bi,bj)= vddiff(i,j,k-1,2) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 532 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 533 KPP_CALC 
         KPPdiffKzT(i,j,k,bi,bj)= vddiff(i,j,k-1,3) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 534 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 535 KPP_CALC 
         KPPghat(i,j,k,bi,bj)   = ghat(i,j,k)       * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 536 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 540 KPP_CALC 
        if ( useShelfIce ) k = kTopC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 542 KPP_CALC 
        KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 581 KPP_CALC 
         DO i=1-OLx,sNx+OLx
./pkg/kpp/kpp_calc.F 582 KPP_CALC 
            worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 590 KPP_CALC 
         DO i=1-OLx,sNx+OLx
./pkg/kpp/kpp_calc.F 591 KPP_CALC 
            KPPfrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_calc.F 600 KPP_CALC 
           DO i=1-OLx,sNx+OLx
./pkg/kpp/kpp_calc.F 601 KPP_CALC 
              work2(i,j) = SaltPlumeDepth(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 602 KPP_CALC 
              worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 610 KPP_CALC 
           DO i=1-OLx,sNx+OLx
./pkg/kpp/kpp_calc.F 611 KPP_CALC 
              KPPplumefrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_calc.F 660 KPP_CALC_DUMMY 
      integer i, j, k
./pkg/kpp/kpp_calc.F 663 KPP_CALC_DUMMY 
         DO i=1-OLx,sNx+OLx
./pkg/kpp/kpp_calc.F 664 KPP_CALC_DUMMY 
            KPPhbl (i,j,bi,bj) = 1.0
./pkg/kpp/kpp_calc.F 665 KPP_CALC_DUMMY 
            KPPfrac(i,j,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F 667 KPP_CALC_DUMMY 
            KPPplumefrac(i,j,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F 670 KPP_CALC_DUMMY 
               KPPghat   (i,j,k,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F 671 KPP_CALC_DUMMY 
               KPPviscAz (i,j,k,bi,bj) = viscArNr(1)
./pkg/kpp/kpp_calc_diff_ptr.F 48 KPP_CALC_DIFF_PTR 
      INTEGER i,j,k
./pkg/kpp/kpp_calc_diff_ptr.F 55 KPP_CALC_DIFF_PTR 
         DO i=iMin,iMax
./pkg/kpp/kpp_calc_diff_ptr.F 57 KPP_CALC_DIFF_PTR 
          KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 59 KPP_CALC_DIFF_PTR 
          KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 68 KPP_CALC_DIFF_PTR 
        DO i=iMin,iMax
./pkg/kpp/kpp_calc_diff_ptr.F 70 KPP_CALC_DIFF_PTR 
         KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 72 KPP_CALC_DIFF_PTR 
         KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_s.F 45 KPP_CALC_DIFF_S 
      INTEGER i,j,k
./pkg/kpp/kpp_calc_diff_s.F 52 KPP_CALC_DIFF_S 
         DO i=iMin,iMax
./pkg/kpp/kpp_calc_diff_s.F 53 KPP_CALC_DIFF_S 
          KappaRS(i,j,k) = KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_s.F 61 KPP_CALC_DIFF_S 
        DO i=iMin,iMax
./pkg/kpp/kpp_calc_diff_s.F 62 KPP_CALC_DIFF_S 
         KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_t.F 45 KPP_CALC_DIFF_T 
      INTEGER i,j,k
./pkg/kpp/kpp_calc_diff_t.F 52 KPP_CALC_DIFF_T 
         DO i=iMin,iMax
./pkg/kpp/kpp_calc_diff_t.F 53 KPP_CALC_DIFF_T 
          KappaRT(i,j,k) = KPPdiffKzT(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_t.F 61 KPP_CALC_DIFF_T 
        DO i=iMin,iMax
./pkg/kpp/kpp_calc_diff_t.F 62 KPP_CALC_DIFF_T 
         KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_visc.F 38 KPP_CALC_VISC 
      INTEGER i,j
./pkg/kpp/kpp_calc_visc.F 41 KPP_CALC_VISC 
       DO i=iMin,iMax
./pkg/kpp/kpp_calc_visc.F 42 KPP_CALC_VISC 
        KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/kpp/kpp_calc_visc.F 43 KPP_CALC_VISC 
     &         KappaRU(i,j,k) - viscArNr(1) + _maskW(i,j,k,bi,bj) *
./pkg/kpp/kpp_calc_visc.F 44 KPP_CALC_VISC 
     &         0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i-1,j,k,bi,bj)) )
./pkg/kpp/kpp_calc_visc.F 49 KPP_CALC_VISC 
       DO i=iMin,iMax
./pkg/kpp/kpp_calc_visc.F 50 KPP_CALC_VISC 
        KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/kpp/kpp_calc_visc.F 51 KPP_CALC_VISC 
     &         KappaRV(i,j,k) - viscArNr(1) + _maskS(i,j,k,bi,bj) *
./pkg/kpp/kpp_calc_visc.F 52 KPP_CALC_VISC 
     &         0.5*(KPPviscAz(i,j,k,bi,bj)+KPPviscAz(i,j-1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 132 KPP_FORCING_SURF 
      integer i, j, k, im1, ip1, jm1, jp1
./pkg/kpp/kpp_forcing_surf.F 160 KPP_FORCING_SURF 
         DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_forcing_surf.F 161 KPP_FORCING_SURF 
            ustar(i,j) = p0
./pkg/kpp/kpp_forcing_surf.F 172 KPP_FORCING_SURF 
       DO i = imin, imax
./pkg/kpp/kpp_forcing_surf.F 173 KPP_FORCING_SURF 
        ip1 = i+1
./pkg/kpp/kpp_forcing_surf.F 174 KPP_FORCING_SURF 
        work3(i,j) =
./pkg/kpp/kpp_forcing_surf.F 175 KPP_FORCING_SURF 
     &   (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 176 KPP_FORCING_SURF 
     &   (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 177 KPP_FORCING_SURF 
     &   (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 178 KPP_FORCING_SURF 
     &   (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj))
./pkg/kpp/kpp_forcing_surf.F 186 KPP_FORCING_SURF 
       DO i = imin, imax
./pkg/kpp/kpp_forcing_surf.F 187 KPP_FORCING_SURF 
        ip1 = i+1
./pkg/kpp/kpp_forcing_surf.F 189 KPP_FORCING_SURF 
        if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then
./pkg/kpp/kpp_forcing_surf.F 190 KPP_FORCING_SURF 
           ustar(i,j) = SQRT( phepsi * p5 * drF(1) )
./pkg/kpp/kpp_forcing_surf.F 192 KPP_FORCING_SURF 
           tempVar2 =  SQRT( work3(i,j) ) * p5
./pkg/kpp/kpp_forcing_surf.F 193 KPP_FORCING_SURF 
           ustar(i,j) = SQRT( tempVar2 )
./pkg/kpp/kpp_forcing_surf.F 201 KPP_FORCING_SURF 
       DO i = imin, imax
./pkg/kpp/kpp_forcing_surf.F 202 KPP_FORCING_SURF 
        ip1 = i+1
./pkg/kpp/kpp_forcing_surf.F 204 KPP_FORCING_SURF 
     &       ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+
./pkg/kpp/kpp_forcing_surf.F 205 KPP_FORCING_SURF 
     &       surfForcTice(i,j,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 206 KPP_FORCING_SURF 
     &       SSBETA(I,J,1) * surfForcS(i,j,bi,bj) )
./pkg/kpp/kpp_forcing_surf.F 208 KPP_FORCING_SURF 
        bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) *
./pkg/kpp/kpp_forcing_surf.F 218 KPP_FORCING_SURF 
            DO i = imin, imax
./pkg/kpp/kpp_forcing_surf.F 219 KPP_FORCING_SURF 
               ip1 = i+1
./pkg/kpp/kpp_forcing_surf.F 221 KPP_FORCING_SURF 
     &              * saltPlumeFlux(i,j,bi,bj)
./pkg/kpp/kpp_forcing_surf.F 253 KPP_FORCING_SURF 
        DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_forcing_surf.F 254 KPP_FORCING_SURF 
         dVsq(i,j,k) = p0
./pkg/kpp/kpp_forcing_surf.F 271 KPP_FORCING_SURF 
       DO i = imin, imax
./pkg/kpp/kpp_forcing_surf.F 272 KPP_FORCING_SURF 
        ip1 = i + 1
./pkg/kpp/kpp_forcing_surf.F 276 KPP_FORCING_SURF 
        work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_forcing_surf.F 278 KPP_FORCING_SURF 
         IF ( k .LT. nzmax(i,j,bi,bj) .AND.
./pkg/kpp/kpp_forcing_surf.F 280 KPP_FORCING_SURF 
     &        dbloc(i,j,k) / drC(k+1) .GT. dB_dz )
./pkg/kpp/kpp_forcing_surf.F 281 KPP_FORCING_SURF 
     &        work1(i,j) = k
./pkg/kpp/kpp_forcing_surf.F 285 KPP_FORCING_SURF 
        k = work1(i,j)
./pkg/kpp/kpp_forcing_surf.F 286 KPP_FORCING_SURF 
        IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN
./pkg/kpp/kpp_forcing_surf.F 287 KPP_FORCING_SURF 
         zRef(i,j) = p0
./pkg/kpp/kpp_forcing_surf.F 289 KPP_FORCING_SURF 
         dBdz2 = dbloc(i,j,1) / drC(2)
./pkg/kpp/kpp_forcing_surf.F 290 KPP_FORCING_SURF 
         zRef(i,j) = drF(1) * dB_dz / dBdz2
./pkg/kpp/kpp_forcing_surf.F 291 KPP_FORCING_SURF 
        ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN
./pkg/kpp/kpp_forcing_surf.F 292 KPP_FORCING_SURF 
         dBdz1 = dbloc(i,j,k-1) / drC(k  )
./pkg/kpp/kpp_forcing_surf.F 293 KPP_FORCING_SURF 
         dBdz2 = dbloc(i,j,k  ) / drC(k+1)
./pkg/kpp/kpp_forcing_surf.F 294 KPP_FORCING_SURF 
         zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) /
./pkg/kpp/kpp_forcing_surf.F 297 KPP_FORCING_SURF 
         zRef(i,j) = rF(k+1)
./pkg/kpp/kpp_forcing_surf.F 302 KPP_FORCING_SURF 
     &       (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 303 KPP_FORCING_SURF 
     &       (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 306 KPP_FORCING_SURF 
     &       (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 307 KPP_FORCING_SURF 
     &       (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 308 KPP_FORCING_SURF 
     &       (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 309 KPP_FORCING_SURF 
     &       (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,2,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 315 KPP_FORCING_SURF 
        z0(i,j) = rF(2) *
./pkg/kpp/kpp_forcing_surf.F 319 KPP_FORCING_SURF 
     &       MAX ( ustar(i,j), phepsi ) )
./pkg/kpp/kpp_forcing_surf.F 320 KPP_FORCING_SURF 
        z0(i,j) = MAX ( z0(i,j), phepsi )
./pkg/kpp/kpp_forcing_surf.F 323 KPP_FORCING_SURF 
        zRef(i,j) = MAX ( epsilon * zRef(i,j), z0(i,j) )
./pkg/kpp/kpp_forcing_surf.F 324 KPP_FORCING_SURF 
        zRef(i,j) = MIN ( zRef(i,j), drF(1) )
./pkg/kpp/kpp_forcing_surf.F 327 KPP_FORCING_SURF 
        uRef(i,j) = p5 * ( uVel(i,j,1,bi,bj) + uVel(ip1,j,1,bi,bj) )
./pkg/kpp/kpp_forcing_surf.F 328 KPP_FORCING_SURF 
        vRef(i,j) = p5 * ( vVel(i,j,1,bi,bj) + vVel(i,jp1,1,bi,bj) )
./pkg/kpp/kpp_forcing_surf.F 329 KPP_FORCING_SURF 
        IF ( zRef(i,j) .LT. drF(1) ) THEN
./pkg/kpp/kpp_forcing_surf.F 330 KPP_FORCING_SURF 
         ustarX = ( surfForcU(i,  j,bi,bj) +
./pkg/kpp/kpp_forcing_surf.F 332 KPP_FORCING_SURF 
         ustarY = ( surfForcV(i,j,  bi,bj) +
./pkg/kpp/kpp_forcing_surf.F 333 KPP_FORCING_SURF 
     &        surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1)
./pkg/kpp/kpp_forcing_surf.F 340 KPP_FORCING_SURF 
         tempVar2 = ustar(i,j) *
./pkg/kpp/kpp_forcing_surf.F 341 KPP_FORCING_SURF 
     &        ( LOG ( zRef(i,j) / rF(2) ) +
./pkg/kpp/kpp_forcing_surf.F 342 KPP_FORCING_SURF 
     &        z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) /
./pkg/kpp/kpp_forcing_surf.F 344 KPP_FORCING_SURF 
         uRef(i,j) = uRef(i,j) + ustarX * tempVar2
./pkg/kpp/kpp_forcing_surf.F 345 KPP_FORCING_SURF 
         vRef(i,j) = vRef(i,j) + ustarY * tempVar2
./pkg/kpp/kpp_forcing_surf.F 355 KPP_FORCING_SURF 
        DO i = imin, imax
./pkg/kpp/kpp_forcing_surf.F 356 KPP_FORCING_SURF 
         im1 = i - 1
./pkg/kpp/kpp_forcing_surf.F 357 KPP_FORCING_SURF 
         ip1 = i + 1
./pkg/kpp/kpp_forcing_surf.F 358 KPP_FORCING_SURF 
         dVsq(i,j,k) = p5 * (
./pkg/kpp/kpp_forcing_surf.F 359 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 360 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 361 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 362 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(ip1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 363 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 364 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 365 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 366 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(i,  jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 368 KPP_FORCING_SURF 
         dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * (
./pkg/kpp/kpp_forcing_surf.F 369 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(i,  jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 370 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(i,  jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 371 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 372 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 373 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 374 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(i,  jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 375 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 376 KPP_FORCING_SURF 
     $        (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 377 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(im1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 378 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(im1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 379 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 380 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 381 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 382 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(ip1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 383 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 384 KPP_FORCING_SURF 
     $        (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 396 KPP_FORCING_SURF 
        DO i = imin, imax
./pkg/kpp/kpp_forcing_surf.F 397 KPP_FORCING_SURF 
         im1 = i - 1
./pkg/kpp/kpp_forcing_surf.F 398 KPP_FORCING_SURF 
         ip1 = i + 1
./pkg/kpp/kpp_forcing_surf.F 399 KPP_FORCING_SURF 
         dVsq(i,j,k) = p5 * (
./pkg/kpp/kpp_forcing_surf.F 400 KPP_FORCING_SURF 
     $        (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 401 KPP_FORCING_SURF 
     $        (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 404 KPP_FORCING_SURF 
     $        (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 405 KPP_FORCING_SURF 
     $        (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 406 KPP_FORCING_SURF 
     $        (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 407 KPP_FORCING_SURF 
     $        (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 409 KPP_FORCING_SURF 
         dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * (
./pkg/kpp/kpp_forcing_surf.F 410 KPP_FORCING_SURF 
     $        (uVel(i,  jm1,1,bi,bj)-uVel(i,  jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 411 KPP_FORCING_SURF 
     $        (uVel(i,  jm1,1,bi,bj)-uVel(i,  jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 414 KPP_FORCING_SURF 
     $        (uVel(i,  jp1,1,bi,bj)-uVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 415 KPP_FORCING_SURF 
     $        (uVel(i,  jp1,1,bi,bj)-uVel(i,  jp1,k,bi,bj)) +
./pkg/kpp/kpp_init_fixed.F 138 KPP_INIT_FIXED 
      DO i = 0, nni + 1
./pkg/kpp/kpp_init_fixed.F 139 KPP_INIT_FIXED 
         zehat = deltaz*i + zmin
./pkg/kpp/kpp_init_fixed.F 144 KPP_INIT_FIXED 
               wmt(i,j) = vonk*usta/(1. + conc1*zeta)
./pkg/kpp/kpp_init_fixed.F 145 KPP_INIT_FIXED 
               wst(i,j) = wmt(i,j)
./pkg/kpp/kpp_init_fixed.F 148 KPP_INIT_FIXED 
                  wmt(i,j) = vonk*usta*(1. - conc2*zeta)**p25
./pkg/kpp/kpp_init_fixed.F 150 KPP_INIT_FIXED 
                  wmt(i,j) = vonk*(conam*usta**3 - concm*zehat)**p33
./pkg/kpp/kpp_init_fixed.F 153 KPP_INIT_FIXED 
                  wst(i,j) = vonk*usta*SQRT(1. _d 0 - conc3*zeta)
./pkg/kpp/kpp_init_fixed.F 155 KPP_INIT_FIXED 
                  wst(i,j) = vonk*(conas*usta**3 - concs*zehat)**p33
./pkg/kpp/kpp_init_fixed.F 39 KPP_INIT_FIXED 
      INTEGER i, j, k
./pkg/kpp/kpp_init_varia.F 32 KPP_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/kpp/kpp_init_varia.F 44 KPP_INIT_VARIA 
               DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_init_varia.F 45 KPP_INIT_VARIA 
                  nzmax(i,j,bi,bj) = kLowC(I,J,bi,bj)
./pkg/kpp/kpp_init_varia.F 65 KPP_INIT_VARIA 
               DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_init_varia.F 66 KPP_INIT_VARIA 
                  KPPhbl(i,j,bi,bj) = 0.
./pkg/kpp/kpp_init_varia.F 71 KPP_INIT_VARIA 
                  DO i = 1-OLx, sNx+OLx
./pkg/kpp/kpp_init_varia.F 72 KPP_INIT_VARIA 
                     KPPghat       (i,j,k,bi,bj) = 0.
./pkg/kpp/kpp_init_varia.F 73 KPP_INIT_VARIA 
                     KPPviscAz  (i,j,k,bi,bj) = viscArNr(1)
./pkg/kpp/kpp_init_varia.F 74 KPP_INIT_VARIA 
                     KPPdiffKzS (i,j,k,bi,bj) = 0.
./pkg/kpp/kpp_init_varia.F 75 KPP_INIT_VARIA 
                     KPPdiffKzT (i,j,k,bi,bj) = 0.
./pkg/kpp/kpp_output.F 225 KPP_OUTPUT 
            DO i=1,sNx
./pkg/kpp/kpp_output.F 226 KPP_OUTPUT 
              KPPghatKStave(i,j,k,bi,bj) = KPPghatKStave(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F 227 KPP_OUTPUT 
     &          + ( KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F 229 KPP_OUTPUT 
     &             +tmpFac*Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F 231 KPP_OUTPUT 
     &            )*KPPghat(i,j,k-1,bi,bj)*DDTT
./pkg/kpp/kpp_output.F 372 KPP_OUTPUT 
            DO i=1,sNx
./pkg/kpp/kpp_output.F 373 KPP_OUTPUT 
              tmpLoc(i,j,1) = 0. _d 0
./pkg/kpp/kpp_output.F 378 KPP_OUTPUT 
            DO i=1,sNx
./pkg/kpp/kpp_output.F 379 KPP_OUTPUT 
              tmpLoc(i,j,k) = KPPghat(i,j,k-1,bi,bj)*
./pkg/kpp/kpp_output.F 380 KPP_OUTPUT 
     &                      ( KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F 382 KPP_OUTPUT 
     &                      + tmpFac*Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_output.F 86 KPP_OUTPUT 
      INTEGER i, j, k
./pkg/kpp/kpp_routines.F 1012 Z121 
      integer i, k, km1, kp1
./pkg/kpp/kpp_routines.F 1021 Z121 
      i = 0
./pkg/kpp/kpp_routines.F 1028 Z121 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1032 Z121 
         v(i,Nrp1) = v(i,Nr)
./pkg/kpp/kpp_routines.F 1035 Z121 
            KRi_range(k) = p5 + SIGN(p5,v(i,k))
./pkg/kpp/kpp_routines.F 1037 Z121 
     &                     ( p5 + SIGN(p5,(Riinfty-v(i,k))) )
./pkg/kpp/kpp_routines.F 1040 Z121 
         zwork  = KRi_range(1) * v(i,1)
./pkg/kpp/kpp_routines.F 1041 Z121 
         v(i,1) = p2 * v(i,1) +
./pkg/kpp/kpp_routines.F 1042 Z121 
     &            KRi_range(1) * KRi_range(2) * v(i,2)
./pkg/kpp/kpp_routines.F 1044 Z121 
         v(i,1) = v(i,1) / zflag
./pkg/kpp/kpp_routines.F 1050 Z121 
            zflag = v(i,k)
./pkg/kpp/kpp_routines.F 1051 Z121 
            v(i,k) = p2 * v(i,k) +
./pkg/kpp/kpp_routines.F 1052 Z121 
     &           KRi_range(k) * KRi_range(kp1) * v(i,kp1) +
./pkg/kpp/kpp_routines.F 1056 Z121 
            v(i,k) = v(i,k) / zflag
./pkg/kpp/kpp_routines.F 1094 SMOOTH_HORIZ 
      integer i, j, im1, ip1, jm1, jp1
./pkg/kpp/kpp_routines.F 1107 SMOOTH_HORIZ 
         DO i = imin, imax
./pkg/kpp/kpp_routines.F 1108 SMOOTH_HORIZ 
            im1 = i-1
./pkg/kpp/kpp_routines.F 1109 SMOOTH_HORIZ 
            ip1 = i+1
./pkg/kpp/kpp_routines.F 1111 SMOOTH_HORIZ 
     &           p25   *   maskC(i  ,j  ,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1114 SMOOTH_HORIZ 
     &                     maskC(i  ,jm1,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1115 SMOOTH_HORIZ 
     &                     maskC(i  ,jp1,k,bi,bj) ) +
./pkg/kpp/kpp_routines.F 1121 SMOOTH_HORIZ 
               fld_tmp(i,j) = (
./pkg/kpp/kpp_routines.F 1122 SMOOTH_HORIZ 
     &              p25  * fld(i  ,j  )*maskC(i  ,j  ,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1125 SMOOTH_HORIZ 
     &                     fld(i  ,jm1)*maskC(i  ,jm1,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1126 SMOOTH_HORIZ 
     &                     fld(i  ,jp1)*maskC(i  ,jp1,k,bi,bj))+
./pkg/kpp/kpp_routines.F 1133 SMOOTH_HORIZ 
               fld_tmp(i,j) = fld(i,j)
./pkg/kpp/kpp_routines.F 1140 SMOOTH_HORIZ 
         DO i = imin, imax
./pkg/kpp/kpp_routines.F 1141 SMOOTH_HORIZ 
            fld(i,j) = fld_tmp(i,j)
./pkg/kpp/kpp_routines.F 1211 BLMIX 
      integer i, kn, ki
./pkg/kpp/kpp_routines.F 1228 BLMIX 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1229 BLMIX 
         sigma(i) = stable(i) * 1.0 + (1. - stable(i)) * epsilon
./pkg/kpp/kpp_routines.F 1239 BLMIX 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1240 BLMIX 
         wm(i) = sign(eins,wm(i))*max(phepsi,abs(wm(i)))
./pkg/kpp/kpp_routines.F 1241 BLMIX 
         ws(i) = sign(eins,ws(i))*max(phepsi,abs(ws(i)))
./pkg/kpp/kpp_routines.F 1246 BLMIX 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1248 BLMIX 
         kn = int(caseA(i)+phepsi) *(kbl(i) -1) +
./pkg/kpp/kpp_routines.F 1249 BLMIX 
     $        (1 - int(caseA(i)+phepsi)) * kbl(i)
./pkg/kpp/kpp_routines.F 1255 BLMIX 
         delhat = 0.5*hwide(kn) - zgrid(kn) - hbl(i)
./pkg/kpp/kpp_routines.F 1257 BLMIX 
         dvdzup = (diffus(i,kn-1,1) - diffus(i,kn  ,1)) / hwide(kn)
./pkg/kpp/kpp_routines.F 1258 BLMIX 
         dvdzdn = (diffus(i,kn  ,1) - diffus(i,kn+1,1)) / hwide(kn+1)
./pkg/kpp/kpp_routines.F 1262 BLMIX 
         dvdzup = (diffus(i,kn-1,2) - diffus(i,kn  ,2)) / hwide(kn)
./pkg/kpp/kpp_routines.F 1263 BLMIX 
         dvdzdn = (diffus(i,kn  ,2) - diffus(i,kn+1,2)) / hwide(kn+1)
./pkg/kpp/kpp_routines.F 1267 BLMIX 
         dvdzup = (diffus(i,kn-1,3) - diffus(i,kn  ,3)) / hwide(kn)
./pkg/kpp/kpp_routines.F 1268 BLMIX 
         dvdzdn = (diffus(i,kn  ,3) - diffus(i,kn+1,3)) / hwide(kn+1)
./pkg/kpp/kpp_routines.F 1272 BLMIX 
         visch  = diffus(i,kn,1) + viscp * delhat
./pkg/kpp/kpp_routines.F 1273 BLMIX 
         difsh  = diffus(i,kn,2) + difsp * delhat
./pkg/kpp/kpp_routines.F 1274 BLMIX 
         difth  = diffus(i,kn,3) + diftp * delhat
./pkg/kpp/kpp_routines.F 1276 BLMIX 
         f1 = stable(i) * conc1 * bfsfc(i) /
./pkg/kpp/kpp_routines.F 1277 BLMIX 
     &        max(ustar(i)**4,phepsi)
./pkg/kpp/kpp_routines.F 1278 BLMIX 
         gat1m(i) = visch / hbl(i) / wm(i)
./pkg/kpp/kpp_routines.F 1279 BLMIX 
         dat1m(i) = -viscp / wm(i) + f1 * visch
./pkg/kpp/kpp_routines.F 1281 BLMIX 
         gat1s(i) = difsh  / hbl(i) / ws(i)
./pkg/kpp/kpp_routines.F 1282 BLMIX 
         dat1s(i) = -difsp / ws(i) + f1 * difsh
./pkg/kpp/kpp_routines.F 1284 BLMIX 
         gat1t(i) = difth /  hbl(i) / ws(i)
./pkg/kpp/kpp_routines.F 1285 BLMIX 
         dat1t(i) = -diftp / ws(i) + f1 * difth
./pkg/kpp/kpp_routines.F 1296 BLMIX 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1297 BLMIX 
         dat1m(i) = min(dat1m(i),p0)
./pkg/kpp/kpp_routines.F 1298 BLMIX 
         dat1s(i) = min(dat1s(i),p0)
./pkg/kpp/kpp_routines.F 1299 BLMIX 
         dat1t(i) = min(dat1t(i),p0)
./pkg/kpp/kpp_routines.F 1317 BLMIX 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 1318 BLMIX 
            sig      = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i)
./pkg/kpp/kpp_routines.F 1319 BLMIX 
            sigma(i) = stable(i)*sig + (1.-stable(i))*min(sig,epsilon)
./pkg/kpp/kpp_routines.F 1336 BLMIX 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 1337 BLMIX 
            sig = (-zgrid(ki) + 0.5 * hwide(ki)) / hbl(i)
./pkg/kpp/kpp_routines.F 1342 BLMIX 
            Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i)
./pkg/kpp/kpp_routines.F 1343 BLMIX 
            Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i)
./pkg/kpp/kpp_routines.F 1344 BLMIX 
            Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i)
./pkg/kpp/kpp_routines.F 1350 BLMIX 
            blmc(i,ki,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm)
./pkg/kpp/kpp_routines.F 1351 BLMIX 
            blmc(i,ki,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs)
./pkg/kpp/kpp_routines.F 1352 BLMIX 
            blmc(i,ki,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt)
./pkg/kpp/kpp_routines.F 1358 BLMIX 
            tempVar = ws(i) * hbl(i)
./pkg/kpp/kpp_routines.F 1359 BLMIX 
            ghat(i,ki) = (1.-stable(i)) * cg / max(phepsi,tempVar)
./pkg/kpp/kpp_routines.F 1368 BLMIX 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1369 BLMIX 
         sig      = -zgrid(kbl(i)-1) / hbl(i)
./pkg/kpp/kpp_routines.F 1370 BLMIX 
         sigma(i) = stable(i) * sig
./pkg/kpp/kpp_routines.F 1371 BLMIX 
     &            + (1. - stable(i)) * min(sig,epsilon)
./pkg/kpp/kpp_routines.F 1385 BLMIX 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1386 BLMIX 
         sig = -zgrid(kbl(i)-1) / hbl(i)
./pkg/kpp/kpp_routines.F 1390 BLMIX 
         Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i)
./pkg/kpp/kpp_routines.F 1391 BLMIX 
         Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i)
./pkg/kpp/kpp_routines.F 1392 BLMIX 
         Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i)
./pkg/kpp/kpp_routines.F 1393 BLMIX 
         dkm1(i,1) = hbl(i) * wm(i) * sig * (1. + sig * Gm)
./pkg/kpp/kpp_routines.F 1394 BLMIX 
         dkm1(i,2) = hbl(i) * ws(i) * sig * (1. + sig * Gs)
./pkg/kpp/kpp_routines.F 1395 BLMIX 
         dkm1(i,3) = hbl(i) * ws(i) * sig * (1. + sig * Gt)
./pkg/kpp/kpp_routines.F 140 KPPMIX 
      integer i, k, md
./pkg/kpp/kpp_routines.F 1445 ENHANCE 
      integer ki, i, md
./pkg/kpp/kpp_routines.F 1448 ENHANCE 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 1449 ENHANCE 
         ki = kbl(i)-1
./pkg/kpp/kpp_routines.F 1451 ENHANCE 
            delta = (hbl(i) + zgrid(ki)) / (zgrid(ki) - zgrid(ki+1))
./pkg/kpp/kpp_routines.F 1453 ENHANCE 
               dkmp5         =      casea(i)  * diffus(i,ki,md) +
./pkg/kpp/kpp_routines.F 1454 ENHANCE 
     1                         (1.- casea(i)) * blmc  (i,ki,md)
./pkg/kpp/kpp_routines.F 1455 ENHANCE 
               dstar         = (1.- delta)**2 * dkm1(i,md)
./pkg/kpp/kpp_routines.F 1457 ENHANCE 
               blmc(i,ki,md) = (1.- delta)*diffus(i,ki,md)
./pkg/kpp/kpp_routines.F 1460 ENHANCE 
            ghat(i,ki) = (1.- casea(i)) * ghat(i,ki)
./pkg/kpp/kpp_routines.F 176 KPPMIX 
         do i = 1,imt
./pkg/kpp/kpp_routines.F 177 KPPMIX 
             if(k.ge.kmtj(i))  diffus(i,k,md) = 0.0
./pkg/kpp/kpp_routines.F 239 KPPMIX 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 240 KPPMIX 
            if (k .lt. kbl(i)) then
./pkg/kpp/kpp_routines.F 244 KPPMIX 
               blmc(i,k,1) = max ( blmc(i,k,1)*msk(i),
./pkg/kpp/kpp_routines.F 245 KPPMIX 
     &              diffus(i,k,1) )
./pkg/kpp/kpp_routines.F 246 KPPMIX 
               blmc(i,k,2) = max ( blmc(i,k,2)*msk(i),
./pkg/kpp/kpp_routines.F 247 KPPMIX 
     &              diffus(i,k,2) )
./pkg/kpp/kpp_routines.F 248 KPPMIX 
               blmc(i,k,3) = max ( blmc(i,k,3)*msk(i),
./pkg/kpp/kpp_routines.F 249 KPPMIX 
     &              diffus(i,k,3) )
./pkg/kpp/kpp_routines.F 251 KPPMIX 
               diffus(i,k,1) = max ( blmc(i,k,1), viscArNr(1) )
./pkg/kpp/kpp_routines.F 252 KPPMIX 
               diffus(i,k,2) = max ( blmc(i,k,2), diffusKzS(i,Nr) )
./pkg/kpp/kpp_routines.F 253 KPPMIX 
               diffus(i,k,3) = max ( blmc(i,k,3), diffusKzT(i,Nr) )
./pkg/kpp/kpp_routines.F 255 KPPMIX 
               ghat(i,k) = 0. _d 0
./pkg/kpp/kpp_routines.F 369 BLDEPTH 
      integer i, kl
./pkg/kpp/kpp_routines.F 396 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 397 BLDEPTH 
         Rib(i,1) = 0. _d 0
./pkg/kpp/kpp_routines.F 398 BLDEPTH 
         kbl(i) = max(kmtj(i),1)
./pkg/kpp/kpp_routines.F 399 BLDEPTH 
         hbl(i) = -zgrid(kbl(i))
./pkg/kpp/kpp_routines.F 404 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 405 BLDEPTH 
            KPPBFSFC(i,kl) = 0. _d 0
./pkg/kpp/kpp_routines.F 406 BLDEPTH 
            KPPRi(i,kl) = 0. _d 0
./pkg/kpp/kpp_routines.F 419 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 420 BLDEPTH 
            worka(i) = zgrid(kl)
./pkg/kpp/kpp_routines.F 429 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 433 BLDEPTH 
            casea(i) = -zgrid(kl)
./pkg/kpp/kpp_routines.F 437 BLDEPTH 
            bfsfc(i) = bo(i) + bosol(i)*(1. - worka(i))
./pkg/kpp/kpp_routines.F 443 BLDEPTH 
           do i = 1, imt
./pkg/kpp/kpp_routines.F 444 BLDEPTH 
              worka(i) = zgrid(kl)
./pkg/kpp/kpp_routines.F 450 BLDEPTH 
           do i = 1, imt
./pkg/kpp/kpp_routines.F 451 BLDEPTH 
              bfsfc(i) = bfsfc(i) + boplume(i)*(1. - worka(i))
./pkg/kpp/kpp_routines.F 457 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 458 BLDEPTH 
            KPPBFSFC(i,kl) = bfsfc(i)
./pkg/kpp/kpp_routines.F 462 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 463 BLDEPTH 
            stable(i) = p5 + sign(p5,bfsfc(i))
./pkg/kpp/kpp_routines.F 464 BLDEPTH 
            sigma(i) = stable(i) + (1. - stable(i)) * epsilon
./pkg/kpp/kpp_routines.F 476 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 483 BLDEPTH 
     1           ( dbloc(i,kl-1) / (zgrid(kl-1)-zgrid(kl  ))+
./pkg/kpp/kpp_routines.F 484 BLDEPTH 
     2             dbloc(i,kl  ) / (zgrid(kl  )-zgrid(kl+1)))
./pkg/kpp/kpp_routines.F 489 BLDEPTH 
              vtsq = -zgrid(kl) * ws(i) * sqrt(abs(bvsq)) * Vtc
./pkg/kpp/kpp_routines.F 504 BLDEPTH 
            tempVar1  = dvsq(i,kl) + vtsq
./pkg/kpp/kpp_routines.F 506 BLDEPTH 
            Rib(i,kl) = Ritop(i,kl) / tempVar2
./pkg/kpp/kpp_routines.F 508 BLDEPTH 
            KPPRi(i,kl) = Rib(i,kl)
./pkg/kpp/kpp_routines.F 528 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 529 BLDEPTH 
            if (kbl(i).eq.kmtj(i) .and. Rib(i,kl).gt.Ricr) kbl(i) = kl
./pkg/kpp/kpp_routines.F 537 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 538 BLDEPTH 
         kl = kbl(i)
./pkg/kpp/kpp_routines.F 540 BLDEPTH 
         if (kl.gt.1 .and. kl.lt.kmtj(i)) then
./pkg/kpp/kpp_routines.F 541 BLDEPTH 
            tempVar1 = (Rib(i,kl)-Rib(i,kl-1))
./pkg/kpp/kpp_routines.F 542 BLDEPTH 
            hbl(i) = -zgrid(kl-1) + (zgrid(kl-1)-zgrid(kl)) *
./pkg/kpp/kpp_routines.F 543 BLDEPTH 
     1           (Ricr - Rib(i,kl-1)) / tempVar1
./pkg/kpp/kpp_routines.F 555 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 556 BLDEPTH 
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 569 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 570 BLDEPTH 
         bfsfc(i)  = bo(i) + bosol(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 575 BLDEPTH 
        do i = 1, imt
./pkg/kpp/kpp_routines.F 576 BLDEPTH 
           worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 582 BLDEPTH 
        do i = 1, imt
./pkg/kpp/kpp_routines.F 583 BLDEPTH 
           bfsfc(i) = bfsfc(i) + boplume(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 592 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 593 BLDEPTH 
         stable(i) = p5 + sign( p5, bfsfc(i) )
./pkg/kpp/kpp_routines.F 594 BLDEPTH 
         bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i)))
./pkg/kpp/kpp_routines.F 610 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 611 BLDEPTH 
         if (bfsfc(i) .gt. 0.0) then
./pkg/kpp/kpp_routines.F 612 BLDEPTH 
            hekman = cekman * ustar(i) / max(abs(Coriol(i)),phepsi)
./pkg/kpp/kpp_routines.F 613 BLDEPTH 
            hmonob = cmonob * ustar(i)*ustar(i)*ustar(i)
./pkg/kpp/kpp_routines.F 614 BLDEPTH 
     &           / vonk / bfsfc(i)
./pkg/kpp/kpp_routines.F 615 BLDEPTH 
            hlimit = stable(i) * min(hekman,hmonob)
./pkg/kpp/kpp_routines.F 616 BLDEPTH 
     &             + (stable(i)-1.) * zgrid(Nr)
./pkg/kpp/kpp_routines.F 617 BLDEPTH 
            hbl(i) = min(hbl(i),hlimit)
./pkg/kpp/kpp_routines.F 626 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 627 BLDEPTH 
         hbl(i) = max(hbl(i),minKPPhbl)
./pkg/kpp/kpp_routines.F 628 BLDEPTH 
         kbl(i) = kmtj(i)
./pkg/kpp/kpp_routines.F 640 BLDEPTH 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 641 BLDEPTH 
            if ( kbl(i).eq.kmtj(i) .and. (-zgrid(kl)).gt.hbl(i) ) then
./pkg/kpp/kpp_routines.F 642 BLDEPTH 
               kbl(i) = kl
./pkg/kpp/kpp_routines.F 651 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 652 BLDEPTH 
         worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 665 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 666 BLDEPTH 
         bfsfc(i) = bo(i) + bosol(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 671 BLDEPTH 
        do i = 1, imt
./pkg/kpp/kpp_routines.F 672 BLDEPTH 
           worka(i) = hbl(i)
./pkg/kpp/kpp_routines.F 678 BLDEPTH 
        do i = 1, imt
./pkg/kpp/kpp_routines.F 679 BLDEPTH 
           bfsfc(i) = bfsfc(i) + boplume(i) * (1. - worka(i))
./pkg/kpp/kpp_routines.F 688 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 689 BLDEPTH 
         stable(i) = p5 + sign( p5, bfsfc(i) )
./pkg/kpp/kpp_routines.F 690 BLDEPTH 
         bfsfc(i) = sign(eins,bfsfc(i))*max(phepsi,abs(bfsfc(i)))
./pkg/kpp/kpp_routines.F 697 BLDEPTH 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 698 BLDEPTH 
         casea(i) = p5 +
./pkg/kpp/kpp_routines.F 699 BLDEPTH 
     1        sign(p5, -zgrid(kbl(i)) - p5*hwide(kbl(i)) - hbl(i))
./pkg/kpp/kpp_routines.F 752 WSCALE 
      integer iz, izp1, ju, i, jup1
./pkg/kpp/kpp_routines.F 761 WSCALE 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 762 WSCALE 
         zehat = vonk*sigma(i)*hbl(i)*bfsfc(i)
./pkg/kpp/kpp_routines.F 772 WSCALE 
            udiff = ustar(i) - umin
./pkg/kpp/kpp_routines.F 784 WSCALE 
            wm(i) = (1.-ufrac) * wbm          + ufrac * wam
./pkg/kpp/kpp_routines.F 788 WSCALE 
            ws(i) = (1.-ufrac) * wbs          + ufrac * was
./pkg/kpp/kpp_routines.F 792 WSCALE 
            u3 = ustar(i) * ustar(i) * ustar(i)
./pkg/kpp/kpp_routines.F 794 WSCALE 
            wm(i) = vonk * ustar(i) * u3 / tempVar
./pkg/kpp/kpp_routines.F 795 WSCALE 
            ws(i) = wm(i)
./pkg/kpp/kpp_routines.F 861 RI_IWMIX 
      integer i, ki, kp1
./pkg/kpp/kpp_routines.F 883 RI_IWMIX 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 884 RI_IWMIX 
            diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 885 RI_IWMIX 
            diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 886 RI_IWMIX 
            diffus(i,ki,3) = 0.
./pkg/kpp/kpp_routines.F 893 RI_IWMIX 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 894 RI_IWMIX 
            if     (kmtj(i) .LE. 1      ) then
./pkg/kpp/kpp_routines.F 895 RI_IWMIX 
               diffus(i,ki,1) = 0.
./pkg/kpp/kpp_routines.F 896 RI_IWMIX 
               diffus(i,ki,2) = 0.
./pkg/kpp/kpp_routines.F 897 RI_IWMIX 
            elseif (ki      .GE. kmtj(i)) then
./pkg/kpp/kpp_routines.F 898 RI_IWMIX 
               diffus(i,ki,1) = diffus(i,ki-1,1)
./pkg/kpp/kpp_routines.F 899 RI_IWMIX 
               diffus(i,ki,2) = diffus(i,ki-1,2)
./pkg/kpp/kpp_routines.F 901 RI_IWMIX 
               diffus(i,ki,1) = dblocSm(i,ki) * (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 902 RI_IWMIX 
     &              / max( Shsq(i,ki), phepsi )
./pkg/kpp/kpp_routines.F 903 RI_IWMIX 
               diffus(i,ki,2) = dbloc(i,ki)   / (zgrid(ki)-zgrid(ki+1))
./pkg/kpp/kpp_routines.F 927 RI_IWMIX 
         do i = 1, imt
./pkg/kpp/kpp_routines.F 931 RI_IWMIX 
            Rig   = max ( diffus(i,ki,2) , BVSQcon )
./pkg/kpp/kpp_routines.F 938 RI_IWMIX 
            Rig  = max ( diffus(i,ki,1), c0 )
./pkg/kpp/kpp_routines.F 950 RI_IWMIX 
               diffus(i,ki,1) = viscArNr(1) + fcon*difmcon + fRi*difm0
./pkg/kpp/kpp_routines.F 951 RI_IWMIX 
               diffus(i,ki,2) = diffusKzS(i,kp1)+fcon*difscon+fRi*difs0
./pkg/kpp/kpp_routines.F 952 RI_IWMIX 
               diffus(i,ki,3) = diffusKzT(i,kp1)+fcon*diftcon+fRi*dift0
./pkg/kpp/kpp_routines.F 954 RI_IWMIX 
               diffus(i,ki,1) = viscArnr(1)
./pkg/kpp/kpp_routines.F 955 RI_IWMIX 
               diffus(i,ki,2) = diffusKzS(i,kp1)
./pkg/kpp/kpp_routines.F 956 RI_IWMIX 
               diffus(i,ki,3) = diffusKzT(i,kp1)
./pkg/kpp/kpp_routines.F 959 RI_IWMIX 
            diffus(i,ki,1) = viscArNr(1)
./pkg/kpp/kpp_routines.F 960 RI_IWMIX 
            diffus(i,ki,2) = diffusKzS(i,kp1)
./pkg/kpp/kpp_routines.F 961 RI_IWMIX 
            diffus(i,ki,3) = diffusKzT(i,kp1)
./pkg/kpp/kpp_routines.F 970 RI_IWMIX 
      do i = 1, imt
./pkg/kpp/kpp_routines.F 971 RI_IWMIX 
         diffus(i,0,1) = c0
./pkg/kpp/kpp_routines.F 972 RI_IWMIX 
         diffus(i,0,2) = c0
./pkg/kpp/kpp_routines.F 973 RI_IWMIX 
         diffus(i,0,3) = c0
./pkg/kpp/kpp_transport_ptr.F 100 KPP_TRANSPORT_PTR 
     &         + tmpFac*LS_Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 102 KPP_TRANSPORT_PTR 
     &         )*LS_KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 104 KPP_TRANSPORT_PTR 
     &        *( KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 106 KPP_TRANSPORT_PTR 
     &         + tmpFac*Kwz(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 108 KPP_TRANSPORT_PTR 
     &         )*KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 110 KPP_TRANSPORT_PTR 
     &        *surfaceForcingPTr(i,j,bi,bj,tracerIdentity)
./pkg/kpp/kpp_transport_ptr.F 70 KPP_TRANSPORT_PTR 
      INTEGER i, j
./pkg/kpp/kpp_transport_ptr.F 80 KPP_TRANSPORT_PTR 
         DO i=iMin,iMax
./pkg/kpp/kpp_transport_ptr.F 81 KPP_TRANSPORT_PTR 
          df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 82 KPP_TRANSPORT_PTR 
     &        *KPPghat(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 83 KPP_TRANSPORT_PTR 
     &        *surfaceForcingPTr(i,j,bi,bj,tracerIdentity)
./pkg/kpp/kpp_transport_ptr.F 95 KPP_TRANSPORT_PTR 
         DO i=iMin,iMax
./pkg/kpp/kpp_transport_ptr.F 96 KPP_TRANSPORT_PTR 
          df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_ptr.F 98 KPP_TRANSPORT_PTR 
     &        *( LS_KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_s.F 102 KPP_TRANSPORT_S 
       DO i=iMin,iMax
./pkg/kpp/kpp_transport_s.F 103 KPP_TRANSPORT_S 
        df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 104 KPP_TRANSPORT_S 
     &        *KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_s.F 105 KPP_TRANSPORT_S 
     &        *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_s.F 106 KPP_TRANSPORT_S 
     &        *( surfaceForcingS(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 108 KPP_TRANSPORT_S 
     &          + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst
./pkg/kpp/kpp_transport_s.F 109 KPP_TRANSPORT_S 
     &          *(1.-KPPplumefrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_s.F 86 KPP_TRANSPORT_S 
       DO i=iMin,iMax
./pkg/kpp/kpp_transport_s.F 87 KPP_TRANSPORT_S 
        df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 88 KPP_TRANSPORT_S 
     &        *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) )
./pkg/kpp/kpp_transport_s.F 89 KPP_TRANSPORT_S 
     &        *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_s.F 90 KPP_TRANSPORT_S 
     &        *( surfaceForcingS(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 92 KPP_TRANSPORT_S 
     &          + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst
./pkg/kpp/kpp_transport_s.F 93 KPP_TRANSPORT_S 
     &          *(1.-KPPplumefrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_t.F 76 KPP_TRANSPORT_T 
         DO i=iMin,iMax
./pkg/kpp/kpp_transport_t.F 77 KPP_TRANSPORT_T 
            df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 78 KPP_TRANSPORT_T 
     &          *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) )
./pkg/kpp/kpp_transport_t.F 79 KPP_TRANSPORT_T 
     &          *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_t.F 80 KPP_TRANSPORT_T 
     &          *( surfaceForcingT(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 81 KPP_TRANSPORT_T 
     &            +surfaceForcingTice(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 82 KPP_TRANSPORT_T 
     &            -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst
./pkg/kpp/kpp_transport_t.F 83 KPP_TRANSPORT_T 
     &            *(1.-KPPfrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_t.F 91 KPP_TRANSPORT_T 
         DO i=iMin,iMax
./pkg/kpp/kpp_transport_t.F 92 KPP_TRANSPORT_T 
            df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 93 KPP_TRANSPORT_T 
     &          *KPPdiffKzT(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_t.F 94 KPP_TRANSPORT_T 
     &          *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_t.F 95 KPP_TRANSPORT_T 
     &          *( surfaceForcingT(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 96 KPP_TRANSPORT_T 
     &            +surfaceForcingTice(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 97 KPP_TRANSPORT_T 
     &            -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst
./pkg/kpp/kpp_transport_t.F 98 KPP_TRANSPORT_T 
     &            *(1.-KPPfrac(i,j,bi,bj))
./pkg/land/land_albedo.F 55 LAND_ALBEDO 
      INTEGER i,j
./pkg/land/land_albedo.F 62 LAND_ALBEDO 
         DO i=1,sNx
./pkg/land/land_albedo.F 63 LAND_ALBEDO 
          alb_land(i,j) = grnd_alb(i,j,bi,bj)
./pkg/land/land_albedo.F 64 LAND_ALBEDO 
          IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_albedo.F 65 LAND_ALBEDO 
           Tsf = land_skinT(i,j,bi,bj)
./pkg/land/land_albedo.F 67 LAND_ALBEDO 
           ageSnow = land_snowAge(i,j,bi,bj)/86400. _d 0
./pkg/land/land_albedo.F 68 LAND_ALBEDO 
           hSnow = land_hSnow(i,j,bi,bj)
./pkg/land/land_albedo.F 86 LAND_ALBEDO 
           alb_land(i,j) = albSnow
./pkg/land/land_albedo.F 87 LAND_ALBEDO 
     &       +(alb_land(i,j)-albSnow)*exp(-hSnow/hAlbSnow)
./pkg/land/land_impl_temp.F 130 LAND_IMPL_TEMP 
       DO i=1,sNx
./pkg/land/land_impl_temp.F 131 LAND_IMPL_TEMP 
        IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_impl_temp.F 135 LAND_IMPL_TEMP 
          tSurf = land_skinT(i,j,bi,bj)
./pkg/land/land_impl_temp.F 136 LAND_IMPL_TEMP 
          mSnow = land_rhoSnow*land_hSnow(i,j,bi,bj)
./pkg/land/land_impl_temp.F 137 LAND_IMPL_TEMP 
          bLoc  = -sFlx(i,j,2)
./pkg/land/land_impl_temp.F 138 LAND_IMPL_TEMP 
          fLoc  = sFlx(i,j,1)+bLoc*tSurf
./pkg/land/land_impl_temp.F 139 LAND_IMPL_TEMP 
          alpha = land_hSnow(i,j,bi,bj)/diffKsnow
./pkg/land/land_impl_temp.F 142 LAND_IMPL_TEMP 
            eg(k) = land_dzF(k)*land_enthalp(i,j,k,bi,bj)
./pkg/land/land_impl_temp.F 143 LAND_IMPL_TEMP 
            mW(k) = land_dzF(k)*land_groundW(i,j,k,bi,bj)
./pkg/land/land_impl_temp.F 147 LAND_IMPL_TEMP 
            tg(k) = land_groundT(i,j,k,bi,bj)
./pkg/land/land_impl_temp.F 150 LAND_IMPL_TEMP 
          dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_impl_temp.F 154 LAND_IMPL_TEMP 
     &         'LAND_IMPL_TEMP: 0 , sFlx=', 0,(sFlx(i,j,k),k=0,2)
./pkg/land/land_impl_temp.F 176 LAND_IMPL_TEMP 
          IF ( tg(2)*land_groundT(i,j,2,bi,bj) .LE. 0. _d 0
./pkg/land/land_impl_temp.F 196 LAND_IMPL_TEMP 
     &             i,j,bi,bj,myIter
./pkg/land/land_impl_temp.F 201 LAND_IMPL_TEMP 
     &             land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj),
./pkg/land/land_impl_temp.F 222 LAND_IMPL_TEMP 
          IF ( tg(1)*land_groundT(i,j,1,bi,bj) .LE. 0. _d 0
./pkg/land/land_impl_temp.F 236 LAND_IMPL_TEMP 
              land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT
./pkg/land/land_impl_temp.F 237 LAND_IMPL_TEMP 
              land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow
./pkg/land/land_impl_temp.F 249 LAND_IMPL_TEMP 
     &             i,j,bi,bj,myIter
./pkg/land/land_impl_temp.F 254 LAND_IMPL_TEMP 
     &             land_groundT(i,j,1,bi,bj),land_groundT(i,j,2,bi,bj),
./pkg/land/land_impl_temp.F 284 LAND_IMPL_TEMP 
     &         1, sFlx(i,j,0), fLoc, fLoc-bLoc*tSurf
./pkg/land/land_impl_temp.F 287 LAND_IMPL_TEMP 
           fLoc = sFlx(i,j,0)
./pkg/land/land_impl_temp.F 288 LAND_IMPL_TEMP 
           dTsurf(i,j) = 1000.
./pkg/land/land_impl_temp.F 289 LAND_IMPL_TEMP 
           tg(1) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_impl_temp.F 290 LAND_IMPL_TEMP 
           tg(2) = land_groundT(i,j,2,bi,bj)
./pkg/land/land_impl_temp.F 306 LAND_IMPL_TEMP 
            IF ( tg(2)*land_groundT(i,j,2,bi,bj).LE.0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 309 LAND_IMPL_TEMP 
            ELSEIF ( tg(1)*land_groundT(i,j,1,bi,bj).LE.0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 327 LAND_IMPL_TEMP 
           land_Pr_m_Ev(i,j,bi,bj) = dMsn/delT
./pkg/land/land_impl_temp.F 328 LAND_IMPL_TEMP 
           land_hSnow(i,j,bi,bj) = (mSnow - dMsn)/land_rhoSnow
./pkg/land/land_impl_temp.F 342 LAND_IMPL_TEMP 
          IF ( dTsurf(i,j) .LE. 999. )
./pkg/land/land_impl_temp.F 343 LAND_IMPL_TEMP 
     &         dTsurf(i,j) = tSurf - land_skinT(i,j,bi,bj)
./pkg/land/land_impl_temp.F 344 LAND_IMPL_TEMP 
          land_skinT(i,j,bi,bj) = tSurf
./pkg/land/land_impl_temp.F 346 LAND_IMPL_TEMP 
            land_enthalp(i,j,k,bi,bj) = eg(k)/land_dzF(k)
./pkg/land/land_impl_temp.F 347 LAND_IMPL_TEMP 
            land_groundT(i,j,k,bi,bj) = tg(k)
./pkg/land/land_impl_temp.F 352 LAND_IMPL_TEMP 
     &         tSurf, tg, dTsurf(i,j)
./pkg/land/land_impl_temp.F 354 LAND_IMPL_TEMP 
     &       (land_enthalp(i,j,k,bi,bj),k=1,2), land_Pr_m_Ev(i,j,bi,bj)
./pkg/land/land_impl_temp.F 87 LAND_IMPL_TEMP 
      INTEGER i,j,k
./pkg/land/land_ini_vars.F 135 LAND_INI_VARS 
          DO i=1,sNx
./pkg/land/land_ini_vars.F 139 LAND_INI_VARS 
     &               *land_groundW(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F 141 LAND_INI_VARS 
             land_enthalp(i,j,k,bi,bj) =
./pkg/land/land_ini_vars.F 142 LAND_INI_VARS 
     &                     grd_HeatCp*land_groundT(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F 143 LAND_INI_VARS 
             IF (land_groundT(i,j,k,bi,bj).LT. 0. _d 0)
./pkg/land/land_ini_vars.F 144 LAND_INI_VARS 
     &       land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F 147 LAND_INI_VARS 
             land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_ini_vars.F 153 LAND_INI_VARS 
          DO i=1,sNx
./pkg/land/land_ini_vars.F 156 LAND_INI_VARS 
     &               *land_groundW(i,j,k,bi,bj)
./pkg/land/land_ini_vars.F 159 LAND_INI_VARS 
             temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater)
./pkg/land/land_ini_vars.F 162 LAND_INI_VARS 
             temp_af =  land_enthalp(i,j,k,bi,bj) / grd_HeatCp
./pkg/land/land_ini_vars.F 163 LAND_INI_VARS 
             land_groundT(i,j,k,bi,bj) =
./pkg/land/land_ini_vars.F 49 LAND_INI_VARS 
      INTEGER i,j,k,bi,bj
./pkg/land/land_ini_vars.F 65 LAND_INI_VARS 
           land_groundT(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 66 LAND_INI_VARS 
           land_enthalp(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 67 LAND_INI_VARS 
           land_groundW(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 75 LAND_INI_VARS 
           land_skinT  (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 76 LAND_INI_VARS 
           land_hSnow  (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 77 LAND_INI_VARS 
           land_snowAge(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 78 LAND_INI_VARS 
           land_runOff (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 79 LAND_INI_VARS 
           land_enRnOf (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 80 LAND_INI_VARS 
           land_HeatFLx(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 81 LAND_INI_VARS 
           land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 82 LAND_INI_VARS 
           land_EnWFlux(i,j,bi,bj) = 0. _d 0
./pkg/land/land_mnc_init.F 123 LAND_MNC_INIT 
                DO i = 1,CW_MAX_LOC
./pkg/land/land_mnc_init.F 124 LAND_MNC_INIT 
                  dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/land/land_mnc_init.F 125 LAND_MNC_INIT 
                  dim(i) = 0
./pkg/land/land_mnc_init.F 126 LAND_MNC_INIT 
                  ib(i) = 0
./pkg/land/land_mnc_init.F 127 LAND_MNC_INIT 
                  ie(i) = 0
./pkg/land/land_mnc_init.F 57 LAND_MNC_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./pkg/land/land_stepfwd.F 104 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 105 LAND_STEPFWD 
           flxkup(i,j) = flxkdw(i,j)
./pkg/land/land_stepfwd.F 111 LAND_STEPFWD 
        DO i=1,sNx
./pkg/land/land_stepfwd.F 112 LAND_STEPFWD 
         IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F 114 LAND_STEPFWD 
          flxkdw(i,j) = land_grdLambda*
./pkg/land/land_stepfwd.F 115 LAND_STEPFWD 
     &             ( land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 116 LAND_STEPFWD 
     &              -land_groundT(i,j,kp1,bi,bj) )
./pkg/land/land_stepfwd.F 120 LAND_STEPFWD 
          land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 121 LAND_STEPFWD 
     &       + land_deltaT * (flxkup(i,j)-flxkdw(i,j))/land_dzF(k)
./pkg/land/land_stepfwd.F 136 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 137 LAND_STEPFWD 
           land_runOff(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 138 LAND_STEPFWD 
           land_enRnOf(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 151 LAND_STEPFWD 
          DO i=1,sNx
./pkg/land/land_stepfwd.F 152 LAND_STEPFWD 
           IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F 154 LAND_STEPFWD 
     &              *land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 157 LAND_STEPFWD 
            temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater)
./pkg/land/land_stepfwd.F 159 LAND_STEPFWD 
            temp_af =  land_enthalp(i,j,k,bi,bj) / grd_HeatCp
./pkg/land/land_stepfwd.F 160 LAND_STEPFWD 
            land_groundT(i,j,k,bi,bj) =
./pkg/land/land_stepfwd.F 163 LAND_STEPFWD 
            dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_stepfwd.F 166 LAND_STEPFWD 
     &       k,land_groundT(i,j,k,bi,bj),temp_af,temp_bf
./pkg/land/land_stepfwd.F 178 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 179 LAND_STEPFWD 
          IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F 180 LAND_STEPFWD 
           mPmE  = land_Pr_m_Ev(i,j,bi,bj)
./pkg/land/land_stepfwd.F 181 LAND_STEPFWD 
           enWfx = land_EnWFlux(i,j,bi,bj)
./pkg/land/land_stepfwd.F 182 LAND_STEPFWD 
           enGr1 = land_enthalp(i,j,1,bi,bj)*land_dzF(1)
./pkg/land/land_stepfwd.F 184 LAND_STEPFWD 
           dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_stepfwd.F 187 LAND_STEPFWD 
     &       mPmE,enWfx,enGr1/land_deltaT,land_hSnow(i,j,bi,bj)
./pkg/land/land_stepfwd.F 190 LAND_STEPFWD 
           land_snowAge(i,j,bi,bj) =
./pkg/land/land_stepfwd.F 191 LAND_STEPFWD 
     &         ( land_deltaT + land_snowAge(i,j,bi,bj)*ageFac )
./pkg/land/land_stepfwd.F 200 LAND_STEPFWD 
            flxEngU(i,j) = enWfx + land_Lfreez*snowPrec
./pkg/land/land_stepfwd.F 203 LAND_STEPFWD 
            land_snowAge(i,j,bi,bj) = land_snowAge(i,j,bi,bj)
./pkg/land/land_stepfwd.F 209 LAND_STEPFWD 
     &                      land_hMaxSnow - land_hSnow(i,j,bi,bj) )
./pkg/land/land_stepfwd.F 211 LAND_STEPFWD 
            land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj) + dhSnow
./pkg/land/land_stepfwd.F 213 LAND_STEPFWD 
            land_runOff(i,j,bi,bj) =  mIceDt
./pkg/land/land_stepfwd.F 214 LAND_STEPFWD 
            land_enRnOf(i,j,bi,bj) = -mIceDt*land_Lfreez
./pkg/land/land_stepfwd.F 218 LAND_STEPFWD 
     &         3,snowPrec,mPmE,hNewSnow,land_hSnow(i,j,bi,bj)
./pkg/land/land_stepfwd.F 225 LAND_STEPFWD 
            mSnow = land_hSnow(i,j,bi,bj)*land_rhoSnow
./pkg/land/land_stepfwd.F 229 LAND_STEPFWD 
              land_hSnow(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 230 LAND_STEPFWD 
              flxEngU(i,j) = enWfx - land_Lfreez*mSnow/land_deltaT
./pkg/land/land_stepfwd.F 232 LAND_STEPFWD 
              flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 233 LAND_STEPFWD 
              land_hSnow(i,j,bi,bj) = land_hSnow(i,j,bi,bj)
./pkg/land/land_stepfwd.F 241 LAND_STEPFWD 
     &         4,dMsn,mPmE,land_hSnow(i,j,bi,bj),flxEngU(i,j)
./pkg/land/land_stepfwd.F 244 LAND_STEPFWD 
           flxkup(i,j) = mPmE/land_rhoLiqW
./pkg/land/land_stepfwd.F 246 LAND_STEPFWD 
           IF ( land_hSnow(i,j,bi,bj).LE. 0. _d 0 )
./pkg/land/land_stepfwd.F 247 LAND_STEPFWD 
     &          land_snowAge(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 259 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 260 LAND_STEPFWD 
           flxkup(i,j) = land_Pr_m_Ev(i,j,bi,bj)/land_rhoLiqW
./pkg/land/land_stepfwd.F 261 LAND_STEPFWD 
           flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 282 LAND_STEPFWD 
        DO i=1,sNx
./pkg/land/land_stepfwd.F 283 LAND_STEPFWD 
         IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./pkg/land/land_stepfwd.F 285 LAND_STEPFWD 
          dBug = bi.eq.lprt .AND. i.EQ.iprt .AND. j.EQ.jprt
./pkg/land/land_stepfwd.F 292 LAND_STEPFWD 
          IF ( land_groundT(i,j,k,bi,bj).LT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 294 LAND_STEPFWD 
           IF ( flxkup(i,j) .LT. 0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 296 LAND_STEPFWD 
            land_groundW(i,j,k,bi,bj) = land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 297 LAND_STEPFWD 
     &       + land_deltaT * flxkup(i,j) / fieldCapac
./pkg/land/land_stepfwd.F 299 LAND_STEPFWD 
     &      land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 300 LAND_STEPFWD 
     &       + land_deltaT * flxEngU(i,j) / land_dzF(k)
./pkg/land/land_stepfwd.F 303 LAND_STEPFWD 
            land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj)
./pkg/land/land_stepfwd.F 304 LAND_STEPFWD 
     &                             + flxkup(i,j)*land_rhoLiqW
./pkg/land/land_stepfwd.F 305 LAND_STEPFWD 
            land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj)
./pkg/land/land_stepfwd.F 306 LAND_STEPFWD 
     &                             + flxEngU(i,j)
./pkg/land/land_stepfwd.F 309 LAND_STEPFWD 
           flxkup(i,j)  = 0. _d 0
./pkg/land/land_stepfwd.F 310 LAND_STEPFWD 
           flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 317 LAND_STEPFWD 
     &         land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 320 LAND_STEPFWD 
             flxkdw(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 323 LAND_STEPFWD 
             flxkdw(i,j) = fieldCapac*
./pkg/land/land_stepfwd.F 324 LAND_STEPFWD 
     &                   ( land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 325 LAND_STEPFWD 
     &                    -land_groundW(i,j,kp1,bi,bj) )
./pkg/land/land_stepfwd.F 328 LAND_STEPFWD 
             IF ( flxkdw(i,j).GE.0. ) THEN
./pkg/land/land_stepfwd.F 329 LAND_STEPFWD 
              flxEngL = flxkdw(i,j)*land_rhoLiqW*land_CpWater
./pkg/land/land_stepfwd.F 330 LAND_STEPFWD 
     &                 *land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 332 LAND_STEPFWD 
              flxEngL = flxkdw(i,j)*land_rhoLiqW*land_CpWater
./pkg/land/land_stepfwd.F 333 LAND_STEPFWD 
     &                 *land_groundT(i,j,kp1,bi,bj)
./pkg/land/land_stepfwd.F 338 LAND_STEPFWD 
           groundWnp1 = land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 339 LAND_STEPFWD 
     &       + land_deltaT * (flxkup(i,j)-flxkdw(i,j)) / fieldCapac
./pkg/land/land_stepfwd.F 343 LAND_STEPFWD 
     &      ,5,land_groundW(i,j,k,bi,bj)-1.,
./pkg/land/land_stepfwd.F 344 LAND_STEPFWD 
     &         flxkup(i,j),flxkdw(i,j),groundWnp1-1.
./pkg/land/land_stepfwd.F 348 LAND_STEPFWD 
           land_groundW(i,j,k,bi,bj) = MIN(1. _d 0, groundWnp1)
./pkg/land/land_stepfwd.F 353 LAND_STEPFWD 
           land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj)
./pkg/land/land_stepfwd.F 356 LAND_STEPFWD 
           flxkup(i,j) = flxkdw(i,j)
./pkg/land/land_stepfwd.F 361 LAND_STEPFWD 
     &                   *land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 363 LAND_STEPFWD 
            land_enthalp(i,j,k,bi,bj) = land_enthalp(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 364 LAND_STEPFWD 
     &         + ( flxEngU(i,j) - flxEngL - grdWexcess*enthalpGrdW
./pkg/land/land_stepfwd.F 367 LAND_STEPFWD 
            land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj)
./pkg/land/land_stepfwd.F 370 LAND_STEPFWD 
            flxEngU(i,j) = flxEngL
./pkg/land/land_stepfwd.F 375 LAND_STEPFWD 
     &      7, land_groundT(i,j,k,bi,bj), flxEngU(i,j), flxkup(i,j)
./pkg/land/land_stepfwd.F 381 LAND_STEPFWD 
     &      8, land_runOff(i,j,bi,bj),land_enRnOf(i,j,bi,bj)
./pkg/land/land_stepfwd.F 399 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 402 LAND_STEPFWD 
     &            *land_groundW(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 406 LAND_STEPFWD 
          temp_bf = (land_enthalp(i,j,k,bi,bj)+land_Lfreez*mWater)
./pkg/land/land_stepfwd.F 409 LAND_STEPFWD 
          temp_af =  land_enthalp(i,j,k,bi,bj) / grd_HeatCp
./pkg/land/land_stepfwd.F 411 LAND_STEPFWD 
          land_enthalp(i,j,k,bi,bj) =
./pkg/land/land_stepfwd.F 412 LAND_STEPFWD 
     &          grd_HeatCp*land_groundT(i,j,k,bi,bj)
./pkg/land/land_stepfwd.F 414 LAND_STEPFWD 
          land_groundT(i,j,k,bi,bj) =
./pkg/land/land_stepfwd.F 423 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 424 LAND_STEPFWD 
          IF ( land_hSnow(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 425 LAND_STEPFWD 
           land_skinT(i,j,bi,bj) = MIN(land_skinT(i,j,bi,bj), 0. _d 0)
./pkg/land/land_stepfwd.F 427 LAND_STEPFWD 
           land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_stepfwd.F 433 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 434 LAND_STEPFWD 
           land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_stepfwd.F 81 LAND_STEPFWD 
      INTEGER i,j,k,kp1
./pkg/land/land_stepfwd.F 98 LAND_STEPFWD 
         DO i=1,sNx
./pkg/land/land_stepfwd.F 99 LAND_STEPFWD 
           flxkup(i,j) = land_HeatFlx(i,j,bi,bj)
./pkg/layers/layers_calc.F 102 LAYERS_CALC 
        DO i = 1,sNx+1
./pkg/layers/layers_calc.F 107 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i-1,j,k,bi,bj)+theta(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 109 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i-1,j,k+1,bi,bj)+theta(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 115 LAYERS_CALC 
          kgu(i,j) = Nlayers
./pkg/layers/layers_calc.F 118 LAYERS_CALC 
          kgu(i,j) = 1
./pkg/layers/layers_calc.F 119 LAYERS_CALC 
         ELSE IF ( (TatU .GE. layers_G(kgu(i,j)))
./pkg/layers/layers_calc.F 120 LAYERS_CALC 
     &    .AND. (TatU .LT. layers_G(kgu(i,j)+1)) ) THEN
./pkg/layers/layers_calc.F 122 LAYERS_CALC 
         ELSE IF (TatU .GE. layers_G(kgu(i,j))) THEN
./pkg/layers/layers_calc.F 124 LAYERS_CALC 
          DO WHILE (TatU .GE. layers_G(kgu(i,j)+1))
./pkg/layers/layers_calc.F 125 LAYERS_CALC 
           kgu(i,j) = kgu(i,j) + 1
./pkg/layers/layers_calc.F 128 LAYERS_CALC 
         ELSE IF (TatU .LT. layers_G(kgu(i,j)+1)) THEN
./pkg/layers/layers_calc.F 130 LAYERS_CALC 
          DO WHILE (TatU .LT. layers_G(kgu(i,j)))
./pkg/layers/layers_calc.F 131 LAYERS_CALC 
           kgu(i,j) = kgu(i,j) - 1
./pkg/layers/layers_calc.F 144 LAYERS_CALC 
         layers_UFlux(i,j,kgu(i,j),bi,bj) =
./pkg/layers/layers_calc.F 145 LAYERS_CALC 
     &    layers_UFlux(i,j,kgu(i,j),bi,bj) +
./pkg/layers/layers_calc.F 146 LAYERS_CALC 
     &    dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 149 LAYERS_CALC 
         layers_HU(i,j,kgu(i,j),bi,bj) = layers_HU(i,j,kgu(i,j),bi,bj)
./pkg/layers/layers_calc.F 150 LAYERS_CALC 
     &    + dZZf(kk) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 158 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i,j-1,k,bi,bj)+theta(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 160 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i,j-1,k+1,bi,bj)+theta(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 165 LAYERS_CALC 
          kgv(i,j) = Nlayers
./pkg/layers/layers_calc.F 168 LAYERS_CALC 
          kgv(i,j) = 1
./pkg/layers/layers_calc.F 169 LAYERS_CALC 
         ELSE IF ( (TatV .GE. layers_G(kgv(i,j)))
./pkg/layers/layers_calc.F 170 LAYERS_CALC 
     &    .AND. (TatV .LT. layers_G(kgv(i,j)+1)) ) THEN
./pkg/layers/layers_calc.F 172 LAYERS_CALC 
         ELSE IF (TatV .GE. layers_G(kgv(i,j))) THEN
./pkg/layers/layers_calc.F 174 LAYERS_CALC 
          DO WHILE (TatV .GE. layers_G(kgv(i,j)+1))
./pkg/layers/layers_calc.F 175 LAYERS_CALC 
           kgv(i,j) = kgv(i,j) + 1
./pkg/layers/layers_calc.F 178 LAYERS_CALC 
         ELSE IF (TatV .LT. layers_G(kgv(i,j)+1)) THEN
./pkg/layers/layers_calc.F 180 LAYERS_CALC 
          DO WHILE (TatV .LT. layers_G(kgv(i,j)))
./pkg/layers/layers_calc.F 181 LAYERS_CALC 
           kgv(i,j) = kgv(i,j) - 1
./pkg/layers/layers_calc.F 194 LAYERS_CALC 
         layers_VFlux(i,j,kgv(i,j),bi,bj) =
./pkg/layers/layers_calc.F 195 LAYERS_CALC 
     &    layers_VFlux(i,j,kgv(i,j),bi,bj)
./pkg/layers/layers_calc.F 196 LAYERS_CALC 
     &    + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 199 LAYERS_CALC 
         layers_HV(i,j,kgv(i,j),bi,bj) = layers_HV(i,j,kgv(i,j),bi,bj)
./pkg/layers/layers_calc.F 200 LAYERS_CALC 
     &    + dZZf(kk) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 52 LAYERS_CALC 
      INTEGER i,j,k,kk,kg,kci
./pkg/layers/layers_calc.F 65 LAYERS_CALC 
        DO i = 1,sNx+1
./pkg/layers/layers_calc.F 69 LAYERS_CALC 
          kgu(i,j) = Nlayers
./pkg/layers/layers_calc.F 70 LAYERS_CALC 
          kgv(i,j) = Nlayers
./pkg/layers/layers_calc.F 77 LAYERS_CALC 
        DO i = 1,sNx+1
./pkg/layers/layers_calc.F 79 LAYERS_CALC 
         layers_UFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 81 LAYERS_CALC 
         layers_HU(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 85 LAYERS_CALC 
         layers_VFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 87 LAYERS_CALC 
         layers_HV(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 28 LAYERS_INIT_VARIA 
      INTEGER i,j,kg,bi,bj
./pkg/layers/layers_init_varia.F 36 LAYERS_INIT_VARIA 
          DO i=1-Olx,sNx+Olx
./pkg/layers/layers_init_varia.F 39 LAYERS_INIT_VARIA 
           layers_UFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 41 LAYERS_INIT_VARIA 
           layers_HU(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 46 LAYERS_INIT_VARIA 
           layers_VFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 48 LAYERS_INIT_VARIA 
           layers_HV(i,j,kg,bi,bj) = 0. _d 0
./pkg/longstep/longstep_average_3d.F 43 LONGSTEP_AVERAGE_3D 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_average_3d.F 53 LONGSTEP_AVERAGE_3D 
          DO i = 1-OLx,sNx+OLx
./pkg/longstep/longstep_average_3d.F 54 LONGSTEP_AVERAGE_3D 
           lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor
./pkg/longstep/longstep_average_3d_fac.F 45 LONGSTEP_AVERAGE_3D_FAC 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_average_3d_fac.F 53 LONGSTEP_AVERAGE_3D_FAC 
          DO i = 1-OLx,sNx+OLx
./pkg/longstep/longstep_average_3d_fac.F 54 LONGSTEP_AVERAGE_3D_FAC 
           factor = FLOAT(lsCnt(bi,bj))*fac(i,j,k,bi,bj)
./pkg/longstep/longstep_average_3d_fac.F 56 LONGSTEP_AVERAGE_3D_FAC 
           lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)*factor
./pkg/longstep/longstep_fill_3d.F 44 LONGSTEP_FILL_3D 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_fill_3d.F 52 LONGSTEP_FILL_3D 
          DO i = 1-OLx,sNx+OLx
./pkg/longstep/longstep_fill_3d.F 53 LONGSTEP_FILL_3D 
           lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj)
./pkg/longstep/longstep_fill_3d_fac.F 45 LONGSTEP_FILL_3D_FAC 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_fill_3d_fac.F 53 LONGSTEP_FILL_3D_FAC 
          DO i = 1-OLx,sNx+OLx
./pkg/longstep/longstep_fill_3d_fac.F 54 LONGSTEP_FILL_3D_FAC 
           lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj)
./pkg/longstep/longstep_fill_3d_fac.F 55 LONGSTEP_FILL_3D_FAC 
     &                        + fld(i,j,k,bi,bj)*fac(i,j,k,bi,bj)
./pkg/longstep/longstep_fill_3d_rs.F 45 LONGSTEP_FILL_3D_RS 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_fill_3d_rs.F 53 LONGSTEP_FILL_3D_RS 
          DO i = 1-OLx,sNx+OLx
./pkg/longstep/longstep_fill_3d_rs.F 54 LONGSTEP_FILL_3D_RS 
           lsFld(i,j,k,bi,bj) = lsFld(i,j,k,bi,bj) + fld(i,j,k,bi,bj)
./pkg/longstep/longstep_forcing_surf.F 117 LONGSTEP_FORCING_SURF 
           DO i = iMin, iMax
./pkg/longstep/longstep_forcing_surf.F 118 LONGSTEP_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 119 LONGSTEP_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F 120 LONGSTEP_FORCING_SURF 
     &        + LS_fwFlux(i,j,bi,bj)
./pkg/longstep/longstep_forcing_surf.F 121 LONGSTEP_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/longstep/longstep_forcing_surf.F 141 LONGSTEP_FORCING_SURF 
           DO i = iMin, iMax
./pkg/longstep/longstep_forcing_surf.F 142 LONGSTEP_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 143 LONGSTEP_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F 144 LONGSTEP_FORCING_SURF 
     &        + LS_fwFlux(i,j,bi,bj)
./pkg/longstep/longstep_forcing_surf.F 49 LONGSTEP_FORCING_SURF 
      INTEGER i, j
./pkg/longstep/longstep_forcing_surf.F 62 LONGSTEP_FORCING_SURF 
           DO i = iMin, iMax
./pkg/longstep/longstep_forcing_surf.F 63 LONGSTEP_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 84 LONGSTEP_FORCING_SURF 
           DO i = iMin, iMax
./pkg/longstep/longstep_forcing_surf.F 85 LONGSTEP_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 86 LONGSTEP_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/longstep/longstep_forcing_surf.F 87 LONGSTEP_FORCING_SURF 
     &        + LS_fwFlux(i,j,bi,bj)
./pkg/longstep/longstep_forcing_surf.F 88 LONGSTEP_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/longstep/longstep_reset_3d.F 42 LONGSTEP_RESET_3D 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_reset_3d.F 50 LONGSTEP_RESET_3D 
          DO i = 1-OLx,sNx+OLx
./pkg/longstep/longstep_reset_3d.F 51 LONGSTEP_RESET_3D 
           lsFld(i,j,k,bi,bj) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 118 LONGSTEP_THERMODYNAMICS 
      INTEGER i, j
./pkg/longstep/longstep_thermodynamics.F 181 LONGSTEP_THERMODYNAMICS 
         DO i=1-OLx,sNx+OLx
./pkg/longstep/longstep_thermodynamics.F 182 LONGSTEP_THERMODYNAMICS 
          xA(i,j)        = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 183 LONGSTEP_THERMODYNAMICS 
          yA(i,j)        = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 184 LONGSTEP_THERMODYNAMICS 
          uTrans(i,j)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 185 LONGSTEP_THERMODYNAMICS 
          vTrans(i,j)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 186 LONGSTEP_THERMODYNAMICS 
          rTrans (i,j)   = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 187 LONGSTEP_THERMODYNAMICS 
          rTransKp1(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 193 LONGSTEP_THERMODYNAMICS 
          DO i=1-OLx,sNx+OLx
./pkg/longstep/longstep_thermodynamics.F 195 LONGSTEP_THERMODYNAMICS 
           kappaRk(i,j,k)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 204 LONGSTEP_THERMODYNAMICS 
            DO i=1-OLx,sNx+OLx
./pkg/longstep/longstep_thermodynamics.F 205 LONGSTEP_THERMODYNAMICS 
             fVerP  (i,j,1,ip) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 206 LONGSTEP_THERMODYNAMICS 
             fVerP  (i,j,2,ip) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 207 LONGSTEP_THERMODYNAMICS 
             kappaRTr(i,j,ip)  = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 215 LONGSTEP_THERMODYNAMICS 
            DO i=1-OLx,sNx+OLx
./pkg/longstep/longstep_thermodynamics.F 216 LONGSTEP_THERMODYNAMICS 
             gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 311 LONGSTEP_THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./pkg/longstep/longstep_thermodynamics.F 312 LONGSTEP_THERMODYNAMICS 
             rTransKp1(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 317 LONGSTEP_THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./pkg/longstep/longstep_thermodynamics.F 318 LONGSTEP_THERMODYNAMICS 
             rTransKp1(i,j) = rTrans(i,j)
./pkg/longstep/longstep_thermodynamics.F 338 LONGSTEP_THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./pkg/longstep/longstep_thermodynamics.F 339 LONGSTEP_THERMODYNAMICS 
             wFld(i,j)   = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 340 LONGSTEP_THERMODYNAMICS 
             maskUp(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 341 LONGSTEP_THERMODYNAMICS 
             rTrans(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 348 LONGSTEP_THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./pkg/longstep/longstep_thermodynamics.F 349 LONGSTEP_THERMODYNAMICS 
             wFld(i,j)   = LS_wVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 350 LONGSTEP_THERMODYNAMICS 
             maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 351 LONGSTEP_THERMODYNAMICS 
             rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j)
./pkg/matrix/matrix_init.F 24 MATRIX_INIT 
      INTEGER i, j, k, bi, bj
./pkg/matrix/matrix_init.F 35 MATRIX_INIT 
                DO i=1-Olx, sNx+Olx
./pkg/matrix/matrix_init.F 36 MATRIX_INIT 
                    PTRACERS_initial(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_init.F 37 MATRIX_INIT 
     &                  pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_init.F 38 MATRIX_INIT 
                  MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
./pkg/matrix/matrix_init.F 39 MATRIX_INIT 
                  MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
./pkg/matrix/matrix_store_tendency.F 32 MATRIX_STORE_TENDENCY_EXP 
      INTEGER i,j,k
./pkg/matrix/matrix_store_tendency.F 38 MATRIX_STORE_TENDENCY_EXP 
            DO i=1-Olx, sNx+Olx
./pkg/matrix/matrix_store_tendency.F 39 MATRIX_STORE_TENDENCY_EXP 
              MATRIX(i,j,k,bi,bj,iTracer,1) =
./pkg/matrix/matrix_store_tendency.F 40 MATRIX_STORE_TENDENCY_EXP 
     &             MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_store_tendency.F 41 MATRIX_STORE_TENDENCY_EXP 
     &             + (gPtr(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 42 MATRIX_STORE_TENDENCY_EXP 
     &             - PTRACERS_initial(i,j,k,bi,bj,iTracer))
./pkg/matrix/matrix_store_tendency.F 43 MATRIX_STORE_TENDENCY_EXP 
              gPtr(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_store_tendency.F 44 MATRIX_STORE_TENDENCY_EXP 
     &             PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 80 MATRIX_STORE_TENDENCY_IMP 
      INTEGER i,j,k
./pkg/matrix/matrix_store_tendency.F 86 MATRIX_STORE_TENDENCY_IMP 
            DO i=1-Olx, sNx+Olx
./pkg/matrix/matrix_store_tendency.F 87 MATRIX_STORE_TENDENCY_IMP 
              MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_store_tendency.F 88 MATRIX_STORE_TENDENCY_IMP 
     &             MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/matrix/matrix_store_tendency.F 89 MATRIX_STORE_TENDENCY_IMP 
     &             +  pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 90 MATRIX_STORE_TENDENCY_IMP 
              pTracer(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_store_tendency.F 91 MATRIX_STORE_TENDENCY_IMP 
     &             PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_write_tendency.F 112 MATRIX_WRITE_TENDENCY 
                  DO i=1-Olx, sNx+Olx
./pkg/matrix/matrix_write_tendency.F 113 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
./pkg/matrix/matrix_write_tendency.F 28 MATRIX_WRITE_TENDENCY 
      INTEGER bi,bj,i,j,k,iTracer,iRec
./pkg/matrix/matrix_write_tendency.F 46 MATRIX_WRITE_TENDENCY 
                  DO i=1-Olx, sNx+Olx
./pkg/matrix/matrix_write_tendency.F 47 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,1) =
./pkg/matrix/matrix_write_tendency.F 48 MATRIX_WRITE_TENDENCY 
     &                   MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_write_tendency.F 69 MATRIX_WRITE_TENDENCY 
                  DO i=1-Olx, sNx+Olx
./pkg/matrix/matrix_write_tendency.F 70 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
./pkg/matrix/matrix_write_tendency.F 89 MATRIX_WRITE_TENDENCY 
                  DO i=1-Olx, sNx+Olx
./pkg/matrix/matrix_write_tendency.F 90 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_write_tendency.F 91 MATRIX_WRITE_TENDENCY 
     &                   MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/mdsio/mdsio_facef_read.F 103 MDS_FACEF_READ_RS 
         DO i=1,sNx+1
./pkg/mdsio/mdsio_facef_read.F 104 MDS_FACEF_READ_RS 
          array(i,j,bi,bj) = ioBuf8(i+tBx)
./pkg/mdsio/mdsio_facef_read.F 127 MDS_FACEF_READ_RS 
         DO i=1,sNx+1
./pkg/mdsio/mdsio_facef_read.F 128 MDS_FACEF_READ_RS 
          array(i,j,bi,bj) = ioBuf4(i,j)
./pkg/mdsio/mdsio_facef_read.F 137 MDS_FACEF_READ_RS 
         DO i=1,sNx+1
./pkg/mdsio/mdsio_facef_read.F 138 MDS_FACEF_READ_RS 
          array(i,j,bi,bj) = ioBuf8(i,j)
./pkg/mdsio/mdsio_facef_read.F 56 MDS_FACEF_READ_RS 
      INTEGER i,j, dUnit, iLen
./pkg/mdsio/mdsio_facef_read.F 87 MDS_FACEF_READ_RS 
         READ(dUnit,rec=jj+jBase) (ioBuf4(i),i=1,dNx+1)
./pkg/mdsio/mdsio_facef_read.F 92 MDS_FACEF_READ_RS 
         DO i=1,sNx+1
./pkg/mdsio/mdsio_facef_read.F 93 MDS_FACEF_READ_RS 
          array(i,j,bi,bj) = ioBuf4(i+tBx)
./pkg/mdsio/mdsio_facef_read.F 98 MDS_FACEF_READ_RS 
         READ(dUnit,rec=jj+jBase) (ioBuf8(i),i=1,dNx+1)
./pkg/mdsio/mdsio_gl.F 1141 MDSREADFIELD_2D_GL 
              arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F 1241 MDSWRITEFIELD_2D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 1337 MDSWRITEFIELD_2D_GL 
            global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 1434 MDSWRITEFIELD_2D_GL 
             do i=1,sNx
./pkg/mdsio/mdsio_gl.F 1435 MDSWRITEFIELD_2D_GL 
                arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 380 MDSREADFIELD_3D_GL 
              arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F 479 MDSWRITEFIELD_3D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 574 MDSWRITEFIELD_3D_GL 
            global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 671 MDSWRITEFIELD_3D_GL 
             do i=1,sNx
./pkg/mdsio/mdsio_gl.F 672 MDSWRITEFIELD_3D_GL 
                arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 73 MDSREADFIELD_3D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 834 MDSREADFIELD_2D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_pass_r4torl.F 102 MDS_PASS_R4TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4torl.F 103 MDS_PASS_R4TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r4torl.F 53 MDS_PASS_R4TORL 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r4torl.F 64 MDS_PASS_R4TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4torl.F 65 MDS_PASS_R4TORL 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4torl.F 77 MDS_PASS_R4TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4torl.F 78 MDS_PASS_R4TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r4torl.F 93 MDS_PASS_R4TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4torl.F 94 MDS_PASS_R4TORL 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F 102 MDS_PASS_R4TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4tors.F 103 MDS_PASS_R4TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r4tors.F 53 MDS_PASS_R4TORS 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r4tors.F 64 MDS_PASS_R4TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4tors.F 65 MDS_PASS_R4TORS 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F 77 MDS_PASS_R4TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4tors.F 78 MDS_PASS_R4TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F 93 MDS_PASS_R4TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r4tors.F 94 MDS_PASS_R4TORS 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F 102 MDS_PASS_R8TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8torl.F 103 MDS_PASS_R8TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r8torl.F 53 MDS_PASS_R8TORL 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r8torl.F 64 MDS_PASS_R8TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8torl.F 65 MDS_PASS_R8TORL 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F 77 MDS_PASS_R8TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8torl.F 78 MDS_PASS_R8TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F 93 MDS_PASS_R8TORL 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8torl.F 94 MDS_PASS_R8TORL 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F 102 MDS_PASS_R8TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8tors.F 103 MDS_PASS_R8TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r8tors.F 53 MDS_PASS_R8TORS 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r8tors.F 64 MDS_PASS_R8TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8tors.F 65 MDS_PASS_R8TORS 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F 77 MDS_PASS_R8TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8tors.F 78 MDS_PASS_R8TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F 93 MDS_PASS_R8TORS 
              DO i=1,sNx
./pkg/mdsio/mdsio_pass_r8tors.F 94 MDS_PASS_R8TORS 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_read_field.F 102 MDS_READ_FIELD 
      INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_read_field.F 273 MDS_READ_FIELD 
           READ(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_read_field.F 278 MDS_READ_FIELD 
           READ(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_read_field.F 414 MDS_READ_FIELD 
              READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 416 MDS_READ_FIELD 
              READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 466 MDS_READ_FIELD 
             READ(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_read_field.F 468 MDS_READ_FIELD 
             READ(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_read_meta.F 108 MDS_READ_META 
       DO i=1,3
./pkg/mdsio/mdsio_read_meta.F 109 MDS_READ_META 
        dimList(i,j) = 0
./pkg/mdsio/mdsio_read_meta.F 112 MDS_READ_META 
      DO i=1,nFlds
./pkg/mdsio/mdsio_read_meta.F 113 MDS_READ_META 
       fldList(i)= ' '
./pkg/mdsio/mdsio_read_meta.F 115 MDS_READ_META 
      DO i=1,nTimRec
./pkg/mdsio/mdsio_read_meta.F 116 MDS_READ_META 
       timList(i) = 0.
./pkg/mdsio/mdsio_read_meta.F 249 MDS_READ_META 
     &                  (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_read_meta.F 254 MDS_READ_META 
     &                  (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_read_meta.F 259 MDS_READ_META 
     &                  (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_read_meta.F 331 MDS_READ_META 
     &                            (timList(i),i=1,nTimFil)
./pkg/mdsio/mdsio_read_meta.F 363 MDS_READ_META 
     &          (fldList(i),i=j,MIN(nFldFil,j+19))
./pkg/mdsio/mdsio_read_meta.F 87 MDS_READ_META 
      INTEGER i,j,ii,jj
./model/src/adams_bashforth2.F 46 ADAMS_BASHFORTH2 
      INTEGER i,j
./model/src/adams_bashforth2.F 64 ADAMS_BASHFORTH2 
       DO i=1-Olx,sNx+Olx
./model/src/adams_bashforth2.F 65 ADAMS_BASHFORTH2 
        gTrtmp = ab15*gTracer(i,j,k,bi,bj)
./model/src/adams_bashforth2.F 66 ADAMS_BASHFORTH2 
     &         + ab05*gTrNm1(i,j,k,bi,bj)
./model/src/adams_bashforth2.F 67 ADAMS_BASHFORTH2 
        gTrNm1(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj)
./model/src/adams_bashforth2.F 68 ADAMS_BASHFORTH2 
        gTracer(i,j,k,bi,bj) = gTrtmp
./pkg/mdsio/mdsio_write_field.F 118 MDS_WRITE_FIELD 
      INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_write_field.F 315 MDS_WRITE_FIELD 
           WRITE(dUnit,rec=irec) ( xy_buffer_r4(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_write_field.F 320 MDS_WRITE_FIELD 
           WRITE(dUnit,rec=irec) ( xy_buffer_r8(i),i=1,xSize*ySize )
./pkg/mdsio/mdsio_write_field.F 446 MDS_WRITE_FIELD 
              WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 448 MDS_WRITE_FIELD 
              WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 476 MDS_WRITE_FIELD 
             WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_write_field.F 478 MDS_WRITE_FIELD 
             WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_write_meta.F 121 MDS_WRITE_META 
         WRITE(mUnit,'(1X,3(I5,","))')    (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F 123 MDS_WRITE_META 
         WRITE(mUnit,'(1X,2(I5,","),I5)') (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F 130 MDS_WRITE_META 
         WRITE(mUnit,'(1X,3(I10,","))')     (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F 132 MDS_WRITE_META 
         WRITE(mUnit,'(1X,2(I10,","),I10)') (dimList(i,j),i=1,3)
./pkg/mdsio/mdsio_write_meta.F 176 MDS_WRITE_META 
       WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,ii)
./pkg/mdsio/mdsio_write_meta.F 186 MDS_WRITE_META 
     &          (" '",fldList(i),"'",i=1,nFlds)
./pkg/mdsio/mdsio_write_meta.F 75 MDS_WRITE_META 
      INTEGER i,j,ii,iL
./pkg/mdsio/mdsio_writelocal.F 114 MDS_WRITELOCAL 
      INTEGER i1,i2,i,j,k
./pkg/mdsio/mdsio_writelocal.F 330 MDS_WRITELOCAL 
               WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 332 MDS_WRITELOCAL 
               WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 360 MDS_WRITELOCAL 
              WRITE(dUnit,rec=irec) (shared3dBuf_r4(i),i=i1,i2)
./pkg/mdsio/mdsio_writelocal.F 362 MDS_WRITELOCAL 
              WRITE(dUnit,rec=irec) (shared3dBuf_r8(i),i=i1,i2)
./model/src/adams_bashforth3.F 104 ADAMS_BASHFORTH3 
          DO i=1-Olx,sNx+Olx
./model/src/adams_bashforth3.F 105 ADAMS_BASHFORTH3 
           gTrtmp = ab0*gTracer(i,j,k,bi,bj)
./model/src/adams_bashforth3.F 106 ADAMS_BASHFORTH3 
     &            + ab1*gTrNm(i,j,k,bi,bj,m1)
./model/src/adams_bashforth3.F 107 ADAMS_BASHFORTH3 
     &            + ab2*gTrNm(i,j,k,bi,bj,m2)
./model/src/adams_bashforth3.F 108 ADAMS_BASHFORTH3 
           gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k,bi,bj)
./model/src/adams_bashforth3.F 109 ADAMS_BASHFORTH3 
           gTracer(i,j,k,bi,bj)  = gTrtmp
./model/src/adams_bashforth3.F 117 ADAMS_BASHFORTH3 
         DO i=1-Olx,sNx+Olx
./model/src/adams_bashforth3.F 118 ADAMS_BASHFORTH3 
           gTrtmp = ab0*gTracer(i,j,k,bi,bj)
./model/src/adams_bashforth3.F 119 ADAMS_BASHFORTH3 
     &            + ab1*gTrNm(i,j,k,bi,bj,m1)
./model/src/adams_bashforth3.F 120 ADAMS_BASHFORTH3 
     &            + ab2*gTrNm(i,j,k,bi,bj,m2)
./model/src/adams_bashforth3.F 121 ADAMS_BASHFORTH3 
           gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k,bi,bj)
./model/src/adams_bashforth3.F 122 ADAMS_BASHFORTH3 
           gTracer(i,j,k,bi,bj)  = gTrtmp
./model/src/adams_bashforth3.F 74 ADAMS_BASHFORTH3 
      INTEGER i,j, k, m1,m2
./pkg/mnc/mnc_cw_citer.F 29 MNC_CW_CITER_SETG 
      integer i
./pkg/mnc/mnc_cw_citer.F 38 MNC_CW_CITER_SETG 
          DO i = 1,MNC_MAX_ID
./pkg/mnc/mnc_cw_citer.F 39 MNC_CW_CITER_SETG 
            IF ( mnc_cw_fgci(i) .eq. igroup ) THEN
./pkg/mnc/mnc_cw_citer.F 40 MNC_CW_CITER_SETG 
              mnc_cw_fgud(i) = 0
./pkg/mnc/mnc_cw_cvars.F 100 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 101 MNC_CW_WRITE_CVAR 
          rtmp(i) = xC(i,1,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 127 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 128 MNC_CW_WRITE_CVAR 
         rtmp(i) = xtmin + i
./pkg/mnc/mnc_cw_cvars.F 132 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 133 MNC_CW_WRITE_CVAR 
          rtmp(i) = xtmin + i
./pkg/mnc/mnc_cw_cvars.F 136 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 137 MNC_CW_WRITE_CVAR 
          rtmp(i) = xG(i,1,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 163 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 164 MNC_CW_WRITE_CVAR 
         rtmp(i) = xtmin + i
./pkg/mnc/mnc_cw_cvars.F 168 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 169 MNC_CW_WRITE_CVAR 
          rtmp(i) = xtmin - OLx + i
./pkg/mnc/mnc_cw_cvars.F 172 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 173 MNC_CW_WRITE_CVAR 
          rtmp(i) = xC(i,1,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 201 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 202 MNC_CW_WRITE_CVAR 
         rtmp(i) = ytmin + i
./pkg/mnc/mnc_cw_cvars.F 206 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 207 MNC_CW_WRITE_CVAR 
          rtmp(i) = ytmin + i
./pkg/mnc/mnc_cw_cvars.F 210 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 211 MNC_CW_WRITE_CVAR 
          rtmp(i) = yC(1,i,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 237 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 238 MNC_CW_WRITE_CVAR 
         rtmp(i) = ytmin + i
./pkg/mnc/mnc_cw_cvars.F 242 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 243 MNC_CW_WRITE_CVAR 
          rtmp(i) = ytmin + i
./pkg/mnc/mnc_cw_cvars.F 246 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 247 MNC_CW_WRITE_CVAR 
          rtmp(i) = yG(1,i,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 273 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 274 MNC_CW_WRITE_CVAR 
         rtmp(i) = ytmin + i
./pkg/mnc/mnc_cw_cvars.F 278 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 279 MNC_CW_WRITE_CVAR 
          rtmp(i) = ytmin - OLy + i
./pkg/mnc/mnc_cw_cvars.F 282 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 283 MNC_CW_WRITE_CVAR 
          rtmp(i) = yC(1,i-OLy,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 309 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 310 MNC_CW_WRITE_CVAR 
          rtmp(i) = rC(i)
./pkg/mnc/mnc_cw_cvars.F 328 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 329 MNC_CW_WRITE_CVAR 
          rtmp(i) = rF(i)
./pkg/mnc/mnc_cw_cvars.F 347 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 348 MNC_CW_WRITE_CVAR 
          rtmp(i) = rF(i + 1)
./pkg/mnc/mnc_cw_cvars.F 367 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 368 MNC_CW_WRITE_CVAR 
          rtmp(i) = rF(i)
./pkg/mnc/mnc_cw_cvars.F 387 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 388 MNC_CW_WRITE_CVAR 
          rtmp(i) = rF(i + 1)
./pkg/mnc/mnc_cw_cvars.F 419 MNC_CW_WRITE_CVAR 
        i = ILNBLNK( fname )
./pkg/mnc/mnc_cw_cvars.F 421 MNC_CW_WRITE_CVAR 
     &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 429 MNC_CW_WRITE_CVAR 
     &     cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 437 MNC_CW_WRITE_CVAR 
     &     cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 445 MNC_CW_WRITE_CVAR 
     &     cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 458 MNC_CW_WRITE_CVAR 
     &       cvname(nnf:nnl), ''' in file ''', fname(1:i), ''''
./pkg/mnc/mnc_cw_cvars.F 47 MNC_CW_WRITE_CVAR 
      integer i, vid, nnf, nnl, doit, err
./pkg/mnc/mnc_cw_cvars.F 57 MNC_CW_WRITE_CVAR 
      DO i=1,MAX_LEN_NAME
./pkg/mnc/mnc_cw_cvars.F 58 MNC_CW_WRITE_CVAR 
         units(i:i)     = ' '
./pkg/mnc/mnc_cw_cvars.F 59 MNC_CW_WRITE_CVAR 
         long_name(i:i) = ' '
./pkg/mnc/mnc_cw_cvars.F 60 MNC_CW_WRITE_CVAR 
         positive(i:i)  = ' '
./pkg/mnc/mnc_cw_cvars.F 91 MNC_CW_WRITE_CVAR 
        DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 92 MNC_CW_WRITE_CVAR 
         rtmp(i) = xtmin + i
./pkg/mnc/mnc_cw_cvars.F 96 MNC_CW_WRITE_CVAR 
         DO i = cv_start(1),cv_count(1)
./pkg/mnc/mnc_cw_cvars.F 97 MNC_CW_WRITE_CVAR 
          rtmp(i) = xtmin + i
./pkg/mnc/mnc_cw_init.F 119 MNC_CW_INIT 
                DO i = 1,CW_MAX_LOC
./pkg/mnc/mnc_cw_init.F 120 MNC_CW_INIT 
                  dn(i)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cw_init.F 121 MNC_CW_INIT 
                  dim(i) = 0
./pkg/mnc/mnc_cw_init.F 122 MNC_CW_INIT 
                  ib(i) = 0
./pkg/mnc/mnc_cw_init.F 123 MNC_CW_INIT 
                  ie(i) = 0
./pkg/mnc/mnc_cw_init.F 236 MNC_CW_INIT 
     &                 ' : ', (dim(i), i=1,5),
./pkg/mnc/mnc_cw_init.F 237 MNC_CW_INIT 
     &                 '  | ', (ib(i), i=1,5),
./pkg/mnc/mnc_cw_init.F 238 MNC_CW_INIT 
     &                 '  | ', (ie(i), i=1,5),
./pkg/mnc/mnc_cw_init.F 239 MNC_CW_INIT 
     &                 '  | ', (dn(i)(1:4), i=1,5)
./pkg/mnc/mnc_cw_init.F 53 MNC_CW_INIT 
      integer i, ihorz,ihsub,ivert,itime,ihalo, is,ih, n,ntot
./model/src/calc_3d_diffusivity.F 100 CALC_3D_DIFFUSIVITY 
           KappaRTr(i,j,k) =
./model/src/calc_3d_diffusivity.F 101 CALC_3D_DIFFUSIVITY 
     &         IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_3d_diffusivity.F 104 CALC_3D_DIFFUSIVITY 
     &         + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./model/src/calc_3d_diffusivity.F 113 CALC_3D_DIFFUSIVITY 
          DO i = 1-Olx,sNx+Olx
./model/src/calc_3d_diffusivity.F 114 CALC_3D_DIFFUSIVITY 
           KappaRTr(i,j,k) = KappaRTr(i,j,k)
./model/src/calc_3d_diffusivity.F 117 CALC_3D_DIFFUSIVITY 
     &          + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F 127 CALC_3D_DIFFUSIVITY 
          DO i = 1-Olx, sNx+Olx
./model/src/calc_3d_diffusivity.F 128 CALC_3D_DIFFUSIVITY 
           KappaRTr(i,j,k) = KappaRTr(i,j,k)
./model/src/calc_3d_diffusivity.F 131 CALC_3D_DIFFUSIVITY 
     &          + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F 144 CALC_3D_DIFFUSIVITY 
          DO i = 1-Olx, sNx+Olx
./model/src/calc_3d_diffusivity.F 145 CALC_3D_DIFFUSIVITY 
           KappaRTr(i,j,k) = KappaRTr(i,j,k)
./model/src/calc_3d_diffusivity.F 148 CALC_3D_DIFFUSIVITY 
     &          + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F 191 CALC_3D_DIFFUSIVITY 
          DO i = 1-Olx, sNx+Olx
./model/src/calc_3d_diffusivity.F 192 CALC_3D_DIFFUSIVITY 
           KappaRTr(i,j,k) = KappaRTr(i,j,k)
./model/src/calc_3d_diffusivity.F 67 CALC_3D_DIFFUSIVITY 
      INTEGER i,j,k
./model/src/calc_3d_diffusivity.F 87 CALC_3D_DIFFUSIVITY 
         DO i = 1-Olx,sNx+Olx
./model/src/calc_3d_diffusivity.F 90 CALC_3D_DIFFUSIVITY 
           KappaRTr(i,j,k) =
./model/src/calc_3d_diffusivity.F 91 CALC_3D_DIFFUSIVITY 
     &         LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_3d_diffusivity.F 94 CALC_3D_DIFFUSIVITY 
     &         + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./pkg/mnc/mnc_cwrapper.F 155 MNC_CW_DUMP 
      integer i,j, ntot
./pkg/mnc/mnc_cwrapper.F 162 MNC_CW_DUMP 
      DO i = 1,NBLNK
./pkg/mnc/mnc_cwrapper.F 163 MNC_CW_DUMP 
        blnk(i:i) = ' '
./pkg/mnc/mnc_cwrapper.F 181 MNC_CW_DUMP 
     &         ' : ', (mnc_cw_dims(i,j), i=1,5),
./pkg/mnc/mnc_cwrapper.F 182 MNC_CW_DUMP 
     &         '  | ', (mnc_cw_is(i,j), i=1,5),
./pkg/mnc/mnc_cwrapper.F 183 MNC_CW_DUMP 
     &         '  | ', (mnc_cw_ie(i,j), i=1,5),
./pkg/mnc/mnc_cwrapper.F 184 MNC_CW_DUMP 
     &         '  | ', (mnc_cw_dn(i,j)(1:7), i=1,5)
./pkg/mnc/mnc_cwrapper.F 209 MNC_CW_DUMP 
          DO i = 1,mnc_cw_vnat(1,j)
./pkg/mnc/mnc_cwrapper.F 212 MNC_CW_DUMP 
     &           'MNC: ','      text_at:',i,
./pkg/mnc/mnc_cwrapper.F 213 MNC_CW_DUMP 
     &           ' : ', mnc_cw_vtnm(i,j)(1:25), ' : ',
./pkg/mnc/mnc_cwrapper.F 214 MNC_CW_DUMP 
     &           mnc_cw_vtat(i,j)(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cwrapper.F 218 MNC_CW_DUMP 
          DO i = 1,mnc_cw_vnat(2,j)
./pkg/mnc/mnc_cwrapper.F 221 MNC_CW_DUMP 
     &           'MNC: ','      int__at:',i,
./pkg/mnc/mnc_cwrapper.F 222 MNC_CW_DUMP 
     &           ' : ', mnc_cw_vinm(i,j)(1:25), ' : ',
./pkg/mnc/mnc_cwrapper.F 223 MNC_CW_DUMP 
     &           mnc_cw_viat(i,j)
./pkg/mnc/mnc_cwrapper.F 227 MNC_CW_DUMP 
          DO i = 1,mnc_cw_vnat(3,j)
./pkg/mnc/mnc_cwrapper.F 230 MNC_CW_DUMP 
     &           'MNC: ','      dbl__at:',i,
./pkg/mnc/mnc_cwrapper.F 231 MNC_CW_DUMP 
     &           ' : ', mnc_cw_vdnm(i,j)(1:25), ' : ',
./pkg/mnc/mnc_cwrapper.F 232 MNC_CW_DUMP 
     &           mnc_cw_vdat(i,j)
./pkg/mnc/mnc_cwrapper.F 321 MNC_CW_ADD_VNAME 
      integer i, nvf,nvl, ngf,ngl, indv,indg
./pkg/mnc/mnc_cwrapper.F 355 MNC_CW_ADD_VNAME 
      DO i = 1,3
./pkg/mnc/mnc_cwrapper.F 356 MNC_CW_ADD_VNAME 
        mnc_cw_vnat(i,indv) = 0
./pkg/mnc/mnc_cwrapper.F 391 MNC_CW_DEL_VNAME 
      integer i, indv
./pkg/mnc/mnc_cwrapper.F 401 MNC_CW_DEL_VNAME 
      DO i = 1,3
./pkg/mnc/mnc_cwrapper.F 402 MNC_CW_DEL_VNAME 
        mnc_cw_vnat(i,indv) = 0
./pkg/mnc/mnc_cwrapper.F 52 MNC_CW_ADD_GNAME 
      integer i, nnf,nnl, indg
./pkg/mnc/mnc_cwrapper.F 76 MNC_CW_ADD_GNAME 
      DO i = 1,ndim
./pkg/mnc/mnc_cwrapper.F 77 MNC_CW_ADD_GNAME 
        mnc_cw_dn(i,indg)(1:MNC_MAX_CHAR)=mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cwrapper.F 78 MNC_CW_ADD_GNAME 
        nnf = IFNBLNK(dnames(i))
./pkg/mnc/mnc_cwrapper.F 79 MNC_CW_ADD_GNAME 
        nnl = ILNBLNK(dnames(i))
./pkg/mnc/mnc_cwrapper.F 80 MNC_CW_ADD_GNAME 
        mnc_cw_dn(i,indg)(1:(nnl-nnf+1)) = dnames(i)(nnf:nnl)
./pkg/mnc/mnc_cwrapper.F 81 MNC_CW_ADD_GNAME 
        mnc_cw_dims(i,indg) = dlens(i)
./pkg/mnc/mnc_cwrapper.F 82 MNC_CW_ADD_GNAME 
        mnc_cw_is(i,indg)   = inds_beg(i)
./pkg/mnc/mnc_cwrapper.F 83 MNC_CW_ADD_GNAME 
        mnc_cw_ie(i,indg)   = inds_end(i)
./pkg/mnc/mnc_dim.F 111 MNC_DIM_INIT_ALL_CV 
      DO i = 1,n
./pkg/mnc/mnc_dim.F 112 MNC_DIM_INIT_ALL_CV 
        j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_dim.F 194 MNC_DIM_UNLIM_SIZE 
      integer i,j, nf, indf, fid, unlimid, err
./pkg/mnc/mnc_dim.F 214 MNC_DIM_UNLIM_SIZE 
      DO i = 1,mnc_f_alld(indf,1)
./pkg/mnc/mnc_dim.F 215 MNC_DIM_UNLIM_SIZE 
        j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_dim.F 88 MNC_DIM_INIT_ALL_CV 
      integer i,j, indf,indd, n,nf, dnf,dnl
./pkg/mnc/mnc_dump.F 43 MNC_DUMP_ALL 
      integer i,j
./pkg/mnc/mnc_dump.F 46 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 47 MNC_DUMP_ALL 
        write(*,'(i3,a,a40)') i,':', mnc_f_names(i)(1:40)
./pkg/mnc/mnc_dump.F 50 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 51 MNC_DUMP_ALL 
        write(*,'(i3,a,a40)') i,':', mnc_g_names(i)(1:40)
./pkg/mnc/mnc_dump.F 54 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 55 MNC_DUMP_ALL 
        write(*,'(i3,a,a40)') i,':', mnc_v_names(i)(1:40)
./pkg/mnc/mnc_dump.F 58 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 59 MNC_DUMP_ALL 
        write(*,'(i3,a,a40)') i,':', mnc_d_names(i)(1:40)
./pkg/mnc/mnc_dump.F 63 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 64 MNC_DUMP_ALL 
        write(*,*) i,': ',mnc_d_ids(i), mnc_d_size(i)
./pkg/mnc/mnc_dump.F 68 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 69 MNC_DUMP_ALL 
        write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)
./pkg/mnc/mnc_dump.F 72 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 73 MNC_DUMP_ALL 
        write(*,*) i,': ',(mnc_fd_ind(i,j), j=1,n_items)
./pkg/mnc/mnc_dump.F 76 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 77 MNC_DUMP_ALL 
        write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
./pkg/mnc/mnc_dump.F 80 MNC_DUMP_ALL 
      DO i = 1,n_id
./pkg/mnc/mnc_dump.F 81 MNC_DUMP_ALL 
        write(*,*) i,': ',(mnc_f_alld(i,j), j=1,n_items)
./pkg/mnc/mnc_file.F 339 MNC_FILE_CLOSE 
      integer i,j,k,n, err, fid, indf, nf
./pkg/mnc/mnc_file.F 364 MNC_FILE_CLOSE 
        DO i = 1,n
./pkg/mnc/mnc_file.F 365 MNC_FILE_CLOSE 
          j = 2 + 3*(i - 1)
./pkg/mnc/mnc_file.F 369 MNC_FILE_CLOSE 
        DO i = 1,MNC_MAX_INFO
./pkg/mnc/mnc_file.F 370 MNC_FILE_CLOSE 
          mnc_fv_ids(indf,i) = 0
./pkg/mnc/mnc_file.F 376 MNC_FILE_CLOSE 
      DO i = 1,n
./pkg/mnc/mnc_file.F 377 MNC_FILE_CLOSE 
        j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_file.F 381 MNC_FILE_CLOSE 
        mnc_f_alld(indf,i+1) = 0
./pkg/mnc/mnc_file.F 386 MNC_FILE_CLOSE 
        DO i = 1,n
./pkg/mnc/mnc_file.F 387 MNC_FILE_CLOSE 
          j = 4 + 3*(i - 1)
./pkg/mnc/mnc_file.F 391 MNC_FILE_CLOSE 
        DO i = 1,MNC_MAX_INFO
./pkg/mnc/mnc_file.F 392 MNC_FILE_CLOSE 
          mnc_fd_ind(indf,i) = 0
./pkg/mnc/mnc_file.F 393 MNC_FILE_CLOSE 
          mnc_f_info(indf,i) = 0
./pkg/mnc/mnc_file.F 397 MNC_FILE_CLOSE 
      DO i = 1,MNC_MAX_PATH
./pkg/mnc/mnc_file.F 398 MNC_FILE_CLOSE 
        mnc_f_names(indf)(i:i) = ' '
./pkg/mnc/mnc_file.F 428 MNC_FILE_CLOSE_ALL_MATCHING 
      integer i,n
./pkg/mnc/mnc_file.F 434 MNC_FILE_CLOSE_ALL_MATCHING 
      DO i = 1,MNC_MAX_FID
./pkg/mnc/mnc_file.F 437 MNC_FILE_CLOSE_ALL_MATCHING 
        IF (fname(1:n) .EQ. mnc_f_names(i)(1:n)) THEN
./pkg/mnc/mnc_file.F 438 MNC_FILE_CLOSE_ALL_MATCHING 
          CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid)
./pkg/mnc/mnc_file.F 468 MNC_FILE_CLOSE_ALL 
      integer i
./pkg/mnc/mnc_file.F 471 MNC_FILE_CLOSE_ALL 
      DO i = 1,MNC_MAX_PATH
./pkg/mnc/mnc_file.F 472 MNC_FILE_CLOSE_ALL 
        bpath(i:i) = ' '
./pkg/mnc/mnc_file.F 475 MNC_FILE_CLOSE_ALL 
      DO i = 1,MNC_MAX_FID
./pkg/mnc/mnc_file.F 478 MNC_FILE_CLOSE_ALL 
        IF (mnc_f_names(i)(1:MNC_MAX_PATH)
./pkg/mnc/mnc_file.F 480 MNC_FILE_CLOSE_ALL 
          CALL MNC_FILE_CLOSE(mnc_f_names(i), myThid)
./pkg/mnc/mnc_file.F 658 MNC_FILE_TRY_READ 
      integer i,j,k, fid, err, ndim,nvar,ngat,unlimid
./pkg/mnc/mnc_file.F 703 MNC_FILE_TRY_READ 
        DO i = 1,mnc_f_alld(indf,1)
./pkg/mnc/mnc_file.F 704 MNC_FILE_TRY_READ 
          j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_file.F 727 MNC_FILE_TRY_READ 
        DO i = 1,ndv
./pkg/mnc/mnc_file.F 728 MNC_FILE_TRY_READ 
          did = idlist(i)
./pkg/mnc/mnc_file.F 729 MNC_FILE_TRY_READ 
          dnames(i)(1:MNC_MAX_CHAR) = mnc_d_names(did)(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_file.F 741 MNC_FILE_TRY_READ 
        DO i = 1,mnc_f_info(indf,3)
./pkg/mnc/mnc_file.F 742 MNC_FILE_TRY_READ 
          j = 4 + 3*(i-1)
./pkg/mnc/mnc_grid.F 106 MNC_GRID_INIT_ALL 
      i = ds_last + ndim
./pkg/mnc/mnc_grid.F 108 MNC_GRID_INIT_ALL 
      IF ((i .GE. MNC_MAX_INFO) .OR. (j .GE. MNC_MAX_INFO)) THEN
./pkg/mnc/mnc_grid.F 176 MNC_GRID_INIT_ALL 
      DO i = 1,ndim
./pkg/mnc/mnc_grid.F 178 MNC_GRID_INIT_ALL 
        j = ds_last + i
./pkg/mnc/mnc_grid.F 179 MNC_GRID_INIT_ALL 
        n = ILNBLNK(dnames(i))
./pkg/mnc/mnc_grid.F 189 MNC_GRID_INIT_ALL 
     &         .AND. (dnames(i)(1:n) .EQ. mnc_d_names(jj)(1:kk))) THEN
./pkg/mnc/mnc_grid.F 197 MNC_GRID_INIT_ALL 
     &         dnames(i)(1:n), ''' does not exist for file ''',
./pkg/mnc/mnc_grid.F 241 MNC_GRID_GET_DIMIND 
      integer i,j,k,l, n,n1, ngrid, ds,de
./pkg/mnc/mnc_grid.F 250 MNC_GRID_GET_DIMIND 
      DO i = 1,ngrid
./pkg/mnc/mnc_grid.F 251 MNC_GRID_GET_DIMIND 
        j = 4 + 3*(i - 1)
./pkg/mnc/mnc_grid.F 72 MNC_GRID_INIT_ALL 
      integer i,j,k,ii,jj,kk, n,nf, indf,indg,indd, fid, ngrid
./pkg/mnc/mnc_grid.F 82 MNC_GRID_INIT_ALL 
      DO i =1,MNC_MAX_PATH
./pkg/mnc/mnc_grid.F 83 MNC_GRID_INIT_ALL 
        file_name(i:i) = ' '
./pkg/mnc/mnc_init.F 100 MNC_INIT 
        mnc_cw_cit(3,i) = -1
./pkg/mnc/mnc_init.F 103 MNC_INIT 
      DO i = 1,2
./pkg/mnc/mnc_init.F 104 MNC_INIT 
       mnc_def_imv(i) = UNSET_I
./pkg/mnc/mnc_init.F 105 MNC_INIT 
       mnc_def_rmv(i) = UNSET_FLOAT4
./pkg/mnc/mnc_init.F 106 MNC_INIT 
       mnc_def_dmv(i) = UNSET_FLOAT8
./pkg/mnc/mnc_init.F 31 MNC_INIT 
      integer i,j, g
./pkg/mnc/mnc_init.F 36 MNC_INIT 
      DO i = 1,MNC_MAX_CHAR
./pkg/mnc/mnc_init.F 37 MNC_INIT 
        blank(i:i) = ' '
./pkg/mnc/mnc_init.F 39 MNC_INIT 
      DO i = 1,MNC_MAX_PATH
./pkg/mnc/mnc_init.F 40 MNC_INIT 
        bpath(i:i) = ' '
./pkg/mnc/mnc_init.F 44 MNC_INIT 
      DO i = 1,MNC_MAX_FID
./pkg/mnc/mnc_init.F 45 MNC_INIT 
        mnc_f_names(i)(1:MNC_MAX_PATH) = bpath(1:MNC_MAX_PATH)
./pkg/mnc/mnc_init.F 47 MNC_INIT 
          mnc_f_info(i,j) = 0
./pkg/mnc/mnc_init.F 48 MNC_INIT 
          mnc_fv_ids(i,j) = 0
./pkg/mnc/mnc_init.F 49 MNC_INIT 
          mnc_fd_ind(i,j) = 0
./pkg/mnc/mnc_init.F 50 MNC_INIT 
          mnc_f_alld(i,j) = 0
./pkg/mnc/mnc_init.F 53 MNC_INIT 
      DO i = 1,MNC_MAX_ID
./pkg/mnc/mnc_init.F 54 MNC_INIT 
        mnc_d_size(i) = 0
./pkg/mnc/mnc_init.F 55 MNC_INIT 
        mnc_d_ids(i)  = 0
./pkg/mnc/mnc_init.F 56 MNC_INIT 
        mnc_g_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 57 MNC_INIT 
        mnc_v_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 58 MNC_INIT 
        mnc_d_names(i)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 73 MNC_INIT 
        DO i = 1,MNC_CW_MAX_I
./pkg/mnc/mnc_init.F 74 MNC_INIT 
          mnc_cw_dn(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 75 MNC_INIT 
          mnc_cw_vtnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 76 MNC_INIT 
          mnc_cw_vinm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 77 MNC_INIT 
          mnc_cw_vdnm(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 78 MNC_INIT 
          mnc_cw_vtat(i,g)(1:MNC_MAX_CHAR) = blank(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_init.F 79 MNC_INIT 
          mnc_cw_dims(i,g) = 0
./pkg/mnc/mnc_init.F 80 MNC_INIT 
          mnc_cw_is(i,g) = 0
./pkg/mnc/mnc_init.F 81 MNC_INIT 
          mnc_cw_ie(i,g) = 0
./pkg/mnc/mnc_init.F 82 MNC_INIT 
          mnc_cw_viat(i,g) = 0
./pkg/mnc/mnc_init.F 83 MNC_INIT 
          mnc_cw_vdat(i,g) = 0.0D0
./pkg/mnc/mnc_init.F 85 MNC_INIT 
        DO i = 1,3
./pkg/mnc/mnc_init.F 86 MNC_INIT 
          mnc_cw_vnat(i,g) = 0
./pkg/mnc/mnc_init.F 88 MNC_INIT 
        DO i = 1,2
./pkg/mnc/mnc_init.F 89 MNC_INIT 
           mnc_cw_vbij(i,g) = 0
./pkg/mnc/mnc_init.F 90 MNC_INIT 
           mnc_cw_vmvi(i,g) = 0
./pkg/mnc/mnc_init.F 91 MNC_INIT 
           mnc_cw_vmvr(i,g) = 0.0
./pkg/mnc/mnc_init.F 92 MNC_INIT 
           mnc_cw_vmvd(i,g) = 0.0D0
./pkg/mnc/mnc_init.F 97 MNC_INIT 
      DO i = 1,MNC_MAX_INFO
./pkg/mnc/mnc_init.F 98 MNC_INIT 
        mnc_cw_cit(1,i) = 0
./pkg/mnc/mnc_init.F 99 MNC_INIT 
        mnc_cw_cit(2,i) = 0
./pkg/mnc/mnc_readparms.F 107 MNC_READPARMS 
      DO i=1,MAX_LEN_MBUF
./pkg/mnc/mnc_readparms.F 108 MNC_READPARMS 
        data_file(i:i) = ' '
./pkg/mnc/mnc_readparms.F 156 MNC_READPARMS 
          DO i = 1,MNC_MAX_CHAR
./pkg/mnc/mnc_readparms.F 157 MNC_READPARMS 
            mnc_out_path(i:i) = ' '
./pkg/mnc/mnc_readparms.F 190 MNC_SET_OUTDIR 
      integer i,j,k, ntot, npathd, idate
./pkg/mnc/mnc_readparms.F 209 MNC_SET_OUTDIR 
      DO i = 1,MNC_MAX_PATH
./pkg/mnc/mnc_readparms.F 210 MNC_SET_OUTDIR 
        pathd(i:i) = ' '
./pkg/mnc/mnc_readparms.F 216 MNC_SET_OUTDIR 
      DO i = 1,k
./pkg/mnc/mnc_readparms.F 218 MNC_SET_OUTDIR 
          IF (pathd(i:i) .EQ. cenc(j:j)) THEN
./pkg/mnc/mnc_readparms.F 229 MNC_SET_OUTDIR 
      DO i = 1,MNC_MAX_PATH
./pkg/mnc/mnc_readparms.F 230 MNC_SET_OUTDIR 
        mnc_out_path(i:i) = ' '
./pkg/mnc/mnc_readparms.F 236 MNC_SET_OUTDIR 
        DO i = 1,ntot
./pkg/mnc/mnc_readparms.F 237 MNC_SET_OUTDIR 
          j = ienc(i)
./pkg/mnc/mnc_readparms.F 238 MNC_SET_OUTDIR 
          mnc_out_path(i:i) = cenc(j:j)
./pkg/mnc/mnc_readparms.F 37 MNC_READPARMS 
      integer i, nl, ku
./pkg/mnc/mnc_readparms.F 75 MNC_READPARMS 
      DO i = 1,MAX_LEN_FNAM
./pkg/mnc/mnc_readparms.F 76 MNC_READPARMS 
        mnc_outdir_str(i:i) = ' '
./pkg/mnc/mnc_readparms.F 77 MNC_READPARMS 
        mnc_indir_str(i:i)  = ' '
./model/src/calc_buoyancy.F 35 CALC_BUOYANCY 
      INTEGER i,j
./model/src/calc_buoyancy.F 40 CALC_BUOYANCY 
        DO i=iMin,iMax
./model/src/calc_buoyancy.F 41 CALC_BUOYANCY 
         buoy(i,j)=(theta(i,j,k,bi,bj)-tRef(k))/tRef(k)
./model/src/calc_buoyancy.F 48 CALC_BUOYANCY 
        DO i=iMin,iMax
./model/src/calc_buoyancy.F 49 CALC_BUOYANCY 
         buoy(i,j)=-gravity*recip_rhoConst*rholoc(i,j)
./model/src/calc_buoyancy.F 56 CALC_BUOYANCY 
        DO i=iMin,iMax
./model/src/calc_buoyancy.F 57 CALC_BUOYANCY 
         if ( rholoc(i,j) .ne. 0. ) then
./model/src/calc_buoyancy.F 58 CALC_BUOYANCY 
          rholoc(i,j) = 1./rholoc(i,j)
./model/src/calc_buoyancy.F 59 CALC_BUOYANCY 
          buoy(i,j)=rholoc(i,j)
./pkg/mnc/mnc_utils.F 112 MNC_GET_IND 
      DO i=1,NT
./pkg/mnc/mnc_utils.F 113 MNC_GET_IND 
        nf = ILNBLNK( name_list(i) )
./pkg/mnc/mnc_utils.F 115 MNC_GET_IND 
          IF ( name_list(i)(1:n) .EQ. aname(1:n) ) THEN
./pkg/mnc/mnc_utils.F 116 MNC_GET_IND 
            ind = i
./pkg/mnc/mnc_utils.F 152 MNC_GET_NEXT_EMPTY_IND 
      integer n, i, ind
./pkg/mnc/mnc_utils.F 160 MNC_GET_NEXT_EMPTY_IND 
      DO i=1,NT
./pkg/mnc/mnc_utils.F 161 MNC_GET_NEXT_EMPTY_IND 
        n = ILNBLNK( name_list(i) )
./pkg/mnc/mnc_utils.F 163 MNC_GET_NEXT_EMPTY_IND 
          ind = i
./pkg/mnc/mnc_utils.F 211 MNC_GET_FVINDS 
      integer i,j,k, n, lenv
./pkg/mnc/mnc_utils.F 228 MNC_GET_FVINDS 
      DO i = 1,mnc_fv_ids(indf,1)
./pkg/mnc/mnc_utils.F 229 MNC_GET_FVINDS 
        k = 2 + 3*(i - 1)
./pkg/mnc/mnc_utils.F 348 MNC_PSNCM 
      INTEGER i, lens, nmin
./pkg/mnc/mnc_utils.F 352 MNC_PSNCM 
      DO i = 1,lens
./pkg/mnc/mnc_utils.F 353 MNC_PSNCM 
        ostring(i:i) = ' '
./pkg/mnc/mnc_utils.F 356 MNC_PSNCM 
      DO i = 1,25
./pkg/mnc/mnc_utils.F 357 MNC_PSNCM 
        IF (tmp(i:i) .NE. '0') THEN
./pkg/mnc/mnc_utils.F 358 MNC_PSNCM 
          nmin = 26 - i
./pkg/mnc/mnc_utils.F 40 MNC_HANDLE_ERR 
      integer i,lenm
./pkg/mnc/mnc_utils.F 46 MNC_HANDLE_ERR 
      DO i = 1,MAX_LEN_MBUF
./pkg/mnc/mnc_utils.F 47 MNC_HANDLE_ERR 
        msgbuf(i:i) = ' '
./pkg/mnc/mnc_utils.F 95 MNC_GET_IND 
      integer n, i, nf, ind, lenm
./pkg/mnc/mnc_var.F 145 MNC_VAR_INIT_ANY 
      INTEGER i,j,k, n, nf, indf,indv, fid, nd, ngrid, is,ie, err
./pkg/mnc/mnc_var.F 185 MNC_VAR_INIT_ANY 
      DO i = 1,ngrid
./pkg/mnc/mnc_var.F 186 MNC_VAR_INIT_ANY 
        j = 4 + (i-1)*3
./pkg/mnc/mnc_var.F 210 MNC_VAR_INIT_ANY 
      DO i = 1,nvar
./pkg/mnc/mnc_var.F 211 MNC_VAR_INIT_ANY 
        j = 2 + 3*(i-1)
./pkg/mnc/mnc_var.F 253 MNC_VAR_INIT_ANY 
      i = 2 + nv*3
./pkg/mnc/mnc_var.F 254 MNC_VAR_INIT_ANY 
      mnc_fv_ids(indf,i)   = indv
./pkg/mnc/mnc_var.F 255 MNC_VAR_INIT_ANY 
      mnc_fv_ids(indf,i+1) = vid
./pkg/mnc/mnc_var.F 256 MNC_VAR_INIT_ANY 
      mnc_fv_ids(indf,i+2) = ind_g_finfo
./pkg/mnc/mnc_var.F 680 MNC_VAR_WRITE_ANY 
      INTEGER i,j,k, n, indf,ind_fv_ids, fid,vid,did, ig, err, ds,de
./pkg/mnc/mnc_var.F 705 MNC_VAR_WRITE_ANY 
      DO i = ds,de
./pkg/mnc/mnc_var.F 708 MNC_VAR_WRITE_ANY 
        vcount(k) = mnc_d_size( mnc_fd_ind(indf,i) )
./pkg/mom_common/mom_calc_absvort3.F 30 MOM_CALC_ABSVORT3 
      INTEGER i,j
./pkg/mom_common/mom_calc_absvort3.F 45 MOM_CALC_ABSVORT3 
       DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_calc_absvort3.F 47 MOM_CALC_ABSVORT3 
     &      fCoriG(i,j,bi,bj)*useCoriolisFac
./pkg/mom_common/mom_calc_absvort3.F 48 MOM_CALC_ABSVORT3 
     &     +vort3(i,j)*nonLinFac
./pkg/mom_common/mom_calc_hdiv.F 31 MOM_CALC_HDIV 
      INTEGER i,j
./pkg/mom_common/mom_calc_hdiv.F 39 MOM_CALC_HDIV 
     &       uFld(i+1, j )*dyg(i+1, j ,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 40 MOM_CALC_HDIV 
     &      -uFld( i , j )*dyg( i , j ,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 41 MOM_CALC_HDIV 
     &      +vFld( i ,j+1)*dxg( i ,j+1,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 42 MOM_CALC_HDIV 
     &      -vFld( i , j )*dxg( i , j ,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 53 MOM_CALC_HDIV 
     &    ( ( uFld(i+1, j )*dyg(i+1, j ,bi,bj)*hFacW(i+1, j ,K,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 54 MOM_CALC_HDIV 
     &       -uFld( i , j )*dyg( i , j ,bi,bj)*hFacW( i , j ,K,bi,bj) )
./pkg/mom_common/mom_calc_hdiv.F 55 MOM_CALC_HDIV 
     &     +( vFld( i ,j+1)*dxg( i ,j+1,bi,bj)*hFacS( i ,j+1,K,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 56 MOM_CALC_HDIV 
     &       -vFld( i , j )*dxg( i , j ,bi,bj)*hFacS( i , j ,K,bi,bj) )
./pkg/mom_common/mom_calc_hdiv.F 58 MOM_CALC_HDIV 
     &     *_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 100 MOM_CALC_HFACZ 
        hFacZ(i,j)     =0.
./pkg/mom_common/mom_calc_hfacz.F 101 MOM_CALC_HFACZ 
        r_hFacZ(i,j)   =0.
./pkg/mom_common/mom_calc_hfacz.F 102 MOM_CALC_HFACZ 
        hFacZOpen(i,j) =0.
./pkg/mom_common/mom_calc_hfacz.F 103 MOM_CALC_HFACZ 
        hFacZOpenJ(i,j)=0.
./pkg/mom_common/mom_calc_hfacz.F 104 MOM_CALC_HFACZ 
        hFacZOpenJ(i,j)=0.
./pkg/mom_common/mom_calc_hfacz.F 113 MOM_CALC_HFACZ 
       DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 114 MOM_CALC_HFACZ 
        hFacZOpenJ(i,j)=
./pkg/mom_common/mom_calc_hfacz.F 116 MOM_CALC_HFACZ 
     &       smoothMin_R4(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 118 MOM_CALC_HFACZ 
     &                MIN(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 120 MOM_CALC_HFACZ 
     &                    _hFacW(i  ,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 121 MOM_CALC_HFACZ 
     &       *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 122 MOM_CALC_HFACZ 
        hFacZOpenI(i,j)=
./pkg/mom_common/mom_calc_hfacz.F 124 MOM_CALC_HFACZ 
     &       smoothMin_R4(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 126 MOM_CALC_HFACZ 
     &                MIN(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 128 MOM_CALC_HFACZ 
     &                    _hFacS(i-1,j  ,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 129 MOM_CALC_HFACZ 
     &         *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 139 MOM_CALC_HFACZ 
       DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 140 MOM_CALC_HFACZ 
        hFacZ(i,j) =
./pkg/mom_common/mom_calc_hfacz.F 142 MOM_CALC_HFACZ 
     &       smoothMin_R4(hFacZOpenI(i,j),hFacZOpenJ(i,j))
./pkg/mom_common/mom_calc_hfacz.F 144 MOM_CALC_HFACZ 
     &                MIN(hFacZOpenI(i,j),hFacZOpenJ(i,j))
./pkg/mom_common/mom_calc_hfacz.F 146 MOM_CALC_HFACZ 
     &         *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 147 MOM_CALC_HFACZ 
     &         *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 156 MOM_CALC_HFACZ 
       DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 157 MOM_CALC_HFACZ 
        IF (hFacZ(i,j).EQ.0.) THEN
./pkg/mom_common/mom_calc_hfacz.F 158 MOM_CALC_HFACZ 
         r_hFacZ(i,j)=0.
./pkg/mom_common/mom_calc_hfacz.F 160 MOM_CALC_HFACZ 
         r_hFacZ(i,j)=1./hFacZ(i,j)
./pkg/mom_common/mom_calc_hfacz.F 182 MOM_CALC_HFACZ 
      DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 183 MOM_CALC_HFACZ 
        hFacZ(i,1-Oly)=0.
./pkg/mom_common/mom_calc_hfacz.F 193 MOM_CALC_HFACZ 
         DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 201 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 202 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 203 MOM_CALC_HFACZ 
     &             + ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 204 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 205 MOM_CALC_HFACZ 
          hFacZ(i,j) = 0.25 _d 0 * hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 210 MOM_CALC_HFACZ 
         DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 219 MOM_CALC_HFACZ 
     &                  _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 220 MOM_CALC_HFACZ 
     &                + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 221 MOM_CALC_HFACZ 
     &                , _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 222 MOM_CALC_HFACZ 
     &                + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 224 MOM_CALC_HFACZ 
          hFacZ(i,j) = 0.5 _d 0 * hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 229 MOM_CALC_HFACZ 
         DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 230 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 231 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 232 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 233 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 234 MOM_CALC_HFACZ 
          hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 264 MOM_CALC_HFACZ 
         i=1
./pkg/mom_common/mom_calc_hfacz.F 267 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 268 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 269 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 270 MOM_CALC_HFACZ 
          hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 274 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 275 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 276 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 279 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 280 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 281 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 283 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 292 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 293 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 294 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 295 MOM_CALC_HFACZ 
          hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 299 MOM_CALC_HFACZ 
     &               ( _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 300 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 301 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 304 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 305 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 306 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 309 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 310 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 311 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 313 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 318 MOM_CALC_HFACZ 
         i=1
./pkg/mom_common/mom_calc_hfacz.F 322 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 323 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 324 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 325 MOM_CALC_HFACZ 
          hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 329 MOM_CALC_HFACZ 
     &               ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 330 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 331 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 334 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 335 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 336 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 339 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 340 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 341 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 343 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 348 MOM_CALC_HFACZ 
         i=sNx+1
./pkg/mom_common/mom_calc_hfacz.F 351 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 352 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 353 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 354 MOM_CALC_HFACZ 
          hFacZ(i,j)=hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 358 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 359 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 360 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 363 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 364 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 365 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 367 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 376 MOM_CALC_HFACZ 
       DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_calc_hfacz.F 377 MOM_CALC_HFACZ 
        IF (hFacZ(i,j).EQ.0.) THEN
./pkg/mom_common/mom_calc_hfacz.F 378 MOM_CALC_HFACZ 
         r_hFacZ(i,j) = 0.
./pkg/mom_common/mom_calc_hfacz.F 380 MOM_CALC_HFACZ 
         r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j)
./pkg/mom_common/mom_calc_hfacz.F 99 MOM_CALC_HFACZ 
       DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_calc_ke.F 101 MOM_CALC_KE 
         KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F 102 MOM_CALC_KE 
     &           ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 103 MOM_CALC_KE 
     &            +uFld(i+1, j )*uFld(i+1, j )*_hFacW(i+1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 104 MOM_CALC_KE 
     &         + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 105 MOM_CALC_KE 
     &            +vFld( i ,j+1)*vFld( i ,j+1)*_hFacS(i,j+1,k,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 106 MOM_CALC_KE 
     &            )*_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 114 MOM_CALC_KE 
         KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F 116 MOM_CALC_KE 
     &    uFld(i, j )*uFld(i, j )
./pkg/mom_common/mom_calc_ke.F 117 MOM_CALC_KE 
     &        *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 118 MOM_CALC_KE 
     &   +uFld(i+1,j)*uFld(i+1,j)
./pkg/mom_common/mom_calc_ke.F 119 MOM_CALC_KE 
     &        *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 122 MOM_CALC_KE 
     &    vFld(i, j )*vFld(i, j )
./pkg/mom_common/mom_calc_ke.F 123 MOM_CALC_KE 
     &        *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 124 MOM_CALC_KE 
     &   +vFld(i,j+1)*vFld(i,j+1)
./pkg/mom_common/mom_calc_ke.F 125 MOM_CALC_KE 
     &        *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj)
./pkg/mom_common/mom_calc_ke.F 126 MOM_CALC_KE 
     &           )      )*_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 127 MOM_CALC_KE 
     &                   * recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 59 MOM_CALC_KE 
         KE(i,j) = 0.125*(
./pkg/mom_common/mom_calc_ke.F 60 MOM_CALC_KE 
     &             ( uFld(i,j)+uFld(i+1, j ) )**2
./pkg/mom_common/mom_calc_ke.F 61 MOM_CALC_KE 
     &            +( vFld(i,j)+vFld( i ,j+1) )**2 )
./pkg/mom_common/mom_calc_ke.F 74 MOM_CALC_KE 
         KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F 75 MOM_CALC_KE 
     &           ( uFld( i , j )*uFld( i , j )
./pkg/mom_common/mom_calc_ke.F 76 MOM_CALC_KE 
     &            +uFld(i+1, j )*uFld(i+1, j ) )
./pkg/mom_common/mom_calc_ke.F 77 MOM_CALC_KE 
     &         + ( vFld( i , j )*vFld( i , j )
./pkg/mom_common/mom_calc_ke.F 78 MOM_CALC_KE 
     &            +vFld( i ,j+1)*vFld( i ,j+1) )
./pkg/mom_common/mom_calc_ke.F 87 MOM_CALC_KE 
         KE(i,j) = 0.25*(
./pkg/mom_common/mom_calc_ke.F 88 MOM_CALC_KE 
     &           ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 89 MOM_CALC_KE 
     &            +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 90 MOM_CALC_KE 
     &         + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 91 MOM_CALC_KE 
     &            +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 92 MOM_CALC_KE 
     &                  )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 138 MOM_CALC_RELVORT3 
     &     *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 139 MOM_CALC_RELVORT3 
     &     *maskW(i-1,j,k,bi,bj)*maskS(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 195 MOM_CALC_RELVORT3 
     &     *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 196 MOM_CALC_RELVORT3 
     &     *maskW(i+1,j,k,bi,bj)*maskS(i-1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 252 MOM_CALC_RELVORT3 
     &     *maskS(i-1,j,k,bi,bj)*maskS(i-2,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 253 MOM_CALC_RELVORT3 
     &     *maskS(i,j+1,k,bi,bj)*maskW(i-1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 302 MOM_CALC_RELVORT3 
     &     *maskS(i+1,j,k,bi,bj)*maskS(i-0,j,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 303 MOM_CALC_RELVORT3 
     &     *maskS(i-1,j+1,k,bi,bj)*maskW(i+1,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 37 MOM_CALC_RELVORT3 
      INTEGER i,j
./pkg/mom_common/mom_calc_strain.F 50 MOM_CALC_STRAIN 
      INTEGER i,j
./pkg/mom_common/mom_calc_strain.F 58 MOM_CALC_STRAIN 
     &    ( dyc( i , j ,bi,bj)*vFld( i , j )
./pkg/mom_common/mom_calc_strain.F 59 MOM_CALC_STRAIN 
     &     -dyc(i-1, j ,bi,bj)*vFld(i-1, j )
./pkg/mom_common/mom_calc_strain.F 60 MOM_CALC_STRAIN 
     &     +dxc( i , j ,bi,bj)*uFld( i , j )
./pkg/mom_common/mom_calc_strain.F 61 MOM_CALC_STRAIN 
     &     -dxc( i ,j-1,bi,bj)*uFld( i ,j-1) )*recip_rAz(i,j,bi,bj)
./model/src/calc_common_factors.F 100 CALC_COMMON_FACTORS 
         vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k)
./model/src/calc_common_factors.F 62 CALC_COMMON_FACTORS 
      INTEGER i,j
./model/src/calc_common_factors.F 79 CALC_COMMON_FACTORS 
       DO i=1-OLx,sNx+OLx
./model/src/calc_common_factors.F 80 CALC_COMMON_FACTORS 
         xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_common_factors.F 81 CALC_COMMON_FACTORS 
     &           *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/calc_common_factors.F 82 CALC_COMMON_FACTORS 
         yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_common_factors.F 83 CALC_COMMON_FACTORS 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/calc_common_factors.F 89 CALC_COMMON_FACTORS 
       DO i=1-OLx,sNx+OLx
./model/src/calc_common_factors.F 90 CALC_COMMON_FACTORS 
         uFld(i,j) = uVel(i,j,k,bi,bj)
./model/src/calc_common_factors.F 91 CALC_COMMON_FACTORS 
         vFld(i,j) = vVel(i,j,k,bi,bj)
./model/src/calc_common_factors.F 98 CALC_COMMON_FACTORS 
       DO i=1-OLx,sNx+OLx
./model/src/calc_common_factors.F 99 CALC_COMMON_FACTORS 
         uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k)
./pkg/mom_common/mom_calc_tension.F 46 MOM_CALC_TENSION 
      INTEGER i,j
./pkg/mom_common/mom_calc_tension.F 50 MOM_CALC_TENSION 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_calc_tension.F 54 MOM_CALC_TENSION 
        tension(i,j)=
./pkg/mom_common/mom_calc_tension.F 55 MOM_CALC_TENSION 
     &    ( dyg(i+1, j ,bi,bj)*uFld(i+1, j )
./pkg/mom_common/mom_calc_tension.F 56 MOM_CALC_TENSION 
     &     -dyg( i , j ,bi,bj)*uFld( i , j )
./pkg/mom_common/mom_calc_tension.F 57 MOM_CALC_TENSION 
     &     -dxg( i ,j+1,bi,bj)*vFld( i ,j+1)
./pkg/mom_common/mom_calc_tension.F 58 MOM_CALC_TENSION 
     &     +dxg( i , j ,bi,bj)*vFld( i , j ) )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 262 MOM_CALC_VISC 
        DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_calc_visc.F 263 MOM_CALC_VISC 
          viscAh_D(i,j)=viscAhD
./pkg/mom_common/mom_calc_visc.F 264 MOM_CALC_VISC 
          viscAh_Z(i,j)=viscAhZ
./pkg/mom_common/mom_calc_visc.F 265 MOM_CALC_VISC 
          viscA4_D(i,j)=viscA4D
./pkg/mom_common/mom_calc_visc.F 266 MOM_CALC_VISC 
          viscA4_Z(i,j)=viscA4Z
./pkg/mom_common/mom_calc_visc.F 268 MOM_CALC_VISC 
          visca4_zsmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 269 MOM_CALC_VISC 
          viscah_zsmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 271 MOM_CALC_VISC 
          viscAh_Dlth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 272 MOM_CALC_VISC 
          viscA4_Dlth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 273 MOM_CALC_VISC 
          viscAh_DlthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 274 MOM_CALC_VISC 
          viscA4_DlthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 276 MOM_CALC_VISC 
          viscAh_DSmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 277 MOM_CALC_VISC 
          viscA4_DSmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 279 MOM_CALC_VISC 
          viscAh_ZLth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 280 MOM_CALC_VISC 
          viscA4_ZLth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 281 MOM_CALC_VISC 
          viscAh_ZLthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 282 MOM_CALC_VISC 
          viscA4_ZLthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 288 MOM_CALC_VISC 
        DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_calc_visc.F 289 MOM_CALC_VISC 
          divDx(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F 290 MOM_CALC_VISC 
          divDy(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F 291 MOM_CALC_VISC 
          vrtDx(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F 292 MOM_CALC_VISC 
          vrtDy(i,j) = 0.
./pkg/mom_common/mom_calc_visc.F 308 MOM_CALC_VISC 
          DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_calc_visc.F 309 MOM_CALC_VISC 
            divDx(i,j) = (hDiv(i,j)-hDiv(i-1,j))*recip_DXC(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 322 MOM_CALC_VISC 
          DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_calc_visc.F 323 MOM_CALC_VISC 
            divDy(i,j) = (hDiv(i,j)-hDiv(i,j-1))*recip_DYC(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 330 MOM_CALC_VISC 
          DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_calc_visc.F 331 MOM_CALC_VISC 
            vrtDx(i,j) = (vort3(i+1,j)-vort3(i,j))
./pkg/mom_common/mom_calc_visc.F 332 MOM_CALC_VISC 
     &                  *recip_DXG(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 333 MOM_CALC_VISC 
     &                  *maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 338 MOM_CALC_VISC 
          DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_calc_visc.F 339 MOM_CALC_VISC 
            vrtDy(i,j) = (vort3(i,j+1)-vort3(i,j))
./pkg/mom_common/mom_calc_visc.F 340 MOM_CALC_VISC 
     &                  *recip_DYG(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 341 MOM_CALC_VISC 
     &                  *maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 348 MOM_CALC_VISC 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_calc_visc.F 353 MOM_CALC_VISC 
           lockey_2 = i+olx + (sNx+2*olx)*(j+oly-1)
./pkg/mom_common/mom_calc_visc.F 363 MOM_CALC_VISC 
         L2 = L2_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 365 MOM_CALC_VISC 
         L3 = L3_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 366 MOM_CALC_VISC 
         L4rdt = L4rdt_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 371 MOM_CALC_VISC 
         IF ( viscAhRe_max.GT.0. .AND. KE(i,j).GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F 372 MOM_CALC_VISC 
           Uscl=SQRT(KE(i,j)*L2)*viscAhRe_max
./pkg/mom_common/mom_calc_visc.F 376 MOM_CALC_VISC 
         IF ( viscA4Re_max.GT.0. .AND. KE(i,j).GT.0. ) THEN
./pkg/mom_common/mom_calc_visc.F 377 MOM_CALC_VISC 
           U4scl=SQRT(KE(i,j))*L3*viscA4Re_max
./pkg/mom_common/mom_calc_visc.F 387 MOM_CALC_VISC 
          grdVrt=0.25 _d 0*( (vrtDx(i,j+1)*vrtDx(i,j+1)
./pkg/mom_common/mom_calc_visc.F 388 MOM_CALC_VISC 
     &                        + vrtDx(i,j)*vrtDx(i,j) )
./pkg/mom_common/mom_calc_visc.F 389 MOM_CALC_VISC 
     &                     + (vrtDy(i+1,j)*vrtDy(i+1,j)
./pkg/mom_common/mom_calc_visc.F 390 MOM_CALC_VISC 
     &                        + vrtDy(i,j)*vrtDy(i,j) )  )
./pkg/mom_common/mom_calc_visc.F 394 MOM_CALC_VISC 
          grdDiv=0.25 _d 0*( (divDx(i+1,j)*divDx(i+1,j)
./pkg/mom_common/mom_calc_visc.F 395 MOM_CALC_VISC 
     &                        + divDx(i,j)*divDx(i,j) )
./pkg/mom_common/mom_calc_visc.F 396 MOM_CALC_VISC 
     &                     + (divDy(i,j+1)*divDy(i,j+1)
./pkg/mom_common/mom_calc_visc.F 397 MOM_CALC_VISC 
     &                        + divDy(i,j)*divDy(i,j) )  )
./pkg/mom_common/mom_calc_visc.F 399 MOM_CALC_VISC 
          viscAh_DLth(i,j)=
./pkg/mom_common/mom_calc_visc.F 401 MOM_CALC_VISC 
          viscA4_DLth(i,j)=
./pkg/mom_common/mom_calc_visc.F 403 MOM_CALC_VISC 
          viscAh_DLthd(i,j)=
./pkg/mom_common/mom_calc_visc.F 405 MOM_CALC_VISC 
          viscA4_DLthd(i,j)=
./pkg/mom_common/mom_calc_visc.F 410 MOM_CALC_VISC 
          grdVrt=MAX( ABS(vrtDx(i,j+1)), ABS(vrtDx(i,j)) )
./pkg/mom_common/mom_calc_visc.F 411 MOM_CALC_VISC 
          grdVrt=MAX( grdVrt, ABS(vrtDy(i+1,j)) )
./pkg/mom_common/mom_calc_visc.F 412 MOM_CALC_VISC 
          grdVrt=MAX( grdVrt, ABS(vrtDy(i,j))   )
./pkg/mom_common/mom_calc_visc.F 415 MOM_CALC_VISC 
          grdDiv=MAX( ABS(divDx(i+1,j)), ABS(divDx(i,j)) )
./pkg/mom_common/mom_calc_visc.F 416 MOM_CALC_VISC 
          grdDiv=MAX( grdDiv, ABS(divDy(i,j+1)) )
./pkg/mom_common/mom_calc_visc.F 417 MOM_CALC_VISC 
          grdDiv=MAX( grdDiv, ABS(divDy(i,j))   )
./pkg/mom_common/mom_calc_visc.F 419 MOM_CALC_VISC 
          viscAh_Dlth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3
./pkg/mom_common/mom_calc_visc.F 420 MOM_CALC_VISC 
          viscA4_Dlth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5
./pkg/mom_common/mom_calc_visc.F 421 MOM_CALC_VISC 
          viscAh_DlthD(i,j)=((leithD2fac*grdDiv))*L3
./pkg/mom_common/mom_calc_visc.F 422 MOM_CALC_VISC 
          viscA4_DlthD(i,j)=((leithD4fac*grdDiv))*L5
./pkg/mom_common/mom_calc_visc.F 424 MOM_CALC_VISC 
          viscAh_Dlth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 425 MOM_CALC_VISC 
          viscA4_Dlth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 426 MOM_CALC_VISC 
          viscAh_DlthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 427 MOM_CALC_VISC 
          viscA4_DlthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 431 MOM_CALC_VISC 
          viscAh_DSmg(i,j)=L2
./pkg/mom_common/mom_calc_visc.F 432 MOM_CALC_VISC 
     &       *SQRT(tension(i,j)**2
./pkg/mom_common/mom_calc_visc.F 433 MOM_CALC_VISC 
     &       +0.25 _d 0*(strain(i+1, j )**2+strain( i ,j+1)**2
./pkg/mom_common/mom_calc_visc.F 434 MOM_CALC_VISC 
     &                  +strain(i  , j )**2+strain(i+1,j+1)**2))
./pkg/mom_common/mom_calc_visc.F 435 MOM_CALC_VISC 
          viscA4_DSmg(i,j)=smag4fac*L2*viscAh_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 436 MOM_CALC_VISC 
          viscAh_DSmg(i,j)=smag2fac*viscAh_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 438 MOM_CALC_VISC 
          viscAh_DSmg(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 439 MOM_CALC_VISC 
          viscA4_DSmg(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 445 MOM_CALC_VISC 
     &          +viscAh_DLth(i,j)+viscAh_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 447 MOM_CALC_VISC 
     &          +viscAhDfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 449 MOM_CALC_VISC 
         viscAh_DMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl)
./pkg/mom_common/mom_calc_visc.F 450 MOM_CALC_VISC 
         viscAh_D(i,j)=MAX(viscAh_DMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F 451 MOM_CALC_VISC 
         viscAh_DMax(i,j)=MIN(viscAhGridMax*L2rdt,viscAhMax)
./pkg/mom_common/mom_calc_visc.F 452 MOM_CALC_VISC 
         viscAh_D(i,j)=MIN(viscAh_DMax(i,j),viscAh_D(i,j))
./pkg/mom_common/mom_calc_visc.F 456 MOM_CALC_VISC 
     &          +viscA4_DLth(i,j)+viscA4_DSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 458 MOM_CALC_VISC 
     &          +viscA4Dfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 460 MOM_CALC_VISC 
         viscA4_DMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F 461 MOM_CALC_VISC 
         viscA4_D(i,j)=MAX(viscA4_DMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F 462 MOM_CALC_VISC 
         viscA4_DMax(i,j)=MIN(viscA4GridMax*L4rdt,viscA4Max)
./pkg/mom_common/mom_calc_visc.F 463 MOM_CALC_VISC 
         viscA4_D(i,j)=MIN(viscA4_DMax(i,j),viscA4_D(i,j))
./pkg/mom_common/mom_calc_visc.F 472 MOM_CALC_VISC 
          viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 473 MOM_CALC_VISC 
          viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 476 MOM_CALC_VISC 
          viscAh_W(i,j,k,bi,bj)=viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 477 MOM_CALC_VISC 
          viscA4_W(i,j,k,bi,bj)=viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 480 MOM_CALC_VISC 
          viscAh_W(i,j,k,bi,bj)=viscAh_W(i,j,k,bi,bj)+0.5*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 481 MOM_CALC_VISC 
          viscA4_W(i,j,k,bi,bj)=viscA4_W(i,j,k,bi,bj)+0.5*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 485 MOM_CALC_VISC 
          viscAh_W(i,j,kp1,bi,bj)=0.5*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 486 MOM_CALC_VISC 
          viscA4_W(i,j,kp1,bi,bj)=0.5*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 489 MOM_CALC_VISC 
          viscAh_W(i,j,k,bi,bj)=viscAh_W(i,j,k,bi,bj)+0.5*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 490 MOM_CALC_VISC 
          viscA4_W(i,j,k,bi,bj)=viscA4_W(i,j,k,bi,bj)+0.5*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 497 MOM_CALC_VISC 
         L2 = L2_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 499 MOM_CALC_VISC 
         L3 = L3_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 500 MOM_CALC_VISC 
         L4rdt = L4rdt_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 506 MOM_CALC_VISC 
           keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1))
./pkg/mom_common/mom_calc_visc.F 507 MOM_CALC_VISC 
     &                      +(KE(i-1,j)+KE(i,j-1)) )
./pkg/mom_common/mom_calc_visc.F 524 MOM_CALC_VISC 
          grdVrt=0.25 _d 0*( (vrtDx(i-1,j)*vrtDx(i-1,j)
./pkg/mom_common/mom_calc_visc.F 525 MOM_CALC_VISC 
     &                        + vrtDx(i,j)*vrtDx(i,j) )
./pkg/mom_common/mom_calc_visc.F 526 MOM_CALC_VISC 
     &                     + (vrtDy(i,j-1)*vrtDy(i,j-1)
./pkg/mom_common/mom_calc_visc.F 527 MOM_CALC_VISC 
     &                        + vrtDy(i,j)*vrtDy(i,j) )  )
./pkg/mom_common/mom_calc_visc.F 530 MOM_CALC_VISC 
          grdDiv=0.25 _d 0*( (divDx(i,j-1)*divDx(i,j-1)
./pkg/mom_common/mom_calc_visc.F 531 MOM_CALC_VISC 
     &                        + divDx(i,j)*divDx(i,j) )
./pkg/mom_common/mom_calc_visc.F 532 MOM_CALC_VISC 
     &                     + (divDy(i-1,j)*divDy(i-1,j)
./pkg/mom_common/mom_calc_visc.F 533 MOM_CALC_VISC 
     &                        + divDy(i,j)*divDy(i,j) )  )
./pkg/mom_common/mom_calc_visc.F 535 MOM_CALC_VISC 
          viscAh_ZLth(i,j)=
./pkg/mom_common/mom_calc_visc.F 537 MOM_CALC_VISC 
          viscA4_ZLth(i,j)=
./pkg/mom_common/mom_calc_visc.F 539 MOM_CALC_VISC 
          viscAh_ZLthD(i,j)=
./pkg/mom_common/mom_calc_visc.F 541 MOM_CALC_VISC 
          viscA4_ZLthD(i,j)=
./pkg/mom_common/mom_calc_visc.F 546 MOM_CALC_VISC 
          grdVrt=MAX( ABS(vrtDx(i-1,j)), ABS(vrtDx(i,j)) )
./pkg/mom_common/mom_calc_visc.F 547 MOM_CALC_VISC 
          grdVrt=MAX( grdVrt, ABS(vrtDy(i,j-1)) )
./pkg/mom_common/mom_calc_visc.F 548 MOM_CALC_VISC 
          grdVrt=MAX( grdVrt, ABS(vrtDy(i,j))   )
./pkg/mom_common/mom_calc_visc.F 550 MOM_CALC_VISC 
          grdDiv=MAX( ABS(divDx(i,j)), ABS(divDx(i,j-1)) )
./pkg/mom_common/mom_calc_visc.F 551 MOM_CALC_VISC 
          grdDiv=MAX( grdDiv, ABS(divDy(i,j))   )
./pkg/mom_common/mom_calc_visc.F 552 MOM_CALC_VISC 
          grdDiv=MAX( grdDiv, ABS(divDy(i-1,j)) )
./pkg/mom_common/mom_calc_visc.F 554 MOM_CALC_VISC 
          viscAh_ZLth(i,j)=(leith2fac*grdVrt+(leithD2fac*grdDiv))*L3
./pkg/mom_common/mom_calc_visc.F 555 MOM_CALC_VISC 
          viscA4_ZLth(i,j)=(leith4fac*grdVrt+(leithD4fac*grdDiv))*L5
./pkg/mom_common/mom_calc_visc.F 556 MOM_CALC_VISC 
          viscAh_ZLthD(i,j)=(leithD2fac*grdDiv)*L3
./pkg/mom_common/mom_calc_visc.F 557 MOM_CALC_VISC 
          viscA4_ZLthD(i,j)=(leithD4fac*grdDiv)*L5
./pkg/mom_common/mom_calc_visc.F 559 MOM_CALC_VISC 
          viscAh_ZLth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 560 MOM_CALC_VISC 
          viscA4_ZLth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 561 MOM_CALC_VISC 
          viscAh_ZLthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 562 MOM_CALC_VISC 
          viscA4_ZLthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 566 MOM_CALC_VISC 
          viscAh_ZSmg(i,j)=L2
./pkg/mom_common/mom_calc_visc.F 567 MOM_CALC_VISC 
     &      *SQRT(strain(i,j)**2
./pkg/mom_common/mom_calc_visc.F 568 MOM_CALC_VISC 
     &        +0.25 _d 0*(tension( i , j )**2+tension( i ,j-1)**2
./pkg/mom_common/mom_calc_visc.F 569 MOM_CALC_VISC 
     &                   +tension(i-1, j )**2+tension(i-1,j-1)**2))
./pkg/mom_common/mom_calc_visc.F 570 MOM_CALC_VISC 
          viscA4_ZSmg(i,j)=smag4fac*L2*viscAh_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 571 MOM_CALC_VISC 
          viscAh_ZSmg(i,j)=smag2fac*viscAh_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 577 MOM_CALC_VISC 
     &           +viscAh_ZLth(i,j)+viscAh_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 579 MOM_CALC_VISC 
     &          +viscAhZfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 581 MOM_CALC_VISC 
         viscAh_ZMin(i,j)=MAX(viscAhGridMin*L2rdt,Uscl)
./pkg/mom_common/mom_calc_visc.F 582 MOM_CALC_VISC 
         viscAh_Z(i,j)=MAX(viscAh_ZMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F 583 MOM_CALC_VISC 
         viscAh_ZMax(i,j)=MIN(viscAhGridMax*L2rdt,viscAhMax)
./pkg/mom_common/mom_calc_visc.F 584 MOM_CALC_VISC 
         viscAh_Z(i,j)=MIN(viscAh_ZMax(i,j),viscAh_Z(i,j))
./pkg/mom_common/mom_calc_visc.F 588 MOM_CALC_VISC 
     &           +viscA4_ZLth(i,j)+viscA4_ZSmg(i,j)
./pkg/mom_common/mom_calc_visc.F 590 MOM_CALC_VISC 
     &          +viscA4Zfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 592 MOM_CALC_VISC 
         viscA4_ZMin(i,j)=MAX(viscA4GridMin*L4rdt,U4scl)
./pkg/mom_common/mom_calc_visc.F 593 MOM_CALC_VISC 
         viscA4_Z(i,j)=MAX(viscA4_ZMin(i,j),Alin)
./pkg/mom_common/mom_calc_visc.F 594 MOM_CALC_VISC 
         viscA4_ZMax(i,j)=MIN(viscA4GridMax*L4rdt,viscA4Max)
./pkg/mom_common/mom_calc_visc.F 595 MOM_CALC_VISC 
         viscA4_Z(i,j)=MIN(viscA4_ZMax(i,j),viscA4_Z(i,j))
./pkg/mom_common/mom_calc_visc.F 603 MOM_CALC_VISC 
        DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_calc_visc.F 604 MOM_CALC_VISC 
         viscAh_D(i,j)=viscAhD
./pkg/mom_common/mom_calc_visc.F 605 MOM_CALC_VISC 
         viscAh_Z(i,j)=viscAhZ
./pkg/mom_common/mom_calc_visc.F 606 MOM_CALC_VISC 
         viscA4_D(i,j)=viscA4D
./pkg/mom_common/mom_calc_visc.F 607 MOM_CALC_VISC 
         viscA4_Z(i,j)=viscA4Z
./pkg/mom_common/mom_hdissip.F 50 MOM_HDISSIP 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_hdissip.F 52 MOM_HDISSIP 
         uDissip(i,j) =
./pkg/mom_common/mom_hdissip.F 53 MOM_HDISSIP 
     &    recip_dyg(i,j,bi,bj)*recip_dyg(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 54 MOM_HDISSIP 
     &    *recip_dxc(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 56 MOM_HDISSIP 
     &       dyf( i , j ,bi,bj)*dyf( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 57 MOM_HDISSIP 
     &         *viscAh_t( i , j )*tension( i , j )
./pkg/mom_common/mom_hdissip.F 58 MOM_HDISSIP 
     &      -dyf(i-1, j ,bi,bj)*dyf(i-1, j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 59 MOM_HDISSIP 
     &         *viscAh_t(i-1, j )*tension(i-1, j )
./pkg/mom_common/mom_hdissip.F 61 MOM_HDISSIP 
     &    +recip_dxc(i,j,bi,bj)*recip_dxc(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 62 MOM_HDISSIP 
     &    *recip_dyg(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 64 MOM_HDISSIP 
     &       dxv( i ,j+1,bi,bj)*dxv( i ,j+1,bi,bj)
./pkg/mom_common/mom_hdissip.F 65 MOM_HDISSIP 
     &         *viscAh_s(i,j+1)*strain( i ,j+1)
./pkg/mom_common/mom_hdissip.F 66 MOM_HDISSIP 
     &      -dxv( i , j ,bi,bj)*dxv( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 67 MOM_HDISSIP 
     &         *viscAh_s(i, j )*strain( i , j )
./pkg/mom_common/mom_hdissip.F 70 MOM_HDISSIP 
         vDissip(i,j) =
./pkg/mom_common/mom_hdissip.F 71 MOM_HDISSIP 
     &    recip_dyc(i,j,bi,bj)*recip_dyc(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 72 MOM_HDISSIP 
     &    *recip_dxg(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 74 MOM_HDISSIP 
     &       dyu(i+1, j ,bi,bj)*dyu(i+1, j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 75 MOM_HDISSIP 
     &         *viscAh_s(i+1,j)*strain(i+1,j)
./pkg/mom_common/mom_hdissip.F 76 MOM_HDISSIP 
     &      -dyu( i , j ,bi,bj)*dyu( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 77 MOM_HDISSIP 
     &         *viscAh_s( i ,j)*strain( i ,j)
./pkg/mom_common/mom_hdissip.F 79 MOM_HDISSIP 
     &    -recip_dxg(i,j,bi,bj)*recip_dxg(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 80 MOM_HDISSIP 
     &    *recip_dyc(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 82 MOM_HDISSIP 
     &       dxf( i , j ,bi,bj)*dxf( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 83 MOM_HDISSIP 
     &         *viscAh_t(i, j )*tension(i, j )
./pkg/mom_common/mom_hdissip.F 84 MOM_HDISSIP 
     &      -dxf( i ,j-1,bi,bj)*dxf( i ,j-1,bi,bj)
./pkg/mom_common/mom_hdissip.F 85 MOM_HDISSIP 
     &         *viscAh_t(i,j-1)*tension(i,j-1)
./pkg/mom_common/mom_init_fixed.F 100 MOM_INIT_FIXED 
     &           /((recip_dxF(i,j,bi,bj)**2+recip_dyF(i,j,bi,bj)**2))
./pkg/mom_common/mom_init_fixed.F 106 MOM_INIT_FIXED 
          DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 107 MOM_INIT_FIXED 
            L3_D(i,j,bi,bj) = L2_D(i,j,bi,bj)**1.5
./pkg/mom_common/mom_init_fixed.F 108 MOM_INIT_FIXED 
            L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F 109 MOM_INIT_FIXED 
     &                       *L2_D(i,j,bi,bj)**2
./pkg/mom_common/mom_init_fixed.F 118 MOM_INIT_FIXED 
          DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 119 MOM_INIT_FIXED 
            L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj)
./pkg/mom_common/mom_init_fixed.F 124 MOM_INIT_FIXED 
           DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 125 MOM_INIT_FIXED 
            IF ( recip_dxV(i,j,bi,bj).NE.0. .OR.
./pkg/mom_common/mom_init_fixed.F 126 MOM_INIT_FIXED 
     &           recip_dyU(i,j,bi,bj).NE.0. ) THEN
./pkg/mom_common/mom_init_fixed.F 127 MOM_INIT_FIXED 
              L2_Z(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_init_fixed.F 128 MOM_INIT_FIXED 
     &           /((recip_dxV(i,j,bi,bj)**2+recip_dyU(i,j,bi,bj)**2))
./pkg/mom_common/mom_init_fixed.F 134 MOM_INIT_FIXED 
          DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 135 MOM_INIT_FIXED 
            L3_Z(i,j,bi,bj) = L2_Z(i,j,bi,bj)**1.5
./pkg/mom_common/mom_init_fixed.F 136 MOM_INIT_FIXED 
            L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F 137 MOM_INIT_FIXED 
     &                       *L2_Z(i,j,bi,bj)**2
./pkg/mom_common/mom_init_fixed.F 36 MOM_INIT_FIXED 
      INTEGER i,j,bi,bj
./pkg/mom_common/mom_init_fixed.F 49 MOM_INIT_FIXED 
           DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 50 MOM_INIT_FIXED 
            h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_init_fixed.F 51 MOM_INIT_FIXED 
            h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_init_fixed.F 52 MOM_INIT_FIXED 
            h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_init_fixed.F 65 MOM_INIT_FIXED 
          DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 67 MOM_INIT_FIXED 
           viscAhDfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 68 MOM_INIT_FIXED 
           viscAhZfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 71 MOM_INIT_FIXED 
           viscA4Dfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 72 MOM_INIT_FIXED 
           viscA4Zfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 90 MOM_INIT_FIXED 
          DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 91 MOM_INIT_FIXED 
            L2_D(i,j,bi,bj) = rA(i,j,bi,bj)
./pkg/mom_common/mom_init_fixed.F 96 MOM_INIT_FIXED 
           DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_init_fixed.F 97 MOM_INIT_FIXED 
            IF ( recip_dxF(i,j,bi,bj).NE.0. .OR.
./pkg/mom_common/mom_init_fixed.F 98 MOM_INIT_FIXED 
     &           recip_dyF(i,j,bi,bj).NE.0. ) THEN
./pkg/mom_common/mom_init_fixed.F 99 MOM_INIT_FIXED 
              L2_D(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_quasihydrostatic.F 53 MOM_QUASIHYDROSTATIC 
      INTEGER i,j
./pkg/mom_common/mom_quasihydrostatic.F 63 MOM_QUASIHYDROSTATIC 
        DO i=iMin,iMax
./pkg/mom_common/mom_quasihydrostatic.F 64 MOM_QUASIHYDROSTATIC 
         effectiveBuoy(i,j)=effectiveBuoy(i,j)
./pkg/mom_common/mom_quasihydrostatic.F 66 MOM_QUASIHYDROSTATIC 
     &     fCoriCos(i,j,bi,bj)*
./pkg/mom_common/mom_quasihydrostatic.F 67 MOM_QUASIHYDROSTATIC 
     &       ( angleCosC(i,j,bi,bj)*0.5 _d 0 *
./pkg/mom_common/mom_quasihydrostatic.F 68 MOM_QUASIHYDROSTATIC 
     &                (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F 69 MOM_QUASIHYDROSTATIC 
     &        -angleSinC(i,j,bi,bj)*0.5 _d 0 *
./pkg/mom_common/mom_quasihydrostatic.F 70 MOM_QUASIHYDROSTATIC 
     &                (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F 78 MOM_QUASIHYDROSTATIC 
        DO i=iMin,iMax
./pkg/mom_common/mom_quasihydrostatic.F 79 MOM_QUASIHYDROSTATIC 
         effectiveBuoy(i,j)=effectiveBuoy(i,j)
./pkg/mom_common/mom_quasihydrostatic.F 81 MOM_QUASIHYDROSTATIC 
     &     (   (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj)
./pkg/mom_common/mom_quasihydrostatic.F 82 MOM_QUASIHYDROSTATIC 
     &         +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F 83 MOM_QUASIHYDROSTATIC 
     &       + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj)
./pkg/mom_common/mom_quasihydrostatic.F 84 MOM_QUASIHYDROSTATIC 
     &         +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj))
./pkg/mom_common/mom_u_bottomdrag.F 52 MOM_U_BOTTOMDRAG 
      INTEGER i,j,kDown,kDownC,kBottom
./pkg/mom_common/mom_u_bottomdrag.F 77 MOM_U_BOTTOMDRAG 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/mom_common/mom_u_bottomdrag.F 78 MOM_U_BOTTOMDRAG 
        maskDown=_maskW(i,j,kDown,bi,bj)
./pkg/mom_common/mom_u_bottomdrag.F 80 MOM_U_BOTTOMDRAG 
        uDragTerms(i,j)=
./pkg/mom_common/mom_u_bottomdrag.F 81 MOM_U_BOTTOMDRAG 
     &   -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F 83 MOM_U_BOTTOMDRAG 
     &      2.*KappaRU(i,j,kDownC)*rdrckp1*viscFac
./pkg/mom_common/mom_u_bottomdrag.F 85 MOM_U_BOTTOMDRAG 
     &     + bottomdragfld(i,j,bi,bj)*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 89 MOM_U_BOTTOMDRAG 
     &    )*(1.-maskDown)*uFld(i,j)
./pkg/mom_common/mom_u_bottomdrag.F 90 MOM_U_BOTTOMDRAG 
        IF ( (KE(i,j)+KE(i-1,j)) .NE. 0. ) THEN
./pkg/mom_common/mom_u_bottomdrag.F 91 MOM_U_BOTTOMDRAG 
         uDragTerms(i,j)=uDragTerms(i,j)
./pkg/mom_common/mom_u_bottomdrag.F 92 MOM_U_BOTTOMDRAG 
     &    -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F 93 MOM_U_BOTTOMDRAG 
     &    *bottomDragQuadratic*SQRT(KE(i,j)+KE(i-1,j))*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 94 MOM_U_BOTTOMDRAG 
     &    *(1.-maskDown)*uFld(i,j)
./pkg/mom_common/mom_u_coriolis_nh.F 44 MOM_U_CORIOLIS_NH 
      INTEGER i,j,kp1
./pkg/mom_common/mom_u_coriolis_nh.F 55 MOM_U_CORIOLIS_NH 
       DO i=2-Olx,sNx+Olx
./pkg/mom_common/mom_u_coriolis_nh.F 56 MOM_U_CORIOLIS_NH 
        uCoriolisTerm(i,j) =
./pkg/mom_common/mom_u_coriolis_nh.F 57 MOM_U_CORIOLIS_NH 
     &    0.5*( fCoriCos( i ,j,bi,bj)*angleCosC( i ,j,bi,bj)
./pkg/mom_common/mom_u_coriolis_nh.F 58 MOM_U_CORIOLIS_NH 
     &         *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_u_coriolis_nh.F 59 MOM_U_CORIOLIS_NH 
     &               +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk )
./pkg/mom_common/mom_u_coriolis_nh.F 60 MOM_U_CORIOLIS_NH 
     &        + fCoriCos(i-1,j,bi,bj)*angleCosC(i-1,j,bi,bj)
./pkg/mom_common/mom_u_coriolis_nh.F 61 MOM_U_CORIOLIS_NH 
     &         *0.5*( wFld(i-1,j, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_u_coriolis_nh.F 62 MOM_U_CORIOLIS_NH 
     &               +wFld(i-1,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk )
./pkg/mom_common/mom_u_implicit_r.F 100 MOM_U_IMPLICIT_R 
     &                 *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F 101 MOM_U_IMPLICIT_R 
     &                 *KappaRU(i,j,k+1)*recip_drC(k+1)
./pkg/mom_common/mom_u_implicit_r.F 108 MOM_U_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/mom_common/mom_u_implicit_r.F 109 MOM_U_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F 123 MOM_U_IMPLICIT_R 
           DO i=iMin,iMax
./pkg/mom_common/mom_u_implicit_r.F 124 MOM_U_IMPLICIT_R 
            rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_u_implicit_r.F 125 MOM_U_IMPLICIT_R 
     &                wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F 126 MOM_U_IMPLICIT_R 
     &                                 *maskC( i ,j,k-1,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F 127 MOM_U_IMPLICIT_R 
     &              + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F 128 MOM_U_IMPLICIT_R 
     &                                 *maskC(i-1,j,k-1,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F 141 MOM_U_IMPLICIT_R 
             DO i=iMin,iMax
./pkg/mom_common/mom_u_implicit_r.F 142 MOM_U_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F 143 MOM_U_IMPLICIT_R 
     &                           *recip_rAw(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_u_implicit_r.F 145 MOM_U_IMPLICIT_R 
              b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F 147 MOM_U_IMPLICIT_R 
     &                     *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F 148 MOM_U_IMPLICIT_R 
              c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F 150 MOM_U_IMPLICIT_R 
     &                     *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F 151 MOM_U_IMPLICIT_R 
              c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F 153 MOM_U_IMPLICIT_R 
     &                     *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F 154 MOM_U_IMPLICIT_R 
              d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F 156 MOM_U_IMPLICIT_R 
     &                     *_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F 162 MOM_U_IMPLICIT_R 
             DO i=iMin,iMax
./pkg/mom_common/mom_u_implicit_r.F 163 MOM_U_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F 164 MOM_U_IMPLICIT_R 
     &                           *recip_rAw(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_u_implicit_r.F 165 MOM_U_IMPLICIT_R 
              b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F 166 MOM_U_IMPLICIT_R 
     &            - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F 167 MOM_U_IMPLICIT_R 
              c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F 168 MOM_U_IMPLICIT_R 
     &            - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F 169 MOM_U_IMPLICIT_R 
              c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F 170 MOM_U_IMPLICIT_R 
     &            + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F 171 MOM_U_IMPLICIT_R 
              d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_u_implicit_r.F 172 MOM_U_IMPLICIT_R 
     &            + rCenter*_recip_hFacW(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_u_implicit_r.F 208 MOM_U_IMPLICIT_R 
             DO i=1-OLx,sNx+OLx
./pkg/mom_common/mom_u_implicit_r.F 209 MOM_U_IMPLICIT_R 
               vf(i,j) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F 214 MOM_U_IMPLICIT_R 
             DO i=iMin,iMax
./pkg/mom_common/mom_u_implicit_r.F 215 MOM_U_IMPLICIT_R 
               vf(i,j) =
./pkg/mom_common/mom_u_implicit_r.F 216 MOM_U_IMPLICIT_R 
     &             -KappaRU(i,j,k)*rAw(i,j,bi,bj)*recip_drC(k)
./pkg/mom_common/mom_u_implicit_r.F 217 MOM_U_IMPLICIT_R 
     &            * (gU(i,j,k,bi,bj) - gU(i,j,k-1,bi,bj))*rkSign
./pkg/mom_common/mom_u_implicit_r.F 218 MOM_U_IMPLICIT_R 
     &            *_maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F 219 MOM_U_IMPLICIT_R 
     &            *_maskW(i,j,k-1,bi,bj)
./pkg/mom_common/mom_u_implicit_r.F 40 MOM_U_IMPLICIT_R 
      INTEGER i,j,k
./pkg/mom_common/mom_u_implicit_r.F 68 MOM_U_IMPLICIT_R 
        DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_u_implicit_r.F 70 MOM_U_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F 71 MOM_U_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./pkg/mom_common/mom_u_implicit_r.F 72 MOM_U_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F 86 MOM_U_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/mom_common/mom_u_implicit_r.F 87 MOM_U_IMPLICIT_R 
          IF (maskW(i,j,k-1,bi,bj).EQ.1.)
./pkg/mom_common/mom_u_implicit_r.F 88 MOM_U_IMPLICIT_R 
     &     b5d(i,j,k) = -deltaTmom
./pkg/mom_common/mom_u_implicit_r.F 89 MOM_U_IMPLICIT_R 
     &                  *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_implicit_r.F 90 MOM_U_IMPLICIT_R 
     &                  *kappaRU(i,j, k )*recip_drC( k )
./pkg/mom_common/mom_u_implicit_r.F 97 MOM_U_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/mom_common/mom_u_implicit_r.F 98 MOM_U_IMPLICIT_R 
          IF (maskW(i,j,k+1,bi,bj).EQ.1.)
./pkg/mom_common/mom_u_implicit_r.F 99 MOM_U_IMPLICIT_R 
     &     d5d(i,j,k) = -deltaTmom
./pkg/mom_common/mom_u_metric_nh.F 46 MOM_U_METRIC_NH 
      INTEGER i,j,kp1
./pkg/mom_common/mom_u_metric_nh.F 55 MOM_U_METRIC_NH 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_common/mom_u_metric_nh.F 56 MOM_U_METRIC_NH 
         uMetricTerms(i,j) = uFld(i,j)*recip_rSphere*recip_deepFacC(k)
./pkg/mom_common/mom_u_metric_nh.F 57 MOM_U_METRIC_NH 
     &    *0.25*( (wFld(i-1,j,kp1,bi,bj)+wFld(i,j,kp1,bi,bj))
./pkg/mom_common/mom_u_metric_nh.F 59 MOM_U_METRIC_NH 
     &          + (wFld(i-1,j, k ,bi,bj)+wFld(i,j, k ,bi,bj))
./model/src/calc_diffusivity.F 102 CALC_DIFFUSIVITY 
     &        + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./model/src/calc_diffusivity.F 180 CALC_DIFFUSIVITY 
       DO i = 1-Olx, sNx+Olx
./model/src/calc_diffusivity.F 181 CALC_DIFFUSIVITY 
        KappaRT(i,j) = maskUp(i,j)*KappaRT(i,j)
./model/src/calc_diffusivity.F 182 CALC_DIFFUSIVITY 
        KappaRS(i,j) = maskUp(i,j)*KappaRS(i,j)
./model/src/calc_diffusivity.F 58 CALC_DIFFUSIVITY 
      INTEGER i,j
./model/src/calc_diffusivity.F 74 CALC_DIFFUSIVITY 
        DO i = 1-Olx, sNx+Olx
./model/src/calc_diffusivity.F 75 CALC_DIFFUSIVITY 
         KappaRT(i,j) =
./model/src/calc_diffusivity.F 76 CALC_DIFFUSIVITY 
     &        IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_diffusivity.F 79 CALC_DIFFUSIVITY 
     &        + diffKr(i,j,k,bi,bj)
./model/src/calc_diffusivity.F 85 CALC_DIFFUSIVITY 
     &        + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./model/src/calc_diffusivity.F 91 CALC_DIFFUSIVITY 
        DO i = 1-Olx, sNx+Olx
./model/src/calc_diffusivity.F 92 CALC_DIFFUSIVITY 
         KappaRS(i,j) =
./model/src/calc_diffusivity.F 93 CALC_DIFFUSIVITY 
     &        IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./model/src/calc_diffusivity.F 96 CALC_DIFFUSIVITY 
     &        + diffKr(i,j,k,bi,bj)
./pkg/mom_common/mom_u_rviscflux.F 47 MOM_U_RVISCFLUX 
      INTEGER i,j
./pkg/mom_common/mom_u_rviscflux.F 53 MOM_U_RVISCFLUX 
        DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_u_rviscflux.F 54 MOM_U_RVISCFLUX 
          rViscFluxU(i,j) = 0. _d 0
./pkg/mom_common/mom_u_rviscflux.F 59 MOM_U_RVISCFLUX 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_u_rviscflux.F 60 MOM_U_RVISCFLUX 
          rViscFluxU(i,j) =
./pkg/mom_common/mom_u_rviscflux.F 61 MOM_U_RVISCFLUX 
     &      -KappaRU(i,j,k)
./pkg/mom_common/mom_u_rviscflux.F 62 MOM_U_RVISCFLUX 
     &      *rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./pkg/mom_common/mom_u_rviscflux.F 63 MOM_U_RVISCFLUX 
     &      *( uFld(i,j,k,bi,bj)-uFld(i,j,k-1,bi,bj)
./pkg/mom_common/mom_u_rviscflux.F 65 MOM_U_RVISCFLUX 
     &      *_maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_rviscflux.F 66 MOM_U_RVISCFLUX 
     &      *_maskW(i,j,k-1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 101 MOM_U_SIDEDRAG 
     &                Ahtmp*uFld(i,j)
./pkg/mom_common/mom_u_sidedrag.F 102 MOM_U_SIDEDRAG 
     &               -A4tmp*del2u(i,j)
./pkg/mom_common/mom_u_sidedrag.F 113 MOM_U_SIDEDRAG 
       DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_u_sidedrag.F 117 MOM_U_SIDEDRAG 
        hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 118 MOM_U_SIDEDRAG 
        hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacW(i,j+1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 120 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 121 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - _hFacW(i,j+1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 125 MOM_U_SIDEDRAG 
        uDragTerms(i,j) =
./pkg/mom_common/mom_u_sidedrag.F 126 MOM_U_SIDEDRAG 
     &   -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 127 MOM_U_SIDEDRAG 
     &   *recip_drF(k)*recip_rAw(i,j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 128 MOM_U_SIDEDRAG 
     &   *( hFacZClosedS*_dxV(i, j ,bi,bj)*_recip_dyU(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 130 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j  )*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 132 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j  )*del2u(i,j)*sqcosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 134 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j  )*del2u(i,j)*cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 137 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j  )*uFld(i,j)
./pkg/mom_common/mom_u_sidedrag.F 138 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j  )*del2u(i,j) )
./pkg/mom_common/mom_u_sidedrag.F 140 MOM_U_SIDEDRAG 
     &     +hFacZClosedN*_dxV(i,j+1,bi,bj)*_recip_dyU(i,j+1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 142 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 144 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j+1)*del2u(i,j)*sqcosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 146 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 149 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j+1)*uFld(i,j)
./pkg/mom_common/mom_u_sidedrag.F 150 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j+1)*del2u(i,j) )
./pkg/mom_common/mom_u_sidedrag.F 56 MOM_U_SIDEDRAG 
      INTEGER i,j
./pkg/mom_common/mom_u_sidedrag.F 67 MOM_U_SIDEDRAG 
       DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_u_sidedrag.F 71 MOM_U_SIDEDRAG 
        hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 72 MOM_U_SIDEDRAG 
        hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacW(i,j+1,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 76 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 77 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F 79 MOM_U_SIDEDRAG 
        Ahtmp=min(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom,
./pkg/mom_common/mom_u_sidedrag.F 81 MOM_U_SIDEDRAG 
        A4tmp=min(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom,
./pkg/mom_common/mom_u_sidedrag.F 83 MOM_U_SIDEDRAG 
        A4tmp=min(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_u_sidedrag.F 84 MOM_U_SIDEDRAG 
        A4tmp=max(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_u_sidedrag.F 85 MOM_U_SIDEDRAG 
        uDragTerms(i,j) =
./pkg/mom_common/mom_u_sidedrag.F 86 MOM_U_SIDEDRAG 
     &   -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 87 MOM_U_SIDEDRAG 
     &   *recip_drF(k)*recip_rAw(i,j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 88 MOM_U_SIDEDRAG 
     &   *( hFacZClosedS*_dxV(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 89 MOM_U_SIDEDRAG 
     &      *_recip_dyU(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 90 MOM_U_SIDEDRAG 
     &     +hFacZClosedN*_dxV(i,j+1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 91 MOM_U_SIDEDRAG 
     &      *_recip_dyU(i,j+1,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 94 MOM_U_SIDEDRAG 
     &                viscAh*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 96 MOM_U_SIDEDRAG 
     &               -viscA4*del2u(i,j)*sqcosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 98 MOM_U_SIDEDRAG 
     &               -viscA4*del2u(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 100 MOM_V_BOTTOMDRAG 
     &    *bottomDragQuadratic*SQRT(KE(i,j)+KE(i,j-1))*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 101 MOM_V_BOTTOMDRAG 
     &    *(1.-maskDown)*vFld(i,j)
./pkg/mom_common/mom_v_bottomdrag.F 59 MOM_V_BOTTOMDRAG 
      INTEGER i,j,kDown,kDownC,kBottom
./pkg/mom_common/mom_v_bottomdrag.F 84 MOM_V_BOTTOMDRAG 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_v_bottomdrag.F 85 MOM_V_BOTTOMDRAG 
        maskDown=_maskS(i,j,kdown,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 87 MOM_V_BOTTOMDRAG 
        vDragTerms(i,j)=
./pkg/mom_common/mom_v_bottomdrag.F 88 MOM_V_BOTTOMDRAG 
     &   -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_bottomdrag.F 90 MOM_V_BOTTOMDRAG 
     &      2.*KappaRV(i,j,kDownC)*rdrckp1*viscFac
./pkg/mom_common/mom_v_bottomdrag.F 92 MOM_V_BOTTOMDRAG 
     &     + bottomdragfld(i,j,bi,bj)*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 96 MOM_V_BOTTOMDRAG 
     &    )*(1.-maskDown)*vFld(i,j)
./pkg/mom_common/mom_v_bottomdrag.F 97 MOM_V_BOTTOMDRAG 
        IF ( (KE(i,j)+KE(i,j-1)) .NE. 0. ) THEN
./pkg/mom_common/mom_v_bottomdrag.F 98 MOM_V_BOTTOMDRAG 
         vDragTerms(i,j)=vDragTerms(i,j)
./pkg/mom_common/mom_v_bottomdrag.F 99 MOM_V_BOTTOMDRAG 
     &    -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_coriolis_nh.F 44 MOM_V_CORIOLIS_NH 
      INTEGER i,j,kp1
./pkg/mom_common/mom_v_coriolis_nh.F 55 MOM_V_CORIOLIS_NH 
       DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_v_coriolis_nh.F 56 MOM_V_CORIOLIS_NH 
        vCoriolisTerm(i,j) =
./pkg/mom_common/mom_v_coriolis_nh.F 57 MOM_V_CORIOLIS_NH 
     &   -0.5*( fCoriCos( i ,j,bi,bj)*angleSinC(i, j ,bi,bj)
./pkg/mom_common/mom_v_coriolis_nh.F 58 MOM_V_CORIOLIS_NH 
     &         *0.5*( wFld( i ,j, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_v_coriolis_nh.F 59 MOM_V_CORIOLIS_NH 
     &               +wFld( i ,j,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk )
./pkg/mom_common/mom_v_coriolis_nh.F 60 MOM_V_CORIOLIS_NH 
     &        + fCoriCos(i,j-1,bi,bj)*angleSinC(i,j-1,bi,bj)
./pkg/mom_common/mom_v_coriolis_nh.F 61 MOM_V_CORIOLIS_NH 
     &         *0.5*( wFld(i,j-1, k ,bi,bj)*rVel2wUnit( k )
./pkg/mom_common/mom_v_coriolis_nh.F 62 MOM_V_CORIOLIS_NH 
     &               +wFld(i,j-1,kp1,bi,bj)*rVel2wUnit(kp1)*wMsk )
./pkg/mom_common/mom_v_implicit_r.F 100 MOM_V_IMPLICIT_R 
     &                 *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F 101 MOM_V_IMPLICIT_R 
     &                 *KappaRV(i,j,k+1)*recip_drC(k+1)
./pkg/mom_common/mom_v_implicit_r.F 108 MOM_V_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/mom_common/mom_v_implicit_r.F 109 MOM_V_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F 123 MOM_V_IMPLICIT_R 
           DO i=iMin,iMax
./pkg/mom_common/mom_v_implicit_r.F 124 MOM_V_IMPLICIT_R 
            rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_v_implicit_r.F 125 MOM_V_IMPLICIT_R 
     &                wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F 126 MOM_V_IMPLICIT_R 
     &                                 *maskC(i, j ,k-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F 127 MOM_V_IMPLICIT_R 
     &              + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F 128 MOM_V_IMPLICIT_R 
     &                                 *maskC(i,j-1,k-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F 141 MOM_V_IMPLICIT_R 
             DO i=iMin,iMax
./pkg/mom_common/mom_v_implicit_r.F 142 MOM_V_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F 143 MOM_V_IMPLICIT_R 
     &                           *recip_rAs(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_v_implicit_r.F 145 MOM_V_IMPLICIT_R 
              b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F 147 MOM_V_IMPLICIT_R 
     &                     *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F 148 MOM_V_IMPLICIT_R 
              c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F 150 MOM_V_IMPLICIT_R 
     &                     *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F 151 MOM_V_IMPLICIT_R 
              c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F 153 MOM_V_IMPLICIT_R 
     &                     *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F 154 MOM_V_IMPLICIT_R 
              d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F 156 MOM_V_IMPLICIT_R 
     &                     *_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F 162 MOM_V_IMPLICIT_R 
             DO i=iMin,iMax
./pkg/mom_common/mom_v_implicit_r.F 163 MOM_V_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F 164 MOM_V_IMPLICIT_R 
     &                           *recip_rAs(i,j,bi,bj)*rkSign
./pkg/mom_common/mom_v_implicit_r.F 165 MOM_V_IMPLICIT_R 
              b5d(i,j,k) = b5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F 166 MOM_V_IMPLICIT_R 
     &            - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F 167 MOM_V_IMPLICIT_R 
              c5d(i,j,k) = c5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F 168 MOM_V_IMPLICIT_R 
     &            - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F 169 MOM_V_IMPLICIT_R 
              c5d(i,j,k-1) = c5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F 170 MOM_V_IMPLICIT_R 
     &            + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F 171 MOM_V_IMPLICIT_R 
              d5d(i,j,k-1) = d5d(i,j,k-1)
./pkg/mom_common/mom_v_implicit_r.F 172 MOM_V_IMPLICIT_R 
     &            + rCenter*_recip_hFacS(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/mom_common/mom_v_implicit_r.F 208 MOM_V_IMPLICIT_R 
             DO i=1-OLx,sNx+OLx
./pkg/mom_common/mom_v_implicit_r.F 209 MOM_V_IMPLICIT_R 
               vf(i,j) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F 214 MOM_V_IMPLICIT_R 
             DO i=iMin,iMax
./pkg/mom_common/mom_v_implicit_r.F 215 MOM_V_IMPLICIT_R 
               vf(i,j) =
./pkg/mom_common/mom_v_implicit_r.F 216 MOM_V_IMPLICIT_R 
     &             -KappaRV(i,j,k)*rAs(i,j,bi,bj)*recip_drC(k)
./pkg/mom_common/mom_v_implicit_r.F 217 MOM_V_IMPLICIT_R 
     &            * (gV(i,j,k,bi,bj) - gV(i,j,k-1,bi,bj))*rkSign
./pkg/mom_common/mom_v_implicit_r.F 218 MOM_V_IMPLICIT_R 
     &            *_maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F 219 MOM_V_IMPLICIT_R 
     &            *_maskS(i,j,k-1,bi,bj)
./pkg/mom_common/mom_v_implicit_r.F 40 MOM_V_IMPLICIT_R 
      INTEGER i,j,k
./pkg/mom_common/mom_v_implicit_r.F 68 MOM_V_IMPLICIT_R 
        DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_v_implicit_r.F 70 MOM_V_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F 71 MOM_V_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./pkg/mom_common/mom_v_implicit_r.F 72 MOM_V_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F 86 MOM_V_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/mom_common/mom_v_implicit_r.F 87 MOM_V_IMPLICIT_R 
          IF (maskS(i,j,k-1,bi,bj).EQ.1.)
./pkg/mom_common/mom_v_implicit_r.F 88 MOM_V_IMPLICIT_R 
     &     b5d(i,j,k) = -deltaTmom
./pkg/mom_common/mom_v_implicit_r.F 89 MOM_V_IMPLICIT_R 
     &                  *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_implicit_r.F 90 MOM_V_IMPLICIT_R 
     &                  *kappaRV(i,j, k )*recip_drC( k )
./pkg/mom_common/mom_v_implicit_r.F 97 MOM_V_IMPLICIT_R 
         DO i=iMin,iMax
./pkg/mom_common/mom_v_implicit_r.F 98 MOM_V_IMPLICIT_R 
          IF (maskS(i,j,k+1,bi,bj).EQ.1.)
./pkg/mom_common/mom_v_implicit_r.F 99 MOM_V_IMPLICIT_R 
     &     d5d(i,j,k) = -deltaTmom
./pkg/mom_common/mom_v_metric_nh.F 46 MOM_V_METRIC_NH 
      INTEGER i,j,kp1
./pkg/mom_common/mom_v_metric_nh.F 55 MOM_V_METRIC_NH 
       DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_v_metric_nh.F 56 MOM_V_METRIC_NH 
         vMetricTerms(i,j) = vFld(i,j)*recip_rSphere*recip_deepFacC(k)
./pkg/mom_common/mom_v_metric_nh.F 57 MOM_V_METRIC_NH 
     &    *0.25*( (wFld(i,j-1,kp1,bi,bj)+wFld(i,j,kp1,bi,bj))
./pkg/mom_common/mom_v_metric_nh.F 59 MOM_V_METRIC_NH 
     &          + (wFld(i,j-1, k ,bi,bj)+wFld(i,j, k ,bi,bj))
./pkg/mom_common/mom_v_rviscflux.F 47 MOM_V_RVISCFLUX 
      INTEGER i,j
./pkg/mom_common/mom_v_rviscflux.F 53 MOM_V_RVISCFLUX 
        DO i=1-Olx,sNx+Olx
./pkg/mom_common/mom_v_rviscflux.F 54 MOM_V_RVISCFLUX 
          rViscFluxV(i,j) = 0. _d 0
./pkg/mom_common/mom_v_rviscflux.F 59 MOM_V_RVISCFLUX 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_v_rviscflux.F 60 MOM_V_RVISCFLUX 
          rViscFluxV(i,j) =
./pkg/mom_common/mom_v_rviscflux.F 61 MOM_V_RVISCFLUX 
     &     -KappaRV(i,j,k)
./pkg/mom_common/mom_v_rviscflux.F 62 MOM_V_RVISCFLUX 
     &     *rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./pkg/mom_common/mom_v_rviscflux.F 63 MOM_V_RVISCFLUX 
     &     *( vFld(i,j,k,bi,bj)-vFld(i,j,k-1,bi,bj)
./pkg/mom_common/mom_v_rviscflux.F 65 MOM_V_RVISCFLUX 
     &     *_maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_rviscflux.F 66 MOM_V_RVISCFLUX 
     &     *_maskS(i,j,k-1,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 110 MOM_V_SIDEDRAG 
       DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_v_sidedrag.F 114 MOM_V_SIDEDRAG 
        hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 115 MOM_V_SIDEDRAG 
        hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacS(i+1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 117 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 118 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - _hFacS(i+1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 122 MOM_V_SIDEDRAG 
        vDragTerms(i,j) =
./pkg/mom_common/mom_v_sidedrag.F 123 MOM_V_SIDEDRAG 
     &   -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 124 MOM_V_SIDEDRAG 
     &   *recip_drF(k)*recip_rAs(i,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 125 MOM_V_SIDEDRAG 
     &   *( hFacZClosedW*_dyU( i ,j,bi,bj)*_recip_dxV( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 126 MOM_V_SIDEDRAG 
     &         *( viscAh_Z(i  ,j)*vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 128 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i  ,j)*del2v(i,j)*sqcosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 130 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i  ,j)*del2v(i,j)*cosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 132 MOM_V_SIDEDRAG 
     &     +hFacZClosedE*_dyU(i+1,j,bi,bj)*_recip_dxV(i+1,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 133 MOM_V_SIDEDRAG 
     &         *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 135 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i+1,j)*del2v(i,j)*sqcosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 137 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i+1,j)*del2v(i,j)*cosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 56 MOM_V_SIDEDRAG 
      INTEGER i,j
./pkg/mom_common/mom_v_sidedrag.F 67 MOM_V_SIDEDRAG 
       DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_v_sidedrag.F 71 MOM_V_SIDEDRAG 
        hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 72 MOM_V_SIDEDRAG 
        hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacS(i+1,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 76 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 77 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F 79 MOM_V_SIDEDRAG 
        Ahtmp=min(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom,
./pkg/mom_common/mom_v_sidedrag.F 81 MOM_V_SIDEDRAG 
        A4tmp=min(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom,
./pkg/mom_common/mom_v_sidedrag.F 84 MOM_V_SIDEDRAG 
           A4tmp=min(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_v_sidedrag.F 86 MOM_V_SIDEDRAG 
        A4tmp=max(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_v_sidedrag.F 87 MOM_V_SIDEDRAG 
        vDragTerms(i,j) =
./pkg/mom_common/mom_v_sidedrag.F 88 MOM_V_SIDEDRAG 
     &   -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 89 MOM_V_SIDEDRAG 
     &   *recip_drF(k)*recip_rAs(i,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 90 MOM_V_SIDEDRAG 
     &   *( hFacZClosedW*_dyU( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 91 MOM_V_SIDEDRAG 
     &      *_recip_dxV( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 92 MOM_V_SIDEDRAG 
     &     +hFacZClosedE*_dyU(i+1,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 93 MOM_V_SIDEDRAG 
     &      *_recip_dxV(i+1,j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 95 MOM_V_SIDEDRAG 
     &                Ahtmp*vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 97 MOM_V_SIDEDRAG 
     &               -viscA4*del2v(i,j)*sqcosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 99 MOM_V_SIDEDRAG 
     &               -A4tmp*del2v(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_w_coriolis_nh.F 47 MOM_W_CORIOLIS_NH 
      INTEGER i,j
./pkg/mom_common/mom_w_coriolis_nh.F 54 MOM_W_CORIOLIS_NH 
         DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_w_coriolis_nh.F 55 MOM_W_CORIOLIS_NH 
           wCoriolisTerm(i,j) =
./pkg/mom_common/mom_w_coriolis_nh.F 56 MOM_W_CORIOLIS_NH 
     &      -gravitySign*fCoriCos(i,j,bi,bj)*
./pkg/mom_common/mom_w_coriolis_nh.F 57 MOM_W_CORIOLIS_NH 
     &       ( angleCosC(i,j,bi,bj)*(
./pkg/mom_common/mom_w_coriolis_nh.F 58 MOM_W_CORIOLIS_NH 
     &                (uFld(i,j,k-1,bi,bj)+uFld(i+1,j,k-1,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F 59 MOM_W_CORIOLIS_NH 
     &              + (uFld(i,j, k ,bi,bj)+uFld(i+1,j, k ,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F 61 MOM_W_CORIOLIS_NH 
     &        -angleSinC(i,j,bi,bj)*(
./pkg/mom_common/mom_w_coriolis_nh.F 62 MOM_W_CORIOLIS_NH 
     &                (vFld(i,j,k-1,bi,bj)+vFld(i,j+1,k-1,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F 63 MOM_W_CORIOLIS_NH 
     &              + (vFld(i,j, k ,bi,bj)+vFld(i,j+1, k ,bi,bj))
./pkg/mom_common/mom_w_coriolis_nh.F 70 MOM_W_CORIOLIS_NH 
         DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_w_coriolis_nh.F 71 MOM_W_CORIOLIS_NH 
           wCoriolisTerm(i,j) = 0. _d 0
./pkg/mom_common/mom_w_metric_nh.F 47 MOM_W_METRIC_NH 
      INTEGER i,j
./pkg/mom_common/mom_w_metric_nh.F 52 MOM_W_METRIC_NH 
         DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_w_metric_nh.F 53 MOM_W_METRIC_NH 
           wMetricTerms(i,j) = -gravitySign*wUnit2rVel(k)
./pkg/mom_common/mom_w_metric_nh.F 55 MOM_W_METRIC_NH 
     &          ( (uFld( i ,j,k-1,bi,bj)*uFld( i ,j,k-1,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F 56 MOM_W_METRIC_NH 
     &            +uFld(i+1,j,k-1,bi,bj)*uFld(i+1,j,k-1,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F 57 MOM_W_METRIC_NH 
     &          + (vFld(i, j ,k-1,bi,bj)*vFld(i, j ,k-1,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F 58 MOM_W_METRIC_NH 
     &            +vFld(i,j+1,k-1,bi,bj)*vFld(i,j+1,k-1,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F 60 MOM_W_METRIC_NH 
     &        + ( (uFld( i ,j, k ,bi,bj)*uFld( i ,j, k ,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F 61 MOM_W_METRIC_NH 
     &            +uFld(i+1,j, k ,bi,bj)*uFld(i+1,j, k ,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F 62 MOM_W_METRIC_NH 
     &          + (vFld(i, j , k ,bi,bj)*vFld(i, j , k ,bi,bj)
./pkg/mom_common/mom_w_metric_nh.F 63 MOM_W_METRIC_NH 
     &            +vFld(i,j+1, k ,bi,bj)*vFld(i,j+1, k ,bi,bj))
./pkg/mom_common/mom_w_metric_nh.F 69 MOM_W_METRIC_NH 
         DO i=1-Olx,sNx+Olx-1
./pkg/mom_common/mom_w_metric_nh.F 70 MOM_W_METRIC_NH 
           wMetricTerms(i,j) = 0. _d 0
./model/src/calc_div_ghat.F 111 CALC_DIV_GHAT 
         DO i=1,sNx+1
./model/src/calc_div_ghat.F 112 CALC_DIV_GHAT 
          pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 113 CALC_DIV_GHAT 
     &     + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 114 CALC_DIV_GHAT 
     &               ) * xA(i,j) / deltaTmom
./model/src/calc_div_ghat.F 119 CALC_DIV_GHAT 
       DO i=1,sNx
./model/src/calc_div_ghat.F 120 CALC_DIV_GHAT 
        cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) +
./model/src/calc_div_ghat.F 121 CALC_DIV_GHAT 
     &   pf(i+1,j)-pf(i,j)
./model/src/calc_div_ghat.F 128 CALC_DIV_GHAT 
        DO i=1,sNx
./model/src/calc_div_ghat.F 129 CALC_DIV_GHAT 
         cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) )
./model/src/calc_div_ghat.F 138 CALC_DIV_GHAT 
         DO i=1,sNx
./model/src/calc_div_ghat.F 139 CALC_DIV_GHAT 
          pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom
./model/src/calc_div_ghat.F 146 CALC_DIV_GHAT 
         DO i=1,sNx
./model/src/calc_div_ghat.F 147 CALC_DIV_GHAT 
          pf(i,j) = implicDiv2Dflow
./model/src/calc_div_ghat.F 148 CALC_DIV_GHAT 
     &             *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom
./model/src/calc_div_ghat.F 154 CALC_DIV_GHAT 
         DO i=1,sNx
./model/src/calc_div_ghat.F 155 CALC_DIV_GHAT 
          pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 156 CALC_DIV_GHAT 
     &     + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 157 CALC_DIV_GHAT 
     &               ) * yA(i,j) / deltaTmom
./model/src/calc_div_ghat.F 162 CALC_DIV_GHAT 
       DO i=1,sNx
./model/src/calc_div_ghat.F 163 CALC_DIV_GHAT 
        cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) +
./model/src/calc_div_ghat.F 164 CALC_DIV_GHAT 
     &   pf(i,j+1)-pf(i,j)
./model/src/calc_div_ghat.F 171 CALC_DIV_GHAT 
        DO i=1,sNx
./model/src/calc_div_ghat.F 172 CALC_DIV_GHAT 
         cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 173 CALC_DIV_GHAT 
     &                       + ( pf(i,j+1)-pf(i,j) )
./model/src/calc_div_ghat.F 182 CALC_DIV_GHAT 
         DO i=1,sNx
./model/src/calc_div_ghat.F 183 CALC_DIV_GHAT 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/calc_div_ghat.F 184 CALC_DIV_GHAT 
     &         - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom
./model/src/calc_div_ghat.F 190 CALC_DIV_GHAT 
         DO i=1,sNx
./model/src/calc_div_ghat.F 191 CALC_DIV_GHAT 
          cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 192 CALC_DIV_GHAT 
     &         - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTmom
./model/src/calc_div_ghat.F 55 CALC_DIV_GHAT 
      INTEGER i,j
./model/src/calc_div_ghat.F 63 CALC_DIV_GHAT 
        DO i=1,sNx+1
./model/src/calc_div_ghat.F 64 CALC_DIV_GHAT 
          xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_div_ghat.F 65 CALC_DIV_GHAT 
     &              *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_div_ghat.F 66 CALC_DIV_GHAT 
          yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_div_ghat.F 67 CALC_DIV_GHAT 
     &              *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_div_ghat.F 79 CALC_DIV_GHAT 
         DO i=1,sNx+1
./model/src/calc_div_ghat.F 80 CALC_DIV_GHAT 
          pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTmom
./model/src/calc_div_ghat.F 87 CALC_DIV_GHAT 
         DO i=1,sNx+1
./model/src/calc_div_ghat.F 88 CALC_DIV_GHAT 
          pf(i,j) = implicDiv2Dflow
./model/src/calc_div_ghat.F 89 CALC_DIV_GHAT 
     &             *xA(i,j)*gU(i,j,k,bi,bj) / deltaTmom
./pkg/mom_common/mom_w_sidedrag.F 102 MOM_W_SIDEDRAG 
     &     +heightStepS*_dxG(i,j,bi,bj)*_recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 103 MOM_W_SIDEDRAG 
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 107 MOM_W_SIDEDRAG 
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F 116 MOM_W_SIDEDRAG 
     &     +heightStepN*_dxG(i,j+1,bi,bj)*_recip_dyC(i,j+1,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 117 MOM_W_SIDEDRAG 
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 121 MOM_W_SIDEDRAG 
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F 130 MOM_W_SIDEDRAG 
     &    )*recip_rThickC(i,j)*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 62 MOM_W_SIDEDRAG 
      INTEGER i,j
./pkg/mom_common/mom_w_sidedrag.F 71 MOM_W_SIDEDRAG 
       DO i=2-Olx,sNx+Olx-1
./pkg/mom_common/mom_w_sidedrag.F 74 MOM_W_SIDEDRAG 
        heightStepW = MAX( 0. _d 0, rThickC(i,j) - rThickC(i-1,j) )
./pkg/mom_common/mom_w_sidedrag.F 75 MOM_W_SIDEDRAG 
        heightStepE = MAX( 0. _d 0, rThickC(i,j) - rThickC(i+1,j) )
./pkg/mom_common/mom_w_sidedrag.F 76 MOM_W_SIDEDRAG 
        heightStepS = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j-1) )
./pkg/mom_common/mom_w_sidedrag.F 77 MOM_W_SIDEDRAG 
        heightStepN = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j+1) )
./pkg/mom_common/mom_w_sidedrag.F 80 MOM_W_SIDEDRAG 
        gwSideDrag(i,j) =
./pkg/mom_common/mom_w_sidedrag.F 82 MOM_W_SIDEDRAG 
     &    *( heightStepW*_dyG( i ,j,bi,bj)*_recip_dxC( i ,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 83 MOM_W_SIDEDRAG 
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 85 MOM_W_SIDEDRAG 
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_common/mom_w_sidedrag.F 92 MOM_W_SIDEDRAG 
     &     +heightStepE*_dyG(i+1,j,bi,bj)*_recip_dxC(i+1,j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 93 MOM_W_SIDEDRAG 
     &         *( viscAh_W(i,j,k,bi,bj)*wFld(i,j,k,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 95 MOM_W_SIDEDRAG 
     &           -viscA4_W(i,j,k,bi,bj)*del2w(i,j)
./pkg/mom_fluxform/mom_calc_rtrans.F 100 MOM_CALC_RTRANS 
     &         0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 101 MOM_CALC_RTRANS 
     &                   +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 103 MOM_CALC_RTRANS 
          rTransV(i,j) =
./pkg/mom_fluxform/mom_calc_rtrans.F 104 MOM_CALC_RTRANS 
     &         0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 105 MOM_CALC_RTRANS 
     &                   +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 120 MOM_CALC_RTRANS 
         DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 121 MOM_CALC_RTRANS 
          dWtransC(i,j,bi,bj) = rStarDhCDt(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 122 MOM_CALC_RTRANS 
     &         *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F 123 MOM_CALC_RTRANS 
     &         *rA(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 127 MOM_CALC_RTRANS 
         DO i=1-OLx+1,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 128 MOM_CALC_RTRANS 
          dWtransU(i,j,bi,bj) =
./pkg/mom_fluxform/mom_calc_rtrans.F 129 MOM_CALC_RTRANS 
     &          0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F 130 MOM_CALC_RTRANS 
          dWtransV(i,j,bi,bj) =
./pkg/mom_fluxform/mom_calc_rtrans.F 131 MOM_CALC_RTRANS 
     &          0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F 138 MOM_CALC_RTRANS 
         DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 139 MOM_CALC_RTRANS 
          dWtransC(i,j,bi,bj) = dWtransC(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 140 MOM_CALC_RTRANS 
     &     - rStarDhCDt(i,j,bi,bj)*drF(k-1)*h0FacC(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 141 MOM_CALC_RTRANS 
     &                            *rA(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 145 MOM_CALC_RTRANS 
         DO i=1-OLx+1,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 146 MOM_CALC_RTRANS 
          dWtransU(i,j,bi,bj) = dWtransU(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 147 MOM_CALC_RTRANS 
     &     - rStarDhWDt(i,j,bi,bj)*drF(k-1)*h0FacW(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 148 MOM_CALC_RTRANS 
     &                            *rAw(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 149 MOM_CALC_RTRANS 
          dWtransV(i,j,bi,bj) = dWtransV(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 150 MOM_CALC_RTRANS 
     &     - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 151 MOM_CALC_RTRANS 
     &                            *rAs(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 156 MOM_CALC_RTRANS 
         DO i=1-OLx+1,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 157 MOM_CALC_RTRANS 
          rTransU(i,j) = rTransU(i,j)-dWtransU(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 158 MOM_CALC_RTRANS 
     &       + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_calc_rtrans.F 159 MOM_CALC_RTRANS 
          rTransV(i,j) = rTransV(i,j)-dWtransV(i,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 160 MOM_CALC_RTRANS 
     &       + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_calc_rtrans.F 67 MOM_CALC_RTRANS 
      INTEGER i,j
./pkg/mom_fluxform/mom_calc_rtrans.F 76 MOM_CALC_RTRANS 
         DO i=1-OLx+1,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 77 MOM_CALC_RTRANS 
          rTransU(i,j) = mass2rUnit*
./pkg/mom_fluxform/mom_calc_rtrans.F 78 MOM_CALC_RTRANS 
     &      0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 79 MOM_CALC_RTRANS 
     &                +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) )
./pkg/mom_fluxform/mom_calc_rtrans.F 80 MOM_CALC_RTRANS 
          rTransV(i,j) = mass2rUnit*
./pkg/mom_fluxform/mom_calc_rtrans.F 81 MOM_CALC_RTRANS 
     &      0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 82 MOM_CALC_RTRANS 
     &                +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) )
./pkg/mom_fluxform/mom_calc_rtrans.F 90 MOM_CALC_RTRANS 
         DO i=1-OLx+1,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 91 MOM_CALC_RTRANS 
          rTransU(i,j) = 0.
./pkg/mom_fluxform/mom_calc_rtrans.F 92 MOM_CALC_RTRANS 
          rTransV(i,j) = 0.
./pkg/mom_fluxform/mom_calc_rtrans.F 98 MOM_CALC_RTRANS 
         DO i=1-OLx+1,sNx+OLx
./pkg/mom_fluxform/mom_calc_rtrans.F 99 MOM_CALC_RTRANS 
          rTransU(i,j) =
./pkg/mom_fluxform/mom_fluxform.F 100 MOM_FLUXFORM 
      INTEGER i,j
./pkg/mom_fluxform/mom_fluxform.F 186 MOM_FLUXFORM 
       DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_fluxform.F 187 MOM_FLUXFORM 
        vF(i,j)   = 0.
./pkg/mom_fluxform/mom_fluxform.F 188 MOM_FLUXFORM 
        v4F(i,j)  = 0.
./pkg/mom_fluxform/mom_fluxform.F 189 MOM_FLUXFORM 
        cF(i,j)   = 0.
./pkg/mom_fluxform/mom_fluxform.F 190 MOM_FLUXFORM 
        mT(i,j)   = 0.
./pkg/mom_fluxform/mom_fluxform.F 191 MOM_FLUXFORM 
        fZon(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F 192 MOM_FLUXFORM 
        fMer(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F 193 MOM_FLUXFORM 
        fVrUp(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F 194 MOM_FLUXFORM 
        fVrDw(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F 195 MOM_FLUXFORM 
        rTransU(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F 196 MOM_FLUXFORM 
        rTransV(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F 198 MOM_FLUXFORM 
        hDiv(i,j)   = 0.
./pkg/mom_fluxform/mom_fluxform.F 199 MOM_FLUXFORM 
        vort3(i,j)  = 0.
./pkg/mom_fluxform/mom_fluxform.F 200 MOM_FLUXFORM 
        strain(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F 201 MOM_FLUXFORM 
        tension(i,j)= 0.
./pkg/mom_fluxform/mom_fluxform.F 202 MOM_FLUXFORM 
        guDiss(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F 203 MOM_FLUXFORM 
        gvDiss(i,j) = 0.
./pkg/mom_fluxform/mom_fluxform.F 256 MOM_FLUXFORM 
       DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_fluxform.F 257 MOM_FLUXFORM 
        xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 258 MOM_FLUXFORM 
     &          *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 259 MOM_FLUXFORM 
        yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 260 MOM_FLUXFORM 
     &          *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 266 MOM_FLUXFORM 
       DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_fluxform.F 267 MOM_FLUXFORM 
        uFld(i,j) = uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 268 MOM_FLUXFORM 
        vFld(i,j) = vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 275 MOM_FLUXFORM 
       DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_fluxform.F 276 MOM_FLUXFORM 
        uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 277 MOM_FLUXFORM 
        vTrans(i,j) = vFld(i,j)*yA(i,j)*rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 288 MOM_FLUXFORM 
         DO i=1-Olx,sNx+Olx
./pkg/mom_fluxform/mom_fluxform.F 289 MOM_FLUXFORM 
           IF ( hFacZ(i,j).EQ.0. ) THEN
./pkg/mom_fluxform/mom_fluxform.F 290 MOM_FLUXFORM 
             vort3(i,j)  = sideMaskFac*vort3(i,j)
./pkg/mom_fluxform/mom_fluxform.F 291 MOM_FLUXFORM 
             strain(i,j) = sideMaskFac*strain(i,j)
./pkg/mom_fluxform/mom_fluxform.F 404 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 405 MOM_FLUXFORM 
          gU(i,j,k,bi,bj) =
./pkg/mom_fluxform/mom_fluxform.F 407 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 408 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 410 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 411 MOM_FLUXFORM 
     &     *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 413 MOM_FLUXFORM 
     &     *( ( fZon(i,j  )     - fZon(i-1,j) )*uDudxFac
./pkg/mom_fluxform/mom_fluxform.F 414 MOM_FLUXFORM 
     &       +( fMer(i,j+1)     - fMer(i,  j) )*vDudyFac
./pkg/mom_fluxform/mom_fluxform.F 415 MOM_FLUXFORM 
     &       +(fVerU(i,j,kDown) - fVerU(i,j,kUp))*rkSign*rVelDudrFac
./pkg/mom_fluxform/mom_fluxform.F 434 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 435 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 436 MOM_FLUXFORM 
     &     - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf
./pkg/mom_fluxform/mom_fluxform.F 437 MOM_FLUXFORM 
     &       *uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 443 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 444 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 445 MOM_FLUXFORM 
     &     - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 455 MOM_FLUXFORM 
         DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_fluxform.F 456 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 487 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 488 MOM_FLUXFORM 
          guDiss(i,j) =
./pkg/mom_fluxform/mom_fluxform.F 490 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 491 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 493 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 494 MOM_FLUXFORM 
     &     *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F 496 MOM_FLUXFORM 
     &     *( ( fZon(i,j  ) - fZon(i-1,j) )*AhDudxFac
./pkg/mom_fluxform/mom_fluxform.F 497 MOM_FLUXFORM 
     &       +( fMer(i,j+1) - fMer(i,  j) )*AhDudyFac
./pkg/mom_fluxform/mom_fluxform.F 498 MOM_FLUXFORM 
     &       +( fVrDw(i,j)  - fVrUp(i,j)  )*rkSign*ArDudrFac
./pkg/mom_fluxform/mom_fluxform.F 524 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 525 MOM_FLUXFORM 
           gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 533 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 534 MOM_FLUXFORM 
           gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 543 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 544 MOM_FLUXFORM 
           gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 564 MOM_FLUXFORM 
        DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 565 MOM_FLUXFORM 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 573 MOM_FLUXFORM 
        DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 574 MOM_FLUXFORM 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 582 MOM_FLUXFORM 
        DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 583 MOM_FLUXFORM 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 620 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 621 MOM_FLUXFORM 
          gV(i,j,k,bi,bj) =
./pkg/mom_fluxform/mom_fluxform.F 623 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 624 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 626 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 627 MOM_FLUXFORM 
     &     *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 629 MOM_FLUXFORM 
     &     *( ( fZon(i+1,j)     - fZon(i,j  ) )*uDvdxFac
./pkg/mom_fluxform/mom_fluxform.F 630 MOM_FLUXFORM 
     &       +( fMer(i,  j)     - fMer(i,j-1) )*vDvdyFac
./pkg/mom_fluxform/mom_fluxform.F 631 MOM_FLUXFORM 
     &       +(fVerV(i,j,kDown) - fVerV(i,j,kUp))*rkSign*rVelDvdrFac
./pkg/mom_fluxform/mom_fluxform.F 650 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 651 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 652 MOM_FLUXFORM 
     &     - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf
./pkg/mom_fluxform/mom_fluxform.F 653 MOM_FLUXFORM 
     &       *vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 659 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 660 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 661 MOM_FLUXFORM 
     &     - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 671 MOM_FLUXFORM 
         DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_fluxform.F 672 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 702 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 703 MOM_FLUXFORM 
          gvDiss(i,j) =
./pkg/mom_fluxform/mom_fluxform.F 705 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 706 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 708 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 709 MOM_FLUXFORM 
     &      *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F 711 MOM_FLUXFORM 
     &     *( ( fZon(i+1,j)  - fZon(i,j  ) )*AhDvdxFac
./pkg/mom_fluxform/mom_fluxform.F 712 MOM_FLUXFORM 
     &       +( fMer(i,  j)  - fMer(i,j-1) )*AhDvdyFac
./pkg/mom_fluxform/mom_fluxform.F 713 MOM_FLUXFORM 
     &       +( fVrDw(i,j)   - fVrUp(i,j) )*rkSign*ArDvdrFac
./pkg/mom_fluxform/mom_fluxform.F 739 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 740 MOM_FLUXFORM 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 748 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 749 MOM_FLUXFORM 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 758 MOM_FLUXFORM 
          DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 759 MOM_FLUXFORM 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 779 MOM_FLUXFORM 
        DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 780 MOM_FLUXFORM 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 788 MOM_FLUXFORM 
        DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 789 MOM_FLUXFORM 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 797 MOM_FLUXFORM 
        DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 798 MOM_FLUXFORM 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 813 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 814 MOM_FLUXFORM 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 823 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 824 MOM_FLUXFORM 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 837 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 838 MOM_FLUXFORM 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 845 MOM_FLUXFORM 
         DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 846 MOM_FLUXFORM 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 854 MOM_FLUXFORM 
       DO i=iMin,iMax
./pkg/mom_fluxform/mom_fluxform.F 855 MOM_FLUXFORM 
        gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 856 MOM_FLUXFORM 
        guDiss(i,j)     = guDiss(i,j)    *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 857 MOM_FLUXFORM 
        gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 858 MOM_FLUXFORM 
        gvDiss(i,j)     = gvDiss(i,j)    *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_uu.F 46 MOM_U_ADV_UU 
      INTEGER i,j
./pkg/mom_fluxform/mom_u_adv_uu.F 50 MOM_U_ADV_UU 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_u_adv_uu.F 51 MOM_U_ADV_UU 
        AdvectFluxUU(i,j) =
./pkg/mom_fluxform/mom_u_adv_uu.F 52 MOM_U_ADV_UU 
     &  0.25*( uTrans(i,j) + uTrans(i+1,j) )
./pkg/mom_fluxform/mom_u_adv_uu.F 54 MOM_U_ADV_UU 
     &      *(   uFld(i,j)*_maskW(i+1,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_uu.F 55 MOM_U_ADV_UU 
     &         + uFld(i+1,j)*_maskW(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_uu.F 57 MOM_U_ADV_UU 
     &      *(   uFld(i,j) +   uFld(i+1,j) )
./pkg/mom_fluxform/mom_u_adv_vu.F 46 MOM_U_ADV_VU 
      INTEGER i,j
./pkg/mom_fluxform/mom_u_adv_vu.F 50 MOM_U_ADV_VU 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_adv_vu.F 51 MOM_U_ADV_VU 
        AdvectFluxVU(i,j) =
./pkg/mom_fluxform/mom_u_adv_vu.F 52 MOM_U_ADV_VU 
     &  0.25*( vTrans(i,j) + vTrans(i-1,j) )
./pkg/mom_fluxform/mom_u_adv_vu.F 54 MOM_U_ADV_VU 
     &      *(   uFld(i,j)*_maskW(i,j-1,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_vu.F 55 MOM_U_ADV_VU 
     &         + uFld(i,j-1)*_maskW(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_vu.F 57 MOM_U_ADV_VU 
     &      *( uFld(i,j) + uFld(i,j-1) )
./pkg/mom_fluxform/mom_u_adv_vu.F 60 MOM_U_ADV_VU 
     &      *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_vu.F 61 MOM_U_ADV_VU 
     &      *_maskW(i,j-1,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F 100 MOM_U_ADV_WU 
     &          (maskC( i ,j,k,bi,bj)-maskC( i ,j,k-1,bi,bj))
./pkg/mom_fluxform/mom_u_adv_wu.F 101 MOM_U_ADV_WU 
     &         +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)*
./pkg/mom_fluxform/mom_u_adv_wu.F 102 MOM_U_ADV_WU 
     &          (maskC(i-1,j,k,bi,bj)-maskC(i-1,j,k-1,bi,bj))
./pkg/mom_fluxform/mom_u_adv_wu.F 104 MOM_U_ADV_WU 
     &            *uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F 48 MOM_U_ADV_WU 
      INTEGER i,j
./pkg/mom_fluxform/mom_u_adv_wu.F 54 MOM_U_ADV_WU 
        DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_adv_wu.F 55 MOM_U_ADV_WU 
         advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F 63 MOM_U_ADV_WU 
       DO i=1-Olx,sNx+Olx
./pkg/mom_fluxform/mom_u_adv_wu.F 64 MOM_U_ADV_WU 
        advectiveFluxWU(i,j) = 0.
./pkg/mom_fluxform/mom_u_adv_wu.F 72 MOM_U_ADV_WU 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_adv_wu.F 73 MOM_U_ADV_WU 
        advectiveFluxWU(i,j) = rTrans(i,j)*uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F 81 MOM_U_ADV_WU 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_adv_wu.F 82 MOM_U_ADV_WU 
        advectiveFluxWU(i,j) = rTrans(i,j)*
./pkg/mom_fluxform/mom_u_adv_wu.F 84 MOM_U_ADV_WU 
     &   0.5 _d 0*( uFld(i,j,k,bi,bj)*_maskW(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F 85 MOM_U_ADV_WU 
     &             +uFld(i,j,k-1,bi,bj)*_maskW(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_wu.F 87 MOM_U_ADV_WU 
     &   0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) )
./pkg/mom_fluxform/mom_u_adv_wu.F 96 MOM_U_ADV_WU 
         DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_adv_wu.F 97 MOM_U_ADV_WU 
          advectiveFluxWU(i,j) = advectiveFluxWU(i,j)
./pkg/mom_fluxform/mom_u_adv_wu.F 99 MOM_U_ADV_WU 
     &          wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)*
./pkg/mom_fluxform/mom_u_coriolis.F 44 MOM_U_CORIOLIS 
      INTEGER i,j
./pkg/mom_fluxform/mom_u_coriolis.F 52 MOM_U_CORIOLIS 
        DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_coriolis.F 53 MOM_U_CORIOLIS 
         uCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_u_coriolis.F 54 MOM_U_CORIOLIS 
     &     0.5*( _fCori( i ,j,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F 55 MOM_U_CORIOLIS 
     &          *0.5*( vFld( i ,j)+vFld( i ,j+1) )
./pkg/mom_fluxform/mom_u_coriolis.F 56 MOM_U_CORIOLIS 
     &         + _fCori(i-1,j,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F 57 MOM_U_CORIOLIS 
     &          *0.5*( vFld(i-1,j)+vFld(i-1,j+1) ) )
./pkg/mom_fluxform/mom_u_coriolis.F 63 MOM_U_CORIOLIS 
        DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_coriolis.F 64 MOM_U_CORIOLIS 
         uCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_u_coriolis.F 65 MOM_U_CORIOLIS 
     &     0.5*( _fCori( i ,j,bi,bj) +
./pkg/mom_fluxform/mom_u_coriolis.F 66 MOM_U_CORIOLIS 
     &           _fCori(i-1,j,bi,bj)  )
./pkg/mom_fluxform/mom_u_coriolis.F 68 MOM_U_CORIOLIS 
     &     vFld( i ,j)+vFld( i ,j+1)
./pkg/mom_fluxform/mom_u_coriolis.F 69 MOM_U_CORIOLIS 
     &    +vFld(i-1,j)+vFld(i-1,j+1)
./pkg/mom_fluxform/mom_u_coriolis.F 80 MOM_U_CORIOLIS 
        DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_coriolis.F 81 MOM_U_CORIOLIS 
         uCoriolisTerm(i,j) = uCoriolisTerm(i,j)
./pkg/mom_fluxform/mom_u_coriolis.F 83 MOM_U_CORIOLIS 
     &                 maskS( i , j ,k,bi,bj)+maskS( i ,j+1,k,bi,bj)
./pkg/mom_fluxform/mom_u_coriolis.F 84 MOM_U_CORIOLIS 
     &                +maskS(i-1, j ,k,bi,bj)+maskS(i-1,j+1,k,bi,bj) )
./pkg/mom_fluxform/mom_u_del2u.F 100 MOM_U_DEL2U 
     &   *( hFacZClosedS*dxV(i, j ,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 101 MOM_U_DEL2U 
     &     *_recip_dyU(i, j ,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 102 MOM_U_DEL2U 
     &     +hFacZClosedN*dxV(i,j+1,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 103 MOM_U_DEL2U 
     &     *_recip_dyU(i,j+1,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 104 MOM_U_DEL2U 
     &    )*drF(k)*2.*uFld(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 105 MOM_U_DEL2U 
     &     *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 51 MOM_U_DEL2U 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_u_del2u.F 52 MOM_U_DEL2U 
        fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 53 MOM_U_DEL2U 
     &   *_dyF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 54 MOM_U_DEL2U 
     &   *_recip_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 55 MOM_U_DEL2U 
     &   *(uFld(i+1,j)-uFld(i,j))
./pkg/mom_fluxform/mom_u_del2u.F 66 MOM_U_DEL2U 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/mom_fluxform/mom_u_del2u.F 67 MOM_U_DEL2U 
        fMer(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 68 MOM_U_DEL2U 
     &   *_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 69 MOM_U_DEL2U 
     &   *_recip_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 70 MOM_U_DEL2U 
     &   *(uFld(i,j)-uFld(i,j-1))
./pkg/mom_fluxform/mom_u_del2u.F 81 MOM_U_DEL2U 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/mom_fluxform/mom_u_del2u.F 82 MOM_U_DEL2U 
        del2u(i,j) =
./pkg/mom_fluxform/mom_u_del2u.F 83 MOM_U_DEL2U 
     &   recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 84 MOM_U_DEL2U 
     &  *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_u_del2u.F 85 MOM_U_DEL2U 
     &  *( fZon(i,j  )    - fZon(i-1,j)
./pkg/mom_fluxform/mom_u_del2u.F 86 MOM_U_DEL2U 
     &    +fMer(i,j+1)    - fMer(i  ,j)
./pkg/mom_fluxform/mom_u_del2u.F 87 MOM_U_DEL2U 
     &   )*_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 94 MOM_U_DEL2U 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/mom_fluxform/mom_u_del2u.F 95 MOM_U_DEL2U 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 96 MOM_U_DEL2U 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_fluxform/mom_u_del2u.F 97 MOM_U_DEL2U 
        del2u(i,j) = del2u(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 98 MOM_U_DEL2U 
     &  -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_u_del2u.F 99 MOM_U_DEL2U 
     &   *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./model/src/calc_grad_phi_hyd.F 101 CALC_GRAD_PHI_HYD 
           varLoc(i,j) = factPI*alphRho(i,j)
./model/src/calc_grad_phi_hyd.F 102 CALC_GRAD_PHI_HYD 
          ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN
./model/src/calc_grad_phi_hyd.F 103 CALC_GRAD_PHI_HYD 
           factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa
./model/src/calc_grad_phi_hyd.F 104 CALC_GRAD_PHI_HYD 
           varLoc(i,j) = phiHydC(i,j)
./model/src/calc_grad_phi_hyd.F 105 CALC_GRAD_PHI_HYD 
     &                  *(rStarFacC(i,j,bi,bj)**atm_kappa - factPI)
./model/src/calc_grad_phi_hyd.F 107 CALC_GRAD_PHI_HYD 
     &                 + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 113 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 114 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 121 CALC_GRAD_PHI_HYD 
           varLoc(i,j) = phiHydC(i,j)
./model/src/calc_grad_phi_hyd.F 122 CALC_GRAD_PHI_HYD 
     &                  *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 123 CALC_GRAD_PHI_HYD 
     &                  /                (Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 124 CALC_GRAD_PHI_HYD 
     &                 + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 135 CALC_GRAD_PHI_HYD 
        DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 136 CALC_GRAD_PHI_HYD 
         varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 143 CALC_GRAD_PHI_HYD 
       DO i=1-OLx,sNx+OLx
./model/src/calc_grad_phi_hyd.F 144 CALC_GRAD_PHI_HYD 
        dPhiHydX(i,j)  = 0. _d 0
./model/src/calc_grad_phi_hyd.F 145 CALC_GRAD_PHI_HYD 
        dPhiHydY(i,j)  = 0. _d 0
./model/src/calc_grad_phi_hyd.F 149 CALC_GRAD_PHI_HYD 
       DO i=iMin+1,iMax
./model/src/calc_grad_phi_hyd.F 150 CALC_GRAD_PHI_HYD 
        dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 151 CALC_GRAD_PHI_HYD 
     &                *( varLoc(i,j)-varLoc(i-1,j) )*recip_rhoFacC(k)
./model/src/calc_grad_phi_hyd.F 155 CALC_GRAD_PHI_HYD 
       DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 156 CALC_GRAD_PHI_HYD 
        dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 157 CALC_GRAD_PHI_HYD 
     &                *( varLoc(i,j)-varLoc(i,j-1) )*recip_rhoFacC(k)
./model/src/calc_grad_phi_hyd.F 167 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 168 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = etaH(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 169 CALC_GRAD_PHI_HYD 
     &                *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 173 CALC_GRAD_PHI_HYD 
         DO i=iMin+1,iMax
./model/src/calc_grad_phi_hyd.F 174 CALC_GRAD_PHI_HYD 
          dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F 175 CALC_GRAD_PHI_HYD 
     &     +factorZ*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 176 CALC_GRAD_PHI_HYD 
     &             *(varLoc(i,j)-varLoc(i-1,j))
./model/src/calc_grad_phi_hyd.F 177 CALC_GRAD_PHI_HYD 
     &             *recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 181 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 182 CALC_GRAD_PHI_HYD 
          dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F 183 CALC_GRAD_PHI_HYD 
     &     +factorZ*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 184 CALC_GRAD_PHI_HYD 
     &             *(varLoc(i,j)-varLoc(i,j-1))
./model/src/calc_grad_phi_hyd.F 185 CALC_GRAD_PHI_HYD 
     &             *recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 192 CALC_GRAD_PHI_HYD 
         DO i=iMin+1,iMax
./model/src/calc_grad_phi_hyd.F 193 CALC_GRAD_PHI_HYD 
          dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F 194 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 195 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 196 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 200 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 201 CALC_GRAD_PHI_HYD 
          dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F 202 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 203 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 204 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 212 CALC_GRAD_PHI_HYD 
         DO i=iMin+1,iMax
./model/src/calc_grad_phi_hyd.F 213 CALC_GRAD_PHI_HYD 
          dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F 214 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 215 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 216 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 220 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 221 CALC_GRAD_PHI_HYD 
          dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F 222 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 223 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 224 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 59 CALC_GRAD_PHI_HYD 
      INTEGER i,j
./model/src/calc_grad_phi_hyd.F 77 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 78 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/calc_grad_phi_hyd.F 79 CALC_GRAD_PHI_HYD 
     &                + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 84 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 85 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = phiHydC(i,j)*rStarFacC(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 86 CALC_GRAD_PHI_HYD 
     &                + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 96 CALC_GRAD_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_grad_phi_hyd.F 97 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 98 CALC_GRAD_PHI_HYD 
           factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa
./pkg/mom_fluxform/mom_u_metric_cylinder.F 46 MOM_U_METRIC_CYLINDER 
      INTEGER i,j
./pkg/mom_fluxform/mom_u_metric_cylinder.F 51 MOM_U_METRIC_CYLINDER 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_metric_cylinder.F 52 MOM_U_METRIC_CYLINDER 
          radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_u_metric_cylinder.F 56 MOM_U_METRIC_CYLINDER 
             uMetricTerms(i,j) =
./pkg/mom_fluxform/mom_u_metric_cylinder.F 57 MOM_U_METRIC_CYLINDER 
     &            uFld(i,j)
./pkg/mom_fluxform/mom_u_metric_cylinder.F 58 MOM_U_METRIC_CYLINDER 
     &            *0.25*(vFld(i,j) + vFld(i-1,j) +
./pkg/mom_fluxform/mom_u_metric_cylinder.F 59 MOM_U_METRIC_CYLINDER 
     &                   vFld(i,j+1)+vFld(i-1,j+1))/radius
./pkg/mom_fluxform/mom_u_metric_cylinder.F 61 MOM_U_METRIC_CYLINDER 
             uMetricTerms(i,j) = 0.
./pkg/mom_fluxform/mom_u_metric_sphere.F 46 MOM_U_METRIC_SPHERE 
      INTEGER i,j
./pkg/mom_fluxform/mom_u_metric_sphere.F 50 MOM_U_METRIC_SPHERE 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_u_metric_sphere.F 51 MOM_U_METRIC_SPHERE 
         uMetricTerms(i,j) =
./pkg/mom_fluxform/mom_u_metric_sphere.F 52 MOM_U_METRIC_SPHERE 
     &    uFld(i,j)*recip_rSphere*recip_deepFacC(k)
./pkg/mom_fluxform/mom_u_metric_sphere.F 53 MOM_U_METRIC_SPHERE 
     &    *0.25*( vFld(i,j  )+vFld(i-1,j  )
./pkg/mom_fluxform/mom_u_metric_sphere.F 54 MOM_U_METRIC_SPHERE 
     &           +vFld(i,j+1)+vFld(i-1,j+1)
./pkg/mom_fluxform/mom_u_metric_sphere.F 55 MOM_U_METRIC_SPHERE 
     &          )*_tanPhiAtU(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F 55 MOM_U_XVISCFLUX 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_u_xviscflux.F 56 MOM_U_XVISCFLUX 
        xViscFluxU(i,j) =
./pkg/mom_fluxform/mom_u_xviscflux.F 57 MOM_U_XVISCFLUX 
     &    _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F 59 MOM_U_XVISCFLUX 
     &       -viscAh_D(i,j)*( uFld(i+1,j)-uFld(i,j) )
./pkg/mom_fluxform/mom_u_xviscflux.F 61 MOM_U_XVISCFLUX 
     &       +viscA4_D(i,j)*(del2u(i+1,j)-del2u(i,j))
./pkg/mom_fluxform/mom_u_xviscflux.F 67 MOM_U_XVISCFLUX 
     &      )*_recip_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_yviscflux.F 56 MOM_U_YVISCFLUX 
       DO i=1-Olx,sNx+Olx
./pkg/mom_fluxform/mom_u_yviscflux.F 57 MOM_U_YVISCFLUX 
        yViscFluxU(i,j) =
./pkg/mom_fluxform/mom_u_yviscflux.F 58 MOM_U_YVISCFLUX 
     &    _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_u_yviscflux.F 60 MOM_U_YVISCFLUX 
     &       -viscAh_Z(i,j)*( uFld(i,j)-uFld(i,j-1) )
./pkg/mom_fluxform/mom_u_yviscflux.F 64 MOM_U_YVISCFLUX 
     &       +viscA4_Z(i,j)*(del2u(i,j)-del2u(i,j-1))
./pkg/mom_fluxform/mom_u_yviscflux.F 72 MOM_U_YVISCFLUX 
     &      )*_recip_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F 100 MOM_UV_BOUNDARY 
     &                * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k)
./pkg/mom_fluxform/mom_uv_boundary.F 104 MOM_UV_BOUNDARY 
         DO i=1-OLx,sNx+OLx-1
./pkg/mom_fluxform/mom_uv_boundary.F 105 MOM_UV_BOUNDARY 
          aBndU(i,j) = uTrans(i+1,j)-uTrans(i,j)
./pkg/mom_fluxform/mom_uv_boundary.F 106 MOM_UV_BOUNDARY 
          aBndV(i,j) = vTrans(i,j+1)-vTrans(i,j)
./pkg/mom_fluxform/mom_uv_boundary.F 107 MOM_UV_BOUNDARY 
          aBndW(i,j) = ABS(aBndU(i,j)+aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 108 MOM_UV_BOUNDARY 
          aBndU(i,j) = ABS(aBndU(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 109 MOM_UV_BOUNDARY 
          aBndV(i,j) = ABS(aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 114 MOM_UV_BOUNDARY 
         DO i=1-OLx,sNx+OLx-1
./pkg/mom_fluxform/mom_uv_boundary.F 115 MOM_UV_BOUNDARY 
          tmpVar = aBndU(i,j)+aBndV(i,j)+aBndW(i,j)
./pkg/mom_fluxform/mom_uv_boundary.F 118 MOM_UV_BOUNDARY 
            aBndU(i,j) = aBndU(i,j)*tmpVar
./pkg/mom_fluxform/mom_uv_boundary.F 119 MOM_UV_BOUNDARY 
            aBndV(i,j) = aBndV(i,j)*tmpVar
./pkg/mom_fluxform/mom_uv_boundary.F 120 MOM_UV_BOUNDARY 
            aBndW(i,j) = aBndW(i,j)*tmpVar
./pkg/mom_fluxform/mom_uv_boundary.F 128 MOM_UV_BOUNDARY 
         DO i=1-OLx+1,sNx+OLx-1
./pkg/mom_fluxform/mom_uv_boundary.F 129 MOM_UV_BOUNDARY 
          IF (maskW(i,j,k,bi,bj).EQ.0.) THEN
./pkg/mom_fluxform/mom_uv_boundary.F 133 MOM_UV_BOUNDARY 
            uBnd(i,j) = (
./pkg/mom_fluxform/mom_uv_boundary.F 134 MOM_UV_BOUNDARY 
     &        (aBndU(i-1,j)+aBndU(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 135 MOM_UV_BOUNDARY 
     &                     *(uFld(i-1,j,k,bi,bj)+uFld(i+1,j,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F 136 MOM_UV_BOUNDARY 
     &       +(aBndV(i-1,j)+aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 137 MOM_UV_BOUNDARY 
     &                     *(uFld(i,j-1,k,bi,bj)+uFld(i,j+1,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F 138 MOM_UV_BOUNDARY 
     &       +(aBndW(i-1,j)+aBndW(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 139 MOM_UV_BOUNDARY 
     &                     *(uFld(i,j,km1,bi,bj)*maskM1
./pkg/mom_fluxform/mom_uv_boundary.F 140 MOM_UV_BOUNDARY 
     &                      +uFld(i,j,kp1,bi,bj)*maskP1)
./pkg/mom_fluxform/mom_uv_boundary.F 143 MOM_UV_BOUNDARY 
          IF (maskS(i,j,k,bi,bj).EQ.0.) THEN
./pkg/mom_fluxform/mom_uv_boundary.F 147 MOM_UV_BOUNDARY 
            vBnd(i,j) = (
./pkg/mom_fluxform/mom_uv_boundary.F 148 MOM_UV_BOUNDARY 
     &        (aBndU(i,j-1)+aBndU(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 149 MOM_UV_BOUNDARY 
     &                     *(vFld(i-1,j,k,bi,bj)+vFld(i+1,j,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F 150 MOM_UV_BOUNDARY 
     &       +(aBndV(i,j-1)+aBndV(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 151 MOM_UV_BOUNDARY 
     &                     *(vFld(i,j-1,k,bi,bj)+vFld(i,j+1,k,bi,bj))
./pkg/mom_fluxform/mom_uv_boundary.F 152 MOM_UV_BOUNDARY 
     &       +(aBndW(i,j-1)+aBndW(i,j))
./pkg/mom_fluxform/mom_uv_boundary.F 153 MOM_UV_BOUNDARY 
     &                     *(vFld(i,j,km1,bi,bj)*maskM1
./pkg/mom_fluxform/mom_uv_boundary.F 154 MOM_UV_BOUNDARY 
     &                      +vFld(i,j,kp1,bi,bj)*maskP1)
./pkg/mom_fluxform/mom_uv_boundary.F 54 MOM_UV_BOUNDARY 
      INTEGER i,j
./pkg/mom_fluxform/mom_uv_boundary.F 69 MOM_UV_BOUNDARY 
       DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_uv_boundary.F 70 MOM_UV_BOUNDARY 
         uBnd(i,j) = uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F 71 MOM_UV_BOUNDARY 
         vBnd(i,j) = vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F 85 MOM_UV_BOUNDARY 
         DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_uv_boundary.F 86 MOM_UV_BOUNDARY 
          aBndU(i,j) = 0.
./pkg/mom_fluxform/mom_uv_boundary.F 87 MOM_UV_BOUNDARY 
          aBndV(i,j) = 0.
./pkg/mom_fluxform/mom_uv_boundary.F 88 MOM_UV_BOUNDARY 
          aBndW(i,j) = 0.
./pkg/mom_fluxform/mom_uv_boundary.F 94 MOM_UV_BOUNDARY 
         DO i=1-OLx,sNx+OLx
./pkg/mom_fluxform/mom_uv_boundary.F 95 MOM_UV_BOUNDARY 
          uTrans(i,j) = uFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F 96 MOM_UV_BOUNDARY 
     &                * dyG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_uv_boundary.F 97 MOM_UV_BOUNDARY 
     &                * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k)
./pkg/mom_fluxform/mom_uv_boundary.F 98 MOM_UV_BOUNDARY 
          vTrans(i,j) = vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_uv_boundary.F 99 MOM_UV_BOUNDARY 
     &                * dxG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_v_adv_uv.F 45 MOM_V_ADV_UV 
      INTEGER i,j
./pkg/mom_fluxform/mom_v_adv_uv.F 49 MOM_V_ADV_UV 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_v_adv_uv.F 50 MOM_V_ADV_UV 
        AdvectFluxUV(i,j) =
./pkg/mom_fluxform/mom_v_adv_uv.F 51 MOM_V_ADV_UV 
     &  0.25*( uTrans(i,j) + uTrans(i,j-1) )
./pkg/mom_fluxform/mom_v_adv_uv.F 53 MOM_V_ADV_UV 
     &      *(   vFld(i,j)*_maskS(i-1,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_uv.F 54 MOM_V_ADV_UV 
     &         + vFld(i-1,j)*_maskS(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_uv.F 56 MOM_V_ADV_UV 
     &      *(   vFld(i,j) +   vFld(i-1,j) )
./pkg/mom_fluxform/mom_v_adv_uv.F 59 MOM_V_ADV_UV 
     &      *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_uv.F 60 MOM_V_ADV_UV 
     &      *_maskS(i-1,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_vv.F 46 MOM_V_ADV_VV 
      INTEGER i,j
./pkg/mom_fluxform/mom_v_adv_vv.F 50 MOM_V_ADV_VV 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_v_adv_vv.F 51 MOM_V_ADV_VV 
        AdvectFluxVV(i,j) =
./pkg/mom_fluxform/mom_v_adv_vv.F 52 MOM_V_ADV_VV 
     &  0.25*( vTrans(i,j) + vTrans(i,j+1) )
./pkg/mom_fluxform/mom_v_adv_vv.F 54 MOM_V_ADV_VV 
     &      *(   vFld(i,j)*_maskS(i,j+1,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_vv.F 55 MOM_V_ADV_VV 
     &         + vFld(i,j+1)*_maskS(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_vv.F 57 MOM_V_ADV_VV 
     &      *(   vFld(i,j) +   vFld(i,j+1) )
./pkg/mom_fluxform/mom_v_adv_wv.F 100 MOM_V_ADV_WV 
     &          wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)*
./pkg/mom_fluxform/mom_v_adv_wv.F 101 MOM_V_ADV_WV 
     &          (maskC(i, j ,k,bi,bj)-maskC(i, j ,k-1,bi,bj))
./pkg/mom_fluxform/mom_v_adv_wv.F 102 MOM_V_ADV_WV 
     &         +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)*
./pkg/mom_fluxform/mom_v_adv_wv.F 103 MOM_V_ADV_WV 
     &          (maskC(i,j-1,k,bi,bj)-maskC(i,j-1,k-1,bi,bj))
./pkg/mom_fluxform/mom_v_adv_wv.F 105 MOM_V_ADV_WV 
     &            *vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F 49 MOM_V_ADV_WV 
      INTEGER i,j
./pkg/mom_fluxform/mom_v_adv_wv.F 55 MOM_V_ADV_WV 
        DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_v_adv_wv.F 56 MOM_V_ADV_WV 
         advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F 64 MOM_V_ADV_WV 
       DO i=1-Olx,sNx+Olx
./pkg/mom_fluxform/mom_v_adv_wv.F 65 MOM_V_ADV_WV 
        advectiveFluxWV(i,j) = 0.
./pkg/mom_fluxform/mom_v_adv_wv.F 73 MOM_V_ADV_WV 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_v_adv_wv.F 74 MOM_V_ADV_WV 
        advectiveFluxWV(i,j) = rTrans(i,j)*vFld(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F 82 MOM_V_ADV_WV 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_v_adv_wv.F 83 MOM_V_ADV_WV 
        advectiveFluxWV(i,j) = rTrans(i,j)*
./pkg/mom_fluxform/mom_v_adv_wv.F 85 MOM_V_ADV_WV 
     &   0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F 86 MOM_V_ADV_WV 
     &             +vFld(i,j,k-1,bi,bj)*_maskS(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_wv.F 88 MOM_V_ADV_WV 
     &   0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) )
./pkg/mom_fluxform/mom_v_adv_wv.F 97 MOM_V_ADV_WV 
         DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_v_adv_wv.F 98 MOM_V_ADV_WV 
          advectiveFluxWV(i,j) = advectiveFluxWV(i,j)
./pkg/mom_fluxform/mom_v_coriolis.F 44 MOM_V_CORIOLIS 
      INTEGER i,j
./pkg/mom_fluxform/mom_v_coriolis.F 52 MOM_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_v_coriolis.F 53 MOM_V_CORIOLIS 
         vCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_v_coriolis.F 54 MOM_V_CORIOLIS 
     &    -0.5*( _fCori(i, j ,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F 55 MOM_V_CORIOLIS 
     &          *0.5*( uFld( i , j )+uFld(i+1, j ) )
./pkg/mom_fluxform/mom_v_coriolis.F 56 MOM_V_CORIOLIS 
     &         + _fCori(i,j-1,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F 57 MOM_V_CORIOLIS 
     &          *0.5*( uFld( i ,j-1)+uFld(i+1,j-1) ) )
./pkg/mom_fluxform/mom_v_coriolis.F 63 MOM_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_v_coriolis.F 64 MOM_V_CORIOLIS 
        vCoriolisTerm(i,j) =
./pkg/mom_fluxform/mom_v_coriolis.F 65 MOM_V_CORIOLIS 
     &    -0.5*(_fCori(i, j ,bi,bj)+_fCori(i,j-1,bi,bj))
./pkg/mom_fluxform/mom_v_coriolis.F 66 MOM_V_CORIOLIS 
     &   *0.25*( uFld(i, j )+uFld(i+1, j )
./pkg/mom_fluxform/mom_v_coriolis.F 67 MOM_V_CORIOLIS 
     &          +uFld(i,j-1)+uFld(i+1,j-1)
./pkg/mom_fluxform/mom_v_coriolis.F 78 MOM_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_v_coriolis.F 79 MOM_V_CORIOLIS 
         vCoriolisTerm(i,j) = vCoriolisTerm(i,j)
./pkg/mom_fluxform/mom_v_coriolis.F 81 MOM_V_CORIOLIS 
     &                 maskW( i , j ,k,bi,bj)+maskW(i+1, j ,k,bi,bj)
./pkg/mom_fluxform/mom_v_coriolis.F 82 MOM_V_CORIOLIS 
     &                +maskW( i ,j-1,k,bi,bj)+maskW(i+1,j-1,k,bi,bj) )
./pkg/mom_fluxform/mom_v_del2v.F 100 MOM_V_DEL2V 
     &      *_recip_dxV( i ,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 101 MOM_V_DEL2V 
     &     +hFacZClosedE*dyU(i+1,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 102 MOM_V_DEL2V 
     &      *_recip_dxV(i+1,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 103 MOM_V_DEL2V 
     &    )*drF(k)*2.*vFld(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 104 MOM_V_DEL2V 
     &     *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 50 MOM_V_DEL2V 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_v_del2v.F 51 MOM_V_DEL2V 
        fZon(i,j) = drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 52 MOM_V_DEL2V 
     &   *_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 53 MOM_V_DEL2V 
     &   *_recip_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 54 MOM_V_DEL2V 
     &   *(vFld(i,j)-vFld(i-1,j))
./pkg/mom_fluxform/mom_v_del2v.F 65 MOM_V_DEL2V 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/mom_fluxform/mom_v_del2v.F 66 MOM_V_DEL2V 
        fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 67 MOM_V_DEL2V 
     &   *_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 68 MOM_V_DEL2V 
     &   *_recip_dyF(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 69 MOM_V_DEL2V 
     &   *(vFld(i,j+1)-vFld(i,j))
./pkg/mom_fluxform/mom_v_del2v.F 80 MOM_V_DEL2V 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/mom_fluxform/mom_v_del2v.F 81 MOM_V_DEL2V 
        del2v(i,j) =
./pkg/mom_fluxform/mom_v_del2v.F 82 MOM_V_DEL2V 
     &   recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 83 MOM_V_DEL2V 
     &  *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_v_del2v.F 84 MOM_V_DEL2V 
     &  *( fZon(i+1,j)    - fZon(i, j )
./pkg/mom_fluxform/mom_v_del2v.F 85 MOM_V_DEL2V 
     &    +fMer( i ,j)    - fMer(i,j-1)
./pkg/mom_fluxform/mom_v_del2v.F 86 MOM_V_DEL2V 
     &   )*_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 93 MOM_V_DEL2V 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/mom_fluxform/mom_v_del2v.F 94 MOM_V_DEL2V 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 95 MOM_V_DEL2V 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_fluxform/mom_v_del2v.F 96 MOM_V_DEL2V 
        del2v(i,j) = del2v(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 97 MOM_V_DEL2V 
     &  -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_v_del2v.F 98 MOM_V_DEL2V 
     &   *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_v_del2v.F 99 MOM_V_DEL2V 
     &   *( hFacZClosedW*dyU( i ,j,bi,bj)
./model/src/calc_grad_phi_surf.F 45 CALC_GRAD_PHI_SURF 
      INTEGER i,j
./model/src/calc_grad_phi_surf.F 50 CALC_GRAD_PHI_SURF 
       DO i=iMin,iMax
./model/src/calc_grad_phi_surf.F 51 CALC_GRAD_PHI_SURF 
        phiSurfX(i,j)=_recip_dxC(i,j,bi,bj)*
./model/src/calc_grad_phi_surf.F 52 CALC_GRAD_PHI_SURF 
     &   ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj)
./model/src/calc_grad_phi_surf.F 53 CALC_GRAD_PHI_SURF 
     &   - Bo_surf(i-1,j,bi,bj)*etaFld(i-1,j,bi,bj) )
./model/src/calc_grad_phi_surf.F 59 CALC_GRAD_PHI_SURF 
       DO i=iMin,iMax
./model/src/calc_grad_phi_surf.F 60 CALC_GRAD_PHI_SURF 
        phiSurfY(i,j)=_recip_dyC(i,j,bi,bj)*
./model/src/calc_grad_phi_surf.F 61 CALC_GRAD_PHI_SURF 
     &   ( Bo_surf(i,j,bi,bj)*etaFld(i,j,bi,bj)
./model/src/calc_grad_phi_surf.F 62 CALC_GRAD_PHI_SURF 
     &   - Bo_surf(i,j-1,bi,bj)*etaFld(i,j-1,bi,bj) )
./pkg/mom_fluxform/mom_v_metric_cylinder.F 46 MOM_V_METRIC_CYLINDER 
      INTEGER i,j
./pkg/mom_fluxform/mom_v_metric_cylinder.F 51 MOM_V_METRIC_CYLINDER 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_v_metric_cylinder.F 52 MOM_V_METRIC_CYLINDER 
          radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_v_metric_cylinder.F 56 MOM_V_METRIC_CYLINDER 
             vMetricTerms(i,j) =
./pkg/mom_fluxform/mom_v_metric_cylinder.F 57 MOM_V_METRIC_CYLINDER 
     &           -0.25*(uFld(i,j) + uFld(i+1,j) +
./pkg/mom_fluxform/mom_v_metric_cylinder.F 58 MOM_V_METRIC_CYLINDER 
     &                  uFld(i,j-1)+uFld(i+1,j-1))
./pkg/mom_fluxform/mom_v_metric_cylinder.F 59 MOM_V_METRIC_CYLINDER 
     &           *0.25*(uFld(i,j) + uFld(i+1,j) +
./pkg/mom_fluxform/mom_v_metric_cylinder.F 60 MOM_V_METRIC_CYLINDER 
     &                  uFld(i,j-1)+uFld(i+1,j-1))/radius
./pkg/mom_fluxform/mom_v_metric_cylinder.F 62 MOM_V_METRIC_CYLINDER 
             vMetricTerms(i,j) = 0.
./pkg/mom_fluxform/mom_v_metric_sphere.F 44 MOM_V_METRIC_SPHERE 
      INTEGER i,j
./pkg/mom_fluxform/mom_v_metric_sphere.F 48 MOM_V_METRIC_SPHERE 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_v_metric_sphere.F 49 MOM_V_METRIC_SPHERE 
         vMetricTerms(i,j) = -recip_rSphere*recip_deepFacC(k)
./pkg/mom_fluxform/mom_v_metric_sphere.F 50 MOM_V_METRIC_SPHERE 
     &    *0.25*( uFld(i,j  )+uFld(i+1,j  )
./pkg/mom_fluxform/mom_v_metric_sphere.F 51 MOM_V_METRIC_SPHERE 
     &           +uFld(i,j-1)+uFld(i+1,j-1)
./pkg/mom_fluxform/mom_v_metric_sphere.F 53 MOM_V_METRIC_SPHERE 
     &    *0.25*( uFld(i,j  )+uFld(i+1,j  )
./pkg/mom_fluxform/mom_v_metric_sphere.F 54 MOM_V_METRIC_SPHERE 
     &           +uFld(i,j-1)+uFld(i+1,j-1)
./pkg/mom_fluxform/mom_v_metric_sphere.F 56 MOM_V_METRIC_SPHERE 
     &    *_tanPhiAtV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_xviscflux.F 56 MOM_V_XVISCFLUX 
       DO i=1-Olx+1,sNx+Olx
./pkg/mom_fluxform/mom_v_xviscflux.F 57 MOM_V_XVISCFLUX 
        xViscFluxV(i,j) =
./pkg/mom_fluxform/mom_v_xviscflux.F 58 MOM_V_XVISCFLUX 
     &    _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/mom_fluxform/mom_v_xviscflux.F 60 MOM_V_XVISCFLUX 
     &       -viscAh_Z(i,j)*( vFld(i,j)-vFld(i-1,j) )
./pkg/mom_fluxform/mom_v_xviscflux.F 62 MOM_V_XVISCFLUX 
     &       +viscA4_Z(i,j)*(del2v(i,j)-del2v(i-1,j))
./pkg/mom_fluxform/mom_v_xviscflux.F 68 MOM_V_XVISCFLUX 
     &      )*_recip_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 55 MOM_V_YVISCFLUX 
       DO i=1-Olx,sNx+Olx-1
./pkg/mom_fluxform/mom_v_yviscflux.F 56 MOM_V_YVISCFLUX 
        yViscFluxV(i,j) =
./pkg/mom_fluxform/mom_v_yviscflux.F 57 MOM_V_YVISCFLUX 
     &    _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 59 MOM_V_YVISCFLUX 
     &       -viscAh_D(i,j)*( vFld(i,j+1)-vFld(i,j) )
./pkg/mom_fluxform/mom_v_yviscflux.F 63 MOM_V_YVISCFLUX 
     &       +viscA4_D(i,j)*(del2v(i,j+1)-del2v(i,j))
./pkg/mom_fluxform/mom_v_yviscflux.F 71 MOM_V_YVISCFLUX 
     &      )*_recip_dyF(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 155 MOM_VECINV 
        DO i = 1,9
./pkg/mom_vecinv/mom_vecinv.F 156 MOM_VECINV 
          offsets(i) = 0
./pkg/mom_vecinv/mom_vecinv.F 165 MOM_VECINV 
       DO i=1-OLx,sNx+OLx
./pkg/mom_vecinv/mom_vecinv.F 166 MOM_VECINV 
        vF(i,j)    = 0.
./pkg/mom_vecinv/mom_vecinv.F 167 MOM_VECINV 
        vrF(i,j)   = 0.
./pkg/mom_vecinv/mom_vecinv.F 168 MOM_VECINV 
        uCf(i,j)   = 0.
./pkg/mom_vecinv/mom_vecinv.F 169 MOM_VECINV 
        vCf(i,j)   = 0.
./pkg/mom_vecinv/mom_vecinv.F 170 MOM_VECINV 
        del2u(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 171 MOM_VECINV 
        del2v(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 172 MOM_VECINV 
        dStar(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 173 MOM_VECINV 
        zStar(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 174 MOM_VECINV 
        guDiss(i,j)= 0.
./pkg/mom_vecinv/mom_vecinv.F 175 MOM_VECINV 
        gvDiss(i,j)= 0.
./pkg/mom_vecinv/mom_vecinv.F 176 MOM_VECINV 
        vort3(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 177 MOM_VECINV 
        omega3(i,j)= 0.
./pkg/mom_vecinv/mom_vecinv.F 178 MOM_VECINV 
        KE(i,j)    = 0.
./pkg/mom_vecinv/mom_vecinv.F 180 MOM_VECINV 
        hDiv(i,j)  = 0.
./pkg/mom_vecinv/mom_vecinv.F 181 MOM_VECINV 
        viscAh_Z(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 182 MOM_VECINV 
        viscAh_D(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 183 MOM_VECINV 
        viscA4_Z(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 184 MOM_VECINV 
        viscA4_D(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 186 MOM_VECINV 
        strain(i,j)  = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 187 MOM_VECINV 
        tension(i,j) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 189 MOM_VECINV 
        hFacZ(i,j)   = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 221 MOM_VECINV 
       DO i=1-OLx,sNx+OLx
./pkg/mom_vecinv/mom_vecinv.F 222 MOM_VECINV 
        uFld(i,j) = uVel(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 223 MOM_VECINV 
        vFld(i,j) = vVel(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 252 MOM_VECINV 
        DO i=1-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vecinv.F 253 MOM_VECINV 
          IF ( hFacZ(i,j).EQ.0. ) THEN
./pkg/mom_vecinv/mom_vecinv.F 254 MOM_VECINV 
            vort3(i,j)  = sideMaskFac*vort3(i,j)
./pkg/mom_vecinv/mom_vecinv.F 255 MOM_VECINV 
            strain(i,j) = sideMaskFac*strain(i,j)
./pkg/mom_vecinv/mom_vecinv.F 302 MOM_VECINV 
          DO i=1-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vecinv.F 303 MOM_VECINV 
            IF ( hFacZ(i,j).EQ.0. ) strain(i,j) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 337 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 338 MOM_VECINV 
         fVerU(i,j,kDown) = ArDudrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 344 MOM_VECINV 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vecinv.F 345 MOM_VECINV 
         guDiss(i,j) = guDiss(i,j)
./pkg/mom_vecinv/mom_vecinv.F 346 MOM_VECINV 
     &   -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_vecinv/mom_vecinv.F 347 MOM_VECINV 
     &   *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 349 MOM_VECINV 
     &    fVerU(i,j,kDown) - fVerU(i,j,kUp)
./pkg/mom_vecinv/mom_vecinv.F 366 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 367 MOM_VECINV 
         guDiss(i,j) = guDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 375 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 376 MOM_VECINV 
         guDiss(i,j) = guDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 384 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 385 MOM_VECINV 
         guDiss(i,j) = guDiss(i,j) + vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 402 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 403 MOM_VECINV 
         fVerV(i,j,kDown) = ArDvdrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 409 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 410 MOM_VECINV 
         gvDiss(i,j) = gvDiss(i,j)
./pkg/mom_vecinv/mom_vecinv.F 411 MOM_VECINV 
     &   -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_vecinv/mom_vecinv.F 412 MOM_VECINV 
     &    *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 414 MOM_VECINV 
     &    fVerV(i,j,kDown) - fVerV(i,j,kUp)
./pkg/mom_vecinv/mom_vecinv.F 431 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 432 MOM_VECINV 
         gvDiss(i,j) = gvDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 440 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 441 MOM_VECINV 
         gvDiss(i,j) = gvDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 449 MOM_VECINV 
          DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 450 MOM_VECINV 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 480 MOM_VECINV 
       DO i=1-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vecinv.F 481 MOM_VECINV 
         IF ( hFacZ(i,j).EQ.0. ) vort3(i,j) = 0.
./pkg/mom_vecinv/mom_vecinv.F 504 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 505 MOM_VECINV 
         gU(i,j,k,bi,bj) = uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 506 MOM_VECINV 
         gV(i,j,k,bi,bj) = vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 531 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 532 MOM_VECINV 
         gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 533 MOM_VECINV 
         gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 555 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 556 MOM_VECINV 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 574 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 575 MOM_VECINV 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 613 MOM_VECINV 
         DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 614 MOM_VECINV 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 619 MOM_VECINV 
         DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 620 MOM_VECINV 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 634 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 635 MOM_VECINV 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 640 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 641 MOM_VECINV 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 666 MOM_VECINV 
         DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 667 MOM_VECINV 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 674 MOM_VECINV 
         DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 675 MOM_VECINV 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 685 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 686 MOM_VECINV 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+uCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 691 MOM_VECINV 
        DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 692 MOM_VECINV 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+vCf(i,j)
./pkg/mom_vecinv/mom_vecinv.F 699 MOM_VECINV 
       DO i=iMin,iMax
./pkg/mom_vecinv/mom_vecinv.F 700 MOM_VECINV 
        gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 701 MOM_VECINV 
        gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 97 MOM_VECINV 
      INTEGER i,j,k
./pkg/mom_vecinv/mom_vi_coriolis.F 100 MOM_VI_CORIOLIS 
     &         )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 44 MOM_VI_CORIOLIS 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 45 MOM_VI_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 46 MOM_VI_CORIOLIS 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 47 MOM_VI_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)))
./pkg/mom_vecinv/mom_vi_coriolis.F 48 MOM_VI_CORIOLIS 
     &   / MAX( epsil,(_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 49 MOM_VI_CORIOLIS 
     &               +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj)) )
./pkg/mom_vecinv/mom_vi_coriolis.F 50 MOM_VI_CORIOLIS 
         uCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F 51 MOM_VI_CORIOLIS 
     &    +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 52 MOM_VI_CORIOLIS 
     &         )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 60 MOM_VI_CORIOLIS 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 61 MOM_VI_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 62 MOM_VI_CORIOLIS 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 63 MOM_VI_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 65 MOM_VI_CORIOLIS 
         uCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F 66 MOM_VI_CORIOLIS 
     &    +0.5*( fCoriG(i,j,bi,bj)+fCoriG(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 67 MOM_VI_CORIOLIS 
     &         )*vBarXY*recip_dxC(i,j,bi,bj)*_maskW(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 77 MOM_VI_CORIOLIS 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 78 MOM_VI_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 79 MOM_VI_CORIOLIS 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 80 MOM_VI_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)))
./pkg/mom_vecinv/mom_vi_coriolis.F 81 MOM_VI_CORIOLIS 
     &   / MAX( epsil,(_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 82 MOM_VI_CORIOLIS 
     &               +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj)) )
./pkg/mom_vecinv/mom_vi_coriolis.F 83 MOM_VI_CORIOLIS 
         vCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F 84 MOM_VI_CORIOLIS 
     &    -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 85 MOM_VI_CORIOLIS 
     &         )*uBarXY*recip_dyC(i,j,bi,bj)*_maskS(I,J,K,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 93 MOM_VI_CORIOLIS 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 94 MOM_VI_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 95 MOM_VI_CORIOLIS 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)
./pkg/mom_vecinv/mom_vi_coriolis.F 96 MOM_VI_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj))
./pkg/mom_vecinv/mom_vi_coriolis.F 98 MOM_VI_CORIOLIS 
         vCoriolisTerm(i,j)=
./pkg/mom_vecinv/mom_vi_coriolis.F 99 MOM_VI_CORIOLIS 
     &    -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 113 MOM_VI_DEL2UV 
       DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_del2uv.F 114 MOM_VI_DEL2UV 
        del2v(i,j) =
./pkg/mom_vecinv/mom_vi_del2uv.F 115 MOM_VI_DEL2UV 
     &   +     ( hDiv(i,j) - hDiv(i,j-1) )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 116 MOM_VI_DEL2UV 
     &   +_recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_del2uv.F 117 MOM_VI_DEL2UV 
     &         ( hFacZ(i+1,j)*vort3(i+1,j) - hFacZ(i,j)*vort3(i,j) )
./pkg/mom_vecinv/mom_vi_del2uv.F 118 MOM_VI_DEL2UV 
     &                                    *recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 31 MOM_VI_DEL2UV 
      INTEGER i,j
./pkg/mom_vecinv/mom_vi_del2uv.F 92 MOM_VI_DEL2UV 
       DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_del2uv.F 93 MOM_VI_DEL2UV 
        del2u(i,j) =
./pkg/mom_vecinv/mom_vi_del2uv.F 94 MOM_VI_DEL2UV 
     &   +     ( hDiv(i,j) - hDiv(i-1,j) )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 95 MOM_VI_DEL2UV 
     &   -_recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_del2uv.F 96 MOM_VI_DEL2UV 
     &         ( hFacZ(i,j+1)*vort3(i,j+1) - hFacZ(i,j)*vort3(i,j) )
./pkg/mom_vecinv/mom_vi_del2uv.F 97 MOM_VI_DEL2UV 
     &                                    *recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 101 MOM_VI_HDISSIP 
          vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 102 MOM_VI_HDISSIP 
     &               cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 103 MOM_VI_HDISSIP 
     &        + viscAhD*              ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 109 MOM_VI_HDISSIP 
         uDissip(i,j) = uD2
./pkg/mom_vecinv/mom_vi_hdissip.F 110 MOM_VI_HDISSIP 
         vDissip(i,j) = vD2
./pkg/mom_vecinv/mom_vi_hdissip.F 116 MOM_VI_HDISSIP 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_hdissip.F 117 MOM_VI_HDISSIP 
         uDissip(i,j) = 0.
./pkg/mom_vecinv/mom_vi_hdissip.F 118 MOM_VI_HDISSIP 
         vDissip(i,j) = 0.
./pkg/mom_vecinv/mom_vi_hdissip.F 126 MOM_VI_HDISSIP 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_hdissip.F 129 MOM_VI_HDISSIP 
         Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 130 MOM_VI_HDISSIP 
         Dij=dyF( i , j ,bi,bj)*dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 131 MOM_VI_HDISSIP 
         Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 133 MOM_VI_HDISSIP 
         Zip1=dxV( i ,j+1,bi,bj)*hFacZ( i ,j+1)*zStar( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F 134 MOM_VI_HDISSIP 
         Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 135 MOM_VI_HDISSIP 
         Zpj1=dxV(i+1, j ,bi,bj)*hFacZ(i+1, j )*zStar(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 137 MOM_VI_HDISSIP 
         Dim=dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 138 MOM_VI_HDISSIP 
         Dij=dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 139 MOM_VI_HDISSIP 
         Dmj=dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 141 MOM_VI_HDISSIP 
         Zip1=hFacZ( i ,j+1)*zStar( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F 142 MOM_VI_HDISSIP 
         Zij1=hFacZ( i , j )*zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 143 MOM_VI_HDISSIP 
         Zpj1=hFacZ(i+1, j )*zStar(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 150 MOM_VI_HDISSIP 
          Dij=Dij*viscA4_D(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 151 MOM_VI_HDISSIP 
          Dim=Dim*viscA4_D(i,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 152 MOM_VI_HDISSIP 
          Dmj=Dmj*viscA4_D(i-1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 153 MOM_VI_HDISSIP 
          Zij=Zij1*viscA4_Z(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 154 MOM_VI_HDISSIP 
          Zip=Zip1*viscA4_Z(i,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F 155 MOM_VI_HDISSIP 
          Zpj=Zpj1*viscA4_Z(i+1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 158 MOM_VI_HDISSIP 
          uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 160 MOM_VI_HDISSIP 
     &  -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )
./pkg/mom_vecinv/mom_vi_hdissip.F 165 MOM_VI_HDISSIP 
          vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 166 MOM_VI_HDISSIP 
     &   _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 176 MOM_VI_HDISSIP 
          uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 178 MOM_VI_HDISSIP 
     &  -_recip_hFacW(i,j,k,bi,bj)*viscA4*( Zip-Zij )
./pkg/mom_vecinv/mom_vi_hdissip.F 183 MOM_VI_HDISSIP 
          vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 184 MOM_VI_HDISSIP 
     &   _recip_hFacS(i,j,k,bi,bj)*viscA4*( (Zpj-Zij)*cosFacV(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 192 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 193 MOM_VI_HDISSIP 
     &     -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 198 MOM_VI_HDISSIP 
     &      _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 200 MOM_VI_HDISSIP 
     &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 209 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 210 MOM_VI_HDISSIP 
     &        - viscA4Z*_recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 211 MOM_VI_HDISSIP 
     &                                ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 215 MOM_VI_HDISSIP 
          vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 216 MOM_VI_HDISSIP 
     &               cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 217 MOM_VI_HDISSIP 
     &        + viscA4D*              ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 224 MOM_VI_HDISSIP 
         uDissip(i,j) = uDissip(i,j) - uD4
./pkg/mom_vecinv/mom_vi_hdissip.F 225 MOM_VI_HDISSIP 
         vDissip(i,j) = vDissip(i,j) - vD4
./pkg/mom_vecinv/mom_vi_hdissip.F 60 MOM_VI_HDISSIP 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_hdissip.F 66 MOM_VI_HDISSIP 
          Dij=hDiv( i , j )*viscAh_D(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 67 MOM_VI_HDISSIP 
          Dim=hDiv( i ,j-1)*viscAh_D(i,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 68 MOM_VI_HDISSIP 
          Dmj=hDiv(i-1, j )*viscAh_D(i-1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 69 MOM_VI_HDISSIP 
          Zij=hFacZ( i , j )*vort3( i , j )*viscAh_Z(i,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 70 MOM_VI_HDISSIP 
          Zip=hFacZ( i ,j+1)*vort3( i ,j+1)*viscAh_Z(i,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F 71 MOM_VI_HDISSIP 
          Zpj=hFacZ(i+1, j )*vort3(i+1, j )*viscAh_Z(i+1,j)
./pkg/mom_vecinv/mom_vi_hdissip.F 74 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 75 MOM_VI_HDISSIP 
     &     -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )*recip_DYG(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 80 MOM_VI_HDISSIP 
     &      _recip_hFacS(i,j,k,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 82 MOM_VI_HDISSIP 
     &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 87 MOM_VI_HDISSIP 
          Dim=hDiv( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 88 MOM_VI_HDISSIP 
          Dij=hDiv( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 89 MOM_VI_HDISSIP 
          Dmj=hDiv(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 90 MOM_VI_HDISSIP 
          Zip=hFacZ( i ,j+1)*vort3( i ,j+1)
./pkg/mom_vecinv/mom_vi_hdissip.F 91 MOM_VI_HDISSIP 
          Zij=hFacZ( i , j )*vort3( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 92 MOM_VI_HDISSIP 
          Zpj=hFacZ(i+1, j )*vort3(i+1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 95 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 96 MOM_VI_HDISSIP 
     &        - viscAhZ*_recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 97 MOM_VI_HDISSIP 
     &                                ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 101 MOM_VI_U_CORIOLIS 
           vort3u=omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 104 MOM_VI_U_CORIOLIS 
           vort3u=0.5*(omega3(i,j)+omega3(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 106 MOM_VI_U_CORIOLIS 
         uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 107 MOM_VI_U_CORIOLIS 
     &                              * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 115 MOM_VI_U_CORIOLIS 
        DO i=2-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vi_u_coriolis.F 117 MOM_VI_U_CORIOLIS 
     &       vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 118 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 120 MOM_VI_U_CORIOLIS 
     &       vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 121 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 124 MOM_VI_U_CORIOLIS 
           vort3u=vBarXm*r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 126 MOM_VI_U_CORIOLIS 
           vort3u=vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 129 MOM_VI_U_CORIOLIS 
           vort3u = ( vBarXm*r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 130 MOM_VI_U_CORIOLIS 
     &               +vBarXp*r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 133 MOM_VI_U_CORIOLIS 
         uCoriolisTerm(i,j)= +vort3u*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 134 MOM_VI_U_CORIOLIS 
     &                              * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 146 MOM_VI_U_CORIOLIS 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_u_coriolis.F 147 MOM_VI_U_CORIOLIS 
         vort3mj= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 148 MOM_VI_U_CORIOLIS 
     &            +(r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 149 MOM_VI_U_CORIOLIS 
     &             +r_hFacZ(i-1,j)*omega3(i-1,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 152 MOM_VI_U_CORIOLIS 
     &      *vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 153 MOM_VI_U_CORIOLIS 
         vort3ij= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 154 MOM_VI_U_CORIOLIS 
     &            +(r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 155 MOM_VI_U_CORIOLIS 
     &             +r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 158 MOM_VI_U_CORIOLIS 
     &      *vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 159 MOM_VI_U_CORIOLIS 
         vort3mp= ( r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 160 MOM_VI_U_CORIOLIS 
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 161 MOM_VI_U_CORIOLIS 
     &             +r_hFacZ(i-1,j+1)*omega3(i-1,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 164 MOM_VI_U_CORIOLIS 
     &      *vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 165 MOM_VI_U_CORIOLIS 
         vort3ip= ( r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 166 MOM_VI_U_CORIOLIS 
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 167 MOM_VI_U_CORIOLIS 
     &             +r_hFacZ(i+1,j+1)*omega3(i+1,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 170 MOM_VI_U_CORIOLIS 
     &      *vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 172 MOM_VI_U_CORIOLIS 
         uCoriolisTerm(i,j)= +( (vort3mj+vort3ij)+(vort3mp+vort3ip) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 173 MOM_VI_U_CORIOLIS 
     &                     *0.25 _d 0 *recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 174 MOM_VI_U_CORIOLIS 
     &                                * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 189 MOM_VI_U_CORIOLIS 
        DO i=2-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_u_coriolis.F 190 MOM_VI_U_CORIOLIS 
         uCoriolisTerm(i,j) = uCoriolisTerm(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 191 MOM_VI_U_CORIOLIS 
     &           * 4. _d 0 * _hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 193 MOM_VI_U_CORIOLIS 
     &                  (_hFacS(i, j ,k,bi,bj)+_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 194 MOM_VI_U_CORIOLIS 
     &                 +(_hFacS(i,j+1,k,bi,bj)+_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 47 MOM_VI_U_CORIOLIS 
      INTEGER i, j
./pkg/mom_vecinv/mom_vi_u_coriolis.F 64 MOM_VI_U_CORIOLIS 
        DO i=2-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vi_u_coriolis.F 66 MOM_VI_U_CORIOLIS 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 67 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 68 MOM_VI_U_CORIOLIS 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 69 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 73 MOM_VI_U_CORIOLIS 
           vort3u=omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 75 MOM_VI_U_CORIOLIS 
           vort3u=omega3(i,j+1)*r_hFacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 78 MOM_VI_U_CORIOLIS 
           vort3u=0.5*(omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 79 MOM_VI_U_CORIOLIS 
     &                +omega3(i,j+1)*r_hFacZ(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 81 MOM_VI_U_CORIOLIS 
         uCoriolisTerm(i,j)= +vort3u*vBarXY*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 82 MOM_VI_U_CORIOLIS 
     &                              * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 90 MOM_VI_U_CORIOLIS 
        DO i=2-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vi_u_coriolis.F 92 MOM_VI_U_CORIOLIS 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)*hFacZ(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 93 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*hFacZ(i, j ))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 94 MOM_VI_U_CORIOLIS 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*hFacZ(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 95 MOM_VI_U_CORIOLIS 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*hFacZ(i,j+1))
./pkg/mom_vecinv/mom_vi_u_coriolis.F 96 MOM_VI_U_CORIOLIS 
     &               )/MAX( epsil, hFacZ(i,j)+hFacZ(i,j+1) )
./pkg/mom_vecinv/mom_vi_u_coriolis.F 99 MOM_VI_U_CORIOLIS 
           vort3u=omega3(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 100 MOM_VI_U_CORIOLIS_C4 
         i = sNx+1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 102 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i-1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 105 MOM_VI_U_CORIOLIS_C4 
         i = 1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 107 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i+1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 110 MOM_VI_U_CORIOLIS_C4 
         i = sNx+1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 112 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i-1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 126 MOM_VI_U_CORIOLIS_C4 
        DO i=1,sNx+1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 129 MOM_VI_U_CORIOLIS_C4 
     &      (vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 130 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 131 MOM_VI_U_CORIOLIS_C4 
     &     +(vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 132 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 136 MOM_VI_U_CORIOLIS_C4 
           vort3u=vort3r(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 138 MOM_VI_U_CORIOLIS_C4 
           vort3u=vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 141 MOM_VI_U_CORIOLIS_C4 
          Rjp = vort3r(i,j+2) - vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 142 MOM_VI_U_CORIOLIS_C4 
          Rjm = vort3r(i, j ) - vort3r(i,j-1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 143 MOM_VI_U_CORIOLIS_C4 
          vort3u=0.5*( vort3r(i,j) + vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 147 MOM_VI_U_CORIOLIS_C4 
          vort3u=0.5*( vort3r(i,j) + vort3r(i,j+1) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 150 MOM_VI_U_CORIOLIS_C4 
         uCoriolisTerm(i,j) =  vort3u*vBarXY*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 151 MOM_VI_U_CORIOLIS_C4 
     &                               * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 162 MOM_VI_U_CORIOLIS_C4 
        DO i=1,sNx+1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 165 MOM_VI_U_CORIOLIS_C4 
     &       vFld( i , j )*dxG( i , j ,bi,bj)*_hFacS( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 166 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1, j )*dxG(i-1, j ,bi,bj)*_hFacS(i-1, j ,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 168 MOM_VI_U_CORIOLIS_C4 
     &       vFld( i ,j+1)*dxG( i ,j+1,bi,bj)*_hFacS( i ,j+1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 169 MOM_VI_U_CORIOLIS_C4 
     &      +vFld(i-1,j+1)*dxG(i-1,j+1,bi,bj)*_hFacS(i-1,j+1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 172 MOM_VI_U_CORIOLIS_C4 
           vort3u=vBarXm*vort3r(i, j )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 174 MOM_VI_U_CORIOLIS_C4 
           vort3u=vBarXp*vort3r(i,j+1)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 177 MOM_VI_U_CORIOLIS_C4 
          Rjp = vort3r(i,j+1) -oneSixth*( vort3r(i,j+2)-vort3r(i, j ) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 178 MOM_VI_U_CORIOLIS_C4 
          Rjm = vort3r(i, j ) +oneSixth*( vort3r(i,j+1)-vort3r(i,j-1) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 181 MOM_VI_U_CORIOLIS_C4 
          vort3u=0.5*( vBarXm*vort3r(i, j ) + vBarXp*vort3r(i,j+1) )
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 184 MOM_VI_U_CORIOLIS_C4 
         uCoriolisTerm(i,j) =  vort3u*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 185 MOM_VI_U_CORIOLIS_C4 
     &                               * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 49 MOM_VI_U_CORIOLIS_C4 
      INTEGER i,j
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 68 MOM_VI_U_CORIOLIS_C4 
       DO i=1-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 69 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 95 MOM_VI_U_CORIOLIS_C4 
         i = 1
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 97 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i+1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_grad_ke.F 33 MOM_VI_U_GRAD_KE 
         dKEdx(I,J)=-_recip_dxC(i,j,bi,bj)*(KE(i,j)-KE(i-1,j))
./pkg/mom_vecinv/mom_vi_u_grad_ke.F 34 MOM_VI_U_GRAD_KE 
     &       *_maskW(i,j,k,BI,BJ)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 126 MOM_VI_U_VERTSHEAR 
     &                   )*_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 131 MOM_VI_U_VERTSHEAR 
     &                    *_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 69 MOM_VI_U_VERTSHEAR 
     &    wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 70 MOM_VI_U_VERTSHEAR 
     &   +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 72 MOM_VI_U_VERTSHEAR 
     &              *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 76 MOM_VI_U_VERTSHEAR 
     &    wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 77 MOM_VI_U_VERTSHEAR 
     &   +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 79 MOM_VI_U_VERTSHEAR 
     &              *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 101 MOM_VI_V_CORIOLIS 
           vort3v=omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 104 MOM_VI_V_CORIOLIS 
           vort3v=0.5*(omega3(i,j)+omega3(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 106 MOM_VI_V_CORIOLIS 
         vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 107 MOM_VI_V_CORIOLIS 
     &                              * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 115 MOM_VI_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_v_coriolis.F 117 MOM_VI_V_CORIOLIS 
     &       uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 118 MOM_VI_V_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 120 MOM_VI_V_CORIOLIS 
     &       uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 121 MOM_VI_V_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 124 MOM_VI_V_CORIOLIS 
           vort3v=uBarYm*r_hFacZ( i ,j)*omega3( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 126 MOM_VI_V_CORIOLIS 
           vort3v=uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 129 MOM_VI_V_CORIOLIS 
           vort3v = ( uBarYm*r_hFacZ( i ,j)*omega3( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 130 MOM_VI_V_CORIOLIS 
     &               +uBarYp*r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 133 MOM_VI_V_CORIOLIS 
         vCoriolisTerm(i,j)= -vort3v*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 134 MOM_VI_V_CORIOLIS 
     &                              * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 146 MOM_VI_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_v_coriolis.F 147 MOM_VI_V_CORIOLIS 
         vort3im= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 148 MOM_VI_V_CORIOLIS 
     &            +(r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 149 MOM_VI_V_CORIOLIS 
     &             +r_hFacZ(i,j-1)*omega3(i,j-1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 152 MOM_VI_V_CORIOLIS 
     &      *uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 153 MOM_VI_V_CORIOLIS 
         vort3ij= ( r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 154 MOM_VI_V_CORIOLIS 
     &            +(r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 155 MOM_VI_V_CORIOLIS 
     &             +r_hFacZ(i,j+1)*omega3(i,j+1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 158 MOM_VI_V_CORIOLIS 
     &      *uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 159 MOM_VI_V_CORIOLIS 
         vort3pm= ( r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 160 MOM_VI_V_CORIOLIS 
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 161 MOM_VI_V_CORIOLIS 
     &             +r_hFacZ(i+1,j-1)*omega3(i+1,j-1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 164 MOM_VI_V_CORIOLIS 
     &      *uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 165 MOM_VI_V_CORIOLIS 
         vort3pj= ( r_hFacZ(i+1,j)*omega3(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 166 MOM_VI_V_CORIOLIS 
     &            +(r_hFacZ(i, j )*omega3(i, j )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 167 MOM_VI_V_CORIOLIS 
     &             +r_hFacZ(i+1,j+1)*omega3(i+1,j+1)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 170 MOM_VI_V_CORIOLIS 
     &      *uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 172 MOM_VI_V_CORIOLIS 
         vCoriolisTerm(i,j)= -( (vort3im+vort3ij)+(vort3pm+vort3pj) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 173 MOM_VI_V_CORIOLIS 
     &                     *0.25 _d 0 *recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 174 MOM_VI_V_CORIOLIS 
     &                                * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 189 MOM_VI_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_v_coriolis.F 190 MOM_VI_V_CORIOLIS 
         vCoriolisTerm(i,j) = vCoriolisTerm(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 191 MOM_VI_V_CORIOLIS 
     &           * 4. _d 0 * _hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 193 MOM_VI_V_CORIOLIS 
     &                  (_hFacW( i ,j,k,bi,bj)+_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 194 MOM_VI_V_CORIOLIS 
     &                 +(_hFacW(i+1,j,k,bi,bj)+_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 47 MOM_VI_V_CORIOLIS 
      INTEGER i, j
./pkg/mom_vecinv/mom_vi_v_coriolis.F 64 MOM_VI_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_v_coriolis.F 66 MOM_VI_V_CORIOLIS 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 67 MOM_VI_V_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 68 MOM_VI_V_CORIOLIS 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 69 MOM_VI_V_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 73 MOM_VI_V_CORIOLIS 
           vort3v=omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 75 MOM_VI_V_CORIOLIS 
           vort3v=omega3(i+1,j)*r_hFacZ(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 78 MOM_VI_V_CORIOLIS 
           vort3v=0.5*(omega3(i,j)*r_hFacZ(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 79 MOM_VI_V_CORIOLIS 
     &                +omega3(i+1,j)*r_hFacZ(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 81 MOM_VI_V_CORIOLIS 
         vCoriolisTerm(i,j)= -vort3v*uBarXY*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 82 MOM_VI_V_CORIOLIS 
     &                              * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 90 MOM_VI_V_CORIOLIS 
        DO i=1-Olx,sNx+Olx-1
./pkg/mom_vecinv/mom_vi_v_coriolis.F 92 MOM_VI_V_CORIOLIS 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)*hFacZ( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 93 MOM_VI_V_CORIOLIS 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*hFacZ( i ,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 94 MOM_VI_V_CORIOLIS 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*hFacZ(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 95 MOM_VI_V_CORIOLIS 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*hFacZ(i+1,j))
./pkg/mom_vecinv/mom_vi_v_coriolis.F 96 MOM_VI_V_CORIOLIS 
     &               )/MAX( epsil, hFacZ(i,j)+hFacZ(i+1,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 99 MOM_VI_V_CORIOLIS 
           vort3v=omega3(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 100 MOM_VI_V_CORIOLIS_C4 
         i = sNx+1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 102 MOM_VI_V_CORIOLIS_C4 
         vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j+1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 105 MOM_VI_V_CORIOLIS_C4 
         i = 1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 107 MOM_VI_V_CORIOLIS_C4 
         vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j-1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 110 MOM_VI_V_CORIOLIS_C4 
         i = sNx+1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 112 MOM_VI_V_CORIOLIS_C4 
         vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j-1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 126 MOM_VI_V_CORIOLIS_C4 
        DO i=1,sNx
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 129 MOM_VI_V_CORIOLIS_C4 
     &      (uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 130 MOM_VI_V_CORIOLIS_C4 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 131 MOM_VI_V_CORIOLIS_C4 
     &     +(uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 132 MOM_VI_V_CORIOLIS_C4 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj))
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 136 MOM_VI_V_CORIOLIS_C4 
           vort3v=vort3r(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 138 MOM_VI_V_CORIOLIS_C4 
           vort3v=vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 141 MOM_VI_V_CORIOLIS_C4 
          Rjp = vort3r(i+2,j) - vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 142 MOM_VI_V_CORIOLIS_C4 
          Rjm = vort3r( i ,j) - vort3r(i-1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 143 MOM_VI_V_CORIOLIS_C4 
          vort3v=0.5*( vort3r(i,j) + vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 147 MOM_VI_V_CORIOLIS_C4 
          vort3v=0.5*( vort3r(i,j) + vort3r(i+1,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 150 MOM_VI_V_CORIOLIS_C4 
         vCoriolisTerm(i,j) = -vort3v*uBarXY*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 151 MOM_VI_V_CORIOLIS_C4 
     &                               * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 162 MOM_VI_V_CORIOLIS_C4 
        DO i=1,sNx
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 165 MOM_VI_V_CORIOLIS_C4 
     &       uFld( i , j )*dyG( i , j ,bi,bj)*_hFacW( i , j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 166 MOM_VI_V_CORIOLIS_C4 
     &      +uFld( i ,j-1)*dyG( i ,j-1,bi,bj)*_hFacW( i ,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 168 MOM_VI_V_CORIOLIS_C4 
     &       uFld(i+1, j )*dyG(i+1, j ,bi,bj)*_hFacW(i+1, j ,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 169 MOM_VI_V_CORIOLIS_C4 
     &      +uFld(i+1,j-1)*dyG(i+1,j-1,bi,bj)*_hFacW(i+1,j-1,k,bi,bj) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 172 MOM_VI_V_CORIOLIS_C4 
           vort3v=uBarYm*vort3r( i ,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 174 MOM_VI_V_CORIOLIS_C4 
           vort3v=uBarYp*vort3r(i+1,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 177 MOM_VI_V_CORIOLIS_C4 
          Rjp = vort3r(i+1,j) -oneSixth*( vort3r(i+2,j)-vort3r( i ,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 178 MOM_VI_V_CORIOLIS_C4 
          Rjm = vort3r( i ,j) +oneSixth*( vort3r(i+1,j)-vort3r(i-1,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 181 MOM_VI_V_CORIOLIS_C4 
          vort3v=0.5*( uBarYm*vort3r( i ,j) + uBarYp*vort3r(i+1,j) )
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 184 MOM_VI_V_CORIOLIS_C4 
         vCoriolisTerm(i,j) = -vort3v*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 185 MOM_VI_V_CORIOLIS_C4 
     &                               * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 49 MOM_VI_V_CORIOLIS_C4 
      INTEGER i,j
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 68 MOM_VI_V_CORIOLIS_C4 
       DO i=1-Olx,sNx+Olx
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 69 MOM_VI_V_CORIOLIS_C4 
         vort3r(i,j) = r_hFacZ(i,j)*omega3(i,j)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 95 MOM_VI_V_CORIOLIS_C4 
         i = 1
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 97 MOM_VI_V_CORIOLIS_C4 
         vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j+1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_grad_ke.F 33 MOM_VI_V_GRAD_KE 
         dKEdy(I,J)=-_recip_dyC(i,j,bi,bj)*(KE(i,j)-KE(i,j-1))
./pkg/mom_vecinv/mom_vi_v_grad_ke.F 34 MOM_VI_V_GRAD_KE 
     &       *_maskS(i,j,k,BI,BJ)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 126 MOM_VI_V_VERTSHEAR 
     &                   )*_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 131 MOM_VI_V_VERTSHEAR 
     &                    *_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 69 MOM_VI_V_VERTSHEAR 
     &    wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 70 MOM_VI_V_VERTSHEAR 
     &   +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 72 MOM_VI_V_VERTSHEAR 
     &              *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 76 MOM_VI_V_VERTSHEAR 
     &    wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 77 MOM_VI_V_VERTSHEAR 
     &   +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 79 MOM_VI_V_VERTSHEAR 
     &              *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 83 MOM_VI_V_VERTSHEAR 
     &    wFld(I,J,K,bi,bj)*maskC(i,j,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 84 MOM_VI_V_VERTSHEAR 
     &   +wFld(I,J-1,K,bi,bj)*maskC(i,j-1,Km1,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 101 MON_CALC_STATS_RL 
            tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask
./pkg/monitor/mon_calc_stats_rl.F 140 MON_CALC_STATS_RL 
           DO i=1,sNx
./pkg/monitor/mon_calc_stats_rl.F 141 MON_CALC_STATS_RL 
            tmpVal=arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 142 MON_CALC_STATS_RL 
            tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 144 MON_CALC_STATS_RL 
             tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask
./pkg/monitor/mon_calc_stats_rl.F 36 MON_CALC_STATS_RL 
      INTEGER bi,bj,i,j,k
./pkg/monitor/mon_calc_stats_rl.F 68 MON_CALC_STATS_RL 
          DO i=1,sNx
./pkg/monitor/mon_calc_stats_rl.F 69 MON_CALC_STATS_RL 
           tmpVal  = arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 70 MON_CALC_STATS_RL 
           tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 88 MON_CALC_STATS_RL 
            ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 90 MON_CALC_STATS_RL 
             ddx = (arr(i+1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F 91 MON_CALC_STATS_RL 
     &           + (arr(i-1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F 93 MON_CALC_STATS_RL 
            ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 95 MON_CALC_STATS_RL 
             ddy = (arr(i,j+1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F 96 MON_CALC_STATS_RL 
     &           + (arr(i,j-1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F 101 MON_CALC_STATS_RS 
            tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask
./pkg/monitor/mon_calc_stats_rs.F 140 MON_CALC_STATS_RS 
           DO i=1,sNx
./pkg/monitor/mon_calc_stats_rs.F 141 MON_CALC_STATS_RS 
            tmpVal=arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F 142 MON_CALC_STATS_RS 
            tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F 144 MON_CALC_STATS_RS 
             tmpVol = arrArea(i,j,bi,bj)*arrDr(k)*tmpMask
./pkg/monitor/mon_calc_stats_rs.F 36 MON_CALC_STATS_RS 
      INTEGER bi,bj,i,j,k
./pkg/monitor/mon_calc_stats_rs.F 68 MON_CALC_STATS_RS 
          DO i=1,sNx
./pkg/monitor/mon_calc_stats_rs.F 69 MON_CALC_STATS_RS 
           tmpVal  = arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F 70 MON_CALC_STATS_RS 
           tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F 88 MON_CALC_STATS_RS 
            ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F 90 MON_CALC_STATS_RS 
             ddx = (arr(i+1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F 91 MON_CALC_STATS_RS 
     &           + (arr(i-1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F 93 MON_CALC_STATS_RS 
            ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj)
./pkg/monitor/mon_calc_stats_rs.F 95 MON_CALC_STATS_RS 
             ddy = (arr(i,j+1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rs.F 96 MON_CALC_STATS_RS 
     &           + (arr(i,j-1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_ke.F 100 MON_KE 
     &         +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1
./pkg/monitor/mon_ke.F 102 MON_KE 
     &        )*maskC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 104 MON_KE 
     &             + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 121 MON_KE 
          DO i=1,sNx
./pkg/monitor/mon_ke.F 122 MON_KE 
           tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
./pkg/monitor/mon_ke.F 123 MON_KE 
     &                      *etaN(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 127 MON_KE 
     &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 129 MON_KE 
     &            + tmpVal*rA(i,j,bi,bj)*deepFac2F(1)
./pkg/monitor/mon_ke.F 130 MON_KE 
     &                    *maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F 32 MON_KE 
      INTEGER bi,bj,i,j,k,kp1
./pkg/monitor/mon_ke.F 65 MON_KE 
          DO i=1,sNx
./pkg/monitor/mon_ke.F 67 MON_KE 
     &                    + rA(i,j,bi,bj)*deepFac2C(k)
./pkg/monitor/mon_ke.F 68 MON_KE 
     &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 82 MON_KE 
     &       uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F 83 MON_KE 
     &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F 84 MON_KE 
     &      +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
./pkg/monitor/mon_ke.F 85 MON_KE 
     &         *dyG(i+1,j,bi,bj)*dxC(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)
./pkg/monitor/mon_ke.F 86 MON_KE 
     &      +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 87 MON_KE 
     &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 88 MON_KE 
     &      +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
./pkg/monitor/mon_ke.F 89 MON_KE 
     &         *dxG(i,j+1,bi,bj)*dyC(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)
./pkg/monitor/mon_ke.F 93 MON_KE 
           tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/monitor/mon_ke.F 98 MON_KE 
     &        ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1
./pkg/monitor/mon_out.F 124 MON_OUT_ALL 
      INTEGER  i, I0,I1, IL
./pkg/monitor/mon_out.F 138 MON_OUT_ALL 
        DO i = 1,100
./pkg/monitor/mon_out.F 139 MON_OUT_ALL 
          mon_vname(i:i) = ' '
./model/src/calc_gw.F 125 CALC_GW 
         DO i=1-OLx,sNx+OLx
./model/src/calc_gw.F 126 CALC_GW 
           gW(i,j,k,bi,bj) = 0.
./model/src/calc_gw.F 132 CALC_GW 
       DO i=1-OLx,sNx+OLx
./model/src/calc_gw.F 133 CALC_GW 
         gwDiss(i,j) = 0.
./model/src/calc_gw.F 139 CALC_GW 
         DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 140 CALC_GW 
           del2w(i,j) = 0. _d 0
./model/src/calc_gw.F 147 CALC_GW 
       DO i=1-OLx,sNx+OLx
./model/src/calc_gw.F 148 CALC_GW 
         flxAdvUp(i,j) = 0.
./model/src/calc_gw.F 166 CALC_GW 
          DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 167 CALC_GW 
           IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR.
./model/src/calc_gw.F 168 CALC_GW 
     &          maskC(i,j, k ,bi,bj).EQ.0. ) THEN
./model/src/calc_gw.F 169 CALC_GW 
             recip_rThickC(i,j) = 0.
./model/src/calc_gw.F 172 CALC_GW 
             recip_rThickC(i,j) = 1. _d 0 /
./model/src/calc_gw.F 173 CALC_GW 
     &        (  MIN( Ro_surf(i,j,bi,bj),rC(k-1) )
./model/src/calc_gw.F 174 CALC_GW 
     &         - MAX( R_low(i,j,bi,bj),  rC(k)   )
./model/src/calc_gw.F 181 CALC_GW 
          DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 182 CALC_GW 
           rThickC_C(i,j) = MAX( zeroRS,
./model/src/calc_gw.F 183 CALC_GW 
     &                           MIN( Ro_surf(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F 184 CALC_GW 
     &                          -MAX(   R_low(i,j,bi,bj),  rC(k)  )
./model/src/calc_gw.F 189 CALC_GW 
          DO i=1-Olx+1,sNx+Olx
./model/src/calc_gw.F 190 CALC_GW 
           rThickC_W(i,j) = MAX( zeroRS,
./model/src/calc_gw.F 191 CALC_GW 
     &                           MIN( rSurfW(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F 192 CALC_GW 
     &                          -MAX(  rLowW(i,j,bi,bj), rC(k)   )
./model/src/calc_gw.F 195 CALC_GW 
           xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j)
./model/src/calc_gw.F 200 CALC_GW 
          DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 201 CALC_GW 
           rThickC_S(i,j) = MAX( zeroRS,
./model/src/calc_gw.F 202 CALC_GW 
     &                           MIN( rSurfS(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F 203 CALC_GW 
     &                          -MAX(  rLowS(i,j,bi,bj), rC(k)   )
./model/src/calc_gw.F 206 CALC_GW 
           yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j)
./model/src/calc_gw.F 215 CALC_GW 
          DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 217 CALC_GW 
           IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/calc_gw.F 218 CALC_GW 
             recip_rThickC(i,j) = 0.
./model/src/calc_gw.F 220 CALC_GW 
             recip_rThickC(i,j) = 1. _d 0 /
./model/src/calc_gw.F 222 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 227 CALC_GW 
           rThickC_C(i,j) =
./model/src/calc_gw.F 228 CALC_GW 
     &          drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 229 CALC_GW 
     &        + drF( k )*MIN( h0FacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 231 CALC_GW 
           rThickC_C(i,j) =
./model/src/calc_gw.F 232 CALC_GW 
     &          drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 233 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 235 CALC_GW 
           rThickC_W(i,j) =
./model/src/calc_gw.F 236 CALC_GW 
     &          drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 237 CALC_GW 
     &        + drF( k )*MIN( _hFacW(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 238 CALC_GW 
           rThickC_S(i,j) =
./model/src/calc_gw.F 239 CALC_GW 
     &          drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 240 CALC_GW 
     &        + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 242 CALC_GW 
           xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j)
./model/src/calc_gw.F 245 CALC_GW 
           yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j)
./model/src/calc_gw.F 255 CALC_GW 
          DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 256 CALC_GW 
           recip_rThickC(i,j) = recip_drC(k)
./model/src/calc_gw.F 268 CALC_GW 
          DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 269 CALC_GW 
            wFld(i,j) = wVel(i,j,k,bi,bj)
./model/src/calc_gw.F 285 CALC_GW 
           DO i=1-Olx+1,sNx+Olx
./model/src/calc_gw.F 286 CALC_GW 
            flx_EW(i,j) =
./model/src/calc_gw.F 287 CALC_GW 
     &               ( wFld(i,j) - wFld(i-1,j) )
./model/src/calc_gw.F 288 CALC_GW 
     &              *_recip_dxC(i,j,bi,bj)*xA(i,j)
./model/src/calc_gw.F 301 CALC_GW 
          DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 302 CALC_GW 
           flx_NS(i,1-Oly)=0.
./model/src/calc_gw.F 305 CALC_GW 
           DO i=1-Olx,sNx+Olx
./model/src/calc_gw.F 306 CALC_GW 
            flx_NS(i,j) =
./model/src/calc_gw.F 307 CALC_GW 
     &               ( wFld(i,j) - wFld(i,j-1) )
./model/src/calc_gw.F 308 CALC_GW 
     &              *_recip_dyC(i,j,bi,bj)*yA(i,j)
./model/src/calc_gw.F 320 CALC_GW 
           DO i=1-Olx,sNx+Olx-1
./model/src/calc_gw.F 321 CALC_GW 
            del2w(i,j) = ( ( flx_EW(i+1,j)-flx_EW(i,j) )
./model/src/calc_gw.F 322 CALC_GW 
     &                    +( flx_NS(i,j+1)-flx_NS(i,j) )
./model/src/calc_gw.F 323 CALC_GW 
     &                   )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 333 CALC_GW 
           DO i=iMin,iMax+1
./model/src/calc_gw.F 334 CALC_GW 
             flx_EW(i,j)=
./model/src/calc_gw.F 335 CALC_GW 
     &       - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F 336 CALC_GW 
     &              *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj))
./model/src/calc_gw.F 337 CALC_GW 
     &              *_recip_dxC(i,j,bi,bj)*xA(i,j)
./model/src/calc_gw.F 339 CALC_GW 
     &       + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F 340 CALC_GW 
     &              *(del2w(i,j)-del2w(i-1,j))
./model/src/calc_gw.F 341 CALC_GW 
     &              *_recip_dxC(i,j,bi,bj)*xA(i,j)
./model/src/calc_gw.F 351 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 352 CALC_GW 
             flx_NS(i,j)=
./model/src/calc_gw.F 353 CALC_GW 
     &       - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL
./model/src/calc_gw.F 354 CALC_GW 
     &              *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj))
./model/src/calc_gw.F 355 CALC_GW 
     &              *_recip_dyC(i,j,bi,bj)*yA(i,j)
./model/src/calc_gw.F 359 CALC_GW 
     &       + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL
./model/src/calc_gw.F 360 CALC_GW 
     &              *(del2w(i,j)-del2w(i,j-1))
./model/src/calc_gw.F 361 CALC_GW 
     &              *_recip_dyC(i,j,bi,bj)*yA(i,j)
./model/src/calc_gw.F 373 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 375 CALC_GW 
             viscLoc = ( KappaRU(i,j,k)  +KappaRU(i+1,j,k)
./model/src/calc_gw.F 376 CALC_GW 
     &                  +KappaRU(i,j,kp1)+KappaRU(i+1,j,kp1)
./model/src/calc_gw.F 377 CALC_GW 
     &                  +KappaRV(i,j,k)  +KappaRV(i,j+1,k)
./model/src/calc_gw.F 378 CALC_GW 
     &                  +KappaRV(i,j,kp1)+KappaRV(i,j+1,kp1)
./model/src/calc_gw.F 380 CALC_GW 
             flx_Dn(i,j) =
./model/src/calc_gw.F 381 CALC_GW 
     &          - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1
./model/src/calc_gw.F 382 CALC_GW 
     &                     -wVel(i,j, k ,bi,bj) )*rkSign
./model/src/calc_gw.F 383 CALC_GW 
     &                   *recip_drF(k)*rA(i,j,bi,bj)
./model/src/calc_gw.F 390 CALC_GW 
            DO i=iMin,iMax
./model/src/calc_gw.F 395 CALC_GW 
             viscLoc = ( KappaRU(i,j,k) + KappaRU(i+1,j,k)
./model/src/calc_gw.F 396 CALC_GW 
     &                  +KappaRV(i,j,k) + KappaRV(i,j+1,k)
./model/src/calc_gw.F 398 CALC_GW 
             flxDisUp(i,j) =
./model/src/calc_gw.F 399 CALC_GW 
     &          - viscLoc*( wVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 400 CALC_GW 
     &                     -wVel(i,j,k-1,bi,bj) )*rkSign
./model/src/calc_gw.F 401 CALC_GW 
     &                   *recip_drF(k-1)*rA(i,j,bi,bj)
./model/src/calc_gw.F 411 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 412 CALC_GW 
             gwDiss(i,j) =
./model/src/calc_gw.F 413 CALC_GW 
     &        -(   ( flx_EW(i+1,j)-flx_EW(i,j) )
./model/src/calc_gw.F 414 CALC_GW 
     &           + ( flx_NS(i,j+1)-flx_NS(i,j) )
./model/src/calc_gw.F 415 CALC_GW 
     &           + ( flx_Dn(i,j)-flxDisUp(i,j) )*rkSign
./model/src/calc_gw.F 417 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 420 CALC_GW 
             flxDisUp(i,j)=flx_Dn(i,j)
./model/src/calc_gw.F 435 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 436 CALC_GW 
            gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j)
./model/src/calc_gw.F 448 CALC_GW 
           DO i=iMin,iMax+1
./model/src/calc_gw.F 451 CALC_GW 
     &          drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 453 CALC_GW 
     &        + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 455 CALC_GW 
     &                )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k)
./model/src/calc_gw.F 456 CALC_GW 
             flx_EW(i,j) = uTrans*(wFld(i,j)+wFld(i-1,j))*halfRL
./model/src/calc_gw.F 463 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 466 CALC_GW 
     &          drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 468 CALC_GW 
     &         +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 470 CALC_GW 
     &                )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k)
./model/src/calc_gw.F 471 CALC_GW 
             flx_NS(i,j) = vTrans*(wFld(i,j)+wFld(i,j-1))*halfRL
./model/src/calc_gw.F 480 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 483 CALC_GW 
     &              ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k )
./model/src/calc_gw.F 484 CALC_GW 
     &               +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 )
./model/src/calc_gw.F 487 CALC_GW 
     &              ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k )
./model/src/calc_gw.F 488 CALC_GW 
     &               +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1)
./model/src/calc_gw.F 490 CALC_GW 
     &              )*rA(i,j,bi,bj)
./model/src/calc_gw.F 491 CALC_GW 
             flx_Dn(i,j) = rTrans*tmp_WbarZ
./model/src/calc_gw.F 498 CALC_GW 
            DO i=iMin,iMax
./model/src/calc_gw.F 499 CALC_GW 
             tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k)
./model/src/calc_gw.F 500 CALC_GW 
             rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/calc_gw.F 501 CALC_GW 
     &               *rA(i,j,bi,bj)
./model/src/calc_gw.F 502 CALC_GW 
             flxAdvUp(i,j) = rTrans*tmp_WbarZ
./model/src/calc_gw.F 511 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 514 CALC_GW 
             gW(i,j,k,bi,bj) =
./model/src/calc_gw.F 515 CALC_GW 
     &        -(   ( flx_EW(i+1,j)-flx_EW(i,j) )
./model/src/calc_gw.F 516 CALC_GW 
     &           + ( flx_NS(i,j+1)-flx_NS(i,j) )
./model/src/calc_gw.F 517 CALC_GW 
     &           + ( flx_Dn(i,j)-flxAdvUp(i,j) )*rkSign*wUnit2rVel(k)
./model/src/calc_gw.F 518 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 525 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 527 CALC_GW 
             flxAdvUp(i,j)=flx_Dn(i,j)
./model/src/calc_gw.F 551 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 552 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j)
./model/src/calc_gw.F 563 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 564 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j)
./model/src/calc_gw.F 589 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 590 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j)
./model/src/calc_gw.F 612 CALC_GW 
           DO i=iMin,iMax
./model/src/calc_gw.F 613 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j)
./model/src/calc_gw.F 92 CALC_GW 
      INTEGER i,j,k, km1, kp1
./pkg/monitor/mon_stats_latbnd_rl.F 101 MON_STATS_LATBND_RL 
          DO i=1,sNx
./pkg/monitor/mon_stats_latbnd_rl.F 102 MON_STATS_LATBND_RL 
           n = NLATBND(nSepBnd, ySepBnd, arrY(i,j,bi,bj) )
./pkg/monitor/mon_stats_latbnd_rl.F 103 MON_STATS_LATBND_RL 
           tmpVal=arr(i,j,k,bi,bj)
./pkg/monitor/mon_stats_latbnd_rl.F 104 MON_STATS_LATBND_RL 
           IF (arrMask(i,j,km,bi,bj).NE.0. .AND. noPnts(n)) THEN
./pkg/monitor/mon_stats_latbnd_rl.F 109 MON_STATS_LATBND_RL 
           IF (arrMask(i,j,km,bi,bj).NE.0.) THEN
./pkg/monitor/mon_stats_latbnd_rl.F 112 MON_STATS_LATBND_RL 
            tmpVol = arrArea(i,j,bi,bj)*arrhFac(i,j,km,bi,bj)*arrDr(k)
./pkg/monitor/mon_stats_latbnd_rl.F 113 MON_STATS_LATBND_RL 
     &                                 *arrMask(i,j,km,bi,bj)
./pkg/monitor/mon_stats_latbnd_rl.F 51 MON_STATS_LATBND_RL 
      INTEGER bi,bj,i,j,k,n
./pkg/monitor/mon_surfcor.F 103 MON_SURFCOR 
            DO i=1,sNx
./pkg/monitor/mon_surfcor.F 104 MON_SURFCOR 
             ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 106 MON_SURFCOR 
              tmpVal = salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 107 MON_SURFCOR 
     &               + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks)
./pkg/monitor/mon_surfcor.F 108 MON_SURFCOR 
     &                *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 110 MON_SURFCOR 
     &         + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal
./pkg/monitor/mon_surfcor.F 125 MON_SURFCOR 
             DO i=1,sNx
./pkg/monitor/mon_surfcor.F 127 MON_SURFCOR 
     &         - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 128 MON_SURFCOR 
     &           *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0
./pkg/monitor/mon_surfcor.F 129 MON_SURFCOR 
     &           *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 147 MON_SURFCOR 
            DO i=1,sNx
./pkg/monitor/mon_surfcor.F 148 MON_SURFCOR 
              tmpVol  = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k)
./pkg/monitor/mon_surfcor.F 149 MON_SURFCOR 
              tmpVal  = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 152 MON_SURFCOR 
     &          +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 53 MON_SURFCOR 
      INTEGER i,j,k,ks,bi,bj
./pkg/monitor/mon_surfcor.F 82 MON_SURFCOR 
           DO i=1,sNx
./pkg/monitor/mon_surfcor.F 83 MON_SURFCOR 
            ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 85 MON_SURFCOR 
             tileArea(bi,bj) = tileArea(bi,bj) + rA(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 87 MON_SURFCOR 
     &          rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 90 MON_SURFCOR 
     &        + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj)
./pkg/monitor/mon_vort3.F 111 MON_VORT3 
           hFacZ(i,j) = 1. + 0.125 _d 0*
./pkg/monitor/mon_vort3.F 112 MON_VORT3 
     &                   ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 113 MON_VORT3 
     &                      +etaFld( i ,j-1)*rA( i ,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 114 MON_VORT3 
     &                     )*recip_rAw(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 115 MON_VORT3 
     &                   + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj)
./pkg/monitor/mon_vort3.F 116 MON_VORT3 
     &                      +etaFld( i , j )*rA( i , j ,bi,bj)
./pkg/monitor/mon_vort3.F 117 MON_VORT3 
     &                     )*recip_rAw(i, j ,bi,bj)
./pkg/monitor/mon_vort3.F 118 MON_VORT3 
     &                   + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 119 MON_VORT3 
     &                      +etaFld(i-1, j )*rA(i-1, j ,bi,bj)
./pkg/monitor/mon_vort3.F 120 MON_VORT3 
     &                     )*recip_rAs(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F 121 MON_VORT3 
     &                   + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 122 MON_VORT3 
     &                     + etaFld( i , j )*rA( i , j ,bi,bj)
./pkg/monitor/mon_vort3.F 123 MON_VORT3 
     &                     )*recip_rAs( i ,j,bi,bj)
./pkg/monitor/mon_vort3.F 128 MON_VORT3 
           hFacZ(i,j) =
./pkg/monitor/mon_vort3.F 129 MON_VORT3 
     &           0.25 _d 0*( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 130 MON_VORT3 
     &                     + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 131 MON_VORT3 
     &                     + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 132 MON_VORT3 
     &                     + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 135 MON_VORT3 
           vort3(i,j) = recip_rAz(i,j,bi,bj)*(
./pkg/monitor/mon_vort3.F 136 MON_VORT3 
     &       vVel( i ,j,k,bi,bj)*dyC( i ,j,bi,bj)
./pkg/monitor/mon_vort3.F 137 MON_VORT3 
     &      -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F 138 MON_VORT3 
     &      -uVel(i, j ,k,bi,bj)*dxC(i, j ,bi,bj)
./pkg/monitor/mon_vort3.F 139 MON_VORT3 
     &      +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 150 MON_VORT3 
           DO i=1,iMax
./pkg/monitor/mon_vort3.F 151 MON_VORT3 
            hFacZ(i,jMax)=0.
./pkg/monitor/mon_vort3.F 152 MON_VORT3 
            vort3(i,jMax)=0.
./pkg/monitor/mon_vort3.F 184 MON_VORT3 
           i=1
./pkg/monitor/mon_vort3.F 186 MON_VORT3 
           vort3(i,j)=
./pkg/monitor/mon_vort3.F 187 MON_VORT3 
     &       +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 188 MON_VORT3 
     &        vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 189 MON_VORT3 
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 190 MON_VORT3 
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 192 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 193 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 194 MON_VORT3 
     &                  + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 199 MON_VORT3 
           i=iMax
./pkg/monitor/mon_vort3.F 201 MON_VORT3 
           vort3(i,j)=
./pkg/monitor/mon_vort3.F 202 MON_VORT3 
     &       +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 203 MON_VORT3 
     &       -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F 204 MON_VORT3 
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 205 MON_VORT3 
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 207 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 208 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 209 MON_VORT3 
     &                  + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 214 MON_VORT3 
           i=1
./pkg/monitor/mon_vort3.F 216 MON_VORT3 
           vort3(i,j)=
./pkg/monitor/mon_vort3.F 217 MON_VORT3 
     &       +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 218 MON_VORT3 
     &        vVel(i,j,k,bi,bj)*dyC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 219 MON_VORT3 
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 220 MON_VORT3 
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 222 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 223 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 224 MON_VORT3 
     &                  + _hFacS( i ,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 229 MON_VORT3 
           i=iMax
./pkg/monitor/mon_vort3.F 231 MON_VORT3 
           vort3(i,j)=
./pkg/monitor/mon_vort3.F 232 MON_VORT3 
     &       +recip_rAz(i,j,bi,bj)/AZcorner*(
./pkg/monitor/mon_vort3.F 233 MON_VORT3 
     &       -vVel(i-1,j,k,bi,bj)*dyC(i-1,j,bi,bj)
./pkg/monitor/mon_vort3.F 234 MON_VORT3 
     &       -uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 235 MON_VORT3 
     &       +uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 237 MON_VORT3 
           hFacZ(i,j) = ( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 238 MON_VORT3 
     &                  + _hFacW(i, j ,k,bi,bj)
./pkg/monitor/mon_vort3.F 239 MON_VORT3 
     &                  + _hFacS(i-1,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 249 MON_VORT3 
           DO i=1,sNx
./pkg/monitor/mon_vort3.F 250 MON_VORT3 
            vort3(i,j) = 0.
./pkg/monitor/mon_vort3.F 252 MON_VORT3 
     &                 + uVel(i,j-1,k,bi,bj)*dxC(i,j-1,bi,bj)
./pkg/monitor/mon_vort3.F 253 MON_VORT3 
            hFacZ(i,j) = 0.
./pkg/monitor/mon_vort3.F 255 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 258 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j-1)
./pkg/monitor/mon_vort3.F 267 MON_VORT3 
           DO i=1,sNx
./pkg/monitor/mon_vort3.F 268 MON_VORT3 
            vort3(i,j) = 0.
./pkg/monitor/mon_vort3.F 270 MON_VORT3 
     &                 - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 271 MON_VORT3 
            hFacZ(i,j) = 0.
./pkg/monitor/mon_vort3.F 273 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j,k,bi,bj)
./pkg/monitor/mon_vort3.F 276 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + etaFld(i,j)
./pkg/monitor/mon_vort3.F 288 MON_VORT3 
          DO i=1,iMax
./pkg/monitor/mon_vort3.F 289 MON_VORT3 
           IF (hFacZ(i,j).GT.0. _d 0) THEN
./pkg/monitor/mon_vort3.F 290 MON_VORT3 
            tmpVal = vort3(i,j)
./pkg/monitor/mon_vort3.F 291 MON_VORT3 
            tmpAre = rAz(i,j,bi,bj)*drF(k)
./pkg/monitor/mon_vort3.F 292 MON_VORT3 
            tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j)
./pkg/monitor/mon_vort3.F 298 MON_VORT3 
            tmpVal = tmpVal + fCoriG(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 302 MON_VORT3 
            tmpVal = tmpVal / hFacZ(i,j)
./pkg/monitor/mon_vort3.F 35 MON_VORT3 
      INTEGER bi,bj,i,j,k
./pkg/monitor/mon_vort3.F 84 MON_VORT3 
          DO i=1-Olx,sNx+Olx
./pkg/monitor/mon_vort3.F 85 MON_VORT3 
            etaFld(i,j) = etaH(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 86 MON_VORT3 
     &          + tmpFac*(etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./pkg/monitor/mon_vort3.F 95 MON_VORT3 
          DO i=1,sNx
./model/src/calc_ivdc.F 45 CALC_IVDC 
      INTEGER i,j
./model/src/calc_ivdc.F 50 CALC_IVDC 
        DO i=iMin,imax
./model/src/calc_ivdc.F 51 CALC_IVDC 
         IF ( _hFacC(i,j,k,bi,bj) .GT. 0. .AND.
./model/src/calc_ivdc.F 52 CALC_IVDC 
     &        (rhokm1(i,j)-rhokp1(i,j))*rkSign*gravitySign.GT.0. ) THEN
./model/src/calc_ivdc.F 53 CALC_IVDC 
          IVDConvCount(i,j,k,bi,bj) = 1. _d 0
./model/src/calc_ivdc.F 55 CALC_IVDC 
          IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./pkg/my82/my82_calc_diff.F 45 MY82_CALC_DIFF 
      INTEGER i,j,k
./pkg/my82/my82_calc_diff.F 52 MY82_CALC_DIFF 
          DO i=iMin,iMax
./pkg/my82/my82_calc_diff.F 53 MY82_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/my82/my82_calc_diff.F 54 MY82_CALC_DIFF 
     &                  +( MYdiffKr(i,j,k,bi,bj)
./pkg/my82/my82_calc_diff.F 56 MY82_CALC_DIFF 
     &                     - diffKr(i,j,k,bi,bj) )
./pkg/my82/my82_calc_diff.F 67 MY82_CALC_DIFF 
          DO i=iMin,iMax
./pkg/my82/my82_calc_diff.F 68 MY82_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/my82/my82_calc_diff.F 69 MY82_CALC_DIFF 
     &                  +( MYdiffKr(i,j,kArg,bi,bj)
./pkg/my82/my82_calc_diff.F 71 MY82_CALC_DIFF 
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/my82/my82_calc_visc.F 37 MY82_CALC_VISC 
      INTEGER i,j
./pkg/my82/my82_calc_visc.F 40 MY82_CALC_VISC 
       DO i=iMin,iMax
./pkg/my82/my82_calc_visc.F 41 MY82_CALC_VISC 
        KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/my82/my82_calc_visc.F 42 MY82_CALC_VISC 
     &         KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) *
./pkg/my82/my82_calc_visc.F 43 MY82_CALC_VISC 
     &    0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) )
./pkg/my82/my82_calc_visc.F 48 MY82_CALC_VISC 
       DO i=iMin,iMax
./pkg/my82/my82_calc_visc.F 49 MY82_CALC_VISC 
        KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/my82/my82_calc_visc.F 50 MY82_CALC_VISC 
     &         KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) *
./pkg/my82/my82_calc_visc.F 51 MY82_CALC_VISC 
     &    0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) )
./model/src/calc_oce_mxlayer.F 100 CALC_OCE_MXLAYER 
         DO i=1-Olx,sNx+Olx
./model/src/calc_oce_mxlayer.F 101 CALC_OCE_MXLAYER 
           rhoKm1(i,j) = rhoSurf(i,j)
./model/src/calc_oce_mxlayer.F 102 CALC_OCE_MXLAYER 
           rhoMxL(i,j) = rhoSurf(i,j)
./model/src/calc_oce_mxlayer.F 103 CALC_OCE_MXLAYER 
     &                 + MAX( rhoMxL(i,j)*hMixCriteria, dRhoSmall )
./model/src/calc_oce_mxlayer.F 104 CALC_OCE_MXLAYER 
           hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj)
./model/src/calc_oce_mxlayer.F 116 CALC_OCE_MXLAYER 
          DO i=1-Olx,sNx+Olx
./model/src/calc_oce_mxlayer.F 117 CALC_OCE_MXLAYER 
           IF ( k.LE.klowC(i,j,bi,bj) .AND.
./model/src/calc_oce_mxlayer.F 118 CALC_OCE_MXLAYER 
     &          rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN
./model/src/calc_oce_mxlayer.F 119 CALC_OCE_MXLAYER 
             IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN
./model/src/calc_oce_mxlayer.F 120 CALC_OCE_MXLAYER 
              tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) )
./model/src/calc_oce_mxlayer.F 121 CALC_OCE_MXLAYER 
     &               / ( rhoLoc(i,j) - rhoKm1(i,j) )
./model/src/calc_oce_mxlayer.F 125 CALC_OCE_MXLAYER 
             hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k)
./model/src/calc_oce_mxlayer.F 126 CALC_OCE_MXLAYER 
             rhoMxL(i,j) = rhoBigNb
./model/src/calc_oce_mxlayer.F 128 CALC_OCE_MXLAYER 
             rhoKm1(i,j) = rhoLoc(i,j)
./model/src/calc_oce_mxlayer.F 143 CALC_OCE_MXLAYER 
         DO i=1-Olx,sNx+Olx
./model/src/calc_oce_mxlayer.F 144 CALC_OCE_MXLAYER 
           IF ( klowC(i,j,bi,bj) .GT. 0 ) THEN
./model/src/calc_oce_mxlayer.F 145 CALC_OCE_MXLAYER 
            hMixLayer(i,j,bi,bj) = drF(1)
./model/src/calc_oce_mxlayer.F 146 CALC_OCE_MXLAYER 
            rhoMxL(i,j) = 1.
./model/src/calc_oce_mxlayer.F 148 CALC_OCE_MXLAYER 
            hMixLayer(i,j,bi,bj) = rF(1)
./model/src/calc_oce_mxlayer.F 149 CALC_OCE_MXLAYER 
            rhoMxL(i,j) = -1.
./model/src/calc_oce_mxlayer.F 162 CALC_OCE_MXLAYER 
          DO i=1-Olx,sNx+Olx
./model/src/calc_oce_mxlayer.F 163 CALC_OCE_MXLAYER 
           IF ( k.LT.klowC(i,j,bi,bj)
./model/src/calc_oce_mxlayer.F 164 CALC_OCE_MXLAYER 
     &          .AND. rhoMxL(i,j).GE.0. ) THEN
./model/src/calc_oce_mxlayer.F 165 CALC_OCE_MXLAYER 
             sigmAv = ( rhoLoc(i,j)-rhoSurf(i,j)+dRhoSmall )
./model/src/calc_oce_mxlayer.F 167 CALC_OCE_MXLAYER 
             IF ( -sigmaR(i,j,k+1).GT.sigmAv*hMixCriteria ) THEN
./model/src/calc_oce_mxlayer.F 170 CALC_OCE_MXLAYER 
                 tmpFac = hMixCriteria*sigmaR(i,j,k)/sigmaR(i,j,k+1)
./model/src/calc_oce_mxlayer.F 177 CALC_OCE_MXLAYER 
               hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1)
./model/src/calc_oce_mxlayer.F 179 CALC_OCE_MXLAYER 
               rhoMxL(i,j) = -1.
./model/src/calc_oce_mxlayer.F 193 CALC_OCE_MXLAYER 
         DO i=1-Olx+1,sNx+Olx-1
./model/src/calc_oce_mxlayer.F 194 CALC_OCE_MXLAYER 
            rhoLoc(i,j)=(hMixSmooth *   hMixLayer(i,j,bi,bj)   +
./model/src/calc_oce_mxlayer.F 195 CALC_OCE_MXLAYER 
     &                       tmpFac * ( hMixLayer(i-1,j,bi,bj) +
./model/src/calc_oce_mxlayer.F 196 CALC_OCE_MXLAYER 
     &                                  hMixLayer(i+1,j,bi,bj) +
./model/src/calc_oce_mxlayer.F 197 CALC_OCE_MXLAYER 
     &                                  hMixLayer(i,j-1,bi,bj) +
./model/src/calc_oce_mxlayer.F 198 CALC_OCE_MXLAYER 
     &                                  hMixLayer(i,j+1,bi,bj) )
./model/src/calc_oce_mxlayer.F 201 CALC_OCE_MXLAYER 
     &                       tmpFac * ( maskC(i-1,j,1,bi,bj) +
./model/src/calc_oce_mxlayer.F 202 CALC_OCE_MXLAYER 
     &                                  maskC(i+1,j,1,bi,bj) +
./model/src/calc_oce_mxlayer.F 203 CALC_OCE_MXLAYER 
     &                                  maskC(i,j-1,1,bi,bj) +
./model/src/calc_oce_mxlayer.F 204 CALC_OCE_MXLAYER 
     &                                  maskC(i,j+1,1,bi,bj) )
./model/src/calc_oce_mxlayer.F 205 CALC_OCE_MXLAYER 
     &                  ) * maskC(i,j,1,bi,bj)
./model/src/calc_oce_mxlayer.F 209 CALC_OCE_MXLAYER 
         DO i=1-Olx+1,sNx+Olx-1
./model/src/calc_oce_mxlayer.F 210 CALC_OCE_MXLAYER 
            hMixLayer(i,j,bi,bj) = rhoLoc(i,j)
./model/src/calc_oce_mxlayer.F 56 CALC_OCE_MXLAYER 
      INTEGER i,j,k
./pkg/my82/my82_init_varia.F 31 MY82_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/my82/my82_init_varia.F 52 MY82_INIT_VARIA 
          DO i = 1-OLx, sNx+OLx
./pkg/my82/my82_init_varia.F 53 MY82_INIT_VARIA 
           MYhbl    (i,j  ,bi,bj) = 0. _d 0
./pkg/my82/my82_init_varia.F 54 MY82_INIT_VARIA 
           MYviscAr (i,j,k,bi,bj) = viscArNr(k)
./pkg/my82/my82_init_varia.F 55 MY82_INIT_VARIA 
           MYdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./model/src/calc_phi_hyd.F 127 CALC_PHI_HYD 
         DO i=1-Olx,sNx+Olx
./model/src/calc_phi_hyd.F 128 CALC_PHI_HYD 
           phiHydF(i,j) = 0.
./model/src/calc_phi_hyd.F 159 CALC_PHI_HYD 
           DO i=iMin,iMax
./model/src/calc_phi_hyd.F 160 CALC_PHI_HYD 
             alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 173 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 174 CALC_PHI_HYD 
           IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0
./model/src/calc_phi_hyd.F 179 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 180 CALC_PHI_HYD 
           alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 196 CALC_PHI_HYD 
            DO i=iMin,iMax
./model/src/calc_phi_hyd.F 197 CALC_PHI_HYD 
              phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 198 CALC_PHI_HYD 
     &                      *gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 210 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 216 CALC_PHI_HYD 
           phiHydC(i,j)=phiHydF(i,j)
./model/src/calc_phi_hyd.F 217 CALC_PHI_HYD 
     &       + half*drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 218 CALC_PHI_HYD 
           phiHydF(i,j)=phiHydF(i,j)
./model/src/calc_phi_hyd.F 219 CALC_PHI_HYD 
     &            + drF(k)*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 235 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 240 CALC_PHI_HYD 
            phiHydC(i,j)=phiHydF(i,j)
./model/src/calc_phi_hyd.F 241 CALC_PHI_HYD 
     &        +dRlocM*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 242 CALC_PHI_HYD 
            phiHydF(i,j)=phiHydC(i,j)
./model/src/calc_phi_hyd.F 243 CALC_PHI_HYD 
     &        +dRlocP*gravity*alphaRho(i,j)*recip_rhoConst
./model/src/calc_phi_hyd.F 280 CALC_PHI_HYD 
           DO i=iMin,iMax
./model/src/calc_phi_hyd.F 281 CALC_PHI_HYD 
             alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 288 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 289 CALC_PHI_HYD 
            locAlpha=alphaRho(i,j)+rhoConst
./model/src/calc_phi_hyd.F 290 CALC_PHI_HYD 
            alphaRho(i,j)=maskC(i,j,k,bi,bj)*
./model/src/calc_phi_hyd.F 301 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 307 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 308 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 310 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 312 CALC_PHI_HYD 
             phiHydC(i,j) = ddRloc*alphaRho(i,j)
./model/src/calc_phi_hyd.F 319 CALC_PHI_HYD 
             phiHydC(i,j) = phiHydF(i,j) + half*drF(k)*alphaRho(i,j)
./model/src/calc_phi_hyd.F 323 CALC_PHI_HYD 
             phiHydF(i,j) = phiHydC(i,j) + half*drF(k)*alphaRho(i,j)
./model/src/calc_phi_hyd.F 342 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 346 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 347 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 349 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 351 CALC_PHI_HYD 
             phiHydC(i,j) =( MAX(zero,ddRloc)*rec_dRm*dRlocM
./model/src/calc_phi_hyd.F 353 CALC_PHI_HYD 
     &                     )*alphaRho(i,j)
./model/src/calc_phi_hyd.F 355 CALC_PHI_HYD 
             phiHydC(i,j) = phiHydF(i,j) + dRlocM*alphaRho(i,j)
./model/src/calc_phi_hyd.F 357 CALC_PHI_HYD 
             phiHydF(i,j) = phiHydC(i,j) + dRlocP*alphaRho(i,j)
./model/src/calc_phi_hyd.F 372 CALC_PHI_HYD 
         DO i=iMin,iMax
./model/src/calc_phi_hyd.F 373 CALC_PHI_HYD 
          alphaRho(i,j)=maskC(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 374 CALC_PHI_HYD 
     &             *( tFld(i,j,k,bi,bj)*(sFld(i,j,k,bi,bj)*atm_Rq+one)
./model/src/calc_phi_hyd.F 405 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 406 CALC_PHI_HYD 
             phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j)
./model/src/calc_phi_hyd.F 407 CALC_PHI_HYD 
             phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j)
./model/src/calc_phi_hyd.F 428 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 429 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 430 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 432 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 434 CALC_PHI_HYD 
             phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0
./model/src/calc_phi_hyd.F 435 CALC_PHI_HYD 
     &          *ddPIm*alphaRho(i,j)
./model/src/calc_phi_hyd.F 437 CALC_PHI_HYD 
             phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j)
./model/src/calc_phi_hyd.F 439 CALC_PHI_HYD 
             phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j)
./model/src/calc_phi_hyd.F 472 CALC_PHI_HYD 
          DO i=iMin,iMax
./model/src/calc_phi_hyd.F 473 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 474 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 476 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 478 CALC_PHI_HYD 
             phiHydC(i,j) =( MAX(zero,ddRloc)*rec_dRm*ddPIm
./model/src/calc_phi_hyd.F 480 CALC_PHI_HYD 
     &                    *alphaRho(i,j)
./model/src/calc_phi_hyd.F 482 CALC_PHI_HYD 
             phiHydC(i,j) = phiHydF(i,j) +ddPIm*alphaRho(i,j)
./model/src/calc_phi_hyd.F 484 CALC_PHI_HYD 
             phiHydF(i,j) = phiHydC(i,j) +ddPIp*alphaRho(i,j)
./model/src/calc_phi_hyd.F 80 CALC_PHI_HYD 
      INTEGER i,j
./pkg/mypackage/mypackage_init_varia.F 33 MYPACKAGE_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/mypackage/mypackage_init_varia.F 42 MYPACKAGE_INIT_VARIA 
          DO i=1-Olx,sNx+Olx
./pkg/mypackage/mypackage_init_varia.F 44 MYPACKAGE_INIT_VARIA 
           myPa_StatScal1(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 45 MYPACKAGE_INIT_VARIA 
           myPa_StatScal2(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 46 MYPACKAGE_INIT_VARIA 
           myPa_StatVelU (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 47 MYPACKAGE_INIT_VARIA 
           myPa_StatVelV (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 50 MYPACKAGE_INIT_VARIA 
           myPa_TendScal1(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 51 MYPACKAGE_INIT_VARIA 
           myPa_TendScal2(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 52 MYPACKAGE_INIT_VARIA 
           myPa_TendVelU (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 53 MYPACKAGE_INIT_VARIA 
           myPa_TendVelV (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 62 MYPACKAGE_INIT_VARIA 
         DO i=1-Olx,sNx+Olx
./pkg/mypackage/mypackage_init_varia.F 63 MYPACKAGE_INIT_VARIA 
          myPa_Surf1(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 64 MYPACKAGE_INIT_VARIA 
          myPa_Surf2(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_tendency_apply.F 100 MYPACKAGE_TENDENCY_APPLY_V 
         DO i=iMin,iMax
./pkg/mypackage/mypackage_tendency_apply.F 101 MYPACKAGE_TENDENCY_APPLY_V 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 102 MYPACKAGE_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 108 MYPACKAGE_TENDENCY_APPLY_V 
         DO i=iMin,iMax
./pkg/mypackage/mypackage_tendency_apply.F 109 MYPACKAGE_TENDENCY_APPLY_V 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 110 MYPACKAGE_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 111 MYPACKAGE_TENDENCY_APPLY_V 
     &                           +myPa_TendVelV(i, j ,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 150 MYPACKAGE_TENDENCY_APPLY_T 
      INTEGER i, j
./pkg/mypackage/mypackage_tendency_apply.F 154 MYPACKAGE_TENDENCY_APPLY_T 
         DO i=iMin,iMax
./pkg/mypackage/mypackage_tendency_apply.F 155 MYPACKAGE_TENDENCY_APPLY_T 
          gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 156 MYPACKAGE_TENDENCY_APPLY_T 
     &     + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 194 MYPACKAGE_TENDENCY_APPLY_S 
      INTEGER i, j
./pkg/mypackage/mypackage_tendency_apply.F 198 MYPACKAGE_TENDENCY_APPLY_S 
         DO i=iMin,iMax
./pkg/mypackage/mypackage_tendency_apply.F 199 MYPACKAGE_TENDENCY_APPLY_S 
          gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 200 MYPACKAGE_TENDENCY_APPLY_S 
     &     + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 41 MYPACKAGE_TENDENCY_APPLY_U 
      INTEGER i, j
./pkg/mypackage/mypackage_tendency_apply.F 45 MYPACKAGE_TENDENCY_APPLY_U 
         DO i=iMin,iMax
./pkg/mypackage/mypackage_tendency_apply.F 46 MYPACKAGE_TENDENCY_APPLY_U 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 47 MYPACKAGE_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 53 MYPACKAGE_TENDENCY_APPLY_U 
         DO i=iMin,iMax
./pkg/mypackage/mypackage_tendency_apply.F 54 MYPACKAGE_TENDENCY_APPLY_U 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 55 MYPACKAGE_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 56 MYPACKAGE_TENDENCY_APPLY_U 
     &                           +myPa_TendVelU( i ,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 96 MYPACKAGE_TENDENCY_APPLY_V 
      INTEGER i, j
./model/src/calc_r_star.F 100 CALC_R_STAR 
     &                    +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F 101 CALC_R_STAR 
     &                   )*recip_rAw(i,j,bi,bj)
./model/src/calc_r_star.F 104 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 109 CALC_R_STAR 
         DO i=1,sNx
./model/src/calc_r_star.F 110 CALC_R_STAR 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 111 CALC_R_STAR 
           tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F 112 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) =
./model/src/calc_r_star.F 113 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj)*rA(i,j-1,bi,bj)
./model/src/calc_r_star.F 114 CALC_R_STAR 
     &                    +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F 115 CALC_R_STAR 
     &                   )*recip_rAs(i,j,bi,bj)
./model/src/calc_r_star.F 118 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 130 CALC_R_STAR 
         DO i=1,sNx+1
./model/src/calc_r_star.F 131 CALC_R_STAR 
          IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 133 CALC_R_STAR 
            iic = i
./model/src/calc_r_star.F 136 CALC_R_STAR 
          IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 138 CALC_R_STAR 
            iiw = i
./model/src/calc_r_star.F 141 CALC_R_STAR 
          IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 143 CALC_R_STAR 
            iis = i
./model/src/calc_r_star.F 146 CALC_R_STAR 
          IF ( rStarFacC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_r_star.F 148 CALC_R_STAR 
            iic2 = i
./model/src/calc_r_star.F 225 CALC_R_STAR 
         DO i=1,Olx
./model/src/calc_r_star.F 226 CALC_R_STAR 
          ii = sNx+i
./model/src/calc_r_star.F 229 CALC_R_STAR 
          IF (kSurfC(1-i,1-j,bi,bj).GT.Nr) rStarFacC(1-i,1-j,bi,bj)= 1.
./model/src/calc_r_star.F 231 CALC_R_STAR 
          IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 234 CALC_R_STAR 
          IF (kSurfW(1-i,1-j,bi,bj).GT.Nr) rStarFacW(1-i,1-j,bi,bj)= 1.
./model/src/calc_r_star.F 236 CALC_R_STAR 
          IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 239 CALC_R_STAR 
          IF (kSurfS(1-i,1-j,bi,bj).GT.Nr) rStarFacS(1-i,1-j,bi,bj)= 1.
./model/src/calc_r_star.F 241 CALC_R_STAR 
          IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 250 CALC_R_STAR 
         DO i=1-Olx,sNx+Olx
./model/src/calc_r_star.F 251 CALC_R_STAR 
           rStarDhCDt(i,j,bi,bj)=(rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 252 CALC_R_STAR 
     &                           -rStarExpC(i,j,bi,bj))/deltaTfreesurf
./model/src/calc_r_star.F 253 CALC_R_STAR 
           rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 254 CALC_R_STAR 
     &                           -rStarExpW(i,j,bi,bj))/deltaTfreesurf
./model/src/calc_r_star.F 255 CALC_R_STAR 
           rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 256 CALC_R_STAR 
     &                           -rStarExpS(i,j,bi,bj))/deltaTfreesurf
./model/src/calc_r_star.F 257 CALC_R_STAR 
           rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 258 CALC_R_STAR 
     &                          / rStarExpC(i,j,bi,bj)
./model/src/calc_r_star.F 259 CALC_R_STAR 
           rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 260 CALC_R_STAR 
     &                          / rStarExpW(i,j,bi,bj)
./model/src/calc_r_star.F 261 CALC_R_STAR 
           rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 262 CALC_R_STAR 
     &                          / rStarExpS(i,j,bi,bj)
./model/src/calc_r_star.F 50 CALC_R_STAR 
      INTEGER i,j,bi,bj
./model/src/calc_r_star.F 75 CALC_R_STAR 
          DO i=1-Olx,sNx+Olx
./model/src/calc_r_star.F 76 CALC_R_STAR 
            rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 77 CALC_R_STAR 
            rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 78 CALC_R_STAR 
            rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 84 CALC_R_STAR 
         DO i=0,sNx+1
./model/src/calc_r_star.F 85 CALC_R_STAR 
          IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 86 CALC_R_STAR 
           rStarFacC(i,j,bi,bj) =
./model/src/calc_r_star.F 87 CALC_R_STAR 
     &      (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./model/src/calc_r_star.F 88 CALC_R_STAR 
     &      *recip_Rcol(i,j,bi,bj)
./model/src/calc_r_star.F 90 CALC_R_STAR 
           rStarFacC(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 95 CALC_R_STAR 
         DO i=1,sNx+1
./model/src/calc_r_star.F 96 CALC_R_STAR 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 97 CALC_R_STAR 
           tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F 98 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) =
./model/src/calc_r_star.F 99 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 28 OBCS_APPLY_ETA 
      INTEGER i,j,i_obc,j_obc
./pkg/obcs/obcs_apply_eta.F 31 OBCS_APPLY_ETA 
      DO i=1-Olx,sNx+Olx
./pkg/obcs/obcs_apply_eta.F 33 OBCS_APPLY_ETA 
        j_obc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 34 OBCS_APPLY_ETA 
        IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_eta.F 36 OBCS_APPLY_ETA 
        j_obc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 37 OBCS_APPLY_ETA 
        IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_eta.F 52 OBCS_APPLY_ETA 
        DO i=1-Olx,sNx+Olx
./pkg/obcs/obcs_apply_eta.F 54 OBCS_APPLY_ETA 
          j_obc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 56 OBCS_APPLY_ETA 
            IF ( ksurfS(i,j_obc,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 57 OBCS_APPLY_ETA 
     &        etaFld(i,j_obc,bi,bj) = OBNeta(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 60 OBCS_APPLY_ETA 
          j_obc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 62 OBCS_APPLY_ETA 
            IF ( ksurfS(i,j_obc+1,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 63 OBCS_APPLY_ETA 
     &        etaFld(i,j_obc,bi,bj) = OBSeta(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 34 OBCS_APPLY_R_STAR 
      INTEGER i,j
./pkg/obcs/obcs_apply_r_star.F 39 OBCS_APPLY_R_STAR 
      DO i=1-Olx,sNx+Olx
./pkg/obcs/obcs_apply_r_star.F 41 OBCS_APPLY_R_STAR 
       j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 43 OBCS_APPLY_R_STAR 
         rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 44 OBCS_APPLY_R_STAR 
        IF (ksurfS(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 45 OBCS_APPLY_R_STAR 
         rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 46 OBCS_APPLY_R_STAR 
     &      + OBNeta(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 47 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i,j-1,bi,bj),recip_Rcol(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 51 OBCS_APPLY_R_STAR 
       j = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 53 OBCS_APPLY_R_STAR 
         rStarFldS(i,j+1,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 54 OBCS_APPLY_R_STAR 
        IF (ksurfS(i,j+1,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 55 OBCS_APPLY_R_STAR 
         rStarFldS(i,j+1,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 56 OBCS_APPLY_R_STAR 
     &      + OBSeta(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 57 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i,j+1,bi,bj),recip_Rcol(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 65 OBCS_APPLY_R_STAR 
       i = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 66 OBCS_APPLY_R_STAR 
       IF (i.NE.0) THEN
./pkg/obcs/obcs_apply_r_star.F 67 OBCS_APPLY_R_STAR 
         rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 68 OBCS_APPLY_R_STAR 
        IF (ksurfW(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 69 OBCS_APPLY_R_STAR 
         rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 70 OBCS_APPLY_R_STAR 
     &      + OBEeta(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 71 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i-1,j,bi,bj),recip_Rcol(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 75 OBCS_APPLY_R_STAR 
       i = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 76 OBCS_APPLY_R_STAR 
       IF (i.NE.0) THEN
./pkg/obcs/obcs_apply_r_star.F 77 OBCS_APPLY_R_STAR 
         rStarFldW(i+1,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 78 OBCS_APPLY_R_STAR 
        IF (ksurfW(i+1,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 79 OBCS_APPLY_R_STAR 
         rStarFldW(i+1,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 80 OBCS_APPLY_R_STAR 
     &      + OBWeta(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 81 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i+1,j,bi,bj),recip_Rcol(i,j,bi,bj))
./model/src/calc_surf_dr.F 102 CALC_SURF_DR 
             IF ( i.GE.1.AND.i.LE.sNx .AND.
./model/src/calc_surf_dr.F 106 CALC_SURF_DR 
     &          + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j))
./model/src/calc_surf_dr.F 108 CALC_SURF_DR 
             rSurftmp(i,j) = Rmin_surf(i,j,bi,bj)
./model/src/calc_surf_dr.F 113 CALC_SURF_DR 
           hFac_surfC(i,j,bi,bj) =
./model/src/calc_surf_dr.F 114 CALC_SURF_DR 
     &         ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 115 CALC_SURF_DR 
     &         )*recip_drF(ks)*maskC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 119 CALC_SURF_DR 
     &          hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_surf_dr.F 123 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 125 CALC_SURF_DR 
     &         'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj),
./model/src/calc_surf_dr.F 126 CALC_SURF_DR 
     &          hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 138 CALC_SURF_DR 
         DO i=1,sNx+1
./model/src/calc_surf_dr.F 139 CALC_SURF_DR 
          ks = ksurfW(i,j,bi,bj)
./model/src/calc_surf_dr.F 142 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i-1,j,bi,bj)) hhm = rSurftmp(i-1,j)
./model/src/calc_surf_dr.F 144 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i,j,bi,bj))   hhp = rSurftmp(i,j)
./model/src/calc_surf_dr.F 145 CALC_SURF_DR 
            hFac_surfW(i,j,bi,bj) =
./model/src/calc_surf_dr.F 147 CALC_SURF_DR 
     &          - MAX(rF(ks+1),R_low(i-1,j,bi,bj),R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 148 CALC_SURF_DR 
     &         )*recip_drF(ks)*maskW(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 154 CALC_SURF_DR 
         DO i=1,sNx
./model/src/calc_surf_dr.F 155 CALC_SURF_DR 
          ks = ksurfS(i,j,bi,bj)
./model/src/calc_surf_dr.F 158 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i,j-1,bi,bj)) hhm = rSurftmp(i,j-1)
./model/src/calc_surf_dr.F 160 CALC_SURF_DR 
            IF(ks.EQ.ksurfC(i,j,bi,bj))   hhp = rSurftmp(i,j)
./model/src/calc_surf_dr.F 161 CALC_SURF_DR 
            hFac_surfS(i,j,bi,bj) =
./model/src/calc_surf_dr.F 163 CALC_SURF_DR 
     &          - MAX(rF(ks+1),R_low(i,j-1,bi,bj),R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 164 CALC_SURF_DR 
     &         )*recip_drF(ks)*maskS(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 50 CALC_SURF_DR 
      INTEGER i,j,bi,bj
./model/src/calc_surf_dr.F 72 CALC_SURF_DR 
         DO i=0,sNx+1
./model/src/calc_surf_dr.F 73 CALC_SURF_DR 
          rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 74 CALC_SURF_DR 
          ks = ksurfC(i,j,bi,bj)
./model/src/calc_surf_dr.F 76 CALC_SURF_DR 
           IF (rSurftmp(i,j) .LT. Rmin_surf(i,j,bi,bj)) THEN
./model/src/calc_surf_dr.F 80 CALC_SURF_DR 
             hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj))
./model/src/calc_surf_dr.F 85 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 89 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 93 CALC_SURF_DR 
     &          hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 32 OBCS_APPLY_SURF_DR 
      INTEGER i,j,ks
./pkg/obcs/obcs_apply_surf_dr.F 40 OBCS_APPLY_SURF_DR 
      DO i=1-Olx,sNx+Olx
./pkg/obcs/obcs_apply_surf_dr.F 42 OBCS_APPLY_SURF_DR 
       j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 44 OBCS_APPLY_SURF_DR 
        ks = ksurfS(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 46 OBCS_APPLY_SURF_DR 
         hFactmp = OBNhFac0(i,bi,bj) + OBNeta(i,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 47 OBCS_APPLY_SURF_DR 
         hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 51 OBCS_APPLY_SURF_DR 
       j = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 53 OBCS_APPLY_SURF_DR 
        ks = ksurfS(i,j+1,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 55 OBCS_APPLY_SURF_DR 
         hFactmp = OBShFac0(i,bi,bj) + OBSeta(i,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 56 OBCS_APPLY_SURF_DR 
         hFac_FldS(i,j+1,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 64 OBCS_APPLY_SURF_DR 
       i = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 65 OBCS_APPLY_SURF_DR 
       IF (i.NE.0) THEN
./pkg/obcs/obcs_apply_surf_dr.F 66 OBCS_APPLY_SURF_DR 
        ks = ksurfW(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 69 OBCS_APPLY_SURF_DR 
         hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 73 OBCS_APPLY_SURF_DR 
       i = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 74 OBCS_APPLY_SURF_DR 
       IF (i.NE.0) THEN
./pkg/obcs/obcs_apply_surf_dr.F 75 OBCS_APPLY_SURF_DR 
        ks = ksurfW(i+1,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 78 OBCS_APPLY_SURF_DR 
         hFac_FldW(i+1,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_uv.F 29 OBCS_APPLY_UV 
      INTEGER i,j
./pkg/obcs/obcs_calc.F 459 OBCS_CALC 
            Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_calc.F 496 OBCS_CALC 
            Ar = drF(k)*hFacC(i,J_obc,k,bi,bj)*dxG(i,J_obc,bi,bj)
./pkg/obcs/obcs_check.F 155 OBCS_CHECK 
         write(*,*) 'bi,bj:',bi,bj,' OB_Jn=',(OB_Jn(i,bi,bj),i=1,sNx)
./pkg/obcs/obcs_check.F 156 OBCS_CHECK 
         write(*,*) 'bi,bj:',bi,bj,' OB_Js=',(OB_Js(i,bi,bj),i=1,sNx)
./pkg/obcs/obcs_check.F 29 OBCS_CHECK 
      INTEGER i,j,bi,bj
./pkg/obcs/obcs_external_fields_load.F 546 OBCS_EXTERNAL_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/obcs/obcs_external_fields_load.F 547 OBCS_EXTERNAL_FIELDS_LOAD 
           OBNeta(i,bi,bj) = bWght*OBNeta0(i,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 548 OBCS_EXTERNAL_FIELDS_LOAD 
     &                      +aWght*OBNeta1(i,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 572 OBCS_EXTERNAL_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/obcs/obcs_external_fields_load.F 573 OBCS_EXTERNAL_FIELDS_LOAD 
           OBSeta(i,bi,bj) = bWght*OBSeta0(i,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 574 OBCS_EXTERNAL_FIELDS_LOAD 
     &                      +aWght*OBSeta1(i,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 655 OBCS_EXTERNAL_FIELDS_INTERP_XZ 
      INTEGER bi,bj,i,k
./pkg/obcs/obcs_external_fields_load.F 660 OBCS_EXTERNAL_FIELDS_INTERP_XZ 
          DO i=1-Olx,sNx+Olx
./pkg/obcs/obcs_external_fields_load.F 661 OBCS_EXTERNAL_FIELDS_INTERP_XZ 
           fld(i,k,bi,bj)   = bWght*fld0(i,k,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 662 OBCS_EXTERNAL_FIELDS_INTERP_XZ 
     &                       +aWght*fld1(i,k,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 81 OBCS_EXTERNAL_FIELDS_LOAD 
      INTEGER i,j,bi,bj
./model/src/calc_viscosity.F 47 CALC_VISCOSITY 
      INTEGER i,j,k
./model/src/calc_viscosity.F 53 CALC_VISCOSITY 
        DO i = 1-Olx, sNx+Olx
./model/src/calc_viscosity.F 54 CALC_VISCOSITY 
         KappaRU(i,j,k) = viscArNr(k)
./model/src/calc_viscosity.F 55 CALC_VISCOSITY 
         KappaRV(i,j,k) = viscArNr(k)
./pkg/obcs/obcs_init_fixed.F 100 OBCS_INIT_FIXED 
            IF (k.LE.Nr) OBShFac0(i,bi,bj)=hFacS(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 110 OBCS_INIT_FIXED 
            i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 111 OBCS_INIT_FIXED 
            k = ksurfW(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 112 OBCS_INIT_FIXED 
            IF (k.LE.Nr) OBEhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 116 OBCS_INIT_FIXED 
            i = OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 117 OBCS_INIT_FIXED 
            k = ksurfW(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 118 OBCS_INIT_FIXED 
            IF (k.LE.Nr) OBWhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 31 OBCS_INIT_FIXED 
      INTEGER i, j
./pkg/obcs/obcs_init_fixed.F 43 OBCS_INIT_FIXED 
          DO i=OB_Ie(j,bi,bj),sNx+OLx
./pkg/obcs/obcs_init_fixed.F 44 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 45 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 46 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 47 OBCS_INIT_FIXED 
            IF (j.LT.sNy+OLy) maskInS(i,j+1,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 52 OBCS_INIT_FIXED 
          DO i=1-OLx,OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 53 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 54 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 55 OBCS_INIT_FIXED 
            IF (j.LT.sNy+OLy) maskInS(i,j+1,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 57 OBCS_INIT_FIXED 
          DO i=1-OLx,OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 58 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 62 OBCS_INIT_FIXED 
        DO i=1-OLx,sNx+OLx
./pkg/obcs/obcs_init_fixed.F 64 OBCS_INIT_FIXED 
         IF ( OB_Jn(i,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 65 OBCS_INIT_FIXED 
          DO j=OB_Jn(i,bi,bj),sNy+OLy
./pkg/obcs/obcs_init_fixed.F 66 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 67 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 68 OBCS_INIT_FIXED 
            IF (i.LT.sNx+OLx) maskInW(i+1,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 69 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 73 OBCS_INIT_FIXED 
         IF ( OB_Js(i,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 74 OBCS_INIT_FIXED 
          DO j=1-OLy,OB_Js(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 75 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 76 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 77 OBCS_INIT_FIXED 
            IF (i.LT.sNx+OLx) maskInW(i+1,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 79 OBCS_INIT_FIXED 
          DO j=1-OLy,OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 80 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 87 OBCS_INIT_FIXED 
        DO i=1-OLx,sNx+OLx
./pkg/obcs/obcs_init_fixed.F 88 OBCS_INIT_FIXED 
          OBNhFac0(i,bi,bj)=0.
./pkg/obcs/obcs_init_fixed.F 89 OBCS_INIT_FIXED 
          OBShFac0(i,bi,bj)=0.
./pkg/obcs/obcs_init_fixed.F 91 OBCS_INIT_FIXED 
          IF ( OB_Jn(i,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 92 OBCS_INIT_FIXED 
            j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 93 OBCS_INIT_FIXED 
            k = ksurfS(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 94 OBCS_INIT_FIXED 
            IF (k.LE.Nr) OBNhFac0(i,bi,bj)=hFacS(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 97 OBCS_INIT_FIXED 
          IF ( OB_Js(i,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 98 OBCS_INIT_FIXED 
            j = OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 99 OBCS_INIT_FIXED 
            k = ksurfS(i,j,bi,bj)
./pkg/obcs/obcs_sponge.F 113 OBCS_SPONGE_U 
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 114 OBCS_SPONGE_U 
     &   - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 115 OBCS_SPONGE_U 
     &   * ( uVel(i,j,kLev,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 128 OBCS_SPONGE_U 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 130 OBCS_SPONGE_U 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 133 OBCS_SPONGE_U 
     &    + float(isl)*uVel(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 147 OBCS_SPONGE_U 
          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 148 OBCS_SPONGE_U 
     &    - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 149 OBCS_SPONGE_U 
     &    * ( uVel(i,j,kLev,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 162 OBCS_SPONGE_U 
         i=OB_Iw(j,bi,bj)+isl+1
./pkg/obcs/obcs_sponge.F 164 OBCS_SPONGE_U 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 167 OBCS_SPONGE_U 
     &    + float(isl)*uVel(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 181 OBCS_SPONGE_U 
          gU(i,j,kLev,bi,bj) =  gU(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 182 OBCS_SPONGE_U 
     &    - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 183 OBCS_SPONGE_U 
     &    * ( uVel(i,j,kLev,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 234 OBCS_SPONGE_V 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 241 OBCS_SPONGE_V 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 242 OBCS_SPONGE_V 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 244 OBCS_SPONGE_V 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 248 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBNv(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 249 OBCS_SPONGE_V 
     &    + float(jsl)*vVel(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 263 OBCS_SPONGE_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 264 OBCS_SPONGE_V 
     &    - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 265 OBCS_SPONGE_V 
     &    * ( vVel(i,j,kLev,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 275 OBCS_SPONGE_V 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 276 OBCS_SPONGE_V 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 278 OBCS_SPONGE_V 
         j=OB_Js(i,bi,bj)+jsl+1
./pkg/obcs/obcs_sponge.F 282 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBSv(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 283 OBCS_SPONGE_V 
     &    + float(jsl)*vVel(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 297 OBCS_SPONGE_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 298 OBCS_SPONGE_V 
     &    - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 299 OBCS_SPONGE_V 
     &    * ( vVel(i,j,kLev,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 312 OBCS_SPONGE_V 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 314 OBCS_SPONGE_V 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 317 OBCS_SPONGE_V 
     &    + float(isl)*vVel(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 331 OBCS_SPONGE_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 332 OBCS_SPONGE_V 
     &    - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 333 OBCS_SPONGE_V 
     &    * ( vVel(i,j,kLev,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 346 OBCS_SPONGE_V 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 348 OBCS_SPONGE_V 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 352 OBCS_SPONGE_V 
     &    + float(isl)*vVel(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 366 OBCS_SPONGE_V 
         gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 367 OBCS_SPONGE_V 
     &   - _maskS(i,j,kLev,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 368 OBCS_SPONGE_V 
     &   * ( vVel(i,j,kLev,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 423 OBCS_SPONGE_T 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 449 OBCS_SPONGE_T 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 450 OBCS_SPONGE_T 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 452 OBCS_SPONGE_T 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 455 OBCS_SPONGE_T 
           IF  (OBNt(i,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 457 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBNt(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 458 OBCS_SPONGE_T 
     &    + float(jsl)*theta(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 471 OBCS_SPONGE_T 
          gT(i,j,kLev,bi,bj) =  gT(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 472 OBCS_SPONGE_T 
     &    -  maskC(i,j,kLev,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 473 OBCS_SPONGE_T 
     &    * ( theta(i,j,kLev,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 489 OBCS_SPONGE_T 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 490 OBCS_SPONGE_T 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 492 OBCS_SPONGE_T 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 495 OBCS_SPONGE_T 
           IF  (OBSt(i,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 497 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBSt(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 498 OBCS_SPONGE_T 
     &    + float(jsl)*theta(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 50 OBCS_SPONGE_U 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 512 OBCS_SPONGE_T 
         gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 513 OBCS_SPONGE_T 
     &   - maskC(i,j,kLev,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 514 OBCS_SPONGE_T 
     &   * ( theta(i,j,kLev,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 533 OBCS_SPONGE_T 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 535 OBCS_SPONGE_T 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 539 OBCS_SPONGE_T 
     &    + float(isl)*theta(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 553 OBCS_SPONGE_T 
          gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 554 OBCS_SPONGE_T 
     &    - maskC(i,j,kLev,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 555 OBCS_SPONGE_T 
     &    * ( theta(i,j,kLev,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 576 OBCS_SPONGE_T 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 578 OBCS_SPONGE_T 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 57 OBCS_SPONGE_U 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 582 OBCS_SPONGE_T 
     &    + float(isl)*theta(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 58 OBCS_SPONGE_U 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 596 OBCS_SPONGE_T 
          gT(i,j,kLev,bi,bj) =  gT(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 597 OBCS_SPONGE_T 
     &    - maskC(i,j,kLev,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 598 OBCS_SPONGE_T 
     &    * ( theta(i,j,kLev,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 60 OBCS_SPONGE_U 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 64 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBNu(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 654 OBCS_SPONGE_S 
      INTEGER i, j, isl, jsl
./pkg/obcs/obcs_sponge.F 65 OBCS_SPONGE_U 
     &    + float(jsl)*uVel(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 680 OBCS_SPONGE_S 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 681 OBCS_SPONGE_S 
       IF ((OB_Jn(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 683 OBCS_SPONGE_S 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 686 OBCS_SPONGE_S 
           IF  (OBNs(i,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 688 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBNs(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 689 OBCS_SPONGE_S 
     &    + float(jsl)*salt(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 703 OBCS_SPONGE_S 
          gS(i,j,kLev,bi,bj) =  gS(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 704 OBCS_SPONGE_S 
     &    - maskC(i,j,kLev,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 705 OBCS_SPONGE_S 
     &    * ( salt(i,j,kLev,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 721 OBCS_SPONGE_S 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 722 OBCS_SPONGE_S 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 724 OBCS_SPONGE_S 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 727 OBCS_SPONGE_S 
           IF  (OBSs(i,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 729 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBSs(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 730 OBCS_SPONGE_S 
     &    + float(jsl)*salt(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 744 OBCS_SPONGE_S 
         gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 745 OBCS_SPONGE_S 
     &   - maskC(i,j,kLev,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 746 OBCS_SPONGE_S 
     &   * ( salt(i,j,kLev,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 765 OBCS_SPONGE_S 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 767 OBCS_SPONGE_S 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 771 OBCS_SPONGE_S 
     &    + float(isl)*salt(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 785 OBCS_SPONGE_S 
          gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 786 OBCS_SPONGE_S 
     &    - maskC(i,j,kLev,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 787 OBCS_SPONGE_S 
     &    * ( salt(i,j,kLev,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 79 OBCS_SPONGE_U 
          gU(i,j,kLev,bi,bj) =  gU(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 809 OBCS_SPONGE_S 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 80 OBCS_SPONGE_U 
     &    - _maskW(i,j,kLev,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 811 OBCS_SPONGE_S 
         IF ((i.ge.imin).and.(i.le.imax)) THEN
./pkg/obcs/obcs_sponge.F 815 OBCS_SPONGE_S 
     &    + float(isl)*salt(i,j,kLev,bi,bj) )
./pkg/obcs/obcs_sponge.F 81 OBCS_SPONGE_U 
     &    * ( uVel(i,j,kLev,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 829 OBCS_SPONGE_S 
          gS(i,j,kLev,bi,bj) =  gS(i,j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 830 OBCS_SPONGE_S 
     &    - maskC(i,j,kLev,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 831 OBCS_SPONGE_S 
     &    * ( salt(i,j,kLev,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 91 OBCS_SPONGE_U 
      DO i=iMin,iMax
./pkg/obcs/obcs_sponge.F 92 OBCS_SPONGE_U 
       IF ((OB_Js(i,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 94 OBCS_SPONGE_U 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 98 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBSu(i,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 99 OBCS_SPONGE_U 
     &    + float(jsl)*uVel(i,j,kLev,bi,bj) )
./model/src/calc_wsurf_tr.F 50 CALC_WSURF_TR 
      INTEGER i,j,bi,bj,ks
./model/src/calc_wsurf_tr.F 69 CALC_WSURF_TR 
          DO i=1,sNx
./model/src/calc_wsurf_tr.F 70 CALC_WSURF_TR 
             ks = ksurfC(i,j,bi,bj)
./model/src/calc_wsurf_tr.F 73 CALC_WSURF_TR 
     &           + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F 74 CALC_WSURF_TR 
     &                          *thetaFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F 76 CALC_WSURF_TR 
     &           + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./model/src/calc_wsurf_tr.F 77 CALC_WSURF_TR 
     &                          *saltFld(i,j,ks,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 104 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 105 OCN_APPLY_IMPORT 
              Qnet(i,j,bi,bj)= HeatFlux  (i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 110 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 111 OCN_APPLY_IMPORT 
             Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 121 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 122 OCN_APPLY_IMPORT 
             fice(i,j,bi,bj)= fracIce(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 128 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 129 OCN_APPLY_IMPORT 
             AtmospCO2(i,j,bi,bj)= airCO2(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 135 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 136 OCN_APPLY_IMPORT 
             wind(i,j,bi,bj)= surfWSpeed(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 147 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 148 OCN_APPLY_IMPORT 
              phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 149 OCN_APPLY_IMPORT 
     &                 + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 154 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 155 OCN_APPLY_IMPORT 
              phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 156 OCN_APPLY_IMPORT 
     &                 + gravity*seaIceMass(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 161 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 162 OCN_APPLY_IMPORT 
              phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst
./pkg/ocn_compon_interf/ocn_apply_import.F 169 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 170 OCN_APPLY_IMPORT 
              EmPmR(i,j,bi,bj) = FWFlux    (i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 51 OCN_APPLY_IMPORT 
      INTEGER bi,bj,i,j
./pkg/ocn_compon_interf/ocn_apply_import.F 64 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 65 OCN_APPLY_IMPORT 
              fu(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 66 OCN_APPLY_IMPORT 
              fv(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 72 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 73 OCN_APPLY_IMPORT 
              pLoad(i,j,bi,bj) = atmSLPr(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 79 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 80 OCN_APPLY_IMPORT 
              sIceLoad(i,j,bi,bj) = seaIceMass(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 88 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 89 OCN_APPLY_IMPORT 
              EmPmR(i,j,bi,bj) = FWFlux    (i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_apply_import.F 95 OCN_APPLY_IMPORT 
            DO i=1-Olx,sNx+Olx
./pkg/ocn_compon_interf/ocn_apply_import.F 96 OCN_APPLY_IMPORT 
              saltFlux(i,j,bi,bj)= iceSaltFlx(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 100 OCN_CPL_DIAGS 
            iceftave(i,j,bi,bj)  = iceftave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 101 OCN_CPL_DIAGS 
     &                    + DDTT * fracIce(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 102 OCN_CPL_DIAGS 
            fCO2tave(i,j,bi,bj)  = fCO2tave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 103 OCN_CPL_DIAGS 
     &                    + DDTT * fluxCO2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 46 OCN_CPL_DIAGS 
      INTEGER i,j
./pkg/ocn_compon_interf/ocn_cpl_diags.F 60 OCN_CPL_DIAGS 
          DO i=1,sNx
./pkg/ocn_compon_interf/ocn_cpl_diags.F 61 OCN_CPL_DIAGS 
            SLPtave(i,j,bi,bj)  = SLPtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 62 OCN_CPL_DIAGS 
     &                   + DDTT * atmSLPr(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 63 OCN_CPL_DIAGS 
            HFtave(i,j,bi,bj)   = HFtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 64 OCN_CPL_DIAGS 
     &                   + DDTT * HeatFlux(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 65 OCN_CPL_DIAGS 
            QSWtave(i,j,bi,bj)  = QSWtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 66 OCN_CPL_DIAGS 
     &                   + DDTT * qShortWave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 77 OCN_CPL_DIAGS 
            TXtave(i,j,bi,bj)   = TXtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 78 OCN_CPL_DIAGS 
     &                   + DDTT * tauX(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 79 OCN_CPL_DIAGS 
            TYtave(i,j,bi,bj)   = TYtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 80 OCN_CPL_DIAGS 
     &                   + DDTT * tauY(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 81 OCN_CPL_DIAGS 
            FWtave(i,j,bi,bj)   = FWtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 82 OCN_CPL_DIAGS 
     &                   + DDTT * FWFlux(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 83 OCN_CPL_DIAGS 
            SFxtave(i,j,bi,bj)  = SFxtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 84 OCN_CPL_DIAGS 
     &                   + DDTT * iceSaltFlx(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 85 OCN_CPL_DIAGS 
            SICtave(i,j,bi,bj)  = SICtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 86 OCN_CPL_DIAGS 
     &                   + DDTT * seaIceMass(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 87 OCN_CPL_DIAGS 
            MXLtave(i,j,bi,bj)  = MXLtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 88 OCN_CPL_DIAGS 
     &                   + DDTT * ocMxlD2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 89 OCN_CPL_DIAGS 
            SSTtave(i,j,bi,bj)  = SSTtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 90 OCN_CPL_DIAGS 
     &                   + DDTT * SSTocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 91 OCN_CPL_DIAGS 
            SSStave(i,j,bi,bj)  = SSStave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 92 OCN_CPL_DIAGS 
     &                   + DDTT * SSSocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 93 OCN_CPL_DIAGS 
            vSqtave(i,j,bi,bj)  = vSqtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 94 OCN_CPL_DIAGS 
     &                   + DDTT * vSqocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 96 OCN_CPL_DIAGS 
            aCO2tave(i,j,bi,bj)  = aCO2tave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 97 OCN_CPL_DIAGS 
     &                    + DDTT * airCO2(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 98 OCN_CPL_DIAGS 
            sWSpdtave(i,j,bi,bj) = sWSpdtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 99 OCN_CPL_DIAGS 
     &                    + DDTT * surfWSpeed(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F 38 OCN_EXPORT_OCNCONFIG 
      INTEGER i,j,bi,bj
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F 44 OCN_EXPORT_OCNCONFIG 
          ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 48 OCN_STORE_MY_DATA 
      INTEGER i,j
./pkg/ocn_compon_interf/ocn_store_my_data.F 52 OCN_STORE_MY_DATA 
        DO i=1,sNx
./pkg/ocn_compon_interf/ocn_store_my_data.F 53 OCN_STORE_MY_DATA 
          SSTocn2cpl(i,j,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 54 OCN_STORE_MY_DATA 
          SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 59 OCN_STORE_MY_DATA 
        DO i=1,sNx
./pkg/ocn_compon_interf/ocn_store_my_data.F 60 OCN_STORE_MY_DATA 
          SSTocn2cpl(i,j,bi,bj) = gT(i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 61 OCN_STORE_MY_DATA 
          SSSocn2cpl(i,j,bi,bj) = gS(i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 70 OCN_STORE_MY_DATA 
         DO i=1,sNx
./pkg/ocn_compon_interf/ocn_store_my_data.F 71 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) =
./pkg/ocn_compon_interf/ocn_store_my_data.F 72 OCN_STORE_MY_DATA 
     &          h0FacC(i,j,1,bi,bj)*rStarFacC(i,j,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 77 OCN_STORE_MY_DATA 
         DO i=1,sNx
./pkg/ocn_compon_interf/ocn_store_my_data.F 78 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 87 OCN_STORE_MY_DATA 
        DO i=1,sNx
./pkg/ocn_compon_interf/ocn_store_my_data.F 88 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 94 OCN_STORE_MY_DATA 
        DO i=1,sNx
./pkg/ocn_compon_interf/ocn_store_my_data.F 95 OCN_STORE_MY_DATA 
          vSqocn2cpl(i,j,bi,bj) =
./pkg/ocn_compon_interf/ocn_store_my_data.F 96 OCN_STORE_MY_DATA 
     &              ( uVel(i , j,1,bi,bj)*uVel(i , j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 97 OCN_STORE_MY_DATA 
     &              + uVel(i+1,j,1,bi,bj)*uVel(i+1,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 98 OCN_STORE_MY_DATA 
     &              + vVel(i,j+1,1,bi,bj)*vVel(i,j+1,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 99 OCN_STORE_MY_DATA 
     &              + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj)
./pkg/offline/offline_fields_load.F 339 OFFLINE_FIELDS_LOAD 
         DO i=1-Olx,sNx+Olx
./pkg/offline/offline_fields_load.F 340 OFFLINE_FIELDS_LOAD 
          Uvel(i,j,k,bi,bj)   = bWght*uvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 341 OFFLINE_FIELDS_LOAD 
     &                       +aWght*uvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 342 OFFLINE_FIELDS_LOAD 
          Vvel(i,j,k,bi,bj)    = bWght*vvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 343 OFFLINE_FIELDS_LOAD 
     &                       +aWght*vvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 344 OFFLINE_FIELDS_LOAD 
          Wvel(i,j,k,bi,bj)    =  bWght*wvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 345 OFFLINE_FIELDS_LOAD 
     &                       +aWght*wvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 346 OFFLINE_FIELDS_LOAD 
          theta(i,j,k,bi,bj)    = bWght*tave0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 347 OFFLINE_FIELDS_LOAD 
     &                       +aWght*tave1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 348 OFFLINE_FIELDS_LOAD 
          salt(i,j,k,bi,bj)    =  bWght*save0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 349 OFFLINE_FIELDS_LOAD 
     &                       +aWght*save1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 350 OFFLINE_FIELDS_LOAD 
          ConvectCount(i,j,k,bi,bj) =  bWght*conv0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 351 OFFLINE_FIELDS_LOAD 
     &                       +aWght*conv1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 352 OFFLINE_FIELDS_LOAD 
          IVDConvCount(i,j,k,bi,bj) =  bWght*conv0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 353 OFFLINE_FIELDS_LOAD 
     &                       +aWght*conv1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 355 OFFLINE_FIELDS_LOAD 
          Kwx(i,j,k,bi,bj)    =  bWght*gmkx0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 356 OFFLINE_FIELDS_LOAD 
     &                       +aWght*gmkx1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 357 OFFLINE_FIELDS_LOAD 
          Kwy(i,j,k,bi,bj)    =  bWght*gmky0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 358 OFFLINE_FIELDS_LOAD 
     &                       +aWght*gmky1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 359 OFFLINE_FIELDS_LOAD 
          Kwz(i,j,k,bi,bj)    =  bWght*gmkz0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 360 OFFLINE_FIELDS_LOAD 
     &                       +aWght*gmkz1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 363 OFFLINE_FIELDS_LOAD 
          KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 364 OFFLINE_FIELDS_LOAD 
     &                       +aWght*kdfs1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 367 OFFLINE_FIELDS_LOAD 
          KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 368 OFFLINE_FIELDS_LOAD 
     &                       +aWght*kght1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 374 OFFLINE_FIELDS_LOAD 
        DO i=1-Olx,sNx+Olx
./pkg/offline/offline_fields_load.F 375 OFFLINE_FIELDS_LOAD 
          surfaceForcingT(i,j,bi,bj) = bWght*hflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 376 OFFLINE_FIELDS_LOAD 
     &                       +aWght*hflx1(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 377 OFFLINE_FIELDS_LOAD 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 379 OFFLINE_FIELDS_LOAD 
          surfaceForcingS(i,j,bi,bj) =  bWght*sflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 380 OFFLINE_FIELDS_LOAD 
     &                       +aWght*sflx1(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 381 OFFLINE_FIELDS_LOAD 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 384 OFFLINE_FIELDS_LOAD 
          ICEM(i,j,bi,bj) =  bWght*icem0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 385 OFFLINE_FIELDS_LOAD 
     &                       +aWght*icem1(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 433 LEF_ZERO3 
      INTEGER i,j,bi,bj,k
./pkg/offline/offline_fields_load.F 440 LEF_ZERO3 
         DO i=1-Olx,sNx+Olx
./pkg/offline/offline_fields_load.F 441 LEF_ZERO3 
          arr(i,j,k,bi,bj)=0.
./pkg/offline/offline_fields_load.F 469 LEF_ZERO2 
      INTEGER i,j,bi,bj
./pkg/offline/offline_fields_load.F 474 LEF_ZERO2 
         DO i=1-Olx,sNx+Olx
./pkg/offline/offline_fields_load.F 475 LEF_ZERO2 
          arr(i,j,bi,bj)=0.
./pkg/offline/offline_fields_load.F 66 OFFLINE_FIELDS_LOAD 
      INTEGER bi,bj,i,j,k,intime0,intime1
./pkg/offline/offline_init_varia.F 28 OFFLINE_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/offline/offline_init_varia.F 34 OFFLINE_INIT_VARIA 
              DO i=1-Olx,sNx+Olx
./pkg/offline/offline_init_varia.F 35 OFFLINE_INIT_VARIA 
                 save0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 36 OFFLINE_INIT_VARIA 
                 tave0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 37 OFFLINE_INIT_VARIA 
                 uvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 38 OFFLINE_INIT_VARIA 
                 vvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 39 OFFLINE_INIT_VARIA 
                 wvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 40 OFFLINE_INIT_VARIA 
                 conv0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 41 OFFLINE_INIT_VARIA 
                 gmkx0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 42 OFFLINE_INIT_VARIA 
                 gmky0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 43 OFFLINE_INIT_VARIA 
                 gmkz0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 45 OFFLINE_INIT_VARIA 
                 save1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 46 OFFLINE_INIT_VARIA 
                 tave1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 47 OFFLINE_INIT_VARIA 
                 uvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 48 OFFLINE_INIT_VARIA 
                 vvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 49 OFFLINE_INIT_VARIA 
                 wvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 50 OFFLINE_INIT_VARIA 
                 conv1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 51 OFFLINE_INIT_VARIA 
                 gmkx1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 52 OFFLINE_INIT_VARIA 
                 gmky1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 53 OFFLINE_INIT_VARIA 
                 gmkz1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 58 OFFLINE_INIT_VARIA 
            DO i=1-Olx,sNx+Olx
./pkg/offline/offline_init_varia.F 59 OFFLINE_INIT_VARIA 
                 hflx0(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 60 OFFLINE_INIT_VARIA 
                 sflx0(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 61 OFFLINE_INIT_VARIA 
                 hflx1(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 62 OFFLINE_INIT_VARIA 
                 sflx1(i,j,bi,bj) = 0. _d 0
./pkg/opps/opps_calc.F 1083 NLOPPS 
            convadj(i,j,k2) = convadj(i,j,k2) + (ttemp(k2)-
./pkg/opps/opps_calc.F 1084 NLOPPS 
     *          ta(i,k2))
./pkg/opps/opps_calc.F 1085 NLOPPS 
            sa(i,k2) = stemp(k2)
./pkg/opps/opps_calc.F 1086 NLOPPS 
            ta(i,k2) = ttemp(k2)
./pkg/opps/opps_calc.F 1093 NLOPPS 
            if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then
./pkg/opps/opps_calc.F 135 OPPS_CALC 
       Dd(k)=state1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid)
./pkg/opps/opps_calc.F 175 OPPS_CALC 
        D1=state1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F 177 OPPS_CALC 
     &                                i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F 232 OPPS_CALC 
         Dd(k2+1)=state1(Pd(k2+1,2),Pd(k2+1,1),i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F 492 OPPS_CALC 
        pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 494 OPPS_CALC 
     &                   )*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 496 OPPS_CALC 
        pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 501 OPPS_CALC 
       pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 726 NLOPPS 
      INTEGER i,j,k
./pkg/opps/opps_calc.F 795 NLOPPS 
      DO i=is,ie
./pkg/opps/opps_calc.F 797 NLOPPS 
        numgridpoints=kmp(i,j)
./pkg/opps/opps_calc.F 811 NLOPPS 
         stemp(k)=sa(i,k)
./pkg/opps/opps_calc.F 812 NLOPPS 
         ttemp(k)=ta(i,k)
./pkg/opps/opps_calc.F 821 NLOPPS 
         if(sa(i,k).gt.40..or.ta(i,k).lt.-4.0) then
./pkg/opps/opps_calc.F 830 NLOPPS 
        write(*,*)"T and S Profile at  ",i,j
./pkg/opps/opps_calc.F 831 NLOPPS 
        write(*,*)(ta(i,k),sa(i,k),k=1,NumGridPoints)
./pkg/opps/opps_init.F 31 OPPS_INIT 
      INTEGER i, j, k, bi, bj
./pkg/opps/opps_init.F 41 OPPS_INIT 
          do i = 1-OLx, sNx+OLx
./model/src/cg3d.F 124 CG3D 
       DO i=1,sNx
./model/src/cg3d.F 125 CG3D 
         surfTerm(i,j) = 0.
./model/src/cg3d.F 139 CG3D 
          DO i=1,sNx
./model/src/cg3d.F 140 CG3D 
           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm
./model/src/cg3d.F 141 CG3D 
     &                          * maskC(i,j,k,bi,bj)
./model/src/cg3d.F 142 CG3D 
           rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax)
./model/src/cg3d.F 155 CG3D 
          DO i=1,sNx
./model/src/cg3d.F 156 CG3D 
           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm
./model/src/cg3d.F 157 CG3D 
           cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm
./model/src/cg3d.F 178 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 179 CG3D 
             surfTerm(i,j) = 0.
./model/src/cg3d.F 184 CG3D 
            DO i=1,sNx
./model/src/cg3d.F 185 CG3D 
             surfTerm(i,j) = surfTerm(i,j)
./model/src/cg3d.F 186 CG3D 
     &         +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 191 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 192 CG3D 
             ks = ksurfC(i,j,bi,bj)
./model/src/cg3d.F 193 CG3D 
             surfTerm(i,j) = surfTerm(i,j)*cg3dNorm
./model/src/cg3d.F 194 CG3D 
     &              *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/cg3d.F 195 CG3D 
     &              *rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/cg3d.F 196 CG3D 
     &              *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d.F 212 CG3D 
          DO i=1,sNx
./model/src/cg3d.F 213 CG3D 
           cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/cg3d.F 215 CG3D 
     &       +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj)
./model/src/cg3d.F 216 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj)
./model/src/cg3d.F 217 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj)
./model/src/cg3d.F 218 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj)
./model/src/cg3d.F 219 CG3D 
     &       +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1
./model/src/cg3d.F 220 CG3D 
     &       +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1
./model/src/cg3d.F 221 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj)
./model/src/cg3d.F 223 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 227 CG3D 
     &                    +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 228 CG3D 
           sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj)
./model/src/cg3d.F 233 CG3D 
           cg3d_s(i,j,k,bi,bj) = 0.
./model/src/cg3d.F 283 CG3D 
           DO i=1-1,sNx+1
./model/src/cg3d.F 284 CG3D 
            cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d.F 285 CG3D 
     &                        *cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 294 CG3D 
           DO i=1-1,sNx+1
./model/src/cg3d.F 295 CG3D 
            cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d.F 296 CG3D 
     &                      *( cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 297 CG3D 
     &                         -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj)
./model/src/cg3d.F 307 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 309 CG3D 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 318 CG3D 
           DO i=1-1,sNx+1
./model/src/cg3d.F 319 CG3D 
            cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 320 CG3D 
     &                         -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj)
./model/src/cg3d.F 327 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 329 CG3D 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 350 CG3D 
           DO i=1-1,sNx+1
./model/src/cg3d.F 351 CG3D 
            cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 352 CG3D 
     &                   + cgBeta*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d.F 368 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 369 CG3D 
             surfTerm(i,j) = 0.
./model/src/cg3d.F 374 CG3D 
            DO i=1,sNx
./model/src/cg3d.F 375 CG3D 
             surfTerm(i,j) = surfTerm(i,j)
./model/src/cg3d.F 376 CG3D 
     &         +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 381 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 382 CG3D 
             ks = ksurfC(i,j,bi,bj)
./model/src/cg3d.F 383 CG3D 
             surfTerm(i,j) = surfTerm(i,j)*cg3dNorm
./model/src/cg3d.F 384 CG3D 
     &              *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/cg3d.F 385 CG3D 
     &              *rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/cg3d.F 386 CG3D 
     &              *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d.F 397 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 398 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 399 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 400 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 401 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 402 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 403 CG3D 
     &       +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d.F 404 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 406 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 409 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 418 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 419 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 420 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 421 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 422 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 423 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 424 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 426 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 429 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 438 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 439 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 440 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 441 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 442 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 443 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 444 CG3D 
     &       +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d.F 445 CG3D 
     &       +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d.F 446 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 448 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 451 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 461 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 462 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 463 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 464 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 465 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 466 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 467 CG3D 
     &       +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d.F 468 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 470 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 473 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 499 CG3D 
           DO i=1,sNx
./model/src/cg3d.F 500 CG3D 
            cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj)
./model/src/cg3d.F 501 CG3D 
     &            +alpha*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d.F 502 CG3D 
            cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 503 CG3D 
     &            -alpha*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 505 CG3D 
     &            +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 543 CG3D 
          DO i=1,sNx
./model/src/cg3d.F 544 CG3D 
           cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm
./model/src/cg3d.F 98 CG3D 
      INTEGER i, j, k, it3d
./pkg/pp81/pp81_calc_diff.F 45 PP81_CALC_DIFF 
      INTEGER i,j,k
./pkg/pp81/pp81_calc_diff.F 52 PP81_CALC_DIFF 
          DO i=iMin,iMax
./pkg/pp81/pp81_calc_diff.F 53 PP81_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/pp81/pp81_calc_diff.F 54 PP81_CALC_DIFF 
     &                  +( PPdiffKr(i,j,k,bi,bj)
./pkg/pp81/pp81_calc_diff.F 56 PP81_CALC_DIFF 
     &                     - diffKr(i,j,k,bi,bj) )
./pkg/pp81/pp81_calc_diff.F 67 PP81_CALC_DIFF 
          DO i=iMin,iMax
./pkg/pp81/pp81_calc_diff.F 68 PP81_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)
./pkg/pp81/pp81_calc_diff.F 69 PP81_CALC_DIFF 
     &                  +( PPdiffKr(i,j,kArg,bi,bj)
./pkg/pp81/pp81_calc_diff.F 71 PP81_CALC_DIFF 
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/pp81/pp81_calc_visc.F 40 PP81_CALC_VISC 
      INTEGER i,j
./pkg/pp81/pp81_calc_visc.F 43 PP81_CALC_VISC 
       DO i=iMin,iMax
./pkg/pp81/pp81_calc_visc.F 44 PP81_CALC_VISC 
        KappaRU(i,j,k) = max ( KappaRU(i,j,k),
./pkg/pp81/pp81_calc_visc.F 45 PP81_CALC_VISC 
     &         KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc_visc.F 46 PP81_CALC_VISC 
     &         0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i-1,j,k,bi,bj)) )
./pkg/pp81/pp81_calc_visc.F 51 PP81_CALC_VISC 
       DO i=iMin,iMax
./pkg/pp81/pp81_calc_visc.F 52 PP81_CALC_VISC 
        KappaRV(i,j,k) = max ( KappaRV(i,j,k),
./pkg/pp81/pp81_calc_visc.F 53 PP81_CALC_VISC 
     &         KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) *
./pkg/pp81/pp81_calc_visc.F 54 PP81_CALC_VISC 
     &         0.5*(PPviscAr(i,j,k,bi,bj)+PPviscAr(i,j-1,k,bi,bj)) )
./pkg/pp81/pp81_init_varia.F 31 PP81_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/pp81/pp81_init_varia.F 41 PP81_INIT_VARIA 
          DO i = 1-OLx, sNx+OLx
./pkg/pp81/pp81_init_varia.F 42 PP81_INIT_VARIA 
           PPviscAr (i,j,k,bi,bj) = viscArNr(k)
./pkg/pp81/pp81_init_varia.F 43 PP81_INIT_VARIA 
           PPdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./pkg/profiles/active_file_control_profiles.F 135 ACTIVE_READ_PROFILE_RL 
        do i = 1,nactive_var
./pkg/profiles/active_file_control_profiles.F 136 ACTIVE_READ_PROFILE_RL 
           active_data_t(i) = active_data_t(i) + active_var(i)
./pkg/profiles/active_file_control_profiles.F 149 ACTIVE_READ_PROFILE_RL 
        do i = 1,nactive_var
./pkg/profiles/active_file_control_profiles.F 150 ACTIVE_READ_PROFILE_RL 
           active_var(i) = 0. _d 0
./pkg/profiles/active_file_control_profiles.F 167 ACTIVE_READ_PROFILE_RL 
        do i = 1,nactive_var
./pkg/profiles/active_file_control_profiles.F 168 ACTIVE_READ_PROFILE_RL 
           active_data_t(i) = active_data_t(i) + active_var(i)
./pkg/profiles/active_file_control_profiles.F 183 ACTIVE_READ_PROFILE_RL 
        do i = 1,nactive_var
./pkg/profiles/active_file_control_profiles.F 184 ACTIVE_READ_PROFILE_RL 
           active_var(i) = 0. _d 0
./pkg/profiles/active_file_control_profiles.F 286 ACTIVE_WRITE_PROFILE_RL 
      integer  i
./pkg/profiles/active_file_control_profiles.F 370 ACTIVE_WRITE_PROFILE_RL 
        do i = 1,nactive_var
./pkg/profiles/active_file_control_profiles.F 371 ACTIVE_WRITE_PROFILE_RL 
           active_var(i) = active_var(i) + active_data_t(i)
./pkg/profiles/active_file_control_profiles.F 372 ACTIVE_WRITE_PROFILE_RL 
           active_data_t(i) = 0. _d 0
./pkg/profiles/active_file_control_profiles.F 398 ACTIVE_WRITE_PROFILE_RL 
        do i = 1,nactive_var
./pkg/profiles/active_file_control_profiles.F 399 ACTIVE_WRITE_PROFILE_RL 
           active_var(i) = active_var(i) + active_data_t(i)
./pkg/profiles/active_file_control_profiles.F 400 ACTIVE_WRITE_PROFILE_RL 
           active_data_t(i) = 0. _d 0
./pkg/profiles/active_file_control_profiles.F 60 ACTIVE_READ_PROFILE_RL 
      integer i,ivar
./pkg/profiles/profiles_init_varia.F 45 PROFILES_INIT_VARIA 
      integer i,j,k
./pkg/profiles/profiles_interp.F 101 PROFILES_INTERP 
         if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F 102 PROFILES_INTERP 
         lon_tmp2=xC(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp.F 104 PROFILES_INTERP 
         lon_tmp2=xC(i+1,j,bi,bj)
./pkg/profiles/profiles_interp.F 106 PROFILES_INTERP 
         if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F 107 PROFILES_INTERP 
         lon_tmp1=xC(i,j,bi,bj)+360
./pkg/profiles/profiles_interp.F 109 PROFILES_INTERP 
         lon_tmp1=xC(i,j,bi,bj)
./pkg/profiles/profiles_interp.F 112 PROFILES_INTERP 
         if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F 113 PROFILES_INTERP 
         lon_tmp2=xG(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp.F 115 PROFILES_INTERP 
         lon_tmp2=xG(i+1,j,bi,bj)
./pkg/profiles/profiles_interp.F 117 PROFILES_INTERP 
         if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp.F 118 PROFILES_INTERP 
         lon_tmp1=xG(i,j,bi,bj)+360
./pkg/profiles/profiles_interp.F 120 PROFILES_INTERP 
         lon_tmp1=xG(i,j,bi,bj)
./pkg/profiles/profiles_interp.F 125 PROFILES_INTERP 
         prof_i=i
./pkg/profiles/profiles_interp.F 58 PROFILES_INTERP 
      integer i,j,k,kk,kcur,iG,jG,bi,bj
./pkg/profiles/profiles_interp.F 72 PROFILES_INTERP 
         DO i=1,sNx+1
./pkg/profiles/profiles_interp.F 76 PROFILES_INTERP 
        if ((yC(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp.F 77 PROFILES_INTERP 
     &  (yC(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp.F 79 PROFILES_INTERP 
          lat_1=yC(i,j,bi,bj)
./pkg/profiles/profiles_interp.F 80 PROFILES_INTERP 
          lat_2=yC(i,j+1,bi,bj)
./pkg/profiles/profiles_interp.F 87 PROFILES_INTERP 
        if ((yG(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp.F 88 PROFILES_INTERP 
     &  (yG(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp.F 90 PROFILES_INTERP 
          lat_1=yG(i,j,bi,bj)
./pkg/profiles/profiles_interp.F 91 PROFILES_INTERP 
          lat_2=yG(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_gg.F 63 PROFILES_INTERP_GG 
      integer q,i,j,k,kk,kcur,iG,jG,bi,bj
./pkg/profiles/profiles_interp_mean.F 101 PROFILES_INTERP_MEAN 
         if (xC(i+1,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F 102 PROFILES_INTERP_MEAN 
         lon_tmp2=xC(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F 104 PROFILES_INTERP_MEAN 
         lon_tmp2=xC(i+1,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 106 PROFILES_INTERP_MEAN 
         if (xC(i,j,bi,bj).LT.xC(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F 107 PROFILES_INTERP_MEAN 
         lon_tmp1=xC(i,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F 109 PROFILES_INTERP_MEAN 
         lon_tmp1=xC(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 112 PROFILES_INTERP_MEAN 
         if (xG(i+1,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F 113 PROFILES_INTERP_MEAN 
         lon_tmp2=xG(i+1,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F 115 PROFILES_INTERP_MEAN 
         lon_tmp2=xG(i+1,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 117 PROFILES_INTERP_MEAN 
         if (xG(i,j,bi,bj).LT.xG(1,j,bi,bj)) then
./pkg/profiles/profiles_interp_mean.F 118 PROFILES_INTERP_MEAN 
         lon_tmp1=xG(i,j,bi,bj)+360
./pkg/profiles/profiles_interp_mean.F 120 PROFILES_INTERP_MEAN 
         lon_tmp1=xG(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 125 PROFILES_INTERP_MEAN 
         prof_i=i
./pkg/profiles/profiles_interp_mean.F 58 PROFILES_INTERP_MEAN 
      integer i,j,k,kk,kcur,iG,jG,bi,bj
./pkg/profiles/profiles_interp_mean.F 72 PROFILES_INTERP_MEAN 
         DO i=1,sNx+1
./pkg/profiles/profiles_interp_mean.F 76 PROFILES_INTERP_MEAN 
        if ((yC(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp_mean.F 77 PROFILES_INTERP_MEAN 
     &  (yC(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp_mean.F 79 PROFILES_INTERP_MEAN 
          lat_1=yC(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 80 PROFILES_INTERP_MEAN 
          lat_2=yC(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_mean.F 87 PROFILES_INTERP_MEAN 
        if ((yG(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp_mean.F 88 PROFILES_INTERP_MEAN 
     &  (yG(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp_mean.F 90 PROFILES_INTERP_MEAN 
          lat_1=yG(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 91 PROFILES_INTERP_MEAN 
          lat_2=yG(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_mean_gg.F 63 PROFILES_INTERP_MEAN_GG 
      integer q,i,j,k,kk,kcur,iG,jG,bi,bj
./model/src/config_summary.F 197 CONFIG_SUMMARY 
     &   k,eosRefT(k),eosRefS(k),eosSig0(k), (eosC(i,k),i=1,9)
./model/src/config_summary.F 511 CONFIG_SUMMARY 
      i = ILNBLNK(pickupSuff)
./model/src/config_summary.F 512 CONFIG_SUMMARY 
      IF ( i.GT.0 ) THEN
./model/src/config_summary.F 51 CONFIG_SUMMARY 
      INTEGER i, k
./model/src/config_summary.F 712 CONFIG_SUMMARY 
      i = ILNBLNK(the_run_name)
./model/src/config_summary.F 713 CONFIG_SUMMARY 
      IF ( i.GT.0 ) THEN
./model/src/config_summary.F 714 CONFIG_SUMMARY 
        CALL WRITE_0D_C( the_run_name, i, INDEX_NONE,
./model/src/convective_adjustment.F 57 CONVECTIVE_ADJUSTMENT 
      INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment.F 88 CONVECTIVE_ADJUSTMENT 
          DO i=1-OLx,sNx+OLx
./model/src/convective_adjustment.F 89 CONVECTIVE_ADJUSTMENT 
           ConvectCount(i,j,K) = 0.
./pkg/ptracers/ptracers_calc_diff.F 150 PTRACERS_CALC_DIFF 
         DO i = 1-Olx, sNx+Olx
./pkg/ptracers/ptracers_calc_diff.F 151 PTRACERS_CALC_DIFF 
          KappaRtr(i,j,iTr) = maskUp(i,j)*KappaRtr(i,j,iTr)
./pkg/ptracers/ptracers_calc_diff.F 58 PTRACERS_CALC_DIFF 
      INTEGER i,j,iTr,trIdentity
./pkg/ptracers/ptracers_calc_diff.F 79 PTRACERS_CALC_DIFF 
         DO i = 1-Olx, sNx+Olx
./pkg/ptracers/ptracers_calc_diff.F 80 PTRACERS_CALC_DIFF 
          KappaRtr(i,j,iTr) =
./pkg/ptracers/ptracers_calc_diff.F 82 PTRACERS_CALC_DIFF 
     &         LS_IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./pkg/ptracers/ptracers_calc_diff.F 84 PTRACERS_CALC_DIFF 
     &         IVDConvCount(i,j,k,bi,bj)*ivdc_kappa
./pkg/ptracers/ptracers_calc_diff.F 88 PTRACERS_CALC_DIFF 
     &       + diffKr(i,j,k,bi,bj)
./pkg/ptracers/ptracers_calc_diff.F 94 PTRACERS_CALC_DIFF 
     &        + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./pkg/ptracers/ptracers_check_pickup.F 47 PTRACERS_CHECK_PICKUP 
      INTEGER i, iTracer
./pkg/ptracers/ptracers_check_pickup.F 70 PTRACERS_CHECK_PICKUP 
           DO i=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_check_pickup.F 72 PTRACERS_CHECK_PICKUP 
     &            fldName(4:5).EQ.PTRACERS_ioLabel(i) ) iTracer = i
./pkg/ptracers/ptracers_check_pickup.F 88 PTRACERS_CHECK_PICKUP 
           DO i=1,PTRACERS_numInUse
./pkg/ptracers/ptracers_check_pickup.F 90 PTRACERS_CHECK_PICKUP 
     &            fldName(5:6).EQ.PTRACERS_ioLabel(i) ) iTracer = i
./pkg/ptracers/ptracers_diagnostics_state.F 113 PTRACERS_DIAGNOSTICS_STATE 
                DO i = 1,sNx
./pkg/ptracers/ptracers_diagnostics_state.F 118 PTRACERS_DIAGNOSTICS_STATE 
                  dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F 119 PTRACERS_DIAGNOSTICS_STATE 
     &                 LS_vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F 120 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 121 PTRACERS_DIAGNOSTICS_STATE 
     &                          + pTracer(i,j-1,k,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F 126 PTRACERS_DIAGNOSTICS_STATE 
                  dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F 127 PTRACERS_DIAGNOSTICS_STATE 
     &                 vVel(i,j,k,bi,bj)*hFacS(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F 128 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 129 PTRACERS_DIAGNOSTICS_STATE 
     &                          + pTracer(i,j-1,k,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F 147 PTRACERS_DIAGNOSTICS_STATE 
                DO i = 1,sNx
./pkg/ptracers/ptracers_diagnostics_state.F 152 PTRACERS_DIAGNOSTICS_STATE 
                  dummy(i,j,k,bi,bj) = LS_wVel(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F 153 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 154 PTRACERS_DIAGNOSTICS_STATE 
     &                          + pTracer(i,j,km1,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F 159 PTRACERS_DIAGNOSTICS_STATE 
                  dummy(i,j,k,bi,bj) = wVel(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F 160 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 161 PTRACERS_DIAGNOSTICS_STATE 
     &                          + pTracer(i,j,km1,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F 41 PTRACERS_DIAGNOSTICS_STATE 
      INTEGER i,j,k,bi,bj,iTr
./pkg/ptracers/ptracers_diagnostics_state.F 80 PTRACERS_DIAGNOSTICS_STATE 
                DO i = 1,sNx+1
./pkg/ptracers/ptracers_diagnostics_state.F 85 PTRACERS_DIAGNOSTICS_STATE 
                  dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F 86 PTRACERS_DIAGNOSTICS_STATE 
     &                 LS_uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F 87 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 88 PTRACERS_DIAGNOSTICS_STATE 
     &                          + pTracer(i-1,j,k,bi,bj,iTr) )
./pkg/ptracers/ptracers_diagnostics_state.F 93 PTRACERS_DIAGNOSTICS_STATE 
                  dummy(i,j,k,bi,bj) =
./pkg/ptracers/ptracers_diagnostics_state.F 94 PTRACERS_DIAGNOSTICS_STATE 
     &                 uVel(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj) *
./pkg/ptracers/ptracers_diagnostics_state.F 95 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 96 PTRACERS_DIAGNOSTICS_STATE 
     &                          + pTracer(i-1,j,k,bi,bj,iTr) )
./model/src/convective_adjustment_ini.F 61 CONVECTIVE_ADJUSTMENT_INI 
      INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment_ini.F 88 CONVECTIVE_ADJUSTMENT_INI 
          DO i=1-OLx,sNx+OLx
./model/src/convective_adjustment_ini.F 89 CONVECTIVE_ADJUSTMENT_INI 
           ConvectCount(i,j,k) = 0.
./pkg/ptracers/ptracers_forcing.F 49 PTRACERS_FORCING 
      INTEGER i,j
./pkg/ptracers/ptracers_forcing.F 74 PTRACERS_FORCING 
         DO i=iMin,iMax
./pkg/ptracers/ptracers_forcing.F 75 PTRACERS_FORCING 
          gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj)
./pkg/ptracers/ptracers_forcing.F 76 PTRACERS_FORCING 
     &          + surfPtracer(i,j,bi,bj)
./pkg/ptracers/ptracers_forcing.F 77 PTRACERS_FORCING 
     &           *recip_drF(k)*recip_hFacC(i,j,k,bi,bj)
./pkg/ptracers/ptracers_forcing_surf.F 111 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./pkg/ptracers/ptracers_forcing_surf.F 112 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 113 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 114 PTRACERS_FORCING_SURF 
     &        + EmPmR(i,j,bi,bj)
./pkg/ptracers/ptracers_forcing_surf.F 115 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 132 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./pkg/ptracers/ptracers_forcing_surf.F 133 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 134 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 135 PTRACERS_FORCING_SURF 
     &        + EmPmR(i,j,bi,bj)
./pkg/ptracers/ptracers_forcing_surf.F 48 PTRACERS_FORCING_SURF 
      INTEGER i, j
./pkg/ptracers/ptracers_forcing_surf.F 61 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./pkg/ptracers/ptracers_forcing_surf.F 62 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./pkg/ptracers/ptracers_forcing_surf.F 82 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 83 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 84 PTRACERS_FORCING_SURF 
     &        + PmEpR(i,j,bi,bj)
./pkg/ptracers/ptracers_forcing_surf.F 85 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/ptracers/ptracers_init_varia.F 105 PTRACERS_INIT_VARIA 
           DO i=1-OLx,sNx+OLx
./pkg/ptracers/ptracers_init_varia.F 106 PTRACERS_INIT_VARIA 
            IF (maskC(i,j,k,bi,bj).EQ.0.)
./pkg/ptracers/ptracers_init_varia.F 107 PTRACERS_INIT_VARIA 
     &           pTracer(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/ptracers/ptracers_init_varia.F 37 PTRACERS_INIT_VARIA 
      INTEGER i,j,k,bi,bj,iTracer
./pkg/ptracers/ptracers_init_varia.F 53 PTRACERS_INIT_VARIA 
           DO i=1-OLx,sNx+OLx
./pkg/ptracers/ptracers_init_varia.F 54 PTRACERS_INIT_VARIA 
            pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer)
./pkg/ptracers/ptracers_init_varia.F 55 PTRACERS_INIT_VARIA 
            gPtr(i,j,k,bi,bj,iTracer)    = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 56 PTRACERS_INIT_VARIA 
            gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 61 PTRACERS_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/ptracers/ptracers_init_varia.F 62 PTRACERS_INIT_VARIA 
           surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 72 PTRACERS_INIT_VARIA 
              DO i=1-OLx,sNx+OLx
./pkg/ptracers/ptracers_init_varia.F 73 PTRACERS_INIT_VARIA 
               _Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
./model/src/convective_weights.F 53 CONVECTIVE_WEIGHTS 
      INTEGER i,j
./model/src/convective_weights.F 58 CONVECTIVE_WEIGHTS 
       DO i=1-Olx,sNx+Olx
./model/src/convective_weights.F 59 CONVECTIVE_WEIGHTS 
         IF ( _hFacC(i,j,k-1,bi,bj)
./model/src/convective_weights.F 60 CONVECTIVE_WEIGHTS 
     &       *_hFacC(i,j,k,bi,bj) .GT. 0.
./model/src/convective_weights.F 61 CONVECTIVE_WEIGHTS 
     &  .AND. (rhokm1(i,j)-rhok(i,j))*rkSign*gravitySign .GT. 0.
./model/src/convective_weights.F 65 CONVECTIVE_WEIGHTS 
          d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1)
./model/src/convective_weights.F 66 CONVECTIVE_WEIGHTS 
          d2 = _hFacC(i,j, k ,bi,bj)*drF( k )
./model/src/convective_weights.F 68 CONVECTIVE_WEIGHTS 
          weightA(i,j) = d2/dS
./model/src/convective_weights.F 69 CONVECTIVE_WEIGHTS 
          weightB(i,j) = d1/dS
./model/src/convective_weights.F 70 CONVECTIVE_WEIGHTS 
          ConvectCount(i,j,k) = ConvectCount(i,j,k) + 1.
./model/src/convective_weights.F 73 CONVECTIVE_WEIGHTS 
          weightA(i,j) = 0.
./model/src/convective_weights.F 74 CONVECTIVE_WEIGHTS 
          weightB(i,j) = 0.
./pkg/ptracers/ptracers_set_iolabel.F 100 PTRACERS_SET_IOLABEL 
       DO i=1,l2Set
./pkg/ptracers/ptracers_set_iolabel.F 102 PTRACERS_SET_IOLABEL 
        IF ( i.NE.1 .OR. j.NE.1 ) THEN
./pkg/ptracers/ptracers_set_iolabel.F 106 PTRACERS_SET_IOLABEL 
          ioLbl(n)(2:2) = c2Set1(i:i)
./pkg/ptracers/ptracers_set_iolabel.F 116 PTRACERS_SET_IOLABEL 
       DO i=1,l2Set
./pkg/ptracers/ptracers_set_iolabel.F 120 PTRACERS_SET_IOLABEL 
          ioLbl(n)(2:2) = c2Set2(i:i)
./pkg/ptracers/ptracers_set_iolabel.F 129 PTRACERS_SET_IOLABEL 
       DO i=1,l2Set
./pkg/ptracers/ptracers_set_iolabel.F 133 PTRACERS_SET_IOLABEL 
          ioLbl(n)(2:2) = c2Set3(i:i)
./pkg/ptracers/ptracers_set_iolabel.F 75 PTRACERS_SET_IOLABEL 
      INTEGER i,j,n
./model/src/convectively_mixtracer.F 42 CONVECTIVELY_MIXTRACER 
      INTEGER i,j
./model/src/convectively_mixtracer.F 47 CONVECTIVELY_MIXTRACER 
       DO i=1-Olx,sNx+Olx
./model/src/convectively_mixtracer.F 49 CONVECTIVELY_MIXTRACER 
        delTrac=Tracer(i,j,k,bi,bj)-Tracer(i,j,k-1,bi,bj)
./model/src/convectively_mixtracer.F 50 CONVECTIVELY_MIXTRACER 
        Tracer(i,j,k-1,bi,bj)=Tracer(i,j,k-1,bi,bj)
./model/src/convectively_mixtracer.F 51 CONVECTIVELY_MIXTRACER 
     &                       +weightA(i,j)*delTrac
./model/src/convectively_mixtracer.F 52 CONVECTIVELY_MIXTRACER 
        Tracer(i,j,k,bi,bj)=Tracer(i,j,k,bi,bj)
./model/src/convectively_mixtracer.F 53 CONVECTIVELY_MIXTRACER 
     &                       -weightB(i,j)*delTrac
./pkg/rbcs/rbcs_add_tendency.F 45 RBCS_ADD_TENDENCY 
      INTEGER i,j
./pkg/rbcs/rbcs_add_tendency.F 56 RBCS_ADD_TENDENCY 
         DO i=1,sNx
./pkg/rbcs/rbcs_add_tendency.F 57 RBCS_ADD_TENDENCY 
          gT(i,j,k,bi,bj) = gT(i,j,k,bi,bj)
./pkg/rbcs/rbcs_add_tendency.F 58 RBCS_ADD_TENDENCY 
     &       - maskC(i,j,k,bi,bj)
./pkg/rbcs/rbcs_add_tendency.F 59 RBCS_ADD_TENDENCY 
     &        *RBC_mask(i,j,k,bi,bj,1)/tauRelaxT
./pkg/rbcs/rbcs_add_tendency.F 60 RBCS_ADD_TENDENCY 
     &        *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F 67 RBCS_ADD_TENDENCY 
         DO i=1,sNx
./pkg/rbcs/rbcs_add_tendency.F 68 RBCS_ADD_TENDENCY 
          gS(i,j,k,bi,bj) = gS(i,j,k,bi,bj)
./pkg/rbcs/rbcs_add_tendency.F 69 RBCS_ADD_TENDENCY 
     &       - maskC(i,j,k,bi,bj)
./pkg/rbcs/rbcs_add_tendency.F 70 RBCS_ADD_TENDENCY 
     &        *RBC_mask(i,j,k,bi,bj,2)/tauRelaxS
./pkg/rbcs/rbcs_add_tendency.F 71 RBCS_ADD_TENDENCY 
     &        *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F 82 RBCS_ADD_TENDENCY 
         DO i=1,sNx
./pkg/rbcs/rbcs_add_tendency.F 83 RBCS_ADD_TENDENCY 
          gPtr(i,j,k,bi,bj,iTracer) = gPtr(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_add_tendency.F 84 RBCS_ADD_TENDENCY 
     &       - maskC(i,j,k,bi,bj)
./pkg/rbcs/rbcs_add_tendency.F 85 RBCS_ADD_TENDENCY 
     &        *RBC_mask(i,j,k,bi,bj,irbc)/tauRelaxPTR(iTracer)
./pkg/rbcs/rbcs_add_tendency.F 86 RBCS_ADD_TENDENCY 
     &        *( pTracer(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_add_tendency.F 87 RBCS_ADD_TENDENCY 
     &           - RBC_ptracers(i,j,k,bi,bj,iTracer) )
./pkg/rbcs/rbcs_fields_load.F 189 RBCS_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/rbcs/rbcs_fields_load.F 190 RBCS_FIELDS_LOAD 
           RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 191 RBCS_FIELDS_LOAD 
     &                           +aWght*rbct1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 192 RBCS_FIELDS_LOAD 
           RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 193 RBCS_FIELDS_LOAD 
     &                           +aWght*rbcs1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 208 RBCS_FIELDS_LOAD 
             DO i=1-Olx,sNx+Olx
./pkg/rbcs/rbcs_fields_load.F 209 RBCS_FIELDS_LOAD 
               RBC_ptracers(i,j,k,bi,bj,iTracer) =
./pkg/rbcs/rbcs_fields_load.F 210 RBCS_FIELDS_LOAD 
     &                      bWght*rbcptr0(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_fields_load.F 211 RBCS_FIELDS_LOAD 
     &                     +aWght*rbcptr1(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_fields_load.F 55 RBCS_FIELDS_LOAD 
      INTEGER bi,bj,i,j,k,intime0,intime1
./pkg/rbcs/rbcs_fields_load.F 71 RBCS_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./pkg/rbcs/rbcs_fields_load.F 72 RBCS_FIELDS_LOAD 
             rbct0(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 73 RBCS_FIELDS_LOAD 
             rbcs0(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 74 RBCS_FIELDS_LOAD 
             rbct1(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 75 RBCS_FIELDS_LOAD 
             rbcs1(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 87 RBCS_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/rbcs/rbcs_fields_load.F 88 RBCS_FIELDS_LOAD 
             rbcptr0(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 89 RBCS_FIELDS_LOAD 
             rbcptr1(i,j,k,bi,bj,iTracer)=0. _d 0
./model/src/correction_step.F 52 CORRECTION_STEP 
      INTEGER i,j
./model/src/correction_step.F 68 CORRECTION_STEP 
       DO i=iMin,iMax
./model/src/correction_step.F 69 CORRECTION_STEP 
        uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj)
./model/src/correction_step.F 70 CORRECTION_STEP 
     &       -deltaTmom*psFac*phiSurfX(i,j)
./model/src/correction_step.F 72 CORRECTION_STEP 
     &       -deltaTmom*nhFac*_recip_dxC(i,j,bi,bj)
./model/src/correction_step.F 73 CORRECTION_STEP 
     &         *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/correction_step.F 75 CORRECTION_STEP 
     &                    )*_maskW(i,j,k,bi,bj)
./model/src/correction_step.F 81 CORRECTION_STEP 
       DO i=iMin,iMax
./model/src/correction_step.F 82 CORRECTION_STEP 
        vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj)
./model/src/correction_step.F 83 CORRECTION_STEP 
     &       -deltaTmom*psFac*phiSurfY(i,j)
./model/src/correction_step.F 85 CORRECTION_STEP 
     &       -deltaTmom*nhFac*_recip_dyC(i,j,bi,bj)
./model/src/correction_step.F 86 CORRECTION_STEP 
     &         *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/correction_step.F 88 CORRECTION_STEP 
     &                    )*_maskS(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F 32 RBCS_INIT_FIXED 
      INTEGER i,j,k,bi,bj
./pkg/rbcs/rbcs_init_fixed.F 45 RBCS_INIT_FIXED 
             DO i=1-Olx,sNx+Olx
./pkg/rbcs/rbcs_init_fixed.F 46 RBCS_INIT_FIXED 
               RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 32 RBCS_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/rbcs/rbcs_init_varia.F 41 RBCS_INIT_VARIA 
              DO i=1-Olx,sNx+Olx
./pkg/rbcs/rbcs_init_varia.F 42 RBCS_INIT_VARIA 
                rbct0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 43 RBCS_INIT_VARIA 
                rbcs0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 44 RBCS_INIT_VARIA 
                rbct1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 45 RBCS_INIT_VARIA 
                rbcs1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 46 RBCS_INIT_VARIA 
                RBCtemp(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 47 RBCS_INIT_VARIA 
                RBCsalt(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 61 RBCS_INIT_VARIA 
               DO i=1-Olx,sNx+Olx
./pkg/rbcs/rbcs_init_varia.F 62 RBCS_INIT_VARIA 
                rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 63 RBCS_INIT_VARIA 
                rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 64 RBCS_INIT_VARIA 
                RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/regrid/regrid_init_varia.F 118 REGRID_INIT_VARIA 
          DO i = 1,regrid_ngrids
./pkg/regrid/regrid_init_varia.F 120 REGRID_INIT_VARIA 
            IF (i .EQ. 1) THEN
./pkg/regrid/regrid_init_varia.F 123 REGRID_INIT_VARIA 
              nlpts = REGRID_iend(i,bi,bj)
./pkg/regrid/regrid_init_varia.F 130 REGRID_INIT_VARIA 
            nnb = ILNBLNK(REGRID_fbname_in(i))
./pkg/regrid/regrid_init_varia.F 132 REGRID_INIT_VARIA 
     &           REGRID_fbname_in(i)(1:nnb),iface,'.regrid.ascii'
./pkg/regrid/regrid_init_varia.F 186 REGRID_INIT_VARIA 
            REGRID_ibeg(i,bi,bj) = init_nlpts + 1
./pkg/regrid/regrid_init_varia.F 187 REGRID_INIT_VARIA 
            REGRID_iend(i,bi,bj) = nlpts
./pkg/regrid/regrid_init_varia.F 37 REGRID_INIT_VARIA 
      INTEGER i,k, iface, uniq_tnum, bi,bj
./pkg/regrid/regrid_mnc_init.F 32 REGRID_MNC_INIT 
      INTEGER i, k, ndim
./model/src/cycle_tracer.F 43 CYCLE_TRACER 
      INTEGER i,j,k
./model/src/cycle_tracer.F 51 CYCLE_TRACER 
        DO i=1-OLx,sNx+OLx
./model/src/cycle_tracer.F 52 CYCLE_TRACER 
         tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
./pkg/regrid/regrid_readparms.F 33 REGRID_READPARMS 
      INTEGER iUnit, i
./pkg/regrid/regrid_readparms.F 42 REGRID_READPARMS 
      DO i = 1,MAX_LEN_FNAM
./pkg/regrid/regrid_readparms.F 43 REGRID_READPARMS 
        blank(i:i) = ' '
./pkg/regrid/regrid_readparms.F 50 REGRID_READPARMS 
      DO i = 1,REGRID_NGRID_MAX
./pkg/regrid/regrid_readparms.F 51 REGRID_READPARMS 
        REGRID_fbname_in(i)(1:MAX_LEN_FNAM) = blank(1:MAX_LEN_FNAM)
./pkg/regrid/regrid_readparms.F 52 REGRID_READPARMS 
        REGRID_fbname_out(i)(1:MAX_LEN_FNAM) = blank(1:MAX_LEN_FNAM)
./pkg/regrid/regrid_readparms.F 53 REGRID_READPARMS 
        regrid_nout(i) = 0
./model/src/diags_oceanic_surf_flux.F 115 DIAGS_OCEANIC_SURF_FLUX 
          DO i = 1,sNx
./model/src/diags_oceanic_surf_flux.F 116 DIAGS_OCEANIC_SURF_FLUX 
           tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F 118 DIAGS_OCEANIC_SURF_FLUX 
     &      -Qsw(i,j,bi,bj)+
./model/src/diags_oceanic_surf_flux.F 120 DIAGS_OCEANIC_SURF_FLUX 
     &      (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(i,j,bi,bj))
./model/src/diags_oceanic_surf_flux.F 128 DIAGS_OCEANIC_SURF_FLUX 
           DO i=1,sNx
./model/src/diags_oceanic_surf_flux.F 129 DIAGS_OCEANIC_SURF_FLUX 
            tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 130 DIAGS_OCEANIC_SURF_FLUX 
     &       + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp
./model/src/diags_oceanic_surf_flux.F 145 DIAGS_OCEANIC_SURF_FLUX 
          DO i = 1,sNx
./model/src/diags_oceanic_surf_flux.F 146 DIAGS_OCEANIC_SURF_FLUX 
           tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F 147 DIAGS_OCEANIC_SURF_FLUX 
     &      surfaceForcingS(i,j,bi,bj)*rUnit2mass
./model/src/diags_oceanic_surf_flux.F 155 DIAGS_OCEANIC_SURF_FLUX 
           DO i=1,sNx
./model/src/diags_oceanic_surf_flux.F 156 DIAGS_OCEANIC_SURF_FLUX 
            tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 157 DIAGS_OCEANIC_SURF_FLUX 
     &       + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj)
./model/src/diags_oceanic_surf_flux.F 47 DIAGS_OCEANIC_SURF_FLUX 
      INTEGER i,j,bi,bj
./pkg/rw/read_mflds.F 114 READ_MFLDS_SET 
      INTEGER i, j, ioUnit
./pkg/rw/read_mflds.F 124 READ_MFLDS_SET 
      i = ILNBLNK(mFldsFile)
./pkg/rw/read_mflds.F 125 READ_MFLDS_SET 
      IF ( i.NE.0 ) THEN
./pkg/rw/read_mflds.F 126 READ_MFLDS_SET 
        i = MIN(i, MAX_LEN_MBUF-48-34 )
./pkg/rw/read_mflds.F 128 READ_MFLDS_SET 
     &    'MFLDS file-name already set to: ',mFldsFile(1:i)
./pkg/rw/read_mflds.F 142 READ_MFLDS_SET 
      DO i=1,sizFldList
./pkg/rw/read_mflds.F 143 READ_MFLDS_SET 
        fldList(i) = ' '
./pkg/rw/read_mflds.F 144 READ_MFLDS_SET 
        fldMiss(i) = ' '
./pkg/rw/read_mflds.F 188 READ_MFLDS_SET 
        i = ILNBLNK(simulName)
./pkg/rw/read_mflds.F 189 READ_MFLDS_SET 
        IF ( i.GE.1 ) THEN
./pkg/rw/read_mflds.F 190 READ_MFLDS_SET 
         WRITE(msgBuf,'(3A)') ' simulName=>', simulName(1:i), '<'
./pkg/rw/read_mflds.F 193 READ_MFLDS_SET 
        i = ILNBLNK(titleLine)
./pkg/rw/read_mflds.F 194 READ_MFLDS_SET 
        IF ( i.GE.1 ) THEN
./pkg/rw/read_mflds.F 195 READ_MFLDS_SET 
         WRITE(msgBuf,'(3A)') ' titleLine=>', titleLine(1:i), '<'
./pkg/rw/read_mflds.F 205 READ_MFLDS_SET 
         WRITE(msgBuf,'(I4,A,3I4)') j,':',(dimList(i,j),i=1,3)
./pkg/rw/read_mflds.F 213 READ_MFLDS_SET 
     &     (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) )
./pkg/rw/read_mflds.F 219 READ_MFLDS_SET 
         WRITE(msgBuf,'(1P20E20.12)') (timList(i),i=1,nTimRec)
./pkg/rw/read_mflds.F 37 READ_MFLDS_INIT 
      INTEGER i
./pkg/rw/read_mflds.F 49 READ_MFLDS_INIT 
      DO i=1,sizFldList
./pkg/rw/read_mflds.F 50 READ_MFLDS_INIT 
        fldList(i) = ' '
./pkg/rw/read_mflds.F 51 READ_MFLDS_INIT 
        fldMiss(i) = ' '
./pkg/rw/read_mflds.F 526 READ_MFLDS_CHECK 
      INTEGER i, j, nj, iL, ioUnit
./pkg/rw/read_mflds.F 563 READ_MFLDS_CHECK 
     &     (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) )
./pkg/rw/read_mflds.F 572 READ_MFLDS_CHECK 
     &     (' >', fldMiss(i), '<', i=j,MIN(j+19,nj) )
./model/src/diags_phi_hyd.F 53 DIAGS_PHI_HYD 
      INTEGER i,j
./model/src/diags_phi_hyd.F 56 DIAGS_PHI_HYD 
         DO i=iMin,iMax
./model/src/diags_phi_hyd.F 57 DIAGS_PHI_HYD 
           totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_hyd.F 58 DIAGS_PHI_HYD 
     &            + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/diags_phi_hyd.F 59 DIAGS_PHI_HYD 
     &            + phi0surf(i,j,bi,bj)
./pkg/rw/write_fld_s3d_rl.F 57 WRITE_FLD_S3D_RL 
      INTEGER i,j,k,bi,bj
./pkg/rw/write_fld_s3d_rl.F 91 WRITE_FLD_S3D_RL 
           DO i=1,sNx
./pkg/rw/write_fld_s3d_rl.F 92 WRITE_FLD_S3D_RL 
            locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./pkg/rw/write_fld_s3d_rs.F 57 WRITE_FLD_S3D_RS 
      INTEGER i,j,k,bi,bj
./pkg/rw/write_fld_s3d_rs.F 91 WRITE_FLD_S3D_RS 
           DO i=1,sNx
./pkg/rw/write_fld_s3d_rs.F 92 WRITE_FLD_S3D_RS 
            locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./model/src/diags_phi_rlow.F 104 DIAGS_PHI_RLOW 
          DO i=iMin,iMax
./model/src/diags_phi_rlow.F 105 DIAGS_PHI_RLOW 
           IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN
./model/src/diags_phi_rlow.F 106 DIAGS_PHI_RLOW 
             ddRloc = rC(k)-R_low(i,j,bi,bj)
./model/src/diags_phi_rlow.F 107 DIAGS_PHI_RLOW 
             phiHydLow(i,j,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_rlow.F 110 DIAGS_PHI_RLOW 
     &                   )*gravity*alphRho(i,j)*recip_rhoConst
./model/src/diags_phi_rlow.F 128 DIAGS_PHI_RLOW 
         DO i=iMin,iMax
./model/src/diags_phi_rlow.F 129 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) = phiHydF(i,j)
./model/src/diags_phi_rlow.F 138 DIAGS_PHI_RLOW 
         DO i=iMin,iMax
./model/src/diags_phi_rlow.F 139 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj)
./model/src/diags_phi_rlow.F 140 DIAGS_PHI_RLOW 
     &                          *rStarFacC(i,j,bi,bj)
./model/src/diags_phi_rlow.F 147 DIAGS_PHI_RLOW 
         DO i=iMin,iMax
./model/src/diags_phi_rlow.F 148 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj)
./model/src/diags_phi_rlow.F 149 DIAGS_PHI_RLOW 
     &            + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/diags_phi_rlow.F 150 DIAGS_PHI_RLOW 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F 61 DIAGS_PHI_RLOW 
      INTEGER i,j
./model/src/diags_phi_rlow.F 76 DIAGS_PHI_RLOW 
          DO i=1-Olx,sNx+Olx
./model/src/diags_phi_rlow.F 77 DIAGS_PHI_RLOW 
            phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/diags_phi_rlow.F 86 DIAGS_PHI_RLOW 
          DO i=iMin,iMax
./model/src/diags_phi_rlow.F 87 DIAGS_PHI_RLOW 
           IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN
./model/src/diags_phi_rlow.F 88 DIAGS_PHI_RLOW 
             ddRloc = rC(k)-R_low(i,j,bi,bj)
./model/src/diags_phi_rlow.F 89 DIAGS_PHI_RLOW 
             phiHydLow(i,j,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_rlow.F 90 DIAGS_PHI_RLOW 
     &            + ddRloc*gravity*alphRho(i,j)*recip_rhoConst
./pkg/salt_plume/salt_plume_calc_depth.F 106 SALT_PLUME_CALC_DEPTH 
          DO i=1-Olx,sNx+Olx
./pkg/salt_plume/salt_plume_calc_depth.F 107 SALT_PLUME_CALC_DEPTH 
           GG  =-1.0*sigmaR(i,j,k)
./pkg/salt_plume/salt_plume_calc_depth.F 108 SALT_PLUME_CALC_DEPTH 
           GGm1=-1.0*sigmaR(i,j,k-1)
./pkg/salt_plume/salt_plume_calc_depth.F 109 SALT_PLUME_CALC_DEPTH 
           IF ( k.LE.klowC(i,j,bi,bj) .AND.
./pkg/salt_plume/salt_plume_calc_depth.F 114 SALT_PLUME_CALC_DEPTH 
             IF(SPIND(i,j) .LT. 0.5) THEN
./pkg/salt_plume/salt_plume_calc_depth.F 115 SALT_PLUME_CALC_DEPTH 
               SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k)
./pkg/salt_plume/salt_plume_calc_depth.F 116 SALT_PLUME_CALC_DEPTH 
               SPIND(i,j)=1.
./pkg/salt_plume/salt_plume_calc_depth.F 127 SALT_PLUME_CALC_DEPTH 
         DO i=1-Olx,sNx+Olx
./pkg/salt_plume/salt_plume_calc_depth.F 128 SALT_PLUME_CALC_DEPTH 
          SaltPlumeDepth(i,j,bi,bj) =
./pkg/salt_plume/salt_plume_calc_depth.F 129 SALT_PLUME_CALC_DEPTH 
     &       min( SaltPlumeDepth(i,j,bi,bj)*SPovershoot,
./pkg/salt_plume/salt_plume_calc_depth.F 130 SALT_PLUME_CALC_DEPTH 
     &            rF(1)-R_low(i,j,bi,bj) )
./pkg/salt_plume/salt_plume_calc_depth.F 51 SALT_PLUME_CALC_DEPTH 
      INTEGER i,j,k
./pkg/salt_plume/salt_plume_calc_depth.F 60 SALT_PLUME_CALC_DEPTH 
       DO i=1-Olx,sNx+Olx
./pkg/salt_plume/salt_plume_calc_depth.F 61 SALT_PLUME_CALC_DEPTH 
        SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj)
./pkg/salt_plume/salt_plume_calc_depth.F 62 SALT_PLUME_CALC_DEPTH 
        SPIND(i,j)=0.
./pkg/salt_plume/salt_plume_calc_depth.F 70 SALT_PLUME_CALC_DEPTH 
        DO i=1-Olx,sNx+Olx
./pkg/salt_plume/salt_plume_calc_depth.F 71 SALT_PLUME_CALC_DEPTH 
         rhoKm1(i,j) = rhoSurf(i,j)
./pkg/salt_plume/salt_plume_calc_depth.F 72 SALT_PLUME_CALC_DEPTH 
         rhoMxL(i,j) = rhoSurf(i,j) + SaltPlumeCriterion
./pkg/salt_plume/salt_plume_calc_depth.F 84 SALT_PLUME_CALC_DEPTH 
         DO i=1-Olx,sNx+Olx
./pkg/salt_plume/salt_plume_calc_depth.F 85 SALT_PLUME_CALC_DEPTH 
          IF ( k.LE.klowC(i,j,bi,bj) .AND.
./pkg/salt_plume/salt_plume_calc_depth.F 86 SALT_PLUME_CALC_DEPTH 
     &         rhoLoc(i,j).GE.rhoMxL(i,j) ) THEN
./pkg/salt_plume/salt_plume_calc_depth.F 87 SALT_PLUME_CALC_DEPTH 
           IF ( rhoLoc(i,j).GT.rhoKm1(i,j) ) THEN
./pkg/salt_plume/salt_plume_calc_depth.F 88 SALT_PLUME_CALC_DEPTH 
              tmpFac = ( rhoMxL(i,j) - rhoKm1(i,j) )
./pkg/salt_plume/salt_plume_calc_depth.F 89 SALT_PLUME_CALC_DEPTH 
     &             / ( rhoLoc(i,j) - rhoKm1(i,j) )
./pkg/salt_plume/salt_plume_calc_depth.F 93 SALT_PLUME_CALC_DEPTH 
           SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k)
./pkg/salt_plume/salt_plume_calc_depth.F 94 SALT_PLUME_CALC_DEPTH 
           rhoMxL(i,j) = rhoBigNb
./pkg/salt_plume/salt_plume_calc_depth.F 96 SALT_PLUME_CALC_DEPTH 
            rhoKm1(i,j) = rhoLoc(i,j)
./model/src/diags_rho.F 131 DIAGS_RHO_G 
      INTEGER i,j
./model/src/diags_rho.F 151 DIAGS_RHO_G 
           DO i=1,sNx+1
./model/src/diags_rho.F 152 DIAGS_RHO_G 
             tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj)
./model/src/diags_rho.F 153 DIAGS_RHO_G 
     &                   *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F 168 DIAGS_RHO_G 
           DO i=1,sNx
./model/src/diags_rho.F 169 DIAGS_RHO_G 
             tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj)
./model/src/diags_rho.F 170 DIAGS_RHO_G 
     &                   *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F 60 DIAGS_RHO_L 
      INTEGER i,j
./model/src/diags_rho.F 67 DIAGS_RHO_L 
         DO i=1,sNx
./model/src/diags_rho.F 68 DIAGS_RHO_L 
           tmpFld(i,j) = wFld(i,j,k,bi,bj)*rhoK(i,j)
./model/src/diags_rho.F 73 DIAGS_RHO_L 
         DO i=1,sNx
./model/src/diags_rho.F 74 DIAGS_RHO_L 
           tmpFld(i,j) = wFld(i,j,k,bi,bj)
./model/src/diags_rho.F 75 DIAGS_RHO_L 
     &                 *(rhoKm1(i,j)+rhoK(i,j))*0.5 _d 0
./pkg/salt_plume/salt_plume_forcing_surf.F 49 SALT_PLUME_FORCING_SURF 
      INTEGER i, j, ks
./pkg/salt_plume/salt_plume_forcing_surf.F 58 SALT_PLUME_FORCING_SURF 
       DO i = iMin, iMax
./pkg/salt_plume/salt_plume_forcing_surf.F 59 SALT_PLUME_FORCING_SURF 
        surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F 60 SALT_PLUME_FORCING_SURF 
     &       - saltPlumeFlux(i,j,bi,bj) * mass2rUnit
./pkg/salt_plume/salt_plume_frac.F 105 SALT_PLUME_FRAC 
                  plumek(i) = one - min(one,(facz-dd)/(dd20-dd))
./pkg/salt_plume/salt_plume_frac.F 107 SALT_PLUME_FRAC 
                  plumek(i) = 0.
./pkg/salt_plume/salt_plume_frac.F 111 SALT_PLUME_FRAC 
               dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 119 SALT_PLUME_FRAC 
                  plumek(i) = one - min(one,two/dd20*facz-tempN/tempN20)
./pkg/salt_plume/salt_plume_frac.F 121 SALT_PLUME_FRAC 
                  plumek(i) = one - min(one,
./pkg/salt_plume/salt_plume_frac.F 128 SALT_PLUME_FRAC 
            plumek(i) = 0.
./pkg/salt_plume/salt_plume_frac.F 63 SALT_PLUME_FRAC 
      INTEGER i, kk
./pkg/salt_plume/salt_plume_frac.F 67 SALT_PLUME_FRAC 
      DO i = 1,imax
./pkg/salt_plume/salt_plume_frac.F 68 SALT_PLUME_FRAC 
         facz = abs(fact*plumek(i))
./pkg/salt_plume/salt_plume_frac.F 69 SALT_PLUME_FRAC 
         IF (SPDepth(i).GT.facz) THEN
./pkg/salt_plume/salt_plume_frac.F 73 SALT_PLUME_FRAC 
               dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 80 SALT_PLUME_FRAC 
               plumek(i) = one - min(one,tempN/tempN20)
./pkg/salt_plume/salt_plume_frac.F 83 SALT_PLUME_FRAC 
               dd = abs(SPDepth(i))
./pkg/salt_plume/salt_plume_frac.F 84 SALT_PLUME_FRAC 
               plumek(i) = one -
./pkg/salt_plume/salt_plume_frac.F 92 SALT_PLUME_FRAC 
               dd20 = (abs(SPDepth(i)))
./pkg/salt_plume/salt_plume_frac.F 95 SALT_PLUME_FRAC 
                  plumek(i) = one - min(one,(facz-dd)/(dd20-dd))
./pkg/salt_plume/salt_plume_frac.F 97 SALT_PLUME_FRAC 
                  plumek(i) = one
./pkg/salt_plume/salt_plume_init_varia.F 28 SALT_PLUME_INIT_VARIA 
      INTEGER i,j,bi,bj
./pkg/salt_plume/salt_plume_init_varia.F 36 SALT_PLUME_INIT_VARIA 
         DO i=1-Olx,sNx+Olx
./pkg/salt_plume/salt_plume_init_varia.F 37 SALT_PLUME_INIT_VARIA 
          SaltPlumeDepth (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 38 SALT_PLUME_INIT_VARIA 
          saltPlumeFlux  (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_tendency_apply_s.F 37 SALT_PLUME_TENDENCY_APPLY_S 
      integer i, j, kp1, two2
./pkg/salt_plume/salt_plume_tendency_apply_s.F 44 SALT_PLUME_TENDENCY_APPLY_S 
       do i=iMin,iMax
./pkg/salt_plume/salt_plume_tendency_apply_s.F 49 SALT_PLUME_TENDENCY_APPLY_S 
          SPdepth(1)=SaltPlumeDepth(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 50 SALT_PLUME_TENDENCY_APPLY_S 
          SPdepth(2)=SaltPlumeDepth(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 60 SALT_PLUME_TENDENCY_APPLY_S 
          IF ( SaltPlumeDepth(i,j,bi,bj) .GT. -rF(kLev) ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_s.F 61 SALT_PLUME_TENDENCY_APPLY_S 
           plumefrac(I,J) = plumekb(1)*maskC(i,j,klev,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 62 SALT_PLUME_TENDENCY_APPLY_S 
     &            -plumekb(2)*maskC(i,j,kp1, bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 63 SALT_PLUME_TENDENCY_APPLY_S 
           gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 64 SALT_PLUME_TENDENCY_APPLY_S 
     &            +saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)*mass2rUnit
./pkg/salt_plume/salt_plume_tendency_apply_s.F 65 SALT_PLUME_TENDENCY_APPLY_S 
     &            *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./pkg/sbo/sbo_calc.F 160 SBO_CALC 
      integer bi, bj, i, j, k, kn0
./pkg/sbo/sbo_calc.F 188 SBO_CALC 
          DO i = 1-OLx, sNx+OLx
./pkg/sbo/sbo_calc.F 189 SBO_CALC 
            obp(i,j,bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 211 SBO_CALC 
           DO i = 1, sNx
./pkg/sbo/sbo_calc.F 212 SBO_CALC 
            IF ( maskC(i,j,kn0,bi,bj) .NE. 0. ) THEN
./pkg/sbo/sbo_calc.F 215 SBO_CALC 
              lat_deg = yC(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 216 SBO_CALC 
              lat = yC(i,j,bi,bj) * pi / 180.0
./pkg/sbo/sbo_calc.F 218 SBO_CALC 
              lon = xC(i,j,bi,bj) * pi / 180.0
./pkg/sbo/sbo_calc.F 221 SBO_CALC 
              darea = dyF(i,j,bi,bj) * dxF(i,j,bi,bj) / ae / ae
./pkg/sbo/sbo_calc.F 222 SBO_CALC 
     &              * maskC(i,j,kn0,bi,bj)
./pkg/sbo/sbo_calc.F 226 SBO_CALC 
                sboempmrwet = sboempmrwet + empmr(i,j,bi,bj)*darea
./pkg/sbo/sbo_calc.F 227 SBO_CALC 
                sboqnetwet  = sboqnetwet  + qnet(i,j,bi,bj) *darea
./pkg/sbo/sbo_calc.F 230 SBO_CALC 
                dradius = etaN(i,j,bi,bj) * maskC(i,j,kn0,bi,bj)
./pkg/sbo/sbo_calc.F 237 SBO_CALC 
                dradius = drF(k) * maskC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F 244 SBO_CALC 
              u =(uvel(i,j,kn0,bi,bj)+uvel(i+1,j,kn0,bi,bj))*0.5 _d 0
./pkg/sbo/sbo_calc.F 245 SBO_CALC 
              v =(vvel(i,j,kn0,bi,bj)+vvel(i,j+1,kn0,bi,bj))*0.5 _d 0
./pkg/sbo/sbo_calc.F 255 SBO_CALC 
              density = rhoConst + rhoK(i,j)
./pkg/sbo/sbo_calc.F 286 SBO_CALC 
              obp(i,j,bi,bj) = obp(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 300 SBO_CALC 
          DO i = 1, sNx
./pkg/sbo/sbo_calc.F 301 SBO_CALC 
            sbobp = sbobp + obp(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/seaice/advect.F 160 ADVECT 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/advect.F 161 ADVECT 
          tmpFld(i,j,bi,bj)=fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F 172 ADVECT 
           DO i=1-OLx,sNx+OLx
./pkg/seaice/advect.F 184 ADVECT 
           DO i=1-OLx,sNx+OLx
./pkg/seaice/advect.F 197 ADVECT 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/advect.F 198 ADVECT 
           fld(I,J,bi,bj)=(fld(I,J,bi,bj)+tmpFld(i,j,bi,bj))
./pkg/seaice/advect.F 39 ADVECT 
      INTEGER i, j, bi, bj
./pkg/seaice/advect.F 52 ADVECT 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/advect.F 53 ADVECT 
          fldNm1(i,j,bi,bj) = fld(I,J,bi,bj)
./pkg/seaice/advect.F 76 ADVECT 
           DO i=1-OLx,sNx+OLx
./pkg/seaice/advect.F 78 ADVECT 
            tmpFld(i,j,bi,bj)=HALF*(fld(I,J,bi,bj)
./pkg/seaice/advect.F 79 ADVECT 
     &           +fldNm1(i,j,bi,bj))
./pkg/seaice/cost_ice_test.F 101 COST_ICE_TEST 
     &                       tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F 112 COST_ICE_TEST 
                     do i =  1,snx
./pkg/seaice/cost_ice_test.F 114 COST_ICE_TEST 
     &                       tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F 146 COST_ICE_TEST 
               do i =  1,snx
./pkg/seaice/cost_ice_test.F 148 COST_ICE_TEST 
     &                 tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F 149 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 151 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 )
./pkg/seaice/cost_ice_test.F 162 COST_ICE_TEST 
               do i =  1,snx
./pkg/seaice/cost_ice_test.F 164 COST_ICE_TEST 
     &                 tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F 165 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 177 COST_ICE_TEST 
               do i =  1,snx
./pkg/seaice/cost_ice_test.F 179 COST_ICE_TEST 
     &                 tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F 180 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 182 COST_ICE_TEST 
     &                 (TICE(i,j,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 183 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F 184 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F 185 COST_ICE_TEST 
     &                 HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 )
./pkg/seaice/cost_ice_test.F 199 COST_ICE_TEST 
                     do i =  1,snx
./pkg/seaice/cost_ice_test.F 201 COST_ICE_TEST 
     &                       ( AREA(i,j,bi,bj) - 0.5 _d 0 ) *
./pkg/seaice/cost_ice_test.F 202 COST_ICE_TEST 
     &                       ( AREA(i,j,bi,bj) - 0.5 _d 0 )
./pkg/seaice/cost_ice_test.F 74 COST_ICE_TEST 
      integer bi,bj,i,j,kSrf
./pkg/seaice/cost_ice_test.F 99 COST_ICE_TEST 
                     do i =  1,snx
./pkg/seaice/diffus.F 114 DIFFUS 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/diffus.F 34 DIFFUS 
      INTEGER i, j, bi, bj
./pkg/seaice/diffus.F 46 DIFFUS 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/diffus.F 54 DIFFUS 
         DO i=1,sNx
./pkg/seaice/dynsolver.F 101 DYNSOLVER 
     &          HEFF(i,j  ,bi,bj) + HEFF(i-1,j  ,bi,bj)
./pkg/seaice/dynsolver.F 102 DYNSOLVER 
     &         +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) )
./pkg/seaice/dynsolver.F 116 DYNSOLVER 
         DO i=1,sNx
./pkg/seaice/dynsolver.F 162 DYNSOLVER 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/dynsolver.F 163 DYNSOLVER 
            phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/dynsolver.F 170 DYNSOLVER 
           DO i=1-Olx,sNx+Olx
./pkg/seaice/dynsolver.F 171 DYNSOLVER 
            phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/dynsolver.F 172 DYNSOLVER 
     &                   + ( pload(i,j,bi,bj)
./pkg/seaice/dynsolver.F 173 DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/dynsolver.F 179 DYNSOLVER 
           DO i=1-Olx,sNx+Olx
./pkg/seaice/dynsolver.F 180 DYNSOLVER 
            phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/dynsolver.F 181 DYNSOLVER 
     &                   + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/dynsolver.F 187 DYNSOLVER 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/dynsolver.F 191 DYNSOLVER 
     &         *( (phiSurf(i, j )-phiSurf(i-1, j ))*maskW(i, j ,1,bi,bj)
./pkg/seaice/dynsolver.F 192 DYNSOLVER 
     &           +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj)
./pkg/seaice/dynsolver.F 196 DYNSOLVER 
     &         *( (phiSurf( i ,j)-phiSurf( i ,j-1))*maskS( i ,j,1,bi,bj)
./pkg/seaice/dynsolver.F 197 DYNSOLVER 
     &           +(phiSurf(i-1,j)-phiSurf(i-1,j-1))*maskS(i-1,j,1,bi,bj)
./pkg/seaice/dynsolver.F 206 DYNSOLVER 
         DO i=1,sNx
./pkg/seaice/dynsolver.F 249 DYNSOLVER 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/dynsolver.F 262 DYNSOLVER 
         DO i=1,sNx
./pkg/seaice/dynsolver.F 314 DYNSOLVER 
         DO i=1,sNx
./pkg/seaice/dynsolver.F 368 DYNSOLVER 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/dynsolver.F 381 DYNSOLVER 
         DO i=1,sNx
./pkg/seaice/dynsolver.F 433 DYNSOLVER 
         DO i=1,sNx
./pkg/seaice/dynsolver.F 508 DYNSOLVER 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/dynsolver.F 517 DYNSOLVER 
          UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 518 DYNSOLVER 
          VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 52 DYNSOLVER 
      INTEGER i, j, bi, bj, kii
./pkg/seaice/dynsolver.F 530 DYNSOLVER 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/dynsolver.F 531 DYNSOLVER 
          UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F 532 DYNSOLVER 
          VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F 78 DYNSOLVER 
         DO i=0,sNx+1
./pkg/seaice/dynsolver.F 79 DYNSOLVER 
          GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/dynsolver.F 80 DYNSOLVER 
     &                         +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/dynsolver.F 81 DYNSOLVER 
          GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/dynsolver.F 82 DYNSOLVER 
     &                         +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/dynsolver.F 99 DYNSOLVER 
         DO i=1,sNx
./pkg/seaice/lsr.F 116 LSR 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/lsr.F 128 LSR 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/lsr.F 192 LSR 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/lsr.F 193 LSR 
          vz(i,j) = quart * (
./pkg/seaice/lsr.F 194 LSR 
     &         vicec(i,j,bi,bj) + vicec(i+1,j,bi,bj) )
./pkg/seaice/lsr.F 195 LSR 
          vz(i,j)= vz(i,j) + quart * (
./pkg/seaice/lsr.F 196 LSR 
     &         vicec(i,j+1,bi,bj) + vicec(i+1,j+1,bi,bj) )
./pkg/seaice/lsr.F 206 LSR 
     &         (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i,j-1,bi,bj))
./pkg/seaice/lsr.F 207 LSR 
     &         *(vz(i,j)-vz(i,j-1)) * _recip_dyC(i,j,bi,bj)
./pkg/seaice/lsr.F 209 LSR 
     &         (zetaMinusEta(i-1,j,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj))
./pkg/seaice/lsr.F 210 LSR 
     &         *(vz(i-1,j)-vz(i-1,j-1)) * _recip_dyC(i-1,j,bi,bj)
./pkg/seaice/lsr.F 211 LSR 
     &         ) * _recip_dxV(i,j,bi,bj)
./pkg/seaice/lsr.F 435 LSR 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/lsr.F 436 LSR 
          uz(i,j) = quart * (
./pkg/seaice/lsr.F 437 LSR 
     &         uicec(i,j,bi,bj) + uicec(i+1,j,bi,bj) )
./pkg/seaice/lsr.F 438 LSR 
          uz(i,j)= uz(i,j) + quart * (
./pkg/seaice/lsr.F 439 LSR 
     &         uicec(i,j+1,bi,bj) + uicec(i+1,j+1,bi,bj) )
./pkg/seaice/lsr.F 450 LSR 
     &         (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i-1,j,bi,bj))
./pkg/seaice/lsr.F 451 LSR 
     &         *(uz(i,j)-uz(i-1,j)) * _recip_dxC(i,j,bi,bj)
./pkg/seaice/lsr.F 453 LSR 
     &         (zetaMinusEta(i,j-1,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj))
./pkg/seaice/lsr.F 454 LSR 
     &         *(uz(i,j-1)-uz(i-1,j-1)) * _recip_dxC(i,j-1,bi,bj)
./pkg/seaice/lsr.F 455 LSR 
     &         ) * _recip_dyU(i,j,bi,bj)
./pkg/seaice/lsr.F 48 LSR 
      INTEGER i, j, m, bi, bj, j1, j2, im, jm
./pkg/seaice/ostres.F 100 OSTRES 
         DO i=1,sNx
./pkg/seaice/ostres.F 117 OSTRES 
         DO i=1,sNx
./pkg/seaice/ostres.F 131 OSTRES 
     &         ( VICE(I,  J,i,bj)-GWATY(I,  J,bi,bj)
./pkg/seaice/ostres.F 33 OSTRES 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_advdiff.F 101 SEAICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/seaice_advdiff.F 102 SEAICE_ADVDIFF 
          uc(i,j,bi,bj)=.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj))
./pkg/seaice/seaice_advdiff.F 103 SEAICE_ADVDIFF 
          vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(I+1,J,bi,bj))
./pkg/seaice/seaice_advdiff.F 157 SEAICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_advdiff.F 159 SEAICE_ADVDIFF 
          gFld(i,j)       = 0. _d 0
./pkg/seaice/seaice_advdiff.F 165 SEAICE_ADVDIFF 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_advdiff.F 166 SEAICE_ADVDIFF 
          HEFFNM1(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 167 SEAICE_ADVDIFF 
          AREANM1(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 168 SEAICE_ADVDIFF 
          recip_heff(i,j)    = 1. _d 0
./pkg/seaice/seaice_advdiff.F 174 SEAICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_advdiff.F 175 SEAICE_ADVDIFF 
          xA(i,j) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 176 SEAICE_ADVDIFF 
          yA(i,j) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 181 SEAICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_advdiff.F 182 SEAICE_ADVDIFF 
          uTrans(i,j) = uc(i,j,bi,bj)*xA(i,j)
./pkg/seaice/seaice_advdiff.F 183 SEAICE_ADVDIFF 
          vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j)
./pkg/seaice/seaice_advdiff.F 205 SEAICE_ADVDIFF 
          DO i=1,sNx
./pkg/seaice/seaice_advdiff.F 206 SEAICE_ADVDIFF 
           HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 207 SEAICE_ADVDIFF 
     &          HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 231 SEAICE_ADVDIFF 
          DO i=1,sNx
./pkg/seaice/seaice_advdiff.F 232 SEAICE_ADVDIFF 
           AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 233 SEAICE_ADVDIFF 
     &          AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 257 SEAICE_ADVDIFF 
          DO i=1,sNx
./pkg/seaice/seaice_advdiff.F 258 SEAICE_ADVDIFF 
           HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 259 SEAICE_ADVDIFF 
     &          HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 284 SEAICE_ADVDIFF 
          DO i=1,sNx
./pkg/seaice/seaice_advdiff.F 285 SEAICE_ADVDIFF 
           HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 286 SEAICE_ADVDIFF 
     &          HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 312 SEAICE_ADVDIFF 
          DO i=1,sNx
./pkg/seaice/seaice_advdiff.F 313 SEAICE_ADVDIFF 
           IceAge(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 314 SEAICE_ADVDIFF 
     &          IceAge(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 371 SEAICE_ADVDIFF 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_advdiff.F 390 SEAICE_ADVDIFF 
             IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj) +
./pkg/seaice/seaice_advdiff.F 393 SEAICE_ADVDIFF 
             IceAge(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_advdiff.F 63 SEAICE_ADVDIFF 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_advdiff.F 93 SEAICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_advdiff.F 94 SEAICE_ADVDIFF 
          uc(i,j,bi,bj)=UICE(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 95 SEAICE_ADVDIFF 
          vc(i,j,bi,bj)=VICE(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 123 SEAICE_ADVECTION 
      INTEGER i,j,k
./pkg/seaice/seaice_advection.F 184 SEAICE_ADVECTION 
       DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_advection.F 185 SEAICE_ADVECTION 
        localTij(i,j) = 0. _d 0
./pkg/seaice/seaice_advection.F 237 SEAICE_ADVECTION 
       DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_advection.F 238 SEAICE_ADVECTION 
        localTij(i,j)=iceFld(i,j)
./pkg/seaice/seaice_advection.F 239 SEAICE_ADVECTION 
        maskLocW(i,j)=maskW(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 240 SEAICE_ADVECTION 
        maskLocS(i,j)=maskS(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 247 SEAICE_ADVECTION 
        DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_advection.F 248 SEAICE_ADVECTION 
         afx(i,j) = 0.
./pkg/seaice/seaice_advection.F 249 SEAICE_ADVECTION 
         afy(i,j) = 0.
./pkg/seaice/seaice_advection.F 319 SEAICE_ADVECTION 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_advection.F 320 SEAICE_ADVECTION 
           af(i,j) = 0.
./pkg/seaice/seaice_advection.F 346 SEAICE_ADVECTION 
            i=MIN(12,sNx)
./pkg/seaice/seaice_advection.F 348 SEAICE_ADVECTION 
            WRITE(6,'(A,1P4E14.6)') 'ICE_adv: xFx=', af(i+1,j),
./pkg/seaice/seaice_advection.F 349 SEAICE_ADVECTION 
     &        localTij(i,j), uTrans(i+1,j), af(i+1,j)/uTrans(i+1,j)
./pkg/seaice/seaice_advection.F 398 SEAICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/seaice/seaice_advection.F 399 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 400 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 401 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 402 SEAICE_ADVECTION 
     &           *(  af(i+1,j)-af(i,j)
./pkg/seaice/seaice_advection.F 408 SEAICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/seaice/seaice_advection.F 409 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 410 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 411 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 412 SEAICE_ADVECTION 
     &           *( (af(i+1,j)-af(i,j))
./pkg/seaice/seaice_advection.F 413 SEAICE_ADVECTION 
     &             -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F 420 SEAICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/seaice/seaice_advection.F 421 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 422 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 423 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 424 SEAICE_ADVECTION 
     &           *(  af(i+1,j)-af(i,j)
./pkg/seaice/seaice_advection.F 430 SEAICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/seaice/seaice_advection.F 431 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 432 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 433 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 434 SEAICE_ADVECTION 
     &           *( (af(i+1,j)-af(i,j))
./pkg/seaice/seaice_advection.F 435 SEAICE_ADVECTION 
     &             -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F 443 SEAICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx
./pkg/seaice/seaice_advection.F 444 SEAICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 450 SEAICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx
./pkg/seaice/seaice_advection.F 451 SEAICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 464 SEAICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx-1
./pkg/seaice/seaice_advection.F 465 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 466 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 467 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 468 SEAICE_ADVECTION 
     &           *(  af(i+1,j)-af(i,j)
./pkg/seaice/seaice_advection.F 474 SEAICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx-1
./pkg/seaice/seaice_advection.F 475 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 476 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 477 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 478 SEAICE_ADVECTION 
     &           *( (af(i+1,j)-af(i,j))
./pkg/seaice/seaice_advection.F 479 SEAICE_ADVECTION 
     &             -(uTrans(i+1,j)-uTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F 486 SEAICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx
./pkg/seaice/seaice_advection.F 487 SEAICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 518 SEAICE_ADVECTION 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_advection.F 519 SEAICE_ADVECTION 
           af(i,j) = 0.
./pkg/seaice/seaice_advection.F 545 SEAICE_ADVECTION 
            i=MIN(12,sNx)
./pkg/seaice/seaice_advection.F 547 SEAICE_ADVECTION 
            WRITE(6,'(A,1P4E14.6)') 'ICE_adv: yFx=', af(i,j+1),
./pkg/seaice/seaice_advection.F 548 SEAICE_ADVECTION 
     &        localTij(i,j), vTrans(i,j+1), af(i,j+1)/vTrans(i,j+1)
./pkg/seaice/seaice_advection.F 597 SEAICE_ADVECTION 
           DO i=1-OLx,0
./pkg/seaice/seaice_advection.F 598 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 599 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 600 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 601 SEAICE_ADVECTION 
     &           *(  af(i,j+1)-af(i,j)
./pkg/seaice/seaice_advection.F 607 SEAICE_ADVECTION 
           DO i=1-OLx,0
./pkg/seaice/seaice_advection.F 608 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 609 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 610 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 611 SEAICE_ADVECTION 
     &           *( (af(i,j+1)-af(i,j))
./pkg/seaice/seaice_advection.F 612 SEAICE_ADVECTION 
     &             -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F 619 SEAICE_ADVECTION 
           DO i=sNx+1,sNx+OLx
./pkg/seaice/seaice_advection.F 620 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 621 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 622 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 623 SEAICE_ADVECTION 
     &           *(  af(i,j+1)-af(i,j)
./pkg/seaice/seaice_advection.F 629 SEAICE_ADVECTION 
           DO i=sNx+1,sNx+OLx
./pkg/seaice/seaice_advection.F 630 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 631 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 632 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 633 SEAICE_ADVECTION 
     &           *( (af(i,j+1)-af(i,j))
./pkg/seaice/seaice_advection.F 634 SEAICE_ADVECTION 
     &             -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F 642 SEAICE_ADVECTION 
           DO i=1-OLx,0
./pkg/seaice/seaice_advection.F 643 SEAICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 649 SEAICE_ADVECTION 
           DO i=sNx+1,sNx+OLx
./pkg/seaice/seaice_advection.F 650 SEAICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 663 SEAICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/seaice/seaice_advection.F 664 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 665 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 666 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 667 SEAICE_ADVECTION 
     &           *(  af(i,j+1)-af(i,j)
./pkg/seaice/seaice_advection.F 673 SEAICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/seaice/seaice_advection.F 674 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 675 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskC(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 676 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 677 SEAICE_ADVECTION 
     &           *( (af(i,j+1)-af(i,j))
./pkg/seaice/seaice_advection.F 678 SEAICE_ADVECTION 
     &             -(vTrans(i,j+1)-vTrans(i,j))*iceFld(i,j)
./pkg/seaice/seaice_advection.F 685 SEAICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/seaice/seaice_advection.F 686 SEAICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 701 SEAICE_ADVECTION 
       DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_advection.F 702 SEAICE_ADVECTION 
        gFld(i,j)=(localTij(i,j)-iceFld(i,j))/SEAICE_deltaTtherm
./pkg/seaice/seaice_advection.F 706 SEAICE_ADVECTION 
       i=MIN(12,sNx)
./pkg/seaice/seaice_advection.F 708 SEAICE_ADVECTION 
       tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 710 SEAICE_ADVECTION 
     &      afx(i,j)*tmpFac,afx(i+1,j)*tmpFac,
./pkg/seaice/seaice_advection.F 711 SEAICE_ADVECTION 
     &      afy(i,j)*tmpFac,afy(i,j+1)*tmpFac
./pkg/seaice/seaice_budget_ice.F 62 SEAICE_BUDGET_ICE 
      INTEGER i, j
./pkg/seaice/seaice_budget_ice_if.F 73 SEAICE_BUDGET_ICE_IF 
      INTEGER i, j
./pkg/seaice/seaice_budget_ocean.F 53 SEAICE_BUDGET_OCEAN 
      INTEGER i, j
./pkg/seaice/seaice_budget_ocean_if.F 123 SEAICE_BUDGET_OCEAN_IF 
     &        i,j, netHeatFlux(I,J),     SWHeatFlux(I,J)
./pkg/seaice/seaice_budget_ocean_if.F 54 SEAICE_BUDGET_OCEAN_IF 
      INTEGER i, j
./pkg/seaice/seaice_calc_strainrates.F 106 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_calc_strainrates.F 114 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_calc_strainrates.F 115 SEAICE_CALC_STRAINRATES 
          hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 116 SEAICE_CALC_STRAINRATES 
          hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 144 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/seaice_calc_strainrates.F 157 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_calc_strainrates.F 177 SEAICE_CALC_STRAINRATES 
          DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_calc_strainrates.F 178 SEAICE_CALC_STRAINRATES 
           hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 179 SEAICE_CALC_STRAINRATES 
           hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 182 SEAICE_CALC_STRAINRATES 
     &          + recip_rAz(i,j,bi,bj) * 2. _d 0 *
./pkg/seaice/seaice_calc_strainrates.F 183 SEAICE_CALC_STRAINRATES 
     &          ( hFacU * ( _dxC(i,j-1,bi,bj)*uFld(i,j  ,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 184 SEAICE_CALC_STRAINRATES 
     &                    + _dxC(i,j,  bi,bj)*uFld(i,j-1,bi,bj) )
./pkg/seaice/seaice_calc_strainrates.F 185 SEAICE_CALC_STRAINRATES 
     &          + hFacV * ( _dyC(i-1,j,bi,bj)*vFld(i  ,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 186 SEAICE_CALC_STRAINRATES 
     &                    + _dyC(i,  j,bi,bj)*vFld(i-1,j,bi,bj) ) )
./pkg/seaice/seaice_calc_strainrates.F 53 SEAICE_CALC_STRAINRATES 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_calc_strainrates.F 76 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/seaice_calc_strainrates.F 83 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/seaice_calc_strainrates.F 91 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/seaice_calc_strainrates.F 99 SEAICE_CALC_STRAINRATES 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_calc_viscosities.F 110 SEAICE_CALC_VISCOSITIES 
          DO i=1-Olx+1,sNx+Olx-1
./pkg/seaice/seaice_calc_viscosities.F 112 SEAICE_CALC_VISCOSITIES 
     &          + 4. _d 0*e12C(i,j)**2
./pkg/seaice/seaice_calc_viscosities.F 63 SEAICE_CALC_VISCOSITIES 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_calc_viscosities.F 79 SEAICE_CALC_VISCOSITIES 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/seaice/seaice_calc_viscosities.F 80 SEAICE_CALC_VISCOSITIES 
          e12C(i,j) = 0.25 * ( e12(I,J  ,bi,bj) + e12(I+1,J  ,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 85 SEAICE_CALC_VISCOSITIES 
         DO i=1-Olx+1,sNx+Olx-1
./pkg/seaice/seaice_calc_viscosities.F 86 SEAICE_CALC_VISCOSITIES 
          deltaC = (e11(i,j,bi,bj)**2+e22(i,j,bi,bj)**2)*(ONE+ecm2)
./pkg/seaice/seaice_calc_viscosities.F 87 SEAICE_CALC_VISCOSITIES 
     &         + 4. _d 0*ecm2*e12C(i,j)**2
./pkg/seaice/seaice_calc_viscosities.F 88 SEAICE_CALC_VISCOSITIES 
     &         + 2. _d 0*e11(i,j,bi,bj)*e22(i,j,bi,bj)*(ONE-ecm2)
./model/src/do_oceanic_phys.F 106 DO_OCEANIC_PHYS 
      INTEGER i, j, k
./model/src/do_oceanic_phys.F 142 DO_OCEANIC_PHYS 
          DO i=1-OLx,sNx+OLx
./model/src/do_oceanic_phys.F 169 DO_OCEANIC_PHYS 
         DO i=1-OLx,sNx+OLx
./model/src/do_oceanic_phys.F 170 DO_OCEANIC_PHYS 
          saltPlumeDepth(i,j,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F 171 DO_OCEANIC_PHYS 
          saltPlumeFlux(i,j,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 369 DO_OCEANIC_PHYS 
         DO i=1-OLx,sNx+OLx
./model/src/do_oceanic_phys.F 370 DO_OCEANIC_PHYS 
          rhoKm1 (i,j)   = 0. _d 0
./model/src/do_oceanic_phys.F 371 DO_OCEANIC_PHYS 
          rhoKp1 (i,j)   = 0. _d 0
./model/src/do_oceanic_phys.F 378 DO_OCEANIC_PHYS 
          DO i=1-OLx,sNx+OLx
./model/src/do_oceanic_phys.F 380 DO_OCEANIC_PHYS 
           sigmaX(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F 381 DO_OCEANIC_PHYS 
           sigmaY(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F 382 DO_OCEANIC_PHYS 
           sigmaR(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F 387 DO_OCEANIC_PHYS 
           IVDConvCount(i,j,k,bi,bj) = 0.
./model/src/do_oceanic_phys.F 389 DO_OCEANIC_PHYS 
           Kwx(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 390 DO_OCEANIC_PHYS 
           Kwy(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 391 DO_OCEANIC_PHYS 
           Kwz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 393 DO_OCEANIC_PHYS 
           Kux(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 394 DO_OCEANIC_PHYS 
           Kvy(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 397 DO_OCEANIC_PHYS 
           Kuz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 398 DO_OCEANIC_PHYS 
           Kvz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 401 DO_OCEANIC_PHYS 
           GM_PsiX(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 402 DO_OCEANIC_PHYS 
           GM_PsiY(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 405 DO_OCEANIC_PHYS 
           VisbeckK(i,j,bi,bj)   = 0. _d 0
./model/src/do_oceanic_phys.F 409 DO_OCEANIC_PHYS 
           KPPdiffKzS(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 410 DO_OCEANIC_PHYS 
           KPPdiffKzT(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 413 DO_OCEANIC_PHYS 
           GGL90viscArU(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 414 DO_OCEANIC_PHYS 
           GGL90viscArV(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 415 DO_OCEANIC_PHYS 
           GGL90diffKr(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 493 DO_OCEANIC_PHYS 
            DO i=1-OLx,sNx+OLx
./model/src/do_oceanic_phys.F 494 DO_OCEANIC_PHYS 
              rhoInSitu(i,j,k,bi,bj) = 0.
./model/src/do_oceanic_phys.F 526 DO_OCEANIC_PHYS 
             DO i=iMin,iMax
./model/src/do_oceanic_phys.F 527 DO_OCEANIC_PHYS 
              rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj)
./pkg/seaice/seaice_check_pickup.F 59 SEAICE_CHECK_PICKUP 
      INTEGER i,j,k,bi,bj
./pkg/seaice/seaice_check_pickup.F 94 SEAICE_CHECK_PICKUP 
               DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_check_pickup.F 95 SEAICE_CHECK_PICKUP 
                TICES(i,j,k,bi,bj) = TICE(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 36 SEAICE_COST_ACCUMULATE_MEAN 
      INTEGER i, j
./pkg/seaice/seaice_cost_accumulate_mean.F 53 SEAICE_COST_ACCUMULATE_MEAN 
          DO i=1,sNx
./pkg/seaice/seaice_cost_accumulate_mean.F 54 SEAICE_COST_ACCUMULATE_MEAN 
            uHeffExportCell(i,j,bi,bj) = uHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 55 SEAICE_COST_ACCUMULATE_MEAN 
     &      + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F 56 SEAICE_COST_ACCUMULATE_MEAN 
     &        + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i-1,j,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F 57 SEAICE_COST_ACCUMULATE_MEAN 
     &        )*UICE(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 58 SEAICE_COST_ACCUMULATE_MEAN 
     &         *_dyG(i,j,bi,bj)/lastinterval*deltaTClock
./pkg/seaice/seaice_cost_accumulate_mean.F 59 SEAICE_COST_ACCUMULATE_MEAN 
            vHeffExportCell(i,j,bi,bj) = vHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 60 SEAICE_COST_ACCUMULATE_MEAN 
     &      + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F 61 SEAICE_COST_ACCUMULATE_MEAN 
     &        + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i,j-1,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F 62 SEAICE_COST_ACCUMULATE_MEAN 
     &        )*VICE(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 63 SEAICE_COST_ACCUMULATE_MEAN 
     &         *_dxG(i,j,bi,bj)/lastinterval*deltaTClock
./pkg/seaice/seaice_cost_concentration.F 243 SEAICE_COST_CONCENTRATION 
                  do i = imin,imax
./pkg/seaice/seaice_cost_concentration.F 244 SEAICE_COST_CONCENTRATION 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_concentration.F 257 SEAICE_COST_CONCENTRATION 
                do i = imin,imax
./pkg/seaice/seaice_cost_concentration.F 259 SEAICE_COST_CONCENTRATION 
                     localModWeight(i,j,bi,bj) =
./pkg/seaice/seaice_cost_concentration.F 260 SEAICE_COST_CONCENTRATION 
     &                  localweight(i,j,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 263 SEAICE_COST_CONCENTRATION 
                     if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN
./pkg/seaice/seaice_cost_concentration.F 266 SEAICE_COST_CONCENTRATION 
                       areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj))
./pkg/seaice/seaice_cost_concentration.F 269 SEAICE_COST_CONCENTRATION 
                      IF      (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN
./pkg/seaice/seaice_cost_concentration.F 271 SEAICE_COST_CONCENTRATION 
                      ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0  ) .and.
./pkg/seaice/seaice_cost_concentration.F 272 SEAICE_COST_CONCENTRATION 
     &                        (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F 274 SEAICE_COST_CONCENTRATION 
                      ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and.
./pkg/seaice/seaice_cost_concentration.F 275 SEAICE_COST_CONCENTRATION 
     &                        (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F 281 SEAICE_COST_CONCENTRATION 
                       localModWeight(i,j,bi,bj) =
./pkg/seaice/seaice_cost_concentration.F 291 SEAICE_COST_CONCENTRATION 
                if ((i == SEAICE_debugPointX) .and.
./pkg/seaice/seaice_cost_concentration.F 295 SEAICE_COST_CONCENTRATION 
     &                 'costg i j obs,locWeight,locModWt,areaigma ',i,j,
./pkg/seaice/seaice_cost_concentration.F 296 SEAICE_COST_CONCENTRATION 
     &                 localobs(i,j,k,bi,bj), localweight(i,j,bi,bj),
./pkg/seaice/seaice_cost_concentration.F 297 SEAICE_COST_CONCENTRATION 
     &                 localModWeight(i,j,bi,bj),
./pkg/seaice/seaice_cost_concentration.F 315 SEAICE_COST_CONCENTRATION 
                do i = imin,imax
./pkg/seaice/seaice_cost_concentration.F 317 SEAICE_COST_CONCENTRATION 
                    if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_concentration.F 318 SEAICE_COST_CONCENTRATION 
                      print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 335 SEAICE_COST_CONCENTRATION 
              do i = imin,imax
./pkg/seaice/seaice_cost_concentration.F 336 SEAICE_COST_CONCENTRATION 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 337 SEAICE_COST_CONCENTRATION 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_concentration.F 338 SEAICE_COST_CONCENTRATION 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_concentration.F 339 SEAICE_COST_CONCENTRATION 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_concentration.F 340 SEAICE_COST_CONCENTRATION 
                   cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 348 SEAICE_COST_CONCENTRATION 
              do i = imin,imax
./pkg/seaice/seaice_cost_concentration.F 349 SEAICE_COST_CONCENTRATION 
                localwww  = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_concentration.F 352 SEAICE_COST_CONCENTRATION 
                localwww  = localModWeight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_concentration.F 355 SEAICE_COST_CONCENTRATION 
                junk      = ( localbar(i,j,k,bi,bj) -
./pkg/seaice/seaice_cost_concentration.F 356 SEAICE_COST_CONCENTRATION 
     &                        localobs(i,j,k,bi,bj) )
./pkg/seaice/seaice_cost_concentration.F 360 SEAICE_COST_CONCENTRATION 
                if ((i == SEAICE_debugPointX) .and.
./pkg/seaice/seaice_cost_concentration.F 364 SEAICE_COST_CONCENTRATION 
     &                 'costg i j bar, obs           ',i,j,
./pkg/seaice/seaice_cost_concentration.F 365 SEAICE_COST_CONCENTRATION 
     &                 localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_concentration.F 366 SEAICE_COST_CONCENTRATION 
     &                 localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 369 SEAICE_COST_CONCENTRATION 
     &                 'costg i j bar-obs,wgt,loCost ',i,j,
./pkg/seaice/seaice_cost_concentration.F 73 SEAICE_COST_CONCENTRATION 
      integer i,j,k
./pkg/seaice/seaice_cost_export.F 31 SEAICE_COST_EXPORT 
      integer i, j, k
./pkg/seaice/seaice_cost_export.F 46 SEAICE_COST_EXPORT 
        do i=1,sNx
./pkg/seaice/seaice_cost_export.F 47 SEAICE_COST_EXPORT 
         ig = myXGlobalLo-1+(bi-1)*sNx+i
./pkg/seaice/seaice_cost_export.F 54 SEAICE_COST_EXPORT 
     &              - uHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_init_varia.F 44 SEAICE_COST_INIT_VARIA 
      integer i,j,k
./pkg/seaice/seaice_cost_init_varia.F 80 SEAICE_COST_INIT_VARIA 
            do i = imin,imax
./pkg/seaice/seaice_cost_init_varia.F 82 SEAICE_COST_INIT_VARIA 
               uHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 83 SEAICE_COST_INIT_VARIA 
               vHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 261 SEAICE_COST_SSS 
                  do i = imin,imax
./pkg/seaice/seaice_cost_sss.F 262 SEAICE_COST_SSS 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sss.F 275 SEAICE_COST_SSS 
                do i = imin,imax
./pkg/seaice/seaice_cost_sss.F 277 SEAICE_COST_SSS 
                    if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_sss.F 278 SEAICE_COST_SSS 
                      print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_sss.F 295 SEAICE_COST_SSS 
              do i = imin,imax
./pkg/seaice/seaice_cost_sss.F 296 SEAICE_COST_SSS 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sss.F 297 SEAICE_COST_SSS 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_sss.F 298 SEAICE_COST_SSS 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_sss.F 299 SEAICE_COST_SSS 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_sss.F 300 SEAICE_COST_SSS 
                   cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 308 SEAICE_COST_SSS 
              do i = imin,imax
./pkg/seaice/seaice_cost_sss.F 309 SEAICE_COST_SSS 
                localwww  = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_sss.F 312 SEAICE_COST_SSS 
                if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND.
./pkg/seaice/seaice_cost_sss.F 313 SEAICE_COST_SSS 
     &                areabar(i,j,1,bi,bj) .LE. 0.0) then
./pkg/seaice/seaice_cost_sss.F 318 SEAICE_COST_SSS 
                   junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt )
./pkg/seaice/seaice_cost_sss.F 329 SEAICE_COST_SSS 
                if ((i == SEAICE_debugPointX) .and.
./pkg/seaice/seaice_cost_sss.F 333 SEAICE_COST_SSS 
     &                 'costg i j sbar, abar,obs     ',i,j,
./pkg/seaice/seaice_cost_sss.F 334 SEAICE_COST_SSS 
     &                 localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sss.F 335 SEAICE_COST_SSS 
     &                 areabar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sss.F 336 SEAICE_COST_SSS 
     &                 localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sss.F 339 SEAICE_COST_SSS 
     &                 'costg i j bar-obs,wgt,loCost ',i,j,
./pkg/seaice/seaice_cost_sss.F 74 SEAICE_COST_SSS 
      integer i,j,k
./pkg/seaice/seaice_cost_sst.F 256 SEAICE_COST_SST 
                  do i = imin,imax
./pkg/seaice/seaice_cost_sst.F 257 SEAICE_COST_SST 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sst.F 270 SEAICE_COST_SST 
                do i = imin,imax
./pkg/seaice/seaice_cost_sst.F 272 SEAICE_COST_SST 
                    if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_sst.F 273 SEAICE_COST_SST 
                      print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_sst.F 290 SEAICE_COST_SST 
              do i = imin,imax
./pkg/seaice/seaice_cost_sst.F 291 SEAICE_COST_SST 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sst.F 292 SEAICE_COST_SST 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_sst.F 293 SEAICE_COST_SST 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_sst.F 294 SEAICE_COST_SST 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_sst.F 295 SEAICE_COST_SST 
                   cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 303 SEAICE_COST_SST 
              do i = imin,imax
./pkg/seaice/seaice_cost_sst.F 304 SEAICE_COST_SST 
                localwww  = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_sst.F 307 SEAICE_COST_SST 
                if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND.
./pkg/seaice/seaice_cost_sst.F 308 SEAICE_COST_SST 
     &                areabar(i,j,1,bi,bj) .LE. 0.0) then
./pkg/seaice/seaice_cost_sst.F 310 SEAICE_COST_SST 
                   junk = ( localbar(i,j,k,bi,bj) -
./pkg/seaice/seaice_cost_sst.F 320 SEAICE_COST_SST 
                if ((i == SEAICE_debugPointX) .and.
./pkg/seaice/seaice_cost_sst.F 324 SEAICE_COST_SST 
     &                 'costg i j tbar, abar,obs     ',i,j,
./pkg/seaice/seaice_cost_sst.F 325 SEAICE_COST_SST 
     &                 localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sst.F 326 SEAICE_COST_SST 
     &                 areabar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sst.F 327 SEAICE_COST_SST 
     &                 localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sst.F 330 SEAICE_COST_SST 
     &                 'costg i j bar-obs,wgt,loCost ',i,j,
./pkg/seaice/seaice_cost_sst.F 72 SEAICE_COST_SST 
      integer i,j,k
./pkg/seaice/seaice_cost_weights.F 109 SEAICE_COST_WEIGHTS 
               do i = imin,imax
./pkg/seaice/seaice_cost_weights.F 110 SEAICE_COST_WEIGHTS 
                 wsmrarea(i,j,bi,bj) = wsmrarea(i,j,bi,bj)
./pkg/seaice/seaice_cost_weights.F 111 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 120 SEAICE_COST_WEIGHTS 
               do i = imin,imax
./pkg/seaice/seaice_cost_weights.F 121 SEAICE_COST_WEIGHTS 
                 wsmrarea(i,j,bi,bj) = wsmrarea0
./pkg/seaice/seaice_cost_weights.F 122 SEAICE_COST_WEIGHTS 
     &                 *frame(i,j)*_hFacC(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_weights.F 132 SEAICE_COST_WEIGHTS 
            do i = imin,imax
./pkg/seaice/seaice_cost_weights.F 133 SEAICE_COST_WEIGHTS 
              if (wsmrarea(i,j,bi,bj) .ne. 0.)
./pkg/seaice/seaice_cost_weights.F 134 SEAICE_COST_WEIGHTS 
     &              wsmrarea(i,j,bi,bj) =
./pkg/seaice/seaice_cost_weights.F 135 SEAICE_COST_WEIGHTS 
     &              1./wsmrarea(i,j,bi,bj)/wsmrarea(i,j,bi,bj)
./pkg/seaice/seaice_cost_weights.F 42 SEAICE_COST_WEIGHTS 
      integer i,j,k
./pkg/seaice/seaice_cost_weights.F 73 SEAICE_COST_WEIGHTS 
        do i = imin,imax
./pkg/seaice/seaice_cost_weights.F 76 SEAICE_COST_WEIGHTS 
     &         (i .lt. 1) .or. (i .gt. snx)      ) then
./pkg/seaice/seaice_cost_weights.F 77 SEAICE_COST_WEIGHTS 
            frame(i,j) = 0. _d 0
./pkg/seaice/seaice_cost_weights.F 79 SEAICE_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./pkg/seaice/seaice_cost_weights.F 89 SEAICE_COST_WEIGHTS 
            do i = imin,imax
./pkg/seaice/seaice_cost_weights.F 90 SEAICE_COST_WEIGHTS 
              wsmrarea (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_ctrl_map_ini.F 100 SEAICE_CTRL_MAP_INI 
              do i = imin,imax
./pkg/seaice/seaice_ctrl_map_ini.F 101 SEAICE_CTRL_MAP_INI 
                area(i,j,bi,bj) = area(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F 102 SEAICE_CTRL_MAP_INI 
     &                            tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F 120 SEAICE_CTRL_MAP_INI 
              do i = imin,imax
./pkg/seaice/seaice_ctrl_map_ini.F 121 SEAICE_CTRL_MAP_INI 
                heff(i,j,bi,bj) = heff(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F 122 SEAICE_CTRL_MAP_INI 
     &                            tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F 140 SEAICE_CTRL_MAP_INI 
              do i = imin,imax
./pkg/seaice/seaice_ctrl_map_ini.F 141 SEAICE_CTRL_MAP_INI 
                hsnow(i,j,bi,bj) = hsnow(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F 142 SEAICE_CTRL_MAP_INI 
     &                             tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F 46 SEAICE_CTRL_MAP_INI 
      integer i,j,k
./pkg/seaice/seaice_diagnostics_state.F 117 SEAICE_DIAGNOSTICS_STATE 
            DO i=1,sNx
./pkg/seaice/seaice_diagnostics_state.F 151 SEAICE_DIAGNOSTICS_STATE 
            DO i=1,sNx
./pkg/seaice/seaice_diagnostics_state.F 182 SEAICE_DIAGNOSTICS_STATE 
            DO i = 1,sNx+1
./pkg/seaice/seaice_diagnostics_state.F 183 SEAICE_DIAGNOSTICS_STATE 
             press(i,j,bi,bj) =
./pkg/seaice/seaice_diagnostics_state.F 185 SEAICE_DIAGNOSTICS_STATE 
     &            UICE(i,j,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 188 SEAICE_DIAGNOSTICS_STATE 
     &            0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 190 SEAICE_DIAGNOSTICS_STATE 
     &            *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 201 SEAICE_DIAGNOSTICS_STATE 
            DO i = 1,sNx
./pkg/seaice/seaice_diagnostics_state.F 202 SEAICE_DIAGNOSTICS_STATE 
             press(i,j,bi,bj) =
./pkg/seaice/seaice_diagnostics_state.F 204 SEAICE_DIAGNOSTICS_STATE 
     &            VICE(i,j,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 207 SEAICE_DIAGNOSTICS_STATE 
     &            0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 209 SEAICE_DIAGNOSTICS_STATE 
     &            *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 46 SEAICE_DIAGNOSTICS_STATE 
      INTEGER i,j
./pkg/seaice/seaice_diagnostics_state.F 72 SEAICE_DIAGNOSTICS_STATE 
           DO i=1,sNx
./pkg/seaice/seaice_diagnostics_state.F 80 SEAICE_DIAGNOSTICS_STATE 
            DO i=1,sNx
./pkg/seaice/seaice_diffusion.F 62 SEAICE_DIFFUSION 
      INTEGER i, j, k
./pkg/seaice/seaice_diffusion.F 76 SEAICE_DIFFUSION 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_diffusion.F 77 SEAICE_DIFFUSION 
          fZon  (i,j) = 0. _d 0
./pkg/seaice/seaice_diffusion.F 78 SEAICE_DIFFUSION 
          fMer  (i,j) = 0. _d 0
./pkg/seaice/seaice_diffusion.F 93 SEAICE_DIFFUSION 
         DO i=1-Olx,sNx+Olx-1
./pkg/seaice/seaice_diffusion.F 94 SEAICE_DIFFUSION 
          gFld(i,j)= gFld(i,j)
./pkg/seaice/seaice_diffusion.F 95 SEAICE_DIFFUSION 
     &        - iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_diffusion.F 96 SEAICE_DIFFUSION 
     &        *( (fZon(i+1,j)-fZon(i,j))
./pkg/seaice/seaice_diffusion.F 97 SEAICE_DIFFUSION 
     &         + (fMer(i,j+1)-fMer(i,j)) )
./pkg/seaice/seaice_dynsolver.F 100 SEAICE_DYNSOLVER 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 101 SEAICE_DYNSOLVER 
          seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 103 SEAICE_DYNSOLVER 
     &          HEFF(i,j,bi,bj) + HEFF(i-1,j  ,bi,bj) )
./pkg/seaice/seaice_dynsolver.F 105 SEAICE_DYNSOLVER 
     &          HEFF(i,j,bi,bj) + HEFF(i  ,j-1,bi,bj) )
./pkg/seaice/seaice_dynsolver.F 116 SEAICE_DYNSOLVER 
          DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 117 SEAICE_DYNSOLVER 
           seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 118 SEAICE_DYNSOLVER 
           mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j  ,bi,bj)
./pkg/seaice/seaice_dynsolver.F 125 SEAICE_DYNSOLVER 
           seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj)
./pkg/seaice/seaice_dynsolver.F 126 SEAICE_DYNSOLVER 
           mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i  ,j-1,bi,bj)
./pkg/seaice/seaice_dynsolver.F 146 SEAICE_DYNSOLVER 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 175 SEAICE_DYNSOLVER 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 176 SEAICE_DYNSOLVER 
            phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 183 SEAICE_DYNSOLVER 
           DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 184 SEAICE_DYNSOLVER 
            phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/seaice_dynsolver.F 185 SEAICE_DYNSOLVER 
     &                   + ( pload(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 186 SEAICE_DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/seaice_dynsolver.F 192 SEAICE_DYNSOLVER 
           DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 193 SEAICE_DYNSOLVER 
            phiSurf(i,j) = phiSurf(i,j)
./pkg/seaice/seaice_dynsolver.F 194 SEAICE_DYNSOLVER 
     &                   + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/seaice_dynsolver.F 200 SEAICE_DYNSOLVER 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 204 SEAICE_DYNSOLVER 
     &         *( phiSurf(i,j)-phiSurf(i-1,j) )
./pkg/seaice/seaice_dynsolver.F 207 SEAICE_DYNSOLVER 
     &         *( phiSurf(i,j)-phiSurf(i,j-1) )
./pkg/seaice/seaice_dynsolver.F 212 SEAICE_DYNSOLVER 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 214 SEAICE_DYNSOLVER 
          PRESS0(I,J,bi,bj)=PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 215 SEAICE_DYNSOLVER 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_dynsolver.F 298 SEAICE_DYNSOLVER 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_dynsolver.F 299 SEAICE_DYNSOLVER 
           uIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 300 SEAICE_DYNSOLVER 
     &          MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F 301 SEAICE_DYNSOLVER 
           vIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 302 SEAICE_DYNSOLVER 
     &          MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F 47 SEAICE_DYNSOLVER 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_dynsolver.F 63 SEAICE_DYNSOLVER 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_dynsolver.F 64 SEAICE_DYNSOLVER 
          PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 65 SEAICE_DYNSOLVER 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_dynsolver.F 67 SEAICE_DYNSOLVER 
          ZMIN(i,j,bi,bj)   = SEAICE_zetaMin
./pkg/seaice/seaice_dynsolver.F 68 SEAICE_DYNSOLVER 
          PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 69 SEAICE_DYNSOLVER 
          TAUX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 70 SEAICE_DYNSOLVER 
          TAUY(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 125 SEAICE_EVP 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_evp.F 145 SEAICE_EVP 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_evp.F 189 SEAICE_EVP 
           DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_evp.F 201 SEAICE_EVP 
           DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_evp.F 202 SEAICE_EVP 
            ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj)
./pkg/seaice/seaice_evp.F 203 SEAICE_EVP 
            em(i,j) = e11(i,j,bi,bj) - e22(i,j,bi,bj)
./pkg/seaice/seaice_evp.F 207 SEAICE_EVP 
           DO i=0,sNx+1
./pkg/seaice/seaice_evp.F 256 SEAICE_EVP 
           DO i=0,sNx+1
./pkg/seaice/seaice_evp.F 275 SEAICE_EVP 
           DO i=0,sNx+1
./pkg/seaice/seaice_evp.F 283 SEAICE_EVP 
            DO i=1,sNx
./pkg/seaice/seaice_evp.F 299 SEAICE_EVP 
            DO i=0,sNx+1
./pkg/seaice/seaice_evp.F 340 SEAICE_EVP 
            DO i=0,sNx+1
./pkg/seaice/seaice_evp.F 355 SEAICE_EVP 
           DO i=0,sNx
./pkg/seaice/seaice_evp.F 377 SEAICE_EVP 
           DO i=1,sNx+1
./pkg/seaice/seaice_evp.F 455 SEAICE_EVP 
           DO i=1,sNx
./pkg/seaice/seaice_evp.F 62 SEAICE_EVP 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_get_dynforcing.F 107 SEAICE_GET_DYNFORCING 
         DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_get_dynforcing.F 117 SEAICE_GET_DYNFORCING 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_get_dynforcing.F 119 SEAICE_GET_DYNFORCING 
     &          + 0.5 _d 0 * (uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 120 SEAICE_GET_DYNFORCING 
     &          - 0.5 _d 0 * (uice(i,j,bi,bj)+uice(i+1,j,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 122 SEAICE_GET_DYNFORCING 
     &          + 0.5 _d 0 * (vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 123 SEAICE_GET_DYNFORCING 
     &          - 0.5 _d 0 * (vice(i,j,bi,bj)+vice(i,j+1,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 139 SEAICE_GET_DYNFORCING 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_get_dynforcing.F 158 SEAICE_GET_DYNFORCING 
          DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_get_dynforcing.F 163 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 164 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 167 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 168 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 171 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i-1,j,k,bi,bj)+uVel(i,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 172 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i-1,j,bi,bj)+uice(i,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 175 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i-1,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 176 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i-1,j,bi,bj)+vice(i-1,j+1,bi,bj)))))
./pkg/seaice/seaice_get_dynforcing.F 181 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 182 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 185 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 186 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 189 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j-1,k,bi,bj)+uVel(i+1,j-1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 190 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i,j-1,bi,bj)+uice(i+1,j-1,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 193 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j-1,k,bi,bj)+vVel(i,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 194 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i,j-1,bi,bj)+vice(i,j,bi,bj)))))
./pkg/seaice/seaice_get_dynforcing.F 199 SEAICE_GET_DYNFORCING 
          DO i=1-Olx+1,sNx+Olx
./pkg/seaice/seaice_get_dynforcing.F 229 SEAICE_GET_DYNFORCING 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_get_dynforcing.F 55 SEAICE_GET_DYNFORCING 
      INTEGER bi, bj, i, j
./pkg/seaice/seaice_get_dynforcing.F 87 SEAICE_GET_DYNFORCING 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_growth.F 199 SEAICE_GROWTH 
           old_AREA(i,j) = AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 285 SEAICE_GROWTH 
     &          +0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 286 SEAICE_GROWTH 
     &                    +uVel(i+1,j,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 287 SEAICE_GROWTH 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2
./pkg/seaice/seaice_growth.F 289 SEAICE_GROWTH 
     &          +0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 290 SEAICE_GROWTH 
     &                    +vVel(i,j+1,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 291 SEAICE_GROWTH 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2
./pkg/seaice/seaice_growth.F 380 SEAICE_GROWTH 
              availHeat(i,j) = SEAICE_availHeatFrac
./pkg/seaice/seaice_growth.F 382 SEAICE_GROWTH 
     &             * hFacC(i,j,kSurface,bi,bj) / 72.0764 _d 0
./pkg/seaice/seaice_growth.F 384 SEAICE_GROWTH 
              availHeat(i,j) = SEAICE_availHeatFracFrz
./pkg/seaice/seaice_growth.F 386 SEAICE_GROWTH 
     &             * hFacC(i,j,kSurface,bi,bj) / 72.0764 _d 0
./pkg/seaice/seaice_growth.F 389 SEAICE_GROWTH 
           availHeat(i,j) = 0.
./pkg/seaice/seaice_growth.F 52 SEAICE_GROWTH 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_growth.F 732 SEAICE_GROWTH 
     &             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 744 SEAICE_GROWTH 
             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 759 SEAICE_GROWTH 
             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 806 SEAICE_GROWTH 
     &                      recip_hFacC(i,j,kSurface,bi,bj)*72.0764 _d 0
./pkg/seaice/seaice_growth.F 821 SEAICE_GROWTH 
     &         *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 926 SEAICE_GROWTH 
           sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 939 SEAICE_GROWTH 
           IF ( AREA(i,j,bi,bj) .LT. old_AREA(i,j) ) THEN
./pkg/seaice/seaice_growth.F 941 SEAICE_GROWTH 
            IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 942 SEAICE_GROWTH 
     &         *AREA(i,j,bi,bj)/old_AREA(i,j)
./pkg/seaice/seaice_growth.F 945 SEAICE_GROWTH 
           IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 946 SEAICE_GROWTH 
     &        + AREA(i,j,bi,bj) * SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 948 SEAICE_GROWTH 
           IceAge(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_growth_if.F 1079 SEAICE_GROWTH_IF 
                     sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)*
./pkg/seaice/seaice_growth_if.F 1088 SEAICE_GROWTH_IF 
               DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_growth_if.F 1090 SEAICE_GROWTH_IF 
               IF ( (i .EQ. SEAICE_debugPointX)   .and.
./pkg/seaice/seaice_growth_if.F 1096 SEAICE_GROWTH_IF 
     &                 'ifice i j --------------  ',i,j
./pkg/seaice/seaice_growth_if.F 1099 SEAICE_GROWTH_IF 
     &                 'ifice i j IGR(ML OW ICE)  ',i,j,
./pkg/seaice/seaice_growth_if.F 1100 SEAICE_GROWTH_IF 
     &                 IceGrowthRateMixedLayer(i,j),
./pkg/seaice/seaice_growth_if.F 1101 SEAICE_GROWTH_IF 
     &                 IceGrowthRateOpenWater(i,j),
./pkg/seaice/seaice_growth_if.F 1102 SEAICE_GROWTH_IF 
     &                 NetExistingIceGrowthRate(i,j),
./pkg/seaice/seaice_growth_if.F 1107 SEAICE_GROWTH_IF 
     &                 i,j,F_mi(i,j), F_ao(i,j)
./pkg/seaice/seaice_growth_if.F 1111 SEAICE_GROWTH_IF 
     &                 i,j,F_ia(i,j),
./pkg/seaice/seaice_growth_if.F 1112 SEAICE_GROWTH_IF 
     &                 F_ia_net_before_snow(i,j),
./pkg/seaice/seaice_growth_if.F 1113 SEAICE_GROWTH_IF 
     &                 F_ia_net(i,j),
./pkg/seaice/seaice_growth_if.F 1114 SEAICE_GROWTH_IF 
     &                 F_io_net(i,j)
./pkg/seaice/seaice_growth_if.F 1117 SEAICE_GROWTH_IF 
     &                 'ifice i j AREA2/1 HEFF2/1 ',i,j,
./pkg/seaice/seaice_growth_if.F 1119 SEAICE_GROWTH_IF 
     &                 AREA(i,j,bi,bj),
./pkg/seaice/seaice_growth_if.F 1121 SEAICE_GROWTH_IF 
     &                 HEFF(i,j,bi,bj)
./pkg/seaice/seaice_growth_if.F 1124 SEAICE_GROWTH_IF 
     &                 'ifice i j HSNOW2/1 TMX TBC',i,j,
./pkg/seaice/seaice_growth_if.F 1127 SEAICE_GROWTH_IF 
     &                 TMIX(i,j,bi,bj)- TMELT,
./pkg/seaice/seaice_growth_if.F 1131 SEAICE_GROWTH_IF 
     &                 'ifice i j TI ATP LWD      ',i,j,
./pkg/seaice/seaice_growth_if.F 1132 SEAICE_GROWTH_IF 
     &                 TICE(i,j,bi,bj) - TMELT,
./pkg/seaice/seaice_growth_if.F 1133 SEAICE_GROWTH_IF 
     &                 ATEMP(i,j,bi,bj) -TMELT,
./pkg/seaice/seaice_growth_if.F 1134 SEAICE_GROWTH_IF 
     &                 LWDOWN(i,j,bi,bj)
./pkg/seaice/seaice_growth_if.F 1138 SEAICE_GROWTH_IF 
     &                 'ifice i j S_a S_h S_hsnow ',i,j,
./pkg/seaice/seaice_growth_if.F 1139 SEAICE_GROWTH_IF 
     &                 S_a(i,j),
./pkg/seaice/seaice_growth_if.F 1140 SEAICE_GROWTH_IF 
     &                 S_h(i,j),
./pkg/seaice/seaice_growth_if.F 1141 SEAICE_GROWTH_IF 
     &                 S_hsnow(i,j)
./pkg/seaice/seaice_growth_if.F 1144 SEAICE_GROWTH_IF 
     &                 'ifice i j IVC(E A ENIN)   ',i,j,
./pkg/seaice/seaice_growth_if.F 1145 SEAICE_GROWTH_IF 
     &                 ExpectedIceVolumeChange(i,j),
./pkg/seaice/seaice_growth_if.F 1146 SEAICE_GROWTH_IF 
     &                 ActualNewTotalVolumeChange(i,j),
./pkg/seaice/seaice_growth_if.F 1147 SEAICE_GROWTH_IF 
     &                 EnergyInNewTotalIceVolume(i,j)
./pkg/seaice/seaice_growth_if.F 1150 SEAICE_GROWTH_IF 
     &                 'ifice i j EF(NOS RE) QNET ',i,j,
./pkg/seaice/seaice_growth_if.F 1151 SEAICE_GROWTH_IF 
     &                 NetEnergyFluxOutOfSystem(i,j),
./pkg/seaice/seaice_growth_if.F 1152 SEAICE_GROWTH_IF 
     &                 ResidualHeatOutOfSystem(i,j),
./pkg/seaice/seaice_growth_if.F 1156 SEAICE_GROWTH_IF 
     &                 'ifice i j QSW QSWO QSWI   ',i,j,
./pkg/seaice/seaice_growth_if.F 1157 SEAICE_GROWTH_IF 
     &                 QSW(i,j,bi,bj),
./pkg/seaice/seaice_growth_if.F 1158 SEAICE_GROWTH_IF 
     &                 QSWO(i,j),
./pkg/seaice/seaice_growth_if.F 1159 SEAICE_GROWTH_IF 
     &                 QSWI(i,j)
./pkg/seaice/seaice_growth_if.F 1162 SEAICE_GROWTH_IF 
     &                 'ifice i j SW(BML IML SW)  ',i,j,
./pkg/seaice/seaice_growth_if.F 1163 SEAICE_GROWTH_IF 
     &                 QSW_absorb_below_ML(i,j),
./pkg/seaice/seaice_growth_if.F 1164 SEAICE_GROWTH_IF 
     &                 QSW_absorb_in_ML(i,j),
./pkg/seaice/seaice_growth_if.F 1168 SEAICE_GROWTH_IF 
     &                 'ifice i j ptc(to, qsw, oa)',i,j,
./pkg/seaice/seaice_growth_if.F 1169 SEAICE_GROWTH_IF 
     &                 PredTempChange(i,j),
./pkg/seaice/seaice_growth_if.F 1170 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromQSW (i,j),
./pkg/seaice/seaice_growth_if.F 1171 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromOA_MQNET(i,j)
./pkg/seaice/seaice_growth_if.F 1175 SEAICE_GROWTH_IF 
     &                 'ifice i j ptc(fion,ian,ia)',i,j,
./pkg/seaice/seaice_growth_if.F 1176 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromF_IO_NET(i,j),
./pkg/seaice/seaice_growth_if.F 1177 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromF_IA_NET(i,j),
./pkg/seaice/seaice_growth_if.F 1178 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromFIA(i,j)
./pkg/seaice/seaice_growth_if.F 1181 SEAICE_GROWTH_IF 
     &                 'ifice i j ptc(niv)        ',i,j,
./pkg/seaice/seaice_growth_if.F 1182 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromNewIceVol(i,j)
./pkg/seaice/seaice_growth_if.F 1186 SEAICE_GROWTH_IF 
     &                 'ifice i j EmPmR EVP PRE RU',i,j,
./pkg/seaice/seaice_growth_if.F 1193 SEAICE_GROWTH_IF 
     &                 'ifice i j PRROIS,SAOI(R .)',i,j,
./pkg/seaice/seaice_growth_if.F 1199 SEAICE_GROWTH_IF 
     &                 'ifice i j SM(PM PMR . .R) ',i,j,
./pkg/seaice/seaice_growth_if.F 1206 SEAICE_GROWTH_IF 
     &                 'ifice i j TotSnwMlt ExSnVC',i,j,
./pkg/seaice/seaice_growth_if.F 1212 SEAICE_GROWTH_IF 
     &                 'ifice i j fw(CFICE, CFSM) ',i,j,
./pkg/seaice/seaice_growth_if.F 1217 SEAICE_GROWTH_IF 
     &                 'ifice i j --------------  ',i,j
./pkg/seaice/seaice_growth_if.F 46 SEAICE_GROWTH_IF 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_growth_if.F 580 SEAICE_GROWTH_IF 
                  QSWO_BELOW_FIRST_LAYER(i,j)= QSWO(I,J)*SWFRACB
./pkg/seaice/seaice_growth_if.F 583 SEAICE_GROWTH_IF 
                  QSWO_BELOW_FIRST_LAYER(i,j)= 0. _d 0
./pkg/seaice/seaice_init_fixed.F 110 SEAICE_INIT_FIXED 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 124 SEAICE_INIT_FIXED 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 132 SEAICE_INIT_FIXED 
          DO i=1-OLx,sNx+OLx-1
./pkg/seaice/seaice_init_fixed.F 139 SEAICE_INIT_FIXED 
          DO i=1-OLx+1,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 146 SEAICE_INIT_FIXED 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 153 SEAICE_INIT_FIXED 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 169 SEAICE_INIT_FIXED 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 170 SEAICE_INIT_FIXED 
          KGEO(i,j,bi,bj)   = 0
./pkg/seaice/seaice_init_fixed.F 174 SEAICE_INIT_FIXED 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 176 SEAICE_INIT_FIXED 
          KGEO(i,j,bi,bj) = 1
./pkg/seaice/seaice_init_fixed.F 178 SEAICE_INIT_FIXED 
          IF (klowc(i,j,bi,bj) .LT. 2) THEN
./pkg/seaice/seaice_init_fixed.F 179 SEAICE_INIT_FIXED 
           KGEO(i,j,bi,bj) = 1
./pkg/seaice/seaice_init_fixed.F 181 SEAICE_INIT_FIXED 
           KGEO(i,j,bi,bj) = 2
./pkg/seaice/seaice_init_fixed.F 182 SEAICE_INIT_FIXED 
           DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND.
./pkg/seaice/seaice_init_fixed.F 183 SEAICE_INIT_FIXED 
     &          KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) )
./pkg/seaice/seaice_init_fixed.F 184 SEAICE_INIT_FIXED 
              KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1
./pkg/seaice/seaice_init_fixed.F 33 SEAICE_INIT_FIXED 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_init_fixed.F 81 SEAICE_INIT_FIXED 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 82 SEAICE_INIT_FIXED 
          HEFFM(i,j,bi,bj)       = 0. _d 0
./pkg/seaice/seaice_init_fixed.F 86 SEAICE_INIT_FIXED 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 87 SEAICE_INIT_FIXED 
          HEFFM(i,j,bi,bj)= 1. _d 0
./pkg/seaice/seaice_init_fixed.F 88 SEAICE_INIT_FIXED 
          IF (_hFacC(i,j,kSurface,bi,bj).eq.0.)
./pkg/seaice/seaice_init_fixed.F 89 SEAICE_INIT_FIXED 
     &         HEFFM(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_fixed.F 93 SEAICE_INIT_FIXED 
         DO i=1-OLx+1,sNx+OLx
./pkg/seaice/seaice_init_fixed.F 95 SEAICE_INIT_FIXED 
          UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_fixed.F 96 SEAICE_INIT_FIXED 
          mask_uice=HEFFM(i,j,  bi,bj)+HEFFM(i-1,j-1,bi,bj)
./pkg/seaice/seaice_init_fixed.F 97 SEAICE_INIT_FIXED 
     &             +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j,  bi,bj)
./pkg/seaice/seaice_init_fixed.F 98 SEAICE_INIT_FIXED 
          IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0
./pkg/seaice/seaice_init_varia.F 100 SEAICE_INIT_VARIA 
          seaiceMassC(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 101 SEAICE_INIT_VARIA 
          seaiceMassU(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 102 SEAICE_INIT_VARIA 
          seaiceMassV(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 103 SEAICE_INIT_VARIA 
          stressDivergenceX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 104 SEAICE_INIT_VARIA 
          stressDivergenceY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 106 SEAICE_INIT_VARIA 
          seaice_sigma1 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 107 SEAICE_INIT_VARIA 
          seaice_sigma2 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 108 SEAICE_INIT_VARIA 
          seaice_sigma12(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 111 SEAICE_INIT_VARIA 
          AMASS(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 112 SEAICE_INIT_VARIA 
          DAIRN(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 113 SEAICE_INIT_VARIA 
          WINDX(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 114 SEAICE_INIT_VARIA 
          WINDY(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 115 SEAICE_INIT_VARIA 
          GWATX(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 116 SEAICE_INIT_VARIA 
          GWATY(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 118 SEAICE_INIT_VARIA 
          DWATN(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 119 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 120 SEAICE_INIT_VARIA 
          FORCEX0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F 121 SEAICE_INIT_VARIA 
          FORCEY0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F 122 SEAICE_INIT_VARIA 
          ZMAX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 123 SEAICE_INIT_VARIA 
          ZMIN(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 124 SEAICE_INIT_VARIA 
          HSNOW(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 126 SEAICE_INIT_VARIA 
          HSALT(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 129 SEAICE_INIT_VARIA 
          ICEAGE(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 131 SEAICE_INIT_VARIA 
          YNEG (i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 132 SEAICE_INIT_VARIA 
          RIVER(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 133 SEAICE_INIT_VARIA 
          TMIX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 134 SEAICE_INIT_VARIA 
          TICE(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 135 SEAICE_INIT_VARIA 
          TAUX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 136 SEAICE_INIT_VARIA 
          TAUY(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 138 SEAICE_INIT_VARIA 
          uHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 139 SEAICE_INIT_VARIA 
          vHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 141 SEAICE_INIT_VARIA 
          saltWtrIce(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 142 SEAICE_INIT_VARIA 
          frWtrIce(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 144 SEAICE_INIT_VARIA 
          frWtrAtm(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 175 SEAICE_INIT_VARIA 
         DO i=1-OLx+1,sNx+OLx
./pkg/seaice/seaice_init_varia.F 177 SEAICE_INIT_VARIA 
          seaiceMaskU(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 178 SEAICE_INIT_VARIA 
          seaiceMaskV(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 179 SEAICE_INIT_VARIA 
          mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j  ,bi,bj)
./pkg/seaice/seaice_init_varia.F 180 SEAICE_INIT_VARIA 
          IF(mask_uice.GT.1.5 _d 0) seaiceMaskU(i,j,bi,bj)=1.0 _d 0
./pkg/seaice/seaice_init_varia.F 181 SEAICE_INIT_VARIA 
          mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i  ,j-1,bi,bj)
./pkg/seaice/seaice_init_varia.F 182 SEAICE_INIT_VARIA 
          IF(mask_uice.GT.1.5 _d 0) seaiceMaskV(i,j,bi,bj)=1.0 _d 0
./pkg/seaice/seaice_init_varia.F 184 SEAICE_INIT_VARIA 
          UVM(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 197 SEAICE_INIT_VARIA 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_init_varia.F 199 SEAICE_INIT_VARIA 
          J_obc = OB_Js(i,bi,bj)
./pkg/seaice/seaice_init_varia.F 202 SEAICE_INIT_VARIA 
           seaiceMaskU(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 203 SEAICE_INIT_VARIA 
           seaiceMaskV(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 205 SEAICE_INIT_VARIA 
           UVM(i,J_obc,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 238 SEAICE_INIT_VARIA 
           DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 239 SEAICE_INIT_VARIA 
            UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 243 SEAICE_INIT_VARIA 
          i=1
./pkg/seaice/seaice_init_varia.F 245 SEAICE_INIT_VARIA 
           UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 249 SEAICE_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 250 SEAICE_INIT_VARIA 
           UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 258 SEAICE_INIT_VARIA 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 259 SEAICE_INIT_VARIA 
          TICE(i,j,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init_varia.F 262 SEAICE_INIT_VARIA 
           TICES(i,j,k,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init_varia.F 266 SEAICE_INIT_VARIA 
          AMASS      (i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 268 SEAICE_INIT_VARIA 
          seaiceMassC(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 269 SEAICE_INIT_VARIA 
          seaiceMassU(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 270 SEAICE_INIT_VARIA 
          seaiceMassV(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 312 SEAICE_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 313 SEAICE_INIT_VARIA 
           TMIX(i,j,bi,bj)=TICE(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 314 SEAICE_INIT_VARIA 
           HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 315 SEAICE_INIT_VARIA 
           UICE(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init_varia.F 316 SEAICE_INIT_VARIA 
           VICE(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init_varia.F 329 SEAICE_INIT_VARIA 
           DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 330 SEAICE_INIT_VARIA 
            HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F 340 SEAICE_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 341 SEAICE_INIT_VARIA 
           IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE
./pkg/seaice/seaice_init_varia.F 354 SEAICE_INIT_VARIA 
           DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 355 SEAICE_INIT_VARIA 
            AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F 356 SEAICE_INIT_VARIA 
            AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE)
./pkg/seaice/seaice_init_varia.F 357 SEAICE_INIT_VARIA 
            IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_init_varia.F 358 SEAICE_INIT_VARIA 
            IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_init_varia.F 368 SEAICE_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 369 SEAICE_INIT_VARIA 
           HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 382 SEAICE_INIT_VARIA 
           DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 383 SEAICE_INIT_VARIA 
            HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F 394 SEAICE_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 395 SEAICE_INIT_VARIA 
           HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)*
./pkg/seaice/seaice_init_varia.F 424 SEAICE_INIT_VARIA 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 425 SEAICE_INIT_VARIA 
          ZETA(i,j,bi,bj)   = HEFF(i,j,bi,bj)*(1.0 _d 11)
./pkg/seaice/seaice_init_varia.F 426 SEAICE_INIT_VARIA 
          ETA(i,j,bi,bj)    = ZETA(i,j,bi,bj)/SEAICE_eccen**2
./pkg/seaice/seaice_init_varia.F 427 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 428 SEAICE_INIT_VARIA 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_init_varia.F 42 SEAICE_INIT_VARIA 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_init_varia.F 430 SEAICE_INIT_VARIA 
          ZMIN(i,j,bi,bj)   = SEAICE_zetaMin
./pkg/seaice/seaice_init_varia.F 431 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 436 SEAICE_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 437 SEAICE_INIT_VARIA 
           sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_init_varia.F 438 SEAICE_INIT_VARIA 
     &                         + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow
./pkg/seaice/seaice_init_varia.F 68 SEAICE_INIT_VARIA 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 69 SEAICE_INIT_VARIA 
          HEFF(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 70 SEAICE_INIT_VARIA 
          AREA(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 71 SEAICE_INIT_VARIA 
          UICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 72 SEAICE_INIT_VARIA 
          VICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 74 SEAICE_INIT_VARIA 
          uIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 75 SEAICE_INIT_VARIA 
          vIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 76 SEAICE_INIT_VARIA 
          areaNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 77 SEAICE_INIT_VARIA 
          hEffNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 83 SEAICE_INIT_VARIA 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 84 SEAICE_INIT_VARIA 
           TICES(i,j,k,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 90 SEAICE_INIT_VARIA 
         DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_init_varia.F 91 SEAICE_INIT_VARIA 
          ETA (i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 92 SEAICE_INIT_VARIA 
          ZETA(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 93 SEAICE_INIT_VARIA 
          DRAGS(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 94 SEAICE_INIT_VARIA 
          DRAGA(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 95 SEAICE_INIT_VARIA 
          FORCEX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 96 SEAICE_INIT_VARIA 
          FORCEY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 97 SEAICE_INIT_VARIA 
          UICEC(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 98 SEAICE_INIT_VARIA 
          VICEC(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_lsr.F 1010 SEAICE_LSR 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_lsr.F 1011 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1012 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1050 SEAICE_LSR 
         DO i=0,sNx+1
./pkg/seaice/seaice_lsr.F 1113 SEAICE_LSR 
         DO i=1,sNx
./pkg/seaice/seaice_lsr.F 1116 SEAICE_LSR 
     &         *uIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1119 SEAICE_LSR 
     &         *vIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1132 SEAICE_LSR 
         DO i=0,sNx
./pkg/seaice/seaice_lsr.F 1138 SEAICE_LSR 
         DO i=1,sNx
./pkg/seaice/seaice_lsr.F 1144 SEAICE_LSR 
         DO i=1,sNx
./pkg/seaice/seaice_lsr.F 1150 SEAICE_LSR 
         DO i=1,sNx+1
./pkg/seaice/seaice_lsr.F 1225 SEAICE_LSR 
          hFacM = seaiceMaskU(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1226 SEAICE_LSR 
          hFacP = seaiceMaskU(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1231 SEAICE_LSR 
     &         - seaiceMaskU(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F 1280 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) )
./pkg/seaice/seaice_lsr.F 1282 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 1495 SEAICE_LSR 
          hFacM = seaiceMaskV(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1496 SEAICE_LSR 
          hFacP = seaiceMaskV(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 152 SEAICE_LSR 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_lsr.F 153 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 154 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1571 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j  ,bi,bj)+uIceC(i+1,  j,bi,bj) )
./pkg/seaice/seaice_lsr.F 1573 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 172 SEAICE_LSR 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_lsr.F 173 SEAICE_LSR 
           uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 174 SEAICE_LSR 
           vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 1760 SEAICE_LSR 
          DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_lsr.F 1768 SEAICE_LSR 
          DO i=0,sNx
./pkg/seaice/seaice_lsr.F 1779 SEAICE_LSR 
          DO i=1,sNx+1
./pkg/seaice/seaice_lsr.F 1814 SEAICE_LSR 
          DO i=1,sNx
./pkg/seaice/seaice_lsr.F 1816 SEAICE_LSR 
     &          ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj))
./pkg/seaice/seaice_lsr.F 1817 SEAICE_LSR 
     &            - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F 1818 SEAICE_LSR 
     &          + ( (vIceNm1(i,j,bi,bj)+vIceNm1(i,j+1,bi,bj))
./pkg/seaice/seaice_lsr.F 1819 SEAICE_LSR 
     &            - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F 1820 SEAICE_LSR 
           IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN
./pkg/seaice/seaice_lsr.F 1821 SEAICE_LSR 
            EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F 1822 SEAICE_LSR 
     &           ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F 1823 SEAICE_LSR 
     &           + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F 187 SEAICE_LSR 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_lsr.F 188 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 189 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 219 SEAICE_LSR 
         DO i=0,sNx+1
./pkg/seaice/seaice_lsr.F 275 SEAICE_LSR 
         DO i=1,sNx
./pkg/seaice/seaice_lsr.F 278 SEAICE_LSR 
     &         *uIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 281 SEAICE_LSR 
     &         *vIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 474 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) )
./pkg/seaice/seaice_lsr.F 476 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 58 SEAICE_LSR 
      INTEGER i, j, k, m, bi, bj, j1, j2, im, jm
./pkg/seaice/seaice_lsr.F 655 SEAICE_LSR 
          hFacM = seaiceMaskV(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 656 SEAICE_LSR 
          hFacP = seaiceMaskV(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 708 SEAICE_LSR 
          hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 732 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j  ,bi,bj)+uIceC(i+1,  j,bi,bj) )
./pkg/seaice/seaice_lsr.F 734 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 892 SEAICE_LSR 
      INTEGER i, j, k, m, bi, bj, j1, j2, im, jm
./pkg/seaice/seaice_lsr.F 975 SEAICE_LSR 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_lsr.F 976 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 977 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 995 SEAICE_LSR 
          DO i=1-OLx,sNx+OLx
./pkg/seaice/seaice_lsr.F 996 SEAICE_LSR 
           uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 997 SEAICE_LSR 
           vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_map_thsice.F 41 SEAICE_MAP_THSICE 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_map_thsice.F 46 SEAICE_MAP_THSICE 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_map_thsice.F 47 SEAICE_MAP_THSICE 
          AREA(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/seaice/seaice_map_thsice.F 48 SEAICE_MAP_THSICE 
          HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/seaice/seaice_model.F 100 SEAICE_MODEL 
           HSALT(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 114 SEAICE_MODEL 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_model.F 115 SEAICE_MODEL 
          HEFFNM1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 116 SEAICE_MODEL 
          AREANM1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 117 SEAICE_MODEL 
          uIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 118 SEAICE_MODEL 
          vIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 60 SEAICE_MODEL 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_model.F 92 SEAICE_MODEL 
         DO i=1-Olx,sNx+Olx
./pkg/seaice/seaice_model.F 93 SEAICE_MODEL 
          IF ( (heff(i,j,bi,bj).EQ.0.)
./pkg/seaice/seaice_model.F 94 SEAICE_MODEL 
     &     .OR.(area(i,j,bi,bj).EQ.0.)
./pkg/seaice/seaice_model.F 96 SEAICE_MODEL 
           HEFF(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 97 SEAICE_MODEL 
           AREA(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 98 SEAICE_MODEL 
           HSNOW(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_monitor.F 44 SEAICE_MONITOR 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_monitor.F 62 SEAICE_MONITOR 
            DO i = 1,MAX_LEN_MBUF
./pkg/seaice/seaice_monitor.F 63 SEAICE_MONITOR 
              mon_fname(i:i) = ' '
./pkg/seaice/seaice_ocean_stress.F 40 SEAICE_OCEAN_STRESS 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_ocean_stress.F 88 SEAICE_OCEAN_STRESS 
         DO i=1,sNx
./pkg/seaice/seaice_output.F 156 SEAICE_OUTPUT 
          DO i=1,sNx
./pkg/seaice/seaice_output.F 158 SEAICE_OUTPUT 
           FUtave(i,j,bi,bj)   =
./pkg/seaice/seaice_output.F 159 SEAICE_OUTPUT 
     &         FUtave(i,j,bi,bj)   +FU(i,j,bi,bj)    *deltaTclock
./pkg/seaice/seaice_output.F 160 SEAICE_OUTPUT 
           FVtave(i,j,bi,bj)   =
./pkg/seaice/seaice_output.F 161 SEAICE_OUTPUT 
     &         FVtave(i,j,bi,bj)   +FV(i,j,bi,bj)    *deltaTclock
./pkg/seaice/seaice_output.F 162 SEAICE_OUTPUT 
           EmPmRtave(i,j,bi,bj)=
./pkg/seaice/seaice_output.F 163 SEAICE_OUTPUT 
     &         EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_output.F 164 SEAICE_OUTPUT 
           QNETtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 165 SEAICE_OUTPUT 
     &         QNETtave(i,j,bi,bj) +QNET(i,j,bi,bj)  *deltaTclock
./pkg/seaice/seaice_output.F 166 SEAICE_OUTPUT 
           QSWtave(i,j,bi,bj)  =
./pkg/seaice/seaice_output.F 167 SEAICE_OUTPUT 
     &         QSWtave(i,j,bi,bj)  +QSW(i,j,bi,bj)   *deltaTclock
./pkg/seaice/seaice_output.F 168 SEAICE_OUTPUT 
           UICEtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 169 SEAICE_OUTPUT 
     &         UICEtave(i,j,bi,bj) +UICE(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 170 SEAICE_OUTPUT 
           VICEtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 171 SEAICE_OUTPUT 
     &         VICEtave(i,j,bi,bj) +VICE(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 172 SEAICE_OUTPUT 
           HEFFtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 173 SEAICE_OUTPUT 
     &         HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 174 SEAICE_OUTPUT 
           AREAtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 175 SEAICE_OUTPUT 
     &         AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 56 SEAICE_OUTPUT 
      INTEGER i, j, bi, bj
./pkg/shap_filt/shap_filt_apply_uv.F 136 SHAP_FILT_APPLY_UV 
                  DO i=1,sNx
./pkg/shap_filt/shap_filt_apply_uv.F 137 SHAP_FILT_APPLY_UV 
                  dKE_shap(i,j) = 0.25*(
./pkg/shap_filt/shap_filt_apply_uv.F 139 SHAP_FILT_APPLY_UV 
     &               Shap_tmpFld1(i  ,j,k,bi,bj)*uFld(i  ,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 140 SHAP_FILT_APPLY_UV 
     &                *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 141 SHAP_FILT_APPLY_UV 
     &              +Shap_tmpFld1(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 142 SHAP_FILT_APPLY_UV 
     &                *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 145 SHAP_FILT_APPLY_UV 
     &               Shap_tmpFld2(i,j  ,k,bi,bj)*vFld(i,j  ,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 146 SHAP_FILT_APPLY_UV 
     &                *_hFacS(i,j  ,k,bi,bj)*rAs(i,j  ,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 147 SHAP_FILT_APPLY_UV 
     &              +Shap_tmpFld2(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 148 SHAP_FILT_APPLY_UV 
     &                *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 149 SHAP_FILT_APPLY_UV 
     &             )                   ) * recip_rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 60 SHAP_FILT_APPLY_UV 
      INTEGER bi, bj, k, i, j
./pkg/shap_filt/shap_filt_computvort.F 103 SHAP_FILT_COMPUTVORT 
           i=1
./pkg/shap_filt/shap_filt_computvort.F 105 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 106 SHAP_FILT_COMPUTVORT 
     &            +maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 108 SHAP_FILT_COMPUTVORT 
             vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 109 SHAP_FILT_COMPUTVORT 
     &          (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F 110 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F 112 SHAP_FILT_COMPUTVORT 
             vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F 117 SHAP_FILT_COMPUTVORT 
           i=sNx+1
./pkg/shap_filt/shap_filt_computvort.F 119 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 120 SHAP_FILT_COMPUTVORT 
     &                               +maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 123 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 124 SHAP_FILT_COMPUTVORT 
     &          (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F 126 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 127 SHAP_FILT_COMPUTVORT 
     &          (-vFld(i-1,j) +uFld(i,j-1) ) -uFld(i,j)
./pkg/shap_filt/shap_filt_computvort.F 129 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 130 SHAP_FILT_COMPUTVORT 
     &          (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j)
./pkg/shap_filt/shap_filt_computvort.F 132 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F 134 SHAP_FILT_COMPUTVORT 
             vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F 139 SHAP_FILT_COMPUTVORT 
           i=1
./pkg/shap_filt/shap_filt_computvort.F 141 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 142 SHAP_FILT_COMPUTVORT 
     &            +maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 145 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 146 SHAP_FILT_COMPUTVORT 
     &          (+uFld(i,j-1) +vFld(i,j) ) -uFld(i,j)
./pkg/shap_filt/shap_filt_computvort.F 148 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 149 SHAP_FILT_COMPUTVORT 
     &          (-uFld(i,j) +uFld(i,j-1) ) +vFld(i,j)
./pkg/shap_filt/shap_filt_computvort.F 151 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 152 SHAP_FILT_COMPUTVORT 
     &          (+vFld(i,j) -uFld(i,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F 154 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F 156 SHAP_FILT_COMPUTVORT 
             vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F 161 SHAP_FILT_COMPUTVORT 
           i=sNx+1
./pkg/shap_filt/shap_filt_computvort.F 163 SHAP_FILT_COMPUTVORT 
           maskZ = maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 164 SHAP_FILT_COMPUTVORT 
     &                               +maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_computvort.F 167 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 168 SHAP_FILT_COMPUTVORT 
     &          (-uFld(i,j) -vFld(i-1,j) ) +uFld(i,j-1)
./pkg/shap_filt/shap_filt_computvort.F 170 SHAP_FILT_COMPUTVORT 
              vort(i,j)=
./pkg/shap_filt/shap_filt_computvort.F 171 SHAP_FILT_COMPUTVORT 
     &          (+uFld(i,j-1) -uFld(i,j) ) -vFld(i-1,j)
./pkg/shap_filt/shap_filt_computvort.F 173 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F 175 SHAP_FILT_COMPUTVORT 
             vort(i,j)=0.
./pkg/shap_filt/shap_filt_computvort.F 51 SHAP_FILT_COMPUTVORT 
      INTEGER i,j
./pkg/shap_filt/shap_filt_computvort.F 64 SHAP_FILT_COMPUTVORT 
        DO i=1-Olx,sNx+Olx
./pkg/shap_filt/shap_filt_computvort.F 65 SHAP_FILT_COMPUTVORT 
          vort(i,j)= 0.
./pkg/shap_filt/shap_filt_computvort.F 72 SHAP_FILT_COMPUTVORT 
        DO i=2-Olx,sNx+Olx
./pkg/shap_filt/shap_filt_computvort.F 73 SHAP_FILT_COMPUTVORT 
          vort(i,j) = ( vFld(i,j)-vFld(i-1,j) )
./pkg/shap_filt/shap_filt_computvort.F 74 SHAP_FILT_COMPUTVORT 
     &              - ( uFld(i,j)-uFld(i,j-1) )
./pkg/shap_filt/shap_filt_computvort.F 75 SHAP_FILT_COMPUTVORT 
          maskZ = (maskW(i,j,k,bi,bj)+maskW(i,j-1,k,bi,bj))
./pkg/shap_filt/shap_filt_computvort.F 76 SHAP_FILT_COMPUTVORT 
     &           *(maskS(i,j,k,bi,bj)+maskS(i-1,j,k,bi,bj))
./pkg/shap_filt/shap_filt_computvort.F 77 SHAP_FILT_COMPUTVORT 
          IF (maskZ.LT.1.) vort(i,j)=0.
./pkg/shap_filt/shap_filt_relvort3.F 40 SHAP_FILT_RELVORT3 
      INTEGER i,j
./pkg/shap_filt/shap_filt_tracer_s1.F 111 SHAP_FILT_TRACER_S1 
            tmpScal=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 112 SHAP_FILT_TRACER_S1 
            field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 113 SHAP_FILT_TRACER_S1 
     &          -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s1.F 114 SHAP_FILT_TRACER_S1 
            tmpFld(i,j,k,bi,bj)=tmpScal
./pkg/shap_filt/shap_filt_tracer_s1.F 138 SHAP_FILT_TRACER_S1 
             tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s1.F 139 SHAP_FILT_TRACER_S1 
     &        ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 140 SHAP_FILT_TRACER_S1 
     &            *_maskS(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 141 SHAP_FILT_TRACER_S1 
     &       -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 142 SHAP_FILT_TRACER_S1 
     &            *_maskS(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 148 SHAP_FILT_TRACER_S1 
             tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s1.F 164 SHAP_FILT_TRACER_S1 
            field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 165 SHAP_FILT_TRACER_S1 
     &          -0.5*tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s1.F 61 SHAP_FILT_TRACER_S1 
             tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 85 SHAP_FILT_TRACER_S1 
             tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s1.F 86 SHAP_FILT_TRACER_S1 
     &        ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 87 SHAP_FILT_TRACER_S1 
     &            *_maskW(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 88 SHAP_FILT_TRACER_S1 
     &       -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 89 SHAP_FILT_TRACER_S1 
     &            *_maskW(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 95 SHAP_FILT_TRACER_S1 
             tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 125 SHAP_FILT_TRACER_S2 
              DO i=0,sNx+2
./pkg/shap_filt/shap_filt_tracer_s2.F 126 SHAP_FILT_TRACER_S2 
               tmpFdx(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F 127 SHAP_FILT_TRACER_S2 
     &            ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F 128 SHAP_FILT_TRACER_S2 
     &                     *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 134 SHAP_FILT_TRACER_S2 
              DO i=0,sNx+2
./pkg/shap_filt/shap_filt_tracer_s2.F 135 SHAP_FILT_TRACER_S2 
               tmpFdx(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F 136 SHAP_FILT_TRACER_S2 
     &            ( tmpFld(i,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F 137 SHAP_FILT_TRACER_S2 
     &                     *_hFacW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 138 SHAP_FILT_TRACER_S2 
     &                     *dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 156 SHAP_FILT_TRACER_S2 
              DO i=0,sNx+1
./pkg/shap_filt/shap_filt_tracer_s2.F 157 SHAP_FILT_TRACER_S2 
               tmpFdy(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F 158 SHAP_FILT_TRACER_S2 
     &            ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F 159 SHAP_FILT_TRACER_S2 
     &                     *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 165 SHAP_FILT_TRACER_S2 
              DO i=0,sNx+1
./pkg/shap_filt/shap_filt_tracer_s2.F 166 SHAP_FILT_TRACER_S2 
               tmpFdy(i,j) =
./pkg/shap_filt/shap_filt_tracer_s2.F 167 SHAP_FILT_TRACER_S2 
     &            ( tmpFld(i,j,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s2.F 168 SHAP_FILT_TRACER_S2 
     &                     *_hFacS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 169 SHAP_FILT_TRACER_S2 
     &                     *dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 176 SHAP_FILT_TRACER_S2 
             DO i=0,sNx+1
./pkg/shap_filt/shap_filt_tracer_s2.F 177 SHAP_FILT_TRACER_S2 
               tmpGrd(i,j) = ( tmpFdx(i+1,j) - tmpFdx(i,j) )
./pkg/shap_filt/shap_filt_tracer_s2.F 178 SHAP_FILT_TRACER_S2 
     &                     + ( tmpFdy(i,j+1) - tmpFdy(i,j) )
./pkg/shap_filt/shap_filt_tracer_s2.F 185 SHAP_FILT_TRACER_S2 
              DO i=0,sNx+1
./pkg/shap_filt/shap_filt_tracer_s2.F 186 SHAP_FILT_TRACER_S2 
               tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 192 SHAP_FILT_TRACER_S2 
              DO i=0,sNx+1
./pkg/shap_filt/shap_filt_tracer_s2.F 193 SHAP_FILT_TRACER_S2 
               tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 194 SHAP_FILT_TRACER_S2 
     &             *recip_hFacC(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 199 SHAP_FILT_TRACER_S2 
              DO i=0,sNx+1
./pkg/shap_filt/shap_filt_tracer_s2.F 200 SHAP_FILT_TRACER_S2 
               tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 201 SHAP_FILT_TRACER_S2 
     &             *recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 220 SHAP_FILT_TRACER_S2 
           DO i=1,sNx
./pkg/shap_filt/shap_filt_tracer_s2.F 221 SHAP_FILT_TRACER_S2 
            field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 222 SHAP_FILT_TRACER_S2 
     &            -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s2.F 223 SHAP_FILT_TRACER_S2 
            tmpFld(i,j,k,bi,bj)= -tmpFld(i,j,k,bi,bj)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s2.F 61 SHAP_FILT_TRACER_S2 
      INTEGER bi,bj,k,i,j,n
./pkg/shap_filt/shap_filt_tracer_s2.F 82 SHAP_FILT_TRACER_S2 
            DO i=1-Olx,sNx+Olx
./pkg/shap_filt/shap_filt_tracer_s2.F 83 SHAP_FILT_TRACER_S2 
             tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F 110 SHAP_FILT_TRACER_S4 
            field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F 111 SHAP_FILT_TRACER_S4 
     &              -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s4.F 112 SHAP_FILT_TRACER_S4 
            tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F 136 SHAP_FILT_TRACER_S4 
             tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s4.F 137 SHAP_FILT_TRACER_S4 
     &        ( tmpFld(i,j+1,k,bi,bj)-tmpFld(i, j ,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F 138 SHAP_FILT_TRACER_S4 
     &            *_maskS(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F 139 SHAP_FILT_TRACER_S4 
     &       -( tmpFld(i, j ,k,bi,bj)-tmpFld(i,j-1,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F 140 SHAP_FILT_TRACER_S4 
     &            *_maskS(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F 146 SHAP_FILT_TRACER_S4 
             tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s4.F 162 SHAP_FILT_TRACER_S4 
            field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F 163 SHAP_FILT_TRACER_S4 
     &              -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s4.F 60 SHAP_FILT_TRACER_S4 
             tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F 84 SHAP_FILT_TRACER_S4 
             tmpGrd(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_tracer_s4.F 85 SHAP_FILT_TRACER_S4 
     &        ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F 86 SHAP_FILT_TRACER_S4 
     &            *_maskW(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s4.F 87 SHAP_FILT_TRACER_S4 
     &       -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F 88 SHAP_FILT_TRACER_S4 
     &            *_maskW(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s4.F 94 SHAP_FILT_TRACER_S4 
             tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracerold.F 38 SHAP_FILT_TRACEROLD 
        tmpFldX(i,j,1) = field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F 48 SHAP_FILT_TRACEROLD 
         tmpFldX(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_tracerold.F 49 SHAP_FILT_TRACEROLD 
     &    ( tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1) )
./pkg/shap_filt/shap_filt_tracerold.F 50 SHAP_FILT_TRACEROLD 
     &        *_maskW(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F 51 SHAP_FILT_TRACEROLD 
     &   -( tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1) )
./pkg/shap_filt/shap_filt_tracerold.F 52 SHAP_FILT_TRACEROLD 
     &        *_maskW(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracerold.F 60 SHAP_FILT_TRACEROLD 
        tmpFldX(i,j,N2) = field(i,j,k,bi,bj) - tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_tracerold.F 61 SHAP_FILT_TRACEROLD 
        tmpFldY(i,j,1) = tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_tracerold.F 67 SHAP_FILT_TRACEROLD 
        tmpFldY(i,j,1) = field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F 78 SHAP_FILT_TRACEROLD 
         tmpFldY(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_tracerold.F 79 SHAP_FILT_TRACEROLD 
     &    ( tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1) )
./pkg/shap_filt/shap_filt_tracerold.F 80 SHAP_FILT_TRACEROLD 
     &        *_maskS(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F 81 SHAP_FILT_TRACEROLD 
     &   -( tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1) )
./pkg/shap_filt/shap_filt_tracerold.F 82 SHAP_FILT_TRACEROLD 
     &        *_maskS(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracerold.F 91 SHAP_FILT_TRACEROLD 
        field(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2)
./pkg/shap_filt/shap_filt_tracerold.F 97 SHAP_FILT_TRACEROLD 
        field(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracerold.F 98 SHAP_FILT_TRACEROLD 
     &    -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) )
./pkg/shap_filt/shap_filt_u.F 101 SHAP_FILT_U 
        uVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2)
./pkg/shap_filt/shap_filt_u.F 107 SHAP_FILT_U 
        uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 108 SHAP_FILT_U 
     &    -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) )
./pkg/shap_filt/shap_filt_u.F 37 SHAP_FILT_U 
        tmpFldX(i,j,1) = uVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 38 SHAP_FILT_U 
     &                   *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 48 SHAP_FILT_U 
         tmpFldX(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_u.F 49 SHAP_FILT_U 
     &          tmpFldX(i-1,j,N1) + tmpFldX(i+1,j,N1)
./pkg/shap_filt/shap_filt_u.F 50 SHAP_FILT_U 
     &             - 2.*tmpFldX(i,j,N1)
./pkg/shap_filt/shap_filt_u.F 51 SHAP_FILT_U 
     &            )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 59 SHAP_FILT_U 
        maskZ(i,j) = _maskS(i-1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 60 SHAP_FILT_U 
     &              *_maskS( i ,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 67 SHAP_FILT_U 
        tmpFldX(i,j,N2) = uVel(i,j,k,bi,bj) - tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_u.F 68 SHAP_FILT_U 
        tmpFldY(i,j,1) = tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_u.F 74 SHAP_FILT_U 
        tmpFldY(i,j,1) = uVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 75 SHAP_FILT_U 
     &                   *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_u.F 86 SHAP_FILT_U 
         tmpFldY(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_u.F 87 SHAP_FILT_U 
     &    (tmpFldY(i,j+1,N1)-tmpFldY(i, j ,N1))*maskZ(i,j+1)
./pkg/shap_filt/shap_filt_u.F 88 SHAP_FILT_U 
     &   -(tmpFldY(i, j ,N1)-tmpFldY(i,j-1,N1))*maskZ(i, j )
./pkg/shap_filt/shap_filt_u.F 90 SHAP_FILT_U 
     &   -2.*(2.-maskZ(i,j)-maskZ(i,j+1))*tmpFldY(i,j,N1)
./pkg/shap_filt/shap_filt_u.F 92 SHAP_FILT_U 
     &         )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 100 SHAP_FILT_UV_S1 
     &             - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 101 SHAP_FILT_UV_S1 
     &            )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 107 SHAP_FILT_UV_S1 
             tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F 114 SHAP_FILT_UV_S1 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 115 SHAP_FILT_UV_S1 
     &          tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 116 SHAP_FILT_UV_S1 
     &             - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 117 SHAP_FILT_UV_S1 
     &            )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 123 SHAP_FILT_UV_S1 
             tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F 139 SHAP_FILT_UV_S1 
            tmpScal = uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 140 SHAP_FILT_UV_S1 
            uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 141 SHAP_FILT_UV_S1 
     &         -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F 142 SHAP_FILT_UV_S1 
            tmpFldU(i,j,k,bi,bj) = tmpScal*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 147 SHAP_FILT_UV_S1 
            tmpScal = vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 148 SHAP_FILT_UV_S1 
            vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 149 SHAP_FILT_UV_S1 
     &         -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F 150 SHAP_FILT_UV_S1 
            tmpFldV(i,j,k,bi,bj) = tmpScal*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 175 SHAP_FILT_UV_S1 
             maskZj=_maskS(i-1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 176 SHAP_FILT_UV_S1 
     &             *_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 177 SHAP_FILT_UV_S1 
             maskZp=_maskS(i-1,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 178 SHAP_FILT_UV_S1 
     &             *_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 179 SHAP_FILT_UV_S1 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 180 SHAP_FILT_UV_S1 
     &        (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F 181 SHAP_FILT_UV_S1 
     &       -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F 182 SHAP_FILT_UV_S1 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 183 SHAP_FILT_UV_S1 
     &             )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 190 SHAP_FILT_UV_S1 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 191 SHAP_FILT_UV_S1 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 192 SHAP_FILT_UV_S1 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 193 SHAP_FILT_UV_S1 
     &        (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F 194 SHAP_FILT_UV_S1 
     &       -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F 195 SHAP_FILT_UV_S1 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 196 SHAP_FILT_UV_S1 
     &             )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 198 SHAP_FILT_UV_S1 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 199 SHAP_FILT_UV_S1 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 200 SHAP_FILT_UV_S1 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 201 SHAP_FILT_UV_S1 
     &        (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F 202 SHAP_FILT_UV_S1 
     &       -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F 203 SHAP_FILT_UV_S1 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 204 SHAP_FILT_UV_S1 
     &             )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 210 SHAP_FILT_UV_S1 
             tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F 217 SHAP_FILT_UV_S1 
             maskZj=_maskW( i ,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 218 SHAP_FILT_UV_S1 
     &             *_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 219 SHAP_FILT_UV_S1 
             maskZp=_maskW(i+1,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 220 SHAP_FILT_UV_S1 
     &             *_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 221 SHAP_FILT_UV_S1 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 222 SHAP_FILT_UV_S1 
     &        (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F 223 SHAP_FILT_UV_S1 
     &       -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F 224 SHAP_FILT_UV_S1 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 225 SHAP_FILT_UV_S1 
     &             )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 232 SHAP_FILT_UV_S1 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 233 SHAP_FILT_UV_S1 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 234 SHAP_FILT_UV_S1 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 235 SHAP_FILT_UV_S1 
     &        (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F 236 SHAP_FILT_UV_S1 
     &       -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F 237 SHAP_FILT_UV_S1 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 238 SHAP_FILT_UV_S1 
     &             )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 240 SHAP_FILT_UV_S1 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 241 SHAP_FILT_UV_S1 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 242 SHAP_FILT_UV_S1 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 243 SHAP_FILT_UV_S1 
     &        (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s1.F 244 SHAP_FILT_UV_S1 
     &       -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s1.F 245 SHAP_FILT_UV_S1 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 246 SHAP_FILT_UV_S1 
     &             )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 252 SHAP_FILT_UV_S1 
             tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s1.F 268 SHAP_FILT_UV_S1 
            uFld(i,j,k,bi,bj) = uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 269 SHAP_FILT_UV_S1 
     &         -0.5*tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F 274 SHAP_FILT_UV_S1 
            vFld(i,j,k,bi,bj) = vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 275 SHAP_FILT_UV_S1 
     &         -0.5*tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s1.F 53 SHAP_FILT_UV_S1 
      INTEGER bi,bj,k,i,j,N
./pkg/shap_filt/shap_filt_uv_s1.F 70 SHAP_FILT_UV_S1 
             tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 71 SHAP_FILT_UV_S1 
     &                *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 72 SHAP_FILT_UV_S1 
             tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 73 SHAP_FILT_UV_S1 
     &                *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s1.F 98 SHAP_FILT_UV_S1 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s1.F 99 SHAP_FILT_UV_S1 
     &          tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 138 SHAP_FILT_UV_S2 
            DO i=1-Olx,sNx+Olx-1
./pkg/shap_filt/shap_filt_uv_s2.F 139 SHAP_FILT_UV_S2 
             hDiv(i,j)=(tmpFldU(i+1,j,k,bi,bj)-tmpFldU(i,j,k,bi,bj))
./pkg/shap_filt/shap_filt_uv_s2.F 140 SHAP_FILT_UV_S2 
     &                +(tmpFldV(i,j+1,k,bi,bj)-tmpFldV(i,j,k,bi,bj))
./pkg/shap_filt/shap_filt_uv_s2.F 155 SHAP_FILT_UV_S2 
              DO i=1-Olx,sNx+Olx-1
./pkg/shap_filt/shap_filt_uv_s2.F 156 SHAP_FILT_UV_S2 
                hDiv(i,j) = hDiv(i,j) * rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 160 SHAP_FILT_UV_S2 
              DO i=2-Olx,sNx+Olx
./pkg/shap_filt/shap_filt_uv_s2.F 161 SHAP_FILT_UV_S2 
                vort3(i,j)= vort3(i,j)*rAz(i,j,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 172 SHAP_FILT_UV_S2 
             DO i=2-Olx,sNx+Olx-1
./pkg/shap_filt/shap_filt_uv_s2.F 173 SHAP_FILT_UV_S2 
              tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 174 SHAP_FILT_UV_S2 
     &                                          *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 175 SHAP_FILT_UV_S2 
              tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 176 SHAP_FILT_UV_S2 
     &                                          *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 181 SHAP_FILT_UV_S2 
             DO i=2-Olx,sNx+Olx-1
./pkg/shap_filt/shap_filt_uv_s2.F 182 SHAP_FILT_UV_S2 
              tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 183 SHAP_FILT_UV_S2 
     &                            *rAw(i,j,bi,bj)*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 184 SHAP_FILT_UV_S2 
              tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 185 SHAP_FILT_UV_S2 
     &                            *rAs(i,j,bi,bj)*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 190 SHAP_FILT_UV_S2 
             DO i=2-Olx,sNx+Olx-1
./pkg/shap_filt/shap_filt_uv_s2.F 191 SHAP_FILT_UV_S2 
              tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 192 SHAP_FILT_UV_S2 
     &               *Shap_uvLength*Shap_uvLength*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 193 SHAP_FILT_UV_S2 
              tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 194 SHAP_FILT_UV_S2 
     &               *Shap_uvLength*Shap_uvLength*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 209 SHAP_FILT_UV_S2 
            DO i=2-Olx,sNx+Olx-1
./pkg/shap_filt/shap_filt_uv_s2.F 210 SHAP_FILT_UV_S2 
             tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*
./pkg/shap_filt/shap_filt_uv_s2.F 211 SHAP_FILT_UV_S2 
     &                   ( (hDiv(i,j) - hDiv(i-1,j))
./pkg/shap_filt/shap_filt_uv_s2.F 212 SHAP_FILT_UV_S2 
     &                    -(vort3(i,j+1)-vort3(i,j))
./pkg/shap_filt/shap_filt_uv_s2.F 213 SHAP_FILT_UV_S2 
     &                   )*maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 225 SHAP_FILT_UV_S2 
            DO i=2-Olx,sNx+Olx-1
./pkg/shap_filt/shap_filt_uv_s2.F 226 SHAP_FILT_UV_S2 
             tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*
./pkg/shap_filt/shap_filt_uv_s2.F 227 SHAP_FILT_UV_S2 
     &                   ( (hDiv(i,j) - hDiv(i,j-1))
./pkg/shap_filt/shap_filt_uv_s2.F 228 SHAP_FILT_UV_S2 
     &                    +(vort3(i+1,j)-vort3(i,j))
./pkg/shap_filt/shap_filt_uv_s2.F 229 SHAP_FILT_UV_S2 
     &                   )*maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 249 SHAP_FILT_UV_S2 
           DO i=1,sNx+1
./pkg/shap_filt/shap_filt_uv_s2.F 250 SHAP_FILT_UV_S2 
            uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 251 SHAP_FILT_UV_S2 
     &                  -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F 252 SHAP_FILT_UV_S2 
            tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F 256 SHAP_FILT_UV_S2 
           DO i=1,sNx
./pkg/shap_filt/shap_filt_uv_s2.F 257 SHAP_FILT_UV_S2 
            vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 258 SHAP_FILT_UV_S2 
     &                  -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F 259 SHAP_FILT_UV_S2 
            tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2.F 67 SHAP_FILT_UV_S2 
      INTEGER bi,bj,k,i,j,n
./pkg/shap_filt/shap_filt_uv_s2.F 79 SHAP_FILT_UV_S2 
           DO i=1-Olx,sNx+Olx
./pkg/shap_filt/shap_filt_uv_s2.F 80 SHAP_FILT_UV_S2 
            hDiv(i,j) = 0. _d 0
./pkg/shap_filt/shap_filt_uv_s2.F 89 SHAP_FILT_UV_S2 
            DO i=1-Olx,sNx+Olx
./pkg/shap_filt/shap_filt_uv_s2.F 90 SHAP_FILT_UV_S2 
             tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 91 SHAP_FILT_UV_S2 
     &                *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 92 SHAP_FILT_UV_S2 
             tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 93 SHAP_FILT_UV_S2 
     &                *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 100 SHAP_FILT_UV_S2C 
             maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 101 SHAP_FILT_UV_S2C 
             maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 102 SHAP_FILT_UV_S2C 
             tmpGrdU(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F 103 SHAP_FILT_UV_S2C 
     &         tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 104 SHAP_FILT_UV_S2C 
     &             - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 105 SHAP_FILT_UV_S2C 
     &       +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F 106 SHAP_FILT_UV_S2C 
     &       -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F 107 SHAP_FILT_UV_S2C 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 112 SHAP_FILT_UV_S2C 
            DO i=1,sNx+1,sNx
./pkg/shap_filt/shap_filt_uv_s2c.F 114 SHAP_FILT_UV_S2C 
             maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 115 SHAP_FILT_UV_S2C 
             maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 116 SHAP_FILT_UV_S2C 
             tmpGrdU(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F 117 SHAP_FILT_UV_S2C 
     &         tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 118 SHAP_FILT_UV_S2C 
     &             - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 119 SHAP_FILT_UV_S2C 
     &       +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F 120 SHAP_FILT_UV_S2C 
     &       -(tmpFldU(i,j,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F 121 SHAP_FILT_UV_S2C 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 123 SHAP_FILT_UV_S2C 
             maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 124 SHAP_FILT_UV_S2C 
             maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 125 SHAP_FILT_UV_S2C 
             tmpGrdU(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F 126 SHAP_FILT_UV_S2C 
     &         tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 127 SHAP_FILT_UV_S2C 
     &             - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 128 SHAP_FILT_UV_S2C 
     &       +(0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F 129 SHAP_FILT_UV_S2C 
     &       -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F 130 SHAP_FILT_UV_S2C 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 135 SHAP_FILT_UV_S2C 
            DO i=1,sNx+1
./pkg/shap_filt/shap_filt_uv_s2c.F 136 SHAP_FILT_UV_S2C 
             tmpFldU(i,j,k,bi,bj) =
./pkg/shap_filt/shap_filt_uv_s2c.F 137 SHAP_FILT_UV_S2C 
     &        -0.125 _d 0*tmpGrdU(i,j)*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 143 SHAP_FILT_UV_S2C 
            DO i=1,sNx
./pkg/shap_filt/shap_filt_uv_s2c.F 144 SHAP_FILT_UV_S2C 
             maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 145 SHAP_FILT_UV_S2C 
             maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 146 SHAP_FILT_UV_S2C 
             tmpGrdV(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F 147 SHAP_FILT_UV_S2C 
     &         tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 148 SHAP_FILT_UV_S2C 
     &             - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 149 SHAP_FILT_UV_S2C 
     &       +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F 150 SHAP_FILT_UV_S2C 
     &       -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F 151 SHAP_FILT_UV_S2C 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 157 SHAP_FILT_UV_S2C 
            i=1
./pkg/shap_filt/shap_filt_uv_s2c.F 158 SHAP_FILT_UV_S2C 
             maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 159 SHAP_FILT_UV_S2C 
             maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 160 SHAP_FILT_UV_S2C 
             tmpGrdV(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F 161 SHAP_FILT_UV_S2C 
     &         tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 162 SHAP_FILT_UV_S2C 
     &             - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 163 SHAP_FILT_UV_S2C 
     &       +(tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F 164 SHAP_FILT_UV_S2C 
     &       -(tmpFldV(i,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F 165 SHAP_FILT_UV_S2C 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 166 SHAP_FILT_UV_S2C 
            i=sNx
./pkg/shap_filt/shap_filt_uv_s2c.F 167 SHAP_FILT_UV_S2C 
             maskZj=_maskW( i ,j-1,k,bi,bj)*_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 168 SHAP_FILT_UV_S2C 
             maskZp=_maskW(i+1,j-1,k,bi,bj)*_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 169 SHAP_FILT_UV_S2C 
             tmpGrdV(i,j) =
./pkg/shap_filt/shap_filt_uv_s2c.F 170 SHAP_FILT_UV_S2C 
     &         tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 171 SHAP_FILT_UV_S2C 
     &             - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 172 SHAP_FILT_UV_S2C 
     &       +(0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV(i,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F 173 SHAP_FILT_UV_S2C 
     &       -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F 174 SHAP_FILT_UV_S2C 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 179 SHAP_FILT_UV_S2C 
            DO i=1,sNx
./pkg/shap_filt/shap_filt_uv_s2c.F 180 SHAP_FILT_UV_S2C 
             tmpFldV(i,j,k,bi,bj) =
./pkg/shap_filt/shap_filt_uv_s2c.F 181 SHAP_FILT_UV_S2C 
     &        -0.125 _d 0*tmpGrdV(i,j)*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 199 SHAP_FILT_UV_S2C 
           DO i=1,sNx+1
./pkg/shap_filt/shap_filt_uv_s2c.F 200 SHAP_FILT_UV_S2C 
            uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 201 SHAP_FILT_UV_S2C 
     &                  -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F 202 SHAP_FILT_UV_S2C 
            tmpFldU(i,j,k,bi,bj)= -tmpFldU(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F 206 SHAP_FILT_UV_S2C 
           DO i=1,sNx
./pkg/shap_filt/shap_filt_uv_s2c.F 207 SHAP_FILT_UV_S2C 
            vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 208 SHAP_FILT_UV_S2C 
     &                  -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F 209 SHAP_FILT_UV_S2C 
            tmpFldV(i,j,k,bi,bj)= -tmpFldV(i,j,k,bi,bj)/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s2c.F 53 SHAP_FILT_UV_S2C 
      INTEGER bi,bj,k,i,j,N
./pkg/shap_filt/shap_filt_uv_s2c.F 68 SHAP_FILT_UV_S2C 
            DO i=1-OLx,sNx+OLx
./pkg/shap_filt/shap_filt_uv_s2c.F 69 SHAP_FILT_UV_S2C 
             tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 70 SHAP_FILT_UV_S2C 
     &                *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 71 SHAP_FILT_UV_S2C 
             tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 72 SHAP_FILT_UV_S2C 
     &                *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 99 SHAP_FILT_UV_S2C 
            DO i=1,sNx+1
./pkg/shap_filt/shap_filt_uv_s4.F 100 SHAP_FILT_UV_S4 
     &            )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 106 SHAP_FILT_UV_S4 
             tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F 113 SHAP_FILT_UV_S4 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 114 SHAP_FILT_UV_S4 
     &          tmpFldV(i,j-1,k,bi,bj) + tmpFldV(i,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 115 SHAP_FILT_UV_S4 
     &             - 2.*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 116 SHAP_FILT_UV_S4 
     &            )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 122 SHAP_FILT_UV_S4 
             tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F 138 SHAP_FILT_UV_S4 
            uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 139 SHAP_FILT_UV_S4 
     &             -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F 140 SHAP_FILT_UV_S4 
            tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 145 SHAP_FILT_UV_S4 
            vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 146 SHAP_FILT_UV_S4 
     &             -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F 147 SHAP_FILT_UV_S4 
            tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 172 SHAP_FILT_UV_S4 
             maskZj=_maskS(i-1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 173 SHAP_FILT_UV_S4 
     &             *_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 174 SHAP_FILT_UV_S4 
             maskZp=_maskS(i-1,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 175 SHAP_FILT_UV_S4 
     &             *_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 176 SHAP_FILT_UV_S4 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 177 SHAP_FILT_UV_S4 
     &        (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F 178 SHAP_FILT_UV_S4 
     &       -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F 179 SHAP_FILT_UV_S4 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 180 SHAP_FILT_UV_S4 
     &             )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 187 SHAP_FILT_UV_S4 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 188 SHAP_FILT_UV_S4 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 189 SHAP_FILT_UV_S4 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 190 SHAP_FILT_UV_S4 
     &        (tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F 191 SHAP_FILT_UV_S4 
     &       -(tmpFldU(i, j ,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F 192 SHAP_FILT_UV_S4 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 193 SHAP_FILT_UV_S4 
     &             )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 197 SHAP_FILT_UV_S4 
             maskZj=maskS(i-1, j ,k,bi,bj)*maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 198 SHAP_FILT_UV_S4 
             maskZp=maskS(i-1,j+1,k,bi,bj)*maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 199 SHAP_FILT_UV_S4 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 200 SHAP_FILT_UV_S4 
     &        (0*tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F 201 SHAP_FILT_UV_S4 
     &       -(tmpFldU(i, j ,k,bi,bj)-tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F 202 SHAP_FILT_UV_S4 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 203 SHAP_FILT_UV_S4 
     &             )*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 209 SHAP_FILT_UV_S4 
             tmpFldU(i,j,k,bi,bj) = tmpGrdU(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F 216 SHAP_FILT_UV_S4 
             maskZj=_maskW( i ,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 217 SHAP_FILT_UV_S4 
     &             *_maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 218 SHAP_FILT_UV_S4 
             maskZp=_maskW(i+1,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 219 SHAP_FILT_UV_S4 
     &             *_maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 220 SHAP_FILT_UV_S4 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 221 SHAP_FILT_UV_S4 
     &        (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F 222 SHAP_FILT_UV_S4 
     &       -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F 223 SHAP_FILT_UV_S4 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 224 SHAP_FILT_UV_S4 
     &             )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 231 SHAP_FILT_UV_S4 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 232 SHAP_FILT_UV_S4 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 233 SHAP_FILT_UV_S4 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 234 SHAP_FILT_UV_S4 
     &        (tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F 235 SHAP_FILT_UV_S4 
     &       -(tmpFldV( i ,j,k,bi,bj)-0*tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F 236 SHAP_FILT_UV_S4 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 237 SHAP_FILT_UV_S4 
     &       -2.*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 238 SHAP_FILT_UV_S4 
     &             )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 242 SHAP_FILT_UV_S4 
             maskZj=maskW( i ,j-1,k,bi,bj)*maskW( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 243 SHAP_FILT_UV_S4 
             maskZp=maskW(i+1,j-1,k,bi,bj)*maskW(i+1, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 244 SHAP_FILT_UV_S4 
             tmpGrdV(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 245 SHAP_FILT_UV_S4 
     &        (0*tmpFldV(i+1,j,k,bi,bj)-tmpFldV( i ,j,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s4.F 246 SHAP_FILT_UV_S4 
     &       -(tmpFldV( i ,j,k,bi,bj)-tmpFldV(i-1,j,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s4.F 247 SHAP_FILT_UV_S4 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 248 SHAP_FILT_UV_S4 
     &             )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 254 SHAP_FILT_UV_S4 
             tmpFldV(i,j,k,bi,bj) = tmpGrdV(i,j)
./pkg/shap_filt/shap_filt_uv_s4.F 270 SHAP_FILT_UV_S4 
            uFld(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 271 SHAP_FILT_UV_S4 
     &             -tmpFldU(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F 276 SHAP_FILT_UV_S4 
            vFld(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 277 SHAP_FILT_UV_S4 
     &             -tmpFldV(i,j,k,bi,bj)*deltaTmom/Shap_uvtau
./pkg/shap_filt/shap_filt_uv_s4.F 53 SHAP_FILT_UV_S4 
      INTEGER bi,bj,k,i,j,N
./pkg/shap_filt/shap_filt_uv_s4.F 69 SHAP_FILT_UV_S4 
             tmpFldU(i,j,k,bi,bj)=uFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 70 SHAP_FILT_UV_S4 
     &                *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 71 SHAP_FILT_UV_S4 
             tmpFldV(i,j,k,bi,bj)=vFld(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 72 SHAP_FILT_UV_S4 
     &                *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 97 SHAP_FILT_UV_S4 
             tmpGrdU(i,j) = -0.25*(
./pkg/shap_filt/shap_filt_uv_s4.F 98 SHAP_FILT_UV_S4 
     &          tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s4.F 99 SHAP_FILT_UV_S4 
     &             - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 101 SHAP_FILT_V 
        vVel(i,j,k,bi,bj) = tmpFldX(i,j,N2) - tmpFldY(i,j,N2)
./pkg/shap_filt/shap_filt_v.F 107 SHAP_FILT_V 
        vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 108 SHAP_FILT_V 
     &    -0.5*( tmpFldX(i,j,N2)+tmpFldY(i,j,N2) )
./pkg/shap_filt/shap_filt_v.F 38 SHAP_FILT_V 
        maskZ(i,j) = _maskW(i,j-1,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 39 SHAP_FILT_V 
     &              *_maskW(i, j ,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 45 SHAP_FILT_V 
        tmpFldX(i,j,1) = vVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 46 SHAP_FILT_V 
     &                   *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 56 SHAP_FILT_V 
         tmpFldX(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_v.F 57 SHAP_FILT_V 
     &    (tmpFldX(i+1,j,N1)-tmpFldX( i ,j,N1))*maskZ(i+1,j)
./pkg/shap_filt/shap_filt_v.F 58 SHAP_FILT_V 
     &   -(tmpFldX( i ,j,N1)-tmpFldX(i-1,j,N1))*maskZ( i ,j)
./pkg/shap_filt/shap_filt_v.F 60 SHAP_FILT_V 
     &   -2.*(2.-maskZ(i,j)-maskZ(i+1,j))*tmpFldX(i,j,N1)
./pkg/shap_filt/shap_filt_v.F 62 SHAP_FILT_V 
     &         )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 70 SHAP_FILT_V 
        tmpFldX(i,j,N2) = vVel(i,j,k,bi,bj) - tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_v.F 71 SHAP_FILT_V 
        tmpFldY(i,j,1) = tmpFldX(i,j,N2)
./pkg/shap_filt/shap_filt_v.F 77 SHAP_FILT_V 
        tmpFldY(i,j,1) = vVel(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 78 SHAP_FILT_V 
     &                   *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 89 SHAP_FILT_V 
         tmpFldY(i,j,N2) = -0.25*(
./pkg/shap_filt/shap_filt_v.F 90 SHAP_FILT_V 
     &          tmpFldY(i,j-1,N1) + tmpFldY(i,j+1,N1)
./pkg/shap_filt/shap_filt_v.F 91 SHAP_FILT_V 
     &             - 2.*tmpFldY(i,j,N1)
./pkg/shap_filt/shap_filt_v.F 92 SHAP_FILT_V 
     &            )*_maskS(i,j,k,bi,bj)
./model/src/dynamics.F 195 DYNAMICS 
      INTEGER i, j
./model/src/dynamics.F 307 DYNAMICS 
          DO i=1-OLx,sNx+OLx
./model/src/dynamics.F 308 DYNAMICS 
           KappaRU(i,j,k) = 0. _d 0
./model/src/dynamics.F 309 DYNAMICS 
           KappaRV(i,j,k) = 0. _d 0
./model/src/dynamics.F 313 DYNAMICS 
           gU(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 314 DYNAMICS 
           gV(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 320 DYNAMICS 
         DO i=1-OLx,sNx+OLx
./model/src/dynamics.F 321 DYNAMICS 
          fVerU  (i,j,1) = 0. _d 0
./model/src/dynamics.F 322 DYNAMICS 
          fVerU  (i,j,2) = 0. _d 0
./model/src/dynamics.F 323 DYNAMICS 
          fVerV  (i,j,1) = 0. _d 0
./model/src/dynamics.F 324 DYNAMICS 
          fVerV  (i,j,2) = 0. _d 0
./model/src/dynamics.F 325 DYNAMICS 
          phiHydF (i,j)  = 0. _d 0
./model/src/dynamics.F 326 DYNAMICS 
          phiHydC (i,j)  = 0. _d 0
./model/src/dynamics.F 328 DYNAMICS 
          dPhiHydX(i,j)  = 0. _d 0
./model/src/dynamics.F 329 DYNAMICS 
          dPhiHydY(i,j)  = 0. _d 0
./model/src/dynamics.F 331 DYNAMICS 
          phiSurfX(i,j)  = 0. _d 0
./model/src/dynamics.F 332 DYNAMICS 
          phiSurfY(i,j)  = 0. _d 0
./model/src/dynamics.F 333 DYNAMICS 
          guDissip(i,j)  = 0. _d 0
./model/src/dynamics.F 334 DYNAMICS 
          gvDissip(i,j)  = 0. _d 0
./model/src/dynamics.F 336 DYNAMICS 
          phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 339 DYNAMICS 
          dWtransC(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 340 DYNAMICS 
          dWtransU(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 341 DYNAMICS 
          dWtransV(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 387 DYNAMICS 
          DO i=1-OLx,sNx+OLx
./model/src/dynamics.F 388 DYNAMICS 
           KappaRU(i,j,k) = 0. _d 0
./model/src/dynamics.F 389 DYNAMICS 
           KappaRV(i,j,k) = 0. _d 0
./pkg/shelfice/shelfice_forcing.F 146 SHELFICE_FORCING_S 
      INTEGER i, j
./pkg/shelfice/shelfice_forcing.F 154 SHELFICE_FORCING_S 
       DO i=1,sNx
./pkg/shelfice/shelfice_forcing.F 160 SHELFICE_FORCING_S 
          gSloc = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 162 SHELFICE_FORCING_S 
          gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) + gSloc
./pkg/shelfice/shelfice_forcing.F 167 SHELFICE_FORCING_S 
          gSloc = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 173 SHELFICE_FORCING_S 
          gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj) + gSloc
./pkg/shelfice/shelfice_forcing.F 174 SHELFICE_FORCING_S 
     &         * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing.F 178 SHELFICE_FORCING_S 
          gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing.F 179 SHELFICE_FORCING_S 
     &         +shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 180 SHELFICE_FORCING_S 
     &         *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing.F 54 SHELFICE_FORCING_T 
      INTEGER i, j
./pkg/shelfice/shelfice_forcing.F 62 SHELFICE_FORCING_T 
       DO i=1,sNx
./pkg/shelfice/shelfice_forcing.F 68 SHELFICE_FORCING_T 
          gTloc = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 70 SHELFICE_FORCING_T 
          gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) + gTloc
./pkg/shelfice/shelfice_forcing.F 75 SHELFICE_FORCING_T 
          gTloc = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 81 SHELFICE_FORCING_T 
          gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj) + gTloc
./pkg/shelfice/shelfice_forcing.F 82 SHELFICE_FORCING_T 
     &         * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing.F 86 SHELFICE_FORCING_T 
          gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing.F 87 SHELFICE_FORCING_T 
     &         +shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 88 SHELFICE_FORCING_T 
     &         *recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F 57 SHELFICE_INIT_FIXED 
          kTopC(i,j,bi,bj) = 0
./pkg/shelfice/shelfice_init_varia.F 39 SHELFICE_INIT_VARIA 
          shelficeLoadAnomaly   (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 40 SHELFICE_INIT_VARIA 
          shelficeForcingT      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 41 SHELFICE_INIT_VARIA 
          shelficeForcingS      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 42 SHELFICE_INIT_VARIA 
          shelficeHeatFlux      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 43 SHELFICE_INIT_VARIA 
          shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_output.F 113 SHELFICE_OUTPUT 
           DO i=1,sNx
./pkg/shelfice/shelfice_output.F 114 SHELFICE_OUTPUT 
            shelfice_FrshFluxtave(i,j,1,bi,bj)=
./pkg/shelfice/shelfice_output.F 115 SHELFICE_OUTPUT 
     &         shelfice_frshFluxtave(i,j,1,bi,bj)
./pkg/shelfice/shelfice_output.F 116 SHELFICE_OUTPUT 
     &         + shelficeFreshWaterFlux(i,j,bi,bj) *deltaTclock
./pkg/shelfice/shelfice_output.F 117 SHELFICE_OUTPUT 
            shelfice_heatFluxtave(i,j,1,bi,bj) =
./pkg/shelfice/shelfice_output.F 118 SHELFICE_OUTPUT 
     &         shelfice_heatFluxtave(i,j,1,bi,bj)
./pkg/shelfice/shelfice_output.F 119 SHELFICE_OUTPUT 
     &         + shelficeHeatFlux(i,j,bi,bj)  *deltaTclock
./pkg/shelfice/shelfice_output.F 46 SHELFICE_OUTPUT 
      INTEGER i, j, bi, bj
./pkg/shelfice/shelfice_thermodynamics.F 179 SHELFICE_THERMODYNAMICS 
            shelficeForcingT(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 184 SHELFICE_THERMODYNAMICS 
            shelficeForcingS(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 279 SHELFICE_THERMODYNAMICS 
            shelficeForcingT(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 283 SHELFICE_THERMODYNAMICS 
            shelficeForcingS(i,j,bi,bj) =
./pkg/shelfice/shelfice_u_drag.F 73 SHELFICE_U_DRAG 
       DO i=1-Olx+1,sNx+Olx-1
./pkg/shelfice/shelfice_u_drag.F 74 SHELFICE_U_DRAG 
        maskUp=_maskW(i,j,kUp,bi,bj)
./pkg/shelfice/shelfice_u_drag.F 76 SHELFICE_U_DRAG 
        uDragTerms(i,j)=
./pkg/shelfice/shelfice_u_drag.F 77 SHELFICE_U_DRAG 
     &   -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_u_drag.F 79 SHELFICE_U_DRAG 
     &     - 2.*KappaRU(i,j,kUpC)*rdrckp1*viscFac
./pkg/shelfice/shelfice_u_drag.F 81 SHELFICE_U_DRAG 
     &    )*(1.-maskUp)*uFld(i,j)
./pkg/shelfice/shelfice_u_drag.F 82 SHELFICE_U_DRAG 
        IF ( (KE(i,j)+KE(i-1,j)) .NE. 0. ) THEN
./pkg/shelfice/shelfice_u_drag.F 83 SHELFICE_U_DRAG 
         uDragTerms(i,j)=uDragTerms(i,j)
./pkg/shelfice/shelfice_u_drag.F 84 SHELFICE_U_DRAG 
     &    -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_u_drag.F 85 SHELFICE_U_DRAG 
     &    *SHELFICEDragQuadratic*sqrt(KE(i,j)+KE(i-1,j))
./pkg/shelfice/shelfice_u_drag.F 86 SHELFICE_U_DRAG 
     &    *(1.-maskUp)*uFld(i,j)
./pkg/shelfice/shelfice_update_masks.F 57 SHELFICE_UPDATE_MASKS 
         DO i=1-Olx,sNx+Olx
./pkg/shelfice/shelfice_update_masks.F 58 SHELFICE_UPDATE_MASKS 
          R_shelfIce(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_v_drag.F 73 SHELFICE_V_DRAG 
       DO i=1-Olx,sNx+Olx-1
./pkg/shelfice/shelfice_v_drag.F 74 SHELFICE_V_DRAG 
        maskUp=_maskS(i,j,kUp,bi,bj)
./pkg/shelfice/shelfice_v_drag.F 76 SHELFICE_V_DRAG 
        vDragTerms(i,j)=
./pkg/shelfice/shelfice_v_drag.F 77 SHELFICE_V_DRAG 
     &   -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_v_drag.F 79 SHELFICE_V_DRAG 
     &     - 2.*KappaRV(i,j,kUpC)*rdrckp1*viscFac
./pkg/shelfice/shelfice_v_drag.F 81 SHELFICE_V_DRAG 
     &    )*(1.-maskUp)*vFld(i,j)
./pkg/shelfice/shelfice_v_drag.F 82 SHELFICE_V_DRAG 
        IF ( (KE(i,j)+KE(i,j-1)) .NE. 0. ) THEN
./pkg/shelfice/shelfice_v_drag.F 83 SHELFICE_V_DRAG 
         vDragTerms(i,j)=vDragTerms(i,j)
./pkg/shelfice/shelfice_v_drag.F 84 SHELFICE_V_DRAG 
     &    -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_v_drag.F 85 SHELFICE_V_DRAG 
     &    *bottomDragQuadratic*sqrt(KE(i,j)+KE(i,j-1))
./pkg/shelfice/shelfice_v_drag.F 86 SHELFICE_V_DRAG 
     &    *(1.-maskUp)*vFld(i,j)
./model/src/external_fields_load.F 138 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 139 EXTERNAL_FIELDS_LOAD 
            EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh
./model/src/external_fields_load.F 140 EXTERNAL_FIELDS_LOAD 
            EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh
./model/src/external_fields_load.F 176 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 177 EXTERNAL_FIELDS_LOAD 
            Qnet0(i,j,bi,bj) = Qnet0(i,j,bi,bj) + Qsw0(i,j,bi,bj)
./model/src/external_fields_load.F 178 EXTERNAL_FIELDS_LOAD 
            Qnet1(i,j,bi,bj) = Qnet1(i,j,bi,bj) + Qsw1(i,j,bi,bj)
./model/src/external_fields_load.F 224 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 225 EXTERNAL_FIELDS_LOAD 
            SST(i,j,bi,bj)   = bWght*SST0(i,j,bi,bj)
./model/src/external_fields_load.F 226 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*SST1(i,j,bi,bj)
./model/src/external_fields_load.F 232 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 233 EXTERNAL_FIELDS_LOAD 
            SSS(i,j,bi,bj)   = bWght*SSS0(i,j,bi,bj)
./model/src/external_fields_load.F 234 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*SSS1(i,j,bi,bj)
./model/src/external_fields_load.F 240 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 241 EXTERNAL_FIELDS_LOAD 
            fu(i,j,bi,bj)    = bWght*taux0(i,j,bi,bj)
./model/src/external_fields_load.F 242 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*taux1(i,j,bi,bj)
./model/src/external_fields_load.F 248 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 249 EXTERNAL_FIELDS_LOAD 
            fv(i,j,bi,bj)    = bWght*tauy0(i,j,bi,bj)
./model/src/external_fields_load.F 250 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*tauy1(i,j,bi,bj)
./model/src/external_fields_load.F 257 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 258 EXTERNAL_FIELDS_LOAD 
            Qnet(i,j,bi,bj)  = bWght*Qnet0(i,j,bi,bj)
./model/src/external_fields_load.F 259 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*Qnet1(i,j,bi,bj)
./model/src/external_fields_load.F 265 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 266 EXTERNAL_FIELDS_LOAD 
            EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj)
./model/src/external_fields_load.F 267 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*EmPmR1(i,j,bi,bj)
./model/src/external_fields_load.F 273 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 274 EXTERNAL_FIELDS_LOAD 
            saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj)
./model/src/external_fields_load.F 275 EXTERNAL_FIELDS_LOAD 
     &                          + aWght*saltFlux1(i,j,bi,bj)
./model/src/external_fields_load.F 282 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 283 EXTERNAL_FIELDS_LOAD 
            Qsw(i,j,bi,bj)   = bWght*Qsw0(i,j,bi,bj)
./model/src/external_fields_load.F 284 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*Qsw1(i,j,bi,bj)
./model/src/external_fields_load.F 292 EXTERNAL_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./model/src/external_fields_load.F 293 EXTERNAL_FIELDS_LOAD 
            pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj)
./model/src/external_fields_load.F 294 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*pLoad1(i,j,bi,bj)
./model/src/external_fields_load.F 60 EXTERNAL_FIELDS_LOAD 
      INTEGER bi,bj,i,j,intime0,intime1
./pkg/smooth/smooth_basic2d.F 28 SMOOTH_BASIC2D 
      integer i,j,bi,bj
./pkg/smooth/smooth_basic2d.F 44 SMOOTH_BASIC2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_basic2d.F 45 SMOOTH_BASIC2D 
          smooth2D_Lx(i,j,bi,bj)=dist_in
./pkg/smooth/smooth_basic2d.F 46 SMOOTH_BASIC2D 
          smooth2D_Ly(i,j,bi,bj)=dist_in
./pkg/smooth/smooth_basic2d.F 55 SMOOTH_BASIC2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_basic2d.F 56 SMOOTH_BASIC2D 
          smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)*
./pkg/smooth/smooth_basic2d.F 57 SMOOTH_BASIC2D 
     & smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_basic2d.F 58 SMOOTH_BASIC2D 
          smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)*
./pkg/smooth/smooth_basic2d.F 59 SMOOTH_BASIC2D 
     & smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_correl2d.F 28 SMOOTH_CORREL2D 
      integer i,j,bi,bj
./pkg/smooth/smooth_correl2d.F 61 SMOOTH_CORREL2D 
         DO i = 1,sNx
./pkg/smooth/smooth_correl2d.F 62 SMOOTH_CORREL2D 
      fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)
./pkg/smooth/smooth_correl2d.F 63 SMOOTH_CORREL2D 
     & *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_correl2d.F 78 SMOOTH_CORREL2D 
          DO i = 1,sNx
./pkg/smooth/smooth_correl2d.F 79 SMOOTH_CORREL2D 
       fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)
./pkg/smooth/smooth_correl2d.F 80 SMOOTH_CORREL2D 
     & *smooth2Dnorm(i,j,bi,bj)
./model/src/external_forcing.F 153 EXTERNAL_FORCING_V 
      INTEGER i, j
./model/src/external_forcing.F 183 EXTERNAL_FORCING_V 
        DO i=0,sNx+1
./model/src/external_forcing.F 184 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./model/src/external_forcing.F 185 EXTERNAL_FORCING_V 
     &   +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/external_forcing.F 186 EXTERNAL_FORCING_V 
     &   *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 258 EXTERNAL_FORCING_T 
      INTEGER i, j
./model/src/external_forcing.F 295 EXTERNAL_FORCING_T 
          DO i=1,sNx
./model/src/external_forcing.F 296 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 297 EXTERNAL_FORCING_T 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 298 EXTERNAL_FORCING_T 
     &          *( temp_addMass - theta(i,j,kLev,bi,bj) )
./model/src/external_forcing.F 299 EXTERNAL_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 300 EXTERNAL_FORCING_T 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 306 EXTERNAL_FORCING_T 
          DO i=1,sNx
./model/src/external_forcing.F 307 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 308 EXTERNAL_FORCING_T 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 310 EXTERNAL_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 311 EXTERNAL_FORCING_T 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 322 EXTERNAL_FORCING_T 
        DO i=1,sNx
./model/src/external_forcing.F 323 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 324 EXTERNAL_FORCING_T 
     &     +surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing.F 325 EXTERNAL_FORCING_T 
     &     *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 332 EXTERNAL_FORCING_T 
        DO i=1,sNx
./model/src/external_forcing.F 333 EXTERNAL_FORCING_T 
          IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN
./model/src/external_forcing.F 334 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 335 EXTERNAL_FORCING_T 
     &        +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 369 EXTERNAL_FORCING_T 
        DO i=1,sNx
./model/src/external_forcing.F 370 EXTERNAL_FORCING_T 
         gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
./model/src/external_forcing.F 371 EXTERNAL_FORCING_T 
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)
./model/src/external_forcing.F 372 EXTERNAL_FORCING_T 
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./model/src/external_forcing.F 374 EXTERNAL_FORCING_T 
     &    *recip_drF(klev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 449 EXTERNAL_FORCING_S 
      INTEGER i, j
./model/src/external_forcing.F 479 EXTERNAL_FORCING_S 
          DO i=1,sNx
./model/src/external_forcing.F 480 EXTERNAL_FORCING_S 
            gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 481 EXTERNAL_FORCING_S 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 482 EXTERNAL_FORCING_S 
     &          *( salt_addMass - salt(i,j,kLev,bi,bj) )
./model/src/external_forcing.F 483 EXTERNAL_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 484 EXTERNAL_FORCING_S 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 490 EXTERNAL_FORCING_S 
          DO i=1,sNx
./model/src/external_forcing.F 491 EXTERNAL_FORCING_S 
            gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 492 EXTERNAL_FORCING_S 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 494 EXTERNAL_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 495 EXTERNAL_FORCING_S 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 49 EXTERNAL_FORCING_U 
      INTEGER i, j
./model/src/external_forcing.F 506 EXTERNAL_FORCING_S 
        DO i=1,sNx
./model/src/external_forcing.F 507 EXTERNAL_FORCING_S 
         gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 508 EXTERNAL_FORCING_S 
     &     +surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing.F 509 EXTERNAL_FORCING_S 
     &     *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 516 EXTERNAL_FORCING_S 
        DO i=1,sNx
./model/src/external_forcing.F 517 EXTERNAL_FORCING_S 
          IF (kLev .EQ. ksurfC(i,j,bi,bj)) THEN
./model/src/external_forcing.F 518 EXTERNAL_FORCING_S 
            gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 519 EXTERNAL_FORCING_S 
     &        +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 79 EXTERNAL_FORCING_U 
        DO i=1,sNx+1
./model/src/external_forcing.F 80 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/external_forcing.F 81 EXTERNAL_FORCING_U 
     &   +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/external_forcing.F 82 EXTERNAL_FORCING_U 
     &   *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj)
./pkg/smooth/smooth_correl2dw.F 31 SMOOTH_CORREL2DW 
      integer i,j,bi,bj
./pkg/smooth/smooth_correl2dw.F 46 SMOOTH_CORREL2DW 
         DO i = 1,sNx
./pkg/smooth/smooth_correl2dw.F 48 SMOOTH_CORREL2DW 
        tmpW=whflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 50 SMOOTH_CORREL2DW 
        tmpW=wsflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 52 SMOOTH_CORREL2DW 
        tmpW=wtauu(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 54 SMOOTH_CORREL2DW 
        tmpW=wtauv(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 57 SMOOTH_CORREL2DW 
        tmpW=watemp(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 59 SMOOTH_CORREL2DW 
        tmpW=waqh(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 61 SMOOTH_CORREL2DW 
        tmpW=wprecip(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 63 SMOOTH_CORREL2DW 
        tmpW=wsnowprecip(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 66 SMOOTH_CORREL2DW 
        tmpW=wswflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 68 SMOOTH_CORREL2DW 
        tmpW=wswdown(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 70 SMOOTH_CORREL2DW 
        tmpW=wlwflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 72 SMOOTH_CORREL2DW 
        tmpW=wlwdown(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 75 SMOOTH_CORREL2DW 
        tmpW=wevap(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 77 SMOOTH_CORREL2DW 
        tmpW=wapressure(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 79 SMOOTH_CORREL2DW 
        tmpW=wuwind(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 81 SMOOTH_CORREL2DW 
        tmpW=wvwind(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 90 SMOOTH_CORREL2DW 
      if ((mask_in(i,j,1,bi,bj).NE.0.).AND.(tmpW.NE.0.)) then
./pkg/smooth/smooth_correl2dw.F 91 SMOOTH_CORREL2DW 
      fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)/sqrt(tmpW)
./pkg/smooth/smooth_correl2dw.F 93 SMOOTH_CORREL2DW 
      fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)*0.
./pkg/smooth/smooth_correl3d.F 104 SMOOTH_CORREL3D 
          DO i = 1,sNx
./pkg/smooth/smooth_correl3d.F 106 SMOOTH_CORREL3D 
       fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_correl3d.F 107 SMOOTH_CORREL3D 
     & *smooth3Dnorm(i,j,k,bi,bj)
./pkg/smooth/smooth_correl3d.F 28 SMOOTH_CORREL3D 
      integer i,j,k,bi,bj
./pkg/smooth/smooth_correl3d.F 86 SMOOTH_CORREL3D 
          DO i=1,sNx
./pkg/smooth/smooth_correl3d.F 87 SMOOTH_CORREL3D 
           fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_correl3d.F 88 SMOOTH_CORREL3D 
     & *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_diff2d.F 127 SMOOTH_DIFF2D 
               DO i = 1,sNx
./pkg/smooth/smooth_diff2d.F 129 SMOOTH_DIFF2D 
      gt_in(i,j,bi,bj)=0.
./pkg/smooth/smooth_diff2d.F 131 SMOOTH_DIFF2D 
      if (smooth2Dmask(i,j,bi,bj).NE.0.) then
./pkg/smooth/smooth_diff2d.F 133 SMOOTH_DIFF2D 
      gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F 134 SMOOTH_DIFF2D 
     & smooth2D_Kux(i,j,bi,bj)*dyG(i,j,bi,bj)*
./pkg/smooth/smooth_diff2d.F 135 SMOOTH_DIFF2D 
     & smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i-1,j,bi,bj)*
./pkg/smooth/smooth_diff2d.F 136 SMOOTH_DIFF2D 
     & (fld_in(i,j,bi,bj)-fld_in(i-1,j,bi,bj))*recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F 138 SMOOTH_DIFF2D 
      gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F 139 SMOOTH_DIFF2D 
     & smooth2D_Kux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)*
./pkg/smooth/smooth_diff2d.F 140 SMOOTH_DIFF2D 
     & smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i+1,j,bi,bj)*
./pkg/smooth/smooth_diff2d.F 141 SMOOTH_DIFF2D 
     & (fld_in(i,j,bi,bj)-fld_in(i+1,j,bi,bj))*recip_dxC(i+1,j,bi,bj)
./pkg/smooth/smooth_diff2d.F 143 SMOOTH_DIFF2D 
      gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F 144 SMOOTH_DIFF2D 
     & smooth2D_Kvy(i,j,bi,bj)*dxG(i,j,bi,bj)*
./pkg/smooth/smooth_diff2d.F 145 SMOOTH_DIFF2D 
     & smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j-1,bi,bj)*
./pkg/smooth/smooth_diff2d.F 146 SMOOTH_DIFF2D 
     & (fld_in(i,j,bi,bj)-fld_in(i,j-1,bi,bj))*recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F 148 SMOOTH_DIFF2D 
      gt_in(i,j,bi,bj)=gt_in(i,j,bi,bj)+
./pkg/smooth/smooth_diff2d.F 149 SMOOTH_DIFF2D 
     & smooth2D_Kvy(i,j+1,bi,bj)*dxG(i,j+1,bi,bj)*
./pkg/smooth/smooth_diff2d.F 150 SMOOTH_DIFF2D 
     & smooth2Dmask(i,j,bi,bj)*smooth2Dmask(i,j+1,bi,bj)*
./pkg/smooth/smooth_diff2d.F 151 SMOOTH_DIFF2D 
     & (fld_in(i,j,bi,bj)-fld_in(i,j+1,bi,bj))*recip_dyC(i,j+1,bi,bj)
./pkg/smooth/smooth_diff2d.F 172 SMOOTH_DIFF2D 
               DO i = 1,sNx
./pkg/smooth/smooth_diff2d.F 174 SMOOTH_DIFF2D 
        gt_tmp = ab15*gt_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F 175 SMOOTH_DIFF2D 
     &         + ab05*gtm1_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F 176 SMOOTH_DIFF2D 
        gtm1_in(i,j,bi,bj) = gt_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F 177 SMOOTH_DIFF2D 
        gt_in(i,j,bi,bj) = gt_tmp
./pkg/smooth/smooth_diff2d.F 179 SMOOTH_DIFF2D 
      fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)
./pkg/smooth/smooth_diff2d.F 180 SMOOTH_DIFF2D 
     & -gt_in(i,j,bi,bj)*recip_rA(i,j,bi,bj)*smooth2DdelTime
./pkg/smooth/smooth_diff2d.F 181 SMOOTH_DIFF2D 
           gt_in(i,j,bi,bj)=0
./pkg/smooth/smooth_diff2d.F 25 SMOOTH_DIFF2D 
      integer i,j,k, bi, bj
./pkg/smooth/smooth_diff2d.F 61 SMOOTH_DIFF2D 
         DO i = 1,sNx
./pkg/smooth/smooth_diff2d.F 62 SMOOTH_DIFF2D 
           gt_in(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff2d.F 63 SMOOTH_DIFF2D 
           gtm1_in(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff2d.F 64 SMOOTH_DIFF2D 
           smooth2Dmask(i,j,bi,bj) = mask_in(i,j,1,bi,bj)
./pkg/smooth/smooth_diff3d.F 123 SMOOTH_DIFF3D 
          DO i=1,sNx
./pkg/smooth/smooth_diff3d.F 124 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 149 SMOOTH_DIFF3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_diff3d.F 150 SMOOTH_DIFF3D 
           fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F 151 SMOOTH_DIFF3D 
     &            +smooth3DdelTime*gT_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F 152 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)=0
./pkg/smooth/smooth_diff3d.F 29 SMOOTH_DIFF3D 
      integer i,j,k, bi,bj, iMin,iMax,jMin,jMax
./pkg/smooth/smooth_diff3d.F 60 SMOOTH_DIFF3D 
          DO i=1,sNx
./pkg/smooth/smooth_diff3d.F 61 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 62 SMOOTH_DIFF3D 
           gTm1_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 117 SMOOTH_FILTERVAR2D 
         DO i = 1,sNx
./pkg/smooth/smooth_filtervar2d.F 119 SMOOTH_FILTERVAR2D 
      smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 120 SMOOTH_FILTERVAR2D 
     & *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 137 SMOOTH_FILTERVAR2D 
          DO i=ii,sNx,diLoc
./pkg/smooth/smooth_filtervar2d.F 138 SMOOTH_FILTERVAR2D 
           if (maskc(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F 139 SMOOTH_FILTERVAR2D 
              smooth2Dnorm(i,j,bi,bj)=
./pkg/smooth/smooth_filtervar2d.F 140 SMOOTH_FILTERVAR2D 
     &        1/sqrt(smoothTmpFld(i,j,bi,bj))
./pkg/smooth/smooth_filtervar2d.F 158 SMOOTH_FILTERVAR2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar2d.F 159 SMOOTH_FILTERVAR2D 
           smoothTmpMean(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 160 SMOOTH_FILTERVAR2D 
           smoothTmpVar(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 178 SMOOTH_FILTERVAR2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar2d.F 179 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 180 SMOOTH_FILTERVAR2D 
           if (maskC(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F 181 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=port_rand_norm()
./pkg/smooth/smooth_filtervar2d.F 184 SMOOTH_FILTERVAR2D 
      smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 185 SMOOTH_FILTERVAR2D 
     & *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_filtervar2d.F 200 SMOOTH_FILTERVAR2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar2d.F 201 SMOOTH_FILTERVAR2D 
      smoothTmpVar(i,j,bi,bj)=smoothTmpVar(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 202 SMOOTH_FILTERVAR2D 
     & +smoothTmpFld(i,j,bi,bj)*smoothTmpFld(i,j,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar2d.F 203 SMOOTH_FILTERVAR2D 
      smoothTmpMean(i,j,bi,bj)=smoothTmpMean(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 204 SMOOTH_FILTERVAR2D 
     & +smoothTmpFld(i,j,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar2d.F 216 SMOOTH_FILTERVAR2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar2d.F 217 SMOOTH_FILTERVAR2D 
           if (maskC(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F 218 SMOOTH_FILTERVAR2D 
           smooth2Dnorm(i,j,bi,bj)=
./pkg/smooth/smooth_filtervar2d.F 219 SMOOTH_FILTERVAR2D 
     & 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,bi,bj) -
./pkg/smooth/smooth_filtervar2d.F 220 SMOOTH_FILTERVAR2D 
     & smoothTmpMean(i,j,bi,bj)*smoothTmpMean(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 26 SMOOTH_FILTERVAR2D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar2d.F 64 SMOOTH_FILTERVAR2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar2d.F 65 SMOOTH_FILTERVAR2D 
           smooth2Dnorm(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F 90 SMOOTH_FILTERVAR2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar2d.F 91 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F 96 SMOOTH_FILTERVAR2D 
          DO i=ii,sNx,diLoc
./pkg/smooth/smooth_filtervar2d.F 97 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F 120 SMOOTH_FILTERVAR3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar3d.F 121 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_filtervar3d.F 128 SMOOTH_FILTERVAR3D 
          DO i=ii,sNx,diLoc
./pkg/smooth/smooth_filtervar3d.F 129 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F 151 SMOOTH_FILTERVAR3D 
          DO i=1,sNx
./pkg/smooth/smooth_filtervar3d.F 153 SMOOTH_FILTERVAR3D 
        smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 154 SMOOTH_FILTERVAR3D 
     & *(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F 173 SMOOTH_FILTERVAR3D 
          DO i=ii,sNx,diLoc
./pkg/smooth/smooth_filtervar3d.F 174 SMOOTH_FILTERVAR3D 
          if (smoothTmpFld(i,j,k,bi,bj).NE.0.) then
./pkg/smooth/smooth_filtervar3d.F 175 SMOOTH_FILTERVAR3D 
           smooth3Dnorm(i,j,k,bi,bj)=
./pkg/smooth/smooth_filtervar3d.F 176 SMOOTH_FILTERVAR3D 
     & 1/sqrt(smoothTmpFld(i,j,k,bi,bj))
./pkg/smooth/smooth_filtervar3d.F 196 SMOOTH_FILTERVAR3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar3d.F 197 SMOOTH_FILTERVAR3D 
           smoothTmpMean(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 198 SMOOTH_FILTERVAR3D 
           smoothTmpVar(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 218 SMOOTH_FILTERVAR3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar3d.F 219 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 220 SMOOTH_FILTERVAR3D 
           if (maskC(i,j,k,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar3d.F 221 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=port_rand_norm()
./pkg/smooth/smooth_filtervar3d.F 224 SMOOTH_FILTERVAR3D 
       smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 225 SMOOTH_FILTERVAR3D 
     & *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F 242 SMOOTH_FILTERVAR3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar3d.F 243 SMOOTH_FILTERVAR3D 
      smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 244 SMOOTH_FILTERVAR3D 
     & +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar3d.F 245 SMOOTH_FILTERVAR3D 
      smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 246 SMOOTH_FILTERVAR3D 
     & +smoothTmpFld(i,j,k,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar3d.F 260 SMOOTH_FILTERVAR3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar3d.F 261 SMOOTH_FILTERVAR3D 
           if (maskC(i,j,k,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar3d.F 262 SMOOTH_FILTERVAR3D 
           smooth3Dnorm(i,j,k,bi,bj)=
./pkg/smooth/smooth_filtervar3d.F 263 SMOOTH_FILTERVAR3D 
     & 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) -
./pkg/smooth/smooth_filtervar3d.F 264 SMOOTH_FILTERVAR3D 
     & smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 27 SMOOTH_FILTERVAR3D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar3d.F 90 SMOOTH_FILTERVAR3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_filtervar3d.F 91 SMOOTH_FILTERVAR3D 
           smooth3Dnorm(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_impldiff.F 103 SMOOTH_IMPLDIFF 
       DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 104 SMOOTH_IMPLDIFF 
         c(i,j,Nr) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 111 SMOOTH_IMPLDIFF 
        DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 112 SMOOTH_IMPLDIFF 
          b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./pkg/smooth/smooth_impldiff.F 120 SMOOTH_IMPLDIFF 
        DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 121 SMOOTH_IMPLDIFF 
          bet(i,j,k) = 1. _d 0
./pkg/smooth/smooth_impldiff.F 122 SMOOTH_IMPLDIFF 
          gam(i,j,k) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 133 SMOOTH_IMPLDIFF 
        DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 134 SMOOTH_IMPLDIFF 
         IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./pkg/smooth/smooth_impldiff.F 147 SMOOTH_IMPLDIFF 
         DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 148 SMOOTH_IMPLDIFF 
          gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1)
./pkg/smooth/smooth_impldiff.F 149 SMOOTH_IMPLDIFF 
          IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./pkg/smooth/smooth_impldiff.F 150 SMOOTH_IMPLDIFF 
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./pkg/smooth/smooth_impldiff.F 160 SMOOTH_IMPLDIFF 
       DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 161 SMOOTH_IMPLDIFF 
        gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1)
./pkg/smooth/smooth_impldiff.F 166 SMOOTH_IMPLDIFF 
        DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 167 SMOOTH_IMPLDIFF 
         gYnm1(i,j,k,bi,bj) = bet(i,j,k)*
./pkg/smooth/smooth_impldiff.F 168 SMOOTH_IMPLDIFF 
     &        (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj))
./pkg/smooth/smooth_impldiff.F 178 SMOOTH_IMPLDIFF 
         DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 179 SMOOTH_IMPLDIFF 
          gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./pkg/smooth/smooth_impldiff.F 180 SMOOTH_IMPLDIFF 
     &              -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj)
./pkg/smooth/smooth_impldiff.F 187 SMOOTH_IMPLDIFF 
         DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 188 SMOOTH_IMPLDIFF 
          gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./pkg/smooth/smooth_impldiff.F 51 SMOOTH_IMPLDIFF 
      INTEGER i,j,k
./pkg/smooth/smooth_impldiff.F 66 SMOOTH_IMPLDIFF 
        DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 67 SMOOTH_IMPLDIFF 
         gYNm1(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 74 SMOOTH_IMPLDIFF 
       DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 75 SMOOTH_IMPLDIFF 
         a(i,j,1) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 80 SMOOTH_IMPLDIFF 
        DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 81 SMOOTH_IMPLDIFF 
          a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_impldiff.F 83 SMOOTH_IMPLDIFF 
     &               *KappaRX(i,j, k )*recip_drC( k )
./pkg/smooth/smooth_impldiff.F 85 SMOOTH_IMPLDIFF 
          IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0.
./pkg/smooth/smooth_impldiff.F 93 SMOOTH_IMPLDIFF 
        DO i=iMin,iMax
./pkg/smooth/smooth_impldiff.F 94 SMOOTH_IMPLDIFF 
          c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_impldiff.F 96 SMOOTH_IMPLDIFF 
     &               *KappaRX(i,j,k+1)*recip_drC(k+1)
./pkg/smooth/smooth_impldiff.F 98 SMOOTH_IMPLDIFF 
          IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0.
./pkg/smooth/smooth_init2d.F 23 SMOOTH_INIT2D 
      integer i,j,k, bi, bj
./pkg/smooth/smooth_init2d.F 52 SMOOTH_INIT2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_init2d.F 53 SMOOTH_INIT2D 
          smooth2D_Lx(i,j,bi,bj)=smooth2D_Lx0(smoothOpNb)
./pkg/smooth/smooth_init2d.F 54 SMOOTH_INIT2D 
          smooth2D_Ly(i,j,bi,bj)=smooth2D_Ly0(smoothOpNb)
./pkg/smooth/smooth_init2d.F 64 SMOOTH_INIT2D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_init2d.F 65 SMOOTH_INIT2D 
          smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)*
./pkg/smooth/smooth_init2d.F 66 SMOOTH_INIT2D 
     & smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_init2d.F 67 SMOOTH_INIT2D 
          smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)*
./pkg/smooth/smooth_init2d.F 68 SMOOTH_INIT2D 
     & smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_init3d.F 101 SMOOTH_INIT3D 
       if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then
./pkg/smooth/smooth_init3d.F 102 SMOOTH_INIT3D 
       smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax
./pkg/smooth/smooth_init3d.F 130 SMOOTH_INIT3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_init3d.F 131 SMOOTH_INIT3D 
          smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb)
./pkg/smooth/smooth_init3d.F 132 SMOOTH_INIT3D 
          smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb)
./pkg/smooth/smooth_init3d.F 144 SMOOTH_INIT3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_init3d.F 145 SMOOTH_INIT3D 
      smooth3D_Kuy(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 146 SMOOTH_INIT3D 
      smooth3D_Kvx(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 147 SMOOTH_INIT3D 
      smooth3D_Kwx(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 148 SMOOTH_INIT3D 
      smooth3D_Kwy(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 149 SMOOTH_INIT3D 
      smooth3D_Kwz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 150 SMOOTH_INIT3D 
      smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F 151 SMOOTH_INIT3D 
     & smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F 152 SMOOTH_INIT3D 
      smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F 153 SMOOTH_INIT3D 
     & smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F 154 SMOOTH_INIT3D 
      smooth3D_Kuz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 155 SMOOTH_INIT3D 
      smooth3D_Kvz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 33 SMOOTH_INIT3D 
      integer i,j,k, bi, bj, imin, imax, jmin, jmax
./pkg/smooth/smooth_init3d.F 69 SMOOTH_INIT3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_init3d.F 70 SMOOTH_INIT3D 
          smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb)
./pkg/smooth/smooth_init3d.F 82 SMOOTH_INIT3D 
          DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_init3d.F 83 SMOOTH_INIT3D 
       smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F 84 SMOOTH_INIT3D 
     & smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F 97 SMOOTH_INIT3D 
          DO i=1-OLx,sNx+OLx
./model/src/external_forcing_surf.F 100 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 102 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./model/src/external_forcing_surf.F 103 EXTERNAL_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj)
./model/src/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/external_forcing_surf.F 105 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 120 EXTERNAL_FORCING_SURF 
          DO i=iMin,iMax
./model/src/external_forcing_surf.F 121 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 122 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./model/src/external_forcing_surf.F 123 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 124 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./model/src/external_forcing_surf.F 130 EXTERNAL_FORCING_SURF 
          DO i=iMin,iMax
./model/src/external_forcing_surf.F 131 EXTERNAL_FORCING_SURF 
           IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN
./model/src/external_forcing_surf.F 132 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 133 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 134 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 135 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 165 EXTERNAL_FORCING_SURF 
        DO i = iMin, iMax
./model/src/external_forcing_surf.F 166 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 167 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 179 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 182 EXTERNAL_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) =
./model/src/external_forcing_surf.F 183 EXTERNAL_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 185 EXTERNAL_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) =
./model/src/external_forcing_surf.F 186 EXTERNAL_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 188 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 189 EXTERNAL_FORCING_SURF 
     &       - ( Qnet(i,j,bi,bj)
./model/src/external_forcing_surf.F 191 EXTERNAL_FORCING_SURF 
     &          -Qsw(i,j,bi,bj)
./model/src/external_forcing_surf.F 195 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 196 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 219 EXTERNAL_FORCING_SURF 
         DO i=1-OLx,sNx+OLx
./model/src/external_forcing_surf.F 220 EXTERNAL_FORCING_SURF 
           EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/external_forcing_surf.F 230 EXTERNAL_FORCING_SURF 
         DO i=1-OLx,sNx+OLx
./model/src/external_forcing_surf.F 231 EXTERNAL_FORCING_SURF 
           PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 245 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 246 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 247 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F 248 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 256 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 257 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 258 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F 259 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 280 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./model/src/external_forcing_surf.F 281 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 282 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 283 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/src/external_forcing_surf.F 291 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./model/src/external_forcing_surf.F 292 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 293 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 294 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./model/src/external_forcing_surf.F 306 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./model/src/external_forcing_surf.F 307 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 308 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 317 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./model/src/external_forcing_surf.F 318 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 319 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 355 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 356 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./model/src/external_forcing_surf.F 357 EXTERNAL_FORCING_SURF 
     &                        +sIceLoad(i,j,bi,bj)*gravity
./model/src/external_forcing_surf.F 363 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 364 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./model/src/external_forcing_surf.F 384 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 385 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj)
./model/src/external_forcing_surf.F 386 EXTERNAL_FORCING_SURF 
     &         + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst
./model/src/external_forcing_surf.F 57 EXTERNAL_FORCING_SURF 
      INTEGER i,j
./model/src/external_forcing_surf.F 79 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 81 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./model/src/external_forcing_surf.F 82 EXTERNAL_FORCING_SURF 
     &      -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj))
./model/src/external_forcing_surf.F 83 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/external_forcing_surf.F 84 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 86 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./model/src/external_forcing_surf.F 87 EXTERNAL_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj))
./model/src/external_forcing_surf.F 88 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/external_forcing_surf.F 89 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 95 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./model/src/external_forcing_surf.F 97 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./model/src/external_forcing_surf.F 98 EXTERNAL_FORCING_SURF 
     &      -lambdaThetaClimRelax(i,j,bi,bj)
./model/src/external_forcing_surf.F 99 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./pkg/smooth/smooth_rhs.F 100 SMOOTH_RHS 
        xA(i,j,bi,bj) = _dyG(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 101 SMOOTH_RHS 
     &   *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 102 SMOOTH_RHS 
        yA(i,j,bi,bj) = _dxG(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 103 SMOOTH_RHS 
     &   *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 105 SMOOTH_RHS 
          maskUp(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 107 SMOOTH_RHS 
          maskUp(i,j,bi,bj) =
./pkg/smooth/smooth_rhs.F 108 SMOOTH_RHS 
     & maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 117 SMOOTH_RHS 
       DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 118 SMOOTH_RHS 
        df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 119 SMOOTH_RHS 
     &    -xA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 120 SMOOTH_RHS 
     &    *smooth3D_Kux(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 121 SMOOTH_RHS 
     &    *recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 122 SMOOTH_RHS 
     &    *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 127 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 130 SMOOTH_RHS 
     &    ( maskC(i-1,j,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 131 SMOOTH_RHS 
     &      (fld_in(i-1,j, MAX(k-1,1) ,bi,bj)-fld_in(i-1,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 132 SMOOTH_RHS 
     &      +maskC( i ,j,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 133 SMOOTH_RHS 
     &      (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 136 SMOOTH_RHS 
     &    ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 137 SMOOTH_RHS 
     &      (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F 138 SMOOTH_RHS 
     &      +maskC( i ,j,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 139 SMOOTH_RHS 
     &      (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F 141 SMOOTH_RHS 
        df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 142 SMOOTH_RHS 
     &        - xA(i,j,bi,bj)*smooth3D_Kuz(i,j,k,bi,bj)*dTdz(bi,bj)
./pkg/smooth/smooth_rhs.F 147 SMOOTH_RHS 
       DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 149 SMOOTH_RHS 
     &   +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 150 SMOOTH_RHS 
     &         *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 151 SMOOTH_RHS 
     &         (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 152 SMOOTH_RHS 
     &        +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 153 SMOOTH_RHS 
     &        *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 154 SMOOTH_RHS 
     &        (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 155 SMOOTH_RHS 
     &   +0.5*(maskS(i-1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 156 SMOOTH_RHS 
     &        *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 157 SMOOTH_RHS 
     &        (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 158 SMOOTH_RHS 
     &        +maskS(i-1,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 159 SMOOTH_RHS 
     &        *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 160 SMOOTH_RHS 
     &        (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 162 SMOOTH_RHS 
        df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 163 SMOOTH_RHS 
     &        - xA(i,j,bi,bj)*smooth3D_Kuy(i,j,k,bi,bj)*dTdy(bi,bj)
./pkg/smooth/smooth_rhs.F 171 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 172 SMOOTH_RHS 
         fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 177 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 178 SMOOTH_RHS 
         df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 185 SMOOTH_RHS 
       DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 186 SMOOTH_RHS 
        df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 187 SMOOTH_RHS 
     &   -yA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 188 SMOOTH_RHS 
     &    *smooth3D_Kvy(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 189 SMOOTH_RHS 
     &    *recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 190 SMOOTH_RHS 
     &    *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 195 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 198 SMOOTH_RHS 
     &    ( maskC(i,j-1,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 199 SMOOTH_RHS 
     &       (fld_in(i,j-1,MAX(k-1,1),bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 200 SMOOTH_RHS 
     &      +maskC(i, j ,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 201 SMOOTH_RHS 
     &       (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj))
./pkg/smooth/smooth_rhs.F 204 SMOOTH_RHS 
     &    ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 205 SMOOTH_RHS 
     &      (fld_in(i,j-1,k,bi,bj)-fld_in(i,j-1,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F 206 SMOOTH_RHS 
     &      +maskC(i, j ,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 207 SMOOTH_RHS 
     &      (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F 209 SMOOTH_RHS 
          df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 210 SMOOTH_RHS 
     &        - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj)
./pkg/smooth/smooth_rhs.F 215 SMOOTH_RHS 
       DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 217 SMOOTH_RHS 
     &   +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 218 SMOOTH_RHS 
     &         *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 219 SMOOTH_RHS 
     &         (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 220 SMOOTH_RHS 
     &         +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 221 SMOOTH_RHS 
     &         *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 222 SMOOTH_RHS 
     &         (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 223 SMOOTH_RHS 
     &   +0.5*(maskW(i+1,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 224 SMOOTH_RHS 
     &         *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 225 SMOOTH_RHS 
     &         (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 226 SMOOTH_RHS 
     &         +maskW(i,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 227 SMOOTH_RHS 
     &         *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 228 SMOOTH_RHS 
     &         (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 230 SMOOTH_RHS 
          df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 231 SMOOTH_RHS 
     &        - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj)
./pkg/smooth/smooth_rhs.F 238 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 239 SMOOTH_RHS 
         fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 244 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 245 SMOOTH_RHS 
         df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 255 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 256 SMOOTH_RHS 
         df(i,j,bi,bj) =
./pkg/smooth/smooth_rhs.F 257 SMOOTH_RHS 
     &     -_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 258 SMOOTH_RHS 
     &     *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k)
./pkg/smooth/smooth_rhs.F 259 SMOOTH_RHS 
     &     *(fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 260 SMOOTH_RHS 
     &     -fld_in(i,j,k-1,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F 271 SMOOTH_RHS 
       DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 273 SMOOTH_RHS 
     &   +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 274 SMOOTH_RHS 
     &         *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 275 SMOOTH_RHS 
     &         (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 276 SMOOTH_RHS 
     &         +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 277 SMOOTH_RHS 
     &         *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 278 SMOOTH_RHS 
     &         (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 279 SMOOTH_RHS 
     &   +0.5*(maskW(i+1,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 280 SMOOTH_RHS 
     &         *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 281 SMOOTH_RHS 
     &         (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))
./pkg/smooth/smooth_rhs.F 282 SMOOTH_RHS 
     &         +maskW(i,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 283 SMOOTH_RHS 
     &         *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 284 SMOOTH_RHS 
     &         (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj)))
./pkg/smooth/smooth_rhs.F 288 SMOOTH_RHS 
     &   +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 289 SMOOTH_RHS 
     &         *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 290 SMOOTH_RHS 
     &         (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 291 SMOOTH_RHS 
     &        +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 292 SMOOTH_RHS 
     &        *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 293 SMOOTH_RHS 
     &        (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 294 SMOOTH_RHS 
     &   +0.5*(maskS(i,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 295 SMOOTH_RHS 
     &        *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 296 SMOOTH_RHS 
     &        (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj))
./pkg/smooth/smooth_rhs.F 297 SMOOTH_RHS 
     &        +maskS(i,j+1,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 298 SMOOTH_RHS 
     &        *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 299 SMOOTH_RHS 
     &        (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)))
./pkg/smooth/smooth_rhs.F 302 SMOOTH_RHS 
        df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 303 SMOOTH_RHS 
     &        - rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 304 SMOOTH_RHS 
     &        *( smooth3D_Kwx(i,j,k,bi,bj)*dTdx(bi,bj)
./pkg/smooth/smooth_rhs.F 305 SMOOTH_RHS 
     &        +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) )
./pkg/smooth/smooth_rhs.F 317 SMOOTH_RHS 
       DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 318 SMOOTH_RHS 
        fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) +
./pkg/smooth/smooth_rhs.F 319 SMOOTH_RHS 
     & df(i,j,bi,bj)*maskUp(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 325 SMOOTH_RHS 
        DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 326 SMOOTH_RHS 
         df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 345 SMOOTH_RHS 
          DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 346 SMOOTH_RHS 
        gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 347 SMOOTH_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 348 SMOOTH_RHS 
     &   *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 349 SMOOTH_RHS 
     &     +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 350 SMOOTH_RHS 
     &     +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F 356 SMOOTH_RHS 
          DO i=iMin,iMax
./pkg/smooth/smooth_rhs.F 357 SMOOTH_RHS 
        gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 358 SMOOTH_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)*recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 359 SMOOTH_RHS 
     &   *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 360 SMOOTH_RHS 
     &     +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 361 SMOOTH_RHS 
     &     +(fVerT(i,j,k,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F 63 SMOOTH_RHS 
      INTEGER i,j,k
./pkg/smooth/smooth_rhs.F 79 SMOOTH_RHS 
       DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_rhs.F 80 SMOOTH_RHS 
        fZon(i,j,k,bi,bj)      = 0. _d 0
./pkg/smooth/smooth_rhs.F 81 SMOOTH_RHS 
        fMer(i,j,k,bi,bj)      = 0. _d 0
./pkg/smooth/smooth_rhs.F 82 SMOOTH_RHS 
        fVerT(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F 83 SMOOTH_RHS 
        gt_in(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F 98 SMOOTH_RHS 
       DO i=1-OLx,sNx+OLx
./pkg/smooth/smooth_rhs.F 99 SMOOTH_RHS 
        df(i,j,bi,bj)        = 0. _d 0
./pkg/sphere/exch_all_2d_rl.F 54 EXCH_ALLGATHER_2D_RL 
      integer i, j
./pkg/sphere/exch_all_2d_rl.F 88 EXCH_ALLGATHER_2D_RL 
              do i = 1, sNx
./pkg/sphere/exch_all_2d_rl.F 89 EXCH_ALLGATHER_2D_RL 
                full(i,j,bi,bj,ipx,ipy) = recvbuf(i,j,bi,bj,iproc)
./pkg/sphere/sphere.F 102 ADFSC4DAT 
      integer i
./pkg/sphere/sphere.F 107 ADFSC4DAT 
      do i=1,n
./pkg/sphere/sphere.F 108 ADFSC4DAT 
        adfsc(i) = 0.0
./pkg/sphere/sphere.F 112 ADFSC4DAT 
      do i=1,n
./pkg/sphere/sphere.F 113 ADFSC4DAT 
        adfsc(i) = adfsc(i)/float(n)
./pkg/sphere/sphere.F 163 SHC2GRID 
      integer i
./pkg/sphere/sphere.F 178 SHC2GRID 
         do i=1,nlon
./pkg/sphere/sphere.F 179 SHC2GRID 
           hs(i) = 0.0
./pkg/sphere/sphere.F 180 SHC2GRID 
           hn(i) = 0.0
./pkg/sphere/sphere.F 185 SHC2GRID 
         do i=1,nlon
./pkg/sphere/sphere.F 186 SHC2GRID 
           grid(i,lats) = hs(i)
./pkg/sphere/sphere.F 187 SHC2GRID 
           grid(i,latn) = hn(i)
./pkg/sphere/sphere.F 217 SHC4GRID 
      integer i
./pkg/sphere/sphere.F 237 SHC4GRID 
         do i = 1,nlon
./pkg/sphere/sphere.F 238 SHC4GRID 
           hs(i) = grid(i,lats)
./pkg/sphere/sphere.F 239 SHC4GRID 
           hn(i) = grid(i,latn)
./pkg/sphere/sphere.F 411 SHC4ZONE 
        do i = 1,(1+lmax)*(1+lmax)
./pkg/sphere/sphere.F 412 SHC4ZONE 
          shc(i) = 0.0
./pkg/sphere/sphere.F 422 SHC4ZONE 
      do i = 1,lmax+lmax+1
./pkg/sphere/sphere.F 423 SHC4ZONE 
        hs(i) = hs(i)*scale
./pkg/sphere/sphere.F 424 SHC4ZONE 
        hn(i) = hn(i)*scale
./pkg/sphere/sphere.F 475 FSC2DAT 
      integer i
./pkg/sphere/sphere.F 477 FSC2DAT 
      do i = 2,n-1,2
./pkg/sphere/sphere.F 478 FSC2DAT 
        fsc(i  ) =  fsc(i  )*0.5
./pkg/sphere/sphere.F 479 FSC2DAT 
        fsc(i+1) = -fsc(i+1)*0.5   ! change sign of sine coeffs.
./pkg/sphere/sphere.F 485 FSC2DAT 
      do i = 1,n
./pkg/sphere/sphere.F 486 FSC2DAT 
        fsc( i ) = 0.0
./pkg/sphere/sphere.F 63 FSC4DAT 
      integer i
./pkg/sphere/sphere.F 68 FSC4DAT 
      do i=1,n
./pkg/sphere/sphere.F 69 FSC4DAT 
        fsc(i) = 0.0
./pkg/sphere/sphere.F 79 FSC4DAT 
      do i = 2,n-1,2
./pkg/sphere/sphere.F 80 FSC4DAT 
        fsc( i ) =  fsc( i )*scale
./pkg/sphere/sphere.F 82 FSC4DAT 
      do i = 3,n,2
./pkg/sphere/sphere.F 83 FSC4DAT 
        fsc( i ) = -fsc( i )*scale ! change sign of sine coeffs.
./pkg/thsice/THSICE_DEBUG.h 21 NO PROCEDURE 
      dBug(i,j,bi,bj) = dBugFlag .AND.
./pkg/thsice/THSICE_DEBUG.h 22 NO PROCEDURE 
     &         ( i.EQ.15 .AND. j.EQ.11 .AND. bi.EQ.3 .AND. bj.EQ.1 )
./model/src/find_alpha.F 132 FIND_ALPHA 
            DO i=iMin,iMax
./model/src/find_alpha.F 135 FIND_ALPHA 
               t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 139 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 147 FIND_ALPHA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 207 FIND_ALPHA 
               alphaLoc(i,j) =
./model/src/find_alpha.F 208 FIND_ALPHA 
     &              ( bulkmod(i,j)**2*drhoP0dtheta
./model/src/find_alpha.F 209 FIND_ALPHA 
     &              - bulkmod(i,j)*p1*drhoP0dtheta
./model/src/find_alpha.F 210 FIND_ALPHA 
     &              - rhoP0(i,j)*p1*dKdtheta )
./model/src/find_alpha.F 211 FIND_ALPHA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 236 FIND_ALPHA 
            DO i=iMin,iMax
./model/src/find_alpha.F 237 FIND_ALPHA 
               t1  = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 239 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 247 FIND_ALPHA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 264 FIND_ALPHA 
               alphaLoc(i,j)    = rhoDen(i,j)*(dnum_dtheta
./model/src/find_alpha.F 265 FIND_ALPHA 
     &              - (rhoLoc(i,j)*rhoDen(i,j))*dden_dtheta)
./model/src/find_alpha.F 315 FIND_BETA 
      INTEGER i,j
./model/src/find_alpha.F 338 FIND_BETA 
            DO i=iMin,iMax
./model/src/find_alpha.F 339 FIND_BETA 
               betaLoc(i,j) = rhonil * sBeta
./model/src/find_alpha.F 349 FIND_BETA 
            DO i=iMin,iMax
./model/src/find_alpha.F 350 FIND_BETA 
               tP=theta(i,j,k,bi,bj)-refTemp
./model/src/find_alpha.F 351 FIND_BETA 
               sP=salt(i,j,k,bi,bj)-refSalt
./model/src/find_alpha.F 353 FIND_BETA 
               betaLoc(i,j) =
./model/src/find_alpha.F 359 FIND_BETA 
               betaLoc(i,j) =
./model/src/find_alpha.F 392 FIND_BETA 
            DO i=iMin,iMax
./model/src/find_alpha.F 395 FIND_BETA 
               t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 399 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 407 FIND_BETA 
               p1  = locPres(i,j)*SItoBar
./model/src/find_alpha.F 453 FIND_BETA 
               betaLoc(i,j) =
./model/src/find_alpha.F 454 FIND_BETA 
     &              ( bulkmod(i,j)**2*drhoP0dS
./model/src/find_alpha.F 455 FIND_BETA 
     &              - bulkmod(i,j)*p1*drhoP0dS
./model/src/find_alpha.F 456 FIND_BETA 
     &              - rhoP0(i,j)*p1*dKdS )
./model/src/find_alpha.F 457 FIND_BETA 
     &              /( bulkmod(i,j) - p1 )**2
./model/src/find_alpha.F 482 FIND_BETA 
            DO i=iMin,iMax
./model/src/find_alpha.F 483 FIND_BETA 
               t1  = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 485 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 493 FIND_BETA 
               p1   = locPres(i,j)*SItodBar
./model/src/find_alpha.F 503 FIND_BETA 
               betaLoc(i,j) = rhoDen(i,j)*( dnum_dsalt
./model/src/find_alpha.F 504 FIND_BETA 
     &              - (rhoLoc(i,j)*rhoDen(i,j))*dden_dsalt )
./model/src/find_alpha.F 53 FIND_ALPHA 
      INTEGER i,j
./model/src/find_alpha.F 76 FIND_ALPHA 
            DO i=iMin,iMax
./model/src/find_alpha.F 77 FIND_ALPHA 
               alphaLoc(i,j) = -rhonil * tAlpha
./model/src/find_alpha.F 87 FIND_ALPHA 
            DO i=iMin,iMax
./model/src/find_alpha.F 88 FIND_ALPHA 
               tP=theta(i,j,k,bi,bj)-refTemp
./model/src/find_alpha.F 89 FIND_ALPHA 
               sP=salt(i,j,k,bi,bj)-refSalt
./model/src/find_alpha.F 91 FIND_ALPHA 
               alphaLoc(i,j) =
./model/src/find_alpha.F 99 FIND_ALPHA 
               alphaLoc(i,j) =
./pkg/thsice/thsice_advdiff.F 155 THSICE_ADVDIFF 
       DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_advdiff.F 156 THSICE_ADVDIFF 
         maskOce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 157 THSICE_ADVDIFF 
         IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1.
./pkg/thsice/thsice_advdiff.F 158 THSICE_ADVDIFF 
         iceVol(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 159 THSICE_ADVDIFF 
         uTrans(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 160 THSICE_ADVDIFF 
         vTrans(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 161 THSICE_ADVDIFF 
         uTrIce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 162 THSICE_ADVDIFF 
         vTrIce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 163 THSICE_ADVDIFF 
         oceFWfx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 164 THSICE_ADVDIFF 
         oceSflx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 165 THSICE_ADVDIFF 
         oceQnet(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 186 THSICE_ADVDIFF 
         DO i=1-Olx+1,sNx+Olx
./pkg/thsice/thsice_advdiff.F 187 THSICE_ADVDIFF 
          uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 188 THSICE_ADVDIFF 
     &                *maskOce(i-1,j)*maskOce(i,j)
./pkg/thsice/thsice_advdiff.F 192 THSICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advdiff.F 193 THSICE_ADVDIFF 
          vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 194 THSICE_ADVDIFF 
     &                *maskOce(i,j-1)*maskOce(i,j)
./pkg/thsice/thsice_advdiff.F 200 THSICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advdiff.F 201 THSICE_ADVDIFF 
          iceFrc(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 218 THSICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advdiff.F 219 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 235 THSICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advdiff.F 236 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 237 THSICE_ADVDIFF 
          oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 258 THSICE_ADVDIFF 
          DO i=1,sNx
./pkg/thsice/thsice_advdiff.F 260 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F 267 THSICE_ADVDIFF 
     &                                  i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F 269 THSICE_ADVDIFF 
     &                        iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 272 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 274 THSICE_ADVDIFF 
     &                                  i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F 276 THSICE_ADVDIFF 
     &       'ICE_ADV: uIce=', uIce(i,j), uIce(i+1,j),
./pkg/thsice/thsice_advdiff.F 277 THSICE_ADVDIFF 
     &             ' , vIce=', vIce(i,j), vIce(i,j+1)
./pkg/thsice/thsice_advdiff.F 279 THSICE_ADVDIFF 
     &       'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j),
./pkg/thsice/thsice_advdiff.F 280 THSICE_ADVDIFF 
     &       ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 281 THSICE_ADVDIFF 
     &                       iceHeight(i,j,bi,bj)*iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 316 THSICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advdiff.F 317 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 329 THSICE_ADVDIFF 
          DO i=1,sNx
./pkg/thsice/thsice_advdiff.F 330 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 353 THSICE_ADVDIFF 
         DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advdiff.F 354 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 368 THSICE_ADVDIFF 
          DO i=1,sNx
./pkg/thsice/thsice_advdiff.F 370 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)
./pkg/thsice/thsice_advdiff.F 371 THSICE_ADVDIFF 
     &             -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F 378 THSICE_ADVDIFF 
     &                                  i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F 380 THSICE_ADVDIFF 
     &      iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 383 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 420 THSICE_ADVDIFF 
         DO i=1,sNx
./pkg/thsice/thsice_advdiff.F 421 THSICE_ADVDIFF 
          IF ( iceFrc(i,j) .GT. 1. _d 0 ) THEN
./pkg/thsice/thsice_advdiff.F 423 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = 1. _d 0
./pkg/thsice/thsice_advdiff.F 424 THSICE_ADVDIFF 
            iceHeight(i,j,bi,bj)  = iceHeight(i,j,bi,bj) *iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 425 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 426 THSICE_ADVDIFF 
          ELSEIF ( iceFrc(i,j) .LT. iceMaskMin ) THEN
./pkg/thsice/thsice_advdiff.F 428 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceMaskMin
./pkg/thsice/thsice_advdiff.F 429 THSICE_ADVDIFF 
            iceHeight(i,j,bi,bj)  = iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 430 THSICE_ADVDIFF 
     &                             *iceFrc(i,j)*r_minArea
./pkg/thsice/thsice_advdiff.F 431 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 432 THSICE_ADVDIFF 
     &                             *iceFrc(i,j)*r_minArea
./pkg/thsice/thsice_advdiff.F 434 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 440 THSICE_ADVDIFF 
         DO i=1,sNx
./pkg/thsice/thsice_advdiff.F 441 THSICE_ADVDIFF 
          IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN
./pkg/thsice/thsice_advdiff.F 442 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 444 THSICE_ADVDIFF 
           IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN
./pkg/thsice/thsice_advdiff.F 445 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceVol(i,j)/hIceMin
./pkg/thsice/thsice_advdiff.F 446 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 447 THSICE_ADVDIFF 
     &                             *hIceMin/iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 448 THSICE_ADVDIFF 
            iceHeight(i,j,bi,bj)  = hIceMin
./pkg/thsice/thsice_advdiff.F 456 THSICE_ADVDIFF 
            oceFWfx(i,j,bi,bj) =  ( rhos*snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 457 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 458 THSICE_ADVDIFF 
     &                            )*iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F 459 THSICE_ADVDIFF 
            oceSflx(i,j,bi,bj) =    rhoi*iceHeight(i,j,bi,bj)*saltIce
./pkg/thsice/thsice_advdiff.F 460 THSICE_ADVDIFF 
     &                             *iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F 461 THSICE_ADVDIFF 
            oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow
./pkg/thsice/thsice_advdiff.F 462 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 463 THSICE_ADVDIFF 
     &                                  *( Qice1(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 464 THSICE_ADVDIFF 
     &                                    +Qice2(i,j,bi,bj) )*0.5 _d 0
./pkg/thsice/thsice_advdiff.F 465 THSICE_ADVDIFF 
     &                            )*iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F 470 THSICE_ADVDIFF 
            iceMask   (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 471 THSICE_ADVDIFF 
            iceHeight (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 472 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 473 THSICE_ADVDIFF 
            Qice1     (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 474 THSICE_ADVDIFF 
            Qice2     (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 475 THSICE_ADVDIFF 
            snowAge   (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 484 THSICE_ADVDIFF 
          DO i=1,sNx
./pkg/thsice/thsice_advdiff.F 485 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 524 THSICE_ADVDIFF 
          DO i=1,sNx
./pkg/thsice/thsice_advdiff.F 525 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 78 THSICE_ADVDIFF 
      INTEGER i, j
./pkg/thsice/thsice_advection.F 127 THSICE_ADVECTION 
      INTEGER i,j,k
./pkg/thsice/thsice_advection.F 212 THSICE_ADVECTION 
       DO i=2-OLx,sNx+OLx
./pkg/thsice/thsice_advection.F 213 THSICE_ADVECTION 
        maskLocW(i,j) = MIN( maskOc(i-1,j), maskOc(i,j) )
./pkg/thsice/thsice_advection.F 216 THSICE_ADVECTION 
      DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_advection.F 217 THSICE_ADVECTION 
       maskLocS(i,1-Oly) = 0.
./pkg/thsice/thsice_advection.F 220 THSICE_ADVECTION 
       DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_advection.F 221 THSICE_ADVECTION 
        maskLocS(i,j) = MIN( maskOc(i,j-1), maskOc(i,j) )
./pkg/thsice/thsice_advection.F 294 THSICE_ADVECTION 
          DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advection.F 295 THSICE_ADVECTION 
           af(i,j) = 0.
./pkg/thsice/thsice_advection.F 313 THSICE_ADVECTION 
           DO i=2-Olx,sNx+Olx
./pkg/thsice/thsice_advection.F 314 THSICE_ADVECTION 
            uCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 315 THSICE_ADVECTION 
     &          MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj)
./pkg/thsice/thsice_advection.F 316 THSICE_ADVECTION 
     &         +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj)
./pkg/thsice/thsice_advection.F 322 THSICE_ADVECTION 
           DO i=2-Olx,sNx+Olx
./pkg/thsice/thsice_advection.F 323 THSICE_ADVECTION 
            uCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 324 THSICE_ADVECTION 
     &        MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps )
./pkg/thsice/thsice_advection.F 325 THSICE_ADVECTION 
     &       +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps )
./pkg/thsice/thsice_advection.F 387 THSICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/thsice/thsice_advection.F 388 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 389 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 390 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 391 THSICE_ADVECTION 
     &                                *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 396 THSICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/thsice/thsice_advection.F 397 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 398 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 399 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 400 THSICE_ADVECTION 
     &                          *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F 401 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 402 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 403 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 404 THSICE_ADVECTION 
     &                                  *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 405 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 411 THSICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/thsice/thsice_advection.F 412 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 413 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 414 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 415 THSICE_ADVECTION 
     &                                *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 420 THSICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/thsice/thsice_advection.F 421 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 422 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 423 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 424 THSICE_ADVECTION 
     &                          *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F 425 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 426 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 427 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 428 THSICE_ADVECTION 
     &                                  *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 429 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 436 THSICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx
./pkg/thsice/thsice_advection.F 437 THSICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 443 THSICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx
./pkg/thsice/thsice_advection.F 444 THSICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 457 THSICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx-1
./pkg/thsice/thsice_advection.F 458 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 459 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 460 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 461 THSICE_ADVECTION 
     &                                *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 466 THSICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx-1
./pkg/thsice/thsice_advection.F 467 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 468 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 469 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 470 THSICE_ADVECTION 
     &                          *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F 471 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 472 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 473 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 474 THSICE_ADVECTION 
     &                                  *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 475 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 481 THSICE_ADVECTION 
           DO i=1-OLx+1,sNx+OLx
./pkg/thsice/thsice_advection.F 482 THSICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 508 THSICE_ADVECTION 
          DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_advection.F 509 THSICE_ADVECTION 
           af(i,j) = 0.
./pkg/thsice/thsice_advection.F 527 THSICE_ADVECTION 
           DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advection.F 528 THSICE_ADVECTION 
            vCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 529 THSICE_ADVECTION 
     &          MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj)
./pkg/thsice/thsice_advection.F 530 THSICE_ADVECTION 
     &         +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj)
./pkg/thsice/thsice_advection.F 536 THSICE_ADVECTION 
           DO i=1-Olx,sNx+Olx
./pkg/thsice/thsice_advection.F 537 THSICE_ADVECTION 
            vCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 538 THSICE_ADVECTION 
     &        MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps )
./pkg/thsice/thsice_advection.F 539 THSICE_ADVECTION 
     &       +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps )
./pkg/thsice/thsice_advection.F 600 THSICE_ADVECTION 
           DO i=1-OLx,0
./pkg/thsice/thsice_advection.F 601 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 602 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 603 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 604 THSICE_ADVECTION 
     &                                *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 609 THSICE_ADVECTION 
           DO i=1-OLx,0
./pkg/thsice/thsice_advection.F 610 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 611 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 612 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 613 THSICE_ADVECTION 
     &                          *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F 614 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 615 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 616 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 617 THSICE_ADVECTION 
     &                                  *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 618 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 624 THSICE_ADVECTION 
           DO i=sNx+1,sNx+OLx
./pkg/thsice/thsice_advection.F 625 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 626 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 627 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 628 THSICE_ADVECTION 
     &                                *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 633 THSICE_ADVECTION 
           DO i=sNx+1,sNx+OLx
./pkg/thsice/thsice_advection.F 634 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 635 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 636 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 637 THSICE_ADVECTION 
     &                          *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F 638 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 639 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 640 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 641 THSICE_ADVECTION 
     &                                  *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 642 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 649 THSICE_ADVECTION 
           DO i=1-OLx,0
./pkg/thsice/thsice_advection.F 650 THSICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 656 THSICE_ADVECTION 
           DO i=sNx+1,sNx+OLx
./pkg/thsice/thsice_advection.F 657 THSICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 670 THSICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/thsice/thsice_advection.F 671 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 672 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 673 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 674 THSICE_ADVECTION 
     &                                *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 679 THSICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/thsice/thsice_advection.F 680 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 681 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 682 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 683 THSICE_ADVECTION 
     &                          *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F 684 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 685 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 686 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 687 THSICE_ADVECTION 
     &                                  *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 688 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 694 THSICE_ADVECTION 
           DO i=iMinUpd,iMaxUpd
./pkg/thsice/thsice_advection.F 695 THSICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 711 THSICE_ADVECTION 
        DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_advection.F 712 THSICE_ADVECTION 
         IF ( i.EQ.idb .AND. j.EQ.jdb .AND. bi.EQ.biDb ) THEN
./pkg/thsice/thsice_advection.F 713 THSICE_ADVECTION 
          tmpFac= deltaTadvect*recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 715 THSICE_ADVECTION 
     &     afx(i,j)*tmpFac,afx(i+1,j)*tmpFac,
./pkg/thsice/thsice_advection.F 716 THSICE_ADVECTION 
     &     afy(i,j)*tmpFac,afy(i,j+1)*tmpFac
./pkg/thsice/thsice_albedo.F 101 THSICE_ALBEDO 
       DO i = iMin, iMax
./pkg/thsice/thsice_albedo.F 102 THSICE_ALBEDO 
        IF ( iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_albedo.F 103 THSICE_ALBEDO 
          hi  = hIce(i,j)
./pkg/thsice/thsice_albedo.F 104 THSICE_ALBEDO 
          hs  = hSnow(i,j)
./pkg/thsice/thsice_albedo.F 105 THSICE_ALBEDO 
          Tsf = tSrf(i,j)
./pkg/thsice/thsice_albedo.F 106 THSICE_ALBEDO 
          age = ageSnw(i,j)
./pkg/thsice/thsice_albedo.F 146 THSICE_ALBEDO 
        sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) )
./pkg/thsice/thsice_albedo.F 150 THSICE_ALBEDO 
        sAlbNIR(i,j) = albedo
./pkg/thsice/thsice_albedo.F 156 THSICE_ALBEDO 
     &       'THSICE_ALBEDO: Problem at:', myIter,i,j,bi,bj
./pkg/thsice/thsice_albedo.F 163 THSICE_ALBEDO 
          sAlb(i,j) = albedo
./pkg/thsice/thsice_albedo.F 165 THSICE_ALBEDO 
          sAlb(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F 166 THSICE_ALBEDO 
          sAlbNIR(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F 86 THSICE_ALBEDO 
      INTEGER i,j
./model/src/find_rho.F 100 FIND_RHO_2D 
        DO i=iMin,iMax
./model/src/find_rho.F 101 FIND_RHO_2D 
         rhoLoc(i,j)=rhoNil*(
./model/src/find_rho.F 102 FIND_RHO_2D 
     &     sBeta*(sFld(i,j)-refSalt)
./model/src/find_rho.F 103 FIND_RHO_2D 
     &   -tAlpha*(tFld(i,j)-refTemp) )
./model/src/find_rho.F 115 FIND_RHO_2D 
        DO i=iMin,iMax
./model/src/find_rho.F 116 FIND_RHO_2D 
         tP=tFld(i,j)-refTemp
./model/src/find_rho.F 117 FIND_RHO_2D 
         sP=sFld(i,j)-refSalt
./model/src/find_rho.F 139 FIND_RHO_2D 
         rhoLoc(i,j)=sigRef+deltaSig
./model/src/find_rho.F 169 FIND_RHO_2D 
          DO i=iMin,iMax
./model/src/find_rho.F 172 FIND_RHO_2D 
            rhoLoc(i,j) = rhoP0(i,j)
./model/src/find_rho.F 174 FIND_RHO_2D 
     &              locPres(i,j)*SItoBar/bulkMod(i,j) )
./model/src/find_rho.F 204 FIND_RHO_2D 
          DO i=iMin,iMax
./model/src/find_rho.F 205 FIND_RHO_2D 
            rhoLoc(i,j) = rhoNum(i,j)*rhoDen(i,j) - rhoConst
./model/src/find_rho.F 257 FIND_RHOP0 
      INTEGER i,j
./model/src/find_rho.F 263 FIND_RHOP0 
         DO i=iMin,iMax
./model/src/find_rho.F 265 FIND_RHOP0 
            t  = tFld(i,j)
./model/src/find_rho.F 270 FIND_RHOP0 
            s  = sFld(i,j)
./model/src/find_rho.F 302 FIND_RHOP0 
            rhoP0(i,j) = rfresh + rsalt
./model/src/find_rho.F 348 FIND_BULKMOD 
      INTEGER i,j
./model/src/find_rho.F 354 FIND_BULKMOD 
         DO i=iMin,iMax
./model/src/find_rho.F 356 FIND_BULKMOD 
            t  = tFld(i,j)
./model/src/find_rho.F 361 FIND_BULKMOD 
            s  = sFld(i,j)
./model/src/find_rho.F 369 FIND_BULKMOD 
            p = locPres(i,j)*SItoBar
./model/src/find_rho.F 410 FIND_BULKMOD 
            bulkMod(i,j) = bMfresh + bMsalt + bMpres
./model/src/find_rho.F 457 FIND_RHONUM 
      INTEGER i,j
./model/src/find_rho.F 461 FIND_RHONUM 
         DO i=iMin,iMax
./model/src/find_rho.F 463 FIND_RHONUM 
            t1  = tFld(i,j)
./model/src/find_rho.F 465 FIND_RHONUM 
            s1  = sFld(i,j)
./model/src/find_rho.F 467 FIND_RHONUM 
            p1   = locPres(i,j)*SItodBar
./model/src/find_rho.F 469 FIND_RHONUM 
            rhoNum(i,j) = eosMDJWFnum(0)
./model/src/find_rho.F 523 FIND_RHODEN 
      INTEGER i,j
./model/src/find_rho.F 529 FIND_RHODEN 
         DO i=iMin,iMax
./model/src/find_rho.F 531 FIND_RHODEN 
            t1  = tFld(i,j)
./model/src/find_rho.F 533 FIND_RHODEN 
            s1  = sFld(i,j)
./model/src/find_rho.F 541 FIND_RHODEN 
            p1   = locPres(i,j)*SItodBar
./model/src/find_rho.F 555 FIND_RHODEN 
            rhoDen(i,j) = 1.0/(epsln+den)
./model/src/find_rho.F 61 FIND_RHO_2D 
      INTEGER i,j
./model/src/find_rho.F 73 FIND_RHO_2D 
       DO i=1-OLx,sNx+OLx
./model/src/find_rho.F 74 FIND_RHO_2D 
        rhoLoc(i,j)  = 0. _d 0
./model/src/find_rho.F 75 FIND_RHO_2D 
        rhoP0(i,j)   = 0. _d 0
./model/src/find_rho.F 76 FIND_RHO_2D 
        bulkMod(i,j) = 0. _d 0
./model/src/find_rho.F 813 LOOK_FOR_NEG_SALINITY 
      INTEGER i,j, localWarning
./model/src/find_rho.F 819 LOOK_FOR_NEG_SALINITY 
       DO i=iMin,iMax
./model/src/find_rho.F 821 LOOK_FOR_NEG_SALINITY 
        IF ( sFld(i,j) .LT. 0. _d 0 ) THEN
./model/src/find_rho.F 823 LOOK_FOR_NEG_SALINITY 
         sFld(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 182 THSICE_CALC_THICKN 
      INTEGER  i,j,k
./pkg/thsice/thsice_calc_thickn.F 272 THSICE_CALC_THICKN 
       DO i = iMin, iMax
./pkg/thsice/thsice_calc_thickn.F 274 THSICE_CALC_THICKN 
          ikey_1 = i
./pkg/thsice/thsice_calc_thickn.F 292 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 293 THSICE_CALC_THICKN 
          Tf      = tFrz(i,j)
./pkg/thsice/thsice_calc_thickn.F 294 THSICE_CALC_THICKN 
          oceTs   = tOce(i,j)
./pkg/thsice/thsice_calc_thickn.F 295 THSICE_CALC_THICKN 
          oceV2s  = v2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 296 THSICE_CALC_THICKN 
          snowPr  = snowP(i,j)
./pkg/thsice/thsice_calc_thickn.F 298 THSICE_CALC_THICKN 
          sHeating= sHeat(i,j)
./pkg/thsice/thsice_calc_thickn.F 300 THSICE_CALC_THICKN 
          iceFrac = icFrac(i,j)
./pkg/thsice/thsice_calc_thickn.F 301 THSICE_CALC_THICKN 
          hi      = hIce(i,j)
./pkg/thsice/thsice_calc_thickn.F 302 THSICE_CALC_THICKN 
          hs      = hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 303 THSICE_CALC_THICKN 
          Tsf     = tSrf(i,j)
./pkg/thsice/thsice_calc_thickn.F 304 THSICE_CALC_THICKN 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F 305 THSICE_CALC_THICKN 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F 307 THSICE_CALC_THICKN 
          frzmlt  = fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F 308 THSICE_CALC_THICKN 
          qleft   = flx2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 315 THSICE_CALC_THICKN 
      evap = frwAtm(i,j)
./pkg/thsice/thsice_calc_thickn.F 382 THSICE_CALC_THICKN 
      IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 383 THSICE_CALC_THICKN 
     &  'ThSI_CALC_TH: evpAtm, frzmlt, Fbot =', frwAtm(i,j),frzmlt,Fbot
./pkg/thsice/thsice_calc_thickn.F 438 THSICE_CALC_THICKN 
      ebot = (flxCnB(i,j)-Fbot) * dt
./pkg/thsice/thsice_calc_thickn.F 446 THSICE_CALC_THICKN 
      IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 481 THSICE_CALC_THICKN 
     &         + nlyr*(i-1)
./pkg/thsice/thsice_calc_thickn.F 535 THSICE_CALC_THICKN 
     &         + nlyr*(i-1)
./pkg/thsice/thsice_calc_thickn.F 588 THSICE_CALC_THICKN 
      IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 606 THSICE_CALC_THICKN 
        IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 652 THSICE_CALC_THICKN 
     &         + nlyr*(i-1)
./pkg/thsice/thsice_calc_thickn.F 722 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 788 THSICE_CALC_THICKN 
       IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 798 THSICE_CALC_THICKN 
       IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 814 THSICE_CALC_THICKN 
       IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 834 THSICE_CALC_THICKN 
      fsalt(i,j) = (msalt0 - rhoi*hi*saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F 837 THSICE_CALC_THICKN 
      IF (dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_calc_thickn.F 839 THSICE_CALC_THICKN 
     &   (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt(i,j)
./pkg/thsice/thsice_calc_thickn.F 846 THSICE_CALC_THICKN 
      fresh = fresh + (prcAtm(i,j)-snowPr)
./pkg/thsice/thsice_calc_thickn.F 864 THSICE_CALC_THICKN 
           fsalt(i,j)=fsalt(i,j)+extend/rqh*salte
./pkg/thsice/thsice_calc_thickn.F 871 THSICE_CALC_THICKN 
           fsalt(i,j)=fsalt(i,j)+salte
./pkg/thsice/thsice_calc_thickn.F 882 THSICE_CALC_THICKN 
          frwAtm(i,j) = frwAtm(i,j) - prcAtm(i,j)
./pkg/thsice/thsice_calc_thickn.F 886 THSICE_CALC_THICKN 
          fzMlOc(i,j) = frzmlt - Fbot*iceMask(i,j)
./pkg/thsice/thsice_calc_thickn.F 890 THSICE_CALC_THICKN 
       IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 892 THSICE_CALC_THICKN 
     &   iceFrac, qleft, fsalt(i,j), fresh
./pkg/thsice/thsice_calc_thickn.F 895 THSICE_CALC_THICKN 
          CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 0,
./pkg/thsice/thsice_calc_thickn.F 896 THSICE_CALC_THICKN 
     I            iceMask(i,j), iceFrac, hi, hs, qicen,
./pkg/thsice/thsice_calc_thickn.F 902 THSICE_CALC_THICKN 
          icFrac(i,j) = iceFrac
./pkg/thsice/thsice_calc_thickn.F 903 THSICE_CALC_THICKN 
          hIce(i,j)   = hi
./pkg/thsice/thsice_calc_thickn.F 904 THSICE_CALC_THICKN 
          hSnow(i,j ) = hs
./pkg/thsice/thsice_calc_thickn.F 905 THSICE_CALC_THICKN 
          tSrf(i,j)   = Tsf
./pkg/thsice/thsice_calc_thickn.F 906 THSICE_CALC_THICKN 
          qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_calc_thickn.F 907 THSICE_CALC_THICKN 
          qIc2(i,j)   = qicen(2)
./pkg/thsice/thsice_calc_thickn.F 909 THSICE_CALC_THICKN 
          flx2oc(i,j) = qleft
./pkg/thsice/thsice_calc_thickn.F 910 THSICE_CALC_THICKN 
          frw2oc(i,j) = fresh
./pkg/thsice/thsice_check_conserv.F 104 THSICE_CHECK_CONSERV 
     &    hIce, hSnow, snowPrc(i,j,bi,bj)*thSIce_deltaT/rhos
./pkg/thsice/thsice_check_conserv.F 35 THSICE_CHECK_CONSERV 
      INTEGER i,j, bi,bj
./pkg/thsice/thsice_check_conserv.F 59 THSICE_CHECK_CONSERV 
          dBugLoc = dBug(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 62 THSICE_CHECK_CONSERV 
          flxAtm = icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 63 THSICE_CHECK_CONSERV 
          frwAtm = icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 67 THSICE_CHECK_CONSERV 
          dEnerg= -rhos*snowHeight(i,j,bi,bj)*qsnow
./pkg/thsice/thsice_check_conserv.F 68 THSICE_CHECK_CONSERV 
     &            -rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 69 THSICE_CHECK_CONSERV 
     &             *(Qice1(i,j,bi,bj)+Qice2(i,j,bi,bj))*0.5
./pkg/thsice/thsice_check_conserv.F 70 THSICE_CHECK_CONSERV 
          dWater = rhos*snowheight(i,j,bi,bj)+rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 71 THSICE_CHECK_CONSERV 
          dSalt =  rhoi*iceHeight(i,j,bi,bj)*saltice
./pkg/thsice/thsice_check_conserv.F 93 THSICE_CHECK_CONSERV 
          ice_flx2oc_Ave(i,j,bi,bj) = ice_flx2oc_Ave(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 95 THSICE_CHECK_CONSERV 
          ice_frw2oc_Ave(i,j,bi,bj) = ice_frw2oc_Ave(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 97 THSICE_CHECK_CONSERV 
          ice_salFx_Ave(i,j,bi,bj) = ice_salFx_Ave(i,j,bi,bj)
./pkg/thsice/thsice_check_conserv.F 9 THSICE_CHECK_CONSERV 
     I             dBugFlag, i, j, bi, bj, iceStart,
./pkg/thsice/thsice_diagnostics_state.F 45 THSICE_DIAGNOSTICS_STATE 
      INTEGER i,j
./pkg/thsice/thsice_diagnostics_state.F 76 THSICE_DIAGNOSTICS_STATE 
         DO i=1,sNx
./pkg/thsice/thsice_diagnostics_state.F 77 THSICE_DIAGNOSTICS_STATE 
          tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_diffusion.F 100 THSICE_DIFFUSION 
     &              + thSIce_diffK*( iceFld(i,j-1)-iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F 101 THSICE_DIFFUSION 
     &                            *recip_dyC(i,j,bi,bj)/tmpFld
./pkg/thsice/thsice_diffusion.F 61 THSICE_DIFFUSION 
      INTEGER i, j
./pkg/thsice/thsice_diffusion.F 76 THSICE_DIFFUSION 
         DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_diffusion.F 77 THSICE_DIFFUSION 
          iceFld(i,j)  = ( rhos*snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_diffusion.F 78 THSICE_DIFFUSION 
     &                    +rhoi*iceHeight(i,j,bi,bj) )
./pkg/thsice/thsice_diffusion.F 84 THSICE_DIFFUSION 
         DO i=1-OLx+1,sNx+OLx
./pkg/thsice/thsice_diffusion.F 85 THSICE_DIFFUSION 
          tmpFld = MAX( iceFld(i-1,j),iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F 86 THSICE_DIFFUSION 
     &                * maskOc(i-1,j)*maskOc(i,j)
./pkg/thsice/thsice_diffusion.F 88 THSICE_DIFFUSION 
     &    uIce(i,j) = uIce(i,j)
./pkg/thsice/thsice_diffusion.F 89 THSICE_DIFFUSION 
     &              + thSIce_diffK*( iceFld(i-1,j)-iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F 90 THSICE_DIFFUSION 
     &                            *recip_dxC(i,j,bi,bj)/tmpFld
./pkg/thsice/thsice_diffusion.F 95 THSICE_DIFFUSION 
         DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_diffusion.F 96 THSICE_DIFFUSION 
          tmpFld = MAX( iceFld(i,j-1),iceFld(i,j) )
./pkg/thsice/thsice_diffusion.F 97 THSICE_DIFFUSION 
     &                 *maskOc(i,j-1)*maskOc(i,j)
./pkg/thsice/thsice_diffusion.F 99 THSICE_DIFFUSION 
     &    vIce(i,j) = vIce(i,j)
./pkg/thsice/thsice_extend.F 116 THSICE_EXTEND 
      INTEGER  i,j     ! loop indices
./pkg/thsice/thsice_extend.F 139 THSICE_EXTEND 
       DO i = iMin, iMax
./pkg/thsice/thsice_extend.F 141 THSICE_EXTEND 
          ikey_1 = i
./pkg/thsice/thsice_extend.F 157 THSICE_EXTEND 
        IF (fzMlOc(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_extend.F 158 THSICE_EXTEND 
          esurp   = fzMlOc(i,j)
./pkg/thsice/thsice_extend.F 159 THSICE_EXTEND 
          Tf      = tFrz(i,j)
./pkg/thsice/thsice_extend.F 160 THSICE_EXTEND 
          iceFrac = icFrac(i,j)
./pkg/thsice/thsice_extend.F 161 THSICE_EXTEND 
          iceThick= hIce(i,j)
./pkg/thsice/thsice_extend.F 162 THSICE_EXTEND 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_extend.F 163 THSICE_EXTEND 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_extend.F 178 THSICE_EXTEND 
        IF ( icFrac(i,j).EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F 196 THSICE_EXTEND 
            iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax)
./pkg/thsice/thsice_extend.F 204 THSICE_EXTEND 
            hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac
./pkg/thsice/thsice_extend.F 207 THSICE_EXTEND 
        flx2oc(i,j)= qicAv*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 208 THSICE_EXTEND 
        frw2oc(i,j)= -rhoi*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 209 THSICE_EXTEND 
        fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 213 THSICE_EXTEND 
        IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_extend.F 215 THSICE_EXTEND 
     &                       iceThick, newIce, iceFrac-icFrac(i,j)
./pkg/thsice/thsice_extend.F 217 THSICE_EXTEND 
     &                  iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j)
./pkg/thsice/thsice_extend.F 221 THSICE_EXTEND 
          CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 1,
./pkg/thsice/thsice_extend.F 222 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F 223 THSICE_EXTEND 
     I            flx2oc(i,j), frw2oc(i,j), fsalt(i,j),
./pkg/thsice/thsice_extend.F 228 THSICE_EXTEND 
          IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN
./pkg/thsice/thsice_extend.F 230 THSICE_EXTEND 
            tSrf(i,j)   = tFrz(i,j)
./pkg/thsice/thsice_extend.F 231 THSICE_EXTEND 
            tIc1(i,j)   = tFrz(i,j)
./pkg/thsice/thsice_extend.F 232 THSICE_EXTEND 
            tIc2(i,j)   = tFrz(i,j)
./pkg/thsice/thsice_extend.F 233 THSICE_EXTEND 
            qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_extend.F 234 THSICE_EXTEND 
            qIc2(i,j)   = qicen(2)
./pkg/thsice/thsice_extend.F 236 THSICE_EXTEND 
          icFrac(i,j) = iceFrac
./pkg/thsice/thsice_extend.F 237 THSICE_EXTEND 
          hIce(i,j)   = iceThick
./pkg/thsice/thsice_get_bulkf.F 100 THSICE_GET_BULKF 
     I        uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 101 THSICE_GET_BULKF 
     I        Tair(i,j,bi,bj), Qair(i,j,bi,bj), cloud(i,j,bi,bj), Tsf,
./pkg/thsice/thsice_get_bulkf.F 106 THSICE_GET_BULKF 
     I        uwind(i,j,bi,bj), vwind(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 107 THSICE_GET_BULKF 
     I        Tair(i,j,bi,bj), Qair(i,j,bi,bj), Tsf,
./pkg/thsice/thsice_get_bulkf.F 109 THSICE_GET_BULKF 
     I        iceornot, i,j,bi,bj,myThid )
./pkg/thsice/thsice_get_bulkf.F 112 THSICE_GET_BULKF 
        flwNet_dwn = flwdwn(i,j,bi,bj) - flwup
./pkg/thsice/thsice_get_bulkf.F 15 THSICE_GET_BULKF 
     I                         i,j,bi,bj,myThid )
./pkg/thsice/thsice_get_bulkf.F 45 THSICE_GET_BULKF 
      INTEGER i,j, bi,bj
./pkg/thsice/thsice_get_bulkf.F 76 THSICE_GET_BULKF 
     I             Tsurf, flwdwn(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 77 THSICE_GET_BULKF 
     I             ThAir(i,j,bi,bj), Tair(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 78 THSICE_GET_BULKF 
     I             Qair(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/thsice/thsice_get_exf.F 143 THSICE_GET_EXF 
          ikey_1 = i
./pkg/thsice/thsice_get_exf.F 155 THSICE_GET_EXF 
      ws     = wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 159 THSICE_GET_EXF 
      wsm    = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 15 THSICE_GET_EXF 
     I                         i,j,bi,bj,myThid )
./pkg/thsice/thsice_get_exf.F 171 THSICE_GET_EXF 
        IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 178 THSICE_GET_EXF 
          deltap = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/thsice/thsice_get_exf.F 179 THSICE_GET_EXF 
          delq   = aqh(i,j,bi,bj) - ssq
./pkg/thsice/thsice_get_exf.F 192 THSICE_GET_EXF 
           t0     = atemp(i,j,bi,bj)*
./pkg/thsice/thsice_get_exf.F 193 THSICE_GET_EXF 
     &            (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 211 THSICE_GET_EXF 
     &                  + niter_bulk*(i-1)
./pkg/thsice/thsice_get_exf.F 226 THSICE_GET_EXF 
     &                qstar/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 320 THSICE_GET_EXF 
          flwNet_dwn  = emiss*lwdown(i,j,bi,bj) - flwup
./pkg/thsice/thsice_get_exf.F 51 THSICE_GET_EXF 
      INTEGER i,j, bi,bj
./pkg/thsice/thsice_get_precip.F 63 THSICE_GET_PRECIP 
      INTEGER i,j
./pkg/thsice/thsice_get_precip.F 66 THSICE_GET_PRECIP 
        DO i = iMin, iMax
./pkg/thsice/thsice_get_precip.F 67 THSICE_GET_PRECIP 
           precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw
./pkg/thsice/thsice_get_precip.F 68 THSICE_GET_PRECIP 
           flxSW (i,j) = solar(i,j,bi,bj)
./pkg/thsice/thsice_get_precip.F 69 THSICE_GET_PRECIP 
           IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_get_precip.F 70 THSICE_GET_PRECIP 
     &       .AND. Tair(i,j,bi,bj).LE.Tf0kel )  THEN
./pkg/thsice/thsice_get_precip.F 71 THSICE_GET_PRECIP 
             snowPrc(i,j) = rain(i,j,bi,bj)*rhofw
./pkg/thsice/thsice_get_velocity.F 58 THSICE_GET_VELOCITY 
      INTEGER i, j
./pkg/thsice/thsice_get_velocity.F 67 THSICE_GET_VELOCITY 
         DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_get_velocity.F 68 THSICE_GET_VELOCITY 
          uLoc(i,j) = UICE(i,j,bi,bj)
./pkg/thsice/thsice_get_velocity.F 69 THSICE_GET_VELOCITY 
          vLoc(i,j) = VICE(i,j,bi,bj)
./pkg/thsice/thsice_get_velocity.F 78 THSICE_GET_VELOCITY 
         DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_get_velocity.F 79 THSICE_GET_VELOCITY 
          uLoc(i,j) = 0.
./pkg/thsice/thsice_get_velocity.F 80 THSICE_GET_VELOCITY 
          vLoc(i,j) = 0.
./pkg/thsice/thsice_impl_temp.F 57 THSICE_IMPL_TEMP 
      INTEGER i,j
./pkg/thsice/thsice_impl_temp.F 82 THSICE_IMPL_TEMP 
       DO i = iMin, iMax
./pkg/thsice/thsice_impl_temp.F 83 THSICE_IMPL_TEMP 
        icFlxSW(i,j,bi,bj) = netSW(i,j)
./pkg/thsice/thsice_impl_temp.F 84 THSICE_IMPL_TEMP 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_impl_temp.F 85 THSICE_IMPL_TEMP 
          tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_impl_temp.F 87 THSICE_IMPL_TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_impl_temp.F 88 THSICE_IMPL_TEMP 
           WRITE(6,'(A,2I4,2I2)') 'ThSI_IMPL_T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_impl_temp.F 90 THSICE_IMPL_TEMP 
     &                   iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_impl_temp.F 91 THSICE_IMPL_TEMP 
     &                   snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_impl_temp.F 93 THSICE_IMPL_TEMP 
     &           Tice1(i,j,bi,bj), Tice2(i,j,bi,bj),
./pkg/thsice/thsice_impl_temp.F 94 THSICE_IMPL_TEMP 
     &           Qice1(i,j,bi,bj), Qice2(i,j,bi,bj)
./pkg/thsice/thsice_ini_vars.F 100 THSICE_INI_VARS 
            DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_ini_vars.F 101 THSICE_INI_VARS 
             IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 )
./pkg/thsice/thsice_ini_vars.F 102 THSICE_INI_VARS 
     &       hOceMxL(i,j,bi,bj) = 0.
./pkg/thsice/thsice_ini_vars.F 148 THSICE_INI_VARS 
            DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_ini_vars.F 149 THSICE_INI_VARS 
             IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN
./pkg/thsice/thsice_ini_vars.F 150 THSICE_INI_VARS 
              Qice1(i,j,bi,bj) = -cpWater*Tmlt1
./pkg/thsice/thsice_ini_vars.F 152 THSICE_INI_VARS 
              Qice2(i,j,bi,bj) = -cpIce *Tf + Lfresh
./pkg/thsice/thsice_ini_vars.F 176 THSICE_INI_VARS 
          DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_ini_vars.F 177 THSICE_INI_VARS 
           sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_ini_vars.F 178 THSICE_INI_VARS 
     &          + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_ini_vars.F 179 THSICE_INI_VARS 
     &          )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_ini_vars.F 46 THSICE_INI_VARS 
      INTEGER i, j
./pkg/thsice/thsice_ini_vars.F 57 THSICE_INI_VARS 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_ini_vars.F 58 THSICE_INI_VARS 
            iceMask(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 59 THSICE_INI_VARS 
            iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_ini_vars.F 60 THSICE_INI_VARS 
            snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_ini_vars.F 61 THSICE_INI_VARS 
            Tsrf(i,j,bi,bj)     = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 62 THSICE_INI_VARS 
            Tice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 63 THSICE_INI_VARS 
            Tice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 64 THSICE_INI_VARS 
            Qice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 65 THSICE_INI_VARS 
            Qice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 66 THSICE_INI_VARS 
            snowAge(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 71 THSICE_INI_VARS 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_ini_vars.F 72 THSICE_INI_VARS 
            sHeating(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 73 THSICE_INI_VARS 
            flxCndBt(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 74 THSICE_INI_VARS 
            snowPrc(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 75 THSICE_INI_VARS 
            siceAlb(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 76 THSICE_INI_VARS 
            icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 77 THSICE_INI_VARS 
            icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 78 THSICE_INI_VARS 
            icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 80 THSICE_INI_VARS 
            oceFWfx(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 81 THSICE_INI_VARS 
            oceSflx(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 82 THSICE_INI_VARS 
            oceQnet(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 88 THSICE_INI_VARS 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_ini_vars.F 89 THSICE_INI_VARS 
             hOceMxL(i,j,bi,bj) = hMxL_default
./pkg/thsice/thsice_ini_vars.F 90 THSICE_INI_VARS 
             tOceMxL(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 91 THSICE_INI_VARS 
             sOceMxL(i,j,bi,bj) = sMxL_default
./pkg/thsice/thsice_ini_vars.F 92 THSICE_INI_VARS 
             v2ocMxL(i,j,bi,bj) = v2Loc
./pkg/thsice/thsice_main.F 115 THSICE_MAIN 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_main.F 116 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*h0FacC(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 117 THSICE_MAIN 
     &                                  *rStarFacC(i,j,bi,bj)
./pkg/thsice/thsice_main.F 122 THSICE_MAIN 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_main.F 123 THSICE_MAIN 
            IF ( ksurfC(i,j,bi,bj).EQ.1 ) THEN
./pkg/thsice/thsice_main.F 124 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj)
./pkg/thsice/thsice_main.F 126 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 136 THSICE_MAIN 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_main.F 137 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 148 THSICE_MAIN 
         DO i = iMin, iMax
./pkg/thsice/thsice_main.F 149 THSICE_MAIN 
          tOceMxL(i,j,bi,bj) = theta(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 150 THSICE_MAIN 
          sOceMxL(i,j,bi,bj) = salt (i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 151 THSICE_MAIN 
          v2ocMxL(i,j,bi,bj) =
./pkg/thsice/thsice_main.F 152 THSICE_MAIN 
     &              ( uvel(i,j,1,bi,bj)*uvel(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 153 THSICE_MAIN 
     &              + uvel(i+1,j,1,bi,bj)*uvel(i+1,j,1,bi,bj)
./pkg/thsice/thsice_main.F 154 THSICE_MAIN 
     &              + vvel(i,j+1,1,bi,bj)*vvel(i,j+1,1,bi,bj)
./pkg/thsice/thsice_main.F 155 THSICE_MAIN 
     &              + vvel(i,j,1,bi,bj)*vvel(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 157 THSICE_MAIN 
          prcAtm(i,j) = 0.
./pkg/thsice/thsice_main.F 158 THSICE_MAIN 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 159 THSICE_MAIN 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 160 THSICE_MAIN 
          icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 161 THSICE_MAIN 
          snowPrc(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 162 THSICE_MAIN 
          siceAlb(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 244 THSICE_MAIN 
           DO i = iMin+1,iMax
./pkg/thsice/thsice_main.F 246 THSICE_MAIN 
     &             *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 247 THSICE_MAIN 
            fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj)
./pkg/thsice/thsice_main.F 251 THSICE_MAIN 
           DO i = iMin, iMax
./pkg/thsice/thsice_main.F 253 THSICE_MAIN 
     &             *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 254 THSICE_MAIN 
            fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj)
./pkg/thsice/thsice_main.F 50 THSICE_MAIN 
      INTEGER i,j
./pkg/thsice/thsice_map_exf.F 63 THSICE_MAP_EXF 
      INTEGER i,j
./pkg/thsice/thsice_map_exf.F 66 THSICE_MAP_EXF 
       DO i = iMin, iMax
./pkg/thsice/thsice_map_exf.F 68 THSICE_MAP_EXF 
        totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 71 THSICE_MAP_EXF 
        totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 76 THSICE_MAP_EXF 
        flxSW (i,j) = swdown(i,j,bi,bj)
./pkg/thsice/thsice_map_exf.F 86 THSICE_MAP_EXF 
        DO i = iMin, iMax
./pkg/thsice/thsice_map_exf.F 87 THSICE_MAP_EXF 
         snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 94 THSICE_MAP_EXF 
        DO i = iMin, iMax
./pkg/thsice/thsice_map_exf.F 95 THSICE_MAP_EXF 
         IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_map_exf.F 96 THSICE_MAP_EXF 
     &        .AND. atemp(i,j,bi,bj).LE.cen2kel )  THEN
./pkg/thsice/thsice_map_exf.F 98 THSICE_MAP_EXF 
          snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_monitor.F 118 THSICE_MONITOR 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_monitor.F 119 THSICE_MONITOR 
            locMask(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_monitor.F 194 THSICE_MONITOR 
           DO i=1-OLx,sNx+OLx
./pkg/thsice/thsice_monitor.F 195 THSICE_MONITOR 
            locMask(i,j,bi,bj)=iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_monitor.F 58 THSICE_MONITOR 
      INTEGER i,j,bi,bj
./pkg/thsice/thsice_output.F 226 THSICE_OUTPUT 
         DO i = 1,MAX_LEN_MBUF
./pkg/thsice/thsice_output.F 227 THSICE_OUTPUT 
           mncf(i:i) = ' '
./pkg/thsice/thsice_output.F 350 THSICE_OUTPUT 
          DO i = 1,MAX_LEN_MBUF
./pkg/thsice/thsice_output.F 351 THSICE_OUTPUT 
            mncf(i:i) = ' '
./pkg/thsice/thsice_output.F 55 THSICE_OUTPUT 
      INTEGER i
./model/src/freesurf_rescale_g.F 37 FREESURF_RESCALE_G 
      INTEGER i,j
./model/src/freesurf_rescale_g.F 46 FREESURF_RESCALE_G 
         DO i=1-Olx,sNx+Olx
./model/src/freesurf_rescale_g.F 47 FREESURF_RESCALE_G 
           gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj)
./model/src/freesurf_rescale_g.F 48 FREESURF_RESCALE_G 
     &                          /rStarExpC(i,j,bi,bj)
./model/src/freesurf_rescale_g.F 54 FREESURF_RESCALE_G 
         DO i=1-Olx,sNx+Olx
./model/src/freesurf_rescale_g.F 55 FREESURF_RESCALE_G 
          IF (k.EQ.ksurfC(i,j,bi,bj)) THEN
./model/src/freesurf_rescale_g.F 56 FREESURF_RESCALE_G 
           gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj)
./model/src/freesurf_rescale_g.F 57 FREESURF_RESCALE_G 
     &           *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 109 THSICE_SLAB_OCEAN 
         DO i=1,sNx
./pkg/thsice/thsice_slab_ocean.F 110 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 111 THSICE_SLAB_OCEAN 
           oceTfreez = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 112 THSICE_SLAB_OCEAN 
           locTemp = ( aim_sWght0*aim_sst0(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 113 THSICE_SLAB_OCEAN 
     &               + aim_sWght1*aim_sst1(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 116 THSICE_SLAB_OCEAN 
           tOceMxL(i,j,bi,bj) =
./pkg/thsice/thsice_slab_ocean.F 117 THSICE_SLAB_OCEAN 
     &         (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR
./pkg/thsice/thsice_slab_ocean.F 123 THSICE_SLAB_OCEAN 
        DO i=1,sNx
./pkg/thsice/thsice_slab_ocean.F 124 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 125 THSICE_SLAB_OCEAN 
           locQflux = ( aim_sWght0*aim_qfx0(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 126 THSICE_SLAB_OCEAN 
     &                + aim_sWght1*aim_qfx1(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 128 THSICE_SLAB_OCEAN 
           tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 129 THSICE_SLAB_OCEAN 
     &            + heatFac*locQflux / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 137 THSICE_SLAB_OCEAN 
        DO i=1,sNx
./pkg/thsice/thsice_slab_ocean.F 138 THSICE_SLAB_OCEAN 
         IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 139 THSICE_SLAB_OCEAN 
          dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j)
./pkg/thsice/thsice_slab_ocean.F 66 THSICE_SLAB_OCEAN 
      INTEGER i,j
./pkg/thsice/thsice_slab_ocean.F 77 THSICE_SLAB_OCEAN 
        DO i=1,sNx
./pkg/thsice/thsice_slab_ocean.F 78 THSICE_SLAB_OCEAN 
         IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 79 THSICE_SLAB_OCEAN 
          dTsurf(i,j) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 80 THSICE_SLAB_OCEAN 
          tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 81 THSICE_SLAB_OCEAN 
     &       - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 82 THSICE_SLAB_OCEAN 
          sOceMxL(i,j,bi,bj) = sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 83 THSICE_SLAB_OCEAN 
     &       + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj))
./pkg/thsice/thsice_slab_ocean.F 84 THSICE_SLAB_OCEAN 
     &                                 / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 95 THSICE_SLAB_OCEAN 
         DO i=1,sNx
./pkg/thsice/thsice_slab_ocean.F 96 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 97 THSICE_SLAB_OCEAN 
           sOceMxL(i,j,bi,bj) =
./pkg/thsice/thsice_slab_ocean.F 98 THSICE_SLAB_OCEAN 
     &         (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR
./pkg/thsice/thsice_solve4temp.F 154 THSICE_SOLVE4TEMP 
      INTEGER i,j
./pkg/thsice/thsice_solve4temp.F 202 THSICE_SOLVE4TEMP 
       DO i = iMin, iMax
./pkg/thsice/thsice_solve4temp.F 204 THSICE_SOLVE4TEMP 
          ikey_1 = i
./pkg/thsice/thsice_solve4temp.F 221 THSICE_SOLVE4TEMP 
        IF ( iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 222 THSICE_SOLVE4TEMP 
          hi      = hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 223 THSICE_SOLVE4TEMP 
          hs      = hSnow(i,j)
./pkg/thsice/thsice_solve4temp.F 224 THSICE_SOLVE4TEMP 
          Tf      = tFrz(i,j)
./pkg/thsice/thsice_solve4temp.F 225 THSICE_SOLVE4TEMP 
          netSW   = flxSW(i,j)
./pkg/thsice/thsice_solve4temp.F 226 THSICE_SOLVE4TEMP 
          Tsf     = tSrf(i,j)
./pkg/thsice/thsice_solve4temp.F 227 THSICE_SOLVE4TEMP 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_solve4temp.F 228 THSICE_SOLVE4TEMP 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 231 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(6,'(A,2I4,2I2)')
./pkg/thsice/thsice_solve4temp.F 232 THSICE_SOLVE4TEMP 
     &         'ThSI_SOLVE4T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_solve4temp.F 245 THSICE_SOLVE4TEMP 
      IF ( hs .GT. iceMask(i,j)*dhSnowLin ) THEN
./pkg/thsice/thsice_solve4temp.F 248 THSICE_SOLVE4TEMP 
        frsnow = hs*recip_dhSnowLin/iceMask(i,j)
./pkg/thsice/thsice_solve4temp.F 275 THSICE_SOLVE4TEMP 
     &      ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,Tice
./pkg/thsice/thsice_solve4temp.F 281 THSICE_SOLVE4TEMP 
     &      ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,Tice
./pkg/thsice/thsice_solve4temp.F 284 THSICE_SOLVE4TEMP 
      IF ( dBug(i,j,bi,bj) ) WRITE(6,1010)
./pkg/thsice/thsice_solve4temp.F 343 THSICE_SOLVE4TEMP 
     I                         i,j,bi,bj,myThid )
./pkg/thsice/thsice_solve4temp.F 348 THSICE_SOLVE4TEMP 
     I                         i,j,bi,bj,myThid )
./pkg/thsice/thsice_solve4temp.F 351 THSICE_SOLVE4TEMP 
         flxExceptSw = flxExSW(i,j,1)
./pkg/thsice/thsice_solve4temp.F 352 THSICE_SOLVE4TEMP 
         df0dT = flxExSW(i,j,2)
./pkg/thsice/thsice_solve4temp.F 356 THSICE_SOLVE4TEMP 
      IF ( dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_solve4temp.F 374 THSICE_SOLVE4TEMP 
            IF ( dBug(i,j,bi,bj) ) WRITE(6,1010)
./pkg/thsice/thsice_solve4temp.F 392 THSICE_SOLVE4TEMP 
     I                            i,j,bi,bj,myThid )
./pkg/thsice/thsice_solve4temp.F 397 THSICE_SOLVE4TEMP 
     I                            i,j,bi,bj,myThid )
./pkg/thsice/thsice_solve4temp.F 401 THSICE_SOLVE4TEMP 
            flxExceptSw = flxExSW(i,j,0)
./pkg/thsice/thsice_solve4temp.F 416 THSICE_SOLVE4TEMP 
         IF ( dBug(i,j,bi,bj) ) WRITE(6,1010)
./pkg/thsice/thsice_solve4temp.F 422 THSICE_SOLVE4TEMP 
     &                 ' BB: not converge: i,j,it,hi=',i,j,bi,bj,
./pkg/thsice/thsice_solve4temp.F 443 THSICE_SOLVE4TEMP 
      IF ( dBug(i,j,bi,bj) ) WRITE(6,1010)
./pkg/thsice/thsice_solve4temp.F 450 THSICE_SOLVE4TEMP 
      flxCnB(i,j) = 4. _d 0*kIce *(Tice(2)-Tf)/hi
./pkg/thsice/thsice_solve4temp.F 454 THSICE_SOLVE4TEMP 
        evpAtm(i,j) = evap + dEvdT*dTsf
./pkg/thsice/thsice_solve4temp.F 457 THSICE_SOLVE4TEMP 
        evpAtm(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F 461 THSICE_SOLVE4TEMP 
      flxAtm(i,j) = netSW + flxExceptSw
./pkg/thsice/thsice_solve4temp.F 462 THSICE_SOLVE4TEMP 
     &                    + df0dT*dTsf + evpAtm(i,j)*Lfresh
./pkg/thsice/thsice_solve4temp.F 464 THSICE_SOLVE4TEMP 
      sHeat(i,j) = flx0 - fct
./pkg/thsice/thsice_solve4temp.F 467 THSICE_SOLVE4TEMP 
      flxSW(i,j) = fswocn
./pkg/thsice/thsice_solve4temp.F 470 THSICE_SOLVE4TEMP 
      IF ( dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_solve4temp.F 472 THSICE_SOLVE4TEMP 
     &                 flx0,fct,flx0-fct,flxCnB(i,j)
./pkg/thsice/thsice_solve4temp.F 486 THSICE_SOLVE4TEMP 
     &   ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,Tice(1),Tmlt1
./pkg/thsice/thsice_solve4temp.F 490 THSICE_SOLVE4TEMP 
     &   ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,Tice(2)
./pkg/thsice/thsice_solve4temp.F 495 THSICE_SOLVE4TEMP 
          tSrf(i,j)  = Tsf
./pkg/thsice/thsice_solve4temp.F 496 THSICE_SOLVE4TEMP 
          tIc1(i,j)  = Tice(1)
./pkg/thsice/thsice_solve4temp.F 497 THSICE_SOLVE4TEMP 
          tic2(i,j)  = Tice(2)
./pkg/thsice/thsice_solve4temp.F 498 THSICE_SOLVE4TEMP 
          qIc1(i,j)  = qicen(1)
./pkg/thsice/thsice_solve4temp.F 499 THSICE_SOLVE4TEMP 
          qIc2(i,j)  = qicen(2)
./pkg/thsice/thsice_solve4temp.F 501 THSICE_SOLVE4TEMP 
          IF ( .NOT.useBlkFlx ) dTsrf(i,j) = dTsf
./pkg/thsice/thsice_solve4temp.F 507 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_solve4temp.F 511 THSICE_SOLVE4TEMP 
     &           sHeat(i,j), flxCnB(i,j), qicen
./pkg/thsice/thsice_solve4temp.F 513 THSICE_SOLVE4TEMP 
     &           flxAtm(i,j), evpAtm(i,j), netSW, flxSW(i,j)
./pkg/thsice/thsice_solve4temp.F 517 THSICE_SOLVE4TEMP 
          IF ( .NOT.useBlkFlx ) dTsrf(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 101 THSICE_STEP_FWD 
      INTEGER i,j
./pkg/thsice/thsice_step_fwd.F 127 THSICE_STEP_FWD 
        DO i = 1-OLx, sNx+OLx
./pkg/thsice/thsice_step_fwd.F 128 THSICE_STEP_FWD 
          isIceFree(i,j) = .FALSE.
./pkg/thsice/thsice_step_fwd.F 130 THSICE_STEP_FWD 
          sFluxFromIce(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 132 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 135 THSICE_STEP_FWD 
          iceFrac(i,j) = 0.
./pkg/thsice/thsice_step_fwd.F 147 THSICE_STEP_FWD 
       DO i = iMin, iMax
./pkg/thsice/thsice_step_fwd.F 148 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 150 THSICE_STEP_FWD 
          snowAge(i,j,bi,bj) = thSIce_deltaT
./pkg/thsice/thsice_step_fwd.F 151 THSICE_STEP_FWD 
     &                       + snowAge(i,j,bi,bj)*ageFac
./pkg/thsice/thsice_step_fwd.F 152 THSICE_STEP_FWD 
          IF ( snowPrc(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 153 THSICE_STEP_FWD 
     &      snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 154 THSICE_STEP_FWD 
     &          * EXP( - snowFac*snowPrc(i,j,bi,bj) )
./pkg/thsice/thsice_step_fwd.F 160 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 161 THSICE_STEP_FWD 
     &                        - Lfresh*snowPrc(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 180 THSICE_STEP_FWD 
       DO i = iMin, iMax
./pkg/thsice/thsice_step_fwd.F 181 THSICE_STEP_FWD 
          siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 191 THSICE_STEP_FWD 
       DO i = iMin, iMax
./pkg/thsice/thsice_step_fwd.F 193 THSICE_STEP_FWD 
        tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 194 THSICE_STEP_FWD 
        cphm    = cpwater*rhosw*hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 195 THSICE_STEP_FWD 
        frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) )
./pkg/thsice/thsice_step_fwd.F 197 THSICE_STEP_FWD 
        iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 198 THSICE_STEP_FWD 
        flx2oc(i,j)  = icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 201 THSICE_STEP_FWD 
        IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_fwd.F 202 THSICE_STEP_FWD 
         IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN
./pkg/thsice/thsice_step_fwd.F 203 THSICE_STEP_FWD 
          WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_fwd.F 205 THSICE_STEP_FWD 
     &                  iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 206 THSICE_STEP_FWD 
     &                  snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 208 THSICE_STEP_FWD 
     &                     tOceMxL(i,j,bi,bj), tFrzOce(i,j),
./pkg/thsice/thsice_step_fwd.F 209 THSICE_STEP_FWD 
     &                     frzmltMxL(i,j), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 211 THSICE_STEP_FWD 
         IF (iceFrac(i,j).GT.0.)
./pkg/thsice/thsice_step_fwd.F 213 THSICE_STEP_FWD 
     &      iceFrac(i,j), icFlxAtm(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 214 THSICE_STEP_FWD 
     &      icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 240 THSICE_STEP_FWD 
       DO i = iMin, iMax
./pkg/thsice/thsice_step_fwd.F 242 THSICE_STEP_FWD 
          ikey_1 = i
./pkg/thsice/thsice_step_fwd.F 253 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 261 THSICE_STEP_FWD 
          icFrac = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 264 THSICE_STEP_FWD 
          pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 265 THSICE_STEP_FWD 
          pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F 266 THSICE_STEP_FWD 
          sFluxFromIce(i,j) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 268 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 269 THSICE_STEP_FWD 
     &                        - opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 270 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 271 THSICE_STEP_FWD 
     &                        + opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 272 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 273 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 274 THSICE_STEP_FWD 
     &                    +  opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 275 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 279 THSICE_STEP_FWD 
          IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F 281 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 282 THSICE_STEP_FWD 
     &           snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 285 THSICE_STEP_FWD 
        ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 286 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 287 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 289 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 290 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 316 THSICE_STEP_FWD 
       DO i = iMin, iMax
./pkg/thsice/thsice_step_fwd.F 317 THSICE_STEP_FWD 
        IF (frzmltMxL(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 320 THSICE_STEP_FWD 
          pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 321 THSICE_STEP_FWD 
          pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F 322 THSICE_STEP_FWD 
          sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 324 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 325 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 326 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 330 THSICE_STEP_FWD 
          IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F 332 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 333 THSICE_STEP_FWD 
     &           snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 337 THSICE_STEP_FWD 
        IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 338 THSICE_STEP_FWD 
     &    isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 339 THSICE_STEP_FWD 
     &                  .AND.   iceFrac(i,j) .LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 340 THSICE_STEP_FWD 
        IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 341 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)=iceFrac(i,j)
./pkg/thsice/thsice_step_fwd.F 342 THSICE_STEP_FWD 
          IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 343 THSICE_STEP_FWD 
     &     snowAge(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 345 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 346 THSICE_STEP_FWD 
          iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_step_fwd.F 347 THSICE_STEP_FWD 
          snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_step_fwd.F 348 THSICE_STEP_FWD 
          snowAge(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 349 THSICE_STEP_FWD 
          Tsrf(i,j,bi,bj)     = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 350 THSICE_STEP_FWD 
          Tice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 351 THSICE_STEP_FWD 
          Tice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 352 THSICE_STEP_FWD 
          Qice1(i,j,bi,bj)    = Lfresh
./pkg/thsice/thsice_step_fwd.F 353 THSICE_STEP_FWD 
          Qice2(i,j,bi,bj)    = Lfresh
./pkg/thsice/thsice_step_fwd.F 363 THSICE_STEP_FWD 
       DO i = iMin, iMax
./pkg/thsice/thsice_step_fwd.F 365 THSICE_STEP_FWD 
        sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_step_fwd.F 366 THSICE_STEP_FWD 
     &                         + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_step_fwd.F 367 THSICE_STEP_FWD 
     &                        )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 374 THSICE_STEP_FWD 
        DO i = iMin, iMax
./pkg/thsice/thsice_step_fwd.F 375 THSICE_STEP_FWD 
         IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 376 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 377 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 378 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 102 THSICE_STEP_TEMP 
        DO i = 1-OLx, sNx+OLx
./pkg/thsice/thsice_step_temp.F 103 THSICE_STEP_TEMP 
          icFlxAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F 104 THSICE_STEP_TEMP 
          icFrwAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F 131 THSICE_STEP_TEMP 
        DO i = iMin, iMax
./pkg/thsice/thsice_step_temp.F 132 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 134 THSICE_STEP_TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_temp.F 135 THSICE_STEP_TEMP 
           WRITE(6,'(A,2I4,2I2)') 'ThSI_STEP_T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_temp.F 137 THSICE_STEP_TEMP 
     &                   iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_temp.F 138 THSICE_STEP_TEMP 
     &                   snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 142 THSICE_STEP_TEMP 
          icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 143 THSICE_STEP_TEMP 
     &                       *(1. _d 0 - siceAlb(i,j,bi,bj))
./pkg/thsice/thsice_step_temp.F 144 THSICE_STEP_TEMP 
          tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 146 THSICE_STEP_TEMP 
          tFrzOce(i,j) = 0. _d 0
./pkg/thsice/thsice_step_temp.F 170 THSICE_STEP_TEMP 
        DO i = iMin, iMax
./pkg/thsice/thsice_step_temp.F 171 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 172 THSICE_STEP_TEMP 
          icFrac  = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 175 THSICE_STEP_TEMP 
          Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 176 THSICE_STEP_TEMP 
     &                   - icFrac*icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 70 THSICE_STEP_TEMP 
      INTEGER i,j
./pkg/thsice/thsice_test_addfluid.h 17 NO PROCEDURE 
          DO i = 1-OLx, sNx+OLx-1
./pkg/thsice/thsice_test_addfluid.h 18 NO PROCEDURE 
           addMass(i,j,1,bi,bj) = -EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_test_addfluid.h 19 NO PROCEDURE 
     &                            *rA(i,j,bi,bj)
./pkg/thsice/thsice_test_addfluid.h 20 NO PROCEDURE 
     &                            *maskC(i,j,1,bi,bj)
./pkg/thsice/thsice_test_addfluid.h 21 NO PROCEDURE 
           EmPmR(i,j,bi,bj) = 0. _d 0
./model/src/freeze.F 37 FREEZE 
      INTEGER i,j
./model/src/freeze.F 45 FREEZE 
        DO i=iMin,iMax
./model/src/freeze.F 46 FREEZE 
         IF (gT(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/freeze.F 47 FREEZE 
          gT(i,j,k,bi,bj)=Tfreezing
./pkg/timeave/timeave_cumul_1k1t.F 37 TIMEAVE_CUMUL_1K1T 
      INTEGER i, j
./pkg/timeave/timeave_cumul_1k1t.F 40 TIMEAVE_CUMUL_1K1T 
        DO i=1,sNx
./pkg/timeave/timeave_cumul_1k1t.F 41 TIMEAVE_CUMUL_1K1T 
          fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_1k1t.F 42 TIMEAVE_CUMUL_1K1T 
     &                         + fld(i,j)*deltaTloc
./pkg/timeave/timeave_cumul_1t.F 35 TIMEAVE_CUMUL_1T 
      INTEGER i, j, k
./pkg/timeave/timeave_cumul_1t.F 39 TIMEAVE_CUMUL_1T 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_1t.F 40 TIMEAVE_CUMUL_1T 
             fldtave(i,j,k,bi,bj)=
./pkg/timeave/timeave_cumul_1t.F 41 TIMEAVE_CUMUL_1T 
     &       fldtave(i,j,k,bi,bj)+fld(i,j,k)*deltaTloc
./pkg/timeave/timeave_cumul_1vfc.F 38 TIMEAVE_CUMUL_1VFC 
      INTEGER i, j, k
./pkg/timeave/timeave_cumul_1vfc.F 44 TIMEAVE_CUMUL_1VFC 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_1vfc.F 45 TIMEAVE_CUMUL_1VFC 
           fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_1vfc.F 46 TIMEAVE_CUMUL_1VFC 
     &       + deltaTloc*fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 111 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 112 TIMEAVE_CUMUL_2V 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 113 TIMEAVE_CUMUL_2V 
     &      + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 114 TIMEAVE_CUMUL_2V 
     &                *( fld2(i-1,j,k,bi,bj) + fld2(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 126 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 127 TIMEAVE_CUMUL_2V 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 128 TIMEAVE_CUMUL_2V 
     &      + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 129 TIMEAVE_CUMUL_2V 
     &                *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 130 TIMEAVE_CUMUL_2V 
     &                  +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 131 TIMEAVE_CUMUL_2V 
     &                 )*recip_rAw(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 143 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 144 TIMEAVE_CUMUL_2V 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 145 TIMEAVE_CUMUL_2V 
     &      + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 146 TIMEAVE_CUMUL_2V 
     &                *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 147 TIMEAVE_CUMUL_2V 
     &                  +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 148 TIMEAVE_CUMUL_2V 
     &                 )*recip_rAs(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 160 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 161 TIMEAVE_CUMUL_2V 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 162 TIMEAVE_CUMUL_2V 
     &       + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 163 TIMEAVE_CUMUL_2V 
     &                *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 164 TIMEAVE_CUMUL_2V 
     &                  +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 165 TIMEAVE_CUMUL_2V 
     &                 )*recip_rAw(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 177 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 178 TIMEAVE_CUMUL_2V 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 179 TIMEAVE_CUMUL_2V 
     &       + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 180 TIMEAVE_CUMUL_2V 
     &                *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 181 TIMEAVE_CUMUL_2V 
     &                  +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 182 TIMEAVE_CUMUL_2V 
     &                 )*recip_rAs(i,j,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 43 TIMEAVE_CUMUL_2V 
      INTEGER i, j, k
./pkg/timeave/timeave_cumul_2v.F 53 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 54 TIMEAVE_CUMUL_2V 
             fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 55 TIMEAVE_CUMUL_2V 
     &       +  fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*deltaTloc
./pkg/timeave/timeave_cumul_2v.F 67 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 68 TIMEAVE_CUMUL_2V 
             fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 69 TIMEAVE_CUMUL_2V 
     &       + .5 * ( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 70 TIMEAVE_CUMUL_2V 
     &                *   fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 81 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 82 TIMEAVE_CUMUL_2V 
             fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 83 TIMEAVE_CUMUL_2V 
     &       + .5 * ( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 84 TIMEAVE_CUMUL_2V 
     &                *   fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 96 TIMEAVE_CUMUL_2V 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2v.F 97 TIMEAVE_CUMUL_2V 
             fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 98 TIMEAVE_CUMUL_2V 
     &       + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 99 TIMEAVE_CUMUL_2V 
     &                *   fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2vfc.F 44 TIMEAVE_CUMUL_2VFC 
      INTEGER i, j, k
./pkg/timeave/timeave_cumul_2vfc.F 52 TIMEAVE_CUMUL_2VFC 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2vfc.F 53 TIMEAVE_CUMUL_2VFC 
            fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc*
./pkg/timeave/timeave_cumul_2vfc.F 54 TIMEAVE_CUMUL_2VFC 
     &         fld1(i,j,k,bi,bj)*fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2vfc.F 67 TIMEAVE_CUMUL_2VFC 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2vfc.F 68 TIMEAVE_CUMUL_2VFC 
            fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc*
./pkg/timeave/timeave_cumul_2vfc.F 69 TIMEAVE_CUMUL_2VFC 
     &         0.5*( fld1(i-1,j,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2vfc.F 70 TIMEAVE_CUMUL_2VFC 
     &            *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2vfc.F 83 TIMEAVE_CUMUL_2VFC 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_2vfc.F 84 TIMEAVE_CUMUL_2VFC 
            fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj) + deltaTloc*
./pkg/timeave/timeave_cumul_2vfc.F 85 TIMEAVE_CUMUL_2VFC 
     &         0.5*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2vfc.F 86 TIMEAVE_CUMUL_2VFC 
     &            *fld2(i,j,k,bi,bj)*fld3(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F 40 TIMEAVE_CUMUL_DIF_1T 
      INTEGER i, j, k
./pkg/timeave/timeave_cumul_dif_1t.F 46 TIMEAVE_CUMUL_DIF_1T 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_dif_1t.F 47 TIMEAVE_CUMUL_DIF_1T 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F 48 TIMEAVE_CUMUL_DIF_1T 
     &        - ( fld1(i,j,k,bi,bj) - fld1(i-1,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_dif_1t.F 49 TIMEAVE_CUMUL_DIF_1T 
     &          * recip_dxC(i,j,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F 50 TIMEAVE_CUMUL_DIF_1T 
     &          * fld2(i,j,k) * deltaTloc
./pkg/timeave/timeave_cumul_dif_1t.F 59 TIMEAVE_CUMUL_DIF_1T 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_dif_1t.F 60 TIMEAVE_CUMUL_DIF_1T 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F 61 TIMEAVE_CUMUL_DIF_1T 
     &        - ( fld1(i,j,k,bi,bj) - fld1(i,j-1,k,bi,bj) )
./pkg/timeave/timeave_cumul_dif_1t.F 62 TIMEAVE_CUMUL_DIF_1T 
     &          * recip_dyC(i,j,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F 63 TIMEAVE_CUMUL_DIF_1T 
     &          * fld2(i,j,k) * deltaTloc
./pkg/timeave/timeave_cumul_dif_1t.F 72 TIMEAVE_CUMUL_DIF_1T 
          DO i=1,sNx
./pkg/timeave/timeave_cumul_dif_1t.F 73 TIMEAVE_CUMUL_DIF_1T 
           fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_dif_1t.F 74 TIMEAVE_CUMUL_DIF_1T 
     &        + ( fld1(i,j,k,bi,bj) - fld1(i,j,k-1,bi,bj) )
./pkg/timeave/timeave_cumul_dif_1t.F 76 TIMEAVE_CUMUL_DIF_1T 
     &          * fld2(i,j,k) * deltaTloc
./pkg/timeave/timeave_cumulate.F 35 TIMEAVE_CUMULATE 
      INTEGER i, j, k
./pkg/timeave/timeave_cumulate.F 41 TIMEAVE_CUMULATE 
          DO i=1,sNx
./pkg/timeave/timeave_cumulate.F 42 TIMEAVE_CUMULATE 
             fldtave(i,j,k,bi,bj)=
./pkg/timeave/timeave_cumulate.F 43 TIMEAVE_CUMULATE 
     &       fldtave(i,j,k,bi,bj)+fld(i,j,k,bi,bj)*deltaTloc
./pkg/timeave/timeave_norma_2v.F 33 TIMEAVE_NORMA_2V 
      INTEGER i, j, k
./pkg/timeave/timeave_norma_2v.F 39 TIMEAVE_NORMA_2V 
          DO i=1,sNx
./pkg/timeave/timeave_norma_2v.F 40 TIMEAVE_NORMA_2V 
           IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN
./pkg/timeave/timeave_norma_2v.F 41 TIMEAVE_NORMA_2V 
             fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_norma_2v.F 42 TIMEAVE_NORMA_2V 
     &                            / cumulWeight(i,j,k,bi,bj)
./model/src/freeze_surface.F 41 FREEZE_SURFACE 
      INTEGER bi,bj,i,j,k
./model/src/freeze_surface.F 57 FREEZE_SURFACE 
         DO i=1-OLx,sNx+OLx
./model/src/freeze_surface.F 58 FREEZE_SURFACE 
          IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/freeze_surface.F 59 FREEZE_SURFACE 
             surfaceForcingTice(i,j,bi,bj) =
./model/src/freeze_surface.F 60 FREEZE_SURFACE 
     &            ( Tfreezing - theta(i,j,k,bi,bj) )
./model/src/freeze_surface.F 61 FREEZE_SURFACE 
     &                    *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k)
./model/src/freeze_surface.F 62 FREEZE_SURFACE 
             theta(i,j,k,bi,bj) = Tfreezing
./model/src/freeze_surface.F 64 FREEZE_SURFACE 
             surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./pkg/timeave/timeave_normaliz.F 40 TIMEAVE_NORMALIZ 
      INTEGER i, j, k
./pkg/timeave/timeave_normaliz.F 48 TIMEAVE_NORMALIZ 
           DO i=1,sNx
./pkg/timeave/timeave_normaliz.F 49 TIMEAVE_NORMALIZ 
             fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_normalize.F 42 TIMEAVE_NORMALIZE 
      INTEGER i, j, k
./pkg/timeave/timeave_normalize.F 51 TIMEAVE_NORMALIZE 
           DO i=1,sNx
./pkg/timeave/timeave_normalize.F 52 TIMEAVE_NORMALIZE 
             fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_reset.F 29 TIMEAVE_RESET 
      INTEGER i, j, k
./pkg/timeave/timeave_reset.F 35 TIMEAVE_RESET 
          DO i=1-OLx,sNx+OLx
./pkg/timeave/timeave_reset.F 36 TIMEAVE_RESET 
             fldtave(i,j,k,bi,bj) = 0. _d 0
./pkg/timeave/timeave_surf_flux.F 101 TIMEAVE_SURF_FLUX 
         DO i=1,sNx
./pkg/timeave/timeave_surf_flux.F 102 TIMEAVE_SURF_FLUX 
           tmpFld(i,j) = tmpFld(i,j)
./pkg/timeave/timeave_surf_flux.F 103 TIMEAVE_SURF_FLUX 
     &      + PmEpR(i,j,bi,bj)*rhoConstFresh
./pkg/timeave/timeave_surf_flux.F 104 TIMEAVE_SURF_FLUX 
     &                        *salt(i,j,k,bi,bj)
./pkg/timeave/timeave_surf_flux.F 48 TIMEAVE_SURF_FLUX 
        DO i=1,sNx
./pkg/timeave/timeave_surf_flux.F 49 TIMEAVE_SURF_FLUX 
         tmpFld(i,j)=fu(i,j,bi,bj)*foFacMom*_maskW(i,j,k,bi,bj)
./pkg/timeave/timeave_surf_flux.F 57 TIMEAVE_SURF_FLUX 
        DO i=1,sNx
./pkg/timeave/timeave_surf_flux.F 58 TIMEAVE_SURF_FLUX 
         tmpFld(i,j)=fv(i,j,bi,bj)*foFacMom*_maskS(i,j,k,bi,bj)
./pkg/timeave/timeave_surf_flux.F 66 TIMEAVE_SURF_FLUX 
        DO i=1,sNx
./pkg/timeave/timeave_surf_flux.F 67 TIMEAVE_SURF_FLUX 
         tmpFld(i,j) =
./pkg/timeave/timeave_surf_flux.F 69 TIMEAVE_SURF_FLUX 
     &    -Qsw(i,j,bi,bj)+
./pkg/timeave/timeave_surf_flux.F 71 TIMEAVE_SURF_FLUX 
     &    (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(I,J,bi,bj))
./pkg/timeave/timeave_surf_flux.F 79 TIMEAVE_SURF_FLUX 
         DO i=1,sNx
./pkg/timeave/timeave_surf_flux.F 80 TIMEAVE_SURF_FLUX 
           tmpFld(i,j) = tmpFld(i,j)
./pkg/timeave/timeave_surf_flux.F 81 TIMEAVE_SURF_FLUX 
     &      + PmEpR(i,j,bi,bj)*rhoConstFresh
./pkg/timeave/timeave_surf_flux.F 82 TIMEAVE_SURF_FLUX 
     &                        *theta(i,j,k,bi,bj)*HeatCapacity_Cp
./pkg/timeave/timeave_surf_flux.F 92 TIMEAVE_SURF_FLUX 
        DO i=1,sNx
./pkg/timeave/timeave_surf_flux.F 93 TIMEAVE_SURF_FLUX 
         tmpFld(i,j)=
./pkg/timeave/timeave_surf_flux.F 94 TIMEAVE_SURF_FLUX 
     &    surfaceForcingS(i,j,bi,bj)*rUnit2mass
./model/src/grad_sigma.F 47 GRAD_SIGMA 
      INTEGER i,j
./model/src/grad_sigma.F 53 GRAD_SIGMA 
       DO i=1-Olx,sNx+Olx
./model/src/grad_sigma.F 54 GRAD_SIGMA 
        rhoLoc(i,j) = rhoK(i,j)
./model/src/grad_sigma.F 66 GRAD_SIGMA 
       DO i=1-Olx+1,sNx+Olx
./model/src/grad_sigma.F 67 GRAD_SIGMA 
        sigmaX(i,j,k)=_maskW(i,j,k,bi,bj)
./model/src/grad_sigma.F 68 GRAD_SIGMA 
     &        *_recip_dxC(i,j,bi,bj)
./model/src/grad_sigma.F 69 GRAD_SIGMA 
     &        *(rhoLoc(i,j)-rhoLoc(i-1,j))
./model/src/grad_sigma.F 81 GRAD_SIGMA 
       DO i=1-Olx,sNx+Olx
./model/src/grad_sigma.F 82 GRAD_SIGMA 
        sigmaY(i,j,k)=_maskS(i,j,k,bi,bj)
./model/src/grad_sigma.F 83 GRAD_SIGMA 
     &        *_recip_dyC(i,j,bi,bj)
./model/src/grad_sigma.F 84 GRAD_SIGMA 
     &        *(rhoLoc(i,j)-rhoLoc(i,j-1))
./model/src/grad_sigma.F 90 GRAD_SIGMA 
        DO i=1-Olx,sNx+Olx
./model/src/grad_sigma.F 91 GRAD_SIGMA 
         sigmaR(i,j,k)=0.
./model/src/grad_sigma.F 96 GRAD_SIGMA 
        DO i=1-Olx,sNx+Olx
./model/src/grad_sigma.F 97 GRAD_SIGMA 
         sigmaR(i,j,k)= maskC(i,j,k,bi,bj)
./model/src/grad_sigma.F 99 GRAD_SIGMA 
     &                *(sigKp1(i,j)-sigKm1(i,j))
./pkg/zonal_filt/zonal_filt_apply_uv.F 39 ZONAL_FILT_APPLY_UV 
      INTEGER i, j, k
./pkg/zonal_filt/zonal_filt_apply_uv.F 50 ZONAL_FILT_APPLY_UV 
          DO i=1-OLx,sNx+OLx
./pkg/zonal_filt/zonal_filt_apply_uv.F 51 ZONAL_FILT_APPLY_UV 
           uFlow(i,j) = uFld(i,j,k,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_apply_uv.F 59 ZONAL_FILT_APPLY_UV 
          DO i=1-OLx,sNx+OLx
./pkg/zonal_filt/zonal_filt_apply_uv.F 60 ZONAL_FILT_APPLY_UV 
           uFld(i,j,k,bi,bj) = uFlow(i,j)*recip_hFacW(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_init.F 58 ZONAL_FILT_INIT 
      INTEGER i, j, bi, bj
./pkg/zonal_filt/zonal_filt_init.F 65 ZONAL_FILT_INIT 
      ampfact(lat,i) = MIN( oneRL,
./pkg/zonal_filt/zonal_filt_init.F 68 ZONAL_FILT_INIT 
     &      /(SIN( PI*FLOAT(i)/FLOAT(Nx) ) )**zonal_filt_sinpow
./pkg/zonal_filt/zonal_filt_init.F 86 ZONAL_FILT_INIT 
         DO i=1,Nx/2-1
./pkg/zonal_filt/zonal_filt_init.F 87 ZONAL_FILT_INIT 
          ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I )
./pkg/zonal_filt/zonal_filt_init.F 89 ZONAL_FILT_INIT 
          ampFactor(2*I+1,j,bi,bj) = ampFactor(2*i,j,bi,bj)
./pkg/zonal_filt/zonal_filt_init.F 90 ZONAL_FILT_INIT 
          ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I )
./pkg/zonal_filt/zonal_filt_init.F 92 ZONAL_FILT_INIT 
          ampFactorV(2*I+1,j,bi,bj) = ampFactorV(2*i,j,bi,bj)
./pkg/zonal_filt/zonal_filt_init.F 95 ZONAL_FILT_INIT 
         i=Nx/2
./pkg/zonal_filt/zonal_filt_init.F 97 ZONAL_FILT_INIT 
           ampFactor(Nx,j,bi,bj) = ampfact( yC(1,j,bi,bj) , i )
./pkg/zonal_filt/zonal_filt_init.F 98 ZONAL_FILT_INIT 
           ampFactorV(Nx,j,bi,bj) = ampfact( yG(1,j,bi,bj) , i )
./pkg/zonal_filt/zonal_filt_nofill.F 47 ZONAL_FILT_NOFILL 
        DO i=1,sNx
./pkg/zonal_filt/zonal_filt_nofill.F 48 ZONAL_FILT_NOFILL 
         phi(I) = field(i,j,k,bi,bj)
./pkg/zonal_filt/zonal_filt_nofill.F 58 ZONAL_FILT_NOFILL 
         DO i=1, Nx
./pkg/zonal_filt/zonal_filt_nofill.F 59 ZONAL_FILT_NOFILL 
          phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filt_nofill.F 62 ZONAL_FILT_NOFILL 
         DO i=1, Nx
./pkg/zonal_filt/zonal_filt_nofill.F 63 ZONAL_FILT_NOFILL 
          phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filt_nofill.F 76 ZONAL_FILT_NOFILL 
        DO i=1-OLx,0
./pkg/zonal_filt/zonal_filt_nofill.F 77 ZONAL_FILT_NOFILL 
         field(i,j,k,bi,bj) = phi(sNx+i)
./pkg/zonal_filt/zonal_filt_nofill.F 79 ZONAL_FILT_NOFILL 
        DO i=1,sNx
./pkg/zonal_filt/zonal_filt_nofill.F 80 ZONAL_FILT_NOFILL 
         field(i,j,k,bi,bj) = phi(I)
./pkg/zonal_filt/zonal_filt_nofill.F 82 ZONAL_FILT_NOFILL 
        DO i=sNx+1,sNx+OLx
./pkg/zonal_filt/zonal_filt_nofill.F 83 ZONAL_FILT_NOFILL 
         field(i,j,k,bi,bj) = phi(i-sNx)
./pkg/zonal_filt/zonal_filter.F 100 ZONAL_FILTER 
         field(i,j,k) = phi(sNx+i)
./pkg/zonal_filt/zonal_filter.F 102 ZONAL_FILTER 
        DO i=1,sNx
./pkg/zonal_filt/zonal_filter.F 103 ZONAL_FILTER 
         field(i,j,k) = phi(i)
./pkg/zonal_filt/zonal_filter.F 105 ZONAL_FILTER 
        DO i=sNx+1,sNx+OLx
./pkg/zonal_filt/zonal_filter.F 106 ZONAL_FILTER 
         field(i,j,k) = phi(i-sNx)
./pkg/zonal_filt/zonal_filter.F 54 ZONAL_FILTER 
      INTEGER i, j, k
./pkg/zonal_filt/zonal_filter.F 63 ZONAL_FILTER 
        DO i=1,sNx
./pkg/zonal_filt/zonal_filter.F 64 ZONAL_FILTER 
         phi(i) = field(i,j,k)
./pkg/zonal_filt/zonal_filter.F 65 ZONAL_FILTER 
         phiMask(i) = fieldMask(i,j,k)
./pkg/zonal_filt/zonal_filter.F 78 ZONAL_FILTER 
         DO i=1, Nx
./pkg/zonal_filt/zonal_filter.F 79 ZONAL_FILTER 
          phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filter.F 82 ZONAL_FILTER 
         DO i=1, Nx
./pkg/zonal_filt/zonal_filter.F 83 ZONAL_FILTER 
          phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filter.F 99 ZONAL_FILTER 
        DO i=1-OLx,0
./model/src/impldiff.F 109 IMPLDIFF 
        DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 112 IMPLDIFF 
        DO i=iMin,iMax
./model/src/impldiff.F 114 IMPLDIFF 
         gYNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/impldiff.F 122 IMPLDIFF 
       DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 125 IMPLDIFF 
       DO i=iMin,iMax
./model/src/impldiff.F 127 IMPLDIFF 
         a(i,j,1) = 0. _d 0
./model/src/impldiff.F 133 IMPLDIFF 
        DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 136 IMPLDIFF 
        DO i=iMin,iMax
./model/src/impldiff.F 138 IMPLDIFF 
          a(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./model/src/impldiff.F 140 IMPLDIFF 
     &               *KappaRX(i,j, k )*recip_drC( k )
./model/src/impldiff.F 142 IMPLDIFF 
          IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0.
./model/src/impldiff.F 151 IMPLDIFF 
        DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 154 IMPLDIFF 
        DO i=iMin,iMax
./model/src/impldiff.F 156 IMPLDIFF 
          c(i,j,k) = -deltaTX(k)*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./model/src/impldiff.F 158 IMPLDIFF 
     &               *KappaRX(i,j,k+1)*recip_drC(k+1)
./model/src/impldiff.F 160 IMPLDIFF 
          IF (recip_hFac(i,j,k+1,bi,bj).EQ.0.) c(i,j,k)=0.
./model/src/impldiff.F 166 IMPLDIFF 
       DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 169 IMPLDIFF 
       DO i=iMin,iMax
./model/src/impldiff.F 171 IMPLDIFF 
         c(i,j,Nr) = 0. _d 0
./model/src/impldiff.F 179 IMPLDIFF 
        DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 182 IMPLDIFF 
        DO i=iMin,iMax
./model/src/impldiff.F 184 IMPLDIFF 
          b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./model/src/impldiff.F 193 IMPLDIFF 
        DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 196 IMPLDIFF 
        DO i=iMin,iMax
./model/src/impldiff.F 198 IMPLDIFF 
          bet(i,j,k) = 1. _d 0
./model/src/impldiff.F 199 IMPLDIFF 
          gam(i,j,k) = 0. _d 0
./model/src/impldiff.F 211 IMPLDIFF 
        DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 214 IMPLDIFF 
        DO i=iMin,iMax
./model/src/impldiff.F 216 IMPLDIFF 
         IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./model/src/impldiff.F 230 IMPLDIFF 
         DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 233 IMPLDIFF 
         DO i=iMin,iMax
./model/src/impldiff.F 235 IMPLDIFF 
          gam(i,j,k) = c(i,j,k-1)*bet(i,j,k-1)
./model/src/impldiff.F 236 IMPLDIFF 
          IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./model/src/impldiff.F 237 IMPLDIFF 
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./model/src/impldiff.F 248 IMPLDIFF 
       DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 251 IMPLDIFF 
       DO i=iMin,iMax
./model/src/impldiff.F 253 IMPLDIFF 
        gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1)
./model/src/impldiff.F 259 IMPLDIFF 
        DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 262 IMPLDIFF 
        DO i=iMin,iMax
./model/src/impldiff.F 264 IMPLDIFF 
         gYnm1(i,j,k,bi,bj) = bet(i,j,k)*
./model/src/impldiff.F 265 IMPLDIFF 
     &        (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj))
./model/src/impldiff.F 276 IMPLDIFF 
             DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 279 IMPLDIFF 
         DO i=iMin,iMax
./model/src/impldiff.F 281 IMPLDIFF 
          gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./model/src/impldiff.F 282 IMPLDIFF 
     &              -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj)
./model/src/impldiff.F 290 IMPLDIFF 
         DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 293 IMPLDIFF 
         DO i=iMin,iMax
./model/src/impldiff.F 295 IMPLDIFF 
          gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./model/src/impldiff.F 323 IMPLDIFF 
             DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 324 IMPLDIFF 
               df(i,j) = 0. _d 0
./model/src/impldiff.F 330 IMPLDIFF 
             DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 333 IMPLDIFF 
             DO i=1,sNx
./model/src/impldiff.F 335 IMPLDIFF 
               df(i,j) =
./model/src/impldiff.F 336 IMPLDIFF 
     &             -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/impldiff.F 337 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/impldiff.F 338 IMPLDIFF 
     &            * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign
./model/src/impldiff.F 344 IMPLDIFF 
             DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 347 IMPLDIFF 
             DO i=1,sNx+1
./model/src/impldiff.F 349 IMPLDIFF 
               df(i,j) =
./model/src/impldiff.F 350 IMPLDIFF 
     &             -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/impldiff.F 351 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/impldiff.F 352 IMPLDIFF 
     &            * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign
./model/src/impldiff.F 353 IMPLDIFF 
     &            * _maskW(i,j,k,bi,bj)
./model/src/impldiff.F 354 IMPLDIFF 
     &            * _maskW(i,j,k-1,bi,bj)
./model/src/impldiff.F 360 IMPLDIFF 
             DO i=1-OLx,sNx+OLx
./model/src/impldiff.F 363 IMPLDIFF 
             DO i=1,sNx
./model/src/impldiff.F 365 IMPLDIFF 
               df(i,j) =
./model/src/impldiff.F 366 IMPLDIFF 
     &             -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/impldiff.F 367 IMPLDIFF 
     &            * KappaRX(i,j,k)*recip_drC(k)
./model/src/impldiff.F 368 IMPLDIFF 
     &            * (gXnm1(i,j,k,bi,bj) - gXnm1(i,j,k-1,bi,bj))*rkSign
./model/src/impldiff.F 369 IMPLDIFF 
     &            * _maskS(i,j,k,bi,bj)
./model/src/impldiff.F 370 IMPLDIFF 
     &            * _maskS(i,j,k-1,bi,bj)
./model/src/impldiff.F 61 IMPLDIFF 
      INTEGER i,j,k
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 100 GAD_FLUXLIMIT_ADV_R 
         Rjp=(tracer(i,j,kp1,bi,bj)-tracer(i,j,k,bi,bj))
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 101 GAD_FLUXLIMIT_ADV_R 
     &        *maskC(i,j,kp1,bi_arg,bj_arg)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 102 GAD_FLUXLIMIT_ADV_R 
         Rj=(tracer(i,j,k,bi,bj)-tracer(i,j,kM1,bi,bj))
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 103 GAD_FLUXLIMIT_ADV_R 
         Rjm=(tracer(i,j,km1,bi,bj)-tracer(i,j,kM2,bi,bj))
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 104 GAD_FLUXLIMIT_ADV_R 
     &        *maskC(i,j,km2,bi_arg,bj_arg)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 107 GAD_FLUXLIMIT_ADV_R 
          IF (rTrans(i,j).LT.0.) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 113 GAD_FLUXLIMIT_ADV_R 
          IF (rTrans(i,j).LT.0.) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 121 GAD_FLUXLIMIT_ADV_R 
         wT(i,j) = maskC(i,j,kM1,bi_arg,bj_arg)*(
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 122 GAD_FLUXLIMIT_ADV_R 
     &     rTrans(i,j)*
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 123 GAD_FLUXLIMIT_ADV_R 
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,kM1,bi,bj))*0.5 _d 0
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 124 GAD_FLUXLIMIT_ADV_R 
     &    +(ABS(rTrans(i,j))*(1-Cr)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 125 GAD_FLUXLIMIT_ADV_R 
     &      +rTrans(i,j)*wFld*dTarg*recip_drC(k)
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 64 GAD_FLUXLIMIT_ADV_R 
      INTEGER i,j,kp1,km1,km2,bi,bj
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 90 GAD_FLUXLIMIT_ADV_R 
        DO i=1-Olx,sNx+Olx
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 91 GAD_FLUXLIMIT_ADV_R 
         wT(i,j) = 0.
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 96 GAD_FLUXLIMIT_ADV_R 
        DO i=1-Olx,sNx+Olx
./verification/OpenAD/code/gad_fluxlimit_adv_r.F 99 GAD_FLUXLIMIT_ADV_R 
         wFld = rTrans(i,j)*recip_rA(i,j,bi_arg,bj_arg)
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 59 GAD_FLUXLIMIT_ADV_X 
      INTEGER i,j
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 70 GAD_FLUXLIMIT_ADV_X 
       DO i=1-Olx+2,sNx+Olx-1
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 73 GAD_FLUXLIMIT_ADV_X 
        uFld = uTrans(i,j)*recip_dyG(i,j,bi,bj)
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 74 GAD_FLUXLIMIT_ADV_X 
     &       *recip_drF(k)*recip_hFacW(i,j,k,bi,bj)
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 75 GAD_FLUXLIMIT_ADV_X 
        Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 76 GAD_FLUXLIMIT_ADV_X 
        Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 77 GAD_FLUXLIMIT_ADV_X 
        Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 80 GAD_FLUXLIMIT_ADV_X 
         IF (uTrans(i,j).GT.0) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 86 GAD_FLUXLIMIT_ADV_X 
         IF (uTrans(i,j).GT.0) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 94 GAD_FLUXLIMIT_ADV_X 
        uT(i,j) =
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 95 GAD_FLUXLIMIT_ADV_X 
     &   uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 97 GAD_FLUXLIMIT_ADV_X 
     &        (1-Cr)*ABS(uTrans(i,j))
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 98 GAD_FLUXLIMIT_ADV_X 
     &        +uTrans(i,j)*uFld*deltaTloc
./verification/OpenAD/code/gad_fluxlimit_adv_x.F 99 GAD_FLUXLIMIT_ADV_X 
     &         *recip_dxC(i,j,bi,bj)*Cr
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 100 GAD_FLUXLIMIT_ADV_Y 
     &        +vTrans(i,j)*vFld*deltaTloc
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 101 GAD_FLUXLIMIT_ADV_Y 
     &         *recip_dyC(i,j,bi,bj)*Cr
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 59 GAD_FLUXLIMIT_ADV_Y 
      INTEGER i,j
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 66 GAD_FLUXLIMIT_ADV_Y 
      DO i=1-Olx,sNx+Olx
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 67 GAD_FLUXLIMIT_ADV_Y 
       vT(i,1-Oly)=0.
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 68 GAD_FLUXLIMIT_ADV_Y 
       vT(i,2-Oly)=0.
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 69 GAD_FLUXLIMIT_ADV_Y 
       vT(i,sNy+Oly)=0.
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 72 GAD_FLUXLIMIT_ADV_Y 
       DO i=1-Olx,sNx+Olx
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 75 GAD_FLUXLIMIT_ADV_Y 
        vFld = vTrans(i,j)*recip_dxG(i,j,bi,bj)
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 76 GAD_FLUXLIMIT_ADV_Y 
     &       *recip_drF(k)*recip_hFacS(i,j,k,bi,bj)
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 77 GAD_FLUXLIMIT_ADV_Y 
        Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 78 GAD_FLUXLIMIT_ADV_Y 
        Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 79 GAD_FLUXLIMIT_ADV_Y 
        Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 82 GAD_FLUXLIMIT_ADV_Y 
         IF (vTrans(i,j).GT.0) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 88 GAD_FLUXLIMIT_ADV_Y 
         IF (vTrans(i,j).GT.0) THEN
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 96 GAD_FLUXLIMIT_ADV_Y 
        vT(i,j) =
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 97 GAD_FLUXLIMIT_ADV_Y 
     &   vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0
./verification/OpenAD/code/gad_fluxlimit_adv_y.F 99 GAD_FLUXLIMIT_ADV_Y 
     &        (1-Cr)*ABS(vTrans(i,j))
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 101 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = 0. _d 0
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 108 GAD_FLUXLIMIT_IMPL_R 
         DO i=iMin,iMax
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 109 GAD_FLUXLIMIT_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 110 GAD_FLUXLIMIT_IMPL_R 
           rUpwind = ABS(rCenter)*upwindFac(i,j)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 111 GAD_FLUXLIMIT_IMPL_R 
           a3d(i,j,k)   = a3d(i,j,k)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 113 GAD_FLUXLIMIT_IMPL_R 
     &                   *recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 114 GAD_FLUXLIMIT_IMPL_R 
           b3d(i,j,k)   = b3d(i,j,k)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 116 GAD_FLUXLIMIT_IMPL_R 
     &                    *recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 117 GAD_FLUXLIMIT_IMPL_R 
           b3d(i,j,k-1) = b3d(i,j,k-1)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 119 GAD_FLUXLIMIT_IMPL_R 
     &                    *recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 120 GAD_FLUXLIMIT_IMPL_R 
           c3d(i,j,k-1) = c3d(i,j,k-1)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 122 GAD_FLUXLIMIT_IMPL_R 
     &                    *recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 64 GAD_FLUXLIMIT_IMPL_R 
      INTEGER i,j,kp1,km1,km2
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 84 GAD_FLUXLIMIT_IMPL_R 
        DO i=iMin,iMax
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 85 GAD_FLUXLIMIT_IMPL_R 
         w_CFL = deltaTcfl*rTrans(i,j)*recip_rA(i,j,bi,bj)*recip_drC(k)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 86 GAD_FLUXLIMIT_IMPL_R 
         Rjp=(tFld(i,j,kp1)-tFld(i,j,k)  )*maskC(i,j,kp1,bi,bj)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 87 GAD_FLUXLIMIT_IMPL_R 
         Rj =(tFld(i,j,k)  -tFld(i,j,km1))
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 88 GAD_FLUXLIMIT_IMPL_R 
         Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj)
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 91 GAD_FLUXLIMIT_IMPL_R 
          IF (rTrans(i,j).LT.0. _d 0) THEN
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 97 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = 1. _d 0
./verification/OpenAD/code/gad_fluxlimit_impl_r.F 99 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) )
./model/src/ini_cartesian_grid.F 101 INI_CARTESIAN_GRID 
        DO i=1, iG-1
./model/src/ini_cartesian_grid.F 102 INI_CARTESIAN_GRID 
         xG0 = xG0 + delX(i)
./model/src/ini_cartesian_grid.F 105 INI_CARTESIAN_GRID 
        DO i=1, Olx
./model/src/ini_cartesian_grid.F 106 INI_CARTESIAN_GRID 
         xG0 = xG0 - delX( 1+MOD(Olx*Nx-1+iG-i,Nx) )
./model/src/ini_cartesian_grid.F 121 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 123 INI_CARTESIAN_GRID 
          xGloc(i+1,j) = xGloc(i,j) + delX( iGl(i,bi) )
./model/src/ini_cartesian_grid.F 126 INI_CARTESIAN_GRID 
        DO i=1-Olx,sNx+Olx +1
./model/src/ini_cartesian_grid.F 127 INI_CARTESIAN_GRID 
         yGloc(i,1-Oly) = yG0
./model/src/ini_cartesian_grid.F 130 INI_CARTESIAN_GRID 
          yGloc(i,j+1) = yGloc(i,j) + delY( jGl(j,bj) )
./model/src/ini_cartesian_grid.F 136 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 137 INI_CARTESIAN_GRID 
          xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_cartesian_grid.F 138 INI_CARTESIAN_GRID 
          yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_cartesian_grid.F 144 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 146 INI_CARTESIAN_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F 147 INI_CARTESIAN_GRID 
     &     xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) )
./model/src/ini_cartesian_grid.F 148 INI_CARTESIAN_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F 149 INI_CARTESIAN_GRID 
     &     yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) )
./model/src/ini_cartesian_grid.F 155 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 156 INI_CARTESIAN_GRID 
          dxF(i,j,bi,bj) = delX( iGl(i,bi) )
./model/src/ini_cartesian_grid.F 157 INI_CARTESIAN_GRID 
          dyF(i,j,bi,bj) = delY( jGl(j,bj) )
./model/src/ini_cartesian_grid.F 163 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 164 INI_CARTESIAN_GRID 
          dxG(i,j,bi,bj) = delX( iGl(i,bi) )
./model/src/ini_cartesian_grid.F 165 INI_CARTESIAN_GRID 
          dyG(i,j,bi,bj) = delY( jGl(j,bj) )
./model/src/ini_cartesian_grid.F 173 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 174 INI_CARTESIAN_GRID 
          dxC(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 175 INI_CARTESIAN_GRID 
          dyC(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 176 INI_CARTESIAN_GRID 
          dxV(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 177 INI_CARTESIAN_GRID 
          dyU(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 178 INI_CARTESIAN_GRID 
          rAw(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 179 INI_CARTESIAN_GRID 
          rAs(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 185 INI_CARTESIAN_GRID 
         DO i=1-Olx+1,sNx+Olx ! NOTE range
./model/src/ini_cartesian_grid.F 186 INI_CARTESIAN_GRID 
          dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_cartesian_grid.F 192 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 193 INI_CARTESIAN_GRID 
          dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_cartesian_grid.F 199 INI_CARTESIAN_GRID 
         DO i=1-Olx+1,sNx+Olx ! NOTE range
./model/src/ini_cartesian_grid.F 201 INI_CARTESIAN_GRID 
          dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_cartesian_grid.F 202 INI_CARTESIAN_GRID 
          dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_cartesian_grid.F 211 INI_CARTESIAN_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cartesian_grid.F 212 INI_CARTESIAN_GRID 
          rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 213 INI_CARTESIAN_GRID 
          rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 214 INI_CARTESIAN_GRID 
          rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 215 INI_CARTESIAN_GRID 
          rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 217 INI_CARTESIAN_GRID 
          tanPhiAtU(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 218 INI_CARTESIAN_GRID 
          tanPhiAtV(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 219 INI_CARTESIAN_GRID 
          angleCosC(i,j,bi,bj) = 1.
./model/src/ini_cartesian_grid.F 220 INI_CARTESIAN_GRID 
          angleSinC(i,j,bi,bj) = 0.
./model/src/ini_cartesian_grid.F 66 INI_CARTESIAN_GRID 
      INTEGER iG, jG, bi, bj, i, j
./model/src/ini_cartesian_grid.F 75 INI_CARTESIAN_GRID 
      iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx)
./model/src/ini_cg2d.F 100 INI_CG2D 
          DO i=1,sNx
./model/src/ini_cg2d.F 102 INI_CG2D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg2d.F 103 INI_CG2D 
     &               *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg2d.F 104 INI_CG2D 
           aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)
./model/src/ini_cg2d.F 106 INI_CG2D 
     &               *faceArea*recip_dxC(i,j,bi,bj)
./model/src/ini_cg2d.F 107 INI_CG2D 
           faceArea = _dxG(i,j,bi,bj)*drF(k)
./model/src/ini_cg2d.F 108 INI_CG2D 
     &               *_hFacS(i,j,k,bi,bj)
./model/src/ini_cg2d.F 109 INI_CG2D 
           aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)
./model/src/ini_cg2d.F 111 INI_CG2D 
     &               *faceArea*recip_dyC(i,j,bi,bj)
./model/src/ini_cg2d.F 117 INI_CG2D 
         DO i=1,sNx
./model/src/ini_cg2d.F 118 INI_CG2D 
          IF (OB_Jn(i,bi,bj).NE.0) aS2d(i, OB_Jn(i,bi,bj), bi,bj)=0.
./model/src/ini_cg2d.F 119 INI_CG2D 
          IF (OB_Jn(i,bi,bj).NE.0) aS2d(i,OB_Jn(i,bi,bj)+1,bi,bj)=0.
./model/src/ini_cg2d.F 120 INI_CG2D 
          IF (OB_Js(i,bi,bj).NE.0) aS2d(i,OB_Js(i,bi,bj)+1,bi,bj)=0.
./model/src/ini_cg2d.F 121 INI_CG2D 
          IF (OB_Js(i,bi,bj).NE.0) aS2d(i, OB_Js(i,bi,bj), bi,bj)=0.
./model/src/ini_cg2d.F 132 INI_CG2D 
         DO i=1,sNx
./model/src/ini_cg2d.F 133 INI_CG2D 
          myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 134 INI_CG2D 
          myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 148 INI_CG2D 
         DO i=1,sNx
./model/src/ini_cg2d.F 149 INI_CG2D 
          aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 150 INI_CG2D 
          aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 215 INI_CG2D 
         DO i=0,sNx+1
./model/src/ini_cg2d.F 216 INI_CG2D 
           ks = ksurfC(i,j,bi,bj)
./model/src/ini_cg2d.F 217 INI_CG2D 
           aC2d(i,j,bi,bj) = -(
./model/src/ini_cg2d.F 218 INI_CG2D 
     &       aW2d(i,j,bi,bj) + aW2d(i+1,j, bi,bj)
./model/src/ini_cg2d.F 219 INI_CG2D 
     &      +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj)
./model/src/ini_cg2d.F 220 INI_CG2D 
     &      +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/ini_cg2d.F 221 INI_CG2D 
     &                  *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/ini_cg2d.F 226 INI_CG2D 
         DO i=1,sNx
./model/src/ini_cg2d.F 227 INI_CG2D 
           aC  = aC2d( i, j, bi,bj)
./model/src/ini_cg2d.F 228 INI_CG2D 
           aCs = aC2d( i,j-1,bi,bj)
./model/src/ini_cg2d.F 229 INI_CG2D 
           aCw = aC2d(i-1,j, bi,bj)
./model/src/ini_cg2d.F 231 INI_CG2D 
            pC(i,j,bi,bj) = 1. _d 0
./model/src/ini_cg2d.F 233 INI_CG2D 
            pC(i,j,bi,bj) =  1. _d 0 / aC
./model/src/ini_cg2d.F 236 INI_CG2D 
            pW(i,j,bi,bj) = 0.
./model/src/ini_cg2d.F 238 INI_CG2D 
            pW(i,j,bi,bj) =
./model/src/ini_cg2d.F 239 INI_CG2D 
     &         -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 )
./model/src/ini_cg2d.F 242 INI_CG2D 
            pS(i,j,bi,bj) = 0.
./model/src/ini_cg2d.F 244 INI_CG2D 
            pS(i,j,bi,bj) =
./model/src/ini_cg2d.F 245 INI_CG2D 
     &         -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 )
./model/src/ini_cg2d.F 49 INI_CG2D 
      INTEGER i, j, k, ks
./model/src/ini_cg2d.F 60 INI_CG2D 
         DO i=1-OLx,sNx+OLx
./model/src/ini_cg2d.F 61 INI_CG2D 
          aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 62 INI_CG2D 
          aS2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 63 INI_CG2D 
          aC2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 64 INI_CG2D 
          pW(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 65 INI_CG2D 
          pS(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 66 INI_CG2D 
          pC(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 70 INI_CG2D 
         DO i=1-1,sNx+1
./model/src/ini_cg2d.F 71 INI_CG2D 
          cg2d_q(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 72 INI_CG2D 
          cg2d_r(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 73 INI_CG2D 
          cg2d_s(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 75 INI_CG2D 
          cg2d_z(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 78 INI_CG2D 
          cg2d_y(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 79 INI_CG2D 
          cg2d_v(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 93 INI_CG2D 
         DO i=1,sNx
./model/src/ini_cg2d.F 94 INI_CG2D 
          aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 95 INI_CG2D 
          aS2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg3d.F 113 INI_CG3D 
          DO i=1,sNx+1
./model/src/ini_cg3d.F 114 INI_CG3D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg3d.F 115 INI_CG3D 
     &                *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg3d.F 116 INI_CG3D 
           aW3d(i,j,k,bi,bj) = faceArea*recip_dxC(i,j,bi,bj)
./model/src/ini_cg3d.F 118 INI_CG3D 
           myNorm = MAX(ABS(aW3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 123 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 124 INI_CG3D 
           faceArea = _dxG(i,j,bi,bj)*drF(K)
./model/src/ini_cg3d.F 125 INI_CG3D 
     &                *_hFacS(i,j,k,bi,bj)
./model/src/ini_cg3d.F 126 INI_CG3D 
           aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj)
./model/src/ini_cg3d.F 128 INI_CG3D 
           myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 134 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 135 INI_CG3D 
           aV3d(i,j,k,bi,bj) =  0.
./model/src/ini_cg3d.F 144 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 145 INI_CG3D 
           faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj)
./model/src/ini_cg3d.F 146 INI_CG3D 
     &                              *maskC(i,j,k-1,bi,bj)
./model/src/ini_cg3d.F 154 INI_CG3D 
           aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac
./model/src/ini_cg3d.F 156 INI_CG3D 
           myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 163 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 164 INI_CG3D 
           IF (OB_Jn(i,bi,bj).NE.0) THEN
./model/src/ini_cg3d.F 165 INI_CG3D 
            aS3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 166 INI_CG3D 
            aS3d( i,OB_Jn(i,bi,bj)+1,k,bi,bj) = 0.
./model/src/ini_cg3d.F 167 INI_CG3D 
            aW3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 168 INI_CG3D 
            aW3d(i+1,OB_Jn(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 169 INI_CG3D 
            aV3d( i, OB_Jn(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 171 INI_CG3D 
           IF (OB_Js(i,bi,bj).NE.0) THEN
./model/src/ini_cg3d.F 172 INI_CG3D 
            aS3d( i,OB_Js(i,bi,bj)+1,k,bi,bj) = 0.
./model/src/ini_cg3d.F 173 INI_CG3D 
            aS3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 174 INI_CG3D 
            aW3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 175 INI_CG3D 
            aW3d(i+1,OB_Js(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 176 INI_CG3D 
            aV3d( i, OB_Js(i,bi,bj), k,bi,bj) = 0.
./model/src/ini_cg3d.F 224 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 225 INI_CG3D 
           aW = aW3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F 226 INI_CG3D 
           aE = aW3d(i+1,j, k, bi,bj)
./model/src/ini_cg3d.F 227 INI_CG3D 
           aN = aS3d( i,j+1,k, bi,bj)
./model/src/ini_cg3d.F 228 INI_CG3D 
           aS = aS3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F 229 INI_CG3D 
           aU = aV3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F 231 INI_CG3D 
            aL = aV3d(i, j,k+1,bi,bj)
./model/src/ini_cg3d.F 235 INI_CG3D 
           aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL
./model/src/ini_cg3d.F 242 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 246 INI_CG3D 
     &                *Bo_surf(i,j,bi,bj)*recip_drC(1)
./model/src/ini_cg3d.F 250 INI_CG3D 
           ks = ksurfC(i,j,bi,bj)
./model/src/ini_cg3d.F 252 INI_CG3D 
             aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj)
./model/src/ini_cg3d.F 253 INI_CG3D 
     &         - freeSurfFac*recip_Bo(i,j,bi,bj)
./model/src/ini_cg3d.F 254 INI_CG3D 
     &          *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTfreesurf
./model/src/ini_cg3d.F 263 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 264 INI_CG3D 
           aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 265 INI_CG3D 
           aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 266 INI_CG3D 
           aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 267 INI_CG3D 
           aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 292 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 293 INI_CG3D 
           IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_cg3d.F 294 INI_CG3D 
            zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)
./model/src/ini_cg3d.F 295 INI_CG3D 
            zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)
./model/src/ini_cg3d.F 297 INI_CG3D 
             zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj)
./model/src/ini_cg3d.F 299 INI_CG3D 
             zMU(i,j,k,bi,bj)= 0.
./model/src/ini_cg3d.F 307 INI_CG3D 
            zMC(i,j,k,bi,bj) = 1. _d 0
./model/src/ini_cg3d.F 308 INI_CG3D 
            zMU(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 309 INI_CG3D 
            zML(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 316 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 317 INI_CG3D 
           zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F 318 INI_CG3D 
           zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F 323 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 324 INI_CG3D 
           zMC(i,j,k,bi,bj) = 1. _d 0 /
./model/src/ini_cg3d.F 325 INI_CG3D 
     &     (zMC(i,j,k,bi,bj)-zML(i,j,k,bi,bj)*zMU(i,j,k-1,bi,bj))
./model/src/ini_cg3d.F 326 INI_CG3D 
           zMU(i,j,k,bi,bj) = zMU(i,j,k,bi,bj)*zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F 332 INI_CG3D 
          DO i=1,sNx
./model/src/ini_cg3d.F 333 INI_CG3D 
           IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN
./model/src/ini_cg3d.F 334 INI_CG3D 
            zMC(i,j,k,bi,bj) = 1.
./model/src/ini_cg3d.F 335 INI_CG3D 
            zML(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 336 INI_CG3D 
            zMU(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 50 INI_CG3D 
      INTEGER i, j, k, ks
./model/src/ini_cg3d.F 69 INI_CG3D 
          DO i=1-OLx,sNx+OLx
./model/src/ini_cg3d.F 70 INI_CG3D 
           aW3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 71 INI_CG3D 
           aS3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 72 INI_CG3D 
           aV3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 73 INI_CG3D 
           aC3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 74 INI_CG3D 
           zMC (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 75 INI_CG3D 
           zML (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 76 INI_CG3D 
           zMU (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 81 INI_CG3D 
          DO i=0,sNx+1
./model/src/ini_cg3d.F 82 INI_CG3D 
           cg3d_q(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 83 INI_CG3D 
           cg3d_r(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 84 INI_CG3D 
           cg3d_s(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 89 INI_CG3D 
          DO i=1-OLx,sNx+OLx
./model/src/ini_cg3d.F 90 INI_CG3D 
           cg3d_b(i,j,k,bi,bj) = 0.
./verification/OpenAD/code_ad_singlelayer/cost_test.F 35 COST_TEST 
      integer i, j, k
./verification/OpenAD/code_ad_singlelayer/cost_test.F 66 COST_TEST 
            do i=1,sNx
./verification/OpenAD/code_ad_singlelayer/cost_test.F 67 COST_TEST 
            ig = myXGlobalLo-1+(bi-1)*sNx+i
./verification/OpenAD/code_ad_singlelayer/cost_test.F 69 COST_TEST 
            objf_test(bi,bj) = objf_test(bi,bj) + maskW(i,j,k,bi,bj)
./verification/OpenAD/code_ad_singlelayer/cost_test.F 70 COST_TEST 
     &           *( uVel(i,j,k,bi,bj) )
./verification/OpenAD/code_ad_singlelayer/cost_test.F 71 COST_TEST 
     &           *( uVel(i,j,k,bi,bj) )
./model/src/ini_cori.F 111 INI_CORI 
              DO i=1-Olx,sNx+Olx
./model/src/ini_cori.F 112 INI_CORI 
                fCori(i,j,bi,bj)  = 0. _d 0
./model/src/ini_cori.F 113 INI_CORI 
                fCoriG(i,j,bi,bj) = 0. _d 0
./model/src/ini_cori.F 114 INI_CORI 
                fCoriCos(i,j,bi,bj)=0. _d 0
./model/src/ini_cori.F 194 INI_CORI 
          DO i = 1,MAX_LEN_MBUF
./model/src/ini_cori.F 195 INI_CORI 
            mon_fname(i:i) = ' '
./model/src/ini_cori.F 45 INI_CORI 
      INTEGER i, j
./model/src/ini_cori.F 62 INI_CORI 
              DO i=1-Olx,sNx+Olx
./model/src/ini_cori.F 63 INI_CORI 
                fCori(i,j,bi,bj)  = f0
./model/src/ini_cori.F 64 INI_CORI 
                fCoriG(i,j,bi,bj) = f0
./model/src/ini_cori.F 65 INI_CORI 
                fCoriCos(i,j,bi,bj)=0. _d 0
./model/src/ini_cori.F 78 INI_CORI 
              DO i=1-Olx,sNx+Olx
./model/src/ini_cori.F 79 INI_CORI 
                fCori(i,j,bi,bj)  = f0+beta*_yC(i,j,bi,bj)*facGrid
./model/src/ini_cori.F 80 INI_CORI 
                fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid
./model/src/ini_cori.F 81 INI_CORI 
                fCoriCos(i,j,bi,bj)=0. _d 0
./model/src/ini_cori.F 92 INI_CORI 
              DO i=1-Olx,sNx+Olx
./model/src/ini_cori.F 93 INI_CORI 
                fCori(i,j,bi,bj)  =
./model/src/ini_cori.F 94 INI_CORI 
     &                 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F 95 INI_CORI 
                fCoriG(i,j,bi,bj) =
./model/src/ini_cori.F 96 INI_CORI 
     &                 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F 97 INI_CORI 
                fCoriCos(i,j,bi,bj)=
./model/src/ini_cori.F 98 INI_CORI 
     &                 2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad)
./verification/OpenAD/code_oad_all/cost_dependent_init.F 39 COST_DEPENDENT_INIT 
      integer i,j,k
./verification/OpenAD/code_oad_all/cost_dependent_init.F 60 COST_DEPENDENT_INIT 
        do i=1,sNx
./verification/OpenAD/code_oad_all/cost_dependent_init.F 61 COST_DEPENDENT_INIT 
         objf_vector(i,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/cost_dependent_init.F 62 COST_DEPENDENT_INIT 
         adobjf_vector(i,bi,bj) = 1. _d 0
./verification/OpenAD/code_oad_all/cost_dependent_init.F 67 COST_DEPENDENT_INIT 
          do i=1,sNx
./verification/OpenAD/code_oad_all/cost_dependent_init.F 69 COST_DEPENDENT_INIT 
            objf_state_final(i,j,bi,bj,k) = 0. _d 0
./verification/OpenAD/code_oad_all/cost_dependent_init.F 71 COST_DEPENDENT_INIT 
           objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./verification/OpenAD/code_oad_all/ctrl_pack.F 215 CTRL_PACK 
          write(cunit) (ncvarindex(i), i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 216 CTRL_PACK 
          write(cunit) (ncvarrecs(i),  i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 217 CTRL_PACK 
          write(cunit) (ncvarxmax(i),  i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 218 CTRL_PACK 
          write(cunit) (ncvarymax(i),  i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 219 CTRL_PACK 
          write(cunit) (ncvarnrmax(i), i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 220 CTRL_PACK 
          write(cunit) (ncvargrd(i),   i=1,maxcvars)
./verification/OpenAD/code_oad_all/ctrl_pack.F 66 CTRL_PACK 
      integer i, j, k
./verification/OpenAD/code_oad_all/gad_implicit_r.F 100 GAD_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 101 GAD_IMPLICIT_R 
         e5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 113 GAD_IMPLICIT_R 
           DO i=1-Olx,sNx+Olx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 114 GAD_IMPLICIT_R 
            localTijk(i,j,k) = gTracer(i,j,k,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 121 GAD_IMPLICIT_R 
           DO i=1-Olx,sNx+Olx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 122 GAD_IMPLICIT_R 
            localTijk(i,j,k) = tracer(i,j,k,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 135 GAD_IMPLICIT_R 
         DO i=iMin,iMax
./verification/OpenAD/code_oad_all/gad_implicit_r.F 136 GAD_IMPLICIT_R 
           b5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k-1,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 137 GAD_IMPLICIT_R 
     &                  *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 138 GAD_IMPLICIT_R 
     &                  *kappaRX(i,j, k )*recip_drC( k )
./verification/OpenAD/code_oad_all/gad_implicit_r.F 145 GAD_IMPLICIT_R 
         DO i=iMin,iMax
./verification/OpenAD/code_oad_all/gad_implicit_r.F 146 GAD_IMPLICIT_R 
           d5d(i,j,k) = -dTtracerLev(k)*maskC(i,j,k+1,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 147 GAD_IMPLICIT_R 
     &                 *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 148 GAD_IMPLICIT_R 
     &                 *KappaRX(i,j,k+1)*recip_drC(k+1)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 155 GAD_IMPLICIT_R 
         DO i=iMin,iMax
./verification/OpenAD/code_oad_all/gad_implicit_r.F 156 GAD_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 171 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 172 GAD_IMPLICIT_R 
            rTransKp1(i,j) = 0.
./verification/OpenAD/code_oad_all/gad_implicit_r.F 177 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 178 GAD_IMPLICIT_R 
            rTransKp1(i,j) = rTrans(i,j)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 185 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 186 GAD_IMPLICIT_R 
            wFld(i,j)   = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 187 GAD_IMPLICIT_R 
            rTrans(i,j) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 192 GAD_IMPLICIT_R 
          DO i=1-Olx,sNx+Olx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 193 GAD_IMPLICIT_R 
            wFld(i,j)   = wVel(i,j,k,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 194 GAD_IMPLICIT_R 
            rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)v*maskC(i,j,k-1,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 206 GAD_IMPLICIT_R 
          DO i=iMin,iMax
./verification/OpenAD/code_oad_all/gad_implicit_r.F 208 GAD_IMPLICIT_R 
           gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 209 GAD_IMPLICIT_R 
     &      + dTtracerLev(1)*recip_rA(i,j,bi,bj)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 210 GAD_IMPLICIT_R 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 211 GAD_IMPLICIT_R 
     &       *tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))*rkSign
./verification/OpenAD/code_oad_all/gad_implicit_r.F 304 GAD_IMPLICIT_R 
             DO i=1-OLx,sNx+OLx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 305 GAD_IMPLICIT_R 
               df(i,j) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 310 GAD_IMPLICIT_R 
             DO i=1,sNx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 311 GAD_IMPLICIT_R 
               df(i,j) =
./verification/OpenAD/code_oad_all/gad_implicit_r.F 312 GAD_IMPLICIT_R 
     &              rA(i,j,bi,bj)v
./verification/OpenAD/code_oad_all/gad_implicit_r.F 313 GAD_IMPLICIT_R 
     &            * KappaRX(i,j,k)*recip_drC(k)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 314 GAD_IMPLICIT_R 
     &            * (gTracer(i,j,k,bi,bj) - gTracer(i,j,k-1,bi,bj))
./verification/OpenAD/code_oad_all/gad_implicit_r.F 65 GAD_IMPLICIT_R 
      INTEGER i,j,k
./verification/OpenAD/code_oad_all/gad_implicit_r.F 96 GAD_IMPLICIT_R 
        DO i=1-Olx,sNx+Olx
./verification/OpenAD/code_oad_all/gad_implicit_r.F 97 GAD_IMPLICIT_R 
         a5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 98 GAD_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 99 GAD_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 100 GRDCHK_MAIN 
      integer i,  imin, imax
./verification/OpenAD/code_oad_all/grdchk_main.F 174 GRDCHK_MAIN 
                  do i = imin, imax
./verification/OpenAD/code_oad_all/grdchk_main.F 175 GRDCHK_MAIN 
                     tmpplot1(i,j,k,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 176 GRDCHK_MAIN 
                     tmpplot2(i,j,k,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 177 GRDCHK_MAIN 
                     tmpplot3(i,j,k,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 274 GRDCHK_MAIN 
              do i=1,snx
./verification/OpenAD/code_oad_all/grdchk_main.F 275 GRDCHK_MAIN 
               g_objf_state_final(i,j,1,1,k) = 0.
./model/src/ini_curvilinear_grid.F 232 INI_CURVILINEAR_GRID 
        DO i = 1,80
./model/src/ini_curvilinear_grid.F 233 INI_CURVILINEAR_GRID 
          mncFn(i:i) = ' '
./model/src/ini_curvilinear_grid.F 236 INI_CURVILINEAR_GRID 
        DO i = 1,MAX_LEN_MBUF
./model/src/ini_curvilinear_grid.F 237 INI_CURVILINEAR_GRID 
          msgBuf(i:i) = ' '
./model/src/ini_curvilinear_grid.F 49 INI_CURVILINEAR_GRID 
      INTEGER i,j
./model/src/ini_curvilinear_grid.F 69 INI_CURVILINEAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_curvilinear_grid.F 70 INI_CURVILINEAR_GRID 
          xC(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 71 INI_CURVILINEAR_GRID 
          yC(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 72 INI_CURVILINEAR_GRID 
          xG(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 73 INI_CURVILINEAR_GRID 
          yG(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 74 INI_CURVILINEAR_GRID 
          dxC(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 75 INI_CURVILINEAR_GRID 
          dyC(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 76 INI_CURVILINEAR_GRID 
          dxG(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 77 INI_CURVILINEAR_GRID 
          dyG(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 78 INI_CURVILINEAR_GRID 
          dxF(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 79 INI_CURVILINEAR_GRID 
          dyF(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 80 INI_CURVILINEAR_GRID 
          dxV(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 81 INI_CURVILINEAR_GRID 
          dyU(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 82 INI_CURVILINEAR_GRID 
          rA(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 83 INI_CURVILINEAR_GRID 
          rAz(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 84 INI_CURVILINEAR_GRID 
          rAw(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 85 INI_CURVILINEAR_GRID 
          rAs(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 86 INI_CURVILINEAR_GRID 
          tanPhiAtU(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 87 INI_CURVILINEAR_GRID 
          tanPhiAtV(i,j,bi,bj)=0.
./model/src/ini_curvilinear_grid.F 88 INI_CURVILINEAR_GRID 
          angleCosC(i,j,bi,bj)=1.
./model/src/ini_curvilinear_grid.F 89 INI_CURVILINEAR_GRID 
          angleSinC(i,j,bi,bj)=0.
./model/src/ini_cylinder_grid.F 109 INI_CYLINDER_GRID 
        DO i=1, iG-1
./model/src/ini_cylinder_grid.F 110 INI_CYLINDER_GRID 
         xG0 = xG0 + delX(i)
./model/src/ini_cylinder_grid.F 113 INI_CYLINDER_GRID 
        DO i=1, Olx
./model/src/ini_cylinder_grid.F 114 INI_CYLINDER_GRID 
         xG0 = xG0 - delX( 1+mod(Olx*Nx-1+iG-i,Nx) )
./model/src/ini_cylinder_grid.F 129 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 130 INI_CYLINDER_GRID 
          xGloc(i+1,j) = xGloc(i,j) + delX( iGl(i,bi) )
./model/src/ini_cylinder_grid.F 133 INI_CYLINDER_GRID 
        DO i=1-Olx,sNx+Olx +1
./model/src/ini_cylinder_grid.F 134 INI_CYLINDER_GRID 
         yGloc(i,1-Oly) = yG0
./model/src/ini_cylinder_grid.F 136 INI_CYLINDER_GRID 
          yGloc(i,j+1) = yGloc(i,j) + delY( jGl(j,bj) )
./model/src/ini_cylinder_grid.F 142 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 143 INI_CYLINDER_GRID 
          xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_cylinder_grid.F 144 INI_CYLINDER_GRID 
          yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_cylinder_grid.F 150 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 152 INI_CYLINDER_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F 153 INI_CYLINDER_GRID 
     &     xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) )
./model/src/ini_cylinder_grid.F 154 INI_CYLINDER_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F 155 INI_CYLINDER_GRID 
     &     yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) )
./model/src/ini_cylinder_grid.F 161 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 162 INI_CYLINDER_GRID 
          thisRad = yC(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 163 INI_CYLINDER_GRID 
          dtheta = delX( iGl(i,bi) )
./model/src/ini_cylinder_grid.F 164 INI_CYLINDER_GRID 
          dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad
./model/src/ini_cylinder_grid.F 165 INI_CYLINDER_GRID 
          dyF(i,j,bi,bj) = delY( jGl(j,bj) )
./model/src/ini_cylinder_grid.F 171 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 172 INI_CYLINDER_GRID 
          thisRad = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_cylinder_grid.F 173 INI_CYLINDER_GRID 
          dtheta = delX( iGl(i,bi) )
./model/src/ini_cylinder_grid.F 174 INI_CYLINDER_GRID 
          dxG(i,j,bi,bj) = thisRad*dtheta*deg2rad
./model/src/ini_cylinder_grid.F 175 INI_CYLINDER_GRID 
          dyG(i,j,bi,bj) = delY( jGl(j,bj) )
./model/src/ini_cylinder_grid.F 183 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 184 INI_CYLINDER_GRID 
          dxC(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 185 INI_CYLINDER_GRID 
          dyC(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 186 INI_CYLINDER_GRID 
          dxV(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 187 INI_CYLINDER_GRID 
          dyU(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 188 INI_CYLINDER_GRID 
          rAw(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 189 INI_CYLINDER_GRID 
          rAs(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 195 INI_CYLINDER_GRID 
         DO i=1-Olx+1,sNx+Olx ! NOTE range
./model/src/ini_cylinder_grid.F 197 INI_CYLINDER_GRID 
          dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_cylinder_grid.F 203 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 205 INI_CYLINDER_GRID 
          dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_cylinder_grid.F 211 INI_CYLINDER_GRID 
         DO i=1-Olx+1,sNx+Olx ! NOTE range
./model/src/ini_cylinder_grid.F 213 INI_CYLINDER_GRID 
          dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_cylinder_grid.F 214 INI_CYLINDER_GRID 
          dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_cylinder_grid.F 220 INI_CYLINDER_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_cylinder_grid.F 222 INI_CYLINDER_GRID 
          rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 223 INI_CYLINDER_GRID 
          rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 224 INI_CYLINDER_GRID 
          rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 225 INI_CYLINDER_GRID 
          rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 227 INI_CYLINDER_GRID 
          tanPhiAtU(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 228 INI_CYLINDER_GRID 
          tanPhiAtV(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 229 INI_CYLINDER_GRID 
          angleCosC(i,j,bi,bj) = 1.
./model/src/ini_cylinder_grid.F 230 INI_CYLINDER_GRID 
          angleSinC(i,j,bi,bj) = 0.
./model/src/ini_cylinder_grid.F 55 INI_CYLINDER_GRID 
      INTEGER i, j
./model/src/ini_cylinder_grid.F 83 INI_CYLINDER_GRID 
      iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx)
./verification/advect_cs/code/ini_vel.F 36 INI_VEL 
      INTEGER bi,bj,i,j,k
./verification/advect_cs/code/ini_vel.F 41 INI_VEL 
      psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F 57 INI_VEL 
          DO i=1-Olx,sNx+Olx
./verification/advect_cs/code/ini_vel.F 58 INI_VEL 
           ip1=MIN(i+1,sNx+Olx)
./verification/advect_cs/code/ini_vel.F 59 INI_VEL 
           uVel(i,j,k,bi,bj)=0. _d 0
./verification/advect_cs/code/ini_vel.F 60 INI_VEL 
     &      +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F 61 INI_VEL 
           vVel(i,j,k,bi,bj)=0. _d 0
./verification/advect_cs/code/ini_vel.F 62 INI_VEL 
     &      +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxG(i,j,bi,bj)
./verification/advect_cs/code/ini_vel.F 85 INI_VEL 
          DO i=1-Olx,sNx+Olx
./verification/advect_cs/code/ini_vel.F 86 INI_VEL 
           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./verification/advect_cs/code/ini_vel.F 87 INI_VEL 
           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./model/src/ini_depths.F 100 INI_DEPTHS 
          DO i=1,sNx
./model/src/ini_depths.F 101 INI_DEPTHS 
           R_low(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F 165 INI_DEPTHS 
           DO i=1,sNx
./model/src/ini_depths.F 166 INI_DEPTHS 
            Ro_surf(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F 207 INI_DEPTHS 
             DO i=1,sNx
./model/src/ini_depths.F 208 INI_DEPTHS 
              Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./model/src/ini_depths.F 231 INI_DEPTHS 
          DO i=1-Olx,sNx+Olx
./model/src/ini_depths.F 232 INI_DEPTHS 
           iG = myXGlobalLo-1+(bi-1)*sNx+i
./model/src/ini_depths.F 243 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.90. )
./model/src/ini_depths.F 244 INI_DEPTHS 
     &       Ro_surf(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F 253 INI_DEPTHS 
          DO i=1-Olx,sNx+Olx
./model/src/ini_depths.F 254 INI_DEPTHS 
           iG = myXGlobalLo-1+(bi-1)*sNx+i
./model/src/ini_depths.F 265 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.90. )
./model/src/ini_depths.F 266 INI_DEPTHS 
     &       R_low(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F 59 INI_DEPTHS 
      INTEGER  i, j
./model/src/ini_depths.F 78 INI_DEPTHS 
         DO i=1-Olx,sNx+Olx
./model/src/ini_depths.F 79 INI_DEPTHS 
          R_low(i,j,bi,bj)   = 0. _d 0
./model/src/ini_depths.F 80 INI_DEPTHS 
          Ro_surf(i,j,bi,bj) = 0. _d 0
./model/src/ini_depths.F 81 INI_DEPTHS 
          topoZ(i,j,bi,bj)   = 0. _d 0
./verification/advect_xy/code/ini_salt.F 47 INI_SALT 
      INTEGER i, j, k, localWarnings
./verification/advect_xy/code/ini_salt.F 57 INI_SALT 
          DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_salt.F 58 INI_SALT 
           salt(i,j,k,bi,bj) = sRef(k)
./verification/advect_xy/code/ini_salt.F 64 INI_SALT 
          DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_salt.F 65 INI_SALT 
            rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_salt.F 66 INI_SALT 
     &                +( yC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_salt.F 69 INI_SALT 
            IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0
./verification/advect_xy/code/ini_salt.F 89 INI_SALT 
           DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_salt.F 90 INI_SALT 
            IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0.
./verification/advect_xy/code/ini_salt.F 96 INI_SALT 
           DO i=1,sNx
./verification/advect_xy/code/ini_salt.F 97 INI_SALT 
            IF ( maskC(i,j,k,bi,bj).NE.0.
./verification/advect_xy/code/ini_salt.F 98 INI_SALT 
     &      .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN
./verification/advect_xy/code/ini_theta.F 100 INI_THETA 
           DO i=1,sNx
./verification/advect_xy/code/ini_theta.F 101 INI_THETA 
            IF (  maskC(i,j,k,bi,bj).NE.0.
./verification/advect_xy/code/ini_theta.F 102 INI_THETA 
     &      .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN
./verification/advect_xy/code/ini_theta.F 138 INI_THETA 
           DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_theta.F 139 INI_THETA 
            IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./verification/advect_xy/code/ini_theta.F 140 INI_THETA 
               theta(i,j,k,bi,bj) = Tfreezing
./verification/advect_xy/code/ini_theta.F 47 INI_THETA 
      INTEGER i, j, k, localWarnings
./verification/advect_xy/code/ini_theta.F 58 INI_THETA 
          DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_theta.F 59 INI_THETA 
           theta(i,j,k,bi,bj) = tRef(k)
./verification/advect_xy/code/ini_theta.F 65 INI_THETA 
          DO i=1,sNx
./verification/advect_xy/code/ini_theta.F 66 INI_THETA 
            rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_theta.F 67 INI_THETA 
     &                +( yC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_theta.F 70 INI_THETA 
            theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 )
./verification/advect_xy/code/ini_theta.F 93 INI_THETA 
           DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_theta.F 94 INI_THETA 
            IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0.
./verification/advect_xy/code/ini_vel.F 36 INI_VEL 
      INTEGER bi,bj,i,j,k
./verification/advect_xy/code/ini_vel.F 50 INI_VEL 
          DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_vel.F 51 INI_VEL 
           uVel(i,j,k,bi,bj)=1. _d 0
./verification/advect_xy/code/ini_vel.F 52 INI_VEL 
           vVel(i,j,k,bi,bj)=1. _d 0
./verification/advect_xy/code/ini_vel.F 75 INI_VEL 
          DO i=1-Olx,sNx+Olx
./verification/advect_xy/code/ini_vel.F 76 INI_VEL 
           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./verification/advect_xy/code/ini_vel.F 77 INI_VEL 
           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 112 AIM_SURF_BC 
        DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 113 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 114 AIM_SURF_BC 
          fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 152 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 153 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 154 AIM_SURF_BC 
          sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 155 AIM_SURF_BC 
     &                    + aim_sWght1*aim_sst1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 156 AIM_SURF_BC 
          stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 157 AIM_SURF_BC 
     &                    + aim_sWght1*aim_lst1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 170 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 171 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 172 AIM_SURF_BC 
          soilw_0 = ( aim_sw10(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 173 AIM_SURF_BC 
     &     +aim_veget(i,j,bi,bj)*
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 174 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 176 AIM_SURF_BC 
          soilw_1 = ( aim_sw11(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 177 AIM_SURF_BC 
     &     +aim_veget(i,j,bi,bj)*
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 178 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 188 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 189 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 190 AIM_SURF_BC 
          snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 191 AIM_SURF_BC 
     &              + aim_sWght1*aim_snw1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 192 AIM_SURF_BC 
          oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 193 AIM_SURF_BC 
     &              + aim_sWght1*aim_oic1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 225 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 230 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 231 AIM_SURF_BC 
          alb_land = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 232 AIM_SURF_BC 
     &       + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 239 AIM_SURF_BC 
           SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 240 AIM_SURF_BC 
           CJ = COS(yC(i,j,bi,bj) * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 289 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 290 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 291 AIM_SURF_BC 
          alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 292 AIM_SURF_BC 
          alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 293 AIM_SURF_BC 
          alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 298 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 299 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 309 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 310 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 311 AIM_SURF_BC 
          sst1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 312 AIM_SURF_BC 
          stl1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 313 AIM_SURF_BC 
          sti1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 318 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 319 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 325 AIM_SURF_BC 
     &     +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 326 AIM_SURF_BC 
     &                     -((yC(i,j,bi,bj)-yBump)/dyBump)**2 )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 344 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 345 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 346 AIM_SURF_BC 
          soilw1(I2,myThid) = aim_sw10(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 351 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 352 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 361 AIM_SURF_BC 
         DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 362 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 384 AIM_SURF_BC 
        DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 385 AIM_SURF_BC 
           I2 = i+(j-1)*sNx
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 86 AIM_SURF_BC 
      INTEGER i,j,I2,k, nm0
./model/src/ini_dynvars.F 78 INI_DYNVARS 
           IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 100 INI_DEPTHS 
          DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 101 INI_DEPTHS 
           R_low(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 165 INI_DEPTHS 
           DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 166 INI_DEPTHS 
            Ro_surf(i,j,bi,bj) = rF(1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 207 INI_DEPTHS 
             DO i=1,sNx
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 208 INI_DEPTHS 
              Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 231 INI_DEPTHS 
          DO i=1-Olx,sNx+Olx
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 232 INI_DEPTHS 
           iG = myXGlobalLo-1+(bi-1)*sNx+i
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 240 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 241 INI_DEPTHS 
     &       Ro_surf(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 243 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.90. )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 244 INI_DEPTHS 
     &       Ro_surf(i,j,bi,bj) = rF(Nr+1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 253 INI_DEPTHS 
          DO i=1-Olx,sNx+Olx
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 254 INI_DEPTHS 
           iG = myXGlobalLo-1+(bi-1)*sNx+i
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 262 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.ABS(ygOrigin) )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 263 INI_DEPTHS 
     &       R_low(i,j,bi,bj) = rF(1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 265 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.90. )
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 266 INI_DEPTHS 
     &       R_low(i,j,bi,bj) = rF(1)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 59 INI_DEPTHS 
      INTEGER  i, j
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 78 INI_DEPTHS 
         DO i=1-Olx,sNx+Olx
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 79 INI_DEPTHS 
          R_low(i,j,bi,bj)   = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 80 INI_DEPTHS 
          Ro_surf(i,j,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 81 INI_DEPTHS 
          topoZ(i,j,bi,bj)   = 0. _d 0
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 35 MOM_VI_HFACZ_DISS 
      DO i=1-Olx,sNx+Olx
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 36 MOM_VI_HFACZ_DISS 
       hFacZ(i,1-Oly)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 37 MOM_VI_HFACZ_DISS 
       r_hFacZ(i,1-Oly)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 43 MOM_VI_HFACZ_DISS 
       DO i=2-Olx,sNx+Olx
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 44 MOM_VI_HFACZ_DISS 
        hFacZOpen=MIN(_hFacW(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 45 MOM_VI_HFACZ_DISS 
     &              + _hFacW(i,j-1,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 46 MOM_VI_HFACZ_DISS 
     &              , _hFacS(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 47 MOM_VI_HFACZ_DISS 
     &              + _hFacS(i-1,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 49 MOM_VI_HFACZ_DISS 
        hFacZ(i,j)=0.5*hFacZOpen
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 50 MOM_VI_HFACZ_DISS 
        IF (hFacZ(i,j).EQ.0.) THEN
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 51 MOM_VI_HFACZ_DISS 
         r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 53 MOM_VI_HFACZ_DISS 
         r_hFacZ(i,j)=1./hFacZ(i,j)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 63 MOM_VI_HFACZ_DISS 
        DO i=1,sNx+1,sNx
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 64 MOM_VI_HFACZ_DISS 
         hFacZOpen=MIN( _hFacW(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 65 MOM_VI_HFACZ_DISS 
     &                , _hFacW(i,j-1,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 66 MOM_VI_HFACZ_DISS 
     &                , _hFacS(i,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 67 MOM_VI_HFACZ_DISS 
     &                , _hFacS(i-1,j,k,bi,bj)
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 69 MOM_VI_HFACZ_DISS 
         hFacZ(i,j)=hFacZOpen
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 71 MOM_VI_HFACZ_DISS 
          r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 73 MOM_VI_HFACZ_DISS 
          r_hFacZ(i,j)=1./hFacZOpen
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 42 MOM_VI_MASK_VORT3 
       DO i=2-Olx,sNx+Olx
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 43 MOM_VI_MASK_VORT3 
        hFacZOpen=min(_hFacW(i,j,k,bi,bj),
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 44 MOM_VI_MASK_VORT3 
     &                _hFacW(i,j-1,k,bi,bj))
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 45 MOM_VI_MASK_VORT3 
        hFacZOpen=min(_hFacS(i,j,k,bi,bj),hFacZOpen)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 46 MOM_VI_MASK_VORT3 
        hFacZOpen=min(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 47 MOM_VI_MASK_VORT3 
        hFacZ(i,j)=hFacZOpen
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 48 MOM_VI_MASK_VORT3 
        IF (hFacZ(i,j).EQ.0.) THEN
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 49 MOM_VI_MASK_VORT3 
         r_hFacZ(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 50 MOM_VI_MASK_VORT3 
         vort3(i,j)=0.
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 52 MOM_VI_MASK_VORT3 
         r_hFacZ(i,j)=1./hFacZ(i,j)
./model/src/ini_eos.F 306 EOS_CHECK 
      INTEGER  i, j, k
./model/src/ini_eos.F 379 EOS_CHECK 
      i    = 1
./model/src/ini_eos.F 391 EOS_CHECK 
        mskSave = maskC(i,j,k,bi,bj)
./model/src/ini_eos.F 393 EOS_CHECK 
        maskC(i,j,k,bi,bj) = 1.
./model/src/ini_eos.F 394 EOS_CHECK 
        totPhiHyd(i,j,k,bi,bj) = 0.
./model/src/ini_eos.F 403 EOS_CHECK 
             tFld(i,j) = ptLoc(kcheck)
./model/src/ini_eos.F 405 EOS_CHECK 
             tFld(i,j) = tLoc(kcheck)
./model/src/ini_eos.F 407 EOS_CHECK 
          sFld(i,j)    = sLoc(kcheck)
./model/src/ini_eos.F 408 EOS_CHECK 
          pFld(i,j)    = pLoc(kcheck)
./model/src/ini_eos.F 409 EOS_CHECK 
          rhoLoc(i,j)  =  0. _d 0
./model/src/ini_eos.F 418 EOS_CHECK 
            bulkMod(i,j) = -1. _d 0
./model/src/ini_eos.F 41 INI_EOS 
      INTEGER  i, k
./model/src/ini_eos.F 444 EOS_CHECK 
     &         'rho(', sFld(i,j), ' PSU,',
./model/src/ini_eos.F 445 EOS_CHECK 
     &         tFld(i,j), ' degC,',
./model/src/ini_eos.F 452 EOS_CHECK 
     &         rhoLoc(i,j)+rhoConst, bulkMod(i,j)
./model/src/ini_eos.F 456 EOS_CHECK 
          CALL FIND_RHO_SCALAR( tFld(i,j), sLoc(kcheck),
./model/src/ini_eos.F 457 EOS_CHECK 
     &         pLoc(kcheck), rhoLoc(i,j), myThid )
./model/src/ini_eos.F 460 EOS_CHECK 
     &         rhoLoc(i,j)
./model/src/ini_eos.F 466 EOS_CHECK 
        maskC(i,j,k,bi,bj) = mskSave
./model/src/ini_eos.F 90 INI_EOS 
            READ(37,*) (eosC(i,k),i=1,9)
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 34 COST_TEST 
      integer i, j, k
./model/src/ini_forcing.F 102 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./model/src/ini_forcing.F 103 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./model/src/ini_forcing.F 105 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 134 INI_FORCING 
           DO i=1-Olx,sNx+Olx
./model/src/ini_forcing.F 135 INI_FORCING 
            EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./model/src/ini_forcing.F 167 INI_FORCING 
           DO i=1-OLx,sNx+OLx
./model/src/ini_forcing.F 168 INI_FORCING 
            Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj)
./model/src/ini_forcing.F 211 INI_FORCING 
           DO i=1-OLx,sNx+OLx
./model/src/ini_forcing.F 212 INI_FORCING 
             phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)
./model/src/ini_forcing.F 39 INI_FORCING 
      INTEGER  i, j
./model/src/ini_forcing.F 46 INI_FORCING 
         DO i=1-OLx,sNx+OLx
./model/src/ini_forcing.F 47 INI_FORCING 
          fu              (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 48 INI_FORCING 
          fv              (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 49 INI_FORCING 
          Qnet            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 50 INI_FORCING 
          EmPmR           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 51 INI_FORCING 
          saltFlux        (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 52 INI_FORCING 
          SST             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 53 INI_FORCING 
          SSS             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 54 INI_FORCING 
          Qsw             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 55 INI_FORCING 
          pLoad           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 56 INI_FORCING 
          sIceLoad        (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 57 INI_FORCING 
          surfaceForcingU (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 58 INI_FORCING 
          surfaceForcingV (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 59 INI_FORCING 
          surfaceForcingT (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 60 INI_FORCING 
          surfaceForcingS (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 61 INI_FORCING 
          surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 63 INI_FORCING 
          taux0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 64 INI_FORCING 
          taux1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 65 INI_FORCING 
          tauy0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 66 INI_FORCING 
          tauy1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 67 INI_FORCING 
          Qnet0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 68 INI_FORCING 
          Qnet1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 69 INI_FORCING 
          EmPmR0          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 70 INI_FORCING 
          EmPmR1          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 71 INI_FORCING 
          saltFlux0       (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 72 INI_FORCING 
          saltFlux1       (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 73 INI_FORCING 
          SST0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 74 INI_FORCING 
          SST1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 75 INI_FORCING 
          SSS0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 76 INI_FORCING 
          SSS1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 78 INI_FORCING 
          Qsw0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 79 INI_FORCING 
          Qsw1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 82 INI_FORCING 
          pLoad0          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 83 INI_FORCING 
          pLoad1          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 94 INI_FORCING 
         DO i=1-Olx,sNx+Olx
./model/src/ini_forcing.F 96 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./model/src/ini_forcing.F 97 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./model/src/ini_forcing.F 99 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_grid.F 109 INI_GRID 
          DO i = 1,MAX_LEN_MBUF
./model/src/ini_grid.F 110 INI_GRID 
            mon_fname(i:i) = ' '
./model/src/ini_grid.F 53 INI_GRID 
      INTEGER i
./model/src/ini_linear_phisurf.F 88 INI_LINEAR_PHISURF 
         DO i=1,sNx
./model/src/ini_linear_phisurf.F 90 INI_LINEAR_PHISURF 
     &                    + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 124 FIZHI_INIT_FIXED 
        do i=im1,im2
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 125 FIZHI_INIT_FIXED 
         phis_var(i,j,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 40 FIZHI_INIT_FIXED 
       integer i,j,L,bi,bj
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 75 FIZHI_INIT_FIXED 
       do i = im1,im2
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 76 FIZHI_INIT_FIXED 
        lons(i,j,bi,bj) = xC(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 77 FIZHI_INIT_FIXED 
        lats(i,j,bi,bj) = yC(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 93 FIZHI_INIT_FIXED 
        do i=im1,im2
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 94 FIZHI_INIT_FIXED 
         landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 95 FIZHI_INIT_FIXED 
         if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 96 FIZHI_INIT_FIXED 
     .            landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 97 FIZHI_INIT_FIXED 
         if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 113 FIZHI_INIT_VEG 
              do i=1,im
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 114 FIZHI_INIT_VEG 
                if(surftype(i,j,k,bi,bj).ge.100 .and.
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 115 FIZHI_INIT_VEG 
     .               tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 117 FIZHI_INIT_VEG 
                  igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 118 FIZHI_INIT_VEG 
                  ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 119 FIZHI_INIT_VEG 
                  chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 120 FIZHI_INIT_VEG 
                  chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 121 FIZHI_INIT_VEG 
                  chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 66 FIZHI_INIT_VEG 
      integer i,j,k,bi,bj
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 72 FIZHI_INIT_VEG 
      do i = 1,im
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 73 FIZHI_INIT_VEG 
       surftype(i,j,1,bi,bj) = 100
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 74 FIZHI_INIT_VEG 
       tilefrac(i,j,1,bi,bj) = 0.99
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 75 FIZHI_INIT_VEG 
       surftype(i,j,2,bi,bj) = 100
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 76 FIZHI_INIT_VEG 
       tilefrac(i,j,2,bi,bj) = 0.01
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 81 FIZHI_INIT_VEG 
      do i = 1,im
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 82 FIZHI_INIT_VEG 
       surftype(i,j,k,bi,bj) = 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 83 FIZHI_INIT_VEG 
       tilefrac(i,j,k,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/ini_salt.F 108 INI_SALT 
           call QSAT(temperature(i,j,k,bi,bj),pinmb,qstar(i,j,k,bi,bj),
./verification/fizhi-cs-aqualev20/code/ini_salt.F 110 INI_SALT 
           salt(I,J,K,bi,bj) = rhum(i,j,k,bi,bj) * qstar(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 103 UPDATE_OCEAN_EXPORTS 
       do i=im1,im2
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 104 UPDATE_OCEAN_EXPORTS 
       if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin)
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 105 UPDATE_OCEAN_EXPORTS 
     .                                          sst(i,j,bi,bj) = sstmin
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 180 GETSICE 
      integer i,j
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 183 GETSICE 
      do i = im1,im2
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 184 GETSICE 
       sice(i,j,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 257 GETSST 
      integer i,j
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 267 GETSST 
      do i = im1,im2
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 269 GETSST 
       if( abs(yc(i,j,bi,bj)*deg2rad)  .lt. pio3 ) then
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 270 GETSST 
        sinarg = 3.*yc(i,j,bi,bj)*deg2rad/2.
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 271 GETSST 
        sst(i,j,bi,bj) = 273.16 + 27.*(1.-(sin(sinarg)*sin(sinarg)))
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 273 GETSST 
        sst(i,j,bi,bj) = 273.16
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 34 UPDATE_OCEAN_EXPORTS 
       integer i, j, bi, bj, bislot, bjslot
./model/src/ini_masks_etc.F 101 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 103 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F 106 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 114 INI_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 115 INI_MASKS_ETC 
          R_low(i,j,bi,bj) = rF(1)
./model/src/ini_masks_etc.F 117 INI_MASKS_ETC 
           R_low(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 118 INI_MASKS_ETC 
     &                      - drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 133 INI_MASKS_ETC 
          DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 135 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F 137 INI_MASKS_ETC 
           hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 143 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 145 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F 148 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 173 INI_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 174 INI_MASKS_ETC 
          tmpfld(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 175 INI_MASKS_ETC 
          kSurfC(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 177 INI_MASKS_ETC 
          Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 179 INI_MASKS_ETC 
           Ro_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_masks_etc.F 180 INI_MASKS_ETC 
     &                        + drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 181 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj).NE.0.) THEN
./model/src/ini_masks_etc.F 182 INI_MASKS_ETC 
            kSurfC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 184 INI_MASKS_ETC 
            tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1.
./model/src/ini_masks_etc.F 187 INI_MASKS_ETC 
          kLowC(i,j,bi,bj) = 0
./model/src/ini_masks_etc.F 189 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj).NE.0) THEN
./model/src/ini_masks_etc.F 190 INI_MASKS_ETC 
              kLowC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 193 INI_MASKS_ETC 
          maskInC(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 194 INI_MASKS_ETC 
          IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 212 INI_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 215 INI_MASKS_ETC 
          tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 217 INI_MASKS_ETC 
          IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN
./model/src/ini_masks_etc.F 218 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 220 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/ini_masks_etc.F 233 INI_MASKS_ETC 
          DO i=2-Olx,sNx+Olx
./model/src/ini_masks_etc.F 234 INI_MASKS_ETC 
           hFacW(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F 235 INI_MASKS_ETC 
     &       MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj))
./model/src/ini_masks_etc.F 238 INI_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 239 INI_MASKS_ETC 
           hFacS(i,1-OLy,k,bi,bj)= 0.
./model/src/ini_masks_etc.F 242 INI_MASKS_ETC 
          DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 243 INI_MASKS_ETC 
           hFacS(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F 244 INI_MASKS_ETC 
     &       MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj))
./model/src/ini_masks_etc.F 249 INI_MASKS_ETC 
        i = 1-OlX
./model/src/ini_masks_etc.F 251 INI_MASKS_ETC 
           rLowW (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 252 INI_MASKS_ETC 
           rSurfW(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 255 INI_MASKS_ETC 
        DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 256 INI_MASKS_ETC 
           rLowS (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 257 INI_MASKS_ETC 
           rSurfS(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 260 INI_MASKS_ETC 
         DO i=2-Olx,sNx+Olx
./model/src/ini_masks_etc.F 261 INI_MASKS_ETC 
           rSurfW(i,j,bi,bj) =
./model/src/ini_masks_etc.F 262 INI_MASKS_ETC 
     &           MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 263 INI_MASKS_ETC 
           rLowW(i,j,bi,bj)  =
./model/src/ini_masks_etc.F 264 INI_MASKS_ETC 
     &           MAX(   R_low(i-1,j,bi,bj),   R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F 268 INI_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 269 INI_MASKS_ETC 
           rSurfS(i,j,bi,bj) =
./model/src/ini_masks_etc.F 270 INI_MASKS_ETC 
     &           MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 271 INI_MASKS_ETC 
           rLowS(i,j,bi,bj)  =
./model/src/ini_masks_etc.F 272 INI_MASKS_ETC 
     &           MAX(   R_low(i,j-1,bi,bj),   R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F 289 INI_MASKS_ETC 
          DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 290 INI_MASKS_ETC 
           IF (dyG(i,j,bi,bj).EQ.0.) hFacW(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 291 INI_MASKS_ETC 
           IF (dxG(i,j,bi,bj).EQ.0.) hFacS(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 302 INI_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 303 INI_MASKS_ETC 
          kSurfW(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 304 INI_MASKS_ETC 
          kSurfS(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 306 INI_MASKS_ETC 
           IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 307 INI_MASKS_ETC 
           IF (hFacS(i,j,k,bi,bj).NE.0.) kSurfS(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 309 INI_MASKS_ETC 
          maskInW(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 310 INI_MASKS_ETC 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 311 INI_MASKS_ETC 
          maskInS(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 312 INI_MASKS_ETC 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 337 INI_MASKS_ETC 
          DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 338 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 339 INI_MASKS_ETC 
            recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 340 INI_MASKS_ETC 
            maskC(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 342 INI_MASKS_ETC 
            recip_hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 343 INI_MASKS_ETC 
            maskC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 345 INI_MASKS_ETC 
           IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 346 INI_MASKS_ETC 
            recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 347 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 349 INI_MASKS_ETC 
            recip_hFacW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 350 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 352 INI_MASKS_ETC 
           IF (hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 353 INI_MASKS_ETC 
            recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 354 INI_MASKS_ETC 
            maskS(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 356 INI_MASKS_ETC 
            recip_hFacS(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 357 INI_MASKS_ETC 
            maskS(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 45 INI_MASKS_ETC 
      INTEGER i, j, k
./model/src/ini_masks_etc.F 54 INI_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 55 INI_MASKS_ETC 
          IF ( dxG(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 56 INI_MASKS_ETC 
     &    recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj)
./model/src/ini_masks_etc.F 57 INI_MASKS_ETC 
          IF ( dyG(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 58 INI_MASKS_ETC 
     &    recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj)
./model/src/ini_masks_etc.F 59 INI_MASKS_ETC 
          IF ( dxC(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 60 INI_MASKS_ETC 
     &    recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj)
./model/src/ini_masks_etc.F 61 INI_MASKS_ETC 
          IF ( dyC(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 62 INI_MASKS_ETC 
     &    recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj)
./model/src/ini_masks_etc.F 63 INI_MASKS_ETC 
          IF ( dxF(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 64 INI_MASKS_ETC 
     &    recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj)
./model/src/ini_masks_etc.F 65 INI_MASKS_ETC 
          IF ( dyF(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 66 INI_MASKS_ETC 
     &    recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj)
./model/src/ini_masks_etc.F 67 INI_MASKS_ETC 
          IF ( dxV(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 68 INI_MASKS_ETC 
     &    recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj)
./model/src/ini_masks_etc.F 69 INI_MASKS_ETC 
          IF ( dyU(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 70 INI_MASKS_ETC 
     &    recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj)
./model/src/ini_masks_etc.F 71 INI_MASKS_ETC 
          IF ( rA (i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 72 INI_MASKS_ETC 
     &    recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj)
./model/src/ini_masks_etc.F 73 INI_MASKS_ETC 
          IF ( rAs(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 74 INI_MASKS_ETC 
     &    recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj)
./model/src/ini_masks_etc.F 75 INI_MASKS_ETC 
          IF ( rAw(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 76 INI_MASKS_ETC 
     &    recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj)
./model/src/ini_masks_etc.F 77 INI_MASKS_ETC 
          IF ( rAz(i,j,bi,bj) .NE. 0. )
./model/src/ini_masks_etc.F 78 INI_MASKS_ETC 
     &    recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj)
./model/src/ini_masks_etc.F 93 INI_MASKS_ETC 
          DO i=1-Olx,sNx+Olx
./model/src/ini_masks_etc.F 95 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 130 DO_FIZHI 
      integer i,j,L
./verification/fizhi-gridalt-hs/code/do_fizhi.F 171 DO_FIZHI 
        do i = im1,im2
./verification/fizhi-gridalt-hs/code/do_fizhi.F 172 DO_FIZHI 
         recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 174 DO_FIZHI 
         termP=0.5 _d 0*((pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))
./verification/fizhi-gridalt-hs/code/do_fizhi.F 177 DO_FIZHI 
         duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 178 DO_FIZHI 
         dvphy(i,j,L,bi,bj)= -kV*vphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 183 DO_FIZHI 
         termP=0.5 _d 0*( pephy(i,j,L,bi,bj) + pephy(i,j,L+1,bi,bj) )
./verification/fizhi-gridalt-hs/code/do_fizhi.F 194 DO_FIZHI 
          dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq )
./verification/fizhi-gridalt-hs/code/do_fizhi.F 196 DO_FIZHI 
          dthphy(i,j,L,bi,bj)=0.
./verification/fizhi-gridalt-hs/code/do_fizhi.F 201 DO_FIZHI 
         dsphy(i,j,L,bi,bj)=0.
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 118 FIZHI_INIT_FIXED 
        do i=im1,im2
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 119 FIZHI_INIT_FIXED 
         phis_var(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 40 FIZHI_INIT_FIXED 
       integer i,j,L,bi,bj
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 69 FIZHI_INIT_FIXED 
       do i = im1,im2
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 70 FIZHI_INIT_FIXED 
        lons(i,j,bi,bj) = xC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 71 FIZHI_INIT_FIXED 
        lats(i,j,bi,bj) = yC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 87 FIZHI_INIT_FIXED 
        do i=im1,im2
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 88 FIZHI_INIT_FIXED 
         landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 89 FIZHI_INIT_FIXED 
         if(fracland(i,j,bi,bj).ge.0.3.and.surftype(i,j,1,bi,bj).ge.100)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 90 FIZHI_INIT_FIXED 
     .            landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 91 FIZHI_INIT_FIXED 
         if(sice(i,j,bi,bj).ne.0.0)landtype(i,j,bi,bj) = 101
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 102 FIZHI_INIT_VARS 
         if(pedyn(i,j,Nr+1,bi,bj).lt.1.e-5)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 103 FIZHI_INIT_VARS 
     .                               pedyn(i,j,Nr+1,bi,bj) = 1.e-5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 108 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 109 FIZHI_INIT_VARS 
         pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 111 FIZHI_INIT_VARS 
          pephy(i,j,L,bi,bj)=pephy(i,j,L-1,bi,bj)-dpphys0(i,j,L-1,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 114 FIZHI_INIT_VARS 
         if(pephy(i,j,Nrphys+1,bi,bj).lt.1.e-5)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 115 FIZHI_INIT_VARS 
     .                               pephy(i,j,Nrphys+1,bi,bj) = 1.e-5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 124 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 125 FIZHI_INIT_VARS 
         windphy(i,j,L,bi,bj) = 0.025 *
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 126 FIZHI_INIT_VARS 
     .             log((pephy(i,j,1,bi,bj)-pephy(i,j,L+1,bi,bj))*10.)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 148 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 149 FIZHI_INIT_VARS 
         uphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 157 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 158 FIZHI_INIT_VARS 
         vphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 166 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 167 FIZHI_INIT_VARS 
         thphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 176 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 177 FIZHI_INIT_VARS 
         sphy(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 185 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 186 FIZHI_INIT_VARS 
         duphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 187 FIZHI_INIT_VARS 
         dvphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 188 FIZHI_INIT_VARS 
         dthphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 189 FIZHI_INIT_VARS 
         dsphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 197 FIZHI_INIT_VARS 
        do i = im1,im2
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 198 FIZHI_INIT_VARS 
         guphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 199 FIZHI_INIT_VARS 
         gvphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 200 FIZHI_INIT_VARS 
         gthphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 201 FIZHI_INIT_VARS 
         gsphy(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 209 FIZHI_INIT_VARS 
         do i = 1,nchp
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 210 FIZHI_INIT_VARS 
          ctmt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 211 FIZHI_INIT_VARS 
          xxmt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 212 FIZHI_INIT_VARS 
          yymt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 213 FIZHI_INIT_VARS 
          zetamt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 216 FIZHI_INIT_VARS 
         do i = 1,nchp
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 217 FIZHI_INIT_VARS 
          tke(i,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 218 FIZHI_INIT_VARS 
          xlmt(i,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 219 FIZHI_INIT_VARS 
          khmt(i,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 231 FIZHI_INIT_VARS 
        do i = 1,nchp
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 232 FIZHI_INIT_VARS 
        tcanopy(i,bi,bj) = 283.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 233 FIZHI_INIT_VARS 
        tdeep(i,bi,bj) = 282.5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 234 FIZHI_INIT_VARS 
        ecanopy(i,bi,bj) = 2.e-2
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 235 FIZHI_INIT_VARS 
        swetshal(i,bi,bj) = 0.6
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 236 FIZHI_INIT_VARS 
        swetroot(i,bi,bj) = 0.5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 237 FIZHI_INIT_VARS 
        swetdeep(i,bi,bj) = 0.5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 238 FIZHI_INIT_VARS 
        capac(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 239 FIZHI_INIT_VARS 
        snodep(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 253 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 254 FIZHI_INIT_VARS 
         swlz(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 255 FIZHI_INIT_VARS 
         lwlz(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 256 FIZHI_INIT_VARS 
         qliqavesw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 257 FIZHI_INIT_VARS 
         qliqavelw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 258 FIZHI_INIT_VARS 
         fccavesw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 259 FIZHI_INIT_VARS 
         fccavelw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 260 FIZHI_INIT_VARS 
         cldtot_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 261 FIZHI_INIT_VARS 
         cldras_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 262 FIZHI_INIT_VARS 
         cldlsp_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 263 FIZHI_INIT_VARS 
         cldtot_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 264 FIZHI_INIT_VARS 
         cldras_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 265 FIZHI_INIT_VARS 
         cldlsp_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 270 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 271 FIZHI_INIT_VARS 
         rainlsp(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 272 FIZHI_INIT_VARS 
         raincon(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 273 FIZHI_INIT_VARS 
         snowfall(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 48 FIZHI_INIT_VARS 
       integer i, j, L, bi, bj, Lbotij
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 81 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 83 FIZHI_INIT_VARS 
          pedyn(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 88 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 89 FIZHI_INIT_VARS 
         Lbotij = ksurfC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 91 FIZHI_INIT_VARS 
     .    pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 95 FIZHI_INIT_VARS 
        do i = 1,sNx
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 96 FIZHI_INIT_VARS 
         Lbotij = ksurfC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 98 FIZHI_INIT_VARS 
          pedyn(i,j,L,bi,bj) = pedyn(i,j,L-1,bi,bj) -
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 99 FIZHI_INIT_VARS 
     .                        drF(L-1)*hfacC(i,j,L-1,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 120 FIZHI_INIT_VEG 
              do i=1,im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 121 FIZHI_INIT_VEG 
                if(surftype(i,j,k,bi,bj).lt.100 .and.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 122 FIZHI_INIT_VEG 
     .               tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 124 FIZHI_INIT_VEG 
                  igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 125 FIZHI_INIT_VEG 
                  ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 126 FIZHI_INIT_VEG 
                  chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 127 FIZHI_INIT_VEG 
                  chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 128 FIZHI_INIT_VEG 
                  chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 140 FIZHI_INIT_VEG 
              do i=1,im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 141 FIZHI_INIT_VEG 
                if(surftype(i,j,k,bi,bj).ge.100 .and.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 142 FIZHI_INIT_VEG 
     .               tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 144 FIZHI_INIT_VEG 
                  igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 145 FIZHI_INIT_VEG 
                  ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 146 FIZHI_INIT_VEG 
                  chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 147 FIZHI_INIT_VEG 
                  chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 148 FIZHI_INIT_VEG 
                  chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 66 FIZHI_INIT_VEG 
      integer i,j,k,bi,bj
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 77 FIZHI_INIT_VEG 
      do i = 1,im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 78 FIZHI_INIT_VEG 
       if(aim_landfr(i,j,bi,bj).gt.0.1) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 79 FIZHI_INIT_VEG 
        surftype(i,j,1,bi,bj) = 1
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 80 FIZHI_INIT_VEG 
        tilefrac(i,j,1,bi,bj) = 0.5
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 81 FIZHI_INIT_VEG 
        surftype(i,j,2,bi,bj) = 2
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 82 FIZHI_INIT_VEG 
        tilefrac(i,j,2,bi,bj) = 0.5
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 84 FIZHI_INIT_VEG 
        surftype(i,j,1,bi,bj) = 100
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 85 FIZHI_INIT_VEG 
        tilefrac(i,j,1,bi,bj) = 0.99
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 86 FIZHI_INIT_VEG 
        surftype(i,j,2,bi,bj) = 100
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 87 FIZHI_INIT_VEG 
        tilefrac(i,j,2,bi,bj) = 0.01
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 93 FIZHI_INIT_VEG 
      do i = 1,im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 94 FIZHI_INIT_VEG 
       surftype(i,j,k,bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 95 FIZHI_INIT_VEG 
       tilefrac(i,j,k,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 116 FIZHI_TENDENCY_APPLY_T 
      integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 119 FIZHI_TENDENCY_APPLY_T 
       do i=iMin,iMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 120 FIZHI_TENDENCY_APPLY_T 
        gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 121 FIZHI_TENDENCY_APPLY_T 
     .       *( gT(i,j,kLev,bi,bj) + gthphy(i,j,kLev,bi,bj) )
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 156 FIZHI_TENDENCY_APPLY_S 
      integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 159 FIZHI_TENDENCY_APPLY_S 
       do i=iMin,iMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 160 FIZHI_TENDENCY_APPLY_S 
        gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 161 FIZHI_TENDENCY_APPLY_S 
     .       *( gS(i,j,kLev,bi,bj) + gsphy(i,j,kLev,bi,bj) )
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 35 FIZHI_TENDENCY_APPLY_U 
      integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 38 FIZHI_TENDENCY_APPLY_U 
       do i=iMin,iMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 39 FIZHI_TENDENCY_APPLY_U 
        gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj) +
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 40 FIZHI_TENDENCY_APPLY_U 
     .      maskW(i,j,kLev,bi,bj) * guphy(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 76 FIZHI_TENDENCY_APPLY_V 
      integer i, j
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 79 FIZHI_TENDENCY_APPLY_V 
       do i=iMin,iMax
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 80 FIZHI_TENDENCY_APPLY_V 
        gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj) +
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 81 FIZHI_TENDENCY_APPLY_V 
     .      maskS(i,j,kLev,bi,bj) * gvphy(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 119 GETSICE 
      integer i,j
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 122 GETSICE 
      do i = im1,im2
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 123 GETSICE 
       sice(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 179 GETSST 
      integer i,j
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 182 GETSST 
      do i = im1,im2
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 183 GETSST 
       sst(i,j,bi,bj) = 280.
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 24 UPDATE_OCEAN_EXPORTS 
       integer i, j, bi, bj, biglobal, bjglobal
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 57 UPDATE_OCEAN_EXPORTS 
       do i=im1,im2
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 58 UPDATE_OCEAN_EXPORTS 
       if(sice(i,j,bi,bj).eq.0.0 .and. sst(i,j,bi,bj).lt.sstmin)
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 59 UPDATE_OCEAN_EXPORTS 
     .                                          sst(i,j,bi,bj) = sstmin
./model/src/ini_mixing.F 44 INI_MIXING 
      INTEGER i, j, k
./model/src/ini_mixing.F 51 INI_MIXING 
           DO i = 1-Olx, sNx+Olx
./model/src/ini_mixing.F 53 INI_MIXING 
            diffKr(i,j,k,bi,bj) = diffKrNrS(k)
./model/src/ini_mixing.F 56 INI_MIXING 
            KapGM(i,j,k,bi,bj) = GM_background_K
./model/src/ini_mixing.F 59 INI_MIXING 
            kapredi(i,j,k,bi,bj) = GM_isopycK
./model/src/ini_mixing.F 71 INI_MIXING 
          DO i = 1-Olx, sNx+Olx
./model/src/ini_mixing.F 72 INI_MIXING 
           BL79LatArray(i,j,bi,bj) = 0.0 _d 0
./model/src/ini_mixing.F 73 INI_MIXING 
           IF ( abs(YC(i,j,bi,bj)) .LT. BL79LatVary )
./model/src/ini_mixing.F 74 INI_MIXING 
     &          BL79LatArray(i,j,bi,bj) =
./model/src/ini_mixing.F 75 INI_MIXING 
     &          ( 1 + cos(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2
./verification/flt_example/extra/write_float.F 105 NO PROCEDURE 
           do i=20,50,2
./verification/flt_example/extra/write_float.F 106 NO PROCEDURE 
              if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F 110 NO PROCEDURE 
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 132 NO PROCEDURE 
           do i=20,50,2
./verification/flt_example/extra/write_float.F 133 NO PROCEDURE 
              if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F 137 NO PROCEDURE 
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 158 NO PROCEDURE 
           do i=20,50,2
./verification/flt_example/extra/write_float.F 159 NO PROCEDURE 
              if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F 163 NO PROCEDURE 
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 181 NO PROCEDURE 
           i=20
./verification/flt_example/extra/write_float.F 185 NO PROCEDURE 
                   xpart  = xc(i)
./verification/flt_example/extra/write_float.F 43 NO PROCEDURE 
        do i=2,Nx
./verification/flt_example/extra/write_float.F 44 NO PROCEDURE 
           xc(i)=xc(i-1)+degX
./verification/flt_example/extra/write_float.F 83 NO PROCEDURE 
           do i=20,50,2
./verification/flt_example/extra/write_float.F 84 NO PROCEDURE 
              if (depth(i,j) .le. -2530.) then
./verification/flt_example/extra/write_float.F 88 NO PROCEDURE 
                   xpart  = xc(i)
./model/src/ini_model_io.F 170 INI_MODEL_IO 
        DO i=1,xyBuffer_size
./model/src/ini_model_io.F 171 INI_MODEL_IO 
          xy_buffer_r8(i) = 0. _d 0
./model/src/ini_model_io.F 172 INI_MODEL_IO 
          xy_buffer_r4(i) = 0.
./model/src/ini_model_io.F 46 INI_MODEL_IO 
      INTEGER i, iL, pIL
./verification/global1x1_tot/code/ecco_cost_weights.F 1002 ECCO_COST_WEIGHTS 
              if (wp(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1003 ECCO_COST_WEIGHTS 
                wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1005 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1006 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1007 ECCO_COST_WEIGHTS 
     &               1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1009 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1011 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1012 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1013 ECCO_COST_WEIGHTS 
     &            1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1015 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1017 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1018 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1019 ECCO_COST_WEIGHTS 
     &            1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1021 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1023 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1024 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1025 ECCO_COST_WEIGHTS 
     &               1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1027 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1029 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1030 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1031 ECCO_COST_WEIGHTS 
     &           1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1033 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1035 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1036 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1037 ECCO_COST_WEIGHTS 
     &           1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1039 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1041 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1042 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1043 ECCO_COST_WEIGHTS 
     &                1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1045 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1047 ECCO_COST_WEIGHTS 
              if (whfluxm(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1048 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1049 ECCO_COST_WEIGHTS 
     &                1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1051 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1053 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1054 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1055 ECCO_COST_WEIGHTS 
     &                1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1057 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1059 ECCO_COST_WEIGHTS 
              if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1060 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1061 ECCO_COST_WEIGHTS 
     &                1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1063 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1066 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1067 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1068 ECCO_COST_WEIGHTS 
     &                1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1070 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1072 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1073 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1074 ECCO_COST_WEIGHTS 
     &                1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1076 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1078 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1079 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1080 ECCO_COST_WEIGHTS 
     &                1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1082 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1084 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1085 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1086 ECCO_COST_WEIGHTS 
     &                1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1088 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1096 ECCO_COST_WEIGHTS 
              if (whflux2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1097 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1098 ECCO_COST_WEIGHTS 
     &                1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 109 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 1100 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1102 ECCO_COST_WEIGHTS 
              if (wsflux2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1103 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1104 ECCO_COST_WEIGHTS 
     &                1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1106 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1108 ECCO_COST_WEIGHTS 
              if (wtauu2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1109 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 110 ECCO_COST_WEIGHTS 
              whflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1110 ECCO_COST_WEIGHTS 
     &                1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1112 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1114 ECCO_COST_WEIGHTS 
              if (wtauv2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 1115 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) =
./verification/global1x1_tot/code/ecco_cost_weights.F 1116 ECCO_COST_WEIGHTS 
     &                1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 1118 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 111 ECCO_COST_WEIGHTS 
              whfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 112 ECCO_COST_WEIGHTS 
              wsflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 113 ECCO_COST_WEIGHTS 
              wsfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 114 ECCO_COST_WEIGHTS 
              wtauu   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 115 ECCO_COST_WEIGHTS 
              wtauum  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 116 ECCO_COST_WEIGHTS 
              wtauv   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 117 ECCO_COST_WEIGHTS 
              wtauvm  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS 
              watemp  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 119 ECCO_COST_WEIGHTS 
              waqh    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS 
              wuwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS 
              wvwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 122 ECCO_COST_WEIGHTS 
              wsst    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 123 ECCO_COST_WEIGHTS 
              wsss    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 124 ECCO_COST_WEIGHTS 
              wtp     (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 125 ECCO_COST_WEIGHTS 
              wers    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 126 ECCO_COST_WEIGHTS 
              wgfo    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 127 ECCO_COST_WEIGHTS 
              wp      (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 128 ECCO_COST_WEIGHTS 
              wudrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 129 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS 
              whflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 132 ECCO_COST_WEIGHTS 
              wsflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 133 ECCO_COST_WEIGHTS 
              wtauu2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 134 ECCO_COST_WEIGHTS 
              wtauv2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
              do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 149 ECCO_COST_WEIGHTS 
                wtheta2 (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 150 ECCO_COST_WEIGHTS 
                wsalt2  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 151 ECCO_COST_WEIGHTS 
                wthetaLev (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 152 ECCO_COST_WEIGHTS 
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 188 ECCO_COST_WEIGHTS 
        do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 191 ECCO_COST_WEIGHTS 
     &         (i .lt. 1) .or. (i .gt. snx)      ) then
./verification/global1x1_tot/code/ecco_cost_weights.F 192 ECCO_COST_WEIGHTS 
            frame(i,j) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 194 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 209 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 212 ECCO_COST_WEIGHTS 
              cosphi(i,j,bi,bj) = frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 322 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 324 ECCO_COST_WEIGHTS 
              if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then
./verification/global1x1_tot/code/ecco_cost_weights.F 325 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 327 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj)=frame(i,j)/
./verification/global1x1_tot/code/ecco_cost_weights.F 328 ECCO_COST_WEIGHTS 
     $              ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) )
./verification/global1x1_tot/code/ecco_cost_weights.F 340 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 341 ECCO_COST_WEIGHTS 
                wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 342 ECCO_COST_WEIGHTS 
     $               *wsalt(k,bi,bj)) *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 361 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 363 ECCO_COST_WEIGHTS 
              if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then
./verification/global1x1_tot/code/ecco_cost_weights.F 364 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 366 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj)=frame(i,j)/
./verification/global1x1_tot/code/ecco_cost_weights.F 367 ECCO_COST_WEIGHTS 
     $              ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) )
./verification/global1x1_tot/code/ecco_cost_weights.F 379 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 380 ECCO_COST_WEIGHTS 
                wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 381 ECCO_COST_WEIGHTS 
     $               *wtheta(k,bi,bj)) *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 404 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 407 ECCO_COST_WEIGHTS 
     $            wsalt2(i,j,k,bi,bj).eq.0) then
./verification/global1x1_tot/code/ecco_cost_weights.F 408 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 411 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj)=frame(i,j)/(
./verification/global1x1_tot/code/ecco_cost_weights.F 412 ECCO_COST_WEIGHTS 
     $                wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) )
./verification/global1x1_tot/code/ecco_cost_weights.F 424 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 425 ECCO_COST_WEIGHTS 
                wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 426 ECCO_COST_WEIGHTS 
     $               *wsalt(k,bi,bj)) *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 447 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 450 ECCO_COST_WEIGHTS 
     $            wtheta2(i,j,k,bi,bj).eq.0) then
./verification/global1x1_tot/code/ecco_cost_weights.F 451 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 454 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj)=frame(i,j)/(
./verification/global1x1_tot/code/ecco_cost_weights.F 455 ECCO_COST_WEIGHTS 
     $                wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) )
./verification/global1x1_tot/code/ecco_cost_weights.F 467 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 469 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 471 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 472 ECCO_COST_WEIGHTS 
     $                *wtheta(k,bi,bj))*frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 486 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 487 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 488 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 489 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 494 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 495 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 50 ECCO_COST_WEIGHTS 
      integer i,j,k
./verification/global1x1_tot/code/ecco_cost_weights.F 511 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 512 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 514 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 115. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 515 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 516 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 517 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./verification/global1x1_tot/code/ecco_cost_weights.F 519 ECCO_COST_WEIGHTS 
		 wp(i,j,bi,bj) = 0.
./verification/global1x1_tot/code/ecco_cost_weights.F 523 ECCO_COST_WEIGHTS 
              if ( ( xC(i,j,bi,bj) .GT. 355. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 524 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT. 360. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 525 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 526 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. )
./verification/global1x1_tot/code/ecco_cost_weights.F 528 ECCO_COST_WEIGHTS 
     &             ( xC(i,j,bi,bj) .GT.   0. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 529 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT.  39. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 530 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 531 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. ) ) then
./verification/global1x1_tot/code/ecco_cost_weights.F 532 ECCO_COST_WEIGHTS 
                 wp(i,j,bi,bj) = wp(i,j,bi,bj)*10.
./verification/global1x1_tot/code/ecco_cost_weights.F 543 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 544 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 562 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 565 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 566 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 567 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 568 ECCO_COST_WEIGHTS 
                wgfo(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 570 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 )
./verification/global1x1_tot/code/ecco_cost_weights.F 571 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 572 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 )
./verification/global1x1_tot/code/ecco_cost_weights.F 573 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 574 ECCO_COST_WEIGHTS 
                wgfo(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 )
./verification/global1x1_tot/code/ecco_cost_weights.F 575 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 578 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 115. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 579 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 580 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 581 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./verification/global1x1_tot/code/ecco_cost_weights.F 582 ECCO_COST_WEIGHTS 
		 wtp(i,j,bi,bj)  = 0.
./verification/global1x1_tot/code/ecco_cost_weights.F 583 ECCO_COST_WEIGHTS 
		 wers(i,j,bi,bj) = 0.
./verification/global1x1_tot/code/ecco_cost_weights.F 584 ECCO_COST_WEIGHTS 
		 wgfo(i,j,bi,bj) = 0.
./verification/global1x1_tot/code/ecco_cost_weights.F 588 ECCO_COST_WEIGHTS 
	      if ( ( xC(i,j,bi,bj) .GT. 355. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 589 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT. 360. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 590 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 591 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. )
./verification/global1x1_tot/code/ecco_cost_weights.F 593 ECCO_COST_WEIGHTS 
     &             ( xC(i,j,bi,bj) .GT.   0. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 594 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT.  39. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 595 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 596 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. ) ) then
./verification/global1x1_tot/code/ecco_cost_weights.F 597 ECCO_COST_WEIGHTS 
                  wtp(i,j,bi,bj)  = wtp(i,j,bi,bj) *10.
./verification/global1x1_tot/code/ecco_cost_weights.F 598 ECCO_COST_WEIGHTS 
	          wers(i,j,bi,bj) = wers(i,j,bi,bj)*10.
./verification/global1x1_tot/code/ecco_cost_weights.F 599 ECCO_COST_WEIGHTS 
	          wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*10.
./verification/global1x1_tot/code/ecco_cost_weights.F 622 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 624 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 625 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 628 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 630 ECCO_COST_WEIGHTS 
              if ( wscatx(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 631 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code/ecco_cost_weights.F 632 ECCO_COST_WEIGHTS 
     &             wscatx(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code/ecco_cost_weights.F 634 ECCO_COST_WEIGHTS 
              if ( wscatx(i,j,bi,bj).GT.0.15 )
./verification/global1x1_tot/code/ecco_cost_weights.F 635 ECCO_COST_WEIGHTS 
     &             wscatx(i,j,bi,bj) = 0.15
./verification/global1x1_tot/code/ecco_cost_weights.F 637 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code/ecco_cost_weights.F 638 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 639 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 641 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 642 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 645 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 647 ECCO_COST_WEIGHTS 
              if ( wscaty(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 648 ECCO_COST_WEIGHTS 
     &             maskS(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code/ecco_cost_weights.F 649 ECCO_COST_WEIGHTS 
     &             wscaty(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code/ecco_cost_weights.F 651 ECCO_COST_WEIGHTS 
              if ( wscaty(i,j,bi,bj).GT.0.15 )
./verification/global1x1_tot/code/ecco_cost_weights.F 652 ECCO_COST_WEIGHTS 
     &             wscaty(i,j,bi,bj) = 0.15
./verification/global1x1_tot/code/ecco_cost_weights.F 654 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code/ecco_cost_weights.F 655 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 656 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 677 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 679 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 680 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 682 ECCO_COST_WEIGHTS 
              wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m)
./verification/global1x1_tot/code/ecco_cost_weights.F 683 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 685 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 686 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 688 ECCO_COST_WEIGHTS 
              wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m)
./verification/global1x1_tot/code/ecco_cost_weights.F 689 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 711 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 713 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 714 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 717 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*0.1
./verification/global1x1_tot/code/ecco_cost_weights.F 719 ECCO_COST_WEIGHTS 
              if ( wtauu(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 720 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code/ecco_cost_weights.F 721 ECCO_COST_WEIGHTS 
     &             wtauu(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code/ecco_cost_weights.F 723 ECCO_COST_WEIGHTS 
              if ( wtauu(i,j,bi,bj).GT.0.12 )
./verification/global1x1_tot/code/ecco_cost_weights.F 724 ECCO_COST_WEIGHTS 
     &             wtauu(i,j,bi,bj) = 0.12
./verification/global1x1_tot/code/ecco_cost_weights.F 726 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code/ecco_cost_weights.F 727 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 728 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 731 ECCO_COST_WEIGHTS 
	      wtauu2(i,j,bi,bj) = wtauu(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 754 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 756 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 757 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 759 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 760 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0)
./verification/global1x1_tot/code/ecco_cost_weights.F 761 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 762 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 785 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 787 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 788 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 791 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*0.1
./verification/global1x1_tot/code/ecco_cost_weights.F 793 ECCO_COST_WEIGHTS 
              if ( wtauv(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code/ecco_cost_weights.F 794 ECCO_COST_WEIGHTS 
     &             maskS(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code/ecco_cost_weights.F 795 ECCO_COST_WEIGHTS 
     &             wtauv(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code/ecco_cost_weights.F 797 ECCO_COST_WEIGHTS 
              if ( wtauv(i,j,bi,bj).GT.0.12 )
./verification/global1x1_tot/code/ecco_cost_weights.F 798 ECCO_COST_WEIGHTS 
     &             wtauv(i,j,bi,bj) = 0.12
./verification/global1x1_tot/code/ecco_cost_weights.F 800 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code/ecco_cost_weights.F 801 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 802 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 805 ECCO_COST_WEIGHTS 
	      wtauv2(i,j,bi,bj) = wtauv(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 828 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 830 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 831 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 833 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 834 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0)
./verification/global1x1_tot/code/ecco_cost_weights.F 835 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 836 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 860 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 862 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 863 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 866 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3.
./verification/global1x1_tot/code/ecco_cost_weights.F 867 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0)
./verification/global1x1_tot/code/ecco_cost_weights.F 868 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 869 ECCO_COST_WEIGHTS 
              whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m)
./verification/global1x1_tot/code/ecco_cost_weights.F 870 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 873 ECCO_COST_WEIGHTS 
	      whflux2(i,j,bi,bj) = whflux(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 896 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 898 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 899 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 902 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = watemp(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 903 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0)
./verification/global1x1_tot/code/ecco_cost_weights.F 904 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 928 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 930 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 931 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 934 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3.
./verification/global1x1_tot/code/ecco_cost_weights.F 935 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0)
./verification/global1x1_tot/code/ecco_cost_weights.F 936 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 937 ECCO_COST_WEIGHTS 
              wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./verification/global1x1_tot/code/ecco_cost_weights.F 938 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 941 ECCO_COST_WEIGHTS 
	      wsflux2(i,j,bi,bj) = wsflux(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 964 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 966 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 967 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 970 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = waqh(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 971 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0)
./verification/global1x1_tot/code/ecco_cost_weights.F 972 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code/ecco_cost_weights.F 983 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code/ecco_cost_weights.F 984 ECCO_COST_WEIGHTS 
              if (wtp(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 985 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 987 ECCO_COST_WEIGHTS 
              if (wers(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 988 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 990 ECCO_COST_WEIGHTS 
              if (wgfo(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 991 ECCO_COST_WEIGHTS 
                wgfo(i,j,bi,bj) = 1./wgfo(i,j,bi,bj)/wgfo(i,j,bi,bj)
./verification/global1x1_tot/code/ecco_cost_weights.F 995 ECCO_COST_WEIGHTS 
              if (wsst(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 996 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = 1./wsst(i,j,bi,bj)/wsst(i,j,bi,bj)/2.
./verification/global1x1_tot/code/ecco_cost_weights.F 998 ECCO_COST_WEIGHTS 
	      if (wsss(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code/ecco_cost_weights.F 999 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = 1./wsss(i,j,bi,bj)/wsss(i,j,bi,bj)/2.
./model/src/ini_nh_fields.F 102 INI_NH_FIELDS 
             DO i=1-OLx,sNx+OLx
./model/src/ini_nh_fields.F 103 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/ini_nh_fields.F 104 INI_NH_FIELDS 
     &          + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_nh_fields.F 109 INI_NH_FIELDS 
            DO i=1-OLx,sNx+OLx
./model/src/ini_nh_fields.F 110 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/ini_nh_fields.F 111 INI_NH_FIELDS 
     &                           *recip_Rcol(i,j,bi,bj)
./model/src/ini_nh_fields.F 128 INI_NH_FIELDS 
          DO i=1-Olx,sNx+Olx
./model/src/ini_nh_fields.F 129 INI_NH_FIELDS 
           viscAh_W(i,j,k,bi,bj) = viscAhW
./model/src/ini_nh_fields.F 130 INI_NH_FIELDS 
           viscA4_W(i,j,k,bi,bj) = viscA4W
./model/src/ini_nh_fields.F 44 INI_NH_FIELDS 
      INTEGER i,j,k
./model/src/ini_nh_fields.F 75 INI_NH_FIELDS 
            DO i=1-OLx,sNx+OLx
./model/src/ini_nh_fields.F 76 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj)
./model/src/ini_nh_fields.F 83 INI_NH_FIELDS 
            DO i=1-OLx,sNx+OLx
./model/src/ini_nh_fields.F 84 INI_NH_FIELDS 
             ks = ksurfC(i,j,bi,bj)
./model/src/ini_nh_fields.F 86 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj)
./model/src/ini_nh_fields.F 88 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = 0.
./model/src/ini_nh_fields.F 96 INI_NH_FIELDS 
            DO i=1-OLx,sNx+OLx
./model/src/ini_nh_fields.F 97 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = 0.
./model/src/ini_nh_vars.F 39 INI_NH_VARS 
      INTEGER i, j, k
./model/src/ini_nh_vars.F 47 INI_NH_VARS 
            DO i=1-Olx,sNx+Olx
./model/src/ini_nh_vars.F 48 INI_NH_VARS 
              dPhiNH(i,j,bi,bj)    = 0. _d 0
./model/src/ini_nh_vars.F 53 INI_NH_VARS 
            DO i=1-Olx,sNx+Olx
./model/src/ini_nh_vars.F 54 INI_NH_VARS 
              phi_nh(i,j,k,bi,bj)  = 0. _d 0
./model/src/ini_nh_vars.F 55 INI_NH_VARS 
              gW   (i,j,k,bi,bj)   = 0. _d 0
./model/src/ini_nh_vars.F 57 INI_NH_VARS 
              gWnm (i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_nh_vars.F 58 INI_NH_VARS 
              gWnm (i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_nh_vars.F 60 INI_NH_VARS 
              gWnm1(i,j,k,bi,bj)   = 0. _d 0
./model/src/ini_nh_vars.F 62 INI_NH_VARS 
              viscAh_W(i,j,k,bi,bj)= 0. _d 0
./model/src/ini_nh_vars.F 63 INI_NH_VARS 
              viscA4_W(i,j,k,bi,bj)= 0. _d 0
./model/src/ini_nlfs_vars.F 102 INI_NLFS_VARS 
          DO i=1,sNx
./model/src/ini_nlfs_vars.F 103 INI_NLFS_VARS 
           ks = ksurfC(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 106 INI_NLFS_VARS 
             IF ( ks.EQ.ksurfW(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 107 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj))
./model/src/ini_nlfs_vars.F 108 INI_NLFS_VARS 
             IF ( ks.EQ.ksurfW(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F 109 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F 110 INI_NLFS_VARS 
             IF ( ks.EQ.ksurfS(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 111 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj))
./model/src/ini_nlfs_vars.F 112 INI_NLFS_VARS 
             IF ( ks.EQ.ksurfS(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F 113 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F 115 INI_NLFS_VARS 
             Rmin_surf(i,j,bi,bj) =
./model/src/ini_nlfs_vars.F 116 INI_NLFS_VARS 
     &        MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks),
./model/src/ini_nlfs_vars.F 37 INI_NLFS_VARS 
      INTEGER i,j,k,bi,bj
./model/src/ini_nlfs_vars.F 57 INI_NLFS_VARS 
          DO i=1-Olx,sNx+Olx
./model/src/ini_nlfs_vars.F 58 INI_NLFS_VARS 
           hFac_surfC(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 59 INI_NLFS_VARS 
           hFac_surfW(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 60 INI_NLFS_VARS 
           hFac_surfS(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 61 INI_NLFS_VARS 
           PmEpR(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 62 INI_NLFS_VARS 
           Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 68 INI_NLFS_VARS 
          DO i=1-Olx,sNx+Olx
./model/src/ini_nlfs_vars.F 69 INI_NLFS_VARS 
            rStarFacC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 70 INI_NLFS_VARS 
            rStarFacW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 71 INI_NLFS_VARS 
            rStarFacS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 72 INI_NLFS_VARS 
            rStarExpC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 73 INI_NLFS_VARS 
            rStarExpW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 74 INI_NLFS_VARS 
            rStarExpS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 75 INI_NLFS_VARS 
            rStarDhCDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 76 INI_NLFS_VARS 
            rStarDhWDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 77 INI_NLFS_VARS 
            rStarDhSDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 78 INI_NLFS_VARS 
            PmEpR(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 83 INI_NLFS_VARS 
           DO i=1-Olx,sNx+Olx
./model/src/ini_nlfs_vars.F 84 INI_NLFS_VARS 
            h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 85 INI_NLFS_VARS 
            h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 86 INI_NLFS_VARS 
            h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/cfc_atmos.F 25 CFC_ATMOS 
      integer i,j,bi,bj
./verification/global1x1_tot/code_taueddy/cfc_atmos.F 40 CFC_ATMOS 
         DO i=1-OLx,sNx+OLx
./verification/global1x1_tot/code_taueddy/cfc_atmos.F 41 CFC_ATMOS 
           AtmosCFC11(i,j,bi,bj)=0.d0
./verification/global1x1_tot/code_taueddy/cfc_atmos.F 42 CFC_ATMOS 
           AtmosCFC12(i,j,bi,bj)=0.d0
./verification/global1x1_tot/code_taueddy/cfc_atmos.F 59 CFC_ATMOS 
      DO i =1,6
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1000 ECCO_COST_WEIGHTS 
     &               1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1002 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1004 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1005 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1006 ECCO_COST_WEIGHTS 
     &            1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1008 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1010 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1011 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1012 ECCO_COST_WEIGHTS 
     &            1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1014 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1016 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1017 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1018 ECCO_COST_WEIGHTS 
     &               1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1020 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1022 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1023 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1024 ECCO_COST_WEIGHTS 
     &           1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1026 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1028 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1029 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1030 ECCO_COST_WEIGHTS 
     &           1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1032 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1034 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1035 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1036 ECCO_COST_WEIGHTS 
     &                1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1038 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1040 ECCO_COST_WEIGHTS 
              if (whfluxm(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1041 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1042 ECCO_COST_WEIGHTS 
     &                1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1044 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1046 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1047 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1048 ECCO_COST_WEIGHTS 
     &                1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1050 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1052 ECCO_COST_WEIGHTS 
              if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1053 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1054 ECCO_COST_WEIGHTS 
     &                1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1056 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1059 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1060 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1061 ECCO_COST_WEIGHTS 
     &                1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1063 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1065 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1066 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1067 ECCO_COST_WEIGHTS 
     &                1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1069 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1071 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1072 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1073 ECCO_COST_WEIGHTS 
     &                1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1075 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1077 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1078 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1079 ECCO_COST_WEIGHTS 
     &                1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1081 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1089 ECCO_COST_WEIGHTS 
              if (whflux2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 108 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1090 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1091 ECCO_COST_WEIGHTS 
     &                1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1093 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1095 ECCO_COST_WEIGHTS 
              if (wsflux2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1096 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1097 ECCO_COST_WEIGHTS 
     &                1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1099 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 109 ECCO_COST_WEIGHTS 
              whflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1101 ECCO_COST_WEIGHTS 
              if (wtauu2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1102 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1103 ECCO_COST_WEIGHTS 
     &                1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1105 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1107 ECCO_COST_WEIGHTS 
              if (wtauv2(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1108 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) =
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1109 ECCO_COST_WEIGHTS 
     &                1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 110 ECCO_COST_WEIGHTS 
              whfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1111 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 111 ECCO_COST_WEIGHTS 
              wsflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 112 ECCO_COST_WEIGHTS 
              wsfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 113 ECCO_COST_WEIGHTS 
              wtauu   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 114 ECCO_COST_WEIGHTS 
              wtauum  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 115 ECCO_COST_WEIGHTS 
              wtauv   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 116 ECCO_COST_WEIGHTS 
              wtauvm  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 117 ECCO_COST_WEIGHTS 
              watemp  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS 
              waqh    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 119 ECCO_COST_WEIGHTS 
              wuwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS 
              wvwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS 
              wsst    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 122 ECCO_COST_WEIGHTS 
              wsss    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 123 ECCO_COST_WEIGHTS 
              wtp     (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 124 ECCO_COST_WEIGHTS 
              wers    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 125 ECCO_COST_WEIGHTS 
              wp      (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 126 ECCO_COST_WEIGHTS 
              wudrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 127 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 129 ECCO_COST_WEIGHTS 
              whflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 130 ECCO_COST_WEIGHTS 
              wsflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS 
              wtauu2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 132 ECCO_COST_WEIGHTS 
              wtauv2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 146 ECCO_COST_WEIGHTS 
              do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 147 ECCO_COST_WEIGHTS 
                wtheta2 (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
                wsalt2  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 149 ECCO_COST_WEIGHTS 
                wthetaLev (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 150 ECCO_COST_WEIGHTS 
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 186 ECCO_COST_WEIGHTS 
        do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 189 ECCO_COST_WEIGHTS 
     &         (i .lt. 1) .or. (i .gt. snx)      ) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 190 ECCO_COST_WEIGHTS 
            frame(i,j) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 192 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 207 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 210 ECCO_COST_WEIGHTS 
              cosphi(i,j,bi,bj) = frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 320 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 322 ECCO_COST_WEIGHTS 
              if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 323 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 325 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj)=frame(i,j)/
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 326 ECCO_COST_WEIGHTS 
     $              ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 338 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 339 ECCO_COST_WEIGHTS 
                wsaltLev(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 340 ECCO_COST_WEIGHTS 
     $               *wsalt(k,bi,bj)) *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 359 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 361 ECCO_COST_WEIGHTS 
              if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 362 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 364 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj)=frame(i,j)/
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 365 ECCO_COST_WEIGHTS 
     $              ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 377 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 378 ECCO_COST_WEIGHTS 
                wthetaLev(i,j,k,bi,bj)=ratio/(wtheta(k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 379 ECCO_COST_WEIGHTS 
     $               *wtheta(k,bi,bj)) *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 402 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 405 ECCO_COST_WEIGHTS 
     $            wsalt2(i,j,k,bi,bj).eq.0) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 406 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 409 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj)=frame(i,j)/(
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 410 ECCO_COST_WEIGHTS 
     $                wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 422 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 423 ECCO_COST_WEIGHTS 
                wsalt2(i,j,k,bi,bj)=ratio/(wsalt(k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 424 ECCO_COST_WEIGHTS 
     $               *wsalt(k,bi,bj)) *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 445 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 448 ECCO_COST_WEIGHTS 
     $            wtheta2(i,j,k,bi,bj).eq.0) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 449 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 452 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj)=frame(i,j)/(
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 453 ECCO_COST_WEIGHTS 
     $                wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 465 ECCO_COST_WEIGHTS 
             do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 467 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 469 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = ratio/(wtheta(k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 470 ECCO_COST_WEIGHTS 
     $                *wtheta(k,bi,bj))*frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 484 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 485 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 486 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 487 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 492 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = wtheta(k,bi,bj)*frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 493 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = wsalt(k,bi,bj)*frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 49 ECCO_COST_WEIGHTS 
      integer i,j,k
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 509 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 510 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 512 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 115. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 513 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 514 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 515 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 517 ECCO_COST_WEIGHTS 
		 wp(i,j,bi,bj) = 0.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 521 ECCO_COST_WEIGHTS 
              if ( ( xC(i,j,bi,bj) .GT. 355. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 522 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT. 360. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 523 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 524 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 526 ECCO_COST_WEIGHTS 
     &             ( xC(i,j,bi,bj) .GT.   0. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 527 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT.  39. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 528 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 529 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. ) ) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 530 ECCO_COST_WEIGHTS 
                 wp(i,j,bi,bj) = wp(i,j,bi,bj)*10.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 541 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 542 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 560 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 563 ECCO_COST_WEIGHTS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 564 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 565 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 567 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 568 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 569 ECCO_COST_WEIGHTS 
                if ( wtp(i,j,bi,bj) .ne. 0. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 570 ECCO_COST_WEIGHTS 
     &             wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 571 ECCO_COST_WEIGHTS 
     &                               *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 574 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 115. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 575 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 576 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 577 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 580 ECCO_COST_WEIGHTS 
		 wtp(i,j,bi,bj)  = 0.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 581 ECCO_COST_WEIGHTS 
		 wers(i,j,bi,bj) = 0.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 585 ECCO_COST_WEIGHTS 
	      if ( ( xC(i,j,bi,bj) .GT. 355. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 586 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT. 360. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 587 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 588 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 590 ECCO_COST_WEIGHTS 
     &             ( xC(i,j,bi,bj) .GT.   0. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 591 ECCO_COST_WEIGHTS 
     &               xC(i,j,bi,bj) .LT.  39. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 592 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .GT.  30. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 593 ECCO_COST_WEIGHTS 
     &               yC(i,j,bi,bj) .LT.  48. ) ) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 594 ECCO_COST_WEIGHTS 
                  wtp(i,j,bi,bj)  = wtp(i,j,bi,bj) *10.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 595 ECCO_COST_WEIGHTS 
	          wers(i,j,bi,bj) = wers(i,j,bi,bj)*10.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 618 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 620 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 621 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 624 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 626 ECCO_COST_WEIGHTS 
              if ( wscatx(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 627 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 628 ECCO_COST_WEIGHTS 
     &             wscatx(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 630 ECCO_COST_WEIGHTS 
              if ( wscatx(i,j,bi,bj).GT.0.15 )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 631 ECCO_COST_WEIGHTS 
     &             wscatx(i,j,bi,bj) = 0.15
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 633 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 634 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 635 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 637 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 638 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 641 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 643 ECCO_COST_WEIGHTS 
              if ( wscaty(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 644 ECCO_COST_WEIGHTS 
     &             maskS(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 645 ECCO_COST_WEIGHTS 
     &             wscaty(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 647 ECCO_COST_WEIGHTS 
              if ( wscaty(i,j,bi,bj).GT.0.15 )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 648 ECCO_COST_WEIGHTS 
     &             wscaty(i,j,bi,bj) = 0.15
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 650 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 651 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*maskS(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 652 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 673 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 675 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 676 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 678 ECCO_COST_WEIGHTS 
              wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 679 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 681 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 682 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 684 ECCO_COST_WEIGHTS 
              wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 685 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 707 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 709 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 710 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 713 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*0.1
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 715 ECCO_COST_WEIGHTS 
              if ( wtauu(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 716 ECCO_COST_WEIGHTS 
     &             maskW(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 717 ECCO_COST_WEIGHTS 
     &             wtauu(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 719 ECCO_COST_WEIGHTS 
              if ( wtauu(i,j,bi,bj).GT.0.12 )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 720 ECCO_COST_WEIGHTS 
     &             wtauu(i,j,bi,bj) = 0.12
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 722 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 723 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskW(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 724 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 727 ECCO_COST_WEIGHTS 
	      wtauu2(i,j,bi,bj) = wtauu(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 750 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 752 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 753 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 755 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 756 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 757 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 758 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 781 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 783 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 784 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 787 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*0.1
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 789 ECCO_COST_WEIGHTS 
              if ( wtauv(i,j,bi,bj).EQ.0. .AND.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 790 ECCO_COST_WEIGHTS 
     &             maskS(i,j,k,bi,bj).NE.0. )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 791 ECCO_COST_WEIGHTS 
     &             wtauv(i,j,bi,bj) = 4.*wtau0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 793 ECCO_COST_WEIGHTS 
              if ( wtauv(i,j,bi,bj).GT.0.12 )
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 794 ECCO_COST_WEIGHTS 
     &             wtauv(i,j,bi,bj) = 0.12
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 796 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 797 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskS(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 798 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 801 ECCO_COST_WEIGHTS 
	      wtauv2(i,j,bi,bj) = wtauv(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 824 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 826 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 827 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 829 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 830 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 831 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 832 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 856 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 858 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 859 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 862 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 863 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 864 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 865 ECCO_COST_WEIGHTS 
              whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 866 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 869 ECCO_COST_WEIGHTS 
	      whflux2(i,j,bi,bj) = whflux(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 892 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 894 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 895 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 898 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = watemp(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 899 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 900 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 924 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 926 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 927 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 930 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 931 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 932 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 933 ECCO_COST_WEIGHTS 
              wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 934 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 937 ECCO_COST_WEIGHTS 
	      wsflux2(i,j,bi,bj) = wsflux(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 960 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 962 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .lt. -9900.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 963 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 966 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = waqh(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 967 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 968 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 979 ECCO_COST_WEIGHTS 
            do i = imin,imax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 980 ECCO_COST_WEIGHTS 
              if (wtp(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 981 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 983 ECCO_COST_WEIGHTS 
              if (wers(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 984 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 988 ECCO_COST_WEIGHTS 
              if (wsst(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 989 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = 1./wsst(i,j,bi,bj)/wsst(i,j,bi,bj)/2.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 991 ECCO_COST_WEIGHTS 
	      if (wsss(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 992 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = 1./wsss(i,j,bi,bj)/wsss(i,j,bi,bj)/2.
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 995 ECCO_COST_WEIGHTS 
              if (wp(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 996 ECCO_COST_WEIGHTS 
                wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj)
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 998 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .ne. 0.) then
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 999 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) =
./model/src/ini_p_ground.F 106 INI_P_GROUND 
         DO i=1,sNx
./model/src/ini_p_ground.F 109 INI_P_GROUND 
             IF (Hfld(i,j,bi,bj).GE.hRef(K)) Ks = K
./model/src/ini_p_ground.F 112 INI_P_GROUND 
     &       (Hfld(i,j,bi,bj)-hRef(Ks))/(hRef(Ks+1)-hRef(Ks))
./model/src/ini_p_ground.F 116 INI_P_GROUND 
           Pfld(i,j,bi,bj) = Po_surf
./model/src/ini_p_ground.F 178 INI_P_GROUND 
         DO i=1,sNx
./model/src/ini_p_ground.F 179 INI_P_GROUND 
          IF ( Hfld(i,j,bi,bj) .LE. 0. _d 0) THEN
./model/src/ini_p_ground.F 180 INI_P_GROUND 
           Pfld(i,j,bi,bj) = Ro_SeaLevel
./model/src/ini_p_ground.F 182 INI_P_GROUND 
           yLatLoc  = yC(i,j,bi,bj)
./model/src/ini_p_ground.F 190 INI_P_GROUND 
             IF ( Hfld(i,j,bi,bj) .LE. zLoc+dzLoc ) THEN
./model/src/ini_p_ground.F 193 INI_P_GROUND 
     &               - gravity*(Hfld(i,j,bi,bj)-zLoc)/thetaHvR(k)
./model/src/ini_p_ground.F 207 INI_P_GROUND 
     &        ' selectMode,i,j,bi,bj=',selectMode,i,j,bi,bj
./model/src/ini_p_ground.F 210 INI_P_GROUND 
     &        'INI_P_GROUND: Hfld=', Hfld(i,j,bi,bj), ' exceeds',
./model/src/ini_p_ground.F 215 INI_P_GROUND 
             Pfld(i,j,bi,bj) = psNorm*atm_Po
./model/src/ini_p_ground.F 227 INI_P_GROUND 
           DO i=1,sNx
./model/src/ini_p_ground.F 228 INI_P_GROUND 
             Po_surf = Pfld(i,j,bi,bj)
./model/src/ini_p_ground.F 246 INI_P_GROUND 
             Pfld(i,j,bi,bj) = Po_surf
./model/src/ini_p_ground.F 270 INI_P_GROUND 
         DO i=1,sNx
./model/src/ini_p_ground.F 272 INI_P_GROUND 
          ks = ksurfC(i,j,bi,bj)
./model/src/ini_p_ground.F 274 INI_P_GROUND 
           IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN
./model/src/ini_p_ground.F 277 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks))
./model/src/ini_p_ground.F 281 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks))
./model/src/ini_p_ground.F 283 INI_P_GROUND 
           Hfld(i,j,bi,bj) = phiLoc
./model/src/ini_p_ground.F 285 INI_P_GROUND 
           Hfld(i,j,bi,bj) = 0.
./model/src/ini_p_ground.F 299 INI_P_GROUND 
          DO i=1,sNx
./model/src/ini_p_ground.F 301 INI_P_GROUND 
           IF ( Pfld(i,j,bi,bj) .LT. Ro_SeaLevel) THEN
./model/src/ini_p_ground.F 302 INI_P_GROUND 
            Po_surf = Pfld(i,j,bi,bj)
./model/src/ini_p_ground.F 324 INI_P_GROUND 
            yLatLoc  = yC(i,j,bi,bj)
./model/src/ini_p_ground.F 337 INI_P_GROUND 
           phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj))
./model/src/ini_p_ground.F 339 INI_P_GROUND 
           Hfld(i,j,bi,bj) = zLoc
./model/src/ini_p_ground.F 62 INI_P_GROUND 
      INTEGER bi,bj,i,j,K, Ks
./model/src/ini_parms.F 1106 INI_PARMS 
       DO i=1,Nx
./model/src/ini_parms.F 1107 INI_PARMS 
        delX(i) = dxSpacing
./model/src/ini_parms.F 62 INI_PARMS 
      INTEGER k, i, j, IL, iUnit
./model/src/ini_pressure.F 101 INI_PRESSURE 
           DO i=1-OLx,sNx+OLx
./model/src/ini_pressure.F 102 INI_PRESSURE 
             phiHydF(i,j) = 0. _d 0
./model/src/ini_pressure.F 108 INI_PRESSURE 
            DO i=iMin,iMax
./model/src/ini_pressure.F 109 INI_PRESSURE 
             oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj)
./model/src/ini_pressure.F 120 INI_PRESSURE 
            DO i=1,sNx
./model/src/ini_pressure.F 122 INI_PRESSURE 
     &            + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2
./model/src/ini_pressure.F 123 INI_PRESSURE 
     &             * maskC(i,j,k,bi,bj)
./model/src/ini_pressure.F 124 INI_PRESSURE 
             sumTile = sumTile + maskC(i,j,k,bi,bj)
./model/src/ini_pressure.F 44 INI_PRESSURE 
      INTEGER  i,  j, k
./model/src/ini_pressure.F 72 INI_PRESSURE 
          DO i=1-OLx,sNx+OLx
./model/src/ini_pressure.F 73 INI_PRESSURE 
           totPhiHyd(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_psurf.F 87 INI_PSURF 
         DO i=1-Olx,sNx+Olx
./model/src/ini_psurf.F 88 INI_PSURF 
          etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/ini_psurf.F 89 INI_PSURF 
          etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/ini_psurf.F 90 INI_PSURF 
          dEtaHdt(i,j,bi,bj) = 0. _d 0
./verification/global_ocean.cs32x15/code_ad/cost_test.F 36 COST_TEST 
      integer i, j, k
./verification/global_ocean.cs32x15/code_ad/cost_test.F 70 COST_TEST 
            do i=1,sNx
./verification/global_ocean.cs32x15/code_ad/cost_test.F 71 COST_TEST 
            ig = myXGlobalLo-1+(bi-1)*sNx+i
./verification/global_ocean.cs32x15/code_ad/cost_test.F 76 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/global_ocean.cs32x15/code_ad/cost_test.F 77 COST_TEST 
               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./verification/global_ocean.cs32x15/code_ad/cost_test.F 80 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./verification/global_ocean.cs32x15/code_ad/cost_test.F 85 COST_TEST 
         if (maskC(i,j,k,bi,bj).NE.0.) then
./verification/global_ocean.cs32x15/code_ad/cost_test.F 87 COST_TEST 
     &        (theta(i,j,k,bi,bj)-thetaLev(i,j,k,bi,bj))**2
./model/src/ini_salt.F 100 INI_SALT 
            IF ( maskC(i,j,k,bi,bj).NE.0.
./model/src/ini_salt.F 101 INI_SALT 
     &      .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/ini_salt.F 50 INI_SALT 
      INTEGER i, j, k, localWarnings
./model/src/ini_salt.F 59 INI_SALT 
          DO i=1-Olx,sNx+Olx
./model/src/ini_salt.F 60 INI_SALT 
           salt(i,j,k,bi,bj) = sRef(k)
./model/src/ini_salt.F 92 INI_SALT 
           DO i=1-Olx,sNx+Olx
./model/src/ini_salt.F 93 INI_SALT 
            IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0.
./model/src/ini_salt.F 99 INI_SALT 
           DO i=1,sNx
./model/src/ini_spherical_polar_grid.F 111 INI_SPHERICAL_POLAR_GRID 
        DO i=1, iG-1
./model/src/ini_spherical_polar_grid.F 112 INI_SPHERICAL_POLAR_GRID 
         xG0 = xG0 + delX(i)
./model/src/ini_spherical_polar_grid.F 115 INI_SPHERICAL_POLAR_GRID 
        DO i=1, Olx
./model/src/ini_spherical_polar_grid.F 116 INI_SPHERICAL_POLAR_GRID 
         xG0 = xG0 - delX( 1+MOD(Olx*Nx-1+iG-i,Nx) )
./model/src/ini_spherical_polar_grid.F 131 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 133 INI_SPHERICAL_POLAR_GRID 
          xGloc(i+1,j) = xGloc(i,j) + delX( iGl(i,bi) )
./model/src/ini_spherical_polar_grid.F 136 INI_SPHERICAL_POLAR_GRID 
        DO i=1-Olx,sNx+Olx +1
./model/src/ini_spherical_polar_grid.F 137 INI_SPHERICAL_POLAR_GRID 
         yGloc(i,1-Oly) = yG0
./model/src/ini_spherical_polar_grid.F 140 INI_SPHERICAL_POLAR_GRID 
          yGloc(i,j+1) = yGloc(i,j) + delY( jGl(j,bj) )
./model/src/ini_spherical_polar_grid.F 146 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 147 INI_SPHERICAL_POLAR_GRID 
          xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_spherical_polar_grid.F 148 INI_SPHERICAL_POLAR_GRID 
          yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_spherical_polar_grid.F 154 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 156 INI_SPHERICAL_POLAR_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_spherical_polar_grid.F 157 INI_SPHERICAL_POLAR_GRID 
     &     xGloc(i,j)+xGloc(i+1,j)+xGloc(i,j+1)+xGloc(i+1,j+1) )
./model/src/ini_spherical_polar_grid.F 158 INI_SPHERICAL_POLAR_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_spherical_polar_grid.F 159 INI_SPHERICAL_POLAR_GRID 
     &     yGloc(i,j)+yGloc(i+1,j)+yGloc(i,j+1)+yGloc(i+1,j+1) )
./model/src/ini_spherical_polar_grid.F 165 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 170 INI_SPHERICAL_POLAR_GRID 
          lat = yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 171 INI_SPHERICAL_POLAR_GRID 
          dlon = delX( iGl(i,bi) )
./model/src/ini_spherical_polar_grid.F 173 INI_SPHERICAL_POLAR_GRID 
          dxF(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 175 INI_SPHERICAL_POLAR_GRID 
          dxF(i,j,bi,bj) = delX(iGl(i,bi))*deg2rad*rSphere*
./model/src/ini_spherical_polar_grid.F 176 INI_SPHERICAL_POLAR_GRID 
     &                     COS(yC(i,j,bi,bj)*deg2rad)
./model/src/ini_spherical_polar_grid.F 178 INI_SPHERICAL_POLAR_GRID 
          dyF(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 184 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 189 INI_SPHERICAL_POLAR_GRID 
          lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 190 INI_SPHERICAL_POLAR_GRID 
          dlon = delX( iGl(i,bi) )
./model/src/ini_spherical_polar_grid.F 192 INI_SPHERICAL_POLAR_GRID 
          dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 193 INI_SPHERICAL_POLAR_GRID 
          if (dxG(i,j,bi,bj).LT.1.) dxG(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F 194 INI_SPHERICAL_POLAR_GRID 
          dyG(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 202 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 203 INI_SPHERICAL_POLAR_GRID 
          dxC(i,j,bi,bj) = 0.
./model/src/ini_spherical_polar_grid.F 204 INI_SPHERICAL_POLAR_GRID 
          dyC(i,j,bi,bj) = 0.
./model/src/ini_spherical_polar_grid.F 205 INI_SPHERICAL_POLAR_GRID 
          dxV(i,j,bi,bj) = 0.
./model/src/ini_spherical_polar_grid.F 206 INI_SPHERICAL_POLAR_GRID 
          dyU(i,j,bi,bj) = 0.
./model/src/ini_spherical_polar_grid.F 207 INI_SPHERICAL_POLAR_GRID 
          rAw(i,j,bi,bj) = 0.
./model/src/ini_spherical_polar_grid.F 208 INI_SPHERICAL_POLAR_GRID 
          rAs(i,j,bi,bj) = 0.
./model/src/ini_spherical_polar_grid.F 214 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx+1,sNx+Olx ! NOTE range
./model/src/ini_spherical_polar_grid.F 216 INI_SPHERICAL_POLAR_GRID 
          dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F 230 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 232 INI_SPHERICAL_POLAR_GRID 
          dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_spherical_polar_grid.F 244 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx+1,sNx+Olx ! NOTE range
./model/src/ini_spherical_polar_grid.F 246 INI_SPHERICAL_POLAR_GRID 
          dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F 247 INI_SPHERICAL_POLAR_GRID 
          dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_spherical_polar_grid.F 256 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 257 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 258 INI_SPHERICAL_POLAR_GRID 
          dlon=delX( iGl(i,bi) )
./model/src/ini_spherical_polar_grid.F 260 INI_SPHERICAL_POLAR_GRID 
          rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 263 INI_SPHERICAL_POLAR_GRID 
          lat=yC(i,j,bi,bj)-delY( jGl(j,bj) )*0.5 _d 0
./model/src/ini_spherical_polar_grid.F 264 INI_SPHERICAL_POLAR_GRID 
          lon=yC(i,j,bi,bj)+delY( jGl(j,bj) )*0.5 _d 0
./model/src/ini_spherical_polar_grid.F 265 INI_SPHERICAL_POLAR_GRID 
          rA(i,j,bi,bj) = dyF(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 273 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx+1,sNx+Olx ! NOTE range
./model/src/ini_spherical_polar_grid.F 275 INI_SPHERICAL_POLAR_GRID 
          rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F 287 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 289 INI_SPHERICAL_POLAR_GRID 
          lat=yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 290 INI_SPHERICAL_POLAR_GRID 
          dlon=delX( iGl(i,bi) )
./model/src/ini_spherical_polar_grid.F 292 INI_SPHERICAL_POLAR_GRID 
          rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 295 INI_SPHERICAL_POLAR_GRID 
          lon=yC(i,j,bi,bj)-delY( jGl(j,bj) )
./model/src/ini_spherical_polar_grid.F 296 INI_SPHERICAL_POLAR_GRID 
          lat=yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 297 INI_SPHERICAL_POLAR_GRID 
          rAs(i,j,bi,bj) = rSphere*delX(iGl(i,bi))*deg2rad
./model/src/ini_spherical_polar_grid.F 300 INI_SPHERICAL_POLAR_GRID 
          IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAs(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F 306 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 308 INI_SPHERICAL_POLAR_GRID 
          lat =0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F 309 INI_SPHERICAL_POLAR_GRID 
          dlon=0.5 _d 0*( delX( iGl(i,bi) ) + delX( iGl(i-1,bi) ) )
./model/src/ini_spherical_polar_grid.F 311 INI_SPHERICAL_POLAR_GRID 
          rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 313 INI_SPHERICAL_POLAR_GRID 
          IF (ABS(lat).GT.90..OR.ABS(lat-dlat).GT.90.) rAz(i,j,bi,bj)=0.
./model/src/ini_spherical_polar_grid.F 319 INI_SPHERICAL_POLAR_GRID 
         DO i=1-Olx,sNx+Olx
./model/src/ini_spherical_polar_grid.F 320 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F 321 INI_SPHERICAL_POLAR_GRID 
          tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F 322 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 323 INI_SPHERICAL_POLAR_GRID 
          tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F 324 INI_SPHERICAL_POLAR_GRID 
          angleCosC(i,j,bi,bj) = 1.
./model/src/ini_spherical_polar_grid.F 325 INI_SPHERICAL_POLAR_GRID 
          angleSinC(i,j,bi,bj) = 0.
./model/src/ini_spherical_polar_grid.F 57 INI_SPHERICAL_POLAR_GRID 
      INTEGER i,  j
./model/src/ini_spherical_polar_grid.F 85 INI_SPHERICAL_POLAR_GRID 
      iGl(i,bi) = 1+MOD(myXGlobalLo-1+(bi-1)*sNx+i+Olx*Nx-1,Nx)
./verification/hs94.128x64x5/code/external_forcing.F 115 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/hs94.128x64x5/code/external_forcing.F 125 EXTERNAL_FORCING_V 
       DO i=0,sNx+1
./verification/hs94.128x64x5/code/external_forcing.F 126 EXTERNAL_FORCING_V 
        IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.128x64x5/code/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.128x64x5/code/external_forcing.F 132 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F 133 EXTERNAL_FORCING_V 
     &                      -kV*vVel(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F 183 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/hs94.128x64x5/code/external_forcing.F 192 EXTERNAL_FORCING_T 
       DO i=1,sNx
./verification/hs94.128x64x5/code/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.128x64x5/code/external_forcing.F 196 EXTERNAL_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.128x64x5/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.128x64x5/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.128x64x5/code/external_forcing.F 204 EXTERNAL_FORCING_T 
     &     *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.128x64x5/code/external_forcing.F 205 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F 206 EXTERNAL_FORCING_T 
     &        - kT*( theta(i,j,kLev,bi,bj)-thetaEq )
./verification/hs94.128x64x5/code/external_forcing.F 207 EXTERNAL_FORCING_T 
     &            *maskC(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F 47 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/hs94.128x64x5/code/external_forcing.F 57 EXTERNAL_FORCING_U 
       DO i=1,sNx+1
./verification/hs94.128x64x5/code/external_forcing.F 58 EXTERNAL_FORCING_U 
        IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.128x64x5/code/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.128x64x5/code/external_forcing.F 64 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj)
./verification/hs94.128x64x5/code/external_forcing.F 65 EXTERNAL_FORCING_U 
     &                     -kV*uVel(i,j,kLev,bi,bj)
./model/src/ini_theta.F 100 INI_THETA 
           DO i=1,sNx
./model/src/ini_theta.F 101 INI_THETA 
            IF (  maskC(i,j,k,bi,bj).NE.0.
./model/src/ini_theta.F 102 INI_THETA 
     &      .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/ini_theta.F 138 INI_THETA 
           DO i=1-Olx,sNx+Olx
./model/src/ini_theta.F 139 INI_THETA 
            IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/ini_theta.F 140 INI_THETA 
               theta(i,j,k,bi,bj) = Tfreezing
./model/src/ini_theta.F 50 INI_THETA 
      INTEGER i, j, k, localWarnings
./model/src/ini_theta.F 60 INI_THETA 
          DO i=1-Olx,sNx+Olx
./model/src/ini_theta.F 61 INI_THETA 
           theta(i,j,k,bi,bj) = tRef(k)
./model/src/ini_theta.F 93 INI_THETA 
           DO i=1-Olx,sNx+Olx
./model/src/ini_theta.F 94 INI_THETA 
            IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0.
./verification/hs94.1x64x5/code/external_forcing.F 115 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/hs94.1x64x5/code/external_forcing.F 125 EXTERNAL_FORCING_V 
       DO i=0,sNx+1
./verification/hs94.1x64x5/code/external_forcing.F 126 EXTERNAL_FORCING_V 
        IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.1x64x5/code/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code/external_forcing.F 132 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/external_forcing.F 133 EXTERNAL_FORCING_V 
     &                      -kV*vVel(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/external_forcing.F 183 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/hs94.1x64x5/code/external_forcing.F 192 EXTERNAL_FORCING_T 
       DO i=1,sNx
./verification/hs94.1x64x5/code/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/external_forcing.F 196 EXTERNAL_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.1x64x5/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code/external_forcing.F 204 EXTERNAL_FORCING_T 
     &     *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.1x64x5/code/external_forcing.F 205 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/external_forcing.F 206 EXTERNAL_FORCING_T 
     &        - kT*( theta(i,j,kLev,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code/external_forcing.F 207 EXTERNAL_FORCING_T 
     &            *maskC(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/external_forcing.F 47 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/hs94.1x64x5/code/external_forcing.F 57 EXTERNAL_FORCING_U 
       DO i=1,sNx+1
./verification/hs94.1x64x5/code/external_forcing.F 58 EXTERNAL_FORCING_U 
        IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.1x64x5/code/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code/external_forcing.F 64 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code/external_forcing.F 65 EXTERNAL_FORCING_U 
     &                     -kV*uVel(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code_ad/cost_test.F 39 COST_TEST 
      integer i, j, k
./verification/hs94.1x64x5/code_ad/cost_test.F 70 COST_TEST 
            do i=1,sNx
./verification/hs94.1x64x5/code_ad/cost_test.F 71 COST_TEST 
            ig = myXGlobalLo-1+(bi-1)*sNx+i
./verification/hs94.1x64x5/code_ad/cost_test.F 75 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./verification/hs94.1x64x5/code_ad/cost_test.F 78 COST_TEST 
     &              ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/hs94.1x64x5/code_ad/external_forcing.F 115 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/hs94.1x64x5/code_ad/external_forcing.F 125 EXTERNAL_FORCING_V 
       DO i=0,sNx+1
./verification/hs94.1x64x5/code_ad/external_forcing.F 126 EXTERNAL_FORCING_V 
        IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.1x64x5/code_ad/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code_ad/external_forcing.F 132 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code_ad/external_forcing.F 133 EXTERNAL_FORCING_V 
     &                      -kV*vVel(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code_ad/external_forcing.F 183 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/hs94.1x64x5/code_ad/external_forcing.F 192 EXTERNAL_FORCING_T 
       DO i=1,sNx
./verification/hs94.1x64x5/code_ad/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/external_forcing.F 196 EXTERNAL_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.1x64x5/code_ad/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code_ad/external_forcing.F 204 EXTERNAL_FORCING_T 
     &     *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.1x64x5/code_ad/external_forcing.F 205 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code_ad/external_forcing.F 206 EXTERNAL_FORCING_T 
     &        - kT*( theta(i,j,kLev,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code_ad/external_forcing.F 207 EXTERNAL_FORCING_T 
     &            *maskC(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code_ad/external_forcing.F 47 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/hs94.1x64x5/code_ad/external_forcing.F 57 EXTERNAL_FORCING_U 
       DO i=1,sNx+1
./verification/hs94.1x64x5/code_ad/external_forcing.F 58 EXTERNAL_FORCING_U 
        IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.1x64x5/code_ad/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code_ad/external_forcing.F 64 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj)
./verification/hs94.1x64x5/code_ad/external_forcing.F 65 EXTERNAL_FORCING_U 
     &                     -kV*uVel(i,j,kLev,bi,bj)
./model/src/ini_vel.F 36 INI_VEL 
      INTEGER bi,bj,i,j,k
./model/src/ini_vel.F 50 INI_VEL 
          DO i=1-Olx,sNx+Olx
./model/src/ini_vel.F 51 INI_VEL 
           uVel(i,j,k,bi,bj)=0. _d 0
./model/src/ini_vel.F 52 INI_VEL 
           vVel(i,j,k,bi,bj)=0. _d 0
./model/src/ini_vel.F 74 INI_VEL 
          DO i=1-Olx,sNx+Olx
./model/src/ini_vel.F 75 INI_VEL 
           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./model/src/ini_vel.F 76 INI_VEL 
           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 115 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/hs94.cs-32x32x5/code/external_forcing.F 125 EXTERNAL_FORCING_V 
       DO i=0,sNx+1
./verification/hs94.cs-32x32x5/code/external_forcing.F 126 EXTERNAL_FORCING_V 
        IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.cs-32x32x5/code/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.cs-32x32x5/code/external_forcing.F 132 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 133 EXTERNAL_FORCING_V 
     &                      -kV*vVel(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 183 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/hs94.cs-32x32x5/code/external_forcing.F 192 EXTERNAL_FORCING_T 
       DO i=1,sNx
./verification/hs94.cs-32x32x5/code/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/external_forcing.F 196 EXTERNAL_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.cs-32x32x5/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.cs-32x32x5/code/external_forcing.F 204 EXTERNAL_FORCING_T 
     &     *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.cs-32x32x5/code/external_forcing.F 205 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 206 EXTERNAL_FORCING_T 
     &        - kT*( theta(i,j,kLev,bi,bj)-thetaEq )
./verification/hs94.cs-32x32x5/code/external_forcing.F 207 EXTERNAL_FORCING_T 
     &            *maskC(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 47 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/hs94.cs-32x32x5/code/external_forcing.F 57 EXTERNAL_FORCING_U 
       DO i=1,sNx+1
./verification/hs94.cs-32x32x5/code/external_forcing.F 58 EXTERNAL_FORCING_U 
        IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.cs-32x32x5/code/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.cs-32x32x5/code/external_forcing.F 64 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 65 EXTERNAL_FORCING_U 
     &                     -kV*uVel(i,j,kLev,bi,bj)
./model/src/integr_continuity.F 101 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integr_continuity.F 107 INTEGR_CONTINUITY 
         DO i=1,sNx
./model/src/integr_continuity.F 108 INTEGR_CONTINUITY 
           hDivFlow(i,j) = hDivFlow(i,j)
./model/src/integr_continuity.F 109 INTEGR_CONTINUITY 
     &       +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j)
./model/src/integr_continuity.F 110 INTEGR_CONTINUITY 
     &                            +vTrans(i,j+1)-vTrans(i,j) )
./model/src/integr_continuity.F 112 INTEGR_CONTINUITY 
     &       -facMass*addMass(i,j,k,bi,bj)
./model/src/integr_continuity.F 130 INTEGR_CONTINUITY 
           DO i=1,sNx
./model/src/integr_continuity.F 131 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./model/src/integr_continuity.F 138 INTEGR_CONTINUITY 
          DO i=1,sNx
./model/src/integr_continuity.F 139 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)
./model/src/integr_continuity.F 140 INTEGR_CONTINUITY 
     &                       + hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 142 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass
./model/src/integr_continuity.F 147 INTEGR_CONTINUITY 
          DO i=1,sNx
./model/src/integr_continuity.F 149 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = 0. _d 0
./model/src/integr_continuity.F 150 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 158 INTEGR_CONTINUITY 
          DO i=1-OLx,sNx+OLx
./model/src/integr_continuity.F 159 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/integr_continuity.F 163 INTEGR_CONTINUITY 
          DO i=1,sNx
./model/src/integr_continuity.F 164 INTEGR_CONTINUITY 
            ks = ksurfC(i,j,bi,bj)
./model/src/integr_continuity.F 165 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 167 INTEGR_CONTINUITY 
     &                           -facEmP*EmPmR(i,j,bi,bj)
./model/src/integr_continuity.F 183 INTEGR_CONTINUITY 
         DO i=1-Olx,sNx+Olx
./model/src/integr_continuity.F 184 INTEGR_CONTINUITY 
           etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F 189 INTEGR_CONTINUITY 
         DO i=1,sNx
./model/src/integr_continuity.F 190 INTEGR_CONTINUITY 
           etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F 191 INTEGR_CONTINUITY 
     &      + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./model/src/integr_continuity.F 211 INTEGR_CONTINUITY 
         DO i=1,sNx
./model/src/integr_continuity.F 212 INTEGR_CONTINUITY 
           ks = ksurfC(i,j,bi,bj)
./model/src/integr_continuity.F 213 INTEGR_CONTINUITY 
           rStarDhCDt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)
./model/src/integr_continuity.F 215 INTEGR_CONTINUITY 
     &                            *recip_Rcol(i,j,bi,bj)
./model/src/integr_continuity.F 239 INTEGR_CONTINUITY 
           DO i=1,sNx
./model/src/integr_continuity.F 240 INTEGR_CONTINUITY 
             wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/integr_continuity.F 241 INTEGR_CONTINUITY 
     &               +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/integr_continuity.F 58 INTEGR_CONTINUITY 
      INTEGER i,j, ks
./model/src/integr_continuity.F 83 INTEGR_CONTINUITY 
        DO i=1-Olx,sNx+Olx
./model/src/integr_continuity.F 84 INTEGR_CONTINUITY 
         hDivFlow(i,j)      = 0. _d 0
./model/src/integr_continuity.F 85 INTEGR_CONTINUITY 
         utrans(i,j)        = 0. _d 0
./model/src/integr_continuity.F 86 INTEGR_CONTINUITY 
         vtrans(i,j)        = 0. _d 0
./model/src/integr_continuity.F 95 INTEGR_CONTINUITY 
         DO i=1,sNx+1
./model/src/integr_continuity.F 96 INTEGR_CONTINUITY 
          uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj)
./model/src/integr_continuity.F 98 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integr_continuity.F 99 INTEGR_CONTINUITY 
          vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj)
./model/src/integrate_for_w.F 100 INTEGRATE_FOR_W 
     &         *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./model/src/integrate_for_w.F 106 INTEGRATE_FOR_W 
           DO i=1,sNx
./model/src/integrate_for_w.F 107 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 108 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1)
./model/src/integrate_for_w.F 109 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 110 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./model/src/integrate_for_w.F 122 INTEGRATE_FOR_W 
           DO i=1,sNx
./model/src/integrate_for_w.F 123 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 124 INTEGRATE_FOR_W 
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 125 INTEGRATE_FOR_W 
     &         -rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 126 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 132 INTEGRATE_FOR_W 
           DO i=1,sNx
./model/src/integrate_for_w.F 133 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 134 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1)
./model/src/integrate_for_w.F 135 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 136 INTEGRATE_FOR_W 
     &         -rStarDhCDt(i,j,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 137 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 149 INTEGRATE_FOR_W 
           DO i=1,sNx
./model/src/integrate_for_w.F 150 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 151 INTEGRATE_FOR_W 
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 152 INTEGRATE_FOR_W 
     &         *maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 158 INTEGRATE_FOR_W 
           DO i=1,sNx
./model/src/integrate_for_w.F 159 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 160 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1)
./model/src/integrate_for_w.F 161 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 162 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 50 INTEGRATE_FOR_W 
      INTEGER i,j
./model/src/integrate_for_w.F 59 INTEGRATE_FOR_W 
        DO i=1,sNx+1
./model/src/integrate_for_w.F 60 INTEGRATE_FOR_W 
          uTrans(i,j) = uFld(i,j,k,bi,bj)
./model/src/integrate_for_w.F 61 INTEGRATE_FOR_W 
     &                *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k)
./model/src/integrate_for_w.F 62 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integrate_for_w.F 63 INTEGRATE_FOR_W 
          vTrans(i,j) = vFld(i,j,k,bi,bj)
./model/src/integrate_for_w.F 64 INTEGRATE_FOR_W 
     &                *_dxG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k)
./model/src/integrate_for_w.F 65 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integrate_for_w.F 69 INTEGRATE_FOR_W 
        DO i=1,sNx
./model/src/integrate_for_w.F 70 INTEGRATE_FOR_W 
          conv2d(i,j) = -( uTrans(i+1,j)-uTrans(i,j)
./model/src/integrate_for_w.F 71 INTEGRATE_FOR_W 
     &                    +vTrans(i,j+1)-vTrans(i,j) )
./model/src/integrate_for_w.F 77 INTEGRATE_FOR_W 
        DO i=1,sNx
./model/src/integrate_for_w.F 78 INTEGRATE_FOR_W 
          conv2d(i,j) = conv2d(i,j)
./model/src/integrate_for_w.F 79 INTEGRATE_FOR_W 
     &                + mFld(i,j,k,bi,bj)*mass2rUnit
./model/src/integrate_for_w.F 91 INTEGRATE_FOR_W 
           DO i=1,sNx
./model/src/integrate_for_w.F 92 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) = 0.
./model/src/integrate_for_w.F 97 INTEGRATE_FOR_W 
           DO i=1,sNx
./model/src/integrate_for_w.F 98 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 99 INTEGRATE_FOR_W 
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./verification/natl_box/results/comp_orig.F 15 NO PROCEDURE 
      integer lbuffer1, lbuffer2, i, j, k, irec
./verification/natl_box/results/comp_orig.F 30 NO PROCEDURE 
         read(1,rec=irec) ((fld1(i,j),i=1,nx),j=1,ny)
./verification/natl_box/results/comp_orig.F 31 NO PROCEDURE 
         read(2,rec=irec) ((fld2(i,j),i=1,nx),j=1,ny)
./verification/natl_box/results/comp_orig.F 32 NO PROCEDURE 
         do i=1,nx
./verification/natl_box/results/comp_orig.F 34 NO PROCEDURE 
               maxdiff=max(maxdiff,abs(fld1(i,j)-fld2(i,j)))
./model/src/load_grid_spacing.F 44 LOAD_GRID_SPACING 
      INTEGER i, j, k, iLen, iUnit, rcLen1
./model/src/load_grid_spacing.F 66 LOAD_GRID_SPACING 
         DO i=1,Nx
./model/src/load_grid_spacing.F 67 LOAD_GRID_SPACING 
           delX(i) = tmp4delX(i)
./model/src/load_grid_spacing.F 77 LOAD_GRID_SPACING 
         DO i=1,Nx
./model/src/load_grid_spacing.F 78 LOAD_GRID_SPACING 
           delX(i) = tmp8delX(i)
./verification/rotating_tank/code/external_forcing.F 147 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/rotating_tank/code/external_forcing.F 177 EXTERNAL_FORCING_V 
        DO i=0,sNx+1
./verification/rotating_tank/code/external_forcing.F 178 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 179 EXTERNAL_FORCING_V 
     &   +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 180 EXTERNAL_FORCING_V 
     &   *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 245 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/rotating_tank/code/external_forcing.F 323 EXTERNAL_FORCING_T 
        DO i=1,sNx
./verification/rotating_tank/code/external_forcing.F 324 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 325 EXTERNAL_FORCING_T 
     &     +surfaceForcingT(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 326 EXTERNAL_FORCING_T 
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 346 EXTERNAL_FORCING_T 
        DO i=1,sNx
./verification/rotating_tank/code/external_forcing.F 347 EXTERNAL_FORCING_T 
         gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 348 EXTERNAL_FORCING_T 
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 349 EXTERNAL_FORCING_T 
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./verification/rotating_tank/code/external_forcing.F 351 EXTERNAL_FORCING_T 
     &    *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 362 EXTERNAL_FORCING_T 
       DO i=1,sNx
./verification/rotating_tank/code/external_forcing.F 377 EXTERNAL_FORCING_T 
          hC = hFacC(i  ,j  ,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 378 EXTERNAL_FORCING_T 
          hW = hFacW(i  ,j  ,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 379 EXTERNAL_FORCING_T 
          hE = hFacW(i+1,j  ,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 380 EXTERNAL_FORCING_T 
          hN = hFacS(i  ,j+1,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 381 EXTERNAL_FORCING_T 
          hS = hFacS(i  ,j  ,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 384 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dyG(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 386 EXTERNAL_FORCING_T 
     &      -faceArea*kDiffCyl*(theta(i,j,kLev,bi,bj) - tCyl)
./verification/rotating_tank/code/external_forcing.F 387 EXTERNAL_FORCING_T 
     &      *recip_dxC(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 391 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dyG(i+1,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 393 EXTERNAL_FORCING_T 
     &      -faceArea*kDiffCyl*(tCyl - theta(i,j,kLev,bi,bj))
./verification/rotating_tank/code/external_forcing.F 394 EXTERNAL_FORCING_T 
     &      *recip_dxC(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 398 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dxG(i,j+1,bi,bj)
./verification/rotating_tank/code/external_forcing.F 400 EXTERNAL_FORCING_T 
     &      -faceArea*kDiffCyl*(tCyl-theta(i,j,kLev,bi,bj))
./verification/rotating_tank/code/external_forcing.F 401 EXTERNAL_FORCING_T 
     &      *recip_dyC(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 405 EXTERNAL_FORCING_T 
           faceArea = drF(kLev)*dxG(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 407 EXTERNAL_FORCING_T 
     &      -faceArea*kDiffCyl*(theta(i,j,kLev,bi,bj) - tCyl)
./verification/rotating_tank/code/external_forcing.F 408 EXTERNAL_FORCING_T 
     &      *recip_dyC(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 413 EXTERNAL_FORCING_T 
        gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 414 EXTERNAL_FORCING_T 
     &  -_recip_hFacC(i,j,kLev,bi,bj)*recip_drF(kLev)
./verification/rotating_tank/code/external_forcing.F 415 EXTERNAL_FORCING_T 
     &  *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 479 EXTERNAL_FORCING_S 
      INTEGER i, j
./verification/rotating_tank/code/external_forcing.F 49 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/rotating_tank/code/external_forcing.F 507 EXTERNAL_FORCING_S 
        DO i=1,sNx
./verification/rotating_tank/code/external_forcing.F 508 EXTERNAL_FORCING_S 
         gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 509 EXTERNAL_FORCING_S 
     &     +surfaceForcingS(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 510 EXTERNAL_FORCING_S 
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 79 EXTERNAL_FORCING_U 
        DO i=1,sNx+1
./verification/rotating_tank/code/external_forcing.F 80 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./verification/rotating_tank/code/external_forcing.F 81 EXTERNAL_FORCING_U 
     &   +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/rotating_tank/code/external_forcing.F 82 EXTERNAL_FORCING_U 
     &   *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj)
./model/src/momentum_correction_step.F 71 MOMENTUM_CORRECTION_STEP 
      INTEGER k,i,j
./model/src/momentum_correction_step.F 80 MOMENTUM_CORRECTION_STEP 
         DO i=1-OLx,sNx+OLx
./model/src/momentum_correction_step.F 81 MOMENTUM_CORRECTION_STEP 
          phiSurfX(i,j)=0.
./model/src/momentum_correction_step.F 82 MOMENTUM_CORRECTION_STEP 
          phiSurfY(i,j)=0.
./verification/solid-body.cs-32x32x1/code/ini_psurf.F 45 INI_PSURF 
          etaN(I,J,bi,bj) = 0. +fac*(fCori(i,j,bi,bj)**2)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 34 INI_VEL 
      INTEGER bi,bj,i,j,k
./verification/solid-body.cs-32x32x1/code/ini_vel.F 38 INI_VEL 
      psi(i,j,bi,bj)=fac*fCoriG(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 54 INI_VEL 
          DO i=1-Olx,sNx+Olx
./verification/solid-body.cs-32x32x1/code/ini_vel.F 55 INI_VEL 
           ip1=MIN(i+1,sNx+Olx)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 56 INI_VEL 
           uVel(i,j,k,bi,bj)=0.
./verification/solid-body.cs-32x32x1/code/ini_vel.F 57 INI_VEL 
     &      +(psi(i,j,bi,bj)-psi(i,jp1,bi,bj))*recip_dyg(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 58 INI_VEL 
           vVel(i,j,k,bi,bj)=0.
./verification/solid-body.cs-32x32x1/code/ini_vel.F 59 INI_VEL 
     &      +(psi(ip1,j,bi,bj)-psi(i,j,bi,bj))*recip_dxg(i,j,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 60 INI_VEL 
           wVel(i,j,k,bi,bj)=0.
./verification/solid-body.cs-32x32x1/code/ini_vel.F 90 INI_VEL 
          DO i=1-Olx,sNx+Olx
./verification/solid-body.cs-32x32x1/code/ini_vel.F 91 INI_VEL 
           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./verification/solid-body.cs-32x32x1/code/ini_vel.F 92 INI_VEL 
           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 105 EXTERNAL_FORCING_U 
       DO i=1,sNx+1
./verification/tidal_basin_2d/code/external_forcing.F 106 EXTERNAL_FORCING_U 
         longitud1=XC(i-1,j,bi,bj)*Coord2longitude
./verification/tidal_basin_2d/code/external_forcing.F 107 EXTERNAL_FORCING_U 
         longitud2=XC(i,j,bi,bj)*Coord2longitude
./verification/tidal_basin_2d/code/external_forcing.F 108 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 112 EXTERNAL_FORCING_U 
     &    )*recip_DXC(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 113 EXTERNAL_FORCING_U 
     &   *_maskW(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 178 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F 208 EXTERNAL_FORCING_V 
        DO i=0,sNx+1
./verification/tidal_basin_2d/code/external_forcing.F 209 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 210 EXTERNAL_FORCING_V 
     &   +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 211 EXTERNAL_FORCING_V 
     &   *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 276 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F 311 EXTERNAL_FORCING_T 
        DO i=1,sNx
./verification/tidal_basin_2d/code/external_forcing.F 312 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 313 EXTERNAL_FORCING_T 
     &     +surfaceForcingT(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 314 EXTERNAL_FORCING_T 
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 334 EXTERNAL_FORCING_T 
        DO i=1,sNx
./verification/tidal_basin_2d/code/external_forcing.F 335 EXTERNAL_FORCING_T 
         gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 336 EXTERNAL_FORCING_T 
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 337 EXTERNAL_FORCING_T 
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./verification/tidal_basin_2d/code/external_forcing.F 339 EXTERNAL_FORCING_T 
     &    *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 400 EXTERNAL_FORCING_S 
      INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F 428 EXTERNAL_FORCING_S 
        DO i=1,sNx
./verification/tidal_basin_2d/code/external_forcing.F 429 EXTERNAL_FORCING_S 
         gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 430 EXTERNAL_FORCING_S 
     &     +surfaceForcingS(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 431 EXTERNAL_FORCING_S 
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 49 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/tidal_basin_2d/code/external_forcing.F 81 EXTERNAL_FORCING_U 
        DO i=1,sNx+1
./verification/tidal_basin_2d/code/external_forcing.F 82 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 83 EXTERNAL_FORCING_U 
     &   +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 84 EXTERNAL_FORCING_U 
     &   *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj)
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 44 COST_TRACER 
      integer i, j, k
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 53 COST_TRACER 
         DO i=1,sNx
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 55 COST_TRACER 
            locfc = locfc + maskC(i,j,k,bi,bj)*
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 56 COST_TRACER 
     &           ptracer(i,j,k,bi,bj,6)*
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 57 COST_TRACER 
     &           rA(i,j,bi,bj)*drF(k)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 53 PTRACERS_FORCING 
      INTEGER i,j
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 78 PTRACERS_FORCING 
         DO i=iMin,iMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 79 PTRACERS_FORCING 
          gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 80 PTRACERS_FORCING 
     &          + surfPtracer(i,j,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 81 PTRACERS_FORCING 
     &           *recip_drF(k)*recip_hFacC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 86 PTRACERS_FORCING 
         DO i=iMin,iMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 87 PTRACERS_FORCING 
          gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 88 PTRACERS_FORCING 
     &                          + 1. _d 0 * maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 112 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 113 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 114 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 115 PTRACERS_FORCING_SURF 
     &        + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 116 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 133 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 134 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 135 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 136 PTRACERS_FORCING_SURF 
     &        + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 48 PTRACERS_FORCING_SURF 
      INTEGER i, j
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 61 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 62 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 64 PTRACERS_FORCING_SURF 
     &                  * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 65 PTRACERS_FORCING_SURF 
     &                  * drF(ks) * _hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 82 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 83 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 84 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 85 PTRACERS_FORCING_SURF 
     &        + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 86 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 38 COST_HFLUX 
      integer i, j
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 46 COST_HFLUX 
           do i=1,sNx
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 47 COST_HFLUX 
             tmpC = tmpC + maskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 70 COST_HFLUX 
          DO i=1,sNx
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 71 COST_HFLUX 
            locfc = locfc + tmpC*maskC(i,j,1,bi,bj)*
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 72 COST_HFLUX 
     &         whfluxm(i,j,bi,bj)*
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 74 COST_HFLUX 
     &         Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 34 COST_TEMP 
      INTEGER i, j, k
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 51 COST_TEMP 
           DO i=1,sNx
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 52 COST_TEMP 
             tmp = tmp + maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 77 COST_TEMP 
            DO i=1,sNx
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 78 COST_TEMP 
              locfc = locfc + tmp*maskC(i,j,k,bi,bj)*
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 80 COST_TEMP 
     &         ( cMeanTheta(i,j,k,bi,bj) - thetalev(i,j,k,bi,bj) )**2
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 121 COST_WEIGHTS 
            DO i = iMin,iMax
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 123 COST_WEIGHTS 
             IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 124 COST_WEIGHTS 
                 whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 125 COST_WEIGHTS 
     &                                        /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 127 COST_WEIGHTS 
                 whfluxm(i,j,bi,bj) = 1. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 36 COST_WEIGHTS 
      INTEGER i,j,k
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 64 COST_WEIGHTS 
            DO i = iMin,iMax
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 65 COST_WEIGHTS 
              whfluxm(i,j,bi,bj)= 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 100 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 102 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 103 EXTERNAL_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 105 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 120 EXTERNAL_FORCING_SURF 
          DO i=iMin,iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 121 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 122 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 123 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 124 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 130 EXTERNAL_FORCING_SURF 
          DO i=iMin,iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 131 EXTERNAL_FORCING_SURF 
           IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 132 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 133 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 134 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 135 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 165 EXTERNAL_FORCING_SURF 
        DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 166 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 167 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 179 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 182 EXTERNAL_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 183 EXTERNAL_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 185 EXTERNAL_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 186 EXTERNAL_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 188 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 189 EXTERNAL_FORCING_SURF 
     &       - ( Qnet(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 191 EXTERNAL_FORCING_SURF 
     &          -Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 194 EXTERNAL_FORCING_SURF 
     &          +Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 198 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 199 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 222 EXTERNAL_FORCING_SURF 
         DO i=1-OLx,sNx+OLx
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 223 EXTERNAL_FORCING_SURF 
           EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskInC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 233 EXTERNAL_FORCING_SURF 
         DO i=1-OLx,sNx+OLx
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 234 EXTERNAL_FORCING_SURF 
           PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 248 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 249 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 250 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 251 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 259 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 260 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 261 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 262 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 283 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 284 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 285 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 286 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 294 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 295 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 296 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 297 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 309 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 310 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 311 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 320 EXTERNAL_FORCING_SURF 
          DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 321 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 322 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 358 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 359 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 360 EXTERNAL_FORCING_SURF 
     &                        +sIceLoad(i,j,bi,bj)*gravity
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 366 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 367 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 387 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 388 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 389 EXTERNAL_FORCING_SURF 
     &         + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 57 EXTERNAL_FORCING_SURF 
      INTEGER i,j
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 79 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 81 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 82 EXTERNAL_FORCING_SURF 
     &      -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 83 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 84 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 86 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 87 EXTERNAL_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 88 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 89 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 95 EXTERNAL_FORCING_SURF 
         DO i = iMin, iMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 97 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 98 EXTERNAL_FORCING_SURF 
     &      -lambdaThetaClimRelax(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 99 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 101 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 104 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 105 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 107 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 136 INI_FORCING 
           DO i=1-Olx,sNx+Olx
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 137 INI_FORCING 
            EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 170 INI_FORCING 
           DO i=1-OLx,sNx+OLx
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 171 INI_FORCING 
            Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 38 INI_FORCING 
      INTEGER  i, j
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 45 INI_FORCING 
         DO i=1-OLx,sNx+OLx
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 46 INI_FORCING 
          fu              (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 47 INI_FORCING 
          fv              (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 48 INI_FORCING 
          Qnet            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 49 INI_FORCING 
          EmPmR           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 50 INI_FORCING 
          saltFlux        (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 51 INI_FORCING 
          SST             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 52 INI_FORCING 
          SSS             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 53 INI_FORCING 
          Qsw             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 54 INI_FORCING 
          pLoad           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 55 INI_FORCING 
          sIceLoad        (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 56 INI_FORCING 
          surfaceForcingU(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 57 INI_FORCING 
          surfaceForcingV(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 58 INI_FORCING 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 59 INI_FORCING 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 60 INI_FORCING 
          surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 62 INI_FORCING 
          taux0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 63 INI_FORCING 
          taux1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 64 INI_FORCING 
          tauy0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 65 INI_FORCING 
          tauy1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 66 INI_FORCING 
          Qnet0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 67 INI_FORCING 
          Qnet1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 68 INI_FORCING 
          EmPmR0          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 69 INI_FORCING 
          EmPmR1          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 70 INI_FORCING 
          saltFlux0       (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 71 INI_FORCING 
          saltFlux1       (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 72 INI_FORCING 
          SST0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 73 INI_FORCING 
          SST1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 74 INI_FORCING 
          SSS0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 75 INI_FORCING 
          SSS1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 77 INI_FORCING 
          Qsw0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 78 INI_FORCING 
          Qsw1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 81 INI_FORCING 
          pLoad0          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 82 INI_FORCING 
          pLoad1          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 86 INI_FORCING 
          Qnetm (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 96 INI_FORCING 
         DO i=1-Olx,sNx+Olx
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 98 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 99 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./verification/tutorial_held_suarez_cs/code/external_forcing.F 115 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/tutorial_held_suarez_cs/code/external_forcing.F 125 EXTERNAL_FORCING_V 
       DO i=0,sNx+1
./verification/tutorial_held_suarez_cs/code/external_forcing.F 126 EXTERNAL_FORCING_V 
        IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/tutorial_held_suarez_cs/code/external_forcing.F 127 EXTERNAL_FORCING_V 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/tutorial_held_suarez_cs/code/external_forcing.F 132 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 133 EXTERNAL_FORCING_V 
     &                      -kV*vVel(i,j,kLev,bi,bj)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 183 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/tutorial_held_suarez_cs/code/external_forcing.F 192 EXTERNAL_FORCING_T 
       DO i=1,sNx
./verification/tutorial_held_suarez_cs/code/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 196 EXTERNAL_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 204 EXTERNAL_FORCING_T 
     &     *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/tutorial_held_suarez_cs/code/external_forcing.F 205 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 206 EXTERNAL_FORCING_T 
     &        - kT*( theta(i,j,kLev,bi,bj)-thetaEq )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 207 EXTERNAL_FORCING_T 
     &            *maskC(i,j,kLev,bi,bj)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 47 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/tutorial_held_suarez_cs/code/external_forcing.F 57 EXTERNAL_FORCING_U 
       DO i=1,sNx+1
./verification/tutorial_held_suarez_cs/code/external_forcing.F 58 EXTERNAL_FORCING_U 
        IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/tutorial_held_suarez_cs/code/external_forcing.F 59 EXTERNAL_FORCING_U 
         recip_P0g=MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/external_forcing.F 64 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 65 EXTERNAL_FORCING_U 
     &                     -kV*uVel(i,j,kLev,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 111 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 112 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 113 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 114 PTRACERS_FORCING_SURF 
     &        + EmPmR(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 115 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 132 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 133 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 134 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 135 PTRACERS_FORCING_SURF 
     &        + EmPmR(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 48 PTRACERS_FORCING_SURF 
      INTEGER i, j
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 61 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 62 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 63 PTRACERS_FORCING_SURF 
     &               surfaceForcingS(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
           DO i = iMin, iMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 82 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 83 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 84 PTRACERS_FORCING_SURF 
     &        + PmEpR(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 85 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./model/src/port_rand.F 115 PORT_RANARR 
      INTEGER i
./model/src/port_rand.F 125 PORT_RANARR 
      DO i=1,n
./model/src/port_rand.F 126 PORT_RANARR 
       arr(i)=port_rand(seed)
./model/src/port_rand.F 52 NO PROCEDURE 
      INTEGER i,ii,inext,inextp,k
./model/src/port_rand.F 64 NO PROCEDURE 
        DO i=1,nff-1
./model/src/port_rand.F 65 NO PROCEDURE 
          ii=mod(21*i,nff)
./model/src/port_rand.F 72 NO PROCEDURE 
          DO i=1,nff
./model/src/port_rand.F 73 NO PROCEDURE 
            ma(i)=ma(i)-ma(1+mod(i+30,nff))
./model/src/port_rand.F 74 NO PROCEDURE 
            IF (ma(i).LT.mz) ma(i)=ma(i)+mbig
./model/src/post_cg3d.F 106 POST_CG3D 
           DO i=1,sNx
./model/src/post_cg3d.F 108 POST_CG3D 
     &                *Bo_surf(i,j,bi,bj)*recip_drC(1)
./model/src/post_cg3d.F 110 POST_CG3D 
             dPhiNH(i,j,bi,bj) = ( tmpSurf*dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F 111 POST_CG3D 
     &           + Bo_surf(i,j,bi,bj)*
./model/src/post_cg3d.F 112 POST_CG3D 
     &                  ( etaH(i,j,bi,bj)-etaN(i,j,bi,bj)
./model/src/post_cg3d.F 115 POST_CG3D 
     &                                   *wVel(i,j,1,bi,bj)
./model/src/post_cg3d.F 139 POST_CG3D 
           DO i=1-OLx,sNx+OLx
./model/src/post_cg3d.F 140 POST_CG3D 
            phi_nh(i,j,k,bi,bj) = ( phi_nh(i,j,k,bi,bj)
./model/src/post_cg3d.F 141 POST_CG3D 
     &                            - dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F 142 POST_CG3D 
     &                            )*maskC(i,j,k,bi,bj)
./model/src/post_cg3d.F 147 POST_CG3D 
          DO i=1-OLx,sNx+OLx
./model/src/post_cg3d.F 148 POST_CG3D 
            etaN(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/post_cg3d.F 149 POST_CG3D 
     &                      + recip_Bo(i,j,bi,bj)*dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F 50 POST_CG3D 
      INTEGER i,j,k,bi,bj
./model/src/post_cg3d.F 65 POST_CG3D 
           DO i=1-OLx,sNx+OLx
./model/src/post_cg3d.F 66 POST_CG3D 
             dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj)
./model/src/post_cg3d.F 72 POST_CG3D 
           DO i=1-OLx,sNx+OLx
./model/src/post_cg3d.F 73 POST_CG3D 
            ks = ksurfC(i,j,bi,bj)
./model/src/post_cg3d.F 75 POST_CG3D 
             dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj)
./model/src/post_cg3d.F 77 POST_CG3D 
             dPhiNH(i,j,bi,bj) = 0.
./model/src/post_cg3d.F 85 POST_CG3D 
           DO i=1-OLx,sNx+OLx
./model/src/post_cg3d.F 86 POST_CG3D 
             dPhiNH(i,j,bi,bj) = 0.
./model/src/post_cg3d.F 91 POST_CG3D 
            DO i=1-OLx,sNx+OLx
./model/src/post_cg3d.F 92 POST_CG3D 
             dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/post_cg3d.F 93 POST_CG3D 
     &         + phi_nh(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/post_cg3d.F 98 POST_CG3D 
           DO i=1-OLx,sNx+OLx
./model/src/post_cg3d.F 99 POST_CG3D 
             dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/pre_cg3d.F 100 PRE_CG3D 
            DO i=1,sNx
./model/src/pre_cg3d.F 103 PRE_CG3D 
     &                  *Bo_surf(i,j,bi,bj)*recip_drC(1)
./model/src/pre_cg3d.F 105 PRE_CG3D 
               tmpSurf = ( tmpSurf*( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F 108 PRE_CG3D 
     &                                    *wVel(i,j,1,bi,bj)
./model/src/pre_cg3d.F 111 PRE_CG3D 
               tmpSurf = etaN(i,j,bi,bj)-etaH(i,j,bi,bj)
./model/src/pre_cg3d.F 113 PRE_CG3D 
              ks = ksurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 115 PRE_CG3D 
               cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 118 PRE_CG3D 
     &                              *_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/pre_cg3d.F 127 PRE_CG3D 
            DO i=1,sNx
./model/src/pre_cg3d.F 128 PRE_CG3D 
              ks = ksurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 129 PRE_CG3D 
              tmpVar(i,j) = freeSurfFac
./model/src/pre_cg3d.F 130 PRE_CG3D 
     &                    *( etaN(i,j,bi,bj) - etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F 131 PRE_CG3D 
     &                    *_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/pre_cg3d.F 133 PRE_CG3D 
     &                    *recip_Rcol(i,j,bi,bj)
./model/src/pre_cg3d.F 138 PRE_CG3D 
             DO i=1,sNx
./model/src/pre_cg3d.F 139 PRE_CG3D 
              cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F 140 PRE_CG3D 
     &          + tmpVar(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/pre_cg3d.F 152 PRE_CG3D 
            DO i=1,sNx
./model/src/pre_cg3d.F 153 PRE_CG3D 
              ks = ksurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 155 PRE_CG3D 
               cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 156 PRE_CG3D 
     &              +freeSurfFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/pre_cg3d.F 157 PRE_CG3D 
     &                  *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTmom
./model/src/pre_cg3d.F 168 PRE_CG3D 
          DO i=1,sNx+1
./model/src/pre_cg3d.F 169 PRE_CG3D 
           uf(i,j) = -_recip_dxC(i,j,bi,bj)
./model/src/pre_cg3d.F 171 PRE_CG3D 
     &             *(cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj))
./model/src/pre_cg3d.F 172 PRE_CG3D 
           vf(i,j) = -_recip_dyC(i,j,bi,bj)
./model/src/pre_cg3d.F 174 PRE_CG3D 
     &             *(cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj))
./model/src/pre_cg3d.F 180 PRE_CG3D 
          DO i=1,sNx+1
./model/src/pre_cg3d.F 182 PRE_CG3D 
           IF (OB_Jn(i,bi,bj).NE.0)
./model/src/pre_cg3d.F 183 PRE_CG3D 
     &      vf(i,OB_Jn(i,bi,bj)) = 0.
./model/src/pre_cg3d.F 185 PRE_CG3D 
           IF (OB_Js(i,bi,bj).NE.0)
./model/src/pre_cg3d.F 186 PRE_CG3D 
     &      vf(i,OB_Js(i,bi,bj)+1) = 0.
./model/src/pre_cg3d.F 207 PRE_CG3D 
          DO i=1,sNx
./model/src/pre_cg3d.F 208 PRE_CG3D 
            cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F 209 PRE_CG3D 
     &       +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F 210 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F 211 PRE_CG3D 
     &       +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F 212 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 213 PRE_CG3D 
     &       +( tmpFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/pre_cg3d.F 214 PRE_CG3D 
     &         -wVel(i,j,kp1,bi,bj)*wFacKp
./model/src/pre_cg3d.F 215 PRE_CG3D 
     &        )*_rA(i,j,bi,bj)/deltaTmom
./model/src/pre_cg3d.F 226 PRE_CG3D 
           DO i=1,sNx
./model/src/pre_cg3d.F 227 PRE_CG3D 
            cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F 228 PRE_CG3D 
     &       +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j)
./model/src/pre_cg3d.F 229 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F 230 PRE_CG3D 
     &       +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1)
./model/src/pre_cg3d.F 231 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 232 PRE_CG3D 
     &       +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj)
./model/src/pre_cg3d.F 233 PRE_CG3D 
     &         -wVel(i,j,kp1,bi,bj)*wFacKp
./model/src/pre_cg3d.F 234 PRE_CG3D 
     &        )*_rA(i,j,bi,bj)/deltaTmom
./model/src/pre_cg3d.F 243 PRE_CG3D 
           DO i=1,sNx
./model/src/pre_cg3d.F 245 PRE_CG3D 
            IF (OB_Jn(i,bi,bj).NE.0)
./model/src/pre_cg3d.F 246 PRE_CG3D 
     &       cg3d_b(i,OB_Jn(i,bi,bj),k,bi,bj) = 0.
./model/src/pre_cg3d.F 248 PRE_CG3D 
            IF (OB_Js(i,bi,bj).NE.0)
./model/src/pre_cg3d.F 249 PRE_CG3D 
     &       cg3d_b(i,OB_Js(i,bi,bj),k,bi,bj) = 0.
./model/src/pre_cg3d.F 59 PRE_CG3D 
      INTEGER i,j,k,bi,bj
./model/src/pre_cg3d.F 88 PRE_CG3D 
           DO i=1,sNx
./model/src/pre_cg3d.F 89 PRE_CG3D 
            cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 90 PRE_CG3D 
     &        + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom
./model/src/pressure_for_eos.F 43 PRESSURE_FOR_EOS 
      INTEGER  i,j
./model/src/pressure_for_eos.F 58 PRESSURE_FOR_EOS 
          DO i=1-Olx,sNx+Olx
./model/src/pressure_for_eos.F 59 PRESSURE_FOR_EOS 
            locPres(i,j) = rhoConst*(
./model/src/pressure_for_eos.F 60 PRESSURE_FOR_EOS 
     &                   totPhiHyd(i,j,k,bi,bj)
./model/src/pressure_for_eos.F 67 PRESSURE_FOR_EOS 
          DO i=1-Olx,sNx+Olx
./model/src/pressure_for_eos.F 68 PRESSURE_FOR_EOS 
            locPres(i,j) = -rhoConst*rC(k)*gravity
./model/src/pressure_for_eos.F 77 PRESSURE_FOR_EOS 
          DO i=1-Olx,sNx+Olx
./model/src/pressure_for_eos.F 78 PRESSURE_FOR_EOS 
            locPres(i,j) = rC(k)
./model/src/rotate_uv2en.F 100 ROTATE_UV2EN_RL 
          tmpV(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F 101 ROTATE_UV2EN_RL 
     &          *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) )
./model/src/rotate_uv2en.F 103 ROTATE_UV2EN_RL 
            tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 104 ROTATE_UV2EN_RL 
            tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 111 ROTATE_UV2EN_RL 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 112 ROTATE_UV2EN_RL 
            tmpU(i,j) = uFldX(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 113 ROTATE_UV2EN_RL 
            tmpV(i,j) = vFldY(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 115 ROTATE_UV2EN_RL 
              tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 116 ROTATE_UV2EN_RL 
              tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 124 ROTATE_UV2EN_RL 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 125 ROTATE_UV2EN_RL 
            uFldE(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F 126 ROTATE_UV2EN_RL 
     &         angleCosC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F 127 ROTATE_UV2EN_RL 
     &        -angleSinC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F 128 ROTATE_UV2EN_RL 
            vFldN(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F 129 ROTATE_UV2EN_RL 
     &         angleSinC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F 130 ROTATE_UV2EN_RL 
     &        +angleCosC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F 139 ROTATE_UV2EN_RL 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 140 ROTATE_UV2EN_RL 
            tmpU(i,j) =
./model/src/rotate_uv2en.F 141 ROTATE_UV2EN_RL 
     &         angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 142 ROTATE_UV2EN_RL 
     &        +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 143 ROTATE_UV2EN_RL 
            tmpV(i,j) =
./model/src/rotate_uv2en.F 144 ROTATE_UV2EN_RL 
     &        -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 145 ROTATE_UV2EN_RL 
     &        +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 151 ROTATE_UV2EN_RL 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 152 ROTATE_UV2EN_RL 
            uFldX(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 153 ROTATE_UV2EN_RL 
            vFldY(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 158 ROTATE_UV2EN_RL 
          do i = 1-olx+1,snx+olx
./model/src/rotate_uv2en.F 159 ROTATE_UV2EN_RL 
            uFldX(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 160 ROTATE_UV2EN_RL 
     &         *( tmpU(i-1,j) + tmpU(i,j) )
./model/src/rotate_uv2en.F 161 ROTATE_UV2EN_RL 
            vFldY(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 162 ROTATE_UV2EN_RL 
     &         *( tmpV(i,j-1) + tmpV(i,j) )
./model/src/rotate_uv2en.F 164 ROTATE_UV2EN_RL 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 165 ROTATE_UV2EN_RL 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 172 ROTATE_UV2EN_RL 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 173 ROTATE_UV2EN_RL 
            uFldX(i,j,k,bi,bj) = tmpU(i,j)
./model/src/rotate_uv2en.F 174 ROTATE_UV2EN_RL 
            vFldY(i,j,k,bi,bj) = tmpV(i,j)
./model/src/rotate_uv2en.F 176 ROTATE_UV2EN_RL 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 177 ROTATE_UV2EN_RL 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 242 ROTATE_UV2EN_RS 
      integer i,j,k,kk
./model/src/rotate_uv2en.F 271 ROTATE_UV2EN_RS 
        do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 272 ROTATE_UV2EN_RS 
          tmpU(i,sny+Oly)=0.
./model/src/rotate_uv2en.F 273 ROTATE_UV2EN_RS 
          tmpV(i,sny+Oly)=0.
./model/src/rotate_uv2en.F 278 ROTATE_UV2EN_RS 
        do i = 1-olx,snx+olx-1
./model/src/rotate_uv2en.F 279 ROTATE_UV2EN_RS 
          tmpU(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F 280 ROTATE_UV2EN_RS 
     &          *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) )
./model/src/rotate_uv2en.F 281 ROTATE_UV2EN_RS 
          tmpV(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F 282 ROTATE_UV2EN_RS 
     &          *( vFldY(i,j+1,k,bi,bj) + vFldY(i,j,k,bi,bj) )
./model/src/rotate_uv2en.F 284 ROTATE_UV2EN_RS 
            tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 285 ROTATE_UV2EN_RS 
            tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 292 ROTATE_UV2EN_RS 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 293 ROTATE_UV2EN_RS 
            tmpU(i,j) = uFldX(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 294 ROTATE_UV2EN_RS 
            tmpV(i,j) = vFldY(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 296 ROTATE_UV2EN_RS 
              tmpU(i,j) = tmpU(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 297 ROTATE_UV2EN_RS 
              tmpV(i,j) = tmpV(i,j) * maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 305 ROTATE_UV2EN_RS 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 306 ROTATE_UV2EN_RS 
            uFldE(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F 307 ROTATE_UV2EN_RS 
     &         angleCosC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F 308 ROTATE_UV2EN_RS 
     &        -angleSinC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F 309 ROTATE_UV2EN_RS 
            vFldN(i,j,k,bi,bj) =
./model/src/rotate_uv2en.F 310 ROTATE_UV2EN_RS 
     &         angleSinC(i,j,bi,bj)*tmpU(i,j)
./model/src/rotate_uv2en.F 311 ROTATE_UV2EN_RS 
     &        +angleCosC(i,j,bi,bj)*tmpV(i,j)
./model/src/rotate_uv2en.F 320 ROTATE_UV2EN_RS 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 321 ROTATE_UV2EN_RS 
            tmpU(i,j) =
./model/src/rotate_uv2en.F 322 ROTATE_UV2EN_RS 
     &         angleCosC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 323 ROTATE_UV2EN_RS 
     &        +angleSinC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 324 ROTATE_UV2EN_RS 
            tmpV(i,j) =
./model/src/rotate_uv2en.F 325 ROTATE_UV2EN_RS 
     &        -angleSinC(i,j,bi,bj)*uFldE(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 326 ROTATE_UV2EN_RS 
     &        +angleCosC(i,j,bi,bj)*vFldN(i,j,k,bi,bj)
./model/src/rotate_uv2en.F 332 ROTATE_UV2EN_RS 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 333 ROTATE_UV2EN_RS 
            uFldX(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 334 ROTATE_UV2EN_RS 
            vFldY(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 339 ROTATE_UV2EN_RS 
          do i = 1-olx+1,snx+olx
./model/src/rotate_uv2en.F 340 ROTATE_UV2EN_RS 
            uFldX(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 341 ROTATE_UV2EN_RS 
     &         *( tmpU(i-1,j) + tmpU(i,j) )
./model/src/rotate_uv2en.F 342 ROTATE_UV2EN_RS 
            vFldY(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 343 ROTATE_UV2EN_RS 
     &         *( tmpV(i,j-1) + tmpV(i,j) )
./model/src/rotate_uv2en.F 345 ROTATE_UV2EN_RS 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskW(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 346 ROTATE_UV2EN_RS 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskS(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 353 ROTATE_UV2EN_RS 
          do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 354 ROTATE_UV2EN_RS 
            uFldX(i,j,k,bi,bj) = tmpU(i,j)
./model/src/rotate_uv2en.F 355 ROTATE_UV2EN_RS 
            vFldY(i,j,k,bi,bj) = tmpV(i,j)
./model/src/rotate_uv2en.F 357 ROTATE_UV2EN_RS 
              uFldX(i,j,k,bi,bj)=uFldX(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 358 ROTATE_UV2EN_RS 
              vFldY(i,j,k,bi,bj)=vFldY(i,j,k,bi,bj)*maskC(i,j,kk,bi,bj)
./model/src/rotate_uv2en.F 61 ROTATE_UV2EN_RL 
      integer i,j,k,kk
./model/src/rotate_uv2en.F 90 ROTATE_UV2EN_RL 
        do i = 1-olx,snx+olx
./model/src/rotate_uv2en.F 91 ROTATE_UV2EN_RL 
          tmpU(i,sny+Oly)=0.
./model/src/rotate_uv2en.F 92 ROTATE_UV2EN_RL 
          tmpV(i,sny+Oly)=0.
./model/src/rotate_uv2en.F 97 ROTATE_UV2EN_RL 
        do i = 1-olx,snx+olx-1
./model/src/rotate_uv2en.F 98 ROTATE_UV2EN_RL 
          tmpU(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F 99 ROTATE_UV2EN_RL 
     &          *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) )
./model/src/set_defaults.F 65 SET_DEFAULTS 
      DO i=1,Nx
./model/src/set_defaults.F 66 SET_DEFAULTS 
       delX(i)            = UNSET_RL
./model/src/solve_for_pressure.F 124 SOLVE_FOR_PRESSURE 
         DO i=1-OLx,sNx+OLx
./model/src/solve_for_pressure.F 126 SOLVE_FOR_PRESSURE 
          etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 128 SOLVE_FOR_PRESSURE 
          cg2d_x(i,j,bi,bj) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 129 SOLVE_FOR_PRESSURE 
          cg2d_b(i,j,bi,bj) = 0.
./model/src/solve_for_pressure.F 137 SOLVE_FOR_PRESSURE 
          DO i=1,sNx
./model/src/solve_for_pressure.F 138 SOLVE_FOR_PRESSURE 
           cg2d_b(i,j,bi,bj) =
./model/src/solve_for_pressure.F 139 SOLVE_FOR_PRESSURE 
     &       tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom
./model/src/solve_for_pressure.F 146 SOLVE_FOR_PRESSURE 
          DO i=1,sNx
./model/src/solve_for_pressure.F 148 SOLVE_FOR_PRESSURE 
     &                     + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)
./model/src/solve_for_pressure.F 149 SOLVE_FOR_PRESSURE 
     &                                    *maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F 166 SOLVE_FOR_PRESSURE 
           DO i=1,sNx
./model/src/solve_for_pressure.F 167 SOLVE_FOR_PRESSURE 
            cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/solve_for_pressure.F 168 SOLVE_FOR_PRESSURE 
     &                        - tmpFac*Bo_surf(i,j,bi,bj)
./model/src/solve_for_pressure.F 189 SOLVE_FOR_PRESSURE 
          DO i=1,sNx
./model/src/solve_for_pressure.F 190 SOLVE_FOR_PRESSURE 
           ks = ksurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 192 SOLVE_FOR_PRESSURE 
            cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F 193 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 195 SOLVE_FOR_PRESSURE 
     &         *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 196 SOLVE_FOR_PRESSURE 
     &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F 197 SOLVE_FOR_PRESSURE 
            cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/solve_for_pressure.F 198 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 200 SOLVE_FOR_PRESSURE 
     &         *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 201 SOLVE_FOR_PRESSURE 
     &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F 211 SOLVE_FOR_PRESSURE 
          DO i=1,sNx
./model/src/solve_for_pressure.F 212 SOLVE_FOR_PRESSURE 
           ks = ksurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 213 SOLVE_FOR_PRESSURE 
           cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F 214 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 216 SOLVE_FOR_PRESSURE 
     &         * etaH(i,j,bi,bj)
./model/src/solve_for_pressure.F 221 SOLVE_FOR_PRESSURE 
          DO i=1,sNx
./model/src/solve_for_pressure.F 222 SOLVE_FOR_PRESSURE 
           ks = ksurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 223 SOLVE_FOR_PRESSURE 
           cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F 224 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 226 SOLVE_FOR_PRESSURE 
     &         * etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 233 SOLVE_FOR_PRESSURE 
         DO i=1,sNx
./model/src/solve_for_pressure.F 235 SOLVE_FOR_PRESSURE 
          IF (OB_Jn(i,bi,bj).NE.0) THEN
./model/src/solve_for_pressure.F 236 SOLVE_FOR_PRESSURE 
           cg2d_b(i,OB_Jn(i,bi,bj),bi,bj)=0.
./model/src/solve_for_pressure.F 237 SOLVE_FOR_PRESSURE 
           cg2d_x(i,OB_Jn(i,bi,bj),bi,bj)=0.
./model/src/solve_for_pressure.F 240 SOLVE_FOR_PRESSURE 
          IF (OB_Js(i,bi,bj).NE.0) THEN
./model/src/solve_for_pressure.F 241 SOLVE_FOR_PRESSURE 
           cg2d_b(i,OB_Js(i,bi,bj),bi,bj)=0.
./model/src/solve_for_pressure.F 242 SOLVE_FOR_PRESSURE 
           cg2d_x(i,OB_Js(i,bi,bj),bi,bj)=0.
./model/src/solve_for_pressure.F 344 SOLVE_FOR_PRESSURE 
         DO i=1-OLx,sNx+OLx
./model/src/solve_for_pressure.F 345 SOLVE_FOR_PRESSURE 
          etaN(i,j,bi,bj) = recip_Bo(i,j,bi,bj)*cg2d_x(i,j,bi,bj)
./model/src/solve_for_pressure.F 57 SOLVE_FOR_PRESSURE 
      INTEGER i,j,k,bi,bj
./model/src/solve_pentadiagonal.F 100 SOLVE_PENTADIAGONAL 
     &                     - b5d(i,j,k)*y5d(i,j,k-1,bi,bj)
./model/src/solve_pentadiagonal.F 101 SOLVE_PENTADIAGONAL 
          IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F 102 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F 104 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F 113 SOLVE_PENTADIAGONAL 
         DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 115 SOLVE_PENTADIAGONAL 
          a5d(i,j,k) = a5d(i,j,k)*c5d(i,j,k-2)
./model/src/solve_pentadiagonal.F 116 SOLVE_PENTADIAGONAL 
          b5d(i,j,k) = b5d(i,j,k) - a5d(i,j,k)*d5d(i,j,k-2)
./model/src/solve_pentadiagonal.F 117 SOLVE_PENTADIAGONAL 
          c5d(i,j,k) = c5d(i,j,k) - a5d(i,j,k)*e5d(i,j,k-2)
./model/src/solve_pentadiagonal.F 119 SOLVE_PENTADIAGONAL 
          b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 120 SOLVE_PENTADIAGONAL 
          c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 121 SOLVE_PENTADIAGONAL 
          d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 122 SOLVE_PENTADIAGONAL 
          y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj)
./model/src/solve_pentadiagonal.F 123 SOLVE_PENTADIAGONAL 
     &                     - b5d(i,j,k)*y5d(i,j,k-1,bi,bj)
./model/src/solve_pentadiagonal.F 124 SOLVE_PENTADIAGONAL 
     &                     - a5d(i,j,k)*y5d(i,j,k-2,bi,bj)
./model/src/solve_pentadiagonal.F 125 SOLVE_PENTADIAGONAL 
          IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F 126 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F 128 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F 141 SOLVE_PENTADIAGONAL 
         DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 142 SOLVE_PENTADIAGONAL 
          y5d(i,j,k,bi,bj) =   y5d(i,j,k,bi,bj)*c5d(i,j,k)
./model/src/solve_pentadiagonal.F 147 SOLVE_PENTADIAGONAL 
         DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 148 SOLVE_PENTADIAGONAL 
          y5d(i,j,k,bi,bj) = ( y5d(i,j,k,bi,bj)
./model/src/solve_pentadiagonal.F 149 SOLVE_PENTADIAGONAL 
     &                       - d5d(i,j,k)*y5d(i,j,k+1,bi,bj)
./model/src/solve_pentadiagonal.F 150 SOLVE_PENTADIAGONAL 
     &                       )*c5d(i,j,k)
./model/src/solve_pentadiagonal.F 155 SOLVE_PENTADIAGONAL 
         DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 156 SOLVE_PENTADIAGONAL 
          y5d(i,j,k,bi,bj) = ( y5d(i,j,k,bi,bj)
./model/src/solve_pentadiagonal.F 157 SOLVE_PENTADIAGONAL 
     &                       - d5d(i,j,k)*y5d(i,j,k+1,bi,bj)
./model/src/solve_pentadiagonal.F 158 SOLVE_PENTADIAGONAL 
     &                       - e5d(i,j,k)*y5d(i,j,k+2,bi,bj)
./model/src/solve_pentadiagonal.F 159 SOLVE_PENTADIAGONAL 
     &                       )*c5d(i,j,k)
./model/src/solve_pentadiagonal.F 172 SOLVE_PENTADIAGONAL 
      DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 174 SOLVE_PENTADIAGONAL 
         y5d_m1(i,j,k) = y5d(i,j,k,bi,bj)
./model/src/solve_pentadiagonal.F 181 SOLVE_PENTADIAGONAL 
      DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 200 SOLVE_PENTADIAGONAL 
           c5d_prime(k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F 201 SOLVE_PENTADIAGONAL 
           d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F 202 SOLVE_PENTADIAGONAL 
           e5d_prime(k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F 203 SOLVE_PENTADIAGONAL 
           y5d_prime(k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F 208 SOLVE_PENTADIAGONAL 
           c5d_prime(k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F 209 SOLVE_PENTADIAGONAL 
     &      -b5d(i,j,k)*d5d_prime(k-1)
./model/src/solve_pentadiagonal.F 210 SOLVE_PENTADIAGONAL 
           d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F 211 SOLVE_PENTADIAGONAL 
     &      -b5d(i,j,k)*e5d_prime(k-1)
./model/src/solve_pentadiagonal.F 212 SOLVE_PENTADIAGONAL 
           e5d_prime(k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F 213 SOLVE_PENTADIAGONAL 
           y5d_prime(k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F 214 SOLVE_PENTADIAGONAL 
     &      -b5d(i,j,k)*y5d_prime(k-1)
./model/src/solve_pentadiagonal.F 219 SOLVE_PENTADIAGONAL 
           c5d_prime(k) = c5d(i,j,k)
./model/src/solve_pentadiagonal.F 220 SOLVE_PENTADIAGONAL 
     &      -a5d(i,j,k)*e5d_prime(k-2)
./model/src/solve_pentadiagonal.F 221 SOLVE_PENTADIAGONAL 
     &      -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*d5d_prime(k-1)
./model/src/solve_pentadiagonal.F 222 SOLVE_PENTADIAGONAL 
           d5d_prime(k) = d5d(i,j,k)
./model/src/solve_pentadiagonal.F 223 SOLVE_PENTADIAGONAL 
     &      -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*e5d_prime(k-1)
./model/src/solve_pentadiagonal.F 224 SOLVE_PENTADIAGONAL 
           e5d_prime(k) = e5d(i,j,k)
./model/src/solve_pentadiagonal.F 225 SOLVE_PENTADIAGONAL 
           y5d_prime(k) = y5d_m1(i,j,k)
./model/src/solve_pentadiagonal.F 226 SOLVE_PENTADIAGONAL 
     &      -a5d(i,j,k)*y5d_prime(k-2)
./model/src/solve_pentadiagonal.F 227 SOLVE_PENTADIAGONAL 
     &      -(b5d(i,j,k)-a5d(i,j,k)*d5d_prime(k-2))*y5d_prime(k-1)
./model/src/solve_pentadiagonal.F 267 SOLVE_PENTADIAGONAL 
         y5d(i,j,k,bi,bj)=y5d_update(k)
./model/src/solve_pentadiagonal.F 65 SOLVE_PENTADIAGONAL 
      INTEGER i,j,k
./model/src/solve_pentadiagonal.F 82 SOLVE_PENTADIAGONAL 
         DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 83 SOLVE_PENTADIAGONAL 
          IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F 84 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F 86 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F 94 SOLVE_PENTADIAGONAL 
         DO i=iMin,iMax
./model/src/solve_pentadiagonal.F 96 SOLVE_PENTADIAGONAL 
          b5d(i,j,k) = b5d(i,j,k)*c5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 97 SOLVE_PENTADIAGONAL 
          c5d(i,j,k) = c5d(i,j,k) - b5d(i,j,k)*d5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 98 SOLVE_PENTADIAGONAL 
          d5d(i,j,k) = d5d(i,j,k) - b5d(i,j,k)*e5d(i,j,k-1)
./model/src/solve_pentadiagonal.F 99 SOLVE_PENTADIAGONAL 
          y5d(i,j,k,bi,bj) = y5d(i,j,k,bi,bj)
./model/src/solve_tridiagonal.F 102 SOLVE_TRIDIAGONAL 
        DO i=iMin,iMax
./model/src/solve_tridiagonal.F 103 SOLVE_TRIDIAGONAL 
         y3d(i,j,k,bi,bj) = ( y3d(i,j,k,bi,bj)
./model/src/solve_tridiagonal.F 104 SOLVE_TRIDIAGONAL 
     &                      - a3d(i,j,k)*y3d(i,j,k-1,bi,bj)
./model/src/solve_tridiagonal.F 105 SOLVE_TRIDIAGONAL 
     &                      )*bet(i,j,k)
./model/src/solve_tridiagonal.F 114 SOLVE_TRIDIAGONAL 
        DO i=iMin,iMax
./model/src/solve_tridiagonal.F 115 SOLVE_TRIDIAGONAL 
          y3d(i,j,k,bi,bj) = y3d(i,j,k,bi,bj)
./model/src/solve_tridiagonal.F 116 SOLVE_TRIDIAGONAL 
     &         - c3d(i,j,k)*bet(i,j,k)*y3d(i,j,k+1,bi,bj)
./model/src/solve_tridiagonal.F 127 SOLVE_TRIDIAGONAL 
      DO i=iMin,iMax
./model/src/solve_tridiagonal.F 129 SOLVE_TRIDIAGONAL 
         c3d_m1(i,j,k) = c3d(i,j,k)
./model/src/solve_tridiagonal.F 130 SOLVE_TRIDIAGONAL 
         y3d_m1(i,j,k) = y3d(i,j,k,bi,bj)
./model/src/solve_tridiagonal.F 137 SOLVE_TRIDIAGONAL 
      DO i=iMin,iMax
./model/src/solve_tridiagonal.F 148 SOLVE_TRIDIAGONAL 
           IF ( b3d(i,j,1).NE.0. _d 0 ) THEN
./model/src/solve_tridiagonal.F 149 SOLVE_TRIDIAGONAL 
             c3d_prime(1) = c3d_m1(i,j,1) / b3d(i,j,1)
./model/src/solve_tridiagonal.F 150 SOLVE_TRIDIAGONAL 
             y3d_prime(1) = y3d_m1(i,j,1) / b3d(i,j,1)
./model/src/solve_tridiagonal.F 157 SOLVE_TRIDIAGONAL 
           tmpvar = b3d(i,j,k) - a3d(i,j,k)*c3d_prime(k-1)
./model/src/solve_tridiagonal.F 159 SOLVE_TRIDIAGONAL 
             c3d_prime(k) = c3d_m1(i,j,k) / tmpvar
./model/src/solve_tridiagonal.F 160 SOLVE_TRIDIAGONAL 
             y3d_prime(k) = (y3d_m1(i,j,k) - y3d_prime(k-1)*a3d(i,j,k))
./model/src/solve_tridiagonal.F 181 SOLVE_TRIDIAGONAL 
         y3d(i,j,k,bi,bj)=y3d_update(k)
./model/src/solve_tridiagonal.F 53 SOLVE_TRIDIAGONAL 
      INTEGER i,j,k
./model/src/solve_tridiagonal.F 70 SOLVE_TRIDIAGONAL 
       DO i=iMin,iMax
./model/src/solve_tridiagonal.F 71 SOLVE_TRIDIAGONAL 
         IF ( b3d(i,j,1).NE.0. _d 0 ) THEN
./model/src/solve_tridiagonal.F 72 SOLVE_TRIDIAGONAL 
           bet(i,j,1) = 1. _d 0 / b3d(i,j,1)
./model/src/solve_tridiagonal.F 74 SOLVE_TRIDIAGONAL 
           bet(i,j,1) = 0. _d 0
./model/src/solve_tridiagonal.F 83 SOLVE_TRIDIAGONAL 
        DO i=iMin,iMax
./model/src/solve_tridiagonal.F 84 SOLVE_TRIDIAGONAL 
         tmpvar = b3d(i,j,k) - a3d(i,j,k)*c3d(i,j,k-1)*bet(i,j,k-1)
./model/src/solve_tridiagonal.F 86 SOLVE_TRIDIAGONAL 
           bet(i,j,k) = 1. _d 0 / tmpvar
./model/src/solve_tridiagonal.F 88 SOLVE_TRIDIAGONAL 
           bet(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F 96 SOLVE_TRIDIAGONAL 
       DO i=iMin,iMax
./model/src/solve_tridiagonal.F 97 SOLVE_TRIDIAGONAL 
         y3d(i,j,1,bi,bj) = y3d(i,j,1,bi,bj)*bet(i,j,1)
./model/src/swfrac.F 100 SWFRAC 
      DO i = 1,imax
./model/src/swfrac.F 101 SWFRAC 
        facz = fact*swdk(i)
./model/src/swfrac.F 103 SWFRAC 
          swdk(i) = 0. _d 0
./model/src/swfrac.F 105 SWFRAC 
          swdk(i) =       rfac(jwtype)  * exp( facz/a1(jwtype) )
./model/src/swfrac.F 64 SWFRAC 
      INTEGER i
./model/src/taueddy_external_forcing.F 169 TAUEDDY_EXTERNAL_FORCING_V 
       DO i=iMin,iMax
./model/src/taueddy_external_forcing.F 170 TAUEDDY_EXTERNAL_FORCING_V 
        gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./model/src/taueddy_external_forcing.F 173 TAUEDDY_EXTERNAL_FORCING_V 
     &  (maskm1*_maskS(i,j,klev,bi,bj)*GM_PsiY(i,j,klev,bi,bj)
./model/src/taueddy_external_forcing.F 174 TAUEDDY_EXTERNAL_FORCING_V 
     &  -maskp1*_maskS(i,j,kp1,bi,bj)*GM_PsiY(i,j,kp1,bi,bj))
./model/src/taueddy_external_forcing.F 176 TAUEDDY_EXTERNAL_FORCING_V 
     &  (maskm1*_maskS(i,j,klev,bi,bj)*eddyPsiY(i,j,klev,bi,bj)
./model/src/taueddy_external_forcing.F 177 TAUEDDY_EXTERNAL_FORCING_V 
     &  -maskp1*_maskS(i,j,kp1,bi,bj)*eddyPsiY(i,j,kp1,bi,bj))
./model/src/taueddy_external_forcing.F 179 TAUEDDY_EXTERNAL_FORCING_V 
     &  *recip_drF(klev)*_recip_hFacS(i,j,klev,bi,bj)
./model/src/taueddy_external_forcing.F 180 TAUEDDY_EXTERNAL_FORCING_V 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj))
./model/src/taueddy_external_forcing.F 79 TAUEDDY_EXTERNAL_FORCING_U 
       DO i=iMin,iMax
./model/src/taueddy_external_forcing.F 80 TAUEDDY_EXTERNAL_FORCING_U 
        gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/taueddy_external_forcing.F 83 TAUEDDY_EXTERNAL_FORCING_U 
     &  (maskm1*_maskW(i,j,klev,bi,bj)*GM_PsiX(i,j,klev,bi,bj)
./model/src/taueddy_external_forcing.F 84 TAUEDDY_EXTERNAL_FORCING_U 
     &  -maskp1*_maskW(i,j,kp1,bi,bj)*GM_PsiX(i,j,kp1,bi,bj))
./model/src/taueddy_external_forcing.F 86 TAUEDDY_EXTERNAL_FORCING_U 
     &  (maskm1*_maskW(i,j,klev,bi,bj)*eddyPsiX(i,j,klev,bi,bj)
./model/src/taueddy_external_forcing.F 87 TAUEDDY_EXTERNAL_FORCING_U 
     &  -maskp1*_maskW(i,j,kp1,bi,bj)*eddyPsiX(i,j,kp1,bi,bj))
./model/src/taueddy_external_forcing.F 89 TAUEDDY_EXTERNAL_FORCING_U 
     &  *recip_drF(klev)*_recip_hFacW(i,j,klev,bi,bj)
./model/src/taueddy_external_forcing.F 90 TAUEDDY_EXTERNAL_FORCING_U 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj))
./model/src/taueddy_init_varia.F 37 TAUEDDY_INIT_VARIA 
      INTEGER i, j, k
./model/src/taueddy_init_varia.F 45 TAUEDDY_INIT_VARIA 
          DO i=1-Olx,sNx+Olx
./model/src/taueddy_init_varia.F 46 TAUEDDY_INIT_VARIA 
           eddyPsiX(i,j,k,bi,bj)=0.
./model/src/taueddy_init_varia.F 47 TAUEDDY_INIT_VARIA 
           eddyPsiY(i,j,k,bi,bj)=0.
./model/src/thermodynamics.F 179 THERMODYNAMICS 
      INTEGER i, j
./model/src/thermodynamics.F 261 THERMODYNAMICS 
         DO i=1-OLx,sNx+OLx
./model/src/thermodynamics.F 262 THERMODYNAMICS 
          xA(i,j)        = 0. _d 0
./model/src/thermodynamics.F 263 THERMODYNAMICS 
          yA(i,j)        = 0. _d 0
./model/src/thermodynamics.F 264 THERMODYNAMICS 
          uTrans(i,j)    = 0. _d 0
./model/src/thermodynamics.F 265 THERMODYNAMICS 
          vTrans(i,j)    = 0. _d 0
./model/src/thermodynamics.F 266 THERMODYNAMICS 
          rTrans (i,j)   = 0. _d 0
./model/src/thermodynamics.F 267 THERMODYNAMICS 
          rTransKp1(i,j) = 0. _d 0
./model/src/thermodynamics.F 268 THERMODYNAMICS 
          fVerT  (i,j,1) = 0. _d 0
./model/src/thermodynamics.F 269 THERMODYNAMICS 
          fVerT  (i,j,2) = 0. _d 0
./model/src/thermodynamics.F 270 THERMODYNAMICS 
          fVerS  (i,j,1) = 0. _d 0
./model/src/thermodynamics.F 271 THERMODYNAMICS 
          fVerS  (i,j,2) = 0. _d 0
./model/src/thermodynamics.F 272 THERMODYNAMICS 
          kappaRT(i,j)   = 0. _d 0
./model/src/thermodynamics.F 273 THERMODYNAMICS 
          kappaRS(i,j)   = 0. _d 0
./model/src/thermodynamics.F 279 THERMODYNAMICS 
          DO i=1-OLx,sNx+OLx
./model/src/thermodynamics.F 281 THERMODYNAMICS 
           kappaRk(i,j,k)    = 0. _d 0
./model/src/thermodynamics.F 283 THERMODYNAMICS 
           gT(i,j,k,bi,bj)   = 0. _d 0
./model/src/thermodynamics.F 284 THERMODYNAMICS 
           gS(i,j,k,bi,bj)   = 0. _d 0
./model/src/thermodynamics.F 294 THERMODYNAMICS 
            DO i=1-OLx,sNx+OLx
./model/src/thermodynamics.F 295 THERMODYNAMICS 
             fVerP  (i,j,1,ip) = 0. _d 0
./model/src/thermodynamics.F 296 THERMODYNAMICS 
             fVerP  (i,j,2,ip) = 0. _d 0
./model/src/thermodynamics.F 297 THERMODYNAMICS 
             kappaRTr(i,j,ip)  = 0. _d 0
./model/src/thermodynamics.F 305 THERMODYNAMICS 
            DO i=1-OLx,sNx+OLx
./model/src/thermodynamics.F 306 THERMODYNAMICS 
             gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
./model/src/thermodynamics.F 471 THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./model/src/thermodynamics.F 472 THERMODYNAMICS 
             rTransKp1(i,j) = 0. _d 0
./model/src/thermodynamics.F 477 THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./model/src/thermodynamics.F 478 THERMODYNAMICS 
             rTransKp1(i,j) = rTrans(i,j)
./model/src/thermodynamics.F 498 THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./model/src/thermodynamics.F 499 THERMODYNAMICS 
             wFld(i,j)   = 0. _d 0
./model/src/thermodynamics.F 500 THERMODYNAMICS 
             maskUp(i,j) = 0. _d 0
./model/src/thermodynamics.F 501 THERMODYNAMICS 
             rTrans(i,j) = 0. _d 0
./model/src/thermodynamics.F 508 THERMODYNAMICS 
            DO i=1-Olx,sNx+Olx
./model/src/thermodynamics.F 509 THERMODYNAMICS 
             wFld(i,j)   = wVel(i,j,k,bi,bj)
./model/src/thermodynamics.F 510 THERMODYNAMICS 
             maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/thermodynamics.F 511 THERMODYNAMICS 
             rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j)
./model/src/timestep.F 102 TIMESTEP 
        DO i=1-Olx,sNx+Olx
./model/src/timestep.F 103 TIMESTEP 
          gUtmp(i,j) = 0. _d 0
./model/src/timestep.F 104 TIMESTEP 
          gVtmp(i,j) = 0. _d 0
./model/src/timestep.F 106 TIMESTEP 
          guCor(i,j) = 0. _d 0
./model/src/timestep.F 107 TIMESTEP 
          gvCor(i,j) = 0. _d 0
./model/src/timestep.F 115 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 116 TIMESTEP 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j)
./model/src/timestep.F 117 TIMESTEP 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j)
./model/src/timestep.F 129 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 130 TIMESTEP 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j)
./model/src/timestep.F 131 TIMESTEP 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvDissip(i,j)
./model/src/timestep.F 141 TIMESTEP 
          DO i=1,sNx+1
./model/src/timestep.F 142 TIMESTEP 
           gUext(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 143 TIMESTEP 
           gVext(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 159 TIMESTEP 
          DO i=1,sNx+1
./model/src/timestep.F 160 TIMESTEP 
           gUext(i,j) = gU(i,j,k,bi,bj)-gUext(i,j)
./model/src/timestep.F 161 TIMESTEP 
           gVext(i,j) = gV(i,j,k,bi,bj)-gVext(i,j)
./model/src/timestep.F 172 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 173 TIMESTEP 
           gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 174 TIMESTEP 
           gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 208 TIMESTEP 
          DO i=iMin,iMax
./model/src/timestep.F 209 TIMESTEP 
           gUext(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 210 TIMESTEP 
           gVext(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 226 TIMESTEP 
          DO i=iMin,iMax
./model/src/timestep.F 227 TIMESTEP 
           gUext(i,j) = gU(i,j,k,bi,bj)-gUext(i,j)
./model/src/timestep.F 228 TIMESTEP 
           gVext(i,j) = gV(i,j,k,bi,bj)-gVext(i,j)
./model/src/timestep.F 243 TIMESTEP 
          DO i=iMin,iMax
./model/src/timestep.F 244 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j) + guExt(i,j)
./model/src/timestep.F 245 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j) + gvExt(i,j)
./model/src/timestep.F 252 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 253 TIMESTEP 
           gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 254 TIMESTEP 
           gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 261 TIMESTEP 
          DO i=iMin,iMax
./model/src/timestep.F 262 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j) + guDissip(i,j)
./model/src/timestep.F 263 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j) + gvDissip(i,j)
./model/src/timestep.F 274 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 275 TIMESTEP 
           gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 276 TIMESTEP 
     &                + guCor(i,j)
./model/src/timestep.F 277 TIMESTEP 
           gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 278 TIMESTEP 
     &                + gvCor(i,j)
./model/src/timestep.F 284 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 285 TIMESTEP 
           gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 286 TIMESTEP 
           gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 298 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 299 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j)/rStarExpW(i,j,bi,bj)
./model/src/timestep.F 300 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j)/rStarExpS(i,j,bi,bj)
./model/src/timestep.F 305 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 306 TIMESTEP 
          IF ( k.EQ.ksurfW(i,j,bi,bj) ) THEN
./model/src/timestep.F 307 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F 308 TIMESTEP 
     &         *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)
./model/src/timestep.F 310 TIMESTEP 
          IF ( k.EQ.ksurfS(i,j,bi,bj) ) THEN
./model/src/timestep.F 311 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F 312 TIMESTEP 
     &         *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)
./model/src/timestep.F 325 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 326 TIMESTEP 
          gUtmp(i,j) = gUtmp(i,j) + guDissip(i,j)
./model/src/timestep.F 327 TIMESTEP 
          gVtmp(i,j) = gVtmp(i,j) + gvDissip(i,j)
./model/src/timestep.F 339 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 340 TIMESTEP 
          gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F 341 TIMESTEP 
     &               - nhFac*_recip_dxC(i,j,bi,bj)*
./model/src/timestep.F 342 TIMESTEP 
     &                ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F 343 TIMESTEP 
     &                 -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) )
./model/src/timestep.F 345 TIMESTEP 
          gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F 346 TIMESTEP 
     &               - nhFac*_recip_dyC(i,j,bi,bj)*
./model/src/timestep.F 347 TIMESTEP 
     &                ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F 348 TIMESTEP 
     &                 -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-1,bi,bj) )
./model/src/timestep.F 354 TIMESTEP 
         DO i=iMin,iMax
./model/src/timestep.F 355 TIMESTEP 
          gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F 356 TIMESTEP 
     &               - nhFac*_recip_dxC(i,j,bi,bj)*
./model/src/timestep.F 357 TIMESTEP 
     &                  (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F 358 TIMESTEP 
          gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F 359 TIMESTEP 
     &               - nhFac*_recip_dyC(i,j,bi,bj)*
./model/src/timestep.F 360 TIMESTEP 
     &                  (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F 369 TIMESTEP 
        DO i=iMin,iMax
./model/src/timestep.F 370 TIMESTEP 
          gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./model/src/timestep.F 372 TIMESTEP 
     &         gUtmp(i,j)
./model/src/timestep.F 373 TIMESTEP 
     &       - psFac*phiSurfX(i,j)
./model/src/timestep.F 374 TIMESTEP 
     &       - phxFac*dPhiHydX(i,j)
./model/src/timestep.F 375 TIMESTEP 
     &        )*_maskW(i,j,k,bi,bj)
./model/src/timestep.F 381 TIMESTEP 
        DO i=iMin,iMax
./model/src/timestep.F 382 TIMESTEP 
          gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./model/src/timestep.F 384 TIMESTEP 
     &         gVtmp(i,j)
./model/src/timestep.F 385 TIMESTEP 
     &       - psFac*phiSurfY(i,j)
./model/src/timestep.F 386 TIMESTEP 
     &       - phyFac*dPhiHydY(i,j)
./model/src/timestep.F 387 TIMESTEP 
     &        )*_maskS(i,j,k,bi,bj)
./model/src/timestep.F 59 TIMESTEP 
      INTEGER i,j
./model/src/timestep_tracer.F 39 TIMESTEP_TRACER 
      INTEGER i,j
./model/src/timestep_tracer.F 46 TIMESTEP_TRACER 
       DO i=iMin,iMax
./model/src/timestep_tracer.F 47 TIMESTEP_TRACER 
         gTracer(i,j,k,bi,bj)=tracer(i,j,k,bi,bj)
./model/src/timestep_tracer.F 48 TIMESTEP_TRACER 
     &            +deltaTloc*gTracer(i,j,k,bi,bj)
./model/src/timestep_wvel.F 123 TIMESTEP_WVEL 
          DO i=1-Olx,sNx+Olx
./model/src/timestep_wvel.F 124 TIMESTEP_WVEL 
            gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/timestep_wvel.F 40 TIMESTEP_WVEL 
      INTEGER i, j, k, km1
./model/src/timestep_wvel.F 68 TIMESTEP_WVEL 
            DO i=iMin,iMax
./model/src/timestep_wvel.F 69 TIMESTEP_WVEL 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F 71 TIMESTEP_WVEL 
     &              *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) )
./model/src/timestep_wvel.F 76 TIMESTEP_WVEL 
            DO i=iMin,iMax
./model/src/timestep_wvel.F 77 TIMESTEP_WVEL 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F 79 TIMESTEP_WVEL 
     &              *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) )
./model/src/timestep_wvel.F 86 TIMESTEP_WVEL 
          DO i=1-Olx,sNx+Olx
./model/src/timestep_wvel.F 87 TIMESTEP_WVEL 
            gWtmp(i,j) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F 88 TIMESTEP_WVEL 
     &             *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./model/src/timestep_wvel.F 89 TIMESTEP_WVEL 
            gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/timestep_wvel.F 97 TIMESTEP_WVEL 
          DO i=iMin,iMax
./model/src/timestep_wvel.F 98 TIMESTEP_WVEL 
            wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/timestep_wvel.F 99 TIMESTEP_WVEL 
     &                        + deltaTmom*tmpFac*gWtmp(i,j)
./model/src/tracers_iigw_correction.F 100 TRACERS_IIGW_CORRECTION 
     &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )
./model/src/tracers_iigw_correction.F 101 TRACERS_IIGW_CORRECTION 
     &                      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F 47 TRACERS_IIGW_CORRECTION 
      INTEGER i,j,k
./model/src/tracers_iigw_correction.F 56 TRACERS_IIGW_CORRECTION 
        DO i=1-Olx,sNx+Olx
./model/src/tracers_iigw_correction.F 57 TRACERS_IIGW_CORRECTION 
          dWp1(i,j) = 0. _d 0
./model/src/tracers_iigw_correction.F 67 TRACERS_IIGW_CORRECTION 
        DO i=1-Olx,sNx+Olx
./model/src/tracers_iigw_correction.F 68 TRACERS_IIGW_CORRECTION 
          dW_k(i,j) = dWp1(i,j)
./model/src/tracers_iigw_correction.F 69 TRACERS_IIGW_CORRECTION 
          dWp1(i,j) = ( wVel(i,j,kp1,bi,bj)
./model/src/tracers_iigw_correction.F 70 TRACERS_IIGW_CORRECTION 
     &                  - gW(i,j,kp1,bi,bj) )*maskC(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F 81 TRACERS_IIGW_CORRECTION 
          DO i=1-Olx,sNx+Olx
./model/src/tracers_iigw_correction.F 82 TRACERS_IIGW_CORRECTION 
          theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F 84 TRACERS_IIGW_CORRECTION 
     &                      *( dTr_k*dW_k(i,j) + dTrp1*dWp1(i,j) )
./model/src/tracers_iigw_correction.F 85 TRACERS_IIGW_CORRECTION 
     &                      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/tracers_iigw_correction.F 97 TRACERS_IIGW_CORRECTION 
          DO i=1-Olx,sNx+Olx
./model/src/tracers_iigw_correction.F 98 TRACERS_IIGW_CORRECTION 
            salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./model/src/update_etah.F 45 UPDATE_ETAH 
      INTEGER i,j,bi,bj
./model/src/update_etah.F 56 UPDATE_ETAH 
           DO i=1-Olx,sNx+Olx
./model/src/update_etah.F 57 UPDATE_ETAH 
             etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/update_etah.F 66 UPDATE_ETAH 
          DO i=1-Olx,sNx+Olx
./model/src/update_etah.F 67 UPDATE_ETAH 
            etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/update_etah.F 73 UPDATE_ETAH 
          DO i=1,sNx
./model/src/update_etah.F 74 UPDATE_ETAH 
            etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/update_etah.F 75 UPDATE_ETAH 
     &       + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj)
./model/src/update_masks_etc.F 175 UPDATE_MASKS_ETC 
         DO i=1-Olx,sNx+Olx
./model/src/update_masks_etc.F 177 UPDATE_MASKS_ETC 
          tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/update_masks_etc.F 179 UPDATE_MASKS_ETC 
          IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN
./model/src/update_masks_etc.F 180 UPDATE_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 0.
./model/src/update_masks_etc.F 182 UPDATE_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/update_r_star.F 100 UPDATE_R_STAR 
     &        / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F 101 UPDATE_R_STAR 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F 102 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F 103 UPDATE_R_STAR 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F 104 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 106 UPDATE_R_STAR 
           IF (maskC(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 107 UPDATE_R_STAR 
     &      recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./model/src/update_r_star.F 108 UPDATE_R_STAR 
           IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 109 UPDATE_R_STAR 
     &      recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj)
./model/src/update_r_star.F 110 UPDATE_R_STAR 
           IF (maskS(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 111 UPDATE_R_STAR 
     &      recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./model/src/update_r_star.F 46 UPDATE_R_STAR 
      INTEGER i,j,k,bi,bj
./model/src/update_r_star.F 87 UPDATE_R_STAR 
          DO i=1-Olx,sNx+Olx
./model/src/update_r_star.F 90 UPDATE_R_STAR 
            hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/update_r_star.F 91 UPDATE_R_STAR 
     &                          *rStarFacC(i,j,bi,bj)
./model/src/update_r_star.F 92 UPDATE_R_STAR 
            hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/update_r_star.F 93 UPDATE_R_STAR 
     &                          *rStarFacW(i,j,bi,bj)
./model/src/update_r_star.F 94 UPDATE_R_STAR 
            hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/update_r_star.F 95 UPDATE_R_STAR 
     &                          *rStarFacS(i,j,bi,bj)
./model/src/update_r_star.F 99 UPDATE_R_STAR 
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_surf_dr.F 101 UPDATE_SURF_DR 
         DO i=2-Olx,sNx+Olx
./model/src/update_surf_dr.F 102 UPDATE_SURF_DR 
          ks = ksurfW(i,j,bi,bj)
./model/src/update_surf_dr.F 104 UPDATE_SURF_DR 
           hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 105 UPDATE_SURF_DR 
           recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 110 UPDATE_SURF_DR 
         DO i=1-Olx,sNx+Olx
./model/src/update_surf_dr.F 111 UPDATE_SURF_DR 
          ks = ksurfS(i,j,bi,bj)
./model/src/update_surf_dr.F 113 UPDATE_SURF_DR 
           hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F 114 UPDATE_SURF_DR 
           recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F 46 UPDATE_SURF_DR 
      INTEGER i,j,bi,bj
./model/src/update_surf_dr.F 88 UPDATE_SURF_DR 
         DO i=1-Olx,sNx+Olx
./model/src/update_surf_dr.F 89 UPDATE_SURF_DR 
          ks = ksurfC(i,j,bi,bj)
./model/src/update_surf_dr.F 91 UPDATE_SURF_DR 
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 92 UPDATE_SURF_DR 
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/write_grid.F 48 WRITE_GRID 
      INTEGER i,j,k,bi,bj
./model/src/write_grid.F 61 WRITE_GRID 
          DO i=1-Olx,sNx+Olx
./model/src/write_grid.F 63 WRITE_GRID 
            tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./optim/optim_readdata.F 172 OPTIM_READDATA 
      read( funit ) (ncvarindex(i), i=1,maxcvars)
./optim/optim_readdata.F 173 OPTIM_READDATA 
      read( funit ) (ncvarrecs(i),  i=1,maxcvars)
./optim/optim_readdata.F 174 OPTIM_READDATA 
      read( funit ) (ncvarxmax(i),  i=1,maxcvars)
./optim/optim_readdata.F 175 OPTIM_READDATA 
      read( funit ) (ncvarymax(i),  i=1,maxcvars)
./optim/optim_readdata.F 176 OPTIM_READDATA 
      read( funit ) (ncvarnrmax(i), i=1,maxcvars)
./optim/optim_readdata.F 177 OPTIM_READDATA 
      read( funit ) (ncvargrd(i),   i=1,maxcvars)
./optim/optim_readdata.F 201 OPTIM_READDATA 
     &        (ncvarindex(i), i=1,maxcvars)
./optim/optim_readdata.F 203 OPTIM_READDATA 
     &        (ncvarrecs(i),  i=1,maxcvars)
./optim/optim_readdata.F 205 OPTIM_READDATA 
     &        (ncvarxmax(i),  i=1,maxcvars)
./optim/optim_readdata.F 207 OPTIM_READDATA 
     &        (ncvarymax(i),  i=1,maxcvars)
./optim/optim_readdata.F 209 OPTIM_READDATA 
     &        (ncvarnrmax(i), i=1,maxcvars)
./optim/optim_readdata.F 211 OPTIM_READDATA 
     &        (ncvargrd(i),   i=1,maxcvars)
./optim/optim_readdata.F 67 OPTIM_READDATA 
      integer i,j
./optim/optim_writedata.F 125 OPTIM_WRITEDATA 
     &        (ncvarindex(i), i=1,maxcvars)
./optim/optim_writedata.F 127 OPTIM_WRITEDATA 
     &        (ncvarrecs(i),  i=1,maxcvars)
./optim/optim_writedata.F 129 OPTIM_WRITEDATA 
     &        (ncvarxmax(i),  i=1,maxcvars)
./optim/optim_writedata.F 131 OPTIM_WRITEDATA 
     &        (ncvarymax(i),  i=1,maxcvars)
./optim/optim_writedata.F 133 OPTIM_WRITEDATA 
     &        (ncvarnrmax(i), i=1,maxcvars)
./optim/optim_writedata.F 135 OPTIM_WRITEDATA 
     &        (ncvargrd(i),   i=1,maxcvars)
./optim/optim_writedata.F 170 OPTIM_WRITEDATA 
      write( funit ) (ncvarindex(i), i=1,maxcvars)
./optim/optim_writedata.F 171 OPTIM_WRITEDATA 
      write( funit ) (ncvarrecs(i),  i=1,maxcvars)
./optim/optim_writedata.F 172 OPTIM_WRITEDATA 
      write( funit ) (ncvarxmax(i),  i=1,maxcvars)
./optim/optim_writedata.F 173 OPTIM_WRITEDATA 
      write( funit ) (ncvarymax(i),  i=1,maxcvars)
./optim/optim_writedata.F 174 OPTIM_WRITEDATA 
      write( funit ) (ncvarnrmax(i), i=1,maxcvars)
./optim/optim_writedata.F 175 OPTIM_WRITEDATA 
      write( funit ) (ncvargrd(i),   i=1,maxcvars)
./optim/optim_writedata.F 52 OPTIM_WRITEDATA 
      integer i,j,k
./optim/simul.F 57 SIMUL 
      integer i
./optim/simul.F 67 SIMUL 
      do i = 1,nn
./optim/simul.F 68 SIMUL 
        adxx(i) = 0.
./optim/simul.F 85 SIMUL 
      do i=1,nn
./pkg/admtlm/admtlm_bypassad.F 100 ADMTLM_BYPASSAD 
     &              + adetan(i,j,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 115 ADMTLM_BYPASSAD 
              do i = imin, imax
./pkg/admtlm/admtlm_bypassad.F 116 ADMTLM_BYPASSAD 
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 117 ADMTLM_BYPASSAD 
     &                + advvel(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 133 ADMTLM_BYPASSAD 
              do i = imin, imax
./pkg/admtlm/admtlm_bypassad.F 134 ADMTLM_BYPASSAD 
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 135 ADMTLM_BYPASSAD 
     &                + aduvel(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 151 ADMTLM_BYPASSAD 
              do i = imin, imax
./pkg/admtlm/admtlm_bypassad.F 152 ADMTLM_BYPASSAD 
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 153 ADMTLM_BYPASSAD 
     &                + adsalt(i,j,k,bi,bj)*fac
./pkg/admtlm/admtlm_bypassad.F 169 ADMTLM_BYPASSAD 
              do i = imin, imax
./pkg/admtlm/admtlm_bypassad.F 170 ADMTLM_BYPASSAD 
                tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 171 ADMTLM_BYPASSAD 
     &                + adtheta(i,j,k,bi,bj)*fac
./pkg/admtlm/admtlm_bypassad.F 33 ADMTLM_BYPASSAD 
      integer i, j, k
./pkg/admtlm/admtlm_bypassad.F 75 ADMTLM_BYPASSAD 
         DO i = imin, imax
./pkg/admtlm/admtlm_bypassad.F 77 ADMTLM_BYPASSAD 
            adtheta(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F 78 ADMTLM_BYPASSAD 
     &       g_objf_state_final(i,j,bi,bj,k)
./pkg/admtlm/admtlm_bypassad.F 79 ADMTLM_BYPASSAD 
            adsalt(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F 80 ADMTLM_BYPASSAD 
     &       g_objf_state_final(i,j,bi,bj,1*Nr+k)
./pkg/admtlm/admtlm_bypassad.F 81 ADMTLM_BYPASSAD 
            aduvel(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F 82 ADMTLM_BYPASSAD 
     &       g_objf_state_final(i,j,bi,bj,2*Nr+k)
./pkg/admtlm/admtlm_bypassad.F 83 ADMTLM_BYPASSAD 
            advvel(i,j,k,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F 84 ADMTLM_BYPASSAD 
     &       g_objf_state_final(i,j,bi,bj,3*Nr+k)
./pkg/admtlm/admtlm_bypassad.F 86 ADMTLM_BYPASSAD 
          adetan(i,j,bi,bj) =
./pkg/admtlm/admtlm_bypassad.F 87 ADMTLM_BYPASSAD 
     &       g_objf_state_final(i,j,bi,bj,4*Nr+1)
./pkg/admtlm/admtlm_bypassad.F 98 ADMTLM_BYPASSAD 
            do i = imin, imax
./pkg/admtlm/admtlm_bypassad.F 99 ADMTLM_BYPASSAD 
              tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj)
./pkg/admtlm/admtlm_dsvd2model.F 247 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarindex(i), i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 248 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarrecs(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 249 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarxmax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 250 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarymax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 251 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvarnrmax(i), i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 252 ADMTLM_DSVD2MODEL 
          read(cunit) (filencvargrd(i),   i=1,maxcvars)
./pkg/admtlm/admtlm_dsvd2model.F 71 ADMTLM_DSVD2MODEL 
      integer i, j, k
./pkg/admtlm/admtlm_init_fixed.F 28 ADMTLM_INIT_FIXED 
      integer i, j, k
./pkg/admtlm/admtlm_init_fixed.F 49 ADMTLM_INIT_FIXED 
         DO i=1,sNx
./pkg/admtlm/admtlm_init_fixed.F 50 ADMTLM_INIT_FIXED 
          wetan(i,j,bi,bj) = 1. / (0.1 _d 0)**2
./pkg/admtlm/admtlm_map.F 28 ADMTLM_MAP 
      integer i, j, k
./pkg/admtlm/admtlm_map.F 34 ADMTLM_MAP 
         DO i=1,sNx
./pkg/admtlm/admtlm_map.F 36 ADMTLM_MAP 
            adobjf_state_final(i,j,bi,bj,k) =
./pkg/admtlm/admtlm_map.F 37 ADMTLM_MAP 
     &       g_objf_state_final(i,j,bi,bj,k)
./pkg/admtlm/admtlm_map.F 39 ADMTLM_MAP 
           adobjf_state_final(i,j,bi,bj,4*Nr+1) =
./pkg/admtlm/admtlm_map.F 40 ADMTLM_MAP 
     &      g_objf_state_final(i,j,bi,bj,4*Nr+1)
./pkg/admtlm/admtlm_metric.F 31 ADMTLM_METRIC 
      integer i, j, k
./pkg/admtlm/admtlm_metric.F 54 ADMTLM_METRIC 
         DO i=1,sNx
./pkg/admtlm/admtlm_metric.F 57 ADMTLM_METRIC 
     &      + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2
./pkg/admtlm/admtlm_metric.F 58 ADMTLM_METRIC 
     &      + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2
./pkg/admtlm/admtlm_metric.F 59 ADMTLM_METRIC 
     &      + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2
./pkg/admtlm/admtlm_metric.F 60 ADMTLM_METRIC 
     &      + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2
./pkg/admtlm/admtlm_metric.F 63 ADMTLM_METRIC 
     &      + g_objf_state_final(i,j,bi,bj,1+4*Nr)**2/stdDevetan**2
./pkg/admtlm/admtlm_metric.F 76 ADMTLM_METRIC 
         DO i=1,sNx
./pkg/admtlm/admtlm_model2dsvd.F 233 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarindex(i), i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 234 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarrecs(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 235 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarxmax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 236 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarymax(i),  i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 237 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvarnrmax(i), i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 238 ADMTLM_MODEL2DSVD 
          write(cunit) (ncvargrd(i),   i=1,maxcvars)
./pkg/admtlm/admtlm_model2dsvd.F 68 ADMTLM_MODEL2DSVD 
      integer i, j, k
./pkg/aim_compon_interf/atm_apply_import.F 104 ATM_APPLY_IMPORT 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_apply_import.F 105 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 106 ATM_APPLY_IMPORT 
            v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj)
./pkg/aim_compon_interf/atm_apply_import.F 119 ATM_APPLY_IMPORT 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_apply_import.F 120 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 123 ATM_APPLY_IMPORT 
           IF ( aimSIfrc(i,j).EQ.0. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 124 ATM_APPLY_IMPORT 
            aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/aim_compon_interf/atm_apply_import.F 125 ATM_APPLY_IMPORT 
           ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0)  THEN
./pkg/aim_compon_interf/atm_apply_import.F 128 ATM_APPLY_IMPORT 
            aimTsoce(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/aim_compon_interf/atm_apply_import.F 129 ATM_APPLY_IMPORT 
            aimSIfrc(i,j) = 0.
./pkg/aim_compon_interf/atm_apply_import.F 62 ATM_APPLY_IMPORT 
      INTEGER i,j
./pkg/aim_compon_interf/atm_apply_import.F 71 ATM_APPLY_IMPORT 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_apply_import.F 72 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 73 ATM_APPLY_IMPORT 
            hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj)
./pkg/aim_compon_interf/atm_apply_import.F 82 ATM_APPLY_IMPORT 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_apply_import.F 83 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 84 ATM_APPLY_IMPORT 
            tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj)
./pkg/aim_compon_interf/atm_apply_import.F 93 ATM_APPLY_IMPORT 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_apply_import.F 94 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/aim_compon_interf/atm_apply_import.F 95 ATM_APPLY_IMPORT 
            sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj)
./pkg/aim_compon_interf/atm_cpl_read_pickup.F 41 ATM_CPL_READ_PICKUP 
      INTEGER i,j,bi,bj
./pkg/aim_compon_interf/atm_cpl_read_pickup.F 86 ATM_CPL_READ_PICKUP 
           DO i=1-Olx,sNx+Olx
./pkg/aim_compon_interf/atm_cpl_read_pickup.F 87 ATM_CPL_READ_PICKUP 
            EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh
./pkg/aim_compon_interf/atm_cpl_read_pickup.F 88 ATM_CPL_READ_PICKUP 
            RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh
./pkg/aim_compon_interf/atm_export_atmconfig.F 37 ATM_EXPORT_ATMCONFIG 
      INTEGER i,j,bi,bj
./pkg/aim_compon_interf/atm_export_atmconfig.F 48 ATM_EXPORT_ATMCONFIG 
         DO i=1-Olx,sNx+Olx
./pkg/aim_compon_interf/atm_export_atmconfig.F 49 ATM_EXPORT_ATMCONFIG 
          tmpBuf8(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./pkg/aim_compon_interf/atm_export_fld.F 53 ATM_EXPORT_FLD 
      INTEGER i,j,bi,bj
./pkg/aim_compon_interf/atm_export_fld.F 62 ATM_EXPORT_FLD 
          DO i=1,sNx
./pkg/aim_compon_interf/atm_export_fld.F 63 ATM_EXPORT_FLD 
           atmFld(i,j,bi,bj) = atmFld(i,j,bi,bj)*recipAvT
./pkg/aim_compon_interf/atm_export_fld.F 87 ATM_EXPORT_FLD 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_export_fld.F 88 ATM_EXPORT_FLD 
          atmFld(i,j,bi,bj) = 0.
./pkg/aim_compon_interf/atm_import_ocnconfig.F 39 ATM_IMPORT_OCNCONFIG 
      INTEGER i,j,bi,bj
./pkg/aim_compon_interf/atm_import_ocnconfig.F 45 ATM_IMPORT_OCNCONFIG 
         DO i=1-Olx,sNx+Olx
./pkg/aim_compon_interf/atm_import_ocnconfig.F 46 ATM_IMPORT_OCNCONFIG 
          ocMxlD (i,j,bi,bj) = 0.
./pkg/aim_compon_interf/atm_store_airco2.F 61 ATM_STORE_AIRCO2 
      INTEGER i,j, ij
./pkg/aim_compon_interf/atm_store_airco2.F 69 ATM_STORE_AIRCO2 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_airco2.F 70 ATM_STORE_AIRCO2 
          ij = i + (j-1)*sNx
./pkg/aim_compon_interf/atm_store_airco2.F 71 ATM_STORE_AIRCO2 
          airCO2(i,j,bi,bj) = airCO2(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_atmslp.F 45 ATM_STORE_ATMSLP 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_atmslp.F 53 ATM_STORE_ATMSLP 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_atmslp.F 54 ATM_STORE_ATMSLP 
          atmSLPr(i,j,bi,bj) = atmSLPr(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_atmslp.F 55 ATM_STORE_ATMSLP 
     &                 + etaN(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_evmpr.F 45 ATM_STORE_EVMPR 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_evmpr.F 56 ATM_STORE_EVMPR 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_evmpr.F 57 ATM_STORE_EVMPR 
          EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_evmpr.F 58 ATM_STORE_EVMPR 
     &                         + EmPmR(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_fracice.F 54 ATM_STORE_FRACICE 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_fracice.F 62 ATM_STORE_FRACICE 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_fracice.F 63 ATM_STORE_FRACICE 
          fracIce(i,j,bi,bj) = fracIce(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_fracice.F 64 ATM_STORE_FRACICE 
     &                       + iceMask(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_heatflux.F 45 ATM_STORE_HEATFLUX 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_heatflux.F 64 ATM_STORE_HEATFLUX 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_heatflux.F 65 ATM_STORE_HEATFLUX 
          HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_heatflux.F 66 ATM_STORE_HEATFLUX 
     &                        + Qnet(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_qshortwave.F 45 ATM_STORE_QSHORTWAVE 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_qshortwave.F 54 ATM_STORE_QSHORTWAVE 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_qshortwave.F 55 ATM_STORE_QSHORTWAVE 
          qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_qshortwave.F 56 ATM_STORE_QSHORTWAVE 
     &                          + Qsw(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_roenfx.F 54 ATM_STORE_ROENFX 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_roenfx.F 62 ATM_STORE_ROENFX 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_roenfx.F 63 ATM_STORE_ROENFX 
          RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_roenfx.F 64 ATM_STORE_ROENFX 
     &                 + land_enRnOf(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_saltfx.F 45 ATM_STORE_SALTFX 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_saltfx.F 53 ATM_STORE_SALTFX 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_saltfx.F 54 ATM_STORE_SALTFX 
          iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_saltfx.F 55 ATM_STORE_SALTFX 
     &                 + saltFlux(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_seaice.F 49 ATM_STORE_SEAICE 
      INTEGER i,j
./pkg/aim_compon_interf/atm_store_seaice.F 60 ATM_STORE_SEAICE 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_seaice.F 62 ATM_STORE_SEAICE 
          seaIceMass(i,j,bi,bj) =
./pkg/aim_compon_interf/atm_store_seaice.F 63 ATM_STORE_SEAICE 
     &                   ( snowHeight(i,j,bi,bj)*rhos
./pkg/aim_compon_interf/atm_store_seaice.F 64 ATM_STORE_SEAICE 
     &                    + iceHeight(i,j,bi,bj)*rhoi
./pkg/aim_compon_interf/atm_store_seaice.F 65 ATM_STORE_SEAICE 
     &                   )*iceMask(i,j,bi,bj)*cplTimeFraction
./pkg/aim_compon_interf/atm_store_taux.F 51 ATM_STORE_TAUX 
      INTEGER i,j,k
./pkg/aim_compon_interf/atm_store_taux.F 65 ATM_STORE_TAUX 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_taux.F 67 ATM_STORE_TAUX 
          IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_taux.F 69 ATM_STORE_TAUX 
     &      ( aim_drag(i-1,j,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 70 ATM_STORE_TAUX 
     &       *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_taux.F 71 ATM_STORE_TAUX 
     &      + aim_drag( i ,j,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 72 ATM_STORE_TAUX 
     &       *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_taux.F 73 ATM_STORE_TAUX 
     &      )* 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 74 ATM_STORE_TAUX 
           tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 84 ATM_STORE_TAUX 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_taux.F 86 ATM_STORE_TAUX 
          IF ( hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_taux.F 88 ATM_STORE_TAUX 
     &      ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_compon_interf/atm_store_taux.F 89 ATM_STORE_TAUX 
     &       * 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 90 ATM_STORE_TAUX 
           tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 51 ATM_STORE_TAUY 
      INTEGER i,j,k
./pkg/aim_compon_interf/atm_store_tauy.F 65 ATM_STORE_TAUY 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_tauy.F 67 ATM_STORE_TAUY 
          IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_tauy.F 69 ATM_STORE_TAUY 
     &      ( aim_drag(i,j-1,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 70 ATM_STORE_TAUY 
     &       *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_tauy.F 71 ATM_STORE_TAUY 
     &      + aim_drag(i, j ,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 72 ATM_STORE_TAUY 
     &       *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_tauy.F 73 ATM_STORE_TAUY 
     &      )* 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 74 ATM_STORE_TAUY 
           tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 84 ATM_STORE_TAUY 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_tauy.F 86 ATM_STORE_TAUY 
          IF ( hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_compon_interf/atm_store_tauy.F 88 ATM_STORE_TAUY 
     &      ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_compon_interf/atm_store_tauy.F 89 ATM_STORE_TAUY 
     &       * 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 90 ATM_STORE_TAUY 
           tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/aim_compon_interf/atm_store_wspeed.F 57 ATM_STORE_WSPEED 
      INTEGER i,j, ij
./pkg/aim_compon_interf/atm_store_wspeed.F 65 ATM_STORE_WSPEED 
         DO i=1,sNx
./pkg/aim_compon_interf/atm_store_wspeed.F 66 ATM_STORE_WSPEED 
          ij = i + (j-1)*sNx
./pkg/aim_compon_interf/atm_store_wspeed.F 67 ATM_STORE_WSPEED 
          sWSpeed(i,j,bi,bj) = sWSpeed(i,j,bi,bj)
./eesupp/src/fill_cs_corner_ag_rl.F 135 FILL_CS_CORNER_AG_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_ag_rl.F 136 FILL_CS_CORNER_AG_RL 
            uFld( 1-i , 1-j ) = vFld( 1-j , i  )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 137 FILL_CS_CORNER_AG_RL 
            vFld( 1-i , 1-j ) = uFld( 1-j , i  )
./eesupp/src/fill_cs_corner_ag_rl.F 143 FILL_CS_CORNER_AG_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_ag_rl.F 144 FILL_CS_CORNER_AG_RL 
            uFld(sNx+i, 1-j ) = vFld(sNx+j, i  )
./eesupp/src/fill_cs_corner_ag_rl.F 145 FILL_CS_CORNER_AG_RL 
            vFld(sNx+i, 1-j ) = uFld(sNx+j, i  )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 151 FILL_CS_CORNER_AG_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_ag_rl.F 152 FILL_CS_CORNER_AG_RL 
            uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i )
./eesupp/src/fill_cs_corner_ag_rl.F 153 FILL_CS_CORNER_AG_RL 
            vFld( 1-i ,sNy+j) = uFld( 1-j , sNy+1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 159 FILL_CS_CORNER_AG_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_ag_rl.F 160 FILL_CS_CORNER_AG_RL 
            uFld(sNx+i,sNy+j) = vFld(sNx+j, sNy+1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 161 FILL_CS_CORNER_AG_RL 
            vFld(sNx+i,sNy+j) = uFld(sNx+j, sNy+1-i )
./eesupp/src/fill_cs_corner_ag_rl.F 209 FILL_CS_CORNER_AG_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_ag_rl.F 210 FILL_CS_CORNER_AG_RL 
            uFld( 1-i , 1-j ) = vFld(   j   , 1-i )
./eesupp/src/fill_cs_corner_ag_rl.F 211 FILL_CS_CORNER_AG_RL 
            vFld( 1-i , 1-j ) = uFld(   j   , 1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 217 FILL_CS_CORNER_AG_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_ag_rl.F 218 FILL_CS_CORNER_AG_RL 
            uFld(sNx+i, 1-j ) = vFld(sNx+1-j, 1-i )*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 219 FILL_CS_CORNER_AG_RL 
            vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i )
./eesupp/src/fill_cs_corner_ag_rl.F 225 FILL_CS_CORNER_AG_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_ag_rl.F 226 FILL_CS_CORNER_AG_RL 
            uFld( 1-i ,sNy+j) = vFld(   j   ,sNy+i)*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 227 FILL_CS_CORNER_AG_RL 
            vFld( 1-i ,sNy+j) = uFld(   j   ,sNy+i)
./eesupp/src/fill_cs_corner_ag_rl.F 233 FILL_CS_CORNER_AG_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_ag_rl.F 234 FILL_CS_CORNER_AG_RL 
            uFld(sNx+i,sNy+j) = vFld(sNx+1-j,sNy+i)
./eesupp/src/fill_cs_corner_ag_rl.F 235 FILL_CS_CORNER_AG_RL 
            vFld(sNx+i,sNy+j) = uFld(sNx+1-j,sNy+i)*negOne
./eesupp/src/fill_cs_corner_ag_rl.F 60 FILL_CS_CORNER_AG_RL 
      INTEGER i,j
./pkg/aim_v23/aim_aim2dyn.F 100 AIM_AIM2DYN 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2dyn.F 101 AIM_AIM2DYN 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2dyn.F 103 AIM_AIM2DYN 
         aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid)
./pkg/aim_v23/aim_aim2dyn.F 110 AIM_AIM2DYN 
         aim_dSdt(i,j,k,bi,bj) =   QT_CNV(I2,Katm,myThid)
./pkg/aim_v23/aim_aim2dyn.F 130 AIM_AIM2DYN 
          DO i=1,sNx
./pkg/aim_v23/aim_aim2dyn.F 131 AIM_AIM2DYN 
           aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 132 AIM_AIM2DYN 
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 133 AIM_AIM2DYN 
     &                             /rStarExpC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 134 AIM_AIM2DYN 
           aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 135 AIM_AIM2DYN 
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 136 AIM_AIM2DYN 
     &                             /rStarExpC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 141 AIM_AIM2DYN 
         DO i=1,sNx
./pkg/aim_v23/aim_aim2dyn.F 142 AIM_AIM2DYN 
          IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN
./pkg/aim_v23/aim_aim2dyn.F 143 AIM_AIM2DYN 
           aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 144 AIM_AIM2DYN 
     &                            /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 145 AIM_AIM2DYN 
           aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 146 AIM_AIM2DYN 
     &                            /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 148 AIM_AIM2DYN 
           aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 149 AIM_AIM2DYN 
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 150 AIM_AIM2DYN 
           aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 151 AIM_AIM2DYN 
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 161 AIM_AIM2DYN 
         DO i=1,sNx
./pkg/aim_v23/aim_aim2dyn.F 162 AIM_AIM2DYN 
          aim_dTdt(i,j,k,bi,bj) =  aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 163 AIM_AIM2DYN 
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 164 AIM_AIM2DYN 
          aim_dSdt(i,j,k,bi,bj) =  aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 165 AIM_AIM2DYN 
     &                         *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 65 AIM_AIM2DYN 
      INTEGER i,j,k
./pkg/aim_v23/aim_aim2dyn.F 87 AIM_AIM2DYN 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2dyn.F 88 AIM_AIM2DYN 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2dyn.F 89 AIM_AIM2DYN 
         aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid)
./pkg/aim_v23/aim_aim2land.F 100 AIM_AIM2LAND 
         DO i=1,sNx
./pkg/aim_v23/aim_aim2land.F 101 AIM_AIM2LAND 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F 102 AIM_AIM2LAND 
          IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR.
./pkg/aim_v23/aim_aim2land.F 103 AIM_AIM2LAND 
     &         land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2land.F 104 AIM_AIM2LAND 
           land_HeatFlx(i,j,bi,bj) = land_HeatFlx(i,j,bi,bj)
./pkg/aim_v23/aim_aim2land.F 106 AIM_AIM2LAND 
           land_EnWFlux(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2land.F 118 AIM_AIM2LAND 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2land.F 119 AIM_AIM2LAND 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F 123 AIM_AIM2LAND 
         land_Pr_m_Ev(i,j,bi,bj) = land_Pr_m_Ev(i,j,bi,bj)
./pkg/aim_v23/aim_aim2land.F 136 AIM_AIM2LAND 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2land.F 137 AIM_AIM2LAND 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F 138 AIM_AIM2LAND 
         land_EnWFlux(i,j,bi,bj) = land_EnWFlux(i,j,bi,bj)
./pkg/aim_v23/aim_aim2land.F 61 AIM_AIM2LAND 
      INTEGER i,j,k,I2
./pkg/aim_v23/aim_aim2land.F 66 AIM_AIM2LAND 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2land.F 67 AIM_AIM2LAND 
         land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2land.F 68 AIM_AIM2LAND 
         land_EnWFlux(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2land.F 85 AIM_AIM2LAND 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2land.F 86 AIM_AIM2LAND 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2land.F 89 AIM_AIM2LAND 
         land_HeatFlx(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2sioce.F 100 AIM_AIM2SIOCE 
        IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F 103 AIM_AIM2SIOCE 
         prcAtm(i,j)     = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 104 AIM_AIM2SIOCE 
         Qnet(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 105 AIM_AIM2SIOCE 
         EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 106 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj)  = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 108 AIM_AIM2SIOCE 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F 111 AIM_AIM2SIOCE 
         prcAtm(i,j) = ( PRECNV(I2,myThid)
./pkg/aim_v23/aim_aim2sioce.F 117 AIM_AIM2SIOCE 
         Qnet(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2sioce.F 124 AIM_AIM2SIOCE 
         EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid)
./pkg/aim_v23/aim_aim2sioce.F 125 AIM_AIM2SIOCE 
     &                      - prcAtm(i,j) ) * convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F 128 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj) = SSR(I2,2,myThid)
./pkg/aim_v23/aim_aim2sioce.F 137 AIM_AIM2SIOCE 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2sioce.F 138 AIM_AIM2SIOCE 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F 144 AIM_AIM2SIOCE 
         icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F 150 AIM_AIM2SIOCE 
         icFrac = iceMask(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 152 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 153 AIM_AIM2SIOCE 
     &                  + opFrac*Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 161 AIM_AIM2SIOCE 
          DO i=1,sNx
./pkg/aim_v23/aim_aim2sioce.F 162 AIM_AIM2SIOCE 
           IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F 163 AIM_AIM2SIOCE 
            I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F 166 AIM_AIM2SIOCE 
              sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 167 AIM_AIM2SIOCE 
     &                            + EnPrec(I2,myThid)*prcAtm(i,j)
./pkg/aim_v23/aim_aim2sioce.F 168 AIM_AIM2SIOCE 
              snowPrc(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 171 AIM_AIM2SIOCE 
              snowPrc(i,j,bi,bj) = prcAtm(i,j)*convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F 174 AIM_AIM2SIOCE 
              snowPrc(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 187 AIM_AIM2SIOCE 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2sioce.F 188 AIM_AIM2SIOCE 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F 189 AIM_AIM2SIOCE 
         IF ( siceFrac(i,j) .GT. 0. ) THEN
./pkg/aim_v23/aim_aim2sioce.F 190 AIM_AIM2SIOCE 
          icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj))
./pkg/aim_v23/aim_aim2sioce.F 194 AIM_AIM2SIOCE 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac
./pkg/aim_v23/aim_aim2sioce.F 201 AIM_AIM2SIOCE 
          EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac
./pkg/aim_v23/aim_aim2sioce.F 203 AIM_AIM2SIOCE 
     &                       - prcAtm(i,j) ) * convPrcEvp * icFrac
./pkg/aim_v23/aim_aim2sioce.F 206 AIM_AIM2SIOCE 
          Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 219 AIM_AIM2SIOCE 
         DO i=1,sNx
./pkg/aim_v23/aim_aim2sioce.F 220 AIM_AIM2SIOCE 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_aim2sioce.F 221 AIM_AIM2SIOCE 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 222 AIM_AIM2SIOCE 
     &                    + EnPrec(I2,myThid)*prcAtm(i,j)
./pkg/aim_v23/aim_aim2sioce.F 228 AIM_AIM2SIOCE 
        DO i=1,sNx
./pkg/aim_v23/aim_aim2sioce.F 230 AIM_AIM2SIOCE 
          prcAtm(i,j) = prcAtm(i,j) * convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F 232 AIM_AIM2SIOCE 
          Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 233 AIM_AIM2SIOCE 
          Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 89 AIM_AIM2SIOCE 
      INTEGER i,j,I2
./pkg/aim_v23/aim_aim2sioce.F 99 AIM_AIM2SIOCE 
       DO i=1,sNx
./pkg/aim_v23/aim_diagnostics.F 311 AIM_DIAGNOSTICS 
          TSRtave(i,j,bi,bj)    = TSRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 313 AIM_DIAGNOSTICS 
          OLRtave(i,j,bi,bj)    = OLRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 315 AIM_DIAGNOSTICS 
          SSRtave(i,j,bi,bj)    = SSRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 317 AIM_DIAGNOSTICS 
          SLRtave(i,j,bi,bj)    = SLRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 319 AIM_DIAGNOSTICS 
          SHFtave(i,j,bi,bj)    = SHFtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 321 AIM_DIAGNOSTICS 
          EVAPtave(i,j,bi,bj)   = EVAPtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 323 AIM_DIAGNOSTICS 
          PRECNVtave(i,j,bi,bj) = PRECNVtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 325 AIM_DIAGNOSTICS 
          PRECLStave(i,j,bi,bj) = PRECLStave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 327 AIM_DIAGNOSTICS 
          CLOUDCtave(i,j,bi,bj) = CLOUDCtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 329 AIM_DIAGNOSTICS 
          CLTOPtave(i,j,bi,bj)  = CLTOPtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 331 AIM_DIAGNOSTICS 
          CBMFtave(i,j,bi,bj)   = CBMFtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 333 AIM_DIAGNOSTICS 
          DRAGtave(i,j,bi,bj)   = DRAGtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 335 AIM_DIAGNOSTICS 
          aimV0tave(i,j,bi,bj)  = aimV0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 337 AIM_DIAGNOSTICS 
          aimT0tave(i,j,bi,bj)  = aimT0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 339 AIM_DIAGNOSTICS 
          aimQ0tave(i,j,bi,bj)  = aimQ0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 341 AIM_DIAGNOSTICS 
          EnFxPrtave(i,j,bi,bj) = EnFxPrtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 345 AIM_DIAGNOSTICS 
          albedotave(i,j,bi,bj) = albedotave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 347 AIM_DIAGNOSTICS 
          dTsurftave(i,j,bi,bj) = dTsurftave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 356 AIM_DIAGNOSTICS 
          DO i=1,sNx
./pkg/aim_v23/aim_diagnostics.F 357 AIM_DIAGNOSTICS 
           I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_diagnostics.F 358 AIM_DIAGNOSTICS 
           aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj)
./eesupp/src/fill_cs_corner_tr_rl.F 105 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 106 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i, 1-j ) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F 112 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 113 FILL_CS_CORNER_TR_RL 
            trFld( 1-i ,sNy+j) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F 119 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 120 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i,sNy+j) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F 167 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 168 FILL_CS_CORNER_TR_RL 
            trFld( 1-i , 1-j ) = negOne*trFld( 1-j , i  )
./eesupp/src/fill_cs_corner_tr_rl.F 174 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 175 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i, 1-j ) = negOne*trFld(sNx+j, i  )
./eesupp/src/fill_cs_corner_tr_rl.F 181 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 182 FILL_CS_CORNER_TR_RL 
            trFld( 1-i ,sNy+j) = negOne*trFld( 1-j , sNy+1-i )
./eesupp/src/fill_cs_corner_tr_rl.F 188 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 189 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i,sNy+j) = negOne*trFld(sNx+j, sNy+1-i )
./eesupp/src/fill_cs_corner_tr_rl.F 237 FILL_CS_CORNER_TR_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_tr_rl.F 238 FILL_CS_CORNER_TR_RL 
            trFld( 1-i , 1-j ) = negOne*trFld(   j   , 1-i )
./eesupp/src/fill_cs_corner_tr_rl.F 244 FILL_CS_CORNER_TR_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_tr_rl.F 245 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i, 1-j ) = negOne*trFld(sNx+1-j, 1-i )
./eesupp/src/fill_cs_corner_tr_rl.F 251 FILL_CS_CORNER_TR_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_tr_rl.F 252 FILL_CS_CORNER_TR_RL 
            trFld( 1-i ,sNy+j) = negOne*trFld(   j   ,sNy+i)
./eesupp/src/fill_cs_corner_tr_rl.F 258 FILL_CS_CORNER_TR_RL 
           DO i=1,Olx
./eesupp/src/fill_cs_corner_tr_rl.F 259 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i,sNy+j) = negOne*trFld(sNx+1-j,sNy+i)
./eesupp/src/fill_cs_corner_tr_rl.F 60 FILL_CS_CORNER_TR_RL 
      INTEGER i,j
./eesupp/src/fill_cs_corner_tr_rl.F 98 FILL_CS_CORNER_TR_RL 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_tr_rl.F 99 FILL_CS_CORNER_TR_RL 
            trFld( 1-i , 1-j ) = 0. _d 0
./pkg/aim_v23/aim_do_co2.F 152 AIM_DO_CO2 
          DO i = 1,MAX_LEN_FNAM
./pkg/aim_v23/aim_do_co2.F 153 AIM_DO_CO2 
            fn(i:i) = ' '
./pkg/aim_v23/aim_do_co2.F 49 AIM_DO_CO2 
      INTEGER bi, bj, i, j
./pkg/aim_v23/aim_do_co2.F 66 AIM_DO_CO2 
          DO i=1,sNx
./pkg/aim_v23/aim_do_co2.F 67 AIM_DO_CO2 
           aimflxCo2(i,j,bi,bj) = flxCO2ocn(i,j,bi,bj)
./pkg/aim_v23/aim_do_co2.F 88 AIM_DO_CO2 
           DO i=1,sNx
./pkg/aim_v23/aim_do_co2.F 89 AIM_DO_CO2 
            flxCO2tile(bi,bj)=flxCO2tile(bi,bj) + aimflxCo2(i,j,bi,bj)
./pkg/aim_v23/aim_do_co2.F 90 AIM_DO_CO2 
     &                      * rA(i,j,bi,bj) * deltaT
./pkg/aim_v23/aim_do_physics.F 125 AIM_DO_PHYSICS 
       DO i=1,sNx
./pkg/aim_v23/aim_do_physics.F 126 AIM_DO_PHYSICS 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_do_physics.F 127 AIM_DO_PHYSICS 
         PHI0(I2) = gravity*topoZ(i,j,bi,bj)
./pkg/aim_v23/aim_do_physics.F 73 AIM_DO_PHYSICS 
      INTEGER i,j,k,I2
./pkg/aim_v23/aim_do_physics.F 91 AIM_DO_PHYSICS 
       DO i = 1-Olx, sNx+Olx
./pkg/aim_v23/aim_do_physics.F 92 AIM_DO_PHYSICS 
        k = ksurfC(i,j,bi,bj)
./pkg/aim_v23/aim_do_physics.F 94 AIM_DO_PHYSICS 
     &    salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F 95 AIM_DO_PHYSICS 
     &                      + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k)
./pkg/aim_v23/aim_do_physics.F 96 AIM_DO_PHYSICS 
     &                  *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F 97 AIM_DO_PHYSICS 
        salt(i,j,Nr,bi,bj) = 0.
./pkg/aim_v23/aim_dyn2aim.F 110 AIM_DYN2AIM 
          DO i = 1,sNx
./pkg/aim_v23/aim_dyn2aim.F 111 AIM_DYN2AIM 
           I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F 112 AIM_DYN2AIM 
           dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 121 AIM_DYN2AIM 
          DO i = 1,sNx
./pkg/aim_v23/aim_dyn2aim.F 122 AIM_DYN2AIM 
           I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F 123 AIM_DYN2AIM 
           IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN
./pkg/aim_v23/aim_dyn2aim.F 124 AIM_DYN2AIM 
            dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 126 AIM_DYN2AIM 
            dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 140 AIM_DYN2AIM 
          DO i = 1,sNx
./pkg/aim_v23/aim_dyn2aim.F 141 AIM_DYN2AIM 
           I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_dyn2aim.F 142 AIM_DYN2AIM 
           dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 165 AIM_DYN2AIM 
         IF (maskC(i,j,k,bi,bj).EQ.1. _d 0) THEN
./pkg/aim_v23/aim_dyn2aim.F 189 AIM_DYN2AIM 
        K = ksurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 209 AIM_DYN2AIM 
         i = 1 + mod((I2-1),sNx)
./pkg/aim_v23/aim_dyn2aim.F 217 AIM_DYN2AIM 
     &        i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 93 AIM_DYN2AIM 
        K = ksurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 96 AIM_DYN2AIM 
         PSA(I2) = Ro_surf(i,j,bi,bj)/atm_po
./pkg/aim_v23/aim_fields_load.F 169 AIM_FIELDS_LOAD 
            DO i=1,sNx
./pkg/aim_v23/aim_fields_load.F 185 AIM_FIELDS_LOAD 
            DO i=1,sNx
./pkg/aim_v23/aim_fields_load.F 187 AIM_FIELDS_LOAD 
             aim_sst0(i,j,bi,bj) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 188 AIM_FIELDS_LOAD 
     &                           * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 213 AIM_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./pkg/aim_v23/aim_fields_load.F 215 AIM_FIELDS_LOAD 
            aim_albedo(i,j,bi,bj)= 0.
./pkg/aim_v23/aim_fields_load.F 216 AIM_FIELDS_LOAD 
            aim_veget(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 217 AIM_FIELDS_LOAD 
            aim_sst0(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 218 AIM_FIELDS_LOAD 
            aim_lst0(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 219 AIM_FIELDS_LOAD 
            aim_oic0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 220 AIM_FIELDS_LOAD 
            aim_snw0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 221 AIM_FIELDS_LOAD 
            aim_sw10(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 222 AIM_FIELDS_LOAD 
            aim_sw20(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 223 AIM_FIELDS_LOAD 
            aim_qfx0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 224 AIM_FIELDS_LOAD 
            aim_sst1(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 225 AIM_FIELDS_LOAD 
            aim_lst1(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 226 AIM_FIELDS_LOAD 
            aim_oic1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 227 AIM_FIELDS_LOAD 
            aim_snw1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 228 AIM_FIELDS_LOAD 
            aim_sw11(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 229 AIM_FIELDS_LOAD 
            aim_sw21(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 230 AIM_FIELDS_LOAD 
            aim_qfx1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 313 AIM_FIELDS_LOAD 
            DO i=1,sNx
./pkg/aim_v23/aim_fields_load.F 314 AIM_FIELDS_LOAD 
             aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0
./pkg/aim_v23/aim_fields_load.F 321 AIM_FIELDS_LOAD 
            DO i=1,sNx
./pkg/aim_v23/aim_fields_load.F 322 AIM_FIELDS_LOAD 
             aim_veget(i,j,bi,bj) =
./pkg/aim_v23/aim_fields_load.F 323 AIM_FIELDS_LOAD 
     &                 MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0)
./pkg/aim_v23/aim_fields_load.F 332 AIM_FIELDS_LOAD 
           DO i=1,sNx
./pkg/aim_v23/aim_fields_load.F 334 AIM_FIELDS_LOAD 
             aim_lst0(i,j,bi,bj) = aim_lst0(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 335 AIM_FIELDS_LOAD 
     &                           * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 336 AIM_FIELDS_LOAD 
             aim_lst1(i,j,bi,bj) = aim_lst1(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 337 AIM_FIELDS_LOAD 
     &                           * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 57 AIM_FIELDS_LOAD 
      INTEGER bi,bj, i, j
./pkg/aim_v23/aim_initialise.F 109 AIM_INITIALISE 
         DO i=1-Olx,sNx+Olx
./pkg/aim_v23/aim_initialise.F 110 AIM_INITIALISE 
          aim_landFr   (i,j,bi,bj) = 0.
./pkg/aim_v23/aim_initialise.F 49 AIM_INITIALISE 
      INTEGER i, j, k
./pkg/aim_v23/aim_initialise.F 87 AIM_INITIALISE 
         DO i=1,sNx
./pkg/aim_v23/aim_initialise.F 88 AIM_INITIALISE 
          tmpPgrnd = truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_initialise.F 89 AIM_INITIALISE 
          tmpVar   = Ro_surf(i,j,bi,bj)
./pkg/aim_v23/aim_initialise.F 91 AIM_INITIALISE 
          truncSurfP(i,j,bi,bj) = ( tmpVar/tmpPgrnd )**atm_kappa
./pkg/aim_v23/aim_initialise.F 96 AIM_INITIALISE 
          DO i=1,sNx
./pkg/aim_v23/aim_initialise.F 97 AIM_INITIALISE 
           tmpVar   = Ro_surf(i,j,bi,bj)
./pkg/aim_v23/aim_initialise.F 98 AIM_INITIALISE 
           truncSurfP(i,j,bi,bj) = ( tmpVar/atm_Po )**atm_kappa
./pkg/aim_v23/aim_land2aim.F 103 AIM_LAND2AIM 
          DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 104 AIM_LAND2AIM 
           land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K
./pkg/aim_v23/aim_land2aim.F 109 AIM_LAND2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 110 AIM_LAND2AIM 
           land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/aim_v23/aim_land2aim.F 123 AIM_LAND2AIM 
          DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 124 AIM_LAND2AIM 
           aimSWA(i,j) = land_groundW(i,j,1,bi,bj)
./pkg/aim_v23/aim_land2aim.F 125 AIM_LAND2AIM 
     &                 + land_hSnow(i,j,bi,bj)*recip_hSnWet
./pkg/aim_v23/aim_land2aim.F 126 AIM_LAND2AIM 
           aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 )
./pkg/aim_v23/aim_land2aim.F 136 AIM_LAND2AIM 
          DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 137 AIM_LAND2AIM 
           aimSWA(i,j) = land_groundW(i,j,1,bi,bj)
./pkg/aim_v23/aim_land2aim.F 138 AIM_LAND2AIM 
     &                 + snowFld(i,j)*recip_mSnWet
./pkg/aim_v23/aim_land2aim.F 139 AIM_LAND2AIM 
           aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 )
./pkg/aim_v23/aim_land2aim.F 149 AIM_LAND2AIM 
          DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 150 AIM_LAND2AIM 
           land_groundW(i,j,k,bi,bj) = aimSWA(i,j)
./pkg/aim_v23/aim_land2aim.F 159 AIM_LAND2AIM 
          DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 163 AIM_LAND2AIM 
     &               *land_groundW(i,j,k,bi,bj)
./pkg/aim_v23/aim_land2aim.F 166 AIM_LAND2AIM 
             land_enthalp(i,j,k,bi,bj) =
./pkg/aim_v23/aim_land2aim.F 167 AIM_LAND2AIM 
     &                     grd_HeatCp*land_groundT(i,j,k,bi,bj)
./pkg/aim_v23/aim_land2aim.F 190 AIM_LAND2AIM 
          DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 191 AIM_LAND2AIM 
           aimAlb(i,j) = grnd_alb(i,j,bi,bj)
./pkg/aim_v23/aim_land2aim.F 192 AIM_LAND2AIM 
     &       + MAX( 0. _d 0, ALBSN-grnd_alb(i,j,bi,bj) )
./pkg/aim_v23/aim_land2aim.F 193 AIM_LAND2AIM 
     &        *MIN( 1. _d 0, RSD*snowFld(i,j) )
./pkg/aim_v23/aim_land2aim.F 84 AIM_LAND2AIM 
      INTEGER i,j,k
./pkg/aim_v23/aim_land2aim.F 95 AIM_LAND2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_land2aim.F 96 AIM_LAND2AIM 
           aimTld(i,j) = land_skinT(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_land_impl.F 101 AIM_LAND_IMPL 
         DO i=1,sNx
./pkg/aim_v23/aim_land_impl.F 102 AIM_LAND_IMPL 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_land_impl.F 103 AIM_LAND_IMPL 
          IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR.
./pkg/aim_v23/aim_land_impl.F 104 AIM_LAND_IMPL 
     &         land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN
./pkg/aim_v23/aim_land_impl.F 108 AIM_LAND_IMPL 
           land_EnWFlux(i,j,bi,bj) = -ALHF
./pkg/aim_v23/aim_land_impl.F 136 AIM_LAND_IMPL 
        DO i=1,sNx
./pkg/aim_v23/aim_land_impl.F 137 AIM_LAND_IMPL 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_land_impl.F 140 AIM_LAND_IMPL 
          land_HeatFlx(i,j,bi,bj) = sFlx(I2,0)
./pkg/aim_v23/aim_land_impl.F 142 AIM_LAND_IMPL 
          land_HeatFlx(i,j,bi,bj) = sFlx(I2,1)+dTsurf(I2)*sFlx(I2,2)
./pkg/aim_v23/aim_land_impl.F 145 AIM_LAND_IMPL 
         land_EnWFlux(i,j,bi,bj) = -land_EnWFlux(i,j,bi,bj)*EVAP(I2)
./pkg/aim_v23/aim_land_impl.F 81 AIM_LAND_IMPL 
      INTEGER i,j, I2
./pkg/aim_v23/aim_land_impl.F 87 AIM_LAND_IMPL 
        DO i=1,sNx
./pkg/aim_v23/aim_land_impl.F 88 AIM_LAND_IMPL 
         I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_land_impl.F 92 AIM_LAND_IMPL 
         land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_land_impl.F 93 AIM_LAND_IMPL 
         land_EnWFlux(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_mnc_init.F 148 AIM_MNC_INIT 
      DO i = 1,CW_MAX_LOC
./pkg/aim_v23/aim_mnc_init.F 150 AIM_MNC_INIT 
          dn(i)(j:j) = ' '
./pkg/aim_v23/aim_mnc_init.F 152 AIM_MNC_INIT 
        dim(i) = 0
./pkg/aim_v23/aim_mnc_init.F 153 AIM_MNC_INIT 
        ib(i) = 0
./pkg/aim_v23/aim_mnc_init.F 154 AIM_MNC_INIT 
        ie(i) = 0
./pkg/aim_v23/aim_mnc_init.F 33 AIM_MNC_INIT 
      INTEGER i,j, ndim
./eesupp/src/fill_cs_corner_uv_rs.F 128 FILL_CS_CORNER_UV_RS 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 129 FILL_CS_CORNER_UV_RS 
            uFld( 1-i , 1-j ) = negOne*vFld( 1-j , 1+i )
./eesupp/src/fill_cs_corner_uv_rs.F 134 FILL_CS_CORNER_UV_RS 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 135 FILL_CS_CORNER_UV_RS 
            vFld( 1-i , 1-j ) = negOne*uFld( 1+j , 1-i )
./eesupp/src/fill_cs_corner_uv_rs.F 143 FILL_CS_CORNER_UV_RS 
           DO i=2,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 144 FILL_CS_CORNER_UV_RS 
            uFld(sNx+i, 1-j ) = vFld(sNx+j, i  )
./eesupp/src/fill_cs_corner_uv_rs.F 149 FILL_CS_CORNER_UV_RS 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 150 FILL_CS_CORNER_UV_RS 
            vFld(sNx+i, 1-j ) = uFld(sNx+1-j, 1-i  )
./eesupp/src/fill_cs_corner_uv_rs.F 158 FILL_CS_CORNER_UV_RS 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 159 FILL_CS_CORNER_UV_RS 
            uFld( 1-i ,sNy+j) = vFld( 1-j , sNy+1-i )
./eesupp/src/fill_cs_corner_uv_rs.F 164 FILL_CS_CORNER_UV_RS 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 165 FILL_CS_CORNER_UV_RS 
            vFld( 1-i ,sNy+j) = uFld(  j  , sNy+i )
./eesupp/src/fill_cs_corner_uv_rs.F 173 FILL_CS_CORNER_UV_RS 
           DO i=2,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 174 FILL_CS_CORNER_UV_RS 
            uFld(sNx+i,sNy+j) = negOne*vFld(sNx+j, sNy+2-i )
./eesupp/src/fill_cs_corner_uv_rs.F 179 FILL_CS_CORNER_UV_RS 
           DO i=1,OLx
./eesupp/src/fill_cs_corner_uv_rs.F 180 FILL_CS_CORNER_UV_RS 
            vFld(sNx+i,sNy+j) = negOne*uFld(sNx+2-j, sNy+i )
./eesupp/src/fill_cs_corner_uv_rs.F 57 FILL_CS_CORNER_UV_RS 
      INTEGER i,j
./pkg/aim_v23/aim_sice2aim.F 100 AIM_SICE2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_sice2aim.F 101 AIM_SICE2AIM 
           Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K
./pkg/aim_v23/aim_sice2aim.F 102 AIM_SICE2AIM 
           Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 103 AIM_SICE2AIM 
           Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 104 AIM_SICE2AIM 
           iceMask(i,j,bi,bj) = aimSIfrc(i,j)
./pkg/aim_v23/aim_sice2aim.F 120 AIM_SICE2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_sice2aim.F 121 AIM_SICE2AIM 
          aimAlb(i,j) = siceAlb(i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 127 AIM_SICE2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_sice2aim.F 128 AIM_SICE2AIM 
           aimAlb(i,j) = ALBICE
./pkg/aim_v23/aim_sice2aim.F 144 AIM_SICE2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_sice2aim.F 145 AIM_SICE2AIM 
          IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_sice2aim.F 146 AIM_SICE2AIM 
           tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K
./pkg/aim_v23/aim_sice2aim.F 147 AIM_SICE2AIM 
           sOceMxL(i,j,bi,bj) = sMxL_default
./pkg/aim_v23/aim_sice2aim.F 163 AIM_SICE2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_sice2aim.F 164 AIM_SICE2AIM 
          IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_sice2aim.F 165 AIM_SICE2AIM 
           aimTsoce(i,j) = tOceMxL(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_sice2aim.F 87 AIM_SICE2AIM 
      INTEGER i,j
./pkg/aim_v23/aim_sice2aim.F 92 AIM_SICE2AIM 
         DO i=1,sNx
./pkg/aim_v23/aim_sice2aim.F 93 AIM_SICE2AIM 
           aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_sice2aim.F 94 AIM_SICE2AIM 
           aimSIfrc(i,j) = iceMask(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 101 AIM_SURF_BC 
        DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 102 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 103 AIM_SURF_BC 
          fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 141 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 142 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 143 AIM_SURF_BC 
          sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 144 AIM_SURF_BC 
     &                    + aim_sWght1*aim_sst1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 145 AIM_SURF_BC 
          stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 146 AIM_SURF_BC 
     &                    + aim_sWght1*aim_lst1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 159 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 160 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 161 AIM_SURF_BC 
          soilw_0 = ( aim_sw10(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 162 AIM_SURF_BC 
     &     +aim_veget(i,j,bi,bj)*
./pkg/aim_v23/aim_surf_bc.F 163 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0)
./pkg/aim_v23/aim_surf_bc.F 165 AIM_SURF_BC 
          soilw_1 = ( aim_sw11(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 166 AIM_SURF_BC 
     &     +aim_veget(i,j,bi,bj)*
./pkg/aim_v23/aim_surf_bc.F 167 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0)
./pkg/aim_v23/aim_surf_bc.F 177 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 178 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 179 AIM_SURF_BC 
          snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 180 AIM_SURF_BC 
     &              + aim_sWght1*aim_snw1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 181 AIM_SURF_BC 
          oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 182 AIM_SURF_BC 
     &              + aim_sWght1*aim_oic1(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 214 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 219 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 220 AIM_SURF_BC 
          alb_land = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 221 AIM_SURF_BC 
     &       + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./pkg/aim_v23/aim_surf_bc.F 228 AIM_SURF_BC 
           SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/aim_v23/aim_surf_bc.F 229 AIM_SURF_BC 
           CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/aim_v23/aim_surf_bc.F 278 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 279 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 280 AIM_SURF_BC 
          alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 281 AIM_SURF_BC 
          alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 282 AIM_SURF_BC 
          alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 287 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 288 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 298 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 299 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 300 AIM_SURF_BC 
          sst1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 301 AIM_SURF_BC 
          stl1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 302 AIM_SURF_BC 
          sti1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 307 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 308 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 319 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 320 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 321 AIM_SURF_BC 
          soilw1(I2,myThid) = aim_sw10(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 326 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 327 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 336 AIM_SURF_BC 
         DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 337 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 359 AIM_SURF_BC 
        DO i=1,sNx
./pkg/aim_v23/aim_surf_bc.F 360 AIM_SURF_BC 
           I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 86 AIM_SURF_BC 
      INTEGER i,j,I2,k, nm0
./pkg/aim_v23/aim_tendency_apply.F 101 AIM_TENDENCY_APPLY_U 
        DO i=iMin,iMax
./pkg/aim_v23/aim_tendency_apply.F 102 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,kLev-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F 103 AIM_TENDENCY_APPLY_U 
     &    .AND. maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 105 AIM_TENDENCY_APPLY_U 
     &      -( (1.-maskC(i-1,j,kLev-1,bi,bj))*aim_drag(i-1,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 106 AIM_TENDENCY_APPLY_U 
     &        +(1.-maskC( i ,j,kLev-1,bi,bj))*aim_drag( i ,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 107 AIM_TENDENCY_APPLY_U 
     &       )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 108 AIM_TENDENCY_APPLY_U 
          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 110 AIM_TENDENCY_APPLY_U 
     &                       * recip_hFacW(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 111 AIM_TENDENCY_APPLY_U 
          aim_uStress(i,j,bi,bj) = uStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 112 AIM_TENDENCY_APPLY_U 
          aim_KEuStr(i,j,bi,bj)  = uStr_tmp * uVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 181 AIM_TENDENCY_APPLY_V 
      INTEGER i, j
./pkg/aim_v23/aim_tendency_apply.F 189 AIM_TENDENCY_APPLY_V 
        DO i=1-Olx,sNx+Olx
./pkg/aim_v23/aim_tendency_apply.F 190 AIM_TENDENCY_APPLY_V 
         aim_vStress(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F 191 AIM_TENDENCY_APPLY_V 
         aim_KEvStr(i,j,bi,bj)  = 0.
./pkg/aim_v23/aim_tendency_apply.F 201 AIM_TENDENCY_APPLY_V 
        DO i=iMin,iMax
./pkg/aim_v23/aim_tendency_apply.F 202 AIM_TENDENCY_APPLY_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 203 AIM_TENDENCY_APPLY_V 
     &     -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F 204 AIM_TENDENCY_APPLY_V 
          aim_KEvStr(i,j,bi,bj) = aim_KEvStr(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 205 AIM_TENDENCY_APPLY_V 
     &        -maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 206 AIM_TENDENCY_APPLY_V 
     &        *vVel(i,j,kLev,bi,bj)*hFacS(i,j,kLev,bi,bj)*drF(kLev)
./pkg/aim_v23/aim_tendency_apply.F 212 AIM_TENDENCY_APPLY_V 
        DO i=iMin,iMax
./pkg/aim_v23/aim_tendency_apply.F 213 AIM_TENDENCY_APPLY_V 
         IF ( maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 215 AIM_TENDENCY_APPLY_V 
     &     -( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 216 AIM_TENDENCY_APPLY_V 
     &       * 0.5 _d 0 * vVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 217 AIM_TENDENCY_APPLY_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 219 AIM_TENDENCY_APPLY_V 
     &                       * recip_hFacS(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 220 AIM_TENDENCY_APPLY_V 
          aim_vStress(i,j,bi,bj) = vStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 221 AIM_TENDENCY_APPLY_V 
          aim_KEvStr(i,j,bi,bj)  = vStr_tmp * vVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 227 AIM_TENDENCY_APPLY_V 
        DO i=iMin,iMax
./pkg/aim_v23/aim_tendency_apply.F 228 AIM_TENDENCY_APPLY_V 
         IF ( maskS(i,j,kLev-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F 229 AIM_TENDENCY_APPLY_V 
     &    .AND. maskS(i,j,kLev,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 231 AIM_TENDENCY_APPLY_V 
     &     -( (1.-maskC(i,j-1,kLev-1,bi,bj))*aim_drag(i,j-1,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 232 AIM_TENDENCY_APPLY_V 
     &       +(1.-maskC(i, j ,kLev-1,bi,bj))*aim_drag(i, j ,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 233 AIM_TENDENCY_APPLY_V 
     &      )* 0.5 _d 0 * vVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 234 AIM_TENDENCY_APPLY_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 236 AIM_TENDENCY_APPLY_V 
     &                       * recip_hFacS(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 237 AIM_TENDENCY_APPLY_V 
          aim_vStress(i,j,bi,bj) = vStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 238 AIM_TENDENCY_APPLY_V 
          aim_KEvStr(i,j,bi,bj)  = vStr_tmp * vVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 304 AIM_TENDENCY_APPLY_T 
        gT(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 305 AIM_TENDENCY_APPLY_T 
     &       *( gT(i,j,kLev,bi,bj) + aim_dTdt(i,j,kLev,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 354 AIM_TENDENCY_APPLY_S 
        gS(i,j,kLev,bi,bj) = maskC(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 355 AIM_TENDENCY_APPLY_S 
     &       *( gS(i,j,kLev,bi,bj) + aim_dSdt(i,j,kLev,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 55 AIM_TENDENCY_APPLY_U 
      INTEGER i, j
./pkg/aim_v23/aim_tendency_apply.F 63 AIM_TENDENCY_APPLY_U 
        DO i=1-Olx,sNx+Olx
./pkg/aim_v23/aim_tendency_apply.F 64 AIM_TENDENCY_APPLY_U 
         aim_uStress(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F 65 AIM_TENDENCY_APPLY_U 
         aim_KEuStr(i,j,bi,bj)  = 0.
./pkg/aim_v23/aim_tendency_apply.F 75 AIM_TENDENCY_APPLY_U 
        DO i=iMin,iMax
./pkg/aim_v23/aim_tendency_apply.F 76 AIM_TENDENCY_APPLY_U 
          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 77 AIM_TENDENCY_APPLY_U 
     &     -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F 78 AIM_TENDENCY_APPLY_U 
          aim_KEuStr(i,j,bi,bj) = aim_KEuStr(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 79 AIM_TENDENCY_APPLY_U 
     &        -maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 80 AIM_TENDENCY_APPLY_U 
     &        *uVel(i,j,kLev,bi,bj)*hFacW(i,j,kLev,bi,bj)*drF(kLev)
./pkg/aim_v23/aim_tendency_apply.F 86 AIM_TENDENCY_APPLY_U 
        DO i=iMin,iMax
./pkg/aim_v23/aim_tendency_apply.F 87 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,kLev,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 89 AIM_TENDENCY_APPLY_U 
     &     -( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 90 AIM_TENDENCY_APPLY_U 
     &       * 0.5 _d 0 * uVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 91 AIM_TENDENCY_APPLY_U 
          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 93 AIM_TENDENCY_APPLY_U 
     &                       * recip_hFacW(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 94 AIM_TENDENCY_APPLY_U 
          aim_uStress(i,j,bi,bj) = uStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 95 AIM_TENDENCY_APPLY_U 
          aim_KEuStr(i,j,bi,bj)  = uStr_tmp * uVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_write_local.F 52 AIM_WRITE_LOCAL 
      INTEGER i, j, k, Katm
./pkg/aim_v23/aim_write_local.F 76 AIM_WRITE_LOCAL 
         DO i=1,sNx
./pkg/aim_v23/aim_write_local.F 77 AIM_WRITE_LOCAL 
          tmpFld(i,j,k) = field(i,j,Katm)
./pkg/aim_v23/aim_write_local.F 85 AIM_WRITE_LOCAL 
         DO i=1,sNx
./pkg/aim_v23/aim_write_local.F 86 AIM_WRITE_LOCAL 
          tmpFld(i,j,k) = field(i,j,k)
./pkg/aim_v23/aim_write_phys.F 106 AIM_WRITE_PHYS 
           DO i=1,sNx
./pkg/aim_v23/aim_write_phys.F 107 AIM_WRITE_PHYS 
            tmpFld(i,j,1) = field(i,j,kLev,ith)
./pkg/aim_v23/aim_write_phys.F 115 AIM_WRITE_PHYS 
           DO i=1,sNx
./pkg/aim_v23/aim_write_phys.F 116 AIM_WRITE_PHYS 
            tmpFld(i,j,k) = field(i,j,Katm,ith)
./pkg/aim_v23/aim_write_phys.F 124 AIM_WRITE_PHYS 
           DO i=1,sNx
./pkg/aim_v23/aim_write_phys.F 125 AIM_WRITE_PHYS 
            tmpFld(i,j,k) = field(i,j,k,ith)
./pkg/aim_v23/aim_write_phys.F 55 AIM_WRITE_PHYS 
      INTEGER i, j, k, Katm, nLoc
./eesupp/src/gather_xz.F 18 GATHER_XZ 
      INTEGER iG, i, bi, bj
./eesupp/src/gather_xz.F 35 GATHER_XZ 
               DO i=1,sNx
./eesupp/src/gather_xz.F 36 GATHER_XZ 
                  iG = myXGlobalLo-1+(bi-1)*sNx+i
./eesupp/src/gather_xz.F 37 GATHER_XZ 
                  global(iG) = local(i,bi,bj)
./eesupp/src/gather_xz.F 55 GATHER_XZ 
                  DO i=1,sNx
./eesupp/src/gather_xz.F 56 GATHER_XZ 
                     iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i
./eesupp/src/gather_xz.F 57 GATHER_XZ 
                     global(iG) = local(i,bi,bj)
./eesupp/src/gather_xz.F 74 GATHER_XZ 
                     DO i=1,sNx
./eesupp/src/gather_xz.F 75 GATHER_XZ 
                        iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i
./eesupp/src/gather_xz.F 76 GATHER_XZ 
                        global(iG) = temp(i,bi,bj)
./pkg/atm2d/atm2d_write_pickup.F 141 ATM2D_WRITE_PICKUP_NOW 
      INTEGER prec, i,j
./pkg/atm2d/calc_1dto2d.F 103 CALC_WGHT2D 
      SUBROUTINE CALC_WGHT2D( i, j, ind, wgt)
./pkg/atm2d/calc_1dto2d.F 128 CALC_WGHT2D 
      INTEGER    i, j
./pkg/atm2d/calc_1dto2d.F 132 CALC_WGHT2D 
      precipo_2D(i,j)= precipo_2D(i,j) + atm_precip(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 133 CALC_WGHT2D 
      solarnet_ocn_2D(i,j)=solarnet_ocn_2D(i,j) + atm_solar_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 134 CALC_WGHT2D 
      slp_2D(i,j)= slp_2D(i,j) + atm_slp(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 135 CALC_WGHT2D 
      pCO2_2D(i,j)= pCO2_2D(i,j) + atm_pco2(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 136 CALC_WGHT2D 
      wspeed_2D(i,j)= wspeed_2D(i,j) + atm_windspeed(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 137 CALC_WGHT2D 
      fu_2D(i,j)= fu_2D(i,j) + atm_tauu(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 139 CALC_WGHT2D 
      qneto_2D(i,j)= qneto_2D(i,j) + atm_qnet_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 140 CALC_WGHT2D 
      evapo_2D(i,j)= evapo_2D(i,j) + atm_evap_ocn(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 141 CALC_WGHT2D 
      IF (evapo_2D(i,j).GT.0. _d 0) THEN  !convert negative evap. to precip
./pkg/atm2d/calc_1dto2d.F 142 CALC_WGHT2D 
        precipo_2D(i,j)= precipo_2D(i,j) - evapo_2D(i,j)
./pkg/atm2d/calc_1dto2d.F 143 CALC_WGHT2D 
        evapo_2D(i,j)=0. _d 0
./pkg/atm2d/calc_1dto2d.F 146 CALC_WGHT2D 
      IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F 147 CALC_WGHT2D 
        qneti_2D(i,j)= qneti_2D(i,j) + atm_qnet_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 148 CALC_WGHT2D 
        precipi_2D(i,j)= precipi_2D(i,j) + atm_precip(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 149 CALC_WGHT2D 
        evapi_2D(i,j)= evapi_2D(i,j) + atm_evap_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 150 CALC_WGHT2D 
        IF (evapi_2D(i,j).GT.0. _d 0) THEN  !convert negative evap. to precip
./pkg/atm2d/calc_1dto2d.F 151 CALC_WGHT2D 
          precipi_2D(i,j)= precipi_2D(i,j) - evapi_2D(i,j)
./pkg/atm2d/calc_1dto2d.F 152 CALC_WGHT2D 
          evapi_2D(i,j)=0. _d 0
./pkg/atm2d/calc_1dto2d.F 154 CALC_WGHT2D 
        dFdT_ice_2D(i,j)= dFdT_ice_2D(i,j) + atm_dFdT_ice(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 155 CALC_WGHT2D 
        Tair_2D(i,j)= Tair_2D(i,j) + atm_Tair(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 156 CALC_WGHT2D 
        solarinc_2D(i,j)= solarinc_2D(i,j) + atm_solarinc(ind)*wgt
./pkg/atm2d/calc_1dto2d.F 160 CALC_WGHT2D 
        qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocnq(ind)*
./pkg/atm2d/calc_1dto2d.F 161 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 162 CALC_WGHT2D 
        evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocnq(ind)*
./pkg/atm2d/calc_1dto2d.F 163 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 164 CALC_WGHT2D 
        IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F 165 CALC_WGHT2D 
          qneti_2D(i,j)=qneti_2D(i,j)+atm_dFdt_iceq(ind)*
./pkg/atm2d/calc_1dto2d.F 166 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 167 CALC_WGHT2D 
          evapi_2D(i,j)=evapi_2D(i,j)+atm_dLdt_iceq(ind)*
./pkg/atm2d/calc_1dto2d.F 168 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 171 CALC_WGHT2D 
        qneto_2D(i,j)= qneto_2D(i,j) + atm_dFdt_ocn(ind)*
./pkg/atm2d/calc_1dto2d.F 172 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 173 CALC_WGHT2D 
        evapo_2D(i,j)= evapo_2D(i,j) + atm_dLdt_ocn(ind)*
./pkg/atm2d/calc_1dto2d.F 174 CALC_WGHT2D 
     &             (sstFromOcn(i,j)-ctocn(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 175 CALC_WGHT2D 
        IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F 176 CALC_WGHT2D 
          qneti_2D(i,j)= qneti_2D(i,j) + atm_dFdt_ice(ind)*
./pkg/atm2d/calc_1dto2d.F 177 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 178 CALC_WGHT2D 
          evapi_2D(i,j)= evapi_2D(i,j)+atm_dLdt_ice(ind)*
./pkg/atm2d/calc_1dto2d.F 179 CALC_WGHT2D 
     &             (Tsrf(i,j,1,1)-ctice(ind))*wgt
./pkg/atm2d/calc_1dto2d.F 211 INIT_2DFLD 
      INTEGER i,j
./pkg/atm2d/calc_1dto2d.F 213 INIT_2DFLD 
      DO i=1,sNx
./pkg/atm2d/calc_1dto2d.F 216 INIT_2DFLD 
          precipo_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 217 INIT_2DFLD 
          precipi_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 218 INIT_2DFLD 
          solarnet_ocn_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 219 INIT_2DFLD 
          slp_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 220 INIT_2DFLD 
          pCO2_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 221 INIT_2DFLD 
          wspeed_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 222 INIT_2DFLD 
          fu_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 223 INIT_2DFLD 
          fv_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 224 INIT_2DFLD 
          qneto_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 225 INIT_2DFLD 
          evapo_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 226 INIT_2DFLD 
          qneti_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 227 INIT_2DFLD 
          evapi_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 228 INIT_2DFLD 
          dFdT_ice_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 229 INIT_2DFLD 
          Tair_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 230 INIT_2DFLD 
          solarinc_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 231 INIT_2DFLD 
          runoff_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 34 CALC_1DTO2D 
      INTEGER i,j           ! loop counters across ocean grid
./pkg/atm2d/calc_1dto2d.F 61 CALC_1DTO2D 
        DO i=1,sNx
./pkg/atm2d/calc_1dto2d.F 63 CALC_1DTO2D 
          IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/calc_1dto2d.F 65 CALC_1DTO2D 
            runoff_2D(i,j) = run_b(runIndex(j)) *
./pkg/atm2d/calc_1dto2d.F 66 CALC_1DTO2D 
     &                       runoffVal(i,j)/rA(i,j,1,1)
./pkg/atm2d/calc_1dto2d.F 68 CALC_1DTO2D 
            CALL CALC_WGHT2D(i,j,atm_oc_ind(j),atm_oc_wgt(j))
./pkg/atm2d/calc_1dto2d.F 71 CALC_1DTO2D 
     &          CALL CALC_WGHT2D(i, j, atm_oc_ind(j)+1,
./pkg/atm2d/calc_1dto2d.F 74 CALC_1DTO2D 
            fv_2D(i,j) = fv_toC
./pkg/atm2d/calc_1dto2d.F 77 CALC_1DTO2D 
            qnet_atm(i,j)= qnet_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F 78 CALC_1DTO2D 
     &          qneti_2D(i,j)*dtatmo*iceMask(i,j,1,1) +
./pkg/atm2d/calc_1dto2d.F 79 CALC_1DTO2D 
     &          qneto_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F 80 CALC_1DTO2D 
            evap_atm(i,j)= evap_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F 81 CALC_1DTO2D 
     &          evapi_2D(i,j)*dtatmo*iceMask(i,j,1,1) +
./pkg/atm2d/calc_1dto2d.F 82 CALC_1DTO2D 
     &          evapo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F 83 CALC_1DTO2D 
            precip_atm(i,j)= precip_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F 84 CALC_1DTO2D 
     &           precipi_2D(i,j)*dtatmo*iceMask(i,j,1,1) +
./pkg/atm2d/calc_1dto2d.F 85 CALC_1DTO2D 
     &           precipo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F 86 CALC_1DTO2D 
            runoff_atm(i,j)= runoff_atm(i,j) +
./pkg/atm2d/calc_1dto2d.F 87 CALC_1DTO2D 
     &           runoff_2D(i,j)*dtatmo
./pkg/atm2d/calc_zonal_means.F 100 CALC_ZONAL_MEANS 
     &             rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F 102 CALC_ZONAL_MEANS 
     &                  oFluxCO2(i,j)*rA(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F 105 CALC_ZONAL_MEANS 
     &             Tsrf(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F 107 CALC_ZONAL_MEANS 
     &             siceAlb(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F 109 CALC_ZONAL_MEANS 
     &             icAlbNIR(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt
./pkg/atm2d/calc_zonal_means.F 47 CALC_ZONAL_MEANS 
      INTEGER i,j    ! loop counters for the ocean grid
./pkg/atm2d/calc_zonal_means.F 71 CALC_ZONAL_MEANS 
       DO i=1,sNx
./pkg/atm2d/calc_zonal_means.F 73 CALC_ZONAL_MEANS 
         IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/calc_zonal_means.F 77 CALC_ZONAL_MEANS 
     &                             sstFromOcn(i,j) * rA(i,j,1,1) *
./pkg/atm2d/calc_zonal_means.F 78 CALC_ZONAL_MEANS 
     &                      (1. _d 0-iceMask(i,j,1,1))*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 80 CALC_ZONAL_MEANS 
     &              rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 82 CALC_ZONAL_MEANS 
     &                  oFluxCO2(i,j)*rA(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 84 CALC_ZONAL_MEANS 
           ctice(atm_oc_ind(j))=ctice(atm_oc_ind(j)) + Tsrf(i,j,1,1)
./pkg/atm2d/calc_zonal_means.F 85 CALC_ZONAL_MEANS 
     &             *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 86 CALC_ZONAL_MEANS 
           csAlb(atm_oc_ind(j))=csAlb(atm_oc_ind(j)) + siceAlb(i,j,1,1)
./pkg/atm2d/calc_zonal_means.F 87 CALC_ZONAL_MEANS 
     &             *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 89 CALC_ZONAL_MEANS 
     &             icAlbNIR(i,j,1,1)
./pkg/atm2d/calc_zonal_means.F 90 CALC_ZONAL_MEANS 
     &             *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 97 CALC_ZONAL_MEANS 
     &                                 sstFromOcn(i,j) * rA(i,j,1,1) *
./pkg/atm2d/calc_zonal_means.F 98 CALC_ZONAL_MEANS 
     &                                 (1. _d 0-iceMask(i,j,1,1))*mWgt
./pkg/atm2d/cpl_send_ocn_atmconfig.F 28 CPL_SEND_OCN_ATMCONFIG 
      INTEGER i,j
./pkg/atm2d/cpl_send_ocn_atmconfig.F 32 CPL_SEND_OCN_ATMCONFIG 
      DO i=1,Nx_ocn
./pkg/atm2d/cpl_send_ocn_atmconfig.F 34 CPL_SEND_OCN_ATMCONFIG 
          AtmDepths_ocn(i,j)=1. _d 5   !ocean code checks for this
./pkg/atm2d/fixed_flux_add.F 119 FIXED_FLUX_ADD 
        DO i=1,sNx
./pkg/atm2d/fixed_flux_add.F 120 FIXED_FLUX_ADD 
         IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/fixed_flux_add.F 122 FIXED_FLUX_ADD 
          fu_2D(i,j)= fu_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F 123 FIXED_FLUX_ADD 
     &                (wght0*tau0(i,j,1,1) + wght1*tau1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 124 FIXED_FLUX_ADD 
          fv_2D(i,j)= fv_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F 125 FIXED_FLUX_ADD 
     &                (wght0*tav0(i,j,1,1) + wght1*tav1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 126 FIXED_FLUX_ADD 
          wspeed_2D(i,j)= wspeed_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F 127 FIXED_FLUX_ADD 
     &                (wght0*wind0(i,j,1,1) + wght1*wind1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 129 FIXED_FLUX_ADD 
          qfadj = (wght0*qnet0(i,j,1,1) + wght1*qnet1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 131 FIXED_FLUX_ADD 
     &       (iceMask(i,j,1,1) .LT. 0.999 _d 0)) THEN
./pkg/atm2d/fixed_flux_add.F 132 FIXED_FLUX_ADD 
               qneto_2D(i,j)= qneto_2D(i,j) + qfadj
./pkg/atm2d/fixed_flux_add.F 133 FIXED_FLUX_ADD 
     &                / (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 138 FIXED_FLUX_ADD 
            evapo_2D(i,j)= -(wght0*evap0(i,j,1,1) + wght1*evap1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 139 FIXED_FLUX_ADD 
            precipo_2D(i,j)= (wght0*precip0(i,j,1,1) + wght1*precip1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 140 FIXED_FLUX_ADD 
            IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/fixed_flux_add.F 141 FIXED_FLUX_ADD 
              evapi_2D(i,j)= -(wght0*evap0(i,j,1,1) + wght1*evap1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 142 FIXED_FLUX_ADD 
              precipi_2D(i,j)= (wght0*precip0(i,j,1,1) +
./pkg/atm2d/fixed_flux_add.F 143 FIXED_FLUX_ADD 
     &                          wght1*precip1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 146 FIXED_FLUX_ADD 
            evapo_2D(i,j)= evapo_2D(i,j) -
./pkg/atm2d/fixed_flux_add.F 147 FIXED_FLUX_ADD 
     &                (wght0*evap0(i,j,1,1) + wght1*evap1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 148 FIXED_FLUX_ADD 
            precipo_2D(i,j)= precipo_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F 149 FIXED_FLUX_ADD 
     &                (wght0*precip0(i,j,1,1) + wght1*precip1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 150 FIXED_FLUX_ADD 
            IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/fixed_flux_add.F 151 FIXED_FLUX_ADD 
              evapi_2D(i,j)= evapi_2D(i,j) -
./pkg/atm2d/fixed_flux_add.F 152 FIXED_FLUX_ADD 
     &                (wght0*evap0(i,j,1,1) + wght1*evap1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 153 FIXED_FLUX_ADD 
              precipi_2D(i,j)= precipi_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F 154 FIXED_FLUX_ADD 
     &                (wght0*precip0(i,j,1,1) + wght1*precip1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 159 FIXED_FLUX_ADD 
              runoff_2D(i,j)= (wght0*runoff0(i,j,1,1) + wght1*runoff1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 161 FIXED_FLUX_ADD 
              runoff_2D(i,j)= runoff_2D(i,j) +
./pkg/atm2d/fixed_flux_add.F 162 FIXED_FLUX_ADD 
     &                (wght0*runoff0(i,j,1,1) + wght1*runoff1(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 41 FIXED_FLUX_ADD 
      INTEGER i,j   ! loop counters
./pkg/atm2d/get_ocnvars.F 100 GET_OCNVARS 
        DO i=1,sNx
./pkg/atm2d/get_ocnvars.F 101 GET_OCNVARS 
           mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F 107 GET_OCNVARS 
        DO i=1,sNx
./pkg/atm2d/get_ocnvars.F 108 GET_OCNVARS 
          v2ocMxL(i,j,1,1) =
./pkg/atm2d/get_ocnvars.F 109 GET_OCNVARS 
     &              ( uVel(i , j,1,1,1)*uVel(i , j,1,1,1)
./pkg/atm2d/get_ocnvars.F 110 GET_OCNVARS 
     &              + uVel(i+1,j,1,1,1)*uVel(i+1,j,1,1,1)
./pkg/atm2d/get_ocnvars.F 111 GET_OCNVARS 
     &              + vVel(i,j+1,1,1,1)*vVel(i,j+1,1,1,1)
./pkg/atm2d/get_ocnvars.F 112 GET_OCNVARS 
     &              + vVel(i,j , 1,1,1)*vVel(i,j , 1,1,1)
./pkg/atm2d/get_ocnvars.F 118 GET_OCNVARS 
        DO i=1,sNx
./pkg/atm2d/get_ocnvars.F 121 GET_OCNVARS 
          oFluxCO2(i,j) = fluxCO2(i,j,1,1)
./pkg/atm2d/get_ocnvars.F 125 GET_OCNVARS 
          tOceMxl(i,j,1,1)= sstFromOcn(i,j)
./pkg/atm2d/get_ocnvars.F 126 GET_OCNVARS 
          sOceMxl(i,j,1,1)= sssFromOcn(i,j)
./pkg/atm2d/get_ocnvars.F 127 GET_OCNVARS 
          hOceMxl(i,j,1,1) = mlDepth(i,j)
./pkg/atm2d/get_ocnvars.F 47 GET_OCNVARS 
      INTEGER i,j
./pkg/atm2d/get_ocnvars.F 53 GET_OCNVARS 
        DO i=1,sNx
./pkg/atm2d/get_ocnvars.F 54 GET_OCNVARS 
          sstFromOcn(i,j)= SST_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 55 GET_OCNVARS 
          sssFromOcn(i,j)= SSS_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 56 GET_OCNVARS 
          mlDepth(i,j) = OcMxlD_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 57 GET_OCNVARS 
          IF ( ocnCpl_exchange_DIC ) oFluxCO2(i,j) = fluxCO2_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 62 GET_OCNVARS 
          tOceMxl(i,j,1,1)= SST_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 63 GET_OCNVARS 
          sOceMxl(i,j,1,1)= SSS_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 64 GET_OCNVARS 
          hOceMxl(i,j,1,1) = OcMxlD_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 65 GET_OCNVARS 
          v2ocMxL(i,j,1,1) =  vSq_ocn(i,j)
./pkg/atm2d/get_ocnvars.F 71 GET_OCNVARS 
        DO i=1,sNx
./pkg/atm2d/get_ocnvars.F 72 GET_OCNVARS 
          sstFromOcn(i,j) = theta(i,j,1,1,1)
./pkg/atm2d/get_ocnvars.F 73 GET_OCNVARS 
          sssFromOcn(i,j) = salt (i,j,1,1,1)
./pkg/atm2d/get_ocnvars.F 83 GET_OCNVARS 
         DO i=1,sNx
./pkg/atm2d/get_ocnvars.F 84 GET_OCNVARS 
           mlDepth(i,j) =
./pkg/atm2d/get_ocnvars.F 85 GET_OCNVARS 
     &          h0FacC(i,j,1,1,1)*rStarFacC(i,j,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F 90 GET_OCNVARS 
         DO i=1,sNx
./pkg/atm2d/get_ocnvars.F 91 GET_OCNVARS 
           mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1)
./pkg/atm2d/init_atm2d.F 157 INIT_ATM2D 
        DO i=1,sNx
./pkg/atm2d/init_atm2d.F 158 INIT_ATM2D 
          IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/init_atm2d.F 160 INIT_ATM2D 
     &                           rA(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/init_atm2d.F 163 INIT_ATM2D 
     &                           rA(i,j,1,1)*(1.d0-atm_oc_wgt(j))
./pkg/atm2d/init_atm2d.F 248 INIT_ATM2D 
          DO i=1,sNx
./pkg/atm2d/init_atm2d.F 249 INIT_ATM2D 
            if ( (maskC(i,j,1,1,1).EQ.1.) .AND.
./pkg/atm2d/init_atm2d.F 250 INIT_ATM2D 
     &          ( (maskC(i-1,j,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F 251 INIT_ATM2D 
     &            (maskC(i+1,j,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F 252 INIT_ATM2D 
     &            (maskC(i,j-1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F 253 INIT_ATM2D 
     &            (maskC(i,j+1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F 254 INIT_ATM2D 
     &            (maskC(i+1,j+1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F 255 INIT_ATM2D 
     &            (maskC(i-1,j-1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F 256 INIT_ATM2D 
     &            (maskC(i+1,j-1,1,1,1).EQ.0.).OR.
./pkg/atm2d/init_atm2d.F 257 INIT_ATM2D 
     &            (maskC(i-1,j+1,1,1,1).EQ.0.) ) ) THEN
./pkg/atm2d/init_atm2d.F 258 INIT_ATM2D 
              runoffVal(i,j)=1. _d 0
./pkg/atm2d/init_atm2d.F 271 INIT_ATM2D 
          DO i=1,sNx
./pkg/atm2d/init_atm2d.F 272 INIT_ATM2D 
            totrun_b(ib)=totrun_b(ib)+runoffVal(i,j)*maskC(i,j,1,1,1)
./pkg/atm2d/init_atm2d.F 277 INIT_ATM2D 
          DO i=1,sNx
./pkg/atm2d/init_atm2d.F 278 INIT_ATM2D 
            runoffVal(i,j)=runoffVal(i,j)*maskC(i,j,1,1,1)/totrun_b(ib)
./pkg/atm2d/init_atm2d.F 296 INIT_ATM2D 
      DO i=1-OLx,sNx+OLx
./pkg/atm2d/init_atm2d.F 299 INIT_ATM2D 
            qnet_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 300 INIT_ATM2D 
            evap_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 301 INIT_ATM2D 
            precip_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 302 INIT_ATM2D 
            runoff_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 303 INIT_ATM2D 
            sum_qrel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 304 INIT_ATM2D 
            sum_frel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 305 INIT_ATM2D 
            sum_iceMask_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 306 INIT_ATM2D 
            sum_iceHeight_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 307 INIT_ATM2D 
            sum_iceTime_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 308 INIT_ATM2D 
            sum_oceMxLT_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 309 INIT_ATM2D 
            sum_oceMxLS_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 311 INIT_ATM2D 
          qnet_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 312 INIT_ATM2D 
          evap_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 313 INIT_ATM2D 
          precip_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 314 INIT_ATM2D 
          runoff_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 315 INIT_ATM2D 
          sum_qrel(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 316 INIT_ATM2D 
          sum_frel(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 317 INIT_ATM2D 
          sum_iceMask(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 318 INIT_ATM2D 
          sum_iceHeight(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 319 INIT_ATM2D 
          sum_iceTime(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 320 INIT_ATM2D 
          sum_oceMxLT(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 321 INIT_ATM2D 
          sum_oceMxLS(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 339 INIT_ATM2D 
      DO i=1-OLx,sNx+OLx
./pkg/atm2d/init_atm2d.F 341 INIT_ATM2D 
          pass_runoff(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 342 INIT_ATM2D 
          pass_qnet(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 343 INIT_ATM2D 
          pass_evap(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 344 INIT_ATM2D 
          pass_precip(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 345 INIT_ATM2D 
          pass_fu(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 346 INIT_ATM2D 
          pass_fv(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 347 INIT_ATM2D 
          pass_wspeed(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 348 INIT_ATM2D 
          pass_solarnet(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 349 INIT_ATM2D 
          pass_slp(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 350 INIT_ATM2D 
          pass_siceLoad(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 351 INIT_ATM2D 
          pass_pCO2(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 352 INIT_ATM2D 
          pass_prcAtm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 353 INIT_ATM2D 
          sFluxFromIce(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 358 INIT_ATM2D 
      DO i=1,sNx
./pkg/atm2d/init_atm2d.F 360 INIT_ATM2D 
          oFluxCO2(i,j) = 0. _d 0
./pkg/atm2d/init_atm2d.F 47 INIT_ATM2D 
      INTEGER i,j,jj
./pkg/atm2d/init_sumvars.F 26 INIT_SUMVARS 
      INTEGER i,j
./pkg/atm2d/init_sumvars.F 28 INIT_SUMVARS 
      DO i=1-OLx,sNx+OLx
./pkg/atm2d/init_sumvars.F 31 INIT_SUMVARS 
          sum_runoff(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 32 INIT_SUMVARS 
          sum_precip(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 33 INIT_SUMVARS 
          sum_evap(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 34 INIT_SUMVARS 
          sum_qnet(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 35 INIT_SUMVARS 
          sum_fu(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 36 INIT_SUMVARS 
          sum_fv(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 37 INIT_SUMVARS 
          sum_wspeed(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 38 INIT_SUMVARS 
          sum_solarnet(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 39 INIT_SUMVARS 
          sum_slp(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 40 INIT_SUMVARS 
          sum_pCO2(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 41 INIT_SUMVARS 
          sum_prcIce(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 42 INIT_SUMVARS 
          sum_snowPrc(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 43 INIT_SUMVARS 
          sum_evapIce(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 44 INIT_SUMVARS 
          sum_sHeat(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 45 INIT_SUMVARS 
          sum_flxCnB(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 107 MONTH_END_DIAGS 
        DO i=1,sNx
./pkg/atm2d/month_end_diags.F 109 MONTH_END_DIAGS 
          qnet_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 110 MONTH_END_DIAGS 
          evap_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 111 MONTH_END_DIAGS 
          precip_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 112 MONTH_END_DIAGS 
          runoff_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 113 MONTH_END_DIAGS 
          sum_qrel(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 114 MONTH_END_DIAGS 
          sum_frel(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 115 MONTH_END_DIAGS 
          sum_iceMask(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 116 MONTH_END_DIAGS 
          sum_iceHeight(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 117 MONTH_END_DIAGS 
          sum_iceTime(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 118 MONTH_END_DIAGS 
          sum_oceMxLT(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 119 MONTH_END_DIAGS 
          sum_oceMxLS(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 36 MONTH_END_DIAGS 
      INTEGER i,j
./pkg/atm2d/month_end_diags.F 42 MONTH_END_DIAGS 
        DO i=1,sNx
./pkg/atm2d/month_end_diags.F 44 MONTH_END_DIAGS 
          qnet_atm_ta(i,j,monid)= qnet_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 45 MONTH_END_DIAGS 
     &                            qnet_atm(i,j)
./pkg/atm2d/month_end_diags.F 46 MONTH_END_DIAGS 
          evap_atm_ta(i,j,monid)= evap_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 47 MONTH_END_DIAGS 
     &                            evap_atm(i,j)
./pkg/atm2d/month_end_diags.F 48 MONTH_END_DIAGS 
          precip_atm_ta(i,j,monid)= precip_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 49 MONTH_END_DIAGS 
     &                              precip_atm(i,j)
./pkg/atm2d/month_end_diags.F 50 MONTH_END_DIAGS 
          runoff_atm_ta(i,j,monid)=  runoff_atm_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 51 MONTH_END_DIAGS 
     &                               runoff_atm(i,j)
./pkg/atm2d/month_end_diags.F 52 MONTH_END_DIAGS 
          sum_qrel_ta(i,j,monid)= sum_qrel_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 53 MONTH_END_DIAGS 
     &                            sum_qrel(i,j)
./pkg/atm2d/month_end_diags.F 54 MONTH_END_DIAGS 
          sum_frel_ta(i,j,monid)= sum_frel_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 55 MONTH_END_DIAGS 
     &                            sum_frel(i,j)
./pkg/atm2d/month_end_diags.F 56 MONTH_END_DIAGS 
          sum_iceMask_ta(i,j,monid)= sum_iceMask_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 57 MONTH_END_DIAGS 
     &                               sum_iceMask(i,j)
./pkg/atm2d/month_end_diags.F 58 MONTH_END_DIAGS 
          sum_iceHeight_ta(i,j,monid)= sum_iceHeight_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 59 MONTH_END_DIAGS 
     &                                 sum_iceHeight(i,j)
./pkg/atm2d/month_end_diags.F 60 MONTH_END_DIAGS 
          sum_iceTime_ta(i,j,monid)= sum_iceTime_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 61 MONTH_END_DIAGS 
     &                               sum_iceTime(i,j)
./pkg/atm2d/month_end_diags.F 62 MONTH_END_DIAGS 
          sum_oceMxLT_ta(i,j,monid)= sum_oceMxLT_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 63 MONTH_END_DIAGS 
     &                               sum_oceMxLT(i,j)
./pkg/atm2d/month_end_diags.F 64 MONTH_END_DIAGS 
          sum_oceMxLS_ta(i,j,monid)= sum_oceMxLS_ta(i,j,monid) +
./pkg/atm2d/month_end_diags.F 65 MONTH_END_DIAGS 
     &                               sum_oceMxLS(i,j)
./pkg/atm2d/month_end_diags.F 67 MONTH_END_DIAGS 
          qnet_atm(i,j)=qnet_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 68 MONTH_END_DIAGS 
          evap_atm(i,j)=evap_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 69 MONTH_END_DIAGS 
          precip_atm(i,j)= precip_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 70 MONTH_END_DIAGS 
          runoff_atm(i,j)=  runoff_atm(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 71 MONTH_END_DIAGS 
          sum_qrel(i,j)= sum_qrel(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 72 MONTH_END_DIAGS 
          sum_frel(i,j)= sum_frel(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 73 MONTH_END_DIAGS 
          sum_iceMask(i,j)= sum_iceMask(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 74 MONTH_END_DIAGS 
          sum_iceHeight(i,j)= sum_iceHeight(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 75 MONTH_END_DIAGS 
          sum_iceTime(i,j)= sum_iceTime(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 76 MONTH_END_DIAGS 
          sum_oceMxLT(i,j)= sum_oceMxLT(i,j)/ norm_factor
./pkg/atm2d/month_end_diags.F 77 MONTH_END_DIAGS 
          sum_oceMxLS(i,j)= sum_oceMxLS(i,j)/ norm_factor
./pkg/atm2d/norm_ocn_fluxes.F 33 NORM_OCN_FLUXES 
      INTEGER i,j
./pkg/atm2d/norm_ocn_fluxes.F 39 NORM_OCN_FLUXES 
        DO i=1, sNx
./pkg/atm2d/norm_ocn_fluxes.F 41 NORM_OCN_FLUXES 
          IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/norm_ocn_fluxes.F 43 NORM_OCN_FLUXES 
            pass_runoff(i,j)= sum_runoff(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 44 NORM_OCN_FLUXES 
            pass_precip(i,j)= sum_precip(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 45 NORM_OCN_FLUXES 
            pass_evap(i,j)= -sum_evap(i,j)/nper   !convert sign convention here
./pkg/atm2d/norm_ocn_fluxes.F 46 NORM_OCN_FLUXES 
            pass_qnet(i,j)= sum_qnet(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 47 NORM_OCN_FLUXES 
            pass_fu(i,j)= sum_fu(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 48 NORM_OCN_FLUXES 
            pass_fv(i,j)= sum_fv(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 49 NORM_OCN_FLUXES 
            pass_wspeed(i,j)= sum_wspeed(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 50 NORM_OCN_FLUXES 
            pass_solarnet(i,j)= -sum_solarnet(i,j)/nper !change sign
./pkg/atm2d/norm_ocn_fluxes.F 51 NORM_OCN_FLUXES 
            pass_slp(i,j)= sum_slp(i,j)/nper*100. _d 0  !convert to Pa
./pkg/atm2d/norm_ocn_fluxes.F 52 NORM_OCN_FLUXES 
            pass_pCO2(i,j)= sum_pCO2(i,j)*1. _d -6/nper
./pkg/atm2d/norm_ocn_fluxes.F 54 NORM_OCN_FLUXES 
            sHeating(i,j,1,1) = sum_sHeat(i,j)/nper ! from temp-solve step
./pkg/atm2d/norm_ocn_fluxes.F 55 NORM_OCN_FLUXES 
            flxCndBt(i,j,1,1)= sum_flxCnB(i,j)/nper ! from temp-solve step
./pkg/atm2d/norm_ocn_fluxes.F 56 NORM_OCN_FLUXES 
            pass_PrcAtm(i,j)= sum_prcIce(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 57 NORM_OCN_FLUXES 
            icFrwAtm(i,j,1,1)= sum_evapIce(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 60 NORM_OCN_FLUXES 
            snowPrc(i,j,1,1)= sum_snowPrc(i,j)/nper
./pkg/atm2d/norm_ocn_fluxes.F 63 NORM_OCN_FLUXES 
            IF ( pass_wspeed(i,j) .LT. 0. _d 0)
./pkg/atm2d/norm_ocn_fluxes.F 64 NORM_OCN_FLUXES 
     &         pass_wspeed(i,j) = 0. _d 0
./pkg/atm2d/norm_ocn_fluxes.F 67 NORM_OCN_FLUXES 
            sum_iceMask(i,j)=sum_iceMask(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F 68 NORM_OCN_FLUXES 
     &                       iceMask(i,j,1,1)*dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F 69 NORM_OCN_FLUXES 
            sum_iceHeight(i,j)= sum_iceHeight(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F 70 NORM_OCN_FLUXES 
     &                          iceHeight(i,j,1,1)*dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F 71 NORM_OCN_FLUXES 
            IF (iceMask(i,j,1,1) .NE. 0. _d 0)
./pkg/atm2d/norm_ocn_fluxes.F 72 NORM_OCN_FLUXES 
     &           sum_iceTime(i,j)= sum_iceTime(i,j) + dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F 73 NORM_OCN_FLUXES 
            sum_oceMxLT(i,j)=sum_oceMxLT(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F 74 NORM_OCN_FLUXES 
     &                       tOceMxL(i,j,1,1)*dtcouplo
./pkg/atm2d/norm_ocn_fluxes.F 75 NORM_OCN_FLUXES 
            sum_oceMxLS(i,j)=sum_oceMxLS(i,j) +
./pkg/atm2d/norm_ocn_fluxes.F 76 NORM_OCN_FLUXES 
     &                       sOceMxL(i,j,1,1)*dtcouplo
./pkg/atm2d/pass_thsice_fluxes.F 34 PASS_THSICE_FLUXES 
      INTEGER i,j
./pkg/atm2d/pass_thsice_fluxes.F 37 PASS_THSICE_FLUXES 
       DO i=1, sNx
./pkg/atm2d/pass_thsice_fluxes.F 39 PASS_THSICE_FLUXES 
         IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/pass_thsice_fluxes.F 40 PASS_THSICE_FLUXES 
           netSW(i,j) = solarinc_2D(i,j)*(1. _d 0 - siceAlb(i,j,1,1)) ! convert to netSW
./pkg/atm2d/pass_thsice_fluxes.F 41 PASS_THSICE_FLUXES 
           sFlx(i,j,0)= -qneti_2D(i,j) -netSW(i,j) +
./pkg/atm2d/pass_thsice_fluxes.F 42 PASS_THSICE_FLUXES 
     &                  Tsrf(i,j,1,1)*dFdT_ice_2D(i,j)
./pkg/atm2d/pass_thsice_fluxes.F 43 PASS_THSICE_FLUXES 
           sFlx(i,j,1)= -qneti_2D(i,j) -netSW(i,j)
./pkg/atm2d/pass_thsice_fluxes.F 44 PASS_THSICE_FLUXES 
           sFlx(i,j,2)= -dFdT_ice_2D(i,j)
./pkg/atm2d/pass_thsice_fluxes.F 47 PASS_THSICE_FLUXES 
           sum_prcIce(i,j) = sum_prcIce(i,j) - precipi_2D(i,j)*rhofw
./pkg/atm2d/pass_thsice_fluxes.F 48 PASS_THSICE_FLUXES 
           sum_evapIce(i,j) = sum_evapIce(i,j) - evapi_2D(i,j)*rhofw
./pkg/atm2d/pass_thsice_fluxes.F 49 PASS_THSICE_FLUXES 
           IF (Tair_2D(i,j) .LE. 0. _d 0)
./pkg/atm2d/pass_thsice_fluxes.F 50 PASS_THSICE_FLUXES 
     &      sum_snowPrc(i,j) = sum_snowPrc(i,j) - precipi_2D(i,j)*rhofw
./pkg/atm2d/put_ocnvars.F 100 PUT_OCNVARS 
           wind(i,j,1,1)= pass_wspeed(i,j)
./pkg/atm2d/put_ocnvars.F 45 PUT_OCNVARS 
      INTEGER i,j
./pkg/atm2d/put_ocnvars.F 48 PUT_OCNVARS 
        DO i=1,sNx
./pkg/atm2d/put_ocnvars.F 53 PUT_OCNVARS 
          atmSLPr_ocn(i,j)= pass_slp(i,j)
./pkg/atm2d/put_ocnvars.F 54 PUT_OCNVARS 
          HeatFlux_ocn(i,j)= pass_qnet(i,j)
./pkg/atm2d/put_ocnvars.F 55 PUT_OCNVARS 
          qShortWave_ocn(i,j)= pass_solarnet(i,j)
./pkg/atm2d/put_ocnvars.F 56 PUT_OCNVARS 
          TauX_ocn(i,j)= pass_fu(i,j)
./pkg/atm2d/put_ocnvars.F 57 PUT_OCNVARS 
          TauY_ocn(i,j)= pass_fv(i,j)
./pkg/atm2d/put_ocnvars.F 59 PUT_OCNVARS 
          FWFlux_ocn(i,j)= (pass_precip(i,j) + pass_evap(i,j)
./pkg/atm2d/put_ocnvars.F 60 PUT_OCNVARS 
     &                     + pass_runoff(i,j)) * rhoConstFresh
./pkg/atm2d/put_ocnvars.F 61 PUT_OCNVARS 
          SaltFlx_ocn(i,j) = sFluxFromIce(i,j)
./pkg/atm2d/put_ocnvars.F 63 PUT_OCNVARS 
          sIceMass_ocn(i,j) = pass_sIceLoad(i,j)
./pkg/atm2d/put_ocnvars.F 66 PUT_OCNVARS 
            aCO2_ocn(i,j) = pass_pCO2(i,j)
./pkg/atm2d/put_ocnvars.F 67 PUT_OCNVARS 
            wSpeed_ocn(i,j) = pass_wspeed(i,j)
./pkg/atm2d/put_ocnvars.F 68 PUT_OCNVARS 
            sIceFrac_ocn(i,j) = iceMask(i,j,1,1)
./pkg/atm2d/put_ocnvars.F 74 PUT_OCNVARS 
          pLoad(i,j,1,1)= pass_slp(i,j)
./pkg/atm2d/put_ocnvars.F 75 PUT_OCNVARS 
          Qnet(i,j,1,1)= pass_qnet(i,j)
./pkg/atm2d/put_ocnvars.F 76 PUT_OCNVARS 
          Qsw(i,j,1,1)= pass_solarnet(i,j)
./pkg/atm2d/put_ocnvars.F 77 PUT_OCNVARS 
          fu(i,j,1,1)= pass_fu(i,j)
./pkg/atm2d/put_ocnvars.F 78 PUT_OCNVARS 
          fv(i,j,1,1)= pass_fv(i,j)
./pkg/atm2d/put_ocnvars.F 79 PUT_OCNVARS 
          EmPmR(i,j,1,1)= (pass_precip(i,j) + pass_evap(i,j)
./pkg/atm2d/put_ocnvars.F 80 PUT_OCNVARS 
     &                     + pass_runoff(i,j)) * rhoConstFresh
./pkg/atm2d/put_ocnvars.F 81 PUT_OCNVARS 
          saltFlux(i,j,1,1)= sFluxFromIce(i,j)
./pkg/atm2d/put_ocnvars.F 90 PUT_OCNVARS 
          sIceLoad(i,j,1,1) = pass_sIceLoad(i,j)
./pkg/atm2d/put_ocnvars.F 99 PUT_OCNVARS 
           AtmospCO2(i,j,1,1)=  pass_pCO2(i,j)
./pkg/atm2d/relax_add.F 100 RELAX_ADD 
          IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/relax_add.F 103 RELAX_ADD 
            sstRelax(i,j)= (wght0*sst0(i,j,1,1) + wght1*sst1(i,j,1,1))
./pkg/atm2d/relax_add.F 105 RELAX_ADD 
            sstRelax(i,j)= sstFromOcn(i,j)
./pkg/atm2d/relax_add.F 109 RELAX_ADD 
            sssRelax(i,j)= (wght0*sss0(i,j,1,1) + wght1*sss1(i,j,1,1))
./pkg/atm2d/relax_add.F 111 RELAX_ADD 
            sssRelax(i,j)= sssFromOcn(i,j)
./pkg/atm2d/relax_add.F 117 RELAX_ADD 
          IF ((sstRelax(i,j).GT.2. _d 0).OR.
./pkg/atm2d/relax_add.F 118 RELAX_ADD 
     &        (iceMask(i,j,1,1) .EQ. 0. _d 0)) THEN
./pkg/atm2d/relax_add.F 120 RELAX_ADD 
          ELSEIF (sstRelax(i,j) .LE. -1. _d 0) THEN
./pkg/atm2d/relax_add.F 123 RELAX_ADD 
              nearIce=(sstRelax(i,j)+1.0)/3.0
./pkg/atm2d/relax_add.F 126 RELAX_ADD 
          qrelflux= lambdaTheta*(sstFromOcn(i,j)-sstRelax(i,j))/
./pkg/atm2d/relax_add.F 131 RELAX_ADD 
          IF (iceMask(i,j,1,1) .LT. 0.999 _d 0) THEN
./pkg/atm2d/relax_add.F 132 RELAX_ADD 
               qneto_2D(i,j)= qneto_2D(i,j) + qrelflux
./pkg/atm2d/relax_add.F 133 RELAX_ADD 
     &                / (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/relax_add.F 138 RELAX_ADD 
          frelflux= -lambdaSalt*(sssFromOcn(i,j)-sssRelax(i,j))/
./pkg/atm2d/relax_add.F 144 RELAX_ADD 
            evapo_2D(i,j)= evapo_2D(i,j) - frelflux
./pkg/atm2d/relax_add.F 147 RELAX_ADD 
            IF (iceMask(i,j,1,1).GT.0. _d 0)
./pkg/atm2d/relax_add.F 148 RELAX_ADD 
     &            evapi_2D(i,j)= evapi_2D(i,j) - frelflux
./pkg/atm2d/relax_add.F 150 RELAX_ADD 
            precipo_2D(i,j)= precipo_2D(i,j) + frelflux
./pkg/atm2d/relax_add.F 151 RELAX_ADD 
            IF (iceMask(i,j,1,1).GT.0. _d 0)
./pkg/atm2d/relax_add.F 152 RELAX_ADD 
     &            precipi_2D(i,j)= precipi_2D(i,j) + frelflux
./pkg/atm2d/relax_add.F 160 RELAX_ADD 
          sum_qrel(i,j)= sum_qrel(i,j) + qrelflux*dtatmo
./pkg/atm2d/relax_add.F 161 RELAX_ADD 
          sum_frel(i,j)= sum_frel(i,j) + frelflux*dtatmo
./pkg/atm2d/relax_add.F 57 RELAX_ADD 
      INTEGER i,j
./pkg/atm2d/relax_add.F 98 RELAX_ADD 
        DO i=1,sNx
./eesupp/src/global_sum_singlecpu.F 62 GLOBAL_SUM_SINGLECPU_RL 
      INTEGER i, j, ij
./eesupp/src/global_sum_singlecpu.F 88 GLOBAL_SUM_SINGLECPU_RL 
         DO i=1,sNx
./eesupp/src/global_sum_singlecpu.F 89 GLOBAL_SUM_SINGLECPU_RL 
           sharedLocBuf_r8(i,j,bi,bj) = phiLocal(i,j,bi,bj)
./pkg/atm2d/sum_ocn_fluxes.F 36 SUM_OCN_FLUXES 
      INTEGER i,j
./pkg/atm2d/sum_ocn_fluxes.F 39 SUM_OCN_FLUXES 
        DO i=1,sNx
./pkg/atm2d/sum_ocn_fluxes.F 41 SUM_OCN_FLUXES 
          IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/sum_ocn_fluxes.F 45 SUM_OCN_FLUXES 
          IF (iceMask(i,j,1,1) .GT. windice_thres) THEN
./pkg/atm2d/sum_ocn_fluxes.F 47 SUM_OCN_FLUXES 
           fu_2D(i,j)= fu_2D(i,j) * (1. _d 0 -
./pkg/atm2d/sum_ocn_fluxes.F 48 SUM_OCN_FLUXES 
     &          (iceMask(i,j,1,1) + iceMask(i-1,j,1,1)) * 0.5 _d 0 )
./pkg/atm2d/sum_ocn_fluxes.F 50 SUM_OCN_FLUXES 
           fv_2D(i,j)= fv_2D(i,j) * (1. _d 0 -
./pkg/atm2d/sum_ocn_fluxes.F 51 SUM_OCN_FLUXES 
     &          (iceMask(i,j,1,1) + iceMask(i,j-1,1,1)) * 0.5 _d 0 )
./pkg/atm2d/sum_ocn_fluxes.F 53 SUM_OCN_FLUXES 
           wspeed_2D(i,j)= wspeed_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F 54 SUM_OCN_FLUXES 
     &                    * (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 58 SUM_OCN_FLUXES 
          sum_runoff(i,j)= sum_runoff(i,j) + runoff_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F 59 SUM_OCN_FLUXES 
          sum_precip(i,j)= sum_precip(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F 60 SUM_OCN_FLUXES 
     &                     precipo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 61 SUM_OCN_FLUXES 
          sum_evap(i,j)= sum_evap(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F 62 SUM_OCN_FLUXES 
     &                   evapo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 63 SUM_OCN_FLUXES 
          sum_qnet(i,j)= sum_qnet(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F 64 SUM_OCN_FLUXES 
     &                   qneto_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 65 SUM_OCN_FLUXES 
          sum_fu(i,j)= sum_fu(i,j) + fu_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F 66 SUM_OCN_FLUXES 
          sum_fv(i,j)= sum_fv(i,j) + fv_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F 67 SUM_OCN_FLUXES 
          sum_wspeed(i,j)= sum_wspeed(i,j) + wspeed_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F 68 SUM_OCN_FLUXES 
          sum_solarnet(i,j)= sum_solarnet(i,j) +
./pkg/atm2d/sum_ocn_fluxes.F 69 SUM_OCN_FLUXES 
     &               solarnet_ocn_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 70 SUM_OCN_FLUXES 
          sum_slp(i,j)= sum_slp(i,j) + slp_2D(i,j)
./pkg/atm2d/sum_ocn_fluxes.F 71 SUM_OCN_FLUXES 
          sum_pCO2(i,j)= sum_pCO2(i,j) + pCO2_2D(i,j)
./pkg/atm2d/sum_thsice_out.F 32 SUM_THSICE_OUT 
      INTEGER i,j
./pkg/atm2d/sum_thsice_out.F 35 SUM_THSICE_OUT 
        DO i=1,sNx
./pkg/atm2d/sum_thsice_out.F 37 SUM_THSICE_OUT 
          IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/sum_thsice_out.F 38 SUM_THSICE_OUT 
            sum_sHeat(i,j) = sum_sHeat(i,j) + sHeating(i,j,1,1)
./pkg/atm2d/sum_thsice_out.F 39 SUM_THSICE_OUT 
            sum_flxCnB(i,j)= sum_flxCnB(i,j) + flxCndBt(i,j,1,1)
./pkg/atm2d/sum_thsice_out.F 42 SUM_THSICE_OUT 
            sum_solarnet(i,j)= sum_solarnet(i,j)
./pkg/atm2d/sum_thsice_out.F 43 SUM_THSICE_OUT 
     &                  + icFlxSW(i,j,1,1)*iceMask(i,j,1,1)
./pkg/atm2d/sum_thsice_out.F 45 SUM_THSICE_OUT 
            icFlxSW(i,j,1,1)= 0. _d 0
./pkg/atm2d/sum_yr_end_diags.F 34 SUM_YR_END_DIAGS 
      INTEGER i,j
./pkg/atm2d/sum_yr_end_diags.F 39 SUM_YR_END_DIAGS 
        DO i=1,sNx
./pkg/atm2d/sum_yr_end_diags.F 40 SUM_YR_END_DIAGS 
          IF (iceMask(i,j,1,1).GT. 0. _d 0)
./pkg/atm2d/sum_yr_end_diags.F 41 SUM_YR_END_DIAGS 
     &        iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1)
./pkg/atm2d/sum_yr_end_diags.F 49 SUM_YR_END_DIAGS 
        DO i=1,sNx
./pkg/atm2d/sum_yr_end_diags.F 50 SUM_YR_END_DIAGS 
          IF (iceMask(i,j,1,1).GT. 0. _d 0)
./pkg/atm2d/sum_yr_end_diags.F 51 SUM_YR_END_DIAGS 
     &        iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1)
./pkg/atm2d/sum_yr_end_diags.F 58 SUM_YR_END_DIAGS 
        DO i=1,sNx
./pkg/atm2d/sum_yr_end_diags.F 60 SUM_YR_END_DIAGS 
          IF (maskC(i,j,1,1,1) .EQ. 1.) THEN
./pkg/atm2d/sum_yr_end_diags.F 61 SUM_YR_END_DIAGS 
            sst_tave= sst_tave + rA(i,j,1,1)*sstFromOcn(i,j)
./pkg/atm2d/sum_yr_end_diags.F 62 SUM_YR_END_DIAGS 
            sss_tave= sss_tave + rA(i,j,1,1)*sssFromOcn(i,j)
./pkg/atm2d/sum_yr_end_diags.F 63 SUM_YR_END_DIAGS 
            HF2ocn_tave = HF2ocn_tave + rA(i,j,1,1)*pass_qnet(i,j)
./pkg/atm2d/sum_yr_end_diags.F 64 SUM_YR_END_DIAGS 
            FW2ocn_tave = FW2ocn_tave + rA(i,j,1,1)*
./pkg/atm2d/sum_yr_end_diags.F 65 SUM_YR_END_DIAGS 
     &       (pass_precip(i,j) + pass_evap(i,j) + pass_runoff(i,j))
./pkg/atm2d/sum_yr_end_diags.F 67 SUM_YR_END_DIAGS 
            CO2flx_tave = CO2flx_tave + rA(i,j,1,1)*oFluxCO2(i,j)
./pkg/atm2d/tave_end_diags.F 100 TAVE_END_DIAGS 
     &                        runoff_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F 101 TAVE_END_DIAGS 
            qrel_ann(i,j) = qrel_ann(i,j) +
./pkg/atm2d/tave_end_diags.F 102 TAVE_END_DIAGS 
     &                      qrel_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F 103 TAVE_END_DIAGS 
            frel_ann(i,j) = frel_ann(i,j) +
./pkg/atm2d/tave_end_diags.F 104 TAVE_END_DIAGS 
     &                      frel_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F 106 TAVE_END_DIAGS 
            qnet_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 107 TAVE_END_DIAGS 
            evap_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 108 TAVE_END_DIAGS 
            precip_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 109 TAVE_END_DIAGS 
            runoff_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 110 TAVE_END_DIAGS 
            sum_qrel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 111 TAVE_END_DIAGS 
            sum_frel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 112 TAVE_END_DIAGS 
            sum_iceMask_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 113 TAVE_END_DIAGS 
            sum_iceHeight_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 114 TAVE_END_DIAGS 
            sum_iceTime_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 115 TAVE_END_DIAGS 
            sum_oceMxLT_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 116 TAVE_END_DIAGS 
            sum_oceMxLS_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 39 TAVE_END_DIAGS 
      INTEGER i,j,mn,j_atm
./pkg/atm2d/tave_end_diags.F 63 TAVE_END_DIAGS 
        DO i=1,sNx
./pkg/atm2d/tave_end_diags.F 65 TAVE_END_DIAGS 
          qnet_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 66 TAVE_END_DIAGS 
          evap_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 67 TAVE_END_DIAGS 
          precip_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 68 TAVE_END_DIAGS 
          runoff_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 69 TAVE_END_DIAGS 
          qrel_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 70 TAVE_END_DIAGS 
          frel_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 79 TAVE_END_DIAGS 
          DO i=1,sNx
./pkg/atm2d/tave_end_diags.F 81 TAVE_END_DIAGS 
            qnet_mon(i,j)= qnet_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 82 TAVE_END_DIAGS 
            evap_mon(i,j)= evap_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 83 TAVE_END_DIAGS 
            precip_mon(i,j)= precip_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 84 TAVE_END_DIAGS 
            runoff_mon(i,j)=  runoff_atm_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 85 TAVE_END_DIAGS 
            qrel_mon(i,j)= sum_qrel_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 86 TAVE_END_DIAGS 
            frel_mon(i,j)= sum_frel_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 87 TAVE_END_DIAGS 
            iceMask_mon(i,j)= sum_iceMask_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 88 TAVE_END_DIAGS 
            iceHeight_mon(i,j)= sum_iceHeight_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 89 TAVE_END_DIAGS 
            iceTime_mon(i,j)= sum_iceTime_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 90 TAVE_END_DIAGS 
            oceMxLT_mon(i,j)= sum_oceMxLT_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 91 TAVE_END_DIAGS 
            oceMxLS_mon(i,j)= sum_oceMxLS_ta(i,j,mn)/norm_factor
./pkg/atm2d/tave_end_diags.F 93 TAVE_END_DIAGS 
            qnet_ann(i,j) = qnet_ann(i,j) +
./pkg/atm2d/tave_end_diags.F 94 TAVE_END_DIAGS 
     &                      qnet_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F 95 TAVE_END_DIAGS 
            evap_ann(i,j) = evap_ann(i,j) +
./pkg/atm2d/tave_end_diags.F 96 TAVE_END_DIAGS 
     &                      evap_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F 97 TAVE_END_DIAGS 
            precip_ann(i,j) = precip_ann(i,j) +
./pkg/atm2d/tave_end_diags.F 98 TAVE_END_DIAGS 
     &                        precip_mon(i,j)*ndmonth(mn)/365.0
./pkg/atm2d/tave_end_diags.F 99 TAVE_END_DIAGS 
            runoff_ann(i,j) = runoff_ann(i,j) +
./eesupp/src/global_vec_sum.F 132 GLOBAL_VEC_SUM_R8 
      INTEGER i, bi,bj
./eesupp/src/global_vec_sum.F 139 GLOBAL_VEC_SUM_R8 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 140 GLOBAL_VEC_SUM_R8 
        tmp1(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 141 GLOBAL_VEC_SUM_R8 
        tmp2(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 149 GLOBAL_VEC_SUM_R8 
          DO i = 1,nval
./eesupp/src/global_vec_sum.F 150 GLOBAL_VEC_SUM_R8 
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj )
./eesupp/src/global_vec_sum.F 157 GLOBAL_VEC_SUM_R8 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 158 GLOBAL_VEC_SUM_R8 
        tmp2(i) = tmp1(i)
./eesupp/src/global_vec_sum.F 174 GLOBAL_VEC_SUM_R8 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 175 GLOBAL_VEC_SUM_R8 
        sumPhi( i, 1,1 ) = tmp2(i)
./eesupp/src/global_vec_sum.F 218 GLOBAL_VEC_SUM_INT 
      INTEGER i, bi,bj
./eesupp/src/global_vec_sum.F 226 GLOBAL_VEC_SUM_INT 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 227 GLOBAL_VEC_SUM_INT 
        tmp1(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 228 GLOBAL_VEC_SUM_INT 
        tmp2(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 236 GLOBAL_VEC_SUM_INT 
          DO i = 1,nval
./eesupp/src/global_vec_sum.F 237 GLOBAL_VEC_SUM_INT 
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj )
./eesupp/src/global_vec_sum.F 244 GLOBAL_VEC_SUM_INT 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 245 GLOBAL_VEC_SUM_INT 
        tmp2(i) = tmp1(i)
./eesupp/src/global_vec_sum.F 261 GLOBAL_VEC_SUM_INT 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 262 GLOBAL_VEC_SUM_INT 
        sumPhi( i, 1,1 ) = tmp2(i)
./eesupp/src/global_vec_sum.F 46 GLOBAL_VEC_SUM_R4 
      INTEGER i, bi,bj
./eesupp/src/global_vec_sum.F 53 GLOBAL_VEC_SUM_R4 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 54 GLOBAL_VEC_SUM_R4 
        tmp1(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 55 GLOBAL_VEC_SUM_R4 
        tmp2(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 63 GLOBAL_VEC_SUM_R4 
          DO i = 1,nval
./eesupp/src/global_vec_sum.F 64 GLOBAL_VEC_SUM_R4 
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj )
./eesupp/src/global_vec_sum.F 71 GLOBAL_VEC_SUM_R4 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 72 GLOBAL_VEC_SUM_R4 
        tmp2(i) = tmp1(i)
./eesupp/src/global_vec_sum.F 88 GLOBAL_VEC_SUM_R4 
      DO i = 1,nval
./eesupp/src/global_vec_sum.F 89 GLOBAL_VEC_SUM_R4 
        sumPhi( i, 1,1 ) = tmp2(i)
./pkg/atm_ocn_coupler/mds_byteswap.F 29 MDS_BYTESWAPR4 
      integer i
./pkg/atm_ocn_coupler/mds_byteswap.F 32 MDS_BYTESWAPR4 
      do i=1,4*n,4
./pkg/atm_ocn_coupler/mds_byteswap.F 33 MDS_BYTESWAPR4 
       cc=arr(i:i)
./pkg/atm_ocn_coupler/mds_byteswap.F 34 MDS_BYTESWAPR4 
       arr(i:i)=arr(i+3:i+3)
./pkg/atm_ocn_coupler/mds_byteswap.F 35 MDS_BYTESWAPR4 
       arr(i+3:i+3)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 36 MDS_BYTESWAPR4 
       cc=arr(i+1:i+1)
./pkg/atm_ocn_coupler/mds_byteswap.F 37 MDS_BYTESWAPR4 
       arr(i+1:i+1)=arr(i+2:i+2)
./pkg/atm_ocn_coupler/mds_byteswap.F 38 MDS_BYTESWAPR4 
       arr(i+2:i+2)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 63 MDS_BYTESWAPR8 
      integer i
./pkg/atm_ocn_coupler/mds_byteswap.F 66 MDS_BYTESWAPR8 
      do i=1,8*n,8
./pkg/atm_ocn_coupler/mds_byteswap.F 67 MDS_BYTESWAPR8 
       cc=arr(i:i)
./pkg/atm_ocn_coupler/mds_byteswap.F 68 MDS_BYTESWAPR8 
       arr(i:i)=arr(i+7:i+7)
./pkg/atm_ocn_coupler/mds_byteswap.F 69 MDS_BYTESWAPR8 
       arr(i+7:i+7)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 70 MDS_BYTESWAPR8 
       cc=arr(i+1:i+1)
./pkg/atm_ocn_coupler/mds_byteswap.F 71 MDS_BYTESWAPR8 
       arr(i+1:i+1)=arr(i+6:i+6)
./pkg/atm_ocn_coupler/mds_byteswap.F 72 MDS_BYTESWAPR8 
       arr(i+6:i+6)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 73 MDS_BYTESWAPR8 
       cc=arr(i+2:i+2)
./pkg/atm_ocn_coupler/mds_byteswap.F 74 MDS_BYTESWAPR8 
       arr(i+2:i+2)=arr(i+5:i+5)
./pkg/atm_ocn_coupler/mds_byteswap.F 75 MDS_BYTESWAPR8 
       arr(i+5:i+5)=cc
./pkg/atm_ocn_coupler/mds_byteswap.F 76 MDS_BYTESWAPR8 
       cc=arr(i+3:i+3)
./pkg/atm_ocn_coupler/mds_byteswap.F 77 MDS_BYTESWAPR8 
       arr(i+3:i+3)=arr(i+4:i+4)
./pkg/atm_ocn_coupler/mds_byteswap.F 78 MDS_BYTESWAPR8 
       arr(i+4:i+4)=cc
./pkg/autodiff/active_file_control.F 152 ACTIVE_READ_RL 
                      do i=1,snx
./pkg/autodiff/active_file_control.F 153 ACTIVE_READ_RL 
                         active_data_t(i,j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_control.F 199 ACTIVE_READ_RL 
                       do i=1,snx
./pkg/autodiff/active_file_control.F 200 ACTIVE_READ_RL 
                          active_data_t(i,j,k,bi,bj) =
./pkg/autodiff/active_file_control.F 201 ACTIVE_READ_RL 
     &                         active_data_t(i,j,k,bi,bj) +
./pkg/autodiff/active_file_control.F 202 ACTIVE_READ_RL 
     &                         active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 226 ACTIVE_READ_RL 
                    do i=1,snx
./pkg/autodiff/active_file_control.F 227 ACTIVE_READ_RL 
                       active_var(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 326 ACTIVE_WRITE_RL 
      integer  i,j,k
./pkg/autodiff/active_file_control.F 385 ACTIVE_WRITE_RL 
                    do i=1,snx
./pkg/autodiff/active_file_control.F 386 ACTIVE_WRITE_RL 
                       active_var(i,j,k,bi,bj) =
./pkg/autodiff/active_file_control.F 387 ACTIVE_WRITE_RL 
     &                      active_var(i,j,k,bi,bj) +
./pkg/autodiff/active_file_control.F 388 ACTIVE_WRITE_RL 
     &                      active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 389 ACTIVE_WRITE_RL 
                       active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 522 ACTIVE_READ_TILE_RL 
      integer i,j,k
./pkg/autodiff/active_file_control.F 574 ACTIVE_READ_TILE_RL 
              do i=1-olx,snx+olx
./pkg/autodiff/active_file_control.F 577 ACTIVE_READ_TILE_RL 
     &                     (i-1+olx) +
./pkg/autodiff/active_file_control.F 589 ACTIVE_READ_TILE_RL 
          do i=1,(snx+2*olx)*(sny+2*oly)*mynr*nsx*nsy
./pkg/autodiff/active_file_control.F 590 ACTIVE_READ_TILE_RL 
            active_var(i) = 0. _d 0
./pkg/autodiff/active_file_control.F 601 ACTIVE_READ_TILE_RL 
          do i=1,(snx+2*olx)*(sny+2*oly)
./pkg/autodiff/active_file_control.F 602 ACTIVE_READ_TILE_RL 
            active_data_t(i) = 0. _d 0
./pkg/autodiff/active_file_control.F 640 ACTIVE_READ_TILE_RL 
            do i=1-olx,snx+olx
./pkg/autodiff/active_file_control.F 643 ACTIVE_READ_TILE_RL 
     &                   (i-1+olx) +
./pkg/autodiff/active_file_control.F 670 ACTIVE_READ_TILE_RL 
            do i = 1-olx,snx+olx
./pkg/autodiff/active_file_control.F 672 ACTIVE_READ_TILE_RL 
     &                   (i-1+olx) +
./pkg/autodiff/active_file_control.F 709 ACTIVE_READ_TILE_RL 
              do i=1-olx,snx+olx
./pkg/autodiff/active_file_control.F 712 ACTIVE_READ_TILE_RL 
     &                     (i-1+olx) +
./pkg/autodiff/active_file_control.F 724 ACTIVE_READ_TILE_RL 
          do i=1,(snx+2*olx)*(sny+2*oly)*mynr*nsx*nsy
./pkg/autodiff/active_file_control.F 725 ACTIVE_READ_TILE_RL 
            active_var(i) = 0. _d 0
./pkg/autodiff/active_file_control.F 813 ACTIVE_WRITE_TILE_RL 
      integer  i,j,k
./pkg/autodiff/active_file_control.F 841 ACTIVE_WRITE_TILE_RL 
            do i=1-olx,snx+olx
./pkg/autodiff/active_file_control.F 844 ACTIVE_WRITE_TILE_RL 
     &                   (i-1+olx) +
./pkg/autodiff/active_file_control.F 885 ACTIVE_WRITE_TILE_RL 
            do i=1-olx,snx+olx
./pkg/autodiff/active_file_control.F 888 ACTIVE_WRITE_TILE_RL 
     &                   (i-1+olx) +
./pkg/autodiff/active_file_control.F 923 ACTIVE_WRITE_TILE_RL 
            do i=1-olx,snx+olx
./pkg/autodiff/active_file_control.F 926 ACTIVE_WRITE_TILE_RL 
     &                   (i-1+olx) +
./pkg/autodiff/active_file_control.F 98 ACTIVE_READ_RL 
      integer i,j,k
./pkg/autodiff/active_file_control_slice.F 137 ACTIVE_READ_XZ_RL 
                   do i = 1,snx
./pkg/autodiff/active_file_control_slice.F 138 ACTIVE_READ_XZ_RL 
                      active_data_t(i,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_control_slice.F 182 ACTIVE_READ_XZ_RL 
                 do i = 1,snx
./pkg/autodiff/active_file_control_slice.F 183 ACTIVE_READ_XZ_RL 
                    active_data_t(i,k,bi,bj) =
./pkg/autodiff/active_file_control_slice.F 184 ACTIVE_READ_XZ_RL 
     &                   active_data_t(i,k,bi,bj) +
./pkg/autodiff/active_file_control_slice.F 185 ACTIVE_READ_XZ_RL 
     &                   active_var(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 207 ACTIVE_READ_XZ_RL 
                 do i = 1,snx
./pkg/autodiff/active_file_control_slice.F 208 ACTIVE_READ_XZ_RL 
                    active_var(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 296 ACTIVE_WRITE_XZ_RL 
      integer  i,j,k
./pkg/autodiff/active_file_control_slice.F 353 ACTIVE_WRITE_XZ_RL 
                 do i = 1,snx
./pkg/autodiff/active_file_control_slice.F 354 ACTIVE_WRITE_XZ_RL 
                    active_var(i,k,bi,bj) =
./pkg/autodiff/active_file_control_slice.F 355 ACTIVE_WRITE_XZ_RL 
     &                   active_var(i,k,bi,bj) +
./pkg/autodiff/active_file_control_slice.F 356 ACTIVE_WRITE_XZ_RL 
     &                   active_data_t(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 357 ACTIVE_WRITE_XZ_RL 
                    active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 466 ACTIVE_READ_YZ_RL 
      integer i,j,k
./pkg/autodiff/active_file_control_slice.F 680 ACTIVE_WRITE_YZ_RL 
      integer  i,j,k
./pkg/autodiff/active_file_control_slice.F 82 ACTIVE_READ_XZ_RL 
      integer i,j,k
./pkg/autodiff/active_file_loc_control.F 138 ACTIVE_READ_RL_LOC 
                      do i=1,snx
./pkg/autodiff/active_file_loc_control.F 139 ACTIVE_READ_RL_LOC 
                         active_data_t(i,j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_loc_control.F 185 ACTIVE_READ_RL_LOC 
                    do i=1,snx
./pkg/autodiff/active_file_loc_control.F 186 ACTIVE_READ_RL_LOC 
                       active_data_t(i,j,k,bi,bj) =
./pkg/autodiff/active_file_loc_control.F 187 ACTIVE_READ_RL_LOC 
     &                      active_data_t(i,j,k,bi,bj) +
./pkg/autodiff/active_file_loc_control.F 188 ACTIVE_READ_RL_LOC 
     &                      active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_loc_control.F 212 ACTIVE_READ_RL_LOC 
                    do i=1,snx
./pkg/autodiff/active_file_loc_control.F 213 ACTIVE_READ_RL_LOC 
                       active_var(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control.F 308 ACTIVE_WRITE_RL_LOC 
      integer  i,j,k
./pkg/autodiff/active_file_loc_control.F 367 ACTIVE_WRITE_RL_LOC 
                    do i=1,snx
./pkg/autodiff/active_file_loc_control.F 368 ACTIVE_WRITE_RL_LOC 
                       active_var(i,j,k,bi,bj) =
./pkg/autodiff/active_file_loc_control.F 369 ACTIVE_WRITE_RL_LOC 
     &                      active_var(i,j,k,bi,bj) +
./pkg/autodiff/active_file_loc_control.F 370 ACTIVE_WRITE_RL_LOC 
     &                      active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_loc_control.F 371 ACTIVE_WRITE_RL_LOC 
                       active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control.F 84 ACTIVE_READ_RL_LOC 
      integer i,j,k
./pkg/autodiff/active_file_loc_control_slice.F 133 ACTIVE_READ_XZ_RL_LOC 
                   do i = 1,snx
./pkg/autodiff/active_file_loc_control_slice.F 134 ACTIVE_READ_XZ_RL_LOC 
                      active_data_t(i,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 178 ACTIVE_READ_XZ_RL_LOC 
                 do i = 1,snx
./pkg/autodiff/active_file_loc_control_slice.F 179 ACTIVE_READ_XZ_RL_LOC 
                    active_data_t(i,k,bi,bj) =
./pkg/autodiff/active_file_loc_control_slice.F 180 ACTIVE_READ_XZ_RL_LOC 
     &                   active_data_t(i,k,bi,bj) +
./pkg/autodiff/active_file_loc_control_slice.F 181 ACTIVE_READ_XZ_RL_LOC 
     &                   active_var(i,k,bi,bj)
./pkg/autodiff/active_file_loc_control_slice.F 203 ACTIVE_READ_XZ_RL_LOC 
                 do i = 1,snx
./pkg/autodiff/active_file_loc_control_slice.F 204 ACTIVE_READ_XZ_RL_LOC 
                    active_var(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 288 ACTIVE_WRITE_XZ_RL_LOC 
      integer  i,j,k
./pkg/autodiff/active_file_loc_control_slice.F 345 ACTIVE_WRITE_XZ_RL_LOC 
                 do i = 1,snx
./pkg/autodiff/active_file_loc_control_slice.F 346 ACTIVE_WRITE_XZ_RL_LOC 
                    active_var(i,k,bi,bj) =
./pkg/autodiff/active_file_loc_control_slice.F 347 ACTIVE_WRITE_XZ_RL_LOC 
     &                   active_var(i,k,bi,bj) +
./pkg/autodiff/active_file_loc_control_slice.F 348 ACTIVE_WRITE_XZ_RL_LOC 
     &                   active_data_t(i,k,bi,bj)
./pkg/autodiff/active_file_loc_control_slice.F 349 ACTIVE_WRITE_XZ_RL_LOC 
                    active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 454 ACTIVE_READ_YZ_RL_LOC 
      integer i,j,k
./pkg/autodiff/active_file_loc_control_slice.F 664 ACTIVE_WRITE_YZ_RL_LOC 
      integer  i,j,k
./pkg/autodiff/active_file_loc_control_slice.F 78 ACTIVE_READ_XZ_RL_LOC 
      integer i,j,k
./pkg/autodiff/addamp_adj.F 30 ADDAMP_ADJ 
      integer bi,bj,i,j,k
./pkg/autodiff/addamp_adj.F 36 ADDAMP_ADJ 
          DO i=1-Olx,sNx+Olx
./pkg/autodiff/addamp_adj.F 37 ADDAMP_ADJ 
           if ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR.
./pkg/autodiff/addamp_adj.F 38 ADDAMP_ADJ 
     &          (fieldRef(i,j,k,bi,bj).LE.minRef) ) then
./pkg/autodiff/addamp_adj.F 43 ADDAMP_ADJ 
           adfieldDamp(i,j,k,bi,bj)=facDamp*
./pkg/autodiff/addamp_adj.F 44 ADDAMP_ADJ 
     &        adfieldDamp(i,j,k,bi,bj)
./pkg/autodiff/adzero_adj.F 103 ADZERO_ADJ 
          DO i=1-Olx,sNx+Olx
./pkg/autodiff/adzero_adj.F 104 ADZERO_ADJ 
           adFieldFwd(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/adzero_adj.F 29 ADZERO_ADJ_1D 
      integer bi,bj,i,j,k
./pkg/autodiff/adzero_adj.F 61 ADZERO_ADJ_LOC 
      integer bi,bj,i,j,k
./pkg/autodiff/adzero_adj.F 65 ADZERO_ADJ_LOC 
        DO i=1-Olx,sNx+Olx
./pkg/autodiff/adzero_adj.F 66 ADZERO_ADJ_LOC 
         adFieldFwd(i,j,k) = 0. _d 0
./pkg/autodiff/adzero_adj.F 97 ADZERO_ADJ 
      integer bi,bj,i,j,k
./eesupp/src/lef_zero.F 24 LEF_ZERO 
      INTEGER i,j,bi,bj
./eesupp/src/lef_zero.F 30 LEF_ZERO 
         DO i=1-Olx,sNx+Olx
./eesupp/src/lef_zero.F 31 LEF_ZERO 
          arr(i,j,bi,bj)=0.
./pkg/autodiff/damp_adj.F 30 DAMP_ADJ 
      integer bi,bj,i,j,k
./pkg/autodiff/ini_autodiff.F 55 INI_AUTODIFF 
           EfluxY(i,j,k,bi,bj)=0.
./pkg/autodiff/ini_autodiff.F 56 INI_AUTODIFF 
           EfluxP(i,j,k,bi,bj)=0.
./pkg/autodiff/ini_autodiff.F 66 INI_AUTODIFF 
         dEtaHdt(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/ini_autodiff.F 67 INI_AUTODIFF 
         PmEpR(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_ave.F 38 BULKF_AVE 
      INTEGER i,j
./pkg/bulk_force/bulkf_ave.F 42 BULKF_AVE 
        DO i = 1,sNx
./pkg/bulk_force/bulkf_ave.F 43 BULKF_AVE 
          BULK_Qnet_Ave(i,j,bi,bj)     = BULK_Qnet_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 44 BULKF_AVE 
     &                   +Qnet(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 48 BULKF_AVE 
          BULK_EmPmR_Ave(i,j,bi,bj)    = BULK_EmPmR_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 49 BULKF_AVE 
     &                   +EmPmR(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 50 BULKF_AVE 
          BULK_fu_Ave(i,j,bi,bj)       = BULK_fu_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 51 BULKF_AVE 
     &                   +fu(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 52 BULKF_AVE 
          BULK_fv_Ave(i,j,bi,bj)       = BULK_fv_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 53 BULKF_AVE 
     &                   +fv(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 54 BULKF_AVE 
          BULK_latent_Ave(i,j,bi,bj)   = BULK_latent_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 55 BULKF_AVE 
     &                   +flh(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 56 BULKF_AVE 
          BULK_sensible_Ave(i,j,bi,bj) = BULK_sensible_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 57 BULKF_AVE 
     &                   +fsh(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 58 BULKF_AVE 
          BULK_evap_Ave(i,j,bi,bj)     = BULK_evap_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 59 BULKF_AVE 
     &                   +evap(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 60 BULKF_AVE 
          BULK_flwup_Ave(i,j,bi,bj)    = BULK_flwup_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 61 BULKF_AVE 
     &                   +flwup(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 62 BULKF_AVE 
          BULK_flwupnet_Ave(i,j,bi,bj) = BULK_flwupnet_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 63 BULKF_AVE 
     &                   +flwupnet(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 64 BULKF_AVE 
          BULK_solar_Ave(i,j,bi,bj)    = BULK_solar_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 65 BULKF_AVE 
     &                   +fswnet(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_ave.F 66 BULKF_AVE 
          BULK_ssq_Ave(i,j,bi,bj)      = BULK_ssq_Ave(i,j,bi,bj)
./pkg/bulk_force/bulkf_ave.F 67 BULKF_AVE 
     &                   +savssq(i,j,bi,bj)*deltaTclock
./pkg/bulk_force/bulkf_fields_load.F 119 BULKF_FIELDS_LOAD 
      INTEGER bi,bj,i,j,intime0,intime1
./pkg/bulk_force/bulkf_fields_load.F 132 BULKF_FIELDS_LOAD 
            DO i = 1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_fields_load.F 133 BULKF_FIELDS_LOAD 
              tair0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 134 BULKF_FIELDS_LOAD 
              tair1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 135 BULKF_FIELDS_LOAD 
              qair0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 136 BULKF_FIELDS_LOAD 
              qair1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 137 BULKF_FIELDS_LOAD 
              rain0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 138 BULKF_FIELDS_LOAD 
              rain1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 139 BULKF_FIELDS_LOAD 
              solar0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 140 BULKF_FIELDS_LOAD 
              solar1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 141 BULKF_FIELDS_LOAD 
              flwdwn0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 142 BULKF_FIELDS_LOAD 
              flwdwn1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 143 BULKF_FIELDS_LOAD 
              cloud0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 144 BULKF_FIELDS_LOAD 
              cloud1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 145 BULKF_FIELDS_LOAD 
              wspeed0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 146 BULKF_FIELDS_LOAD 
              wspeed1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 147 BULKF_FIELDS_LOAD 
              uwind0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 148 BULKF_FIELDS_LOAD 
              uwind1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 149 BULKF_FIELDS_LOAD 
              vwind0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 150 BULKF_FIELDS_LOAD 
              vwind1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 151 BULKF_FIELDS_LOAD 
              runoff0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 152 BULKF_FIELDS_LOAD 
              runoff1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 153 BULKF_FIELDS_LOAD 
              snow0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 154 BULKF_FIELDS_LOAD 
              snow1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 156 BULKF_FIELDS_LOAD 
              thAir0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 157 BULKF_FIELDS_LOAD 
              thAir1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 159 BULKF_FIELDS_LOAD 
              qnetch0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 160 BULKF_FIELDS_LOAD 
              qnetch1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 161 BULKF_FIELDS_LOAD 
              empch0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 162 BULKF_FIELDS_LOAD 
              empch1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 295 BULKF_FIELDS_LOAD 
           DO i=1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_fields_load.F 296 BULKF_FIELDS_LOAD 
            empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F 297 BULKF_FIELDS_LOAD 
            empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F 349 BULKF_FIELDS_LOAD 
         DO i=1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_fields_load.F 352 BULKF_FIELDS_LOAD 
          TAIR(i,j,bi,bj)   = bWght*tair0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 353 BULKF_FIELDS_LOAD 
     &                       +aWght*tair1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 357 BULKF_FIELDS_LOAD 
          QAIR(i,j,bi,bj)    =(bWght*qair0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 358 BULKF_FIELDS_LOAD 
     &                        +aWght*qair1(i,j,bi,bj) )
./pkg/bulk_force/bulkf_fields_load.F 359 BULKF_FIELDS_LOAD 
          SOLAR(i,j,bi,bj)   = bWght*solar0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 360 BULKF_FIELDS_LOAD 
     &                        +aWght*solar1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 361 BULKF_FIELDS_LOAD 
          FLWDWN(i,j,bi,bj)  = bWght*flwdwn0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 362 BULKF_FIELDS_LOAD 
     &                        +aWght*flwdwn1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 363 BULKF_FIELDS_LOAD 
          CLOUD(i,j,bi,bj)   = bWght*cloud0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 364 BULKF_FIELDS_LOAD 
     &                        +aWght*cloud1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 365 BULKF_FIELDS_LOAD 
          WSPEED(i,j,bi,bj)  = bWght*wspeed0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 366 BULKF_FIELDS_LOAD 
     &                        +aWght*wspeed1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 367 BULKF_FIELDS_LOAD 
          UWIND(i,j,bi,bj)   = bWght*uwind0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 368 BULKF_FIELDS_LOAD 
     &                        +aWght*uwind1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 369 BULKF_FIELDS_LOAD 
          VWIND(i,j,bi,bj)   = bWght*vwind0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 370 BULKF_FIELDS_LOAD 
     &                        +aWght*vwind1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 371 BULKF_FIELDS_LOAD 
          RAIN(i,j,bi,bj)    = bWght*rain0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 372 BULKF_FIELDS_LOAD 
     &                        +aWght*rain1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 373 BULKF_FIELDS_LOAD 
          RUNOFF(i,j,bi,bj)  = bWght*runoff0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 374 BULKF_FIELDS_LOAD 
     &                        +aWght*runoff1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 376 BULKF_FIELDS_LOAD 
          SNOW(i,j,bi,bj)    = bWght*snow0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 377 BULKF_FIELDS_LOAD 
     &                        +aWght*snow1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 379 BULKF_FIELDS_LOAD 
          Qnetch(i,j,bi,bj)  = bWght*qnetch0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 380 BULKF_FIELDS_LOAD 
     &                        +aWght*qnetch1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 381 BULKF_FIELDS_LOAD 
          EmPch(i,j,bi,bj)   = bWght*empch0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 382 BULKF_FIELDS_LOAD 
     &                        +aWght*empch1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 388 BULKF_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_fields_load.F 389 BULKF_FIELDS_LOAD 
            thAir(i,j,bi,bj)  = bWght*thAir0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 390 BULKF_FIELDS_LOAD 
     &                        + aWght*thAir1(i,j,bi,bj)
./pkg/bulk_force/bulkf_flux_adjust.F 53 BULKF_FLUX_ADJUST 
      INTEGER i,j
./pkg/bulk_force/bulkf_flux_adjust.F 57 BULKF_FLUX_ADJUST 
         DO i = iMin, iMax
./pkg/bulk_force/bulkf_flux_adjust.F 58 BULKF_FLUX_ADJUST 
           IF ( adjustMask(i,j) ) Qnet(i,j,bi,bj) = Qnetch(i,j,bi,bj)
./pkg/bulk_force/bulkf_flux_adjust.F 65 BULKF_FLUX_ADJUST 
         DO i = iMin, iMax
./pkg/bulk_force/bulkf_flux_adjust.F 66 BULKF_FLUX_ADJUST 
           IF ( adjustMask(i,j) ) EmPmR(i,j,bi,bj) = EmPch(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 100 BULKF_FORCING 
                  evap(i,j,bi,bj) = EVPloc(1) * 1. _d -3 / rhoFW
./pkg/bulk_force/bulkf_forcing.F 109 BULKF_FORCING 
     I            uwind(i,j,bi,bj),vwind(i,j,bi,bj),wspeed(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 110 BULKF_FORCING 
     I            Tair(i,j,bi,bj), Qair(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 111 BULKF_FORCING 
     I            cloud(i,j,bi,bj),theta(i,j,ks,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 112 BULKF_FORCING 
     O            flwup(i,j,bi,bj), flh(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 113 BULKF_FORCING 
     O            fsh(i,j,bi,bj), df0dT,
./pkg/bulk_force/bulkf_forcing.F 114 BULKF_FORCING 
     O            ustress(i,j,bi,bj), vstress(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 115 BULKF_FORCING 
     O            evp, savssq(i,j,bi,bj), dEvdT,
./pkg/bulk_force/bulkf_forcing.F 121 BULKF_FORCING 
               evap(i,j,bi,bj) = evp/rhoFW
./pkg/bulk_force/bulkf_forcing.F 125 BULKF_FORCING 
     I            uwind(i,j,bi,bj), vwind(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 126 BULKF_FORCING 
     I            wspeed(i,j,bi,bj), Tair(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 127 BULKF_FORCING 
     I            Qair(i,j,bi,bj), theta(i,j,ks,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 128 BULKF_FORCING 
     O            flwup(i,j,bi,bj), flh(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 129 BULKF_FORCING 
     O            fsh(i,j,bi,bj), df0dT,
./pkg/bulk_force/bulkf_forcing.F 130 BULKF_FORCING 
     O            ustress(i,j,bi,bj), vstress(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 131 BULKF_FORCING 
     O            evp, savssq(i,j,bi,bj), dEvdT,
./pkg/bulk_force/bulkf_forcing.F 132 BULKF_FORCING 
     I            iceornot, i,j,bi,bj,myThid )
./pkg/bulk_force/bulkf_forcing.F 135 BULKF_FORCING 
               evap(i,j,bi,bj) = evp/rhoFW
./pkg/bulk_force/bulkf_forcing.F 140 BULKF_FORCING 
             flwupnet(i,j,bi,bj)=flwup(i,j,bi,bj)-flwdwn(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 142 BULKF_FORCING 
             fswnet(i,j,bi,bj) = solar(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 145 BULKF_FORCING 
             ustress(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 146 BULKF_FORCING 
             vstress(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 147 BULKF_FORCING 
             fsh(i,j,bi,bj)     = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 148 BULKF_FORCING 
             flh(i,j,bi,bj)     = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 149 BULKF_FORCING 
             flwup(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 150 BULKF_FORCING 
             evap(i,j,bi,bj)    = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 151 BULKF_FORCING 
             fswnet(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 152 BULKF_FORCING 
             savssq(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 160 BULKF_FORCING 
            DO i = 1-Olx+1,sNx+Olx
./pkg/bulk_force/bulkf_forcing.F 161 BULKF_FORCING 
              fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 162 BULKF_FORCING 
     &          *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0
./pkg/bulk_force/bulkf_forcing.F 166 BULKF_FORCING 
            DO i = 1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_forcing.F 167 BULKF_FORCING 
              fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 168 BULKF_FORCING 
     &          *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0
./pkg/bulk_force/bulkf_forcing.F 175 BULKF_FORCING 
          DO i = 1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_forcing.F 176 BULKF_FORCING 
            IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_forcing.F 179 BULKF_FORCING 
              hfl = hfl + fsh(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 180 BULKF_FORCING 
              hfl = hfl + flh(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 181 BULKF_FORCING 
              hfl = hfl - flwupnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 182 BULKF_FORCING 
              hfl = hfl + fswnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 184 BULKF_FORCING 
              Qnet(i,j,bi,bj) = -hfl
./pkg/bulk_force/bulkf_forcing.F 185 BULKF_FORCING 
              Qsw (i,j,bi,bj) = -fswnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 187 BULKF_FORCING 
              dFdT(i,j,bi,bj) = df0dT
./pkg/bulk_force/bulkf_forcing.F 190 BULKF_FORCING 
              EmPmR(i,j,bi,bj) = (evap(i,j,bi,bj)-rain(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 191 BULKF_FORCING 
     &                           - runoff(i,j,bi,bj))*rhoConstFresh
./pkg/bulk_force/bulkf_forcing.F 197 BULKF_FORCING 
              Qnet(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 198 BULKF_FORCING 
              Qsw (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 199 BULKF_FORCING 
              EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 201 BULKF_FORCING 
              dFdT(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 63 BULKF_FORCING 
      INTEGER i,j
./pkg/bulk_force/bulkf_forcing.F 82 BULKF_FORCING 
          DO i = 1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_forcing.F 83 BULKF_FORCING 
           IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_forcing.F 88 BULKF_FORCING 
     I            theta(i,j,ks,bi,bj), flwdwn(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 89 BULKF_FORCING 
     I            thAir(i,j,bi,bj), Tair(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 90 BULKF_FORCING 
     I            Qair(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/bulk_force/bulkf_forcing.F 95 BULKF_FORCING 
                  flwup(i,j,bi,bj)= ocean_emissivity*SLRU(1)
./pkg/bulk_force/bulkf_forcing.F 97 BULKF_FORCING 
                  fsh(i,j,bi,bj) = -SHF(1)
./pkg/bulk_force/bulkf_forcing.F 98 BULKF_FORCING 
                  flh(i,j,bi,bj) = -Lvap*EVPloc(1)
./pkg/bulk_force/bulkf_formula_lay.F 13 BULKF_FORMULA_LAY 
     I                           iceornot, i,j,bi,bj,myThid )
./pkg/bulk_force/bulkf_formula_lay.F 57 BULKF_FORMULA_LAY 
      INTEGER i,j, bi,bj     !current grid point indices
./pkg/bulk_force/bulkf_init_varia.F 39 BULKF_INIT_VARIA 
      INTEGER i, j
./pkg/bulk_force/bulkf_init_varia.F 45 BULKF_INIT_VARIA 
           DO i=1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_init_varia.F 46 BULKF_INIT_VARIA 
             Tair  (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 47 BULKF_INIT_VARIA 
             Qair  (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 48 BULKF_INIT_VARIA 
             Solar (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 49 BULKF_INIT_VARIA 
             flwdwn(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 50 BULKF_INIT_VARIA 
             cloud (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 51 BULKF_INIT_VARIA 
             wspeed(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 52 BULKF_INIT_VARIA 
             uwind (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 53 BULKF_INIT_VARIA 
             vwind (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 54 BULKF_INIT_VARIA 
             runoff(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 56 BULKF_INIT_VARIA 
             thAir (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 58 BULKF_INIT_VARIA 
             qnetch(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 59 BULKF_INIT_VARIA 
             empch (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 65 BULKF_INIT_VARIA 
           DO i=1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_init_varia.F 66 BULKF_INIT_VARIA 
              BULK_Qnet_Ave    (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 67 BULKF_INIT_VARIA 
              BULK_EmPmR_Ave   (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 68 BULKF_INIT_VARIA 
              BULK_fu_Ave      (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 69 BULKF_INIT_VARIA 
              BULK_fv_Ave      (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 70 BULKF_INIT_VARIA 
              BULK_latent_Ave  (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 71 BULKF_INIT_VARIA 
              BULK_sensible_Ave(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 72 BULKF_INIT_VARIA 
              BULK_evap_Ave    (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 73 BULKF_INIT_VARIA 
              BULK_flwup_Ave   (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 74 BULKF_INIT_VARIA 
              BULK_flwupnet_Ave(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 75 BULKF_INIT_VARIA 
              BULK_solar_Ave   (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 76 BULKF_INIT_VARIA 
              BULK_ssq_Ave     (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 82 BULKF_INIT_VARIA 
           DO i=1-Olx,sNx+Olx
./pkg/bulk_force/bulkf_init_varia.F 83 BULKF_INIT_VARIA 
              CONS_Qnet (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 84 BULKF_INIT_VARIA 
              CONS_EmPmR(i,j,bi,bj) = 0. _d 0
./eesupp/src/mds_byteswapi4.F 23 MDS_BYTESWAPI4 
      integer i
./eesupp/src/mds_byteswapi4.F 25 MDS_BYTESWAPI4 
      i32(i) = ishft(i.and. z'ff000000', -24) .or.
./eesupp/src/mds_byteswapi4.F 26 MDS_BYTESWAPI4 
     &         ishft(i.and. z'00ff0000',  -8) .or.
./eesupp/src/mds_byteswapi4.F 27 MDS_BYTESWAPI4 
     &         ishft(i.and. z'0000ff00',   8) .or.
./eesupp/src/mds_byteswapi4.F 28 MDS_BYTESWAPI4 
     &         ishft(i.and. z'000000ff',  24)
./eesupp/src/mds_byteswapi4.F 29 MDS_BYTESWAPI4 
      do i = 1,n
./eesupp/src/mds_byteswapi4.F 30 MDS_BYTESWAPI4 
      arr(i) = i32(arr(i))
./eesupp/src/mds_byteswapi4.F 40 MDS_BYTESWAPI4 
      integer i
./eesupp/src/mds_byteswapi4.F 43 MDS_BYTESWAPI4 
      do i=1,4*n,4
./eesupp/src/mds_byteswapi4.F 44 MDS_BYTESWAPI4 
       cc=arr(i:i)
./eesupp/src/mds_byteswapi4.F 45 MDS_BYTESWAPI4 
       arr(i:i)=arr(i+3:i+3)
./eesupp/src/mds_byteswapi4.F 46 MDS_BYTESWAPI4 
       arr(i+3:i+3)=cc
./eesupp/src/mds_byteswapi4.F 47 MDS_BYTESWAPI4 
       cc=arr(i+1:i+1)
./eesupp/src/mds_byteswapi4.F 48 MDS_BYTESWAPI4 
       arr(i+1:i+1)=arr(i+2:i+2)
./eesupp/src/mds_byteswapi4.F 49 MDS_BYTESWAPI4 
       arr(i+2:i+2)=cc
./pkg/cal/cal_daysformonth.F 140 CAL_DAYSFORMONTH 
          do i = 2,imonth-1
./pkg/cal/cal_daysformonth.F 161 CAL_DAYSFORMONTH 
          do i = 2,nummonths-1
./pkg/cal/cal_daysformonth.F 49 CAL_DAYSFORMONTH 
      integer i
./eesupp/src/mds_byteswapr4.F 23 MDS_BYTESWAPR4 
      integer i
./eesupp/src/mds_byteswapr4.F 25 MDS_BYTESWAPR4 
      i32(i) = ishft(i.and. z'ff000000', -24) .or.
./eesupp/src/mds_byteswapr4.F 26 MDS_BYTESWAPR4 
     &         ishft(i.and. z'00ff0000',  -8) .or.
./eesupp/src/mds_byteswapr4.F 27 MDS_BYTESWAPR4 
     &         ishft(i.and. z'0000ff00',   8) .or.
./eesupp/src/mds_byteswapr4.F 28 MDS_BYTESWAPR4 
     &         ishft(i.and. z'000000ff',  24)
./eesupp/src/mds_byteswapr4.F 29 MDS_BYTESWAPR4 
      do i = 1,n
./eesupp/src/mds_byteswapr4.F 30 MDS_BYTESWAPR4 
      arr(i) = i32(arr(i))
./eesupp/src/mds_byteswapr4.F 40 MDS_BYTESWAPR4 
      integer i
./eesupp/src/mds_byteswapr4.F 43 MDS_BYTESWAPR4 
      do i=1,4*n,4
./eesupp/src/mds_byteswapr4.F 44 MDS_BYTESWAPR4 
       cc=arr(i:i)
./eesupp/src/mds_byteswapr4.F 45 MDS_BYTESWAPR4 
       arr(i:i)=arr(i+3:i+3)
./eesupp/src/mds_byteswapr4.F 46 MDS_BYTESWAPR4 
       arr(i+3:i+3)=cc
./eesupp/src/mds_byteswapr4.F 47 MDS_BYTESWAPR4 
       cc=arr(i+1:i+1)
./eesupp/src/mds_byteswapr4.F 48 MDS_BYTESWAPR4 
       arr(i+1:i+1)=arr(i+2:i+2)
./eesupp/src/mds_byteswapr4.F 49 MDS_BYTESWAPR4 
       arr(i+2:i+2)=cc
./pkg/cal/cal_set.F 106 CAL_SET 
      integer i,j,k
./pkg/cal/cal_set.F 238 CAL_SET 
        do i=1,nmonthyear
./pkg/cal/cal_set.F 241 CAL_SET 
          ndaymonth(i,1) = 30+j
./pkg/cal/cal_set.F 242 CAL_SET 
          ndaymonth(i,2) = 30+j
./pkg/cal/cal_set.F 276 CAL_SET 
        do i=1,nmonthyear
./pkg/cal/cal_set.F 277 CAL_SET 
          ndaymonth(i,1) = 30
./pkg/cal/cal_set.F 278 CAL_SET 
          ndaymonth(i,2) = 30
./pkg/cal/cal_set.F 311 CAL_SET 
        do i=1,nmonthyear
./pkg/cal/cal_set.F 312 CAL_SET 
          ndaymonth(i,1) = 0
./pkg/cal/cal_set.F 313 CAL_SET 
          ndaymonth(i,2) = 0
./pkg/cal/cal_set.F 338 CAL_SET 
        do i=1,nmonthyear
./pkg/cal/cal_set.F 339 CAL_SET 
          ndaymonth(i,1) = 0
./pkg/cal/cal_set.F 340 CAL_SET 
          ndaymonth(i,2) = 0
./eesupp/src/mds_byteswapr8.F 23 MDS_BYTESWAPR8 
      integer i
./eesupp/src/mds_byteswapr8.F 33 MDS_BYTESWAPR8 
      do i=1,n
./eesupp/src/mds_byteswapr8.F 34 MDS_BYTESWAPR8 
      arr(i) = i64(arr(i))
./eesupp/src/mds_byteswapr8.F 44 MDS_BYTESWAPR8 
      integer i
./eesupp/src/mds_byteswapr8.F 47 MDS_BYTESWAPR8 
      do i=1,8*n,8
./eesupp/src/mds_byteswapr8.F 48 MDS_BYTESWAPR8 
       cc=arr(i:i)
./eesupp/src/mds_byteswapr8.F 49 MDS_BYTESWAPR8 
       arr(i:i)=arr(i+7:i+7)
./eesupp/src/mds_byteswapr8.F 50 MDS_BYTESWAPR8 
       arr(i+7:i+7)=cc
./eesupp/src/mds_byteswapr8.F 51 MDS_BYTESWAPR8 
       cc=arr(i+1:i+1)
./eesupp/src/mds_byteswapr8.F 52 MDS_BYTESWAPR8 
       arr(i+1:i+1)=arr(i+6:i+6)
./eesupp/src/mds_byteswapr8.F 53 MDS_BYTESWAPR8 
       arr(i+6:i+6)=cc
./eesupp/src/mds_byteswapr8.F 54 MDS_BYTESWAPR8 
       cc=arr(i+2:i+2)
./eesupp/src/mds_byteswapr8.F 55 MDS_BYTESWAPR8 
       arr(i+2:i+2)=arr(i+5:i+5)
./eesupp/src/mds_byteswapr8.F 56 MDS_BYTESWAPR8 
       arr(i+5:i+5)=cc
./eesupp/src/mds_byteswapr8.F 57 MDS_BYTESWAPR8 
       cc=arr(i+3:i+3)
./eesupp/src/mds_byteswapr8.F 58 MDS_BYTESWAPR8 
       arr(i+3:i+3)=arr(i+4:i+4)
./eesupp/src/mds_byteswapr8.F 59 MDS_BYTESWAPR8 
       arr(i+4:i+4)=cc
./eesupp/src/mds_check4file.F 102 MDS_CHECK4FILE 
        i  = MAX(ILNBLNK(fileName),1)
./eesupp/src/mds_check4file.F 111 MDS_CHECK4FILE 
     &       filePfx(1:ip), ' , ', fileSfx(1:is), ' , ', fileName(1:i)
./eesupp/src/mds_check4file.F 51 MDS_CHECK4FILE 
      INTEGER ip, is, iL, i, ioUnit
./eesupp/src/mds_check4file.F 61 MDS_CHECK4FILE 
       i  = LEN(fileName)
./eesupp/src/mds_check4file.F 62 MDS_CHECK4FILE 
      IF ( i .LT. ip+is+8 ) THEN
./eesupp/src/mds_check4file.F 64 MDS_CHECK4FILE 
     &    'MDS_CHECK4FILE: file name length=', i,
./pkg/cd_code/cd_code_scheme.F 101 CD_CODE_SCHEME 
        pf(i,j) = Bo_surf(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 102 CD_CODE_SCHEME 
     &          *( ab15*etaN(i,j,bi,bj) + ab05*etaNm1(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 112 CD_CODE_SCHEME 
       DO i=1-Olx,sNx+Olx
./pkg/cd_code/cd_code_scheme.F 113 CD_CODE_SCHEME 
        af(i,j) =
./pkg/cd_code/cd_code_scheme.F 114 CD_CODE_SCHEME 
     &        (  gvFld(i,j)
./pkg/cd_code/cd_code_scheme.F 115 CD_CODE_SCHEME 
     &          -( _recip_dyC(i,j,bi,bj)*(pf(i,j)-pf(i,j-1))
./pkg/cd_code/cd_code_scheme.F 116 CD_CODE_SCHEME 
     &            +phyFac*dPhiHydY(i,j) )
./pkg/cd_code/cd_code_scheme.F 117 CD_CODE_SCHEME 
     &        )*_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 122 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 123 CD_CODE_SCHEME 
        vf(i,j) =
./pkg/cd_code/cd_code_scheme.F 124 CD_CODE_SCHEME 
     &           ( (af(i,j)+af(i-1,j+1))
./pkg/cd_code/cd_code_scheme.F 125 CD_CODE_SCHEME 
     &            +(af(i-1,j)+af(i,j+1)) )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 126 CD_CODE_SCHEME 
     &           *_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 127 CD_CODE_SCHEME 
     &          -( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 128 CD_CODE_SCHEME 
     &            +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 130 CD_CODE_SCHEME 
     &           *uVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 132 CD_CODE_SCHEME 
     &           *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 138 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 139 CD_CODE_SCHEME 
        vVelD(i,j,k,bi,bj) = vVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j)
./pkg/cd_code/cd_code_scheme.F 144 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 145 CD_CODE_SCHEME 
         vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 148 CD_CODE_SCHEME 
     &                  (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 149 CD_CODE_SCHEME 
     &                 +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 152 CD_CODE_SCHEME 
     &                  (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 153 CD_CODE_SCHEME 
     &                 +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 155 CD_CODE_SCHEME 
     &          )             )*_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 160 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 161 CD_CODE_SCHEME 
        guCor(i,j) =
./pkg/cd_code/cd_code_scheme.F 162 CD_CODE_SCHEME 
     &              ( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 163 CD_CODE_SCHEME 
     &               +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 164 CD_CODE_SCHEME 
     &              *vVelD(i,j,k,bi,bj)*cfFacMom
./pkg/cd_code/cd_code_scheme.F 171 CD_CODE_SCHEME 
       DO i=1-Olx+1,sNx+Olx
./pkg/cd_code/cd_code_scheme.F 172 CD_CODE_SCHEME 
        af(i,j) =
./pkg/cd_code/cd_code_scheme.F 173 CD_CODE_SCHEME 
     &        (  guFld(i,j)
./pkg/cd_code/cd_code_scheme.F 174 CD_CODE_SCHEME 
     &          -( _recip_dxC(i,j,bi,bj)*(pf(i,j)-pf(i-1,j))
./pkg/cd_code/cd_code_scheme.F 175 CD_CODE_SCHEME 
     &            +phxFac*dPhiHydX(i,j) )
./pkg/cd_code/cd_code_scheme.F 176 CD_CODE_SCHEME 
     &        )*_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 181 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 182 CD_CODE_SCHEME 
        vf(i,j) =
./pkg/cd_code/cd_code_scheme.F 183 CD_CODE_SCHEME 
     &           ( (af(i,j)+af(i+1,j-1))
./pkg/cd_code/cd_code_scheme.F 184 CD_CODE_SCHEME 
     &            +(af(i+1,j)+af(i,j-1)) )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 185 CD_CODE_SCHEME 
     &           *_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 186 CD_CODE_SCHEME 
     &          +( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 187 CD_CODE_SCHEME 
     &            +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 189 CD_CODE_SCHEME 
     &           *vVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 191 CD_CODE_SCHEME 
     &           *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 197 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 198 CD_CODE_SCHEME 
        uVelD(i,j,k,bi,bj) = uVelD(i,j,k,bi,bj) + deltaTmom*vf(i,j)
./pkg/cd_code/cd_code_scheme.F 203 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 204 CD_CODE_SCHEME 
         uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 207 CD_CODE_SCHEME 
     &                  (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 208 CD_CODE_SCHEME 
     &                 +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 211 CD_CODE_SCHEME 
     &                  (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 212 CD_CODE_SCHEME 
     &                 +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 214 CD_CODE_SCHEME 
     &          )             )*_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 219 CD_CODE_SCHEME 
       DO i=iMin,iMax
./pkg/cd_code/cd_code_scheme.F 220 CD_CODE_SCHEME 
        gvCor(i,j) =
./pkg/cd_code/cd_code_scheme.F 221 CD_CODE_SCHEME 
     &             -( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 222 CD_CODE_SCHEME 
     &               +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 223 CD_CODE_SCHEME 
     &              *uVelD(i,j,k,bi,bj)*cfFacMom
./pkg/cd_code/cd_code_scheme.F 229 CD_CODE_SCHEME 
       DO i=1-OLx,sNx+OLx
./pkg/cd_code/cd_code_scheme.F 230 CD_CODE_SCHEME 
         uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 231 CD_CODE_SCHEME 
         vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 59 CD_CODE_SCHEME 
      INTEGER i,j
./pkg/cd_code/cd_code_scheme.F 94 CD_CODE_SCHEME 
       DO i=1-Olx,sNx+Olx
./pkg/cd_code/cd_code_scheme.F 97 CD_CODE_SCHEME 
        pf(i,j) =
./pkg/cd_code/cd_code_scheme.F 98 CD_CODE_SCHEME 
     &   ab15*(  etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 99 CD_CODE_SCHEME 
     &  +ab05*(etaNm1(i,j,bi,bj)*Bo_surf(i,j,bi,bj) )
./pkg/cfc/cfc11_forcing.F 100 CFC11_FORCING 
             ATMOSCFC11(i,j,bi,bj)=a1*ACFC11south +
./pkg/cfc/cfc11_forcing.F 104 CFC11_FORCING 
             ATMOSCFC11(i,j,bi,bj)=ACFC11south
./pkg/cfc/cfc11_forcing.F 114 CFC11_FORCING 
          i=1
./pkg/cfc/cfc11_forcing.F 115 CFC11_FORCING 
          IF(yC(i,j,bi,bj) .GE. yNorth) THEN
./pkg/cfc/cfc11_forcing.F 117 CFC11_FORCING 
          ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN
./pkg/cfc/cfc11_forcing.F 120 CFC11_FORCING 
             xintp(j) = (yC(i,j,bi,bj) - ySouth)/
./pkg/cfc/cfc11_forcing.F 123 CFC11_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc11_forcing.F 124 CFC11_FORCING 
           ATMOSCFC11(i,j,bi,bj)= xintp(j) * ACFC11north
./pkg/cfc/cfc11_forcing.F 137 CFC11_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc11_forcing.F 138 CFC11_FORCING 
           GCFC11(i,j,1)=GCFC11(i,j,1)+SURCFC11(i,j)
./pkg/cfc/cfc11_forcing.F 61 CFC11_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc11_forcing.F 62 CFC11_FORCING 
           SURCFC11(i,j)=0.d0
./pkg/cfc/cfc11_forcing.F 93 CFC11_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc11_forcing.F 95 CFC11_FORCING 
             ATMOSCFC11(i,j,bi,bj)=ACFC11north
./pkg/cfc/cfc11_surfforcing.F 51 CFC11_SURFFORCING 
          DO i=iMin,iMax
./pkg/cfc/cfc11_surfforcing.F 52 CFC11_SURFFORCING 
            IF (maskC(i,j,k,bi,bj).NE.0.) THEN
./pkg/cfc/cfc11_surfforcing.F 54 CFC11_SURFFORCING 
              SchmidtNocfc11(i,j) =
./pkg/cfc/cfc11_surfforcing.F 56 CFC11_SURFFORCING 
     &          + sca_11_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 57 CFC11_SURFFORCING 
     &          + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 58 CFC11_SURFFORCING 
     &          + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 59 CFC11_SURFFORCING 
     &                *theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 61 CFC11_SURFFORCING 
              ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc11_surfforcing.F 64 CFC11_SURFFORCING 
              SolCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F 69 CFC11_SURFFORCING 
     &           +  Salt(i,j,k,bi,bj)* ttemp2 )
./pkg/cfc/cfc11_surfforcing.F 71 CFC11_SURFFORCING 
              SolCFC11(i,j) = 1000. _d 0 * SolCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F 73 CFC11_SURFFORCING 
              SolCFC11(i,j) = 1. _d -12 * SolCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F 75 CFC11_SURFFORCING 
              Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 76 CFC11_SURFFORCING 
     &                     *AtmosCFC11(i,j,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 77 CFC11_SURFFORCING 
              Kwexch(i,j) = (1. _d 0 - fice(i,j,bi,bj))
./pkg/cfc/cfc11_surfforcing.F 78 CFC11_SURFFORCING 
     &                    * pisvel(i,j,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 79 CFC11_SURFFORCING 
     &                    / sqrt(SchmidtNoCFC11(i,j)/660. _d 0)
./pkg/cfc/cfc11_surfforcing.F 80 CFC11_SURFFORCING 
              FluxCFC11(i,j) =
./pkg/cfc/cfc11_surfforcing.F 81 CFC11_SURFFORCING 
     &        Kwexch(i,j)*(Csat(i,j) - PTR_CFC11(i,j,1))
./pkg/cfc/cfc11_surfforcing.F 84 CFC11_SURFFORCING 
              FluxCFC11(i,j) = 0. _d 0
./pkg/cfc/cfc11_surfforcing.F 93 CFC11_SURFFORCING 
          DO i=iMin,iMax
./pkg/cfc/cfc11_surfforcing.F 94 CFC11_SURFFORCING 
           SURFCFC11(i,j)=
./pkg/cfc/cfc11_surfforcing.F 95 CFC11_SURFFORCING 
     &         maskC(i,j,1,bi,bj)*FluxCFC11(i,j)*recip_drF(1)
./pkg/cfc/cfc12_forcing.F 100 CFC12_FORCING 
             ATMOSCFC12(i,j,bi,bj)=a1*ACFC12south +
./pkg/cfc/cfc12_forcing.F 104 CFC12_FORCING 
             ATMOSCFC12(i,j,bi,bj)=ACFC12south
./pkg/cfc/cfc12_forcing.F 114 CFC12_FORCING 
          i=1
./pkg/cfc/cfc12_forcing.F 115 CFC12_FORCING 
          IF(yC(i,j,bi,bj) .GE. yNorth) THEN
./pkg/cfc/cfc12_forcing.F 117 CFC12_FORCING 
          ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN
./pkg/cfc/cfc12_forcing.F 120 CFC12_FORCING 
             xintp(j) = (yC(i,j,bi,bj) - ySouth)/
./pkg/cfc/cfc12_forcing.F 123 CFC12_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc12_forcing.F 124 CFC12_FORCING 
           ATMOSCFC12(i,j,bi,bj)= xintp(j) * ACFC12north
./pkg/cfc/cfc12_forcing.F 137 CFC12_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc12_forcing.F 138 CFC12_FORCING 
           GCFC12(i,j,1)=GCFC12(i,j,1)+SURCFC12(i,j)
./pkg/cfc/cfc12_forcing.F 61 CFC12_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc12_forcing.F 62 CFC12_FORCING 
           SURCFC12(i,j)=0.d0
./pkg/cfc/cfc12_forcing.F 93 CFC12_FORCING 
        DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc12_forcing.F 95 CFC12_FORCING 
             ATMOSCFC12(i,j,bi,bj)=ACFC12north
./pkg/cfc/cfc12_surfforcing.F 51 CFC12_SURFFORCING 
          DO i=iMin,iMax
./pkg/cfc/cfc12_surfforcing.F 52 CFC12_SURFFORCING 
            IF (maskC(i,j,k,bi,bj).NE.0.) THEN
./pkg/cfc/cfc12_surfforcing.F 54 CFC12_SURFFORCING 
              SchmidtNocfc12(i,j) =
./pkg/cfc/cfc12_surfforcing.F 56 CFC12_SURFFORCING 
     &          + sca_12_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 57 CFC12_SURFFORCING 
     &          + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 58 CFC12_SURFFORCING 
     &          + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 59 CFC12_SURFFORCING 
     &                *theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 61 CFC12_SURFFORCING 
              ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc12_surfforcing.F 64 CFC12_SURFFORCING 
              SolCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F 69 CFC12_SURFFORCING 
     &           +  Salt(i,j,k,bi,bj)* ttemp2 )
./pkg/cfc/cfc12_surfforcing.F 71 CFC12_SURFFORCING 
              SolCFC12(i,j) = 1000. _d 0 * SolCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F 73 CFC12_SURFFORCING 
              SolCFC12(i,j) = 1. _d -12 * SolCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F 75 CFC12_SURFFORCING 
              Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 76 CFC12_SURFFORCING 
     &                     *AtmosCFC12(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 77 CFC12_SURFFORCING 
              Kwexch(i,j) = (1. _d 0 - fice(i,j,bi,bj))
./pkg/cfc/cfc12_surfforcing.F 78 CFC12_SURFFORCING 
     &                    * pisvel(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 79 CFC12_SURFFORCING 
     &                    / sqrt(SchmidtNoCFC12(i,j)/660. _d 0)
./pkg/cfc/cfc12_surfforcing.F 80 CFC12_SURFFORCING 
              FluxCFC12(i,j) =
./pkg/cfc/cfc12_surfforcing.F 81 CFC12_SURFFORCING 
     &        Kwexch(i,j)*(Csat(i,j) - PTR_CFC12(i,j,1))
./pkg/cfc/cfc12_surfforcing.F 84 CFC12_SURFFORCING 
              FluxCFC12(i,j) = 0. _d 0
./pkg/cfc/cfc12_surfforcing.F 92 CFC12_SURFFORCING 
          DO i=iMin,iMax
./pkg/cfc/cfc12_surfforcing.F 93 CFC12_SURFFORCING 
           SURFCFC12(i,j)=
./pkg/cfc/cfc12_surfforcing.F 94 CFC12_SURFFORCING 
     &         maskC(i,j,1,bi,bj)*FluxCFC12(i,j)*recip_drF(1)
./pkg/cfc/cfc_atmos.F 30 CFC_ATMOS 
      integer i,j,bi,bj
./pkg/cfc/cfc_atmos.F 39 CFC_ATMOS 
         DO i=1-OLx,sNx+OLx
./pkg/cfc/cfc_atmos.F 40 CFC_ATMOS 
           AtmosCFC11(i,j,bi,bj)=0. _d 0
./pkg/cfc/cfc_atmos.F 41 CFC_ATMOS 
           AtmosCFC12(i,j,bi,bj)=0. _d 0
./pkg/cfc/cfc_atmos.F 62 CFC_ATMOS 
      DO i =1,6
./pkg/cfc/cfc_fields_load.F 126 CFC_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/cfc/cfc_fields_load.F 129 CFC_FIELDS_LOAD 
           pisvel(i,j,bi,bj)=(0.31 _d 0*sh(i,j,bi,bj)**2)/3.6 _d 5
./pkg/cfc/cfc_fields_load.F 141 CFC_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/cfc/cfc_fields_load.F 143 CFC_FIELDS_LOAD 
             WIND = bWght*wind0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 144 CFC_FIELDS_LOAD 
     &                           +aWght*wind1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 146 CFC_FIELDS_LOAD 
             WIND = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/cfc/cfc_fields_load.F 151 CFC_FIELDS_LOAD 
           pisvel(i,j,bi,bj)=(0.31 _d 0*wind**2)/3.6 _d 5
./pkg/cfc/cfc_fields_load.F 161 CFC_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/cfc/cfc_fields_load.F 163 CFC_FIELDS_LOAD 
             ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 164 CFC_FIELDS_LOAD 
     &                          +aWght*atmosp1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 166 CFC_FIELDS_LOAD 
             ATMOSP(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/cfc/cfc_fields_load.F 177 CFC_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/cfc/cfc_fields_load.F 190 CFC_FIELDS_LOAD 
          DO i=1-Olx,sNx+Olx
./pkg/cfc/cfc_fields_load.F 192 CFC_FIELDS_LOAD 
            FIce(i,j,bi,bj)    = bWght*ice0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 193 CFC_FIELDS_LOAD 
     &                          +aWght*ice1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 195 CFC_FIELDS_LOAD 
            FIce(i,j,bi,bj) =0. _d 0
./pkg/cfc/cfc_fields_load.F 35 CFC_FIELDS_LOAD 
       INTEGER bi,bj,i,j,intime0,intime1
./pkg/cheapaml/adams2d.F 46 ADAMS2D 
      INTEGER i,j
./pkg/cheapaml/adams2d.F 64 ADAMS2D 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/adams2d.F 65 ADAMS2D 
        gTrtmp = ab15*gTracer(i,j,bi,bj)
./pkg/cheapaml/adams2d.F 66 ADAMS2D 
     &         + ab05*gTrNm1(i,j,bi,bj)
./pkg/cheapaml/adams2d.F 67 ADAMS2D 
        gTrNm1(i,j,bi,bj) = gTracer(i,j,bi,bj)
./pkg/cheapaml/adams2d.F 68 ADAMS2D 
        gTracer(i,j,bi,bj) = gTrtmp
./pkg/cheapaml/cheapaml.F 157 CHEAPAML 
           do i = 1-olx,snx+olx
./pkg/cheapaml/cheapaml.F 158 CHEAPAML 
             if (hFacC(i,j,1,bi,bj).ne.0. _d 0) then
./pkg/cheapaml/cheapaml.F 160 CHEAPAML 
               if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then
./pkg/cheapaml/cheapaml.F 161 CHEAPAML 
                 tmp=Tsrf(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 162 CHEAPAML 
                if (snowheight(i,j,bi,bj).gt.3. _d -1) then
./pkg/cheapaml/cheapaml.F 173 CHEAPAML 
                       uw=uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 174 CHEAPAML 
                       vw=vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 180 CHEAPAML 
                       ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw
./pkg/cheapaml/cheapaml.F 181 CHEAPAML 
                       vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw
./pkg/cheapaml/cheapaml.F 183 CHEAPAML 
               ustress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F 184 CHEAPAML 
               vstress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F 191 CHEAPAML 
           do i = 1-olx,snx+olx
./pkg/cheapaml/cheapaml.F 192 CHEAPAML 
        Qnet(i,j,bi,bj)=0.d0
./pkg/cheapaml/cheapaml.F 214 CHEAPAML 
         do i=1-olx,snx+olx
./pkg/cheapaml/cheapaml.F 215 CHEAPAML 
         gTair(i,j,bi,bj)=0.d0
./pkg/cheapaml/cheapaml.F 280 CHEAPAML 
        do i=1-olx,snx+olx
./pkg/cheapaml/cheapaml.F 281 CHEAPAML 
        to=theta(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 282 CHEAPAML 
        t=Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 327 CHEAPAML 
                        uw=uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 328 CHEAPAML 
                        vw=vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 351 CHEAPAML 
        xflu=(-solar(i,j,bi,bj)+xalw+flha)*xef*hfacC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 354 CHEAPAML 
        xfld=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha)
./pkg/cheapaml/cheapaml.F 355 CHEAPAML 
     .*xef*hfacC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 358 CHEAPAML 
        gTair(i,j,bi,bj)=(xfld-xflu)*hm
./pkg/cheapaml/cheapaml.F 364 CHEAPAML 
        Qnet(i,j,bi,bj)=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha)
./pkg/cheapaml/cheapaml.F 365 CHEAPAML 
     .*hfacC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 418 CHEAPAML 
        do i=1-olx,snx+olx
./pkg/cheapaml/cheapaml.F 419 CHEAPAML 
        dtemp=tr(i,j,bi,bj)-Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 420 CHEAPAML 
        Tair(i,j,bi,bj)=Tair(i,j,bi,bj)+xgs*deltaT*dtemp
./pkg/cheapaml/cheapaml.F 421 CHEAPAML 
     .*xrelf*(1.d0-hFacC(i,j,1,bi,bj))
./pkg/cheapaml/cheapaml.F 442 CHEAPAML 
            DO i = 1-Olx+1,sNx+Olx
./pkg/cheapaml/cheapaml.F 443 CHEAPAML 
              fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 444 CHEAPAML 
     &          *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0
./pkg/cheapaml/cheapaml.F 448 CHEAPAML 
            DO i = 1-Olx,sNx+Olx
./pkg/cheapaml/cheapaml.F 449 CHEAPAML 
              fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 450 CHEAPAML 
     &          *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0
./pkg/cheapaml/cheapaml.F 57 CHEAPAML 
      integer i,j,k,nt
./pkg/cheapaml/cheapaml_fields_load.F 109 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 114 CHEAPAML_FIELDS_LOAD 
                  Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 124 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 126 CHEAPAML_FIELDS_LOAD 
          local=solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 130 CHEAPAML_FIELDS_LOAD 
          TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 140 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 142 CHEAPAML_FIELDS_LOAD 
                  local = Tr(i,j,bi,bj)+273.16d0
./pkg/cheapaml/cheapaml_fields_load.F 144 CHEAPAML_FIELDS_LOAD 
                  qr(i,j,bi,bj) = 0.8d0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F 154 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 157 CHEAPAML_FIELDS_LOAD 
                  uwind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 167 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 169 CHEAPAML_FIELDS_LOAD 
                  vwind(i,j,bi,bj) = 0.d0
./pkg/cheapaml/cheapaml_fields_load.F 268 CHEAPAML_FIELDS_LOAD 
         DO i=1-Olx,sNx+Olx
./pkg/cheapaml/cheapaml_fields_load.F 269 CHEAPAML_FIELDS_LOAD 
          TR(i,j,bi,bj)   = bWght*trair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 270 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*trair1(i,j,bi,bj)   !+273.15
./pkg/cheapaml/cheapaml_fields_load.F 271 CHEAPAML_FIELDS_LOAD 
          qr(i,j,bi,bj)   = bWght*qrair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 272 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*qrair1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 273 CHEAPAML_FIELDS_LOAD 
          uwind(i,j,bi,bj)   = bWght*uwind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 274 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*uwind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 275 CHEAPAML_FIELDS_LOAD 
          vwind(i,j,bi,bj)   = bWght*vwind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 276 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*vwind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 277 CHEAPAML_FIELDS_LOAD 
          solar(i,j,bi,bj)   = bWght*solar0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 278 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*solar1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 294 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 298 CHEAPAML_FIELDS_LOAD 
                  Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 311 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 313 CHEAPAML_FIELDS_LOAD 
        local=solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 317 CHEAPAML_FIELDS_LOAD 
                  TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 332 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 334 CHEAPAML_FIELDS_LOAD 
                  local = Tr(i,j,bi,bj)+273.16d0
./pkg/cheapaml/cheapaml_fields_load.F 336 CHEAPAML_FIELDS_LOAD 
                  qr(i,j,bi,bj) = 0.8d0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F 349 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 356 CHEAPAML_FIELDS_LOAD 
                  uwind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 369 CHEAPAML_FIELDS_LOAD 
            DO i=1,sNx
./pkg/cheapaml/cheapaml_fields_load.F 371 CHEAPAML_FIELDS_LOAD 
                  vwind(i,j,bi,bj) = 0.d0
./pkg/cheapaml/cheapaml_fields_load.F 72 CHEAPAML_FIELDS_LOAD 
      INTEGER bi,bj,i,j,intime0,intime1
./pkg/cheapaml/cheapaml_init_varia.F 52 CHEAPAML_INIT_VARIA 
               DO i=1,sNx
./pkg/cheapaml/cheapaml_init_varia.F 54 CHEAPAML_INIT_VARIA 
                  iG=myXGlobalLo-1+(bi-1)*sNx+i
./pkg/cheapaml/cheapaml_init_varia.F 57 CHEAPAML_INIT_VARIA 
                  Tair(i,j,bi,bj) = localt
./pkg/cheapaml/cycle_2d_tracer.F 43 CYCLE_2D_TRACER 
      INTEGER i,j
./pkg/cheapaml/cycle_2d_tracer.F 49 CYCLE_2D_TRACER 
       DO i=1-OLx,sNx+OLx
./pkg/cheapaml/cycle_2d_tracer.F 50 CYCLE_2D_TRACER 
        tracer(i,j,bi,bj)=gTracer(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 102 GAD_2D_CALC_RHS 
       DO i=1-OLx,sNx+OLx
./pkg/cheapaml/gad_2d_calc_rhs.F 103 GAD_2D_CALC_RHS 
        localT(i,j)=tracer(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 109 GAD_2D_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_2d_calc_rhs.F 110 GAD_2D_CALC_RHS 
        fZon(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 117 GAD_2D_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_2d_calc_rhs.F 118 GAD_2D_CALC_RHS 
        fZon(i,j) = fZon(i,j) + af(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F 127 GAD_2D_CALC_RHS 
        DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_2d_calc_rhs.F 128 GAD_2D_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 134 GAD_2D_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_2d_calc_rhs.F 135 GAD_2D_CALC_RHS 
        fZon(i,j) = fZon(i,j) + df(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F 141 GAD_2D_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_2d_calc_rhs.F 142 GAD_2D_CALC_RHS 
        fMer(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 149 GAD_2D_CALC_RHS 
         DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_2d_calc_rhs.F 150 GAD_2D_CALC_RHS 
          fMer(i,j) = fMer(i,j) + af(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F 158 GAD_2D_CALC_RHS 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_2d_calc_rhs.F 159 GAD_2D_CALC_RHS 
        fMer(i,j) = fMer(i,j) + df(i,j)
./pkg/cheapaml/gad_2d_calc_rhs.F 165 GAD_2D_CALC_RHS 
       DO i=1-Olx,sNx+Olx-1
./pkg/cheapaml/gad_2d_calc_rhs.F 166 GAD_2D_CALC_RHS 
        gTracer(i,j,bi,bj)=gTracer(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 167 GAD_2D_CALC_RHS 
     &   - (recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 168 GAD_2D_CALC_RHS 
     &      *(fZon(i+1,j)-fZon(i,j))
./pkg/cheapaml/gad_2d_calc_rhs.F 169 GAD_2D_CALC_RHS 
     &     +recip_dyC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 170 GAD_2D_CALC_RHS 
     &      *(fMer(i,j+1)-fMer(i,j))
./pkg/cheapaml/gad_2d_calc_rhs.F 83 GAD_2D_CALC_RHS 
      INTEGER i,j
./pkg/cheapaml/gad_2d_calc_rhs.F 93 GAD_2D_CALC_RHS 
       DO i=1-OLx,sNx+OLx
./pkg/cheapaml/gad_2d_calc_rhs.F 94 GAD_2D_CALC_RHS 
        fZon(i,j)      = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 95 GAD_2D_CALC_RHS 
        fMer(i,j)      = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 96 GAD_2D_CALC_RHS 
        df(i,j)        = 0. _d 0
./pkg/cheapaml/gad_c2_2d_adv_x.F 45 GAD_C2_2D_ADV_X 
      INTEGER i,j
./pkg/cheapaml/gad_c2_2d_adv_x.F 50 GAD_C2_2D_ADV_X 
       DO i=1-Olx+1,sNx+Olx
./pkg/cheapaml/gad_c2_2d_adv_x.F 51 GAD_C2_2D_ADV_X 
        uT(i,j) =
./pkg/cheapaml/gad_c2_2d_adv_x.F 52 GAD_C2_2D_ADV_X 
     &   uVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0
./pkg/cheapaml/gad_c2_2d_adv_y.F 45 GAD_C2_2D_ADV_Y 
      INTEGER i,j
./pkg/cheapaml/gad_c2_2d_adv_y.F 48 GAD_C2_2D_ADV_Y 
      DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_c2_2d_adv_y.F 49 GAD_C2_2D_ADV_Y 
       vT(i,1-Oly)=0.
./pkg/cheapaml/gad_c2_2d_adv_y.F 52 GAD_C2_2D_ADV_Y 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_c2_2d_adv_y.F 53 GAD_C2_2D_ADV_Y 
        vT(i,j) =
./pkg/cheapaml/gad_c2_2d_adv_y.F 54 GAD_C2_2D_ADV_Y 
     &   vVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0
./pkg/cheapaml/gad_diff_2d_x.F 46 GAD_DIFF_2D_X 
      INTEGER i,j
./pkg/cheapaml/gad_diff_2d_x.F 51 GAD_DIFF_2D_X 
       DO i=1-Olx+1,sNx+Olx
./pkg/cheapaml/gad_diff_2d_x.F 52 GAD_DIFF_2D_X 
        dfx(i,j) = -diffKh
./pkg/cheapaml/gad_diff_2d_x.F 53 GAD_DIFF_2D_X 
     &      *_recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_diff_2d_x.F 54 GAD_DIFF_2D_X 
     &      *(Tracer(i,j)-Tracer(i-1,j))
./pkg/cheapaml/gad_diff_2d_y.F 46 GAD_DIFF_2D_Y 
      INTEGER i,j
./pkg/cheapaml/gad_diff_2d_y.F 49 GAD_DIFF_2D_Y 
      DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_diff_2d_y.F 50 GAD_DIFF_2D_Y 
       dfy(i,1-Oly)=0.
./pkg/cheapaml/gad_diff_2d_y.F 53 GAD_DIFF_2D_Y 
       DO i=1-Olx,sNx+Olx
./pkg/cheapaml/gad_diff_2d_y.F 54 GAD_DIFF_2D_Y 
        dfy(i,j) = -diffKh
./pkg/cheapaml/gad_diff_2d_y.F 55 GAD_DIFF_2D_Y 
     &      *_recip_dyC(i,j,bi,bj)
./pkg/cheapaml/gad_diff_2d_y.F 56 GAD_DIFF_2D_Y 
     &      *(Tracer(i,j)-Tracer(i,j-1))
./pkg/cheapaml/gad_diff_2d_y.F 61 GAD_DIFF_2D_Y 
        if(jG.eq.ny.or.jG.eq.1)dfy(i,j)=0.d0
./pkg/cheapaml/timestep_2d_tracer.F 39 TIMESTEP_2D_TRACER 
      INTEGER i,j
./pkg/cheapaml/timestep_2d_tracer.F 46 TIMESTEP_2D_TRACER 
       DO i=iMin,iMax
./pkg/cheapaml/timestep_2d_tracer.F 47 TIMESTEP_2D_TRACER 
         gTracer(i,j,bi,bj)=tracer(i,j,bi,bj)
./pkg/cheapaml/timestep_2d_tracer.F 48 TIMESTEP_2D_TRACER 
     &            +deltaTtracer*gTracer(i,j,bi,bj)
./pkg/chronos/chronos.F 304 GET_TIME 
      integer nsecf,i,nsegm,nsegd,iday,iday2,nday
./pkg/chronos/chronos.F 418 INTERP_TIME 
      integer i,nsecf
./pkg/chronos/chronos.F 580 TIC_TIME 
      integer i,nsecf,iday,iday0,nsec,nsec0,ntime
./pkg/chronos/chronos.F 737 ASTRO 
      integer i,nsecf,k,km,kp
./pkg/compon_communic/comprecv_r4.F 20 COMPRECV_R4 
      integer i,j,ij,nx,ny
./pkg/compon_communic/comprecv_r4.F 71 COMPRECV_R4 
       do i=1,Ni
./pkg/compon_communic/comprecv_r4.F 72 COMPRECV_R4 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r4.F 73 COMPRECV_R4 
        arr(i,j)=r4buf(ij)
./pkg/compon_communic/comprecv_r4tiles.F 20 COMPRECV_R4TILES 
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r4tiles.F 78 COMPRECV_R4TILES 
        do i=1,Ni
./pkg/compon_communic/comprecv_r4tiles.F 79 COMPRECV_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r4tiles.F 80 COMPRECV_R4TILES 
         arr(i,j,k,bi,bj)=r4buf(ij)
./pkg/compon_communic/comprecv_r8.F 20 COMPRECV_R8 
      integer i,j,ij,nx,ny
./pkg/compon_communic/comprecv_r8.F 71 COMPRECV_R8 
       do i=1,Ni
./pkg/compon_communic/comprecv_r8.F 72 COMPRECV_R8 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r8.F 73 COMPRECV_R8 
        arr(i,j)=r8buf(ij)
./pkg/compon_communic/comprecv_r8tiles.F 20 COMPRECV_R8TILES 
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r8tiles.F 78 COMPRECV_R8TILES 
        do i=1,Ni
./pkg/compon_communic/comprecv_r8tiles.F 79 COMPRECV_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r8tiles.F 80 COMPRECV_R8TILES 
         arr(i,j,k,bi,bj)=r8buf(ij)
./pkg/compon_communic/compsend_r4.F 19 COMPSEND_R4 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r4.F 36 COMPSEND_R4 
       do i=1,Ni
./pkg/compon_communic/compsend_r4.F 37 COMPSEND_R4 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4.F 38 COMPSEND_R4 
        r4buf(ij)=arr(i,j)
./pkg/compon_communic/compsend_r4tiles.F 19 COMPSEND_R4TILES 
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r4tiles.F 46 COMPSEND_R4TILES 
        do i=1,Ni
./pkg/compon_communic/compsend_r4tiles.F 47 COMPSEND_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4tiles.F 48 COMPSEND_R4TILES 
         r4buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/compsend_r8.F 19 COMPSEND_R8 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r8.F 36 COMPSEND_R8 
       do i=1,Ni
./pkg/compon_communic/compsend_r8.F 37 COMPSEND_R8 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8.F 38 COMPSEND_R8 
        r8buf(ij)=arr(i,j)
./pkg/compon_communic/compsend_r8tiles.F 19 COMPSEND_R8TILES 
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r8tiles.F 46 COMPSEND_R8TILES 
        do i=1,Ni
./pkg/compon_communic/compsend_r8tiles.F 47 COMPSEND_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8tiles.F 48 COMPSEND_R8TILES 
         r8buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/couprecv_r4.F 23 COUPRECV_R4 
      integer i,j,ij,n
./pkg/compon_communic/couprecv_r4.F 92 COUPRECV_R4 
        do i=1,Ni
./pkg/compon_communic/couprecv_r4.F 93 COUPRECV_R4 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r4.F 94 COUPRECV_R4 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 105 COUPRECV_R4TILES 
        do i=1,Ni
./pkg/compon_communic/couprecv_r4tiles.F 106 COUPRECV_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r4tiles.F 107 COUPRECV_R4TILES 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 23 COUPRECV_R4TILES 
      integer i,j,ij,n,bibj
./pkg/compon_communic/couprecv_r8.F 23 COUPRECV_R8 
      integer i,j,ij,n
./pkg/compon_communic/couprecv_r8.F 92 COUPRECV_R8 
        do i=1,Ni
./pkg/compon_communic/couprecv_r8.F 93 COUPRECV_R8 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r8.F 94 COUPRECV_R8 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 105 COUPRECV_R8TILES 
        do i=1,Ni
./pkg/compon_communic/couprecv_r8tiles.F 106 COUPRECV_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r8tiles.F 107 COUPRECV_R8TILES 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 23 COUPRECV_R8TILES 
      integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r4.F 22 COUPSEND_R4 
      integer i,j,ij,n
./pkg/compon_communic/coupsend_r4.F 56 COUPSEND_R4 
        do i=1,Ni
./pkg/compon_communic/coupsend_r4.F 57 COUPSEND_R4 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4.F 58 COUPSEND_R4 
         r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r4tiles.F 22 COUPSEND_R4TILES 
      integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r4tiles.F 59 COUPSEND_R4TILES 
         do i=1,Ni
./pkg/compon_communic/coupsend_r4tiles.F 60 COUPSEND_R4TILES 
          ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4tiles.F 61 COUPSEND_R4TILES 
          r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8.F 22 COUPSEND_R8 
      integer i,j,ij,n
./pkg/compon_communic/coupsend_r8.F 56 COUPSEND_R8 
        do i=1,Ni
./pkg/compon_communic/coupsend_r8.F 57 COUPSEND_R8 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8.F 58 COUPSEND_R8 
         r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8tiles.F 22 COUPSEND_R8TILES 
      integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r8tiles.F 59 COUPSEND_R8TILES 
         do i=1,Ni
./pkg/compon_communic/coupsend_r8tiles.F 60 COUPSEND_R8TILES 
          ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8tiles.F 61 COUPSEND_R8TILES 
          r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/cost/cost_accumulate_mean.F 33 COST_ACCUMULATE_MEAN 
      integer i, j, k
./pkg/cost/cost_accumulate_mean.F 48 COST_ACCUMULATE_MEAN 
              do i=1,sNx
./pkg/cost/cost_accumulate_mean.F 49 COST_ACCUMULATE_MEAN 
                cMeanTheta(i,j,k,bi,bj) = cMeanTheta(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 50 COST_ACCUMULATE_MEAN 
     &                + theta(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 52 COST_ACCUMULATE_MEAN 
                cMeanUVel(i,j,k,bi,bj) = cMeanUVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 53 COST_ACCUMULATE_MEAN 
     &               + uVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 55 COST_ACCUMULATE_MEAN 
                cMeanVVel(i,j,k,bi,bj) = cMeanVVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 56 COST_ACCUMULATE_MEAN 
     &               + vVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 59 COST_ACCUMULATE_MEAN 
                cMeanThetaUVel(i,j,k,bi,bj) =
./pkg/cost/cost_accumulate_mean.F 60 COST_ACCUMULATE_MEAN 
     &               cMeanThetaUVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 61 COST_ACCUMULATE_MEAN 
     &               + (theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))
./pkg/cost/cost_accumulate_mean.F 62 COST_ACCUMULATE_MEAN 
     &                 /2.*uvel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 63 COST_ACCUMULATE_MEAN 
     &                 *maskW(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 65 COST_ACCUMULATE_MEAN 
                cMeanThetaVVel(i,j,k,bi,bj) =
./pkg/cost/cost_accumulate_mean.F 66 COST_ACCUMULATE_MEAN 
     &               cMeanThetaVVel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 67 COST_ACCUMULATE_MEAN 
     &               + (theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))
./pkg/cost/cost_accumulate_mean.F 68 COST_ACCUMULATE_MEAN 
     &                 /2.*vvel(i,j,k,bi,bj)
./pkg/cost/cost_accumulate_mean.F 69 COST_ACCUMULATE_MEAN 
     &                 *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 102 COST_ATLANTIC_HEAT 
     &              + cMeanVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F 103 COST_ATLANTIC_HEAT 
     &                 *maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 106 COST_ATLANTIC_HEAT 
     &            + cMeanThetaVVel(i,j,k,bi,bj)*dxG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F 107 COST_ATLANTIC_HEAT 
     &                 *maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 110 COST_ATLANTIC_HEAT 
     &            maskS(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 112 COST_ATLANTIC_HEAT 
     &            maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 140 COST_ATLANTIC_HEAT 
        do i=1,sNx
./pkg/cost/cost_atlantic_heat.F 141 COST_ATLANTIC_HEAT 
         ig = myXGlobalLo-1+(bi-1)*sNx+i
./pkg/cost/cost_atlantic_heat.F 154 COST_ATLANTIC_HEAT 
     &                      + cMeanUVel(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 155 COST_ATLANTIC_HEAT 
     &                      *maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 156 COST_ATLANTIC_HEAT 
     &                      *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 158 COST_ATLANTIC_HEAT 
     &            0.5*( cMeanTheta(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 159 COST_ATLANTIC_HEAT 
     &                 +cMeanTheta(i-,j,k,bi,bj) )
./pkg/cost/cost_atlantic_heat.F 160 COST_ATLANTIC_HEAT 
     &                 *maskW(i,j,k,bi,bj)*dyG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F 161 COST_ATLANTIC_HEAT 
     &                 *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 162 COST_ATLANTIC_HEAT 
             countT(k) = countT(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 163 COST_ATLANTIC_HEAT 
     &                   *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 164 COST_ATLANTIC_HEAT 
             countU(k) = countU(k) + maskW(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 165 COST_ATLANTIC_HEAT 
     &                   *maskC(i,j,k,bi,bj)*maskC(i-1,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 32 COST_ATLANTIC_HEAT 
      integer i, j, k
./pkg/cost/cost_atlantic_heat.F 73 COST_ATLANTIC_HEAT 
        do i=1,sNx
./pkg/cost/cost_atlantic_heat.F 74 COST_ATLANTIC_HEAT 
         ig = myXGlobalLo-1+(bi-1)*sNx+i
./pkg/cost/cost_atlantic_heat.F 79 COST_ATLANTIC_HEAT 
     &            + (vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj)
./pkg/cost/cost_atlantic_heat.F 82 COST_ATLANTIC_HEAT 
          locfc = locfc + sum*dxG(i,j,bi,bj)
./pkg/cost/cost_atlantic_heat.F 97 COST_ATLANTIC_HEAT 
           do i=1,sNx
./pkg/cost/cost_atlantic_heat.F 98 COST_ATLANTIC_HEAT 
            ig = myXGlobalLo-1+(bi-1)*sNx+i
./pkg/cost/cost_dependent_init.F 39 COST_DEPENDENT_INIT 
      integer i,j,k
./pkg/cost/cost_dependent_init.F 63 COST_DEPENDENT_INIT 
        do i=1,sNx
./pkg/cost/cost_dependent_init.F 64 COST_DEPENDENT_INIT 
         objf_vector(i,bi,bj) = 0. _d 0
./pkg/cost/cost_dependent_init.F 65 COST_DEPENDENT_INIT 
         adobjf_vector(i,bi,bj) = 1. _d 0
./pkg/cost/cost_dependent_init.F 70 COST_DEPENDENT_INIT 
          do i=1,sNx
./pkg/cost/cost_dependent_init.F 72 COST_DEPENDENT_INIT 
            objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_dependent_init.F 74 COST_DEPENDENT_INIT 
           objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_final.F 47 COST_FINAL 
      integer i,j,k
./pkg/cost/cost_init_varia.F 41 COST_INIT_VARIA 
      integer i,j,k
./pkg/cost/cost_init_varia.F 67 COST_INIT_VARIA 
          do i=1,sNx
./pkg/cost/cost_init_varia.F 68 COST_INIT_VARIA 
            objf_vector(i,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 75 COST_INIT_VARIA 
              do i=1,sNx
./pkg/cost/cost_init_varia.F 76 COST_INIT_VARIA 
                cMeanTheta(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 77 COST_INIT_VARIA 
                cMeanUVel(i,j,k,bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 78 COST_INIT_VARIA 
                cMeanVVel(i,j,k,bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 79 COST_INIT_VARIA 
                cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 80 COST_INIT_VARIA 
                cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 88 COST_INIT_VARIA 
             do i=1,sNx
./pkg/cost/cost_init_varia.F 90 COST_INIT_VARIA 
                objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_init_varia.F 92 COST_INIT_VARIA 
              objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./eesupp/src/scatter_xz.F 18 SCATTER_XZ 
      INTEGER iG, i, bi, bj
./eesupp/src/scatter_xz.F 36 SCATTER_XZ 
               DO i=1,sNx
./eesupp/src/scatter_xz.F 37 SCATTER_XZ 
                  iG = myXGlobalLo-1+(bi-1)*sNx+i
./eesupp/src/scatter_xz.F 38 SCATTER_XZ 
                  local(i,bi,bj) = global(iG)
./eesupp/src/scatter_xz.F 55 SCATTER_XZ 
                  DO i=1,sNx
./eesupp/src/scatter_xz.F 56 SCATTER_XZ 
                     iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i
./eesupp/src/scatter_xz.F 57 SCATTER_XZ 
                     local(i,bi,bj) = global(iG)
./eesupp/src/scatter_xz.F 66 SCATTER_XZ 
                     DO i=1,sNx
./eesupp/src/scatter_xz.F 67 SCATTER_XZ 
                        iG = mpi_myXGlobalLo(npe+1)-1+(bi-1)*sNx+i
./eesupp/src/scatter_xz.F 68 SCATTER_XZ 
                        temp(i,bi,bj) = global(iG)
./pkg/cost/cost_state_final.F 28 COST_STATE_FINAL 
      integer i, j, k
./pkg/cost/cost_state_final.F 34 COST_STATE_FINAL 
         DO i=1,sNx
./pkg/cost/cost_state_final.F 36 COST_STATE_FINAL 
           objf_state_final(i,j,bi,bj,0*Nr+k) = theta(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 37 COST_STATE_FINAL 
           objf_state_final(i,j,bi,bj,1*Nr+k) = salt(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 38 COST_STATE_FINAL 
           objf_state_final(i,j,bi,bj,2*Nr+k) = uvel(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 39 COST_STATE_FINAL 
           objf_state_final(i,j,bi,bj,3*Nr+k) = vvel(i,j,k,bi,bj)
./pkg/cost/cost_state_final.F 41 COST_STATE_FINAL 
          objf_state_final(i,j,bi,bj,4*Nr+1) = etan(i,j,bi,bj)
./pkg/cost/cost_test.F 36 COST_TEST 
      integer i, j, k
./pkg/cost/cost_test.F 67 COST_TEST 
            do i=1,sNx
./pkg/cost/cost_test.F 68 COST_TEST 
            ig = myXGlobalLo-1+(bi-1)*sNx+i
./pkg/cost/cost_test.F 73 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./pkg/cost/cost_test.F 74 COST_TEST 
               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_test.F 77 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_test.F 82 COST_TEST 
     &                         theta(i,j,kLocOut,bi,bj)**2
./pkg/cost/cost_tracer.F 44 COST_TRACER 
      integer i, j, k
./pkg/cost/cost_tracer.F 53 COST_TRACER 
         DO i=1,sNx
./pkg/cost/cost_tracer.F 55 COST_TRACER 
            locfc = locfc + maskC(i,j,k,bi,bj)*
./pkg/cost/cost_tracer.F 56 COST_TRACER 
     &           lambdaTr1ClimRelax*ptracer(i,j,k,bi,bj,1)*
./pkg/cost/cost_tracer.F 57 COST_TRACER 
     &           rA(i,j,bi,bj)*drF(k)*dTtracerLev(k)
./pkg/cost/cost_vector.F 32 COST_VECTOR 
      integer i, j, k
./pkg/cost/cost_vector.F 64 COST_VECTOR 
          do i=1,sNx
./pkg/cost/cost_vector.F 65 COST_VECTOR 
           ig = myXGlobalLo-1+(bi-1)*sNx+i
./pkg/cost/cost_vector.F 70 COST_VECTOR 
     &             + vVel(i,j,k,bi,bj) * maskS(i,j,k,bi,bj)
./pkg/cost/cost_vector.F 74 COST_VECTOR 
            objf_vector(i,bi,bj) = sum*dxG(i,j,bi,bj)
./pkg/cost/cost_vector.F 81 COST_VECTOR 
        do i = 1,sNx
./pkg/cost/cost_vector.F 83 COST_VECTOR 
     &          objf_vector(i,bi,bj)
./pkg/ctrl/adctrl_bound.F 110 ADCTRL_BOUND_2D 
      integer myThid,bi,bj,i,j,k
./pkg/ctrl/adctrl_bound.F 146 ADCTRL_BOUND_2D 
              do i = 1,snx
./pkg/ctrl/adctrl_bound.F 147 ADCTRL_BOUND_2D 
      IF (maskFld3d(i,j,1,bi,bj).NE.0.) then
./pkg/ctrl/adctrl_bound.F 148 ADCTRL_BOUND_2D 
        xCur=fieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F 149 ADCTRL_BOUND_2D 
        adxCur=adjFieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F 152 ADCTRL_BOUND_2D 
          adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 157 ADCTRL_BOUND_2D 
          adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 24 ADCTRL_BOUND_3D 
      integer myThid,bi,bj,i,j,k
./pkg/ctrl/adctrl_bound.F 61 ADCTRL_BOUND_3D 
              do i = 1,snx
./pkg/ctrl/adctrl_bound.F 62 ADCTRL_BOUND_3D 
      IF (maskFld3d(i,j,k,bi,bj).NE.0.) then
./pkg/ctrl/adctrl_bound.F 63 ADCTRL_BOUND_3D 
        xCur=fieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F 64 ADCTRL_BOUND_3D 
        adxCur=adjFieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F 67 ADCTRL_BOUND_3D 
          adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 72 ADCTRL_BOUND_3D 
          adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./pkg/ctrl/ctrl_bound.F 23 CTRL_BOUND_3D 
      integer myThid,bi,bj,i,j,k
./pkg/ctrl/ctrl_bound.F 40 CTRL_BOUND_3D 
              do i = 1,snx
./pkg/ctrl/ctrl_bound.F 41 CTRL_BOUND_3D 
          IF (maskFld3d(i,j,k,bi,bj).NE.0.) then
./pkg/ctrl/ctrl_bound.F 42 CTRL_BOUND_3D 
            IF (fieldCur(i,j,k,bi,bj).gt.boundsVec(4)) then
./pkg/ctrl/ctrl_bound.F 43 CTRL_BOUND_3D 
             fieldCur(i,j,k,bi,bj)=boundsVec(4)
./pkg/ctrl/ctrl_bound.F 45 CTRL_BOUND_3D 
            IF (fieldCur(i,j,k,bi,bj).lt.boundsVec(1)) then
./pkg/ctrl/ctrl_bound.F 46 CTRL_BOUND_3D 
             fieldCur(i,j,k,bi,bj)=boundsVec(1)
./pkg/ctrl/ctrl_bound.F 77 CTRL_BOUND_2D 
      integer myThid,bi,bj,i,j,k
./pkg/ctrl/ctrl_bound.F 93 CTRL_BOUND_2D 
              do i = 1-olx,snx+olx
./pkg/ctrl/ctrl_bound.F 94 CTRL_BOUND_2D 
          IF (maskFld3d(i,j,1,bi,bj).NE.0.) then
./pkg/ctrl/ctrl_bound.F 95 CTRL_BOUND_2D 
            IF (fieldCur(i,j,bi,bj).gt.boundsVec(4)) then
./pkg/ctrl/ctrl_bound.F 96 CTRL_BOUND_2D 
             fieldCur(i,j,bi,bj)=boundsVec(4)
./pkg/ctrl/ctrl_bound.F 98 CTRL_BOUND_2D 
            IF (fieldCur(i,j,bi,bj).lt.boundsVec(1)) then
./pkg/ctrl/ctrl_bound.F 99 CTRL_BOUND_2D 
             fieldCur(i,j,bi,bj)=boundsVec(1)
./pkg/ctrl/ctrl_depth_ini.F 105 CTRL_DEPTH_INI 
            do i = imin,imax
./pkg/ctrl/ctrl_depth_ini.F 106 CTRL_DEPTH_INI 
              xx_r_low(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_depth_ini.F 121 CTRL_DEPTH_INI 
         do i = imin,imax
./pkg/ctrl/ctrl_depth_ini.F 122 CTRL_DEPTH_INI 
          xx_r_low(i,j,bi,bj) = r_low(i,j,bi,bj)
./pkg/ctrl/ctrl_depth_ini.F 123 CTRL_DEPTH_INI 
     &                        + fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_depth_ini.F 40 CTRL_DEPTH_INI 
      integer i,j,k
./pkg/ctrl/ctrl_depth_ini.F 94 CTRL_DEPTH_INI 
         do i = imin,imax
./pkg/ctrl/ctrl_depth_ini.F 95 CTRL_DEPTH_INI 
          tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_get_gen.F 206 CTRL_GET_GEN 
            do i = 1,snx
./pkg/ctrl/ctrl_get_gen.F 207 CTRL_GET_GEN 
              genfld(i,j,bi,bj) = genfld (i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F 208 CTRL_GET_GEN 
     &              + gensign*genfac            *xx_gen0(i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F 209 CTRL_GET_GEN 
     &              + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F 210 CTRL_GET_GEN 
              genfld(i,j,bi,bj) =
./pkg/ctrl/ctrl_get_gen.F 211 CTRL_GET_GEN 
     &             genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) -
./pkg/ctrl/ctrl_get_gen.F 64 CTRL_GET_GEN 
      integer i,j,k
./pkg/ctrl/ctrl_getobcse.F 140 CTRL_GETOBCSE 
                    i = OB_Ie(J,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 155 CTRL_GETOBCSE 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 157 CTRL_GETOBCSE 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcse.F 175 CTRL_GETOBCSE 
                    i = OB_Ie(J,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 190 CTRL_GETOBCSE 
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 192 CTRL_GETOBCSE 
                      if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcse.F 258 CTRL_GETOBCSE 
                    i = OB_Ie(J,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 273 CTRL_GETOBCSE 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 275 CTRL_GETOBCSE 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcse.F 293 CTRL_GETOBCSE 
                    i = OB_Ie(J,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 308 CTRL_GETOBCSE 
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcse.F 310 CTRL_GETOBCSE 
                      if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcse.F 343 CTRL_GETOBCSE 
                    i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 349 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 355 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 361 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 367 CTRL_GETOBCSE 
     &                      *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 54 CTRL_GETOBCSE 
      integer i,j,k
./pkg/ctrl/ctrl_getobcsn.F 143 CTRL_GETOBCSN 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 146 CTRL_GETOBCSN 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 150 CTRL_GETOBCSN 
                    if (ob_iw(j,bi,bj).eq.(i-1).and.
./pkg/ctrl/ctrl_getobcsn.F 153 CTRL_GETOBCSN 
                        print*,shiftvel(1),i,j
./pkg/ctrl/ctrl_getobcsn.F 156 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsn.F 166 CTRL_GETOBCSN 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcsn.F 167 CTRL_GETOBCSN 
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 169 CTRL_GETOBCSN 
                      if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsn.F 170 CTRL_GETOBCSN 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcsn.F 174 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 187 CTRL_GETOBCSN 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 190 CTRL_GETOBCSN 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 194 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsn.F 204 CTRL_GETOBCSN 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcsn.F 205 CTRL_GETOBCSN 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 207 CTRL_GETOBCSN 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsn.F 208 CTRL_GETOBCSN 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcsn.F 212 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 226 CTRL_GETOBCSN 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 227 CTRL_GETOBCSN 
                  xx_obcsn1(i,k,bi,bj,iobcs)  = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 240 CTRL_GETOBCSN 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 241 CTRL_GETOBCSN 
                  tmpfldxz(i,k,bi,bj) = xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 252 CTRL_GETOBCSN 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 253 CTRL_GETOBCSN 
                    xx_obcsn0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 273 CTRL_GETOBCSN 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 276 CTRL_GETOBCSN 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 280 CTRL_GETOBCSN 
                    if (ob_iw(j,bi,bj).eq.(i-1).and.
./pkg/ctrl/ctrl_getobcsn.F 284 CTRL_GETOBCSN 
                        print*,shiftvel(2),i,j
./pkg/ctrl/ctrl_getobcsn.F 287 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsn.F 297 CTRL_GETOBCSN 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcsn.F 298 CTRL_GETOBCSN 
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 300 CTRL_GETOBCSN 
                      if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsn.F 301 CTRL_GETOBCSN 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcsn.F 305 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 317 CTRL_GETOBCSN 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 320 CTRL_GETOBCSN 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 324 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsn.F 334 CTRL_GETOBCSN 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcsn.F 335 CTRL_GETOBCSN 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcsn.F 337 CTRL_GETOBCSN 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsn.F 338 CTRL_GETOBCSN 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcsn.F 342 CTRL_GETOBCSN 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 355 CTRL_GETOBCSN 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcsn.F 356 CTRL_GETOBCSN 
                  xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 370 CTRL_GETOBCSN 
                 do i = 1,snx
./pkg/ctrl/ctrl_getobcsn.F 373 CTRL_GETOBCSN 
                       OBNt(i,k,bi,bj) = OBNt (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 374 CTRL_GETOBCSN 
     &                 + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 375 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 376 CTRL_GETOBCSN 
                       OBNt(i,k,bi,bj) = OBNt(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 377 CTRL_GETOBCSN 
     &                         *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 380 CTRL_GETOBCSN 
                       OBNs(i,k,bi,bj) = OBNs (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 381 CTRL_GETOBCSN 
     &                 + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 382 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 383 CTRL_GETOBCSN 
                       OBNs(i,k,bi,bj) = OBNs(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 384 CTRL_GETOBCSN 
     &                         *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 387 CTRL_GETOBCSN 
                       OBNu(i,k,bi,bj) = OBNu (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 388 CTRL_GETOBCSN 
     &                 + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 389 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 390 CTRL_GETOBCSN 
                       OBNu(i,k,bi,bj) = OBNu(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 391 CTRL_GETOBCSN 
     &                         *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 394 CTRL_GETOBCSN 
                       OBNv(i,k,bi,bj) = OBNv (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 395 CTRL_GETOBCSN 
     &                 + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 396 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 397 CTRL_GETOBCSN 
                       OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 398 CTRL_GETOBCSN 
     &                         *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 55 CTRL_GETOBCSN 
      integer i,j,k
./pkg/ctrl/ctrl_getobcss.F 140 CTRL_GETOBCSS 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 144 CTRL_GETOBCSS 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 145 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcss.F 155 CTRL_GETOBCSS 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcss.F 156 CTRL_GETOBCSS 
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 158 CTRL_GETOBCSS 
                      if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcss.F 159 CTRL_GETOBCSS 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcss.F 163 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 176 CTRL_GETOBCSS 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 180 CTRL_GETOBCSS 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 181 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcss.F 191 CTRL_GETOBCSS 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcss.F 192 CTRL_GETOBCSS 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 194 CTRL_GETOBCSS 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcss.F 195 CTRL_GETOBCSS 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcss.F 199 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 212 CTRL_GETOBCSS 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 213 CTRL_GETOBCSS 
                  xx_obcss1(i,k,bi,bj,iobcs)  = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 226 CTRL_GETOBCSS 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 227 CTRL_GETOBCSS 
                  tmpfldxz(i,k,bi,bj) = xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 238 CTRL_GETOBCSS 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 239 CTRL_GETOBCSS 
                  xx_obcss0(i,k,bi,bj,iobcs) = tmpfldxz2(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 259 CTRL_GETOBCSS 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 263 CTRL_GETOBCSS 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 264 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcss.F 274 CTRL_GETOBCSS 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcss.F 275 CTRL_GETOBCSS 
     &                maskS(i,j+jp1,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 277 CTRL_GETOBCSS 
                      if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcss.F 278 CTRL_GETOBCSS 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcss.F 282 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 295 CTRL_GETOBCSS 
                  do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 299 CTRL_GETOBCSS 
                    vbaro = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 300 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcss.F 310 CTRL_GETOBCSS 
                      vtop = tmpfldxz(i,k,bi,bj)*
./pkg/ctrl/ctrl_getobcss.F 311 CTRL_GETOBCSS 
     &                maskW(i,j,k,bi,bj) * delR(k) + vtop
./pkg/ctrl/ctrl_getobcss.F 313 CTRL_GETOBCSS 
                      if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcss.F 314 CTRL_GETOBCSS 
                        tmpfldxz(i,k,bi,bj) = tmpfldxz(i,k,bi,bj)+ vbaro
./pkg/ctrl/ctrl_getobcss.F 318 CTRL_GETOBCSS 
                    tmpfldxz(i,1,bi,bj) = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 331 CTRL_GETOBCSS 
                do i = imin,imax
./pkg/ctrl/ctrl_getobcss.F 332 CTRL_GETOBCSS 
                  xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 345 CTRL_GETOBCSS 
                 do i = 1,snx
./pkg/ctrl/ctrl_getobcss.F 348 CTRL_GETOBCSS 
                       OBSt(i,k,bi,bj) = OBSt (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 349 CTRL_GETOBCSS 
     &                 + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 350 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 351 CTRL_GETOBCSS 
                       OBSt(i,k,bi,bj) = OBSt(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 352 CTRL_GETOBCSS 
     &                      *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 354 CTRL_GETOBCSS 
                       OBSs(i,k,bi,bj) = OBSs (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 355 CTRL_GETOBCSS 
     &                 + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 356 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 357 CTRL_GETOBCSS 
                       OBSs(i,k,bi,bj) = OBSs(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 358 CTRL_GETOBCSS 
     &                      *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 360 CTRL_GETOBCSS 
                       OBSu(i,k,bi,bj) = OBSu (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 361 CTRL_GETOBCSS 
     &                 + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 362 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 363 CTRL_GETOBCSS 
                       OBSu(i,k,bi,bj) = OBSu(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 364 CTRL_GETOBCSS 
     &                      *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 366 CTRL_GETOBCSS 
                       OBSv(i,k,bi,bj) = OBSv (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 367 CTRL_GETOBCSS 
     &                 + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 368 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 369 CTRL_GETOBCSS 
                       OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 370 CTRL_GETOBCSS 
     &                      *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 56 CTRL_GETOBCSS 
      integer i,j,k
./pkg/ctrl/ctrl_getobcsw.F 140 CTRL_GETOBCSW 
                    i = OB_Iw(J,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 155 CTRL_GETOBCSW 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 157 CTRL_GETOBCSW 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsw.F 175 CTRL_GETOBCSW 
                    i = OB_Iw(J,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 190 CTRL_GETOBCSW 
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 192 CTRL_GETOBCSW 
                      if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsw.F 261 CTRL_GETOBCSW 
                    i = OB_Iw(J,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 276 CTRL_GETOBCSW 
     &                maskW(i+ip1,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 278 CTRL_GETOBCSW 
                      if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsw.F 296 CTRL_GETOBCSW 
                    i = OB_Iw(J,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 311 CTRL_GETOBCSW 
     &                maskS(i,j,k,bi,bj) * delR(k) + utop
./pkg/ctrl/ctrl_getobcsw.F 313 CTRL_GETOBCSW 
                      if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_getobcsw.F 346 CTRL_GETOBCSW 
                    i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 352 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 358 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 364 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 370 CTRL_GETOBCSW 
     &                      *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 55 CTRL_GETOBCSW 
      integer i,j,k
./pkg/ctrl/ctrl_hfacc_ini.F 103 CTRL_HFACC_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_hfacc_ini.F 104 CTRL_HFACC_INI 
                hFacC(i,j,k,bi,bj)    = 0.
./pkg/ctrl/ctrl_hfacc_ini.F 105 CTRL_HFACC_INI 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_hfacc_ini.F 128 CTRL_HFACC_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_hfacc_ini.F 129 CTRL_HFACC_INI 
                hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_hfacc_ini.F 130 CTRL_HFACC_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 143 CTRL_HFACC_INI 
               do i = imin,imax
./pkg/ctrl/ctrl_hfacc_ini.F 144 CTRL_HFACC_INI 
                  k = k_lowC(i,j,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 146 CTRL_HFACC_INI 
                     hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 147 CTRL_HFACC_INI 
     &                                  + fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 40 CTRL_HFACC_INI 
      integer i,j,k
./pkg/ctrl/ctrl_init.F 1062 CTRL_INIT 
        do i = 1, dic_n_control
./pkg/ctrl/ctrl_init.F 1063 CTRL_INIT 
           xx_dic(i) = 0. _d 0
./pkg/ctrl/ctrl_init.F 1073 CTRL_INIT 
            do i = imin,imax
./pkg/ctrl/ctrl_init.F 1074 CTRL_INIT 
              wareaunit (i,j,bi,bj) = 1.0
./pkg/ctrl/ctrl_init.F 1076 CTRL_INIT 
              whflux    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1077 CTRL_INIT 
              wsflux    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1078 CTRL_INIT 
              wtauu     (i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1079 CTRL_INIT 
              wtauv     (i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1080 CTRL_INIT 
              watemp    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1081 CTRL_INIT 
              waqh      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1082 CTRL_INIT 
              wprecip   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1083 CTRL_INIT 
              wswflux   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1084 CTRL_INIT 
              wswdown   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1085 CTRL_INIT 
              wuwind    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1086 CTRL_INIT 
              wvwind    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1087 CTRL_INIT 
              wlwflux   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1088 CTRL_INIT 
              wlwdown   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1089 CTRL_INIT 
              wevap     (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1090 CTRL_INIT 
              wsnowprecip(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1091 CTRL_INIT 
              wapressure(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1092 CTRL_INIT 
              wrunoff   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1093 CTRL_INIT 
              wsst      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 1094 CTRL_INIT 
              wsss      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 89 CTRL_INIT 
      integer i,j,k
./pkg/ctrl/ctrl_init_obcs_variables.F 43 CTRL_INIT_OBCS_VARIABLES 
      integer i,j,k
./pkg/ctrl/ctrl_init_obcs_variables.F 68 CTRL_INIT_OBCS_VARIABLES 
              do i = imin,imax
./pkg/ctrl/ctrl_init_obcs_variables.F 69 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 70 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 83 CTRL_INIT_OBCS_VARIABLES 
              do i = imin,imax
./pkg/ctrl/ctrl_init_obcs_variables.F 84 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 85 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 100 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 101 CTRL_INIT_VARIABLES 
              xx_tauv0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 102 CTRL_INIT_VARIABLES 
              xx_tauv1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 113 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 114 CTRL_INIT_VARIABLES 
              xx_uwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 115 CTRL_INIT_VARIABLES 
              xx_uwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 126 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 127 CTRL_INIT_VARIABLES 
              xx_vwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 128 CTRL_INIT_VARIABLES 
              xx_vwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 139 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 140 CTRL_INIT_VARIABLES 
              xx_atemp0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 141 CTRL_INIT_VARIABLES 
              xx_atemp1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 152 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 153 CTRL_INIT_VARIABLES 
              xx_aqh0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 154 CTRL_INIT_VARIABLES 
              xx_aqh1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 165 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 166 CTRL_INIT_VARIABLES 
              xx_precip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 167 CTRL_INIT_VARIABLES 
              xx_precip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 178 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 179 CTRL_INIT_VARIABLES 
              xx_swflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 180 CTRL_INIT_VARIABLES 
              xx_swflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 191 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 192 CTRL_INIT_VARIABLES 
              xx_swdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 193 CTRL_INIT_VARIABLES 
              xx_swdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 204 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 205 CTRL_INIT_VARIABLES 
              xx_lwflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 206 CTRL_INIT_VARIABLES 
              xx_lwflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 217 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 218 CTRL_INIT_VARIABLES 
              xx_lwdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 219 CTRL_INIT_VARIABLES 
              xx_lwdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 230 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 231 CTRL_INIT_VARIABLES 
              xx_evap0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 232 CTRL_INIT_VARIABLES 
              xx_evap1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 243 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 244 CTRL_INIT_VARIABLES 
              xx_snowprecip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 245 CTRL_INIT_VARIABLES 
              xx_snowprecip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 256 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 257 CTRL_INIT_VARIABLES 
              xx_apressure0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 258 CTRL_INIT_VARIABLES 
              xx_apressure1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 269 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 270 CTRL_INIT_VARIABLES 
              xx_runoff0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 271 CTRL_INIT_VARIABLES 
              xx_runoff1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 282 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 283 CTRL_INIT_VARIABLES 
              xx_sst0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 284 CTRL_INIT_VARIABLES 
              xx_sst1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 295 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 296 CTRL_INIT_VARIABLES 
              xx_sss0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 297 CTRL_INIT_VARIABLES 
              xx_sss1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 38 CTRL_INIT_VARIABLES 
      integer i,j,k
./pkg/ctrl/ctrl_init_variables.F 61 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 62 CTRL_INIT_VARIABLES 
              xx_hflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 63 CTRL_INIT_VARIABLES 
              xx_hflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 74 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 75 CTRL_INIT_VARIABLES 
              xx_sflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 76 CTRL_INIT_VARIABLES 
              xx_sflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 87 CTRL_INIT_VARIABLES 
            do i = imin,imax
./pkg/ctrl/ctrl_init_variables.F 88 CTRL_INIT_VARIABLES 
              xx_tauu0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 89 CTRL_INIT_VARIABLES 
              xx_tauu1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_wet.F 106 CTRL_INIT_WET 
              do i = imin,imax
./pkg/ctrl/ctrl_init_wet.F 108 CTRL_INIT_WET 
                if (hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init_wet.F 112 CTRL_INIT_WET 
                if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 116 CTRL_INIT_WET 
                if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 121 CTRL_INIT_WET 
                if (hFacV(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init_wet.F 163 CTRL_INIT_WET 
      do i = 1,maxcvars
./pkg/ctrl/ctrl_init_wet.F 165 CTRL_INIT_WET 
         if ( ncvarindex(i) .ne. -1 ) then
./pkg/ctrl/ctrl_init_wet.F 169 CTRL_INIT_WET 
                  do k = 1,ncvarnrmax(i)
./pkg/ctrl/ctrl_init_wet.F 170 CTRL_INIT_WET 
                     if ( ncvargrd(i) .eq. 'c' ) then
./pkg/ctrl/ctrl_init_wet.F 172 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetctile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 173 CTRL_INIT_WET 
                     else if ( ncvargrd(i) .eq. 's' ) then
./pkg/ctrl/ctrl_init_wet.F 175 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetstile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 176 CTRL_INIT_WET 
                     else if ( ncvargrd(i) .eq. 'w' ) then
./pkg/ctrl/ctrl_init_wet.F 178 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetwtile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 179 CTRL_INIT_WET 
                     else if ( ncvargrd(i) .eq. 'v' ) then
./pkg/ctrl/ctrl_init_wet.F 181 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetvtile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 182 CTRL_INIT_WET 
                     else if ( ncvargrd(i) .eq. 'm' ) then
./pkg/ctrl/ctrl_init_wet.F 187 CTRL_INIT_WET 
                           if ( i .eq. 11 ) then
./pkg/ctrl/ctrl_init_wet.F 190 CTRL_INIT_WET 
     &                             (ncvarrecs(i)/nobcs)
./pkg/ctrl/ctrl_init_wet.F 193 CTRL_INIT_WET 
                           else if ( i .eq. 12 ) then
./pkg/ctrl/ctrl_init_wet.F 196 CTRL_INIT_WET 
     &                             (ncvarrecs(i)/nobcs)
./pkg/ctrl/ctrl_init_wet.F 199 CTRL_INIT_WET 
                           else if ( i .eq. 13 ) then
./pkg/ctrl/ctrl_init_wet.F 202 CTRL_INIT_WET 
     &                             (ncvarrecs(i)/nobcs)
./pkg/ctrl/ctrl_init_wet.F 205 CTRL_INIT_WET 
                           else if ( i .eq. 14 ) then
./pkg/ctrl/ctrl_init_wet.F 208 CTRL_INIT_WET 
     &                             (ncvarrecs(i)/nobcs)
./pkg/ctrl/ctrl_init_wet.F 216 CTRL_INIT_WET 
                        print*,'     control variable = ',ncvarindex(i)
./pkg/ctrl/ctrl_init_wet.F 217 CTRL_INIT_WET 
                        print*,'     grid location    = ',ncvargrd(i)
./pkg/ctrl/ctrl_init_wet.F 257 CTRL_INIT_WET 
      do i = 1, maxcvars
./pkg/ctrl/ctrl_init_wet.F 259 CTRL_INIT_WET 
     &     'ctrl-wet 6: no recs for i = ', i, ncvarrecs(i)
./pkg/ctrl/ctrl_init_wet.F 34 CTRL_INIT_WET 
      integer i,j,k
./pkg/ctrl/ctrl_init_wet.F 538 CTRL_INIT_WET 
              do i=1-olx,sNx+olx
./pkg/ctrl/ctrl_init_wet.F 539 CTRL_INIT_WET 
               tmpfld3d(i,j,k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_map_forcing.F 100 CTRL_MAP_FORCING 
     &                        tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 102 CTRL_MAP_FORCING 
              fu(i,j,bi,bj) = fu(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 121 CTRL_MAP_FORCING 
            do i = imin,imax
./pkg/ctrl/ctrl_map_forcing.F 123 CTRL_MAP_FORCING 
              fv(i,j,bi,bj) = fv(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 124 CTRL_MAP_FORCING 
     &                        xx_tauv0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 125 CTRL_MAP_FORCING 
     &                        tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 127 CTRL_MAP_FORCING 
              fv(i,j,bi,bj) = fv(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 146 CTRL_MAP_FORCING 
            do i = imin,imax
./pkg/ctrl/ctrl_map_forcing.F 148 CTRL_MAP_FORCING 
              empmr(i,j,bi,bj) = empmr(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 149 CTRL_MAP_FORCING 
     &                           xx_sflux0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 150 CTRL_MAP_FORCING 
     &                           tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 152 CTRL_MAP_FORCING 
              empmr(i,j,bi,bj) = empmr(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 171 CTRL_MAP_FORCING 
            do i = imin,imax
./pkg/ctrl/ctrl_map_forcing.F 173 CTRL_MAP_FORCING 
              qnet(i,j,bi,bj) = qnet(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 174 CTRL_MAP_FORCING 
     &                          xx_hflux0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 175 CTRL_MAP_FORCING 
     &                          tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 177 CTRL_MAP_FORCING 
              qnet(i,j,bi,bj) = qnet(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 196 CTRL_MAP_FORCING 
            do i = imin,imax
./pkg/ctrl/ctrl_map_forcing.F 197 CTRL_MAP_FORCING 
              sss(i,j,bi,bj) = sss(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 215 CTRL_MAP_FORCING 
            do i = imin,imax
./pkg/ctrl/ctrl_map_forcing.F 216 CTRL_MAP_FORCING 
              sst(i,j,bi,bj) = sst(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 234 CTRL_MAP_FORCING 
            do i = imin,imax
./pkg/ctrl/ctrl_map_forcing.F 235 CTRL_MAP_FORCING 
              Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 45 CTRL_MAP_FORCING 
      integer i,j,k
./pkg/ctrl/ctrl_map_forcing.F 96 CTRL_MAP_FORCING 
            do i = imin,imax
./pkg/ctrl/ctrl_map_forcing.F 98 CTRL_MAP_FORCING 
              fu(i,j,bi,bj) = fu(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 99 CTRL_MAP_FORCING 
     &                        xx_tauu0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 106 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 108 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 110 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 111 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 114 CTRL_MAP_INI 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 115 CTRL_MAP_INI 
     &                               fac*xx_theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 116 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 118 CTRL_MAP_INI 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 119 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 122 CTRL_MAP_INI 
                if(theta(i,j,k,bi,bj).lt.-2.0)
./pkg/ctrl/ctrl_map_ini.F 123 CTRL_MAP_INI 
     &               theta(i,j,k,bi,bj)= -2.0
./pkg/ctrl/ctrl_map_ini.F 146 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 148 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 150 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 151 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 154 CTRL_MAP_INI 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 155 CTRL_MAP_INI 
     &                               fac*xx_salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 156 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 158 CTRL_MAP_INI 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 159 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 183 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 184 CTRL_MAP_INI 
                ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) +
./pkg/ctrl/ctrl_map_ini.F 185 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 205 CTRL_MAP_INI 
            do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 207 CTRL_MAP_INI 
              theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 208 CTRL_MAP_INI 
     &                             + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 226 CTRL_MAP_INI 
            do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 228 CTRL_MAP_INI 
              salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 229 CTRL_MAP_INI 
     &                             + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 249 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 251 CTRL_MAP_INI 
                diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 252 CTRL_MAP_INI 
     &                                xx_diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 253 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 255 CTRL_MAP_INI 
                diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 256 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 279 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 281 CTRL_MAP_INI 
                kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 282 CTRL_MAP_INI 
     &                               xx_kapgm(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 283 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 285 CTRL_MAP_INI 
                kapgm(i,j,k,bi,bj) = kapgm(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 286 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 309 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 310 CTRL_MAP_INI 
                kapredi(i,j,k,bi,bj) = kapredi(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 311 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 333 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 334 CTRL_MAP_INI 
                EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 335 CTRL_MAP_INI 
     &                                - fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 336 CTRL_MAP_INI 
     &                                  *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 360 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 361 CTRL_MAP_INI 
                EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 362 CTRL_MAP_INI 
     &                                + fCori(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 363 CTRL_MAP_INI 
     &                                  *fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 364 CTRL_MAP_INI 
     &                                  *hFacV(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 387 CTRL_MAP_INI 
            do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 388 CTRL_MAP_INI 
              bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 389 CTRL_MAP_INI 
     &                                   + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 408 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 409 CTRL_MAP_INI 
                eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 410 CTRL_MAP_INI 
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 427 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 428 CTRL_MAP_INI 
                eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 429 CTRL_MAP_INI 
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 449 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 451 CTRL_MAP_INI 
                uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 452 CTRL_MAP_INI 
     &                                  fac*xx_uvel(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 454 CTRL_MAP_INI 
                uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 455 CTRL_MAP_INI 
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 476 CTRL_MAP_INI 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 478 CTRL_MAP_INI 
                vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 479 CTRL_MAP_INI 
     &                                  fac*xx_vvel(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 481 CTRL_MAP_INI 
                vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 482 CTRL_MAP_INI 
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 502 CTRL_MAP_INI 
            do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 504 CTRL_MAP_INI 
              etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 505 CTRL_MAP_INI 
     &                              fac*xx_etan(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 507 CTRL_MAP_INI 
              etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 508 CTRL_MAP_INI 
     &                              fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 50 CTRL_MAP_INI 
      integer i,j,k
./pkg/ctrl/ctrl_map_ini.F 527 CTRL_MAP_INI 
            do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 528 CTRL_MAP_INI 
              lambdaThetaClimRelax(i,j,bi,bj) =
./pkg/ctrl/ctrl_map_ini.F 529 CTRL_MAP_INI 
     &              lambdaThetaClimRelax(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 530 CTRL_MAP_INI 
     &              + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 548 CTRL_MAP_INI 
            do i = imin,imax
./pkg/ctrl/ctrl_map_ini.F 549 CTRL_MAP_INI 
              lambdaSaltClimRelax(i,j,bi,bj) =
./pkg/ctrl/ctrl_map_ini.F 550 CTRL_MAP_INI 
     &              lambdaSaltClimRelax(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 551 CTRL_MAP_INI 
     &              + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 115 CTRL_MAP_INI_ECCO 
            do i = imin,imax
./pkg/ctrl/ctrl_map_ini_ecco.F 116 CTRL_MAP_INI_ECCO 
              tmpfld2d(i,j,bi,bj) = 1.
./pkg/ctrl/ctrl_map_ini_ecco.F 127 CTRL_MAP_INI_ECCO 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini_ecco.F 128 CTRL_MAP_INI_ECCO 
                tmpfld3d(i,j,k,bi,bj)=1.
./pkg/ctrl/ctrl_map_ini_ecco.F 67 CTRL_MAP_INI_ECCO 
      integer i,j,k
./eesupp/src/timers.F 322 TIMER_CONTROL 
          do i=1,nevents
./eesupp/src/timers.F 323 TIMER_CONTROL 
             values(i,iTimer,myThreadId) = values(i,iTimer,myThreadId) +
./eesupp/src/timers.F 324 TIMER_CONTROL 
     $       values2(i,iTimer,myThreadId) - values1(i,iTimer,myThreadId)
./eesupp/src/timers.F 328 TIMER_CONTROL 
          do i=1,nevents
./eesupp/src/timers.F 329 TIMER_CONTROL 
             i_result(i,iTimer,myThreadId) = i_result(i,iTimer
./eesupp/src/timers.F 330 TIMER_CONTROL 
     $            ,myThreadId) + i_result2(i,iTimer,myThreadId) -
./eesupp/src/timers.F 331 TIMER_CONTROL 
     $            i_result1(i,iTimer,myThreadId)
./eesupp/src/timers.F 373 TIMER_CONTROL 
        do i = 1,nevents
./eesupp/src/timers.F 384 TIMER_CONTROL 
           call PAPIF_EVENT_NAME_TO_CODE(EventName, EventCode(i), Check)
./eesupp/src/timers.F 390 TIMER_CONTROL 
        do i = 1,nevents
./eesupp/src/timers.F 391 TIMER_CONTROL 
           call PAPIF_ADD_EVENT(EventSet, EventCode(i), Check)
./eesupp/src/timers.F 393 TIMER_CONTROL 
              CALL PAPIF_EVENT_CODE_TO_NAME(EventCode(i), EventName,
./eesupp/src/timers.F 423 TIMER_CONTROL 
        do i = 1,nevents
./eesupp/src/timers.F 424 TIMER_CONTROL 
           read(pclunit,*) pcl_counter_list(i)
./eesupp/src/timers.F 425 TIMER_CONTROL 
           if ((pcl_counter_list(i) .ge. PCL_MFLOPS) .or.
./eesupp/src/timers.F 426 TIMER_CONTROL 
     $          (pcl_counter_list(i) .lt. 1)) then
./eesupp/src/timers.F 427 TIMER_CONTROL 
              if ((pcl_counter_list(i) .ge. PCL_MFLOPS) .and.
./eesupp/src/timers.F 428 TIMER_CONTROL 
     $             (pcl_counter_list(i) .le. nmaxevents)) then
./eesupp/src/timers.F 431 TIMER_CONTROL 
     $                pcl_counter_name(pcl_counter_list(i))
./eesupp/src/timers.F 435 TIMER_CONTROL 
     $                pcl_counter_list(i)
./eesupp/src/timers.F 445 TIMER_CONTROL 
        do i = 1,nevents
./eesupp/src/timers.F 447 TIMER_CONTROL 
           res = PCLquery(descr, pcl_counter_list, i, flags)
./eesupp/src/timers.F 450 TIMER_CONTROL 
     $             , pcl_counter_name(pcl_counter_list(i))
./eesupp/src/timers.F 457 TIMER_CONTROL 
        do i = 1,5
./eesupp/src/timers.F 460 TIMER_CONTROL 
           if ((res .ne. PCL_SUCCESS) .and. (i .lt. 5)) then
./eesupp/src/timers.F 461 TIMER_CONTROL 
              pcl_counter_list(nevents+1) = alt_counter_list(i+1)
./eesupp/src/timers.F 463 TIMER_CONTROL 
              if (i .lt. 5) then
./eesupp/src/timers.F 517 TIMER_CONTROL 
        do i = 1,nevents
./eesupp/src/timers.F 518 TIMER_CONTROL 
           call PAPIF_EVENT_CODE_TO_NAME(EventCode(i), EventName, Check)
./eesupp/src/timers.F 520 TIMER_CONTROL 
     $          values(i,iTimer,myThreadId)/timerUser(iTimer,myThreadId)
./eesupp/src/timers.F 521 TIMER_CONTROL 
     $          ,values(i,iTimer,myThreadId)/timerWall(iTimer,myThreadId
./eesupp/src/timers.F 522 TIMER_CONTROL 
     $          ),1.D0*values(i,iTimer,myThreadId)
./eesupp/src/timers.F 528 TIMER_CONTROL 
        do i = 1,nevents
./eesupp/src/timers.F 529 TIMER_CONTROL 
           WRITE(msgBuffer,71) pcl_counter_name(pcl_counter_list(i)),
./eesupp/src/timers.F 530 TIMER_CONTROL 
     $          i_result(i,iTimer,myThreadId)/timerUser(iTimer
./eesupp/src/timers.F 531 TIMER_CONTROL 
     $          ,myThreadId),i_result(i,iTimer,myThreadId)
./eesupp/src/timers.F 532 TIMER_CONTROL 
     $          /timerWall(iTimer,myThreadId),1.D0*i_result(i,iTimer
./pkg/ctrl/ctrl_map_ini_gen.F 118 CTRL_MAP_INI_GEN3D 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini_gen.F 119 CTRL_MAP_INI_GEN3D 
      if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND.
./pkg/ctrl/ctrl_map_ini_gen.F 120 CTRL_MAP_INI_GEN3D 
     & (wFld3d(i,j,k,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 121 CTRL_MAP_INI_GEN3D 
       tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F 122 CTRL_MAP_INI_GEN3D 
      if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then
./pkg/ctrl/ctrl_map_ini_gen.F 123 CTRL_MAP_INI_GEN3D 
       xxFld3d(i,j,k,bi,bj)=sign(tmpMax,xxFld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F 125 CTRL_MAP_INI_GEN3D 
       xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 145 CTRL_MAP_INI_GEN3D 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini_gen.F 148 CTRL_MAP_INI_GEN3D 
      if ( (maskFld3d(i,j,k,bi,bj).NE.0.)
./pkg/ctrl/ctrl_map_ini_gen.F 149 CTRL_MAP_INI_GEN3D 
     & .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 150 CTRL_MAP_INI_GEN3D 
      xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 151 CTRL_MAP_INI_GEN3D 
     & /sqrt( wFld3d(i,j,k,bi,bj) )
./pkg/ctrl/ctrl_map_ini_gen.F 153 CTRL_MAP_INI_GEN3D 
      xxFld3d(i,j,k,bi,bj)=0.
./pkg/ctrl/ctrl_map_ini_gen.F 156 CTRL_MAP_INI_GEN3D 
      paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 157 CTRL_MAP_INI_GEN3D 
     & + xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 233 CTRL_MAP_INI_GEN2D 
      integer i,j,k
./pkg/ctrl/ctrl_map_ini_gen.F 289 CTRL_MAP_INI_GEN2D 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini_gen.F 290 CTRL_MAP_INI_GEN2D 
      if ( (maskFld3d(i,j,1,bi,bj).NE.0.).AND.
./pkg/ctrl/ctrl_map_ini_gen.F 291 CTRL_MAP_INI_GEN2D 
     & (wFld2d(i,j,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 292 CTRL_MAP_INI_GEN2D 
       tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F 293 CTRL_MAP_INI_GEN2D 
      if ( abs(xxFld2d(i,j,bi,bj)).GT.tmpMax ) then
./pkg/ctrl/ctrl_map_ini_gen.F 294 CTRL_MAP_INI_GEN2D 
       xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F 296 CTRL_MAP_INI_GEN2D 
       xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 314 CTRL_MAP_INI_GEN2D 
              do i = imin,imax
./pkg/ctrl/ctrl_map_ini_gen.F 317 CTRL_MAP_INI_GEN2D 
      if ( (maskFld3d(i,j,1,bi,bj).NE.0.)
./pkg/ctrl/ctrl_map_ini_gen.F 318 CTRL_MAP_INI_GEN2D 
     & .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 319 CTRL_MAP_INI_GEN2D 
      xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 320 CTRL_MAP_INI_GEN2D 
     & /sqrt( wFld2d(i,j,bi,bj) )
./pkg/ctrl/ctrl_map_ini_gen.F 322 CTRL_MAP_INI_GEN2D 
      xxFld2d(i,j,bi,bj)=0.
./pkg/ctrl/ctrl_map_ini_gen.F 325 CTRL_MAP_INI_GEN2D 
      paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 326 CTRL_MAP_INI_GEN2D 
     & + xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 61 CTRL_MAP_INI_GEN3D 
      integer i,j,k
./pkg/ctrl/ctrl_mask_set_xz.F 102 CTRL_MASK_SET_XZ 
              do i = imin,imax
./pkg/ctrl/ctrl_mask_set_xz.F 107 CTRL_MASK_SET_XZ 
                    if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_mask_set_xz.F 109 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 114 CTRL_MASK_SET_XZ 
                    if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_xz.F 116 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 134 CTRL_MASK_SET_XZ 
              do i = imin,imax
./pkg/ctrl/ctrl_mask_set_xz.F 135 CTRL_MASK_SET_XZ 
                 gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_xz.F 45 CTRL_MASK_SET_XZ 
      integer i,j,k
./pkg/ctrl/ctrl_mask_set_xz.F 90 CTRL_MASK_SET_XZ 
              do i = 1-olx,snx+olx
./pkg/ctrl/ctrl_mask_set_xz.F 91 CTRL_MASK_SET_XZ 
                maskxz(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_yz.F 104 CTRL_MASK_SET_YZ 
                i = OB_I(J,bi,bj)
./pkg/ctrl/ctrl_mask_set_yz.F 105 CTRL_MASK_SET_YZ 
                if ( i .NE. 0 ) then
./pkg/ctrl/ctrl_mask_set_yz.F 108 CTRL_MASK_SET_YZ 
                    if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_mask_set_yz.F 115 CTRL_MASK_SET_YZ 
                    if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_yz.F 45 CTRL_MASK_SET_YZ 
      integer i,j,k
./pkg/ctrl/ctrl_obcsbal.F 57 CTRL_OBCSBAL 
      integer i,j,k
./pkg/ctrl/ctrl_obcsvol.F 183 CTRL_OBCSVOL 
              do i = imin,imax
./pkg/ctrl/ctrl_obcsvol.F 185 CTRL_OBCSVOL 
                if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 187 CTRL_OBCSVOL 
                  if(ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i) then
./pkg/ctrl/ctrl_obcsvol.F 188 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 190 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 191 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 219 CTRL_OBCSVOL 
              do i = imin,imax
./pkg/ctrl/ctrl_obcsvol.F 221 CTRL_OBCSVOL 
                if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 223 CTRL_OBCSVOL 
                  if (ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i) then
./pkg/ctrl/ctrl_obcsvol.F 224 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 226 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 227 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 256 CTRL_OBCSVOL 
                i = ob_iw(j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 257 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 259 CTRL_OBCSVOL 
                  if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then
./pkg/ctrl/ctrl_obcsvol.F 262 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 263 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 292 CTRL_OBCSVOL 
                i = ob_ie(j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 293 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 295 CTRL_OBCSVOL 
                  if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then
./pkg/ctrl/ctrl_obcsvol.F 298 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 299 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 341 CTRL_OBCSVOL 
              do i = imin,imax
./pkg/ctrl/ctrl_obcsvol.F 343 CTRL_OBCSVOL 
                if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 345 CTRL_OBCSVOL 
                  if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then
./pkg/ctrl/ctrl_obcsvol.F 346 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 348 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 349 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 377 CTRL_OBCSVOL 
              do i = imin,imax
./pkg/ctrl/ctrl_obcsvol.F 379 CTRL_OBCSVOL 
                if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 381 CTRL_OBCSVOL 
                  if (ob_iw(j,bi,bj).ne.i .and. ob_ie(j,bi,bj).ne.i)then
./pkg/ctrl/ctrl_obcsvol.F 382 CTRL_OBCSVOL 
                    tmpx = tmpfldxz(i,k,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 384 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpx* delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 385 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 414 CTRL_OBCSVOL 
                i = ob_iw(j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 415 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 417 CTRL_OBCSVOL 
                  if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then
./pkg/ctrl/ctrl_obcsvol.F 420 CTRL_OBCSVOL 
                    tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 421 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 450 CTRL_OBCSVOL 
                i = ob_ie(j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 451 CTRL_OBCSVOL 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_obcsvol.F 453 CTRL_OBCSVOL 
                  if (ob_jn(i,bi,bj).ne.j .and. ob_js(i,bi,bj).ne.j)then
./pkg/ctrl/ctrl_obcsvol.F 456 CTRL_OBCSVOL 
                    tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 457 CTRL_OBCSVOL 
                    tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_obcsvol.F 54 CTRL_OBCSVOL 
      integer i,j,k
./pkg/ctrl/ctrl_pack.F 215 CTRL_PACK 
          write(cunit) (ncvarindex(i), i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 216 CTRL_PACK 
          write(cunit) (ncvarrecs(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 217 CTRL_PACK 
          write(cunit) (ncvarxmax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 218 CTRL_PACK 
          write(cunit) (ncvarymax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 219 CTRL_PACK 
          write(cunit) (ncvarnrmax(i), i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 220 CTRL_PACK 
          write(cunit) (ncvargrd(i),   i=1,maxcvars)
./pkg/ctrl/ctrl_pack.F 66 CTRL_PACK 
      integer i, j, k
./pkg/ctrl/ctrl_readparms.F 45 CTRL_READPARMS 
      integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xy.F 47 CTRL_SET_GLOBFLD_XY 
      integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xy.F 74 CTRL_SET_GLOBFLD_XY 
               do i = imin,imax
./pkg/ctrl/ctrl_set_globfld_xy.F 75 CTRL_SET_GLOBFLD_XY 
                  globfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xy.F 85 CTRL_SET_GLOBFLD_XY 
                  do i = imin,imax
./pkg/ctrl/ctrl_set_globfld_xy.F 86 CTRL_SET_GLOBFLD_XY 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xyz.F 42 CTRL_SET_GLOBFLD_XYZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xyz.F 69 CTRL_SET_GLOBFLD_XYZ 
                  do i = imin,imax
./pkg/ctrl/ctrl_set_globfld_xyz.F 70 CTRL_SET_GLOBFLD_XYZ 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xz.F 47 CTRL_SET_GLOBFLD_XZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_globfld_xz.F 74 CTRL_SET_GLOBFLD_XZ 
               do i = imin,imax
./pkg/ctrl/ctrl_set_globfld_xz.F 75 CTRL_SET_GLOBFLD_XZ 
                  globfldxz(i,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xz.F 85 CTRL_SET_GLOBFLD_XZ 
                  do i = imin,imax
./pkg/ctrl/ctrl_set_globfld_xz.F 86 CTRL_SET_GLOBFLD_XZ 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F 47 CTRL_SET_GLOBFLD_YZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_globfld_yz.F 86 CTRL_SET_GLOBFLD_YZ 
                  do i = imin,imax
./pkg/ctrl/ctrl_set_globfld_yz.F 87 CTRL_SET_GLOBFLD_YZ 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 100 CTRL_SET_PACK_XY 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xy.F 101 CTRL_SET_PACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 102 CTRL_SET_PACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 103 CTRL_SET_PACK_XY 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xy.F 104 CTRL_SET_PACK_XY 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xy.F 175 CTRL_SET_PACK_XY 
                 do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xy.F 176 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,1)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 179 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./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 186 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F 187 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 191 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 192 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 196 CTRL_SET_PACK_XY 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 201 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 205 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 210 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 261 CTRL_SET_PACK_XY 
                 do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xy.F 262 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,k)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 265 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F 266 CTRL_SET_PACK_XY 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 272 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F 273 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 277 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 278 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 282 CTRL_SET_PACK_XY 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 287 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 291 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 296 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 51 CTRL_SET_PACK_XY 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_xyz.F 109 CTRL_SET_PACK_XYZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xyz.F 110 CTRL_SET_PACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 111 CTRL_SET_PACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 112 CTRL_SET_PACK_XYZ 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xyz.F 113 CTRL_SET_PACK_XYZ 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xyz.F 190 CTRL_SET_PACK_XYZ 
                 do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xyz.F 191 CTRL_SET_PACK_XYZ 
                  if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F 194 CTRL_SET_PACK_XYZ 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xyz.F 195 CTRL_SET_PACK_XYZ 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 201 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 203 CTRL_SET_PACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 209 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 211 CTRL_SET_PACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 217 CTRL_SET_PACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F 220 CTRL_SET_PACK_XYZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 223 CTRL_SET_PACK_XYZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 52 CTRL_SET_PACK_XYZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_xz.F 107 CTRL_SET_PACK_XZ 
                     do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xz.F 108 CTRL_SET_PACK_XZ 
                        globfldxz  (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 109 CTRL_SET_PACK_XZ 
                        globfldtmp2(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 110 CTRL_SET_PACK_XZ 
                        globfldtmp3(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 112 CTRL_SET_PACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 127 CTRL_SET_PACK_XZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xz.F 128 CTRL_SET_PACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 187 CTRL_SET_PACK_XZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xz.F 219 CTRL_SET_PACK_XZ 
                           do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xz.F 223 CTRL_SET_PACK_XZ 
                                 globfld3d(i,bi,ip,j,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 243 CTRL_SET_PACK_XZ 
                 do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xz.F 246 CTRL_SET_PACK_XZ 
                  if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 249 CTRL_SET_PACK_XZ 
                     globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xz.F 250 CTRL_SET_PACK_XZ 
     &                    globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 255 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_xz.F 257 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 263 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_xz.F 265 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 271 CTRL_SET_PACK_XZ 
                     globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 274 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 317 CTRL_SET_PACK_XZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xz.F 321 CTRL_SET_PACK_XZ 
                              globfldxz(i,bi,ip,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 341 CTRL_SET_PACK_XZ 
                do i = imin,imax
./pkg/ctrl/ctrl_set_pack_xz.F 342 CTRL_SET_PACK_XZ 
                 if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 345 CTRL_SET_PACK_XZ 
                     globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xz.F 346 CTRL_SET_PACK_XZ 
     &                    globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xz.F 351 CTRL_SET_PACK_XZ 
     &                       globfldxz(i,bi,ip,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xz.F 353 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 359 CTRL_SET_PACK_XZ 
     &                       globfldxz(i,bi,ip,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xz.F 361 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 367 CTRL_SET_PACK_XZ 
                     globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 370 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xz.F 55 CTRL_SET_PACK_XZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_yz.F 125 CTRL_SET_PACK_YZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_pack_yz.F 126 CTRL_SET_PACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 210 CTRL_SET_PACK_YZ 
         do i=1,snx
./pkg/ctrl/ctrl_set_pack_yz.F 211 CTRL_SET_PACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_pack_yz.F 225 CTRL_SET_PACK_YZ 
                                 globfld3d(i,bi,ip,j,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 246 CTRL_SET_PACK_YZ 
                  ii=mod ( (i-1)*nr*sny+(k-1)*sny+j-1      , snx ) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 247 CTRL_SET_PACK_YZ 
                  jj=mod( ((i-1)*nr*sny+(k-1)*sny+j-1)/snx , sny ) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 248 CTRL_SET_PACK_YZ 
                  kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 55 CTRL_SET_PACK_YZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xy.F 102 CTRL_SET_UNPACK_XY 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xy.F 103 CTRL_SET_UNPACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 104 CTRL_SET_UNPACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 105 CTRL_SET_UNPACK_XY 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xy.F 106 CTRL_SET_UNPACK_XY 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xy.F 200 CTRL_SET_UNPACK_XY 
                 do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xy.F 201 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 203 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 205 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 209 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 212 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 219 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 220 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xy.F 221 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 224 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 225 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)*
./pkg/ctrl/ctrl_set_unpack_xy.F 226 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 232 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 233 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 236 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 237 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 242 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 245 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 246 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 308 CTRL_SET_UNPACK_XY 
                 do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xy.F 309 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 311 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 313 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 317 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 320 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 327 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 328 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xy.F 329 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 332 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 333 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)*
./pkg/ctrl/ctrl_set_unpack_xy.F 334 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 340 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 341 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 344 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 345 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 350 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 353 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 354 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 52 CTRL_SET_UNPACK_XY 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xyz.F 110 CTRL_SET_UNPACK_XYZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xyz.F 111 CTRL_SET_UNPACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 112 CTRL_SET_UNPACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 113 CTRL_SET_UNPACK_XYZ 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xyz.F 114 CTRL_SET_UNPACK_XYZ 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xyz.F 220 CTRL_SET_UNPACK_XYZ 
                 do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xyz.F 221 CTRL_SET_UNPACK_XYZ 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 223 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 225 CTRL_SET_UNPACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 229 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 232 CTRL_SET_UNPACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 239 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 240 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 242 CTRL_SET_UNPACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 247 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 248 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 250 CTRL_SET_UNPACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 258 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 261 CTRL_SET_UNPACK_XYZ 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 262 CTRL_SET_UNPACK_XYZ 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 52 CTRL_SET_UNPACK_XYZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xz.F 110 CTRL_SET_UNPACK_XZ 
                     do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xz.F 111 CTRL_SET_UNPACK_XZ 
                        globfldxz  (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 112 CTRL_SET_UNPACK_XZ 
                        globfldtmp2(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xz.F 113 CTRL_SET_UNPACK_XZ 
                        globfldtmp3(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xz.F 115 CTRL_SET_UNPACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 130 CTRL_SET_UNPACK_XZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xz.F 131 CTRL_SET_UNPACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 190 CTRL_SET_UNPACK_XZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xz.F 249 CTRL_SET_UNPACK_XZ 
                   do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xz.F 250 CTRL_SET_UNPACK_XZ 
                    if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 252 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 255 CTRL_SET_UNPACK_XZ 
                       globfldtmp2(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F 259 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 260 CTRL_SET_UNPACK_XZ 
     &                      globfld3d(i,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_xz.F 262 CTRL_SET_UNPACK_XZ 
     &                      sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 268 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 271 CTRL_SET_UNPACK_XZ 
                    globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F 272 CTRL_SET_UNPACK_XZ 
     &                   globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_xz.F 337 CTRL_SET_UNPACK_XZ 
                do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_xz.F 338 CTRL_SET_UNPACK_XZ 
                  if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 340 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 342 CTRL_SET_UNPACK_XZ 
                     globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 345 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xz.F 346 CTRL_SET_UNPACK_XZ 
     &                    globfldxz(i,bi,ip,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xz.F 348 CTRL_SET_UNPACK_XZ 
     &                    sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 354 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 357 CTRL_SET_UNPACK_XZ 
                  globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F 358 CTRL_SET_UNPACK_XZ 
     &                 globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xz.F 56 CTRL_SET_UNPACK_XZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_yz.F 130 CTRL_SET_UNPACK_YZ 
                        do i = imin,imax
./pkg/ctrl/ctrl_set_unpack_yz.F 131 CTRL_SET_UNPACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 211 CTRL_SET_UNPACK_YZ 
         do i=1,snx
./pkg/ctrl/ctrl_set_unpack_yz.F 212 CTRL_SET_UNPACK_YZ 
            iobcs= mod((irec-1)*snx+i-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 247 CTRL_SET_UNPACK_YZ 
                    ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 248 CTRL_SET_UNPACK_YZ 
                    jj=mod(((i-1)*nr*sny+(k-1)*sny+j-1)/snx,sny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 249 CTRL_SET_UNPACK_YZ 
                    kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 56 CTRL_SET_UNPACK_YZ 
      integer i,j,k
./eesupp/src/write_utils.F 181 WRITE_1D_RL 
      INTEGER i, j, ic, i1, i2, nCount
./eesupp/src/write_utils.F 193 WRITE_1D_RL 
        DO i= 2,lFld
./eesupp/src/write_utils.F 194 WRITE_1D_RL 
          IF ( fld(i).NE.prev ) nCount = nCount + 1
./eesupp/src/write_utils.F 195 WRITE_1D_RL 
          prev = fld(i)
./eesupp/src/write_utils.F 701 WRITE_COPY1D_R4 
      INTEGER i
./eesupp/src/write_utils.F 704 WRITE_COPY1D_R4 
      DO i=1,lFld
./eesupp/src/write_utils.F 705 WRITE_COPY1D_R4 
        tmpBufRL(i) = fld(i)
./eesupp/src/write_utils.F 757 WRITE_COPY1D_R8 
      INTEGER i
./eesupp/src/write_utils.F 760 WRITE_COPY1D_R8 
      DO i=1,lFld
./eesupp/src/write_utils.F 761 WRITE_COPY1D_R8 
        tmpBufRL(i) = fld(i)
./eesupp/src/write_utils.F 813 WRITE_COPY1D_RS 
      INTEGER i
./eesupp/src/write_utils.F 816 WRITE_COPY1D_RS 
      DO i=1,lFld
./eesupp/src/write_utils.F 817 WRITE_COPY1D_RS 
        tmpBufRL(i) = fld(i)
./eesupp/src/write_utils.F 876 WRITE_XY_XLINE_RS 
      INTEGER bi, bj, i, j
./eesupp/src/write_utils.F 956 WRITE_XY_YLINE_RS 
      INTEGER bi, bj, i, j
./pkg/ctrl/ctrl_smooth.F 28 CTRL_SMOOTH 
      integer i, j, im1, ip1, jm1, jp1
./pkg/ctrl/ctrl_smooth.F 47 CTRL_SMOOTH 
         DO i = imin, imax
./pkg/ctrl/ctrl_smooth.F 48 CTRL_SMOOTH 
            im1 = i-1
./pkg/ctrl/ctrl_smooth.F 49 CTRL_SMOOTH 
            ip1 = i+1
./pkg/ctrl/ctrl_smooth.F 51 CTRL_SMOOTH 
     &           p25   *   mask(i  ,j  ,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 54 CTRL_SMOOTH 
     &                     mask(i  ,jm1,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 55 CTRL_SMOOTH 
     &                     mask(i  ,jp1,k,bi,bj) ) +
./pkg/ctrl/ctrl_smooth.F 61 CTRL_SMOOTH 
               fld_tmp(i,j) = (
./pkg/ctrl/ctrl_smooth.F 62 CTRL_SMOOTH 
     &              p25  * fld(i  ,j,bi,bj  )*mask(i  ,j  ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 65 CTRL_SMOOTH 
     &                     fld(i  ,jm1,bi,bj)*mask(i  ,jm1,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 66 CTRL_SMOOTH 
     &                     fld(i  ,jp1,bi,bj)*mask(i  ,jp1,k,bi,bj))+
./pkg/ctrl/ctrl_smooth.F 73 CTRL_SMOOTH 
               fld_tmp(i,j) = fld(i,j,bi,bj)
./pkg/ctrl/ctrl_smooth.F 80 CTRL_SMOOTH 
         DO i = imin, imax
./pkg/ctrl/ctrl_smooth.F 81 CTRL_SMOOTH 
            fld(i,j,bi,bj) = fld_tmp(i,j)
./pkg/ctrl/ctrl_summary.F 176 CTRL_SUMMARY 
     &    (xx_hfluxstartdate(i), i=1,2),
./pkg/ctrl/ctrl_summary.F 182 CTRL_SUMMARY 
     &    (timeint(i), i=1,2)
./pkg/ctrl/ctrl_summary.F 217 CTRL_SUMMARY 
     &    (xx_sfluxstartdate(i), i=1,2),
./pkg/ctrl/ctrl_summary.F 223 CTRL_SUMMARY 
     &    (timeint(i), i=1,2)
./pkg/ctrl/ctrl_summary.F 258 CTRL_SUMMARY 
     &    (xx_tauustartdate(i), i=1,2),
./pkg/ctrl/ctrl_summary.F 264 CTRL_SUMMARY 
     &    (timeint(i), i=1,2)
./pkg/ctrl/ctrl_summary.F 299 CTRL_SUMMARY 
     &    (xx_hfluxstartdate(i), i=1,2),
./pkg/ctrl/ctrl_summary.F 305 CTRL_SUMMARY 
     &    (timeint(i), i=1,2)
./pkg/ctrl/ctrl_summary.F 42 CTRL_SUMMARY 
      integer i,k
./pkg/ctrl/ctrl_unpack.F 230 CTRL_UNPACK 
          read(cunit) (filencvarindex(i), i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 231 CTRL_UNPACK 
          read(cunit) (filencvarrecs(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 232 CTRL_UNPACK 
          read(cunit) (filencvarxmax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 233 CTRL_UNPACK 
          read(cunit) (filencvarymax(i),  i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 234 CTRL_UNPACK 
          read(cunit) (filencvarnrmax(i), i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 235 CTRL_UNPACK 
          read(cunit) (filencvargrd(i),   i=1,maxcvars)
./pkg/ctrl/ctrl_unpack.F 69 CTRL_UNPACK 
      integer i, j, k
./pkg/ctrl/ctrl_volflux.F 183 CTRL_VOLFLUX 
              do i = imin,imax
./pkg/ctrl/ctrl_volflux.F 187 CTRL_VOLFLUX 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_volflux.F 189 CTRL_VOLFLUX 
                    if(ob_iw(j,bi,bj).ne.i .and.ob_ie(j,bi,bj).ne.i)then
./pkg/ctrl/ctrl_volflux.F 191 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 195 CTRL_VOLFLUX 
                      if (ob_iw(j,bi,bj).eq.(i-1) .and.
./pkg/ctrl/ctrl_volflux.F 198 CTRL_VOLFLUX 
                        tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 202 CTRL_VOLFLUX 
                    tmpflux = tmpflux -tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 232 CTRL_VOLFLUX 
              do i = imin,imax
./pkg/ctrl/ctrl_volflux.F 235 CTRL_VOLFLUX 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_volflux.F 237 CTRL_VOLFLUX 
                    if (ob_iw(j,bi,bj).ne.i.and.ob_ie(j,bi,bj).ne.i)then
./pkg/ctrl/ctrl_volflux.F 238 CTRL_VOLFLUX 
                      tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 244 CTRL_VOLFLUX 
                      if (ob_iw(j,bi,bj).eq.(i-1).and.
./pkg/ctrl/ctrl_volflux.F 247 CTRL_VOLFLUX 
                        tmparea = tmparea + delR(k) * dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 252 CTRL_VOLFLUX 
                      tmpflux = tmpflux +tmpx*delR(k)*dxg(i,j+jp1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 287 CTRL_VOLFLUX 
                i = ob_iw(j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 288 CTRL_VOLFLUX 
                if ( i .ne. 0) then
./pkg/ctrl/ctrl_volflux.F 289 CTRL_VOLFLUX 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_volflux.F 291 CTRL_VOLFLUX 
                  if (ob_jn(i,bi,bj).ne.j.and. ob_js(i,bi,bj).ne.j)then
./pkg/ctrl/ctrl_volflux.F 299 CTRL_VOLFLUX 
                      if (ob_jn(i,bi,bj).eq.(j+1) .and.
./pkg/ctrl/ctrl_volflux.F 300 CTRL_VOLFLUX 
     &                    ob_jn(i,bi,bj).ne. 0) then
./pkg/ctrl/ctrl_volflux.F 302 CTRL_VOLFLUX 
                        tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 308 CTRL_VOLFLUX 
                    tmpflux = tmpflux + tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 349 CTRL_VOLFLUX 
                i = ob_ie(j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 350 CTRL_VOLFLUX 
                if ( i .ne. 0) then
./pkg/ctrl/ctrl_volflux.F 351 CTRL_VOLFLUX 
                if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_volflux.F 353 CTRL_VOLFLUX 
                  if (ob_jn(i,bi,bj).ne.j .and.ob_js(i,bi,bj).ne.j)then
./pkg/ctrl/ctrl_volflux.F 362 CTRL_VOLFLUX 
                      if (ob_jn(i,bi,bj).eq.(j+1) .and.
./pkg/ctrl/ctrl_volflux.F 363 CTRL_VOLFLUX 
     &                    ob_jn(i,bi,bj).ne. 0) then
./pkg/ctrl/ctrl_volflux.F 365 CTRL_VOLFLUX 
                        tmparea = tmparea + delR(k) * dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 373 CTRL_VOLFLUX 
                    tmpflux = tmpflux - tmpy* delR(k)*dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 377 CTRL_VOLFLUX 
                    tmparea = tmparea + delR(k) *dyg(i+ip1,j,bi,bj)
./pkg/ctrl/ctrl_volflux.F 60 CTRL_VOLFLUX 
      integer i,j,k
./pkg/debug/debug_cs_corner_uv.F 102 DEBUG_CS_CORNER_UV 
         DO i=1,nSx
./pkg/debug/debug_cs_corner_uv.F 104 DEBUG_CS_CORNER_UV 
          n1 = W2_myTileList(i,j)
./pkg/debug/debug_cs_corner_uv.F 140 DEBUG_CS_CORNER_UV 
          n1 = i
./pkg/debug/debug_cs_corner_uv.F 66 DEBUG_CS_CORNER_UV 
      INTEGER ic, i, j
./pkg/debug/fill_in_corners_rl.F 37 FILL_IN_CORNERS_RL 
      INTEGER i, j, k
./pkg/debug/fill_in_corners_rl.F 46 FILL_IN_CORNERS_RL 
          DO i=1-Olx,0
./pkg/debug/fill_in_corners_rl.F 47 FILL_IN_CORNERS_RL 
           ii = i + sNx+Olx
./pkg/debug/fill_in_corners_rl.F 48 FILL_IN_CORNERS_RL 
           fld(i,j,k,bi,bj)   = spvFld
./pkg/debug/fill_in_corners_rl.F 50 FILL_IN_CORNERS_RL 
           fld(i,jj,k,bi,bj)  = spvFld
./pkg/debug/write_fullarray_rl.F 121 WRITE_FULLARRAY_RL 
           WRITE(dUnit,rec=kRec) (( fld(i,j,k,1,1),
./pkg/debug/write_fullarray_rl.F 122 WRITE_FULLARRAY_RL 
     &                                i=1-Olx,sNx+Olx),
./pkg/debug/write_fullarray_rl.F 51 WRITE_FULLARRAY_RL 
      INTEGER i,j,k,bi,bj,iG,jG
./pkg/debug/write_fullarray_rl.F 92 WRITE_FULLARRAY_RL 
           WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj),
./pkg/debug/write_fullarray_rl.F 93 WRITE_FULLARRAY_RL 
     &                                i=1-Olx,sNx+Olx),
./pkg/diagnostics/diag_vegtile_fill.F 157 DIAG_VEGTILE_FILL 
             i = 1 + MOD(ij,sNx)
./pkg/diagnostics/diag_vegtile_fill.F 159 DIAG_VEGTILE_FILL 
              qdiag(i,j,kd,bi,bj) = undef
./pkg/diagnostics/diag_vegtile_fill.F 160 DIAG_VEGTILE_FILL 
             ELSEIF ( qdiag(i,j,kd,bi,bj).NE.undef ) THEN
./pkg/diagnostics/diag_vegtile_fill.F 161 DIAG_VEGTILE_FILL 
              qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj)
./pkg/diagnostics/diag_vegtile_fill.F 169 DIAG_VEGTILE_FILL 
              i = 1 + MOD(ij,sNx)
./pkg/diagnostics/diag_vegtile_fill.F 170 DIAG_VEGTILE_FILL 
              qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj)
./pkg/diagnostics/diag_vegtile_fill.F 64 DIAG_VEGTILE_FILL 
      INTEGER ivt, ij, i
./pkg/diagnostics/diagnostics_clear.F 77 DIAGNOSTICS_CLRDIAG 
      INTEGER i,j,k
./pkg/diagnostics/diagnostics_clear.F 90 DIAGNOSTICS_CLRDIAG 
          DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_clear.F 91 DIAGNOSTICS_CLRDIAG 
           qdiag(i,j,kl,bi,bj) = 0.0
./pkg/diagnostics/diagnostics_fill_field.F 318 DIAGNOSTICS_CUMULATE 
      INTEGER i, j, l
./pkg/diagnostics/diagnostics_fill_field.F 331 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 332 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 333 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 334 DIAGNOSTICS_CUMULATE 
     &                         *inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 335 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 340 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 341 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 342 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 343 DIAGNOSTICS_CUMULATE 
     &                         *inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 344 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 349 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 350 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 351 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 352 DIAGNOSTICS_CUMULATE 
     &                         *inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 353 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 358 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 359 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 360 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 361 DIAGNOSTICS_CUMULATE 
     &                         *inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 362 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 374 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 375 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 376 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 377 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 382 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 383 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 384 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 385 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 390 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 391 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 392 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 393 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRL(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 398 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 399 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 400 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 401 DIAGNOSTICS_CUMULATE 
     &                         *frcFldRS(i,j,l,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 412 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 413 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 414 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 415 DIAGNOSTICS_CUMULATE 
     &                         *inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 420 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 421 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 422 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 423 DIAGNOSTICS_CUMULATE 
     &                         *inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 434 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 439 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 440 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 445 DIAGNOSTICS_CUMULATE 
         DO i = 1,iRun
./pkg/diagnostics/diagnostics_fill_field.F 446 DIAGNOSTICS_CUMULATE 
          cumFld(i,j) = cumFld(i,j)
./pkg/diagnostics/diagnostics_fill_field.F 447 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRS(i,j,k,bi,bj)
./lsopt/dgscale.F 26 DGSCALE 
      integer i
./lsopt/dgscale.F 36 DGSCALE 
      do i = 1, nn
./lsopt/dgscale.F 37 DGSCALE 
        r1 = r1 + gold(i)*gold(i)*diag(i)
./lsopt/dgscale.F 50 DGSCALE 
      do i = 1, nn
./lsopt/dgscale.F 52 DGSCALE 
         if (diag(i).LE.0) then
./lsopt/dgscale.F 54 DGSCALE 
            diag(i) = rmin
./lsopt/dgscale.F 57 DGSCALE 
         den = den + xdiff(i)*xdiff(i) / diag(i)
./lsopt/dgscale.F 60 DGSCALE 
      do i = 1, nn
./lsopt/dgscale.F 61 DGSCALE 
         diag(i) = 1./
./lsopt/dgscale.F 62 DGSCALE 
     $        (1./diag(i)+gold(i)**2-(xdiff(i)/diag(i))**2/den)
./lsopt/dgscale.F 63 DGSCALE 
         if (diag(i).le.0.) then
./lsopt/dgscale.F 64 DGSCALE 
            diag(i) = rmin
./pkg/diagnostics/diagnostics_fill_state.F 109 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 111 DIAGNOSTICS_FILL_STATE 
     &           *(uVel(i,j,K,bi,bj)+uVel(i+1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 113 DIAGNOSTICS_FILL_STATE 
     &           *(vVel(i,j,K,bi,bj)+vVel(i,j+1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 114 DIAGNOSTICS_FILL_STATE 
              tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC
./pkg/diagnostics/diagnostics_fill_state.F 115 DIAGNOSTICS_FILL_STATE 
     &                   -angleSinC(i,j,bi,bj)*vBarC
./pkg/diagnostics/diagnostics_fill_state.F 116 DIAGNOSTICS_FILL_STATE 
              tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC
./pkg/diagnostics/diagnostics_fill_state.F 117 DIAGNOSTICS_FILL_STATE 
     &                   +angleCosC(i,j,bi,bj)*vBarC
./pkg/diagnostics/diagnostics_fill_state.F 118 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,K,bi,bj) = tmpU(i,j)*tmpV(i,j)
./pkg/diagnostics/diagnostics_fill_state.F 134 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 135 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,K,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 136 DIAGNOSTICS_FILL_STATE 
     &           *(uVel(i,j-1,K,bi,bj)+uVel(i,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 137 DIAGNOSTICS_FILL_STATE 
     &           *(vVel(i-1,j,K,bi,bj)+vVel(i,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 152 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 153 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,K,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 154 DIAGNOSTICS_FILL_STATE 
     &           *(uVel(i,j,km1,bi,bj)+uVel(i,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 155 DIAGNOSTICS_FILL_STATE 
     &           *(wVel(i-1,j,K,bi,bj)*rA(i-1,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 156 DIAGNOSTICS_FILL_STATE 
     &            +wVel( i ,j,K,bi,bj)*rA( i ,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 157 DIAGNOSTICS_FILL_STATE 
     &            )*recip_rAw(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 172 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 173 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,K,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 174 DIAGNOSTICS_FILL_STATE 
     &           *(vVel(i,j,km1,bi,bj)+vVel(i,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 175 DIAGNOSTICS_FILL_STATE 
     &           *(wVel(i,j-1,K,bi,bj)*rA(i,j-1,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 176 DIAGNOSTICS_FILL_STATE 
     &            +wVel(i, j ,K,bi,bj)*rA(i, j ,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 177 DIAGNOSTICS_FILL_STATE 
     &            )*recip_rAs(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 193 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 194 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 195 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,K,bi,bj)+theta(i-1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 209 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 210 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 211 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,K,bi,bj)+theta(i,j-1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 226 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 227 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 228 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 242 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 243 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 244 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 258 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 259 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 260 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 275 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 276 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 277 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 291 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 292 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 293 DIAGNOSTICS_FILL_STATE 
     &       *0.5 _d 0*(totPhiHyd(i,j,K,bi,bj)+totPhiHyd(i-1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 307 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 308 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 309 DIAGNOSTICS_FILL_STATE 
     &       *0.5 _d 0*(totPhiHyd(i,j,K,bi,bj)+totPhiHyd(i,j-1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 322 DIAGNOSTICS_FILL_STATE 
            DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 323 DIAGNOSTICS_FILL_STATE 
              tmp1k(i,j,bi,bj) = R_low(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 328 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 329 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 330 DIAGNOSTICS_FILL_STATE 
     &               + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 333 DIAGNOSTICS_FILL_STATE 
              tmp1k(i,j,bi,bj) =   tmp1k(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 334 DIAGNOSTICS_FILL_STATE 
     &                      + drF(k)*hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 352 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 353 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = -uVel(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 368 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 369 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = -vVel(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 384 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 385 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = -theta(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 400 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 401 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = -salt(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 428 DIAGNOSTICS_FILL_STATE 
         do i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 430 DIAGNOSTICS_FILL_STATE 
           dummy1 = theta(i,j,k,bi,bj) * ((rc(k)/100.)/1000.)**kappa
./pkg/diagnostics/diagnostics_fill_state.F 433 DIAGNOSTICS_FILL_STATE 
           tmpMk(i,j,K,bi,bj) = hfacC(i,j,K,bi,bj) *
./pkg/diagnostics/diagnostics_fill_state.F 434 DIAGNOSTICS_FILL_STATE 
     .                    salt(i,j,k,bi,bj) * 100. / dummy3
./pkg/diagnostics/diagnostics_fill_state.F 482 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 483 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35. _d 0
./pkg/diagnostics/diagnostics_fill_state.F 501 DIAGNOSTICS_FILL_STATE 
              DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 502 DIAGNOSTICS_FILL_STATE 
                tmpMk(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 503 DIAGNOSTICS_FILL_STATE 
     &               = uVel(i,j,K,bi,bj)*hFacW(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 517 DIAGNOSTICS_FILL_STATE 
              DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 518 DIAGNOSTICS_FILL_STATE 
                tmpMk(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 519 DIAGNOSTICS_FILL_STATE 
     &               = vVel(i,j,K,bi,bj)*hFacS(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 535 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 536 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 537 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,K,bi,bj)+theta(i-1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 538 DIAGNOSTICS_FILL_STATE 
     &                  * hFacW(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 53 DIAGNOSTICS_FILL_STATE 
      INTEGER i,j,K,bi,bj
./pkg/diagnostics/diagnostics_fill_state.F 552 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 553 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 554 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,K,bi,bj)+theta(i,j-1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 555 DIAGNOSTICS_FILL_STATE 
     &                  * hFacS(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 570 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 571 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 572 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,K,bi,bj)+theta(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 586 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 587 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 588 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,K,bi,bj)+salt(i-1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 589 DIAGNOSTICS_FILL_STATE 
     &                  * hFacW(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 603 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 604 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 605 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,K,bi,bj)+salt(i,j-1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 606 DIAGNOSTICS_FILL_STATE 
     &                  * hFacS(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 621 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 622 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 623 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,K,bi,bj)+salt(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 645 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_fill_state.F 646 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 661 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 662 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 677 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 678 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = theta(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 67 DIAGNOSTICS_FILL_STATE 
            DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 68 DIAGNOSTICS_FILL_STATE 
              tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 693 DIAGNOSTICS_FILL_STATE 
             DO i = 1,sNx
./pkg/diagnostics/diagnostics_fill_state.F 694 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)
./pkg/diagnostics/diagnostics_init_varia.F 30 DIAGNOSTICS_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/diagnostics/diagnostics_init_varia.F 37 DIAGNOSTICS_INIT_VARIA 
              DO i = 1-Olx,sNx+Olx
./pkg/diagnostics/diagnostics_init_varia.F 38 DIAGNOSTICS_INIT_VARIA 
                qdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_init_varia.F 56 DIAGNOSTICS_INIT_VARIA 
              DO i = 0,nStats
./pkg/diagnostics/diagnostics_init_varia.F 57 DIAGNOSTICS_INIT_VARIA 
                qSdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_interp_p2p.F 104 DIAGNOSTICS_INTERP_P2P 
      DO i=1,ijm
./pkg/diagnostics/diagnostics_interp_p2p.F 107 DIAGNOSTICS_INTERP_P2P 
       IF ( pk.LE.pkz(i,1) .AND. pk.GE.pktop ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 108 DIAGNOSTICS_INTERP_P2P 
         temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) )
./pkg/diagnostics/diagnostics_interp_p2p.F 110 DIAGNOSTICS_INTERP_P2P 
         IF     ( qinp(i,1).NE.undef  .AND.
./pkg/diagnostics/diagnostics_interp_p2p.F 111 DIAGNOSTICS_INTERP_P2P 
     &           qinp(i,2).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 112 DIAGNOSTICS_INTERP_P2P 
           qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp)
./pkg/diagnostics/diagnostics_interp_p2p.F 113 DIAGNOSTICS_INTERP_P2P 
         ELSEIF ( qinp(i,1).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 114 DIAGNOSTICS_INTERP_P2P 
           qprs(i) = qinp(i,1)
./pkg/diagnostics/diagnostics_interp_p2p.F 121 DIAGNOSTICS_INTERP_P2P 
       IF ( pk.GE.pkz(i,lm) .AND. pk.LE.pksrf(i) ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 122 DIAGNOSTICS_INTERP_P2P 
         temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) )
./pkg/diagnostics/diagnostics_interp_p2p.F 124 DIAGNOSTICS_INTERP_P2P 
         IF     ( qinp(i,lm)  .NE.undef  .AND.
./pkg/diagnostics/diagnostics_interp_p2p.F 125 DIAGNOSTICS_INTERP_P2P 
     &            qinp(i,lm-1).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 126 DIAGNOSTICS_INTERP_P2P 
            qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp)
./pkg/diagnostics/diagnostics_interp_p2p.F 127 DIAGNOSTICS_INTERP_P2P 
         ELSEIF ( qinp(i,lm)  .NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 128 DIAGNOSTICS_INTERP_P2P 
            qprs(i) = qinp(i,lm)
./pkg/diagnostics/diagnostics_interp_p2p.F 143 DIAGNOSTICS_INTERP_P2P 
       DO i=2,ijm
./pkg/diagnostics/diagnostics_interp_p2p.F 144 DIAGNOSTICS_INTERP_P2P 
         IF ( pkz(i,L+1).LT.pkmin ) pkmin = pkz(i,L+1)
./pkg/diagnostics/diagnostics_interp_p2p.F 145 DIAGNOSTICS_INTERP_P2P 
         IF ( pkz(i,L)  .GT.pkmax ) pkmax = pkz(i,L)
./pkg/diagnostics/diagnostics_interp_p2p.F 149 DIAGNOSTICS_INTERP_P2P 
         DO i=1,ijm
./pkg/diagnostics/diagnostics_interp_p2p.F 150 DIAGNOSTICS_INTERP_P2P 
           IF ( pk.LE.pkz(i,L) .AND. pk.GE.pkz(i,L+1) ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 151 DIAGNOSTICS_INTERP_P2P 
             temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) )
./pkg/diagnostics/diagnostics_interp_p2p.F 153 DIAGNOSTICS_INTERP_P2P 
             IF     ( qinp(i,L)  .NE.undef  .AND.
./pkg/diagnostics/diagnostics_interp_p2p.F 154 DIAGNOSTICS_INTERP_P2P 
     &                qinp(i,L+1).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 155 DIAGNOSTICS_INTERP_P2P 
               qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp)
./pkg/diagnostics/diagnostics_interp_p2p.F 156 DIAGNOSTICS_INTERP_P2P 
             ELSEIF ( qinp(i,L+1).NE.undef  .AND. temp.GE.0.5 ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 157 DIAGNOSTICS_INTERP_P2P 
               qprs(i) = qinp(i,L+1)
./pkg/diagnostics/diagnostics_interp_p2p.F 158 DIAGNOSTICS_INTERP_P2P 
             ELSEIF ( qinp(i,L)  .NE.undef  .AND. temp.LE.0.5 ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 159 DIAGNOSTICS_INTERP_P2P 
               qprs(i) = qinp(i,L)
./pkg/diagnostics/diagnostics_interp_p2p.F 167 DIAGNOSTICS_INTERP_P2P 
      DO i=1,ijm
./pkg/diagnostics/diagnostics_interp_p2p.F 170 DIAGNOSTICS_INTERP_P2P 
       IF ( pk.LE.pkz(i,lm) .AND. pk.GE.pktop ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 171 DIAGNOSTICS_INTERP_P2P 
         temp = ( pk-pkz(i,lm) ) / ( pkz(i,lm-1)-pkz(i,lm) )
./pkg/diagnostics/diagnostics_interp_p2p.F 173 DIAGNOSTICS_INTERP_P2P 
         IF     ( qinp(i,lm)  .NE.undef  .AND.
./pkg/diagnostics/diagnostics_interp_p2p.F 174 DIAGNOSTICS_INTERP_P2P 
     &            qinp(i,lm-1).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 175 DIAGNOSTICS_INTERP_P2P 
            qprs(i) = qinp(i,lm-1)*temp + qinp(i,lm)*(1.-temp)
./pkg/diagnostics/diagnostics_interp_p2p.F 176 DIAGNOSTICS_INTERP_P2P 
         ELSEIF ( qinp(i,lm)  .NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 177 DIAGNOSTICS_INTERP_P2P 
            qprs(i) = qinp(i,lm)
./pkg/diagnostics/diagnostics_interp_p2p.F 184 DIAGNOSTICS_INTERP_P2P 
       IF ( pk.GE.pkz(i,1) .AND. pk.LE.pksrf(i) ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 185 DIAGNOSTICS_INTERP_P2P 
         temp = ( pk-pkz(i,1) ) / ( pkz(i,2)-pkz(i,1) )
./pkg/diagnostics/diagnostics_interp_p2p.F 187 DIAGNOSTICS_INTERP_P2P 
         IF     ( qinp(i,1).NE.undef  .AND.
./pkg/diagnostics/diagnostics_interp_p2p.F 188 DIAGNOSTICS_INTERP_P2P 
     &            qinp(i,2).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 189 DIAGNOSTICS_INTERP_P2P 
           qprs(i) = qinp(i,2)*temp + qinp(i,1)*(1.-temp)
./pkg/diagnostics/diagnostics_interp_p2p.F 190 DIAGNOSTICS_INTERP_P2P 
         ELSEIF ( qinp(i,1).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 191 DIAGNOSTICS_INTERP_P2P 
           qprs(i) = qinp(i,1)
./pkg/diagnostics/diagnostics_interp_p2p.F 60 DIAGNOSTICS_INTERP_P2P 
      INTEGER  i,l
./pkg/diagnostics/diagnostics_interp_p2p.F 67 DIAGNOSTICS_INTERP_P2P 
      DO i=1,ijm
./pkg/diagnostics/diagnostics_interp_p2p.F 68 DIAGNOSTICS_INTERP_P2P 
       qprs(i) = undef
./pkg/diagnostics/diagnostics_interp_p2p.F 80 DIAGNOSTICS_INTERP_P2P 
       DO i=2,ijm
./pkg/diagnostics/diagnostics_interp_p2p.F 81 DIAGNOSTICS_INTERP_P2P 
         IF ( pkz(i,L)  .LT.pkmin ) pkmin = pkz(i,L)
./pkg/diagnostics/diagnostics_interp_p2p.F 82 DIAGNOSTICS_INTERP_P2P 
         IF ( pkz(i,L+1).GT.pkmax ) pkmax = pkz(i,L+1)
./pkg/diagnostics/diagnostics_interp_p2p.F 86 DIAGNOSTICS_INTERP_P2P 
         DO i=1,ijm
./pkg/diagnostics/diagnostics_interp_p2p.F 87 DIAGNOSTICS_INTERP_P2P 
           IF ( pk.GE.pkz(i,L) .AND. pk.LE.pkz(i,L+1) ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 88 DIAGNOSTICS_INTERP_P2P 
             temp = ( pk-pkz(i,L) ) / ( pkz(i,L+1)-pkz(i,L) )
./pkg/diagnostics/diagnostics_interp_p2p.F 90 DIAGNOSTICS_INTERP_P2P 
             IF     ( qinp(i,L)  .NE.undef  .AND.
./pkg/diagnostics/diagnostics_interp_p2p.F 91 DIAGNOSTICS_INTERP_P2P 
     &                qinp(i,L+1).NE.undef ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 92 DIAGNOSTICS_INTERP_P2P 
               qprs(i) = qinp(i,L+1)*temp + qinp(i,L)*(1.-temp)
./pkg/diagnostics/diagnostics_interp_p2p.F 93 DIAGNOSTICS_INTERP_P2P 
             ELSEIF ( qinp(i,L+1).NE.undef  .AND. temp.GE.0.5 ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 94 DIAGNOSTICS_INTERP_P2P 
               qprs(i) = qinp(i,L+1)
./pkg/diagnostics/diagnostics_interp_p2p.F 95 DIAGNOSTICS_INTERP_P2P 
             ELSEIF ( qinp(i,L)  .NE.undef  .AND. temp.LE.0.5 ) THEN
./pkg/diagnostics/diagnostics_interp_p2p.F 96 DIAGNOSTICS_INTERP_P2P 
               qprs(i) = qinp(i,L)
./pkg/diagnostics/diagnostics_interp_vert.F 133 DIAGNOSTICS_INTERP_VERT 
             DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_interp_vert.F 134 DIAGNOSTICS_INTERP_VERT 
               qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F 139 DIAGNOSTICS_INTERP_VERT 
              DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_interp_vert.F 140 DIAGNOSTICS_INTERP_VERT 
               qtmp2(i,j,k,bi,bj) = rC(k)
./pkg/diagnostics/diagnostics_interp_vert.F 155 DIAGNOSTICS_INTERP_VERT 
            DO i = 1,sNx
./pkg/diagnostics/diagnostics_interp_vert.F 156 DIAGNOSTICS_INTERP_VERT 
              pksrf(i,j)    = qtmpsrf(i,j,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F 163 DIAGNOSTICS_INTERP_VERT 
              DO i = 1,sNx
./pkg/diagnostics/diagnostics_interp_vert.F 164 DIAGNOSTICS_INTERP_VERT 
                qinp(i,j,k) = qtmp1(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F 165 DIAGNOSTICS_INTERP_VERT 
                pkz(i,j,k)  = qtmp2(i,j,k,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F 176 DIAGNOSTICS_INTERP_VERT 
              DO i = 1,sNx
./pkg/diagnostics/diagnostics_interp_vert.F 177 DIAGNOSTICS_INTERP_VERT 
                IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN
./pkg/diagnostics/diagnostics_interp_vert.F 178 DIAGNOSTICS_INTERP_VERT 
                 qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F 180 DIAGNOSTICS_INTERP_VERT 
                 qinp(i,j,k)= undef
./pkg/diagnostics/diagnostics_interp_vert.F 182 DIAGNOSTICS_INTERP_VERT 
                pkz(i,j,k)  = qtmp2(i,j,kLev,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F 197 DIAGNOSTICS_INTERP_VERT 
              DO i = 1,sNx
./pkg/diagnostics/diagnostics_interp_vert.F 198 DIAGNOSTICS_INTERP_VERT 
               IF (qprs(i,j).EQ.undef) THEN
./pkg/diagnostics/diagnostics_interp_vert.F 199 DIAGNOSTICS_INTERP_VERT 
                 qtmp1(i,j,k,bi,bj) = 0.
./pkg/diagnostics/diagnostics_interp_vert.F 201 DIAGNOSTICS_INTERP_VERT 
                 qtmp1(i,j,k,bi,bj) =  qprs(i,j)
./pkg/diagnostics/diagnostics_interp_vert.F 63 DIAGNOSTICS_INTERP_VERT 
      INTEGER i, j, k
./pkg/diagnostics/diagnostics_list_check.F 50 DIAGNOSTICS_LIST_CHECK 
      INTEGER n,m,m1,i
./pkg/diagnostics/diagnostics_list_check.F 65 DIAGNOSTICS_LIST_CHECK 
         DO i=1,ndiagt
./pkg/diagnostics/diagnostics_list_check.F 66 DIAGNOSTICS_LIST_CHECK 
          IF ( diagName.EQ.cdiag(i) ) found = .TRUE.
./lsopt/dostore.F 19 DOSTORE 
        do i = 1, n
./lsopt/dostore.F 20 DOSTORE 
          tmpx(i) = x(i)
./lsopt/dostore.F 25 DOSTORE 
	do i = 1, n
./lsopt/dostore.F 26 DOSTORE 
          x(i) = tmpx(i)
./lsopt/dostore.F 5 DOSTORE 
      integer n, i, j
./pkg/diagnostics/diagnostics_out.F 143 DIAGNOSTICS_OUT 
        i = INT( timeRec(1) )
./pkg/diagnostics/diagnostics_out.F 145 DIAGNOSTICS_OUT 
          tmpLev = FLOAT(i)
./pkg/diagnostics/diagnostics_out.F 146 DIAGNOSTICS_OUT 
          IF ( timeRec(1).NE.tmpLev ) i = i - 1
./pkg/diagnostics/diagnostics_out.F 148 DIAGNOSTICS_OUT 
        timeRec(1) = phase(listId) + freq(listId)*FLOAT(i)
./pkg/diagnostics/diagnostics_out.F 154 DIAGNOSTICS_OUT 
        i = NINT( timeRec(1) )
./pkg/diagnostics/diagnostics_out.F 156 DIAGNOSTICS_OUT 
        tmpLev = FLOAT(i) - 0.5 _d 0
./pkg/diagnostics/diagnostics_out.F 157 DIAGNOSTICS_OUT 
        IF ( timeRec(1).EQ.tmpLev ) i = i - 1
./pkg/diagnostics/diagnostics_out.F 158 DIAGNOSTICS_OUT 
        timeRec(1) = baseTime + deltaTClock*FLOAT(i)
./pkg/diagnostics/diagnostics_out.F 199 DIAGNOSTICS_OUT 
         DO i = 1,MAX_LEN_FNAM
./pkg/diagnostics/diagnostics_out.F 200 DIAGNOSTICS_OUT 
           diag_mnc_bn(i:i) = ' '
./pkg/diagnostics/diagnostics_out.F 202 DIAGNOSTICS_OUT 
         DO i = 1,NLEN
./pkg/diagnostics/diagnostics_out.F 203 DIAGNOSTICS_OUT 
           dn_blnk(i:i) = ' '
./pkg/diagnostics/diagnostics_out.F 259 DIAGNOSTICS_OUT 
         DO i = 1,3
./pkg/diagnostics/diagnostics_out.F 261 DIAGNOSTICS_OUT 
           WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId)
./pkg/diagnostics/diagnostics_out.F 273 DIAGNOSTICS_OUT 
           IF (i .EQ. 1) THEN
./pkg/diagnostics/diagnostics_out.F 280 DIAGNOSTICS_OUT 
           ELSEIF (i .EQ. 2) THEN
./pkg/diagnostics/diagnostics_out.F 287 DIAGNOSTICS_OUT 
           ELSEIF (i .EQ. 3) THEN
./pkg/diagnostics/diagnostics_out.F 370 DIAGNOSTICS_OUT 
                    DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_out.F 371 DIAGNOSTICS_OUT 
                      qtmp1(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_out.F 572 DIAGNOSTICS_OUT 
                 DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_out.F 573 DIAGNOSTICS_OUT 
                  IF ( maskC(i,j,klev,bi,bj) .EQ. 0. )
./pkg/diagnostics/diagnostics_out.F 574 DIAGNOSTICS_OUT 
     &                 qtmp1(i,j,k,bi,bj) = misvalLoc
./pkg/diagnostics/diagnostics_out.F 67 DIAGNOSTICS_OUT 
      INTEGER i, j, k, lm
./pkg/diagnostics/diagnostics_read_pickup.F 46 DIAGNOSTICS_READ_PICKUP 
      INTEGER i, ii
./pkg/diagnostics/diagnostics_read_pickup.F 63 DIAGNOSTICS_READ_PICKUP 
          DO i = 1,NLEN
./pkg/diagnostics/diagnostics_read_pickup.F 64 DIAGNOSTICS_READ_PICKUP 
            dn_blnk(i:i) = ' '
./pkg/diagnostics/diagnostics_read_pickup.F 66 DIAGNOSTICS_READ_PICKUP 
          DO i = 1,MAX_LEN_FNAM
./pkg/diagnostics/diagnostics_read_pickup.F 67 DIAGNOSTICS_READ_PICKUP 
            diag_mnc_bn(i:i) = ' '
./pkg/diagnostics/diagnostics_set_pointers.F 139 DIAGNOSTICS_SET_POINTERS 
           DO i=1,nActive(j)
./pkg/diagnostics/diagnostics_set_pointers.F 140 DIAGNOSTICS_SET_POINTERS 
            IF ( mdiag(md,ld).EQ.0 .AND. jdiag(i,j).EQ.mate ) THEN
./pkg/diagnostics/diagnostics_set_pointers.F 141 DIAGNOSTICS_SET_POINTERS 
              mdiag(md,ld) = ABS(idiag(i,j))
./pkg/diagnostics/diagnostics_set_pointers.F 38 DIAGNOSTICS_SET_POINTERS 
      INTEGER i, j, k, k1, k2, mm, kLev
./pkg/diagnostics/diagnostics_sum_levels.F 109 DIAGNOSTICS_SUM_LEVELS 
               DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 110 DIAGNOSTICS_SUM_LEVELS 
                tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F 111 DIAGNOSTICS_SUM_LEVELS 
     &                      + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 116 DIAGNOSTICS_SUM_LEVELS 
              DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 117 DIAGNOSTICS_SUM_LEVELS 
                fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F 133 DIAGNOSTICS_SUM_LEVELS 
                DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 134 DIAGNOSTICS_SUM_LEVELS 
                 tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F 135 DIAGNOSTICS_SUM_LEVELS 
     &                       + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 136 DIAGNOSTICS_SUM_LEVELS 
     &                               *hFacC(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 149 DIAGNOSTICS_SUM_LEVELS 
                DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 150 DIAGNOSTICS_SUM_LEVELS 
                 tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F 151 DIAGNOSTICS_SUM_LEVELS 
     &                       + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 152 DIAGNOSTICS_SUM_LEVELS 
     &                               *hFacW(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 165 DIAGNOSTICS_SUM_LEVELS 
                DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 166 DIAGNOSTICS_SUM_LEVELS 
                 tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F 167 DIAGNOSTICS_SUM_LEVELS 
     &                       + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 168 DIAGNOSTICS_SUM_LEVELS 
     &                               *hFacS(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 181 DIAGNOSTICS_SUM_LEVELS 
                DO i = 2-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 183 DIAGNOSTICS_SUM_LEVELS 
     &                          hFacW( i, j, kLev,bi,bj),
./pkg/diagnostics/diagnostics_sum_levels.F 184 DIAGNOSTICS_SUM_LEVELS 
     &                          hFacW( i,j-1,kLev,bi,bj),
./pkg/diagnostics/diagnostics_sum_levels.F 185 DIAGNOSTICS_SUM_LEVELS 
     &                          hFacS( i, j, kLev,bi,bj),
./pkg/diagnostics/diagnostics_sum_levels.F 186 DIAGNOSTICS_SUM_LEVELS 
     &                          hFacS(i-1,j, kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 188 DIAGNOSTICS_SUM_LEVELS 
                 tmpFld(i,j) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F 189 DIAGNOSTICS_SUM_LEVELS 
     &                       + tmpFac*fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 198 DIAGNOSTICS_SUM_LEVELS 
              DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 199 DIAGNOSTICS_SUM_LEVELS 
                fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_sum_levels.F 57 DIAGNOSTICS_SUM_LEVELS 
      INTEGER i, j, k
./pkg/diagnostics/diagnostics_sum_levels.F 76 DIAGNOSTICS_SUM_LEVELS 
            DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 77 DIAGNOSTICS_SUM_LEVELS 
              tmpFld(i,j) = 0. _d 0
./pkg/diagnostics/diagnostics_sum_levels.F 87 DIAGNOSTICS_SUM_LEVELS 
               DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 88 DIAGNOSTICS_SUM_LEVELS 
                tmpFld(i,j) = tmpFld(i,j) + fld3d(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_sum_levels.F 93 DIAGNOSTICS_SUM_LEVELS 
              DO i = 1-OLx,sNx+OLx
./pkg/diagnostics/diagnostics_sum_levels.F 94 DIAGNOSTICS_SUM_LEVELS 
                fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./lsopt/hessupd.F 100 HESSUPD 
         do i = 1, nn
./lsopt/hessupd.F 101 HESSUPD 
            dd(i) = dd(i) + r*xdiff(i)
./lsopt/hessupd.F 47 HESSUPD 
      integer jfin, i, j, jp
./lsopt/hessupd.F 76 HESSUPD 
         do i = 1, nn
./lsopt/hessupd.F 77 HESSUPD 
            dd(i) = dd(i) - r*xdiff(i)
./lsopt/hessupd.F 86 HESSUPD 
         do i = 1, nn
./lsopt/hessupd.F 87 HESSUPD 
            dd(i) = dd(i)*xdiff(i)
./pkg/diagnostics/diagnostics_utils.F 100 GETDIAG 
                qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F 101 GETDIAG 
     &                    / qdiag(i,j,ipCt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F 103 GETDIAG 
                qtmp(i,j) = undef
./pkg/diagnostics/diagnostics_utils.F 496 DIAGNOSTICS_SETKLEV 
      INTEGER i,j,n
./pkg/diagnostics/diagnostics_utils.F 502 DIAGNOSTICS_SETKLEV 
      DO i=1,n
./pkg/diagnostics/diagnostics_utils.F 503 DIAGNOSTICS_SETKLEV 
       IF (diagUnitsInPieces(i:i) .NE. ' ' ) THEN
./pkg/diagnostics/diagnostics_utils.F 505 DIAGNOSTICS_SETKLEV 
         IF ( j.LE.16 ) DIAGS_MK_UNITS(j:j) = diagUnitsInPieces(i:i)
./pkg/diagnostics/diagnostics_utils.F 554 DIAGNOSTICS_SETKLEV 
      INTEGER i,j,n
./pkg/diagnostics/diagnostics_utils.F 564 DIAGNOSTICS_SETKLEV 
      DO i=1,n
./pkg/diagnostics/diagnostics_utils.F 565 DIAGNOSTICS_SETKLEV 
       IF (diagTitleInPieces(i:i) .NE. ' ' ) THEN
./pkg/diagnostics/diagnostics_utils.F 571 DIAGNOSTICS_SETKLEV 
         IF ( j.LE.80 ) DIAGS_MK_TITLE(j:j) = diagTitleInPieces(i:i)
./pkg/diagnostics/diagnostics_utils.F 58 GETDIAG 
      INTEGER i, j, ipnt,ipCt
./pkg/diagnostics/diagnostics_utils.F 75 GETDIAG 
            DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_utils.F 76 GETDIAG 
              IF ( qdiag(i,j,ipnt,bi,bj) .LE. undef ) THEN
./pkg/diagnostics/diagnostics_utils.F 77 GETDIAG 
                qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 79 GETDIAG 
                qtmp(i,j) = undef
./pkg/diagnostics/diagnostics_utils.F 85 GETDIAG 
            DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_utils.F 86 GETDIAG 
              qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 98 GETDIAG 
            DO i = 1,sNx+1
./pkg/diagnostics/diagnostics_utils.F 99 GETDIAG 
              IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN
./pkg/diagnostics/diagnostics_write_pickup.F 57 DIAGNOSTICS_WRITE_PICKUP 
      INTEGER i, ii
./pkg/diagnostics/diagnostics_write_pickup.F 76 DIAGNOSTICS_WRITE_PICKUP 
          DO i = 1,NLEN
./pkg/diagnostics/diagnostics_write_pickup.F 77 DIAGNOSTICS_WRITE_PICKUP 
            dn_blnk(i:i) = ' '
./pkg/diagnostics/diagnostics_write_pickup.F 79 DIAGNOSTICS_WRITE_PICKUP 
          DO i = 1,MAX_LEN_FNAM
./pkg/diagnostics/diagnostics_write_pickup.F 80 DIAGNOSTICS_WRITE_PICKUP 
            diag_mnc_bn(i:i) = ' '
./pkg/diagnostics/diagstats_ascii_out.F 43 DIAGSTATS_ASCII_OUT 
      INTEGER i, j, k, klev, nUnit
./pkg/diagnostics/diagstats_ascii_out.F 76 DIAGSTATS_ASCII_OUT 
     &       k, (statGlob(i,k,j),i=1,nStats), statGlob(0,k,j)
./pkg/diagnostics/diagstats_calc.F 109 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 111 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 123 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 124 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0. ) THEN
./pkg/diagnostics/diagstats_calc.F 126 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 128 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 138 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 140 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 152 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 153 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F 154 DIAGSTATS_CALC 
     &                     .AND. inpArr(i,j).NE.specialVal ) THEN
./pkg/diagnostics/diagstats_calc.F 156 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 158 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 168 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 170 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 182 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 183 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0. ) THEN
./pkg/diagnostics/diagstats_calc.F 185 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 187 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 197 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 199 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 211 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 212 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F 213 DIAGSTATS_CALC 
     &                     .AND. inpArr(i,j).NE.specialVal
./pkg/diagnostics/diagstats_calc.F 214 DIAGSTATS_CALC 
     &                     .AND. regMask(i,j).EQ.regMskVal ) THEN
./pkg/diagnostics/diagstats_calc.F 216 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 218 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 228 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 230 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 242 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 243 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F 244 DIAGSTATS_CALC 
     &                     .AND. regMask(i,j).EQ.regMskVal ) THEN
./pkg/diagnostics/diagstats_calc.F 246 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 248 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 258 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 260 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)*frcArr(i,j)
./pkg/diagnostics/diagstats_calc.F 272 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 273 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F 274 DIAGSTATS_CALC 
     &                     .AND. inpArr(i,j).NE.specialVal
./pkg/diagnostics/diagstats_calc.F 275 DIAGSTATS_CALC 
     &                     .AND. regMask(i,j).EQ.regMskVal ) THEN
./pkg/diagnostics/diagstats_calc.F 277 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 279 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 289 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 291 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 303 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 304 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F 305 DIAGSTATS_CALC 
     &                     .AND. regMask(i,j).EQ.regMskVal ) THEN
./pkg/diagnostics/diagstats_calc.F 307 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 309 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 319 DIAGSTATS_CALC 
              tmpVol = arrDr*arrhFac(i,j)*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 321 DIAGSTATS_CALC 
              tmpVol = arrDr*arrArea(i,j)
./pkg/diagnostics/diagstats_calc.F 76 DIAGSTATS_CALC 
      INTEGER i, j, n
./pkg/diagnostics/diagstats_calc.F 93 DIAGSTATS_CALC 
        DO i = 1,iRun
./pkg/diagnostics/diagstats_calc.F 94 DIAGSTATS_CALC 
          IF ( arrMask(i,j).NE.0. .AND. frcArr(i,j).NE.0.
./pkg/diagnostics/diagstats_calc.F 95 DIAGSTATS_CALC 
     &                     .AND. inpArr(i,j).NE.specialVal ) THEN
./pkg/diagnostics/diagstats_calc.F 97 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)*inpArr(i,j)
./pkg/diagnostics/diagstats_calc.F 99 DIAGSTATS_CALC 
              tmpFld = tmpFac*inpArr(i,j)
./pkg/diagnostics/diagstats_clear.F 70 DIAGSTATS_CLRDIAG 
      INTEGER i,j,k
./pkg/diagnostics/diagstats_clear.F 80 DIAGSTATS_CLRDIAG 
          DO i = 0,nStats
./pkg/diagnostics/diagstats_clear.F 81 DIAGSTATS_CLRDIAG 
           qSdiag(i,j,k,bi,bj) = 0.
./pkg/diagnostics/diagstats_fill.F 370 DIAGSTATS_TO_RL 
      INTEGER i, j, kFr
./pkg/diagnostics/diagstats_fill.F 374 DIAGSTATS_TO_RL 
         DO i=1,iRun
./pkg/diagnostics/diagstats_fill.F 375 DIAGSTATS_TO_RL 
           outFldRL(i,j) = inpFldRL(i,j,kIn,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F 380 DIAGSTATS_TO_RL 
         DO i=1,iRun
./pkg/diagnostics/diagstats_fill.F 381 DIAGSTATS_TO_RL 
           outFldRL(i,j) = inpFldRS(i,j,kIn,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F 390 DIAGSTATS_TO_RL 
         DO i=1,iRun
./pkg/diagnostics/diagstats_fill.F 391 DIAGSTATS_TO_RL 
           outFrcRL(i,j) = inpFrcRL(i,j,kFr,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F 396 DIAGSTATS_TO_RL 
         DO i=1,iRun
./pkg/diagnostics/diagstats_fill.F 397 DIAGSTATS_TO_RL 
           outFrcRL(i,j) = inpFrcRS(i,j,kFr,biIn,bjIn)
./pkg/diagnostics/diagstats_global.F 113 DIAGSTATS_GLOBAL 
           DO i=0,iv
./pkg/diagnostics/diagstats_global.F 114 DIAGSTATS_GLOBAL 
            _GLOBAL_SUM_RL(qtmp1(i,k),myThid)
./pkg/diagnostics/diagstats_global.F 131 DIAGSTATS_GLOBAL 
           DO i=0,1
./pkg/diagnostics/diagstats_global.F 132 DIAGSTATS_GLOBAL 
            _GLOBAL_SUM_RL(qtmp2(i,k),myThid)
./pkg/diagnostics/diagstats_global.F 141 DIAGSTATS_GLOBAL 
             DO i=0,nStats
./pkg/diagnostics/diagstats_global.F 142 DIAGSTATS_GLOBAL 
              qtmp1(i,0) = qtmp1(i,k)
./pkg/diagnostics/diagstats_global.F 145 DIAGSTATS_GLOBAL 
             DO i=0,iv
./pkg/diagnostics/diagstats_global.F 146 DIAGSTATS_GLOBAL 
              qtmp1(i,0) = qtmp1(i,0) + qtmp1(i,k)
./pkg/diagnostics/diagstats_global.F 157 DIAGSTATS_GLOBAL 
             DO i=0,1
./pkg/diagnostics/diagstats_global.F 158 DIAGSTATS_GLOBAL 
              qtmp2(i,0) = qtmp2(i,k)
./pkg/diagnostics/diagstats_global.F 161 DIAGSTATS_GLOBAL 
             DO i=0,1
./pkg/diagnostics/diagstats_global.F 162 DIAGSTATS_GLOBAL 
              qtmp2(i,0) = qtmp2(i,0) + qtmp2(i,k)
./pkg/diagnostics/diagstats_global.F 174 DIAGSTATS_GLOBAL 
             DO i=1,nStats
./pkg/diagnostics/diagstats_global.F 175 DIAGSTATS_GLOBAL 
              qtmp1(i,k) = undef
./pkg/diagnostics/diagstats_global.F 178 DIAGSTATS_GLOBAL 
             DO i=1,iv
./pkg/diagnostics/diagstats_global.F 179 DIAGSTATS_GLOBAL 
              qtmp1(i,k) = qtmp1(i,k) / qtmp1(0,k)
./pkg/diagnostics/diagstats_global.F 194 DIAGSTATS_GLOBAL 
             DO i=1,nStats
./pkg/diagnostics/diagstats_global.F 195 DIAGSTATS_GLOBAL 
              qtmp1(i,k) = undef
./pkg/diagnostics/diagstats_global.F 198 DIAGSTATS_GLOBAL 
             DO i=1,iv
./pkg/diagnostics/diagstats_global.F 199 DIAGSTATS_GLOBAL 
              qtmp1(i,k) = undef
./pkg/diagnostics/diagstats_global.F 202 DIAGSTATS_GLOBAL 
             DO i=1,iv
./pkg/diagnostics/diagstats_global.F 203 DIAGSTATS_GLOBAL 
              qtmp1(i,k) = qtmp1(i,k) / qtmp2(1,kCnt)
./pkg/diagnostics/diagstats_global.F 50 DIAGSTATS_GLOBAL 
      INTEGER i, k, kd, kCnt, klev, kMlev
./pkg/diagnostics/diagstats_global.F 57 DIAGSTATS_GLOBAL 
        DO i=0,nStats
./pkg/diagnostics/diagstats_global.F 58 DIAGSTATS_GLOBAL 
          qtmp1(i,k) = 0.
./pkg/diagnostics/diagstats_global.F 59 DIAGSTATS_GLOBAL 
          qtmp2(i,k) = 0.
./pkg/diagnostics/diagstats_global.F 77 DIAGSTATS_GLOBAL 
              DO i=0,nStats
./pkg/diagnostics/diagstats_global.F 78 DIAGSTATS_GLOBAL 
                qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_global.F 81 DIAGSTATS_GLOBAL 
              DO i=0,iv
./pkg/diagnostics/diagstats_global.F 82 DIAGSTATS_GLOBAL 
                qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_global.F 94 DIAGSTATS_GLOBAL 
              DO i=0,1
./pkg/diagnostics/diagstats_global.F 95 DIAGSTATS_GLOBAL 
                qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_global.F 98 DIAGSTATS_GLOBAL 
              DO i=0,1
./pkg/diagnostics/diagstats_global.F 99 DIAGSTATS_GLOBAL 
                qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_local.F 232 DIAGSTATS_LOCAL 
            DO i=0,iv
./pkg/diagnostics/diagstats_local.F 233 DIAGSTATS_LOCAL 
              statFld(i,n) = statFld(i,n) + statLoc(i)
./pkg/diagnostics/diagstats_local.F 84 DIAGSTATS_LOCAL 
      INTEGER i, n, kFr, kRegMsk
./pkg/diagnostics/diagstats_mnc_out.F 143 DIAGSTATS_MNC_OUT 
        DO i = 1,3
./pkg/diagnostics/diagstats_mnc_out.F 145 DIAGSTATS_MNC_OUT 
          WRITE(dn(1),'(3a,i6.6)') 'Z',ctmp(i:i),'d',nlevels(listId)
./pkg/diagnostics/diagstats_mnc_out.F 157 DIAGSTATS_MNC_OUT 
          IF (i .EQ. 1) THEN
./pkg/diagnostics/diagstats_mnc_out.F 164 DIAGSTATS_MNC_OUT 
          ELSEIF (i .EQ. 2) THEN
./pkg/diagnostics/diagstats_mnc_out.F 171 DIAGSTATS_MNC_OUT 
          ELSEIF (i .EQ. 3) THEN
./pkg/diagnostics/diagstats_mnc_out.F 240 DIAGSTATS_MNC_OUT 
          DO i = 1,MAX_LEN_FNAM
./pkg/diagnostics/diagstats_mnc_out.F 241 DIAGSTATS_MNC_OUT 
            tnam(i:i) = ' '
./pkg/diagnostics/diagstats_mnc_out.F 55 DIAGSTATS_MNC_OUT 
      INTEGER i, j, k
./pkg/diagnostics/diagstats_mnc_out.F 95 DIAGSTATS_MNC_OUT 
        DO i = 1,MAX_LEN_FNAM
./pkg/diagnostics/diagstats_mnc_out.F 96 DIAGSTATS_MNC_OUT 
          diag_mnc_bn(i:i) = ' '
./pkg/diagnostics/diagstats_mnc_out.F 98 DIAGSTATS_MNC_OUT 
        DO i = 1,NLEN
./pkg/diagnostics/diagstats_mnc_out.F 99 DIAGSTATS_MNC_OUT 
          dn_blnk(i:i) = ' '
./pkg/diagnostics/diagstats_others_calc.F 112 DIAGSTATS_LM_CALC 
         DO i=1-OLx,sNx+OLx
./pkg/diagnostics/diagstats_others_calc.F 113 DIAGSTATS_LM_CALC 
          tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj)
./pkg/diagnostics/diagstats_others_calc.F 85 DIAGSTATS_LM_CALC 
      INTEGER i,j
./pkg/diagnostics/diagstats_set_regions.F 107 DIAGSTATS_SET_REGIONS 
           DO i=1-Olx,sNx+Olx
./pkg/diagnostics/diagstats_set_regions.F 108 DIAGSTATS_SET_REGIONS 
            diagSt_regMask(i,j,k,bi,bj) = tmpVar(i,j,bi,bj)
./pkg/diagnostics/diagstats_set_regions.F 197 DIAGSTATS_SET_REGIONS 
          DO i=1-Olx,1-Olx
./pkg/diagnostics/diagstats_set_regions.F 198 DIAGSTATS_SET_REGIONS 
           diagSt_regMask(i,j,1,bi,bj) = 0.
./pkg/diagnostics/diagstats_set_regions.F 38 DIAGSTATS_SET_REGIONS 
      INTEGER i, j
./pkg/diagnostics/diagstats_set_regions.F 59 DIAGSTATS_SET_REGIONS 
          DO i=1-Olx,sNx+Olx
./pkg/diagnostics/diagstats_set_regions.F 60 DIAGSTATS_SET_REGIONS 
           diagSt_regMask(i,j,k,bi,bj) = 0.
./lsopt/lsline.F 160 LSLINE 
         do i = 1, nn
./lsopt/lsline.F 161 LSLINE 
            xx(i) = xdiff(i)
./lsopt/lsline.F 238 LSLINE 
         do i = 1, nn
./lsopt/lsline.F 239 LSLINE 
            z = xx(i) + tact*dd(i)
./lsopt/lsline.F 240 LSLINE 
            if ((z.ne.xx(i)) .and. (z.ne.xdiff(i))) go to 950
./lsopt/lsline.F 255 LSLINE 
            do i = 1, nn
./lsopt/lsline.F 256 LSLINE 
               xx(i) = xx(i) + tg*dd(i)
./lsopt/lsline.F 267 LSLINE 
         do i = 1, nn
./lsopt/lsline.F 268 LSLINE 
            xdiff(i) = xx(i) + tact*dd(i)
./lsopt/lsline.F 281 LSLINE 
      do i = 1, nn
./lsopt/lsline.F 282 LSLINE 
         xx(i) = xx(i) + tg*dd(i)
./lsopt/lsline.F 80 LSLINE 
      integer i, indic
./pkg/dic/alk_surfforcing.F 49 ALK_SURFFORCING 
      INTEGER i,j
./pkg/dic/alk_surfforcing.F 53 ALK_SURFFORCING 
          DO i=imin,imax
./pkg/dic/alk_surfforcing.F 54 ALK_SURFFORCING 
            IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN
./pkg/dic/alk_surfforcing.F 61 ALK_SURFFORCING 
              GALK(i,j)=gsm_ALK*surfaceForcingS(i,j,bi,bj)*
./pkg/dic/alk_surfforcing.F 68 ALK_SURFFORCING 
              GALK(i,j)=0. _d 0
./pkg/dic/bio_export.F 104 BIO_EXPORT 
        DO i=imin,imax
./pkg/dic/bio_export.F 105 BIO_EXPORT 
         atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0)
./pkg/dic/bio_export.F 107 BIO_EXPORT 
     &                         *hFacC(i,j,k-1,bi,bj)*.5 _d 0)
./pkg/dic/bio_export.F 108 BIO_EXPORT 
         lit(i,j)=lit(i,j)*exp(-atten)
./pkg/dic/bio_export.F 112 BIO_EXPORT 
         IF (lit(i,j).LT.0. _d 0.OR.lit(i,j).GT.350. _d 0) THEN
./pkg/dic/bio_export.F 113 BIO_EXPORT 
          print*,'QQ lit',i,j,lit(i,j)
./pkg/dic/bio_export.F 118 BIO_EXPORT 
         tmppo4=max(0. _d 0, PTR_PO4(i,j,k))
./pkg/dic/bio_export.F 119 BIO_EXPORT 
         lit(i,j)=max(0. _d 0,lit(i,j))
./pkg/dic/bio_export.F 121 BIO_EXPORT 
         tmppo4=PTR_PO4(i,j,k)
./pkg/dic/bio_export.F 126 BIO_EXPORT 
         tmpfe=max(0. _d 0,PTR_FE(i,j,k))
./pkg/dic/bio_export.F 128 BIO_EXPORT 
         tmpfe=PTR_FE(i,j,k)
./pkg/dic/bio_export.F 147 BIO_EXPORT 
         bioac(i,j,k)=alpha(i,j,bi,bj)*
./pkg/dic/bio_export.F 148 BIO_EXPORT 
     &        lit(i,j)/(lit(i,j)+lit0)*maskC(i,j,k,bi,bj)*
./pkg/dic/bio_export.F 84 BIO_EXPORT 
       DO i=imin,imax
./pkg/dic/bio_export.F 86 BIO_EXPORT 
        lit(i,j)=PAR(i,j,bi,bj)
./pkg/dic/bio_export.F 88 BIO_EXPORT 
        lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/dic/bio_export.F 90 BIO_EXPORT 
        lit(i,j)=sfac(j)
./pkg/dic/bio_export.F 96 BIO_EXPORT 
         lit(i,j)=lit(i,j)*(1. _d 0 - FIce(i,j,bi,bj))
./pkg/dic/calcite_saturation.F 109 CALCITE_SATURATION 
     I          theta(i,j,k,bi,bj),salt(i,j,k,bi,bj),
./pkg/dic/calcite_saturation.F 112 CALCITE_SATURATION 
     I          ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/calcite_saturation.F 113 CALCITE_SATURATION 
     I          ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj),
./pkg/dic/calcite_saturation.F 114 CALCITE_SATURATION 
     I          aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
./pkg/dic/calcite_saturation.F 115 CALCITE_SATURATION 
     I          aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj),
./pkg/dic/calcite_saturation.F 116 CALCITE_SATURATION 
     I          bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/calcite_saturation.F 118 CALCITE_SATURATION 
     I          i,j,k,bi,bj,myIter,myThid )
./pkg/dic/calcite_saturation.F 127 CALCITE_SATURATION 
             omegaC(i,j,k,bi,bj) = calcium * carbonate /
./pkg/dic/calcite_saturation.F 128 CALCITE_SATURATION 
     &                          Ksp_TP_Calc(i,j,bi,bj)
./pkg/dic/calcite_saturation.F 155 CALCITE_SATURATION 
             omegaC(i,j,k,bi,bj) = 0. _d 0
./pkg/dic/calcite_saturation.F 82 CALCITE_SATURATION 
         DO i=imin,imax
./pkg/dic/calcite_saturation.F 84 CALCITE_SATURATION 
           if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then
./pkg/dic/calcite_saturation.F 86 CALCITE_SATURATION 
             calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0
./pkg/dic/calcite_saturation.F 90 CALCITE_SATURATION 
             po4local = PTR_PO4(i,j,k)
./pkg/dic/calcite_saturation.F 91 CALCITE_SATURATION 
             diclocal = PTR_DIC(i,j,k)
./pkg/dic/calcite_saturation.F 92 CALCITE_SATURATION 
             alklocal = PTR_ALK(i,j,k)
./pkg/dic/car_flux.F 103 CAR_FLUX 
         DO i=imin,imax
./pkg/dic/car_flux.F 104 CAR_FLUX 
          IF ( caexport(i,j) .NE. 0. _d 0 ) THEN
./pkg/dic/car_flux.F 107 CAR_FLUX 
           depth_l  = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 110 CAR_FLUX 
           flux_l   = caexport(i,j)*reminFac
./pkg/dic/car_flux.F 111 CAR_FLUX 
     &          *maskC(i,j,kop1,bi,bj)
./pkg/dic/car_flux.F 113 CAR_FLUX 
           cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/car_flux.F 114 CAR_FLUX 
     &          *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 116 CAR_FLUX 
           flux_u(i,j)  = flux_l
./pkg/dic/car_flux.F 128 CAR_FLUX 
        DO i=imin,imax
./pkg/dic/car_flux.F 129 CAR_FLUX 
         cflux(i,j,ko)=cflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/car_flux.F 130 CAR_FLUX 
     &        *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 64 CAR_FLUX 
        DO i=imin,imax
./pkg/dic/car_flux.F 65 CAR_FLUX 
         caexport(i,j) = 0. _d 0
./pkg/dic/car_flux.F 66 CAR_FLUX 
         IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN
./pkg/dic/car_flux.F 70 CAR_FLUX 
           cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k)
./pkg/dic/car_flux.F 71 CAR_FLUX 
          ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN
./pkg/dic/car_flux.F 72 CAR_FLUX 
           cflux(i,j,k)=cflux(i,j,k) + CAR_S(i,j,k)
./pkg/dic/car_flux.F 75 CAR_FLUX 
           caexport(i,j) = CAR_S(i,j,k)*drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/dic/car_flux.F 85 CAR_FLUX 
        DO i=imin,imax
./pkg/dic/car_flux.F 86 CAR_FLUX 
         flux_u(i,j)  = caexport(i,j)
./lsopt/lsopt_top.F 268 LSOPT_TOP 
         do i = 1, nn
./lsopt/lsopt_top.F 269 LSOPT_TOP 
            xdiff(i) = 1.
./lsopt/lsopt_top.F 405 LSOPT_TOP 
      do i = 1, nn
./lsopt/lsopt_top.F 406 LSOPT_TOP 
         gold(i) = gg(i)
./lsopt/lsopt_top.F 490 LSOPT_TOP 
         do i = 1, nn
./lsopt/lsopt_top.F 491 LSOPT_TOP 
            xdiff(i) = tact*dd(i)
./lsopt/lsopt_top.F 497 LSOPT_TOP 
         do i = 1, nn
./lsopt/lsopt_top.F 498 LSOPT_TOP 
            gold(i) = gg(i)-gold(i)
./lsopt/lsopt_top.F 78 LSOPT_TOP 
      integer i, iiter, ifunc
./pkg/dic/car_flux_omega_top.F 103 CAR_FLUX_OMEGA_TOP 
              if (omegaC(i,j,ko,bi,bj) .gt. 1.0) then
./pkg/dic/car_flux_omega_top.F 107 CAR_FLUX_OMEGA_TOP 
                if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0) then
./pkg/dic/car_flux_omega_top.F 110 CAR_FLUX_OMEGA_TOP 
                     cflux(i,j,1)=cflux(i,j,1)+
./pkg/dic/car_flux_omega_top.F 111 CAR_FLUX_OMEGA_TOP 
     &                  ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) )
./pkg/dic/car_flux_omega_top.F 121 CAR_FLUX_OMEGA_TOP 
                 KierRate = 7.177* ((1.0-omegaC(i,j,ko,bi,bj))**4.54)
./pkg/dic/car_flux_omega_top.F 132 CAR_FLUX_OMEGA_TOP 
     &                       hFacC(i,j,ko,bi,bj)/WsinkPIC
./pkg/dic/car_flux_omega_top.F 143 CAR_FLUX_OMEGA_TOP 
                 if (ko.eq.Nr.or.hFacC(i,j,ko+1,bi,bj).eq.0.d0)
./pkg/dic/car_flux_omega_top.F 148 CAR_FLUX_OMEGA_TOP 
             cflux(i,j,ko)=cflux(i,j,ko) +
./pkg/dic/car_flux_omega_top.F 149 CAR_FLUX_OMEGA_TOP 
     &          ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) )
./pkg/dic/car_flux_omega_top.F 159 CAR_FLUX_OMEGA_TOP 
                if (iflx.eq.1.and.omegaC(i,j,k,bi,bj) .gt. 1.d0) then
./pkg/dic/car_flux_omega_top.F 161 CAR_FLUX_OMEGA_TOP 
                   cflux(i,j,1)=cflux(i,j,1)
./pkg/dic/car_flux_omega_top.F 162 CAR_FLUX_OMEGA_TOP 
     &                  +bioac(i,j,k)*(1.0-DOPfraction)*
./pkg/dic/car_flux_omega_top.F 163 CAR_FLUX_OMEGA_TOP 
     &                    R_CP*rain_ratio(i,j,bi,bj)
./pkg/dic/car_flux_omega_top.F 164 CAR_FLUX_OMEGA_TOP 
     &                   *drF(k)*hFacC(i,j,k,bi,bj)/
./pkg/dic/car_flux_omega_top.F 165 CAR_FLUX_OMEGA_TOP 
     &                    (drF(1)*hFacC(i,j,1,bi,bj) )
./pkg/dic/car_flux_omega_top.F 168 CAR_FLUX_OMEGA_TOP 
                  cflux(i,j,k)=cflux(i,j,k)
./pkg/dic/car_flux_omega_top.F 169 CAR_FLUX_OMEGA_TOP 
     &                  +bioac(i,j,k)*(1.0-DOPfraction)*
./pkg/dic/car_flux_omega_top.F 170 CAR_FLUX_OMEGA_TOP 
     &                    R_CP*rain_ratio(i,j,bi,bj)
./pkg/dic/car_flux_omega_top.F 81 CAR_FLUX_OMEGA_TOP 
        DO i=imin,imax
./pkg/dic/car_flux_omega_top.F 84 CAR_FLUX_OMEGA_TOP 
            cflux(i,j,k)=0.d0
./pkg/dic/car_flux_omega_top.F 87 CAR_FLUX_OMEGA_TOP 
          if (hFacC(i,j,k,bi,bj).gt.0.d0) then
./pkg/dic/car_flux_omega_top.F 88 CAR_FLUX_OMEGA_TOP 
           caexport(i,j)= R_CP*rain_ratio(i,j,bi,bj)*bioac(i,j,k)*
./pkg/dic/car_flux_omega_top.F 89 CAR_FLUX_OMEGA_TOP 
     &           (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/car_flux_omega_top.F 93 CAR_FLUX_OMEGA_TOP 
            if (hFacC(i,j,ko,bi,bj).gt.0.d0) then
./pkg/dic/car_flux_omega_top.F 95 CAR_FLUX_OMEGA_TOP 
                flux_u = caexport(i,j)
./pkg/dic/carbon_chem.F 1000 CARBON_COEFFS_PRESSURE_DEP 
           ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 +
./pkg/dic/carbon_chem.F 1008 CARBON_COEFFS_PRESSURE_DEP 
           ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk -
./pkg/dic/carbon_chem.F 1011 CARBON_COEFFS_PRESSURE_DEP 
           ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 -
./pkg/dic/carbon_chem.F 1017 CARBON_COEFFS_PRESSURE_DEP 
           ak1(i,j,bi,bj) = ak1(i,j,bi,bj)*
./pkg/dic/carbon_chem.F 1024 CARBON_COEFFS_PRESSURE_DEP 
           ak2(i,j,bi,bj) = ak2(i,j,bi,bj)*
./pkg/dic/carbon_chem.F 1029 CARBON_COEFFS_PRESSURE_DEP 
           akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s +
./pkg/dic/carbon_chem.F 1043 CARBON_COEFFS_PRESSURE_DEP 
           akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor)
./pkg/dic/carbon_chem.F 1047 CARBON_COEFFS_PRESSURE_DEP 
           ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 -
./pkg/dic/carbon_chem.F 1054 CARBON_COEFFS_PRESSURE_DEP 
           ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 -
./pkg/dic/carbon_chem.F 1061 CARBON_COEFFS_PRESSURE_DEP 
           ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 +
./pkg/dic/carbon_chem.F 1067 CARBON_COEFFS_PRESSURE_DEP 
           aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 -
./pkg/dic/carbon_chem.F 1076 CARBON_COEFFS_PRESSURE_DEP 
           akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 -
./pkg/dic/carbon_chem.F 1083 CARBON_COEFFS_PRESSURE_DEP 
           aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 -
./pkg/dic/carbon_chem.F 1092 CARBON_COEFFS_PRESSURE_DEP 
           akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis +
./pkg/dic/carbon_chem.F 1094 CARBON_COEFFS_PRESSURE_DEP 
     &          log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj)))
./pkg/dic/carbon_chem.F 1098 CARBON_COEFFS_PRESSURE_DEP 
           bt(i,j,bi,bj) = 0.000232 * scl/10.811
./pkg/dic/carbon_chem.F 1100 CARBON_COEFFS_PRESSURE_DEP 
           st(i,j,bi,bj) = 0.14 * scl/96.062
./pkg/dic/carbon_chem.F 1102 CARBON_COEFFS_PRESSURE_DEP 
           ft(i,j,bi,bj) = 0.000067 * scl/18.9984
./pkg/dic/carbon_chem.F 1145 CARBON_COEFFS_PRESSURE_DEP 
           Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc*10**(xvalue)
./pkg/dic/carbon_chem.F 1152 CARBON_COEFFS_PRESSURE_DEP 
            ff(i,j,bi,bj)=0.d0
./pkg/dic/carbon_chem.F 1153 CARBON_COEFFS_PRESSURE_DEP 
            ak0(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1154 CARBON_COEFFS_PRESSURE_DEP 
            ak1(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1155 CARBON_COEFFS_PRESSURE_DEP 
            ak2(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1156 CARBON_COEFFS_PRESSURE_DEP 
            akb(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1157 CARBON_COEFFS_PRESSURE_DEP 
            ak1p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1158 CARBON_COEFFS_PRESSURE_DEP 
            ak2p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1159 CARBON_COEFFS_PRESSURE_DEP 
            ak3p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1160 CARBON_COEFFS_PRESSURE_DEP 
            aksi(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1161 CARBON_COEFFS_PRESSURE_DEP 
            akw(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1162 CARBON_COEFFS_PRESSURE_DEP 
            aks(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1163 CARBON_COEFFS_PRESSURE_DEP 
            akf(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1164 CARBON_COEFFS_PRESSURE_DEP 
            bt(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1165 CARBON_COEFFS_PRESSURE_DEP 
            st(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1166 CARBON_COEFFS_PRESSURE_DEP 
            ft(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1167 CARBON_COEFFS_PRESSURE_DEP 
            Ksp_TP_Calc(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 29 CALC_PCO2 
     I                       i,j,k,bi,bj,myIter,myThid )
./pkg/dic/carbon_chem.F 336 CALC_PCO2_APPROX_CO3 
     I                       i,j,k,bi,bj,myIter,myThid )
./pkg/dic/carbon_chem.F 378 CALC_PCO2_APPROX_CO3 
        INTEGER i,j,k,bi,bj,myIter
./pkg/dic/carbon_chem.F 486 CALC_PCO2_APPROX 
     I                       i,j,k,bi,bj,myIter,myThid )
./pkg/dic/carbon_chem.F 525 CALC_PCO2_APPROX 
        INTEGER i,j,k,bi,bj,myIter
./pkg/dic/carbon_chem.F 64 CALC_PCO2 
        INTEGER i,j,k,bi,bj,myIter
./pkg/dic/carbon_chem.F 692 CARBON_COEFFS 
        INTEGER i
./pkg/dic/carbon_chem.F 706 CARBON_COEFFS 
        do i=imin,imax
./pkg/dic/carbon_chem.F 708 CARBON_COEFFS 
          if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then
./pkg/dic/carbon_chem.F 709 CARBON_COEFFS 
           t = ttemp(i,j,1,bi,bj)
./pkg/dic/carbon_chem.F 710 CARBON_COEFFS 
           s = stemp(i,j,1,bi,bj)
./pkg/dic/carbon_chem.F 727 CARBON_COEFFS 
           ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100  +
./pkg/dic/carbon_chem.F 733 CARBON_COEFFS 
           ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 +
./pkg/dic/carbon_chem.F 741 CARBON_COEFFS 
           ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk -
./pkg/dic/carbon_chem.F 744 CARBON_COEFFS 
           ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0-
./pkg/dic/carbon_chem.F 749 CARBON_COEFFS 
           akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts -
./pkg/dic/carbon_chem.F 757 CARBON_COEFFS 
           ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 -
./pkg/dic/carbon_chem.F 764 CARBON_COEFFS 
           ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 -
./pkg/dic/carbon_chem.F 771 CARBON_COEFFS 
           ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 +
./pkg/dic/carbon_chem.F 777 CARBON_COEFFS 
           aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 -
./pkg/dic/carbon_chem.F 786 CARBON_COEFFS 
           akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 -
./pkg/dic/carbon_chem.F 793 CARBON_COEFFS 
           aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 -
./pkg/dic/carbon_chem.F 802 CARBON_COEFFS 
           akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 +
./pkg/dic/carbon_chem.F 804 CARBON_COEFFS 
     &   log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj)))
./pkg/dic/carbon_chem.F 808 CARBON_COEFFS 
           bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0
./pkg/dic/carbon_chem.F 810 CARBON_COEFFS 
           st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0
./pkg/dic/carbon_chem.F 812 CARBON_COEFFS 
           ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0
./pkg/dic/carbon_chem.F 815 CARBON_COEFFS 
            ff(i,j,bi,bj)=0. _d 0
./pkg/dic/carbon_chem.F 816 CARBON_COEFFS 
            ak0(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 817 CARBON_COEFFS 
            ak1(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 818 CARBON_COEFFS 
            ak2(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 819 CARBON_COEFFS 
            akb(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 820 CARBON_COEFFS 
            ak1p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 821 CARBON_COEFFS 
            ak2p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 822 CARBON_COEFFS 
            ak3p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 823 CARBON_COEFFS 
            aksi(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 824 CARBON_COEFFS 
            akw(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 825 CARBON_COEFFS 
            aks(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 826 CARBON_COEFFS 
            akf(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 827 CARBON_COEFFS 
            bt(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 828 CARBON_COEFFS 
            st(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 829 CARBON_COEFFS 
            ft(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 921 CARBON_COEFFS_PRESSURE_DEP 
        INTEGER i
./pkg/dic/carbon_chem.F 972 CARBON_COEFFS_PRESSURE_DEP 
        do i=imin,imax
./pkg/dic/carbon_chem.F 974 CARBON_COEFFS_PRESSURE_DEP 
          if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then
./pkg/dic/carbon_chem.F 975 CARBON_COEFFS_PRESSURE_DEP 
           t = ttemp(i,j,Klevel,bi,bj)
./pkg/dic/carbon_chem.F 976 CARBON_COEFFS_PRESSURE_DEP 
           s = stemp(i,j,Klevel,bi,bj)
./pkg/dic/carbon_chem.F 994 CARBON_COEFFS_PRESSURE_DEP 
           ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100  +
./pkg/dic/dic_atmos.F 117 DIC_ATMOS 
             DO i=1-OLx,sNx+OLx
./pkg/dic/dic_atmos.F 118 DIC_ATMOS 
               AtmospCO2(i,j,bi,bj)=tmp
./pkg/dic/dic_atmos.F 141 DIC_ATMOS 
           DO i=1,sNx
./pkg/dic/dic_atmos.F 143 DIC_ATMOS 
     &                        + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/dic/dic_atmos.F 144 DIC_ATMOS 
     &                         *maskC(i,j,1,bi,bj)*dTtracerLev(1)
./pkg/dic/dic_atmos.F 150 DIC_ATMOS 
           DO i=1,sNx
./pkg/dic/dic_atmos.F 152 DIC_ATMOS 
     &            + ( pTracer(i,j,k,bi,bj,1)
./pkg/dic/dic_atmos.F 154 DIC_ATMOS 
     &               +R_cp*pTracer(i,j,k,bi,bj,4)
./pkg/dic/dic_atmos.F 156 DIC_ATMOS 
     &              ) * rA(i,j,bi,bj)
./pkg/dic/dic_atmos.F 157 DIC_ATMOS 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/dic_atmos.F 249 DIC_ATMOS 
          DO i=1-OLx,sNx+OLx
./pkg/dic/dic_atmos.F 250 DIC_ATMOS 
            AtmospCO2(i,j,bi,bj) = atpco2
./pkg/dic/dic_atmos.F 57 DIC_ATMOS 
      INTEGER bi, bj, i,j,k
./pkg/dic/dic_atmos.F 88 DIC_ATMOS 
           DO i=1-OLx,sNx+OLx
./pkg/dic/dic_atmos.F 89 DIC_ATMOS 
             AtmospCO2(i,j,bi,bj)=dic_pCO2
./pkg/dic/dic_aver.F 37 DIC_AVER 
      INTEGER i, j, bi, bj, k, it
./pkg/dic/dic_aver.F 49 DIC_AVER 
          DO i=1-OLx,sNx+OLx
./pkg/dic/dic_aver.F 50 DIC_AVER 
            po4ann(i,j,k,bi,bj)=po4ann(i,j,k,bi,bj)+
./pkg/dic/dic_aver.F 51 DIC_AVER 
     &               PTRACER(i,j,k,bi,bj,3)*deltaTclock
./pkg/dic/dic_aver.F 52 DIC_AVER 
            o2ann(i,j,k,bi,bj)=o2ann(i,j,k,bi,bj)+
./pkg/dic/dic_aver.F 53 DIC_AVER 
     &               PTRACER(i,j,k,bi,bj,5)*deltaTclock
./pkg/dic/dic_aver.F 72 DIC_AVER 
          DO i=1-OLx,sNx+OLx
./pkg/dic/dic_aver.F 73 DIC_AVER 
            po4lev1(i,j,it,bi,bj)=po4lev1(i,j,it,bi,bj)+
./pkg/dic/dic_aver.F 74 DIC_AVER 
     &               PTRACER(i,j,1,bi,bj,3)*deltaTclock
./pkg/dic/dic_aver.F 75 DIC_AVER 
            po4lev2(i,j,it,bi,bj)=po4lev2(i,j,it,bi,bj)+
./pkg/dic/dic_aver.F 76 DIC_AVER 
     &               PTRACER(i,j,2,bi,bj,3)*deltaTclock
./pkg/dic/dic_aver.F 77 DIC_AVER 
            po4lev3(i,j,it,bi,bj)=po4lev3(i,j,it,bi,bj)+
./pkg/dic/dic_aver.F 78 DIC_AVER 
     &               PTRACER(i,j,3,bi,bj,3)*deltaTclock
./pkg/dic/dic_aver.F 81 DIC_AVER 
            o2lev1(i,j,it,bi,bj)=o2lev1(i,j,it,bi,bj)+
./pkg/dic/dic_aver.F 82 DIC_AVER 
     &               PTRACER(i,j,1,bi,bj,5)*deltaTclock
./pkg/dic/dic_aver.F 83 DIC_AVER 
            o2lev2(i,j,it,bi,bj)=o2lev2(i,j,it,bi,bj)+
./pkg/dic/dic_aver.F 84 DIC_AVER 
     &               PTRACER(i,j,2,bi,bj,5)*deltaTclock
./pkg/dic/dic_aver.F 85 DIC_AVER 
            o2lev3(i,j,it,bi,bj)=o2lev3(i,j,it,bi,bj)+
./pkg/dic/dic_aver.F 86 DIC_AVER 
     &               PTRACER(i,j,3,bi,bj,5)*deltaTclock
./pkg/dic/dic_aver_init.F 148 DIC_AVER_INIT 
         DO i=1,sNx
./pkg/dic/dic_aver_init.F 151 DIC_AVER_INIT 
     &                rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_aver_init.F 152 DIC_AVER_INIT 
            po4var(k)=po4var(k)+(po4obs(i,j,k,bi,bj)-po4av(k))**2
./pkg/dic/dic_aver_init.F 153 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_aver_init.F 154 DIC_AVER_INIT 
            o2var(k)=o2var(k)+(o2obs(i,j,k,bi,bj)-o2av(k))**2
./pkg/dic/dic_aver_init.F 155 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj)
./pkg/dic/dic_aver_init.F 160 DIC_AVER_INIT 
     &                (po4obsl1(i,j,it,bi,bj)-po4avm(it,1))**2
./pkg/dic/dic_aver_init.F 161 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj)
./pkg/dic/dic_aver_init.F 163 DIC_AVER_INIT 
     &                (po4obsl2(i,j,it,bi,bj)-po4avm(it,2))**2
./pkg/dic/dic_aver_init.F 164 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj)
./pkg/dic/dic_aver_init.F 166 DIC_AVER_INIT 
     &                (po4obsl3(i,j,it,bi,bj)-po4avm(it,3))**2
./pkg/dic/dic_aver_init.F 167 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj)
./pkg/dic/dic_aver_init.F 172 DIC_AVER_INIT 
     &                (o2obsl1(i,j,it,bi,bj)-o2avm(it,1))**2
./pkg/dic/dic_aver_init.F 173 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj)
./pkg/dic/dic_aver_init.F 175 DIC_AVER_INIT 
     &                (o2obsl2(i,j,it,bi,bj)-o2avm(it,2))**2
./pkg/dic/dic_aver_init.F 176 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj)
./pkg/dic/dic_aver_init.F 178 DIC_AVER_INIT 
     &                (o2obsl3(i,j,it,bi,bj)-o2avm(it,3))**2
./pkg/dic/dic_aver_init.F 179 DIC_AVER_INIT 
     &                *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj)
./pkg/dic/dic_aver_init.F 36 DIC_AVER_INIT 
      INTEGER i, j, bi, bj, k, it
./lsopt/lsupdxx.F 113 LSUPDXX 
      do i = 1, nn
./lsopt/lsupdxx.F 114 LSUPDXX 
         tmin = max( tmin, abs(dd(i)) )
./lsopt/lsupdxx.F 140 LSUPDXX 
      do i = 1, nn
./lsopt/lsupdxx.F 141 LSUPDXX 
         xdiff(i) = xx(i) + tact*dd(i)
./lsopt/lsupdxx.F 46 LSUPDXX 
      integer i
./lsopt/lsupdxx.F 70 LSUPDXX 
         do i = 1, nn
./lsopt/lsupdxx.F 71 LSUPDXX 
            dd(i)    = -gg(i)*preco
./lsopt/lsupdxx.F 85 LSUPDXX 
            do i = 1, nn
./lsopt/lsupdxx.F 86 LSUPDXX 
               dd(i) = -gg(i)
./pkg/dic/dic_biotic_forcing.F 102 DIC_BIOTIC_FORCING 
       INTEGER i,j,k
./pkg/dic/dic_biotic_forcing.F 110 DIC_BIOTIC_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/dic/dic_biotic_forcing.F 111 DIC_BIOTIC_FORCING 
           RDOP(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 112 DIC_BIOTIC_FORCING 
           GDIC(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 113 DIC_BIOTIC_FORCING 
           GALK(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 114 DIC_BIOTIC_FORCING 
           GPO4(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 115 DIC_BIOTIC_FORCING 
           GDOP(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 116 DIC_BIOTIC_FORCING 
           CAR(i,j,k)  =0. _d 0
./pkg/dic/dic_biotic_forcing.F 117 DIC_BIOTIC_FORCING 
           BIOac(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 118 DIC_BIOTIC_FORCING 
           pflux(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 119 DIC_BIOTIC_FORCING 
           exportflux(i,j,k)=0. _d 0
./pkg/dic/dic_biotic_forcing.F 120 DIC_BIOTIC_FORCING 
           cflux(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 121 DIC_BIOTIC_FORCING 
           CAR_S(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 123 DIC_BIOTIC_FORCING 
           GO2(i,j,k)     =0. _d 0
./pkg/dic/dic_biotic_forcing.F 126 DIC_BIOTIC_FORCING 
           GFE(i,j,k)     =0. _d 0
./pkg/dic/dic_biotic_forcing.F 127 DIC_BIOTIC_FORCING 
           freefe(i,j,k)  =0. _d 0
./pkg/dic/dic_biotic_forcing.F 133 DIC_BIOTIC_FORCING 
          DO i=1-OLx,sNx+OLx
./pkg/dic/dic_biotic_forcing.F 134 DIC_BIOTIC_FORCING 
           SURA(i,j)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 135 DIC_BIOTIC_FORCING 
           SURC(i,j)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 136 DIC_BIOTIC_FORCING 
           SURO(i,j)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 181 DIC_BIOTIC_FORCING 
          DO i=imin,imax
./pkg/dic/dic_biotic_forcing.F 182 DIC_BIOTIC_FORCING 
             CAR_S(i,j,k)=BIOac(i,j,k)*R_CP*rain_ratio(i,j,bi,bj)*
./pkg/dic/dic_biotic_forcing.F 213 DIC_BIOTIC_FORCING 
          DO i=imin,imax
./pkg/dic/dic_biotic_forcing.F 215 DIC_BIOTIC_FORCING 
           RDOP(i,j,k)= MAX(maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F 218 DIC_BIOTIC_FORCING 
           RDOP(i,j,k)= maskC(i,j,k,bi,bj)*KDOPRemin*PTR_DOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F 220 DIC_BIOTIC_FORCING 
           GPO4(i,j,k)=-BIOac(i,j,k)+pflux(i,j,k) + RDOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F 222 DIC_BIOTIC_FORCING 
           car(i,j,k) = cflux(i,j,k) - CAR_S(i,j,k)
./pkg/dic/dic_biotic_forcing.F 224 DIC_BIOTIC_FORCING 
           GDOP(i,j,k)=+BIOac(i,j,k)*DOPfraction - RDOP(i,j,k)
./pkg/dic/dic_biotic_forcing.F 226 DIC_BIOTIC_FORCING 
           GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F 228 DIC_BIOTIC_FORCING 
           GDIC(i,j,k)=car(i,j,k)+R_CP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F 231 DIC_BIOTIC_FORCING 
           if (PTR_O2(i,j,k).GT.O2crit) then
./pkg/dic/dic_biotic_forcing.F 232 DIC_BIOTIC_FORCING 
             GO2(i,j,k)= R_OP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F 234 DIC_BIOTIC_FORCING 
             GO2(i,j,k)= 0. _d 0
./pkg/dic/dic_biotic_forcing.F 238 DIC_BIOTIC_FORCING 
           GFE(i,j,k) = R_FeP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F 239 DIC_BIOTIC_FORCING 
     &                 -Kscav*freefe(i,j,k)
./pkg/dic/dic_biotic_forcing.F 246 DIC_BIOTIC_FORCING 
          DO i=imin,imax
./pkg/dic/dic_biotic_forcing.F 247 DIC_BIOTIC_FORCING 
               GALK(i,j,1)=GALK(i,j,1)+SURA(i,j)
./pkg/dic/dic_biotic_forcing.F 248 DIC_BIOTIC_FORCING 
               GDIC(i,j,1)=GDIC(i,j,1)+SURC(i,j)
./pkg/dic/dic_biotic_forcing.F 250 DIC_BIOTIC_FORCING 
               GO2(i,j,1) =GO2(i,j,1)+SURO(i,j)
./pkg/dic/dic_biotic_forcing.F 253 DIC_BIOTIC_FORCING 
               GFE(i,j,1)=GFE(i,j,1)+alpfe*
./pkg/dic/dic_biotic_forcing.F 254 DIC_BIOTIC_FORCING 
     &                    InputFe(i,j,bi,bj)*recip_drF(1)
./pkg/dic/dic_biotic_forcing.F 255 DIC_BIOTIC_FORCING 
     &                       *recip_hFacC(i,j,1,bi,bj)
./pkg/dic/dic_biotic_forcing.F 264 DIC_BIOTIC_FORCING 
          DO i=imin,imax
./pkg/dic/dic_biotic_forcing.F 265 DIC_BIOTIC_FORCING 
           PTR_DIC(i,j,k)=
./pkg/dic/dic_biotic_forcing.F 266 DIC_BIOTIC_FORCING 
     &      PTR_DIC(i,j,k)+GDIC(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F 267 DIC_BIOTIC_FORCING 
           PTR_ALK(i,j,k)=
./pkg/dic/dic_biotic_forcing.F 268 DIC_BIOTIC_FORCING 
     &      PTR_ALK(i,j,k)+GALK(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F 269 DIC_BIOTIC_FORCING 
           PTR_PO4(i,j,k)=
./pkg/dic/dic_biotic_forcing.F 270 DIC_BIOTIC_FORCING 
     &      PTR_PO4(i,j,k)+GPO4(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F 271 DIC_BIOTIC_FORCING 
           PTR_DOP(i,j,k)=
./pkg/dic/dic_biotic_forcing.F 272 DIC_BIOTIC_FORCING 
     &      PTR_DOP(i,j,k)+GDOP(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F 274 DIC_BIOTIC_FORCING 
           PTR_O2(i,j,k)=
./pkg/dic/dic_biotic_forcing.F 275 DIC_BIOTIC_FORCING 
     &      PTR_O2(i,j,k)+GO2(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F 278 DIC_BIOTIC_FORCING 
           PTR_FE(i,j,k)=
./pkg/dic/dic_biotic_forcing.F 279 DIC_BIOTIC_FORCING 
     &      PTR_FE(i,j,k)+GFE(i,j,k)*PTRACERS_dTLev(k)
./pkg/dic/dic_biotic_forcing.F 299 DIC_BIOTIC_FORCING 
          DO i=imin,imax
./pkg/dic/dic_biotic_forcing.F 300 DIC_BIOTIC_FORCING 
            BIOave(i,j,k,bi,bj)   =BIOave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 301 DIC_BIOTIC_FORCING 
     &                             BIOac(i,j,k)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 302 DIC_BIOTIC_FORCING 
            CARave(i,j,k,bi,bj)   =CARave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 303 DIC_BIOTIC_FORCING 
     &                             CAR(i,j,k)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 304 DIC_BIOTIC_FORCING 
            OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 305 DIC_BIOTIC_FORCING 
     &                             OmegaC(i,j,k,bi,bj)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 306 DIC_BIOTIC_FORCING 
            pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F 307 DIC_BIOTIC_FORCING 
     &                             pflux(i,j,k)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 308 DIC_BIOTIC_FORCING 
            epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F 309 DIC_BIOTIC_FORCING 
     &                             exportflux(i,j,k)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 310 DIC_BIOTIC_FORCING 
            cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F 311 DIC_BIOTIC_FORCING 
     &                             cflux(i,j,k)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 316 DIC_BIOTIC_FORCING 
          DO i=imin,imax
./pkg/dic/dic_biotic_forcing.F 317 DIC_BIOTIC_FORCING 
              SURave(i,j,bi,bj)    =SURave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 318 DIC_BIOTIC_FORCING 
     &                              SURC(i,j)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 320 DIC_BIOTIC_FORCING 
              SUROave(i,j,bi,bj)   =SUROave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 321 DIC_BIOTIC_FORCING 
     &                              SURO(i,j)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 323 DIC_BIOTIC_FORCING 
              pCO2ave(i,j,bi,bj)   =pCO2ave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 324 DIC_BIOTIC_FORCING 
     &                              pCO2(i,j,bi,bj)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 325 DIC_BIOTIC_FORCING 
              pHave(i,j,bi,bj)     =pHave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 326 DIC_BIOTIC_FORCING 
     &                              pH(i,j,bi,bj)*deltaTclock
./pkg/dic/dic_biotic_forcing.F 327 DIC_BIOTIC_FORCING 
              fluxCO2ave(i,j,bi,bj)=fluxCO2ave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 328 DIC_BIOTIC_FORCING 
     &                           fluxCO2(i,j,bi,bj)*deltaTclock
./pkg/dic/dic_cost.F 35 DIC_COST 
      INTEGER i, j, bi, bj, k, it
./pkg/dic/dic_cost.F 44 DIC_COST 
         DO i=1,sNx
./pkg/dic/dic_cost.F 46 DIC_COST 
              tmpcost = tmpcost+FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)*
./pkg/dic/dic_cost.F 47 DIC_COST 
     &                        maskC(i,j,1,bi,bj)*dTtracerLev(1)
./pkg/dic/dic_fields_load.F 136 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 137 DIC_FIELDS_LOAD 
             WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 138 DIC_FIELDS_LOAD 
     &                       + aWght*dicwind1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 149 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 150 DIC_FIELDS_LOAD 
             AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 151 DIC_FIELDS_LOAD 
     &                         + aWght*atmosp1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 158 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 159 DIC_FIELDS_LOAD 
             SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 160 DIC_FIELDS_LOAD 
     &                         + aWght*silica1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 166 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 167 DIC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 168 DIC_FIELDS_LOAD 
     &                       + aWght*ice1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 176 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 177 DIC_FIELDS_LOAD 
             PAR(i,j,bi,bj) = bWght*par0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 178 DIC_FIELDS_LOAD 
     &                      + aWght*par1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 192 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 193 DIC_FIELDS_LOAD 
             InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 194 DIC_FIELDS_LOAD 
     &                          + aWght*feinput1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 210 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 211 DIC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 219 DIC_FIELDS_LOAD 
            DO i=1-Olx,sNx+Olx
./pkg/dic/dic_fields_load.F 220 DIC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 42 DIC_FIELDS_LOAD 
       INTEGER bi,bj,i,j,intime0,intime1
./pkg/dic/dic_ini_forcing.F 35 DIC_INI_FORCING 
       INTEGER bi,bj,i,j
./pkg/dic/dic_ini_forcing.F 89 DIC_INI_FORCING 
          DO i=1-Olx,sNx+Olx
./pkg/dic/dic_ini_forcing.F 90 DIC_INI_FORCING 
             WIND(i,j,bi,bj)   = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 91 DIC_INI_FORCING 
             AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 92 DIC_INI_FORCING 
             SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 93 DIC_INI_FORCING 
             FIce(i,j,bi,bj)   = 0. _d 0
./pkg/dic/dic_ini_forcing.F 94 DIC_INI_FORCING 
             FluxCO2(i,j,bi,bj)= 0. _d 0
./pkg/dic/dic_ini_forcing.F 96 DIC_INI_FORCING 
             PAR(i,j,bi,bj)    = 100. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 99 DIC_INI_FORCING 
             InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj)
./pkg/dic/dic_init_varia.F 33 DIC_INIT_VARIA 
      INTEGER i,j, bi,bj
./pkg/dic/dic_init_varia.F 44 DIC_INIT_VARIA 
          DO i=1-Olx,sNx+Olx
./pkg/dic/dic_init_varia.F 45 DIC_INIT_VARIA 
            alpha(i,j,bi,bj)      = alphaUniform
./pkg/dic/dic_init_varia.F 46 DIC_INIT_VARIA 
            rain_ratio(i,j,bi,bj) = rainRatioUniform
./pkg/dic/dic_init_varia.F 51 DIC_INIT_VARIA 
          DO i=1-Olx,sNx+Olx
./pkg/dic/dic_init_varia.F 52 DIC_INIT_VARIA 
            omegaC(i,j,k,bi,bj) =  0. _d 0
./pkg/dic/dic_set_control.F 101 DIC_SET_CONTROL 
          DO i = 1, sNx
./pkg/dic/dic_set_control.F 102 DIC_SET_CONTROL 
            feload(i,j,bi,bj) = feload(i,j,bi,bj)*(1. _d 0 +xx_dic(1))
./pkg/dic/dic_set_control.F 103 DIC_SET_CONTROL 
            rain_ratio(i,j,bi,bj) =
./pkg/dic/dic_set_control.F 104 DIC_SET_CONTROL 
     &                      rain_ratio(i,j,bi,bj)*(1. _d 0 +xx_dic(2))
./pkg/dic/dic_set_control.F 39 DIC_SET_CONTROL 
      INTEGER i, j
./pkg/dic/dic_set_control.F 77 DIC_SET_CONTROL 
          DO i = 1, sNx
./pkg/dic/dic_set_control.F 78 DIC_SET_CONTROL 
             alpha (i,j,bi,bj) = alpha(i,j,bi,bj)
./pkg/dic/dic_set_control.F 79 DIC_SET_CONTROL 
     &                         + fac*tmpfld2d(i,j,bi,bj)
./pkg/dic/dic_store_fluxco2.F 47 DIC_STORE_FLUXCO2 
      INTEGER i,j,bi,bj
./pkg/dic/dic_store_fluxco2.F 54 DIC_STORE_FLUXCO2 
          DO i=1,sNx
./pkg/dic/dic_store_fluxco2.F 55 DIC_STORE_FLUXCO2 
            fluxCO2cpl(i,j,bi,bj) = fluxCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 107 DIC_SURFFORCING 
        DO i=imin,imax
./pkg/dic/dic_surfforcing.F 116 DIC_SURFFORCING 
                AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm
./pkg/dic/dic_surfforcing.F 121 DIC_SURFFORCING 
              pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5
./pkg/dic/dic_surfforcing.F 122 DIC_SURFFORCING 
              Kwexch_Pre(i,j,bi,bj) = pisvel(i,j)
./pkg/dic/dic_surfforcing.F 123 DIC_SURFFORCING 
     &                              * (1. _d 0 - FIce(i,j,bi,bj))
./pkg/dic/dic_surfforcing.F 132 DIC_SURFFORCING 
        DO i=imin,imax
./pkg/dic/dic_surfforcing.F 134 DIC_SURFFORCING 
          IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F 136 DIC_SURFFORCING 
     I        theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj),
./pkg/dic/dic_surfforcing.F 137 DIC_SURFFORCING 
     I        PTR_CO2(i,j,kLev), surfphos(i,j),
./pkg/dic/dic_surfforcing.F 138 DIC_SURFFORCING 
     I        surfsi(i,j),surfalk(i,j),
./pkg/dic/dic_surfforcing.F 139 DIC_SURFFORCING 
     I        ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 140 DIC_SURFFORCING 
     I        ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 141 DIC_SURFFORCING 
     I        aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 142 DIC_SURFFORCING 
     I        aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 143 DIC_SURFFORCING 
     I        bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 144 DIC_SURFFORCING 
     U        pH(i,j,bi,bj),pCO2(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 145 DIC_SURFFORCING 
     I        i,j,kLev,bi,bj,myIter,myThid )
./pkg/dic/dic_surfforcing.F 147 DIC_SURFFORCING 
            pCO2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing.F 153 DIC_SURFFORCING 
        DO i=imin,imax
./pkg/dic/dic_surfforcing.F 155 DIC_SURFFORCING 
          IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F 157 DIC_SURFFORCING 
              SchmidtNoDIC(i,j) =
./pkg/dic/dic_surfforcing.F 159 DIC_SURFFORCING 
     &          + sca2 * theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 160 DIC_SURFFORCING 
     &          + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 161 DIC_SURFFORCING 
     &          + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 162 DIC_SURFFORCING 
     &                *theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 166 DIC_SURFFORCING 
              pCO2sat(i,j) =
./pkg/dic/dic_surfforcing.F 167 DIC_SURFFORCING 
     &          AtmosP(i,j,bi,bj)*AtmospCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 170 DIC_SURFFORCING 
              Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 171 DIC_SURFFORCING 
     &                    / sqrt(SchmidtNoDIC(i,j)/660.0 _d 0)
./pkg/dic/dic_surfforcing.F 177 DIC_SURFFORCING 
              FluxCO2(i,j,bi,bj) =
./pkg/dic/dic_surfforcing.F 178 DIC_SURFFORCING 
     &         Kwexch(i,j)*(
./pkg/dic/dic_surfforcing.F 179 DIC_SURFFORCING 
     &         ak0(i,j,bi,bj)*pCO2sat(i,j) -
./pkg/dic/dic_surfforcing.F 180 DIC_SURFFORCING 
     &         ff(i,j,bi,bj)*pCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 183 DIC_SURFFORCING 
              FluxCO2(i,j,bi,bj) = 0. _d 0
./pkg/dic/dic_surfforcing.F 186 DIC_SURFFORCING 
            FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil
./pkg/dic/dic_surfforcing.F 189 DIC_SURFFORCING 
            IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN
./pkg/dic/dic_surfforcing.F 197 DIC_SURFFORCING 
              VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s
./pkg/dic/dic_surfforcing.F 203 DIC_SURFFORCING 
              VirtualFlux(i,j)=0. _d 0
./pkg/dic/dic_surfforcing.F 211 DIC_SURFFORCING 
          DO i=imin,imax
./pkg/dic/dic_surfforcing.F 212 DIC_SURFFORCING 
           GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 213 DIC_SURFFORCING 
     &              *(FluxCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 215 DIC_SURFFORCING 
     &              + VirtualFlux(i,j)
./pkg/dic/dic_surfforcing.F 48 DIC_SURFFORCING 
       INTEGER i,j, kLev
./pkg/dic/dic_surfforcing.F 83 DIC_SURFFORCING 
         DO i=imin,imax
./pkg/dic/dic_surfforcing.F 87 DIC_SURFFORCING 
             surfalk(i,j) = PTR_ALK(i,j,klev)
./pkg/dic/dic_surfforcing.F 88 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 89 DIC_SURFFORCING 
             surfphos(i,j)  = PTR_PO4(i,j,klev)
./pkg/dic/dic_surfforcing.F 90 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 92 DIC_SURFFORCING 
             surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s
./pkg/dic/dic_surfforcing.F 93 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 94 DIC_SURFFORCING 
             surfphos(i,j)  = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 97 DIC_SURFFORCING 
             surfsi(i,j)   = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 110 DIC_SURFFORCING_INIT 
           DO i=1-Olx,sNx+Olx
./pkg/dic/dic_surfforcing_init.F 111 DIC_SURFFORCING_INIT 
             SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj)
./pkg/dic/dic_surfforcing_init.F 112 DIC_SURFFORCING_INIT 
     &                        + aWght*silica1(i,j,bi,bj)
./pkg/dic/dic_surfforcing_init.F 132 DIC_SURFFORCING_INIT 
          DO i=1-Olx,sNx+OLx
./pkg/dic/dic_surfforcing_init.F 133 DIC_SURFFORCING_INIT 
            pH(i,j,bi,bj) = 8. _d 0
./pkg/dic/dic_surfforcing_init.F 142 DIC_SURFFORCING_INIT 
         DO i=1-OLx,sNx+OLx
./pkg/dic/dic_surfforcing_init.F 143 DIC_SURFFORCING_INIT 
          ak0(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 144 DIC_SURFFORCING_INIT 
          ak1(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 145 DIC_SURFFORCING_INIT 
          ak2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 146 DIC_SURFFORCING_INIT 
          akw(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 147 DIC_SURFFORCING_INIT 
          akb(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 148 DIC_SURFFORCING_INIT 
          akf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 149 DIC_SURFFORCING_INIT 
          ak1p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 150 DIC_SURFFORCING_INIT 
          ak2p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 151 DIC_SURFFORCING_INIT 
          ak3p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 152 DIC_SURFFORCING_INIT 
          aksi(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 153 DIC_SURFFORCING_INIT 
          ff(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 154 DIC_SURFFORCING_INIT 
          ft(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 155 DIC_SURFFORCING_INIT 
          st(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 156 DIC_SURFFORCING_INIT 
          bt(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 177 DIC_SURFFORCING_INIT 
         DO i=iMin,iMax
./pkg/dic/dic_surfforcing_init.F 180 DIC_SURFFORCING_INIT 
             surfalk(i,j) = PTRACER(i,j,klev,bi,bj,2)
./pkg/dic/dic_surfforcing_init.F 181 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 182 DIC_SURFFORCING_INIT 
             surfphos(i,j)= PTRACER(i,j,klev,bi,bj,3)
./pkg/dic/dic_surfforcing_init.F 183 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 185 DIC_SURFFORCING_INIT 
             surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0
./pkg/dic/dic_surfforcing_init.F 186 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 187 DIC_SURFFORCING_INIT 
             surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 190 DIC_SURFFORCING_INIT 
             surfsi(i,j)   =  Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 191 DIC_SURFFORCING_INIT 
             PTR_CO2(i,j,kLev) = PTRACER(i,j,klev,bi,bj,1)
./pkg/dic/dic_surfforcing_init.F 192 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 210 DIC_SURFFORCING_INIT 
           DO i=iMin,iMax
./pkg/dic/dic_surfforcing_init.F 211 DIC_SURFFORCING_INIT 
            IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN
./pkg/dic/dic_surfforcing_init.F 217 DIC_SURFFORCING_INIT 
     I        theta(i,j,kLev,bi,bj),salt(i,j,kLev,bi,bj),
./pkg/dic/dic_surfforcing_init.F 218 DIC_SURFFORCING_INIT 
     I        PTR_CO2(i,j,kLev), surfphos(i,j),
./pkg/dic/dic_surfforcing_init.F 219 DIC_SURFFORCING_INIT 
     I        surfsi(i,j),surfalk(i,j),
./pkg/dic/dic_surfforcing_init.F 220 DIC_SURFFORCING_INIT 
     I        ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 221 DIC_SURFFORCING_INIT 
     I        ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 222 DIC_SURFFORCING_INIT 
     I        aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 223 DIC_SURFFORCING_INIT 
     I        aksi(i,j,bi,bj),akf(i,j,bi,bj),ff(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 224 DIC_SURFFORCING_INIT 
     I        bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 225 DIC_SURFFORCING_INIT 
     U        pH(i,j,bi,bj),pCO2(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 226 DIC_SURFFORCING_INIT 
     I        i,j,kLev,bi,bj, it ,  myThid )
./pkg/dic/dic_surfforcing_init.F 38 DIC_SURFFORCING_INIT 
       INTEGER i,j, kLev, it
./pkg/dic/fe_chem.F 45 FE_CHEM 
      INTEGER i,j,k
./pkg/dic/fe_chem.F 63 FE_CHEM 
         DO i=iMin,iMax
./pkg/dic/fe_chem.F 64 FE_CHEM 
          IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN
./pkg/dic/fe_chem.F 67 FE_CHEM 
              tmpfe =MAX( 0. _d 0 , fe(i,j,k) )
./pkg/dic/fe_chem.F 69 FE_CHEM 
              tmpfe = fe(i,j,k)
./pkg/dic/fe_chem.F 82 FE_CHEM 
                freefe(i,j,k) = tmpfe -FeL
./pkg/dic/fe_chem.F 84 FE_CHEM 
                freefe(i,j,k) = 0. _d 0
./pkg/dic/fe_chem.F 88 FE_CHEM 
              thx=freefe(i,j,k)
./pkg/dic/fe_chem.F 91 FE_CHEM 
              freefe(i,j,k) =
./pkg/dic/fe_chem.F 96 FE_CHEM 
              freefe(i,j,k) = MIN(freefe(i,j,k),freefemax)
./pkg/dic/fe_chem.F 98 FE_CHEM 
              fe(i,j,k) = FeL+freefe(i,j,k)
./pkg/dic/o2_surfforcing.F 107 O2_SURFFORCING 
              O2sat(i,j) = o2s/22391.6 _d 0 * 1. _d 3
./pkg/dic/o2_surfforcing.F 110 O2_SURFFORCING 
              FluxO2(i,j) = Kwexch(i,j)*
./pkg/dic/o2_surfforcing.F 111 O2_SURFFORCING 
     &                     (AtmosP(i,j,bi,bj)*O2sat(i,j)
./pkg/dic/o2_surfforcing.F 112 O2_SURFFORCING 
     &                      - PTR_O2(i,j,K))
./pkg/dic/o2_surfforcing.F 114 O2_SURFFORCING 
              FluxO2(i,j) = 0. _d 0
./pkg/dic/o2_surfforcing.F 123 O2_SURFFORCING 
          DO i=imin,imax
./pkg/dic/o2_surfforcing.F 124 O2_SURFFORCING 
           SGO2(i,j)= FluxO2(i,j)
./pkg/dic/o2_surfforcing.F 125 O2_SURFFORCING 
     &         *recip_drF(K) * recip_hFacC(i,j,K,bi,bj)
./pkg/dic/o2_surfforcing.F 71 O2_SURFFORCING 
          DO i=imin,imax
./pkg/dic/o2_surfforcing.F 72 O2_SURFFORCING 
            IF (maskC(i,j,k,bi,bj).NE.0.) THEN
./pkg/dic/o2_surfforcing.F 73 O2_SURFFORCING 
              ttemp = theta(i,j,k,bi,bj)
./pkg/dic/o2_surfforcing.F 74 O2_SURFFORCING 
              stemp = salt(i,j,k,bi,bj)
./pkg/dic/o2_surfforcing.F 76 O2_SURFFORCING 
              SchmidtNoO2(i,j) =
./pkg/dic/o2_surfforcing.F 86 O2_SURFFORCING 
              Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj)
./pkg/dic/o2_surfforcing.F 87 O2_SURFFORCING 
     &                    / sqrt(SchmidtNoO2(i,j)/660.0 _d 0)
./pkg/dic/phos_flux.F 107 PHOS_FLUX 
         DO i=imin,imax
./pkg/dic/phos_flux.F 108 PHOS_FLUX 
          IF ( bexport(i,j) .NE. 0. _d 0 ) THEN
./pkg/dic/phos_flux.F 111 PHOS_FLUX 
           depth_l  = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 116 PHOS_FLUX 
           flux_l   = bexport(i,j)*reminFac
./pkg/dic/phos_flux.F 117 PHOS_FLUX 
     &          *maskC(i,j,kop1,bi,bj)
./pkg/dic/phos_flux.F 119 PHOS_FLUX 
           pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/phos_flux.F 120 PHOS_FLUX 
     &          *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 121 PHOS_FLUX 
           exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j)
./pkg/dic/phos_flux.F 123 PHOS_FLUX 
           flux_u(i,j) = flux_l
./pkg/dic/phos_flux.F 135 PHOS_FLUX 
        DO i=imin,imax
./pkg/dic/phos_flux.F 136 PHOS_FLUX 
         pflux(i,j,ko)=pflux(i,j,ko) + (flux_u(i,j)-flux_l)
./pkg/dic/phos_flux.F 137 PHOS_FLUX 
     &        *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 138 PHOS_FLUX 
         exportflux(i,j,ko)=exportflux(i,j,ko)+flux_u(i,j)
./pkg/dic/phos_flux.F 65 PHOS_FLUX 
        DO i=imin,imax
./pkg/dic/phos_flux.F 66 PHOS_FLUX 
         bexport(i,j) = 0. _d 0
./pkg/dic/phos_flux.F 67 PHOS_FLUX 
         IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN
./pkg/dic/phos_flux.F 71 PHOS_FLUX 
           pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F 72 PHOS_FLUX 
          ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN
./pkg/dic/phos_flux.F 73 PHOS_FLUX 
           pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F 76 PHOS_FLUX 
           bexport(i,j)=BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F 77 PHOS_FLUX 
     &          *drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/dic/phos_flux.F 87 PHOS_FLUX 
        DO i=imin,imax
./pkg/dic/phos_flux.F 88 PHOS_FLUX 
         flux_u(i,j)  = bexport(i,j)
./pkg/dic/tracer_meanarea.F 34 TRACER_MEANAREA 
      INTEGER i,j,bi,bj
./pkg/dic/tracer_meanarea.F 43 TRACER_MEANAREA 
          DO i=1,sNx
./pkg/dic/tracer_meanarea.F 45 TRACER_MEANAREA 
     &          tracer(i,j,kLev,bi,bj)*rA(i,j,bi,bj)*
./pkg/dic/tracer_meanarea.F 46 TRACER_MEANAREA 
     &                        maskC(i,j,kLev,bi,bj)
./pkg/down_slope/dwnslp_calc_rho.F 58 DWNSLP_CALC_RHO 
      INTEGER i,j,kl
./pkg/down_slope/dwnslp_calc_rho.F 64 DWNSLP_CALC_RHO 
       DO i=1-OLx,sNx+OLx
./pkg/down_slope/dwnslp_calc_rho.F 71 DWNSLP_CALC_RHO 
         kl = MIN( MAX(k,kSurfC(i,j,bi,bj)), MAX(kLowC(i,j,bi,bj),1) )
./pkg/down_slope/dwnslp_calc_rho.F 72 DWNSLP_CALC_RHO 
         tLoc(i,j) = tFld(i,j,kl,bi,bj)
./pkg/down_slope/dwnslp_calc_rho.F 73 DWNSLP_CALC_RHO 
         sLoc(i,j) = sFld(i,j,kl,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 106 DWNSLP_INIT_FIXED 
          DO i=1,sNx
./pkg/down_slope/dwnslp_init_fixed.F 107 DWNSLP_INIT_FIXED 
           IF (  kSurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 109 DWNSLP_INIT_FIXED 
            IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 113 DWNSLP_INIT_FIXED 
     &          1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F 118 DWNSLP_INIT_FIXED 
            IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 122 DWNSLP_INIT_FIXED 
     &          1 + (i+OLx-1) + (j-1+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F 137 DWNSLP_INIT_FIXED 
          DO i=1,sNx+1
./pkg/down_slope/dwnslp_init_fixed.F 138 DWNSLP_INIT_FIXED 
           IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 140 DWNSLP_INIT_FIXED 
            IF ( kLowC(i,j,bi,bj).GT.kLowC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 144 DWNSLP_INIT_FIXED 
     &          1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F 149 DWNSLP_INIT_FIXED 
            IF ( kLowC(i,j,bi,bj).LT.kLowC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 153 DWNSLP_INIT_FIXED 
     &          1 + (i-1+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F 165 DWNSLP_INIT_FIXED 
          DO i=1,sNx
./pkg/down_slope/dwnslp_init_fixed.F 166 DWNSLP_INIT_FIXED 
           IF (  kSurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 168 DWNSLP_INIT_FIXED 
            IF ( kLowC(i,j,bi,bj).GT.kLowC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 172 DWNSLP_INIT_FIXED 
     &          1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F 177 DWNSLP_INIT_FIXED 
            IF ( kLowC(i,j,bi,bj).LT.kLowC(i,j-1,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 181 DWNSLP_INIT_FIXED 
     &          1 + (i+OLx-1) + (j-1+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F 227 DWNSLP_INIT_FIXED 
          i= MAX(ideep,ishelf)
./pkg/down_slope/dwnslp_init_fixed.F 241 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 242 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 245 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dxG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 246 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 261 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dxC(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 262 DWNSLP_INIT_FIXED 
     &       *dyG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 263 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 266 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dyC(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 267 DWNSLP_INIT_FIXED 
     &       *dxG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 268 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 42 DWNSLP_INIT_FIXED 
      INTEGER i, j, k
./pkg/down_slope/dwnslp_init_fixed.F 78 DWNSLP_INIT_FIXED 
          DO i=1,sNx+1
./pkg/down_slope/dwnslp_init_fixed.F 79 DWNSLP_INIT_FIXED 
           IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 81 DWNSLP_INIT_FIXED 
            IF ( kSurfC(i,j,bi,bj).LT.kSurfC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 85 DWNSLP_INIT_FIXED 
     &          1 + (i+OLx-1) + (j+OLy-1)*xSize
./pkg/down_slope/dwnslp_init_fixed.F 90 DWNSLP_INIT_FIXED 
            IF ( kSurfC(i,j,bi,bj).GT.kSurfC(i-1,j,bi,bj) ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 94 DWNSLP_INIT_FIXED 
     &          1 + (i-1+OLx-1) + (j+OLy-1)*xSize
./pkg/ebm/ebm_area_t.F 100 EBM_AREA_T 
          ELSEIF ( yC(i,j,bi,bj) .GE. lat(2) .AND.
./pkg/ebm/ebm_area_t.F 101 EBM_AREA_T 
     &       yC(i,j,bi,bj) .LT. lat(3)) THEN
./pkg/ebm/ebm_area_t.F 103 EBM_AREA_T 
     &           theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 105 EBM_AREA_T 
     &           maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 41 EBM_AREA_T 
      INTEGER i, j, k, bi, bj
./pkg/ebm/ebm_area_t.F 81 EBM_AREA_T 
         DO i = 1, sNx
./pkg/ebm/ebm_area_t.F 82 EBM_AREA_T 
          IF ( yC(i,j,bi,bj) .GE. -lat(3) .AND.
./pkg/ebm/ebm_area_t.F 83 EBM_AREA_T 
     &         yC(i,j,bi,bj) .LE. -lat(2)) THEN
./pkg/ebm/ebm_area_t.F 85 EBM_AREA_T 
     &           theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 87 EBM_AREA_T 
     &           maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 88 EBM_AREA_T 
          ELSEIF ( yC(i,j,bi,bj) .GT. -lat(2) .AND.
./pkg/ebm/ebm_area_t.F 89 EBM_AREA_T 
     &       yC(i,j,bi,bj) .LT. -lat(1)) THEN
./pkg/ebm/ebm_area_t.F 91 EBM_AREA_T 
     &           theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 93 EBM_AREA_T 
     &           maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 94 EBM_AREA_T 
          ELSEIF ( yC(i,j,bi,bj) .GT. lat(1) .AND.
./pkg/ebm/ebm_area_t.F 95 EBM_AREA_T 
     &       yC(i,j,bi,bj) .LT. lat(2)) THEN
./pkg/ebm/ebm_area_t.F 97 EBM_AREA_T 
     &           theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 99 EBM_AREA_T 
     &           maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_atmosphere.F 204 EBM_ATMOSPHERE 
         DO i=1,sNx
./pkg/ebm/ebm_atmosphere.F 206 EBM_ATMOSPHERE 
          S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 208 EBM_ATMOSPHERE 
          P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.)
./pkg/ebm/ebm_atmosphere.F 209 EBM_ATMOSPHERE 
          P4(i,j,bj) = 0.12 _d 0 *
./pkg/ebm/ebm_atmosphere.F 210 EBM_ATMOSPHERE 
     &                (35.*S(i,j,bj)**4 - 30.*S(i,j,bj)**2 + 3.)
./pkg/ebm/ebm_atmosphere.F 220 EBM_ATMOSPHERE 
         DO i=1,sNx
./pkg/ebm/ebm_atmosphere.F 222 EBM_ATMOSPHERE 
          IF (yC(i,j,bi,bj) .LT. 0.) THEN
./pkg/ebm/ebm_atmosphere.F 228 EBM_ATMOSPHERE 
          SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))*
./pkg/ebm/ebm_atmosphere.F 229 EBM_ATMOSPHERE 
     &         (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) )
./pkg/ebm/ebm_atmosphere.F 231 EBM_ATMOSPHERE 
          T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj)
./pkg/ebm/ebm_atmosphere.F 248 EBM_ATMOSPHERE 
         Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F 250 EBM_ATMOSPHERE 
     &        0.000728 _d 4      - 0.00678 _d 4*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F 251 EBM_ATMOSPHERE 
     &        0.0955 _d 4*S(i,j,bj)**2 + 0.0769 _d 4*S(i,j,bj)**3 -
./pkg/ebm/ebm_atmosphere.F 252 EBM_ATMOSPHERE 
     &        0.8508 _d 4*S(i,j,bj)**4 - 0.3581 _d 4*S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F 253 EBM_ATMOSPHERE 
     &        2.9240 _d 4*S(i,j,bj)**6 + 0.8311 _d 4*S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F 254 EBM_ATMOSPHERE 
     &        4.9548 _d 4*S(i,j,bj)**8 - 0.8808 _d 4*S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F 255 EBM_ATMOSPHERE 
     &        4.0644 _d 4*S(i,j,bj)**10 +0.3409 _d 4*S(i,j,bj)**11 -
./pkg/ebm/ebm_atmosphere.F 256 EBM_ATMOSPHERE 
     &        1.2893 _d 4*S(i,j,bj)**12 )
./pkg/ebm/ebm_atmosphere.F 268 EBM_ATMOSPHERE 
             Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))*
./pkg/ebm/ebm_atmosphere.F 270 EBM_ATMOSPHERE 
     &            Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F 271 EBM_ATMOSPHERE 
     &        1.892 _d 2*S(i,j,bj)**2 + 3.041 _d 2*S(i,j,bj)**3 -
./pkg/ebm/ebm_atmosphere.F 272 EBM_ATMOSPHERE 
     &        1.540 _d 3*S(i,j,bj)**4 - 9.586 _d 2*S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F 273 EBM_ATMOSPHERE 
     &        2.939 _d 3*S(i,j,bj)**6 + 1.219 _d 3*S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F 274 EBM_ATMOSPHERE 
     &        2.550 _d 3*S(i,j,bj)**8 - 5.396 _d 2*S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F 275 EBM_ATMOSPHERE 
     &        8.119 _d 2*S(i,j,bj)**10)
./pkg/ebm/ebm_atmosphere.F 278 EBM_ATMOSPHERE 
             Qnet(i,j,bi,bj) = 0.
./pkg/ebm/ebm_atmosphere.F 284 EBM_ATMOSPHERE 
          EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 285 EBM_ATMOSPHERE 
     &    *(-0.8454 _d 5*S(i,j,bj)**14 + 0.5367 _d 5*S(i,j,bj)**13
./pkg/ebm/ebm_atmosphere.F 286 EBM_ATMOSPHERE 
     &    +3.3173 _d 5*S(i,j,bj)**12 - 1.8965 _d 5*S(i,j,bj)**11
./pkg/ebm/ebm_atmosphere.F 287 EBM_ATMOSPHERE 
     &    -5.1701 _d 5*S(i,j,bj)**10
./pkg/ebm/ebm_atmosphere.F 288 EBM_ATMOSPHERE 
     &    +2.6240 _d 5*S(i,j,bj)**9 + 4.077 _d 5*S(i,j,bj)**8
./pkg/ebm/ebm_atmosphere.F 289 EBM_ATMOSPHERE 
     &    -1.791 _d 5*S(i,j,bj)**7
./pkg/ebm/ebm_atmosphere.F 290 EBM_ATMOSPHERE 
     &    -1.7231 _d 5*S(i,j,bj)**6 + 0.6229 _d 5*S(i,j,bj)**5
./pkg/ebm/ebm_atmosphere.F 291 EBM_ATMOSPHERE 
     &    +0.3824 _d 5*S(i,j,bj)**4
./pkg/ebm/ebm_atmosphere.F 292 EBM_ATMOSPHERE 
     &    -0.1017 _d 5*S(i,j,bj)**3 - 0.0387 _d 5*S(i,j,bj)**2
./pkg/ebm/ebm_atmosphere.F 293 EBM_ATMOSPHERE 
     &    +0.00562 _d 5*S(i,j,bj)  + 0.0007743 _d 5)
./pkg/ebm/ebm_atmosphere.F 303 EBM_ATMOSPHERE 
          IF (yC(i,j,bi,bj) .LT. -40.) THEN
./pkg/ebm/ebm_atmosphere.F 305 EBM_ATMOSPHERE 
           EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)*
./pkg/ebm/ebm_atmosphere.F 306 EBM_ATMOSPHERE 
     &            (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj)
./pkg/ebm/ebm_atmosphere.F 307 EBM_ATMOSPHERE 
     &           - 1336.3 _d 0*S(i,j,bj)**2 - 425.8 _d 0*S(i,j,bj)**3
./pkg/ebm/ebm_atmosphere.F 308 EBM_ATMOSPHERE 
     &           + 5434.8 _d 0*S(i,j,bj)**4 + 707.9 _d 0*S(i,j,bj)**5
./pkg/ebm/ebm_atmosphere.F 309 EBM_ATMOSPHERE 
     &           - 6987.7 _d 0*S(i,j,bj)**6 - 360.4 _d 0*S(i,j,bj)**7
./pkg/ebm/ebm_atmosphere.F 310 EBM_ATMOSPHERE 
     &           + 2855.0 _d 0*S(i,j,bj)**8)
./pkg/ebm/ebm_atmosphere.F 314 EBM_ATMOSPHERE 
           IF (xC(i,j,bi,bj) .GT. 284.
./pkg/ebm/ebm_atmosphere.F 315 EBM_ATMOSPHERE 
     &      .OR. xC(i,j,bi,bj) .LT. 28.) THEN
./pkg/ebm/ebm_atmosphere.F 316 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)*
./pkg/ebm/ebm_atmosphere.F 317 EBM_ATMOSPHERE 
     &             (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F 318 EBM_ATMOSPHERE 
     &             2.388 _d 3*S(i,j,bj)**2 - 4.101 _d 3*S(i,j,bj)**3 +
./pkg/ebm/ebm_atmosphere.F 319 EBM_ATMOSPHERE 
     &             1.963 _d 4*S(i,j,bj)**4 + 1.534 _d 4*S(i,j,bj)**5 -
./pkg/ebm/ebm_atmosphere.F 320 EBM_ATMOSPHERE 
     &             6.556 _d 4*S(i,j,bj)**6 - 2.478 _d 4*S(i,j,bj)**7 +
./pkg/ebm/ebm_atmosphere.F 321 EBM_ATMOSPHERE 
     &             1.083 _d 5*S(i,j,bj)**8 + 1.85 _d 4*S(i,j,bj)**9 -
./pkg/ebm/ebm_atmosphere.F 322 EBM_ATMOSPHERE 
     &             8.703 _d 4*S(i,j,bj)**10 - 5.276 _d 3*S(i,j,bj)**11 +
./pkg/ebm/ebm_atmosphere.F 323 EBM_ATMOSPHERE 
     &             2.703 _d 4*S(i,j,bj)**12)
./pkg/ebm/ebm_atmosphere.F 327 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 328 EBM_ATMOSPHERE 
     &             *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F 329 EBM_ATMOSPHERE 
     &             1.041 _d 3*S(i,j,bj)**2 - 7.546 _d 3*S(i,j,bj)**3 +
./pkg/ebm/ebm_atmosphere.F 330 EBM_ATMOSPHERE 
     &             2.335 _d 3*S(i,j,bj)**4 + 3.449 _d 4*S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F 331 EBM_ATMOSPHERE 
     &             6.702 _d 3*S(i,j,bj)**6 - 6.601 _d 4*S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F 332 EBM_ATMOSPHERE 
     &             2.594 _d 4*S(i,j,bj)**8 + 5.652 _d 4*S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F 333 EBM_ATMOSPHERE 
     &             2.738 _d 4*S(i,j,bj)**10 - 1.795 _d 4*S(i,j,bj)**11 -
./pkg/ebm/ebm_atmosphere.F 334 EBM_ATMOSPHERE 
     &             9.486 _d 3*S(i,j,bj)**12)
./pkg/ebm/ebm_atmosphere.F 339 EBM_ATMOSPHERE 
          EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./pkg/ebm/ebm_atmosphere.F 52 EBM_ATMOSPHERE 
      INTEGER i, j
./pkg/ebm/ebm_atmosphere.F 79 EBM_ATMOSPHERE 
         DO i=1-oLx,sNx+oLx
./pkg/ebm/ebm_atmosphere.F 80 EBM_ATMOSPHERE 
          S(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 81 EBM_ATMOSPHERE 
          P2(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 82 EBM_ATMOSPHERE 
          P4(i,j,bj) = 0.0
./pkg/ebm/ebm_forcing_surf.F 48 EBM_FORCING_SURF 
      INTEGER i,j
./pkg/ebm/ebm_forcing_surf.F 62 EBM_FORCING_SURF 
         DO i = iMin, iMax
./pkg/ebm/ebm_forcing_surf.F 65 EBM_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) =
./pkg/ebm/ebm_forcing_surf.F 66 EBM_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 67 EBM_FORCING_SURF 
     &           + winPert(i,j,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 68 EBM_FORCING_SURF 
     &            *drF(kSurface)*hFacW(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 70 EBM_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) =
./pkg/ebm/ebm_forcing_surf.F 71 EBM_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 73 EBM_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./pkg/ebm/ebm_forcing_surf.F 74 EBM_FORCING_SURF 
     &      -Qnet(i,j,bi,bj)*recip_Cp*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 75 EBM_FORCING_SURF 
     &      -lambdaThetaZonRelax*maskC(i,j,kSurface,bi,bj)*
./pkg/ebm/ebm_forcing_surf.F 76 EBM_FORCING_SURF 
     &         (theta(i,j,kSurface,bi,bj)-ZonalMeanSST(j,bj))
./pkg/ebm/ebm_forcing_surf.F 77 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 80 EBM_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./pkg/ebm/ebm_forcing_surf.F 81 EBM_FORCING_SURF 
     &      EmPmR(i,j,bi,bj)*convertFW2Salt*mass2rUnit
./pkg/ebm/ebm_forcing_surf.F 82 EBM_FORCING_SURF 
     &      +Run(i,j,bi,bj)*scale_runoff
./pkg/ebm/ebm_forcing_surf.F 84 EBM_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj)*maskC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_forcing_surf.F 85 EBM_FORCING_SURF 
     &        *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj))
./pkg/ebm/ebm_forcing_surf.F 86 EBM_FORCING_SURF 
     &        *drF(kSurface)*hFacC(i,j,kSurface,bi,bj)
./pkg/ebm/ebm_ini_vars.F 34 EBM_INI_VARS 
      INTEGER bi,bj,i,j,k
./pkg/ebm/ebm_ini_vars.F 41 EBM_INI_VARS 
         DO i=1-OLx,sNx+OLx
./pkg/ebm/ebm_ini_vars.F 42 EBM_INI_VARS 
          Run   (i,j,bi,bj) = 0.
./pkg/ebm/ebm_ini_vars.F 43 EBM_INI_VARS 
          winPert(i,j,bi,bj) = 0.
./pkg/ebm/ebm_load_climatology.F 31 EBM_LOAD_CLIMATOLOGY 
      INTEGER bi,bj,i,j
./pkg/ebm/ebm_load_climatology.F 58 EBM_LOAD_CLIMATOLOGY 
          DO i=1,sNx
./pkg/ebm/ebm_load_climatology.F 62 EBM_LOAD_CLIMATOLOGY 
           distY = (yC(i,j,bi,bj)- 0.  )/lY
./pkg/ebm/ebm_load_climatology.F 65 EBM_LOAD_CLIMATOLOGY 
           fu(i,j,bi,bj) = tauX
./pkg/ebm/ebm_load_climatology.F 78 EBM_LOAD_CLIMATOLOGY 
          DO i=1,sNx
./pkg/ebm/ebm_load_climatology.F 79 EBM_LOAD_CLIMATOLOGY 
           fv(i,j,bi,bj) = 0.0
./pkg/ebm/ebm_wind_perturb.F 104 EBM_WIND_PERTURB 
      DO i = iMin, iMax
./pkg/ebm/ebm_wind_perturb.F 114 EBM_WIND_PERTURB 
         winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)*
./pkg/ebm/ebm_wind_perturb.F 115 EBM_WIND_PERTURB 
     &        (1.0/1.66)*(0.75*winPert(i,j,bi,bj) +
./pkg/ebm/ebm_wind_perturb.F 117 EBM_WIND_PERTURB 
     &        ((y(j)-ya(j))*temp2(i,INT(ya2(j)))+
./pkg/ebm/ebm_wind_perturb.F 118 EBM_WIND_PERTURB 
     &        (6.0-y(j)+ya(j))*temp2(i,INT(ya(j)))))
./pkg/ebm/ebm_wind_perturb.F 36 EBM_WIND_PERTURB 
      INTEGER i, j, bi, bj
./pkg/ebm/ebm_wind_perturb.F 61 EBM_WIND_PERTURB 
      DO i = 1-OLx, sNx+OLx
./pkg/ebm/ebm_wind_perturb.F 62 EBM_WIND_PERTURB 
         x(i) = 0.0
./pkg/ebm/ebm_wind_perturb.F 63 EBM_WIND_PERTURB 
         xa(i) = 0.0
./pkg/ebm/ebm_wind_perturb.F 64 EBM_WIND_PERTURB 
         xa2(i) =  0.0
./pkg/ebm/ebm_wind_perturb.F 66 EBM_WIND_PERTURB 
      DO i = 1-OLx, sNx+OLx
./pkg/ebm/ebm_wind_perturb.F 68 EBM_WIND_PERTURB 
         temp(i,j) = 0.0
./pkg/ebm/ebm_wind_perturb.F 69 EBM_WIND_PERTURB 
         temp2(i,j) = 0.0
./pkg/ebm/ebm_wind_perturb.F 83 EBM_WIND_PERTURB 
       DO i = iMin, iMax
./pkg/ebm/ebm_wind_perturb.F 84 EBM_WIND_PERTURB 
         temp(i,j) = 1.73*(2.0*temp(i,j) - 1.0)
./pkg/ebm/ebm_wind_perturb.F 89 EBM_WIND_PERTURB 
       DO i = iMin, iMax
./pkg/ebm/ebm_wind_perturb.F 90 EBM_WIND_PERTURB 
         x(i) = i
./pkg/ebm/ebm_wind_perturb.F 91 EBM_WIND_PERTURB 
         xa(i) = x(i) - MOD(x(i),10.0)
./pkg/ebm/ebm_wind_perturb.F 92 EBM_WIND_PERTURB 
         xa2(i) = xa(i)+10.0
./pkg/ebm/ebm_wind_perturb.F 93 EBM_WIND_PERTURB 
        if ( xa2(i) .gt. sNx+Olx ) then
./pkg/ebm/ebm_wind_perturb.F 94 EBM_WIND_PERTURB 
           xa2(i) = 0.0
./pkg/ebm/ebm_wind_perturb.F 96 EBM_WIND_PERTURB 
         temp2(i,j) = 0.1*( (x(i)-xa(i))*temp(INT(xa2(i)),j)+
./pkg/ebm/ebm_wind_perturb.F 97 EBM_WIND_PERTURB 
     &        (10.0-x(i)+xa(i))*temp(INT(xa(i)),j) )
./pkg/ebm/ebm_zonalmean.F 42 EBM_ZONALMEAN 
      INTEGER i, j, k, bi, bj
./pkg/ebm/ebm_zonalmean.F 63 EBM_ZONALMEAN 
         DO i=1,sNx
./pkg/ebm/ebm_zonalmean.F 65 EBM_ZONALMEAN 
     &           theta(i,j,k,bi,bj)
./pkg/ebm/ebm_zonalmean.F 67 EBM_ZONALMEAN 
     &         maskC(i,j,k,bi,bj)
./pkg/ecco/cost_argo_salt.F 163 COST_ARGO_SALT 
               do i = imin,imax
./pkg/ecco/cost_argo_salt.F 164 COST_ARGO_SALT 
                if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and.
./pkg/ecco/cost_argo_salt.F 165 COST_ARGO_SALT 
     $              (argosobs(i,j,k,bi,bj) .lt. spmax) .and.
./pkg/ecco/cost_argo_salt.F 167 COST_ARGO_SALT 
     $              (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then
./pkg/ecco/cost_argo_salt.F 169 COST_ARGO_SALT 
     &             wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_argo_salt.F 170 COST_ARGO_SALT 
     &             (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))*
./pkg/ecco/cost_argo_salt.F 171 COST_ARGO_SALT 
     &             (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))
./pkg/ecco/cost_argo_salt.F 172 COST_ARGO_SALT 
                 if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_argo_salt.F 50 COST_ARGO_SALT 
      integer i,j,k
./pkg/ecco/cost_argo_theta.F 166 COST_ARGO_THETA 
               do i = imin,imax
./pkg/ecco/cost_argo_theta.F 167 COST_ARGO_THETA 
                if( (argotobs(i,j,k,bi,bj) .ne. 0.).and.
./pkg/ecco/cost_argo_theta.F 168 COST_ARGO_THETA 
     &             (argotobs(i,j,k,bi,bj) .gt. spval).and.
./pkg/ecco/cost_argo_theta.F 169 COST_ARGO_THETA 
     &             (argotobs(i,j,k,bi,bj) .lt. spmax).and.
./pkg/ecco/cost_argo_theta.F 171 COST_ARGO_THETA 
     &             (_hFacC(i,j,k,bi,bj) .ne. 0.) )then
./pkg/ecco/cost_argo_theta.F 172 COST_ARGO_THETA 
                 tmpobs(i,j) = SW_PTMP(rl_35,
./pkg/ecco/cost_argo_theta.F 173 COST_ARGO_THETA 
     $             argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_argo_theta.F 175 COST_ARGO_THETA 
     &             wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_argo_theta.F 176 COST_ARGO_THETA 
     &             (tbar(i,j,k,bi,bj)-tmpobs(i,j))*
./pkg/ecco/cost_argo_theta.F 177 COST_ARGO_THETA 
     &             (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_argo_theta.F 178 COST_ARGO_THETA 
                 if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_argo_theta.F 50 COST_ARGO_THETA 
      integer i,j,k
./pkg/ecco/cost_atlantic.F 146 COST_ATLANTIC 
                do i =  imin,imax
./pkg/ecco/cost_atlantic.F 147 COST_ATLANTIC 
                   del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_atlantic.F 148 COST_ATLANTIC 
                   if(yc(i,j,bi,bj) .ge.ylat .and.
./pkg/ecco/cost_atlantic.F 149 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat+del_y.and.
./pkg/ecco/cost_atlantic.F 150 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon.and.
./pkg/ecco/cost_atlantic.F 151 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon.or.
./pkg/ecco/cost_atlantic.F 152 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat2 .and.
./pkg/ecco/cost_atlantic.F 153 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat2+del_y.and.
./pkg/ecco/cost_atlantic.F 154 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon2.and.
./pkg/ecco/cost_atlantic.F 155 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon2).or.
./pkg/ecco/cost_atlantic.F 156 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat3 .and.
./pkg/ecco/cost_atlantic.F 157 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat3+del_y.and.
./pkg/ecco/cost_atlantic.F 158 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon3.and.
./pkg/ecco/cost_atlantic.F 159 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon3)) then
./pkg/ecco/cost_atlantic.F 160 COST_ATLANTIC 
                       tv = tv+p5*(theta(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 161 COST_ATLANTIC 
     $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 162 COST_ATLANTIC 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_atlantic.F 163 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 189 COST_ATLANTIC 
                do i =  imin,imax
./pkg/ecco/cost_atlantic.F 190 COST_ATLANTIC 
                   del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_atlantic.F 191 COST_ATLANTIC 
                   if(yc(i,j,bi,bj) .ge.ylat .and.
./pkg/ecco/cost_atlantic.F 192 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat+del_y.and.
./pkg/ecco/cost_atlantic.F 193 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon.and.
./pkg/ecco/cost_atlantic.F 194 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon.or.
./pkg/ecco/cost_atlantic.F 195 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat2 .and.
./pkg/ecco/cost_atlantic.F 196 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat2+del_y.and.
./pkg/ecco/cost_atlantic.F 197 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon2.and.
./pkg/ecco/cost_atlantic.F 198 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon2).or.
./pkg/ecco/cost_atlantic.F 199 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat3 .and.
./pkg/ecco/cost_atlantic.F 200 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat3+del_y.and.
./pkg/ecco/cost_atlantic.F 201 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon3.and.
./pkg/ecco/cost_atlantic.F 202 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon3)) then
./pkg/ecco/cost_atlantic.F 204 COST_ATLANTIC 
     $                     +p5*(theta(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 205 COST_ATLANTIC 
     $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 206 COST_ATLANTIC 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_atlantic.F 207 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 58 COST_ATLANTIC 
      integer i,j,k
./pkg/ecco/cost_averagesfields.F 246 COST_AVERAGESFIELDS 
                do i =  imin,imax
./pkg/ecco/cost_averagesfields.F 247 COST_AVERAGESFIELDS 
                  ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 248 COST_AVERAGESFIELDS 
                  vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 259 COST_AVERAGESFIELDS 
                do i = imin,imax
./pkg/ecco/cost_averagesfields.F 260 COST_AVERAGESFIELDS 
                  ubar(i,j,k,bi,bj)  = (ubar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 261 COST_AVERAGESFIELDS 
     &                                  uVel(i,j,k,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 263 COST_AVERAGESFIELDS 
                  vbar(i,j,k,bi,bj)  = (vbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 264 COST_AVERAGESFIELDS 
     &                                  vVel(i,j,k,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 297 COST_AVERAGESFIELDS 
                do i =  imin,imax
./pkg/ecco/cost_averagesfields.F 298 COST_AVERAGESFIELDS 
                  ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 299 COST_AVERAGESFIELDS 
     &                                uVel (i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 300 COST_AVERAGESFIELDS 
                  vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 301 COST_AVERAGESFIELDS 
     &                                vVel (i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 319 COST_AVERAGESFIELDS 
                do i =  imin,imax
./pkg/ecco/cost_averagesfields.F 320 COST_AVERAGESFIELDS 
                  tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 321 COST_AVERAGESFIELDS 
                  tauybar(i,j,bi,bj) = vstress(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 330 COST_AVERAGESFIELDS 
                do i = imin,imax
./pkg/ecco/cost_averagesfields.F 331 COST_AVERAGESFIELDS 
                  tauxbar(i,j,bi,bj)  = (tauxbar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 332 COST_AVERAGESFIELDS 
     &                                  ustress(i,j,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 334 COST_AVERAGESFIELDS 
                  tauybar(i,j,bi,bj)  = (tauybar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 335 COST_AVERAGESFIELDS 
     &                                  vstress(i,j,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 365 COST_AVERAGESFIELDS 
                do i =  imin,imax
./pkg/ecco/cost_averagesfields.F 366 COST_AVERAGESFIELDS 
                  tauxbar(i,j,bi,bj) = tauxbar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 367 COST_AVERAGESFIELDS 
     &                                ustress (i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 368 COST_AVERAGESFIELDS 
                  tauybar(i,j,bi,bj) = tauybar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 369 COST_AVERAGESFIELDS 
     &                                vstress (i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 526 COST_AVERAGESFIELDS 
           do i =  imin,imax
./pkg/ecco/cost_averagesfields.F 527 COST_AVERAGESFIELDS 
            ig = myXGlobalLo-1+(bi-1)*sNx+i
./pkg/ecco/cost_averagesfields.F 530 COST_AVERAGESFIELDS 
     &              +vVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 531 COST_AVERAGESFIELDS 
     &              *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 66 COST_AVERAGESFIELDS 
      integer i,j,k
./pkg/ecco/cost_averagesgeneric.F 104 COST_AVERAGESGENERIC 
                do i = imin,imax
./pkg/ecco/cost_averagesgeneric.F 105 COST_AVERAGESGENERIC 
                  localbar(i,j,k,bi,bj) =
./pkg/ecco/cost_averagesgeneric.F 106 COST_AVERAGESGENERIC 
     &                  (localbar(i,j,k,bi,bj)
./pkg/ecco/cost_averagesgeneric.F 107 COST_AVERAGESGENERIC 
     &                  +localfld(i,j,k,bi,bj))/
./pkg/ecco/cost_averagesgeneric.F 134 COST_AVERAGESGENERIC 
                do i = imin,imax
./pkg/ecco/cost_averagesgeneric.F 135 COST_AVERAGESGENERIC 
                  localbar(i,j,k,bi,bj) =
./pkg/ecco/cost_averagesgeneric.F 136 COST_AVERAGESGENERIC 
     &                  localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj)
./pkg/ecco/cost_averagesgeneric.F 58 COST_AVERAGESGENERIC 
      integer i,j,k
./pkg/ecco/cost_averagesgeneric.F 91 COST_AVERAGESGENERIC 
                do i =  imin,imax
./pkg/ecco/cost_averagesgeneric.F 92 COST_AVERAGESGENERIC 
                  localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj)
./pkg/ecco/cost_averagesinit.F 111 COST_AVERAGESINIT 
              do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 112 COST_AVERAGESINIT 
                tbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 123 COST_AVERAGESINIT 
            do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 124 COST_AVERAGESINIT 
              tbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 136 COST_AVERAGESINIT 
            do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 137 COST_AVERAGESINIT 
              sstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 150 COST_AVERAGESINIT 
              do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 151 COST_AVERAGESINIT 
                sbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 162 COST_AVERAGESINIT 
            do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 163 COST_AVERAGESINIT 
              sbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 176 COST_AVERAGESINIT 
              do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 177 COST_AVERAGESINIT 
                ubar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 178 COST_AVERAGESINIT 
                vbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 190 COST_AVERAGESINIT 
              do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 191 COST_AVERAGESINIT 
                wbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 201 COST_AVERAGESINIT 
            do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 202 COST_AVERAGESINIT 
              tauxbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 203 COST_AVERAGESINIT 
              tauybar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 213 COST_AVERAGESINIT 
            do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 214 COST_AVERAGESINIT 
              hfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 223 COST_AVERAGESINIT 
            do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 224 COST_AVERAGESINIT 
              sfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 235 COST_AVERAGESINIT 
            do i =  imin,imax
./pkg/ecco/cost_averagesinit.F 236 COST_AVERAGESINIT 
              smrareabar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 237 COST_AVERAGESINIT 
              smrsstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 238 COST_AVERAGESINIT 
              smrsssbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 47 COST_AVERAGESINIT 
      integer i,j,k
./pkg/ecco/cost_averagesinit.F 72 COST_AVERAGESINIT 
              do i = imin,imax
./pkg/ecco/cost_averagesinit.F 73 COST_AVERAGESINIT 
                gencost_barfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 74 COST_AVERAGESINIT 
                gencost_modfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 84 COST_AVERAGESINIT 
            do i = imin,imax
./pkg/ecco/cost_averagesinit.F 85 COST_AVERAGESINIT 
              psbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 95 COST_AVERAGESINIT 
            do i = imin,imax
./pkg/ecco/cost_averagesinit.F 96 COST_AVERAGESINIT 
              bpbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 104 COST_BOTTOMDRAG 
              do i = imin,imax
./pkg/ecco/cost_bottomdrag.F 105 COST_BOTTOMDRAG 
                if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_bottomdrag.F 106 COST_BOTTOMDRAG 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F 109 COST_BOTTOMDRAG 
     &                 + wbottomdrag(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F 40 COST_BOTTOMDRAG 
      integer i,j,k
./pkg/ecco/cost_bp.F 102 COST_BP 
            do i = imin,imax
./pkg/ecco/cost_bp.F 103 COST_BP 
              bpdifmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 104 COST_BP 
              bpdifanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 105 COST_BP 
              bpdatmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 106 COST_BP 
              bpdatanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 107 COST_BP 
              bpcount(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 137 COST_BP 
              do i = imin,imax
./pkg/ecco/cost_bp.F 138 COST_BP 
      if (bpmask(i,j,bi,bj).NE.0.) then
./pkg/ecco/cost_bp.F 139 COST_BP 
                bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj) +
./pkg/ecco/cost_bp.F 140 COST_BP 
     &              ( fac*maskc(i,j,1,bi,bj)*bpbar(i,j,bi,bj)
./pkg/ecco/cost_bp.F 141 COST_BP 
     &              - bpdat(i,j,bi,bj) )
./pkg/ecco/cost_bp.F 142 COST_BP 
                bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj) +
./pkg/ecco/cost_bp.F 143 COST_BP 
     &                bpdat(i,j,bi,bj)
./pkg/ecco/cost_bp.F 144 COST_BP 
                bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) +1.
./pkg/ecco/cost_bp.F 156 COST_BP 
              do i = imin,imax
./pkg/ecco/cost_bp.F 157 COST_BP 
      if (bpcount(i,j,bi,bj).GT.0.) then
./pkg/ecco/cost_bp.F 158 COST_BP 
        bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj)/bpcount(i,j,bi,bj)
./pkg/ecco/cost_bp.F 159 COST_BP 
        bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj)/bpcount(i,j,bi,bj)
./pkg/ecco/cost_bp.F 183 COST_BP 
              do i = imin,imax
./pkg/ecco/cost_bp.F 184 COST_BP 
                bpdifanom(i,j,bi,bj) =
./pkg/ecco/cost_bp.F 185 COST_BP 
     &                      ( fac*maskc(i,j,1,bi,bj)*bpbar(i,j,bi,bj)
./pkg/ecco/cost_bp.F 186 COST_BP 
     &                      - bpdat(i,j,bi,bj) - bpdifmean(i,j,bi,bj)
./pkg/ecco/cost_bp.F 187 COST_BP 
     &                      )*bpmask(i,j,bi,bj)
./pkg/ecco/cost_bp.F 188 COST_BP 
                bpdatanom(i,j,bi,bj) =
./pkg/ecco/cost_bp.F 189 COST_BP 
     &                     ( bpdat(i,j,bi,bj) - bpdatmean(i,j,bi,bj)
./pkg/ecco/cost_bp.F 190 COST_BP 
     &                     )*bpmask(i,j,bi,bj)
./pkg/ecco/cost_bp.F 221 COST_BP 
              do i = imin,imax
./pkg/ecco/cost_bp.F 223 COST_BP 
                junkweight = wbp(i,j,bi,bj) *cosphi(i,j,bi,bj)
./pkg/ecco/cost_bp.F 224 COST_BP 
     &                      *bpmask(i,j,bi,bj)*maskc(i,j,1,bi,bj)
./pkg/ecco/cost_bp.F 225 COST_BP 
                junk       = bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F 56 COST_BP 
      integer i,j
./pkg/ecco/cost_bp_read.F 109 COST_BP_READ 
            do i = imin,imax
./pkg/ecco/cost_bp_read.F 115 COST_BP_READ 
              if (bpdat(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_bp_read.F 116 COST_BP_READ 
                bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp_read.F 118 COST_BP_READ 
                bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_bp_read.F 120 COST_BP_READ 
              bpdat(i,j,bi,bj) = bpdat(i,j,bi,bj)*
./pkg/ecco/cost_bp_read.F 121 COST_BP_READ 
     &                              bpmask(i,j,bi,bj)
./pkg/ecco/cost_bp_read.F 122 COST_BP_READ 
              nobs = nobs + int(bpmask(i,j,bi,bj))
./pkg/ecco/cost_bp_read.F 46 COST_BP_READ 
      integer i,j,k
./pkg/ecco/cost_ctds.F 156 COST_CTDS 
                do i = imin,imax
./pkg/ecco/cost_ctds.F 157 COST_CTDS 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctds.F 158 COST_CTDS 
                  if (ctdsobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_ctds.F 159 COST_CTDS 
     &                ctdsobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_ctds.F 160 COST_CTDS 
     &                ctdsobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_ctds.F 161 COST_CTDS 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctds.F 164 COST_CTDS 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctds.F 166 COST_CTDS 
                     www(i,j)    = cosphi(i,j,bi,bj)*cmask(i,j)
./pkg/ecco/cost_ctds.F 167 COST_CTDS 
                     tmpobs(i,j) = ctdsobs(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F 168 COST_CTDS 
                     tmpbar(i,j) = sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F 169 COST_CTDS 
                     wtmp(i,j) = wsalt2(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F 172 COST_CTDS 
     &                             (wtmp(i,j)*www(i,j))*
./pkg/ecco/cost_ctds.F 173 COST_CTDS 
     &                             (tmpbar(i,j)-tmpobs(i,j))*
./pkg/ecco/cost_ctds.F 174 COST_CTDS 
     &                             (tmpbar(i,j)-tmpobs(i,j))
./pkg/ecco/cost_ctds.F 175 COST_CTDS 
                     if ( wtmp(i,j)*www(i,j) .ne. 0. )
./pkg/ecco/cost_ctds.F 49 COST_CTDS 
      integer i,j,k
./pkg/ecco/cost_ctdsclim.F 135 COST_CTDSCLIM 
                        do i = imin,imax
./pkg/ecco/cost_ctdsclim.F 137 COST_CTDSCLIM 
                              sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 139 COST_CTDSCLIM 
                              sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 140 COST_CTDSCLIM 
     $                             +sbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdsclim.F 142 COST_CTDSCLIM 
                          sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 143 COST_CTDSCLIM 
     $                             +sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 178 COST_CTDSCLIM 
                do i = imin,imax
./pkg/ecco/cost_ctdsclim.F 179 COST_CTDSCLIM 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdsclim.F 180 COST_CTDSCLIM 
                  if (sdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdsclim.F 181 COST_CTDSCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 183 COST_CTDSCLIM 
                  if (sdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_ctdsclim.F 184 COST_CTDSCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 192 COST_CTDSCLIM 
                do i = imin,imax
./pkg/ecco/cost_ctdsclim.F 193 COST_CTDSCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdsclim.F 195 COST_CTDSCLIM 
     &                    (wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_ctdsclim.F 196 COST_CTDSCLIM 
     &                    cmask(i,j)*
./pkg/ecco/cost_ctdsclim.F 197 COST_CTDSCLIM 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))*
./pkg/ecco/cost_ctdsclim.F 198 COST_CTDSCLIM 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))   )
./pkg/ecco/cost_ctdsclim.F 61 COST_CTDSCLIM 
      integer i,j,k
./pkg/ecco/cost_ctdt.F 157 COST_CTDT 
                do i = imin,imax
./pkg/ecco/cost_ctdt.F 158 COST_CTDT 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdt.F 159 COST_CTDT 
                  if (ctdtobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_ctdt.F 160 COST_CTDT 
     &                ctdtobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_ctdt.F 161 COST_CTDT 
     &                ctdtobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_ctdt.F 162 COST_CTDT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdt.F 167 COST_CTDT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctdt.F 169 COST_CTDT 
                     www(i,j)    = cosphi(i,j,bi,bj)*cmask(i,j)
./pkg/ecco/cost_ctdt.F 170 COST_CTDT 
                     tmpobs(i,j) = ctdtobs(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F 171 COST_CTDT 
                     tmpbar(i,j) = tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F 172 COST_CTDT 
                     wtmp(i,j) = wtheta2(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F 176 COST_CTDT 
     &                             (wtmp(i,j)*www(i,j))*
./pkg/ecco/cost_ctdt.F 177 COST_CTDT 
     &                             (tmpbar(i,j)-tmpobs(i,j))*
./pkg/ecco/cost_ctdt.F 178 COST_CTDT 
     &                             (tmpbar(i,j)-tmpobs(i,j))
./pkg/ecco/cost_ctdt.F 179 COST_CTDT 
                     if ( wtmp(i,j)*www(i,j) .ne. 0. )
./pkg/ecco/cost_ctdt.F 50 COST_CTDT 
      integer i,j,k
./pkg/ecco/cost_ctdtclim.F 134 COST_CTDTCLIM 
                        do i = imin,imax
./pkg/ecco/cost_ctdtclim.F 136 COST_CTDTCLIM 
                              tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 138 COST_CTDTCLIM 
                              tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 139 COST_CTDTCLIM 
     $                             +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdtclim.F 141 COST_CTDTCLIM 
                          tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 142 COST_CTDTCLIM 
     $                             +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 177 COST_CTDTCLIM 
                do i = imin,imax
./pkg/ecco/cost_ctdtclim.F 178 COST_CTDTCLIM 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdtclim.F 179 COST_CTDTCLIM 
                  if (tdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdtclim.F 180 COST_CTDTCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 183 COST_CTDTCLIM 
                  if (tdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_ctdtclim.F 184 COST_CTDTCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 192 COST_CTDTCLIM 
                do i = imin,imax
./pkg/ecco/cost_ctdtclim.F 193 COST_CTDTCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdtclim.F 195 COST_CTDTCLIM 
     &                  (wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_ctdtclim.F 196 COST_CTDTCLIM 
     &                    cmask(i,j)*
./pkg/ecco/cost_ctdtclim.F 197 COST_CTDTCLIM 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_ctdtclim.F 198 COST_CTDTCLIM 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))      )
./pkg/ecco/cost_ctdtclim.F 61 COST_CTDTCLIM 
      integer i,j,k
./pkg/ecco/cost_curmtr.F 166 COST_CURMTR 
                do i = imin,imax
./pkg/ecco/cost_curmtr.F 167 COST_CURMTR 
                  umask(i,j) = 1. _d 0
./pkg/ecco/cost_curmtr.F 168 COST_CURMTR 
                  vmask(i,j) = 1. _d 0
./pkg/ecco/cost_curmtr.F 169 COST_CURMTR 
                  if (curmtruobs(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 170 COST_CURMTR 
                    umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 173 COST_CURMTR 
                  if (curmtrvobs(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 174 COST_CURMTR 
                    vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 177 COST_CURMTR 
                  if (curmtruobs(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_curmtr.F 178 COST_CURMTR 
                    umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 181 COST_CURMTR 
                  if (curmtrvobs(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_curmtr.F 182 COST_CURMTR 
                    vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 197 COST_CURMTR 
                  if (_hFacW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 198 COST_CURMTR 
                    umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 201 COST_CURMTR 
                  if (_hFacS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 202 COST_CURMTR 
                    vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 209 COST_CURMTR 
                do i = imin,imax
./pkg/ecco/cost_curmtr.F 210 COST_CURMTR 
                  wwwu(i,j)    = cosphi(i,j,bi,bj)*umask(i,j)
./pkg/ecco/cost_curmtr.F 211 COST_CURMTR 
                  wwwv(i,j)    = cosphi(i,j,bi,bj)*vmask(i,j)
./pkg/ecco/cost_curmtr.F 213 COST_CURMTR 
                  tmpuobs(i,j) = curmtruobs(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 214 COST_CURMTR 
                  tmpubar(i,j) = ubar(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 216 COST_CURMTR 
                  tmpvobs(i,j) = curmtrvobs(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 217 COST_CURMTR 
                  tmpvbar(i,j) = vbar(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 221 COST_CURMTR 
                  if ( (i.eq.5) .and. (j.eq.13)) then
./pkg/ecco/cost_curmtr.F 222 COST_CURMTR 
         tmpubar(i,j) = ubar(5,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 223 COST_CURMTR 
         tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 226 COST_CURMTR 
                  if ( (i .eq. 11) .and. (j .eq. 13)) then
./pkg/ecco/cost_curmtr.F 227 COST_CURMTR 
         tmpubar(i,j) = ubar(11,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 228 COST_CURMTR 
         tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 231 COST_CURMTR 
                  if ( (i .eq. 8) .and. (j .eq. 9)) then
./pkg/ecco/cost_curmtr.F 232 COST_CURMTR 
         tmpubar(i,j) = (ubar(7,8,k,bi,bj) + ubar(8,8,k,bi,bj)
./pkg/ecco/cost_curmtr.F 234 COST_CURMTR 
         tmpvbar(i,j) = vbar(7,9,k,bi,bj)
./pkg/ecco/cost_curmtr.F 236 COST_CURMTR 
                  if ( (i .eq. 5) .and. (j .eq. 5)) then
./pkg/ecco/cost_curmtr.F 237 COST_CURMTR 
         tmpubar(i,j) = (ubar(5,4,k,bi,bj) + ubar(5,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 238 COST_CURMTR 
         tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 240 COST_CURMTR 
                  if ( (i .eq. 11) .and. (j .eq. 5)) then
./pkg/ecco/cost_curmtr.F 241 COST_CURMTR 
         tmpubar(i,j) = (ubar(11,4,k,bi,bj)+ubar(11,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 242 COST_CURMTR 
         tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 247 COST_CURMTR 
                  wu(i,j) = wcurrent2(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 248 COST_CURMTR 
                  wv(i,j) = wcurrent2(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 254 COST_CURMTR 
                do i = imin,imax
./pkg/ecco/cost_curmtr.F 265 COST_CURMTR 
                  if (tmpubar(i,j) .ne. 0.) then
./pkg/ecco/cost_curmtr.F 267 COST_CURMTR 
     &                             (wu(i,j)*wwwu(i,j))*
./pkg/ecco/cost_curmtr.F 268 COST_CURMTR 
     &                             (tmpubar(i,j)-tmpuobs(i,j))*
./pkg/ecco/cost_curmtr.F 269 COST_CURMTR 
     &                             (tmpubar(i,j)-tmpuobs(i,j))
./pkg/ecco/cost_curmtr.F 270 COST_CURMTR 
                    if ( wu(i,j)*wwwu(i,j)) .ne. 0. )
./pkg/ecco/cost_curmtr.F 275 COST_CURMTR 
                  if (tmpvbar(i,j) .ne. 0.) then
./pkg/ecco/cost_curmtr.F 277 COST_CURMTR 
     &                             (wv(i,j)*wwwv(i,j))*
./pkg/ecco/cost_curmtr.F 278 COST_CURMTR 
     &                             (tmpvbar(i,j)-tmpvobs(i,j))*
./pkg/ecco/cost_curmtr.F 279 COST_CURMTR 
     &                             (tmpvbar(i,j)-tmpvobs(i,j))
./pkg/ecco/cost_curmtr.F 280 COST_CURMTR 
                    if ( wv(i,j)*wwwv(i,j)) .ne. 0. )
./pkg/ecco/cost_curmtr.F 50 COST_CURMTR 
      integer i,j,k
./pkg/ecco/cost_diffkr.F 105 COST_DIFFKR 
              do i = imin,imax
./pkg/ecco/cost_diffkr.F 106 COST_DIFFKR 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_diffkr.F 108 COST_DIFFKR 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F 111 COST_DIFFKR 
     &                 + wdiffkrFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_diffkr.F 40 COST_DIFFKR 
      integer i,j,k
./pkg/ecco/cost_drift.F 123 COST_DRIFT 
              do i = imin,imax
./pkg/ecco/cost_drift.F 124 COST_DRIFT 
                Tfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 125 COST_DRIFT 
                Sfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 126 COST_DRIFT 
                Tlmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 127 COST_DRIFT 
                Slmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 160 COST_DRIFT 
                do i = imin,imax
./pkg/ecco/cost_drift.F 161 COST_DRIFT 
                  Tfmean(i,j,k,bi,bj) = Tfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 162 COST_DRIFT 
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 163 COST_DRIFT 
                  Sfmean(i,j,k,bi,bj) = Sfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 164 COST_DRIFT 
     &                  sbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 192 COST_DRIFT 
                do i = imin,imax
./pkg/ecco/cost_drift.F 193 COST_DRIFT 
                  Tlmean(i,j,k,bi,bj) = Tlmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 194 COST_DRIFT 
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 195 COST_DRIFT 
                  Slmean(i,j,k,bi,bj) = Slmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 196 COST_DRIFT 
     &                  sbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 215 COST_DRIFT 
             do i = imin,imax
./pkg/ecco/cost_drift.F 216 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 218 COST_DRIFT 
     &                  (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F 220 COST_DRIFT 
     &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F 221 COST_DRIFT 
     &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F 223 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_drift.F 224 COST_DRIFT 
     &                  (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F 226 COST_DRIFT 
     &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F 227 COST_DRIFT 
     &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F 229 COST_DRIFT 
                     if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_drift.F 233 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_drift.F 245 COST_DRIFT 
             do i = imin,imax
./pkg/ecco/cost_drift.F 246 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 248 COST_DRIFT 
     &                  (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F 250 COST_DRIFT 
     &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F 251 COST_DRIFT 
     &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F 253 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_drift.F 254 COST_DRIFT 
     &                  (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F 256 COST_DRIFT 
     &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F 257 COST_DRIFT 
     &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F 259 COST_DRIFT 
                     if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_drift.F 263 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_drift.F 52 COST_DRIFT 
      integer i,j,k
./pkg/ecco/cost_drifter.F 159 COST_DRIFTER 
           do i = imin,imax
./pkg/ecco/cost_drifter.F 161 COST_DRIFTER 
               udmod(i,j,bi,bj)=ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 162 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 164 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 165 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 167 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)+ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 168 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)+vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 189 COST_DRIFTER 
            do i = imin,imax
./pkg/ecco/cost_drifter.F 190 COST_DRIFTER 
               mask13c(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_drifter.F 191 COST_DRIFTER 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.)
./pkg/ecco/cost_drifter.F 192 COST_DRIFTER 
     &              mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 202 COST_DRIFTER 
               if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_drifter.F 203 COST_DRIFTER 
                  mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 212 COST_DRIFTER 
           do i = i6min,imax-5,6
./pkg/ecco/cost_drifter.F 213 COST_DRIFTER 
             masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F 214 COST_DRIFTER 
     &           (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 215 COST_DRIFTER 
     &           +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 216 COST_DRIFTER 
     &           +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 217 COST_DRIFTER 
     &           +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 218 COST_DRIFTER 
     &           +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 219 COST_DRIFTER 
     &           +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F 220 COST_DRIFTER 
             if ( masktmp(i,j,bi,bj) .eq. 0.0 ) then
./pkg/ecco/cost_drifter.F 221 COST_DRIFTER 
                u6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F 223 COST_DRIFTER 
                u6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F 224 COST_DRIFTER 
     &                  udmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 225 COST_DRIFTER 
     &                + udmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 226 COST_DRIFTER 
     &                + udmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F 227 COST_DRIFTER 
     &                + udmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 228 COST_DRIFTER 
     &                + udmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F 229 COST_DRIFTER 
     &                + udmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 230 COST_DRIFTER 
     &                + udmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 231 COST_DRIFTER 
     &                + udmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 232 COST_DRIFTER 
     &                + udmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 233 COST_DRIFTER 
     &                + udmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 234 COST_DRIFTER 
     &                + udmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 235 COST_DRIFTER 
     &                + udmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F 236 COST_DRIFTER 
     &             / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F 242 COST_DRIFTER 
           do i = i6min,imax-5,6
./pkg/ecco/cost_drifter.F 243 COST_DRIFTER 
             masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F 244 COST_DRIFTER 
     &             (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 245 COST_DRIFTER 
     &             +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 246 COST_DRIFTER 
     &             +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 247 COST_DRIFTER 
     &             +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 248 COST_DRIFTER 
     &             +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 249 COST_DRIFTER 
     &             +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F 250 COST_DRIFTER 
             if ( masktmp(i,j,bi,bj) .eq.0.0 ) then
./pkg/ecco/cost_drifter.F 251 COST_DRIFTER 
                v6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F 253 COST_DRIFTER 
                v6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F 254 COST_DRIFTER 
     &                  vdmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 255 COST_DRIFTER 
     &                + vdmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 256 COST_DRIFTER 
     &                + vdmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F 257 COST_DRIFTER 
     &                + vdmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 258 COST_DRIFTER 
     &                + vdmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F 259 COST_DRIFTER 
     &                + vdmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 260 COST_DRIFTER 
     &                + vdmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 261 COST_DRIFTER 
     &                + vdmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 262 COST_DRIFTER 
     &                + vdmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 263 COST_DRIFTER 
     &                + vdmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 264 COST_DRIFTER 
     &                + vdmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 265 COST_DRIFTER 
     &                + vdmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F 266 COST_DRIFTER 
     &             / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F 272 COST_DRIFTER 
           do i = i6min,imax-5, 6
./pkg/ecco/cost_drifter.F 274 COST_DRIFTER 
              uddat(i,j,bi,bj) = 0.01*udriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 275 COST_DRIFTER 
              vddat(i,j,bi,bj) = 0.01*vdriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 277 COST_DRIFTER 
              wud(i,j,bi,bj) = 1e4*max(wudrift(i,j,bi,bj),5.D0)**(-2)
./pkg/ecco/cost_drifter.F 278 COST_DRIFTER 
              wvd(i,j,bi,bj) = 1e4*max(wvdrift(i,j,bi,bj),5.D0)**(-2)
./pkg/ecco/cost_drifter.F 281 COST_DRIFTER 
              mask6c(i,j,bi,bj) = 1.0
./pkg/ecco/cost_drifter.F 282 COST_DRIFTER 
              if ( uddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 283 COST_DRIFTER 
              if ( abs(uddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 284 COST_DRIFTER 
              if ( vddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 285 COST_DRIFTER 
              if ( abs(vddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 301 COST_DRIFTER 
            do i = i6min,imax-5, 6
./pkg/ecco/cost_drifter.F 303 COST_DRIFTER 
     &              + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 304 COST_DRIFTER 
     &                 mask6c(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 305 COST_DRIFTER 
     &                (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))*
./pkg/ecco/cost_drifter.F 306 COST_DRIFTER 
     &                (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))   )
./pkg/ecco/cost_drifter.F 307 COST_DRIFTER 
     &              + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 308 COST_DRIFTER 
     &                 mask6c(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 309 COST_DRIFTER 
     &                (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))*
./pkg/ecco/cost_drifter.F 310 COST_DRIFTER 
     &                (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))   )
./pkg/ecco/cost_drifter.F 311 COST_DRIFTER 
               if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_drifter.F 312 COST_DRIFTER 
                  if ( wud(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F 314 COST_DRIFTER 
                  if ( wvd(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F 62 COST_DRIFTER 
      integer i,j,k
./pkg/ecco/cost_driftw.F 109 COST_DRIFTW 
              do i = imin,imax
./pkg/ecco/cost_driftw.F 110 COST_DRIFTW 
                wfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_driftw.F 111 COST_DRIFTW 
                wlmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_driftw.F 139 COST_DRIFTW 
                do i = imin,imax
./pkg/ecco/cost_driftw.F 140 COST_DRIFTW 
                  wfmean(i,j,k,bi,bj) = wfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_driftw.F 141 COST_DRIFTW 
     &                  wbar(i,j,k,bi,bj)
./pkg/ecco/cost_driftw.F 164 COST_DRIFTW 
                do i = imin,imax
./pkg/ecco/cost_driftw.F 165 COST_DRIFTW 
                  wlmean(i,j,k,bi,bj) = wlmean(i,j,k,bi,bj) +
./pkg/ecco/cost_driftw.F 166 COST_DRIFTW 
     &                  wbar(i,j,k,bi,bj)
./pkg/ecco/cost_driftw.F 187 COST_DRIFTW 
             do i = imin,imax
./pkg/ecco/cost_driftw.F 188 COST_DRIFTW 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_driftw.F 190 COST_DRIFTW 
     &                  (2.5e11*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_driftw.F 191 COST_DRIFTW 
     &          (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_driftw.F 192 COST_DRIFTW 
     &          (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_driftw.F 193 COST_DRIFTW 
                     if ( cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_driftw.F 55 COST_DRIFTW 
      integer i,j,k
./pkg/ecco/cost_forcing_gen.F 137 COST_FORCING_GEN 
            do i = imin,imax
./pkg/ecco/cost_forcing_gen.F 138 COST_FORCING_GEN 
              xx_mean(i,j,bi,bj)   = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 161 COST_FORCING_GEN 
              do i = imin,imax
./pkg/ecco/cost_forcing_gen.F 162 COST_FORCING_GEN 
                xx_mean(i,j,bi,bj) = xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 163 COST_FORCING_GEN 
     &                + tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 180 COST_FORCING_GEN 
          do i = imin,imax
./pkg/ecco/cost_forcing_gen.F 181 COST_FORCING_GEN 
            xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 182 COST_FORCING_GEN 
     &            = xx_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_forcing_gen.F 183 COST_FORCING_GEN 
            tmpx = xx_mean(i,j,bi,bj)/wmean_gen
./pkg/ecco/cost_forcing_gen.F 184 COST_FORCING_GEN 
            if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F 185 COST_FORCING_GEN 
              if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F 186 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 187 COST_FORCING_GEN 
              fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 188 COST_FORCING_GEN 
              if ( cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F 214 COST_FORCING_GEN 
              do i = imin,imax
./pkg/ecco/cost_forcing_gen.F 215 COST_FORCING_GEN 
                if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F 217 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 220 COST_FORCING_GEN 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F 221 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 223 COST_FORCING_GEN 
     &                 + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 226 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 229 COST_FORCING_GEN 
                  if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F 264 COST_FORCING_GEN 
              do i = imin,imax
./pkg/ecco/cost_forcing_gen.F 265 COST_FORCING_GEN 
                if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F 267 COST_FORCING_GEN 
     &                 ( tmpfld2d(i+2,j,bi,bj)-tmpfld2d(i+1,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 268 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 269 COST_FORCING_GEN 
     &               + ( tmpfld2d(i+1,j,bi,bj)-tmpfld2d(i,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 270 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 271 COST_FORCING_GEN 
     &               + ( tmpfld2d(i,j+2,bi,bj)-tmpfld2d(i,j+1,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 272 COST_FORCING_GEN 
     &                   *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 273 COST_FORCING_GEN 
     &               + ( tmpfld2d(i,j+1,bi,bj)-tmpfld2d(i,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 274 COST_FORCING_GEN 
     &                   *maskS(i,j+1,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 275 COST_FORCING_GEN 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F 276 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 278 COST_FORCING_GEN 
     &               + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 281 COST_FORCING_GEN 
                  if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F 77 COST_FORCING_GEN 
      integer i,j,kk
./pkg/ecco/cost_gencost_all.F 42 COST_GENCOST_ALL 
      integer i,j,k
./pkg/ecco/cost_gencost_customize.F 34 COST_GENCOST_CUSTOMIZE 
      integer i,j
./pkg/ecco/cost_gencost_customize.F 54 COST_GENCOST_CUSTOMIZE 
         do i =  imin,imax
./pkg/ecco/cost_gencost_customize.F 58 COST_GENCOST_CUSTOMIZE 
          gencost_modfld(i,j,bi,bj,1) = empmr(i,j,bi,bj)
./pkg/ecco/cost_generic.F 141 COST_GENERIC 
              do i = imin,imax
./pkg/ecco/cost_generic.F 142 COST_GENERIC 
                localobs(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 154 COST_GENERIC 
              do i = 1-olx,snx+olx
./pkg/ecco/cost_generic.F 156 COST_GENERIC 
         localmask(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F 158 COST_GENERIC 
         localmask(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F 160 COST_GENERIC 
         localmask(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F 247 COST_GENERIC 
                  do i = imin,imax
./pkg/ecco/cost_generic.F 248 COST_GENERIC 
                     localobs(i,j,k,bi,bj) = spval
./pkg/ecco/cost_generic.F 265 COST_GENERIC 
              do i = imin,imax
./pkg/ecco/cost_generic.F 266 COST_GENERIC 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F 267 COST_GENERIC 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/cost_generic.F 268 COST_GENERIC 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/cost_generic.F 269 COST_GENERIC 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/cost_generic.F 270 COST_GENERIC 
                   cmask(i,j,k) = 0. _d 0
./pkg/ecco/cost_generic.F 278 COST_GENERIC 
              do i = imin,imax
./pkg/ecco/cost_generic.F 279 COST_GENERIC 
                localwww  = localweight(i,j,k,bi,bj)*cmask(i,j,k)
./pkg/ecco/cost_generic.F 280 COST_GENERIC 
                junk      = ( localbar(i,j,k,bi,bj) -
./pkg/ecco/cost_generic.F 281 COST_GENERIC 
     &                        localobs(i,j,k,bi,bj) )
./pkg/ecco/cost_generic.F 75 COST_GENERIC 
      integer i,j,k
./pkg/ecco/cost_geoid.F 112 COST_GEOID 
         do i = 1,ncShc
./pkg/ecco/cost_geoid.F 113 COST_GEOID 
            factor = factor + pinv(i)*shc(i)*recip_rr
./pkg/ecco/cost_geoid.F 62 COST_GEOID 
      integer i,j
./pkg/ecco/cost_geoid.F 82 COST_GEOID 
      do i=1,ncShc
./pkg/ecco/cost_geoid.F 83 COST_GEOID 
         pinv(i) = 0. _d 0
./pkg/ecco/cost_kapgm.F 108 COST_KAPGM 
              do i = imin,imax
./pkg/ecco/cost_kapgm.F 109 COST_KAPGM 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapgm.F 111 COST_KAPGM 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F 114 COST_KAPGM 
     &                 + wkapgmFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_kapgm.F 43 COST_KAPGM 
      integer i,j,k
./pkg/ecco/cost_kapredi.F 108 COST_KAPREDI 
              do i = imin,imax
./pkg/ecco/cost_kapredi.F 109 COST_KAPREDI 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapredi.F 111 COST_KAPREDI 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapredi.F 114 COST_KAPREDI 
     &                 + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_kapredi.F 43 COST_KAPREDI 
      integer i,j,k
./pkg/ecco/cost_mean_heatflux.F 114 COST_MEAN_HEATFLUX 
              do i = imin,imax
./pkg/ecco/cost_mean_heatflux.F 115 COST_MEAN_HEATFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 116 COST_MEAN_HEATFLUX 
                if (maskC(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_mean_heatflux.F 118 COST_MEAN_HEATFLUX 
     &                + tmpx* _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 120 COST_MEAN_HEATFLUX 
     &                + _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 50 COST_MEAN_HEATFLUX 
      integer i,j,kk
./pkg/ecco/cost_mean_saltflux.F 114 COST_MEAN_SALTFLUX 
              do i = imin,imax
./pkg/ecco/cost_mean_saltflux.F 115 COST_MEAN_SALTFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 116 COST_MEAN_SALTFLUX 
                if (maskC(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_mean_saltflux.F 118 COST_MEAN_SALTFLUX 
     &                + tmpx* _rA(i,j,bi,bj)/rhoConstFresh
./pkg/ecco/cost_mean_saltflux.F 120 COST_MEAN_SALTFLUX 
     &                + _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 50 COST_MEAN_SALTFLUX 
      integer i,j,kk
./pkg/ecco/cost_obcs_ageos.F 154 COST_OBCS_AGEOS 
            do i = 1-olx,snx+olx
./pkg/ecco/cost_obcs_ageos.F 155 COST_OBCS_AGEOS 
              maskxzageos(i,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 156 COST_OBCS_AGEOS 
              xzdvel1(i,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 157 COST_OBCS_AGEOS 
              xzdvel2(i,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 158 COST_OBCS_AGEOS 
              xzgrdrho(i,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 173 COST_OBCS_AGEOS 
            do i = 1-olx,snx+olx
./pkg/ecco/cost_obcs_ageos.F 174 COST_OBCS_AGEOS 
              rholoc(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 221 COST_OBCS_AGEOS 
              do i = imin, imax
./pkg/ecco/cost_obcs_ageos.F 222 COST_OBCS_AGEOS 
                j = ob_jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 225 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) = 0.
./pkg/ecco/cost_obcs_ageos.F 227 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 228 COST_OBCS_AGEOS 
     &       hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 229 COST_OBCS_AGEOS 
     &       hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 230 COST_OBCS_AGEOS 
     &       hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 231 COST_OBCS_AGEOS 
     &       hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 250 COST_OBCS_AGEOS 
              do i = imin, imax
./pkg/ecco/cost_obcs_ageos.F 251 COST_OBCS_AGEOS 
                j = ob_jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 252 COST_OBCS_AGEOS 
                  xzgrdrho(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 253 COST_OBCS_AGEOS 
     &            (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 254 COST_OBCS_AGEOS 
     &            /(2.*dxc(i,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 262 COST_OBCS_AGEOS 
              do i = imin,imax
./pkg/ecco/cost_obcs_ageos.F 263 COST_OBCS_AGEOS 
                j = ob_jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 264 COST_OBCS_AGEOS 
                  xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 265 COST_OBCS_AGEOS 
     &                               - vbar(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 266 COST_OBCS_AGEOS 
                 xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 267 COST_OBCS_AGEOS 
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 271 COST_OBCS_AGEOS 
     &            maskxzageos(i,k,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 272 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 273 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 274 COST_OBCS_AGEOS 
      if (maskxzageos(i,k,bi,bj) .ne. 0) then
./pkg/ecco/cost_obcs_ageos.F 288 COST_OBCS_AGEOS 
              do i = imin, imax
./pkg/ecco/cost_obcs_ageos.F 289 COST_OBCS_AGEOS 
                j = ob_js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 291 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) = 0.
./pkg/ecco/cost_obcs_ageos.F 294 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 295 COST_OBCS_AGEOS 
     &       hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 296 COST_OBCS_AGEOS 
     &       hfacC(i-1,j+jp1,k,bi,bj)*hfacC(i,j+jp1,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 297 COST_OBCS_AGEOS 
     &       hfacC(i-1,j+jp1,k+1,bi,bj)*hfacC(i+1,j+jp1,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 298 COST_OBCS_AGEOS 
     &       hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 315 COST_OBCS_AGEOS 
               do i = imin, imax
./pkg/ecco/cost_obcs_ageos.F 316 COST_OBCS_AGEOS 
                 j = ob_js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 317 COST_OBCS_AGEOS 
                 xzgrdrho(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 318 COST_OBCS_AGEOS 
     &            (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 319 COST_OBCS_AGEOS 
     &            /(2.*dxc(i,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 325 COST_OBCS_AGEOS 
               do i = imin,imax
./pkg/ecco/cost_obcs_ageos.F 326 COST_OBCS_AGEOS 
                 j = ob_js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 328 COST_OBCS_AGEOS 
                 xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 329 COST_OBCS_AGEOS 
     &                               - vbar(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 332 COST_OBCS_AGEOS 
                 xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 333 COST_OBCS_AGEOS 
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 338 COST_OBCS_AGEOS 
     &          maskxzageos(i,k,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 339 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 340 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 353 COST_OBCS_AGEOS 
                i = ob_iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 355 COST_OBCS_AGEOS 
                if (i.eq. 0) then
./pkg/ecco/cost_obcs_ageos.F 359 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 360 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 361 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 362 COST_OBCS_AGEOS 
     &       hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 379 COST_OBCS_AGEOS 
                i = ob_iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 382 COST_OBCS_AGEOS 
     &            (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 383 COST_OBCS_AGEOS 
     &            /(2.*dyc(i+ip1,j,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 390 COST_OBCS_AGEOS 
                i = ob_iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 392 COST_OBCS_AGEOS 
                yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 393 COST_OBCS_AGEOS 
     &                               - ubar(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 416 COST_OBCS_AGEOS 
                i = ob_ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 417 COST_OBCS_AGEOS 
                if (i.eq.0) then
./pkg/ecco/cost_obcs_ageos.F 422 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 423 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j-1,k,bi,bj)*hfacC(i+ip1,j,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 424 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j-1,k+1,bi,bj)*hfacC(i+ip1,j+1,k+1,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 425 COST_OBCS_AGEOS 
     &       hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 442 COST_OBCS_AGEOS 
                i = ob_ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 445 COST_OBCS_AGEOS 
     &            (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 446 COST_OBCS_AGEOS 
     &            /(2.*dyc(i+ip1,j,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 453 COST_OBCS_AGEOS 
                i = ob_ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 455 COST_OBCS_AGEOS 
                yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 456 COST_OBCS_AGEOS 
     &                             - ubar(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 57 COST_OBCS_AGEOS 
      integer i,j,k
./pkg/ecco/cost_obcse.F 129 COST_OBCSE 
                  i = OB_Ie(J,bi,bj)
./pkg/ecco/cost_obcse.F 130 COST_OBCSE 
                  if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcse.F 132 COST_OBCSE 
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 133 COST_OBCSE 
     &                    (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))*
./pkg/ecco/cost_obcse.F 134 COST_OBCSE 
     &                    (tbar(i,j,k,bi,bj) - OBEt(j,k,bi,bj))
./pkg/ecco/cost_obcse.F 166 COST_OBCSE 
                  i = OB_Ie(J,bi,bj)
./pkg/ecco/cost_obcse.F 167 COST_OBCSE 
                  if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcse.F 169 COST_OBCSE 
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 170 COST_OBCSE 
     &                    (sbar(i,j,k,bi,bj) - OBEs(j,k,bi,bj))*
./pkg/ecco/cost_obcse.F 171 COST_OBCSE 
     &                    (sbar(i,j,k,bi,bj) - OBEs(j,k,bi,bj))
./pkg/ecco/cost_obcse.F 202 COST_OBCSE 
                  i = OB_Ie(J,bi,bj)
./pkg/ecco/cost_obcse.F 203 COST_OBCSE 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcse.F 205 COST_OBCSE 
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 206 COST_OBCSE 
     &                    (ubar(i,j,k,bi,bj) - OBEu(j,k,bi,bj))*
./pkg/ecco/cost_obcse.F 207 COST_OBCSE 
     &                    (ubar(i,j,k,bi,bj) - OBEu(j,k,bi,bj))
./pkg/ecco/cost_obcse.F 239 COST_OBCSE 
                  i = OB_Ie(J,bi,bj)
./pkg/ecco/cost_obcse.F 240 COST_OBCSE 
                  if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcse.F 242 COST_OBCSE 
     &                    wobcse(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcse.F 243 COST_OBCSE 
     &                    (vbar(i,j,k,bi,bj) - OBEv(j,k,bi,bj))*
./pkg/ecco/cost_obcse.F 244 COST_OBCSE 
     &                    (vbar(i,j,k,bi,bj) - OBEv(j,k,bi,bj))
./pkg/ecco/cost_obcse.F 53 COST_OBCSE 
      integer i,j,k
./pkg/ecco/cost_obcsn.F 128 COST_OBCSN 
               do i = imin,imax
./pkg/ecco/cost_obcsn.F 130 COST_OBCSN 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsn.F 132 COST_OBCSN 
     &                    wobcsn(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsn.F 133 COST_OBCSN 
     &                    (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))*
./pkg/ecco/cost_obcsn.F 134 COST_OBCSN 
     &                    (tbar(i,j,k,bi,bj) - OBNt(i,k,bi,bj))
./pkg/ecco/cost_obcsn.F 165 COST_OBCSN 
               do i = imin,imax
./pkg/ecco/cost_obcsn.F 167 COST_OBCSN 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsn.F 169 COST_OBCSN 
     &                    wobcsn(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsn.F 170 COST_OBCSN 
     &                    (sbar(i,j,k,bi,bj) - OBNs(i,k,bi,bj))*
./pkg/ecco/cost_obcsn.F 171 COST_OBCSN 
     &                    (sbar(i,j,k,bi,bj) - OBNs(i,k,bi,bj))
./pkg/ecco/cost_obcsn.F 201 COST_OBCSN 
               do i = imin,imax
./pkg/ecco/cost_obcsn.F 203 COST_OBCSN 
                  if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsn.F 205 COST_OBCSN 
     &                    wobcsn(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsn.F 206 COST_OBCSN 
     &                    (ubar(i,j,k,bi,bj) - OBNu(i,k,bi,bj))*
./pkg/ecco/cost_obcsn.F 207 COST_OBCSN 
     &                    (ubar(i,j,k,bi,bj) - OBNu(i,k,bi,bj))
./pkg/ecco/cost_obcsn.F 238 COST_OBCSN 
               do i = imin,imax
./pkg/ecco/cost_obcsn.F 240 COST_OBCSN 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsn.F 242 COST_OBCSN 
     &                    wobcsn(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsn.F 243 COST_OBCSN 
     &                    (vbar(i,j,k,bi,bj) - OBNv(i,k,bi,bj))*
./pkg/ecco/cost_obcsn.F 244 COST_OBCSN 
     &                    (vbar(i,j,k,bi,bj) - OBNv(i,k,bi,bj))
./pkg/ecco/cost_obcsn.F 53 COST_OBCSN 
      integer i,j,k
./pkg/ecco/cost_obcss.F 128 COST_OBCSS 
               do i = imin,imax
./pkg/ecco/cost_obcss.F 130 COST_OBCSS 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcss.F 132 COST_OBCSS 
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcss.F 133 COST_OBCSS 
     &                    (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))*
./pkg/ecco/cost_obcss.F 134 COST_OBCSS 
     &                    (tbar(i,j,k,bi,bj) - OBSt(i,k,bi,bj))
./pkg/ecco/cost_obcss.F 165 COST_OBCSS 
               do i = imin,imax
./pkg/ecco/cost_obcss.F 167 COST_OBCSS 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcss.F 169 COST_OBCSS 
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcss.F 170 COST_OBCSS 
     &                    (sbar(i,j,k,bi,bj) - OBSs(i,k,bi,bj))*
./pkg/ecco/cost_obcss.F 171 COST_OBCSS 
     &                    (sbar(i,j,k,bi,bj) - OBSs(i,k,bi,bj))
./pkg/ecco/cost_obcss.F 201 COST_OBCSS 
               do i = imin,imax
./pkg/ecco/cost_obcss.F 203 COST_OBCSS 
                  if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcss.F 205 COST_OBCSS 
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcss.F 206 COST_OBCSS 
     &                    (ubar(i,j,k,bi,bj) - OBSu(i,k,bi,bj))*
./pkg/ecco/cost_obcss.F 207 COST_OBCSS 
     &                    (ubar(i,j,k,bi,bj) - OBSu(i,k,bi,bj))
./pkg/ecco/cost_obcss.F 238 COST_OBCSS 
               do i = imin,imax
./pkg/ecco/cost_obcss.F 240 COST_OBCSS 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcss.F 242 COST_OBCSS 
     &                    wobcss(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcss.F 243 COST_OBCSS 
     &                    (vbar(i,j,k,bi,bj) - OBSv(i,k,bi,bj))*
./pkg/ecco/cost_obcss.F 244 COST_OBCSS 
     &                    (vbar(i,j,k,bi,bj) - OBSv(i,k,bi,bj))
./pkg/ecco/cost_obcss.F 53 COST_OBCSS 
      integer i,j,k
./pkg/ecco/cost_obcsvol.F 205 COST_OBCSVOL 
                do i = imin,imax
./pkg/ecco/cost_obcsvol.F 208 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 209 COST_OBCSVOL 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 211 COST_OBCSVOL 
                    fctile = fctile - tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 247 COST_OBCSVOL 
                do i = imin,imax
./pkg/ecco/cost_obcsvol.F 250 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 251 COST_OBCSVOL 
                  if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 253 COST_OBCSVOL 
                    fctile = fctile + tmpx* delZ(k) *dxg(i,j+jp1,bi,bj)
./pkg/ecco/cost_obcsvol.F 291 COST_OBCSVOL 
                  i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcsvol.F 294 COST_OBCSVOL 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 296 COST_OBCSVOL 
                    fctile = fctile + tmpy* delZ(k) *dyg(i+ip1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 334 COST_OBCSVOL 
                  i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcsvol.F 337 COST_OBCSVOL 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 339 COST_OBCSVOL 
                    fctile = fctile - tmpy* delZ(k) *dyg(i+ip1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 57 COST_OBCSVOL 
      integer i,j,k
./pkg/ecco/cost_obcsw.F 129 COST_OBCSW 
                  i = OB_Iw(J,bi,bj)
./pkg/ecco/cost_obcsw.F 130 COST_OBCSW 
                  if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsw.F 132 COST_OBCSW 
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsw.F 133 COST_OBCSW 
     &                    (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))*
./pkg/ecco/cost_obcsw.F 134 COST_OBCSW 
     &                    (tbar(i,j,k,bi,bj) - OBWt(j,k,bi,bj))
./pkg/ecco/cost_obcsw.F 166 COST_OBCSW 
                  i = OB_Iw(J,bi,bj)
./pkg/ecco/cost_obcsw.F 167 COST_OBCSW 
                  if (maskS(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsw.F 169 COST_OBCSW 
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsw.F 170 COST_OBCSW 
     &                    (sbar(i,j,k,bi,bj) - OBWs(j,k,bi,bj))*
./pkg/ecco/cost_obcsw.F 171 COST_OBCSW 
     &                    (sbar(i,j,k,bi,bj) - OBWs(j,k,bi,bj))
./pkg/ecco/cost_obcsw.F 202 COST_OBCSW 
                  i = OB_Iw(J,bi,bj)
./pkg/ecco/cost_obcsw.F 203 COST_OBCSW 
                  if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsw.F 205 COST_OBCSW 
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsw.F 206 COST_OBCSW 
     &                    (ubar(i,j,k,bi,bj) - OBWu(j,k,bi,bj))*
./pkg/ecco/cost_obcsw.F 207 COST_OBCSW 
     &                    (ubar(i,j,k,bi,bj) - OBWu(j,k,bi,bj))
./pkg/ecco/cost_obcsw.F 239 COST_OBCSW 
                  i = OB_Iw(J,bi,bj)
./pkg/ecco/cost_obcsw.F 240 COST_OBCSW 
                  if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsw.F 242 COST_OBCSW 
     &                    wobcsw(k,iobcs)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_obcsw.F 243 COST_OBCSW 
     &                    (vbar(i,j,k,bi,bj) - OBWv(j,k,bi,bj))*
./pkg/ecco/cost_obcsw.F 244 COST_OBCSW 
     &                    (vbar(i,j,k,bi,bj) - OBWv(j,k,bi,bj))
./pkg/ecco/cost_obcsw.F 53 COST_OBCSW 
      integer i,j,k
./pkg/ecco/cost_readargos.F 46 COST_READARGOS 
      integer i,j,k
./pkg/ecco/cost_readargos.F 91 COST_READARGOS 
                  do i = imin,imax
./pkg/ecco/cost_readargos.F 92 COST_READARGOS 
                     argosobs(i,j,k,bi,bj)=spval
./pkg/ecco/cost_readargot.F 46 COST_READARGOT 
      integer i,j,k
./pkg/ecco/cost_readargot.F 91 COST_READARGOT 
                  do i = imin,imax
./pkg/ecco/cost_readargot.F 92 COST_READARGOT 
                     argotobs(i,j,k,bi,bj)=spval
./pkg/ecco/cost_readers.F 130 COST_READERS 
            do i = imin,imax
./pkg/ecco/cost_readers.F 131 COST_READERS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readers.F 132 COST_READERS 
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 134 COST_READERS 
                 ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readers.F 136 COST_READERS 
              if (ersobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readers.F 137 COST_READERS 
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 139 COST_READERS 
              if (abs(ersobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readers.F 140 COST_READERS 
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 144 COST_READERS 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readers.F 145 COST_READERS 
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 149 COST_READERS 
              ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readers.F 150 COST_READERS 
              ersobs(i,j,bi,bj)  = ersmask(i,j,bi,bj)*factor*
./pkg/ecco/cost_readers.F 151 COST_READERS 
     &             ( ersobs(i,j,bi,bj) -
./pkg/ecco/cost_readers.F 47 COST_READERS 
      integer i,j,k
./pkg/ecco/cost_readgfo.F 130 COST_READGFO 
            do i = imin,imax
./pkg/ecco/cost_readgfo.F 131 COST_READGFO 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readgfo.F 132 COST_READGFO 
                 gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 134 COST_READGFO 
                 gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readgfo.F 136 COST_READGFO 
              if (gfoobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readgfo.F 137 COST_READGFO 
                gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 139 COST_READGFO 
              if (abs(gfoobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readgfo.F 140 COST_READGFO 
                 gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 143 COST_READGFO 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readgfo.F 144 COST_READGFO 
                gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 147 COST_READGFO 
              gfomask(i,j,bi,bj) = gfomask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readgfo.F 148 COST_READGFO 
              gfoobs(i,j,bi,bj)  = gfomask(i,j,bi,bj)*factor*
./pkg/ecco/cost_readgfo.F 149 COST_READGFO 
     &             ( gfoobs(i,j,bi,bj) -
./pkg/ecco/cost_readgfo.F 47 COST_READGFO 
      integer i,j,k
./pkg/ecco/cost_readscatxfields.F 126 COST_READSCATXFIELDS 
            do i = imin,imax
./pkg/ecco/cost_readscatxfields.F 127 COST_READSCATXFIELDS 
              if (maskW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readscatxfields.F 128 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 130 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatxfields.F 132 COST_READSCATXFIELDS 
              if (scatxdat(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_readscatxfields.F 133 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 135 COST_READSCATXFIELDS 
              if (scatxdat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatxfields.F 136 COST_READSCATXFIELDS 
                 scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 138 COST_READSCATXFIELDS 
              scatxmask(i,j,bi,bj) = scatxmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatxfields.F 139 COST_READSCATXFIELDS 
              scatxdat(i,j,bi,bj) = scatxdat(i,j,bi,bj)*
./pkg/ecco/cost_readscatxfields.F 140 COST_READSCATXFIELDS 
     &                              scatxmask(i,j,bi,bj)
./pkg/ecco/cost_readscatxfields.F 141 COST_READSCATXFIELDS 
              nobs = nobs + int(scatxmask(i,j,bi,bj))
./pkg/ecco/cost_readscatxfields.F 153 COST_READSCATXFIELDS 
            do i = imin,imax
./pkg/ecco/cost_readscatxfields.F 154 COST_READSCATXFIELDS 
            vartile=vartile+scatxdat(i,j,bi,bj)*scatxdat(i,j,bi,bj)
./pkg/ecco/cost_readscatxfields.F 49 COST_READSCATXFIELDS 
      integer i,j,k
./pkg/ecco/cost_readscatyfields.F 124 COST_READSCATYFIELDS 
            do i = imin,imax
./pkg/ecco/cost_readscatyfields.F 125 COST_READSCATYFIELDS 
              if (maskS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readscatyfields.F 126 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 128 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatyfields.F 130 COST_READSCATYFIELDS 
              if (scatydat(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_readscatyfields.F 131 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 133 COST_READSCATYFIELDS 
              if (scatydat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatyfields.F 134 COST_READSCATYFIELDS 
                 scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 136 COST_READSCATYFIELDS 
              scatymask(i,j,bi,bj) = scatymask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatyfields.F 137 COST_READSCATYFIELDS 
              scatydat(i,j,bi,bj) = scatydat(i,j,bi,bj)*
./pkg/ecco/cost_readscatyfields.F 138 COST_READSCATYFIELDS 
     &                              scatymask(i,j,bi,bj)
./pkg/ecco/cost_readscatyfields.F 139 COST_READSCATYFIELDS 
              nobs = nobs + int(scatymask(i,j,bi,bj))
./pkg/ecco/cost_readscatyfields.F 151 COST_READSCATYFIELDS 
            do i = imin,imax
./pkg/ecco/cost_readscatyfields.F 152 COST_READSCATYFIELDS 
            vartile=vartile+scatydat(i,j,bi,bj)*scatydat(i,j,bi,bj)
./pkg/ecco/cost_readscatyfields.F 49 COST_READSCATYFIELDS 
      integer i,j,k
./pkg/ecco/cost_readtopex.F 128 COST_READTOPEX 
            do i = imin,imax
./pkg/ecco/cost_readtopex.F 129 COST_READTOPEX 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopex.F 130 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 132 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopex.F 134 COST_READTOPEX 
              if (tpobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readtopex.F 135 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 137 COST_READTOPEX 
              if (abs(tpobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readtopex.F 138 COST_READTOPEX 
                 tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 141 COST_READTOPEX 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readtopex.F 142 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 145 COST_READTOPEX 
              tpmask(i,j,bi,bj) = tpmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopex.F 146 COST_READTOPEX 
              tpobs(i,j,bi,bj)  = tpmask(i,j,bi,bj)*factor*
./pkg/ecco/cost_readtopex.F 147 COST_READTOPEX 
     &             ( tpobs(i,j,bi,bj) -
./pkg/ecco/cost_readtopex.F 47 COST_READTOPEX 
      integer i,j,k
./pkg/ecco/cost_readtopexmean.F 46 COST_READTOPEXMEAN 
      integer i,j,k
./pkg/ecco/cost_readtopexmean.F 77 COST_READTOPEXMEAN 
            do i = imin,imax
./pkg/ecco/cost_readtopexmean.F 78 COST_READTOPEXMEAN 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopexmean.F 79 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 81 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopexmean.F 83 COST_READTOPEXMEAN 
              if (tpmean(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_readtopexmean.F 84 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 86 COST_READTOPEXMEAN 
              if (tpmean(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readtopexmean.F 87 COST_READTOPEXMEAN 
                 tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 90 COST_READTOPEXMEAN 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readtopexmean.F 91 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 94 COST_READTOPEXMEAN 
              tpmeanmask(i,j,bi,bj) = tpmeanmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopexmean.F 95 COST_READTOPEXMEAN 
              tpmean(i,j,bi,bj) = tpmean(i,j,bi,bj)*
./pkg/ecco/cost_readtopexmean.F 96 COST_READTOPEXMEAN 
     &                            tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_salt.F 134 COST_SALT 
                        do i = imin,imax
./pkg/ecco/cost_salt.F 136 COST_SALT 
                              sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj)
./pkg/ecco/cost_salt.F 138 COST_SALT 
                              sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_salt.F 139 COST_SALT 
     $                             +sbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_salt.F 141 COST_SALT 
                          sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_salt.F 142 COST_SALT 
     $                             +sbar(i,j,k,bi,bj)
./pkg/ecco/cost_salt.F 178 COST_SALT 
                do i = imin,imax
./pkg/ecco/cost_salt.F 179 COST_SALT 
                  cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt.F 180 COST_SALT 
                  if (sdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt.F 181 COST_SALT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F 182 COST_SALT 
                  else if (sdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_salt.F 183 COST_SALT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F 184 COST_SALT 
                  else if (sdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_salt.F 185 COST_SALT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F 193 COST_SALT 
                do i = imin,imax
./pkg/ecco/cost_salt.F 194 COST_SALT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_salt.F 196 COST_SALT 
     &                    (wsaltLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_salt.F 197 COST_SALT 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))*
./pkg/ecco/cost_salt.F 198 COST_SALT 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))   )
./pkg/ecco/cost_salt.F 199 COST_SALT 
                     if ( wsaltLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_salt.F 201 COST_SALT 
                     diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_salt.F 202 COST_SALT 
     &                    (wsaltLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_salt.F 203 COST_SALT 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))*
./pkg/ecco/cost_salt.F 204 COST_SALT 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))   )
./pkg/ecco/cost_salt.F 206 COST_SALT 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_salt.F 55 COST_SALT 
      integer i,j,k
./pkg/ecco/cost_salt0.F 117 COST_SALT0 
              do i = imin,imax
./pkg/ecco/cost_salt0.F 118 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F 119 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 121 COST_SALT0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_salt0.F 122 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 124 COST_SALT0 
     &                 + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt0.F 129 COST_SALT0 
                  if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_salt0.F 157 COST_SALT0 
              do i = imin,imax
./pkg/ecco/cost_salt0.F 158 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F 160 COST_SALT0 
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 161 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 162 COST_SALT0 
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 163 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 164 COST_SALT0 
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_salt0.F 165 COST_SALT0 
     &                *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_salt0.F 166 COST_SALT0 
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 167 COST_SALT0 
     &                *maskS(i,j+1,k,bi,bj)
./pkg/ecco/cost_salt0.F 168 COST_SALT0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_salt0.F 169 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 171 COST_SALT0 
     &               + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt0.F 52 COST_SALT0 
      integer i,j,k
./pkg/ecco/cost_salt_ini_fin.F 107 COST_SALT_INI_FIN 
              do i = imin,imax
./pkg/ecco/cost_salt_ini_fin.F 108 COST_SALT_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt_ini_fin.F 109 COST_SALT_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 111 COST_SALT_INI_FIN 
     &                 + wsalt(k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 44 COST_SALT_INI_FIN 
      integer i,j,k
./pkg/ecco/cost_scat.F 134 COST_SCAT 
              do i = imin,imax
./pkg/ecco/cost_scat.F 136 COST_SCAT 
     &           *(tauxbar(i,j,bi,bj)+tauxbar(i+1,j,bi,bj))
./pkg/ecco/cost_scat.F 138 COST_SCAT 
     &           *(tauybar(i,j,bi,bj)+tauybar(i,j+1,bi,bj))
./pkg/ecco/cost_scat.F 139 COST_SCAT 
                tmpU(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC
./pkg/ecco/cost_scat.F 140 COST_SCAT 
     &                           -angleSinC(i,j,bi,bj)*vBarC
./pkg/ecco/cost_scat.F 141 COST_SCAT 
                tmpV(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC
./pkg/ecco/cost_scat.F 142 COST_SCAT 
     &                           +angleCosC(i,j,bi,bj)*vBarC
./pkg/ecco/cost_scat.F 162 COST_SCAT 
              do i = imin,imax
./pkg/ecco/cost_scat.F 163 COST_SCAT 
                tauxbar(i,j,bi,bj)=tmpU(i,j,bi,bj)
./pkg/ecco/cost_scat.F 164 COST_SCAT 
                if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_scat.F 166 COST_SCAT 
     &                  wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_scat.F 167 COST_SCAT 
     &                  ( (tauxbar(i,j,bi,bj)-scatxdat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F 168 COST_SCAT 
     &                    (tauxbar(i,j,bi,bj)-scatxdat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F 169 COST_SCAT 
     &                           scatxmask(i,j,bi,bj) )
./pkg/ecco/cost_scat.F 170 COST_SCAT 
                   if ( wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_scat.F 171 COST_SCAT 
     &                  scatxmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_scat.F 182 COST_SCAT 
              do i = imin,imax
./pkg/ecco/cost_scat.F 183 COST_SCAT 
                tauybar(i,j,bi,bj)=tmpV(i,j,bi,bj)
./pkg/ecco/cost_scat.F 184 COST_SCAT 
                if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_scat.F 186 COST_SCAT 
     &                  wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_scat.F 187 COST_SCAT 
     &                  ( (tauybar(i,j,bi,bj)-scatydat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F 188 COST_SCAT 
     &                    (tauybar(i,j,bi,bj)-scatydat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F 189 COST_SCAT 
     &                           scatymask(i,j,bi,bj) )
./pkg/ecco/cost_scat.F 190 COST_SCAT 
                   if ( wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_scat.F 191 COST_SCAT 
     &                  scatymask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_scat.F 49 COST_SCAT 
      integer i,j,k
./pkg/ecco/cost_sla_read.F 135 COST_SLA_READ 
            do i = imin,imax
./pkg/ecco/cost_sla_read.F 136 COST_SLA_READ 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sla_read.F 137 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 139 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sla_read.F 141 COST_SLA_READ 
              if (sla_obs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_sla_read.F 142 COST_SLA_READ 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 144 COST_SLA_READ 
              if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_sla_read.F 145 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 149 COST_SLA_READ 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_sla_read.F 150 COST_SLA_READ 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 154 COST_SLA_READ 
              sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_sla_read.F 155 COST_SLA_READ 
              sla_obs(i,j,bi,bj)  = sla_mask(i,j,bi,bj)*factor*
./pkg/ecco/cost_sla_read.F 156 COST_SLA_READ 
     &             ( sla_obs(i,j,bi,bj) -
./pkg/ecco/cost_sla_read.F 44 COST_SLA_READ 
      integer i,j,k
./pkg/ecco/cost_sla_read_yd.F 119 COST_SLA_READ_YD 
            do i = imin,imax
./pkg/ecco/cost_sla_read_yd.F 121 COST_SLA_READ_YD 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sla_read_yd.F 122 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 124 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sla_read_yd.F 126 COST_SLA_READ_YD 
              if (sla_obs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_sla_read_yd.F 127 COST_SLA_READ_YD 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 129 COST_SLA_READ_YD 
              if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_sla_read_yd.F 130 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 134 COST_SLA_READ_YD 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_sla_read_yd.F 135 COST_SLA_READ_YD 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 139 COST_SLA_READ_YD 
              sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_sla_read_yd.F 140 COST_SLA_READ_YD 
              sla_obs(i,j,bi,bj)  = sla_mask(i,j,bi,bj)*factor*
./pkg/ecco/cost_sla_read_yd.F 141 COST_SLA_READ_YD 
     &             sla_obs(i,j,bi,bj)
./pkg/ecco/cost_sla_read_yd.F 153 COST_SLA_READ_YD 
            do i = imin,imax
./pkg/ecco/cost_sla_read_yd.F 154 COST_SLA_READ_YD 
                 sla_obs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 155 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 45 COST_SLA_READ_YD 
      integer i,j,k
./pkg/ecco/cost_ssh.F 105 COST_SSH 
        do i = imin, imax
./pkg/ecco/cost_ssh.F 106 COST_SSH 
          wwwtp(i,j)  = 0. _d 0
./pkg/ecco/cost_ssh.F 107 COST_SSH 
          wwwers(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F 108 COST_SSH 
          wwwgfo(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F 128 COST_SSH 
            do i = imin,imax
./pkg/ecco/cost_ssh.F 129 COST_SSH 
              psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh.F 149 COST_SSH 
              do i = imin,imax
./pkg/ecco/cost_ssh.F 150 COST_SSH 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_ssh.F 151 COST_SSH 
     &                psbar(i,j,bi,bj)/
./pkg/ecco/cost_ssh.F 169 COST_SSH 
            do i = 1,snx
./pkg/ecco/cost_ssh.F 171 COST_SSH 
     &                     tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_ssh.F 172 COST_SSH 
     &                     (tpmean(i,j,bi,bj) - psmean(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 174 COST_SSH 
     &                     tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 206 COST_SSH 
            do i = 1,snx
./pkg/ecco/cost_ssh.F 207 COST_SSH 
              prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 260 COST_SSH 
              do i = imin,imax
./pkg/ecco/cost_ssh.F 262 COST_SSH 
                wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 264 COST_SSH 
                junk       = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 265 COST_SSH 
     &                         tpobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 266 COST_SSH 
     &                       *tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 268 COST_SSH 
     &              + junk*junk*wwwtp(i,j)
./pkg/ecco/cost_ssh.F 269 COST_SSH 
                if ( wwwtp(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 272 COST_SSH 
                if (tpmeanmask(i,j,bi,bj)*tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 273 COST_SSH 
     &                  *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F 274 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 275 COST_SSH 
     &                 (tpobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F 277 COST_SSH 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) )
./pkg/ecco/cost_ssh.F 287 COST_SSH 
              do i = imin,imax
./pkg/ecco/cost_ssh.F 289 COST_SSH 
                wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 291 COST_SSH 
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 292 COST_SSH 
     &                         ersobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 293 COST_SSH 
     &                        *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 295 COST_SSH 
     &              + junk*junk*wwwers(i,j)
./pkg/ecco/cost_ssh.F 296 COST_SSH 
                if ( wwwers(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 299 COST_SSH 
                if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 300 COST_SSH 
     &                  *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F 301 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 302 COST_SSH 
     &                 (ersobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F 304 COST_SSH 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) )
./pkg/ecco/cost_ssh.F 314 COST_SSH 
              do i = imin,imax
./pkg/ecco/cost_ssh.F 316 COST_SSH 
                wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 318 COST_SSH 
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 319 COST_SSH 
     &                         gfoobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 320 COST_SSH 
     &                        *gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 322 COST_SSH 
     &              + junk*junk*wwwgfo(i,j)
./pkg/ecco/cost_ssh.F 323 COST_SSH 
                if ( wwwgfo(i,j)*junk .ne. 0. )
./pkg/ecco/cost_ssh.F 326 COST_SSH 
                if (tpmeanmask(i,j,bi,bj)*gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 327 COST_SSH 
     &                  *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F 328 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 329 COST_SSH 
     &                 (gfoobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F 331 COST_SSH 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) )
./pkg/ecco/cost_ssh.F 62 COST_SSH 
      integer i,j
./pkg/ecco/cost_ssh_mean.F 120 COST_SSH_MEAN 
            do i = imin,imax
./pkg/ecco/cost_ssh_mean.F 121 COST_SSH_MEAN 
               if ( tpmeanmask(i,j,bi,bj) .gt. 0. ) then
./pkg/ecco/cost_ssh_mean.F 122 COST_SSH_MEAN 
                 misfit(i,j,bi,bj) =
./pkg/ecco/cost_ssh_mean.F 123 COST_SSH_MEAN 
     &           tpmean(i,j,bi,bj) - offset - psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 125 COST_SSH_MEAN 
                 misfit(i,j,bi,bj) = 0.
./pkg/ecco/cost_ssh_mean.F 139 COST_SSH_MEAN 
            do i = imin,imax
./pkg/ecco/cost_ssh_mean.F 140 COST_SSH_MEAN 
               misfitgl(i,j,bi,bj,1,1) = misfit(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 159 COST_SSH_MEAN 
        do i = 1, lonshc
./pkg/ecco/cost_ssh_mean.F 160 COST_SSH_MEAN 
          diffearth(i,j) = 0.
./pkg/ecco/cost_ssh_mean.F 187 COST_SSH_MEAN 
              do i = imin,imax
./pkg/ecco/cost_ssh_mean.F 189 COST_SSH_MEAN 
                iglobe =          i + sNx*(bi-1) + sNx*nSx*(ipx-1)
./pkg/ecco/cost_ssh_mean.F 191 COST_SSH_MEAN 
                diffearth(iglobe,jglobe) = misfitgl(i,j,bi,bj,ipx,ipy)
./pkg/ecco/cost_ssh_mean.F 237 COST_SSH_MEAN 
            do i = imin,imax
./pkg/ecco/cost_ssh_mean.F 238 COST_SSH_MEAN 
              diff = psmean(i,j,bi,bj) - tpmean(i,j,bi,bj) + offset
./pkg/ecco/cost_ssh_mean.F 240 COST_SSH_MEAN 
     &                    * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 241 COST_SSH_MEAN 
              if ( wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_mean.F 243 COST_SSH_MEAN 
              diagnosfld(i,j,bi,bj) = diff*diff
./pkg/ecco/cost_ssh_mean.F 244 COST_SSH_MEAN 
     &                    * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 265 COST_SSH_MEAN 
            do i = imin,imax
./pkg/ecco/cost_ssh_mean.F 266 COST_SSH_MEAN 
              diff = psmean(i,j,bi,bj) - tpmean(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 267 COST_SSH_MEAN 
              sumC0 = sumC0 + wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 269 COST_SSH_MEAN 
     &                      * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 271 COST_SSH_MEAN 
     &                      * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 272 COST_SSH_MEAN 
              if ( wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_mean.F 274 COST_SSH_MEAN 
              diagnosfld(i,j,bi,bj) =
./pkg/ecco/cost_ssh_mean.F 276 COST_SSH_MEAN 
     &                      * wp(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 67 COST_SSH_MEAN 
      integer i,j
./pkg/ecco/cost_ssh_new.F 131 COST_SSH_NEW 
            do i = imin,imax
./pkg/ecco/cost_ssh_new.F 132 COST_SSH_NEW 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_ssh_new.F 133 COST_SSH_NEW 
              psmeantp(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 134 COST_SSH_NEW 
              psmeaners(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 135 COST_SSH_NEW 
              psmeangfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 136 COST_SSH_NEW 
              sumtp(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 137 COST_SSH_NEW 
              sumers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 138 COST_SSH_NEW 
              sumgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 139 COST_SSH_NEW 
              wwwtp1(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 140 COST_SSH_NEW 
              wwwers1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 141 COST_SSH_NEW 
              wwwgfo1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 142 COST_SSH_NEW 
              wwwtp2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 143 COST_SSH_NEW 
              wwwers2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 144 COST_SSH_NEW 
              wwwgfo2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 180 COST_SSH_NEW 
              do i = imin,imax
./pkg/ecco/cost_ssh_new.F 181 COST_SSH_NEW 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 182 COST_SSH_NEW 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_ssh_new.F 184 COST_SSH_NEW 
                if ( tpmask(i,j,bi,bj)*wtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 186 COST_SSH_NEW 
                   psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 187 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 188 COST_SSH_NEW 
                   sumtp(i,j,bi,bj) = sumtp(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 192 COST_SSH_NEW 
                if ( ersmask(i,j,bi,bj)*wers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 194 COST_SSH_NEW 
                   psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 195 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 196 COST_SSH_NEW 
                   sumers(i,j,bi,bj) = sumers(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 200 COST_SSH_NEW 
                if ( gfomask(i,j,bi,bj)*wgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 202 COST_SSH_NEW 
                   psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 203 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 204 COST_SSH_NEW 
                   sumgfo(i,j,bi,bj) = sumgfo(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 218 COST_SSH_NEW 
              do i = imin,imax
./pkg/ecco/cost_ssh_new.F 220 COST_SSH_NEW 
               if ( sumtp(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 221 COST_SSH_NEW 
                  psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F 222 COST_SSH_NEW 
     &                 sumtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 223 COST_SSH_NEW 
                  wwwtp1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 227 COST_SSH_NEW 
               if ( sumers(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 228 COST_SSH_NEW 
                  psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F 229 COST_SSH_NEW 
     &                 sumers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 230 COST_SSH_NEW 
                  wwwers1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 234 COST_SSH_NEW 
               if ( sumgfo(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 235 COST_SSH_NEW 
                  psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F 236 COST_SSH_NEW 
     &                 sumgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 237 COST_SSH_NEW 
                  wwwgfo1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 254 COST_SSH_NEW 
            do i = 1,snx
./pkg/ecco/cost_ssh_new.F 256 COST_SSH_NEW 
     &                     tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_ssh_new.F 257 COST_SSH_NEW 
     &                     (tpmean(i,j,bi,bj) - psmean(i,j,bi,bj))
./pkg/ecco/cost_ssh_new.F 259 COST_SSH_NEW 
     &                     tpmeanmask(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 291 COST_SSH_NEW 
            do i = 1,snx
./pkg/ecco/cost_ssh_new.F 292 COST_SSH_NEW 
              prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 343 COST_SSH_NEW 
              do i = imin,imax
./pkg/ecco/cost_ssh_new.F 345 COST_SSH_NEW 
                wwwtp2(i,j,bi,bj) = wwwtp1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 346 COST_SSH_NEW 
     &                             *wtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 347 COST_SSH_NEW 
     &                             *tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 348 COST_SSH_NEW 
     &                             *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 350 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 351 COST_SSH_NEW 
     &                   - psmeantp(i,j,bi,bj) - tpobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 353 COST_SSH_NEW 
     &              + junk*junk*wwwtp2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 354 COST_SSH_NEW 
                if ( wwwtp2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F 357 COST_SSH_NEW 
                if (tpmeanmask(i,j,bi,bj)*tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 358 COST_SSH_NEW 
     &                  *wp(i,j,bi,bj)*wwwtp2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F 359 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 360 COST_SSH_NEW 
     &                 (tpobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F 362 COST_SSH_NEW 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 372 COST_SSH_NEW 
              do i = imin,imax
./pkg/ecco/cost_ssh_new.F 374 COST_SSH_NEW 
                wwwers2(i,j,bi,bj) = wwwers1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 375 COST_SSH_NEW 
     &                              *wers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 376 COST_SSH_NEW 
     &                              *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 377 COST_SSH_NEW 
     &                              *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 379 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 380 COST_SSH_NEW 
     &                   - psmeaners(i,j,bi,bj) - ersobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 382 COST_SSH_NEW 
     &              + junk*junk*wwwers2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 383 COST_SSH_NEW 
                if ( wwwers2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F 386 COST_SSH_NEW 
                if (tpmeanmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 387 COST_SSH_NEW 
     &                  *wp(i,j,bi,bj)*wwwers2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F 388 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 389 COST_SSH_NEW 
     &                 (ersobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F 391 COST_SSH_NEW 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 401 COST_SSH_NEW 
              do i = imin,imax
./pkg/ecco/cost_ssh_new.F 403 COST_SSH_NEW 
                wwwgfo2(i,j,bi,bj) = wwwgfo1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 404 COST_SSH_NEW 
     &                        *wgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 405 COST_SSH_NEW 
     &                        *gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 406 COST_SSH_NEW 
     &                        *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 408 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 409 COST_SSH_NEW 
     &                   - psmeangfo(i,j,bi,bj) - gfoobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 411 COST_SSH_NEW 
     &              + junk*junk*wwwgfo2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 412 COST_SSH_NEW 
                if ( wwwgfo2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F 415 COST_SSH_NEW 
                if (tpmeanmask(i,j,bi,bj)*gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 416 COST_SSH_NEW 
     &                  *wp(i,j,bi,bj)*wwwgfo2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F 417 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 418 COST_SSH_NEW 
     &                 (gfoobs(i,j,bi,bj)+tpmean(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F 420 COST_SSH_NEW 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 62 COST_SSH_NEW 
      integer i,j
./pkg/ecco/cost_sshv4.F 178 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 179 COST_SSHV4 
              mean_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 180 COST_SSHV4 
              mean_slaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 206 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 208 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj).NE.0. ) then
./pkg/ecco/cost_sshv4.F 209 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 210 COST_SSHV4 
     &  tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 211 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 215 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj).NE.0. ) then
./pkg/ecco/cost_sshv4.F 216 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 217 COST_SSHV4 
     &  ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 218 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 222 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj).NE.0. ) then
./pkg/ecco/cost_sshv4.F 223 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 224 COST_SSHV4 
     &  gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 225 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 239 COST_SSHV4 
            do i = imin,imax
./pkg/ecco/cost_sshv4.F 240 COST_SSHV4 
               if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 242 COST_SSHV4 
     &              ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 243 COST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = mean_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 244 COST_SSHV4 
     &                 mean_slaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 246 COST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 270 COST_SSHV4 
            do i = imin,imax
./pkg/ecco/cost_sshv4.F 271 COST_SSHV4 
               if ( tpmeanmask(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 274 COST_SSHV4 
                  tpmean(i,j,bi,bj) = tpmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 275 COST_SSHV4 
     &                 -mean_slaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 295 COST_SSHV4 
            do i = imin,imax
./pkg/ecco/cost_sshv4.F 297 COST_SSHV4 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_sshv4.F 298 COST_SSHV4 
              mean_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 299 COST_SSHV4 
              mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 300 COST_SSHV4 
              mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 301 COST_SSHV4 
              mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 303 COST_SSHV4 
              mean_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 304 COST_SSHV4 
              mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 305 COST_SSHV4 
              mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 306 COST_SSHV4 
              mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 308 COST_SSHV4 
              mean_psMtpobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 309 COST_SSHV4 
              mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 310 COST_SSHV4 
              mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 348 COST_SSHV4 
              do i = imin,imax
./pkg/ecco/cost_sshv4.F 349 COST_SSHV4 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 350 COST_SSHV4 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_sshv4.F 352 COST_SSHV4 
                if ( tpmask(i,j,bi,bj)*wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F 354 COST_SSHV4 
                   mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 355 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 356 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 357 COST_SSHV4 
                   mean_psMtpobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 358 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 362 COST_SSHV4 
                if ( ersmask(i,j,bi,bj)*wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F 364 COST_SSHV4 
                   mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 365 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 366 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 367 COST_SSHV4 
                   mean_psMersobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 368 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 372 COST_SSHV4 
                if ( gfomask(i,j,bi,bj)*wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F 374 COST_SSHV4 
                   mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 375 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 376 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 377 COST_SSHV4 
                   mean_psMgfoobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 378 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 392 COST_SSHV4 
              do i = imin,imax
./pkg/ecco/cost_sshv4.F 394 COST_SSHV4 
               if ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 395 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 396 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 397 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 398 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 399 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 400 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 401 COST_SSHV4 
                  mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 402 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 403 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 404 COST_SSHV4 
                  mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 408 COST_SSHV4 
               if ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 409 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 410 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 411 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 412 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 413 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 414 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 415 COST_SSHV4 
                  mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 416 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 417 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 418 COST_SSHV4 
                  mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 422 COST_SSHV4 
               if ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 423 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 424 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 425 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 426 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 427 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 428 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 429 COST_SSHV4 
                  mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 430 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 431 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 432 COST_SSHV4 
                  mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 435 COST_SSHV4 
               if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 437 COST_SSHV4 
     &              ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 438 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 439 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 440 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)-tpmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 441 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 442 COST_SSHV4 
                  offset=offset+mean_psMssh_all(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 443 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 444 COST_SSHV4 
                  offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 446 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 447 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 481 COST_SSHV4 
            do i = imin,imax
./pkg/ecco/cost_sshv4.F 482 COST_SSHV4 
               if ( mean_psMssh_all_MSK(i,j,bi,bj) .NE. 0. )
./pkg/ecco/cost_sshv4.F 483 COST_SSHV4 
     &            mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 484 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) - offset
./pkg/ecco/cost_sshv4.F 485 COST_SSHV4 
               if ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_sshv4.F 486 COST_SSHV4 
     &            psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset
./pkg/ecco/cost_sshv4.F 514 COST_SSHV4 
            do i = 1,snx
./pkg/ecco/cost_sshv4.F 515 COST_SSHV4 
              prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 534 COST_SSHV4 
            do i = imin,imax
./pkg/ecco/cost_sshv4.F 535 COST_SSHV4 
       junk = mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 537 COST_SSHV4 
     &      *wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 538 COST_SSHV4 
       if ( wsshv4(i,j,1,bi,bj)*mean_psMssh_all_MSK(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_sshv4.F 541 COST_SSHV4 
       diagnosfld(i,j,bi,bj) = junk*junk
./pkg/ecco/cost_sshv4.F 542 COST_SSHV4 
     &      * wsshv4(i,j,1,bi,bj)*mean_psMssh_all_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 568 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 569 COST_SSHV4 
              anom_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 570 COST_SSHV4 
              anom_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 571 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 572 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 573 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 574 COST_SSHV4 
              anom_psMslaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 575 COST_SSHV4 
              anom_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 576 COST_SSHV4 
              anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 577 COST_SSHV4 
              anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 616 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 618 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 620 COST_SSHV4 
           anom_psMtpobs(i,j,bi,bj)= anom_psMtpobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 621 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 622 COST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 623 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 624 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 625 COST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 626 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 627 COST_SSHV4 
     &        tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 628 COST_SSHV4 
           anom_psMtpobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 629 COST_SSHV4 
     &        anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 630 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 631 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 635 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 637 COST_SSHV4 
           anom_psMersobs(i,j,bi,bj)= anom_psMersobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 638 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 639 COST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 640 COST_SSHV4 
           anom_psMersobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 641 COST_SSHV4 
     &        anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 642 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 643 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 644 COST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 645 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 646 COST_SSHV4 
     &        ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 647 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 648 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 652 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 654 COST_SSHV4 
           anom_psMgfoobs(i,j,bi,bj)= anom_psMgfoobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 655 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 656 COST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 657 COST_SSHV4 
           anom_psMgfoobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 658 COST_SSHV4 
     &        anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 659 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 660 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 661 COST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 662 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 663 COST_SSHV4 
     &        gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 664 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 665 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 66 COST_SSHV4 
      integer i,j
./pkg/ecco/cost_sshv4.F 678 COST_SSHV4 
              do i = imin,imax
./pkg/ecco/cost_sshv4.F 680 COST_SSHV4 
               if ( anom_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 681 COST_SSHV4 
                  anom_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 682 COST_SSHV4 
     &                 anom_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 683 COST_SSHV4 
     &                 anom_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 687 COST_SSHV4 
               if ( anom_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 688 COST_SSHV4 
                  anom_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 689 COST_SSHV4 
     &                 anom_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 690 COST_SSHV4 
     &                 anom_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 694 COST_SSHV4 
               if ( anom_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 695 COST_SSHV4 
                  anom_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 696 COST_SSHV4 
     &                 anom_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 697 COST_SSHV4 
     &                 anom_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 700 COST_SSHV4 
               if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 701 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 702 COST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 703 COST_SSHV4 
     &                 anom_psMslaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 704 COST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 705 COST_SSHV4 
                  anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 706 COST_SSHV4 
     &                 anom_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 707 COST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 709 COST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 710 COST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 745 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 749 COST_SSHV4 
          junk = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 751 COST_SSHV4 
     &    + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj)
./pkg/ecco/cost_sshv4.F 753 COST_SSHV4 
          if ( (wsshv4(i,j,5,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F 754 COST_SSHV4 
     &         (anom_psMslaobs_NUM(i,j,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F 755 COST_SSHV4 
     &         (maskc(i,j,1,bi,bj) .ne. 0.) )
./pkg/ecco/cost_sshv4.F 791 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 792 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 793 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 794 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 803 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 805 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 806 COST_SSHV4 
     &    anom_psMtpobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 807 COST_SSHV4 
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 808 COST_SSHV4 
     &       - mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 811 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 812 COST_SSHV4 
     &    anom_psMersobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 813 COST_SSHV4 
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 814 COST_SSHV4 
     &       - mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 817 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 818 COST_SSHV4 
     &    anom_psMgfoobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 819 COST_SSHV4 
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 820 COST_SSHV4 
     &       - mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 841 COST_SSHV4 
          do i = imin,imax
./pkg/ecco/cost_sshv4.F 844 COST_SSHV4 
                junkweight = mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 845 COST_SSHV4 
     &                      *wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F 846 COST_SSHV4 
     &                      *tpmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 847 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 848 COST_SSHV4 
                junk = anom_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 858 COST_SSHV4 
                junkweight = mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 859 COST_SSHV4 
     &                      *wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F 860 COST_SSHV4 
     &                      *ersmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 861 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 862 COST_SSHV4 
                junk = anom_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 872 COST_SSHV4 
                junkweight = mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 873 COST_SSHV4 
     &                      *wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F 874 COST_SSHV4 
     &                      *gfomask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 875 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 876 COST_SSHV4 
                junk = anom_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F 111 COST_TAU_EDDY 
              do i = imin,imax
./pkg/ecco/cost_tau_eddy.F 112 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 113 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 116 COST_TAU_EDDY 
     &                 + wedtauxFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F 146 COST_TAU_EDDY 
              do i = imin,imax
./pkg/ecco/cost_tau_eddy.F 147 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 148 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 151 COST_TAU_EDDY 
     &                 + wedtauyFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F 231 COST_TAU_EDDY 
         do i=1,sNx
./pkg/ecco/cost_tau_eddy.F 233 COST_TAU_EDDY 
           tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 234 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F 236 COST_TAU_EDDY 
             locfc = locfc + maskW(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F 239 COST_TAU_EDDY 
           tau2_temp = ( rhonil*eddyPsiY(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 240 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F 242 COST_TAU_EDDY 
             locfc = locfc + maskS(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F 43 COST_TAU_EDDY 
      integer i,j,k
./pkg/ecco/cost_theta.F 133 COST_THETA 
                        do i = imin,imax
./pkg/ecco/cost_theta.F 135 COST_THETA 
                              tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 137 COST_THETA 
                              tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 138 COST_THETA 
     $                             +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_theta.F 140 COST_THETA 
                           tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 141 COST_THETA 
     $                             +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 177 COST_THETA 
                do i = imin,imax
./pkg/ecco/cost_theta.F 178 COST_THETA 
                  cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta.F 179 COST_THETA 
                  if (tdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_theta.F 180 COST_THETA 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F 181 COST_THETA 
                  else if (tdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_theta.F 182 COST_THETA 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F 183 COST_THETA 
                  else if (tdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_theta.F 184 COST_THETA 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F 192 COST_THETA 
                do i = imin,imax
./pkg/ecco/cost_theta.F 193 COST_THETA 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_theta.F 195 COST_THETA 
     &                    (wthetaLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_theta.F 196 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F 197 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_theta.F 198 COST_THETA 
                     if ( wthetaLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_theta.F 200 COST_THETA 
                     diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_theta.F 201 COST_THETA 
     &                    (wthetaLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_theta.F 202 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F 203 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_theta.F 205 COST_THETA 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_theta.F 55 COST_THETA 
      integer i,j,k
./pkg/ecco/cost_theta0.F 117 COST_THETA0 
              do i = imin,imax
./pkg/ecco/cost_theta0.F 118 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 119 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 121 COST_THETA0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_theta0.F 122 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 124 COST_THETA0 
     &                 + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta0.F 129 COST_THETA0 
                  if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_theta0.F 157 COST_THETA0 
              do i = imin,imax
./pkg/ecco/cost_theta0.F 158 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 160 COST_THETA0 
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 161 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 162 COST_THETA0 
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 163 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 164 COST_THETA0 
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_theta0.F 165 COST_THETA0 
     &                *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_theta0.F 166 COST_THETA0 
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 167 COST_THETA0 
     &                *maskS(i,j+1,k,bi,bj)
./pkg/ecco/cost_theta0.F 168 COST_THETA0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_theta0.F 169 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 171 COST_THETA0 
     &               + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta0.F 52 COST_THETA0 
      integer i,j,k
./pkg/ecco/cost_theta_ini_fin.F 107 COST_THETA_INI_FIN 
              do i = imin,imax
./pkg/ecco/cost_theta_ini_fin.F 108 COST_THETA_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta_ini_fin.F 109 COST_THETA_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 111 COST_THETA_INI_FIN 
     &                 + wtheta(k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 44 COST_THETA_INI_FIN 
      integer i,j,k
./pkg/ecco/cost_trans_merid.F 195 COST_TRANS_MERID 
                do i =  imin,imax
./pkg/ecco/cost_trans_merid.F 196 COST_TRANS_MERID 
                   del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_trans_merid.F 197 COST_TRANS_MERID 
                   if (  yc(i,j,bi,bj) .ge. ylat(isect) .and.
./pkg/ecco/cost_trans_merid.F 198 COST_TRANS_MERID 
     $                   yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and.
./pkg/ecco/cost_trans_merid.F 199 COST_TRANS_MERID 
     $                   xc(i,j,bi,bj) .ge. beglon(isect) .and.
./pkg/ecco/cost_trans_merid.F 200 COST_TRANS_MERID 
     $                   xc(i,j,bi,bj) .le. endlon(isect) ) then
./pkg/ecco/cost_trans_merid.F 201 COST_TRANS_MERID 
                       tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 202 COST_TRANS_MERID 
     $                     + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 203 COST_TRANS_MERID 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F 204 COST_TRANS_MERID 
     &                     * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 206 COST_TRANS_MERID 
                       sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 207 COST_TRANS_MERID 
     $                     + sbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 208 COST_TRANS_MERID 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F 209 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 211 COST_TRANS_MERID 
                       mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 212 COST_TRANS_MERID 
     $                     + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 213 COST_TRANS_MERID 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F 214 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 49 COST_TRANS_MERID 
      integer i,j,k
./pkg/ecco/cost_trans_zonal.F 184 COST_TRANS_ZONAL 
                do i =  imin,imax
./pkg/ecco/cost_trans_zonal.F 185 COST_TRANS_ZONAL 
                   del_x = xc(i,j,bi,bj)-xc(i-1,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 186 COST_TRANS_ZONAL 
                   if (  xc(i,j,bi,bj) .ge. xlon(isect) .and.
./pkg/ecco/cost_trans_zonal.F 187 COST_TRANS_ZONAL 
     $                   xc(i,j,bi,bj) .lt. xlon(isect)+del_x .and.
./pkg/ecco/cost_trans_zonal.F 188 COST_TRANS_ZONAL 
     $                   yc(i,j,bi,bj) .ge. beglat(isect) .and.
./pkg/ecco/cost_trans_zonal.F 189 COST_TRANS_ZONAL 
     $                   yc(i,j,bi,bj) .le. endlat(isect) ) then
./pkg/ecco/cost_trans_zonal.F 190 COST_TRANS_ZONAL 
                       tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 191 COST_TRANS_ZONAL 
     $                     + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 192 COST_TRANS_ZONAL 
     $                     * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 193 COST_TRANS_ZONAL 
     &                     * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 195 COST_TRANS_ZONAL 
                       su(isect) = su(isect) + p5*(sbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 196 COST_TRANS_ZONAL 
     $                     + sbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 197 COST_TRANS_ZONAL 
     $                     * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 198 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 200 COST_TRANS_ZONAL 
                       mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 201 COST_TRANS_ZONAL 
     $                     + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 202 COST_TRANS_ZONAL 
     $                     * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 203 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 49 COST_TRANS_ZONAL 
      integer i,j,k
./pkg/ecco/cost_xbt.F 162 COST_XBT 
                do i = imin,imax
./pkg/ecco/cost_xbt.F 163 COST_XBT 
                  cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_xbt.F 164 COST_XBT 
                  if ( xbtobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_xbt.F 165 COST_XBT 
     &                 xbtobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_xbt.F 166 COST_XBT 
     &                 xbtobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_xbt.F 167 COST_XBT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_xbt.F 182 COST_XBT 
                do i = imin,imax
./pkg/ecco/cost_xbt.F 183 COST_XBT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_xbt.F 184 COST_XBT 
                    tmpobs(i,j) = SW_PTMP(rl_35,
./pkg/ecco/cost_xbt.F 185 COST_XBT 
     $                   xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_xbt.F 189 COST_XBT 
     &                   (wtheta2(i,j,k,bi,bj)*cmask(i,j))*
./pkg/ecco/cost_xbt.F 190 COST_XBT 
     &                   (tbar(i,j,k,bi,bj)-tmpobs(i,j))*
./pkg/ecco/cost_xbt.F 191 COST_XBT 
     &                   (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_xbt.F 192 COST_XBT 
                    if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_xbt.F 50 COST_XBT 
      integer i,j,k
./pkg/ecco/ecco_cost_init_barfiles.F 113 ECCO_COST_INIT_BARFILES 
            do i =  imin,imax
./pkg/ecco/ecco_cost_init_barfiles.F 114 ECCO_COST_INIT_BARFILES 
              tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 123 ECCO_COST_INIT_BARFILES 
              do i =  imin,imax
./pkg/ecco/ecco_cost_init_barfiles.F 124 ECCO_COST_INIT_BARFILES 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 146 ECCO_COST_INIT_BARFILES 
            do i =  imin,imax
./pkg/ecco/ecco_cost_init_barfiles.F 147 ECCO_COST_INIT_BARFILES 
              tmpfldxz (i,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 148 ECCO_COST_INIT_BARFILES 
              tmpfldxz2(i,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 48 ECCO_COST_INIT_BARFILES 
      integer i,j,k
./pkg/ecco/ecco_cost_init_varia.F 226 ECCO_COST_INIT_VARIA 
            do i = imin,imax
./pkg/ecco/ecco_cost_init_varia.F 228 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 229 ECCO_COST_INIT_VARIA 
                  tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 231 ECCO_COST_INIT_VARIA 
                  tpmeanmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 233 ECCO_COST_INIT_VARIA 
               tpmean(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 236 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 237 ECCO_COST_INIT_VARIA 
                  tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 239 ECCO_COST_INIT_VARIA 
                  tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 241 ECCO_COST_INIT_VARIA 
               tpobs(i,j,bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 244 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 245 ECCO_COST_INIT_VARIA 
                  ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 247 ECCO_COST_INIT_VARIA 
                  ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 249 ECCO_COST_INIT_VARIA 
               ersobs(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 252 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 253 ECCO_COST_INIT_VARIA 
                  gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 255 ECCO_COST_INIT_VARIA 
                  gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 257 ECCO_COST_INIT_VARIA 
               gfoobs(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 260 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 261 ECCO_COST_INIT_VARIA 
                  tmimask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 263 ECCO_COST_INIT_VARIA 
                  tmimask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 267 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 268 ECCO_COST_INIT_VARIA 
                  sstmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 270 ECCO_COST_INIT_VARIA 
                  sstmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 274 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 275 ECCO_COST_INIT_VARIA 
                  sssmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 277 ECCO_COST_INIT_VARIA 
                  sssmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 281 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 282 ECCO_COST_INIT_VARIA 
                  bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 284 ECCO_COST_INIT_VARIA 
                  bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 286 ECCO_COST_INIT_VARIA 
               bpdat(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 46 ECCO_COST_INIT_VARIA 
      integer i,j,k
./pkg/ecco/ecco_cost_weights.F 1000 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1001 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1025 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1027 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1028 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1031 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3.
./pkg/ecco/ecco_cost_weights.F 1032 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0)
./pkg/ecco/ecco_cost_weights.F 1033 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1034 ECCO_COST_WEIGHTS 
              whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m)
./pkg/ecco/ecco_cost_weights.F 1035 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1037 ECCO_COST_WEIGHTS 
              whflux2(i,j,bi,bj) = whflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1060 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1062 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1063 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1066 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1067 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0)
./pkg/ecco/ecco_cost_weights.F 1068 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1094 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1096 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1097 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1100 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3.
./pkg/ecco/ecco_cost_weights.F 1101 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0)
./pkg/ecco/ecco_cost_weights.F 1102 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1103 ECCO_COST_WEIGHTS 
              wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./pkg/ecco/ecco_cost_weights.F 1104 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1106 ECCO_COST_WEIGHTS 
              wsflux2(i,j,bi,bj) = wsflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1129 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1131 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1132 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1135 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1136 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0)
./pkg/ecco/ecco_cost_weights.F 1137 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1161 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1163 ECCO_COST_WEIGHTS 
              if (wprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1164 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1167 ECCO_COST_WEIGHTS 
              wprecip(i,j,bi,bj) = wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1168 ECCO_COST_WEIGHTS 
              wprecip(i,j,bi,bj) = max(wprecip(i,j,bi,bj),wprecip0)
./pkg/ecco/ecco_cost_weights.F 1169 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 116 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 117 ECCO_COST_WEIGHTS 
              whflux  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS 
              whfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1193 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1195 ECCO_COST_WEIGHTS 
              if (wswflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1196 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1199 ECCO_COST_WEIGHTS 
              wswflux(i,j,bi,bj) = wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 119 ECCO_COST_WEIGHTS 
              wsflux  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1200 ECCO_COST_WEIGHTS 
              wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0)
./pkg/ecco/ecco_cost_weights.F 1201 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS 
              wsfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS 
              wtauu   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1225 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1227 ECCO_COST_WEIGHTS 
              if (wswdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1228 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 122 ECCO_COST_WEIGHTS 
              wtauum  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1231 ECCO_COST_WEIGHTS 
              wswdown(i,j,bi,bj) = wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1232 ECCO_COST_WEIGHTS 
              wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0)
./pkg/ecco/ecco_cost_weights.F 1233 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 123 ECCO_COST_WEIGHTS 
              wtauv   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 124 ECCO_COST_WEIGHTS 
              wtauvm  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1257 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1259 ECCO_COST_WEIGHTS 
              if (wlwflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 125 ECCO_COST_WEIGHTS 
              watemp  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1260 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1263 ECCO_COST_WEIGHTS 
              wlwflux(i,j,bi,bj) = wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1264 ECCO_COST_WEIGHTS 
              wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0)
./pkg/ecco/ecco_cost_weights.F 1265 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 126 ECCO_COST_WEIGHTS 
              waqh    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 127 ECCO_COST_WEIGHTS 
              wprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1289 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 128 ECCO_COST_WEIGHTS 
              wswflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1291 ECCO_COST_WEIGHTS 
              if (wlwdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1292 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1295 ECCO_COST_WEIGHTS 
              wlwdown(i,j,bi,bj) = wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1296 ECCO_COST_WEIGHTS 
              wlwdown(i,j,bi,bj) = max(wlwdown(i,j,bi,bj),wlwdown0)
./pkg/ecco/ecco_cost_weights.F 1297 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 129 ECCO_COST_WEIGHTS 
              wswdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 130 ECCO_COST_WEIGHTS 
              wsnowprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS 
              wlwflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1321 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1323 ECCO_COST_WEIGHTS 
              if (wsnowprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1324 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1327 ECCO_COST_WEIGHTS 
              wsnowprecip(i,j,bi,bj) = wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1328 ECCO_COST_WEIGHTS 
              wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1329 ECCO_COST_WEIGHTS 
     &            max(wsnowprecip(i,j,bi,bj),wsnowprecip0)
./pkg/ecco/ecco_cost_weights.F 132 ECCO_COST_WEIGHTS 
              wlwdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1330 ECCO_COST_WEIGHTS 
     &            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 133 ECCO_COST_WEIGHTS 
              wevap   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 134 ECCO_COST_WEIGHTS 
              wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1354 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1356 ECCO_COST_WEIGHTS 
              if (wevap(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1357 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 135 ECCO_COST_WEIGHTS 
              wrunoff (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1360 ECCO_COST_WEIGHTS 
              wevap(i,j,bi,bj) = wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1361 ECCO_COST_WEIGHTS 
              wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0)
./pkg/ecco/ecco_cost_weights.F 1362 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 136 ECCO_COST_WEIGHTS 
              wuwind  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 137 ECCO_COST_WEIGHTS 
              wvwind  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1386 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1388 ECCO_COST_WEIGHTS 
              if (wapressure(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1389 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 138 ECCO_COST_WEIGHTS 
              wsst    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1392 ECCO_COST_WEIGHTS 
              wapressure(i,j,bi,bj) = wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1393 ECCO_COST_WEIGHTS 
              wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1394 ECCO_COST_WEIGHTS 
     &            max(wapressure(i,j,bi,bj),wapressure0)
./pkg/ecco/ecco_cost_weights.F 1395 ECCO_COST_WEIGHTS 
     &            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 139 ECCO_COST_WEIGHTS 
              wsss    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 140 ECCO_COST_WEIGHTS 
              wtp     (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1419 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 141 ECCO_COST_WEIGHTS 
              wers    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1421 ECCO_COST_WEIGHTS 
              if (wrunoff(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1422 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1425 ECCO_COST_WEIGHTS 
              wrunoff(i,j,bi,bj) = wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1426 ECCO_COST_WEIGHTS 
              wrunoff(i,j,bi,bj) = max(wrunoff(i,j,bi,bj),wrunoff0)
./pkg/ecco/ecco_cost_weights.F 1427 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 142 ECCO_COST_WEIGHTS 
              wgfo    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1443 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1445 ECCO_COST_WEIGHTS 
              if (wbottomdrag(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1446 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 144 ECCO_COST_WEIGHTS 
                wsshv4  (i,j,num_var,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1466 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1468 ECCO_COST_WEIGHTS 
              if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1469 ECCO_COST_WEIGHTS 
                wdiffkr2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 146 ECCO_COST_WEIGHTS 
              wp      (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 147 ECCO_COST_WEIGHTS 
              wudrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1490 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1492 ECCO_COST_WEIGHTS 
              if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1493 ECCO_COST_WEIGHTS 
                wkapgm2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 150 ECCO_COST_WEIGHTS 
              whflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1514 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1516 ECCO_COST_WEIGHTS 
              if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1517 ECCO_COST_WEIGHTS 
                wkapredi2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 151 ECCO_COST_WEIGHTS 
              wsflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 152 ECCO_COST_WEIGHTS 
              wtauu2  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1538 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 153 ECCO_COST_WEIGHTS 
              wtauv2  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1540 ECCO_COST_WEIGHTS 
              if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1541 ECCO_COST_WEIGHTS 
                wedtaux2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1543 ECCO_COST_WEIGHTS 
              wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 155 ECCO_COST_WEIGHTS 
              wbottomdrag (i,j,bi,bj) = wbottomdrag0
./pkg/ecco/ecco_cost_weights.F 1563 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1565 ECCO_COST_WEIGHTS 
              if (gencost_weight(i,j,bi,bj,k) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1566 ECCO_COST_WEIGHTS 
                gencost_weight(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1582 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1583 ECCO_COST_WEIGHTS 
              if (wtp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1584 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = 1./wtp(i,j,bi,bj)/wtp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1586 ECCO_COST_WEIGHTS 
              if (wers(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1587 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = 1./wers(i,j,bi,bj)/wers(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1589 ECCO_COST_WEIGHTS 
              if (wgfo(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1590 ECCO_COST_WEIGHTS 
                wgfo(i,j,bi,bj) = 1./wgfo(i,j,bi,bj)/wgfo(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1592 ECCO_COST_WEIGHTS 
              if (wp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1593 ECCO_COST_WEIGHTS 
                wp(i,j,bi,bj) = 1./wp(i,j,bi,bj)/wp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1595 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1596 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 1./wtauu(i,j,bi,bj)/wtauu(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1598 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1600 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1601 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1602 ECCO_COST_WEIGHTS 
     &            1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1604 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1606 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1607 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1608 ECCO_COST_WEIGHTS 
     &            1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1610 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1612 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1613 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 1./wtauv(i,j,bi,bj)/wtauv(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1615 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1617 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1618 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1619 ECCO_COST_WEIGHTS 
     &           1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1621 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1623 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1624 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1625 ECCO_COST_WEIGHTS 
     &           1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1627 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1629 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1630 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1631 ECCO_COST_WEIGHTS 
     &                1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1633 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1635 ECCO_COST_WEIGHTS 
              if (whfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1636 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1637 ECCO_COST_WEIGHTS 
     &                1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1639 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1641 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1642 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1643 ECCO_COST_WEIGHTS 
     &                1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1645 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1647 ECCO_COST_WEIGHTS 
              if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1648 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1649 ECCO_COST_WEIGHTS 
     &                1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1651 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1653 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1654 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1655 ECCO_COST_WEIGHTS 
     &                1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1657 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1659 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1660 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1661 ECCO_COST_WEIGHTS 
     &                1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1663 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1665 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1666 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1667 ECCO_COST_WEIGHTS 
     &                1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1669 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1671 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1672 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1673 ECCO_COST_WEIGHTS 
     &                1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1675 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1677 ECCO_COST_WEIGHTS 
              if (wprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1678 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1679 ECCO_COST_WEIGHTS 
     &                1./wprecip(i,j,bi,bj)/wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1681 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1683 ECCO_COST_WEIGHTS 
              if (wswflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1684 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1685 ECCO_COST_WEIGHTS 
     &                1./wswflux(i,j,bi,bj)/wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1687 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1689 ECCO_COST_WEIGHTS 
              if (wswdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1690 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1691 ECCO_COST_WEIGHTS 
     &                1./wswdown(i,j,bi,bj)/wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1693 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1695 ECCO_COST_WEIGHTS 
              if (wlwflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1696 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1697 ECCO_COST_WEIGHTS 
     &                1./wlwflux(i,j,bi,bj)/wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1699 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1701 ECCO_COST_WEIGHTS 
              if (wlwdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1702 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1703 ECCO_COST_WEIGHTS 
     &                1./wlwdown(i,j,bi,bj)/wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1705 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1707 ECCO_COST_WEIGHTS 
              if (wevap(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1708 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1709 ECCO_COST_WEIGHTS 
     &                1./wevap(i,j,bi,bj)/wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1711 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1713 ECCO_COST_WEIGHTS 
              if (wsnowprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1714 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1715 ECCO_COST_WEIGHTS 
     &                1./wsnowprecip(i,j,bi,bj)/wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1717 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1719 ECCO_COST_WEIGHTS 
              if (wapressure(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1720 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1721 ECCO_COST_WEIGHTS 
     &                1./wapressure(i,j,bi,bj)/wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1723 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1725 ECCO_COST_WEIGHTS 
              if (wrunoff(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1726 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1727 ECCO_COST_WEIGHTS 
     &                1./wrunoff(i,j,bi,bj)/wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1729 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1731 ECCO_COST_WEIGHTS 
              if (wbottomdrag(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1732 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1733 ECCO_COST_WEIGHTS 
     &                1./wbottomdrag(i,j,bi,bj)/wbottomdrag(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1735 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 173 ECCO_COST_WEIGHTS 
              do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1743 ECCO_COST_WEIGHTS 
              if (whflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1744 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1745 ECCO_COST_WEIGHTS 
     &                1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1747 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1749 ECCO_COST_WEIGHTS 
              if (wsflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 174 ECCO_COST_WEIGHTS 
                wtheta2 (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1750 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1751 ECCO_COST_WEIGHTS 
     &                1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1753 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1755 ECCO_COST_WEIGHTS 
              if (wtauu2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1756 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1757 ECCO_COST_WEIGHTS 
     &                1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1759 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 175 ECCO_COST_WEIGHTS 
                wsalt2  (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1761 ECCO_COST_WEIGHTS 
              if (wtauv2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1762 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1763 ECCO_COST_WEIGHTS 
     &                1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1765 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 176 ECCO_COST_WEIGHTS 
                wdiffkr2(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F 1770 ECCO_COST_WEIGHTS 
              if (gencost_weight(i,j,bi,bj,k) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1771 ECCO_COST_WEIGHTS 
                 gencost_weight(i,j,bi,bj,k) =
./pkg/ecco/ecco_cost_weights.F 1772 ECCO_COST_WEIGHTS 
     &                1./gencost_weight(i,j,bi,bj,k)/
./pkg/ecco/ecco_cost_weights.F 1773 ECCO_COST_WEIGHTS 
     &                   gencost_weight(i,j,bi,bj,k)
./pkg/ecco/ecco_cost_weights.F 1775 ECCO_COST_WEIGHTS 
                 gencost_weight(i,j,bi,bj,k) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 177 ECCO_COST_WEIGHTS 
                wkapgm2 (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F 178 ECCO_COST_WEIGHTS 
                wkapredi2 (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F 179 ECCO_COST_WEIGHTS 
                wedtaux2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 180 ECCO_COST_WEIGHTS 
                wedtauy2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 181 ECCO_COST_WEIGHTS 
                wthetaLev (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 182 ECCO_COST_WEIGHTS 
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 183 ECCO_COST_WEIGHTS 
                wdiffkrFld(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F 184 ECCO_COST_WEIGHTS 
                wkapgmFld (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F 1853 ECCO_COST_WEIGHTS 
              do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 1854 ECCO_COST_WEIGHTS 
                if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1855 ECCO_COST_WEIGHTS 
                   wdiffkr2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 1856 ECCO_COST_WEIGHTS 
     &                  wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1858 ECCO_COST_WEIGHTS 
                   wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 185 ECCO_COST_WEIGHTS 
                wkaprediFld (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F 1860 ECCO_COST_WEIGHTS 
                wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1862 ECCO_COST_WEIGHTS 
                if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1863 ECCO_COST_WEIGHTS 
                   wkapgm2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 1864 ECCO_COST_WEIGHTS 
     &                  wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1866 ECCO_COST_WEIGHTS 
                   wkapgm2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1868 ECCO_COST_WEIGHTS 
                wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 186 ECCO_COST_WEIGHTS 
                wedtauxFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 1870 ECCO_COST_WEIGHTS 
                if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1871 ECCO_COST_WEIGHTS 
                   wkapredi2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 1872 ECCO_COST_WEIGHTS 
     &                  wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1874 ECCO_COST_WEIGHTS 
                   wkapredi2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1876 ECCO_COST_WEIGHTS 
                wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1878 ECCO_COST_WEIGHTS 
                if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1879 ECCO_COST_WEIGHTS 
                   wedtaux2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 187 ECCO_COST_WEIGHTS 
                wedtauyFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 1880 ECCO_COST_WEIGHTS 
     &                  wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1882 ECCO_COST_WEIGHTS 
                   wedtaux2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1884 ECCO_COST_WEIGHTS 
                wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1886 ECCO_COST_WEIGHTS 
                if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1887 ECCO_COST_WEIGHTS 
                   wedtauy2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 1888 ECCO_COST_WEIGHTS 
     &                  wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1890 ECCO_COST_WEIGHTS 
                   wedtauy2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1892 ECCO_COST_WEIGHTS 
                wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 223 ECCO_COST_WEIGHTS 
        do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 229 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 244 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 247 ECCO_COST_WEIGHTS 
              cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 348 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 350 ECCO_COST_WEIGHTS 
              if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 351 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 353 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 354 ECCO_COST_WEIGHTS 
     $              ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 366 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 367 ECCO_COST_WEIGHTS 
               wsaltLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F 368 ECCO_COST_WEIGHTS 
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 389 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 391 ECCO_COST_WEIGHTS 
              if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 392 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 394 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 395 ECCO_COST_WEIGHTS 
     $              ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 407 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 408 ECCO_COST_WEIGHTS 
               wthetaLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F 409 ECCO_COST_WEIGHTS 
     $             wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 435 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 438 ECCO_COST_WEIGHTS 
     $             wsalt2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F 439 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 441 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 442 ECCO_COST_WEIGHTS 
     $              ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 454 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 455 ECCO_COST_WEIGHTS 
                wsalt2(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F 456 ECCO_COST_WEIGHTS 
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 482 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 485 ECCO_COST_WEIGHTS 
     $            wtheta2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F 486 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 488 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 489 ECCO_COST_WEIGHTS 
     $                  ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 501 ECCO_COST_WEIGHTS 
             do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 503 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 505 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 506 ECCO_COST_WEIGHTS 
     $              wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 50 ECCO_COST_WEIGHTS 
      integer i,j,k
./pkg/ecco/ecco_cost_weights.F 532 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 539 ECCO_COST_WEIGHTS 
                if (wsst(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F 540 ECCO_COST_WEIGHTS 
     &               wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 541 ECCO_COST_WEIGHTS 
     &                  ( wsst(i,j,bi,bj)*wsst(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 545 ECCO_COST_WEIGHTS 
                  wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 547 ECCO_COST_WEIGHTS 
                  wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 549 ECCO_COST_WEIGHTS 
                  wsst(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 550 ECCO_COST_WEIGHTS 
     &               wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 558 ECCO_COST_WEIGHTS 
                if (wsss(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F 559 ECCO_COST_WEIGHTS 
     &               wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 560 ECCO_COST_WEIGHTS 
     &                  ( wsss(i,j,bi,bj)*wsss(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 565 ECCO_COST_WEIGHTS 
                  wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 567 ECCO_COST_WEIGHTS 
                  wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 569 ECCO_COST_WEIGHTS 
                  wsss(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 570 ECCO_COST_WEIGHTS 
     &               wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 597 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 598 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 600 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F 601 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F 602 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F 603 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./pkg/ecco/ecco_cost_weights.F 604 ECCO_COST_WEIGHTS 
                 wp(i,j,bi,bj) = wp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 615 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 616 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 635 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 638 ECCO_COST_WEIGHTS 
               if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F 639 ECCO_COST_WEIGHTS 
                  wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 640 ECCO_COST_WEIGHTS 
                  wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 641 ECCO_COST_WEIGHTS 
                  wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 643 ECCO_COST_WEIGHTS 
                  wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 )
./pkg/ecco/ecco_cost_weights.F 644 ECCO_COST_WEIGHTS 
     &                 *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 645 ECCO_COST_WEIGHTS 
                  wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 )
./pkg/ecco/ecco_cost_weights.F 646 ECCO_COST_WEIGHTS 
     &                 *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 647 ECCO_COST_WEIGHTS 
                  wgfo(i,j,bi,bj) = wers(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 674 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 675 ECCO_COST_WEIGHTS 
             if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F 677 ECCO_COST_WEIGHTS 
     &               wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 679 ECCO_COST_WEIGHTS 
     &             wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 681 ECCO_COST_WEIGHTS 
     &             wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 685 ECCO_COST_WEIGHTS 
                 wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 691 ECCO_COST_WEIGHTS 
                 wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 692 ECCO_COST_WEIGHTS 
                 if ( wers(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F 693 ECCO_COST_WEIGHTS 
     &                wers(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 696 ECCO_COST_WEIGHTS 
                 wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 697 ECCO_COST_WEIGHTS 
                 if ( wgfo(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F 698 ECCO_COST_WEIGHTS 
     &                wgfo(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 711 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 712 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F 713 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F 714 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F 715 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./pkg/ecco/ecco_cost_weights.F 716 ECCO_COST_WEIGHTS 
                 wtp(i,j,bi,bj)  = wtp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 717 ECCO_COST_WEIGHTS 
                 wers(i,j,bi,bj) = wers(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 718 ECCO_COST_WEIGHTS 
                 wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 740 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 741 ECCO_COST_WEIGHTS 
            wsshv4tmp(i,j,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 751 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 752 ECCO_COST_WEIGHTS 
              wsshv4tmp(i,j,bi,bj)=0. _d 0
./pkg/ecco/ecco_cost_weights.F 762 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 763 ECCO_COST_WEIGHTS 
      if (wsshv4tmp(i,j,bi,bj).ne.0) then
./pkg/ecco/ecco_cost_weights.F 764 ECCO_COST_WEIGHTS 
        wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 765 ECCO_COST_WEIGHTS 
     &        ( wsshv4tmp(i,j,bi,bj)* wsshv4tmp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 766 ECCO_COST_WEIGHTS 
        wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 788 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 789 ECCO_COST_WEIGHTS 
                if (wbp(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F 790 ECCO_COST_WEIGHTS 
     &               wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 791 ECCO_COST_WEIGHTS 
     &                  ( wbp(i,j,bi,bj)* wbp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 814 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 816 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 817 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 819 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 820 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 821 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)*maskw(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 822 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 823 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 824 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 826 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 827 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 828 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)*masks(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 829 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 850 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 852 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 853 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 855 ECCO_COST_WEIGHTS 
              wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F 856 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 858 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 859 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 861 ECCO_COST_WEIGHTS 
              wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F 862 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 884 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 886 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 887 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 889 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*0.1
./pkg/ecco/ecco_cost_weights.F 890 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 892 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskw(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 893 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 895 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 898 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = wtauu(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 899 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 900 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 923 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 925 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 926 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 928 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 929 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0)
./pkg/ecco/ecco_cost_weights.F 930 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 931 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 954 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 956 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 957 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 959 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*0.1
./pkg/ecco/ecco_cost_weights.F 960 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 962 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*masks(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 963 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 965 ECCO_COST_WEIGHTS 
              wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 968 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = wtauv(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 969 ECCO_COST_WEIGHTS 
     &                            *frame(i,j)
./pkg/ecco/ecco_cost_weights.F 970 ECCO_COST_WEIGHTS 
              wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 993 ECCO_COST_WEIGHTS 
            do i = imin,imax
./pkg/ecco/ecco_cost_weights.F 995 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 996 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 998 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 999 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0)
./pkg/exch2/exch2_check_depths.F 100 EXCH2_CHECK_DEPTHS 
           IF ( tmpFld(i,j).GT.0. ) errE = errE + 1
./pkg/exch2/exch2_check_depths.F 104 EXCH2_CHECK_DEPTHS 
         i = 0
./pkg/exch2/exch2_check_depths.F 106 EXCH2_CHECK_DEPTHS 
           IF ( tmpFld(i,j).GT.0. ) errW = errW + 1
./pkg/exch2/exch2_check_depths.F 49 EXCH2_CHECK_DEPTHS 
      INTEGER i, j, n
./pkg/exch2/exch2_check_depths.F 63 EXCH2_CHECK_DEPTHS 
         i = sNx+1
./pkg/exch2/exch2_check_depths.F 66 EXCH2_CHECK_DEPTHS 
           tmpFld(i,j) = rHigh(sNx,j,bi,bj) - rLow(sNx,j,bi,bj)
./pkg/exch2/exch2_check_depths.F 69 EXCH2_CHECK_DEPTHS 
         DO i=1,sNx
./pkg/exch2/exch2_check_depths.F 70 EXCH2_CHECK_DEPTHS 
           tmpFld(i,0) = rHigh(i, 1 ,bi,bj) - rLow(i, 1 ,bi,bj)
./pkg/exch2/exch2_check_depths.F 71 EXCH2_CHECK_DEPTHS 
           tmpFld(i,j) = rHigh(i,sNy,bi,bj) - rLow(i,sNy,bi,bj)
./pkg/exch2/exch2_check_depths.F 78 EXCH2_CHECK_DEPTHS 
           DO i=exch2_iLo(n,tId),exch2_iHi(n,tId)
./pkg/exch2/exch2_check_depths.F 79 EXCH2_CHECK_DEPTHS 
            tmpFld(i,j) = 0.
./pkg/exch2/exch2_check_depths.F 87 EXCH2_CHECK_DEPTHS 
         DO i=1,sNx
./pkg/exch2/exch2_check_depths.F 88 EXCH2_CHECK_DEPTHS 
           IF ( tmpFld(i,j).GT.0. ) errN = errN + 1
./pkg/exch2/exch2_check_depths.F 93 EXCH2_CHECK_DEPTHS 
         DO i=1,sNx
./pkg/exch2/exch2_check_depths.F 94 EXCH2_CHECK_DEPTHS 
           IF ( tmpFld(i,j).GT.0. ) errS = errS + 1
./pkg/exch2/exch2_check_depths.F 98 EXCH2_CHECK_DEPTHS 
         i = sNx+1
./pkg/exch2/exch2_get_uv_bounds.F 65 EXCH2_GET_UV_BOUNDS 
      INTEGER  i, e2_pij(4)
./pkg/exch2/exch2_get_uv_bounds.F 80 EXCH2_GET_UV_BOUNDS 
      DO i=1,4
./pkg/exch2/exch2_get_uv_bounds.F 81 EXCH2_GET_UV_BOUNDS 
        e2_pij(i) = exch2_pij(i,soNb,soTile)
./pkg/exch2/w2_e2setup.F 108 W2_E2SETUP 
      DO i=1,nBlankTiles
./pkg/exch2/w2_e2setup.F 109 W2_E2SETUP 
       IF ( blankList(i).LT.1 .OR. blankList(i).GT.nTiles ) THEN
./pkg/exch2/w2_e2setup.F 111 W2_E2SETUP 
     &     'W2_E2SETUP: Invalid blankTile number (i=', i,
./pkg/exch2/w2_e2setup.F 112 W2_E2SETUP 
     &     ' )=', blankList(i)
./pkg/exch2/w2_e2setup.F 113 W2_E2SETUP 
         WRITE(msgBuf,'(A,I7,A,I4,A)') 'W2_E2SETUP:', blankList(i),
./pkg/exch2/w2_e2setup.F 114 W2_E2SETUP 
     &                    ' = Invalid blankTile number (i=', i, ')'
./pkg/exch2/w2_e2setup.F 43 W2_E2SETUP 
      INTEGER i, j, k
./pkg/exch2/w2_e2setup.F 54 W2_E2SETUP 
        DO i=1,4
./pkg/exch2/w2_e2setup.F 56 W2_E2SETUP 
          facet_pij(k,i,j) = 0
./pkg/exch2/w2_e2setup.F 58 W2_E2SETUP 
          facet_oi(i,j) = 0
./pkg/exch2/w2_e2setup.F 59 W2_E2SETUP 
          facet_oj(i,j) = 0
./pkg/exch2/w2_e2setup.F 65 W2_E2SETUP 
      DO i=1,W2_maxNbTiles
./pkg/exch2/w2_e2setup.F 66 W2_E2SETUP 
       IF (blankList(i).NE.0 ) THEN
./pkg/exch2/w2_e2setup.F 69 W2_E2SETUP 
          IF ( blankList(i).EQ.blankList(j) ) THEN
./pkg/exch2/w2_e2setup.F 72 W2_E2SETUP 
     &     '** WARNING ** W2_E2SETUP: #', blankList(i),
./pkg/exch2/w2_e2setup.F 73 W2_E2SETUP 
     &     ' appears several times in blankList (',j,i,')'
./pkg/exch2/w2_e2setup.F 81 W2_E2SETUP 
           blankList(nBlankTiles) = blankList(i)
./pkg/exch2/w2_print_e2setup.F 128 W2_PRINT_E2SETUP 
         DO i=1,4
./pkg/exch2/w2_print_e2setup.F 129 W2_PRINT_E2SETUP 
          IF ( ip(i).NE.0 ) THEN
./pkg/exch2/w2_print_e2setup.F 130 W2_PRINT_E2SETUP 
            j  = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F 131 W2_PRINT_E2SETUP 
            it = exch2_neighbourId (np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F 132 W2_PRINT_E2SETUP 
            nt = exch2_opposingSend(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F 140 W2_PRINT_E2SETUP 
     &      '  ', edge(i), '.Edge Facet', j, ' <-- ',
./pkg/exch2/w2_print_e2setup.F 142 W2_PRINT_E2SETUP 
     &      ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4),
./pkg/exch2/w2_print_e2setup.F 143 W2_PRINT_E2SETUP 
     &      ' ; oi,oj=',exch2_oi(np(i),ip(i)),exch2_oj(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F 42 W2_PRINT_E2SETUP 
      INTEGER i, j, js, jp, jt, ii, is, it, ns, nt, k, tx, ty
./pkg/exch2/w2_print_e2setup.F 71 W2_PRINT_E2SETUP 
         DO i=1,4
./pkg/exch2/w2_print_e2setup.F 72 W2_PRINT_E2SETUP 
          IF ( ip(i).NE.0 ) THEN
./pkg/exch2/w2_print_e2setup.F 73 W2_PRINT_E2SETUP 
            j  = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F 74 W2_PRINT_E2SETUP 
            it = exch2_neighbourId (np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F 75 W2_PRINT_E2SETUP 
            nt = exch2_opposingSend(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F 83 W2_PRINT_E2SETUP 
     &      '  ', edge(i), '.Edge Facet', j, ' <-- ',
./pkg/exch2/w2_print_e2setup.F 85 W2_PRINT_E2SETUP 
     &      ' : pij=', (exch2_pij(k,np(i),ip(i)),k=1,4),
./pkg/exch2/w2_print_e2setup.F 86 W2_PRINT_E2SETUP 
     &      ' ; oi,oj=',exch2_oi(np(i),ip(i)),exch2_oj(np(i),ip(i))
./pkg/exch2/w2_print_e2setup.F 92 W2_PRINT_E2SETUP 
           DO i=1,4
./pkg/exch2/w2_print_e2setup.F 93 W2_PRINT_E2SETUP 
            ip(i) = 0
./pkg/exch2/w2_print_e2setup.F 94 W2_PRINT_E2SETUP 
            np(i) = 0
./pkg/exch2/w2_readparms.F 140 W2_READPARMS 
       DO i=1,4
./pkg/exch2/w2_readparms.F 141 W2_READPARMS 
        facet_link(i,j) = facetEdgeLink(i,j)
./pkg/exch2/w2_readparms.F 149 W2_READPARMS 
       DO i=1,4
./pkg/exch2/w2_readparms.F 150 W2_READPARMS 
        IF ( facetEdgeLink(i,j).NE.0. ) errFlag = .TRUE.
./pkg/exch2/w2_readparms.F 37 W2_READPARMS 
      INTEGER i, j, iUnit, stdUnit, errCnt
./pkg/exch2/w2_readparms.F 74 W2_READPARMS 
      DO i=1,W2_maxNbTiles
./pkg/exch2/w2_readparms.F 75 W2_READPARMS 
        blankList(i) = 0
./pkg/exch2/w2_readparms.F 82 W2_READPARMS 
        DO i=1,4
./pkg/exch2/w2_readparms.F 83 W2_READPARMS 
          facetEdgeLink(i,j) = 0.
./pkg/exch2/w2_readparms.F 94 W2_READPARMS 
        DO i=1,4
./pkg/exch2/w2_readparms.F 95 W2_READPARMS 
          facet_link(i,j) = 0.
./pkg/exch2/w2_set_cs6_facets.F 143 W2_SET_CS6_FACETS 
         DO i=1,4
./pkg/exch2/w2_set_cs6_facets.F 145 W2_SET_CS6_FACETS 
          jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_cs6_facets.F 146 W2_SET_CS6_FACETS 
          ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_cs6_facets.F 150 W2_SET_CS6_FACETS 
           lo = 2*(j-1) + (i+1)/2
./pkg/exch2/w2_set_cs6_facets.F 158 W2_SET_CS6_FACETS 
     &         ' facet',j,'.',edge(i), ' set dim', lo, ' = dim', ll,
./pkg/exch2/w2_set_cs6_facets.F 40 W2_SET_CS6_FACETS 
      INTEGER i, j, ii, jj, lo, ll
./pkg/exch2/w2_set_f2f_index.F 103 W2_SET_F2F_INDEX 
       DO i=1,4
./pkg/exch2/w2_set_f2f_index.F 105 W2_SET_F2F_INDEX 
        lo = 2*(j-1) + (i+1)/2
./pkg/exch2/w2_set_f2f_index.F 108 W2_SET_F2F_INDEX 
        jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F 109 W2_SET_F2F_INDEX 
        ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F 115 W2_SET_F2F_INDEX 
     &      edge(i), '.Edge facet #', j,  ' (=',lo,')'
./pkg/exch2/w2_set_f2f_index.F 130 W2_SET_F2F_INDEX 
         facet_pij(1,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F 131 W2_SET_F2F_INDEX 
         facet_pij(2,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 132 W2_SET_F2F_INDEX 
         facet_pij(3,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 133 W2_SET_F2F_INDEX 
         facet_pij(4,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F 135 W2_SET_F2F_INDEX 
         IF ( i.EQ.1 .AND. ii.EQ.2 ) THEN
./pkg/exch2/w2_set_f2f_index.F 137 W2_SET_F2F_INDEX 
           facet_oi(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 138 W2_SET_F2F_INDEX 
           facet_oj(i,j) = +facet_dims(2*j)
./pkg/exch2/w2_set_f2f_index.F 139 W2_SET_F2F_INDEX 
         ELSEIF ( i.EQ.2 .AND. ii.EQ.1 ) THEN
./pkg/exch2/w2_set_f2f_index.F 141 W2_SET_F2F_INDEX 
           facet_oi(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 142 W2_SET_F2F_INDEX 
           facet_oj(i,j) = -facet_dims(2*jj)
./pkg/exch2/w2_set_f2f_index.F 143 W2_SET_F2F_INDEX 
         ELSEIF ( i.EQ.3 .AND. ii.EQ.4 ) THEN
./pkg/exch2/w2_set_f2f_index.F 145 W2_SET_F2F_INDEX 
           facet_oi(i,j) = +facet_dims(2*j-1)
./pkg/exch2/w2_set_f2f_index.F 146 W2_SET_F2F_INDEX 
           facet_oj(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 147 W2_SET_F2F_INDEX 
         ELSEIF ( i.EQ.4 .AND. ii.EQ.3 ) THEN
./pkg/exch2/w2_set_f2f_index.F 149 W2_SET_F2F_INDEX 
           facet_oi(i,j) = -facet_dims(2*jj-1)
./pkg/exch2/w2_set_f2f_index.F 150 W2_SET_F2F_INDEX 
           facet_oj(i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 152 W2_SET_F2F_INDEX 
         ELSEIF ( i.EQ.1 .AND. ii.EQ.4 ) THEN
./pkg/exch2/w2_set_f2f_index.F 155 W2_SET_F2F_INDEX 
           facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 156 W2_SET_F2F_INDEX 
           facet_pij(2,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F 157 W2_SET_F2F_INDEX 
           facet_pij(3,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F 158 W2_SET_F2F_INDEX 
           facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 159 W2_SET_F2F_INDEX 
           facet_oi(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 160 W2_SET_F2F_INDEX 
           facet_oj(i,j) = +facet_dims(2*j)
./pkg/exch2/w2_set_f2f_index.F 161 W2_SET_F2F_INDEX 
         ELSEIF ( i.EQ.2 .AND. ii.EQ.3 ) THEN
./pkg/exch2/w2_set_f2f_index.F 164 W2_SET_F2F_INDEX 
           facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 165 W2_SET_F2F_INDEX 
           facet_pij(2,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F 166 W2_SET_F2F_INDEX 
           facet_pij(3,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F 167 W2_SET_F2F_INDEX 
           facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 168 W2_SET_F2F_INDEX 
           facet_oi(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 169 W2_SET_F2F_INDEX 
           facet_oj(i,j) = -facet_dims(2*jj-1)
./pkg/exch2/w2_set_f2f_index.F 170 W2_SET_F2F_INDEX 
         ELSEIF ( i.EQ.3 .AND. ii.EQ.2 ) THEN
./pkg/exch2/w2_set_f2f_index.F 173 W2_SET_F2F_INDEX 
           facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 174 W2_SET_F2F_INDEX 
           facet_pij(2,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F 175 W2_SET_F2F_INDEX 
           facet_pij(3,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F 176 W2_SET_F2F_INDEX 
           facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 177 W2_SET_F2F_INDEX 
           facet_oi(i,j) = +facet_dims(2*j-1)
./pkg/exch2/w2_set_f2f_index.F 178 W2_SET_F2F_INDEX 
           facet_oj(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 179 W2_SET_F2F_INDEX 
         ELSEIF ( i.EQ.4 .AND. ii.EQ.1 ) THEN
./pkg/exch2/w2_set_f2f_index.F 182 W2_SET_F2F_INDEX 
           facet_pij(1,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 183 W2_SET_F2F_INDEX 
           facet_pij(2,i,j) = 1
./pkg/exch2/w2_set_f2f_index.F 184 W2_SET_F2F_INDEX 
           facet_pij(3,i,j) =-1
./pkg/exch2/w2_set_f2f_index.F 185 W2_SET_F2F_INDEX 
           facet_pij(4,i,j) = 0
./pkg/exch2/w2_set_f2f_index.F 186 W2_SET_F2F_INDEX 
           facet_oi(i,j) = -facet_dims(2*jj)
./pkg/exch2/w2_set_f2f_index.F 187 W2_SET_F2F_INDEX 
           facet_oj(i,j) = lo+1
./pkg/exch2/w2_set_f2f_index.F 190 W2_SET_F2F_INDEX 
     &      edge(i), '.Edge (facet#', j, ' ) to: ',
./pkg/exch2/w2_set_f2f_index.F 200 W2_SET_F2F_INDEX 
     &    '  ', edge(i), '.Edge Facet', j, ' <-- ',
./pkg/exch2/w2_set_f2f_index.F 202 W2_SET_F2F_INDEX 
     &    ' : pij=', (facet_pij(k,i,j),k=1,4),
./pkg/exch2/w2_set_f2f_index.F 203 W2_SET_F2F_INDEX 
     &    ' ; oi,oj=', facet_oi(i,j), facet_oj(i,j)
./pkg/exch2/w2_set_f2f_index.F 220 W2_SET_F2F_INDEX 
       DO i=1,4
./pkg/exch2/w2_set_f2f_index.F 222 W2_SET_F2F_INDEX 
        jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F 223 W2_SET_F2F_INDEX 
        ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F 232 W2_SET_F2F_INDEX 
         chk1 = facet_pij(1,i,j)*facet_pij(1,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 233 W2_SET_F2F_INDEX 
     &        + facet_pij(2,i,j)*facet_pij(3,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 234 W2_SET_F2F_INDEX 
         chk2 = facet_pij(1,i,j)*facet_pij(2,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 235 W2_SET_F2F_INDEX 
     &        + facet_pij(2,i,j)*facet_pij(4,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 236 W2_SET_F2F_INDEX 
         chk3 = facet_pij(3,i,j)*facet_pij(1,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 237 W2_SET_F2F_INDEX 
     &        + facet_pij(4,i,j)*facet_pij(3,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 238 W2_SET_F2F_INDEX 
         chk4 = facet_pij(3,i,j)*facet_pij(2,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 239 W2_SET_F2F_INDEX 
     &        + facet_pij(4,i,j)*facet_pij(4,ii,jj)
./pkg/exch2/w2_set_f2f_index.F 241 W2_SET_F2F_INDEX 
         chk5 = facet_pij(1,i,j)*facet_oi(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 242 W2_SET_F2F_INDEX 
     &        + facet_pij(2,i,j)*facet_oj(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 243 W2_SET_F2F_INDEX 
     &        + facet_oi(i,j)
./pkg/exch2/w2_set_f2f_index.F 244 W2_SET_F2F_INDEX 
         chk6 = facet_pij(3,i,j)*facet_oi(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 245 W2_SET_F2F_INDEX 
     &        + facet_pij(4,i,j)*facet_oj(ii,jj)
./pkg/exch2/w2_set_f2f_index.F 246 W2_SET_F2F_INDEX 
     &        + facet_oj(i,j)
./pkg/exch2/w2_set_f2f_index.F 250 W2_SET_F2F_INDEX 
     &      edge(i), '.Edge (facet#', j, ' ) to: ',
./pkg/exch2/w2_set_f2f_index.F 37 W2_SET_F2F_INDEX 
      INTEGER i, j, ii, jj, i1, j1, k, lo, ll
./pkg/exch2/w2_set_f2f_index.F 53 W2_SET_F2F_INDEX 
       DO i=1,4
./pkg/exch2/w2_set_f2f_index.F 55 W2_SET_F2F_INDEX 
         jj = INT(facet_link(i,j))
./pkg/exch2/w2_set_f2f_index.F 56 W2_SET_F2F_INDEX 
         ii = MOD( NINT(facet_link(i,j)*10.), 10 )
./pkg/exch2/w2_set_f2f_index.F 57 W2_SET_F2F_INDEX 
         IF ( facet_link(i,j).EQ. 0. ) THEN
./pkg/exch2/w2_set_f2f_index.F 59 W2_SET_F2F_INDEX 
     &           '** WARNING ** ',  edge(i), '.Edge of facet #',
./pkg/exch2/w2_set_f2f_index.F 60 W2_SET_F2F_INDEX 
     &        j, ' disconnected (facet_link=',facet_link(i,j),')'
./pkg/exch2/w2_set_f2f_index.F 65 W2_SET_F2F_INDEX 
          WRITE(msgBuf,'(2A,I3,A,F6.2,A)') edge(i), '.Edge of facet #',
./pkg/exch2/w2_set_f2f_index.F 66 W2_SET_F2F_INDEX 
     &      j, ' : bad connection (facet_link=',facet_link(i,j),')'
./pkg/exch2/w2_set_f2f_index.F 73 W2_SET_F2F_INDEX 
          IF ( j1.NE.j .OR. i1.NE.i ) THEN
./pkg/exch2/w2_set_f2f_index.F 75 W2_SET_F2F_INDEX 
     &      edge(i), '.Edge facet #', j,' connect to: ',
./pkg/exch2/w2_set_f2f_index.F 76 W2_SET_F2F_INDEX 
     &      edge(ii),'.Edge facet #',jj,' (',facet_link(i,j),' )'
./pkg/exch2/w2_set_gen_facets.F 100 W2_SET_GEN_FACETS 
         WRITE(msgBuf,'(A,I2,A,I3,A,I6,A)') 'dimension', i,
./pkg/exch2/w2_set_gen_facets.F 115 W2_SET_GEN_FACETS 
       DO i=1,4
./pkg/exch2/w2_set_gen_facets.F 116 W2_SET_GEN_FACETS 
        IF ( facet_link(i,j).NE.0 ) THEN
./pkg/exch2/w2_set_gen_facets.F 119 W2_SET_GEN_FACETS 
     &       'Link for ',edge(i), '.Edge of facet #',j,
./pkg/exch2/w2_set_gen_facets.F 120 W2_SET_GEN_FACETS 
     &       ' (facetEdgeLink=',facet_link(i,j),')'
./pkg/exch2/w2_set_gen_facets.F 38 W2_SET_GEN_FACETS 
      INTEGER i,j,jj,fNx,fNy
./pkg/exch2/w2_set_gen_facets.F 98 W2_SET_GEN_FACETS 
         i=1+MOD(jj-1,2)
./pkg/exch2/w2_set_tile2tiles.F 119 W2_SET_TILE2TILES 
            ii = 1 + MOD(i,2)
./pkg/exch2/w2_set_tile2tiles.F 121 W2_SET_TILE2TILES 
            IF ( i.LE.2 ) THEN
./pkg/exch2/w2_set_tile2tiles.F 131 W2_SET_TILE2TILES 
               tile_edge2edge(ns,is) = 10*i + ii
./pkg/exch2/w2_set_tile2tiles.F 147 W2_SET_TILE2TILES 
          jt = INT(facet_link(i,js))
./pkg/exch2/w2_set_tile2tiles.F 148 W2_SET_TILE2TILES 
          ii = MOD( NINT(facet_link(i,js)*10.), 10 )
./pkg/exch2/w2_set_tile2tiles.F 184 W2_SET_TILE2TILES 
               tile_edge2edge(ns,is) = 10*i + ii
./pkg/exch2/w2_set_tile2tiles.F 186 W2_SET_TILE2TILES 
                 exch2_pij(k,ns,is) = facet_pij(k,i,js)
./pkg/exch2/w2_set_tile2tiles.F 188 W2_SET_TILE2TILES 
               exch2_oi(ns,is) = facet_oi(i,js)
./pkg/exch2/w2_set_tile2tiles.F 189 W2_SET_TILE2TILES 
               exch2_oj(ns,is) = facet_oj(i,js)
./pkg/exch2/w2_set_tile2tiles.F 199 W2_SET_TILE2TILES 
               isbd1 = facet_pij(1,i,js)*itbd1
./pkg/exch2/w2_set_tile2tiles.F 200 W2_SET_TILE2TILES 
     &               + facet_pij(2,i,js)*jtbd1 + facet_oi(i,js)
./pkg/exch2/w2_set_tile2tiles.F 201 W2_SET_TILE2TILES 
               isbd2 = facet_pij(1,i,js)*itbd2
./pkg/exch2/w2_set_tile2tiles.F 202 W2_SET_TILE2TILES 
     &               + facet_pij(2,i,js)*jtbd2 + facet_oi(i,js)
./pkg/exch2/w2_set_tile2tiles.F 203 W2_SET_TILE2TILES 
               jsbd1 = facet_pij(3,i,js)*itbd1
./pkg/exch2/w2_set_tile2tiles.F 204 W2_SET_TILE2TILES 
     &               + facet_pij(4,i,js)*jtbd1 + facet_oj(i,js)
./pkg/exch2/w2_set_tile2tiles.F 205 W2_SET_TILE2TILES 
               jsbd2 = facet_pij(3,i,js)*itbd2
./pkg/exch2/w2_set_tile2tiles.F 206 W2_SET_TILE2TILES 
     &               + facet_pij(4,i,js)*jtbd2 + facet_oj(i,js)
./pkg/exch2/w2_set_tile2tiles.F 271 W2_SET_TILE2TILES 
        i  = tile_edge2edge(ns,is)/10
./pkg/exch2/w2_set_tile2tiles.F 277 W2_SET_TILE2TILES 
          IF ( exch2_neighbourId(nt,it).EQ.is .AND. ii.EQ.i ) THEN
./pkg/exch2/w2_set_tile2tiles.F 43 W2_SET_TILE2TILES 
      INTEGER i, k, ii, nn
./pkg/exch2/w2_set_tile2tiles.F 81 W2_SET_TILE2TILES 
        DO i=1,4
./pkg/exch2/w2_set_tile2tiles.F 86 W2_SET_TILE2TILES 
         IF ( i.EQ.1 ) THEN
./pkg/exch2/w2_set_tile2tiles.F 92 W2_SET_TILE2TILES 
         ELSEIF ( i.EQ.2 ) THEN
./pkg/exch2/w2_set_tile2tiles.F 98 W2_SET_TILE2TILES 
         ELSEIF ( i.EQ.3 ) THEN
./pkg/exf/exf_bulkformulae.F 175 EXF_BULKFORMULAE 
      INTEGER i,j,bi,bj
./pkg/exf/exf_bulkformulae.F 253 EXF_BULKFORMULAE 
         DO i = 1,sNx
./pkg/exf/exf_bulkformulae.F 264 EXF_BULKFORMULAE 
          ikey_1 = i
./pkg/exf/exf_bulkformulae.F 275 EXF_BULKFORMULAE 
          deltap(i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 276 EXF_BULKFORMULAE 
          delq(i,j)   = 0. _d 0
./pkg/exf/exf_bulkformulae.F 280 EXF_BULKFORMULAE 
          IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 282 EXF_BULKFORMULAE 
           Tsf = theta(i,j,ksrf,bi,bj) + cen2kel
./pkg/exf/exf_bulkformulae.F 285 EXF_BULKFORMULAE 
     &              *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) )
./pkg/exf/exf_bulkformulae.F 286 EXF_BULKFORMULAE 
     &              *  maskC(i,j,ksrfp1,bi,bj)
./pkg/exf/exf_bulkformulae.F 292 EXF_BULKFORMULAE 
           deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/exf/exf_bulkformulae.F 293 EXF_BULKFORMULAE 
           delq(i,j)   = aqh(i,j,bi,bj) - ssq
./pkg/exf/exf_bulkformulae.F 295 EXF_BULKFORMULAE 
           IF ( noNegativeEvap ) delq(i,j) = MIN( 0. _d 0, delq(i,j) )
./pkg/exf/exf_bulkformulae.F 299 EXF_BULKFORMULAE 
           stable = exf_half + SIGN(exf_half, deltap(i,j))
./pkg/exf/exf_bulkformulae.F 308 EXF_BULKFORMULAE 
            wsm        = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 311 EXF_BULKFORMULAE 
            rdn(i,j)   = SQRT(tmpbulk)
./pkg/exf/exf_bulkformulae.F 312 EXF_BULKFORMULAE 
            ustar(i,j) = rdn(i,j)*wsm
./pkg/exf/exf_bulkformulae.F 315 EXF_BULKFORMULAE 
            windStress = wStress(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 316 EXF_BULKFORMULAE 
            ustar(i,j) = sqrt(windStress/atmrho)
./pkg/exf/exf_bulkformulae.F 318 EXF_BULKFORMULAE 
            tau(i,j)   = sqrt(windStress*atmrho)
./pkg/exf/exf_bulkformulae.F 326 EXF_BULKFORMULAE 
           tstar(i,j)=rhn*deltap(i,j)
./pkg/exf/exf_bulkformulae.F 327 EXF_BULKFORMULAE 
           qstar(i,j)=ren*delq(i,j)
./pkg/exf/exf_bulkformulae.F 331 EXF_BULKFORMULAE 
           tstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 332 EXF_BULKFORMULAE 
           qstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 333 EXF_BULKFORMULAE 
           ustar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 334 EXF_BULKFORMULAE 
           tau   (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 335 EXF_BULKFORMULAE 
           rdn   (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 341 EXF_BULKFORMULAE 
          DO i = 1,sNx
./pkg/exf/exf_bulkformulae.F 342 EXF_BULKFORMULAE 
           IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 346 EXF_BULKFORMULAE 
            ikey_2 = i
./pkg/exf/exf_bulkformulae.F 361 EXF_BULKFORMULAE 
            t0   = atemp(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 362 EXF_BULKFORMULAE 
     &           (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 363 EXF_BULKFORMULAE 
            huol = ( tstar(i,j)/t0 +
./pkg/exf/exf_bulkformulae.F 364 EXF_BULKFORMULAE 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 365 EXF_BULKFORMULAE 
     &              )*czol/(ustar(i,j)*ustar(i,j))
./pkg/exf/exf_bulkformulae.F 414 EXF_BULKFORMULAE 
             usn   = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp )
./pkg/exf/exf_bulkformulae.F 421 EXF_BULKFORMULAE 
             usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 428 EXF_BULKFORMULAE 
             rdn(i,j)   = SQRT(tmpbulk)
./pkg/exf/exf_bulkformulae.F 430 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp)
./pkg/exf/exf_bulkformulae.F 432 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 434 EXF_BULKFORMULAE 
             ustar(i,j) = rd(i,j)*sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 436 EXF_BULKFORMULAE 
             tau(i,j)   = atmrho*rd(i,j)*wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 450 EXF_BULKFORMULAE 
            qstar(i,j) = re*delq(i,j)
./pkg/exf/exf_bulkformulae.F 451 EXF_BULKFORMULAE 
            tstar(i,j) = rh*deltap(i,j)
./pkg/exf/exf_bulkformulae.F 459 EXF_BULKFORMULAE 
         DO i = 1,sNx
./pkg/exf/exf_bulkformulae.F 460 EXF_BULKFORMULAE 
          IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 463 EXF_BULKFORMULAE 
           ikey_1 = i
./pkg/exf/exf_bulkformulae.F 476 EXF_BULKFORMULAE 
           hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j)
./pkg/exf/exf_bulkformulae.F 477 EXF_BULKFORMULAE 
           hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j)
./pkg/exf/exf_bulkformulae.F 481 EXF_BULKFORMULAE 
           evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j)
./pkg/exf/exf_bulkformulae.F 491 EXF_BULKFORMULAE 
           tmpbulk =  tau(i,j)*rd(i,j)
./pkg/exf/exf_bulkformulae.F 492 EXF_BULKFORMULAE 
           ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 493 EXF_BULKFORMULAE 
           vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 499 EXF_BULKFORMULAE 
           ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 500 EXF_BULKFORMULAE 
           vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 502 EXF_BULKFORMULAE 
           hflux  (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 503 EXF_BULKFORMULAE 
           evap   (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 504 EXF_BULKFORMULAE 
           hs     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 505 EXF_BULKFORMULAE 
           hl     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 512 EXF_BULKFORMULAE 
          wsm     = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 515 EXF_BULKFORMULAE 
          ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 516 EXF_BULKFORMULAE 
     &                         uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 517 EXF_BULKFORMULAE 
          vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 518 EXF_BULKFORMULAE 
     &                         vwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F 102 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, ustress(i,j,bi,bj)
./pkg/exf/exf_check_range.F 107 EXF_CHECK_RANGE 
          if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND.
./pkg/exf/exf_check_range.F 108 EXF_CHECK_RANGE 
     &         maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 111 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, vstress(i,j,bi,bj)
./pkg/exf/exf_check_range.F 117 EXF_CHECK_RANGE 
          if ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F 118 EXF_CHECK_RANGE 
     &         maskW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 121 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, uwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F 126 EXF_CHECK_RANGE 
          if ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND.
./pkg/exf/exf_check_range.F 127 EXF_CHECK_RANGE 
     &         maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 130 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, vwind(i,j,bi,bj)
./pkg/exf/exf_check_range.F 136 EXF_CHECK_RANGE 
          if ( ( wspeed(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 137 EXF_CHECK_RANGE 
     &         wspeed(i,j,bi,bj) .GT. 100. ) .AND.
./pkg/exf/exf_check_range.F 138 EXF_CHECK_RANGE 
     &         maskS(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 141 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, wspeed(i,j,bi,bj)
./pkg/exf/exf_check_range.F 147 EXF_CHECK_RANGE 
          if ( (atemp(i,j,bi,bj) .LT. 183 .OR.
./pkg/exf/exf_check_range.F 148 EXF_CHECK_RANGE 
     &         atemp(i,j,bi,bj) .GT. 343 ) .AND.
./pkg/exf/exf_check_range.F 149 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 153 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, atemp(i,j,bi,bj)
./pkg/exf/exf_check_range.F 158 EXF_CHECK_RANGE 
          if ( (aqh(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 159 EXF_CHECK_RANGE 
     &         aqh(i,j,bi,bj) .GT. 0.1 ) .AND.
./pkg/exf/exf_check_range.F 160 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 163 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, aqh(i,j,bi,bj)
./pkg/exf/exf_check_range.F 168 EXF_CHECK_RANGE 
          if ( (precip(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 169 EXF_CHECK_RANGE 
     &         precip(i,j,bi,bj) .GT. 2.E-6 ) .AND.
./pkg/exf/exf_check_range.F 170 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 173 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, precip(i,j,bi,bj)
./pkg/exf/exf_check_range.F 178 EXF_CHECK_RANGE 
          if ( (snowprecip(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 179 EXF_CHECK_RANGE 
     &         snowprecip(i,j,bi,bj) .GT. 2.E-6 ) .AND.
./pkg/exf/exf_check_range.F 180 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 184 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, snowprecip(i,j,bi,bj)
./pkg/exf/exf_check_range.F 191 EXF_CHECK_RANGE 
          if ( (swflux(i,j,bi,bj) .GT. 1. .OR.
./pkg/exf/exf_check_range.F 192 EXF_CHECK_RANGE 
     &         swflux(i,j,bi,bj) .LT. -1000. ) .AND.
./pkg/exf/exf_check_range.F 193 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 196 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, swflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F 203 EXF_CHECK_RANGE 
          if ( (runoff(i,j,bi,bj) .LT. 0. .OR.
./pkg/exf/exf_check_range.F 204 EXF_CHECK_RANGE 
     &         runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND.
./pkg/exf/exf_check_range.F 205 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 208 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, runoff(i,j,bi,bj)
./pkg/exf/exf_check_range.F 34 EXF_CHECK_RANGE 
      integer i,j
./pkg/exf/exf_check_range.F 76 EXF_CHECK_RANGE 
         do i = imin,imax
./pkg/exf/exf_check_range.F 79 EXF_CHECK_RANGE 
          if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR.
./pkg/exf/exf_check_range.F 80 EXF_CHECK_RANGE 
     &         hflux(i,j,bi,bj) .LT. -500. ) .AND.
./pkg/exf/exf_check_range.F 81 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 84 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, hflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F 89 EXF_CHECK_RANGE 
          if ( ABS(sflux(i,j,bi,bj)) .GT. 1.E-6 .AND.
./pkg/exf/exf_check_range.F 90 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 93 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, sflux(i,j,bi,bj)
./pkg/exf/exf_check_range.F 98 EXF_CHECK_RANGE 
          if ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND.
./pkg/exf/exf_check_range.F 99 EXF_CHECK_RANGE 
     &         maskW(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_filter_rl.F 100 EXF_FILTER_RL 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 45 EXF_FILTER_RL 
      integer i,j
./pkg/exf/exf_filter_rl.F 78 EXF_FILTER_RL 
              do i = 1,snx
./pkg/exf/exf_filter_rl.F 79 EXF_FILTER_RL 
                if ( maskC(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rl.F 80 EXF_FILTER_RL 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 88 EXF_FILTER_RL 
              do i = 1,snx
./pkg/exf/exf_filter_rl.F 89 EXF_FILTER_RL 
                if ( maskW(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rl.F 90 EXF_FILTER_RL 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 98 EXF_FILTER_RL 
              do i = 1,snx
./pkg/exf/exf_filter_rl.F 99 EXF_FILTER_RL 
                if ( maskS(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rs.F 100 EXF_FILTER_RS 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 45 EXF_FILTER_RS 
      integer i,j
./pkg/exf/exf_filter_rs.F 78 EXF_FILTER_RS 
              do i = 1,snx
./pkg/exf/exf_filter_rs.F 79 EXF_FILTER_RS 
                if ( maskC(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rs.F 80 EXF_FILTER_RS 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 88 EXF_FILTER_RS 
              do i = 1,snx
./pkg/exf/exf_filter_rs.F 89 EXF_FILTER_RS 
                if ( maskW(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_filter_rs.F 90 EXF_FILTER_RS 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 98 EXF_FILTER_RS 
              do i = 1,snx
./pkg/exf/exf_filter_rs.F 99 EXF_FILTER_RS 
                if ( maskS(i,j,1,bi,bj) .eq. 0. ) then
./pkg/exf/exf_getclim.F 150 EXF_GETCLIM 
          DO i=1-oLx,sNx+oLx
./pkg/exf/exf_getclim.F 154 EXF_GETCLIM 
     &          theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_getclim.F 159 EXF_GETCLIM 
     &          salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_getclim.F 164 EXF_GETCLIM 
     &          uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_getclim.F 167 EXF_GETCLIM 
     &          vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_getclim.F 170 EXF_GETCLIM 
              if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_getclim.F 171 EXF_GETCLIM 
     &             theta(i,j,1,bi,bj) .EQ. 0. ) then
./pkg/exf/exf_getclim.F 172 EXF_GETCLIM 
                print *, 'ph-warn-exf-clim ', i, j, theta(i,j,1,bi,bj)
./pkg/exf/exf_getclim.F 64 EXF_GETCLIM 
      integer bi, bj, i, j
./pkg/exf/exf_getclim.F 86 EXF_GETCLIM 
         do i = 1,snx
./pkg/exf/exf_getclim.F 87 EXF_GETCLIM 
            if (climsst(i,j,bi,bj) .lt. climtempfreeze) then
./pkg/exf/exf_getclim.F 88 EXF_GETCLIM 
               climsst(i,j,bi,bj) = climtempfreeze
./pkg/exf/exf_getffields.F 140 EXF_GETFFIELDS 
          do i = 1,snx
./pkg/exf/exf_getffields.F 141 EXF_GETFFIELDS 
           uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F 142 EXF_GETFFIELDS 
     &          (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj))
./pkg/exf/exf_getffields.F 143 EXF_GETFFIELDS 
           vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F 144 EXF_GETFFIELDS 
     &          (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj))
./pkg/exf/exf_getffields.F 193 EXF_GETFFIELDS 
         do i = 1,snx
./pkg/exf/exf_getffields.F 194 EXF_GETFFIELDS 
          atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp
./pkg/exf/exf_getffields.F 472 EXF_GETFFIELDS 
           do i = 1-olx,snx+olx
./pkg/exf/exf_getffields.F 473 EXF_GETFFIELDS 
             tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 474 EXF_GETFFIELDS 
             tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 475 EXF_GETFFIELDS 
             tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 476 EXF_GETFFIELDS 
             tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 48 EXF_GETFFIELDS 
      integer i, j, bi, bj, interp_method
./pkg/exf/exf_getffields.F 500 EXF_GETFFIELDS 
           do i = 1,snx
./pkg/exf/exf_getffields.F 501 EXF_GETFFIELDS 
             uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getffields.F 502 EXF_GETFFIELDS 
             vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 153 EXF_GETFORCING 
      integer i,j,k
./pkg/exf/exf_getforcing.F 201 EXF_GETFORCING 
            do i = 1,snx
./pkg/exf/exf_getforcing.F 204 EXF_GETFORCING 
              hflux(i,j,bi,bj) =
./pkg/exf/exf_getforcing.F 205 EXF_GETFORCING 
     &              - hs(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 206 EXF_GETFORCING 
     &              - hl(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 207 EXF_GETFORCING 
     &              + lwflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 209 EXF_GETFORCING 
     &              + swflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 212 EXF_GETFORCING 
              sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 215 EXF_GETFORCING 
              sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 218 EXF_GETFORCING 
              hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F 219 EXF_GETFORCING 
              sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F 266 EXF_GETFORCING 
         do i = 1-oLx,sNx+oLx
./pkg/exf/exf_getforcing.F 267 EXF_GETFORCING 
          hflux(i,j,bi,bj) = hflux(i,j,bi,bj) + swflux(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F 109 EXF_GETSURFACEFLUXES 
           do i = 1-olx,snx+olx
./pkg/exf/exf_getsurfacefluxes.F 110 EXF_GETSURFACEFLUXES 
             tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 111 EXF_GETSURFACEFLUXES 
             tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 112 EXF_GETSURFACEFLUXES 
             tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 113 EXF_GETSURFACEFLUXES 
             tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 146 EXF_GETSURFACEFLUXES 
           do i = 1-olx,snx+olx
./pkg/exf/exf_getsurfacefluxes.F 147 EXF_GETSURFACEFLUXES 
             ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F 148 EXF_GETSURFACEFLUXES 
             vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F 62 EXF_GETSURFACEFLUXES 
      integer i,j,bi,bj
./pkg/exf/exf_init.F 379 EXF_INIT 
          DO i=1-oLx,sNx+oLx
./pkg/exf/exf_init.F 383 EXF_INIT 
     &          theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_init.F 388 EXF_INIT 
     &          salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_init.F 393 EXF_INIT 
     &          uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_init.F 396 EXF_INIT 
     &          vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_init.F 398 EXF_INIT 
           if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_init.F 399 EXF_INIT 
     &             theta(i,j,1,bi,bj) .EQ. 0. ) then
./pkg/exf/exf_init.F 400 EXF_INIT 
                print *, 'ph-warn-exf-init ', i, j, theta(i,j,1,bi,bj)
./pkg/exf/exf_init.F 44 EXF_INIT 
      INTEGER i,j,bi,bj
./pkg/exf/exf_init.F 52 EXF_INIT 
         DO i=1-Olx,sNx+Olx
./pkg/exf/exf_init.F 53 EXF_INIT 
          wStress(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 54 EXF_INIT 
          cw(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 55 EXF_INIT 
          sw(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 56 EXF_INIT 
          sh(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 58 EXF_INIT 
          hs(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 59 EXF_INIT 
          hl(i,j,bi,bj) = 0.
./pkg/exf/exf_interp.F 114 EXF_INTERP 
         do i=1-OLx,sNx+OLx
./pkg/exf/exf_interp.F 115 EXF_INTERP 
          xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0
./pkg/exf/exf_interp.F 117 EXF_INTERP 
          xG(i,j,bi,bj) = lon_0+mod(xG(i,j,bi,bj),threeSixtyRS)
./pkg/exf/exf_interp.F 129 EXF_INTERP 
      do i=-1,nx_in+2
./pkg/exf/exf_interp.F 130 EXF_INTERP 
       x_in(i) = lon_0 + (i-1)*lon_inc
./pkg/exf/exf_interp.F 144 EXF_INTERP 
        i = max(1,ny_in-1)
./pkg/exf/exf_interp.F 145 EXF_INTERP 
        y_in(j) = min( y_in(j-1)+lat_inc(i), ninety )
./pkg/exf/exf_interp.F 156 EXF_INTERP 
      do i=-1,nx_in+2
./pkg/exf/exf_interp.F 157 EXF_INTERP 
       arrayin(i,0)       = arrayin(i,1)
./pkg/exf/exf_interp.F 158 EXF_INTERP 
       arrayin(i,-1)      = arrayin(i,1)
./pkg/exf/exf_interp.F 159 EXF_INTERP 
       arrayin(i,ny_in+1) = arrayin(i,ny_in)
./pkg/exf/exf_interp.F 160 EXF_INTERP 
       arrayin(i,ny_in+2) = arrayin(i,ny_in)
./pkg/exf/exf_interp.F 16 NO PROCEDURE 
       _RL FUNCTION LAGRAN(i,x,a,sp)
./pkg/exf/exf_interp.F 173 EXF_INTERP 
         do i=1,nx_in
./pkg/exf/exf_interp.F 174 EXF_INTERP 
          NorthValue = NorthValue + arrayin(i,j)
./pkg/exf/exf_interp.F 177 EXF_INTERP 
         do i=-1,nx_in+2
./pkg/exf/exf_interp.F 178 EXF_INTERP 
          arrayin(i,j) = NorthValue
./pkg/exf/exf_interp.F 181 EXF_INTERP 
         do i=-1,nx_in+2
./pkg/exf/exf_interp.F 182 EXF_INTERP 
          arrayin(i,j) = 0.
./pkg/exf/exf_interp.F 18 NO PROCEDURE 
        INTEGER i
./pkg/exf/exf_interp.F 195 EXF_INTERP 
          do i=1,snx
./pkg/exf/exf_interp.F 196 EXF_INTERP 
           if ( xG(i,j,bi,bj) .lt. x_in(0)         .or.
./pkg/exf/exf_interp.F 197 EXF_INTERP 
     &          xG(i,j,bi,bj) .ge. x_in(nx_in+1)   .or.
./pkg/exf/exf_interp.F 198 EXF_INTERP 
     &          yG(i,j,bi,bj) .lt. y_in(0)         .or.
./pkg/exf/exf_interp.F 199 EXF_INTERP 
     &          yG(i,j,bi,bj) .ge. y_in(ny_in+1) ) then
./pkg/exf/exf_interp.F 202 EXF_INTERP 
              print*,'i,j,bi,bj'      ,i,j,bi,bj
./pkg/exf/exf_interp.F 203 EXF_INTERP 
              print*,'xG,yG'          ,xG(i,j,bi,bj),yG(i,j,bi,bj)
./pkg/exf/exf_interp.F 216 EXF_INTERP 
         do i=1,snx
./pkg/exf/exf_interp.F 217 EXF_INTERP 
          if (xG(i,j,bi,bj)-x_in(1) .ge. 0.) then
./pkg/exf/exf_interp.F 218 EXF_INTERP 
           w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc) + 1
./pkg/exf/exf_interp.F 220 EXF_INTERP 
           w_ind(i,j) = int((xG(i,j,bi,bj)-x_in(1))/lon_inc)
./pkg/exf/exf_interp.F 222 EXF_INTERP 
          e_ind(i,j) = w_ind(i,j) + 1
./pkg/exf/exf_interp.F 229 EXF_INTERP 
         do i=1,snx
./pkg/exf/exf_interp.F 231 EXF_INTERP 
          do while (yG(i,j,bi,bj) .lt. y_in(js))
./pkg/exf/exf_interp.F 234 EXF_INTERP 
          do while (yG(i,j,bi,bj) .ge. y_in(js+1))
./pkg/exf/exf_interp.F 237 EXF_INTERP 
          s_ind(i,j) = js
./pkg/exf/exf_interp.F 246 EXF_INTERP 
         do i=1,snx
./pkg/exf/exf_interp.F 247 EXF_INTERP 
          s_ind(i,j) = ny_in*.5
./pkg/exf/exf_interp.F 249 EXF_INTERP 
          inx(icnt,1) = i
./pkg/exf/exf_interp.F 257 EXF_INTERP 
          i = inx(ic,1)
./pkg/exf/exf_interp.F 259 EXF_INTERP 
          if (yG(i,j,bi,bj) .lt. y_in(s_ind(i,j))) then
./pkg/exf/exf_interp.F 260 EXF_INTERP 
           s_ind(i,j) = (s_ind(i,j) - 1)*.5
./pkg/exf/exf_interp.F 262 EXF_INTERP 
           inx(ii,1) = i
./pkg/exf/exf_interp.F 270 EXF_INTERP 
         do i=1,snx
./pkg/exf/exf_interp.F 272 EXF_INTERP 
          inx(icnt,1) = i
./pkg/exf/exf_interp.F 280 EXF_INTERP 
          i = inx(ic,1)
./pkg/exf/exf_interp.F 282 EXF_INTERP 
          if (yG(i,j,bi,bj) .ge. y_in(s_ind(i,j)+1)) then
./pkg/exf/exf_interp.F 283 EXF_INTERP 
           s_ind(i,j) = s_ind(i,j) + 1
./pkg/exf/exf_interp.F 285 EXF_INTERP 
           inx(ii,1) = i
./pkg/exf/exf_interp.F 293 EXF_INTERP 
         do i=1,snx
./pkg/exf/exf_interp.F 294 EXF_INTERP 
          n_ind(i,j) = s_ind(i,j) + 1
./pkg/exf/exf_interp.F 303 EXF_INTERP 
          do i=1,snx
./pkg/exf/exf_interp.F 304 EXF_INTERP 
           arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interp.F 306 EXF_INTERP 
            px_ind(l+1) = x_in(w_ind(i,j)+l)
./pkg/exf/exf_interp.F 307 EXF_INTERP 
            py_ind(l+1) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interp.F 311 EXF_INTERP 
            ew_val(k) = arrayin(w_ind(i,j),s_ind(i,j)+k-1)
./pkg/exf/exf_interp.F 312 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 313 EXF_INTERP 
     &             +arrayin(e_ind(i,j),s_ind(i,j)+k-1)
./pkg/exf/exf_interp.F 314 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 315 EXF_INTERP 
            arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj)
./pkg/exf/exf_interp.F 316 EXF_INTERP 
     &             +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 319 EXF_INTERP 
           ew_val1 = arrayin(w_ind(i,j),s_ind(i,j)+1-1)
./pkg/exf/exf_interp.F 320 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 321 EXF_INTERP 
     &             +arrayin(e_ind(i,j),s_ind(i,j)+1-1)
./pkg/exf/exf_interp.F 322 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 323 EXF_INTERP 
           ew_val2 = arrayin(w_ind(i,j),s_ind(i,j)+2-1)
./pkg/exf/exf_interp.F 324 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 325 EXF_INTERP 
     &             +arrayin(e_ind(i,j),s_ind(i,j)+2-1)
./pkg/exf/exf_interp.F 326 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 327 EXF_INTERP 
           arrayout(i,j,bi,bj)=
./pkg/exf/exf_interp.F 328 EXF_INTERP 
     &             +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 329 EXF_INTERP 
     &             +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 338 EXF_INTERP 
          do i=1,snx
./pkg/exf/exf_interp.F 339 EXF_INTERP 
           arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interp.F 341 EXF_INTERP 
            px_ind(l+2) = x_in(w_ind(i,j)+l)
./pkg/exf/exf_interp.F 342 EXF_INTERP 
            py_ind(l+2) = y_in(s_ind(i,j)+l)
./pkg/exf/exf_interp.F 347 EXF_INTERP 
     &             arrayin(w_ind(i,j)-1,s_ind(i,j)+k-2)
./pkg/exf/exf_interp.F 348 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 349 EXF_INTERP 
     &             +arrayin(w_ind(i,j)  ,s_ind(i,j)+k-2)
./pkg/exf/exf_interp.F 34 NO PROCEDURE 
         if ( k .ne. i) then
./pkg/exf/exf_interp.F 350 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 351 EXF_INTERP 
     &             +arrayin(e_ind(i,j)  ,s_ind(i,j)+k-2)
./pkg/exf/exf_interp.F 352 EXF_INTERP 
     &             *lagran(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 353 EXF_INTERP 
     &             +arrayin(e_ind(i,j)+1,s_ind(i,j)+k-2)
./pkg/exf/exf_interp.F 354 EXF_INTERP 
     &             *lagran(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 355 EXF_INTERP 
            arrayout(i,j,bi,bj)=arrayout(i,j,bi,bj)
./pkg/exf/exf_interp.F 356 EXF_INTERP 
     &             +ew_val(k)*lagran(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 35 NO PROCEDURE 
          denom = denom*(a(i) - a(k))
./pkg/exf/exf_interp.F 360 EXF_INTERP 
     &             arrayin(w_ind(i,j)-1,s_ind(i,j)+1-2)
./pkg/exf/exf_interp.F 361 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 362 EXF_INTERP 
     &             +arrayin(w_ind(i,j)  ,s_ind(i,j)+1-2)
./pkg/exf/exf_interp.F 363 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 364 EXF_INTERP 
     &             +arrayin(e_ind(i,j)  ,s_ind(i,j)+1-2)
./pkg/exf/exf_interp.F 365 EXF_INTERP 
     &             *lagran(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 366 EXF_INTERP 
     &             +arrayin(e_ind(i,j)+1,s_ind(i,j)+1-2)
./pkg/exf/exf_interp.F 367 EXF_INTERP 
     &             *lagran(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 369 EXF_INTERP 
     &             arrayin(w_ind(i,j)-1,s_ind(i,j)+2-2)
./pkg/exf/exf_interp.F 370 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 371 EXF_INTERP 
     &             +arrayin(w_ind(i,j)  ,s_ind(i,j)+2-2)
./pkg/exf/exf_interp.F 372 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 373 EXF_INTERP 
     &             +arrayin(e_ind(i,j)  ,s_ind(i,j)+2-2)
./pkg/exf/exf_interp.F 374 EXF_INTERP 
     &             *lagran(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 375 EXF_INTERP 
     &             +arrayin(e_ind(i,j)+1,s_ind(i,j)+2-2)
./pkg/exf/exf_interp.F 376 EXF_INTERP 
     &             *lagran(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 378 EXF_INTERP 
     &             arrayin(w_ind(i,j)-1,s_ind(i,j)+3-2)
./pkg/exf/exf_interp.F 379 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 380 EXF_INTERP 
     &             +arrayin(w_ind(i,j)  ,s_ind(i,j)+3-2)
./pkg/exf/exf_interp.F 381 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 382 EXF_INTERP 
     &             +arrayin(e_ind(i,j)  ,s_ind(i,j)+3-2)
./pkg/exf/exf_interp.F 383 EXF_INTERP 
     &             *lagran(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 384 EXF_INTERP 
     &             +arrayin(e_ind(i,j)+1,s_ind(i,j)+3-2)
./pkg/exf/exf_interp.F 385 EXF_INTERP 
     &             *lagran(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 387 EXF_INTERP 
     &             arrayin(w_ind(i,j)-1,s_ind(i,j)+4-2)
./pkg/exf/exf_interp.F 388 EXF_INTERP 
     &             *lagran(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 389 EXF_INTERP 
     &             +arrayin(w_ind(i,j)  ,s_ind(i,j)+4-2)
./pkg/exf/exf_interp.F 390 EXF_INTERP 
     &             *lagran(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 391 EXF_INTERP 
     &             +arrayin(e_ind(i,j)  ,s_ind(i,j)+4-2)
./pkg/exf/exf_interp.F 392 EXF_INTERP 
     &             *lagran(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 393 EXF_INTERP 
     &             +arrayin(e_ind(i,j)+1,s_ind(i,j)+4-2)
./pkg/exf/exf_interp.F 394 EXF_INTERP 
     &             *lagran(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interp.F 395 EXF_INTERP 
            arrayout(i,j,bi,bj)=
./pkg/exf/exf_interp.F 396 EXF_INTERP 
     &             +ew_val1*lagran(1,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 397 EXF_INTERP 
     &             +ew_val2*lagran(2,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 398 EXF_INTERP 
     &             +ew_val3*lagran(3,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 399 EXF_INTERP 
     &             +ew_val4*lagran(4,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interp.F 98 EXF_INTERP 
      integer  i, j, k, l, js, bi, bj, sp, interp_unit
./pkg/exf/exf_interp_read.F 145 EXF_INTERP_READ 
          READ(ioUnit,rec=irecord) (buffer_r4(i),i=1,nx_in*ny_in)
./pkg/exf/exf_interp_read.F 154 EXF_INTERP_READ 
          READ(ioUnit,rec=irecord) (buffer_r8(i),i=1,nx_in*ny_in)
./pkg/exf/exf_interp_read.F 193 EXF_INTERP_READ 
          DO i=1,nx_in
./pkg/exf/exf_interp_read.F 194 EXF_INTERP_READ 
            arrayin(i,j)=glPtr4(i,j)
./pkg/exf/exf_interp_read.F 199 EXF_INTERP_READ 
          DO i=1,nx_in
./pkg/exf/exf_interp_read.F 200 EXF_INTERP_READ 
            arrayin(i,j)=glPtr8(i,j)
./pkg/exf/exf_interp_read.F 207 EXF_INTERP_READ 
          DO i=1,nx_in
./pkg/exf/exf_interp_read.F 208 EXF_INTERP_READ 
            arrayin(i,j)=buffer_r4(i,j)
./pkg/exf/exf_interp_read.F 213 EXF_INTERP_READ 
          DO i=1,nx_in
./pkg/exf/exf_interp_read.F 214 EXF_INTERP_READ 
            arrayin(i,j)=buffer_r8(i,j)
./pkg/exf/exf_interp_read.F 223 EXF_INTERP_READ 
          DO i=1,nx_in
./pkg/exf/exf_interp_read.F 224 EXF_INTERP_READ 
            arrayin(i,j)=buffer_r4(i+ijs)
./pkg/exf/exf_interp_read.F 230 EXF_INTERP_READ 
          DO i=1,nx_in
./pkg/exf/exf_interp_read.F 231 EXF_INTERP_READ 
            arrayin(i,j)=buffer_r8(i+ijs)
./pkg/exf/exf_interp_read.F 52 EXF_INTERP_READ 
      INTEGER  i, j
./pkg/exf/exf_mapfields.F 100 EXF_MAPFIELDS 
             qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 105 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 106 EXF_MAPFIELDS 
                  qnet(i,j,bi,bj) = qnet(i,j,bi,bj) -
./pkg/exf/exf_mapfields.F 115 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 116 EXF_MAPFIELDS 
             EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 122 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 123 EXF_MAPFIELDS 
                 EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh*
./pkg/exf/exf_mapfields.F 134 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 136 EXF_MAPFIELDS 
              if (ustress(i,j,bi,bj).gt.windstressmax) then
./pkg/exf/exf_mapfields.F 137 EXF_MAPFIELDS 
                ustress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F 145 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 146 EXF_MAPFIELDS 
              if (ustress(i,j,bi,bj).lt.-windstressmax) then
./pkg/exf/exf_mapfields.F 147 EXF_MAPFIELDS 
                ustress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F 153 EXF_MAPFIELDS 
            do i = imin+1,imax
./pkg/exf/exf_mapfields.F 154 EXF_MAPFIELDS 
              fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 159 EXF_MAPFIELDS 
            do i = imin+1,imax
./pkg/exf/exf_mapfields.F 161 EXF_MAPFIELDS 
              fu(i,j,bi,bj) = exf_outscal_ustress*
./pkg/exf/exf_mapfields.F 162 EXF_MAPFIELDS 
     &              (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))
./pkg/exf/exf_mapfields.F 163 EXF_MAPFIELDS 
     &              *exf_half*maskW(i,j,1,bi,bj)
./pkg/exf/exf_mapfields.F 172 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 174 EXF_MAPFIELDS 
              if (vstress(i,j,bi,bj).gt.windstressmax) then
./pkg/exf/exf_mapfields.F 175 EXF_MAPFIELDS 
                vstress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F 183 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 184 EXF_MAPFIELDS 
              if (vstress(i,j,bi,bj).lt.-windstressmax) then
./pkg/exf/exf_mapfields.F 185 EXF_MAPFIELDS 
                vstress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F 191 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 192 EXF_MAPFIELDS 
              fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 197 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 199 EXF_MAPFIELDS 
              fv(i,j,bi,bj) = exf_outscal_vstress*
./pkg/exf/exf_mapfields.F 200 EXF_MAPFIELDS 
     &              (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))
./pkg/exf/exf_mapfields.F 201 EXF_MAPFIELDS 
     &              *exf_half*maskS(i,j,1,bi,bj)
./pkg/exf/exf_mapfields.F 209 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 210 EXF_MAPFIELDS 
             qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 217 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 218 EXF_MAPFIELDS 
             sst(i,j,bi,bj)  = exf_outscal_sst*climsst(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 225 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 226 EXF_MAPFIELDS 
             sss(i,j,bi,bj)  = exf_outscal_sss*climsss(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 233 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_mapfields.F 234 EXF_MAPFIELDS 
             pload(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 73 EXF_MAPFIELDS 
      integer i,j,k
./pkg/exf/exf_mapfields.F 99 EXF_MAPFIELDS 
            do i = imin,imax
./pkg/exf/exf_radiation.F 123 EXF_RADIATION 
          DO i = 1,sNx
./pkg/exf/exf_radiation.F 126 EXF_RADIATION 
           swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F 127 EXF_RADIATION 
     &                         (1.0-zen_albedo(i,j,bi,bj))
./pkg/exf/exf_radiation.F 129 EXF_RADIATION 
           swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F 133 EXF_RADIATION 
           swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F 42 EXF_RADIATION 
      INTEGER i,j
./pkg/exf/exf_radiation.F 67 EXF_RADIATION 
           DO i = 1,sNx
./pkg/exf/exf_radiation.F 68 EXF_RADIATION 
            Tsf = theta(i,j,1,bi,bj) + cen2kel
./pkg/exf/exf_radiation.F 70 EXF_RADIATION 
     &             *( theta(i,j,1,bi,bj)-theta(i,j,2,bi,bj) )
./pkg/exf/exf_radiation.F 71 EXF_RADIATION 
     &             *  maskC(i,j,2,bi,bj)
./pkg/exf/exf_radiation.F 74 EXF_RADIATION 
            lwflux(i,j,bi,bj) =
./pkg/exf/exf_radiation.F 76 EXF_RADIATION 
     &          - lwdown(i,j,bi,bj)
./pkg/exf/exf_radiation.F 81 EXF_RADIATION 
           DO i = 1,sNx
./pkg/exf/exf_radiation.F 82 EXF_RADIATION 
            lwflux(i,j,bi,bj) =
./pkg/exf/exf_radiation.F 84 EXF_RADIATION 
     &          ((theta(i,j,k,bi,bj)+cen2kel)**4)
./pkg/exf/exf_radiation.F 85 EXF_RADIATION 
     &          - lwdown(i,j,bi,bj)
./pkg/exf/exf_readparms.F 60 EXF_READPARMS 
      integer i
./pkg/exf/exf_readparms.F 712 EXF_READPARMS 
      DO i=1,MAX_LAT_INC
./pkg/exf/exf_readparms.F 713 EXF_READPARMS 
         IF (i.LT.Ny) THEN
./pkg/exf/exf_readparms.F 714 EXF_READPARMS 
            vstress_lat_inc(i)   =  delY(i)
./pkg/exf/exf_readparms.F 715 EXF_READPARMS 
            vwind_lat_inc(i)     =  delY(i)
./pkg/exf/exf_readparms.F 716 EXF_READPARMS 
            wspeed_lat_inc(i)    =  delY(i)
./pkg/exf/exf_readparms.F 717 EXF_READPARMS 
            ustress_lat_inc(i)   = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 718 EXF_READPARMS 
            hflux_lat_inc(i)     = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 719 EXF_READPARMS 
            sflux_lat_inc(i)     = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 720 EXF_READPARMS 
            swflux_lat_inc(i)    = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 721 EXF_READPARMS 
            runoff_lat_inc(i)    = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 722 EXF_READPARMS 
            atemp_lat_inc(i)     = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 723 EXF_READPARMS 
            aqh_lat_inc(i)       = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 724 EXF_READPARMS 
            evap_lat_inc(i)      = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 725 EXF_READPARMS 
            precip_lat_inc(i)    = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 726 EXF_READPARMS 
            snowprecip_lat_inc(i)= (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 727 EXF_READPARMS 
            uwind_lat_inc(i)     = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 728 EXF_READPARMS 
            lwflux_lat_inc(i)    = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 729 EXF_READPARMS 
            swdown_lat_inc(i)    = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 730 EXF_READPARMS 
            lwdown_lat_inc(i)    = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 731 EXF_READPARMS 
            apressure_lat_inc(i) = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 732 EXF_READPARMS 
            areamask_lat_inc(i)  = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 733 EXF_READPARMS 
            climsst_lat_inc(i)   = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 734 EXF_READPARMS 
            climsss_lat_inc(i)   = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 735 EXF_READPARMS 
            climustr_lat_inc(i)  = (delY(i) + delY(i))*exf_half
./pkg/exf/exf_readparms.F 736 EXF_READPARMS 
            climvstr_lat_inc(i)  =  delY(i)
./pkg/exf/exf_readparms.F 738 EXF_READPARMS 
            ustress_lat_inc(i)   = 0.
./pkg/exf/exf_readparms.F 739 EXF_READPARMS 
            vstress_lat_inc(i)   = 0.
./pkg/exf/exf_readparms.F 740 EXF_READPARMS 
            hflux_lat_inc(i)     = 0.
./pkg/exf/exf_readparms.F 741 EXF_READPARMS 
            sflux_lat_inc(i)     = 0.
./pkg/exf/exf_readparms.F 742 EXF_READPARMS 
            swflux_lat_inc(i)    = 0.
./pkg/exf/exf_readparms.F 743 EXF_READPARMS 
            runoff_lat_inc(i)    = 0.
./pkg/exf/exf_readparms.F 744 EXF_READPARMS 
            atemp_lat_inc(i)     = 0.
./pkg/exf/exf_readparms.F 745 EXF_READPARMS 
            aqh_lat_inc(i)       = 0.
./pkg/exf/exf_readparms.F 746 EXF_READPARMS 
            evap_lat_inc(i)      = 0.
./pkg/exf/exf_readparms.F 747 EXF_READPARMS 
            precip_lat_inc(i)    = 0.
./pkg/exf/exf_readparms.F 748 EXF_READPARMS 
            snowprecip_lat_inc(i)= 0.
./pkg/exf/exf_readparms.F 749 EXF_READPARMS 
            uwind_lat_inc(i)     = 0.
./pkg/exf/exf_readparms.F 750 EXF_READPARMS 
            vwind_lat_inc(i)     = 0.
./pkg/exf/exf_readparms.F 751 EXF_READPARMS 
            wspeed_lat_inc(i)    = 0.
./pkg/exf/exf_readparms.F 752 EXF_READPARMS 
            lwflux_lat_inc(i)    = 0.
./pkg/exf/exf_readparms.F 753 EXF_READPARMS 
            swdown_lat_inc(i)    = 0.
./pkg/exf/exf_readparms.F 754 EXF_READPARMS 
            lwdown_lat_inc(i)    = 0.
./pkg/exf/exf_readparms.F 755 EXF_READPARMS 
            apressure_lat_inc(i) = 0.
./pkg/exf/exf_readparms.F 756 EXF_READPARMS 
            areamask_lat_inc(i)  = 0.
./pkg/exf/exf_readparms.F 757 EXF_READPARMS 
            climsst_lat_inc(i)   = 0.
./pkg/exf/exf_readparms.F 758 EXF_READPARMS 
            climsss_lat_inc(i)   = 0.
./pkg/exf/exf_readparms.F 759 EXF_READPARMS 
            climustr_lat_inc(i)  = 0.
./pkg/exf/exf_readparms.F 760 EXF_READPARMS 
            climvstr_lat_inc(i)  = 0.
./pkg/exf/exf_set_gen.F 196 EXF_SET_GEN 
            do i = 1,snx
./pkg/exf/exf_set_gen.F 198 EXF_SET_GEN 
             genfld(i,j,bi,bj) = exf_inscal_gen * (
./pkg/exf/exf_set_gen.F 199 EXF_SET_GEN 
     &                          fac * gen0(i,j,bi,bj) +
./pkg/exf/exf_set_gen.F 200 EXF_SET_GEN 
     &              (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_gen.F 201 EXF_SET_GEN 
             genfld(i,j,bi,bj) =
./pkg/exf/exf_set_gen.F 202 EXF_SET_GEN 
     &            genfld(i,j,bi,bj) -
./pkg/exf/exf_set_gen.F 279 EXF_INIT_GEN 
      integer bi, bj, i, j, count
./pkg/exf/exf_set_gen.F 286 EXF_INIT_GEN 
            do i = 1-olx, snx+olx
./pkg/exf/exf_set_gen.F 287 EXF_INIT_GEN 
              genfld(i,j,bi,bj)  = genconst
./pkg/exf/exf_set_gen.F 288 EXF_INIT_GEN 
              gen0(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_gen.F 289 EXF_INIT_GEN 
              gen1(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_gen.F 326 EXF_INIT_GEN 
                  do i = 1,snx
./pkg/exf/exf_set_gen.F 327 EXF_INIT_GEN 
                     genfld(i,j,bi,bj) =
./pkg/exf/exf_set_gen.F 328 EXF_INIT_GEN 
     &                    exf_inscal_gen * genfld(i,j,bi,bj)
./pkg/exf/exf_set_gen.F 83 EXF_SET_GEN 
      integer bi, bj, i, j
./pkg/exf/exf_set_obcs.F 102 EXF_SET_OBCS_XZ 
                  DO i = 1,sNx
./pkg/exf/exf_set_obcs.F 103 EXF_SET_OBCS_XZ 
                     obcs_fld_xz(i,k,bi,bj) =
./pkg/exf/exf_set_obcs.F 104 EXF_SET_OBCS_XZ 
     &                    fac * obcs_xz_0(i,k,bi,bj) +
./pkg/exf/exf_set_obcs.F 105 EXF_SET_OBCS_XZ 
     &                    (exf_one - fac) * obcs_xz_1(i,k,bi,bj)
./pkg/exf/exf_set_obcs.F 273 EXF_SET_OBCS_X 
      INTEGER bi, bj, i
./pkg/exf/exf_set_obcs.F 306 EXF_SET_OBCS_X 
               DO i = 1,sNx
./pkg/exf/exf_set_obcs.F 307 EXF_SET_OBCS_X 
                  obcs_fld_x(i,bi,bj) =
./pkg/exf/exf_set_obcs.F 308 EXF_SET_OBCS_X 
     &                 fac * obcs_x_0(i,bi,bj) +
./pkg/exf/exf_set_obcs.F 309 EXF_SET_OBCS_X 
     &                 (exf_one - fac) * obcs_x_1(i,bi,bj)
./pkg/exf/exf_set_obcs.F 68 EXF_SET_OBCS_XZ 
      INTEGER i, k
./pkg/exf/exf_set_runoff.F 145 EXF_SET_RUNOFF 
            do i = 1,snx
./pkg/exf/exf_set_runoff.F 147 EXF_SET_RUNOFF 
             genfld(i,j,bi,bj) = exf_inscal_gen * (
./pkg/exf/exf_set_runoff.F 148 EXF_SET_RUNOFF 
     &                          fac * gen0(i,j,bi,bj) +
./pkg/exf/exf_set_runoff.F 149 EXF_SET_RUNOFF 
     &              (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_runoff.F 150 EXF_SET_RUNOFF 
             genfld(i,j,bi,bj) =
./pkg/exf/exf_set_runoff.F 151 EXF_SET_RUNOFF 
     &            genfld(i,j,bi,bj) -
./pkg/exf/exf_set_runoff.F 207 EXF_INIT_RUNOFF 
      integer bi, bj, i, j, count
./pkg/exf/exf_set_runoff.F 214 EXF_INIT_RUNOFF 
            do i = 1-olx, snx+olx
./pkg/exf/exf_set_runoff.F 215 EXF_INIT_RUNOFF 
              genfld(i,j,bi,bj)  = genconst
./pkg/exf/exf_set_runoff.F 216 EXF_INIT_RUNOFF 
              gen0(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_runoff.F 217 EXF_INIT_RUNOFF 
              gen1(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_runoff.F 241 EXF_INIT_RUNOFF 
                  do i = 1,snx
./pkg/exf/exf_set_runoff.F 242 EXF_INIT_RUNOFF 
                     genfld(i,j,bi,bj) =
./pkg/exf/exf_set_runoff.F 243 EXF_INIT_RUNOFF 
     &                    exf_inscal_gen * genfld(i,j,bi,bj)
./pkg/exf/exf_set_runoff.F 58 EXF_SET_RUNOFF 
      integer bi, bj, i, j
./pkg/exf/exf_set_uv.F 149 EXF_SET_UV 
                  do i = 1,snx
./pkg/exf/exf_set_uv.F 150 EXF_SET_UV 
                    x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 151 EXF_SET_UV 
                    x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 152 EXF_SET_UV 
                    x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 153 EXF_SET_UV 
                    x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 160 EXF_SET_UV 
                    y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 161 EXF_SET_UV 
                    y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 162 EXF_SET_UV 
                    y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 163 EXF_SET_UV 
                    y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 166 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 168 EXF_SET_UV 
                    vvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 169 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 170 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 174 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 176 EXF_SET_UV 
                    uvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 177 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 178 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 229 EXF_SET_UV 
                  do i = 1,snx
./pkg/exf/exf_set_uv.F 230 EXF_SET_UV 
                    x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 231 EXF_SET_UV 
                    x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 232 EXF_SET_UV 
                    x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 233 EXF_SET_UV 
                    x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 240 EXF_SET_UV 
                    y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 241 EXF_SET_UV 
                    y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 242 EXF_SET_UV 
                    y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 243 EXF_SET_UV 
                    y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 246 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 248 EXF_SET_UV 
                    vvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 249 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 250 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 254 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 256 EXF_SET_UV 
                    uvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 257 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 258 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 279 EXF_SET_UV 
                do i = 1,snx
./pkg/exf/exf_set_uv.F 280 EXF_SET_UV 
                  uvec(i,j,bi,bj) = exf_inscal_uvec * (
./pkg/exf/exf_set_uv.F 281 EXF_SET_UV 
     &                fac * uvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F 282 EXF_SET_UV 
     &                (exf_one - fac) * uvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 283 EXF_SET_UV 
                  vvec(i,j,bi,bj) = exf_inscal_vvec * (
./pkg/exf/exf_set_uv.F 284 EXF_SET_UV 
     &                fac * vvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F 285 EXF_SET_UV 
     &                (exf_one - fac) * vvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 93 EXF_SET_UV 
      integer i, j, bi, bj
./pkg/exf/exf_swapffields.F 109 EXF_SWAPFFIELDS_3D 
      integer  i
./pkg/exf/exf_swapffields.F 126 EXF_SWAPFFIELDS_3D 
              do i = 1,snx
./pkg/exf/exf_swapffields.F 127 EXF_SWAPFFIELDS_3D 
                ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj)
./pkg/exf/exf_swapffields.F 128 EXF_SWAPFFIELDS_3D 
                ffld1(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 171 EXF_SWAPFFIELDS_XZ 
      integer  i, k
./pkg/exf/exf_swapffields.F 185 EXF_SWAPFFIELDS_XZ 
            do i = 1,snx
./pkg/exf/exf_swapffields.F 186 EXF_SWAPFFIELDS_XZ 
              ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj)
./pkg/exf/exf_swapffields.F 187 EXF_SWAPFFIELDS_XZ 
              ffld1(i,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 285 EXF_SWAPFFIELDS_X 
      integer  bi, bj, i, itlo,ithi, jtlo,jthi
./pkg/exf/exf_swapffields.F 296 EXF_SWAPFFIELDS_X 
           do i = 1,snx
./pkg/exf/exf_swapffields.F 297 EXF_SWAPFFIELDS_X 
              ffld0(i,bi,bj) = ffld1(i,bi,bj)
./pkg/exf/exf_swapffields.F 298 EXF_SWAPFFIELDS_X 
              ffld1(i,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 51 EXF_SWAPFFIELDS 
      integer  i
./pkg/exf/exf_swapffields.F 66 EXF_SWAPFFIELDS 
            do i = 1,snx
./pkg/exf/exf_swapffields.F 67 EXF_SWAPFFIELDS 
              ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj)
./pkg/exf/exf_swapffields.F 68 EXF_SWAPFFIELDS 
              ffld1(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 106 EXF_WIND 
         DO i = 1,sNx
./pkg/exf/exf_wind.F 108 EXF_WIND 
             usSq = ( ustress(i,  j,bi,bj)*ustress(i  ,j,bi,bj)
./pkg/exf/exf_wind.F 109 EXF_WIND 
     &               +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj)
./pkg/exf/exf_wind.F 110 EXF_WIND 
     &               +vstress(i,j,  bi,bj)*vstress(i,j  ,bi,bj)
./pkg/exf/exf_wind.F 111 EXF_WIND 
     &               +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj)
./pkg/exf/exf_wind.F 114 EXF_WIND 
             usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj)
./pkg/exf/exf_wind.F 115 EXF_WIND 
     &             +vstress(i,j,bi,bj)*vstress(i,j,bi,bj)
./pkg/exf/exf_wind.F 118 EXF_WIND 
             wStress(i,j,bi,bj) = SQRT(usSq)
./pkg/exf/exf_wind.F 120 EXF_WIND 
             cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F 121 EXF_WIND 
             sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F 123 EXF_WIND 
             wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 124 EXF_WIND 
             cw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 125 EXF_WIND 
             sw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 140 EXF_WIND 
          DO i = 1,sNx
./pkg/exf/exf_wind.F 141 EXF_WIND 
            ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA
./pkg/exf/exf_wind.F 143 EXF_WIND 
             wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 147 EXF_WIND 
             wsLoc(i,j) = SQRT(tmp1 + tmp2)
./pkg/exf/exf_wind.F 156 EXF_WIND 
             wsLoc(i,j) = tmp4 + tmp1*tmp1 / tmp4 - tmp1
./pkg/exf/exf_wind.F 164 EXF_WIND 
          DO i = 1,sNx
./pkg/exf/exf_wind.F 165 EXF_WIND 
            wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F 172 EXF_WIND 
         DO i = 1,sNx
./pkg/exf/exf_wind.F 173 EXF_WIND 
           uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj)
./pkg/exf/exf_wind.F 174 EXF_WIND 
           vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj)
./pkg/exf/exf_wind.F 181 EXF_WIND 
         DO i = 1,sNx
./pkg/exf/exf_wind.F 182 EXF_WIND 
           sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin)
./pkg/exf/exf_wind.F 45 EXF_WIND 
      INTEGER i,j
./pkg/exf/exf_wind.F 66 EXF_WIND 
         DO i = 1,sNx
./pkg/exf/exf_wind.F 67 EXF_WIND 
          wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 68 EXF_WIND 
          cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 69 EXF_WIND 
          sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 70 EXF_WIND 
          sh(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 71 EXF_WIND 
          wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 79 EXF_WIND 
         DO i = 1,sNx
./pkg/exf/exf_wind.F 80 EXF_WIND 
           wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 81 EXF_WIND 
     &         + vwind(i,j,bi,bj)*vwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 83 EXF_WIND 
             wsLoc(i,j) = SQRT(wsSq)
./pkg/exf/exf_wind.F 84 EXF_WIND 
             cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F 85 EXF_WIND 
             sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F 87 EXF_WIND 
             wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 88 EXF_WIND 
             cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 89 EXF_WIND 
             sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 96 EXF_WIND 
           DO i = 1,sNx
./pkg/exf/exf_wind.F 97 EXF_WIND 
             wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_zenithangle.F 101 EXF_ZENITHANGLE 
          DO i = 1,sNx
./pkg/exf/exf_zenithangle.F 121 EXF_ZENITHANGLE 
          if ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) then
./pkg/exf/exf_zenithangle.F 127 EXF_ZENITHANGLE 
            iLat1= zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F 128 EXF_ZENITHANGLE 
            wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F 163 EXF_ZENITHANGLE 
        SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 164 EXF_ZENITHANGLE 
        CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 172 EXF_ZENITHANGLE 
     &         cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F 231 EXF_ZENITHANGLE 
        zen_albedo (i,j,bi,bj) =
./pkg/exf/exf_zenithangle.F 247 EXF_ZENITHANGLE 
          DO i = 1,sNx
./pkg/exf/exf_zenithangle.F 269 EXF_ZENITHANGLE 
        SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 270 EXF_ZENITHANGLE 
        CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 274 EXF_ZENITHANGLE 
     &         cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F 277 EXF_ZENITHANGLE 
       zen_fsol_diurnal (i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F 279 EXF_ZENITHANGLE 
       H0 = -tan( yC(i,j,bi,bj) *deg2rad ) * tan( DECLI )
./pkg/exf/exf_zenithangle.F 285 EXF_ZENITHANGLE 
       zen_fsol_daily (i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F 45 EXF_ZENITHANGLE 
      INTEGER i,j
./pkg/exf/exf_zenithangle_table.F 132 EXF_ZENITHANGLE_TABLE 
          DO i = 1,sNx
./pkg/exf/exf_zenithangle_table.F 133 EXF_ZENITHANGLE_TABLE 
           LLLAT=yC(i,j,bi,bj)+91. _d 0
./pkg/exf/exf_zenithangle_table.F 138 EXF_ZENITHANGLE_TABLE 
           zen_albedo_pointer(i,j,bi,bj)=LLLAT
./pkg/exf/exf_zenithangle_table.F 41 EXF_ZENITHANGLE_TABLE 
      INTEGER i,j
./pkg/fizhi/AtoC.F 40 ATOC 
       integer i, j, L, bi, bj
./pkg/fizhi/AtoC.F 55 ATOC 
          do i = idim1,idim2
./pkg/fizhi/AtoC.F 56 ATOC 
           tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask(i,j,L,bi,bj)
./pkg/fizhi/AtoC.F 57 ATOC 
           tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask(i,j,L,bi,bj)
./pkg/fizhi/AtoC.F 61 ATOC 
         do i = im1,im2
./pkg/fizhi/AtoC.F 64 ATOC 
          if( (mask(i-1,j,L,bi,bj).ne.0.) .or.
./pkg/fizhi/AtoC.F 65 ATOC 
     .                                  (mask(i,j,L,bi,bj).ne.0.) ) then
./pkg/fizhi/AtoC.F 70 ATOC 
           fieldout1(i,j,L,bi,bj) =
./pkg/fizhi/AtoC.F 71 ATOC 
     .           ( tmpfld1(i-1,j) + tmpfld1(i,j) ) /
./pkg/fizhi/AtoC.F 72 ATOC 
     .           ( mask(i-1,j,L,bi,bj) + mask(i,j,L,bi,bj) )
./pkg/fizhi/AtoC.F 74 ATOC 
           fieldout1(i,j,L,bi,bj) = 0.
./pkg/fizhi/AtoC.F 76 ATOC 
          if( (mask(i,j-1,L,bi,bj).ne.0.) .or.
./pkg/fizhi/AtoC.F 77 ATOC 
     .                                  (mask(i,j,L,bi,bj).ne.0.) ) then
./pkg/fizhi/AtoC.F 82 ATOC 
           fieldout2(i,j,L,bi,bj) =
./pkg/fizhi/AtoC.F 83 ATOC 
     .           ( tmpfld2(i,j-1) + tmpfld2(i,j) ) /
./pkg/fizhi/AtoC.F 84 ATOC 
     .           ( mask(i,j,L,bi,bj) + mask(i,j-1,L,bi,bj) )
./pkg/fizhi/AtoC.F 86 ATOC 
           fieldout2(i,j,L,bi,bj) = 0.
./pkg/fizhi/CtoA.F 42 CTOA 
       integer i, j, L, bi, bj
./pkg/fizhi/CtoA.F 57 CTOA 
          do i = idim1,idim2
./pkg/fizhi/CtoA.F 58 CTOA 
           tmpfld1(i,j) = fieldin1(i,j,L,bi,bj)*mask1(i,j,L,bi,bj)
./pkg/fizhi/CtoA.F 59 CTOA 
           tmpfld2(i,j) = fieldin2(i,j,L,bi,bj)*mask2(i,j,L,bi,bj)
./pkg/fizhi/CtoA.F 63 CTOA 
         do i = im1,im2
./pkg/fizhi/CtoA.F 64 CTOA 
          if( (mask1(i,j,L,bi,bj).ne.0.) .or.
./pkg/fizhi/CtoA.F 65 CTOA 
     .                               (mask1(i+1,j,L,bi,bj).ne.0.) ) then
./pkg/fizhi/CtoA.F 70 CTOA 
           fieldout1(i,j,L,bi,bj) =
./pkg/fizhi/CtoA.F 71 CTOA 
     .            ( tmpfld1(i,j) + tmpfld1(i+1,j) ) /
./pkg/fizhi/CtoA.F 72 CTOA 
     .            ( mask1(i,j,L,bi,bj) + mask1(i+1,j,L,bi,bj) )
./pkg/fizhi/CtoA.F 74 CTOA 
           fieldout1(i,j,L,bi,bj) = 0.
./pkg/fizhi/CtoA.F 76 CTOA 
          if( (mask2(i,j,L,bi,bj).ne.0.) .or.
./pkg/fizhi/CtoA.F 77 CTOA 
     .                               (mask2(i,j+1,L,bi,bj).ne.0.) ) then
./pkg/fizhi/CtoA.F 82 CTOA 
           fieldout2(i,j,L,bi,bj) =
./pkg/fizhi/CtoA.F 83 CTOA 
     .            ( tmpfld2(i,j) + tmpfld2(i,j+1) ) /
./pkg/fizhi/CtoA.F 84 CTOA 
     .            ( mask2(i,j,L,bi,bj) + mask2(i,j+1,L,bi,bj) )
./pkg/fizhi/CtoA.F 86 CTOA 
           fieldout2(i,j,L,bi,bj) = 0.
./pkg/fizhi/cah-dat.h 20 NO PROCEDURE 
      data ((cah(i,j),i=1,22),j= 6,10)/
./pkg/fizhi/cah-dat.h 35 NO PROCEDURE 
      data ((cah(i,j),i=1,22),j=11,15)/
./pkg/fizhi/cah-dat.h 50 NO PROCEDURE 
      data ((cah(i,j),i=1,22),j=16,19)/
./pkg/fizhi/cah-dat.h 5 NO PROCEDURE 
      data ((cah(i,j),i=1,22),j= 1, 5)/
./model/inc/HFACC_MACROS.h 36 NO PROCEDURE 
# define _hFacC(i,j,k,bi,bj) hFacC(i,j,k,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/fizhi/cai-dat.h 104 NO PROCEDURE 
      data ((caib(11,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 115 NO PROCEDURE 
      data ((caif(i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 14 NO PROCEDURE 
      data ((caib(2,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 24 NO PROCEDURE 
      data ((caib(3,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 34 NO PROCEDURE 
      data ((caib(4,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 44 NO PROCEDURE 
      data ((caib(5,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 4 NO PROCEDURE 
      data ((caib(1,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 54 NO PROCEDURE 
      data ((caib(6,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 64 NO PROCEDURE 
      data ((caib(7,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 74 NO PROCEDURE 
      data ((caib(8,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 84 NO PROCEDURE 
      data ((caib(9,i,j),j=1,11),i=1,9)/
./pkg/fizhi/cai-dat.h 94 NO PROCEDURE 
      data ((caib(10,i,j),j=1,11),i=1,9)/
./pkg/fizhi/do_fizhi.F 130 DO_FIZHI 
      integer i,j,L
./pkg/fizhi/do_fizhi.F 169 DO_FIZHI 
      do i = im1,im2
./pkg/fizhi/do_fizhi.F 170 DO_FIZHI 
       xlats(i,j) = lats(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 171 DO_FIZHI 
       xlons(i,j) = lons(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 172 DO_FIZHI 
       surfZ(i,j) = Zsurf(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 182 DO_FIZHI 
      do i=im1,im2
./pkg/fizhi/do_fizhi.F 183 DO_FIZHI 
       radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j)
./pkg/fizhi/do_fizhi.F 192 DO_FIZHI 
      do i = im1,im2
./pkg/fizhi/do_fizhi.F 193 DO_FIZHI 
       ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100.
./pkg/fizhi/do_fizhi.F 194 DO_FIZHI 
       pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa
./pkg/fizhi/do_fizhi.F 195 DO_FIZHI 
       p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100.
./pkg/fizhi/do_fizhi.F 196 DO_FIZHI 
       sea_ice(i,j) = sice(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 197 DO_FIZHI 
       raincon(i,j) = rainconin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 198 DO_FIZHI 
       rainlsp(i,j) = rainlspin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 199 DO_FIZHI 
       snowfall(i,j) = snowfallin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 204 DO_FIZHI 
      do i = im1,im2
./pkg/fizhi/do_fizhi.F 205 DO_FIZHI 
       u(i,j,L) = uphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 206 DO_FIZHI 
       v(i,j,L) = vphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 207 DO_FIZHI 
       t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa
./pkg/fizhi/do_fizhi.F 208 DO_FIZHI 
       q(i,j,L,1) = sphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 209 DO_FIZHI 
       pl(i,j,L,bi,bj) = (pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))/200.
./pkg/fizhi/do_fizhi.F 210 DO_FIZHI 
       dpres(i,j,L,bi,bj)=(pephy(i,j,L+1,bi,bj)-pephy(i,j,L,bi,bj))/100.
./pkg/fizhi/do_fizhi.F 211 DO_FIZHI 
       ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100.
./pkg/fizhi/do_fizhi.F 212 DO_FIZHI 
       if (ple(i,j,L,bi,bj).gt.0.) then
./pkg/fizhi/do_fizhi.F 213 DO_FIZHI 
        pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa
./pkg/fizhi/do_fizhi.F 215 DO_FIZHI 
        pkle(i,j,L,bi,bj) = 0.
./pkg/fizhi/do_fizhi.F 217 DO_FIZHI 
       cldtot_lw(i,j,L) = cldtotlwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 218 DO_FIZHI 
       cldlsp_lw(i,j,L) = cldlsplwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 219 DO_FIZHI 
       cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 220 DO_FIZHI 
       lwlz(i,j,L) = lwlzin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 221 DO_FIZHI 
       qliqavelw(i,j,L) = qliqavelwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 222 DO_FIZHI 
       fccavelw(i,j,L) = fccavelwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 223 DO_FIZHI 
       cldtot_sw(i,j,L) = cldtotswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 224 DO_FIZHI 
       cldlsp_sw(i,j,L) = cldlspswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 225 DO_FIZHI 
       cldras_sw(i,j,L) = cldrasswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 226 DO_FIZHI 
       swlz(i,j,L) = swlzin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 227 DO_FIZHI 
       qliqavesw(i,j,L) = qliqaveswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 228 DO_FIZHI 
       fccavesw(i,j,L) = fccaveswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 268 DO_FIZHI 
      do i = im1,im2
./pkg/fizhi/do_fizhi.F 269 DO_FIZHI 
       cldtotlwin(i,j,L,bi,bj) = cldtot_lw(i,j,L)
./pkg/fizhi/do_fizhi.F 270 DO_FIZHI 
       cldlsplwin(i,j,L,bi,bj) = cldlsp_lw(i,j,L)
./pkg/fizhi/do_fizhi.F 271 DO_FIZHI 
       cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L)
./pkg/fizhi/do_fizhi.F 272 DO_FIZHI 
       lwlzin(i,j,L,bi,bj) = lwlz(i,j,L)
./pkg/fizhi/do_fizhi.F 273 DO_FIZHI 
       qliqavelwin(i,j,L,bi,bj) = qliqavelw(i,j,L)
./pkg/fizhi/do_fizhi.F 274 DO_FIZHI 
       fccavelwin(i,j,L,bi,bj) = fccavelw(i,j,L)
./pkg/fizhi/do_fizhi.F 275 DO_FIZHI 
       cldtotswin(i,j,L,bi,bj) = cldtot_sw(i,j,L)
./pkg/fizhi/do_fizhi.F 276 DO_FIZHI 
       cldlspswin(i,j,L,bi,bj) = cldlsp_sw(i,j,L)
./pkg/fizhi/do_fizhi.F 277 DO_FIZHI 
       cldrasswin(i,j,L,bi,bj) = cldras_sw(i,j,L)
./pkg/fizhi/do_fizhi.F 278 DO_FIZHI 
       swlzin(i,j,L,bi,bj) = swlz(i,j,L)
./pkg/fizhi/do_fizhi.F 279 DO_FIZHI 
       qliqaveswin(i,j,L,bi,bj) = qliqavesw(i,j,L)
./pkg/fizhi/do_fizhi.F 280 DO_FIZHI 
       fccaveswin(i,j,L,bi,bj) = fccavesw(i,j,L)
./pkg/fizhi/do_fizhi.F 286 DO_FIZHI 
      do i = im1,im2
./pkg/fizhi/do_fizhi.F 287 DO_FIZHI 
       rainconin(i,j,bi,bj) = raincon(i,j)
./pkg/fizhi/do_fizhi.F 288 DO_FIZHI 
       rainlspin(i,j,bi,bj) = rainlsp(i,j)
./pkg/fizhi/do_fizhi.F 289 DO_FIZHI 
       snowfallin(i,j,bi,bj) = snowfall(i,j)
./pkg/fizhi/do_fizhi.F 297 DO_FIZHI 
      do i = im1,im2
./pkg/fizhi/do_fizhi.F 298 DO_FIZHI 
       duphy(i,j,L,bi,bj) = moistu(i,j,L,bi,bj) + turbu(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 299 DO_FIZHI 
       dvphy(i,j,L,bi,bj) = moistv(i,j,L,bi,bj) + turbv(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 300 DO_FIZHI 
       dthphy(i,j,L,bi,bj) = ((moistt(i,j,L,bi,bj)+turbt(i,j,L,bi,bj)+
./pkg/fizhi/do_fizhi.F 301 DO_FIZHI 
     .   lwdt(i,j,L,bi,bj) +
./pkg/fizhi/do_fizhi.F 302 DO_FIZHI 
     .   dlwdtg(i,j,L,bi,bj) * (tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) +
./pkg/fizhi/do_fizhi.F 303 DO_FIZHI 
     .   swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 304 DO_FIZHI 
       dsphy(i,j,L,bi,bj) = (moistq(i,j,L,1,bi,bj)+turbq(i,j,L,1,bi,bj))
./pkg/fizhi/do_fizhi.F 305 DO_FIZHI 
     .                                    /p(i,j,bi,bj)
./pkg/fizhi/fizhi_clockstuff.F 1114 TIME2FREQ2 
      integer i,nsecf,iday,idaynext,nsec
./pkg/fizhi/fizhi_clockstuff.F 333 GET_TIME 
      integer nsecf,i,nsegm,nsegd,iday,iday2,nday
./pkg/fizhi/fizhi_clockstuff.F 450 INTERP_TIME 
      integer i,nsecf
./pkg/fizhi/fizhi_clockstuff.F 616 TIC_TIME 
      integer i,nsecf,iday,iday0,nsec,nsec0,ntime
./pkg/fizhi/fizhi_clockstuff.F 687 TIC_TIME 
      integer i,nsecf,iday,iday0,nsec,nsec0,ntime
./pkg/fizhi/fizhi_clockstuff.F 886 ASTRO 
      integer i,nsecf,k,km,kp