Symbol Description Uses
j loop indices 30664


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/do_fizhi.F 130 DO_FIZHI 
      integer i,j,L
./pkg/fizhi/do_fizhi.F 168 DO_FIZHI 
      do j = jm1,jm2
./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 181 DO_FIZHI 
      do j=jm1,jm2
./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 191 DO_FIZHI 
      do j = jm1,jm2
./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 203 DO_FIZHI 
      do j = jm1,jm2
./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 267 DO_FIZHI 
      do j = jm1,jm2
./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 285 DO_FIZHI 
      do j = jm1,jm2
./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 296 DO_FIZHI 
      do j = jm1,jm2
./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)
./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_driver.F 115 FIZHI_DRIVER 
      integer i,j
./pkg/fizhi/fizhi_driver.F 179 FIZHI_DRIVER 
      do j=1,jm
./pkg/fizhi/fizhi_driver.F 181 FIZHI_DRIVER 
      tg0(i,j) = tgz(i,j)
./pkg/fizhi/fizhi_fillnegs.F 120 TRACER_FILL 
      do j=2,jm-1
./pkg/fizhi/fizhi_fillnegs.F 121 TRACER_FILL 
      phi(j) = phi(j-1) + dphi(j-1)
./pkg/fizhi/fizhi_fillnegs.F 127 TRACER_FILL 
      do j=2,jm-1
./pkg/fizhi/fizhi_fillnegs.F 129 TRACER_FILL 
      dxu(i,j) = a*cos(phi(j))*dlam(i)
./pkg/fizhi/fizhi_fillnegs.F 133 TRACER_FILL 
      do j=2,jm-2
./pkg/fizhi/fizhi_fillnegs.F 135 TRACER_FILL 
      dyv(i,j) = a*dphi(j)
./pkg/fizhi/fizhi_fillnegs.F 145 TRACER_FILL 
      do j=2,jm-1
./pkg/fizhi/fizhi_fillnegs.F 148 TRACER_FILL 
      dxp(i,j) = ( dxu(i,j)+dxu(im1,j) )*0.5
./pkg/fizhi/fizhi_fillnegs.F 153 TRACER_FILL 
      do j=2,jm-2
./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 161 TRACER_FILL 
      do j=3,jm-2
./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 173 TRACER_FILL 
      do j=3,jm-2
./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 190 TRACER_FILL 
      do j=2,jm-1
./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 202 TRACER_FILL 
      if( j.eq.jm-1 ) then
./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 207 TRACER_FILL 
      if( j.eq.2    ) then
./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 232 TRACER_FILL 
               if( array(1).gt.0 ) pq(ip1,j,L) = pq(ip1,j,L) * fact
./pkg/fizhi/fizhi_fillnegs.F 233 TRACER_FILL 
               if( array(2).gt.0 ) pq(im1,j,L) = pq(im1,j,L) * fact
./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 243 TRACER_FILL 
          if( imax.eq.1 ) pq(ip1,j,L) = pq(ip1,j,L) +
./pkg/fizhi/fizhi_fillnegs.F 244 TRACER_FILL 
     .                                 pq(i,j,L)*d2p(i,j)/d2p(ip1,j)
./pkg/fizhi/fizhi_fillnegs.F 245 TRACER_FILL 
          if( imax.eq.2 ) pq(im1,j,L) = pq(im1,j,L) +
./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 31 QCHECK 
      integer i,j,L,LM1
./pkg/fizhi/fizhi_fillnegs.F 38 QCHECK 
      do j=jm1,jm2
./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 49 QCHECK 
      do j=jm1,jm2
./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 126 GWDRAG 
      do j=1,jm
./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 136 GWDRAG 
      do j = 1,jm
./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 144 GWDRAG 
      do j = 1,jm
./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 185 GWDRAG 
      do j = 1,jm
./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 188 GWDRAG 
     $        ,j,L) )
./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 190 GWDRAG 
     $        ,j,L) )
./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 206 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 208 GWDRAG 
        tmpdiag(i,j) = dragu(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 215 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 217 GWDRAG 
        tmpdiag(i,j) = dragv(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 224 GWDRAG 
       do j=1,jm
./pkg/fizhi/fizhi_gwdrag.F 226 GWDRAG 
        tmpdiag(i,j) = dragt(i,j,L)*86400
./pkg/fizhi/fizhi_gwdrag.F 249 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 251 GWDRAG 
      sumu(i,j) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 255 GWDRAG 
      do j = 1,jm
./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 261 GWDRAG 
       do j=1,jm
./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 272 GWDRAG 
      do j = 1,jm
./pkg/fizhi/fizhi_gwdrag.F 274 GWDRAG 
      sumu(i,j) = 0.0
./pkg/fizhi/fizhi_gwdrag.F 278 GWDRAG 
      do j = 1,jm
./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 284 GWDRAG 
       do j=1,jm
./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 78 GWDRAG 
      integer n,i,j,L
./pkg/fizhi/fizhi_gwdrag.F 98 GWDRAG 
      do j=1,jm
./pkg/fizhi/fizhi_init_fixed.F 113 FIZHI_INIT_FIXED 
        do j=jm1,jm2
./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 155 FIZHI_INIT_FIXED 
        do j=jm1,jm2
./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 87 FIZHI_INIT_FIXED 
       do j = jm1,jm2
./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 100 FIZHI_INIT_VARS 
        do j = 1,sNy
./pkg/fizhi/fizhi_init_vars.F 103 FIZHI_INIT_VARS 
          pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 107 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 114 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 127 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 143 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 167 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 176 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 185 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 194 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 203 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 215 FIZHI_INIT_VARS 
        do j = jm1,jm2
./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 260 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 277 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 122 FIZHI_INIT_VEG 
      do j = 1,jm
./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 149 FIZHI_INIT_VEG 
            do j=1,jm
./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 169 FIZHI_INIT_VEG 
            do j=1,jm
./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
./pkg/fizhi/fizhi_init_vegsurftiles.F 108 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 121 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 134 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 147 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 160 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 173 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 186 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 97 FIZHI_INIT_VEGSURFTILES 
       do j = 1,sNy
./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 1022 IRRAD 
        do j=1,n
./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 1033 IRRAD 
       do j=1,n
./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 1050 IRRAD 
        do j=1,n
./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 1075 IRRAD 
        do j= 1, n
./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 1092 IRRAD 
        do j= 1, n
./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 109 LWRIO 
        do j =1,jm
./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 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 1232 IRRAD 
       do j=1,n
./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 1250 IRRAD 
        do j=1,n
./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 1264 IRRAD 
         do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1266 IRRAD 
           th2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1276 IRRAD 
          do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1278 IRRAD 
            tcon(i,j,iq)=1.0
./pkg/fizhi/fizhi_lwrad.F 1291 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1293 IRRAD 
             tco2(i,j,ik,isb)=1.0
./pkg/fizhi/fizhi_lwrad.F 1308 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1310 IRRAD 
             tn2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1320 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1322 IRRAD 
             tch4(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1332 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1334 IRRAD 
             tcom(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1343 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1345 IRRAD 
             tf11(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1353 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1355 IRRAD 
             tf12(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1363 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1365 IRRAD 
             tf22(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1374 IRRAD 
           do j=1,n
./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 1382 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1384 IRRAD 
              tcon(i,j,iq)=1.0
./pkg/fizhi/fizhi_lwrad.F 1389 IRRAD 
           do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1391 IRRAD 
              tn2o(i,j,ik)=1.0
./pkg/fizhi/fizhi_lwrad.F 1405 IRRAD 
          do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1407 IRRAD 
            trant(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 1530 IRRAD 
      do j=1,n
./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 1545 IRRAD 
      do j=1,n
./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 1568 IRRAD 
        do j=1,n
./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 1589 IRRAD 
       do j=1,n
./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 1606 IRRAD 
        do j=1,n
./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 1628 IRRAD 
         do j=1,n
./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 1640 IRRAD 
       do j=1,n
./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 1654 IRRAD 
        do j=1,n
./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 1667 IRRAD 
         do j=1,n
./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 1682 IRRAD 
       do j=1,n
./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 1695 IRRAD 
       do j=1,n
./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 1731 COLUMN 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 1742 COLUMN 
        do j=1,n
./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 1751 COLUMN 
         do j=1,n
./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 1811 H2OEXPS 
         do j=1,n
./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 1834 H2OEXPS 
           do j=1,n
./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 1845 H2OEXPS 
           do j=1,n
./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 1857 H2OEXPS 
           do j=1,n
./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 1869 H2OEXPS 
           do j=1,n
./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 1919 CONEXPS 
         do j=1,n
./pkg/fizhi/fizhi_lwrad.F 1921 CONEXPS 
           conexp(i,j,k,1) = exp(-dcont(i,j,k)*xke(ib))
./pkg/fizhi/fizhi_lwrad.F 1934 CONEXPS 
          do j=1,n
./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 1963 CO2EXPS 
      integer m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 1980 CO2EXPS 
         do j=1,n
./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 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 2065 N2OEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2082 N2OEXPS 
        do j=1,n
./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 2158 CH4EXPS 
        do j=1,n
./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 2230 COMEXPS 
        do j=1,n
./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 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 2290 CFCEXPS 
      integer ib,m,n,np,i,j,k
./pkg/fizhi/fizhi_lwrad.F 2311 CFCEXPS 
        do j=1,n
./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 2371 B10EXPS 
         do j=1,n
./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 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 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 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 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 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 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 2522 TABLUP 
      do j=1,n
./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 2639 H2OKDIS 
         do j=1,n
./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 2652 H2OKDIS 
         do j=1,n
./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 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 2669 H2OKDIS 
         do j=1,n
./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 2688 H2OKDIS 
         do j=1,n
./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 2762 CO2KDIS 
         do j=1,n
./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 2851 N2OKDIS 
        do j=1,n
./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 288 LWRIO 
        do j = 1,jm
./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 2928 CH4KDIS 
        do j=1,n
./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 297 LWRIO 
        do j = 1,jm
./pkg/fizhi/fizhi_lwrad.F 2985 COMKDIS 
      integer ib,m,n,np,k,i,j
./pkg/fizhi/fizhi_lwrad.F 299 LWRIO 
         tmpdiag(i,j) = qz(i,j,L)*1000.
./pkg/fizhi/fizhi_lwrad.F 3002 COMKDIS 
         do j=1,n
./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 3065 CFCKDIS 
         do j=1,n
./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 306 LWRIO 
        do j = 1,jm
./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 3127 B10KDIS 
       do j=1,n
./pkg/fizhi/fizhi_lwrad.F 3129 B10KDIS 
           tran(i,j)=1.0
./pkg/fizhi/fizhi_lwrad.F 3135 B10KDIS 
        do j=1,n
./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 3160 B10KDIS 
        do j=1,n
./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 3171 B10KDIS 
        do j=1,n
./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 3199 B10KDIS 
        do j=1,n
./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 334 LWRIO 
      do j = 1,jm
./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 872 IRRAD 
      do j=1,n
./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 883 IRRAD 
       do j=1,n
./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 910 IRRAD 
       do j=1,n
./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 947 IRRAD 
         do j=1,n
./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 965 IRRAD 
      do j=1,n
./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 978 IRRAD 
       do j=1,n
./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 98 LWRIO 
        do j =1,jm
./pkg/fizhi/fizhi_moist.F 1007 MOISTIO 
      do j = 1,jm
./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 1021 MOISTIO 
      do j = 1,jm
./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 1040 MOISTIO 
      do j = 1,jm
./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 1115 MOISTIO 
      do j = 1,jm
./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 1131 MOISTIO 
       do j=1,jm
./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 1148 MOISTIO 
       do j=1,jm
./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 139 MOISTIO 
      integer i,j,iloop,indx,indgath,l,nn,num,numdeps,nt
./pkg/fizhi/fizhi_moist.F 215 MOISTIO 
      do j = 1,jm
./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 224 MOISTIO 
       DO j = 1,jm
./pkg/fizhi/fizhi_moist.F 226 MOISTIO 
        IF((qqz(i,j,l).gt.qqcolmax(i,j))
./pkg/fizhi/fizhi_moist.F 227 MOISTIO 
     1                   .and.(levpbl(i,j).eq.lm+1))then
./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 237 MOISTIO 
      do j = 1,jm
./pkg/fizhi/fizhi_moist.F 239 MOISTIO 
        if(levpbl(i,j).gt.nsubmin) levpbl(i,j) = nsubmin
./pkg/fizhi/fizhi_moist.F 240 MOISTIO 
        if(levpbl(i,j).lt.nsubmax) levpbl(i,j) = nsubmax
./pkg/fizhi/fizhi_moist.F 249 MOISTIO 
       do j = 1,jm
./pkg/fizhi/fizhi_moist.F 251 MOISTIO 
        if(levpbl(i,j).eq.L) then
./pkg/fizhi/fizhi_moist.F 253 MOISTIO 
         pblindex(indx) = (j-1)*im + i
./pkg/fizhi/fizhi_moist.F 264 MOISTIO 
        j = 1+INT((pblindex(indx)-1)/im)
./pkg/fizhi/fizhi_moist.F 266 MOISTIO 
       levgather(indx) = levpbl(i,j)
./pkg/fizhi/fizhi_moist.F 267 MOISTIO 
        pigather(indx) =     pz(i,j)
./pkg/fizhi/fizhi_moist.F 268 MOISTIO 
        pkegather(indx,lm+1) = pkht(i,j,lm+1)
./pkg/fizhi/fizhi_moist.F 269 MOISTIO 
        plegather(indx,lm+1) = plze(i,j,lm+1)
./pkg/fizhi/fizhi_moist.F 281 MOISTIO 
        j = 1+INT((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 298 MOISTIO 
        j = 1+INT((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 312 MOISTIO 
        j = 1+INT((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 331 MOISTIO 
      do j=1,jm
./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 823 MOISTIO 
      do j = 1,jm
./pkg/fizhi/fizhi_moist.F 825 MOISTIO 
       tmpimjm(i,j) = 1./pz(i,j)
./pkg/fizhi/fizhi_moist.F 829 MOISTIO 
      do j = 1,jm
./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 858 MOISTIO 
       do j=1,jm
./pkg/fizhi/fizhi_moist.F 860 MOISTIO 
        tmpdiag(i,j) = cldsr(i,j,L)
./pkg/fizhi/fizhi_moist.F 871 MOISTIO 
       do j=1,jm
./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 885 MOISTIO 
       do j=1,jm
./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 898 MOISTIO 
       do j=1,jm
./pkg/fizhi/fizhi_moist.F 900 MOISTIO 
        tmpdiag(i,j)=dumoist(i,j,L)*sday
./pkg/fizhi/fizhi_moist.F 911 MOISTIO 
       do j=1,jm
./pkg/fizhi/fizhi_moist.F 913 MOISTIO 
        tmpdiag(i,j)=dvmoist(i,j,L)*sday
./pkg/fizhi/fizhi_moist.F 924 MOISTIO 
       do j=1,jm
./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 938 MOISTIO 
       do j=1,jm
./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 952 MOISTIO 
       do j=1,jm
./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 966 MOISTIO 
       do j=1,jm
./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 979 MOISTIO 
       do j=1,jm
./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 991 MOISTIO 
       do j=1,jm
./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 103 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 105 RAYLEIGH 
        tmpdiag(i,j) = rfu(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 112 RAYLEIGH 
       do j=1,jm
./pkg/fizhi/fizhi_rayleigh.F 114 RAYLEIGH 
        tmpdiag(i,j) = rfv(i,j,L)*86400
./pkg/fizhi/fizhi_rayleigh.F 121 RAYLEIGH 
       do j=1,jm
./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 65 RAYLEIGH 
       do j=1,jm
./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 73 RAYLEIGH 
      do j=1,jm
./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 80 RAYLEIGH 
       do j=1,jm
./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 88 RAYLEIGH 
       do j=1,jm
./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 45 FIZHI_READ_PICKUP 
      integer j,bi,bj
./pkg/fizhi/fizhi_read_pickup.F 76 FIZHI_READ_PICKUP 
       do j = 1-OLy,sNy+OLy
./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_step_diag.F 106 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 117 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 132 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 144 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 156 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 171 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 182 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 193 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 209 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 222 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 236 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 250 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 263 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 276 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 278 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = uphy(i,j,L)
./pkg/fizhi/fizhi_step_diag.F 287 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 289 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = vphy(i,j,L)
./pkg/fizhi/fizhi_step_diag.F 298 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 309 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 320 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 322 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = sphy(i,j,L) * 1000.
./pkg/fizhi/fizhi_step_diag.F 335 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 337 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 341 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 348 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 359 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 361 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 365 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 372 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 383 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 385 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 389 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 397 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 408 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 410 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 414 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 421 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 434 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./pkg/fizhi/fizhi_step_diag.F 436 FIZHI_STEP_DIAG 
       qbar(i,j) = 0.0
./pkg/fizhi/fizhi_step_diag.F 440 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 447 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 52 FIZHI_STEP_DIAG 
      do j=jm1,jm2
./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 73 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 84 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 95 FIZHI_STEP_DIAG 
       do j=jm1,jm2
./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 1033 CLDSCALE 
      do j=1,n
./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 1042 CLDSCALE 
       do j=1,n
./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 1050 CLDSCALE 
       do j=1,n
./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 1058 CLDSCALE 
       do j=1,n
./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 1079 CLDSCALE 
       do j=1,n
./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 115 SWRIO 
      do j=1,jm
./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 1321 SOLIR 
      do j= 1, n
./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 1347 SOLIR 
        do j= 1, n
./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 1374 SOLIR 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1376 SOLIR 
            ssacl(i,j,k)=ssaclt(i,j)
./pkg/fizhi/fizhi_swrad.F 1379 SOLIR 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1381 SOLIR 
            asycl(i,j,k)=asyclt(i,j)
./pkg/fizhi/fizhi_swrad.F 1393 SOLIR 
           do j= 1, n
./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 1467 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1469 SOLIR 
               rr(i,j,k,1)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1472 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1474 SOLIR 
               tt(i,j,k,1)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1477 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1479 SOLIR 
               td(i,j,k,1)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1482 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1484 SOLIR 
               rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1487 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1489 SOLIR 
               ts(i,j,k,1)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1493 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1495 SOLIR 
               rr(i,j,k,2)=rr2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1498 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1500 SOLIR 
               tt(i,j,k,2)=tt2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1503 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1505 SOLIR 
               td(i,j,k,2)=td2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1508 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 150 SWRIO 
      do j = 1,jm
./pkg/fizhi/fizhi_swrad.F 1510 SOLIR 
               rs(i,j,k,2)=rs2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1513 SOLIR 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 1515 SOLIR 
               ts(i,j,k,2)=ts2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1524 SOLIR 
        do j= 1, n
./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 152 SWRIO 
          zenith(I,j) = TEMP1(I,j) + TEMP2(I,j)
./pkg/fizhi/fizhi_swrad.F 1531 SOLIR 
       do j= 1, n
./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 153 SWRIO 
      IF( zenith(I,j) .GT. 0.0 ) THEN
./pkg/fizhi/fizhi_swrad.F 1542 SOLIR 
        do j= 1, n
./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 1547 SOLIR 
        do j= 1, n
./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 154 SWRIO 
          zenith(I,j) = (2./3.)*( zenith(I,j)-TEMP2(I,j)*TEMP1(I,j)
./pkg/fizhi/fizhi_swrad.F 1554 SOLIR 
       do j= 1, n
./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 155 SWRIO 
     .                          / zenith(I,j) )
./pkg/fizhi/fizhi_swrad.F 166 SWRIO 
      do j =1,jm
./pkg/fizhi/fizhi_swrad.F 1676 SOLUV 
      integer i,j,k,ib
./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 1719 SOLUV 
      do j= 1, n
./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 1739 SOLUV 
       do j= 1, n
./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 1759 SOLUV 
       do j=1,n
./pkg/fizhi/fizhi_swrad.F 1761 SOLUV 
           asycl(i,j,k)=asyclt(i,j)
./pkg/fizhi/fizhi_swrad.F 1767 SOLUV 
      do j=1,n
./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 1780 SOLUV 
        do j= 1, n
./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 178 SWRIO 
        do j =1,jm
./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 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 1839 SOLUV 
        do j=1,n
./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 1841 SOLUV 
            rr(i,j,k,1)=rr1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1844 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1846 SOLUV 
            tt(i,j,k,1)=tt1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1849 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1851 SOLUV 
            td(i,j,k,1)=td1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1854 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1856 SOLUV 
            rs(i,j,k,1)=rs1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1859 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1861 SOLUV 
            ts(i,j,k,1)=ts1t(i,j)
./pkg/fizhi/fizhi_swrad.F 1865 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1867 SOLUV 
            rr(i,j,k,2)=rr2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1870 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1872 SOLUV 
            tt(i,j,k,2)=tt2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1875 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1877 SOLUV 
            td(i,j,k,2)=td2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1880 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1882 SOLUV 
            rs(i,j,k,2)=rs2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1885 SOLUV 
        do j=1,n
./pkg/fizhi/fizhi_swrad.F 1887 SOLUV 
            ts(i,j,k,2)=ts2t(i,j)
./pkg/fizhi/fizhi_swrad.F 1896 SOLUV 
        do j= 1, n
./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 189 SWRIO 
        do j =1,jm
./pkg/fizhi/fizhi_swrad.F 1903 SOLUV 
       do j= 1, n
./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 1913 SOLUV 
        do j= 1, n
./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 1918 SOLUV 
        do j= 1, n
./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 1926 SOLUV 
         do j=1,n
./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 1933 SOLUV 
         do j=1,n
./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 202 SWRIO 
      do j = 1,jm
./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 2219 CLDFLX 
       do j=1,n
./pkg/fizhi/fizhi_swrad.F 2221 CLDFLX 
           fall(i,j,k)=0.0
./pkg/fizhi/fizhi_swrad.F 2226 CLDFLX 
       do j=1,n
./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 222 SWRIO 
      do j = 1,jm
./pkg/fizhi/fizhi_swrad.F 2247 CLDFLX 
       do j= 1, n
./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 2259 CLDFLX 
        do j= 1, n
./pkg/fizhi/fizhi_swrad.F 225 SWRIO 
     .                  * (1.-cldmid(i,j))
./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 2280 CLDFLX 
        do j= 1, n
./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 2305 CLDFLX 
       do j= 1, n
./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 2315 CLDFLX 
        do j= 1, n
./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 2333 CLDFLX 
        do j= 1, n
./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 2354 CLDFLX 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 2356 CLDFLX 
             ch(i,j)=1.0-cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F 2364 CLDFLX 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 2366 CLDFLX 
             ch(i,j)=cc(i,j,1)
./pkg/fizhi/fizhi_swrad.F 2378 CLDFLX 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 2380 CLDFLX 
              cm(i,j)=ch(i,j)*(1.0-cc(i,j,2))
./pkg/fizhi/fizhi_swrad.F 2388 CLDFLX 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 2390 CLDFLX 
              cm(i,j)=ch(i,j)*cc(i,j,2)
./pkg/fizhi/fizhi_swrad.F 2402 CLDFLX 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 2404 CLDFLX 
             ct(i,j)=cm(i,j)*(1.0-cc(i,j,3))
./pkg/fizhi/fizhi_swrad.F 240 SWRIO 
       do j=1,jm
./pkg/fizhi/fizhi_swrad.F 2412 CLDFLX 
           do j=1,n
./pkg/fizhi/fizhi_swrad.F 2414 CLDFLX 
             ct(i,j)=cm(i,j)*cc(i,j,3)
./pkg/fizhi/fizhi_swrad.F 2423 CLDFLX 
        do j= 1, n
./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 2439 CLDFLX 
        do j= 1, n
./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 2457 CLDFLX 
       do j=1, n
./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 2469 CLDFLX 
       do j=1, n
./pkg/fizhi/fizhi_swrad.F 2471 CLDFLX 
         flxdn(i,j,1)=1.0-rra(i,j,1,im,is)
./pkg/fizhi/fizhi_swrad.F 2478 CLDFLX 
        do j=1,n
./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 2488 CLDFLX 
        do j=1,n
./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 251 SWRIO 
       do j=1,jm
./pkg/fizhi/fizhi_swrad.F 2522 FLXCO2 
      integer i,j,k,ic,iw
./pkg/fizhi/fizhi_swrad.F 2537 FLXCO2 
       do j= 1, n
./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 274 SWRIO 
       do j=1,jm
./pkg/fizhi/fizhi_swrad.F 276 SWRIO 
        tmpdiag(i,j) = swlz(i,j,L) * 1.0e6
./pkg/fizhi/fizhi_swrad.F 309 SWRIO 
      do j = 1,jm
./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 319 SWRIO 
       do j=1,jm
./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 331 SWRIO 
       do j=1,jm
./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 351 SWRIO 
       do j = 1,jm
./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 370 SWRIO 
       do j = 1,jm
./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 389 SWRIO 
       do j = 1,jm
./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 512 SWRIO 
       do j=1,jm
./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 537 SWRIO 
      do j = 1,jm
./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 596 OPTHK 
      do j=1,jm
./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 795 SORAD 
      do j= 1, n
./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 811 SORAD 
       do j= 1, n
./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 848 SORAD 
       do j=1, n
./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 871 SORAD 
       do j= 1, n
./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 883 SORAD 
        do j= 1, n
./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 894 SORAD 
       do j= 1, n
./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 909 SORAD 
       do j= 1, n
./pkg/fizhi/fizhi_swrad.F 911 SORAD 
          flc(i,j,k)=flc(i,j,k)-df(i,j,k)
./pkg/fizhi/fizhi_swrad.F 920 SORAD 
      do j=1,n
./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 928 SORAD 
       do j=1,n
./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 945 SORAD 
      do j= 1, n
./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 124 FIZHI_TENDENCY_APPLY_V 
      do j=jMin,jMax
./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 133 FIZHI_TENDENCY_APPLY_V 
       do j=jMin,jMax
./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 144 FIZHI_TENDENCY_APPLY_V 
       do j=jMin,jMax
./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 201 FIZHI_TENDENCY_APPLY_T 
      do j=jMin,jMax
./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 216 FIZHI_TENDENCY_APPLY_T 
       do j=jMin,jMax
./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 233 FIZHI_TENDENCY_APPLY_T 
       do j=jMin,jMax
./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 286 FIZHI_TENDENCY_APPLY_S 
      do j=jMin,jMax
./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 294 FIZHI_TENDENCY_APPLY_S 
       do j=jMin,jMax
./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 49 FIZHI_TENDENCY_APPLY_U 
      do j=jMin,jMax
./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 58 FIZHI_TENDENCY_APPLY_U 
       do j=jMin,jMax
./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 69 FIZHI_TENDENCY_APPLY_U 
       do j=jMin,jMax
./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_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 395 STRIPIT 
      integer   i,j,Lena,offset
./pkg/fizhi/fizhi_utils.F 402 STRIPIT 
        do 100 j=1,l
./pkg/fizhi/fizhi_utils.F 404 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 407 STRIPIT 
        do 200 j=1,l
./pkg/fizhi/fizhi_utils.F 409 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./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 429 STRIPITINT 
        do 100 j=1,l
./pkg/fizhi/fizhi_utils.F 431 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 434 STRIPITINT 
        do 200 j=1,l
./pkg/fizhi/fizhi_utils.F 436 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./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 456 PASTIT 
      do 100 j=1,L
./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 474 PSTBITINT 
      do 100 j=1,L
./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 492 PSTBMPIT 
      do 100 j=1,L
./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 65 STRIP 
      INTEGER OFFSET,Lena,i,j
./pkg/fizhi/fizhi_utils.F 925 PKAPPA 
      integer i,j,L
./pkg/fizhi/fizhi_utils.F 930 PKAPPA 
      do j = 1,jm
./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 102 FIZHI_WRAPPER 
        do j = 1,sNy+1
./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 116 FIZHI_WRAPPER 
        do j = 1,sNy
./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 123 FIZHI_WRAPPER 
        do j = 1,sNy
./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 137 FIZHI_WRAPPER 
        do j = 1,sNy
./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 144 FIZHI_WRAPPER 
        do j = 1,sNy
./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 162 FIZHI_WRAPPER 
        do j = 1,sNy
./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 177 FIZHI_WRAPPER 
        do j = 1,sNy
./pkg/fizhi/fizhi_wrapper.F 180 FIZHI_WRAPPER 
          pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_wrapper.F 184 FIZHI_WRAPPER 
        do j = 1,sNy
./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 191 FIZHI_WRAPPER 
        do j = 1,sNy
./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 211 FIZHI_WRAPPER 
        do j = 1,sNy
./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 236 FIZHI_WRAPPER 
        do j = 1,sNy
./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 243 FIZHI_WRAPPER 
        do j = 1,sNy
./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 286 FIZHI_WRAPPER 
        do j = 1,sNy
./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 295 FIZHI_WRAPPER 
        do j = 1,sNy
./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 304 FIZHI_WRAPPER 
        do j = 1,sNy
./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 313 FIZHI_WRAPPER 
        do j = 1,sNy
./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 74 FIZHI_WRAPPER 
        do j = 1,sNy
./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 81 FIZHI_WRAPPER 
        do j = 1,sNy
./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 95 FIZHI_WRAPPER 
        do j = 1,sNy
./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 55 FIZHI_WRITE_PICKUP 
      do j = 1-OLy,sNy+OLy
./pkg/fizhi/fizhi_write_pickup.F 57 FIZHI_WRITE_PICKUP 
       temp(i,j,k,bi,bj) = 0.
./pkg/fizhi/fizhi_write_pickup.F 93 FIZHI_WRITE_PICKUP 
      do j = 1,sNy
./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/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 106 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 121 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 140 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 149 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 158 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 167 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 192 STEP_FIZHI_CORR 
        do j = jdim1,jdim2
./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 220 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 229 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 238 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 247 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 285 STEP_FIZHI_CORR 
        do j=jm1,jm2
./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 297 STEP_FIZHI_CORR 
        do j=jm1,jm2
./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 309 STEP_FIZHI_CORR 
        do j=jm1,jm2
./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 321 STEP_FIZHI_CORR 
        do j=jm1,jm2
./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 344 STEP_FIZHI_CORR 
       do j=jm1,jm2
./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 363 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 377 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 386 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 394 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 426 STEP_FIZHI_CORR 
       do j=jm1,jm2
./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 441 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 449 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 472 STEP_FIZHI_CORR 
       do j=jm1,jm2
./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 487 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 495 STEP_FIZHI_CORR 
       do j = 1,sNy
./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 79 STEP_FIZHI_CORR 
        do j = 1,sNy
./pkg/fizhi/step_fizhi_corr.F 82 STEP_FIZHI_CORR 
          pedyn(i,j,L,bi,bj) = 0.
./pkg/fizhi/step_fizhi_corr.F 86 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 93 STEP_FIZHI_CORR 
        do j = 1,sNy
./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 54 STEP_FIZHI_FG 
       do j = jm1,jm2
./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 62 STEP_FIZHI_FG 
       do j = jm1,jm2
./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 70 STEP_FIZHI_FG 
       do j = jm1,jm2
./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 78 STEP_FIZHI_FG 
       do j = jm1,jm2
./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 93 STEP_FIZHI_FG 
       do j = jm1,jm2
./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 28 STEP_PHYSICS 
        do j = jm1,jm2
./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 35 UPDATE_CHEMISTRY_EXPORTS 
      integer i, j, L, LL, bi, bj
./pkg/fizhi/update_chemistry_exports.F 54 UPDATE_CHEMISTRY_EXPORTS 
        do j = 1,sNy
./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 63 UPDATE_CHEMISTRY_EXPORTS 
        do j = 1,sNy
./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 72 UPDATE_CHEMISTRY_EXPORTS 
        do j = 1,sNy
./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_chemistry_exports.F 85 UPDATE_CHEMISTRY_EXPORTS 
        do j = 1,nlatsoz
./pkg/fizhi/update_chemistry_exports.F 86 UPDATE_CHEMISTRY_EXPORTS 
         oz1(j,L) = ozone(j,L,imns)*facm + ozone(j,L,ipls)*facp
./pkg/fizhi/update_chemistry_exports.F 91 UPDATE_CHEMISTRY_EXPORTS 
        do j = 1,nlatsq
./pkg/fizhi/update_chemistry_exports.F 92 UPDATE_CHEMISTRY_EXPORTS 
         strq1(j,L) = stratq(j,L,imns)*facm + stratq(j,L,ipls)*facp
./pkg/fizhi/update_earth_exports.F 1009 GETEMISS 
      do j = 1,jm
./pkg/fizhi/update_earth_exports.F 1011 GETEMISS 
       tmpij(i,j) = 0.0
./pkg/fizhi/update_earth_exports.F 1016 GETEMISS 
      do j = 1,jm
./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 1219 GET_LANDFRAC 
      integer  i,j,k
./pkg/fizhi/update_earth_exports.F 1221 GET_LANDFRAC 
      do j=1,jm
./pkg/fizhi/update_earth_exports.F 1223 GET_LANDFRAC 
      frac(i,j) = 0.0
./pkg/fizhi/update_earth_exports.F 1228 GET_LANDFRAC 
      do j=1,jm
./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 123 UPDATE_EARTH_EXPORTS 
       do j = jm1,jm2
./pkg/fizhi/update_earth_exports.F 125 UPDATE_EARTH_EXPORTS 
        tmpij(i,j) = 0.
./pkg/fizhi/update_earth_exports.F 133 UPDATE_EARTH_EXPORTS 
       do j = jm1,jm2
./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 63 UPDATE_EARTH_EXPORTS 
       do j = jm1,jm2
./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 73 UPDATE_EARTH_EXPORTS 
       do j = jm1,jm2
./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_ocean_exports.F 102 UPDATE_OCEAN_EXPORTS 
       do j=jm1,jm2
./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 352 GETSICE 
      do j = jm1,jm2
./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 367 GETSICE 
      do j = jm1,jm2
./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 614 GETSST 
      do j = jm1,jm2
./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 663 BCDATA 
      do j=1,jm
./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/flt/exch2_send_put_vec.F 143 EXCH2_RL_SEND_PUT_VEC 
          DO j=1,nSy
./pkg/flt/exch2_send_put_vec.F 145 EXCH2_RL_SEND_PUT_VEC 
            IF ( W2_myTileList(i,j).EQ.tgT ) THEN
./pkg/flt/exch2_send_put_vec.F 147 EXCH2_RL_SEND_PUT_VEC 
             sBj = j
./pkg/flt/flt_mapping.F 120 FLT_MAP_IJLOCAL2XY 
      INTEGER i, j
./pkg/flt/flt_mapping.F 129 FLT_MAP_IJLOCAL2XY 
        j = NINT(jy)
./pkg/flt/flt_mapping.F 131 FLT_MAP_IJLOCAL2XY 
        ddy = 0.5 _d 0 + jy - DFLOAT(j)
./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 139 FLT_MAP_IJLOCAL2XY 
        j = NINT(jy)
./pkg/flt/flt_mapping.F 141 FLT_MAP_IJLOCAL2XY 
        ddy = 0.5 _d 0 + jy - DFLOAT(j)
./pkg/flt/flt_mapping.F 144 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 145 FLT_MAP_IJLOCAL2XY 
     &                     + ddy*( xG(i,j+1,bi,bj) - xG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F 146 FLT_MAP_IJLOCAL2XY 
     &                 + ddx*ddy*( xG(i+1,j+1,bi,bj) - xG(i+1,j,bi,bj)
./pkg/flt/flt_mapping.F 147 FLT_MAP_IJLOCAL2XY 
     &                           - xG(i,j+1,bi,bj) + xG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F 148 FLT_MAP_IJLOCAL2XY 
        yy = yG(i,j,bi,bj) + ddx*( yG(i+1,j,bi,bj) - yG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F 149 FLT_MAP_IJLOCAL2XY 
     &                     + ddy*( yG(i,j+1,bi,bj) - yG(i,j,bi,bj) )
./pkg/flt/flt_mapping.F 150 FLT_MAP_IJLOCAL2XY 
     &                 + ddx*ddy*( yG(i+1,j+1,bi,bj) - yG(i+1,j,bi,bj)
./pkg/flt/flt_mapping.F 151 FLT_MAP_IJLOCAL2XY 
     &                           - 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 57 FLT_MAP_XY2IJLOCAL 
        j = 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 69 FLT_MAP_XY2IJLOCAL 
        DO j=0,sNy+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_mapping.F 74 FLT_MAP_XY2IJLOCAL 
             jy = DFLOAT(j)+fm-0.5 _d 0
./pkg/gchem/gchem_add_tendency.F 47 GCHEM_ADD_TENDENCY 
      INTEGER i,j
./pkg/gchem/gchem_add_tendency.F 58 GCHEM_ADD_TENDENCY 
      DO j=jMin,jMax
./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 203 GAD_ADVECTION 
      DO j=1-OLy,sNy+OLy
./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 272 GAD_ADVECTION 
      DO j=1-OLy,sNy+OLy
./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 328 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 330 GAD_ADVECTION 
          af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 412 GAD_ADVECTION 
         DO j=1-Oly,0
./pkg/generic_advdiff/gad_advection.F 414 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 416 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 417 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 418 GAD_ADVECTION 
     &       *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 419 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 420 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 425 GAD_ADVECTION 
         DO j=sNy+1,sNy+Oly
./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 433 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 444 GAD_ADVECTION 
        DO j=jMinUpd,jMaxUpd
./pkg/generic_advdiff/gad_advection.F 446 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 448 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 449 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 450 GAD_ADVECTION 
     &       *( af(i+1,j)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 451 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 452 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 456 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 458 GAD_ADVECTION 
          afx(i,j) = af(i,j)
./pkg/generic_advdiff/gad_advection.F 490 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 492 GAD_ADVECTION 
          af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 519 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 521 GAD_ADVECTION 
          af(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 581 GAD_ADVECTION 
         DO j=jMinUpd,jMaxUpd
./pkg/generic_advdiff/gad_advection.F 583 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 585 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 586 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 587 GAD_ADVECTION 
     &       *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 588 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 589 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 594 GAD_ADVECTION 
         DO j=jMinUpd,jMaxUpd
./pkg/generic_advdiff/gad_advection.F 596 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 598 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 599 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 600 GAD_ADVECTION 
     &       *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 601 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 602 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 613 GAD_ADVECTION 
        DO j=1-Oly+1,sNy+Oly-1
./pkg/generic_advdiff/gad_advection.F 615 GAD_ADVECTION 
           localTij(i,j) = localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 617 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 618 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 619 GAD_ADVECTION 
     &       *( af(i,j+1)-af(i,j)
./pkg/generic_advdiff/gad_advection.F 620 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 621 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 625 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 627 GAD_ADVECTION 
          afy(i,j) = af(i,j)
./pkg/generic_advdiff/gad_advection.F 660 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 662 GAD_ADVECTION 
          gTracer(i,j,k,bi,bj)=
./pkg/generic_advdiff/gad_advection.F 663 GAD_ADVECTION 
     &     (localTij(i,j)-tracer(i,j,k,bi,bj))/deltaTLev(k)
./pkg/generic_advdiff/gad_advection.F 668 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 670 GAD_ADVECTION 
          localTijk(i,j,k)=localTij(i,j)
./pkg/generic_advdiff/gad_advection.F 739 GAD_ADVECTION 
         DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 741 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 742 GAD_ADVECTION 
           wFld(i,j)   = 0.
./pkg/generic_advdiff/gad_advection.F 743 GAD_ADVECTION 
           rTrans(i,j) = 0.
./pkg/generic_advdiff/gad_advection.F 744 GAD_ADVECTION 
           fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F 756 GAD_ADVECTION 
         DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 758 GAD_ADVECTION 
           rTransKp1(i,j) = kp1Msk*rTrans(i,j)
./pkg/generic_advdiff/gad_advection.F 759 GAD_ADVECTION 
           wFld(i,j)   = wVel(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 760 GAD_ADVECTION 
           rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 762 GAD_ADVECTION 
     &                 *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_advection.F 763 GAD_ADVECTION 
           fVerT(i,j,kUp) = 0.
./pkg/generic_advdiff/gad_advection.F 827 GAD_ADVECTION 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_advection.F 829 GAD_ADVECTION 
          localTij(i,j) = localTijk(i,j,k)
./pkg/generic_advdiff/gad_advection.F 831 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 832 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 833 GAD_ADVECTION 
     &       *( fVerT(i,j,kDown)-fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_advection.F 834 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(rTransKp1(i,j)-rTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 836 GAD_ADVECTION 
          gTracer(i,j,k,bi,bj)=
./pkg/generic_advdiff/gad_advection.F 837 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 51 GAD_BIHARM_X 
      DO j=1-Oly,sNy+Oly
./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_x.F 59 GAD_BIHARM_X 
     &    *sqCosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_biharm_x.F 61 GAD_BIHARM_X 
     &    *cosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_biharm_y.F 47 GAD_BIHARM_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_biharm_y.F 54 GAD_BIHARM_Y 
      DO j=1-Oly+1,sNy+Oly
./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_biharm_y.F 62 GAD_BIHARM_Y 
     &    *sqCosFacV(j,bi,bj)
./pkg/generic_advdiff/gad_biharm_y.F 64 GAD_BIHARM_Y 
     &    *cosFacV(j,bi,bj)
./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 55 GAD_C2_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 61 GAD_C2_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 49 GAD_C2_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_c2_adv_x.F 50 GAD_C2_ADV_X 
       uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_c2_adv_x.F 52 GAD_C2_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 52 GAD_C2_ADV_Y 
      DO j=1-Oly+1,sNy+Oly
./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 61 GAD_C2_IMPL_R 
       DO j=jMin,jMax
./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 68 GAD_C4_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 74 GAD_C4_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 56 GAD_C4_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_c4_adv_x.F 57 GAD_C4_ADV_X 
       uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_c4_adv_x.F 58 GAD_C4_ADV_X 
       uT(2-Olx,j)=0.
./pkg/generic_advdiff/gad_c4_adv_x.F 59 GAD_C4_ADV_X 
       uT(sNx+Olx,j)=0.
./pkg/generic_advdiff/gad_c4_adv_x.F 61 GAD_C4_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 61 GAD_C4_ADV_Y 
      DO j=1-Oly+2,sNy+Oly-1
./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 164 GAD_CALC_RHS 
      DO j=1-OLy,sNy+OLy
./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 176 GAD_CALC_RHS 
        DO j=1-OLy,sNy+OLy
./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 183 GAD_CALC_RHS 
        DO j=1-OLy,sNy+OLy
./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 210 GAD_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 212 GAD_CALC_RHS 
        fZon(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 259 GAD_CALC_RHS 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 261 GAD_CALC_RHS 
          fZon(i,j) = fZon(i,j) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 276 GAD_CALC_RHS 
       DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 278 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 308 GAD_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 310 GAD_CALC_RHS 
        fZon(i,j) = fZon(i,j) + df(i,j)*rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 325 GAD_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 327 GAD_CALC_RHS 
        fMer(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 374 GAD_CALC_RHS 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 376 GAD_CALC_RHS 
          fMer(i,j) = fMer(i,j) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 391 GAD_CALC_RHS 
       DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 393 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 423 GAD_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 425 GAD_CALC_RHS 
        fMer(i,j) = fMer(i,j) + df(i,j)*rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 492 GAD_CALC_RHS 
        DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 494 GAD_CALC_RHS 
          fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 512 GAD_CALC_RHS 
       DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 514 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 545 GAD_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 547 GAD_CALC_RHS 
        fVerT(i,j,kUp) = fVerT(i,j,kUp) + df(i,j)*maskUp(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 564 GAD_CALC_RHS 
       DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 566 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 592 GAD_CALC_RHS 
       DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_calc_rhs.F 594 GAD_CALC_RHS 
         fVerT(i,j,kUp) = fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F 595 GAD_CALC_RHS 
     &                  + df(i,j)*maskUp(i,j)*rhoFacF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 619 GAD_CALC_RHS 
       DO j=1-Oly,sNy+Oly-1
./pkg/generic_advdiff/gad_calc_rhs.F 623 GAD_CALC_RHS 
     &    _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 624 GAD_CALC_RHS 
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 625 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 626 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 627 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 628 GAD_CALC_RHS 
     &      +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 631 GAD_CALC_RHS 
           trac=TracerN(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 633 GAD_CALC_RHS 
           trac=TracAB(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 642 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 643 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 644 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 645 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 646 GAD_CALC_RHS 
           IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0)
./pkg/generic_advdiff/gad_calc_rhs.F 647 GAD_CALC_RHS 
     &       fVerT(i,j,kUp)=fac*fVerT(i,j,kUp)
./pkg/generic_advdiff/gad_calc_rhs.F 649 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 660 GAD_CALC_RHS 
                gTrFac = gTrFac/rStarExpC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 666 GAD_CALC_RHS 
             gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 668 GAD_CALC_RHS 
     &         *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 669 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 671 GAD_CALC_RHS 
     &         *( -fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 673 GAD_CALC_RHS 
             fVerT(i,j,kDown)=fac*fVerT(i,j,kDown)
./pkg/generic_advdiff/gad_calc_rhs.F 675 GAD_CALC_RHS 
             gTracer(i,j,k+1,bi,bj)=gTracer(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 677 GAD_CALC_RHS 
     &         *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 678 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 680 GAD_CALC_RHS 
     &         *( fVerT(i,j,kDown)*rkSign )
./pkg/generic_advdiff/gad_calc_rhs.F 691 GAD_CALC_RHS 
      DO j=1-Oly,sNy+Oly-1
./pkg/generic_advdiff/gad_calc_rhs.F 693 GAD_CALC_RHS 
        gTracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 694 GAD_CALC_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 695 GAD_CALC_RHS 
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 696 GAD_CALC_RHS 
     &   *( (fZon(i+1,j)-fZon(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 697 GAD_CALC_RHS 
     &     +(fMer(i,j+1)-fMer(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 698 GAD_CALC_RHS 
     &     +(fVerT(i,j,kDown)-fVerT(i,j,kUp))*rkSign
./pkg/generic_advdiff/gad_calc_rhs.F 699 GAD_CALC_RHS 
     &     -localT(i,j)*( (uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 700 GAD_CALC_RHS 
     &                   +(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 701 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 48 GAD_DEL2 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_del2.F 50 GAD_DEL2 
        del2(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_del2.F 56 GAD_DEL2 
      DO j=1-Oly,sNy+Oly-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 117 GAD_DIAGNOSTICS_STATE 
            DO j = 1-OLy,sNy+OLy
./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 72 GAD_DIAGNOSTICS_STATE 
            DO j = 1-OLy,sNy+OLy
./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 55 GAD_DIFF_R 
       DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_diff_r.F 57 GAD_DIFF_R 
         dfr(i,j) = 0.
./pkg/generic_advdiff/gad_diff_r.F 61 GAD_DIFF_R 
       DO j=1-Oly,sNy+Oly
./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 51 GAD_DIFF_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_diff_x.F 52 GAD_DIFF_X 
       dfx(1-Olx,j)=0.
./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_x.F 57 GAD_DIFF_X 
     &      *cosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_diff_y.F 48 GAD_DIFF_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_diff_y.F 54 GAD_DIFF_Y 
      DO j=1-Oly+1,sNy+Oly
./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_diff_y.F 60 GAD_DIFF_Y 
     &           *cosFacV(j,bi,bj)
./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 66 GAD_DST2U1_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 72 GAD_DST2U1_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 63 GAD_DST2U1_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 64 GAD_DST2U1_ADV_X 
       uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 66 GAD_DST2U1_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 65 GAD_DST2U1_ADV_Y 
      DO j=1-Oly+1,sNy+Oly
./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 75 GAD_DST2U1_IMPL_R 
       DO j=jMin,jMax
./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 75 GAD_DST3_ADV_R 
      DO j=1-Oly,sNy+Oly
./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 72 GAD_DST3_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_dst3_adv_x.F 73 GAD_DST3_ADV_X 
       uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_dst3_adv_x.F 74 GAD_DST3_ADV_X 
       uT(2-Olx,j)=0.
./pkg/generic_advdiff/gad_dst3_adv_x.F 75 GAD_DST3_ADV_X 
       uT(sNx+Olx,j)=0.
./pkg/generic_advdiff/gad_dst3_adv_x.F 77 GAD_DST3_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 76 GAD_DST3_ADV_Y 
      DO j=1-Oly+2,sNy+Oly-1
./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 66 GAD_DST3FL_ADV_R 
      DO j=1-Oly,sNy+Oly
./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 45 GAD_DST3FL_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 46 GAD_DST3FL_ADV_X 
       uT(1-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 47 GAD_DST3FL_ADV_X 
       uT(2-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 48 GAD_DST3FL_ADV_X 
       uT(sNx+Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 50 GAD_DST3FL_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 46 GAD_DST3FL_ADV_Y 
      DO j=1-Oly+2,sNy+Oly-1
./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 140 GAD_DST3FL_IMPL_R 
       DO j=jMin,jMax
./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 98 GAD_DST3FL_IMPL_R 
       DO j=jMin,jMax
./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 76 GAD_FLUXLIMIT_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 82 GAD_FLUXLIMIT_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 68 GAD_FLUXLIMIT_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 69 GAD_FLUXLIMIT_ADV_X 
       uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 70 GAD_FLUXLIMIT_ADV_X 
       uT(2-Olx,j)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 71 GAD_FLUXLIMIT_ADV_X 
       uT(sNx+Olx,j)=0.
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 73 GAD_FLUXLIMIT_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 73 GAD_FLUXLIMIT_ADV_Y 
      DO j=1-Oly+2,sNy+Oly-1
./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 107 GAD_FLUXLIMIT_IMPL_R 
       DO j=jMin,jMax
./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 84 GAD_FLUXLIMIT_IMPL_R 
       DO j=jMin,jMax
./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 59 GAD_GRAD_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_grad_x.F 60 GAD_GRAD_X 
       dTdx(1-Olx,j)=0.
./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_x.F 66 GAD_GRAD_X 
     &            *sqCosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_grad_y.F 47 GAD_GRAD_Y 
      INTEGER i,j
./pkg/generic_advdiff/gad_grad_y.F 62 GAD_GRAD_Y 
      DO j=1-Oly+1,sNy+Oly
./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_grad_y.F 69 GAD_GRAD_Y 
     &            *sqCosFacV(j,bi,bj)
./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 114 GAD_IMPLICIT_R 
          DO j=1-Oly,sNy+Oly
./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 122 GAD_IMPLICIT_R 
          DO j=1-Oly,sNy+Oly
./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 136 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 146 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 156 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 172 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_implicit_r.F 174 GAD_IMPLICIT_R 
            rTransKp1(i,j) = 0.
./pkg/generic_advdiff/gad_implicit_r.F 178 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_implicit_r.F 180 GAD_IMPLICIT_R 
            rTransKp1(i,j) = rTrans(i,j)
./pkg/generic_advdiff/gad_implicit_r.F 186 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./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 193 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./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 207 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 305 GAD_IMPLICIT_R 
            DO j=1-OLy,sNy+OLy
./pkg/generic_advdiff/gad_implicit_r.F 307 GAD_IMPLICIT_R 
               df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 311 GAD_IMPLICIT_R 
            DO j=1,sNy
./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 97 GAD_IMPLICIT_R 
       DO j=1-Oly,sNy+Oly
./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 46 GAD_INIT_VARIA 
          DO j=1-Oly,sNy+OLy
./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 59 GAD_OS7MP_ADV_R 
      DO j=1-Oly,sNy+Oly
./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 53 GAD_OS7MP_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_os7mp_adv_x.F 54 GAD_OS7MP_ADV_X 
       uT(1-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 55 GAD_OS7MP_ADV_X 
       uT(2-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 56 GAD_OS7MP_ADV_X 
       uT(3-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 57 GAD_OS7MP_ADV_X 
       uT(4-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 58 GAD_OS7MP_ADV_X 
       uT(sNx+Olx-2,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 59 GAD_OS7MP_ADV_X 
       uT(sNx+Olx-1,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 60 GAD_OS7MP_ADV_X 
       uT(sNx+Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 62 GAD_OS7MP_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 62 GAD_OS7MP_ADV_Y 
      DO j=1-Oly+4,sNy+Oly-3
./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 124 GAD_SOM_ADV_R 
      DO j=jMinAdvR,jMaxAdvR
./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 157 GAD_SOM_ADV_R 
       DO j=jMinAdvR,jMaxAdvR
./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 185 GAD_SOM_ADV_R 
       DO j=jMinAdvR,jMaxAdvR
./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 225 GAD_SOM_ADV_R 
       DO j=jMinAdvR,jMaxAdvR
./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 250 GAD_SOM_ADV_R 
      DO j=jMinAdvR,jMaxAdvR
./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 272 GAD_SOM_ADV_R 
      DO j=jMinAdvR,jMaxAdvR
./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 161 GAD_SOM_ADV_X 
       DO j=jMinUpd(ns),jMaxUpd(ns)
./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 181 GAD_SOM_ADV_X 
      DO j=jMinUpd(ns),jMaxUpd(ns)
./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 244 GAD_SOM_ADV_X 
      DO j=jMinUpd(ns),jMaxUpd(ns)
./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 266 GAD_SOM_ADV_X 
      DO j=jMinUpd(ns),jMaxUpd(ns)
./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 161 GAD_SOM_ADV_Y 
       DO j=jMinUpd(1)-1,jMaxUpd(1)+1
./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 181 GAD_SOM_ADV_Y 
      DO j=jMinUpd(1),jMaxUpd(1)+1
./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 245 GAD_SOM_ADV_Y 
      DO j=jMinUpd(1),jMaxUpd(1)
./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 267 GAD_SOM_ADV_Y 
      DO j=jMinUpd(1),jMaxUpd(1)
./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 181 GAD_SOM_ADVECT 
      DO j=1-OLy,sNy+OLy
./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 197 GAD_SOM_ADVECT 
        DO j=1,OLy
./pkg/generic_advdiff/gad_som_advect.F 199 GAD_SOM_ADVECT 
          smCorners(i,j,k,n) = 0.
./pkg/generic_advdiff/gad_som_advect.F 264 GAD_SOM_ADVECT 
       DO j=1-OLy,sNy+OLy
./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 438 GAD_SOM_ADVECT 
        DO j=1-OLy,sNy+OLy
./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 506 GAD_SOM_ADVECT 
         DO j=1-OLy,sNy+OLy
./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 547 GAD_SOM_ADVECT 
         DO j=1-OLy,sNy+OLy
./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 557 GAD_SOM_ADVECT 
         DO j=1-OLy,sNy+OLy
./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 570 GAD_SOM_ADVECT 
         DO j=1-OLy,sNy+OLy
./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 617 GAD_SOM_ADVECT 
        DO j=1-OLy,sNy+OLy
./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 65 GAD_SOM_LIM_R 
        DO j=jMinAdvR,jMaxAdvR
./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 129 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 140 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 151 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 162 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 182 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 193 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 204 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 215 GAD_SOM_PREP_CS_CORNER 
          DO j=1,OLy
./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 63 GAD_U3_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 69 GAD_U3_ADV_R 
       DO j=1-Oly,sNy+Oly
./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 55 GAD_U3_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/generic_advdiff/gad_u3_adv_x.F 56 GAD_U3_ADV_X 
       uT(1-Olx,j)=0.
./pkg/generic_advdiff/gad_u3_adv_x.F 57 GAD_U3_ADV_X 
       uT(2-Olx,j)=0.
./pkg/generic_advdiff/gad_u3_adv_x.F 58 GAD_U3_ADV_X 
       uT(sNx+Olx,j)=0.
./pkg/generic_advdiff/gad_u3_adv_x.F 60 GAD_U3_ADV_X 
      DO j=1-Oly,sNy+Oly
./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 60 GAD_U3_ADV_Y 
      DO j=1-Oly+2,sNy+Oly-1
./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 91 GAD_U3C4_IMPL_R 
       DO j=jMin,jMax
./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 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 88 SALT_FILL 
         do j=1,sNy
./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/generic_advdiff/salt_fill.F 99 SALT_FILL 
        do j=1,sNy
./pkg/ggl90/ggl90_calc.F 136 GGL90_CALC 
       DO j=1-Oly,sNy+Oly
./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 145 GGL90_CALC 
      DO j=1-Oly,sNy+Oly
./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 171 GGL90_CALC 
       DO j=jMin,jMax
./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 202 GGL90_CALC 
        DO j=jMin,jMax
./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 212 GGL90_CALC 
        DO j=jMin,jMax
./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 224 GGL90_CALC 
        DO j=jMin,jMax
./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 235 GGL90_CALC 
        DO j=jMin,jMax
./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 254 GGL90_CALC 
        DO j=jMin,jMax
./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 261 GGL90_CALC 
       DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F 263 GGL90_CALC 
          GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr),
./pkg/ggl90/ggl90_calc.F 268 GGL90_CALC 
        DO j=jMin,jMax
./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 277 GGL90_CALC 
        DO j=jMin,jMax
./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 289 GGL90_CALC 
        DO j=jMin,jMax
./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 296 GGL90_CALC 
       DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F 298 GGL90_CALC 
          GGL90mixingLength(i,j,Nr) = MIN(GGL90mixingLength(i,j,Nr),
./pkg/ggl90/ggl90_calc.F 303 GGL90_CALC 
        DO j=jMin,jMax
./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 312 GGL90_CALC 
        DO j=jMin,jMax
./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 346 GGL90_CALC 
        DO j=1-Oly,sNy+Oly
./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 356 GGL90_CALC 
        DO j=1-Oly,sNy+Oly
./pkg/ggl90/ggl90_calc.F 357 GGL90_CALC 
         dfx(1-Olx,j)=0. _d 0
./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 362 GGL90_CALC 
     &      *CosFacU(j,bi,bj)
./pkg/ggl90/ggl90_calc.F 369 GGL90_CALC 
        DO j=1-Oly+1,sNy+Oly
./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 375 GGL90_CALC 
     &      *CosFacV(j,bi,bj)
./pkg/ggl90/ggl90_calc.F 380 GGL90_CALC 
        DO j=1-Oly,sNy+Oly-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 393 GGL90_CALC 
       DO j=jMin,jMax
./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 437 GGL90_CALC 
        DO j=jMin,jMax
./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 455 GGL90_CALC 
      DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F 457 GGL90_CALC 
         a(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 462 GGL90_CALC 
       DO j=jMin,jMax
./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 475 GGL90_CALC 
      DO j=jMin,jMax
./pkg/ggl90/ggl90_calc.F 477 GGL90_CALC 
         c(i,j,1)  = 0. _d 0
./pkg/ggl90/ggl90_calc.F 481 GGL90_CALC 
       DO j=jMin,jMax
./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 497 GGL90_CALC 
       DO j=jMin,jMax
./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 510 GGL90_CALC 
      DO j=jMin,jMax
./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 541 GGL90_CALC 
       DO j=jMin,jMax
./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 554 GGL90_CALC 
       DO j=1,sNy
./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 589 GGL90_CALC 
       DO j=1,sNy
./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 622 GGL90_CALC 
       DO j=1,sNy+1
./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 51 GGL90_CALC_DIFF 
         DO j=jMin,jMax
./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 62 GGL90_CALC_DIFF 
         DO j=jMin,jMax
./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 47 GGL90_CALC_VISC 
      DO j=jMin,jMax
./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 54 GGL90_CALC_VISC 
      DO j=jMin,jMax
./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 49 GGL90_INIT_FIXED 
        DO j=1-Oly,sNy+Oly
./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 55 GMREDI_CALC_DIFF 
         DO j=jMin,jMax
./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 72 GMREDI_CALC_DIFF 
         DO j=jMin,jMax
./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 101 GMREDI_CALC_PSI_B 
       DO j=1-Oly+1,sNy+Oly
./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 126 GMREDI_CALC_PSI_B 
       DO j=1-Oly,sNy+Oly
./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 143 GMREDI_CALC_PSI_B 
       DO j=1-Oly+1,sNy+Oly
./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 82 GMREDI_CALC_PSI_B 
       DO j=1-Oly,sNy+Oly
./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 93 GMREDI_CALC_PSI_B 
       DO j=1-Oly,sNy+Oly
./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 143 GMREDI_CALC_TENSOR 
      DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_tensor.F 145 GMREDI_CALC_TENSOR 
        VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 157 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./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 168 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_tensor.F 169 GMREDI_CALC_TENSOR 
        kLow_W(1-Olx,j) = 0
./pkg/gmredi/gmredi_calc_tensor.F 170 GMREDI_CALC_TENSOR 
        ldd97_LrhoW(1-Olx,j) = LrhoSup
./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 187 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly
./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 201 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./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 213 GMREDI_CALC_TENSOR 
      DO j=1-Oly,sNy+Oly
./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 223 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_tensor.F 225 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = KPPhbl(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 232 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_tensor.F 234 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = hMixLayer(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 243 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./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 271 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 289 GMREDI_CALC_TENSOR 
        DO j=1-Oly,sNy+Oly
./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 303 GMREDI_CALC_TENSOR 
        DO j=1-Oly+1,sNy+Oly-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 365 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_calc_tensor.F 367 GMREDI_CALC_TENSOR 
         dSigmaDr(i,j)=sigmaR(i,j,k)
./pkg/gmredi/gmredi_calc_tensor.F 391 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 409 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 419 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 463 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 489 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 534 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./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 544 GMREDI_CALC_TENSOR 
       DO j=1-Oly,sNy+Oly
./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 551 GMREDI_CALC_TENSOR 
      DO j=1-Oly,sNy+Oly
./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 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 571 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 613 GMREDI_CALC_TENSOR 
        DO j=1-Oly+1,sNy+Oly-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 632 GMREDI_CALC_TENSOR 
        DO j=1-Oly+1,sNy+Oly-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 647 GMREDI_CALC_TENSOR 
        DO j=1-Oly+1,sNy+Oly-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 672 GMREDI_CALC_TENSOR 
        DO j=1,sNy
./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 686 GMREDI_CALC_TENSOR 
        DO j=1,sNy
./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 719 GMREDI_CALC_TENSOR 
       DO j=2-Oly,sNy+Oly
./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 729 GMREDI_CALC_TENSOR 
       DO j=2-Oly,sNy+Oly
./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 736 GMREDI_CALC_TENSOR 
      DO j=1-Oly,sNy+Oly
./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 743 GMREDI_CALC_TENSOR 
      DO j=2-Oly,sNy+Oly
./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 758 GMREDI_CALC_TENSOR 
       DO j=1-Oly+1,sNy+Oly-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 801 GMREDI_CALC_TENSOR 
        DO j=1-Oly+1,sNy+Oly-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 820 GMREDI_CALC_TENSOR 
        DO j=1-Oly+1,sNy+Oly-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 835 GMREDI_CALC_TENSOR 
        DO j=1-Oly+1,sNy+Oly-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 860 GMREDI_CALC_TENSOR 
        DO j=1,sNy+1
./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 874 GMREDI_CALC_TENSOR 
        DO j=1,sNy+1
./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 990 GMREDI_CALC_TENSOR_DUMMY 
       DO j=1-Oly+1,sNy+Oly-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
./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_calc_uvflow.F 46 GMREDI_CALC_UVFLOW 
      INTEGER i, j
./pkg/gmredi/gmredi_calc_uvflow.F 58 GMREDI_CALC_UVFLOW 
       DO j=1-OLy,sNy+OLy
./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 68 GMREDI_CALC_UVFLOW 
       DO j=1-OLy,sNy+OLy
./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 49 GMREDI_CALC_WFLOW 
       DO j=1-Oly,sNy+Oly-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 77 GMREDI_DIAGNOSTICS_FILL 
         DO j = 1, sny
./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 91 GMREDI_DIAGNOSTICS_FILL 
         DO j = 1, sny
./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_varia.F 38 GMREDI_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/gmredi/gmredi_init_varia.F 45 GMREDI_INIT_VARIA 
         DO j=1-Oly,sNy+OLy
./pkg/gmredi/gmredi_init_varia.F 47 GMREDI_INIT_VARIA 
           Kwx(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 48 GMREDI_INIT_VARIA 
           Kwy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 49 GMREDI_INIT_VARIA 
           Kwz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 51 GMREDI_INIT_VARIA 
           Kuz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 52 GMREDI_INIT_VARIA 
           Kvz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 55 GMREDI_INIT_VARIA 
           Kux(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 56 GMREDI_INIT_VARIA 
           Kvy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 59 GMREDI_INIT_VARIA 
           GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 60 GMREDI_INIT_VARIA 
           GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 63 GMREDI_INIT_VARIA 
          VisbeckK(i,j,bi,bj) = 0. _d 0
./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/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 129 GMREDI_RTRANSPORT 
      DO j=jMin,jMax
./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 150 GMREDI_RTRANSPORT 
       DO j=jMin,jMax
./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 163 GMREDI_RTRANSPORT 
       DO j=jMin,jMax
./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 87 GMREDI_RTRANSPORT 
      DO j=jMin,jMax
./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 141 GMREDI_SLOPE_LIMIT 
      DO j=1-Oly+1,sNy+Oly-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 158 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 173 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 199 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly,sNy+Oly
./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 229 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 246 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 262 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 280 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 301 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 337 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 382 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 467 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 517 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 532 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 560 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 578 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 596 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 612 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 627 GMREDI_SLOPE_LIMIT 
        DO j=1-Oly+1,sNy+Oly-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 105 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F 107 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 113 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 123 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 132 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 142 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./pkg/gmredi/gmredi_slope_psi.F 144 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 148 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 158 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 167 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 195 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 204 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 213 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 227 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 236 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 245 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 264 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 272 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 285 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 293 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 305 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 311 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 322 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 342 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 380 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 389 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 401 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 410 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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 422 GMREDI_SLOPE_PSI 
        DO j=1-Oly,sNy+Oly
./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 433 GMREDI_SLOPE_PSI 
        DO j=1-Oly+1,sNy+Oly
./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
./pkg/gmredi/gmredi_xtransport.F 104 GMREDI_XTRANSPORT 
      DO j=jMin,jMax
./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 131 GMREDI_XTRANSPORT 
       DO j=jMin,jMax
./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 155 GMREDI_XTRANSPORT 
       DO j=jMin,jMax
./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 170 GMREDI_XTRANSPORT 
       DO j=jMin,jMax
./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 181 GMREDI_XTRANSPORT 
       DO j=jMin,jMax
./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 198 GMREDI_XTRANSPORT 
       DO j=jMin,jMax
./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 104 GMREDI_YTRANSPORT 
      DO j=jMin,jMax
./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 131 GMREDI_YTRANSPORT 
       DO j=jMin,jMax
./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 154 GMREDI_YTRANSPORT 
       DO j=jMin,jMax
./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 170 GMREDI_YTRANSPORT 
       DO j=jMin,jMax
./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 181 GMREDI_YTRANSPORT 
       DO j=jMin,jMax
./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 197 GMREDI_YTRANSPORT 
       DO j=jMin,jMax
./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 126 GRDCHK_GET_OBCS_MASK 
                  do j = jmin,jmax
./pkg/grdchk/grdchk_get_obcs_mask.F 127 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 128 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldyz(j,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F 149 GRDCHK_GET_OBCS_MASK 
                  do j = jmin,jmax
./pkg/grdchk/grdchk_get_obcs_mask.F 150 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 151 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldyz(j,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F 39 GRDCHK_GET_OBCS_MASK 
      integer i,j,k
./pkg/grdchk/grdchk_get_position.F 129 GRDCHK_GET_POSITION 
               do j = jwrk, ncvarymax(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 164 GRDCHK_GET_POSITION 
                        if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 167 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 171 GRDCHK_GET_POSITION 
                        if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 174 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 180 GRDCHK_GET_POSITION 
     &                 j     .EQ. jtilepos .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
./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/grdchk/grdchk_init.F 41 GRDCHK_INIT 
      integer i,j,k
./pkg/grdchk/grdchk_loc.F 191 GRDCHK_LOC 
               do j = jwrk, ncvarymax(grdchkvarindex)
./pkg/grdchk/grdchk_loc.F 195 GRDCHK_LOC 
                     if ( maskC(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 198 GRDCHK_LOC 
                        jtmp = j
./pkg/grdchk/grdchk_loc.F 201 GRDCHK_LOC 
                     if ( _maskS(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 204 GRDCHK_LOC 
                        jtmp = j
./pkg/grdchk/grdchk_loc.F 207 GRDCHK_LOC 
                     if ( _maskW(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 210 GRDCHK_LOC 
                        jtmp = j
./pkg/grdchk/grdchk_loc.F 231 GRDCHK_LOC 
                        if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 234 GRDCHK_LOC 
                           jtmp = j
./pkg/grdchk/grdchk_loc.F 239 GRDCHK_LOC 
                        if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 242 GRDCHK_LOC 
                           jtmp = j
./pkg/grdchk/grdchk_loc.F 74 GRDCHK_LOC 
      integer i,j,k
./pkg/grdchk/grdchk_main.F 101 GRDCHK_MAIN 
      integer j,  jmin, jmax
./pkg/grdchk/grdchk_main.F 174 GRDCHK_MAIN 
               do j = jmin, jmax
./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 274 GRDCHK_MAIN 
             do j=1,sny
./pkg/grdchk/grdchk_main.F 276 GRDCHK_MAIN 
               g_objf_state_final(i,j,1,1,k) = 0.
./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 77 DYN2PHYS 
       do j = jdim1,jdim2
./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 88 DYN2PHYS 
       do j = jdim1,jdim2
./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)
./pkg/gridalt/gridalt_update.F 31 GRIDALT_UPDATE 
       integer i,j,L
./pkg/gridalt/gridalt_update.F 53 GRIDALT_UPDATE 
          do j = j1,j2
./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 74 GRIDALT_UPDATE 
          do j = j1,j2
./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 120 MAKE_PHYS_GRID 
       do j = j1,j2
./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 95 MAKE_PHYS_GRID 
        do j = j1,j2
./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 72 PHYS2DYN 
       do j = jdim1,jdim2
./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 39 ICEFRONT_TENDENCY_APPLY_T 
       DO j=1,sNy
./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 81 ICEFRONT_TENDENCY_APPLY_S 
       DO j=1,sNy
./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 267 KPP_CALC 
         DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_calc.F 269 KPP_CALC 
               ghat(i,j,k) = dbloc(i,j,k)
./pkg/kpp/kpp_calc.F 317 KPP_CALC 
         DO j = 1-OLy, sNy+OLy
./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 415 KPP_CALC 
       DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_calc.F 417 KPP_CALC 
         shsq(i,j,k) = p0
./pkg/kpp/kpp_calc.F 425 KPP_CALC 
       DO j = jmin, jmax
./pkg/kpp/kpp_calc.F 426 KPP_CALC 
        jm1 = j - 1
./pkg/kpp/kpp_calc.F 427 KPP_CALC 
        jp1 = j + 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 434 KPP_CALC 
     &        (uVel(ip1,j,  k,bi,bj)-uVel(ip1,j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 435 KPP_CALC 
     &        (uVel(ip1,j,  k,bi,bj)-uVel(ip1,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 441 KPP_CALC 
         shsq(i,j,k) = p5 * shsq(i,j,k) + p125 * (
./pkg/kpp/kpp_calc.F 450 KPP_CALC 
     &        (vVel(im1,j,  k,bi,bj)-vVel(im1,j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 451 KPP_CALC 
     &        (vVel(im1,j,  k,bi,bj)-vVel(im1,j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 454 KPP_CALC 
     &        (vVel(ip1,j,  k,bi,bj)-vVel(ip1,j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 455 KPP_CALC 
     &        (vVel(ip1,j,  k,bi,bj)-vVel(ip1,j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 499 KPP_CALC 
      DO j = 1-OLy, sNy+OLy
./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 525 KPP_CALC 
      DO j = jmin, jmax
./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 580 KPP_CALC 
      DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F 582 KPP_CALC 
            worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 589 KPP_CALC 
      DO j=1-OLy,sNy+OLy
./pkg/kpp/kpp_calc.F 591 KPP_CALC 
            KPPfrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_calc.F 599 KPP_CALC 
        DO j=1-OLy,sNy+OLy
./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 609 KPP_CALC 
        DO j=1-OLy,sNy+OLy
./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 662 KPP_CALC_DUMMY 
      DO j=1-OLy,sNy+OLy
./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 54 KPP_CALC_DIFF_PTR 
        DO j=jMin,jMax
./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 67 KPP_CALC_DIFF_PTR 
       DO j=jMin,jMax
./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 51 KPP_CALC_DIFF_S 
        DO j=jMin,jMax
./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 60 KPP_CALC_DIFF_S 
       DO j=jMin,jMax
./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 51 KPP_CALC_DIFF_T 
        DO j=jMin,jMax
./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 60 KPP_CALC_DIFF_T 
       DO j=jMin,jMax
./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 40 KPP_CALC_VISC 
      DO j=jMin,jMax
./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 48 KPP_CALC_VISC 
      DO j=jMin,jMax
./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 159 KPP_FORCING_SURF 
      DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_forcing_surf.F 161 KPP_FORCING_SURF 
            ustar(i,j) = p0
./pkg/kpp/kpp_forcing_surf.F 170 KPP_FORCING_SURF 
      DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F 171 KPP_FORCING_SURF 
       jp1 = j + 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 184 KPP_FORCING_SURF 
      DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F 185 KPP_FORCING_SURF 
       jp1 = j + 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 199 KPP_FORCING_SURF 
      DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F 200 KPP_FORCING_SURF 
       jp1 = j + 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 216 KPP_FORCING_SURF 
         DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F 217 KPP_FORCING_SURF 
            jp1 = j + 1
./pkg/kpp/kpp_forcing_surf.F 221 KPP_FORCING_SURF 
     &              * saltPlumeFlux(i,j,bi,bj)
./pkg/kpp/kpp_forcing_surf.F 252 KPP_FORCING_SURF 
       DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_forcing_surf.F 254 KPP_FORCING_SURF 
         dVsq(i,j,k) = p0
./pkg/kpp/kpp_forcing_surf.F 269 KPP_FORCING_SURF 
      DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F 270 KPP_FORCING_SURF 
       jp1 = j + 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 304 KPP_FORCING_SURF 
     &       (uVel(ip1,j,  1,bi,bj)-uVel(ip1,j,  2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 305 KPP_FORCING_SURF 
     &       (uVel(ip1,j,  1,bi,bj)-uVel(ip1,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 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 331 KPP_FORCING_SURF 
     &        surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1)
./pkg/kpp/kpp_forcing_surf.F 332 KPP_FORCING_SURF 
         ustarY = ( surfForcV(i,j,  bi,bj) +
./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 352 KPP_FORCING_SURF 
       DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F 353 KPP_FORCING_SURF 
        jm1 = j - 1
./pkg/kpp/kpp_forcing_surf.F 354 KPP_FORCING_SURF 
        jp1 = j + 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 393 KPP_FORCING_SURF 
       DO j = jmin, jmax
./pkg/kpp/kpp_forcing_surf.F 394 KPP_FORCING_SURF 
        jm1 = j - 1
./pkg/kpp/kpp_forcing_surf.F 395 KPP_FORCING_SURF 
        jp1 = j + 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 402 KPP_FORCING_SURF 
     $        (uVel(ip1,j,  1,bi,bj)-uVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 403 KPP_FORCING_SURF 
     $        (uVel(ip1,j,  1,bi,bj)-uVel(ip1,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 409 KPP_FORCING_SURF 
         dVsq(i,j,k) = p5 * dVsq(i,j,k) + p125 * (
./pkg/kpp/kpp_forcing_surf.F 418 KPP_FORCING_SURF 
     $        (vVel(im1,j,  1,bi,bj)-vVel(im1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 419 KPP_FORCING_SURF 
     $        (vVel(im1,j,  1,bi,bj)-vVel(im1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 422 KPP_FORCING_SURF 
     $        (vVel(ip1,j,  1,bi,bj)-vVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 423 KPP_FORCING_SURF 
     $        (vVel(ip1,j,  1,bi,bj)-vVel(ip1,j,  k,bi,bj)) +
./pkg/kpp/kpp_init_fixed.F 140 KPP_INIT_FIXED 
         DO j = 0, nnj + 1
./pkg/kpp/kpp_init_fixed.F 141 KPP_INIT_FIXED 
            usta = deltau*j + umin
./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 43 KPP_INIT_VARIA 
             DO j = 1-OLy, sNy+OLy
./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 64 KPP_INIT_VARIA 
            DO j = 1-OLy, sNy+OLy
./pkg/kpp/kpp_init_varia.F 66 KPP_INIT_VARIA 
                  KPPhbl(i,j,bi,bj) = 0.
./pkg/kpp/kpp_init_varia.F 70 KPP_INIT_VARIA 
               DO j = 1-OLy, sNy+OLy
./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 224 KPP_OUTPUT 
           DO j=1,sNy
./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 371 KPP_OUTPUT 
          DO j=1,sNy
./pkg/kpp/kpp_output.F 373 KPP_OUTPUT 
              tmpLoc(i,j,1) = 0. _d 0
./pkg/kpp/kpp_output.F 377 KPP_OUTPUT 
           DO j=1,sNy
./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 1094 SMOOTH_HORIZ 
      integer i, j, im1, ip1, jm1, jp1
./pkg/kpp/kpp_routines.F 1104 SMOOTH_HORIZ 
      DO j = jmin, jmax
./pkg/kpp/kpp_routines.F 1105 SMOOTH_HORIZ 
         jm1 = j-1
./pkg/kpp/kpp_routines.F 1106 SMOOTH_HORIZ 
         jp1 = j+1
./pkg/kpp/kpp_routines.F 1111 SMOOTH_HORIZ 
     &           p25   *   maskC(i  ,j  ,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1112 SMOOTH_HORIZ 
     &           p125  * ( maskC(im1,j  ,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1113 SMOOTH_HORIZ 
     &                     maskC(ip1,j  ,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 1123 SMOOTH_HORIZ 
     &              p125 *(fld(im1,j  )*maskC(im1,j  ,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1124 SMOOTH_HORIZ 
     &                     fld(ip1,j  )*maskC(ip1,j  ,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1133 SMOOTH_HORIZ 
               fld_tmp(i,j) = fld(i,j)
./pkg/kpp/kpp_routines.F 1139 SMOOTH_HORIZ 
      DO j = jmin, jmax
./pkg/kpp/kpp_routines.F 1141 SMOOTH_HORIZ 
            fld(i,j) = fld_tmp(i,j)
./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 79 KPP_TRANSPORT_PTR 
        DO j=jMin,jMax
./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 94 KPP_TRANSPORT_PTR 
        DO j=jMin,jMax
./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 101 KPP_TRANSPORT_S 
      DO j=jMin,jMax
./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 85 KPP_TRANSPORT_S 
      DO j=jMin,jMax
./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 75 KPP_TRANSPORT_T 
      DO j=jMin,jMax
./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 90 KPP_TRANSPORT_T 
      DO j=jMin,jMax
./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 61 LAND_ALBEDO 
        DO j=1,sNy
./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 129 LAND_IMPL_TEMP 
      DO j=1,sNy
./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 134 LAND_INI_VARS 
         DO j=1,sNy
./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 152 LAND_INI_VARS 
         DO j=1,sNy
./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_stepfwd.F 103 LAND_STEPFWD 
        DO j=1,sNy
./pkg/land/land_stepfwd.F 105 LAND_STEPFWD 
           flxkup(i,j) = flxkdw(i,j)
./pkg/land/land_stepfwd.F 110 LAND_STEPFWD 
       DO j=1,sNy
./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 135 LAND_STEPFWD 
        DO j=1,sNy
./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 150 LAND_STEPFWD 
         DO j=1,sNy
./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 177 LAND_STEPFWD 
        DO j=1,sNy
./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 258 LAND_STEPFWD 
        DO j=1,sNy
./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 281 LAND_STEPFWD 
       DO j=1,sNy
./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 398 LAND_STEPFWD 
        DO j=1,sNy
./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 422 LAND_STEPFWD 
        DO j=1,sNy
./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 432 LAND_STEPFWD 
        DO j=1,sNy
./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 97 LAND_STEPFWD 
        DO j=1,sNy
./pkg/land/land_stepfwd.F 99 LAND_STEPFWD 
           flxkup(i,j) = land_HeatFlx(i,j,bi,bj)
./pkg/layers/layers_calc.F 111 LAYERS_CALC 
       DO j = 1,sNy+1
./pkg/layers/layers_calc.F 118 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i-1,j,k,bi,bj)+theta(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 120 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 123 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i-1,j,k,bi,bj)+salt(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 125 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i-1,j,k+1,bi,bj)+salt(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 132 LAYERS_CALC 
          kgu(i,j) = Nlayers
./pkg/layers/layers_calc.F 135 LAYERS_CALC 
          kgu(i,j) = 1
./pkg/layers/layers_calc.F 136 LAYERS_CALC 
         ELSE IF ( (TatU .GE. layers_G(kgu(i,j)))
./pkg/layers/layers_calc.F 137 LAYERS_CALC 
     &    .AND. (TatU .LT. layers_G(kgu(i,j)+1)) ) THEN
./pkg/layers/layers_calc.F 139 LAYERS_CALC 
         ELSE IF (TatU .GE. layers_G(kgu(i,j))) THEN
./pkg/layers/layers_calc.F 141 LAYERS_CALC 
          DO WHILE (TatU .GE. layers_G(kgu(i,j)+1))
./pkg/layers/layers_calc.F 142 LAYERS_CALC 
           kgu(i,j) = kgu(i,j) + 1
./pkg/layers/layers_calc.F 145 LAYERS_CALC 
         ELSE IF (TatU .LT. layers_G(kgu(i,j)+1)) THEN
./pkg/layers/layers_calc.F 147 LAYERS_CALC 
          DO WHILE (TatU .LT. layers_G(kgu(i,j)))
./pkg/layers/layers_calc.F 148 LAYERS_CALC 
           kgu(i,j) = kgu(i,j) - 1
./pkg/layers/layers_calc.F 161 LAYERS_CALC 
         layers_UFlux(i,j,kgu(i,j),bi,bj) =
./pkg/layers/layers_calc.F 162 LAYERS_CALC 
     &    layers_UFlux(i,j,kgu(i,j),bi,bj) +
./pkg/layers/layers_calc.F 163 LAYERS_CALC 
     &    dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 170 LAYERS_CALC 
           delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_calc.F 171 LAYERS_CALC 
     &            - GM_PsiX(i,j, kci, bi,bj)
./pkg/layers/layers_calc.F 172 LAYERS_CALC 
           layers_UFlux(i,j,kgu(i,j),bi,bj) =
./pkg/layers/layers_calc.F 173 LAYERS_CALC 
     &      layers_UFlux(i,j,kgu(i,j),bi,bj)
./pkg/layers/layers_calc.F 174 LAYERS_CALC 
     &      + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 175 LAYERS_CALC 
     &      * dZZf(kk)*hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 180 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 181 LAYERS_CALC 
     &    + dZZf(kk) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 190 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i,j-1,k,bi,bj)+theta(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 192 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 195 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i,j-1,k,bi,bj)+salt(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 197 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i,j-1,k+1,bi,bj)+salt(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 203 LAYERS_CALC 
          kgv(i,j) = Nlayers
./pkg/layers/layers_calc.F 206 LAYERS_CALC 
          kgv(i,j) = 1
./pkg/layers/layers_calc.F 207 LAYERS_CALC 
         ELSE IF ( (TatV .GE. layers_G(kgv(i,j)))
./pkg/layers/layers_calc.F 208 LAYERS_CALC 
     &    .AND. (TatV .LT. layers_G(kgv(i,j)+1)) ) THEN
./pkg/layers/layers_calc.F 210 LAYERS_CALC 
         ELSE IF (TatV .GE. layers_G(kgv(i,j))) THEN
./pkg/layers/layers_calc.F 212 LAYERS_CALC 
          DO WHILE (TatV .GE. layers_G(kgv(i,j)+1))
./pkg/layers/layers_calc.F 213 LAYERS_CALC 
           kgv(i,j) = kgv(i,j) + 1
./pkg/layers/layers_calc.F 216 LAYERS_CALC 
         ELSE IF (TatV .LT. layers_G(kgv(i,j)+1)) THEN
./pkg/layers/layers_calc.F 218 LAYERS_CALC 
          DO WHILE (TatV .LT. layers_G(kgv(i,j)))
./pkg/layers/layers_calc.F 219 LAYERS_CALC 
           kgv(i,j) = kgv(i,j) - 1
./pkg/layers/layers_calc.F 232 LAYERS_CALC 
         layers_VFlux(i,j,kgv(i,j),bi,bj) =
./pkg/layers/layers_calc.F 233 LAYERS_CALC 
     &    layers_VFlux(i,j,kgv(i,j),bi,bj)
./pkg/layers/layers_calc.F 234 LAYERS_CALC 
     &    + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 241 LAYERS_CALC 
           delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_calc.F 242 LAYERS_CALC 
     &            - GM_PsiX(i,j, kci, bi,bj)
./pkg/layers/layers_calc.F 243 LAYERS_CALC 
           layers_UFlux(i,j,kgu(i,j),bi,bj) =
./pkg/layers/layers_calc.F 244 LAYERS_CALC 
     &      layers_UFlux(i,j,kgu(i,j),bi,bj)
./pkg/layers/layers_calc.F 245 LAYERS_CALC 
     &      + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 246 LAYERS_CALC 
     &      * dZZf(kk)*hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 251 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 252 LAYERS_CALC 
     &    + dZZf(kk) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_calc.F 58 LAYERS_CALC 
      INTEGER i,j,k,kk,kg,kci
./pkg/layers/layers_calc.F 74 LAYERS_CALC 
      DO j = 1,sNy+1
./pkg/layers/layers_calc.F 79 LAYERS_CALC 
          kgu(i,j) = Nlayers
./pkg/layers/layers_calc.F 80 LAYERS_CALC 
          kgv(i,j) = Nlayers
./pkg/layers/layers_calc.F 86 LAYERS_CALC 
       DO j = 1,sNy+1
./pkg/layers/layers_calc.F 89 LAYERS_CALC 
         layers_UFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 91 LAYERS_CALC 
         layers_HU(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 95 LAYERS_CALC 
         layers_VFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 97 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 35 LAYERS_INIT_VARIA 
         DO j=1-Oly,sNy+OLy
./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 52 LONGSTEP_AVERAGE_3D 
         DO j = 1-OLy,sNy+OLy
./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 52 LONGSTEP_AVERAGE_3D_FAC 
         DO j = 1-OLy,sNy+OLy
./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 51 LONGSTEP_FILL_3D 
         DO j = 1-OLy,sNy+OLy
./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 52 LONGSTEP_FILL_3D_FAC 
         DO j = 1-OLy,sNy+OLy
./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 52 LONGSTEP_FILL_3D_RS 
         DO j = 1-OLy,sNy+OLy
./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 116 LONGSTEP_FORCING_SURF 
          DO j = jMin, jMax
./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 140 LONGSTEP_FORCING_SURF 
          DO j = jMin, jMax
./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 61 LONGSTEP_FORCING_SURF 
          DO j = jMin, jMax
./pkg/longstep/longstep_forcing_surf.F 63 LONGSTEP_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/longstep/longstep_forcing_surf.F 83 LONGSTEP_FORCING_SURF 
          DO j = jMin, jMax
./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 49 LONGSTEP_RESET_3D 
         DO j = 1-OLy,sNy+OLy
./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 179 LONGSTEP_THERMODYNAMICS 
        DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F 181 LONGSTEP_THERMODYNAMICS 
          xA(i,j)        = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 182 LONGSTEP_THERMODYNAMICS 
          yA(i,j)        = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 183 LONGSTEP_THERMODYNAMICS 
          uTrans(i,j)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 184 LONGSTEP_THERMODYNAMICS 
          vTrans(i,j)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 185 LONGSTEP_THERMODYNAMICS 
          rTrans (i,j)   = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 186 LONGSTEP_THERMODYNAMICS 
          rTransKp1(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 191 LONGSTEP_THERMODYNAMICS 
         DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F 194 LONGSTEP_THERMODYNAMICS 
           kappaRk(i,j,k)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 202 LONGSTEP_THERMODYNAMICS 
           DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F 204 LONGSTEP_THERMODYNAMICS 
             fVerP  (i,j,1,ip) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 205 LONGSTEP_THERMODYNAMICS 
             fVerP  (i,j,2,ip) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 206 LONGSTEP_THERMODYNAMICS 
             kappaRTr(i,j,ip)  = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 213 LONGSTEP_THERMODYNAMICS 
           DO j=1-OLy,sNy+OLy
./pkg/longstep/longstep_thermodynamics.F 215 LONGSTEP_THERMODYNAMICS 
             gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 307 LONGSTEP_THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./pkg/longstep/longstep_thermodynamics.F 309 LONGSTEP_THERMODYNAMICS 
             rTransKp1(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 313 LONGSTEP_THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./pkg/longstep/longstep_thermodynamics.F 315 LONGSTEP_THERMODYNAMICS 
             rTransKp1(i,j) = rTrans(i,j)
./pkg/longstep/longstep_thermodynamics.F 334 LONGSTEP_THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./pkg/longstep/longstep_thermodynamics.F 336 LONGSTEP_THERMODYNAMICS 
             wFld(i,j)   = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 337 LONGSTEP_THERMODYNAMICS 
             maskUp(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 338 LONGSTEP_THERMODYNAMICS 
             rTrans(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 344 LONGSTEP_THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./pkg/longstep/longstep_thermodynamics.F 346 LONGSTEP_THERMODYNAMICS 
             wFld(i,j)   = LS_wVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 347 LONGSTEP_THERMODYNAMICS 
             maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 348 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 34 MATRIX_INIT 
              DO j=1-Oly, sNy+Oly
./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 37 MATRIX_STORE_TENDENCY_EXP 
          DO j=1-Oly, sNy+Oly
./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 85 MATRIX_STORE_TENDENCY_IMP 
          DO j=1-Oly, sNy+Oly
./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 111 MATRIX_WRITE_TENDENCY 
                DO j=1-Oly, sNy+Oly
./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 45 MATRIX_WRITE_TENDENCY 
                DO j=1-Oly, sNy+Oly
./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 68 MATRIX_WRITE_TENDENCY 
                DO j=1-Oly, sNy+Oly
./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 88 MATRIX_WRITE_TENDENCY 
                DO j=1-Oly, sNy+Oly
./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 102 MDS_FACEF_READ_RS 
         j = j+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 126 MDS_FACEF_READ_RS 
        DO j=1,sNy+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 136 MDS_FACEF_READ_RS 
        DO j=1,sNy+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 83 MDS_FACEF_READ_RS 
      j = 0
./pkg/mdsio/mdsio_facef_read.F 91 MDS_FACEF_READ_RS 
         j = j+1
./pkg/mdsio/mdsio_facef_read.F 93 MDS_FACEF_READ_RS 
          array(i,j,bi,bj) = ioBuf4(i+tBx)
./pkg/mdsio/mdsio_gl.F 1019 MDSREADFIELD_2D_GL 
          do j=1,sNy
./pkg/mdsio/mdsio_gl.F 1023 MDSREADFIELD_2D_GL 
            irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1)
./pkg/mdsio/mdsio_gl.F 1028 MDSREADFIELD_2D_GL 
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1036 MDSREADFIELD_2D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1038 MDSREADFIELD_2D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1051 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1053 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1067 MDSREADFIELD_2D_GL 
        arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./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 1433 MDSWRITEFIELD_2D_GL 
          do j=1,sNy
./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 1439 MDSWRITEFIELD_2D_GL 
            irec=j + sNy*(k-1) + sNy*nLocz*(irecord-1)
./pkg/mdsio/mdsio_gl.F 1442 MDSWRITEFIELD_2D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1444 MDSWRITEFIELD_2D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1457 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1459 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 258 MDSREADFIELD_3D_GL 
          do j=1,sNy
./pkg/mdsio/mdsio_gl.F 262 MDSREADFIELD_3D_GL 
            irec=1 + INT(iG/sNx) + nSx*nPx*(jG+j-1) + nSx*nPx*Ny*(k-1)
./pkg/mdsio/mdsio_gl.F 267 MDSREADFIELD_3D_GL 
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 275 MDSREADFIELD_3D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 277 MDSREADFIELD_3D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 290 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 292 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 306 MDSREADFIELD_3D_GL 
        arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./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 670 MDSWRITEFIELD_3D_GL 
          do j=1,sNy
./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 676 MDSWRITEFIELD_3D_GL 
            irec=j + sNy*(k-1) + sNy*Nr*(irecord-1)
./pkg/mdsio/mdsio_gl.F 679 MDSWRITEFIELD_3D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 681 MDSWRITEFIELD_3D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 694 MDSWRITEFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 696 MDSWRITEFIELD_3D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./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 101 MDS_PASS_R4TORL 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F 103 MDS_PASS_R4TORL 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4torl.F 110 MDS_PASS_R4TORL 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F 112 MDS_PASS_R4TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r4torl.F 58 MDS_PASS_R4TORL 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r4torl.F 72 MDS_PASS_R4TORL 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F 74 MDS_PASS_R4TORL 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4torl.F 85 MDS_PASS_R4TORL 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4torl.F 87 MDS_PASS_R4TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./model/src/adams_bashforth2.F 46 ADAMS_BASHFORTH2 
      INTEGER i,j
./model/src/adams_bashforth2.F 63 ADAMS_BASHFORTH2 
      DO j=1-Oly,sNy+Oly
./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_pass_r4tors.F 101 MDS_PASS_R4TORS 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F 103 MDS_PASS_R4TORS 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F 110 MDS_PASS_R4TORS 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F 112 MDS_PASS_R4TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r4tors.F 58 MDS_PASS_R4TORS 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r4tors.F 72 MDS_PASS_R4TORS 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F 74 MDS_PASS_R4TORS 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r4tors.F 85 MDS_PASS_R4TORS 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r4tors.F 87 MDS_PASS_R4TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F 101 MDS_PASS_R8TORL 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F 103 MDS_PASS_R8TORL 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F 110 MDS_PASS_R8TORL 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F 112 MDS_PASS_R8TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r8torl.F 58 MDS_PASS_R8TORL 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r8torl.F 72 MDS_PASS_R8TORL 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F 74 MDS_PASS_R8TORL 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8torl.F 85 MDS_PASS_R8TORL 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8torl.F 87 MDS_PASS_R8TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F 101 MDS_PASS_R8TORS 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F 103 MDS_PASS_R8TORS 
                arrFld(i,j,kLev,1,1) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F 110 MDS_PASS_R8TORS 
            DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F 112 MDS_PASS_R8TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,1,1)
./pkg/mdsio/mdsio_pass_r8tors.F 58 MDS_PASS_R8TORS 
      INTEGER i,j,k,bi,bj
./pkg/mdsio/mdsio_pass_r8tors.F 72 MDS_PASS_R8TORS 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F 74 MDS_PASS_R8TORS 
                arrFld(i,j,kLev,bi,bj) = buffer(i,j,k,bi,bj)
./pkg/mdsio/mdsio_pass_r8tors.F 85 MDS_PASS_R8TORS 
             DO j=1-oLj,sNy+oLj
./pkg/mdsio/mdsio_pass_r8tors.F 87 MDS_PASS_R8TORS 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_read_field.F 111 MDS_READ_FIELD 
      INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_read_field.F 416 MDS_READ_FIELD 
            DO j=1,tNy
./pkg/mdsio/mdsio_read_field.F 417 MDS_READ_FIELD 
             irec = 1 + ( tBx + (j-1)*iGjLoc )/sNx
./pkg/mdsio/mdsio_read_field.F 418 MDS_READ_FIELD 
     &                + ( tBy + (j-1)*jGjLoc )*global_nTx
./pkg/mdsio/mdsio_read_field.F 420 MDS_READ_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_field.F 421 MDS_READ_FIELD 
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_read_meta.F 107 MDS_READ_META 
      DO j=1,nDims
./pkg/mdsio/mdsio_read_meta.F 109 MDS_READ_META 
        dimList(i,j) = 0
./pkg/mdsio/mdsio_read_meta.F 240 MDS_READ_META 
          DO j=1,nDimFil
./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 361 MDS_READ_META 
          DO j=1,nFldFil,20
./pkg/mdsio/mdsio_read_meta.F 363 MDS_READ_META 
     &          (fldList(i),i=j,MIN(nFldFil,j+19))
./pkg/mdsio/mdsio_read_meta.F 374 MDS_READ_META 
     &     nFldFil, ' , j=', j
./pkg/mdsio/mdsio_read_meta.F 387 MDS_READ_META 
     &     nDimFil, ' , j=', j, ' , ii=', ii
./pkg/mdsio/mdsio_read_meta.F 87 MDS_READ_META 
      INTEGER i,j,ii,jj
./pkg/mdsio/mdsio_read_whalos.F 87 MDS_READ_WHALOS 
      integer i,j,k,bi,bj,ii
./model/src/adams_bashforth3.F 103 ADAMS_BASHFORTH3 
         DO j=1-Oly,sNy+Oly
./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 116 ADAMS_BASHFORTH3 
        DO j=1-Oly,sNy+Oly
./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/mdsio/mdsio_seg4torl.F 22 MDS_SEG4TORL 
      INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg4torl.F 31 MDS_SEG4TORL 
        arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg4torl.F 35 MDS_SEG4TORL 
        seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg4torl.F 6 MDS_SEG4TORL 
      SUBROUTINE MDS_SEG4TORL( j,bi,bj,k,nNz, seg, copyTo, arr )
./pkg/mdsio/mdsio_seg4tors.F 22 MDS_SEG4TORS 
      INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg4tors.F 31 MDS_SEG4TORS 
        arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg4tors.F 35 MDS_SEG4TORS 
        seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg4tors.F 6 MDS_SEG4TORS 
      SUBROUTINE MDS_SEG4TORS( j,bi,bj,k,nNz, seg, copyTo, arr )
./pkg/mdsio/mdsio_seg8torl.F 22 MDS_SEG8TORL 
      INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg8torl.F 31 MDS_SEG8TORL 
        arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg8torl.F 35 MDS_SEG8TORL 
        seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg8torl.F 6 MDS_SEG8TORL 
      SUBROUTINE MDS_SEG8TORL( j,bi,bj,k,nNz, seg, copyTo, arr )
./pkg/mdsio/mdsio_seg8tors.F 22 MDS_SEG8TORS 
      INTEGER j,bi,bj,k,nNz
./pkg/mdsio/mdsio_seg8tors.F 31 MDS_SEG8TORS 
        arr(ii,j,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_seg8tors.F 35 MDS_SEG8TORS 
        seg(ii)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_seg8tors.F 6 MDS_SEG8TORS 
      SUBROUTINE MDS_SEG8TORS( j,bi,bj,k,nNz, seg, copyTo, arr )
./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 112 CALC_3D_DIFFUSIVITY 
         DO j = 1-Oly,sNy+Oly
./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 126 CALC_3D_DIFFUSIVITY 
         DO j = 1-Oly, sNy+Oly
./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 143 CALC_3D_DIFFUSIVITY 
         DO j = 1-Oly, sNy+Oly
./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 190 CALC_3D_DIFFUSIVITY 
         DO j = 1-Oly, sNy+Oly
./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 86 CALC_3D_DIFFUSIVITY 
        DO j = 1-Oly,sNy+Oly
./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/mdsio/mdsio_write_field.F 128 MDS_WRITE_FIELD 
      INTEGER i1,i2,i,j,k,nNz
./pkg/mdsio/mdsio_write_field.F 452 MDS_WRITE_FIELD 
            DO j=1,tNy
./pkg/mdsio/mdsio_write_field.F 453 MDS_WRITE_FIELD 
             irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx
./pkg/mdsio/mdsio_write_field.F 454 MDS_WRITE_FIELD 
     &                + ( tBy + (j-1)*jGjLoc )*global_nTx
./pkg/mdsio/mdsio_write_field.F 456 MDS_WRITE_FIELD 
             i1 = bBij + 1 + (j-1)*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_write_field.F 457 MDS_WRITE_FIELD 
             i2 = bBij +         j*sNx + (k-kLo)*sNx*sNy
./pkg/mdsio/mdsio_write_meta.F 113 MDS_WRITE_META 
      DO j=1,nDims
./pkg/mdsio/mdsio_write_meta.F 114 MDS_WRITE_META 
       ii = MAX(dimList(1,j),ii)
./pkg/mdsio/mdsio_write_meta.F 119 MDS_WRITE_META 
       DO j=1,nDims
./pkg/mdsio/mdsio_write_meta.F 120 MDS_WRITE_META 
        IF (j.LT.nDims) THEN
./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 128 MDS_WRITE_META 
       DO j=1,nDims
./pkg/mdsio/mdsio_write_meta.F 129 MDS_WRITE_META 
        IF (j.LT.nDims) THEN
./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 75 MDS_WRITE_META 
      INTEGER i,j,ii,iL
./pkg/mdsio/mdsio_write_whalos.F 89 MDS_WRITE_WHALOS 
      integer i,j,k,bi,bj,ii
./pkg/mdsio/mdsio_writelocal.F 115 MDS_WRITELOCAL 
      INTEGER i1,i2,i,j,k
./pkg/mdsio/mdsio_writelocal.F 327 MDS_WRITELOCAL 
            DO j=1,sNy
./pkg/mdsio/mdsio_writelocal.F 329 MDS_WRITELOCAL 
             irec = 1 + ( tBx + (j-1)*iGjLoc )/tNx
./pkg/mdsio/mdsio_writelocal.F 330 MDS_WRITELOCAL 
     &                + ( tBy + (j-1)*jGjLoc )*global_nTx
./pkg/mdsio/mdsio_writelocal.F 332 MDS_WRITELOCAL 
             i1 = bBij + 1 + (j-1)*sNx + (k-1)*sNx*sNy
./pkg/mdsio/mdsio_writelocal.F 333 MDS_WRITELOCAL 
             i2 = bBij +         j*sNx + (k-1)*sNx*sNy
./model/src/calc_buoyancy.F 35 CALC_BUOYANCY 
      INTEGER i,j
./model/src/calc_buoyancy.F 39 CALC_BUOYANCY 
       DO j=jMin,jMax
./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 47 CALC_BUOYANCY 
       DO j=jMin,jMax
./model/src/calc_buoyancy.F 49 CALC_BUOYANCY 
         buoy(i,j)=-gravity*recip_rhoConst*rholoc(i,j)
./model/src/calc_buoyancy.F 55 CALC_BUOYANCY 
       DO j=jMin,jMax
./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)
./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 78 CALC_COMMON_FACTORS 
      DO j=1-OLy,sNy+OLy
./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 88 CALC_COMMON_FACTORS 
      DO j=1-OLy,sNy+OLy
./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 97 CALC_COMMON_FACTORS 
      DO j=1-OLy,sNy+OLy
./model/src/calc_common_factors.F 99 CALC_COMMON_FACTORS 
         uTrans(i,j) = uFld(i,j)*xA(i,j)*rhoFacC(k)
./pkg/mnc/mnc_cwrapper.F 155 MNC_CW_DUMP 
      integer i,j, ntot
./pkg/mnc/mnc_cwrapper.F 172 MNC_CW_DUMP 
      DO j = 1,MNC_MAX_ID
./pkg/mnc/mnc_cwrapper.F 173 MNC_CW_DUMP 
        IF (mnc_cw_gname(j)(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cwrapper.F 180 MNC_CW_DUMP 
     &         j, ntot, ' : ', mnc_cw_gname(j)(1:20), mnc_cw_ndim(j),
./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 197 MNC_CW_DUMP 
      DO j = 1,MNC_MAX_ID
./pkg/mnc/mnc_cwrapper.F 198 MNC_CW_DUMP 
        IF (mnc_cw_vname(j)(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_cwrapper.F 204 MNC_CW_DUMP 
     &         j, ntot, ' | ',
./pkg/mnc/mnc_cwrapper.F 205 MNC_CW_DUMP 
     &         mnc_cw_vname(j)(1:20), ' | ', mnc_cw_vgind(j)
./pkg/mnc/mnc_cwrapper.F 209 MNC_CW_DUMP 
          DO i = 1,mnc_cw_vnat(1,j)
./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 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 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_dim.F 112 MNC_DIM_INIT_ALL_CV 
        j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_dim.F 113 MNC_DIM_INIT_ALL_CV 
        ntmp = ILNBLNK(mnc_d_names(j))
./pkg/mnc/mnc_dim.F 115 MNC_DIM_INIT_ALL_CV 
     &       .AND. (dname(dnf:dnl) .EQ. mnc_d_names(j)(1:ntmp))) THEN
./pkg/mnc/mnc_dim.F 116 MNC_DIM_INIT_ALL_CV 
          IF (mnc_d_size(j) .NE. dlen) THEN
./pkg/mnc/mnc_dim.F 117 MNC_DIM_INIT_ALL_CV 
            IF ((mnc_d_size(j) .GT. 0) .OR. (dlen .GT. 0)) THEN
./pkg/mnc/mnc_dim.F 194 MNC_DIM_UNLIM_SIZE 
      integer i,j, nf, indf, fid, unlimid, err
./pkg/mnc/mnc_dim.F 215 MNC_DIM_UNLIM_SIZE 
        j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_dim.F 216 MNC_DIM_UNLIM_SIZE 
        IF (mnc_d_size(j) .EQ. -1) THEN
./pkg/mnc/mnc_dim.F 217 MNC_DIM_UNLIM_SIZE 
          unlimid = mnc_d_ids(j)
./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 69 MNC_DUMP_ALL 
        write(*,*) i,': ',(mnc_f_info(i,j), j=1,n_items)
./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 77 MNC_DUMP_ALL 
        write(*,*) i,': ',(mnc_fv_ids(i,j), j=1,n_items)
./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 365 MNC_FILE_CLOSE 
          j = 2 + 3*(i - 1)
./pkg/mnc/mnc_file.F 366 MNC_FILE_CLOSE 
          k = mnc_fv_ids(indf,j)
./pkg/mnc/mnc_file.F 377 MNC_FILE_CLOSE 
        j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_file.F 378 MNC_FILE_CLOSE 
        mnc_d_ids(j)  = 0
./pkg/mnc/mnc_file.F 379 MNC_FILE_CLOSE 
        mnc_d_size(j) = 0
./pkg/mnc/mnc_file.F 380 MNC_FILE_CLOSE 
        mnc_d_names(j)(1:MNC_MAX_CHAR) = mnc_blank_name(1:MNC_MAX_CHAR)
./pkg/mnc/mnc_file.F 387 MNC_FILE_CLOSE 
          j = 4 + 3*(i - 1)
./pkg/mnc/mnc_file.F 388 MNC_FILE_CLOSE 
          k = mnc_f_info(indf,j)
./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 704 MNC_FILE_TRY_READ 
          j = mnc_f_alld(indf,i+1)
./pkg/mnc/mnc_file.F 705 MNC_FILE_TRY_READ 
          n1 = IFNBLNK(mnc_d_names(j))
./pkg/mnc/mnc_file.F 706 MNC_FILE_TRY_READ 
          n2 = ILNBLNK(mnc_d_names(j))
./pkg/mnc/mnc_file.F 708 MNC_FILE_TRY_READ 
     &         .AND. (mnc_d_names(j)(ns:ne) .EQ. name(ns:ne))) THEN
./pkg/mnc/mnc_file.F 709 MNC_FILE_TRY_READ 
            mnc_d_ids(j) = id
./pkg/mnc/mnc_file.F 742 MNC_FILE_TRY_READ 
          j = 4 + 3*(i-1)
./pkg/mnc/mnc_file.F 743 MNC_FILE_TRY_READ 
          k = mnc_f_info(indf,j)
./pkg/mnc/mnc_file.F 745 MNC_FILE_TRY_READ 
            mnc_fv_ids(indf,iv+2) = j
./pkg/mnc/mnc_grid.F 107 MNC_GRID_INIT_ALL 
      j = 3 + 3*(ngrid + 1)
./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 178 MNC_GRID_INIT_ALL 
        j = ds_last + i
./pkg/mnc/mnc_grid.F 203 MNC_GRID_INIT_ALL 
        mnc_fd_ind(indf,j) = indd
./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 251 MNC_GRID_GET_DIMIND 
        j = 4 + 3*(i - 1)
./pkg/mnc/mnc_grid.F 252 MNC_GRID_GET_DIMIND 
        ds = mnc_f_info(indf,j+1)
./pkg/mnc/mnc_grid.F 253 MNC_GRID_GET_DIMIND 
        de = mnc_f_info(indf,j+2)
./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_init.F 31 MNC_INIT 
      integer i,j, g
./pkg/mnc/mnc_init.F 46 MNC_INIT 
        DO j = 1,MNC_MAX_INFO
./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_readparms.F 190 MNC_SET_OUTDIR 
      integer i,j,k, ntot, npathd, idate
./pkg/mnc/mnc_readparms.F 217 MNC_SET_OUTDIR 
        DO j = 1,ncenc
./pkg/mnc/mnc_readparms.F 218 MNC_SET_OUTDIR 
          IF (pathd(i:i) .EQ. cenc(j:j)) THEN
./pkg/mnc/mnc_readparms.F 220 MNC_SET_OUTDIR 
            ienc(ntot) = j
./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_utils.F 211 MNC_GET_FVINDS 
      integer i,j,k, n, lenv
./pkg/mnc/mnc_utils.F 230 MNC_GET_FVINDS 
        j = mnc_fv_ids(indf,k)
./pkg/mnc/mnc_utils.F 231 MNC_GET_FVINDS 
        n = ILNBLNK(mnc_v_names(j))
./pkg/mnc/mnc_utils.F 233 MNC_GET_FVINDS 
         IF ( mnc_v_names(j)(1:n).EQ.vname(1:n) ) THEN
./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 186 MNC_VAR_INIT_ANY 
        j = 4 + (i-1)*3
./pkg/mnc/mnc_var.F 187 MNC_VAR_INIT_ANY 
        k = mnc_f_info(indf,j)
./pkg/mnc/mnc_var.F 191 MNC_VAR_INIT_ANY 
          ind_g_finfo = j
./pkg/mnc/mnc_var.F 192 MNC_VAR_INIT_ANY 
          is = mnc_f_info(indf,(j+1))
./pkg/mnc/mnc_var.F 193 MNC_VAR_INIT_ANY 
          ie = mnc_f_info(indf,(j+2))
./pkg/mnc/mnc_var.F 211 MNC_VAR_INIT_ANY 
        j = 2 + 3*(i-1)
./pkg/mnc/mnc_var.F 212 MNC_VAR_INIT_ANY 
        IF (mnc_v_names(mnc_fv_ids(indf,j)) .EQ. vname) THEN
./pkg/mnc/mnc_var.F 213 MNC_VAR_INIT_ANY 
          k = mnc_f_info(indf,mnc_fv_ids(indf,j+2))
./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 712 MNC_VAR_WRITE_ANY 
      j = mnc_d_size( mnc_fd_ind(indf,de) )
./pkg/mnc/mnc_var.F 713 MNC_VAR_WRITE_ANY 
      IF (j .LT. 1) THEN
./model/src/calc_diffusivity.F 102 CALC_DIFFUSIVITY 
     &        + (KbryanLewisEQ-KbryanLewis79)*BL79LatArray(i,j,bi,bj)
./model/src/calc_diffusivity.F 179 CALC_DIFFUSIVITY 
      DO j = 1-Oly, sNy+Oly
./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 73 CALC_DIFFUSIVITY 
       DO j = 1-Oly, sNy+Oly
./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 90 CALC_DIFFUSIVITY 
       DO j = 1-Oly, sNy+Oly
./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_calc_absvort3.F 30 MOM_CALC_ABSVORT3 
      INTEGER i,j
./pkg/mom_common/mom_calc_absvort3.F 44 MOM_CALC_ABSVORT3 
      DO j=1-Oly,sNy+Oly
./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 112 MOM_CALC_HFACZ 
      DO j=2-Oly,sNy+Oly
./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 138 MOM_CALC_HFACZ 
      DO j=2-Oly,sNy+Oly
./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 155 MOM_CALC_HFACZ 
      DO j=2-Oly,sNy+Oly
./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 185 MOM_CALC_HFACZ 
      DO j=2-Oly,sNy+Oly
./pkg/mom_common/mom_calc_hfacz.F 186 MOM_CALC_HFACZ 
        hFacZ(1-Olx,j)=0.
./pkg/mom_common/mom_calc_hfacz.F 192 MOM_CALC_HFACZ 
        DO j=2-Oly,sNy+Oly
./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 209 MOM_CALC_HFACZ 
        DO j=2-Oly,sNy+Oly
./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 228 MOM_CALC_HFACZ 
        DO j=2-Oly,sNy+Oly
./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 265 MOM_CALC_HFACZ 
         j=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 319 MOM_CALC_HFACZ 
         j=sNy+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 349 MOM_CALC_HFACZ 
         j=sNy+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 375 MOM_CALC_HFACZ 
      DO j=1-Oly,sNy+Oly
./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 98 MOM_CALC_HFACZ 
      DO j=1-Oly,sNy+Oly
./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)
./pkg/mom_common/mom_calc_tension.F 46 MOM_CALC_TENSION 
      INTEGER i,j
./pkg/mom_common/mom_calc_tension.F 49 MOM_CALC_TENSION 
      DO j=1-Oly,sNy+Oly-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 261 MOM_CALC_VISC 
       DO j=1-Oly,sNy+Oly
./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 287 MOM_CALC_VISC 
       DO j=1-Oly,sNy+Oly
./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 307 MOM_CALC_VISC 
         DO j=2-Oly,sNy+Oly-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 321 MOM_CALC_VISC 
         DO j=2-Oly,sNy+Oly-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 329 MOM_CALC_VISC 
         DO j=2-Oly,sNy+Oly
./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 337 MOM_CALC_VISC 
         DO j=2-Oly,sNy+Oly-1
./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 347 MOM_CALC_VISC 
       DO j=2-Oly,sNy+Oly-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 602 MOM_CALC_VISC 
       DO j=1-Oly,sNy+Oly
./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
./model/src/calc_div_ghat.F 110 CALC_DIV_GHAT 
        DO j=1,sNy
./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 118 CALC_DIV_GHAT 
      DO j=1,sNy
./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 127 CALC_DIV_GHAT 
       DO j=1,sNy
./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 137 CALC_DIV_GHAT 
        DO j=1,sNy+1
./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 145 CALC_DIV_GHAT 
        DO j=1,sNy+1
./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 153 CALC_DIV_GHAT 
        DO j=1,sNy+1
./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 161 CALC_DIV_GHAT 
      DO j=1,sNy
./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 170 CALC_DIV_GHAT 
       DO j=1,sNy
./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 181 CALC_DIV_GHAT 
        DO j=1,sNy
./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 189 CALC_DIV_GHAT 
        DO j=1,sNy
./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 62 CALC_DIV_GHAT 
      DO j=1,sNy+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 78 CALC_DIV_GHAT 
        DO j=1,sNy
./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 86 CALC_DIV_GHAT 
        DO j=1,sNy
./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_hdissip.F 49 MOM_HDISSIP 
       DO j=2-Oly,sNy+Oly-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 105 MOM_INIT_FIXED 
         DO j=1-Oly,sNy+Oly
./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 117 MOM_INIT_FIXED 
         DO j=1-Oly,sNy+Oly
./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 123 MOM_INIT_FIXED 
          DO j=1-Oly,sNy+Oly
./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 133 MOM_INIT_FIXED 
         DO j=1-Oly,sNy+Oly
./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 48 MOM_INIT_FIXED 
          DO j=1-Oly,sNy+Oly
./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 64 MOM_INIT_FIXED 
         DO j=1-Oly,sNy+Oly
./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 89 MOM_INIT_FIXED 
         DO j=1-Oly,sNy+Oly
./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 95 MOM_INIT_FIXED 
          DO j=1-Oly,sNy+Oly
./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 62 MOM_QUASIHYDROSTATIC 
       DO j=jMin,jMax
./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 77 MOM_QUASIHYDROSTATIC 
       DO j=jMin,jMax
./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 76 MOM_U_BOTTOMDRAG 
      DO j=1-Oly,sNy+Oly-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 54 MOM_U_CORIOLIS_NH 
      DO j=1-Oly,sNy+Oly
./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 107 MOM_U_IMPLICIT_R 
        DO j=jMin,jMax
./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 122 MOM_U_IMPLICIT_R 
          DO j=jMin,jMax
./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 140 MOM_U_IMPLICIT_R 
            DO j=jMin,jMax
./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 161 MOM_U_IMPLICIT_R 
            DO j=jMin,jMax
./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 207 MOM_U_IMPLICIT_R 
            DO j=1-OLy,sNy+OLy
./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 213 MOM_U_IMPLICIT_R 
            DO j=jMin,jMax
./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 67 MOM_U_IMPLICIT_R 
       DO j=1-Oly,sNy+Oly
./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 85 MOM_U_IMPLICIT_R 
        DO j=jMin,jMax
./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 96 MOM_U_IMPLICIT_R 
        DO j=jMin,jMax
./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 54 MOM_U_METRIC_NH 
      DO j=1-Olx,sNy+Oly
./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))
./pkg/mom_common/mom_u_rviscflux.F 47 MOM_U_RVISCFLUX 
      INTEGER i,j
./pkg/mom_common/mom_u_rviscflux.F 52 MOM_U_RVISCFLUX 
       DO j=1-Oly,sNy+Oly
./pkg/mom_common/mom_u_rviscflux.F 54 MOM_U_RVISCFLUX 
          rViscFluxU(i,j) = 0. _d 0
./pkg/mom_common/mom_u_rviscflux.F 58 MOM_U_RVISCFLUX 
       DO j=1-Oly,sNy+Oly-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 112 MOM_U_SIDEDRAG 
      DO j=2-Oly,sNy+Oly-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 66 MOM_U_SIDEDRAG 
      DO j=2-Oly,sNy+Oly-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 83 MOM_V_BOTTOMDRAG 
      DO j=1-Oly+1,sNy+Oly-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)
./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 
     &                 + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 103 CALC_GRAD_PHI_HYD 
          ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN
./model/src/calc_grad_phi_hyd.F 104 CALC_GRAD_PHI_HYD 
           factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa
./model/src/calc_grad_phi_hyd.F 105 CALC_GRAD_PHI_HYD 
           varLoc(i,j) = phiHydC(i,j)
./model/src/calc_grad_phi_hyd.F 106 CALC_GRAD_PHI_HYD 
     &                  *(rStarFacC(i,j,bi,bj)**atm_kappa - factPI)
./model/src/calc_grad_phi_hyd.F 108 CALC_GRAD_PHI_HYD 
     &                 + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 113 CALC_GRAD_PHI_HYD 
        DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F 115 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 122 CALC_GRAD_PHI_HYD 
           varLoc(i,j) = phiHydC(i,j)
./model/src/calc_grad_phi_hyd.F 123 CALC_GRAD_PHI_HYD 
     &                  *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 124 CALC_GRAD_PHI_HYD 
     &                  /                (Ro_surf(i,j,bi,bj)-rC(k))
./model/src/calc_grad_phi_hyd.F 125 CALC_GRAD_PHI_HYD 
     &                 + phi0surf(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 135 CALC_GRAD_PHI_HYD 
       DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F 137 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 j=1-OLy,sNy+OLy
./model/src/calc_grad_phi_hyd.F 145 CALC_GRAD_PHI_HYD 
        dPhiHydX(i,j)  = 0. _d 0
./model/src/calc_grad_phi_hyd.F 146 CALC_GRAD_PHI_HYD 
        dPhiHydY(i,j)  = 0. _d 0
./model/src/calc_grad_phi_hyd.F 149 CALC_GRAD_PHI_HYD 
      DO j=jMin,jMax
./model/src/calc_grad_phi_hyd.F 151 CALC_GRAD_PHI_HYD 
        dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 152 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 j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F 157 CALC_GRAD_PHI_HYD 
        dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 158 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 j=jMin,jMax
./model/src/calc_grad_phi_hyd.F 169 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = etaH(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 170 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 j=jMin,jMax
./model/src/calc_grad_phi_hyd.F 175 CALC_GRAD_PHI_HYD 
          dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F 176 CALC_GRAD_PHI_HYD 
     &     +factorZ*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 177 CALC_GRAD_PHI_HYD 
     &             *(varLoc(i,j)-varLoc(i-1,j))
./model/src/calc_grad_phi_hyd.F 178 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 j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F 183 CALC_GRAD_PHI_HYD 
          dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F 184 CALC_GRAD_PHI_HYD 
     &     +factorZ*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 185 CALC_GRAD_PHI_HYD 
     &             *(varLoc(i,j)-varLoc(i,j-1))
./model/src/calc_grad_phi_hyd.F 186 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 j=jMin,jMax
./model/src/calc_grad_phi_hyd.F 194 CALC_GRAD_PHI_HYD 
          dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F 195 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 196 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 197 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 j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F 202 CALC_GRAD_PHI_HYD 
          dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F 203 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 204 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 205 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 j=jMin,jMax
./model/src/calc_grad_phi_hyd.F 214 CALC_GRAD_PHI_HYD 
          dPhiHydX(i,j) = dPhiHydX(i,j)
./model/src/calc_grad_phi_hyd.F 215 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i-1,j)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 216 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 217 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 j=jMin+1,jMax
./model/src/calc_grad_phi_hyd.F 222 CALC_GRAD_PHI_HYD 
          dPhiHydY(i,j) = dPhiHydY(i,j)
./model/src/calc_grad_phi_hyd.F 223 CALC_GRAD_PHI_HYD 
     &     +factorP*(alphRho(i,j-1)+alphRho(i,j))
./model/src/calc_grad_phi_hyd.F 224 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 225 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 76 CALC_GRAD_PHI_HYD 
        DO j=jMin,jMax
./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 83 CALC_GRAD_PHI_HYD 
        DO j=jMin,jMax
./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 95 CALC_GRAD_PHI_HYD 
        DO j=jMin,jMax
./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_common/mom_v_coriolis_nh.F 44 MOM_V_CORIOLIS_NH 
      INTEGER i,j,kp1
./pkg/mom_common/mom_v_coriolis_nh.F 54 MOM_V_CORIOLIS_NH 
      DO j=2-Oly,sNy+Oly
./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 107 MOM_V_IMPLICIT_R 
        DO j=jMin,jMax
./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 122 MOM_V_IMPLICIT_R 
          DO j=jMin,jMax
./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 140 MOM_V_IMPLICIT_R 
            DO j=jMin,jMax
./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 161 MOM_V_IMPLICIT_R 
            DO j=jMin,jMax
./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 207 MOM_V_IMPLICIT_R 
            DO j=1-OLy,sNy+OLy
./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 213 MOM_V_IMPLICIT_R 
            DO j=jMin,jMax
./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 67 MOM_V_IMPLICIT_R 
       DO j=1-Oly,sNy+Oly
./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 85 MOM_V_IMPLICIT_R 
        DO j=jMin,jMax
./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 96 MOM_V_IMPLICIT_R 
        DO j=jMin,jMax
./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 54 MOM_V_METRIC_NH 
      DO j=1-Olx+1,sNy+Oly
./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 52 MOM_V_RVISCFLUX 
       DO j=1-Oly,sNy+Oly
./pkg/mom_common/mom_v_rviscflux.F 54 MOM_V_RVISCFLUX 
          rViscFluxV(i,j) = 0. _d 0
./pkg/mom_common/mom_v_rviscflux.F 58 MOM_V_RVISCFLUX 
       DO j=1-Oly,sNy+Oly-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 109 MOM_V_SIDEDRAG 
      DO j=2-Oly,sNy+Oly-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 66 MOM_V_SIDEDRAG 
      DO j=2-Oly,sNy+Oly-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 53 MOM_W_CORIOLIS_NH 
        DO j=1-Oly,sNy+Oly-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 69 MOM_W_CORIOLIS_NH 
        DO j=1-Oly,sNy+Oly-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 51 MOM_W_METRIC_NH 
        DO j=1-Olx,sNy+Oly-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 68 MOM_W_METRIC_NH 
        DO j=1-Olx,sNy+Oly-1
./pkg/mom_common/mom_w_metric_nh.F 70 MOM_W_METRIC_NH 
           wMetricTerms(i,j) = 0. _d 0
./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 105 MOM_W_SIDEDRAG 
     &                                 *cosFacV(j,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 110 MOM_W_SIDEDRAG 
     &                                 *sqCosFacV(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 112 MOM_W_SIDEDRAG 
     &                                 *cosFacV(j,bi,bj)
./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 119 MOM_W_SIDEDRAG 
     &                                 *cosFacV(j+1,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 124 MOM_W_SIDEDRAG 
     &                                 *sqCosFacV(j+1,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 126 MOM_W_SIDEDRAG 
     &                                 *cosFacV(j+1,bi,bj)
./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 70 MOM_W_SIDEDRAG 
      DO j=2-Oly,sNy+Oly-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 84 MOM_W_SIDEDRAG 
     &                                 *cosFacV(j,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 87 MOM_W_SIDEDRAG 
     &                                 *sqCosFacU(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 89 MOM_W_SIDEDRAG 
     &                                 *cosFacU(j,bi,bj)
./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 94 MOM_W_SIDEDRAG 
     &                                 *cosFacV(j,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_common/mom_w_sidedrag.F 97 MOM_W_SIDEDRAG 
     &                                 *sqCosFacU(j,bi,bj)
./pkg/mom_common/mom_w_sidedrag.F 99 MOM_W_SIDEDRAG 
     &                                 *cosFacU(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 49 CALC_GRAD_PHI_SURF 
      DO j=jMin,jMax
./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 58 CALC_GRAD_PHI_SURF 
      DO j=jMin,jMax
./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_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 119 MOM_CALC_RTRANS 
        DO j=1-OLy,sNy+OLy
./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 126 MOM_CALC_RTRANS 
        DO j=1-OLy+1,sNy+OLy
./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 137 MOM_CALC_RTRANS 
        DO j=1-OLy,sNy+OLy
./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 144 MOM_CALC_RTRANS 
        DO j=1-OLy+1,sNy+OLy
./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 155 MOM_CALC_RTRANS 
        DO j=1-OLy+1,sNy+OLy
./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 75 MOM_CALC_RTRANS 
        DO j=1-OLy+1,sNy+OLy
./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 89 MOM_CALC_RTRANS 
        DO j=1-OLy+1,sNy+OLy
./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 97 MOM_CALC_RTRANS 
        DO j=1-OLy+1,sNy+OLy
./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 185 MOM_FLUXFORM 
      DO j=1-OLy,sNy+OLy
./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 255 MOM_FLUXFORM 
      DO j=1-OLy,sNy+OLy
./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 265 MOM_FLUXFORM 
      DO j=1-OLy,sNy+OLy
./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 274 MOM_FLUXFORM 
      DO j=1-OLy,sNy+OLy
./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 287 MOM_FLUXFORM 
        DO j=1-Oly,sNy+Oly
./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 403 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 433 MOM_FLUXFORM 
         DO j=jMin,jMax
./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 442 MOM_FLUXFORM 
         DO j=jMin,jMax
./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 454 MOM_FLUXFORM 
        DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F 456 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 486 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 523 MOM_FLUXFORM 
         DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F 525 MOM_FLUXFORM 
           gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 532 MOM_FLUXFORM 
         DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F 534 MOM_FLUXFORM 
           gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 542 MOM_FLUXFORM 
         DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F 544 MOM_FLUXFORM 
           gUdiss(i,j) = gUdiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 563 MOM_FLUXFORM 
       DO j=jMin,jMax
./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 572 MOM_FLUXFORM 
       DO j=jMin,jMax
./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 581 MOM_FLUXFORM 
       DO j=jMin,jMax
./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 619 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 649 MOM_FLUXFORM 
         DO j=jMin,jMax
./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 658 MOM_FLUXFORM 
         DO j=jMin,jMax
./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 670 MOM_FLUXFORM 
        DO j=1-OLy,sNy+OLy
./pkg/mom_fluxform/mom_fluxform.F 672 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 701 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 738 MOM_FLUXFORM 
         DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F 740 MOM_FLUXFORM 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 747 MOM_FLUXFORM 
         DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F 749 MOM_FLUXFORM 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 757 MOM_FLUXFORM 
         DO j=jMin,jMax
./pkg/mom_fluxform/mom_fluxform.F 759 MOM_FLUXFORM 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_fluxform/mom_fluxform.F 778 MOM_FLUXFORM 
       DO j=jMin,jMax
./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 787 MOM_FLUXFORM 
       DO j=jMin,jMax
./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 796 MOM_FLUXFORM 
       DO j=jMin,jMax
./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 812 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 822 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 836 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 844 MOM_FLUXFORM 
        DO j=jMin,jMax
./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 853 MOM_FLUXFORM 
      DO j=jMin,jMax
./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 49 MOM_U_ADV_UU 
      DO j=1-Oly,sNy+Oly-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 49 MOM_U_ADV_VU 
      DO j=1-Oly+1,sNy+Oly
./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 53 MOM_U_ADV_WU 
       DO j=1-Oly+1,sNy+Oly
./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 62 MOM_U_ADV_WU 
      DO j=1-Oly,sNy+Oly
./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 71 MOM_U_ADV_WU 
      DO j=1-Oly+1,sNy+Oly
./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 80 MOM_U_ADV_WU 
      DO j=1-Oly+1,sNy+Oly
./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 95 MOM_U_ADV_WU 
        DO j=1-Oly+1,sNy+Oly
./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 51 MOM_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-1
./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 62 MOM_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-1
./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 79 MOM_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-1
./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 50 MOM_U_DEL2U 
      DO j=1-Oly+1,sNy+Oly-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 65 MOM_U_DEL2U 
      DO j=1-Oly+1,sNy+Oly
./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 80 MOM_U_DEL2U 
      DO j=1-Oly+1,sNy+Oly-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 93 MOM_U_DEL2U 
      DO j=1-Oly+1,sNy+Oly-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)
./pkg/mom_fluxform/mom_u_metric_cylinder.F 46 MOM_U_METRIC_CYLINDER 
      INTEGER i,j
./pkg/mom_fluxform/mom_u_metric_cylinder.F 50 MOM_U_METRIC_CYLINDER 
      DO j=1-Oly,sNy+Oly-1
./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 49 MOM_U_METRIC_SPHERE 
      DO j=1-Olx,sNy+Oly-1
./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 54 MOM_U_XVISCFLUX 
      DO j=1-Oly,sNy+Oly-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 55 MOM_U_YVISCFLUX 
      DO j=1-Oly+1,sNy+Oly
./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 103 MOM_UV_BOUNDARY 
        DO j=1-OLy,sNy+OLy-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 113 MOM_UV_BOUNDARY 
        DO j=1-OLy,sNy+OLy-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 127 MOM_UV_BOUNDARY 
        DO j=1-OLy+1,sNy+OLy-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 68 MOM_UV_BOUNDARY 
      DO j=1-OLy,sNy+OLy
./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 84 MOM_UV_BOUNDARY 
        DO j=1-OLy,sNy+OLy
./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 93 MOM_UV_BOUNDARY 
        DO j=1-OLy,sNy+OLy
./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 48 MOM_V_ADV_UV 
      DO j=1-Oly+1,sNy+Oly
./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 49 MOM_V_ADV_VV 
      DO j=1-Oly,sNy+Oly-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 54 MOM_V_ADV_WV 
       DO j=1-Oly+1,sNy+Oly
./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 63 MOM_V_ADV_WV 
      DO j=1-Oly,sNy+Oly
./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 72 MOM_V_ADV_WV 
      DO j=1-Oly+1,sNy+Oly
./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 81 MOM_V_ADV_WV 
      DO j=1-Oly+1,sNy+Oly
./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 96 MOM_V_ADV_WV 
        DO j=1-Oly+1,sNy+Oly
./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 51 MOM_V_CORIOLIS 
       DO j=1-Oly+1,sNy+Oly
./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 62 MOM_V_CORIOLIS 
       DO j=1-Oly+1,sNy+Oly
./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 77 MOM_V_CORIOLIS 
       DO j=1-Oly+1,sNy+Oly
./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 49 MOM_V_DEL2V 
      DO j=1-Oly+1,sNy+Oly-1
./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 64 MOM_V_DEL2V 
      DO j=1-Oly,sNy+Oly-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 79 MOM_V_DEL2V 
      DO j=1-Oly+1,sNy+Oly-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 92 MOM_V_DEL2V 
      DO j=1-Oly+1,sNy+Oly-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)
./pkg/mom_fluxform/mom_v_metric_cylinder.F 46 MOM_V_METRIC_CYLINDER 
      INTEGER i,j
./pkg/mom_fluxform/mom_v_metric_cylinder.F 50 MOM_V_METRIC_CYLINDER 
      DO j=1-Oly+1,sNy+Oly
./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 47 MOM_V_METRIC_SPHERE 
      DO j=1-Olx+1,sNy+Oly
./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 55 MOM_V_XVISCFLUX 
      DO j=1-Oly,sNy+Oly
./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 54 MOM_V_YVISCFLUX 
      DO j=1-Oly,sNy+Oly-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 164 MOM_VECINV 
      DO j=1-OLy,sNy+OLy
./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 220 MOM_VECINV 
      DO j=1-OLy,sNy+OLy
./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 251 MOM_VECINV 
       DO j=1-Oly,sNy+Oly
./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 301 MOM_VECINV 
         DO j=1-Oly,sNy+Oly
./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 336 MOM_VECINV 
       DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 338 MOM_VECINV 
         fVerU(i,j,kDown) = ArDudrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 343 MOM_VECINV 
       DO j=2-Oly,sNy+Oly-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 365 MOM_VECINV 
       DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 367 MOM_VECINV 
         guDiss(i,j) = guDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 374 MOM_VECINV 
       DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 376 MOM_VECINV 
         guDiss(i,j) = guDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 383 MOM_VECINV 
       DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 385 MOM_VECINV 
         guDiss(i,j) = guDiss(i,j) + vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 401 MOM_VECINV 
       DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 403 MOM_VECINV 
         fVerV(i,j,kDown) = ArDvdrFac*vrF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 408 MOM_VECINV 
       DO j=jMin,jMax
./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 430 MOM_VECINV 
       DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 432 MOM_VECINV 
         gvDiss(i,j) = gvDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 439 MOM_VECINV 
       DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 441 MOM_VECINV 
         gvDiss(i,j) = gvDiss(i,j)+vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 448 MOM_VECINV 
         DO j=jMin,jMax
./pkg/mom_vecinv/mom_vecinv.F 450 MOM_VECINV 
           gvDiss(i,j) = gvDiss(i,j) + vF(i,j)
./pkg/mom_vecinv/mom_vecinv.F 479 MOM_VECINV 
      DO j=1-Oly,sNy+Oly
./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 503 MOM_VECINV 
       DO j=jMin,jMax
./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 530 MOM_VECINV 
       DO j=jMin,jMax
./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 554 MOM_VECINV 
       DO j=jMin,jMax
./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 573 MOM_VECINV 
       DO j=jMin,jMax
./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 612 MOM_VECINV 
        DO j=jMin,jMax
./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 618 MOM_VECINV 
        DO j=jMin,jMax
./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 633 MOM_VECINV 
       DO j=jMin,jMax
./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 639 MOM_VECINV 
       DO j=jMin,jMax
./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 665 MOM_VECINV 
        DO j=jMin,jMax
./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 673 MOM_VECINV 
        DO j=jMin,jMax
./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 684 MOM_VECINV 
       DO j=jMin,jMax
./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 690 MOM_VECINV 
       DO j=jMin,jMax
./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 698 MOM_VECINV 
      DO j=jMin,jMax
./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 112 MOM_VI_DEL2UV 
      DO j=2-Oly,sNy+Oly-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 91 MOM_VI_DEL2UV 
      DO j=2-Oly,sNy+Oly-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 105 MOM_VI_HDISSIP 
     &                                           *cosFacV(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 115 MOM_VI_HDISSIP 
       DO j=2-Oly,sNy+Oly-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 125 MOM_VI_HDISSIP 
       DO j=2-Oly,sNy+Oly-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 159 MOM_VI_HDISSIP 
     &                             ( (Dij-Dmj)*cosFacU(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 162 MOM_VI_HDISSIP 
     &                                        *cosFacU(j,bi,bj)
./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 169 MOM_VI_HDISSIP 
     &                                        *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 177 MOM_VI_HDISSIP 
     &                             viscA4*( (Dij-Dmj)*cosFacU(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 180 MOM_VI_HDISSIP 
     &                                               *cosFacU(j,bi,bj)
./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 187 MOM_VI_HDISSIP 
     &                                               *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 195 MOM_VI_HDISSIP 
     &                                           *cosFacU(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 199 MOM_VI_HDISSIP 
     &                                           *cosFacV(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 202 MOM_VI_HDISSIP 
     &                                           *cosFacV(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 213 MOM_VI_HDISSIP 
     &                                           *cosFacU(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 219 MOM_VI_HDISSIP 
     &                                           *cosFacV(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 59 MOM_VI_HDISSIP 
       DO j=2-Oly,sNy+Oly-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 77 MOM_VI_HDISSIP 
     &                                           *cosFacU(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 81 MOM_VI_HDISSIP 
     &                                           *cosFacV(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 84 MOM_VI_HDISSIP 
     &                                           *cosFacV(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_hdissip.F 99 MOM_VI_HDISSIP 
     &                                           *cosFacU(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 114 MOM_VI_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-1
./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 145 MOM_VI_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-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 188 MOM_VI_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-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 63 MOM_VI_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-1
./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 89 MOM_VI_U_CORIOLIS 
       DO j=1-Oly,sNy+Oly-1
./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 101 MOM_VI_U_CORIOLIS_C4 
         j = 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 106 MOM_VI_U_CORIOLIS_C4 
         j = sNy+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 111 MOM_VI_U_CORIOLIS_C4 
         j = sNy+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 125 MOM_VI_U_CORIOLIS_C4 
       DO j=1,sNy
./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 161 MOM_VI_U_CORIOLIS_C4 
       DO j=1,sNy
./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 67 MOM_VI_U_CORIOLIS_C4 
      DO j=1-Oly,sNy+Oly
./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 96 MOM_VI_U_CORIOLIS_C4 
         j = 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)
./model/src/calc_gw.F 124 CALC_GW 
        DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F 126 CALC_GW 
           gW(i,j,k,bi,bj) = 0.
./model/src/calc_gw.F 131 CALC_GW 
      DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F 133 CALC_GW 
         gwDiss(i,j) = 0.
./model/src/calc_gw.F 138 CALC_GW 
        DO j=1-Oly,sNy+Oly
./model/src/calc_gw.F 140 CALC_GW 
           del2w(i,j) = 0. _d 0
./model/src/calc_gw.F 146 CALC_GW 
      DO j=1-OLy,sNy+OLy
./model/src/calc_gw.F 148 CALC_GW 
         flxAdvUp(i,j) = 0.
./model/src/calc_gw.F 165 CALC_GW 
         DO j=1-Oly,sNy+Oly
./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 180 CALC_GW 
         DO j=1-Oly,sNy+Oly
./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 188 CALC_GW 
         DO j=1-Oly,sNy+Oly
./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 199 CALC_GW 
         DO j=1-Oly+1,sNy+Oly
./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 214 CALC_GW 
         DO j=1-Oly,sNy+Oly
./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 254 CALC_GW 
         DO j=1-Oly,sNy+Oly
./model/src/calc_gw.F 256 CALC_GW 
           recip_rThickC(i,j) = recip_drC(k)
./model/src/calc_gw.F 267 CALC_GW 
        DO j=1-Oly,sNy+Oly
./model/src/calc_gw.F 269 CALC_GW 
            wFld(i,j) = wVel(i,j,k,bi,bj)
./model/src/calc_gw.F 283 CALC_GW 
          DO j=1-Oly,sNy+Oly
./model/src/calc_gw.F 284 CALC_GW 
           flx_EW(1-Olx,j)=0.
./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 290 CALC_GW 
     &              *sqCosFacU(j,bi,bj)
./model/src/calc_gw.F 304 CALC_GW 
          DO j=1-Oly+1,sNy+Oly
./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 311 CALC_GW 
     &              *sqCosFacV(j,bi,bj)
./model/src/calc_gw.F 319 CALC_GW 
          DO j=1-Oly,sNy+Oly-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 332 CALC_GW 
          DO j=jMin,jMax
./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 338 CALC_GW 
     &              *cosFacU(j,bi,bj)
./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 343 CALC_GW 
     &              *sqCosFacU(j,bi,bj)
./model/src/calc_gw.F 345 CALC_GW 
     &              *cosFacU(j,bi,bj)
./model/src/calc_gw.F 350 CALC_GW 
          DO j=jMin,jMax+1
./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 357 CALC_GW 
     &              *cosFacV(j,bi,bj)
./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 364 CALC_GW 
     &              *sqCosFacV(j,bi,bj)
./model/src/calc_gw.F 366 CALC_GW 
     &              *cosFacV(j,bi,bj)
./model/src/calc_gw.F 372 CALC_GW 
          DO j=jMin,jMax
./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 389 CALC_GW 
           DO j=jMin,jMax
./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 410 CALC_GW 
          DO j=jMin,jMax
./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 434 CALC_GW 
          DO j=jMin,jMax
./model/src/calc_gw.F 436 CALC_GW 
            gwDiss(i,j) = gwDiss(i,j) + gwAdd(i,j)
./model/src/calc_gw.F 447 CALC_GW 
          DO j=jMin,jMax
./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 462 CALC_GW 
          DO j=jMin,jMax+1
./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 479 CALC_GW 
          DO j=jMin,jMax
./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 497 CALC_GW 
           DO j=jMin,jMax
./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 510 CALC_GW 
          DO j=jMin,jMax
./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 524 CALC_GW 
         DO j=jMin,jMax
./model/src/calc_gw.F 527 CALC_GW 
             flxAdvUp(i,j)=flx_Dn(i,j)
./model/src/calc_gw.F 550 CALC_GW 
          DO j=jMin,jMax
./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 562 CALC_GW 
          DO j=jMin,jMax
./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 588 CALC_GW 
          DO j=jMin,jMax
./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 611 CALC_GW 
          DO j=jMin,jMax
./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/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 114 MOM_VI_V_CORIOLIS 
       DO j=2-Oly,sNy+Oly
./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 145 MOM_VI_V_CORIOLIS 
       DO j=2-Oly,sNy+Oly-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 188 MOM_VI_V_CORIOLIS 
       DO j=2-Oly,sNy+Oly-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 63 MOM_VI_V_CORIOLIS 
       DO j=2-Oly,sNy+Oly
./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 89 MOM_VI_V_CORIOLIS 
       DO j=2-Oly,sNy+Oly
./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 101 MOM_VI_V_CORIOLIS_C4 
         j = 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 106 MOM_VI_V_CORIOLIS_C4 
         j = sNy+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 111 MOM_VI_V_CORIOLIS_C4 
         j = sNy+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 125 MOM_VI_V_CORIOLIS_C4 
       DO j=1,sNy+1
./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 161 MOM_VI_V_CORIOLIS_C4 
       DO j=1,sNy+1
./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 67 MOM_VI_V_CORIOLIS_C4 
      DO j=1-Oly,sNy+Oly
./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 96 MOM_VI_V_CORIOLIS_C4 
         j = 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 139 MON_CALC_STATS_RL 
          DO j=1,sNy
./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 67 MON_CALC_STATS_RL 
         DO j=1,sNy
./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)
./model/src/calc_ivdc.F 45 CALC_IVDC 
      INTEGER i,j
./model/src/calc_ivdc.F 49 CALC_IVDC 
       DO j=jMin,jmax
./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/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 139 MON_CALC_STATS_RS 
          DO j=1,sNy
./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 67 MON_CALC_STATS_RS 
         DO j=1,sNy
./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 120 MON_KE 
         DO j=1,sNy
./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 64 MON_KE 
         DO j=1,sNy
./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_stats_latbnd_rl.F 100 MON_STATS_LATBND_RL 
         DO j=1,sNy
./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
./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 115 CALC_OCE_MXLAYER 
         DO j=1-Oly,sNy+Oly
./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 142 CALC_OCE_MXLAYER 
        DO j=1-Oly,sNy+Oly
./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 161 CALC_OCE_MXLAYER 
         DO j=1-Oly,sNy+Oly
./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 192 CALC_OCE_MXLAYER 
        DO j=1-Oly+1,sNy+Oly-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 208 CALC_OCE_MXLAYER 
        DO j=1-Oly+1,sNy+Oly-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
./model/src/calc_oce_mxlayer.F 99 CALC_OCE_MXLAYER 
        DO j=1-Oly,sNy+Oly
./pkg/monitor/mon_surfcor.F 102 MON_SURFCOR 
           DO j=1,sNy
./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 124 MON_SURFCOR 
            DO j=1,sNy
./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 146 MON_SURFCOR 
           DO j=1,sNy
./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 81 MON_SURFCOR 
          DO j=1,sNy
./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 154 MON_VORT3 
           DO j=1,jMax
./pkg/monitor/mon_vort3.F 155 MON_VORT3 
            hFacZ(iMax,j)=0.
./pkg/monitor/mon_vort3.F 156 MON_VORT3 
            vort3(iMax,j)=0.
./pkg/monitor/mon_vort3.F 185 MON_VORT3 
           j=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 200 MON_VORT3 
           j=1
./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 215 MON_VORT3 
           j=jMax
./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 230 MON_VORT3 
           j=jMax
./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 248 MON_VORT3 
           j = jMax
./pkg/monitor/mon_vort3.F 250 MON_VORT3 
            vort3(i,j) = 0.
./pkg/monitor/mon_vort3.F 251 MON_VORT3 
            vort3(1,j) = vort3(1,j)
./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 260 MON_VORT3 
            hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k)
./pkg/monitor/mon_vort3.F 262 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx)
./pkg/monitor/mon_vort3.F 263 MON_VORT3 
            vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj)
./pkg/monitor/mon_vort3.F 266 MON_VORT3 
           j = 1
./pkg/monitor/mon_vort3.F 268 MON_VORT3 
            vort3(i,j) = 0.
./pkg/monitor/mon_vort3.F 269 MON_VORT3 
            vort3(1,j) = vort3(1,j)
./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 278 MON_VORT3 
            hFacZ(1,j) = sNx + hFacZ(1,j)*recip_drF(k)
./pkg/monitor/mon_vort3.F 280 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) / FLOAT(sNx)
./pkg/monitor/mon_vort3.F 281 MON_VORT3 
            vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj)
./pkg/monitor/mon_vort3.F 287 MON_VORT3 
         DO j=1,jMax
./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 83 MON_VORT3 
         DO j=1-Oly,sNy+Oly
./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 94 MON_VORT3 
         DO j=1,sNy
./model/src/calc_phi_hyd.F 126 CALC_PHI_HYD 
        DO j=1-Oly,sNy+Oly
./model/src/calc_phi_hyd.F 128 CALC_PHI_HYD 
           phiHydF(i,j) = 0.
./model/src/calc_phi_hyd.F 158 CALC_PHI_HYD 
          DO j=jMin,jMax
./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 172 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 178 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 195 CALC_PHI_HYD 
          DO j=jMin,jMax
./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 209 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 234 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 279 CALC_PHI_HYD 
          DO j=jMin,jMax
./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 287 CALC_PHI_HYD 
        DO j=jMin,jMax
./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 300 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 341 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 371 CALC_PHI_HYD 
        DO j=jMin,jMax
./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 404 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 427 CALC_PHI_HYD 
         DO j=jMin,jMax
./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 471 CALC_PHI_HYD 
         DO j=jMin,jMax
./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/my82/my82_calc_diff.F 45 MY82_CALC_DIFF 
      INTEGER i,j,k
./pkg/my82/my82_calc_diff.F 51 MY82_CALC_DIFF 
         DO j=jMin,jMax
./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 66 MY82_CALC_DIFF 
         DO j=jMin,jMax
./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 39 MY82_CALC_VISC 
      DO j=jMin,jMax
./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 47 MY82_CALC_VISC 
      DO j=jMin,jMax
./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)) )
./pkg/my82/my82_init_varia.F 31 MY82_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/my82/my82_init_varia.F 51 MY82_INIT_VARIA 
         DO j = 1-OLy, sNy+OLy
./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_r_star.F 105 CALC_R_STAR 
        DO j=1,sNy
./model/src/calc_r_star.F 107 CALC_R_STAR 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 108 CALC_R_STAR 
           tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F 109 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) =
./model/src/calc_r_star.F 110 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj)
./model/src/calc_r_star.F 111 CALC_R_STAR 
     &                    +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F 112 CALC_R_STAR 
     &                   )*recip_rAw(i,j,bi,bj)
./model/src/calc_r_star.F 115 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 119 CALC_R_STAR 
        DO j=1,sNy+1
./model/src/calc_r_star.F 121 CALC_R_STAR 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 122 CALC_R_STAR 
           tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F 123 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) =
./model/src/calc_r_star.F 124 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 125 CALC_R_STAR 
     &                    +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F 126 CALC_R_STAR 
     &                   )*recip_rAs(i,j,bi,bj)
./model/src/calc_r_star.F 129 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 135 CALC_R_STAR 
        DO j=1,sNy
./model/src/calc_r_star.F 137 CALC_R_STAR 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 138 CALC_R_STAR 
           tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F 139 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) =
./model/src/calc_r_star.F 140 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) )
./model/src/calc_r_star.F 143 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 147 CALC_R_STAR 
        DO j=1,sNy+1
./model/src/calc_r_star.F 149 CALC_R_STAR 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 150 CALC_R_STAR 
           tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F 151 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) =
./model/src/calc_r_star.F 152 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) )
./model/src/calc_r_star.F 155 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 167 CALC_R_STAR 
        DO j=1,sNy+1
./model/src/calc_r_star.F 169 CALC_R_STAR 
          IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 172 CALC_R_STAR 
            jjc = j
./model/src/calc_r_star.F 174 CALC_R_STAR 
          IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 177 CALC_R_STAR 
            jjw = j
./model/src/calc_r_star.F 179 CALC_R_STAR 
          IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 182 CALC_R_STAR 
            jjs = j
./model/src/calc_r_star.F 184 CALC_R_STAR 
          IF ( rStarFacC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_r_star.F 187 CALC_R_STAR 
            jjc2 = j
./model/src/calc_r_star.F 262 CALC_R_STAR 
        DO j=1,Oly
./model/src/calc_r_star.F 265 CALC_R_STAR 
          jj = sNy+j
./model/src/calc_r_star.F 267 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 268 CALC_R_STAR 
          IF (kSurfC(ii, 1-j,bi,bj).GT.Nr) rStarFacC(ii, 1-j,bi,bj)= 1.
./model/src/calc_r_star.F 272 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 273 CALC_R_STAR 
          IF (kSurfW(ii, 1-j,bi,bj).GT.Nr) rStarFacW(ii, 1-j,bi,bj)= 1.
./model/src/calc_r_star.F 277 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 278 CALC_R_STAR 
          IF (kSurfS(ii, 1-j,bi,bj).GT.Nr) rStarFacS(ii, 1-j,bi,bj)= 1.
./model/src/calc_r_star.F 287 CALC_R_STAR 
        DO j=1-Oly,sNy+Oly
./model/src/calc_r_star.F 289 CALC_R_STAR 
           rStarDhCDt(i,j,bi,bj)=(rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 290 CALC_R_STAR 
     &                           -rStarExpC(i,j,bi,bj))/deltaTfreesurf
./model/src/calc_r_star.F 291 CALC_R_STAR 
           rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 292 CALC_R_STAR 
     &                           -rStarExpW(i,j,bi,bj))/deltaTfreesurf
./model/src/calc_r_star.F 293 CALC_R_STAR 
           rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 294 CALC_R_STAR 
     &                           -rStarExpS(i,j,bi,bj))/deltaTfreesurf
./model/src/calc_r_star.F 295 CALC_R_STAR 
           rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 296 CALC_R_STAR 
     &                          / rStarExpC(i,j,bi,bj)
./model/src/calc_r_star.F 297 CALC_R_STAR 
           rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 298 CALC_R_STAR 
     &                          / rStarExpW(i,j,bi,bj)
./model/src/calc_r_star.F 299 CALC_R_STAR 
           rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 300 CALC_R_STAR 
     &                          / rStarExpS(i,j,bi,bj)
./model/src/calc_r_star.F 52 CALC_R_STAR 
      INTEGER i,j,bi,bj
./model/src/calc_r_star.F 83 CALC_R_STAR 
        DO j=1-Oly,sNy+Oly
./model/src/calc_r_star.F 85 CALC_R_STAR 
            rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 86 CALC_R_STAR 
            rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 87 CALC_R_STAR 
            rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 92 CALC_R_STAR 
        DO j=0,sNy+1
./model/src/calc_r_star.F 94 CALC_R_STAR 
          IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 95 CALC_R_STAR 
           rStarFacC(i,j,bi,bj) =
./model/src/calc_r_star.F 96 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 97 CALC_R_STAR 
     &      *recip_Rcol(i,j,bi,bj)
./model/src/calc_r_star.F 99 CALC_R_STAR 
           rStarFacC(i,j,bi,bj) = 1.
./pkg/mypackage/mypackage_init_varia.F 33 MYPACKAGE_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/mypackage/mypackage_init_varia.F 41 MYPACKAGE_INIT_VARIA 
         DO j=1-Oly,sNy+OLy
./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 61 MYPACKAGE_INIT_VARIA 
        DO j=1-Oly,sNy+OLy
./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
./model/src/calc_surf_dr.F 103 CALC_SURF_DR 
     &            j.GE.1.AND.j.LE.sNy ) THEN
./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 137 CALC_SURF_DR 
        DO j=1,sNy
./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 153 CALC_SURF_DR 
        DO j=1,sNy+1
./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 71 CALC_SURF_DR 
        DO j=0,sNy+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/mypackage/mypackage_read_pickup.F 163 MYPACKAGE_READ_PICKUP 
        DO j=1,nMissing
./pkg/mypackage/mypackage_read_pickup.F 47 MYPACKAGE_READ_PICKUP 
      INTEGER j, nj, ioUnit
./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 107 MYPACKAGE_TENDENCY_APPLY_V 
        DO j=jMin,jMax
./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 153 MYPACKAGE_TENDENCY_APPLY_T 
        DO j=jMin,jMax
./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 197 MYPACKAGE_TENDENCY_APPLY_S 
        DO j=jMin,jMax
./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 44 MYPACKAGE_TENDENCY_APPLY_U 
        DO j=jMin,jMax
./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 52 MYPACKAGE_TENDENCY_APPLY_U 
        DO j=jMin,jMax
./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
./pkg/mypackage/mypackage_tendency_apply.F 99 MYPACKAGE_TENDENCY_APPLY_V 
        DO j=jMin,jMax
./pkg/mypackage/mypackage_write_pickup.F 101 MYPACKAGE_WRITE_PICKUP 
        j = j + 1
./pkg/mypackage/mypackage_write_pickup.F 105 MYPACKAGE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'myPaSur1'
./pkg/mypackage/mypackage_write_pickup.F 107 MYPACKAGE_WRITE_PICKUP 
        j = j + 1
./pkg/mypackage/mypackage_write_pickup.F 111 MYPACKAGE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'myPaSur2'
./pkg/mypackage/mypackage_write_pickup.F 115 MYPACKAGE_WRITE_PICKUP 
        nWrFlds = j
./pkg/mypackage/mypackage_write_pickup.F 127 MYPACKAGE_WRITE_PICKUP 
        j  = 1
./pkg/mypackage/mypackage_write_pickup.F 130 MYPACKAGE_WRITE_PICKUP 
          j  = Nr
./pkg/mypackage/mypackage_write_pickup.F 135 MYPACKAGE_WRITE_PICKUP 
     &                         0, 0, j, ' ',
./pkg/mypackage/mypackage_write_pickup.F 55 MYPACKAGE_WRITE_PICKUP 
      INTEGER j, nj, fp, lChar
./pkg/mypackage/mypackage_write_pickup.F 71 MYPACKAGE_WRITE_PICKUP 
        j  = 0
./pkg/mypackage/mypackage_write_pickup.F 77 MYPACKAGE_WRITE_PICKUP 
        j = j + 1
./pkg/mypackage/mypackage_write_pickup.F 79 MYPACKAGE_WRITE_PICKUP 
     &                        myPa_StatScal1, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F 80 MYPACKAGE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'myPaSta1'
./pkg/mypackage/mypackage_write_pickup.F 82 MYPACKAGE_WRITE_PICKUP 
        j = j + 1
./pkg/mypackage/mypackage_write_pickup.F 84 MYPACKAGE_WRITE_PICKUP 
     &                        myPa_StatScal2, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F 85 MYPACKAGE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'myPaSta2'
./pkg/mypackage/mypackage_write_pickup.F 87 MYPACKAGE_WRITE_PICKUP 
        j = j + 1
./pkg/mypackage/mypackage_write_pickup.F 89 MYPACKAGE_WRITE_PICKUP 
     &                        myPa_StatVelU, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F 90 MYPACKAGE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'myPaStaU'
./pkg/mypackage/mypackage_write_pickup.F 91 MYPACKAGE_WRITE_PICKUP 
        j = j + 1
./pkg/mypackage/mypackage_write_pickup.F 93 MYPACKAGE_WRITE_PICKUP 
     &                        myPa_StatVelV, -j, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F 94 MYPACKAGE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'myPaStaV'
./pkg/mypackage/mypackage_write_pickup.F 98 MYPACKAGE_WRITE_PICKUP 
        nj = -j*Nr
./model/src/calc_viscosity.F 47 CALC_VISCOSITY 
      INTEGER i,j,k
./model/src/calc_viscosity.F 52 CALC_VISCOSITY 
       DO j = 1-Oly, sNy+Oly
./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_apply_eta.F 28 OBCS_APPLY_ETA 
      INTEGER i,j,i_obc,j_obc
./pkg/obcs/obcs_apply_eta.F 39 OBCS_APPLY_ETA 
      DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_eta.F 41 OBCS_APPLY_ETA 
        i_obc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 42 OBCS_APPLY_ETA 
        IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_eta.F 44 OBCS_APPLY_ETA 
        i_obc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 45 OBCS_APPLY_ETA 
        IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_eta.F 68 OBCS_APPLY_ETA 
        DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_eta.F 70 OBCS_APPLY_ETA 
          i_obc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 72 OBCS_APPLY_ETA 
            IF ( ksurfW(i_obc,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 73 OBCS_APPLY_ETA 
     &        etaFld(i_obc,j,bi,bj) = OBEeta(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 76 OBCS_APPLY_ETA 
          i_obc=OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 78 OBCS_APPLY_ETA 
            IF ( ksurfW(i_obc+1,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 79 OBCS_APPLY_ETA 
     &        etaFld(i_obc,j,bi,bj) = OBWeta(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 110 OBCS_APPLY_PTRACER 
       DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_ptracer.F 111 OBCS_APPLY_PTRACER 
        Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 115 OBCS_APPLY_PTRACER 
          obc_mask = _maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 117 OBCS_APPLY_PTRACER 
           pFld(i,j,kl) = OBEptr(j,k,bi,bj,iTracer)*obc_mask
./pkg/obcs/obcs_apply_ptracer.F 128 OBCS_APPLY_PTRACER 
       DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_ptracer.F 129 OBCS_APPLY_PTRACER 
        Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 133 OBCS_APPLY_PTRACER 
          obc_mask = _maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 135 OBCS_APPLY_PTRACER 
           pFld(i,j,kl) = OBWptr(j,k,bi,bj,iTracer)*obc_mask
./pkg/obcs/obcs_apply_ptracer.F 55 OBCS_APPLY_PTRACER 
      INTEGER i, j
./pkg/obcs/obcs_apply_ptracer.F 79 OBCS_APPLY_PTRACER 
          DO j = Jobc, Jobc+Oly
./pkg/obcs/obcs_apply_ptracer.F 80 OBCS_APPLY_PTRACER 
           pFld(i,j,kl) = OBNptr(i,k,bi,bj,iTracer)*obc_mask
./pkg/obcs/obcs_apply_ptracer.F 97 OBCS_APPLY_PTRACER 
          DO j = Jobc-Oly, Jobc
./pkg/obcs/obcs_apply_ptracer.F 98 OBCS_APPLY_PTRACER 
           pFld(i,j,kl) = OBSptr(i,k,bi,bj,iTracer)*obc_mask
./pkg/obcs/obcs_apply_r_star.F 34 OBCS_APPLY_R_STAR 
      INTEGER i,j
./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 42 OBCS_APPLY_R_STAR 
       IF (j.NE.0) THEN
./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 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 52 OBCS_APPLY_R_STAR 
       IF (j.NE.0) THEN
./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 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 63 OBCS_APPLY_R_STAR 
      DO j=1-Oly,sNy+Oly
./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 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 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 81 OBCS_APPLY_R_STAR 
     &       *MAX(recip_Rcol(i+1,j,bi,bj),recip_Rcol(i,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 101 OBCS_APPLY_SEAICE 
              HSALT(i,j,bi,bj) = OBEsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 112 OBCS_APPLY_SEAICE 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_seaice.F 113 OBCS_APPLY_SEAICE 
          Iobc=OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 116 OBCS_APPLY_SEAICE 
              HEFF(i,j,bi,bj)  = OBWh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 117 OBCS_APPLY_SEAICE 
              AREA(i,j,bi,bj)  = OBWa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 118 OBCS_APPLY_SEAICE 
              HSNOW(i,j,bi,bj) = OBWsn(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 120 OBCS_APPLY_SEAICE 
              HSALT(i,j,bi,bj) = OBWsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 214 OBCS_APPLY_SEAICE 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_seaice.F 217 OBCS_APPLY_SEAICE 
           IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 220 OBCS_APPLY_SEAICE 
     &           (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 221 OBCS_APPLY_SEAICE 
             HEFF(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 222 OBCS_APPLY_SEAICE 
             HEFF(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 226 OBCS_APPLY_SEAICE 
     &           (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 227 OBCS_APPLY_SEAICE 
             AREA(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 228 OBCS_APPLY_SEAICE 
             AREA(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 232 OBCS_APPLY_SEAICE 
     &           (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 233 OBCS_APPLY_SEAICE 
             HSNOW(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 234 OBCS_APPLY_SEAICE 
             HSNOW(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 239 OBCS_APPLY_SEAICE 
     &           (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 240 OBCS_APPLY_SEAICE 
             HSALT(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 241 OBCS_APPLY_SEAICE 
             HSALT(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 253 OBCS_APPLY_SEAICE 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_seaice.F 254 OBCS_APPLY_SEAICE 
          Iobc=OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 256 OBCS_APPLY_SEAICE 
           IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 259 OBCS_APPLY_SEAICE 
     &           (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 260 OBCS_APPLY_SEAICE 
             HEFF(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 261 OBCS_APPLY_SEAICE 
             HEFF(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 265 OBCS_APPLY_SEAICE 
     &           (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 266 OBCS_APPLY_SEAICE 
             AREA(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 267 OBCS_APPLY_SEAICE 
             AREA(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 271 OBCS_APPLY_SEAICE 
     &           (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 272 OBCS_APPLY_SEAICE 
             HSNOW(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 273 OBCS_APPLY_SEAICE 
             HSNOW(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 278 OBCS_APPLY_SEAICE 
     &           (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 279 OBCS_APPLY_SEAICE 
             HSALT(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 280 OBCS_APPLY_SEAICE 
             HSALT(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 42 OBCS_APPLY_SEAICE 
      INTEGER i, j
./pkg/obcs/obcs_apply_seaice.F 58 OBCS_APPLY_SEAICE 
            DO j = Jobc, Jobc+Oly
./pkg/obcs/obcs_apply_seaice.F 59 OBCS_APPLY_SEAICE 
              HEFF(i,j,bi,bj)  = OBNh (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 60 OBCS_APPLY_SEAICE 
              AREA(i,j,bi,bj)  = OBNa (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 61 OBCS_APPLY_SEAICE 
              HSNOW(i,j,bi,bj) = OBNsn(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 63 OBCS_APPLY_SEAICE 
              HSALT(i,j,bi,bj) = OBNsl(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 77 OBCS_APPLY_SEAICE 
            DO j = Jobc-Oly, Jobc
./pkg/obcs/obcs_apply_seaice.F 78 OBCS_APPLY_SEAICE 
              HEFF(i,j,bi,bj)  = OBSh (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 79 OBCS_APPLY_SEAICE 
              AREA(i,j,bi,bj)  = OBSa (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 80 OBCS_APPLY_SEAICE 
              HSNOW(i,j,bi,bj) = OBSsn(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 82 OBCS_APPLY_SEAICE 
              HSALT(i,j,bi,bj) = OBSsl(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 93 OBCS_APPLY_SEAICE 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_seaice.F 97 OBCS_APPLY_SEAICE 
              HEFF(i,j,bi,bj)  = OBEh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 98 OBCS_APPLY_SEAICE 
              AREA(i,j,bi,bj)  = OBEa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 99 OBCS_APPLY_SEAICE 
              HSNOW(i,j,bi,bj) = OBEsn(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 42 OBCS_APPLY_SURF_DR 
       j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 43 OBCS_APPLY_SURF_DR 
       IF (j.NE.0) THEN
./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 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 52 OBCS_APPLY_SURF_DR 
       IF (j.NE.0) THEN
./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 56 OBCS_APPLY_SURF_DR 
         hFac_FldS(i,j+1,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 62 OBCS_APPLY_SURF_DR 
      DO j=1-Oly,sNy+Oly
./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 68 OBCS_APPLY_SURF_DR 
         hFactmp = OBEhFac0(j,bi,bj) + OBEeta(j,bi,bj)*recip_drF(ks)
./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 75 OBCS_APPLY_SURF_DR 
        ks = ksurfW(i+1,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 77 OBCS_APPLY_SURF_DR 
         hFactmp = OBWhFac0(j,bi,bj) + OBWeta(j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 78 OBCS_APPLY_SURF_DR 
         hFac_FldW(i+1,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./model/src/calc_wsurf_tr.F 50 CALC_WSURF_TR 
      INTEGER i,j,bi,bj,ks
./model/src/calc_wsurf_tr.F 68 CALC_WSURF_TR 
         DO j=1,sNy
./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/obcs/obcs_apply_ts.F 103 OBCS_APPLY_TS 
            DO j = Jobc-Oly, Jobc
./pkg/obcs/obcs_apply_ts.F 104 OBCS_APPLY_TS 
             tFld(i,j,k,bi,bj) = OBSt(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_ts.F 105 OBCS_APPLY_TS 
             sFld(i,j,k,bi,bj) = OBSs(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_ts.F 117 OBCS_APPLY_TS 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_ts.F 118 OBCS_APPLY_TS 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 121 OBCS_APPLY_TS 
            obc_mask = _maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 123 OBCS_APPLY_TS 
             tFld(i,j,k,bi,bj) = OBEt(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_ts.F 124 OBCS_APPLY_TS 
             sFld(i,j,k,bi,bj) = OBEs(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_ts.F 135 OBCS_APPLY_TS 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_ts.F 136 OBCS_APPLY_TS 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 139 OBCS_APPLY_TS 
            obc_mask = _maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 141 OBCS_APPLY_TS 
             tFld(i,j,k,bi,bj) = OBWt(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_ts.F 142 OBCS_APPLY_TS 
             sFld(i,j,k,bi,bj) = OBWs(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_ts.F 50 OBCS_APPLY_TS 
      INTEGER i, j
./pkg/obcs/obcs_apply_ts.F 85 OBCS_APPLY_TS 
            DO j = Jobc, Jobc+Oly
./pkg/obcs/obcs_apply_ts.F 86 OBCS_APPLY_TS 
             tFld(i,j,k,bi,bj) = OBNt(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_ts.F 87 OBCS_APPLY_TS 
             sFld(i,j,k,bi,bj) = OBNs(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_uv.F 116 OBCS_APPLY_UV 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_uv.F 117 OBCS_APPLY_UV 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 120 OBCS_APPLY_UV 
             uFld(Iobc,j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 121 OBCS_APPLY_UV 
     &                              *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 122 OBCS_APPLY_UV 
             vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 123 OBCS_APPLY_UV 
     &                              *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 124 OBCS_APPLY_UV 
             uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj)
./pkg/obcs/obcs_apply_uv.F 125 OBCS_APPLY_UV 
     &                              *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 134 OBCS_APPLY_UV 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_apply_uv.F 135 OBCS_APPLY_UV 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 138 OBCS_APPLY_UV 
             uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 139 OBCS_APPLY_UV 
     &                              *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 140 OBCS_APPLY_UV 
             vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 141 OBCS_APPLY_UV 
     &                              *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 142 OBCS_APPLY_UV 
             uFld(Iobc,j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 143 OBCS_APPLY_UV 
     &                              *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 49 OBCS_APPLY_UV 
      INTEGER i, j
./pkg/obcs/obcs_calc.F 100 OBCS_CALC 
              OBEt(j,k,bi,bj)= T_F1(j,k,2)
./pkg/obcs/obcs_calc.F 101 OBCS_CALC 
              OBEs(j,k,bi,bj)= S_F1(j,k,2)
./pkg/obcs/obcs_calc.F 103 OBCS_CALC 
              OBEeta(j,bi,bj)= ETA_F1(j,1,2)
./pkg/obcs/obcs_calc.F 147 OBCS_CALC 
          DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_calc.F 148 OBCS_CALC 
            I_obc=OB_Iw(j,bi,bj)
./pkg/obcs/obcs_calc.F 150 OBCS_CALC 
              OBWu(j,k,bi,bj)= U_F1(j,k,1)
./pkg/obcs/obcs_calc.F 151 OBCS_CALC 
              OBWv(j,k,bi,bj)= V_F1(j,k,1)
./pkg/obcs/obcs_calc.F 152 OBCS_CALC 
              OBWt(j,k,bi,bj)= T_F1(j,k,1)
./pkg/obcs/obcs_calc.F 153 OBCS_CALC 
              OBWs(j,k,bi,bj)= S_F1(j,k,1)
./pkg/obcs/obcs_calc.F 155 OBCS_CALC 
              OBWeta(j,bi,bj)= ETA_F1(j,1,1)
./pkg/obcs/obcs_calc.F 446 OBCS_CALC 
            Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 483 OBCS_CALC 
            Ar = drF(k)*hFacC(I_obc,j,k,bi,bj)*dyG(I_obc,j,bi,bj)
./pkg/obcs/obcs_calc.F 95 OBCS_CALC 
          DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_calc.F 96 OBCS_CALC 
            I_obc=OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc.F 98 OBCS_CALC 
              OBEu(j,k,bi,bj)= U_F1(j,k,2)
./pkg/obcs/obcs_calc.F 99 OBCS_CALC 
              OBEv(j,k,bi,bj)= V_F1(j,k,2)
./pkg/obcs/obcs_calc_stevens.F 628 OBCS_CALC_STEVENS 
      print *, 'ml-obcs: uBar = ', (j,uMerBar(J),J=1,sNy)
./pkg/obcs/obcs_copy_tracer.F 109 OBCS_COPY_TRACER 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_copy_tracer.F 110 OBCS_COPY_TRACER 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 114 OBCS_COPY_TRACER 
             trFld(i,j,k) = trFld(Iobc,j,k)
./pkg/obcs/obcs_copy_tracer.F 53 OBCS_COPY_TRACER 
      INTEGER i, j, k
./pkg/obcs/obcs_copy_tracer.F 64 OBCS_COPY_TRACER 
            DO j = Jobc+1, Jobc+Oly
./pkg/obcs/obcs_copy_tracer.F 65 OBCS_COPY_TRACER 
             trFld(i,j,k) = trFld(i,Jobc,k)
./pkg/obcs/obcs_copy_tracer.F 80 OBCS_COPY_TRACER 
            DO j = Jobc-Oly, Jobc-1
./pkg/obcs/obcs_copy_tracer.F 81 OBCS_COPY_TRACER 
             trFld(i,j,k) = trFld(i,Jobc,k)
./pkg/obcs/obcs_copy_tracer.F 93 OBCS_COPY_TRACER 
         DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_copy_tracer.F 94 OBCS_COPY_TRACER 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 98 OBCS_COPY_TRACER 
             trFld(i,j,k) = trFld(Iobc,j,k)
./pkg/obcs/obcs_external_fields_load.F 502 OBCS_EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_external_fields_load.F 503 OBCS_EXTERNAL_FIELDS_LOAD 
           OBEeta(j,bi,bj) = bWght*OBEeta0(j,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 504 OBCS_EXTERNAL_FIELDS_LOAD 
     &                      +aWght*OBEeta1(j,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 528 OBCS_EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_external_fields_load.F 529 OBCS_EXTERNAL_FIELDS_LOAD 
           OBWeta(j,bi,bj) = bWght*OBWeta0(j,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 530 OBCS_EXTERNAL_FIELDS_LOAD 
     &                      +aWght*OBWeta1(j,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 714 OBCS_EXTERNAL_FIELDS_INTERP_YZ 
      INTEGER bi,bj,j,k
./pkg/obcs/obcs_external_fields_load.F 719 OBCS_EXTERNAL_FIELDS_INTERP_YZ 
          DO j=1-Oly,sNy+Oly
./pkg/obcs/obcs_external_fields_load.F 720 OBCS_EXTERNAL_FIELDS_INTERP_YZ 
           fld(j,k,bi,bj)   = bWght*fld0(j,k,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 721 OBCS_EXTERNAL_FIELDS_INTERP_YZ 
     &                       +aWght*fld1(j,k,bi,bj)
./pkg/obcs/obcs_external_fields_load.F 89 OBCS_EXTERNAL_FIELDS_LOAD 
      INTEGER i,j,bi,bj
./pkg/obcs/obcs_init_fixed.F 100 OBCS_INIT_FIXED 
            j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 101 OBCS_INIT_FIXED 
            k = ksurfS(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 102 OBCS_INIT_FIXED 
            IF (k.LE.Nr) OBNhFac0(i,bi,bj)=hFacS(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 106 OBCS_INIT_FIXED 
            j = OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 107 OBCS_INIT_FIXED 
            k = ksurfS(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 108 OBCS_INIT_FIXED 
            IF (k.LE.Nr) OBShFac0(i,bi,bj)=hFacS(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 113 OBCS_INIT_FIXED 
        DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F 114 OBCS_INIT_FIXED 
          OBEhFac0(j,bi,bj)=0.
./pkg/obcs/obcs_init_fixed.F 115 OBCS_INIT_FIXED 
          OBWhFac0(j,bi,bj)=0.
./pkg/obcs/obcs_init_fixed.F 117 OBCS_INIT_FIXED 
          IF ( OB_Ie(j,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 118 OBCS_INIT_FIXED 
            i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 119 OBCS_INIT_FIXED 
            k = ksurfW(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 120 OBCS_INIT_FIXED 
            IF (k.LE.Nr) OBEhFac0(j,bi,bj)=hFacW(i,j,k,bi,bj)
./pkg/obcs/obcs_init_fixed.F 123 OBCS_INIT_FIXED 
          IF ( OB_Iw(j,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 124 OBCS_INIT_FIXED 
            i = OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 125 OBCS_INIT_FIXED 
            k = ksurfW(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 126 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 44 OBCS_INIT_FIXED 
        DO j=1-OLy,sNy+OLy
./pkg/obcs/obcs_init_fixed.F 46 OBCS_INIT_FIXED 
         IF ( OB_Ie(j,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 48 OBCS_INIT_FIXED 
          DO i=OB_Ie(j,bi,bj),sNx+OLx
./pkg/obcs/obcs_init_fixed.F 49 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 50 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 51 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 52 OBCS_INIT_FIXED 
            IF (j.LT.sNy+OLy) maskInS(i,j+1,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 56 OBCS_INIT_FIXED 
         IF ( OB_Iw(j,bi,bj).NE.0 ) THEN
./pkg/obcs/obcs_init_fixed.F 58 OBCS_INIT_FIXED 
          DO i=1-OLx,OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 59 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 60 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 61 OBCS_INIT_FIXED 
            IF (j.LT.sNy+OLy) maskInS(i,j+1,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 63 OBCS_INIT_FIXED 
          DO i=1-OLx,OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 64 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 72 OBCS_INIT_FIXED 
          DO j=OB_Jn(i,bi,bj),sNy+OLy
./pkg/obcs/obcs_init_fixed.F 73 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 74 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 75 OBCS_INIT_FIXED 
            IF (i.LT.sNx+OLx) maskInW(i+1,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 76 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 82 OBCS_INIT_FIXED 
          DO j=1-OLy,OB_Js(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 83 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 84 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 85 OBCS_INIT_FIXED 
            IF (i.LT.sNx+OLx) maskInW(i+1,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 87 OBCS_INIT_FIXED 
          DO j=1-OLy,OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_init_fixed.F 88 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = 0.
./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 125 OBCS_SPONGE_U 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 126 OBCS_SPONGE_U 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 128 OBCS_SPONGE_U 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 132 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBEu(j,kLev,bi,bj)
./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 159 OBCS_SPONGE_U 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 160 OBCS_SPONGE_U 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 162 OBCS_SPONGE_U 
         i=OB_Iw(j,bi,bj)+isl+1
./pkg/obcs/obcs_sponge.F 166 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBWu(j,kLev,bi,bj)
./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 244 OBCS_SPONGE_V 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 246 OBCS_SPONGE_V 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./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 278 OBCS_SPONGE_V 
         j=OB_Js(i,bi,bj)+jsl+1
./pkg/obcs/obcs_sponge.F 280 OBCS_SPONGE_V 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./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 309 OBCS_SPONGE_V 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 310 OBCS_SPONGE_V 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 312 OBCS_SPONGE_V 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 316 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBEv(j,kLev,bi,bj)
./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 343 OBCS_SPONGE_V 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 344 OBCS_SPONGE_V 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 346 OBCS_SPONGE_V 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 351 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBWv(j,kLev,bi,bj)
./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 452 OBCS_SPONGE_T 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 454 OBCS_SPONGE_T 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./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 492 OBCS_SPONGE_T 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 494 OBCS_SPONGE_T 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./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 530 OBCS_SPONGE_T 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 531 OBCS_SPONGE_T 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 533 OBCS_SPONGE_T 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 536 OBCS_SPONGE_T 
           IF  (OBEt(j,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 538 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBEt(j,kLev,bi,bj)
./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 571 OBCS_SPONGE_T 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 572 OBCS_SPONGE_T 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 576 OBCS_SPONGE_T 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 579 OBCS_SPONGE_T 
           IF  (OBWt(j,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 581 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBWt(j,kLev,bi,bj)
./pkg/obcs/obcs_sponge.F 582 OBCS_SPONGE_T 
     &    + float(isl)*theta(i,j,kLev,bi,bj) )
./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 62 OBCS_SPONGE_U 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./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 683 OBCS_SPONGE_S 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 685 OBCS_SPONGE_S 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./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 724 OBCS_SPONGE_S 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 726 OBCS_SPONGE_S 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./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 762 OBCS_SPONGE_S 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 763 OBCS_SPONGE_S 
       IF ((OB_Ie(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./pkg/obcs/obcs_sponge.F 765 OBCS_SPONGE_S 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 768 OBCS_SPONGE_S 
           IF  (OBEs(j,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 770 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBEs(j,kLev,bi,bj)
./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 803 OBCS_SPONGE_S 
      DO j=jMin,jMax
./pkg/obcs/obcs_sponge.F 804 OBCS_SPONGE_S 
       IF ((OB_Iw(j,bi,bj).ne.0).and.(spongeThickness.ne.0)) THEN
./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 812 OBCS_SPONGE_S 
           IF  (OBWs(j,klev,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 814 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBWs(j,kLev,bi,bj)
./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 94 OBCS_SPONGE_U 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 96 OBCS_SPONGE_U 
         IF ((j.ge.jmin).and.(j.le.jmax)) THEN
./pkg/obcs/obcs_sponge.F 99 OBCS_SPONGE_U 
     &    + float(jsl)*uVel(i,j,kLev,bi,bj) )
./pkg/ocn_compon_interf/ocn_apply_import.F 103 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 109 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 120 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 127 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 134 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 146 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 153 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 160 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 168 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 63 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 71 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 78 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 87 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 94 OCN_APPLY_IMPORT 
           DO j=1-Oly,sNy+Oly
./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 59 OCN_CPL_DIAGS 
         DO j=1,sNy
./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)
./model/src/cg3d.F 123 CG3D 
      DO j=1,sNy
./model/src/cg3d.F 125 CG3D 
         surfTerm(i,j) = 0.
./model/src/cg3d.F 138 CG3D 
         DO j=1,sNy
./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 154 CG3D 
         DO j=1,sNy
./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 177 CG3D 
          DO j=1,sNy
./model/src/cg3d.F 179 CG3D 
             surfTerm(i,j) = 0.
./model/src/cg3d.F 183 CG3D 
           DO j=1,sNy
./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 190 CG3D 
          DO j=1,sNy
./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 211 CG3D 
         DO j=1,sNy
./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 282 CG3D 
          DO j=1-1,sNy+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 293 CG3D 
          DO j=1-1,sNy+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 306 CG3D 
          DO j=1,sNy
./model/src/cg3d.F 309 CG3D 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 317 CG3D 
          DO j=1-1,sNy+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 326 CG3D 
          DO j=1,sNy
./model/src/cg3d.F 329 CG3D 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 349 CG3D 
          DO j=1-1,sNy+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 367 CG3D 
          DO j=1,sNy
./model/src/cg3d.F 369 CG3D 
             surfTerm(i,j) = 0.
./model/src/cg3d.F 373 CG3D 
           DO j=1,sNy
./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 380 CG3D 
          DO j=1,sNy
./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 396 CG3D 
          DO j=1,sNy
./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 417 CG3D 
          DO j=1,sNy
./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 437 CG3D 
          DO j=1,sNy
./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 460 CG3D 
          DO j=1,sNy
./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 498 CG3D 
          DO j=1,sNy
./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 542 CG3D 
         DO j=1,sNy
./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/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 51 OCN_STORE_MY_DATA 
       DO j=1,sNy
./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 58 OCN_STORE_MY_DATA 
       DO j=1,sNy
./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 69 OCN_STORE_MY_DATA 
        DO j=1,sNy
./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 76 OCN_STORE_MY_DATA 
        DO j=1,sNy
./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 86 OCN_STORE_MY_DATA 
       DO j=1,sNy
./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 93 OCN_STORE_MY_DATA 
       DO j=1,sNy
./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)
./model/src/check_pickup.F 103 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'dEtaHdt '
./model/src/check_pickup.F 118 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'EtaN    '
./model/src/check_pickup.F 125 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'Phi_NHyd' ) THEN
./model/src/check_pickup.F 131 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'dPhiNH  ' ) THEN
./model/src/check_pickup.F 138 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'AddMass '
./model/src/check_pickup.F 147 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'Uvel    ' .OR.
./model/src/check_pickup.F 148 CHECK_PICKUP 
     &            missFldList(j).EQ.'Vvel    ' .OR.
./model/src/check_pickup.F 149 CHECK_PICKUP 
     &            missFldList(j).EQ.'Theta   ' .OR.
./model/src/check_pickup.F 150 CHECK_PICKUP 
     &            missFldList(j).EQ.'Salt    ' .OR.
./model/src/check_pickup.F 151 CHECK_PICKUP 
     &            missFldList(j).EQ.'EtaN    ' ) THEN
./model/src/check_pickup.F 154 CHECK_PICKUP 
     &       'cannot restart without field "',missFldList(j),'"'
./model/src/check_pickup.F 158 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'PhiHyd  ' .OR.
./model/src/check_pickup.F 159 CHECK_PICKUP 
     &            missFldList(j).EQ.'AddMass ' .OR.
./model/src/check_pickup.F 160 CHECK_PICKUP 
     &            missFldList(j).EQ.'dEtaHdt ' .OR.
./model/src/check_pickup.F 161 CHECK_PICKUP 
     &            missFldList(j).EQ.'EtaH    ' ) THEN
./model/src/check_pickup.F 164 CHECK_PICKUP 
     &     'cannot currently restart without field "',missFldList(j),'"'
./model/src/check_pickup.F 169 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GuNm1   ' .OR.
./model/src/check_pickup.F 170 CHECK_PICKUP 
     &            missFldList(j).EQ.'GvNm1   ' ) THEN
./model/src/check_pickup.F 172 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GuNm2   ' .OR.
./model/src/check_pickup.F 173 CHECK_PICKUP 
     &            missFldList(j).EQ.'GvNm2   ' ) THEN
./model/src/check_pickup.F 175 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GtNm1   ' .OR.
./model/src/check_pickup.F 176 CHECK_PICKUP 
     &            missFldList(j).EQ.'TempNm1 ' ) THEN
./model/src/check_pickup.F 178 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GtNm2   ' .OR.
./model/src/check_pickup.F 179 CHECK_PICKUP 
     &            missFldList(j).EQ.'TempNm2 ' ) THEN
./model/src/check_pickup.F 181 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GsNm1   ' .OR.
./model/src/check_pickup.F 182 CHECK_PICKUP 
     &            missFldList(j).EQ.'SaltNm1 ' ) THEN
./model/src/check_pickup.F 184 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GsNm2   ' .OR.
./model/src/check_pickup.F 185 CHECK_PICKUP 
     &            missFldList(j).EQ.'SaltNm2 ' ) THEN
./model/src/check_pickup.F 187 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GwNm1   ' ) THEN
./model/src/check_pickup.F 189 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'GwNm2   ' ) THEN
./model/src/check_pickup.F 196 CHECK_PICKUP 
     &       'missing field "',missFldList(j),'" not recognized'
./model/src/check_pickup.F 49 CHECK_PICKUP 
      INTEGER j
./model/src/check_pickup.F 83 CHECK_PICKUP 
        DO j=1,nMissing
./model/src/check_pickup.F 85 CHECK_PICKUP 
         IF     ( missFldList(j).EQ.'dEtaHdt '
./model/src/check_pickup.F 93 CHECK_PICKUP 
         ELSEIF ( missFldList(j).EQ.'dPhiNH  '
./pkg/offline/offline_fields_load.F 338 OFFLINE_FIELDS_LOAD 
        DO j=1-Oly,sNy+Oly
./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 373 OFFLINE_FIELDS_LOAD 
       DO j=1-Oly,sNy+Oly
./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 439 LEF_ZERO3 
        DO j=1-Oly,sNy+Oly
./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 473 LEF_ZERO2 
        DO j=1-Oly,sNy+Oly
./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 33 OFFLINE_INIT_VARIA 
            DO j=1-Oly,sNy+OLy
./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 57 OFFLINE_INIT_VARIA 
          DO j=1-Oly,sNy+OLy
./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 1095 NLOPPS 
               write(0,*)"t out of range at j after adjust",j
./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 683 NLOPPS 
      subroutine NLOPPS(j,is,ie,ta,sa,gcmdz)
./pkg/opps/opps_calc.F 726 NLOPPS 
      INTEGER i,j,k
./pkg/opps/opps_calc.F 797 NLOPPS 
        numgridpoints=kmp(i,j)
./pkg/opps/opps_calc.F 823 NLOPPS 
            write(0,*)"t out of range at j ",j
./pkg/opps/opps_calc.F 830 NLOPPS 
        write(*,*)"T and S Profile at  ",i,j
./pkg/opps/opps_init.F 31 OPPS_INIT 
      INTEGER i, j, k, bi, bj
./pkg/opps/opps_init.F 40 OPPS_INIT 
         do j = 1-OLy, sNy+OLy
./pkg/pp81/pp81_calc_diff.F 45 PP81_CALC_DIFF 
      INTEGER i,j,k
./pkg/pp81/pp81_calc_diff.F 51 PP81_CALC_DIFF 
         DO j=jMin,jMax
./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 66 PP81_CALC_DIFF 
         DO j=jMin,jMax
./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 42 PP81_CALC_VISC 
      DO j=jMin,jMax
./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 50 PP81_CALC_VISC 
      DO j=jMin,jMax
./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 40 PP81_INIT_VARIA 
         DO j = 1-OLy, sNy+OLy
./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)
./model/src/convective_adjustment.F 57 CONVECTIVE_ADJUSTMENT 
      INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment.F 87 CONVECTIVE_ADJUSTMENT 
         DO j=1-OLy,sNy+OLy
./model/src/convective_adjustment.F 89 CONVECTIVE_ADJUSTMENT 
           ConvectCount(i,j,K) = 0.
./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 58 PROFILES_INTERP 
      integer i,j,k,kk,kcur,iG,jG,bi,bj
./pkg/profiles/profiles_interp.F 71 PROFILES_INTERP 
        DO j=1,sNy+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 78 PROFILES_INTERP 
          prof_j=j
./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 89 PROFILES_INTERP 
          prof_j=j
./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 58 PROFILES_INTERP_MEAN 
      integer i,j,k,kk,kcur,iG,jG,bi,bj
./pkg/profiles/profiles_interp_mean.F 71 PROFILES_INTERP_MEAN 
        DO j=1,sNy+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 78 PROFILES_INTERP_MEAN 
          prof_j=j
./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 89 PROFILES_INTERP_MEAN 
          prof_j=j
./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/convective_adjustment_ini.F 61 CONVECTIVE_ADJUSTMENT_INI 
      INTEGER i, j, K, kTop, kBottom, kDir, deltaK
./model/src/convective_adjustment_ini.F 87 CONVECTIVE_ADJUSTMENT_INI 
         DO j=1-OLy,sNy+OLy
./model/src/convective_adjustment_ini.F 89 CONVECTIVE_ADJUSTMENT_INI 
           ConvectCount(i,j,k) = 0.
./model/src/convective_weights.F 53 CONVECTIVE_WEIGHTS 
      INTEGER i,j
./model/src/convective_weights.F 57 CONVECTIVE_WEIGHTS 
      DO j=1-Oly,sNy+Oly
./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_calc_diff.F 149 PTRACERS_CALC_DIFF 
        DO j = 1-Oly, sNy+Oly
./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 78 PTRACERS_CALC_DIFF 
        DO j = 1-Oly, sNy+Oly
./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 116 PTRACERS_CHECK_PICKUP 
     &       'missing field "',missFldList(j),'" not recognized'
./pkg/ptracers/ptracers_check_pickup.F 48 PTRACERS_CHECK_PICKUP 
      INTEGER j
./pkg/ptracers/ptracers_check_pickup.F 62 PTRACERS_CHECK_PICKUP 
        DO j=1,nMissing
./pkg/ptracers/ptracers_check_pickup.F 63 PTRACERS_CHECK_PICKUP 
         fldName = missFldList(j)
./pkg/ptracers/ptracers_diagnostics_state.F 112 PTRACERS_DIAGNOSTICS_STATE 
              DO j = 1,sNy+1
./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 146 PTRACERS_DIAGNOSTICS_STATE 
              DO j = 1,sNy
./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 79 PTRACERS_DIAGNOSTICS_STATE 
              DO j = 1,sNy
./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/convectively_mixtracer.F 42 CONVECTIVELY_MIXTRACER 
      INTEGER i,j
./model/src/convectively_mixtracer.F 46 CONVECTIVELY_MIXTRACER 
      DO j=1-Oly,sNy+Oly
./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/ptracers/ptracers_forcing.F 49 PTRACERS_FORCING 
      INTEGER i,j
./pkg/ptracers/ptracers_forcing.F 73 PTRACERS_FORCING 
        DO j=jMin,jMax
./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 107 PTRACERS_FORCING_SURF 
        DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 109 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = 0. _d 0
./pkg/ptracers/ptracers_forcing_surf.F 126 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 128 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 129 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 130 PTRACERS_FORCING_SURF 
     &        + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 156 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 158 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 159 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 160 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 177 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 179 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 180 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 181 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
      INTEGER i, j
./pkg/ptracers/ptracers_forcing_surf.F 65 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 67 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 84 PTRACERS_FORCING_SURF 
         DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 86 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./pkg/ptracers/ptracers_forcing_surf.F 87 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = relaxForcingS(i,j)/tmpVar
./pkg/ptracers/ptracers_forcing_surf.F 88 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./pkg/ptracers/ptracers_forcing_surf.F 89 PTRACERS_FORCING_SURF 
     &                  *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./pkg/ptracers/ptracers_forcing_surf.F 93 PTRACERS_FORCING_SURF 
         DO j = jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 95 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt
./pkg/ptracers/ptracers_forcing_surf.F 96 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./pkg/ptracers/ptracers_forcing_surf.F 97 PTRACERS_FORCING_SURF 
     &                  *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./pkg/ptracers/ptracers_init_varia.F 104 PTRACERS_INIT_VARIA 
          DO j=1-OLy,sNy+OLy
./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 52 PTRACERS_INIT_VARIA 
          DO j=1-OLy,sNy+OLy
./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 60 PTRACERS_INIT_VARIA 
         DO j=1-OLy,sNy+OLy
./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 71 PTRACERS_INIT_VARIA 
             DO j=1-OLy,sNy+OLy
./pkg/ptracers/ptracers_init_varia.F 73 PTRACERS_INIT_VARIA 
               _Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
./model/src/correction_step.F 52 CORRECTION_STEP 
      INTEGER i,j
./model/src/correction_step.F 67 CORRECTION_STEP 
      DO j=jMin,jMax
./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 80 CORRECTION_STEP 
      DO j=jMin,jMax
./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/ptracers/ptracers_set_iolabel.F 102 PTRACERS_SET_IOLABEL 
        IF ( i.NE.1 .OR. j.NE.1 ) THEN
./pkg/ptracers/ptracers_set_iolabel.F 105 PTRACERS_SET_IOLABEL 
          ioLbl(n)(1:1) = c1Set1(j:j)
./pkg/ptracers/ptracers_set_iolabel.F 115 PTRACERS_SET_IOLABEL 
      DO j=1,l1Set
./pkg/ptracers/ptracers_set_iolabel.F 119 PTRACERS_SET_IOLABEL 
          ioLbl(n)(1:1) = c1Set2(j:j)
./pkg/ptracers/ptracers_set_iolabel.F 128 PTRACERS_SET_IOLABEL 
      DO j=1,l1Set
./pkg/ptracers/ptracers_set_iolabel.F 132 PTRACERS_SET_IOLABEL 
          ioLbl(n)(1:1) = c1Set3(j:j)
./pkg/ptracers/ptracers_set_iolabel.F 75 PTRACERS_SET_IOLABEL 
      INTEGER i,j,n
./pkg/ptracers/ptracers_set_iolabel.F 99 PTRACERS_SET_IOLABEL 
      DO j=1,l1Set
./pkg/ptracers/ptracers_write_pickup.F 132 PTRACERS_WRITE_PICKUP 
        j  = 0
./pkg/ptracers/ptracers_write_pickup.F 135 PTRACERS_WRITE_PICKUP 
          j = j + 1
./pkg/ptracers/ptracers_write_pickup.F 138 PTRACERS_WRITE_PICKUP 
     &         -j, myIter, myThid )
./pkg/ptracers/ptracers_write_pickup.F 139 PTRACERS_WRITE_PICKUP 
          IF (j.LE.listDim)
./pkg/ptracers/ptracers_write_pickup.F 140 PTRACERS_WRITE_PICKUP 
     &      wrFldList(j) = 'pTr'//PTRACERS_ioLabel(iTracer)//'   '
./pkg/ptracers/ptracers_write_pickup.F 146 PTRACERS_WRITE_PICKUP 
          j = j + 1
./pkg/ptracers/ptracers_write_pickup.F 149 PTRACERS_WRITE_PICKUP 
     &         -j, myIter, myThid )
./pkg/ptracers/ptracers_write_pickup.F 150 PTRACERS_WRITE_PICKUP 
          IF (j.LE.listDim)
./pkg/ptracers/ptracers_write_pickup.F 151 PTRACERS_WRITE_PICKUP 
     &      wrFldList(j) = 'gPtr'//PTRACERS_ioLabel(iTracer)//'m1'
./pkg/ptracers/ptracers_write_pickup.F 157 PTRACERS_WRITE_PICKUP 
        nWrFlds = j
./pkg/ptracers/ptracers_write_pickup.F 174 PTRACERS_WRITE_PICKUP 
     &                         j, myIter, myThid )
./pkg/ptracers/ptracers_write_pickup.F 60 PTRACERS_WRITE_PICKUP 
      INTEGER iTracer, j, prec, lChar
./model/src/cycle_tracer.F 43 CYCLE_TRACER 
      INTEGER i,j,k
./model/src/cycle_tracer.F 50 CYCLE_TRACER 
       DO j=1-OLy,sNy+OLy
./model/src/cycle_tracer.F 52 CYCLE_TRACER 
         tracer(i,j,k,bi,bj)=gTracer(i,j,k,bi,bj)
./pkg/rbcs/rbcs_add_tendency.F 45 RBCS_ADD_TENDENCY 
      INTEGER i,j
./pkg/rbcs/rbcs_add_tendency.F 55 RBCS_ADD_TENDENCY 
        DO j=1,sNy
./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 66 RBCS_ADD_TENDENCY 
        DO j=1,sNy
./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 81 RBCS_ADD_TENDENCY 
        DO j=1,sNy
./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 239 RBCS_FIELDS_LOAD 
         DO j=1-Oly,sNy+Oly
./pkg/rbcs/rbcs_fields_load.F 241 RBCS_FIELDS_LOAD 
           RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 242 RBCS_FIELDS_LOAD 
     &                           +aWght*rbct1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 243 RBCS_FIELDS_LOAD 
           RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 244 RBCS_FIELDS_LOAD 
     &                           +aWght*rbcs1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 258 RBCS_FIELDS_LOAD 
            DO j=1-Oly,sNy+Oly
./pkg/rbcs/rbcs_fields_load.F 260 RBCS_FIELDS_LOAD 
               RBC_ptracers(i,j,k,bi,bj,iTracer) =
./pkg/rbcs/rbcs_fields_load.F 261 RBCS_FIELDS_LOAD 
     &                      bWght*rbcptr0(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_fields_load.F 262 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 78 RBCS_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./pkg/rbcs/rbcs_fields_load.F 80 RBCS_FIELDS_LOAD 
             rbct0(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 81 RBCS_FIELDS_LOAD 
             rbcs0(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 82 RBCS_FIELDS_LOAD 
             rbct1(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 83 RBCS_FIELDS_LOAD 
             rbcs1(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 94 RBCS_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./pkg/rbcs/rbcs_fields_load.F 96 RBCS_FIELDS_LOAD 
             rbcptr0(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 97 RBCS_FIELDS_LOAD 
             rbcptr1(i,j,k,bi,bj,iTracer)=0. _d 0
./model/src/diags_oceanic_surf_flux.F 114 DIAGS_OCEANIC_SURF_FLUX 
         DO j = 1,sNy
./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 127 DIAGS_OCEANIC_SURF_FLUX 
          DO j=1,sNy
./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 144 DIAGS_OCEANIC_SURF_FLUX 
         DO j = 1,sNy
./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 154 DIAGS_OCEANIC_SURF_FLUX 
          DO j=1,sNy
./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/rbcs/rbcs_init_fixed.F 32 RBCS_INIT_FIXED 
      INTEGER i,j,k,bi,bj
./pkg/rbcs/rbcs_init_fixed.F 44 RBCS_INIT_FIXED 
            DO j=1-Oly,sNy+OLy
./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 40 RBCS_INIT_VARIA 
            DO j=1-Oly,sNy+OLy
./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 60 RBCS_INIT_VARIA 
             DO j=1-Oly,sNy+OLy
./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
./model/src/diags_phi_hyd.F 53 DIAGS_PHI_HYD 
      INTEGER i,j
./model/src/diags_phi_hyd.F 55 DIAGS_PHI_HYD 
        DO j=jMin,jMax
./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)
./model/src/diags_phi_rlow.F 103 DIAGS_PHI_RLOW 
         DO j=jMin,jMax
./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 127 DIAGS_PHI_RLOW 
        DO j=jMin,jMax
./model/src/diags_phi_rlow.F 129 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) = phiHydF(i,j)
./model/src/diags_phi_rlow.F 137 DIAGS_PHI_RLOW 
        DO j=jMin,jMax
./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 146 DIAGS_PHI_RLOW 
        DO j=jMin,jMax
./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 75 DIAGS_PHI_RLOW 
         DO j=1-Oly,sNy+Oly
./model/src/diags_phi_rlow.F 77 DIAGS_PHI_RLOW 
            phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/diags_phi_rlow.F 85 DIAGS_PHI_RLOW 
         DO j=jMin,jMax
./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/rw/read_mflds.F 114 READ_MFLDS_SET 
      INTEGER i, j, ioUnit
./pkg/rw/read_mflds.F 204 READ_MFLDS_SET 
        DO j=1,nDims
./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 211 READ_MFLDS_SET 
        DO j=1,nFlds,20
./pkg/rw/read_mflds.F 213 READ_MFLDS_SET 
     &     (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) )
./pkg/rw/read_mflds.F 279 READ_MFLDS_3D_RL 
      INTEGER j, iL, ioUnit
./pkg/rw/read_mflds.F 302 READ_MFLDS_3D_RL 
        DO j=1,nFlds
./pkg/rw/read_mflds.F 303 READ_MFLDS_3D_RL 
          IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j
./pkg/rw/read_mflds.F 309 READ_MFLDS_3D_RL 
          j = MIN(nMissFld,sizFldList)
./pkg/rw/read_mflds.F 310 READ_MFLDS_3D_RL 
          fldMiss(j) = fldName
./pkg/rw/read_mflds.F 321 READ_MFLDS_3D_RL 
          j = nj
./pkg/rw/read_mflds.F 325 READ_MFLDS_3D_RL 
     &       'read field: "',fldName,'", #',j,' in fldList, rec=',nj
./pkg/rw/read_mflds.F 406 READ_MFLDS_LEV_RL 
      INTEGER j, iL, ioUnit
./pkg/rw/read_mflds.F 429 READ_MFLDS_LEV_RL 
        DO j=1,nFlds
./pkg/rw/read_mflds.F 430 READ_MFLDS_LEV_RL 
          IF ( fldName.EQ.fldList(j) .AND. nj.EQ.0 ) nj = j
./pkg/rw/read_mflds.F 436 READ_MFLDS_LEV_RL 
          j = MIN(nMissFld,sizFldList)
./pkg/rw/read_mflds.F 437 READ_MFLDS_LEV_RL 
          fldMiss(j) = fldName
./pkg/rw/read_mflds.F 448 READ_MFLDS_LEV_RL 
          j = nj
./pkg/rw/read_mflds.F 452 READ_MFLDS_LEV_RL 
     &       'read field: "',fldName,'", #',j,' in fldList, rec=',nj
./pkg/rw/read_mflds.F 526 READ_MFLDS_CHECK 
      INTEGER i, j, nj, iL, ioUnit
./pkg/rw/read_mflds.F 543 READ_MFLDS_CHECK 
      DO j=1,nbErr
./pkg/rw/read_mflds.F 544 READ_MFLDS_CHECK 
       errList(j) = ' '
./pkg/rw/read_mflds.F 561 READ_MFLDS_CHECK 
         DO j=1,nFlds,20
./pkg/rw/read_mflds.F 563 READ_MFLDS_CHECK 
     &     (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) )
./pkg/rw/read_mflds.F 570 READ_MFLDS_CHECK 
         DO j=1,nj,20
./pkg/rw/read_mflds.F 572 READ_MFLDS_CHECK 
     &     (' >', fldMiss(i), '<', i=j,MIN(j+19,nj) )
./pkg/rw/read_mflds.F 586 READ_MFLDS_CHECK 
         DO j=1,nj
./pkg/rw/read_mflds.F 587 READ_MFLDS_CHECK 
          errList(j) = fldMiss(j)
./model/src/diags_rho.F 131 DIAGS_RHO_G 
      INTEGER i,j
./model/src/diags_rho.F 150 DIAGS_RHO_G 
          DO j=1,sNy
./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 167 DIAGS_RHO_G 
          DO j=1,sNy+1
./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 66 DIAGS_RHO_L 
        DO j=1,sNy
./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 72 DIAGS_RHO_L 
        DO j=1,sNy
./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/rw/write_fld_s3d_rl.F 57 WRITE_FLD_S3D_RL 
      INTEGER i,j,k,bi,bj
./pkg/rw/write_fld_s3d_rl.F 90 WRITE_FLD_S3D_RL 
          DO j=1,sNy
./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 90 WRITE_FLD_S3D_RS 
          DO j=1,sNy
./pkg/rw/write_fld_s3d_rs.F 92 WRITE_FLD_S3D_RS 
            locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_calc_depth.F 105 SALT_PLUME_CALC_DEPTH 
         DO j=1-Oly,sNy+Oly
./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 126 SALT_PLUME_CALC_DEPTH 
        DO j=1-Oly,sNy+Oly
./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 59 SALT_PLUME_CALC_DEPTH 
      DO j=1-Oly,sNy+Oly
./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 69 SALT_PLUME_CALC_DEPTH 
       DO j=1-Oly,sNy+Oly
./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 83 SALT_PLUME_CALC_DEPTH 
        DO j=1-Oly,sNy+Oly
./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)
./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 57 SALT_PLUME_FORCING_SURF 
      DO j = jMin, jMax
./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_init_varia.F 28 SALT_PLUME_INIT_VARIA 
      INTEGER i,j,bi,bj
./pkg/salt_plume/salt_plume_init_varia.F 35 SALT_PLUME_INIT_VARIA 
        DO j=1-Oly,sNy+OLy
./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 43 SALT_PLUME_TENDENCY_APPLY_S 
      do j=jMin,jMax
./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 187 SBO_CALC 
         DO j = 1-OLy, sNy+OLy
./pkg/sbo/sbo_calc.F 189 SBO_CALC 
            obp(i,j,bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 210 SBO_CALC 
          DO j = 1, sNy
./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 299 SBO_CALC 
        DO j = 1, sNy
./pkg/sbo/sbo_calc.F 301 SBO_CALC 
            sbobp = sbobp + obp(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/do_oceanic_phys.F 106 DO_OCEANIC_PHYS 
      INTEGER i, j, k
./model/src/do_oceanic_phys.F 140 DO_OCEANIC_PHYS 
         DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F 166 DO_OCEANIC_PHYS 
        DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F 168 DO_OCEANIC_PHYS 
          saltPlumeDepth(i,j,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F 169 DO_OCEANIC_PHYS 
          saltPlumeFlux(i,j,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 368 DO_OCEANIC_PHYS 
        DO j=1-OLy,sNy+OLy
./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 377 DO_OCEANIC_PHYS 
         DO j=1-OLy,sNy+OLy
./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 490 DO_OCEANIC_PHYS 
           DO j=1-OLy,sNy+OLy
./model/src/do_oceanic_phys.F 492 DO_OCEANIC_PHYS 
              rhoInSitu(i,j,k,bi,bj) = 0.
./model/src/do_oceanic_phys.F 522 DO_OCEANIC_PHYS 
            DO j=jMin,jMax
./model/src/do_oceanic_phys.F 524 DO_OCEANIC_PHYS 
              rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj)
./pkg/seaice/advect.F 111 ADVECT 
     &           *   UI(I  ,J,  bi,bj) )*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F 119 ADVECT 
     &           * _dxG(I,J,bi,bj))*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F 144 ADVECT 
     &           )*recip_rA(I,J,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F 159 ADVECT 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F 161 ADVECT 
          tmpFld(i,j,bi,bj)=fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F 175 ADVECT 
          DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F 187 ADVECT 
          DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F 200 ADVECT 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F 202 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 51 ADVECT 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/advect.F 53 ADVECT 
          fldNm1(i,j,bi,bj) = fld(I,J,bi,bj)
./pkg/seaice/advect.F 75 ADVECT 
          DO j=1-OLy,sNy+OLy
./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 111 COST_ICE_TEST 
                  do j = 1,sny
./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 145 COST_ICE_TEST 
              do j = 1,sny
./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 161 COST_ICE_TEST 
              do j = 1,sny
./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 176 COST_ICE_TEST 
              do j = 1,sny
./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 198 COST_ICE_TEST 
                  do j = 1,sny
./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 98 COST_ICE_TEST 
                  do j = 1,sny
./pkg/seaice/diffus.F 113 DIFFUS 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/diffus.F 34 DIFFUS 
      INTEGER i, j, bi, bj
./pkg/seaice/diffus.F 45 DIFFUS 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/diffus.F 53 DIFFUS 
        DO j=1,sNy
./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 115 DYNSOLVER 
        DO j=1,sNy
./pkg/seaice/dynsolver.F 161 DYNSOLVER 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/dynsolver.F 163 DYNSOLVER 
            phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/dynsolver.F 169 DYNSOLVER 
          DO j=1-Oly,sNy+Oly
./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 178 DYNSOLVER 
          DO j=1-Oly,sNy+Oly
./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 186 DYNSOLVER 
        DO j=1-Oly+1,sNy+Oly
./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 205 DYNSOLVER 
        DO j=1,sNy
./pkg/seaice/dynsolver.F 248 DYNSOLVER 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F 261 DYNSOLVER 
        DO j=1,sNy
./pkg/seaice/dynsolver.F 313 DYNSOLVER 
        DO j=1,sNy
./pkg/seaice/dynsolver.F 367 DYNSOLVER 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F 380 DYNSOLVER 
        DO j=1,sNy
./pkg/seaice/dynsolver.F 432 DYNSOLVER 
        DO j=1,sNy
./pkg/seaice/dynsolver.F 507 DYNSOLVER 
        DO j=1-OLy,sNy+OLy
./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 529 DYNSOLVER 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/dynsolver.F 52 DYNSOLVER 
      INTEGER i, j, bi, bj, kii
./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 77 DYNSOLVER 
        DO j=0,sNy+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 98 DYNSOLVER 
        DO j=1,sNy
./pkg/seaice/lsr.F 115 LSR 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/lsr.F 127 LSR 
        DO j=1-Oly+1,sNy+Oly
./pkg/seaice/lsr.F 191 LSR 
        DO j=1-Oly,sNy+Oly-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 434 LSR 
        DO j=1-Oly,sNy+Oly-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 33 OSTRES 
      INTEGER i, j, bi, bj
./pkg/seaice/ostres.F 53 OSTRES 
        DO j=1,sNy
./pkg/seaice/ostres.F 70 OSTRES 
        DO j=1,sNy
./pkg/seaice/seaice_advdiff.F 100 SEAICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly-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 155 SEAICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_advdiff.F 158 SEAICE_ADVDIFF 
          gFld(i,j)       = 0. _d 0
./pkg/seaice/seaice_advdiff.F 163 SEAICE_ADVDIFF 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advdiff.F 165 SEAICE_ADVDIFF 
          HEFFNM1(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 166 SEAICE_ADVDIFF 
          AREANM1(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 167 SEAICE_ADVDIFF 
          recip_heff(i,j)    = 1. _d 0
./pkg/seaice/seaice_advdiff.F 172 SEAICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_advdiff.F 174 SEAICE_ADVDIFF 
          xA(i,j) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 175 SEAICE_ADVDIFF 
          yA(i,j) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 179 SEAICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_advdiff.F 181 SEAICE_ADVDIFF 
          uTrans(i,j) = uc(i,j,bi,bj)*xA(i,j)
./pkg/seaice/seaice_advdiff.F 182 SEAICE_ADVDIFF 
          vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j)
./pkg/seaice/seaice_advdiff.F 203 SEAICE_ADVDIFF 
         DO j=1,sNy
./pkg/seaice/seaice_advdiff.F 205 SEAICE_ADVDIFF 
           HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 206 SEAICE_ADVDIFF 
     &          HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 229 SEAICE_ADVDIFF 
         DO j=1,sNy
./pkg/seaice/seaice_advdiff.F 231 SEAICE_ADVDIFF 
           AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 232 SEAICE_ADVDIFF 
     &          AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 255 SEAICE_ADVDIFF 
         DO j=1,sNy
./pkg/seaice/seaice_advdiff.F 257 SEAICE_ADVDIFF 
           HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 258 SEAICE_ADVDIFF 
     &          HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 282 SEAICE_ADVDIFF 
         DO j=1,sNy
./pkg/seaice/seaice_advdiff.F 284 SEAICE_ADVDIFF 
           HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 285 SEAICE_ADVDIFF 
     &          HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 310 SEAICE_ADVDIFF 
         DO j=1,sNy
./pkg/seaice/seaice_advdiff.F 312 SEAICE_ADVDIFF 
           IceAge(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 313 SEAICE_ADVDIFF 
     &          IceAge(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 366 SEAICE_ADVDIFF 
         DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_advdiff.F 386 SEAICE_ADVDIFF 
             IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj) +
./pkg/seaice/seaice_advdiff.F 389 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 92 SEAICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./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 183 SEAICE_ADVECTION 
      DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F 185 SEAICE_ADVECTION 
        localTij(i,j) = 0. _d 0
./pkg/seaice/seaice_advection.F 236 SEAICE_ADVECTION 
      DO j=1-OLy,sNy+OLy
./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 246 SEAICE_ADVECTION 
       DO j=1-OLy,sNy+OLy
./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 318 SEAICE_ADVECTION 
         DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_advection.F 320 SEAICE_ADVECTION 
           af(i,j) = 0.
./pkg/seaice/seaice_advection.F 347 SEAICE_ADVECTION 
            j=MIN(11,sNy)
./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 397 SEAICE_ADVECTION 
          DO j=1-OLy,0
./pkg/seaice/seaice_advection.F 399 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 400 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 407 SEAICE_ADVECTION 
          DO j=1-OLy,0
./pkg/seaice/seaice_advection.F 409 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 410 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 419 SEAICE_ADVECTION 
          DO j=sNy+1,sNy+OLy
./pkg/seaice/seaice_advection.F 421 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 422 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 429 SEAICE_ADVECTION 
          DO j=sNy+1,sNy+OLy
./pkg/seaice/seaice_advection.F 431 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 432 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 442 SEAICE_ADVECTION 
          DO j=1-OLy,0
./pkg/seaice/seaice_advection.F 444 SEAICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 449 SEAICE_ADVECTION 
          DO j=sNy+1,sNy+OLy
./pkg/seaice/seaice_advection.F 451 SEAICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 463 SEAICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F 465 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 466 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 473 SEAICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F 475 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 476 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 485 SEAICE_ADVECTION 
         DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F 487 SEAICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 517 SEAICE_ADVECTION 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F 519 SEAICE_ADVECTION 
           af(i,j) = 0.
./pkg/seaice/seaice_advection.F 546 SEAICE_ADVECTION 
            j=MIN(11,sNy)
./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 596 SEAICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F 598 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 599 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 606 SEAICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F 608 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 609 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 618 SEAICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F 620 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 621 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 628 SEAICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/seaice/seaice_advection.F 630 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 631 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 641 SEAICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_advection.F 643 SEAICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 648 SEAICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_advection.F 650 SEAICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 662 SEAICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_advection.F 664 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 665 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 672 SEAICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy-1
./pkg/seaice/seaice_advection.F 674 SEAICE_ADVECTION 
            localTij(i,j)=localTij(i,j)
./pkg/seaice/seaice_advection.F 675 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,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 684 SEAICE_ADVECTION 
         DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_advection.F 686 SEAICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/seaice/seaice_advection.F 700 SEAICE_ADVECTION 
      DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_advection.F 702 SEAICE_ADVECTION 
        gFld(i,j)=(localTij(i,j)-iceFld(i,j))/SEAICE_deltaTtherm
./pkg/seaice/seaice_advection.F 707 SEAICE_ADVECTION 
       j=MIN(11,sNy)
./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_if.F 74 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 125 SEAICE_BUDGET_OCEAN_IF 
     &        i,j, netHeatFlux(I,J),     SWHeatFlux(I,J)
./pkg/seaice/seaice_budget_ocean_if.F 56 SEAICE_BUDGET_OCEAN_IF 
      INTEGER i, j
./pkg/seaice/seaice_calc_strainrates.F 104 SEAICE_CALC_STRAINRATES 
        DO j=1-Oly+1,sNy+Oly
./pkg/seaice/seaice_calc_strainrates.F 112 SEAICE_CALC_STRAINRATES 
        DO j=1-Oly+1,sNy+Oly
./pkg/seaice/seaice_calc_strainrates.F 114 SEAICE_CALC_STRAINRATES 
          hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 115 SEAICE_CALC_STRAINRATES 
          hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 53 SEAICE_CALC_STRAINRATES 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_calc_strainrates.F 74 SEAICE_CALC_STRAINRATES 
        DO j=1-Oly,sNy+Oly-1
./pkg/seaice/seaice_calc_strainrates.F 81 SEAICE_CALC_STRAINRATES 
        DO j=1-Oly,sNy+Oly-1
./pkg/seaice/seaice_calc_strainrates.F 89 SEAICE_CALC_STRAINRATES 
        DO j=1-Oly,sNy+Oly-1
./pkg/seaice/seaice_calc_strainrates.F 97 SEAICE_CALC_STRAINRATES 
        DO j=1-Oly+1,sNy+Oly
./pkg/seaice/seaice_calc_viscosities.F 109 SEAICE_CALC_VISCOSITIES 
         DO j=1-Oly+1,sNy+Oly-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 78 SEAICE_CALC_VISCOSITIES 
        DO j=1-Oly+1,sNy+Oly-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 84 SEAICE_CALC_VISCOSITIES 
        DO j=1-Oly+1,sNy+Oly-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)
./pkg/seaice/seaice_check_pickup.F 59 SEAICE_CHECK_PICKUP 
      INTEGER i,j,k,bi,bj
./pkg/seaice/seaice_check_pickup.F 93 SEAICE_CHECK_PICKUP 
              DO j=1-OLy,sNy+OLy
./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 52 SEAICE_COST_ACCUMULATE_MEAN 
         DO j=1,sNy
./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 242 SEAICE_COST_CONCENTRATION 
                do j = jmin,jmax
./pkg/seaice/seaice_cost_concentration.F 244 SEAICE_COST_CONCENTRATION 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_concentration.F 256 SEAICE_COST_CONCENTRATION 
              do j = jmin,jmax
./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 292 SEAICE_COST_CONCENTRATION 
     &              (j == SEAICE_debugPointY)) then
./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 316 SEAICE_COST_CONCENTRATION 
                  do j = jmin,jmax
./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 334 SEAICE_COST_CONCENTRATION 
             do j = jmin,jmax
./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 347 SEAICE_COST_CONCENTRATION 
             do j = jmin,jmax
./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 361 SEAICE_COST_CONCENTRATION 
     &              (j == SEAICE_debugPointY)) then
./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 50 SEAICE_COST_EXPORT 
           do j=1,sNy
./pkg/seaice/seaice_cost_export.F 51 SEAICE_COST_EXPORT 
            jg = myYGlobalLo-1+(bj-1)*sNy+j
./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 79 SEAICE_COST_INIT_VARIA 
          do j = jmin,jmax
./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 260 SEAICE_COST_SSS 
                do j = jmin,jmax
./pkg/seaice/seaice_cost_sss.F 262 SEAICE_COST_SSS 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sss.F 276 SEAICE_COST_SSS 
                  do j = jmin,jmax
./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 294 SEAICE_COST_SSS 
             do j = jmin,jmax
./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 307 SEAICE_COST_SSS 
             do j = jmin,jmax
./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 330 SEAICE_COST_SSS 
     &              (j == SEAICE_debugPointY)) then
./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 255 SEAICE_COST_SST 
                do j = jmin,jmax
./pkg/seaice/seaice_cost_sst.F 257 SEAICE_COST_SST 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sst.F 271 SEAICE_COST_SST 
                  do j = jmin,jmax
./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 289 SEAICE_COST_SST 
             do j = jmin,jmax
./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 302 SEAICE_COST_SST 
             do j = jmin,jmax
./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 321 SEAICE_COST_SST 
     &              (j == SEAICE_debugPointY)) then
./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 108 SEAICE_COST_WEIGHTS 
             do j = jmin,jmax
./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 119 SEAICE_COST_WEIGHTS 
             do j = jmin,jmax
./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 131 SEAICE_COST_WEIGHTS 
          do j = jmin,jmax
./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 72 SEAICE_COST_WEIGHTS 
      do j = jmin,jmax
./pkg/seaice/seaice_cost_weights.F 75 SEAICE_COST_WEIGHTS 
          if ( (j .lt. 1) .or. (j .gt. sny) .or.
./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 88 SEAICE_COST_WEIGHTS 
          do j = jmin,jmax
./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 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 119 SEAICE_CTRL_MAP_INI 
            do j = jmin,jmax
./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 139 SEAICE_CTRL_MAP_INI 
            do j = jmin,jmax
./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_ctrl_map_ini.F 99 SEAICE_CTRL_MAP_INI 
            do j = jmin,jmax
./pkg/seaice/seaice_diagnostics_state.F 116 SEAICE_DIAGNOSTICS_STATE 
           DO j=1,sNy
./pkg/seaice/seaice_diagnostics_state.F 150 SEAICE_DIAGNOSTICS_STATE 
           DO j=1,sNy
./pkg/seaice/seaice_diagnostics_state.F 181 SEAICE_DIAGNOSTICS_STATE 
           DO j = 1,sNy
./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 200 SEAICE_DIAGNOSTICS_STATE 
           DO j = 1,sNy+1
./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 71 SEAICE_DIAGNOSTICS_STATE 
          DO j=1,sNy
./pkg/seaice/seaice_diagnostics_state.F 79 SEAICE_DIAGNOSTICS_STATE 
           DO j=1,sNy
./pkg/seaice/seaice_diffusion.F 62 SEAICE_DIFFUSION 
      INTEGER i, j, k
./pkg/seaice/seaice_diffusion.F 75 SEAICE_DIFFUSION 
        DO j=1-Oly,sNy+Oly
./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 92 SEAICE_DIFFUSION 
        DO j=1-Oly,sNy+Oly-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 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 115 SEAICE_DYNSOLVER 
         DO j=1-Oly+1,sNy+Oly
./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 145 SEAICE_DYNSOLVER 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_dynsolver.F 174 SEAICE_DYNSOLVER 
        DO j=1-Oly,sNy+Oly
./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 182 SEAICE_DYNSOLVER 
          DO j=1-Oly,sNy+Oly
./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 191 SEAICE_DYNSOLVER 
          DO j=1-Oly,sNy+Oly
./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 199 SEAICE_DYNSOLVER 
        DO j=1-Oly+1,sNy+Oly
./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 211 SEAICE_DYNSOLVER 
        DO j=1-Oly,sNy+Oly
./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 252 SEAICE_DYNSOLVER 
          DO j=1-OLy+2,sNy+OLy-2
./pkg/seaice/seaice_dynsolver.F 254 SEAICE_DYNSOLVER 
            uice(i,j,bi,bj)=uice_fd(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 255 SEAICE_DYNSOLVER 
            vice(i,j,bi,bj)=vice_fd(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 322 SEAICE_DYNSOLVER 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_dynsolver.F 324 SEAICE_DYNSOLVER 
           uIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 325 SEAICE_DYNSOLVER 
     &          MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F 326 SEAICE_DYNSOLVER 
           vIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 327 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 62 SEAICE_DYNSOLVER 
        DO j=1-Oly+1,sNy+Oly
./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_dynsolver.F 99 SEAICE_DYNSOLVER 
        DO j=1-Oly+1,sNy+Oly
./pkg/seaice/seaice_evp.F 124 SEAICE_EVP 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_evp.F 144 SEAICE_EVP 
         DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_evp.F 188 SEAICE_EVP 
          DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_evp.F 200 SEAICE_EVP 
          DO j=1-Oly,sNy+Oly
./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 206 SEAICE_EVP 
          DO j=0,sNy+1
./pkg/seaice/seaice_evp.F 255 SEAICE_EVP 
          DO j=0,sNy+1
./pkg/seaice/seaice_evp.F 274 SEAICE_EVP 
          DO j=0,sNy+1
./pkg/seaice/seaice_evp.F 282 SEAICE_EVP 
           DO j=1,sNy
./pkg/seaice/seaice_evp.F 298 SEAICE_EVP 
           DO j=0,sNy+1
./pkg/seaice/seaice_evp.F 339 SEAICE_EVP 
           DO j=0,sNy+1
./pkg/seaice/seaice_evp.F 354 SEAICE_EVP 
          DO j=0,sNy
./pkg/seaice/seaice_evp.F 376 SEAICE_EVP 
          DO j=1,sNy+1
./pkg/seaice/seaice_evp.F 454 SEAICE_EVP 
          DO j=1,sNy
./pkg/seaice/seaice_evp.F 62 SEAICE_EVP 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_freedrift.F 147 SEAICE_FREEDRIFT 
           uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*cos(sol_a)
./pkg/seaice/seaice_freedrift.F 148 SEAICE_FREEDRIFT 
           vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*sin(sol_a)
./pkg/seaice/seaice_freedrift.F 163 SEAICE_FREEDRIFT 
         DO j=1,sNy
./pkg/seaice/seaice_freedrift.F 165 SEAICE_FREEDRIFT 
           uice_fd(i,j,bi,bj)=HALF*
./pkg/seaice/seaice_freedrift.F 166 SEAICE_FREEDRIFT 
     &       (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj))
./pkg/seaice/seaice_freedrift.F 167 SEAICE_FREEDRIFT 
           vice_fd(i,j,bi,bj)=HALF*
./pkg/seaice/seaice_freedrift.F 168 SEAICE_FREEDRIFT 
     &       (vice_cntr(i,j-1,bi,bj)+vice_cntr(i,j,bi,bj))
./pkg/seaice/seaice_freedrift.F 179 SEAICE_FREEDRIFT 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_freedrift.F 181 SEAICE_FREEDRIFT 
          uIce_fd(i,j,bi,bj)=uIce_fd(i,j,bi,bj)* _maskW(i,j,kSrf,bi,bj)
./pkg/seaice/seaice_freedrift.F 182 SEAICE_FREEDRIFT 
          vIce_fd(i,j,bi,bj)=vIce_fd(i,j,bi,bj)* _maskS(i,j,kSrf,bi,bj)
./pkg/seaice/seaice_freedrift.F 40 SEAICE_FREEDRIFT 
      INTEGER i, j, kSrf, bi, bj
./pkg/seaice/seaice_freedrift.F 58 SEAICE_FREEDRIFT 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_freedrift.F 60 SEAICE_FREEDRIFT 
           uice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 61 SEAICE_FREEDRIFT 
           vice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 62 SEAICE_FREEDRIFT 
           uice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 63 SEAICE_FREEDRIFT 
           Vice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 74 SEAICE_FREEDRIFT 
         DO j=1,sNy
./pkg/seaice/seaice_freedrift.F 87 SEAICE_FREEDRIFT 
     &       tmpscal1*HALF*(TAUX(i,j,bi,bj)+TAUX(i+1,j,bi,bj))
./pkg/seaice/seaice_freedrift.F 89 SEAICE_FREEDRIFT 
     &       tmpscal1*HALF*(TAUY(i,j,bi,bj)+TAUY(i,j+1,bi,bj))
./pkg/seaice/seaice_freedrift.F 91 SEAICE_FREEDRIFT 
           mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj)
./pkg/seaice/seaice_freedrift.F 93 SEAICE_FREEDRIFT 
           uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj))
./pkg/seaice/seaice_freedrift.F 94 SEAICE_FREEDRIFT 
           vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 106 SEAICE_GET_DYNFORCING 
        DO j=1-Oly+1,sNy+Oly
./pkg/seaice/seaice_get_dynforcing.F 116 SEAICE_GET_DYNFORCING 
         DO j=1-Oly,sNy+Oly
./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 138 SEAICE_GET_DYNFORCING 
         DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_get_dynforcing.F 157 SEAICE_GET_DYNFORCING 
         DO j=1-Oly+1,sNy+Oly
./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 198 SEAICE_GET_DYNFORCING 
         DO j=1-Oly+1,sNy+Oly
./pkg/seaice/seaice_get_dynforcing.F 228 SEAICE_GET_DYNFORCING 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_get_dynforcing.F 55 SEAICE_GET_DYNFORCING 
      INTEGER bi, bj, i, j
./pkg/seaice/seaice_get_dynforcing.F 86 SEAICE_GET_DYNFORCING 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_growth.F 1064 SEAICE_GROWTH 
          IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR.
./pkg/seaice/seaice_growth.F 1065 SEAICE_GROWTH 
     &        (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN
./pkg/seaice/seaice_growth.F 1124 SEAICE_GROWTH 
          tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1165 SEAICE_GROWTH 
     &            *SEAICE_salinity*salt(I,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1171 SEAICE_GROWTH 
     &            *(1-SEAICE_salinity)*salt(I,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1176 SEAICE_GROWTH 
     &             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1187 SEAICE_GROWTH 
             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1203 SEAICE_GROWTH 
             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1332 SEAICE_GROWTH 
           IF ( AREA(i,j,bi,bj) .LT. AREApreTH(i,j) ) THEN
./pkg/seaice/seaice_growth.F 1334 SEAICE_GROWTH 
            IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 1335 SEAICE_GROWTH 
     &         *AREA(i,j,bi,bj)/AREApreTH(i,j)
./pkg/seaice/seaice_growth.F 1338 SEAICE_GROWTH 
           IceAge(i,j,bi,bj) = IceAge(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 1339 SEAICE_GROWTH 
     &        + AREA(i,j,bi,bj) * SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 1341 SEAICE_GROWTH 
           IceAge(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_growth.F 1352 SEAICE_GROWTH 
          IF (AREApreTH(i,j).GT.0. _d 0) THEN
./pkg/seaice/seaice_growth.F 1353 SEAICE_GROWTH 
           tmpscal1=IceAge(i,j,bi,bj)/AREApreTH(i,j)
./pkg/seaice/seaice_growth.F 1357 SEAICE_GROWTH 
          IF ( (HEFFpreTH(i,j).LT.HEFF(i,j,bi,bj)).AND.
./pkg/seaice/seaice_growth.F 1358 SEAICE_GROWTH 
     &         (AREA(i,j,bi,bj).GT.0.15) ) THEN
./pkg/seaice/seaice_growth.F 1359 SEAICE_GROWTH 
           tmpscal2=tmpscal1*HEFFpreTH(i,j)/
./pkg/seaice/seaice_growth.F 1360 SEAICE_GROWTH 
     &          HEFF(i,j,bi,bj)+SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 1361 SEAICE_GROWTH 
          ELSEIF (AREA(i,j,bi,bj).LE.0.15) THEN
./pkg/seaice/seaice_growth.F 1367 SEAICE_GROWTH 
          IceAge(i,j,bi,bj) = tmpscal2*AREA(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 1492 SEAICE_GROWTH 
           sIceLoad(i,j,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 380 SEAICE_GROWTH 
          IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND.
./pkg/seaice/seaice_growth.F 381 SEAICE_GROWTH 
     &        (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0
./pkg/seaice/seaice_growth.F 392 SEAICE_GROWTH 
          IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0))
./pkg/seaice/seaice_growth.F 536 SEAICE_GROWTH 
     &          +0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 537 SEAICE_GROWTH 
     &                    +uVel(i+1,j,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 538 SEAICE_GROWTH 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2
./pkg/seaice/seaice_growth.F 540 SEAICE_GROWTH 
     &          +0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 541 SEAICE_GROWTH 
     &                    +vVel(i,j+1,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 542 SEAICE_GROWTH 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2
./pkg/seaice/seaice_growth.F 711 SEAICE_GROWTH 
              a_QbyOCN(i,j) = -SEAICE_availHeatFrac
./pkg/seaice/seaice_growth.F 713 SEAICE_GROWTH 
     &             * hFacC(i,j,kSurface,bi,bj) *
./pkg/seaice/seaice_growth.F 716 SEAICE_GROWTH 
              a_QbyOCN(i,j) = -SEAICE_availHeatFracFrz
./pkg/seaice/seaice_growth.F 718 SEAICE_GROWTH 
     &             * hFacC(i,j,kSurface,bi,bj) *
./pkg/seaice/seaice_growth.F 722 SEAICE_GROWTH 
           a_QbyOCN(i,j) = 0.
./pkg/seaice/seaice_growth.F 724 SEAICE_GROWTH 
           r_QbyOCN(i,j) = a_QbyOCN(i,j)
./pkg/seaice/seaice_growth.F 749 SEAICE_GROWTH 
          d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 87 SEAICE_GROWTH 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_growth.F 914 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 944 SEAICE_GROWTH 
            tmpscal1=r_QbyATM_open(I,J)+r_QbyOCN(i,j)
./pkg/seaice/seaice_growth_if.F 1081 SEAICE_GROWTH_IF 
                     sIceLoad(i,j,bi,bj) = HEFF(I,J,bi,bj)*
./pkg/seaice/seaice_growth_if.F 1089 SEAICE_GROWTH_IF 
            DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_growth_if.F 1093 SEAICE_GROWTH_IF 
     &              (j .EQ. SEAICE_debugPointY) ) THEN
./pkg/seaice/seaice_growth_if.F 1098 SEAICE_GROWTH_IF 
     &                 'ifice i j --------------  ',i,j
./pkg/seaice/seaice_growth_if.F 1101 SEAICE_GROWTH_IF 
     &                 'ifice i j IGR(ML OW ICE)  ',i,j,
./pkg/seaice/seaice_growth_if.F 1102 SEAICE_GROWTH_IF 
     &                 IceGrowthRateMixedLayer(i,j),
./pkg/seaice/seaice_growth_if.F 1103 SEAICE_GROWTH_IF 
     &                 IceGrowthRateOpenWater(i,j),
./pkg/seaice/seaice_growth_if.F 1104 SEAICE_GROWTH_IF 
     &                 NetExistingIceGrowthRate(i,j),
./pkg/seaice/seaice_growth_if.F 1109 SEAICE_GROWTH_IF 
     &                 i,j,F_mi(i,j), F_ao(i,j)
./pkg/seaice/seaice_growth_if.F 1113 SEAICE_GROWTH_IF 
     &                 i,j,F_ia(i,j),
./pkg/seaice/seaice_growth_if.F 1114 SEAICE_GROWTH_IF 
     &                 F_ia_net_before_snow(i,j),
./pkg/seaice/seaice_growth_if.F 1115 SEAICE_GROWTH_IF 
     &                 F_ia_net(i,j),
./pkg/seaice/seaice_growth_if.F 1116 SEAICE_GROWTH_IF 
     &                 F_io_net(i,j)
./pkg/seaice/seaice_growth_if.F 1119 SEAICE_GROWTH_IF 
     &                 'ifice i j AREA2/1 HEFF2/1 ',i,j,
./pkg/seaice/seaice_growth_if.F 1121 SEAICE_GROWTH_IF 
     &                 AREA(i,j,bi,bj),
./pkg/seaice/seaice_growth_if.F 1123 SEAICE_GROWTH_IF 
     &                 HEFF(i,j,bi,bj)
./pkg/seaice/seaice_growth_if.F 1126 SEAICE_GROWTH_IF 
     &                 'ifice i j HSNOW2/1 TMX TBC',i,j,
./pkg/seaice/seaice_growth_if.F 1129 SEAICE_GROWTH_IF 
     &                 TMIX(i,j,bi,bj)- TMELT,
./pkg/seaice/seaice_growth_if.F 1133 SEAICE_GROWTH_IF 
     &                 'ifice i j TI ATP LWD      ',i,j,
./pkg/seaice/seaice_growth_if.F 1134 SEAICE_GROWTH_IF 
     &                 TICE(i,j,bi,bj) - TMELT,
./pkg/seaice/seaice_growth_if.F 1135 SEAICE_GROWTH_IF 
     &                 ATEMP(i,j,bi,bj) -TMELT,
./pkg/seaice/seaice_growth_if.F 1136 SEAICE_GROWTH_IF 
     &                 LWDOWN(i,j,bi,bj)
./pkg/seaice/seaice_growth_if.F 1140 SEAICE_GROWTH_IF 
     &                 'ifice i j S_a S_h S_hsnow ',i,j,
./pkg/seaice/seaice_growth_if.F 1141 SEAICE_GROWTH_IF 
     &                 S_a(i,j),
./pkg/seaice/seaice_growth_if.F 1142 SEAICE_GROWTH_IF 
     &                 S_h(i,j),
./pkg/seaice/seaice_growth_if.F 1143 SEAICE_GROWTH_IF 
     &                 S_hsnow(i,j)
./pkg/seaice/seaice_growth_if.F 1146 SEAICE_GROWTH_IF 
     &                 'ifice i j IVC(E A ENIN)   ',i,j,
./pkg/seaice/seaice_growth_if.F 1147 SEAICE_GROWTH_IF 
     &                 ExpectedIceVolumeChange(i,j),
./pkg/seaice/seaice_growth_if.F 1148 SEAICE_GROWTH_IF 
     &                 ActualNewTotalVolumeChange(i,j),
./pkg/seaice/seaice_growth_if.F 1149 SEAICE_GROWTH_IF 
     &                 EnergyInNewTotalIceVolume(i,j)
./pkg/seaice/seaice_growth_if.F 1152 SEAICE_GROWTH_IF 
     &                 'ifice i j EF(NOS RE) QNET ',i,j,
./pkg/seaice/seaice_growth_if.F 1153 SEAICE_GROWTH_IF 
     &                 NetEnergyFluxOutOfSystem(i,j),
./pkg/seaice/seaice_growth_if.F 1154 SEAICE_GROWTH_IF 
     &                 ResidualHeatOutOfSystem(i,j),
./pkg/seaice/seaice_growth_if.F 1158 SEAICE_GROWTH_IF 
     &                 'ifice i j QSW QSWO QSWI   ',i,j,
./pkg/seaice/seaice_growth_if.F 1159 SEAICE_GROWTH_IF 
     &                 QSW(i,j,bi,bj),
./pkg/seaice/seaice_growth_if.F 1160 SEAICE_GROWTH_IF 
     &                 QSWO(i,j),
./pkg/seaice/seaice_growth_if.F 1161 SEAICE_GROWTH_IF 
     &                 QSWI(i,j)
./pkg/seaice/seaice_growth_if.F 1164 SEAICE_GROWTH_IF 
     &                 'ifice i j SW(BML IML SW)  ',i,j,
./pkg/seaice/seaice_growth_if.F 1165 SEAICE_GROWTH_IF 
     &                 QSW_absorb_below_ML(i,j),
./pkg/seaice/seaice_growth_if.F 1166 SEAICE_GROWTH_IF 
     &                 QSW_absorb_in_ML(i,j),
./pkg/seaice/seaice_growth_if.F 1170 SEAICE_GROWTH_IF 
     &                 'ifice i j ptc(to, qsw, oa)',i,j,
./pkg/seaice/seaice_growth_if.F 1171 SEAICE_GROWTH_IF 
     &                 PredTempChange(i,j),
./pkg/seaice/seaice_growth_if.F 1172 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromQSW (i,j),
./pkg/seaice/seaice_growth_if.F 1173 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromOA_MQNET(i,j)
./pkg/seaice/seaice_growth_if.F 1177 SEAICE_GROWTH_IF 
     &                 'ifice i j ptc(fion,ian,ia)',i,j,
./pkg/seaice/seaice_growth_if.F 1178 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromF_IO_NET(i,j),
./pkg/seaice/seaice_growth_if.F 1179 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromF_IA_NET(i,j),
./pkg/seaice/seaice_growth_if.F 1180 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromFIA(i,j)
./pkg/seaice/seaice_growth_if.F 1183 SEAICE_GROWTH_IF 
     &                 'ifice i j ptc(niv)        ',i,j,
./pkg/seaice/seaice_growth_if.F 1184 SEAICE_GROWTH_IF 
     &                 PredTempChangeFromNewIceVol(i,j)
./pkg/seaice/seaice_growth_if.F 1188 SEAICE_GROWTH_IF 
     &                 'ifice i j EmPmR EVP PRE RU',i,j,
./pkg/seaice/seaice_growth_if.F 1195 SEAICE_GROWTH_IF 
     &                 'ifice i j PRROIS,SAOI(R .)',i,j,
./pkg/seaice/seaice_growth_if.F 1201 SEAICE_GROWTH_IF 
     &                 'ifice i j SM(PM PMR . .R) ',i,j,
./pkg/seaice/seaice_growth_if.F 1208 SEAICE_GROWTH_IF 
     &                 'ifice i j TotSnwMlt ExSnVC',i,j,
./pkg/seaice/seaice_growth_if.F 1214 SEAICE_GROWTH_IF 
     &                 'ifice i j fw(CFICE, CFSM) ',i,j,
./pkg/seaice/seaice_growth_if.F 1219 SEAICE_GROWTH_IF 
     &                 'ifice i j --------------  ',i,j
./pkg/seaice/seaice_growth_if.F 48 SEAICE_GROWTH_IF 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_growth_if.F 582 SEAICE_GROWTH_IF 
                  QSWO_BELOW_FIRST_LAYER(i,j)= QSWO(I,J)*SWFRACB
./pkg/seaice/seaice_growth_if.F 585 SEAICE_GROWTH_IF 
                  QSWO_BELOW_FIRST_LAYER(i,j)= 0. _d 0
./pkg/seaice/seaice_init_fixed.F 109 SEAICE_INIT_FIXED 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_fixed.F 123 SEAICE_INIT_FIXED 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_fixed.F 131 SEAICE_INIT_FIXED 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_fixed.F 138 SEAICE_INIT_FIXED 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_fixed.F 145 SEAICE_INIT_FIXED 
         DO j=1-OLy,sNy+OLy-1
./pkg/seaice/seaice_init_fixed.F 152 SEAICE_INIT_FIXED 
         DO j=1-OLy+1,sNy+OLy
./pkg/seaice/seaice_init_fixed.F 168 SEAICE_INIT_FIXED 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_fixed.F 170 SEAICE_INIT_FIXED 
          KGEO(i,j,bi,bj)   = 0
./pkg/seaice/seaice_init_fixed.F 173 SEAICE_INIT_FIXED 
        DO j=1-OLy,sNy+OLy
./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 80 SEAICE_INIT_FIXED 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_fixed.F 82 SEAICE_INIT_FIXED 
          HEFFM(i,j,bi,bj)       = 0. _d 0
./pkg/seaice/seaice_init_fixed.F 85 SEAICE_INIT_FIXED 
        DO j=1-OLy,sNy+OLy
./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 92 SEAICE_INIT_FIXED 
        DO j=1-OLy+1,sNy+OLy
./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 174 SEAICE_INIT_VARIA 
        DO j=1-OLy+1,sNy+OLy
./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 211 SEAICE_INIT_VARIA 
         DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_init_varia.F 213 SEAICE_INIT_VARIA 
          I_obc=OB_Iw(j,bi,bj)
./pkg/seaice/seaice_init_varia.F 216 SEAICE_INIT_VARIA 
           seaiceMaskU(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 217 SEAICE_INIT_VARIA 
           seaiceMaskV(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 219 SEAICE_INIT_VARIA 
           UVM(I_obc,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 237 SEAICE_INIT_VARIA 
          DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F 239 SEAICE_INIT_VARIA 
            UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 244 SEAICE_INIT_VARIA 
          DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F 245 SEAICE_INIT_VARIA 
           UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 248 SEAICE_INIT_VARIA 
          j=1
./pkg/seaice/seaice_init_varia.F 250 SEAICE_INIT_VARIA 
           UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 257 SEAICE_INIT_VARIA 
        DO j=1-OLy,sNy+OLy
./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 311 SEAICE_INIT_VARIA 
         DO j=1-OLy,sNy+OLy
./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 328 SEAICE_INIT_VARIA 
          DO j=1-OLy,sNy+OLy
./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 339 SEAICE_INIT_VARIA 
         DO j=1-OLy,sNy+OLy
./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 353 SEAICE_INIT_VARIA 
          DO j=1-OLy,sNy+OLy
./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 367 SEAICE_INIT_VARIA 
         DO j=1-OLy,sNy+OLy
./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 381 SEAICE_INIT_VARIA 
          DO j=1-OLy,sNy+OLy
./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 393 SEAICE_INIT_VARIA 
         DO j=1-OLy,sNy+OLy
./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 42 SEAICE_INIT_VARIA 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_init_varia.F 447 SEAICE_INIT_VARIA 
        DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F 449 SEAICE_INIT_VARIA 
          ZETA(i,j,bi,bj)   = HEFF(i,j,bi,bj)*(1.0 _d 11)
./pkg/seaice/seaice_init_varia.F 450 SEAICE_INIT_VARIA 
          ETA(i,j,bi,bj)    = ZETA(i,j,bi,bj)/SEAICE_eccen**2
./pkg/seaice/seaice_init_varia.F 451 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 452 SEAICE_INIT_VARIA 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_init_varia.F 454 SEAICE_INIT_VARIA 
          ZMIN(i,j,bi,bj)   = SEAICE_zetaMin
./pkg/seaice/seaice_init_varia.F 455 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 459 SEAICE_INIT_VARIA 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_init_varia.F 461 SEAICE_INIT_VARIA 
           sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_init_varia.F 462 SEAICE_INIT_VARIA 
     &                         + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow
./pkg/seaice/seaice_init_varia.F 67 SEAICE_INIT_VARIA 
        DO j=1-OLy,sNy+OLy
./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 82 SEAICE_INIT_VARIA 
         DO j=1-OLy,sNy+OLy
./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 89 SEAICE_INIT_VARIA 
        DO j=1-OLy,sNy+OLy
./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 150 SEAICE_LSR 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F 152 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 153 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 170 SEAICE_LSR 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F 172 SEAICE_LSR 
           uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 173 SEAICE_LSR 
           vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 185 SEAICE_LSR 
         DO j=1-OLy,sNy+OLy
./pkg/seaice/seaice_lsr.F 187 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 188 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 217 SEAICE_LSR 
        DO j=0,sNy+1
./pkg/seaice/seaice_lsr.F 273 SEAICE_LSR 
        DO j=1,sNy
./pkg/seaice/seaice_lsr.F 277 SEAICE_LSR 
     &         *uIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 280 SEAICE_LSR 
     &         *vIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 473 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) )
./pkg/seaice/seaice_lsr.F 475 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 57 SEAICE_LSR 
      INTEGER i, j, k, m, bi, bj, j1, j2, im, jm
./pkg/seaice/seaice_lsr.F 654 SEAICE_LSR 
          hFacM = seaiceMaskV(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 655 SEAICE_LSR 
          hFacP = seaiceMaskV(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 707 SEAICE_LSR 
          hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 731 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j  ,bi,bj)+uIceC(i+1,  j,bi,bj) )
./pkg/seaice/seaice_lsr.F 733 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 890 SEAICE_LSR 
         DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_lsr.F 898 SEAICE_LSR 
         DO j=0,sNy
./pkg/seaice/seaice_lsr.F 909 SEAICE_LSR 
         DO j=1,sNy+1
./pkg/seaice/seaice_lsr.F 944 SEAICE_LSR 
         DO j=1,sNy
./pkg/seaice/seaice_lsr.F 947 SEAICE_LSR 
     &          ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj))
./pkg/seaice/seaice_lsr.F 948 SEAICE_LSR 
     &            - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F 949 SEAICE_LSR 
     &          + ( (vIceNm1(i,j,bi,bj)+vIceNm1(i,j+1,bi,bj))
./pkg/seaice/seaice_lsr.F 950 SEAICE_LSR 
     &            - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F 951 SEAICE_LSR 
           IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN
./pkg/seaice/seaice_lsr.F 952 SEAICE_LSR 
            EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F 953 SEAICE_LSR 
     &           ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F 954 SEAICE_LSR 
     &           + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_map_thsice.F 41 SEAICE_MAP_THSICE 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_map_thsice.F 45 SEAICE_MAP_THSICE 
        DO j=1-Oly,sNy+Oly
./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 101 SEAICE_MODEL 
           HSALT(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 114 SEAICE_MODEL 
        DO j=1-Oly,sNy+Oly
./pkg/seaice/seaice_model.F 116 SEAICE_MODEL 
          HEFFNM1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 117 SEAICE_MODEL 
          AREANM1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 118 SEAICE_MODEL 
          uIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 119 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 91 SEAICE_MODEL 
        DO j=1-Oly,sNy+Oly
./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_model.F 99 SEAICE_MODEL 
           TICE(i,j,bi,bj) = celsius2K
./pkg/seaice/seaice_ocean_stress.F 40 SEAICE_OCEAN_STRESS 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_ocean_stress.F 92 SEAICE_OCEAN_STRESS 
        DO j=1,sNy
./pkg/seaice/seaice_output.F 155 SEAICE_OUTPUT 
         DO j=1,sNy
./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/seaice/seaice_solve4temp.F 105 SEAICE_SOLVE4TEMP 
      INTEGER i, j
./pkg/seaice/seaice_write_pickup.F 100 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 103 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siHSNOW '
./pkg/seaice/seaice_write_pickup.F 105 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 108 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siHSALT '
./pkg/seaice/seaice_write_pickup.F 111 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 114 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siAGE   '
./pkg/seaice/seaice_write_pickup.F 119 SEAICE_WRITE_PICKUP 
       j = j + 1
./pkg/seaice/seaice_write_pickup.F 122 SEAICE_WRITE_PICKUP 
       IF (j.LE.listDim)  wrFldList(j) = 'siUICE  '
./pkg/seaice/seaice_write_pickup.F 124 SEAICE_WRITE_PICKUP 
       j = j + 1
./pkg/seaice/seaice_write_pickup.F 127 SEAICE_WRITE_PICKUP 
       IF (j.LE.listDim)  wrFldList(j) = 'siVICE  '
./pkg/seaice/seaice_write_pickup.F 131 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 135 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siSigm1 '
./pkg/seaice/seaice_write_pickup.F 137 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 141 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siSigm2 '
./pkg/seaice/seaice_write_pickup.F 143 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 147 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siSigm12'
./pkg/seaice/seaice_write_pickup.F 151 SEAICE_WRITE_PICKUP 
       nWrFlds = j
./pkg/seaice/seaice_write_pickup.F 59 SEAICE_WRITE_PICKUP 
      INTEGER j, nj
./pkg/seaice/seaice_write_pickup.F 69 SEAICE_WRITE_PICKUP 
       j = 0
./pkg/seaice/seaice_write_pickup.F 76 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 79 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siTICES '
./pkg/seaice/seaice_write_pickup.F 83 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 86 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siTICE  '
./pkg/seaice/seaice_write_pickup.F 90 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 93 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siAREA  '
./pkg/seaice/seaice_write_pickup.F 95 SEAICE_WRITE_PICKUP 
        j = j + 1
./pkg/seaice/seaice_write_pickup.F 98 SEAICE_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'siHEFF  '
./model/src/dynamics.F 195 DYNAMICS 
      INTEGER i, j
./model/src/dynamics.F 305 DYNAMICS 
         DO j=1-OLy,sNy+OLy
./model/src/dynamics.F 307 DYNAMICS 
           KappaRU(i,j,k) = 0. _d 0
./model/src/dynamics.F 308 DYNAMICS 
           KappaRV(i,j,k) = 0. _d 0
./model/src/dynamics.F 312 DYNAMICS 
           gU(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 313 DYNAMICS 
           gV(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 318 DYNAMICS 
        DO j=1-OLy,sNy+OLy
./model/src/dynamics.F 320 DYNAMICS 
          fVerU  (i,j,1) = 0. _d 0
./model/src/dynamics.F 321 DYNAMICS 
          fVerU  (i,j,2) = 0. _d 0
./model/src/dynamics.F 322 DYNAMICS 
          fVerV  (i,j,1) = 0. _d 0
./model/src/dynamics.F 323 DYNAMICS 
          fVerV  (i,j,2) = 0. _d 0
./model/src/dynamics.F 324 DYNAMICS 
          phiHydF (i,j)  = 0. _d 0
./model/src/dynamics.F 325 DYNAMICS 
          phiHydC (i,j)  = 0. _d 0
./model/src/dynamics.F 327 DYNAMICS 
          dPhiHydX(i,j)  = 0. _d 0
./model/src/dynamics.F 328 DYNAMICS 
          dPhiHydY(i,j)  = 0. _d 0
./model/src/dynamics.F 330 DYNAMICS 
          phiSurfX(i,j)  = 0. _d 0
./model/src/dynamics.F 331 DYNAMICS 
          phiSurfY(i,j)  = 0. _d 0
./model/src/dynamics.F 332 DYNAMICS 
          guDissip(i,j)  = 0. _d 0
./model/src/dynamics.F 333 DYNAMICS 
          gvDissip(i,j)  = 0. _d 0
./model/src/dynamics.F 335 DYNAMICS 
          phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 338 DYNAMICS 
          dWtransC(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 339 DYNAMICS 
          dWtransU(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 340 DYNAMICS 
          dWtransV(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 385 DYNAMICS 
         DO j=1-OLy,sNy+OLy
./model/src/dynamics.F 387 DYNAMICS 
           KappaRU(i,j,k) = 0. _d 0
./model/src/dynamics.F 388 DYNAMICS 
           KappaRV(i,j,k) = 0. _d 0
./pkg/shap_filt/shap_filt_apply_uv.F 135 SHAP_FILT_APPLY_UV 
                 DO j=1,sNy
./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 104 SHAP_FILT_COMPUTVORT 
           j=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 118 SHAP_FILT_COMPUTVORT 
           j=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 140 SHAP_FILT_COMPUTVORT 
           j=sNy+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 162 SHAP_FILT_COMPUTVORT 
           j=sNy+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 63 SHAP_FILT_COMPUTVORT 
      DO j=1-Oly,sNy+Oly
./pkg/shap_filt/shap_filt_computvort.F 65 SHAP_FILT_COMPUTVORT 
          vort(i,j)= 0.
./pkg/shap_filt/shap_filt_computvort.F 71 SHAP_FILT_COMPUTVORT 
      DO j=2-Oly,sNy+Oly
./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)
./model/src/external_fields_load.F 137 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 175 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 223 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 231 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 239 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 247 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 256 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 264 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 272 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 281 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 291 EXTERNAL_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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/shap_filt/shap_filt_tracer_s2.F 124 SHAP_FILT_TRACER_S2 
             DO j=0,sNy+1
./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 133 SHAP_FILT_TRACER_S2 
             DO j=0,sNy+1
./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 155 SHAP_FILT_TRACER_S2 
             DO j=0,sNy+2
./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 164 SHAP_FILT_TRACER_S2 
             DO j=0,sNy+2
./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 175 SHAP_FILT_TRACER_S2 
           DO j=0,sNy+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 184 SHAP_FILT_TRACER_S2 
             DO j=0,sNy+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 191 SHAP_FILT_TRACER_S2 
             DO j=0,sNy+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 198 SHAP_FILT_TRACER_S2 
             DO j=0,sNy+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 219 SHAP_FILT_TRACER_S2 
          DO j=1,sNy
./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 81 SHAP_FILT_TRACER_S2 
           DO j=1-Oly,sNy+Oly
./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 137 SHAP_FILT_UV_S2 
           DO j=1-Oly,sNy+Oly-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 154 SHAP_FILT_UV_S2 
             DO j=1-Oly,sNy+Oly-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 159 SHAP_FILT_UV_S2 
             DO j=2-Oly,sNy+Oly
./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 171 SHAP_FILT_UV_S2 
            DO j=2-Oly,sNy+Oly-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 180 SHAP_FILT_UV_S2 
            DO j=2-Oly,sNy+Oly-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 189 SHAP_FILT_UV_S2 
            DO j=2-Oly,sNy+Oly-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 208 SHAP_FILT_UV_S2 
           DO j=2-Oly,sNy+Oly-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 224 SHAP_FILT_UV_S2 
           DO j=2-Oly,sNy+Oly-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 248 SHAP_FILT_UV_S2 
          DO j=1,sNy
./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 255 SHAP_FILT_UV_S2 
          DO j=1,sNy+1
./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 78 SHAP_FILT_UV_S2 
          DO j=1-Oly,sNy+Oly
./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 88 SHAP_FILT_UV_S2 
           DO j=1-Oly,sNy+Oly
./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 113 SHAP_FILT_UV_S2C 
            j=1
./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 122 SHAP_FILT_UV_S2C 
            j=sNy
./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 134 SHAP_FILT_UV_S2C 
           DO j=1,sNy
./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 142 SHAP_FILT_UV_S2C 
           DO j=1,sNy+1
./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 156 SHAP_FILT_UV_S2C 
            DO j=1,sNy+1,sNy
./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 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 178 SHAP_FILT_UV_S2C 
           DO j=1,sNy+1
./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 198 SHAP_FILT_UV_S2C 
          DO j=1,sNy
./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 205 SHAP_FILT_UV_S2C 
          DO j=1,sNy+1
./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 67 SHAP_FILT_UV_S2C 
           DO j=1-OLy,sNy+OLy
./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 98 SHAP_FILT_UV_S2C 
           DO j=1,sNy
./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/external_forcing.F 153 EXTERNAL_FORCING_V 
      INTEGER i, j
./model/src/external_forcing.F 180 EXTERNAL_FORCING_V 
       DO j=1,sNy+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 294 EXTERNAL_FORCING_T 
         DO j=1,sNy
./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 305 EXTERNAL_FORCING_T 
         DO j=1,sNy
./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 321 EXTERNAL_FORCING_T 
       DO j=1,sNy
./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 331 EXTERNAL_FORCING_T 
       DO j=1,sNy
./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 368 EXTERNAL_FORCING_T 
       DO j=1,sNy
./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 478 EXTERNAL_FORCING_S 
         DO j=1,sNy
./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 489 EXTERNAL_FORCING_S 
         DO j=1,sNy
./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 505 EXTERNAL_FORCING_S 
       DO j=1,sNy
./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 515 EXTERNAL_FORCING_S 
       DO j=1,sNy
./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 78 EXTERNAL_FORCING_U 
       DO j=0,sNy+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/shelfice/shelfice_forcing.F 146 SHELFICE_FORCING_S 
      INTEGER i, j
./pkg/shelfice/shelfice_forcing.F 153 SHELFICE_FORCING_S 
      DO j=1,sNy
./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 61 SHELFICE_FORCING_T 
      DO j=1,sNy
./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 112 SHELFICE_OUTPUT 
          DO j=1,sNy
./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) =
./model/src/external_forcing_surf.F 101 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./model/src/external_forcing_surf.F 102 EXTERNAL_FORCING_SURF 
     &      -lambdaThetaClimRelax(i,j,bi,bj)
./model/src/external_forcing_surf.F 103 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 106 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./model/src/external_forcing_surf.F 107 EXTERNAL_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj)
./model/src/external_forcing_surf.F 108 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/external_forcing_surf.F 109 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 123 EXTERNAL_FORCING_SURF 
         DO j=jMin,jMax
./model/src/external_forcing_surf.F 125 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 126 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./model/src/external_forcing_surf.F 127 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 128 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./model/src/external_forcing_surf.F 134 EXTERNAL_FORCING_SURF 
         DO j=jMin,jMax
./model/src/external_forcing_surf.F 136 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 137 EXTERNAL_FORCING_SURF 
     &        *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./model/src/external_forcing_surf.F 139 EXTERNAL_FORCING_SURF 
     &                    *recip_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 141 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 142 EXTERNAL_FORCING_SURF 
     &        *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./model/src/external_forcing_surf.F 144 EXTERNAL_FORCING_SURF 
     &                    *recip_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 150 EXTERNAL_FORCING_SURF 
         DO j=jMin,jMax
./model/src/external_forcing_surf.F 152 EXTERNAL_FORCING_SURF 
           IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/external_forcing_surf.F 153 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 154 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 155 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 156 EXTERNAL_FORCING_SURF 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/external_forcing_surf.F 185 EXTERNAL_FORCING_SURF 
       DO j = jMin, jMax
./model/src/external_forcing_surf.F 187 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 188 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 198 EXTERNAL_FORCING_SURF 
       DO j = jMin, jMax
./model/src/external_forcing_surf.F 200 EXTERNAL_FORCING_SURF 
         relaxForcingS(i,j) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 210 EXTERNAL_FORCING_SURF 
      DO j = jMin, jMax
./model/src/external_forcing_surf.F 214 EXTERNAL_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) =
./model/src/external_forcing_surf.F 215 EXTERNAL_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 217 EXTERNAL_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) =
./model/src/external_forcing_surf.F 218 EXTERNAL_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 220 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 221 EXTERNAL_FORCING_SURF 
     &       - ( Qnet(i,j,bi,bj)
./model/src/external_forcing_surf.F 223 EXTERNAL_FORCING_SURF 
     &          -Qsw(i,j,bi,bj)
./model/src/external_forcing_surf.F 227 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 228 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 250 EXTERNAL_FORCING_SURF 
        DO j=1-OLy,sNy+OLy
./model/src/external_forcing_surf.F 252 EXTERNAL_FORCING_SURF 
           EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/external_forcing_surf.F 261 EXTERNAL_FORCING_SURF 
        DO j=1-OLy,sNy+OLy
./model/src/external_forcing_surf.F 263 EXTERNAL_FORCING_SURF 
           PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 276 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./model/src/external_forcing_surf.F 278 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 279 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F 280 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 287 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./model/src/external_forcing_surf.F 289 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 290 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F 291 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 311 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./model/src/external_forcing_surf.F 313 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 314 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 315 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/src/external_forcing_surf.F 322 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./model/src/external_forcing_surf.F 324 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 325 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 326 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./model/src/external_forcing_surf.F 337 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./model/src/external_forcing_surf.F 339 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 340 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 348 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./model/src/external_forcing_surf.F 350 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 351 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 387 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./model/src/external_forcing_surf.F 389 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./model/src/external_forcing_surf.F 390 EXTERNAL_FORCING_SURF 
     &                        +sIceLoad(i,j,bi,bj)*gravity
./model/src/external_forcing_surf.F 395 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./model/src/external_forcing_surf.F 397 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./model/src/external_forcing_surf.F 416 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./model/src/external_forcing_surf.F 418 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj)
./model/src/external_forcing_surf.F 419 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 82 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./model/src/external_forcing_surf.F 85 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./model/src/external_forcing_surf.F 86 EXTERNAL_FORCING_SURF 
     &      -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj))
./model/src/external_forcing_surf.F 87 EXTERNAL_FORCING_SURF 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/external_forcing_surf.F 88 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 90 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./model/src/external_forcing_surf.F 91 EXTERNAL_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj))
./model/src/external_forcing_surf.F 92 EXTERNAL_FORCING_SURF 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/external_forcing_surf.F 93 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/external_forcing_surf.F 98 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./pkg/shelfice/shelfice_u_drag.F 72 SHELFICE_U_DRAG 
      DO j=1-Oly,sNy+Oly-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 56 SHELFICE_UPDATE_MASKS 
        DO j=1-Oly,sNy+Oly
./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 72 SHELFICE_V_DRAG 
      DO j=1-Oly+1,sNy+Oly-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/find_alpha.F 131 FIND_ALPHA 
         DO j=jMin,jMax
./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 235 FIND_ALPHA 
         DO j=jMin,jMax
./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 337 FIND_BETA 
         DO j=jMin,jMax
./model/src/find_alpha.F 339 FIND_BETA 
               betaLoc(i,j) = rhonil * sBeta
./model/src/find_alpha.F 348 FIND_BETA 
         DO j=jMin,jMax
./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 391 FIND_BETA 
         DO j=jMin,jMax
./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 481 FIND_BETA 
         DO j=jMin,jMax
./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 75 FIND_ALPHA 
         DO j=jMin,jMax
./model/src/find_alpha.F 77 FIND_ALPHA 
               alphaLoc(i,j) = -rhonil * tAlpha
./model/src/find_alpha.F 86 FIND_ALPHA 
         DO j=jMin,jMax
./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/smooth/smooth_basic2d.F 28 SMOOTH_BASIC2D 
      integer i,j,bi,bj
./pkg/smooth/smooth_basic2d.F 43 SMOOTH_BASIC2D 
         DO j=1-OLy,sNy+OLy
./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 54 SMOOTH_BASIC2D 
         DO j=1-OLy,sNy+OLy
./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 60 SMOOTH_CORREL2D 
        DO j = 1,sNy
./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 77 SMOOTH_CORREL2D 
         DO j = 1,sNy
./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)
./pkg/smooth/smooth_correl2dw.F 31 SMOOTH_CORREL2DW 
      integer i,j,bi,bj
./pkg/smooth/smooth_correl2dw.F 45 SMOOTH_CORREL2DW 
        DO j = 1,sNy
./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 103 SMOOTH_CORREL3D 
         DO j = 1,sNy
./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 85 SMOOTH_CORREL3D 
         DO j=1,sNy
./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 126 SMOOTH_DIFF2D 
            DO j = 1,sNy
./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 171 SMOOTH_DIFF2D 
            DO j = 1,sNy
./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 60 SMOOTH_DIFF2D 
        DO j = 1,sNy
./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 122 SMOOTH_DIFF3D 
         DO j=1,sNy
./pkg/smooth/smooth_diff3d.F 124 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 148 SMOOTH_DIFF3D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_diff3d.F 150 SMOOTH_DIFF3D 
      if (maskc(i,j,k,bi,bj).NE.0.) then
./pkg/smooth/smooth_diff3d.F 151 SMOOTH_DIFF3D 
           fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F 152 SMOOTH_DIFF3D 
     &            +smooth3DdelTime*gT_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F 153 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 59 SMOOTH_DIFF3D 
         DO j=1,sNy
./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 116 SMOOTH_FILTERVAR2D 
        DO j = 1,sNy
./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 136 SMOOTH_FILTERVAR2D 
         DO j=jj,sNy,djLoc
./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 157 SMOOTH_FILTERVAR2D 
         DO j=1-OLy,sNy+OLy
./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 177 SMOOTH_FILTERVAR2D 
         DO j=1-OLy,sNy+OLy
./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 199 SMOOTH_FILTERVAR2D 
         DO j=1-OLy,sNy+OLy
./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 215 SMOOTH_FILTERVAR2D 
         DO j=1-OLy,sNy+OLy
./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 63 SMOOTH_FILTERVAR2D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F 65 SMOOTH_FILTERVAR2D 
           smooth2Dnorm(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F 89 SMOOTH_FILTERVAR2D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar2d.F 91 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F 95 SMOOTH_FILTERVAR2D 
         DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar2d.F 97 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F 119 SMOOTH_FILTERVAR3D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F 121 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_filtervar3d.F 127 SMOOTH_FILTERVAR3D 
         DO j=jj,sNy,djLoc
./pkg/smooth/smooth_filtervar3d.F 129 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F 150 SMOOTH_FILTERVAR3D 
         DO j=1,sNy
./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 172 SMOOTH_FILTERVAR3D 
         DO j=jj,sNy,djLoc
./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 195 SMOOTH_FILTERVAR3D 
         DO j=1-OLy,sNy+OLy
./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 217 SMOOTH_FILTERVAR3D 
         DO j=1-OLy,sNy+OLy
./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 241 SMOOTH_FILTERVAR3D 
         DO j=1-OLy,sNy+OLy
./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 259 SMOOTH_FILTERVAR3D 
         DO j=1-OLy,sNy+OLy
./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 89 SMOOTH_FILTERVAR3D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_filtervar3d.F 91 SMOOTH_FILTERVAR3D 
           smooth3Dnorm(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_hetero2d.F 29 SMOOTH_HETERO2D 
      integer i,j,bi,bj
./pkg/smooth/smooth_hetero2d.F 46 SMOOTH_HETERO2D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_hetero2d.F 48 SMOOTH_HETERO2D 
          smooth2D_Lx(i,j,bi,bj)=dist_in(i,j,bi,bj)
./pkg/smooth/smooth_hetero2d.F 49 SMOOTH_HETERO2D 
          smooth2D_Ly(i,j,bi,bj)=dist_in(i,j,bi,bj)
./pkg/smooth/smooth_hetero2d.F 57 SMOOTH_HETERO2D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_hetero2d.F 59 SMOOTH_HETERO2D 
          smooth2D_Kux(i,j,bi,bj)=smooth2D_Lx(i,j,bi,bj)*
./pkg/smooth/smooth_hetero2d.F 60 SMOOTH_HETERO2D 
     & smooth2D_Lx(i,j,bi,bj)/smooth2DtotTime/2
./pkg/smooth/smooth_hetero2d.F 61 SMOOTH_HETERO2D 
          smooth2D_Kvy(i,j,bi,bj)=smooth2D_Ly(i,j,bi,bj)*
./pkg/smooth/smooth_hetero2d.F 62 SMOOTH_HETERO2D 
     & smooth2D_Ly(i,j,bi,bj)/smooth2DtotTime/2
./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 114 FIND_RHO_2D 
       DO j=jMin,jMax
./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 168 FIND_RHO_2D 
         DO j=jMin,jMax
./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 203 FIND_RHO_2D 
         DO j=jMin,jMax
./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 262 FIND_RHOP0 
      DO j=jMin,jMax
./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 353 FIND_BULKMOD 
      DO j=jMin,jMax
./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 460 FIND_RHONUM 
      DO j=jMin,jMax
./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 528 FIND_RHODEN 
      DO j=jMin,jMax
./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 72 FIND_RHO_2D 
      DO j=1-OLy,sNy+OLy
./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 818 LOOK_FOR_NEG_SALINITY 
      DO j=jMin,jMax
./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
./model/src/find_rho.F 99 FIND_RHO_2D 
       DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F 102 SMOOTH_IMPLDIFF 
      DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F 104 SMOOTH_IMPLDIFF 
         c(i,j,Nr) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 110 SMOOTH_IMPLDIFF 
       DO j=jMin,jMax
./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 119 SMOOTH_IMPLDIFF 
       DO j=jMin,jMax
./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 132 SMOOTH_IMPLDIFF 
       DO j=jMin,jMax
./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 146 SMOOTH_IMPLDIFF 
        DO j=jMin,jMax
./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 159 SMOOTH_IMPLDIFF 
      DO j=jMin,jMax
./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 165 SMOOTH_IMPLDIFF 
       DO j=jMin,jMax
./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 177 SMOOTH_IMPLDIFF 
        DO j=jMin,jMax
./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 186 SMOOTH_IMPLDIFF 
        DO j=jMin,jMax
./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 65 SMOOTH_IMPLDIFF 
       DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F 67 SMOOTH_IMPLDIFF 
         gYNm1(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 73 SMOOTH_IMPLDIFF 
      DO j=jMin,jMax
./pkg/smooth/smooth_impldiff.F 75 SMOOTH_IMPLDIFF 
         a(i,j,1) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 79 SMOOTH_IMPLDIFF 
       DO j=jMin,jMax
./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 92 SMOOTH_IMPLDIFF 
       DO j=jMin,jMax
./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 51 SMOOTH_INIT2D 
         DO j=1-OLy,sNy+OLy
./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 63 SMOOTH_INIT2D 
         DO j=1-OLy,sNy+OLy
./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 129 SMOOTH_INIT3D 
         DO j=1-OLy,sNy+OLy
./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 143 SMOOTH_INIT3D 
         DO j=1-OLy,sNy+OLy
./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 68 SMOOTH_INIT3D 
         DO j=1-OLy,sNy+OLy
./pkg/smooth/smooth_init3d.F 70 SMOOTH_INIT3D 
          smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb)
./pkg/smooth/smooth_init3d.F 81 SMOOTH_INIT3D 
         DO j=1-OLy,sNy+OLy
./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 96 SMOOTH_INIT3D 
         DO j=1-OLy,sNy+OLy
./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 116 SMOOTH_RHS 
      DO j=jMin,jMax
./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 126 SMOOTH_RHS 
       DO j=jMin,jMax
./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 146 SMOOTH_RHS 
      DO j=jMin,jMax
./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 170 SMOOTH_RHS 
       DO j=jMin,jMax
./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 176 SMOOTH_RHS 
       DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F 178 SMOOTH_RHS 
         df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 184 SMOOTH_RHS 
      DO j=jMin,jMax
./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 194 SMOOTH_RHS 
       DO j=jMin,jMax
./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 214 SMOOTH_RHS 
      DO j=jMin,jMax
./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 237 SMOOTH_RHS 
       DO j=jMin,jMax
./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 243 SMOOTH_RHS 
       DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F 245 SMOOTH_RHS 
         df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 254 SMOOTH_RHS 
       DO j=jMin,jMax
./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 270 SMOOTH_RHS 
      DO j=jMin,jMax
./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 316 SMOOTH_RHS 
      DO j=jMin,jMax
./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 324 SMOOTH_RHS 
       DO j=jMin,jMax
./pkg/smooth/smooth_rhs.F 326 SMOOTH_RHS 
         df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 344 SMOOTH_RHS 
         DO j=jMin,jMax
./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 355 SMOOTH_RHS 
         DO j=jMin,jMax
./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 78 SMOOTH_RHS 
      DO j=1-OLy,sNy+OLy
./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 97 SMOOTH_RHS 
      DO j=1-OLy,sNy+OLy
./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 87 EXCH_ALLGATHER_2D_RL 
            do j = 1, sNy
./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/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/freesurf_rescale_g.F 37 FREESURF_RESCALE_G 
      INTEGER i,j
./model/src/freesurf_rescale_g.F 45 FREESURF_RESCALE_G 
        DO j=1-Oly,sNy+Oly
./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 j=1-Oly,sNy+Oly
./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 
     &        /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./model/src/freesurf_rescale_g.F 59 FREESURF_RESCALE_G 
     &                    *recip_hFacC(i,j,k,bi,bj)
./model/src/freesurf_rescale_g.F 65 FREESURF_RESCALE_G 
        DO j=1-Oly,sNy+Oly
./model/src/freesurf_rescale_g.F 67 FREESURF_RESCALE_G 
          IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/freesurf_rescale_g.F 68 FREESURF_RESCALE_G 
           gTracer(i,j,k,bi,bj) = gTracer(i,j,k,bi,bj)
./model/src/freesurf_rescale_g.F 69 FREESURF_RESCALE_G 
     &           *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 154 THSICE_ADVDIFF 
      DO j=1-OLy,sNy+OLy
./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 185 THSICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./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 191 THSICE_ADVDIFF 
        DO j=1-Oly+1,sNy+Oly
./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 199 THSICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advdiff.F 201 THSICE_ADVDIFF 
          iceFrc(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 217 THSICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./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 234 THSICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./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 257 THSICE_ADVDIFF 
         DO j=1,sNy
./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 315 THSICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advdiff.F 317 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 328 THSICE_ADVDIFF 
         DO j=1,sNy
./pkg/thsice/thsice_advdiff.F 330 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 352 THSICE_ADVDIFF 
        DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advdiff.F 354 THSICE_ADVDIFF 
          iceVol(i,j) = oldVol(i,j)
./pkg/thsice/thsice_advdiff.F 367 THSICE_ADVDIFF 
         DO j=1,sNy
./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 419 THSICE_ADVDIFF 
        DO j=1,sNy
./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 439 THSICE_ADVDIFF 
        DO j=1,sNy
./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 483 THSICE_ADVDIFF 
         DO j=1,sNy
./pkg/thsice/thsice_advdiff.F 485 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 523 THSICE_ADVDIFF 
         DO j=1,sNy
./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 210 THSICE_ADVECTION 
      DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F 211 THSICE_ADVECTION 
       maskLocW(1-Olx,j) = 0.
./pkg/thsice/thsice_advection.F 213 THSICE_ADVECTION 
        maskLocW(i,j) = MIN( maskOc(i-1,j), maskOc(i,j) )
./pkg/thsice/thsice_advection.F 219 THSICE_ADVECTION 
      DO j=2-OLy,sNy+OLy
./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 j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F 296 THSICE_ADVECTION 
           af(i,j) = 0.
./pkg/thsice/thsice_advection.F 313 THSICE_ADVECTION 
          DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F 315 THSICE_ADVECTION 
            uCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 316 THSICE_ADVECTION 
     &          MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj)
./pkg/thsice/thsice_advection.F 317 THSICE_ADVECTION 
     &         +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj)
./pkg/thsice/thsice_advection.F 322 THSICE_ADVECTION 
          DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F 324 THSICE_ADVECTION 
            uCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 325 THSICE_ADVECTION 
     &        MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps )
./pkg/thsice/thsice_advection.F 326 THSICE_ADVECTION 
     &       +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps )
./pkg/thsice/thsice_advection.F 387 THSICE_ADVECTION 
          DO j=1-OLy,0
./pkg/thsice/thsice_advection.F 389 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 390 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 391 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 392 THSICE_ADVECTION 
     &                                *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 396 THSICE_ADVECTION 
          DO j=1-OLy,0
./pkg/thsice/thsice_advection.F 398 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 399 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 400 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 401 THSICE_ADVECTION 
     &                          *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F 402 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 403 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 404 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 405 THSICE_ADVECTION 
     &                                  *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 406 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 411 THSICE_ADVECTION 
          DO j=sNy+1,sNy+OLy
./pkg/thsice/thsice_advection.F 413 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 414 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 415 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 416 THSICE_ADVECTION 
     &                                *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 420 THSICE_ADVECTION 
          DO j=sNy+1,sNy+OLy
./pkg/thsice/thsice_advection.F 422 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 423 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 424 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 425 THSICE_ADVECTION 
     &                          *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F 426 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 427 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 428 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 429 THSICE_ADVECTION 
     &                                  *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 430 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 436 THSICE_ADVECTION 
          DO j=1-OLy,0
./pkg/thsice/thsice_advection.F 438 THSICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 443 THSICE_ADVECTION 
          DO j=sNy+1,sNy+OLy
./pkg/thsice/thsice_advection.F 445 THSICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 457 THSICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F 459 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 460 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 461 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 462 THSICE_ADVECTION 
     &                                *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 466 THSICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F 468 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 469 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 470 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 471 THSICE_ADVECTION 
     &                          *( uTrans(i+1,j)-uTrans(i,j) )
./pkg/thsice/thsice_advection.F 472 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 473 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 474 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 475 THSICE_ADVECTION 
     &                                  *( af(i+1,j)-af(i,j) )
./pkg/thsice/thsice_advection.F 476 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 481 THSICE_ADVECTION 
         DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F 483 THSICE_ADVECTION 
            afx(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 509 THSICE_ADVECTION 
         DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F 511 THSICE_ADVECTION 
           af(i,j) = 0.
./pkg/thsice/thsice_advection.F 528 THSICE_ADVECTION 
          DO j=2-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F 530 THSICE_ADVECTION 
            vCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 531 THSICE_ADVECTION 
     &          MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj)
./pkg/thsice/thsice_advection.F 532 THSICE_ADVECTION 
     &         +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj)
./pkg/thsice/thsice_advection.F 537 THSICE_ADVECTION 
          DO j=2-Oly,sNy+Oly
./pkg/thsice/thsice_advection.F 539 THSICE_ADVECTION 
            vCfl(i,j) = deltaTadvect*(
./pkg/thsice/thsice_advection.F 540 THSICE_ADVECTION 
     &        MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps )
./pkg/thsice/thsice_advection.F 541 THSICE_ADVECTION 
     &       +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps )
./pkg/thsice/thsice_advection.F 601 THSICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F 603 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 604 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 605 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 606 THSICE_ADVECTION 
     &                                *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 610 THSICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F 612 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 613 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 614 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 615 THSICE_ADVECTION 
     &                          *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F 616 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 617 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 618 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 619 THSICE_ADVECTION 
     &                                  *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 620 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 625 THSICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F 627 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 628 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 629 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 630 THSICE_ADVECTION 
     &                                *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 634 THSICE_ADVECTION 
          DO j=jMinUpd,jMaxUpd
./pkg/thsice/thsice_advection.F 636 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 637 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 638 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 639 THSICE_ADVECTION 
     &                          *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F 640 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 641 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 642 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 643 THSICE_ADVECTION 
     &                                  *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 644 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 650 THSICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_advection.F 652 THSICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 657 THSICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_advection.F 659 THSICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 671 THSICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy-1
./pkg/thsice/thsice_advection.F 673 THSICE_ADVECTION 
            iceFld(i,j) = iceFld(i,j)
./pkg/thsice/thsice_advection.F 674 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 675 THSICE_ADVECTION 
     &                                *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 676 THSICE_ADVECTION 
     &                                *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 680 THSICE_ADVECTION 
          DO j=1-OLy+1,sNy+OLy-1
./pkg/thsice/thsice_advection.F 682 THSICE_ADVECTION 
            tmpVol = iceVol(i,j)
./pkg/thsice/thsice_advection.F 683 THSICE_ADVECTION 
            iceVol(i,j) = iceVol(i,j)
./pkg/thsice/thsice_advection.F 684 THSICE_ADVECTION 
     &                   -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 685 THSICE_ADVECTION 
     &                          *( vTrans(i,j+1)-vTrans(i,j) )
./pkg/thsice/thsice_advection.F 686 THSICE_ADVECTION 
            IF ( iceVol(i,j).GT.iceEps )
./pkg/thsice/thsice_advection.F 687 THSICE_ADVECTION 
     &      iceFld(i,j) = ( iceFld(i,j)*tmpVol
./pkg/thsice/thsice_advection.F 688 THSICE_ADVECTION 
     &                     -deltaTadvect*maskOc(i,j)
./pkg/thsice/thsice_advection.F 689 THSICE_ADVECTION 
     &                                  *( af(i,j+1)-af(i,j) )
./pkg/thsice/thsice_advection.F 690 THSICE_ADVECTION 
     &                    )/iceVol(i,j)
./pkg/thsice/thsice_advection.F 695 THSICE_ADVECTION 
         DO j=1-OLy+1,sNy+OLy
./pkg/thsice/thsice_advection.F 697 THSICE_ADVECTION 
            afy(i,j) = af(i,j)
./pkg/thsice/thsice_advection.F 712 THSICE_ADVECTION 
       DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_advection.F 714 THSICE_ADVECTION 
         IF ( i.EQ.idb .AND. j.EQ.jdb .AND. bi.EQ.biDb ) THEN
./pkg/thsice/thsice_advection.F 715 THSICE_ADVECTION 
          tmpFac= deltaTadvect*recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 717 THSICE_ADVECTION 
     &     afx(i,j)*tmpFac,afx(i+1,j)*tmpFac,
./pkg/thsice/thsice_advection.F 718 THSICE_ADVECTION 
     &     afy(i,j)*tmpFac,afy(i,j+1)*tmpFac
./pkg/thsice/thsice_albedo.F 103 THSICE_ALBEDO 
      DO j = jMin, jMax
./pkg/thsice/thsice_albedo.F 105 THSICE_ALBEDO 
        IF ( iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_albedo.F 106 THSICE_ALBEDO 
         hi  = hIce(i,j)
./pkg/thsice/thsice_albedo.F 107 THSICE_ALBEDO 
         hs  = hSnow(i,j)
./pkg/thsice/thsice_albedo.F 108 THSICE_ALBEDO 
         Tsf = tSrf(i,j)
./pkg/thsice/thsice_albedo.F 109 THSICE_ALBEDO 
         age = ageSnw(i,j)
./pkg/thsice/thsice_albedo.F 149 THSICE_ALBEDO 
          sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) )
./pkg/thsice/thsice_albedo.F 154 THSICE_ALBEDO 
          sAlbNIR(i,j) = albedo
./pkg/thsice/thsice_albedo.F 161 THSICE_ALBEDO 
          jj=j
./pkg/thsice/thsice_albedo.F 164 THSICE_ALBEDO 
         sAlb(i,j) = albedo
./pkg/thsice/thsice_albedo.F 166 THSICE_ALBEDO 
         sAlb(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F 167 THSICE_ALBEDO 
         sAlbNIR(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F 87 THSICE_ALBEDO 
      INTEGER i,j
./pkg/thsice/thsice_calc_thickn.F 1000 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 1002 THSICE_CALC_THICKN 
     &        esurp(i,j)/dt,etop(i,j)/dt,ebot(i,j)/dt
./pkg/thsice/thsice_calc_thickn.F 1006 THSICE_CALC_THICKN 
         frw2oc(i,j) = frw2oc(i,j) - evapLoc(i,j)
./pkg/thsice/thsice_calc_thickn.F 1010 THSICE_CALC_THICKN 
         flx2oc(i,j) = flx2oc(i,j) + evapLoc(i,j)*Lfresh
./pkg/thsice/thsice_calc_thickn.F 1022 THSICE_CALC_THICKN 
         fsalt(i,j) = (msalt0(i,j) - rhoi*hIce(i,j)*saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F 1025 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_calc_thickn.F 1027 THSICE_CALC_THICKN 
     &         (mwater0(i,j)-(rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt,
./pkg/thsice/thsice_calc_thickn.F 1028 THSICE_CALC_THICKN 
     &         evapLoc(i,j),frw2oc(i,j),fsalt(i,j)
./pkg/thsice/thsice_calc_thickn.F 1030 THSICE_CALC_THICKN 
     &         flx2oc(I,J),Fbot(i,j),(etope(i,j)+ebote(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 1035 THSICE_CALC_THICKN 
         frw2oc(i,j) = frw2oc(i,j) + (prcAtm(i,j)-snowP(i,j))
./pkg/thsice/thsice_calc_thickn.F 1051 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 1053 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1058 THSICE_CALC_THICKN 
         extend=etope(i,j)+ebote(i,j)
./pkg/thsice/thsice_calc_thickn.F 1059 THSICE_CALC_THICKN 
         IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1060 THSICE_CALC_THICKN 
          rq =  rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2))
./pkg/thsice/thsice_calc_thickn.F 1062 THSICE_CALC_THICKN 
          rqh = rq * hIce(i,j) + rs * hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 1063 THSICE_CALC_THICKN 
          freshe=(rhos*hSnow(i,j)+rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 1064 THSICE_CALC_THICKN 
          salte=(rhoi*hIce(i,j)*saltIce)/dt
./pkg/thsice/thsice_calc_thickn.F 1066 THSICE_CALC_THICKN 
           icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j)
./pkg/thsice/thsice_calc_thickn.F 1068 THSICE_CALC_THICKN 
          IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN
./pkg/thsice/thsice_calc_thickn.F 1069 THSICE_CALC_THICKN 
           frw2oc(i,j)=frw2oc(i,j)+extend/rqh*freshe
./pkg/thsice/thsice_calc_thickn.F 1070 THSICE_CALC_THICKN 
           fsalt(i,j)=fsalt(i,j)+extend/rqh*salte
./pkg/thsice/thsice_calc_thickn.F 1072 THSICE_CALC_THICKN 
           icFrac(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1073 THSICE_CALC_THICKN 
           hIce(i,j)  =0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1074 THSICE_CALC_THICKN 
           hSnow(i,j) =0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1075 THSICE_CALC_THICKN 
           flx2oc(i,j)=flx2oc(i,j)+(extend-rqh)/dt
./pkg/thsice/thsice_calc_thickn.F 1076 THSICE_CALC_THICKN 
           frw2oc(i,j)=frw2oc(i,j)+freshe
./pkg/thsice/thsice_calc_thickn.F 1077 THSICE_CALC_THICKN 
           fsalt(i,j)=fsalt(i,j)+salte
./pkg/thsice/thsice_calc_thickn.F 1080 THSICE_CALC_THICKN 
          flx2oc(i,j)=flx2oc(i,j)+extend/dt
./pkg/thsice/thsice_calc_thickn.F 1087 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 1089 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1095 THSICE_CALC_THICKN 
         frwAtm(i,j) = frwAtm(i,j) - prcAtm(i,j)
./pkg/thsice/thsice_calc_thickn.F 1099 THSICE_CALC_THICKN 
         fzMlOc(i,j) = fzMlOc(i,j) - Fbot(i,j)*iceMask(i,j)
./pkg/thsice/thsice_calc_thickn.F 1102 THSICE_CALC_THICKN 
         qIc1(i,j)   = qicen(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 1103 THSICE_CALC_THICKN 
         qIc2(i,j)   = qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 1105 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 1107 THSICE_CALC_THICKN 
     &        icFrac(i,j), flx2oc(i,j), fsalt(i,j), frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 1116 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 1118 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1119 THSICE_CALC_THICKN 
         qaux(1)=qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F 1120 THSICE_CALC_THICKN 
         qaux(2)=qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F 1121 THSICE_CALC_THICKN 
         CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 0,
./pkg/thsice/thsice_calc_thickn.F 1122 THSICE_CALC_THICKN 
     I        iceMask(i,j), icFrac(i,j), hIce(i,j), hSnow(i,j),
./pkg/thsice/thsice_calc_thickn.F 1124 THSICE_CALC_THICKN 
     I        flx2oc(i,j), frw2oc(i,j), fsalt,
./pkg/thsice/thsice_calc_thickn.F 171 THSICE_CALC_THICKN 
      INTEGER  i,j,k
./pkg/thsice/thsice_calc_thickn.F 273 THSICE_CALC_THICKN 
      DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_calc_thickn.F 275 THSICE_CALC_THICKN 
        evapLoc(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 276 THSICE_CALC_THICKN 
        Fbot   (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 277 THSICE_CALC_THICKN 
        etop   (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 278 THSICE_CALC_THICKN 
        ebot   (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 279 THSICE_CALC_THICKN 
        etope  (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 280 THSICE_CALC_THICKN 
        ebote  (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 281 THSICE_CALC_THICKN 
        esurp  (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 282 THSICE_CALC_THICKN 
        mwater0(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 283 THSICE_CALC_THICKN 
        msalt0 (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 285 THSICE_CALC_THICKN 
        enFrcMlt(i,j)= 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 286 THSICE_CALC_THICKN 
        enFrcFrz(i,j)= 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 291 THSICE_CALC_THICKN 
       DO j=1-Oly,sNy+Oly
./pkg/thsice/thsice_calc_thickn.F 293 THSICE_CALC_THICKN 
         hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 298 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 318 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 319 THSICE_CALC_THICKN 
         qicen(i,j,1)= qIc1(i,j)
./pkg/thsice/thsice_calc_thickn.F 320 THSICE_CALC_THICKN 
         qicen(i,j,2)= qIc2(i,j)
./pkg/thsice/thsice_calc_thickn.F 323 THSICE_CALC_THICKN 
         esurp(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 326 THSICE_CALC_THICKN 
         evapLoc(i,j) = frwAtm(i,j)
./pkg/thsice/thsice_calc_thickn.F 333 THSICE_CALC_THICKN 
         xxMlt = aMlt*(hIce(i,j)-hMlt)
./pkg/thsice/thsice_calc_thickn.F 334 THSICE_CALC_THICKN 
         xxFrz = aFrz*(hIce(i,j)-hFrz)
./pkg/thsice/thsice_calc_thickn.F 354 THSICE_CALC_THICKN 
         enFrcMlt(i,j) = MAX( 0. _d 0, MIN( xxMlt, 1. _d 0 ) )
./pkg/thsice/thsice_calc_thickn.F 355 THSICE_CALC_THICKN 
         enFrcFrz(i,j) = MAX( 0. _d 0, MIN( xxFrz, 1. _d 0 ) )
./pkg/thsice/thsice_calc_thickn.F 358 THSICE_CALC_THICKN 
         IF (fzMlOc(i,j).GE. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 362 THSICE_CALC_THICKN 
          Fbot(i,j) = fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F 363 THSICE_CALC_THICKN 
          IF ( icFrac(i,j).LT.iceMaskMax ) THEN
./pkg/thsice/thsice_calc_thickn.F 365 THSICE_CALC_THICKN 
           Fbot(i,j) = enFrcFrz(i,j)*fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F 367 THSICE_CALC_THICKN 
           IF (hIce(i,j).GT.hThickIce) THEN
./pkg/thsice/thsice_calc_thickn.F 369 THSICE_CALC_THICKN 
            Fbot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 370 THSICE_CALC_THICKN 
           ELSEIF (hIce(i,j).GE.hThinIce) THEN
./pkg/thsice/thsice_calc_thickn.F 372 THSICE_CALC_THICKN 
            Fbot(i,j) = (1. _d 0 - fracEnFreez)*fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F 383 THSICE_CALC_THICKN 
          IF (v2oc(i,j) .NE. 0.)
./pkg/thsice/thsice_calc_thickn.F 384 THSICE_CALC_THICKN 
     &     ustar = SQRT(0.00536 _d 0*v2oc(i,j))
./pkg/thsice/thsice_calc_thickn.F 387 THSICE_CALC_THICKN 
          Fbot(i,j) = cpchr*(tFrz(i,j)-tOce(i,j))*ustar
./pkg/thsice/thsice_calc_thickn.F 389 THSICE_CALC_THICKN 
          Fbot(i,j) = max(Fbot(i,j),fzMlOc(i,j))
./pkg/thsice/thsice_calc_thickn.F 390 THSICE_CALC_THICKN 
          Fbot(i,j) = min(Fbot(i,j),0. _d 0)
./pkg/thsice/thsice_calc_thickn.F 394 THSICE_CALC_THICKN 
         mwater0(i,j) = rhos*hSnow(i,j) + rhoi*hIce(i,j)
./pkg/thsice/thsice_calc_thickn.F 395 THSICE_CALC_THICKN 
         msalt0 (i,j) = rhoi*hIce(i,j)*saltIce
./pkg/thsice/thsice_calc_thickn.F 398 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 400 THSICE_CALC_THICKN 
     &        frwAtm(i,j),fzMlOc(i,j),Fbot(i,j)
./pkg/thsice/thsice_calc_thickn.F 408 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 410 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 418 THSICE_CALC_THICKN 
          frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin)
./pkg/thsice/thsice_calc_thickn.F 419 THSICE_CALC_THICKN 
          frace = MIN( enFrcMlt(i,j), MAX( 0. _d 0, frace ) )
./pkg/thsice/thsice_calc_thickn.F 422 THSICE_CALC_THICKN 
         IF ( hIce(i,j).GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 425 THSICE_CALC_THICKN 
         ELSEIF (hIce(i,j).LT.hThinIce) THEN
./pkg/thsice/thsice_calc_thickn.F 434 THSICE_CALC_THICKN 
         IF ( icFrac(i,j).LE.lowIcFrac1 ) THEN
./pkg/thsice/thsice_calc_thickn.F 436 THSICE_CALC_THICKN 
         ELSEIF (icFrac(i,j).LE.lowIcFrac2 ) THEN
./pkg/thsice/thsice_calc_thickn.F 442 THSICE_CALC_THICKN 
         IF ( sHeat(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 443 THSICE_CALC_THICKN 
          etop(i,j) = (1. _d 0-frace)*sHeat(i,j) * dt
./pkg/thsice/thsice_calc_thickn.F 444 THSICE_CALC_THICKN 
          etope(i,j) = frace*sHeat(i,j) * dt
./pkg/thsice/thsice_calc_thickn.F 446 THSICE_CALC_THICKN 
          etop(i,j) =  0. _d 0
./pkg/thsice/thsice_calc_thickn.F 447 THSICE_CALC_THICKN 
          etope(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 449 THSICE_CALC_THICKN 
          esurp(i,j) = sHeat(i,j) * dt
./pkg/thsice/thsice_calc_thickn.F 462 THSICE_CALC_THICKN 
         ebot(i,j) = (flxCnB(i,j)-Fbot(i,j)) * dt
./pkg/thsice/thsice_calc_thickn.F 463 THSICE_CALC_THICKN 
         IF (ebot(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 464 THSICE_CALC_THICKN 
          ebote(i,j) = frace*ebot(i,j)
./pkg/thsice/thsice_calc_thickn.F 465 THSICE_CALC_THICKN 
          ebot(i,j)  = ebot(i,j)-ebote(i,j)
./pkg/thsice/thsice_calc_thickn.F 467 THSICE_CALC_THICKN 
          ebote(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 470 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 472 THSICE_CALC_THICKN 
     &        etop(i,j),etope(i,j),ebot(i,j),ebote(i,j)
./pkg/thsice/thsice_calc_thickn.F 483 THSICE_CALC_THICKN 
       DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 485 THSICE_CALC_THICKN 
         hnew(i,j,k) = hIce(i,j) * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 490 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 495 THSICE_CALC_THICKN 
        IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 496 THSICE_CALC_THICKN 
     &         etop(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 497 THSICE_CALC_THICKN 
     &        hSnow(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 504 THSICE_CALC_THICKN 
         rqh = rq * hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 505 THSICE_CALC_THICKN 
         IF (etop(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 506 THSICE_CALC_THICKN 
          hSnow(i,j) = hSnow(i,j) - etop(i,j)/rq
./pkg/thsice/thsice_calc_thickn.F 507 THSICE_CALC_THICKN 
          etop(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 509 THSICE_CALC_THICKN 
          etop(i,j) = etop(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F 510 THSICE_CALC_THICKN 
          hSnow(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 519 THSICE_CALC_THICKN 
       DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 521 THSICE_CALC_THICKN 
         IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 535 THSICE_CALC_THICKN 
          IF (etop(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 536 THSICE_CALC_THICKN 
           rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 537 THSICE_CALC_THICKN 
           rqh = rq * hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 538 THSICE_CALC_THICKN 
           IF (etop(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 539 THSICE_CALC_THICKN 
            hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F 540 THSICE_CALC_THICKN 
            etop(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 542 THSICE_CALC_THICKN 
            etop(i,j) = etop(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F 543 THSICE_CALC_THICKN 
            hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 546 THSICE_CALC_THICKN 
           etop(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 563 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 565 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0 .AND. ebot(i,j) .LT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 568 THSICE_CALC_THICKN 
         qbot =  -cpIce *tFrz(i,j) + Lfresh
./pkg/thsice/thsice_calc_thickn.F 569 THSICE_CALC_THICKN 
         dhi = -ebot(i,j) / (qbot * rhoi)
./pkg/thsice/thsice_calc_thickn.F 570 THSICE_CALC_THICKN 
         ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 576 THSICE_CALC_THICKN 
         qicen(i,j,nlyr) =
./pkg/thsice/thsice_calc_thickn.F 577 THSICE_CALC_THICKN 
     &        (hnew(i,j,nlyr)*qicen(i,j,nlyr)+dhi*qbot) /
./pkg/thsice/thsice_calc_thickn.F 578 THSICE_CALC_THICKN 
     &        (hnew(i,j,nlyr)+dhi)
./pkg/thsice/thsice_calc_thickn.F 579 THSICE_CALC_THICKN 
         hnew(i,j,nlyr) = hnew(i,j,nlyr) + dhi
./pkg/thsice/thsice_calc_thickn.F 609 THSICE_CALC_THICKN 
       DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 611 THSICE_CALC_THICKN 
         IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 612 THSICE_CALC_THICKN 
     &        ebot(i,j)   .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 613 THSICE_CALC_THICKN 
     &        hnew(i,j,k) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 614 THSICE_CALC_THICKN 
          rq =  rhoi * qicen(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 615 THSICE_CALC_THICKN 
          rqh = rq * hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 616 THSICE_CALC_THICKN 
          IF (ebot(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 617 THSICE_CALC_THICKN 
           hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F 618 THSICE_CALC_THICKN 
           ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 620 THSICE_CALC_THICKN 
           ebot(i,j) = ebot(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F 621 THSICE_CALC_THICKN 
           hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 632 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 634 THSICE_CALC_THICKN 
        IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 635 THSICE_CALC_THICKN 
     &       ebot(i,j)   .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 636 THSICE_CALC_THICKN 
     &       hSnow(i,j)  .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 638 THSICE_CALC_THICKN 
         rqh = rq * hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 639 THSICE_CALC_THICKN 
         IF (ebot(i,j) .LT. rqh) THEN
./pkg/thsice/thsice_calc_thickn.F 640 THSICE_CALC_THICKN 
          hSnow(i,j) = hSnow(i,j) - ebot(i,j) / rq
./pkg/thsice/thsice_calc_thickn.F 641 THSICE_CALC_THICKN 
          ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 643 THSICE_CALC_THICKN 
          ebot(i,j) = ebot(i,j) - rqh
./pkg/thsice/thsice_calc_thickn.F 644 THSICE_CALC_THICKN 
          hSnow(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 657 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 659 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 661 THSICE_CALC_THICKN 
         hIce(i,j) = hnew(i,j,1) + hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 663 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 665 THSICE_CALC_THICKN 
     &        etop(i,j), ebot(i,j), hIce(i,j), hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 669 THSICE_CALC_THICKN 
         IF ( hIce(i,j).LT.hIceMin
./pkg/thsice/thsice_calc_thickn.F 670 THSICE_CALC_THICKN 
     &        .AND. (hIce(i,j)+hSnow(i,j)).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 671 THSICE_CALC_THICKN 
          esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 672 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 673 THSICE_CALC_THICKN 
     &         - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 674 THSICE_CALC_THICKN 
          hIce(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 675 THSICE_CALC_THICKN 
          hSnow(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 676 THSICE_CALC_THICKN 
          tSrf(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 677 THSICE_CALC_THICKN 
          icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 678 THSICE_CALC_THICKN 
          qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 679 THSICE_CALC_THICKN 
          qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 681 THSICE_CALC_THICKN 
          IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 682 THSICE_CALC_THICKN 
     &         'ThSI_CALC_TH: -1 : esurp=',esurp(i,j)
./pkg/thsice/thsice_calc_thickn.F 692 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 694 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 698 THSICE_CALC_THICKN 
         frw2oc(i,j) = (mwater0(i,j)
./pkg/thsice/thsice_calc_thickn.F 699 THSICE_CALC_THICKN 
     &        - (rhos*hSnow(i,j)+rhoi*hIce(i,j)))/dt
./pkg/thsice/thsice_calc_thickn.F 701 THSICE_CALC_THICKN 
         IF ( hIce(i,j) .LE. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 703 THSICE_CALC_THICKN 
          frw2oc(i,j) = frw2oc(i,j) + snowP(i,j)
./pkg/thsice/thsice_calc_thickn.F 704 THSICE_CALC_THICKN 
          flx2oc(i,j) = flx2oc(i,j) - snowP(i,j)*Lfresh
./pkg/thsice/thsice_calc_thickn.F 713 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 715 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 717 THSICE_CALC_THICKN 
         IF ( hIce(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 719 THSICE_CALC_THICKN 
          hSnow(i,j) = hSnow(i,j) + dt*snowP(i,j)/rhos
./pkg/thsice/thsice_calc_thickn.F 726 THSICE_CALC_THICKN 
          IF (hSnow(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 727 THSICE_CALC_THICKN 
           IF (evapLoc(i,j)/rhos *dt.GT.hSnow(i,j)) THEN
./pkg/thsice/thsice_calc_thickn.F 728 THSICE_CALC_THICKN 
            evapLoc(i,j)=evapLoc(i,j)-hSnow(i,j)*rhos/dt
./pkg/thsice/thsice_calc_thickn.F 729 THSICE_CALC_THICKN 
            hSnow(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 731 THSICE_CALC_THICKN 
            hSnow(i,j) = hSnow(i,j) - evapLoc(i,j)/rhos *dt
./pkg/thsice/thsice_calc_thickn.F 732 THSICE_CALC_THICKN 
            evapLoc(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 750 THSICE_CALC_THICKN 
       DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 752 THSICE_CALC_THICKN 
         IF (iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 760 THSICE_CALC_THICKN 
           IF (hIce(i,j).GT.0. _d 0.AND.evapLoc(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 787 THSICE_CALC_THICKN 
             dhi = evapLoc(i,j)/rhoi*dt
./pkg/thsice/thsice_calc_thickn.F 788 THSICE_CALC_THICKN 
             IF (dhi.GE.hnew(i,j,k)) THEN
./pkg/thsice/thsice_calc_thickn.F 789 THSICE_CALC_THICKN 
              evapLoc(i,j)=evapLoc(i,j)-hnew(i,j,k)*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F 790 THSICE_CALC_THICKN 
              esurp(i,j) = esurp(i,j)
./pkg/thsice/thsice_calc_thickn.F 791 THSICE_CALC_THICKN 
     &             - hnew(i,j,k)*rhoi*(qicen(i,j,k)-Lfresh)
./pkg/thsice/thsice_calc_thickn.F 792 THSICE_CALC_THICKN 
              hnew(i,j,k)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 797 THSICE_CALC_THICKN 
              hq = hnew(i,j,k)*qicen(i,j,k)-dhi*Lfresh
./pkg/thsice/thsice_calc_thickn.F 798 THSICE_CALC_THICKN 
              hnew(i,j,k) = hnew(i,j,1) - dhi
./pkg/thsice/thsice_calc_thickn.F 799 THSICE_CALC_THICKN 
              qicen(i,j,k)=hq/hnew(i,j,k)
./pkg/thsice/thsice_calc_thickn.F 800 THSICE_CALC_THICKN 
              evapLoc(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 827 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 829 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 830 THSICE_CALC_THICKN 
         IF (hIce(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 832 THSICE_CALC_THICKN 
          hIce(i,j) = hnew(i,j,1) + hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 834 THSICE_CALC_THICKN 
          IF ( hIce(i,j).GT.0. _d 0 .AND. hIce(i,j).LT.hIceMin ) THEN
./pkg/thsice/thsice_calc_thickn.F 835 THSICE_CALC_THICKN 
           frw2oc(i,j) = frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 836 THSICE_CALC_THICKN 
     &          + (rhos*hSnow(i,j) + rhoi*hIce(i,j))/dt
./pkg/thsice/thsice_calc_thickn.F 837 THSICE_CALC_THICKN 
           esurp(i,j) = esurp(i,j) - rhos*qsnow*hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 838 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,1)*hnew(i,j,1)
./pkg/thsice/thsice_calc_thickn.F 839 THSICE_CALC_THICKN 
     &          - rhoi*qicen(i,j,2)*hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 840 THSICE_CALC_THICKN 
           hIce(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 841 THSICE_CALC_THICKN 
           hSnow(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 842 THSICE_CALC_THICKN 
           tSrf(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 843 THSICE_CALC_THICKN 
           icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 844 THSICE_CALC_THICKN 
           qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 845 THSICE_CALC_THICKN 
           qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 847 THSICE_CALC_THICKN 
           IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 849 THSICE_CALC_THICKN 
     &          esurp(i,j), frw2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 870 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 872 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 874 THSICE_CALC_THICKN 
         IF ( hIce(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 884 THSICE_CALC_THICKN 
     &       + sNx*(j-1)
./pkg/thsice/thsice_calc_thickn.F 897 THSICE_CALC_THICKN 
          IF ( hSnow(i,j) .GT. hIce(i,j)*floodFac
./pkg/thsice/thsice_calc_thickn.F 898 THSICE_CALC_THICKN 
     &         .OR. hSnow(i,j) .GT. hsMax ) THEN
./pkg/thsice/thsice_calc_thickn.F 905 THSICE_CALC_THICKN 
           dhs = (hSnow(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw
./pkg/thsice/thsice_calc_thickn.F 906 THSICE_CALC_THICKN 
           dhs = MAX( hSnow(i,j) - hsMax, dhs )
./pkg/thsice/thsice_calc_thickn.F 908 THSICE_CALC_THICKN 
           rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs
./pkg/thsice/thsice_calc_thickn.F 909 THSICE_CALC_THICKN 
           hnew(i,j,1)    = hnew(i,j,1) + dhi
./pkg/thsice/thsice_calc_thickn.F 910 THSICE_CALC_THICKN 
           qicen(i,j,1)   = rqh / (rhoi*hnew(i,j,1))
./pkg/thsice/thsice_calc_thickn.F 911 THSICE_CALC_THICKN 
           hIce(i,j)  = hIce(i,j) + dhi
./pkg/thsice/thsice_calc_thickn.F 912 THSICE_CALC_THICKN 
           hSnow(i,j) = hSnow(i,j) - dhs
./pkg/thsice/thsice_calc_thickn.F 919 THSICE_CALC_THICKN 
          IF (hIce(i,j).GT.hiMax) THEN
./pkg/thsice/thsice_calc_thickn.F 921 THSICE_CALC_THICKN 
           chi=hIce(i,j)-hiMax
./pkg/thsice/thsice_calc_thickn.F 922 THSICE_CALC_THICKN 
           hnew(i,j,1)=hnew(i,j,1)-chi/2. _d 0
./pkg/thsice/thsice_calc_thickn.F 923 THSICE_CALC_THICKN 
           hnew(i,j,2)=hnew(i,j,2)-chi/2. _d 0
./pkg/thsice/thsice_calc_thickn.F 924 THSICE_CALC_THICKN 
           frw2oc(i,j) = frw2oc(i,j) + chi*rhoi/dt
./pkg/thsice/thsice_calc_thickn.F 934 THSICE_CALC_THICKN 
          hIce(i,j) = hnew(i,j,1) + hnew(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 937 THSICE_CALC_THICKN 
          IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 939 THSICE_CALC_THICKN 
     &         hnew(i,j,1), hnew(i,j,2),
./pkg/thsice/thsice_calc_thickn.F 940 THSICE_CALC_THICKN 
     &         qicen(i,j,1), qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 943 THSICE_CALC_THICKN 
          hlyr = hIce(i,j) * rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 952 THSICE_CALC_THICKN 
          if (hnew(i,j,1).gt.hnew(i,j,2)) then
./pkg/thsice/thsice_calc_thickn.F 954 THSICE_CALC_THICKN 
           f1 = (hnew(i,j,1)-hlyr)/hlyr
./pkg/thsice/thsice_calc_thickn.F 955 THSICE_CALC_THICKN 
           q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 957 THSICE_CALC_THICKN 
            qicen(i,j,2) = q2tmp
./pkg/thsice/thsice_calc_thickn.F 960 THSICE_CALC_THICKN 
            qh2 = hlyr*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 961 THSICE_CALC_THICKN 
            qhtot = hnew(i,j,1)*qicen(i,j,1) + hnew(i,j,2)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 963 THSICE_CALC_THICKN 
            qicen(i,j,1) = qh1/hlyr
./pkg/thsice/thsice_calc_thickn.F 967 THSICE_CALC_THICKN 
           f1 = hnew(i,j,1)/hlyr
./pkg/thsice/thsice_calc_thickn.F 968 THSICE_CALC_THICKN 
           qicen(i,j,1) = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 973 THSICE_CALC_THICKN 
          IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 975 THSICE_CALC_THICKN 
     &         icFrac(i,j),hIce(i,j), (qicen(i,j,1)+qicen(i,j,2))*0.5,
./pkg/thsice/thsice_calc_thickn.F 976 THSICE_CALC_THICKN 
     &         hSnow(i,j)
./pkg/thsice/thsice_calc_thickn.F 989 THSICE_CALC_THICKN 
      DO j = jMin, jMax
./pkg/thsice/thsice_calc_thickn.F 991 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 994 THSICE_CALC_THICKN 
         IF (hIce(i,j).LE.0. _d 0) icFrac(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 997 THSICE_CALC_THICKN 
         flx2oc(i,j) = flx2oc(i,j)
./pkg/thsice/thsice_calc_thickn.F 998 THSICE_CALC_THICKN 
     &        + (Fbot(i,j)+(esurp(i,j)+etop(i,j)+ebot(i,j))/dt)
./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 75 THSICE_DIAGNOSTICS_STATE 
        DO j=1,sNy
./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 75 THSICE_DIFFUSION 
        DO j=1-OLy,sNy+OLy
./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 83 THSICE_DIFFUSION 
        DO j=1-OLy,sNy+OLy
./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 94 THSICE_DIFFUSION 
        DO j=1-OLy+1,sNy+OLy
./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)
./model/src/freeze.F 37 FREEZE 
      INTEGER i,j
./model/src/freeze.F 44 FREEZE 
       DO j=jMin,jMax
./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/thsice/thsice_extend.F 113 THSICE_EXTEND 
      INTEGER  i,j     ! loop indices
./pkg/thsice/thsice_extend.F 145 THSICE_EXTEND 
      DO j = jMin, jMax
./pkg/thsice/thsice_extend.F 163 THSICE_EXTEND 
        IF (fzMlOc(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_extend.F 164 THSICE_EXTEND 
          esurp   = fzMlOc(i,j)
./pkg/thsice/thsice_extend.F 165 THSICE_EXTEND 
          Tf      = tFrz(i,j)
./pkg/thsice/thsice_extend.F 166 THSICE_EXTEND 
          iceFrac = icFrac(i,j)
./pkg/thsice/thsice_extend.F 167 THSICE_EXTEND 
          iceThick= hIce(i,j)
./pkg/thsice/thsice_extend.F 168 THSICE_EXTEND 
          qicen(1)= qIc1(i,j)
./pkg/thsice/thsice_extend.F 169 THSICE_EXTEND 
          qicen(2)= qIc2(i,j)
./pkg/thsice/thsice_extend.F 184 THSICE_EXTEND 
        IF ( icFrac(i,j).EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F 202 THSICE_EXTEND 
            iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax)
./pkg/thsice/thsice_extend.F 210 THSICE_EXTEND 
            hSnow(i,j) = hSnow(i,j)*icFrac(i,j)/iceFrac
./pkg/thsice/thsice_extend.F 213 THSICE_EXTEND 
        flx2oc(i,j)= qicAv*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 214 THSICE_EXTEND 
        frw2oc(i,j)= -rhoi*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 215 THSICE_EXTEND 
        fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice
./pkg/thsice/thsice_extend.F 219 THSICE_EXTEND 
        IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_extend.F 221 THSICE_EXTEND 
     &                       iceThick, newIce, iceFrac-icFrac(i,j)
./pkg/thsice/thsice_extend.F 223 THSICE_EXTEND 
     &                  iceFrac,flx2oc(i,j),fsalt(i,j),frw2oc(i,j)
./pkg/thsice/thsice_extend.F 227 THSICE_EXTEND 
          CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 1,
./pkg/thsice/thsice_extend.F 228 THSICE_EXTEND 
     I            icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen,
./pkg/thsice/thsice_extend.F 229 THSICE_EXTEND 
     I            flx2oc(i,j), frw2oc(i,j), fsalt(i,j),
./pkg/thsice/thsice_extend.F 234 THSICE_EXTEND 
          IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN
./pkg/thsice/thsice_extend.F 236 THSICE_EXTEND 
            tSrf(i,j)   = tFrz(i,j)
./pkg/thsice/thsice_extend.F 237 THSICE_EXTEND 
            tIc1(i,j)   = tFrz(i,j)
./pkg/thsice/thsice_extend.F 238 THSICE_EXTEND 
            tIc2(i,j)   = tFrz(i,j)
./pkg/thsice/thsice_extend.F 239 THSICE_EXTEND 
            qIc1(i,j)   = qicen(1)
./pkg/thsice/thsice_extend.F 240 THSICE_EXTEND 
            qIc2(i,j)   = qicen(2)
./pkg/thsice/thsice_extend.F 242 THSICE_EXTEND 
          icFrac(i,j) = iceFrac
./pkg/thsice/thsice_extend.F 243 THSICE_EXTEND 
          hIce(i,j)   = iceThick
./pkg/thsice/thsice_get_bulkf.F 100 THSICE_GET_BULKF 
     I               Tsurf, flwdwn(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 101 THSICE_GET_BULKF 
     I               ThAir(i,j,bi,bj), Tair(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 102 THSICE_GET_BULKF 
     I               Qair(i,j,bi,bj), wspeed(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 107 THSICE_GET_BULKF 
          flxExcSw(i,j) = sFlx(1)
./pkg/thsice/thsice_get_bulkf.F 108 THSICE_GET_BULKF 
          dFlxdT(i,j)   = sFlx(2)
./pkg/thsice/thsice_get_bulkf.F 110 THSICE_GET_BULKF 
          evap(i,j)  = EVPloc(1) * 1. _d -3
./pkg/thsice/thsice_get_bulkf.F 111 THSICE_GET_BULKF 
          dEvdT(i,j) = dEvp(1)   * 1. _d -3
./pkg/thsice/thsice_get_bulkf.F 124 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 125 THSICE_GET_BULKF 
     I          Tair(i,j,bi,bj), Qair(i,j,bi,bj),
./pkg/thsice/thsice_get_bulkf.F 126 THSICE_GET_BULKF 
     I          cloud(i,j,bi,bj), Tsf(i,j),
./pkg/thsice/thsice_get_bulkf.F 127 THSICE_GET_BULKF 
     O          flwup, flh, fsh, dFlxdT(i,j), ust, vst,
./pkg/thsice/thsice_get_bulkf.F 128 THSICE_GET_BULKF 
     O          evap(i,j), ssq, dEvdT(i,j),
./pkg/thsice/thsice_get_bulkf.F 132 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 133 THSICE_GET_BULKF 
     I          Tair(i,j,bi,bj), Qair(i,j,bi,bj), Tsf(i,j),
./pkg/thsice/thsice_get_bulkf.F 134 THSICE_GET_BULKF 
     O          flwup, flh, fsh, dFlxdT(i,j), ust, vst,
./pkg/thsice/thsice_get_bulkf.F 135 THSICE_GET_BULKF 
     O          evap(i,j), ssq, dEvdT(i,j),
./pkg/thsice/thsice_get_bulkf.F 136 THSICE_GET_BULKF 
     I          iceornot, i,j,bi,bj,myThid )
./pkg/thsice/thsice_get_bulkf.F 139 THSICE_GET_BULKF 
          flwNet_dwn = flwdwn(i,j,bi,bj) - flwup
./pkg/thsice/thsice_get_bulkf.F 140 THSICE_GET_BULKF 
          flxExcSw(i,j) = flwNet_dwn + fsh + flh
./pkg/thsice/thsice_get_bulkf.F 73 THSICE_GET_BULKF 
      INTEGER i, j
./pkg/thsice/thsice_get_bulkf.F 84 THSICE_GET_BULKF 
      DO j=jMin,jMax
./pkg/thsice/thsice_get_bulkf.F 86 THSICE_GET_BULKF 
        IF ( iceFlag(i,j) ) THEN
./pkg/thsice/thsice_get_bulkf.F 89 THSICE_GET_BULKF 
         IF ( hSnow(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_bulkf.F 98 THSICE_GET_BULKF 
          Tsurf(1) = Tsf(i,j)
./pkg/thsice/thsice_get_exf.F 199 THSICE_GET_EXF 
      DO j = 1-Oly,sNy+Oly
./pkg/thsice/thsice_get_exf.F 201 THSICE_GET_EXF 
        tstar(i,j)  = 0. _d 0
./pkg/thsice/thsice_get_exf.F 202 THSICE_GET_EXF 
        qstar(i,j)  = 0. _d 0
./pkg/thsice/thsice_get_exf.F 203 THSICE_GET_EXF 
        ustar(i,j)  = 0. _d 0
./pkg/thsice/thsice_get_exf.F 204 THSICE_GET_EXF 
        rdn(i,j)    = 0. _d 0
./pkg/thsice/thsice_get_exf.F 205 THSICE_GET_EXF 
        rd(i,j)     = 0. _d 0
./pkg/thsice/thsice_get_exf.F 206 THSICE_GET_EXF 
        rh(i,j)     = 0. _d 0
./pkg/thsice/thsice_get_exf.F 207 THSICE_GET_EXF 
        re(i,j)     = 0. _d 0
./pkg/thsice/thsice_get_exf.F 208 THSICE_GET_EXF 
        delq(i,j)   = 0. _d 0
./pkg/thsice/thsice_get_exf.F 209 THSICE_GET_EXF 
        deltap(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 210 THSICE_GET_EXF 
        ssq(i,j)    = 0. _d 0
./pkg/thsice/thsice_get_exf.F 214 THSICE_GET_EXF 
      DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F 218 THSICE_GET_EXF 
        IF ( dBug(i,j,bi,bj) .AND. iceFlag(i,j) ) WRITE(stdUnit,
./pkg/thsice/thsice_get_exf.F 220 THSICE_GET_EXF 
     &           i,j,bi,bj, atemp(i,j,bi,bj),lwdown(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 224 THSICE_GET_EXF 
        IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 225 THSICE_GET_EXF 
         IF ( hSnow(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_exf.F 231 THSICE_GET_EXF 
         Tsf         = tsfCel(i,j)+cen2kel
./pkg/thsice/thsice_get_exf.F 237 THSICE_GET_EXF 
         wsm         = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 242 THSICE_GET_EXF 
         ssq(i,j)    = tmpbulk/atmrho
./pkg/thsice/thsice_get_exf.F 243 THSICE_GET_EXF 
         deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/thsice/thsice_get_exf.F 244 THSICE_GET_EXF 
         delq(i,j)   = aqh(i,j,bi,bj) - ssq(i,j)
./pkg/thsice/thsice_get_exf.F 249 THSICE_GET_EXF 
         dEvdT(i,j)  = ssq(i,j)*qsat_exp/Ts2
./pkg/thsice/thsice_get_exf.F 255 THSICE_GET_EXF 
         flwNet_dwn  = emiss*lwdown(i,j,bi,bj) - flwup
./pkg/thsice/thsice_get_exf.F 261 THSICE_GET_EXF 
         dFlxdT(i,j)   = -dflwupdT
./pkg/thsice/thsice_get_exf.F 263 THSICE_GET_EXF 
         flxExcSw(i,j) = flwNet_dwn
./pkg/thsice/thsice_get_exf.F 271 THSICE_GET_EXF 
       DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F 273 THSICE_GET_EXF 
         IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 280 THSICE_GET_EXF 
          t0         = atemp(i,j,bi,bj)*
./pkg/thsice/thsice_get_exf.F 281 THSICE_GET_EXF 
     &         (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 282 THSICE_GET_EXF 
          stable     = exf_half + SIGN(exf_half, deltap(i,j))
./pkg/thsice/thsice_get_exf.F 284 THSICE_GET_EXF 
          wsm        = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 287 THSICE_GET_EXF 
           rdn(i,j)   = SQRT(tmpbulk)
./pkg/thsice/thsice_get_exf.F 289 THSICE_GET_EXF 
           rdn(i,j)   = 0. _d 0
./pkg/thsice/thsice_get_exf.F 295 THSICE_GET_EXF 
          ustar(i,j) = rdn(i,j)*wsm
./pkg/thsice/thsice_get_exf.F 296 THSICE_GET_EXF 
          tstar(i,j) = rhn*deltap(i,j)
./pkg/thsice/thsice_get_exf.F 297 THSICE_GET_EXF 
          qstar(i,j) = ren*delq(i,j)
./pkg/thsice/thsice_get_exf.F 303 THSICE_GET_EXF 
        DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F 305 THSICE_GET_EXF 
          IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 322 THSICE_GET_EXF 
           t0     = atemp(i,j,bi,bj)*
./pkg/thsice/thsice_get_exf.F 323 THSICE_GET_EXF 
     &          (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 324 THSICE_GET_EXF 
           huol   = (tstar(i,j)/t0 +
./pkg/thsice/thsice_get_exf.F 325 THSICE_GET_EXF 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 326 THSICE_GET_EXF 
     &              )*czol/(ustar(i,j)*ustar(i,j))
./pkg/thsice/thsice_get_exf.F 366 THSICE_GET_EXF 
           usn    = wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 367 THSICE_GET_EXF 
     &           /( exf_one + rdn(i,j)*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 370 THSICE_GET_EXF 
           usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/thsice/thsice_get_exf.F 377 THSICE_GET_EXF 
           rdn(i,j) = SQRT(tmpbulk)
./pkg/thsice/thsice_get_exf.F 383 THSICE_GET_EXF 
           rd(i,j)= rdn(i,j)/( exf_one + rdn(i,j)*(zwln-psimh)/karman )
./pkg/thsice/thsice_get_exf.F 385 THSICE_GET_EXF 
           rd(i,j)= rdn(i,j)/( exf_one - rdn(i,j)/karman*psimh )
./pkg/thsice/thsice_get_exf.F 387 THSICE_GET_EXF 
           rh(i,j)= rhn/( exf_one + rhn*(ztln-psixh)/karman )
./pkg/thsice/thsice_get_exf.F 388 THSICE_GET_EXF 
           re(i,j)= ren/( exf_one + ren*(ztln-psixh)/karman )
./pkg/thsice/thsice_get_exf.F 391 THSICE_GET_EXF 
           ustar(i,j)  = rd(i,j)*sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 392 THSICE_GET_EXF 
           qstar(i,j)  = re(i,j)*delq(i,j)
./pkg/thsice/thsice_get_exf.F 393 THSICE_GET_EXF 
           tstar(i,j)  = rh(i,j)*deltap(i,j)
./pkg/thsice/thsice_get_exf.F 400 THSICE_GET_EXF 
       DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F 402 THSICE_GET_EXF 
         IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 403 THSICE_GET_EXF 
          tau     = atmrho*rd(i,j)*wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 404 THSICE_GET_EXF 
          evapLoc(i,j)  = -tau*qstar(i,j)
./pkg/thsice/thsice_get_exf.F 405 THSICE_GET_EXF 
          hlLocal       = -lath*evapLoc(i,j)
./pkg/thsice/thsice_get_exf.F 406 THSICE_GET_EXF 
          hsLocal       = atmcp*tau*tstar(i,j)
./pkg/thsice/thsice_get_exf.F 412 THSICE_GET_EXF 
          dEvdT(i,j)    = (tau*re(i,j))*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F 413 THSICE_GET_EXF 
          dflhdT        = -lath*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F 414 THSICE_GET_EXF 
          dfshdT        = -atmcp*tau*rh(i,j)
./pkg/thsice/thsice_get_exf.F 416 THSICE_GET_EXF 
          dFlxdT(i,j)   = dFlxdT(i,j)   + dfshdT  + dflhdT
./pkg/thsice/thsice_get_exf.F 418 THSICE_GET_EXF 
          flxExcSw(i,j) = flxExcSw(i,j) + hsLocal + hlLocal
./pkg/thsice/thsice_get_exf.F 427 THSICE_GET_EXF 
       DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F 429 THSICE_GET_EXF 
         IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 430 THSICE_GET_EXF 
          wsm           = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 432 THSICE_GET_EXF 
          evapLoc(i,j)  = -tau*delq(i,j)
./pkg/thsice/thsice_get_exf.F 433 THSICE_GET_EXF 
          hlLocal       = -lath*evapLoc(i,j)
./pkg/thsice/thsice_get_exf.F 434 THSICE_GET_EXF 
          hsLocal       = atmcp*atmrho*exf_iceCh*wsm*deltap(i,j)
./pkg/thsice/thsice_get_exf.F 436 THSICE_GET_EXF 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)')
./pkg/thsice/thsice_get_exf.F 438 THSICE_GET_EXF 
     &                     wsm,hlLocal,hsLocal,flxExcSw(i,j)
./pkg/thsice/thsice_get_exf.F 442 THSICE_GET_EXF 
          dEvdT(i,j)    = tau*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F 443 THSICE_GET_EXF 
          dflhdT        = -lath*dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F 446 THSICE_GET_EXF 
          dFlxdT(i,j)   = dFlxdT(i,j)   + dfshdT  + dflhdT
./pkg/thsice/thsice_get_exf.F 448 THSICE_GET_EXF 
          flxExcSw(i,j) = flxExcSw(i,j) + hsLocal + hlLocal
./pkg/thsice/thsice_get_exf.F 450 THSICE_GET_EXF 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)')
./pkg/thsice/thsice_get_exf.F 452 THSICE_GET_EXF 
     &       flxExcSw(i,j), dFlxdT(i,j), evapLoc(i,j),dEvdT(i,j)
./pkg/thsice/thsice_get_exf.F 460 THSICE_GET_EXF 
      DO j=jMin,jMax
./pkg/thsice/thsice_get_exf.F 462 THSICE_GET_EXF 
        IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).LE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 464 THSICE_GET_EXF 
         flxExcSw(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 465 THSICE_GET_EXF 
         dFlxdT  (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 466 THSICE_GET_EXF 
         evapLoc (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 467 THSICE_GET_EXF 
         dEvdT   (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 86 THSICE_GET_EXF 
      INTEGER i, j
./pkg/thsice/thsice_get_precip.F 63 THSICE_GET_PRECIP 
      INTEGER i,j
./pkg/thsice/thsice_get_precip.F 65 THSICE_GET_PRECIP 
      DO j = jMin, jMax
./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 66 THSICE_GET_VELOCITY 
        DO j=1-OLy,sNy+OLy
./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 77 THSICE_GET_VELOCITY 
        DO j=1-OLy,sNy+OLy
./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 81 THSICE_IMPL_TEMP 
      DO j = jMin, jMax
./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 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 147 THSICE_INI_VARS 
           DO j=1-OLy,sNy+OLy
./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 175 THSICE_INI_VARS 
         DO j=1-OLy,sNy+OLy
./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 56 THSICE_INI_VARS 
          DO j=1-OLy,sNy+OLy
./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 70 THSICE_INI_VARS 
          DO j=1-OLy,sNy+OLy
./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 87 THSICE_INI_VARS 
          DO j=1-OLy,sNy+OLy
./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_ini_vars.F 99 THSICE_INI_VARS 
           DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_main.F 121 THSICE_MAIN 
          DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_main.F 123 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*h0FacC(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 124 THSICE_MAIN 
     &                                  *rStarFacC(i,j,bi,bj)
./pkg/thsice/thsice_main.F 128 THSICE_MAIN 
          DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_main.F 130 THSICE_MAIN 
            IF ( ksurfC(i,j,bi,bj).EQ.1 ) THEN
./pkg/thsice/thsice_main.F 131 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*hFac_surfC(i,j,bi,bj)
./pkg/thsice/thsice_main.F 133 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 142 THSICE_MAIN 
          DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_main.F 144 THSICE_MAIN 
             hOceMxL(i,j,bi,bj) = drF(1)*hFacC(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 154 THSICE_MAIN 
        DO j = jMin, jMax
./pkg/thsice/thsice_main.F 156 THSICE_MAIN 
          tOceMxL(i,j,bi,bj) = theta(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 157 THSICE_MAIN 
          sOceMxL(i,j,bi,bj) = salt (i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 158 THSICE_MAIN 
          v2ocMxL(i,j,bi,bj) =
./pkg/thsice/thsice_main.F 159 THSICE_MAIN 
     &              ( uvel(i,j,1,bi,bj)*uvel(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 160 THSICE_MAIN 
     &              + uvel(i+1,j,1,bi,bj)*uvel(i+1,j,1,bi,bj)
./pkg/thsice/thsice_main.F 161 THSICE_MAIN 
     &              + vvel(i,j+1,1,bi,bj)*vvel(i,j+1,1,bi,bj)
./pkg/thsice/thsice_main.F 162 THSICE_MAIN 
     &              + vvel(i,j,1,bi,bj)*vvel(i,j,1,bi,bj)
./pkg/thsice/thsice_main.F 164 THSICE_MAIN 
          prcAtm(i,j) = 0.
./pkg/thsice/thsice_main.F 165 THSICE_MAIN 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 166 THSICE_MAIN 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 167 THSICE_MAIN 
          icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 168 THSICE_MAIN 
          snowPrc(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 169 THSICE_MAIN 
          siceAlb(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 275 THSICE_MAIN 
          DO j = jMin, jMax
./pkg/thsice/thsice_main.F 278 THSICE_MAIN 
     &             *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 279 THSICE_MAIN 
            fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj)
./pkg/thsice/thsice_main.F 282 THSICE_MAIN 
          DO j = jMin+1, jMax
./pkg/thsice/thsice_main.F 285 THSICE_MAIN 
     &             *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 286 THSICE_MAIN 
            fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj)
./pkg/thsice/thsice_main.F 51 THSICE_MAIN 
      INTEGER i,j
./model/src/freeze_surface.F 41 FREEZE_SURFACE 
      INTEGER bi,bj,i,j,k
./model/src/freeze_surface.F 56 FREEZE_SURFACE 
        DO j=1-OLy,sNy+OLy
./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/thsice/thsice_map_exf.F 63 THSICE_MAP_EXF 
      INTEGER i,j
./pkg/thsice/thsice_map_exf.F 65 THSICE_MAP_EXF 
      DO j = jMin, jMax
./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 85 THSICE_MAP_EXF 
       DO j = jMin, jMax
./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 93 THSICE_MAP_EXF 
       DO j = jMin, jMax
./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 117 THSICE_MONITOR 
          DO j=1-OLy,sNy+OLy
./pkg/thsice/thsice_monitor.F 119 THSICE_MONITOR 
            locMask(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_monitor.F 193 THSICE_MONITOR 
          DO j=1-OLy,sNy+OLy
./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_slab_ocean.F 108 THSICE_SLAB_OCEAN 
        DO j=1,sNy
./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 122 THSICE_SLAB_OCEAN 
       DO j=1,sNy
./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 136 THSICE_SLAB_OCEAN 
       DO j=1,sNy
./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 76 THSICE_SLAB_OCEAN 
       DO j=1,sNy
./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 94 THSICE_SLAB_OCEAN 
        DO j=1,sNy
./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 145 THSICE_SOLVE4TEMP 
      INTEGER i, j, k, iterMax
./pkg/thsice/thsice_solve4temp.F 197 THSICE_SOLVE4TEMP 
      DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_solve4temp.F 199 THSICE_SOLVE4TEMP 
        tIc1(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 200 THSICE_SOLVE4TEMP 
        tIc2(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 217 THSICE_SOLVE4TEMP 
      DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F 235 THSICE_SOLVE4TEMP 
        IF ( iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 237 THSICE_SOLVE4TEMP 
          iceFlag(i,j) = .TRUE.
./pkg/thsice/thsice_solve4temp.F 239 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)')
./pkg/thsice/thsice_solve4temp.F 240 THSICE_SOLVE4TEMP 
     &         'ThSI_SOLVE4T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_solve4temp.F 242 THSICE_SOLVE4TEMP 
          IF ( hIce(i,j).LT.hIceMin ) THEN
./pkg/thsice/thsice_solve4temp.F 246 THSICE_SOLVE4TEMP 
           jj = j
./pkg/thsice/thsice_solve4temp.F 254 THSICE_SOLVE4TEMP 
          IF ( hSnow(i,j) .GT. iceMask(i,j)*dhSnowLin ) THEN
./pkg/thsice/thsice_solve4temp.F 257 THSICE_SOLVE4TEMP 
           frsnow = hSnow(i,j)*recip_dhSnowLin/iceMask(i,j)
./pkg/thsice/thsice_solve4temp.F 262 THSICE_SOLVE4TEMP 
          fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac
./pkg/thsice/thsice_solve4temp.F 263 THSICE_SOLVE4TEMP 
          fswocn = fswpen * exp(-ksolar*hIce(i,j))
./pkg/thsice/thsice_solve4temp.F 265 THSICE_SOLVE4TEMP 
          fswdn  = flxSW(i,j) - fswpen
./pkg/thsice/thsice_solve4temp.F 268 THSICE_SOLVE4TEMP 
          flxAtm(i,j) = flxSW(i,j)
./pkg/thsice/thsice_solve4temp.F 270 THSICE_SOLVE4TEMP 
          flxSW(i,j) = fswocn
./pkg/thsice/thsice_solve4temp.F 272 THSICE_SOLVE4TEMP 
          sHeat(i,j) = fswdn
./pkg/thsice/thsice_solve4temp.F 275 THSICE_SOLVE4TEMP 
          k12(i,j) = 4. _d 0*kIce*kSnow
./pkg/thsice/thsice_solve4temp.F 276 THSICE_SOLVE4TEMP 
     &             / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow(i,j))
./pkg/thsice/thsice_solve4temp.F 277 THSICE_SOLVE4TEMP 
          k32      = 2. _d 0*kIce  / hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 281 THSICE_SOLVE4TEMP 
          b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh
./pkg/thsice/thsice_solve4temp.F 283 THSICE_SOLVE4TEMP 
          tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1
./pkg/thsice/thsice_solve4temp.F 284 THSICE_SOLVE4TEMP 
          tIc2(i,j) = (Lfresh-qIc2(i,j)) / cpIce
./pkg/thsice/thsice_solve4temp.F 287 THSICE_SOLVE4TEMP 
          IF (tIc1(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 289 THSICE_SOLVE4TEMP 
     &       ' BBerr: Tice(1) > 0 ; it=', myIter, qIc1(i,j)
./pkg/thsice/thsice_solve4temp.F 291 THSICE_SOLVE4TEMP 
     &      ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 293 THSICE_SOLVE4TEMP 
          IF ( tIc2(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 295 THSICE_SOLVE4TEMP 
     &       ' BBerr: Tice(2) > 0 ; it=', myIter, qIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 297 THSICE_SOLVE4TEMP 
     &      ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 299 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 300 THSICE_SOLVE4TEMP 
     &      'ThSI_SOLVE4T: k, Ts, Tice=',0,tSrf(i,j),tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 305 THSICE_SOLVE4TEMP 
          a10(i,j) = rhoi*cpIce *hIce(i,j)/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 306 THSICE_SOLVE4TEMP 
     &          k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 307 THSICE_SOLVE4TEMP 
     &           / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 308 THSICE_SOLVE4TEMP 
          b10(i,j) = -hIce(i,j)*
./pkg/thsice/thsice_solve4temp.F 309 THSICE_SOLVE4TEMP 
     &          ( rhoi*cpIce*tIc1(i,j) + rhoi*Lfresh*Tmlt1/tIc1(i,j) )
./pkg/thsice/thsice_solve4temp.F 311 THSICE_SOLVE4TEMP 
     &        - k32*( 4. _d 0*dt*k32*tFrz(i,j)
./pkg/thsice/thsice_solve4temp.F 312 THSICE_SOLVE4TEMP 
     &               +rhoi*cpIce*hIce(i,j)*tIc2(i,j) )
./pkg/thsice/thsice_solve4temp.F 313 THSICE_SOLVE4TEMP 
     &           / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 315 THSICE_SOLVE4TEMP 
          c10(i,j) = rhoi*Lfresh*hIce(i,j)*Tmlt1 / (2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 318 THSICE_SOLVE4TEMP 
          iceFlag(i,j) = .FALSE.
./pkg/thsice/thsice_solve4temp.F 349 THSICE_SOLVE4TEMP 
        DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F 351 THSICE_SOLVE4TEMP 
           Tsf(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F 375 THSICE_SOLVE4TEMP 
      DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F 377 THSICE_SOLVE4TEMP 
          Tsf(i,j)  = tSrf(i,j)
./pkg/thsice/thsice_solve4temp.F 378 THSICE_SOLVE4TEMP 
          dTsrf(i,j) = Terrmax
./pkg/thsice/thsice_solve4temp.F 420 THSICE_SOLVE4TEMP 
         DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F 422 THSICE_SOLVE4TEMP 
           IF ( iceFlag(i,j) ) THEN
./pkg/thsice/thsice_solve4temp.F 423 THSICE_SOLVE4TEMP 
             flxTexSW(i,j) = flxExSW(i,j,1)
./pkg/thsice/thsice_solve4temp.F 424 THSICE_SOLVE4TEMP 
             dFlxdT(i,j) = flxExSW(i,j,2)
./pkg/thsice/thsice_solve4temp.F 441 THSICE_SOLVE4TEMP 
       DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F 443 THSICE_SOLVE4TEMP 
         IF ( iceFlag(i,j) ) THEN
./pkg/thsice/thsice_solve4temp.F 444 THSICE_SOLVE4TEMP 
          flxNet = sHeat(i,j) + flxTexSW(i,j)
./pkg/thsice/thsice_solve4temp.F 446 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020)
./pkg/thsice/thsice_solve4temp.F 448 THSICE_SOLVE4TEMP 
     &      flxNet, dFlxdT(i,j), k12(i,j), k12(i,j)-dFlxdT(i,j)
./pkg/thsice/thsice_solve4temp.F 451 THSICE_SOLVE4TEMP 
          a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j))
./pkg/thsice/thsice_solve4temp.F 452 THSICE_SOLVE4TEMP 
          b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(i,j))
./pkg/thsice/thsice_solve4temp.F 453 THSICE_SOLVE4TEMP 
     &                  /(k12(i,j)-dFlxdT(i,j))
./pkg/thsice/thsice_solve4temp.F 454 THSICE_SOLVE4TEMP 
          c1 = c10(i,j)
./pkg/thsice/thsice_solve4temp.F 455 THSICE_SOLVE4TEMP 
          tIc1(i,j)  = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./pkg/thsice/thsice_solve4temp.F 456 THSICE_SOLVE4TEMP 
          dTsrf(i,j) = (flxNet + k12(i,j)*(tIc1(i,j)-Tsf(i,j)))
./pkg/thsice/thsice_solve4temp.F 457 THSICE_SOLVE4TEMP 
     &                  /(k12(i,j)-dFlxdT(i,j))
./pkg/thsice/thsice_solve4temp.F 458 THSICE_SOLVE4TEMP 
          Tsf(i,j) = Tsf(i,j) + dTsrf(i,j)
./pkg/thsice/thsice_solve4temp.F 459 THSICE_SOLVE4TEMP 
          IF ( Tsf(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 461 THSICE_SOLVE4TEMP 
           IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 462 THSICE_SOLVE4TEMP 
     &     'ThSI_SOLVE4T: k,ts,t1,dTs=',k,Tsf(i,j),tIc1(i,j),dTsrf(i,j)
./pkg/thsice/thsice_solve4temp.F 464 THSICE_SOLVE4TEMP 
           a1 = a10(i,j) + k12(i,j)
./pkg/thsice/thsice_solve4temp.F 466 THSICE_SOLVE4TEMP 
           b1 = b10(i,j)
./pkg/thsice/thsice_solve4temp.F 467 THSICE_SOLVE4TEMP 
           tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./pkg/thsice/thsice_solve4temp.F 468 THSICE_SOLVE4TEMP 
           Tsf(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 470 THSICE_SOLVE4TEMP 
            flxTexSW(i,j) = flx0exSW(i,j)
./pkg/thsice/thsice_solve4temp.F 471 THSICE_SOLVE4TEMP 
            evapT(i,j) = evap0(i,j)
./pkg/thsice/thsice_solve4temp.F 472 THSICE_SOLVE4TEMP 
            dTsrf(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 474 THSICE_SOLVE4TEMP 
            flxTexSW(i,j) = flxExSW(i,j,0)
./pkg/thsice/thsice_solve4temp.F 475 THSICE_SOLVE4TEMP 
            dTsrf(i,j) = 1000.
./pkg/thsice/thsice_solve4temp.F 476 THSICE_SOLVE4TEMP 
            dFlxdT(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F 481 THSICE_SOLVE4TEMP 
          iceFlag(i,j) = ABS(dTsrf(i,j)).GE.Terrmax
./pkg/thsice/thsice_solve4temp.F 482 THSICE_SOLVE4TEMP 
          iterate4Tsf = iterate4Tsf .OR. iceFlag(i,j)
./pkg/thsice/thsice_solve4temp.F 490 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 491 THSICE_SOLVE4TEMP 
     &    'ThSI_SOLVE4T: k,ts,t1,dTs=', k,Tsf(i,j),tIc1(i,j),dTsrf(i,j)
./pkg/thsice/thsice_solve4temp.F 492 THSICE_SOLVE4TEMP 
          IF ( useBlkFlx .AND. k.EQ.nitMaxTsf .AND. iceFlag(i,j) ) THEN
./pkg/thsice/thsice_solve4temp.F 494 THSICE_SOLVE4TEMP 
     &       ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 496 THSICE_SOLVE4TEMP 
     &        'BB: not converge: Tsf, dTsf=', Tsf(i,j), dTsrf(i,j)
./pkg/thsice/thsice_solve4temp.F 498 THSICE_SOLVE4TEMP 
     &        'BB: not converge: flxNet,dFlxT=', flxNet, dFlxdT(i,j)
./pkg/thsice/thsice_solve4temp.F 499 THSICE_SOLVE4TEMP 
           IF ( Tsf(i,j).LT.-70. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 501 THSICE_SOLVE4TEMP 
     &        'THSICE_SOLVE4TEMP: Too low Tsf in', i, j, bi, bj,
./pkg/thsice/thsice_solve4temp.F 502 THSICE_SOLVE4TEMP 
     &                            myIter, Tsf(i,j)
./pkg/thsice/thsice_solve4temp.F 520 THSICE_SOLVE4TEMP 
      DO j = jMin, jMax
./pkg/thsice/thsice_solve4temp.F 522 THSICE_SOLVE4TEMP 
        IF ( iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 525 THSICE_SOLVE4TEMP 
          k32       = 2. _d 0*kIce  / hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 526 THSICE_SOLVE4TEMP 
          tIc2(i,j) = ( 2. _d 0*dt*k32*(tIc1(i,j)+2. _d 0*tFrz(i,j))
./pkg/thsice/thsice_solve4temp.F 527 THSICE_SOLVE4TEMP 
     &                 + rhoi*cpIce*hIce(i,j)*tIc2(i,j))
./pkg/thsice/thsice_solve4temp.F 528 THSICE_SOLVE4TEMP 
     &               /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j))
./pkg/thsice/thsice_solve4temp.F 530 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 531 THSICE_SOLVE4TEMP 
     &  'ThSI_SOLVE4T: k, Ts, Tice=',k,Tsf(i,j),tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 532 THSICE_SOLVE4TEMP 
          netSW   = flxAtm(i,j)
./pkg/thsice/thsice_solve4temp.F 536 THSICE_SOLVE4TEMP 
          tSrf(i,j)  = Tsf(i,j)
./pkg/thsice/thsice_solve4temp.F 537 THSICE_SOLVE4TEMP 
          fct    = k12(i,j)*(Tsf(i,j)-tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F 538 THSICE_SOLVE4TEMP 
          flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 539 THSICE_SOLVE4TEMP 
          flxNet = sHeat(i,j) + flxTexSW(i,j)
./pkg/thsice/thsice_solve4temp.F 540 THSICE_SOLVE4TEMP 
          flxNet = flxNet + dFlxdT(i,j)*dTsrf(i,j)
./pkg/thsice/thsice_solve4temp.F 543 THSICE_SOLVE4TEMP 
            evpAtm(i,j) = evapT(i,j) + dEvdT(i,j)*dTsrf(i,j)
./pkg/thsice/thsice_solve4temp.F 546 THSICE_SOLVE4TEMP 
            evpAtm(i,j) = 0.
./pkg/thsice/thsice_solve4temp.F 550 THSICE_SOLVE4TEMP 
          flxAtm(i,j) = flxAtm(i,j) + flxTexSW(i,j)
./pkg/thsice/thsice_solve4temp.F 551 THSICE_SOLVE4TEMP 
     &                + dFlxdT(i,j)*dTsrf(i,j) + evpAtm(i,j)*Lfresh
./pkg/thsice/thsice_solve4temp.F 553 THSICE_SOLVE4TEMP 
          sHeat(i,j) = flxNet - fct
./pkg/thsice/thsice_solve4temp.F 556 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020)
./pkg/thsice/thsice_solve4temp.F 558 THSICE_SOLVE4TEMP 
     &                    flxNet,fct,flxNet-fct,flxCnB(i,j)
./pkg/thsice/thsice_solve4temp.F 562 THSICE_SOLVE4TEMP 
          qIc1(i,j) = -cpWater*Tmlt1 + cpIce *(Tmlt1-tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F 563 THSICE_SOLVE4TEMP 
     &                + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F 564 THSICE_SOLVE4TEMP 
          qIc2(i,j) = -cpIce *tIc2(i,j) + Lfresh
./pkg/thsice/thsice_solve4temp.F 569 THSICE_SOLVE4TEMP 
          IF (tIc1(i,j) .GE. Tmlt1) THEN
./pkg/thsice/thsice_solve4temp.F 571 THSICE_SOLVE4TEMP 
     &     ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1
./pkg/thsice/thsice_solve4temp.F 573 THSICE_SOLVE4TEMP 
          IF (tIc2(i,j) .GE. 0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 575 THSICE_SOLVE4TEMP 
     &     ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 578 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_solve4temp.F 580 THSICE_SOLVE4TEMP 
     &           Tsf(i,j), tIc1(i,j), tIc2(i,j), dTsrf(i,j)
./pkg/thsice/thsice_solve4temp.F 582 THSICE_SOLVE4TEMP 
     &           sHeat(i,j), flxCnB(i,j), qIc1(i,j), qIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 584 THSICE_SOLVE4TEMP 
     &           flxAtm(i,j), evpAtm(i,j), netSW, flxSW(i,j)
./pkg/thsice/thsice_solve4temp.F 592 THSICE_SOLVE4TEMP 
          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 126 THSICE_STEP_FWD 
      DO j = 1-OLy, sNy+OLy
./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 151 THSICE_STEP_FWD 
      DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F 153 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 155 THSICE_STEP_FWD 
          snowAge(i,j,bi,bj) = thSIce_deltaT
./pkg/thsice/thsice_step_fwd.F 156 THSICE_STEP_FWD 
     &                       + snowAge(i,j,bi,bj)*ageFac
./pkg/thsice/thsice_step_fwd.F 157 THSICE_STEP_FWD 
          IF ( snowPrc(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 158 THSICE_STEP_FWD 
     &      snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 159 THSICE_STEP_FWD 
     &          * EXP( - snowFac*snowPrc(i,j,bi,bj) )
./pkg/thsice/thsice_step_fwd.F 165 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 166 THSICE_STEP_FWD 
     &                        - Lfresh*snowPrc(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 184 THSICE_STEP_FWD 
      DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F 186 THSICE_STEP_FWD 
          siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 195 THSICE_STEP_FWD 
      DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F 198 THSICE_STEP_FWD 
        tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 199 THSICE_STEP_FWD 
        cphm    = cpwater*rhosw*hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 200 THSICE_STEP_FWD 
        frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) )
./pkg/thsice/thsice_step_fwd.F 202 THSICE_STEP_FWD 
        iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 203 THSICE_STEP_FWD 
        flx2oc(i,j)  = icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 206 THSICE_STEP_FWD 
        IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_fwd.F 207 THSICE_STEP_FWD 
         IF (frzmltMxL(i,j).GT.0. .OR. iceFrac(i,j).GT.0.) THEN
./pkg/thsice/thsice_step_fwd.F 208 THSICE_STEP_FWD 
          WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_fwd.F 210 THSICE_STEP_FWD 
     &                  iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 211 THSICE_STEP_FWD 
     &                  snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 213 THSICE_STEP_FWD 
     &                     tOceMxL(i,j,bi,bj), tFrzOce(i,j),
./pkg/thsice/thsice_step_fwd.F 214 THSICE_STEP_FWD 
     &                     frzmltMxL(i,j), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 216 THSICE_STEP_FWD 
         IF (iceFrac(i,j).GT.0.)
./pkg/thsice/thsice_step_fwd.F 218 THSICE_STEP_FWD 
     &      iceFrac(i,j), icFlxAtm(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 219 THSICE_STEP_FWD 
     &      icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 250 THSICE_STEP_FWD 
      DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F 263 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 271 THSICE_STEP_FWD 
          icFrac = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 274 THSICE_STEP_FWD 
          pass_qnet(i,j) = pass_qnet(i,j) - icFrac*flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 275 THSICE_STEP_FWD 
          pass_evap(i,j) = pass_evap(i,j) - icFrac*frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F 276 THSICE_STEP_FWD 
          sFluxFromIce(i,j) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 278 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 279 THSICE_STEP_FWD 
     &                        - opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 280 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 281 THSICE_STEP_FWD 
     &                        + opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 282 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 283 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 284 THSICE_STEP_FWD 
     &                    +  opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 285 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 289 THSICE_STEP_FWD 
          IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F 291 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 292 THSICE_STEP_FWD 
     &           snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 295 THSICE_STEP_FWD 
        ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 296 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 297 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 299 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 300 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 325 THSICE_STEP_FWD 
      DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F 327 THSICE_STEP_FWD 
        IF (frzmltMxL(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 330 THSICE_STEP_FWD 
          pass_qnet(i,j) = pass_qnet(i,j) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 331 THSICE_STEP_FWD 
          pass_evap(i,j) = pass_evap(i,j) - frw2oc(i,j)/rhofw
./pkg/thsice/thsice_step_fwd.F 332 THSICE_STEP_FWD 
          sFluxFromIce(i,j)= sFluxFromIce(i,j) - fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 334 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 335 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 336 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 340 THSICE_STEP_FWD 
          IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F 342 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 343 THSICE_STEP_FWD 
     &           snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 347 THSICE_STEP_FWD 
        IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 348 THSICE_STEP_FWD 
     &    isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 349 THSICE_STEP_FWD 
     &                  .AND.   iceFrac(i,j) .LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 350 THSICE_STEP_FWD 
        IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 351 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)=iceFrac(i,j)
./pkg/thsice/thsice_step_fwd.F 352 THSICE_STEP_FWD 
          IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 353 THSICE_STEP_FWD 
     &     snowAge(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 355 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 356 THSICE_STEP_FWD 
          iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_step_fwd.F 357 THSICE_STEP_FWD 
          snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_step_fwd.F 358 THSICE_STEP_FWD 
          snowAge(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 359 THSICE_STEP_FWD 
          Tsrf(i,j,bi,bj)     = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 360 THSICE_STEP_FWD 
          Tice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 361 THSICE_STEP_FWD 
          Tice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 362 THSICE_STEP_FWD 
          Qice1(i,j,bi,bj)    = Lfresh
./pkg/thsice/thsice_step_fwd.F 363 THSICE_STEP_FWD 
          Qice2(i,j,bi,bj)    = Lfresh
./pkg/thsice/thsice_step_fwd.F 372 THSICE_STEP_FWD 
      DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F 375 THSICE_STEP_FWD 
        sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_step_fwd.F 376 THSICE_STEP_FWD 
     &                         + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_step_fwd.F 377 THSICE_STEP_FWD 
     &                        )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 383 THSICE_STEP_FWD 
       DO j = jMin, jMax
./pkg/thsice/thsice_step_fwd.F 385 THSICE_STEP_FWD 
         IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 386 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 387 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 388 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj)
./model/src/grad_sigma.F 47 GRAD_SIGMA 
      INTEGER i,j
./model/src/grad_sigma.F 52 GRAD_SIGMA 
      DO j=1-Oly,sNy+Oly
./model/src/grad_sigma.F 54 GRAD_SIGMA 
        rhoLoc(i,j) = rhoK(i,j)
./model/src/grad_sigma.F 65 GRAD_SIGMA 
      DO j=1-Oly,sNy+Oly
./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 80 GRAD_SIGMA 
      DO j=1-Oly+1,sNy+Oly
./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 89 GRAD_SIGMA 
       DO j=1-Oly,sNy+Oly
./model/src/grad_sigma.F 91 GRAD_SIGMA 
         sigmaR(i,j,k)=0.
./model/src/grad_sigma.F 95 GRAD_SIGMA 
       DO j=1-Oly,sNy+Oly
./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/thsice/thsice_step_temp.F 103 THSICE_STEP_TEMP 
       DO j = 1-OLy, sNy+OLy
./pkg/thsice/thsice_step_temp.F 105 THSICE_STEP_TEMP 
          icFlxAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F 106 THSICE_STEP_TEMP 
          icFrwAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F 133 THSICE_STEP_TEMP 
       DO j = jMin, jMax
./pkg/thsice/thsice_step_temp.F 135 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 136 THSICE_STEP_TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_temp.F 137 THSICE_STEP_TEMP 
           WRITE(6,'(A,2I4,2I2)') 'ThSI_STEP_T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_temp.F 139 THSICE_STEP_TEMP 
     &                   iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_temp.F 140 THSICE_STEP_TEMP 
     &                   snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 146 THSICE_STEP_TEMP 
       DO j = jMin, jMax
./pkg/thsice/thsice_step_temp.F 148 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 150 THSICE_STEP_TEMP 
          icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 151 THSICE_STEP_TEMP 
     &                       *(1. _d 0 - siceAlb(i,j,bi,bj))
./pkg/thsice/thsice_step_temp.F 152 THSICE_STEP_TEMP 
          tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 154 THSICE_STEP_TEMP 
          tFrzOce(i,j) = 0. _d 0
./pkg/thsice/thsice_step_temp.F 180 THSICE_STEP_TEMP 
       DO j = jMin, jMax
./pkg/thsice/thsice_step_temp.F 182 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 183 THSICE_STEP_TEMP 
          icFrac  = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 186 THSICE_STEP_TEMP 
          Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 187 THSICE_STEP_TEMP 
     &                   - icFrac*icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 72 THSICE_STEP_TEMP 
      INTEGER i,j
./pkg/thsice/thsice_test_addfluid.h 16 NO PROCEDURE 
         DO j = 1-OLy, sNy+OLy-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
./pkg/timeave/timeave_cumul_1k1t.F 37 TIMEAVE_CUMUL_1K1T 
      INTEGER i, j
./pkg/timeave/timeave_cumul_1k1t.F 39 TIMEAVE_CUMUL_1K1T 
      DO j=1,sNy
./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 38 TIMEAVE_CUMUL_1T 
         DO j=1,sNy
./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 43 TIMEAVE_CUMUL_1VFC 
         DO j=1,sNy
./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 110 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 125 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 142 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 159 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 176 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 52 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 66 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 80 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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 95 TIMEAVE_CUMUL_2V 
         DO j=1,sNy
./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)
./model/src/impldiff.F 108 IMPLDIFF 
       DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 111 IMPLDIFF 
       DO j=jMin,jMax
./model/src/impldiff.F 114 IMPLDIFF 
         gYNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/impldiff.F 121 IMPLDIFF 
      DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 124 IMPLDIFF 
      DO j=jMin,jMax
./model/src/impldiff.F 127 IMPLDIFF 
         a(i,j,1) = 0. _d 0
./model/src/impldiff.F 132 IMPLDIFF 
       DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 135 IMPLDIFF 
       DO j=jMin,jMax
./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 150 IMPLDIFF 
       DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 153 IMPLDIFF 
       DO j=jMin,jMax
./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 165 IMPLDIFF 
      DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 168 IMPLDIFF 
      DO j=jMin,jMax
./model/src/impldiff.F 171 IMPLDIFF 
         c(i,j,Nr) = 0. _d 0
./model/src/impldiff.F 178 IMPLDIFF 
       DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 181 IMPLDIFF 
       DO j=jMin,jMax
./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 192 IMPLDIFF 
       DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 195 IMPLDIFF 
       DO j=jMin,jMax
./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 210 IMPLDIFF 
       DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 213 IMPLDIFF 
       DO j=jMin,jMax
./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 229 IMPLDIFF 
        DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 232 IMPLDIFF 
        DO j=jMin,jMax
./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 247 IMPLDIFF 
      DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 250 IMPLDIFF 
      DO j=jMin,jMax
./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 258 IMPLDIFF 
       DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 261 IMPLDIFF 
       DO j=jMin,jMax
./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 275 IMPLDIFF 
            DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 278 IMPLDIFF 
        DO j=jMin,jMax
./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 289 IMPLDIFF 
        DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 292 IMPLDIFF 
        DO j=jMin,jMax
./model/src/impldiff.F 295 IMPLDIFF 
          gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./model/src/impldiff.F 322 IMPLDIFF 
            DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 324 IMPLDIFF 
               df(i,j) = 0. _d 0
./model/src/impldiff.F 329 IMPLDIFF 
            DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 332 IMPLDIFF 
            DO j=1,sNy
./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 343 IMPLDIFF 
            DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 346 IMPLDIFF 
            DO j=1,sNy
./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 359 IMPLDIFF 
            DO j=1-OLy,sNy+OLy
./model/src/impldiff.F 362 IMPLDIFF 
            DO j=1,sNy+1
./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
./pkg/timeave/timeave_cumul_2vfc.F 44 TIMEAVE_CUMUL_2VFC 
      INTEGER i, j, k
./pkg/timeave/timeave_cumul_2vfc.F 51 TIMEAVE_CUMUL_2VFC 
         DO j=1,sNy
./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 66 TIMEAVE_CUMUL_2VFC 
         DO j=1,sNy
./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 82 TIMEAVE_CUMUL_2VFC 
         DO j=1,sNy
./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 45 TIMEAVE_CUMUL_DIF_1T 
         DO j=1,sNy
./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 58 TIMEAVE_CUMUL_DIF_1T 
         DO j=1,sNy
./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 71 TIMEAVE_CUMUL_DIF_1T 
         DO j=1,sNy
./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 40 TIMEAVE_CUMULATE 
         DO j=1,sNy
./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 38 TIMEAVE_NORMA_2V 
         DO j=1,sNy
./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)
./pkg/timeave/timeave_normaliz.F 40 TIMEAVE_NORMALIZ 
      INTEGER i, j, k
./pkg/timeave/timeave_normaliz.F 47 TIMEAVE_NORMALIZ 
          DO j=1,sNy
./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 50 TIMEAVE_NORMALIZE 
          DO j=1,sNy
./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 34 TIMEAVE_RESET 
         DO j=1-OLy,sNy+OLy
./pkg/timeave/timeave_reset.F 36 TIMEAVE_RESET 
             fldtave(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_cartesian_grid.F 110 INI_CARTESIAN_GRID 
        DO j=1, jG-1
./model/src/ini_cartesian_grid.F 111 INI_CARTESIAN_GRID 
         yG0 = yG0 + delY(j)
./model/src/ini_cartesian_grid.F 114 INI_CARTESIAN_GRID 
        DO j=1, Oly
./model/src/ini_cartesian_grid.F 115 INI_CARTESIAN_GRID 
         yG0 = yG0 - delY( 1+MOD(Oly*Ny-1+jG-j,Ny) )
./model/src/ini_cartesian_grid.F 119 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly +1
./model/src/ini_cartesian_grid.F 120 INI_CARTESIAN_GRID 
         xGloc(1-Olx,j) = xG0
./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 128 INI_CARTESIAN_GRID 
         DO j=1-Oly,sNy+Oly
./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 135 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly
./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 143 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly
./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 154 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly
./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 162 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly
./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 172 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly
./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 184 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly
./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 191 INI_CARTESIAN_GRID 
        DO j=1-Oly+1,sNy+Oly ! NOTE range
./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 198 INI_CARTESIAN_GRID 
        DO j=1-Oly+1,sNy+Oly ! 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 210 INI_CARTESIAN_GRID 
        DO j=1-Oly,sNy+Oly
./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 225 INI_CARTESIAN_GRID 
        DO j=1-OLy,sNy+OLy
./model/src/ini_cartesian_grid.F 226 INI_CARTESIAN_GRID 
         cosFacU(j,bi,bj)=1.
./model/src/ini_cartesian_grid.F 227 INI_CARTESIAN_GRID 
         cosFacV(j,bi,bj)=1.
./model/src/ini_cartesian_grid.F 228 INI_CARTESIAN_GRID 
         sqcosFacU(j,bi,bj)=1.
./model/src/ini_cartesian_grid.F 229 INI_CARTESIAN_GRID 
         sqcosFacV(j,bi,bj)=1.
./model/src/ini_cartesian_grid.F 240 INI_CARTESIAN_GRID 
        DO j=1,Ny
./model/src/ini_cartesian_grid.F 241 INI_CARTESIAN_GRID 
          latBandClimRelax = latBandClimRelax + delY(j)
./model/src/ini_cartesian_grid.F 66 INI_CARTESIAN_GRID 
      INTEGER iG, jG, bi, bj, i, j
./model/src/ini_cartesian_grid.F 76 INI_CARTESIAN_GRID 
      jGl(j,bj) = 1+MOD(myYGlobalLo-1+(bj-1)*sNy+j+Oly*Ny-1,Ny)
./pkg/timeave/timeave_surf_flux.F 100 TIMEAVE_SURF_FLUX 
        DO j=1,sNy
./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 47 TIMEAVE_SURF_FLUX 
       DO j=1,sNy
./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 56 TIMEAVE_SURF_FLUX 
       DO j=1,sNy
./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 65 TIMEAVE_SURF_FLUX 
       DO j=1,sNy
./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 78 TIMEAVE_SURF_FLUX 
        DO j=1,sNy
./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 91 TIMEAVE_SURF_FLUX 
       DO j=1,sNy
./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
./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 49 ZONAL_FILT_APPLY_UV 
         DO j=1-OLy,sNy+OLy
./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 58 ZONAL_FILT_APPLY_UV 
         DO j=1-OLy,sNy+OLy
./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 100 ZONAL_FILT_INIT 
           ampFactor(Nx,j,bi,bj) = 0.
./pkg/zonal_filt/zonal_filt_init.F 101 ZONAL_FILT_INIT 
           ampFactorV(Nx,j,bi,bj) = 0.
./pkg/zonal_filt/zonal_filt_init.F 58 ZONAL_FILT_INIT 
      INTEGER i, j, bi, bj
./pkg/zonal_filt/zonal_filt_init.F 83 ZONAL_FILT_INIT 
        DO j=1-oLy,sNy+Oly
./pkg/zonal_filt/zonal_filt_init.F 84 ZONAL_FILT_INIT 
         ampFactor(1,j,bi,bj) = oneRL
./pkg/zonal_filt/zonal_filt_init.F 85 ZONAL_FILT_INIT 
         ampFactorV(1,j,bi,bj) = oneRL
./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 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 44 ZONAL_FILT_NOFILL 
       DO j=jMin, jMax
./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 59 ZONAL_FILT_NOFILL 
          phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(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 77 ZONAL_FILT_NOFILL 
         field(i,j,k,bi,bj) = phi(sNx+i)
./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 83 ZONAL_FILT_NOFILL 
         field(i,j,k,bi,bj) = phi(i-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 123 INI_CG2D 
         DO j=1,sNy
./model/src/ini_cg2d.F 124 INI_CG2D 
          IF (OB_Ie(j,bi,bj).NE.0) aW2d(OB_Ie(j,bi,bj), j, bi,bj)=0.
./model/src/ini_cg2d.F 125 INI_CG2D 
          IF (OB_Ie(j,bi,bj).NE.0) aW2d(OB_Ie(j,bi,bj)+1,j,bi,bj)=0.
./model/src/ini_cg2d.F 126 INI_CG2D 
          IF (OB_Iw(j,bi,bj).NE.0) aW2d(OB_Iw(j,bi,bj)+1,j,bi,bj)=0.
./model/src/ini_cg2d.F 127 INI_CG2D 
          IF (OB_Iw(j,bi,bj).NE.0) aW2d(OB_Iw(j,bi,bj), j, bi,bj)=0.
./model/src/ini_cg2d.F 131 INI_CG2D 
        DO j=1,sNy
./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 147 INI_CG2D 
        DO j=1,sNy
./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 214 INI_CG2D 
        DO j=0,sNy+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 225 INI_CG2D 
        DO j=1,sNy
./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 59 INI_CG2D 
        DO j=1-OLy,sNy+OLy
./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 69 INI_CG2D 
        DO j=1-1,sNy+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 92 INI_CG2D 
        DO j=1,sNy
./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_cg2d.F 99 INI_CG2D 
         DO j=1,sNy
./pkg/zonal_filt/zonal_filter.F 100 ZONAL_FILTER 
         field(i,j,k) = phi(sNx+i)
./pkg/zonal_filt/zonal_filter.F 103 ZONAL_FILTER 
         field(i,j,k) = phi(i)
./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 57 ZONAL_FILTER 
       DO j=jMin, jMax
./pkg/zonal_filt/zonal_filter.F 58 ZONAL_FILTER 
        IF ( (gridLoc.EQ.1 .AND.ABS(yC(1,j,bi,bj)).GE.zonal_filt_lat)
./pkg/zonal_filt/zonal_filter.F 59 ZONAL_FILTER 
     &   .OR.(gridLoc.EQ.2 .AND.ABS(yG(2,j,bi,bj)).GE.zonal_filt_lat)
./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 79 ZONAL_FILTER 
          phi(i)=phi(i)*ampFactor(i,j,bi,bj)/float(Nx)
./pkg/zonal_filt/zonal_filter.F 83 ZONAL_FILTER 
          phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)
./model/src/ini_cg3d.F 112 INI_CG3D 
         DO j=1,sNy
./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 122 INI_CG3D 
         DO j=1,sNy+1
./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 133 INI_CG3D 
         DO j=1,sNy
./model/src/ini_cg3d.F 135 INI_CG3D 
           aV3d(i,j,k,bi,bj) =  0.
./model/src/ini_cg3d.F 143 INI_CG3D 
         DO j=1,sNy
./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 179 INI_CG3D 
          DO j=1,sNy
./model/src/ini_cg3d.F 180 INI_CG3D 
           IF (OB_Ie(j,bi,bj).NE.0) THEN
./model/src/ini_cg3d.F 181 INI_CG3D 
            aW3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 182 INI_CG3D 
            aW3d(OB_Ie(j,bi,bj)+1,j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 183 INI_CG3D 
            aS3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 184 INI_CG3D 
            aS3d( OB_Ie(j,bi,bj),j+1,k,bi,bj) = 0.
./model/src/ini_cg3d.F 185 INI_CG3D 
            aV3d( OB_Ie(j,bi,bj), j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 187 INI_CG3D 
           IF (OB_Iw(j,bi,bj).NE.0) THEN
./model/src/ini_cg3d.F 188 INI_CG3D 
            aW3d(OB_Iw(j,bi,bj)+1,j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 189 INI_CG3D 
            aW3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 190 INI_CG3D 
            aS3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 191 INI_CG3D 
            aS3d( OB_Iw(j,bi,bj),j+1,k,bi,bj) = 0.
./model/src/ini_cg3d.F 192 INI_CG3D 
            aV3d( OB_Iw(j,bi,bj), j, k,bi,bj) = 0.
./model/src/ini_cg3d.F 223 INI_CG3D 
         DO j=1,sNy
./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 241 INI_CG3D 
         DO j=1,sNy
./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 262 INI_CG3D 
         DO j=1,sNy
./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 291 INI_CG3D 
         DO j=1,sNy
./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 315 INI_CG3D 
         DO j=1,sNy
./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 322 INI_CG3D 
         DO j=1,sNy
./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 331 INI_CG3D 
         DO j=1,sNy
./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 68 INI_CG3D 
         DO j=1-OLy,sNy+OLy
./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 80 INI_CG3D 
         DO j=0,sNy+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 88 INI_CG3D 
         DO j=1-OLy,sNy+OLy
./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 64 COST_TEST 
          do j=1,sNy
./verification/OpenAD/code_ad_singlelayer/cost_test.F 65 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./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 j=1-Oly,sNy+Oly
./model/src/ini_cori.F 113 INI_CORI 
                fCori(i,j,bi,bj)  = 0. _d 0
./model/src/ini_cori.F 114 INI_CORI 
                fCoriG(i,j,bi,bj) = 0. _d 0
./model/src/ini_cori.F 115 INI_CORI 
                fCoriCos(i,j,bi,bj)=0. _d 0
./model/src/ini_cori.F 46 INI_CORI 
      INTEGER i, j
./model/src/ini_cori.F 62 INI_CORI 
            DO j=1-Oly,sNy+Oly
./model/src/ini_cori.F 64 INI_CORI 
                fCori(i,j,bi,bj)  = f0
./model/src/ini_cori.F 65 INI_CORI 
                fCoriG(i,j,bi,bj) = f0
./model/src/ini_cori.F 66 INI_CORI 
                fCoriCos(i,j,bi,bj)=fPrime
./model/src/ini_cori.F 78 INI_CORI 
            DO j=1-Oly,sNy+Oly
./model/src/ini_cori.F 80 INI_CORI 
                fCori(i,j,bi,bj)  = f0+beta*_yC(i,j,bi,bj)*facGrid
./model/src/ini_cori.F 81 INI_CORI 
                fCoriG(i,j,bi,bj) = f0+beta* yG(i,j,bi,bj)*facGrid
./model/src/ini_cori.F 82 INI_CORI 
                fCoriCos(i,j,bi,bj)=fPrime
./model/src/ini_cori.F 92 INI_CORI 
            DO j=1-Oly,sNy+Oly
./model/src/ini_cori.F 94 INI_CORI 
                fCori(i,j,bi,bj)  =
./model/src/ini_cori.F 95 INI_CORI 
     &                 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F 96 INI_CORI 
                fCoriG(i,j,bi,bj) =
./model/src/ini_cori.F 97 INI_CORI 
     &                 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F 98 INI_CORI 
                fCoriCos(i,j,bi,bj)=
./model/src/ini_cori.F 99 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 66 COST_DEPENDENT_INIT 
         do j=1,sNy
./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 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 112 GAD_IMPLICIT_R 
          DO j=1-Oly,sNy+Oly
./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 120 GAD_IMPLICIT_R 
          DO j=1-Oly,sNy+Oly
./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 134 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 144 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 154 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 170 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./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 176 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./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 184 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./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 191 GAD_IMPLICIT_R 
         DO j=1-Oly,sNy+Oly
./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 205 GAD_IMPLICIT_R 
        DO j=jMin,jMax
./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 303 GAD_IMPLICIT_R 
            DO j=1-OLy,sNy+OLy
./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 309 GAD_IMPLICIT_R 
            DO j=1,sNy
./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 95 GAD_IMPLICIT_R 
       DO j=1-Oly,sNy+Oly
./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
./model/src/ini_curvilinear_grid.F 49 INI_CURVILINEAR_GRID 
      INTEGER i,j
./model/src/ini_curvilinear_grid.F 68 INI_CURVILINEAR_GRID 
        DO j=1-Oly,sNy+Oly
./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_curvilinear_grid.F 90 INI_CURVILINEAR_GRID 
          cosFacU(j,bi,bj)=1.
./model/src/ini_curvilinear_grid.F 91 INI_CURVILINEAR_GRID 
          cosFacV(j,bi,bj)=1.
./model/src/ini_curvilinear_grid.F 92 INI_CURVILINEAR_GRID 
          sqCosFacU(j,bi,bj)=1.
./model/src/ini_curvilinear_grid.F 93 INI_CURVILINEAR_GRID 
          sqCosFacV(j,bi,bj)=1.
./verification/OpenAD/code_oad_all/grdchk_main.F 101 GRDCHK_MAIN 
      integer j,  jmin, jmax
./verification/OpenAD/code_oad_all/grdchk_main.F 173 GRDCHK_MAIN 
               do j = jmin, jmax
./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 273 GRDCHK_MAIN 
             do j=1,sny
./verification/OpenAD/code_oad_all/grdchk_main.F 275 GRDCHK_MAIN 
               g_objf_state_final(i,j,1,1,k) = 0.
./model/src/ini_cylinder_grid.F 118 INI_CYLINDER_GRID 
        DO j=1, jG-1
./model/src/ini_cylinder_grid.F 119 INI_CYLINDER_GRID 
         yG0 = yG0 + delY(j)
./model/src/ini_cylinder_grid.F 122 INI_CYLINDER_GRID 
        DO j=1, Oly
./model/src/ini_cylinder_grid.F 123 INI_CYLINDER_GRID 
         yG0 = yG0 - delY( 1+mod(Oly*Ny-1+jG-j,Ny) )
./model/src/ini_cylinder_grid.F 127 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly +1
./model/src/ini_cylinder_grid.F 128 INI_CYLINDER_GRID 
         xGloc(1-Olx,j) = xG0
./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 135 INI_CYLINDER_GRID 
         DO j=1-Oly,sNy+Oly
./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 141 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly
./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 149 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly
./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 160 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly
./model/src/ini_cylinder_grid.F 162 INI_CYLINDER_GRID 
          thisRad = yC(i,j,bi,bj)
./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 170 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly
./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 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 182 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly
./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 194 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly
./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 202 INI_CYLINDER_GRID 
        DO j=1-Oly+1,sNy+Oly ! NOTE range
./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 210 INI_CYLINDER_GRID 
        DO j=1-Oly+1,sNy+Oly ! 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 219 INI_CYLINDER_GRID 
        DO j=1-Oly,sNy+Oly
./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 235 INI_CYLINDER_GRID 
        DO j=1-OLy,sNy+OLy
./model/src/ini_cylinder_grid.F 236 INI_CYLINDER_GRID 
         cosFacU(j,bi,bj)=1.
./model/src/ini_cylinder_grid.F 237 INI_CYLINDER_GRID 
         cosFacV(j,bi,bj)=1.
./model/src/ini_cylinder_grid.F 238 INI_CYLINDER_GRID 
         sqcosFacU(j,bi,bj)=1.
./model/src/ini_cylinder_grid.F 239 INI_CYLINDER_GRID 
         sqcosFacV(j,bi,bj)=1.
./model/src/ini_cylinder_grid.F 249 INI_CYLINDER_GRID 
        DO j=1,Ny
./model/src/ini_cylinder_grid.F 250 INI_CYLINDER_GRID 
          latBandClimRelax = latBandClimRelax + delY(j)
./model/src/ini_cylinder_grid.F 55 INI_CYLINDER_GRID 
      INTEGER i, j
./model/src/ini_cylinder_grid.F 84 INI_CYLINDER_GRID 
      jGl(j,bj) = 1+MOD(myYGlobalLo-1+(bj-1)*sNy+j+Oly*Ny-1,Ny)
./model/src/ini_depths.F 101 INI_DEPTHS 
           R_low(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F 164 INI_DEPTHS 
          DO j=1,sNy
./model/src/ini_depths.F 166 INI_DEPTHS 
            Ro_surf(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F 206 INI_DEPTHS 
            DO j=1,sNy
./model/src/ini_depths.F 208 INI_DEPTHS 
              Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./model/src/ini_depths.F 230 INI_DEPTHS 
         DO j=1-Oly,sNy+Oly
./model/src/ini_depths.F 233 INI_DEPTHS 
           jG = myYGlobalLo-1+(bj-1)*sNy+j
./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 252 INI_DEPTHS 
         DO j=1-Oly,sNy+Oly
./model/src/ini_depths.F 255 INI_DEPTHS 
           jG = myYGlobalLo-1+(bj-1)*sNy+j
./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 77 INI_DEPTHS 
        DO j=1-Oly,sNy+Oly
./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
./model/src/ini_depths.F 99 INI_DEPTHS 
         DO j=1,sNy
./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 55 INI_VEL 
         DO j=1-Oly,sNy+Oly
./verification/advect_cs/code/ini_vel.F 56 INI_VEL 
          jp1=MIN(j+1,sNy+Oly)
./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 84 INI_VEL 
         DO j=1-Oly,sNy+Oly
./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)
./verification/advect_xy/code/ini_salt.F 47 INI_SALT 
      INTEGER i, j, k, localWarnings
./verification/advect_xy/code/ini_salt.F 56 INI_SALT 
         DO j=1-Oly,sNy+Oly
./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 63 INI_SALT 
         DO j=1-Oly,sNy+Oly
./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 88 INI_SALT 
          DO j=1-Oly,sNy+Oly
./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 95 INI_SALT 
          DO j=1,sNy
./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 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 137 INI_THETA 
          DO j=1-Oly,sNy+Oly
./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 57 INI_THETA 
         DO j=1-Oly,sNy+Oly
./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 64 INI_THETA 
         DO j=1,sNy
./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 92 INI_THETA 
          DO j=1-Oly,sNy+Oly
./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_theta.F 99 INI_THETA 
          DO j=1,sNy
./verification/advect_xy/code/ini_vel.F 36 INI_VEL 
      INTEGER bi,bj,i,j,k
./verification/advect_xy/code/ini_vel.F 49 INI_VEL 
         DO j=1-Oly,sNy+Oly
./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 74 INI_VEL 
         DO j=1-Oly,sNy+Oly
./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)
./model/src/ini_dynvars.F 78 INI_DYNVARS 
           IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 111 AIM_SURF_BC 
      DO j=1,sNy
./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 151 AIM_SURF_BC 
        DO j=1,sNy
./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 169 AIM_SURF_BC 
        DO j=1,sNy
./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 187 AIM_SURF_BC 
        DO j=1,sNy
./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 224 AIM_SURF_BC 
        DO j=1,sNy
./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 288 AIM_SURF_BC 
        DO j=1,sNy
./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 297 AIM_SURF_BC 
        DO j=1,sNy
./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 308 AIM_SURF_BC 
        DO j=1,sNy
./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 317 AIM_SURF_BC 
        DO j=1,sNy
./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 343 AIM_SURF_BC 
        DO j=1,sNy
./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 350 AIM_SURF_BC 
        DO j=1,sNy
./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 360 AIM_SURF_BC 
        DO j=1,sNy
./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 383 AIM_SURF_BC 
      DO j=1,sNy
./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
./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 164 INI_DEPTHS 
          DO j=1,sNy
./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 206 INI_DEPTHS 
            DO j=1,sNy
./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 230 INI_DEPTHS 
         DO j=1-Oly,sNy+Oly
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 233 INI_DEPTHS 
           jG = myYGlobalLo-1+(bj-1)*sNy+j
./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 252 INI_DEPTHS 
         DO j=1-Oly,sNy+Oly
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 255 INI_DEPTHS 
           jG = myYGlobalLo-1+(bj-1)*sNy+j
./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 77 INI_DEPTHS 
        DO j=1-Oly,sNy+Oly
./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_Equatorial_Channel/code/ini_depths.F 99 INI_DEPTHS 
         DO j=1,sNy
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 40 MOM_VI_HFACZ_DISS 
      DO j=2-Oly,sNy+Oly
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 41 MOM_VI_HFACZ_DISS 
       hFacZ(1-Olx,j)=0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 42 MOM_VI_HFACZ_DISS 
       r_hFacZ(1-Olx,j)=0.
./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 62 MOM_VI_HFACZ_DISS 
       DO j=1,sNy+1,sNy
./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
./model/src/ini_eos.F 306 EOS_CHECK 
      INTEGER  i, j, k
./model/src/ini_eos.F 380 EOS_CHECK 
      j    = 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 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
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 39 MOM_VI_MASK_VORT3 
      DO j=2-Oly,sNy+Oly
./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)
./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 133 INI_FORCING 
          DO j=1-Oly,sNy+Oly
./model/src/ini_forcing.F 135 INI_FORCING 
            EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./model/src/ini_forcing.F 166 INI_FORCING 
          DO j=1-OLy,sNy+OLy
./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 210 INI_FORCING 
          DO j=1-OLy,sNy+OLy
./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 45 INI_FORCING 
        DO j=1-OLy,sNy+OLy
./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 93 INI_FORCING 
        DO j=1-Oly,sNy+Oly
./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
./verification/dome/code/obcs_calc.F 76 OBCS_CALC 
      do j=2,nr
./verification/dome/code/obcs_calc.F 80 OBCS_CALC 
      z(j) = z(j-1) - delR(j)
./model/src/ini_linear_phisurf.F 87 INI_LINEAR_PHISURF 
        DO j=1,sNy
./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 123 FIZHI_INIT_FIXED 
        do j=jm1,jm2
./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 74 FIZHI_INIT_FIXED 
       do j = jm1,jm2
./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 92 FIZHI_INIT_FIXED 
        do j=jm1,jm2
./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 112 FIZHI_INIT_VEG 
            do j=1,jm
./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 71 FIZHI_INIT_VEG 
      do j = 1,jm
./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 80 FIZHI_INIT_VEG 
      do j = 1,jm
./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 102 UPDATE_OCEAN_EXPORTS 
       do j=jm1,jm2
./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 182 GETSICE 
      do j = jm1,jm2
./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 266 GETSST 
      do j = jm1,jm2
./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 104 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 106 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F 109 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 116 INI_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 118 INI_MASKS_ETC 
          R_low(i,j,bi,bj) = rF(1)
./model/src/ini_masks_etc.F 120 INI_MASKS_ETC 
           R_low(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 121 INI_MASKS_ETC 
     &                      - drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 135 INI_MASKS_ETC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 138 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F 140 INI_MASKS_ETC 
           hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 146 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 148 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F 151 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 175 INI_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 177 INI_MASKS_ETC 
          tmpfld(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 178 INI_MASKS_ETC 
          kSurfC(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 180 INI_MASKS_ETC 
          Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 182 INI_MASKS_ETC 
           Ro_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_masks_etc.F 183 INI_MASKS_ETC 
     &                        + drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 184 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj).NE.0.) THEN
./model/src/ini_masks_etc.F 185 INI_MASKS_ETC 
            kSurfC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 187 INI_MASKS_ETC 
            tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1.
./model/src/ini_masks_etc.F 190 INI_MASKS_ETC 
          kLowC(i,j,bi,bj) = 0
./model/src/ini_masks_etc.F 192 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj).NE.0) THEN
./model/src/ini_masks_etc.F 193 INI_MASKS_ETC 
              kLowC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 196 INI_MASKS_ETC 
          maskInC(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 197 INI_MASKS_ETC 
          IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 216 INI_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 220 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 222 INI_MASKS_ETC 
          IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN
./model/src/ini_masks_etc.F 223 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 225 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/ini_masks_etc.F 236 INI_MASKS_ETC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 237 INI_MASKS_ETC 
          hFacW(1-OLx,j,k,bi,bj)= 0.
./model/src/ini_masks_etc.F 239 INI_MASKS_ETC 
           hFacW(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F 240 INI_MASKS_ETC 
     &       MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj))
./model/src/ini_masks_etc.F 246 INI_MASKS_ETC 
         DO j=2-Oly,sNy+oly
./model/src/ini_masks_etc.F 248 INI_MASKS_ETC 
           hFacS(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F 249 INI_MASKS_ETC 
     &       MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj))
./model/src/ini_masks_etc.F 255 INI_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 256 INI_MASKS_ETC 
           rLowW (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 257 INI_MASKS_ETC 
           rSurfW(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 259 INI_MASKS_ETC 
        j = 1-Oly
./model/src/ini_masks_etc.F 261 INI_MASKS_ETC 
           rLowS (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 262 INI_MASKS_ETC 
           rSurfS(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 264 INI_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 266 INI_MASKS_ETC 
           rSurfW(i,j,bi,bj) =
./model/src/ini_masks_etc.F 267 INI_MASKS_ETC 
     &           MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 268 INI_MASKS_ETC 
           rLowW(i,j,bi,bj)  =
./model/src/ini_masks_etc.F 269 INI_MASKS_ETC 
     &           MAX(   R_low(i-1,j,bi,bj),   R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F 272 INI_MASKS_ETC 
        DO j=2-Oly,sNy+Oly
./model/src/ini_masks_etc.F 274 INI_MASKS_ETC 
           rSurfS(i,j,bi,bj) =
./model/src/ini_masks_etc.F 275 INI_MASKS_ETC 
     &           MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 276 INI_MASKS_ETC 
           rLowS(i,j,bi,bj)  =
./model/src/ini_masks_etc.F 277 INI_MASKS_ETC 
     &           MAX(   R_low(i,j-1,bi,bj),   R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F 293 INI_MASKS_ETC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 295 INI_MASKS_ETC 
           IF (dyG(i,j,bi,bj).EQ.0.) hFacW(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 296 INI_MASKS_ETC 
           IF (dxG(i,j,bi,bj).EQ.0.) hFacS(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 306 INI_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 308 INI_MASKS_ETC 
          kSurfW(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 309 INI_MASKS_ETC 
          kSurfS(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 311 INI_MASKS_ETC 
           IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 312 INI_MASKS_ETC 
           IF (hFacS(i,j,k,bi,bj).NE.0.) kSurfS(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 314 INI_MASKS_ETC 
          maskInW(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 315 INI_MASKS_ETC 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 316 INI_MASKS_ETC 
          maskInS(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 317 INI_MASKS_ETC 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 349 INI_MASKS_ETC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 351 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 352 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 353 INI_MASKS_ETC 
            maskC(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 355 INI_MASKS_ETC 
            recip_hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 356 INI_MASKS_ETC 
            maskC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 358 INI_MASKS_ETC 
           IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 359 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 360 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 362 INI_MASKS_ETC 
            recip_hFacW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 363 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 365 INI_MASKS_ETC 
           IF (hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 366 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 367 INI_MASKS_ETC 
            maskS(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 369 INI_MASKS_ETC 
            recip_hFacS(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 370 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 53 INI_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./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 95 INI_MASKS_ETC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_masks_etc.F 98 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 170 DO_FIZHI 
        do j = jm1,jm2
./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 117 FIZHI_INIT_FIXED 
        do j=jm1,jm2
./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 68 FIZHI_INIT_FIXED 
       do j = jm1,jm2
./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 86 FIZHI_INIT_FIXED 
        do j=jm1,jm2
./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 107 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 123 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 147 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 156 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 165 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 175 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 184 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 196 FIZHI_INIT_VARS 
        do j = jm1,jm2
./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 252 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 269 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 80 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 87 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 94 FIZHI_INIT_VARS 
        do j = 1,sNy
./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 119 FIZHI_INIT_VEG 
            do j=1,jm
./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 139 FIZHI_INIT_VEG 
            do j=1,jm
./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 76 FIZHI_INIT_VEG 
      do j = 1,jm
./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 92 FIZHI_INIT_VEG 
      do j = 1,jm
./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 118 FIZHI_TENDENCY_APPLY_T 
      do j=jMin,jMax
./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 158 FIZHI_TENDENCY_APPLY_S 
      do j=jMin,jMax
./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 37 FIZHI_TENDENCY_APPLY_U 
      do j=jMin,jMax
./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 78 FIZHI_TENDENCY_APPLY_V 
      do j=jMin,jMax
./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 121 GETSICE 
      do j = jm1,jm2
./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 181 GETSST 
      do j = jm1,jm2
./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 56 UPDATE_OCEAN_EXPORTS 
       do j=jm1,jm2
./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 50 INI_MIXING 
          DO j = 1-Oly, sNy+Oly
./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 70 INI_MIXING 
         DO j = 1-Oly, sNy+Oly
./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 104 NO PROCEDURE 
        do j=20,30,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 111 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 131 NO PROCEDURE 
        do j=20,30,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 138 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 157 NO PROCEDURE 
        do j=20,30,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 164 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 180 NO PROCEDURE 
        do j=20,30,2
./verification/flt_example/extra/write_float.F 186 NO PROCEDURE 
                   ypart  = yc(j)
./verification/flt_example/extra/write_float.F 49 NO PROCEDURE 
        do j=2,Ny
./verification/flt_example/extra/write_float.F 50 NO PROCEDURE 
           yc(j)=yc(j-1)+degY
./verification/flt_example/extra/write_float.F 82 NO PROCEDURE 
        do j=20,30,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 89 NO PROCEDURE 
                   ypart  = yc(j)
./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 108 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 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 147 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 187 ECCO_COST_WEIGHTS 
      do j = jmin,jmax
./verification/global1x1_tot/code/ecco_cost_weights.F 190 ECCO_COST_WEIGHTS 
          if ( (j .lt. 1) .or. (j .gt. sny) .or.
./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 208 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 321 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 339 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 360 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 378 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 403 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 423 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 446 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 466 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 485 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 510 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 542 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 561 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 621 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 676 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 710 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 753 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 784 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 827 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 859 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 895 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 927 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 963 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 982 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 101 INI_NH_FIELDS 
            DO j=1-OLy,sNy+OLy
./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 108 INI_NH_FIELDS 
           DO j=1-OLy,sNy+OLy
./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 127 INI_NH_FIELDS 
         DO j=1-Oly,sNy+Oly
./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 74 INI_NH_FIELDS 
           DO j=1-OLy,sNy+OLy
./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 82 INI_NH_FIELDS 
           DO j=1-OLy,sNy+OLy
./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 95 INI_NH_FIELDS 
           DO j=1-OLy,sNy+OLy
./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 46 INI_NH_VARS 
          DO j=1-Oly,sNy+Oly
./model/src/ini_nh_vars.F 48 INI_NH_VARS 
              dPhiNH(i,j,bi,bj)    = 0. _d 0
./model/src/ini_nh_vars.F 52 INI_NH_VARS 
           DO j=1-Oly,sNy+Oly
./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 j=1,sNy
./model/src/ini_nlfs_vars.F 104 INI_NLFS_VARS 
           ks = kSurfC(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 107 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfW(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 108 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj))
./model/src/ini_nlfs_vars.F 109 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfW(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F 110 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F 111 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfS(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 112 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj))
./model/src/ini_nlfs_vars.F 113 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfS(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F 114 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F 116 INI_NLFS_VARS 
             Rmin_surf(i,j,bi,bj) =
./model/src/ini_nlfs_vars.F 117 INI_NLFS_VARS 
     &        MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks),
./model/src/ini_nlfs_vars.F 125 INI_NLFS_VARS 
         DO j=2-Oly,sNy+Oly
./model/src/ini_nlfs_vars.F 127 INI_NLFS_VARS 
            etaHw(i,j,bi,bj) = 0.5 _d 0
./model/src/ini_nlfs_vars.F 128 INI_NLFS_VARS 
     &                       *( etaH(i-1,j,bi,bj) + etaH(i,j,bi,bj) )
./model/src/ini_nlfs_vars.F 129 INI_NLFS_VARS 
            etaHs(i,j,bi,bj) = 0.5 _d 0
./model/src/ini_nlfs_vars.F 130 INI_NLFS_VARS 
     &                       *( etaH(i,j-1,bi,bj) + etaH(i,j,bi,bj) )
./model/src/ini_nlfs_vars.F 38 INI_NLFS_VARS 
      INTEGER i,j,k,bi,bj
./model/src/ini_nlfs_vars.F 57 INI_NLFS_VARS 
         DO j=1-Oly,sNy+Oly
./model/src/ini_nlfs_vars.F 59 INI_NLFS_VARS 
           hFac_surfC(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 60 INI_NLFS_VARS 
           hFac_surfW(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 61 INI_NLFS_VARS 
           hFac_surfS(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 62 INI_NLFS_VARS 
           PmEpR(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 63 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 j=1-Oly,sNy+Oly
./model/src/ini_nlfs_vars.F 70 INI_NLFS_VARS 
            rStarFacC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 71 INI_NLFS_VARS 
            rStarFacW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 72 INI_NLFS_VARS 
            rStarFacS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 73 INI_NLFS_VARS 
            rStarExpC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 74 INI_NLFS_VARS 
            rStarExpW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 75 INI_NLFS_VARS 
            rStarExpS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 76 INI_NLFS_VARS 
            rStarDhCDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 77 INI_NLFS_VARS 
            rStarDhWDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 78 INI_NLFS_VARS 
            rStarDhSDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 79 INI_NLFS_VARS 
            PmEpR(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 83 INI_NLFS_VARS 
          DO j=1-Oly,sNy+Oly
./model/src/ini_nlfs_vars.F 85 INI_NLFS_VARS 
            h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 86 INI_NLFS_VARS 
            h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 87 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 39 CFC_ATMOS 
         DO j=1-OLy,sNy+OLy
./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/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 107 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 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 145 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 185 ECCO_COST_WEIGHTS 
      do j = jmin,jmax
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 188 ECCO_COST_WEIGHTS 
          if ( (j .lt. 1) .or. (j .gt. sny) .or.
./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 206 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 319 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 337 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 358 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 376 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 401 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 421 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 444 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 464 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 483 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 508 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 540 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 559 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 617 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 672 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 706 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 749 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 780 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 823 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 855 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 891 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 923 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 959 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 978 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 105 INI_P_GROUND 
        DO j=1,sNy
./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 153 INI_P_GROUND 
      DO j=1,61
./model/src/ini_p_ground.F 154 INI_P_GROUND 
        yLatLoc =-90.+(j-1)*3.
./model/src/ini_p_ground.F 156 INI_P_GROUND 
     &                       tmpVar(1,j), nLevHvR, mythid)
./model/src/ini_p_ground.F 177 INI_P_GROUND 
        DO j=1,sNy
./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 226 INI_P_GROUND 
          DO j=1,sNy
./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 269 INI_P_GROUND 
        DO j=1,sNy
./model/src/ini_p_ground.F 272 INI_P_GROUND 
          ks = kSurfC(i,j,bi,bj)
./model/src/ini_p_ground.F 277 INI_P_GROUND 
               IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k
./model/src/ini_p_ground.F 280 INI_P_GROUND 
           IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN
./model/src/ini_p_ground.F 283 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks))
./model/src/ini_p_ground.F 287 INI_P_GROUND 
     &        *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks))
./model/src/ini_p_ground.F 289 INI_P_GROUND 
           Hfld(i,j,bi,bj) = phiLoc
./model/src/ini_p_ground.F 291 INI_P_GROUND 
           Hfld(i,j,bi,bj) = 0.
./model/src/ini_p_ground.F 304 INI_P_GROUND 
         DO j=1,sNy
./model/src/ini_p_ground.F 307 INI_P_GROUND 
           IF ( Pfld(i,j,bi,bj) .LT. Ro_SeaLevel) THEN
./model/src/ini_p_ground.F 308 INI_P_GROUND 
            Po_surf = Pfld(i,j,bi,bj)
./model/src/ini_p_ground.F 330 INI_P_GROUND 
            yLatLoc  = yC(i,j,bi,bj)
./model/src/ini_p_ground.F 343 INI_P_GROUND 
           phi0surf(i,j,bi,bj) = gravity*(zLoc - Hfld(i,j,bi,bj))
./model/src/ini_p_ground.F 345 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 1052 INI_PARMS 
       DO j=1,Ny
./model/src/ini_parms.F 1053 INI_PARMS 
        delY(j) = dySpacing
./model/src/ini_parms.F 49 INI_PARMS 
      INTEGER k, i, j, iUnit
./model/src/ini_pressure.F 100 INI_PRESSURE 
          DO j=1-OLy,sNy+OLy
./model/src/ini_pressure.F 102 INI_PRESSURE 
             phiHydF(i,j) = 0. _d 0
./model/src/ini_pressure.F 107 INI_PRESSURE 
           DO j=jMin,jMax
./model/src/ini_pressure.F 109 INI_PRESSURE 
             oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj)
./model/src/ini_pressure.F 119 INI_PRESSURE 
           DO j=1,sNy
./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 71 INI_PRESSURE 
         DO j=1-OLy,sNy+OLy
./model/src/ini_pressure.F 73 INI_PRESSURE 
           totPhiHyd(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_psurf.F 86 INI_PSURF 
        DO j=1-Oly,sNy+Oly
./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
./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 58 INI_SALT 
         DO j=1-Oly,sNy+Oly
./model/src/ini_salt.F 60 INI_SALT 
           salt(i,j,k,bi,bj) = sRef(k)
./model/src/ini_salt.F 91 INI_SALT 
          DO j=1-Oly,sNy+Oly
./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 98 INI_SALT 
          DO j=1,sNy
./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 68 COST_TEST 
          do j=1,sNy
./verification/global_ocean.cs32x15/code_ad/cost_test.F 69 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./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_sigma_hfac.F 102 INI_SIGMA_HFAC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 104 INI_SIGMA_HFAC 
           IF ( maskInC(i,j,bi,bj).NE.0. _d 0 ) THEN
./model/src/ini_sigma_hfac.F 106 INI_SIGMA_HFAC 
     &                 + dBHybSigF(k)*tmpFld(i,j)
./model/src/ini_sigma_hfac.F 108 INI_SIGMA_HFAC 
             hFacC(i,j,k,bi,bj) = hFactmp
./model/src/ini_sigma_hfac.F 111 INI_SIGMA_HFAC 
             hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_sigma_hfac.F 135 INI_SIGMA_HFAC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 136 INI_SIGMA_HFAC 
           rSurfW(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 137 INI_SIGMA_HFAC 
           rLowW (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 138 INI_SIGMA_HFAC 
           maskInW(i,j,bi,bj)= 0.
./model/src/ini_sigma_hfac.F 140 INI_SIGMA_HFAC 
        j = 1-Oly
./model/src/ini_sigma_hfac.F 142 INI_SIGMA_HFAC 
           rSurfS(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 143 INI_SIGMA_HFAC 
           rLowS (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 144 INI_SIGMA_HFAC 
           maskInS(i,j,bi,bj)= 0.
./model/src/ini_sigma_hfac.F 146 INI_SIGMA_HFAC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 148 INI_SIGMA_HFAC 
           maskInW(i,j,bi,bj)= maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 149 INI_SIGMA_HFAC 
           rSurfW(i,j,bi,bj) =
./model/src/ini_sigma_hfac.F 150 INI_SIGMA_HFAC 
     &               ( Ro_surf(i-1,j,bi,bj)
./model/src/ini_sigma_hfac.F 151 INI_SIGMA_HFAC 
     &               + Ro_surf( i, j,bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 152 INI_SIGMA_HFAC 
           rLowW(i,j,bi,bj)  =
./model/src/ini_sigma_hfac.F 153 INI_SIGMA_HFAC 
     &                 ( R_low(i-1,j,bi,bj)
./model/src/ini_sigma_hfac.F 154 INI_SIGMA_HFAC 
     &                 + R_low( i, j,bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 163 INI_SIGMA_HFAC 
           IF ( maskInW(i,j,bi,bj).EQ.0. ) THEN
./model/src/ini_sigma_hfac.F 164 INI_SIGMA_HFAC 
             rSurfW(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 165 INI_SIGMA_HFAC 
             rLowW (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 169 INI_SIGMA_HFAC 
        DO j=2-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 171 INI_SIGMA_HFAC 
           maskInS(i,j,bi,bj)= maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 172 INI_SIGMA_HFAC 
           rSurfS(i,j,bi,bj) =
./model/src/ini_sigma_hfac.F 173 INI_SIGMA_HFAC 
     &               ( Ro_surf(i,j-1,bi,bj)
./model/src/ini_sigma_hfac.F 174 INI_SIGMA_HFAC 
     &               + Ro_surf(i, j, bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 175 INI_SIGMA_HFAC 
           rLowS(i,j,bi,bj)  =
./model/src/ini_sigma_hfac.F 176 INI_SIGMA_HFAC 
     &                 ( R_low(i,j-1,bi,bj)
./model/src/ini_sigma_hfac.F 177 INI_SIGMA_HFAC 
     &                 + R_low(i, j, bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 186 INI_SIGMA_HFAC 
           IF ( maskInS(i,j,bi,bj).EQ.0. ) THEN
./model/src/ini_sigma_hfac.F 187 INI_SIGMA_HFAC 
             rSurfS(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 188 INI_SIGMA_HFAC 
             rLowS (i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 203 INI_SIGMA_HFAC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 205 INI_SIGMA_HFAC 
           IF (dyG(i,j,bi,bj).EQ.0.) maskInW(i,j,bi,bj) = 0.
./model/src/ini_sigma_hfac.F 206 INI_SIGMA_HFAC 
           IF (dxG(i,j,bi,bj).EQ.0.) maskInS(i,j,bi,bj) = 0.
./model/src/ini_sigma_hfac.F 216 INI_SIGMA_HFAC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 220 INI_SIGMA_HFAC 
     &          + dBHybSigF(k)*( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) )
./model/src/ini_sigma_hfac.F 222 INI_SIGMA_HFAC 
            hFacW(i,j,k,bi,bj) = hFactmp*maskInW(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 227 INI_SIGMA_HFAC 
         DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 231 INI_SIGMA_HFAC 
     &          + dBHybSigF(k)*( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) )
./model/src/ini_sigma_hfac.F 233 INI_SIGMA_HFAC 
            hFacS(i,j,k,bi,bj) = hFactmp*maskInS(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 238 INI_SIGMA_HFAC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 240 INI_SIGMA_HFAC 
           kSurfW(i,j,bi,bj) = Nr+1
./model/src/ini_sigma_hfac.F 241 INI_SIGMA_HFAC 
           kSurfS(i,j,bi,bj) = Nr+1
./model/src/ini_sigma_hfac.F 242 INI_SIGMA_HFAC 
           IF ( maskInW(i,j,bi,bj).NE.0. ) kSurfW(i,j,bi,bj) = 1
./model/src/ini_sigma_hfac.F 243 INI_SIGMA_HFAC 
           IF ( maskInS(i,j,bi,bj).NE.0. ) kSurfS(i,j,bi,bj) = 1
./model/src/ini_sigma_hfac.F 45 INI_SIGMA_HFAC 
      INTEGER i, j, k
./model/src/ini_sigma_hfac.F 69 INI_SIGMA_HFAC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 71 INI_SIGMA_HFAC 
           tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)
./model/src/ini_sigma_hfac.F 73 INI_SIGMA_HFAC 
           IF ( tmpFld(i,j).LT.hFacInf*rFullDepth )
./model/src/ini_sigma_hfac.F 74 INI_SIGMA_HFAC 
     &       tmpFld(i,j) = 0. _d 0
./model/src/ini_sigma_hfac.F 83 INI_SIGMA_HFAC 
        DO j=1-Oly,sNy+Oly
./model/src/ini_sigma_hfac.F 85 INI_SIGMA_HFAC 
           IF ( tmpFld(i,j).GT.0. _d 0 ) THEN
./model/src/ini_sigma_hfac.F 86 INI_SIGMA_HFAC 
             kSurfC (i,j,bi,bj) = 1
./model/src/ini_sigma_hfac.F 87 INI_SIGMA_HFAC 
             kLowC  (i,j,bi,bj) = Nr
./model/src/ini_sigma_hfac.F 88 INI_SIGMA_HFAC 
             maskInC(i,j,bi,bj) = 1.
./model/src/ini_sigma_hfac.F 89 INI_SIGMA_HFAC 
             recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j)
./model/src/ini_sigma_hfac.F 91 INI_SIGMA_HFAC 
             kSurfC (i,j,bi,bj) = Nr+1
./model/src/ini_sigma_hfac.F 92 INI_SIGMA_HFAC 
             kLowC  (i,j,bi,bj) = 0
./model/src/ini_sigma_hfac.F 93 INI_SIGMA_HFAC 
             maskInC(i,j,bi,bj) = 0.
./model/src/ini_sigma_hfac.F 94 INI_SIGMA_HFAC 
             recip_Rcol(i,j,bi,bj) = 0. _d 0
./model/src/ini_sigma_hfac.F 95 INI_SIGMA_HFAC 
             Ro_surf(i,j,bi,bj) = rEmpty
./model/src/ini_sigma_hfac.F 96 INI_SIGMA_HFAC 
             R_low(i,j,bi,bj)   = rEmpty
./model/src/ini_spherical_polar_grid.F 120 INI_SPHERICAL_POLAR_GRID 
        DO j=1, jG-1
./model/src/ini_spherical_polar_grid.F 121 INI_SPHERICAL_POLAR_GRID 
         yG0 = yG0 + delY(j)
./model/src/ini_spherical_polar_grid.F 124 INI_SPHERICAL_POLAR_GRID 
        DO j=1, Oly
./model/src/ini_spherical_polar_grid.F 125 INI_SPHERICAL_POLAR_GRID 
         yG0 = yG0 - delY( 1+MOD(Oly*Ny-1+jG-j,Ny) )
./model/src/ini_spherical_polar_grid.F 129 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly +1
./model/src/ini_spherical_polar_grid.F 130 INI_SPHERICAL_POLAR_GRID 
         xGloc(1-Olx,j) = xG0
./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 138 INI_SPHERICAL_POLAR_GRID 
         DO j=1-Oly,sNy+Oly
./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 145 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 153 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 164 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 172 INI_SPHERICAL_POLAR_GRID 
          dlat = delY( jGl(j,bj) )
./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 183 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 191 INI_SPHERICAL_POLAR_GRID 
          dlat = delY( jGl(j,bj) )
./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 201 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 213 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 229 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly+1,sNy+Oly ! NOTE range
./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 243 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly+1,sNy+Oly ! 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 255 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 259 INI_SPHERICAL_POLAR_GRID 
          dlat=delY( jGl(j,bj) )
./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 272 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 286 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 291 INI_SPHERICAL_POLAR_GRID 
          dlat=0.5 _d 0*( delY( jGl(j,bj) ) + delY( jGl(j-1,bj) ) )
./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 305 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 310 INI_SPHERICAL_POLAR_GRID 
          dlat=0.5 _d 0*( delY( jGl(j,bj) ) + delY( jGl(j-1,bj) ) )
./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 318 INI_SPHERICAL_POLAR_GRID 
        DO j=1-Oly,sNy+Oly
./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 330 INI_SPHERICAL_POLAR_GRID 
        DO j=1-OLy,sNy+OLy
./model/src/ini_spherical_polar_grid.F 331 INI_SPHERICAL_POLAR_GRID 
         jG = myYGlobalLo + (bj-1)*sNy + j-1
./model/src/ini_spherical_polar_grid.F 334 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj)=COS(yC(1,j,bi,bj)*deg2rad)
./model/src/ini_spherical_polar_grid.F 336 INI_SPHERICAL_POLAR_GRID 
          cosFacV(j,bi,bj)=COS((yC(1,j,bi,bj)-0.5*delY(jG))*deg2rad)
./model/src/ini_spherical_polar_grid.F 338 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj)=ABS(cosFacU(j,bi,bj))
./model/src/ini_spherical_polar_grid.F 339 INI_SPHERICAL_POLAR_GRID 
          cosFacV(j,bi,bj)=ABS(cosFacV(j,bi,bj))
./model/src/ini_spherical_polar_grid.F 340 INI_SPHERICAL_POLAR_GRID 
          sqcosFacU(j,bi,bj)=SQRT(cosFacU(j,bi,bj))
./model/src/ini_spherical_polar_grid.F 341 INI_SPHERICAL_POLAR_GRID 
          sqcosFacV(j,bi,bj)=SQRT(cosFacV(j,bi,bj))
./model/src/ini_spherical_polar_grid.F 343 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F 344 INI_SPHERICAL_POLAR_GRID 
          cosFacV(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F 345 INI_SPHERICAL_POLAR_GRID 
          sqcosFacU(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F 346 INI_SPHERICAL_POLAR_GRID 
          sqcosFacV(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F 57 INI_SPHERICAL_POLAR_GRID 
      INTEGER i,  j
./model/src/ini_spherical_polar_grid.F 86 INI_SPHERICAL_POLAR_GRID 
      jGl(j,bj) = 1+MOD(myYGlobalLo-1+(bj-1)*sNy+j+Oly*Ny-1,Ny)
./verification/hs94.128x64x5/code/external_forcing.F 115 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/hs94.128x64x5/code/external_forcing.F 122 EXTERNAL_FORCING_V 
      DO j=1,sNy+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 191 EXTERNAL_FORCING_T 
      DO j=1,sNy
./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 56 EXTERNAL_FORCING_U 
      DO j=0,sNy+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)
./verification/hs94.1x64x5/code/external_forcing.F 115 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/hs94.1x64x5/code/external_forcing.F 122 EXTERNAL_FORCING_V 
      DO j=1,sNy+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 191 EXTERNAL_FORCING_T 
      DO j=1,sNy
./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 56 EXTERNAL_FORCING_U 
      DO j=0,sNy+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)
./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 137 INI_THETA 
          DO j=1-Oly,sNy+Oly
./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 59 INI_THETA 
         DO j=1-Oly,sNy+Oly
./model/src/ini_theta.F 61 INI_THETA 
           theta(i,j,k,bi,bj) = tRef(k)
./model/src/ini_theta.F 92 INI_THETA 
          DO j=1-Oly,sNy+Oly
./model/src/ini_theta.F 94 INI_THETA 
            IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0.
./model/src/ini_theta.F 99 INI_THETA 
          DO j=1,sNy
./verification/hs94.1x64x5/code_ad/cost_test.F 39 COST_TEST 
      integer i, j, k
./verification/hs94.1x64x5/code_ad/cost_test.F 68 COST_TEST 
          do j=1,sNy
./verification/hs94.1x64x5/code_ad/cost_test.F 69 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./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 122 EXTERNAL_FORCING_V 
      DO j=1,sNy+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 191 EXTERNAL_FORCING_T 
      DO j=1,sNy
./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 56 EXTERNAL_FORCING_U 
      DO j=0,sNy+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)
./verification/hs94.cs-32x32x5/code/external_forcing.F 132 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/hs94.cs-32x32x5/code/external_forcing.F 141 EXTERNAL_FORCING_V 
      DO j=1,sNy+1
./verification/hs94.cs-32x32x5/code/external_forcing.F 145 EXTERNAL_FORCING_V 
        IF ( hFacS(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.cs-32x32x5/code/external_forcing.F 147 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 160 EXTERNAL_FORCING_V 
     &          /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/external_forcing.F 164 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj)=gV(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 165 EXTERNAL_FORCING_V 
     &                      -kV*vVel(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 215 EXTERNAL_FORCING_T 
      INTEGER i, j
./verification/hs94.cs-32x32x5/code/external_forcing.F 225 EXTERNAL_FORCING_T 
      DO j=1,sNy
./verification/hs94.cs-32x32x5/code/external_forcing.F 227 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/external_forcing.F 230 EXTERNAL_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/external_forcing.F 235 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 236 EXTERNAL_FORCING_T 
     &                  *recip_Rcol(i,j,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 247 EXTERNAL_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/external_forcing.F 252 EXTERNAL_FORCING_T 
     &     *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.cs-32x32x5/code/external_forcing.F 253 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 254 EXTERNAL_FORCING_T 
     &        - kT*( theta(i,j,kLev,bi,bj)-thetaEq )
./verification/hs94.cs-32x32x5/code/external_forcing.F 255 EXTERNAL_FORCING_T 
     &            *maskC(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 48 EXTERNAL_FORCING_U 
      INTEGER i, j
./verification/hs94.cs-32x32x5/code/external_forcing.F 59 EXTERNAL_FORCING_U 
      DO j=0,sNy+1
./verification/hs94.cs-32x32x5/code/external_forcing.F 61 EXTERNAL_FORCING_U 
        IF ( hFacW(i,j,kLev,bi,bj) .GT. 0. ) THEN
./verification/hs94.cs-32x32x5/code/external_forcing.F 63 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 76 EXTERNAL_FORCING_U 
     &          /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/external_forcing.F 80 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj)=gU(i,j,kLev,bi,bj)
./verification/hs94.cs-32x32x5/code/external_forcing.F 81 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 49 INI_VEL 
         DO j=1-Oly,sNy+Oly
./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 73 INI_VEL 
         DO j=1-Oly,sNy+Oly
./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)
./model/src/integr_continuity.F 101 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integr_continuity.F 106 INTEGR_CONTINUITY 
        DO j=1,sNy
./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 129 INTEGR_CONTINUITY 
          DO j=1,sNy
./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 137 INTEGR_CONTINUITY 
         DO j=1,sNy
./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 146 INTEGR_CONTINUITY 
         DO j=1,sNy
./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 157 INTEGR_CONTINUITY 
         DO j=1-OLy,sNy+OLy
./model/src/integr_continuity.F 159 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/integr_continuity.F 162 INTEGR_CONTINUITY 
         DO j=1,sNy
./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 182 INTEGR_CONTINUITY 
        DO j=1-Oly,sNy+Oly
./model/src/integr_continuity.F 184 INTEGR_CONTINUITY 
           etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F 188 INTEGR_CONTINUITY 
        DO j=1,sNy
./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 210 INTEGR_CONTINUITY 
        DO j=1,sNy
./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 238 INTEGR_CONTINUITY 
          DO j=1,sNy
./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 82 INTEGR_CONTINUITY 
       DO j=1-Oly,sNy+Oly
./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 94 INTEGR_CONTINUITY 
        DO j=1,sNy+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 105 INTEGRATE_FOR_W 
          DO j=1,sNy
./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 121 INTEGRATE_FOR_W 
          DO j=1,sNy
./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 131 INTEGRATE_FOR_W 
          DO j=1,sNy
./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 147 INTEGRATE_FOR_W 
          DO j=1,sNy
./model/src/integrate_for_w.F 149 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 150 INTEGRATE_FOR_W 
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 151 INTEGRATE_FOR_W 
     &         -dEtaHdt(i,j,bi,bj)*dBHybSigF(k)
./model/src/integrate_for_w.F 152 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 156 INTEGRATE_FOR_W 
          DO j=1,sNy
./model/src/integrate_for_w.F 158 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 159 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)
./model/src/integrate_for_w.F 160 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 161 INTEGRATE_FOR_W 
     &         -dEtaHdt(i,j,bi,bj)*dBHybSigF(k)
./model/src/integrate_for_w.F 162 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 172 INTEGRATE_FOR_W 
          DO j=1,sNy
./model/src/integrate_for_w.F 174 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 175 INTEGRATE_FOR_W 
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 176 INTEGRATE_FOR_W 
     &         *maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 181 INTEGRATE_FOR_W 
          DO j=1,sNy
./model/src/integrate_for_w.F 183 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 184 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1)
./model/src/integrate_for_w.F 185 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 186 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 58 INTEGRATE_FOR_W 
      DO j=1,sNy+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 68 INTEGRATE_FOR_W 
      DO j=1,sNy
./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 76 INTEGRATE_FOR_W 
       DO j=1,sNy
./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 90 INTEGRATE_FOR_W 
          DO j=1,sNy
./model/src/integrate_for_w.F 92 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) = 0.
./model/src/integrate_for_w.F 96 INTEGRATE_FOR_W 
          DO j=1,sNy
./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 33 NO PROCEDURE 
            do j=1,ny
./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 125 LOAD_GRID_SPACING 
       DO j=1,Ny
./model/src/load_grid_spacing.F 127 LOAD_GRID_SPACING 
        IF ( delY(j).EQ.UNSET_RL ) THEN
./model/src/load_grid_spacing.F 130 LOAD_GRID_SPACING 
     &       ' No value for delY at j =', j
./model/src/load_grid_spacing.F 134 LOAD_GRID_SPACING 
        IF ( delY(j).LE.0. ) THEN
./model/src/load_grid_spacing.F 137 LOAD_GRID_SPACING 
     &       ' delY(j=', j, ')=', delY(j), ' : MUST BE >0'
./model/src/load_grid_spacing.F 35 LOAD_GRID_SPACING 
      INTEGER i, j, n
./model/src/momentum_correction_step.F 71 MOMENTUM_CORRECTION_STEP 
      INTEGER k,i,j
./model/src/momentum_correction_step.F 78 MOMENTUM_CORRECTION_STEP 
        DO j=1-OLy,sNy+OLy
./model/src/momentum_correction_step.F 80 MOMENTUM_CORRECTION_STEP 
          phiSurfX(i,j)=0.
./model/src/momentum_correction_step.F 81 MOMENTUM_CORRECTION_STEP 
          phiSurfY(i,j)=0.
./verification/rotating_tank/code/external_forcing.F 147 EXTERNAL_FORCING_V 
      INTEGER i, j
./verification/rotating_tank/code/external_forcing.F 174 EXTERNAL_FORCING_V 
       DO j=1,sNy+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 322 EXTERNAL_FORCING_T 
       DO j=1,sNy
./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 345 EXTERNAL_FORCING_T 
       DO j=1,sNy
./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 361 EXTERNAL_FORCING_T 
      DO j=1,sNy
./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 506 EXTERNAL_FORCING_S 
       DO j=1,sNy
./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 78 EXTERNAL_FORCING_U 
       DO j=0,sNy+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)
./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 52 INI_VEL 
         DO j=1-Oly,sNy+Oly
./verification/solid-body.cs-32x32x1/code/ini_vel.F 53 INI_VEL 
          jp1=MIN(j+1,sNy+Oly)
./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 89 INI_VEL 
         DO j=1-Oly,sNy+Oly
./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 104 EXTERNAL_FORCING_U 
      DO j=0,sNy+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 205 EXTERNAL_FORCING_V 
       DO j=1,sNy+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 310 EXTERNAL_FORCING_T 
       DO j=1,sNy
./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 333 EXTERNAL_FORCING_T 
       DO j=1,sNy
./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 427 EXTERNAL_FORCING_S 
       DO j=1,sNy
./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 80 EXTERNAL_FORCING_U 
       DO j=0,sNy+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 52 COST_TRACER 
      DO j=1,sNy
./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 77 PTRACERS_FORCING 
        DO j=jMin,jMax
./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 85 PTRACERS_FORCING 
        DO j=jMin,jMax
./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 108 PTRACERS_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 110 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = 0. _d 0
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 127 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 129 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 130 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF 
     &        + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 132 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 157 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 159 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 160 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 162 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 178 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 180 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 181 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 182 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
      INTEGER i, j
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 65 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 67 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
     &                  * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 70 PTRACERS_FORCING_SURF 
     &                  * drF(ks) * _hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 85 PTRACERS_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 87 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 88 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = relaxForcingS(i,j)/tmpVar
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 89 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 90 PTRACERS_FORCING_SURF 
     &                  *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 94 PTRACERS_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 96 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 97 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 98 PTRACERS_FORCING_SURF 
     &                  *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./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 45 COST_HFLUX 
         do j=1,sNy
./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 69 COST_HFLUX 
         DO j=1,sNy
./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 50 COST_TEMP 
          DO j=1,sNy
./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 76 COST_TEMP 
           DO j=1,sNy
./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 120 COST_WEIGHTS 
          DO j = jMin,jMax
./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 63 COST_WEIGHTS 
          DO j = jMin,jMax
./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 101 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 102 EXTERNAL_FORCING_SURF 
     &      -lambdaThetaClimRelax(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 103 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 104 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 106 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 107 EXTERNAL_FORCING_SURF 
     &      -lambdaSaltClimRelax(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 108 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 109 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 123 EXTERNAL_FORCING_SURF 
         DO j=jMin,jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 125 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 126 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 127 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 128 EXTERNAL_FORCING_SURF 
     &                                  * rStarExpC(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 133 EXTERNAL_FORCING_SURF 
         DO j=jMin,jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 135 EXTERNAL_FORCING_SURF 
           IF (ks.EQ.ksurfC(i,j,bi,bj)) THEN
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 136 EXTERNAL_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 137 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 138 EXTERNAL_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 139 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 168 EXTERNAL_FORCING_SURF 
       DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 170 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 171 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 181 EXTERNAL_FORCING_SURF 
       DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 183 EXTERNAL_FORCING_SURF 
         relaxForcingS(i,j) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 193 EXTERNAL_FORCING_SURF 
      DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 197 EXTERNAL_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 198 EXTERNAL_FORCING_SURF 
     &      fu(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 200 EXTERNAL_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 201 EXTERNAL_FORCING_SURF 
     &      fv(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 203 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 204 EXTERNAL_FORCING_SURF 
     &       - ( Qnet(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 206 EXTERNAL_FORCING_SURF 
     &          -Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 209 EXTERNAL_FORCING_SURF 
     &          +Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 213 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 214 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 236 EXTERNAL_FORCING_SURF 
        DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 238 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 247 EXTERNAL_FORCING_SURF 
        DO j=1-OLy,sNy+OLy
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 249 EXTERNAL_FORCING_SURF 
           PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 262 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 264 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 265 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 266 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 273 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 275 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 276 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 277 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 297 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 299 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 300 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 301 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 308 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 310 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(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 312 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 323 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 325 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 326 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 334 EXTERNAL_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 336 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 337 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 373 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 375 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 376 EXTERNAL_FORCING_SURF 
     &                        +sIceLoad(i,j,bi,bj)*gravity
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 381 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 383 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 402 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 404 EXTERNAL_FORCING_SURF 
          phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 405 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 82 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 85 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 86 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 87 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 88 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 90 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) =
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 91 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 92 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 93 EXTERNAL_FORCING_SURF 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 98 EXTERNAL_FORCING_SURF 
        DO j = jMin, jMax
./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 135 INI_FORCING 
          DO j=1-Oly,sNy+Oly
./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 169 INI_FORCING 
          DO j=1-OLy,sNy+OLy
./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 44 INI_FORCING 
        DO j=1-OLy,sNy+OLy
./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 95 INI_FORCING 
        DO j=1-Oly,sNy+Oly
./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 122 EXTERNAL_FORCING_V 
      DO j=1,sNy+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 191 EXTERNAL_FORCING_T 
      DO j=1,sNy
./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 56 EXTERNAL_FORCING_U 
      DO j=0,sNy+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 107 PTRACERS_FORCING_SURF 
        DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 109 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = 0. _d 0
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 126 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 128 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 129 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 130 PTRACERS_FORCING_SURF 
     &        + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 156 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 158 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 159 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 160 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 177 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 179 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 180 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 181 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 51 PTRACERS_FORCING_SURF 
      INTEGER i, j
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 65 PTRACERS_FORCING_SURF 
          DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 67 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
     &               surfaceForcingS(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 84 PTRACERS_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 86 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 87 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = relaxForcingS(i,j)/tmpVar
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 88 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 89 PTRACERS_FORCING_SURF 
     &                  *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 93 PTRACERS_FORCING_SURF 
         DO j = jMin, jMax
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 95 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = relaxForcingS(i,j)/convertFW2Salt
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 96 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = rUnit2mass
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 97 PTRACERS_FORCING_SURF 
     &                  *MAX( -cutoff, MIN( add2EmP(i,j), cutoff ) )
./model/src/post_cg3d.F 105 POST_CG3D 
          DO j=1,sNy
./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 138 POST_CG3D 
          DO j=1-OLy,sNy+OLy
./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 146 POST_CG3D 
         DO j=1-OLy,sNy+OLy
./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 64 POST_CG3D 
          DO j=1-OLy,sNy+OLy
./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 71 POST_CG3D 
          DO j=1-OLy,sNy+OLy
./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 84 POST_CG3D 
          DO j=1-OLy,sNy+OLy
./model/src/post_cg3d.F 86 POST_CG3D 
             dPhiNH(i,j,bi,bj) = 0.
./model/src/post_cg3d.F 90 POST_CG3D 
           DO j=1-OLy,sNy+OLy
./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 97 POST_CG3D 
          DO j=1-OLy,sNy+OLy
./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 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 126 PRE_CG3D 
           DO j=1,sNy
./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 137 PRE_CG3D 
            DO j=1,sNy
./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 151 PRE_CG3D 
           DO j=1,sNy
./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 167 PRE_CG3D 
         DO j=1,sNy+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 188 PRE_CG3D 
          DO j=1,sNy+1
./model/src/pre_cg3d.F 190 PRE_CG3D 
           IF (OB_Ie(j,bi,bj).NE.0)
./model/src/pre_cg3d.F 191 PRE_CG3D 
     &      uf(OB_Ie(j,bi,bj),j) = 0.
./model/src/pre_cg3d.F 193 PRE_CG3D 
           IF (OB_Iw(j,bi,bj).NE.0)
./model/src/pre_cg3d.F 194 PRE_CG3D 
     &      uf(OB_Iw(j,bi,bj)+1,j) = 0.
./model/src/pre_cg3d.F 206 PRE_CG3D 
         DO j=1,sNy
./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 225 PRE_CG3D 
          DO j=1,sNy
./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 251 PRE_CG3D 
           DO j=1,sNy
./model/src/pre_cg3d.F 253 PRE_CG3D 
            IF (OB_Ie(j,bi,bj).NE.0)
./model/src/pre_cg3d.F 254 PRE_CG3D 
     &       cg3d_b(OB_Ie(j,bi,bj),j,k,bi,bj) = 0.
./model/src/pre_cg3d.F 256 PRE_CG3D 
            IF (OB_Iw(j,bi,bj).NE.0)
./model/src/pre_cg3d.F 257 PRE_CG3D 
     &       cg3d_b(OB_Iw(j,bi,bj),j,k,bi,bj) = 0.
./model/src/pre_cg3d.F 59 PRE_CG3D 
      INTEGER i,j,k,bi,bj
./model/src/pre_cg3d.F 87 PRE_CG3D 
          DO j=1,sNy
./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/pre_cg3d.F 99 PRE_CG3D 
           DO j=1,sNy
./model/src/pressure_for_eos.F 43 PRESSURE_FOR_EOS 
      INTEGER  i,j
./model/src/pressure_for_eos.F 57 PRESSURE_FOR_EOS 
         DO j=1-Oly,sNy+Oly
./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 66 PRESSURE_FOR_EOS 
         DO j=1-Oly,sNy+Oly
./model/src/pressure_for_eos.F 68 PRESSURE_FOR_EOS 
            locPres(i,j) = -rhoConst*rC(k)*gravity
./model/src/pressure_for_eos.F 76 PRESSURE_FOR_EOS 
         DO j=1-Oly,sNy+Oly
./model/src/pressure_for_eos.F 78 PRESSURE_FOR_EOS 
            locPres(i,j) = rC(k)
./model/src/read_pickup.F 186 READ_PICKUP 
          j = 3
./model/src/read_pickup.F 187 READ_PICKUP 
          IF ( startFromPickupAB2 ) j = 2
./model/src/read_pickup.F 193 READ_PICKUP 
     &                                           nj+j, myIter,myThid )
./model/src/read_pickup.F 194 READ_PICKUP 
          nj = j
./model/src/read_pickup.F 199 READ_PICKUP 
     &                                           nj+j, myIter,myThid )
./model/src/read_pickup.F 200 READ_PICKUP 
          nj = 2*j
./model/src/read_pickup.F 205 READ_PICKUP 
     &                                           nj+j, myIter,myThid )
./model/src/read_pickup.F 206 READ_PICKUP 
          nj = 3*j
./model/src/read_pickup.F 211 READ_PICKUP 
     &                                           nj+j, myIter,myThid )
./model/src/read_pickup.F 212 READ_PICKUP 
          nj = 4*j
./model/src/read_pickup.F 69 READ_PICKUP 
      INTEGER j, nj, ioUnit
./model/src/read_pickup.F 83 READ_PICKUP 
      DO j = 1,MAX_LEN_FNAM
./model/src/read_pickup.F 84 READ_PICKUP 
        fn(j:j) = ' '
./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 110 ROTATE_UV2EN_RL 
          do j = 1-oly,sny+oly
./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 123 ROTATE_UV2EN_RL 
          do j = 1-oly,sny+oly
./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 138 ROTATE_UV2EN_RL 
          do j = 1-oly,sny+oly
./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 155 ROTATE_UV2EN_RL 
          do j = 1-oly+1,sny+oly
./model/src/rotate_uv2en.F 156 ROTATE_UV2EN_RL 
             uFldX(1,j,k,bi,bj)=0.
./model/src/rotate_uv2en.F 157 ROTATE_UV2EN_RL 
             vFldY(1,j,k,bi,bj)=0.
./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 171 ROTATE_UV2EN_RL 
          do j = 1-oly,sny+oly
./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 275 ROTATE_UV2EN_RS 
        do j = 1-oly,sny+oly-1
./model/src/rotate_uv2en.F 276 ROTATE_UV2EN_RS 
          tmpU(snx+Olx,j)=0.
./model/src/rotate_uv2en.F 277 ROTATE_UV2EN_RS 
          tmpV(snx+Olx,j)=0.
./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 291 ROTATE_UV2EN_RS 
          do j = 1-oly,sny+oly
./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 304 ROTATE_UV2EN_RS 
          do j = 1-oly,sny+oly
./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 319 ROTATE_UV2EN_RS 
          do j = 1-oly,sny+oly
./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 336 ROTATE_UV2EN_RS 
          do j = 1-oly+1,sny+oly
./model/src/rotate_uv2en.F 337 ROTATE_UV2EN_RS 
             uFldX(1,j,k,bi,bj)=0.
./model/src/rotate_uv2en.F 338 ROTATE_UV2EN_RS 
             vFldY(1,j,k,bi,bj)=0.
./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 352 ROTATE_UV2EN_RS 
          do j = 1-oly,sny+oly
./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 94 ROTATE_UV2EN_RL 
        do j = 1-oly,sny+oly-1
./model/src/rotate_uv2en.F 95 ROTATE_UV2EN_RL 
          tmpU(snx+Olx,j)=0.
./model/src/rotate_uv2en.F 96 ROTATE_UV2EN_RL 
          tmpV(snx+Olx,j)=0.
./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 37 SET_DEFAULTS 
      INTEGER i, j, k
./model/src/set_defaults.F 69 SET_DEFAULTS 
      DO j=1,Ny
./model/src/set_defaults.F 70 SET_DEFAULTS 
       delY(j)            = UNSET_RL
./model/src/solve_for_pressure.F 123 SOLVE_FOR_PRESSURE 
        DO j=1-OLy,sNy+OLy
./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 136 SOLVE_FOR_PRESSURE 
         DO j=1,sNy
./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 145 SOLVE_FOR_PRESSURE 
         DO j=1,sNy
./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 165 SOLVE_FOR_PRESSURE 
          DO j=1,sNy
./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 188 SOLVE_FOR_PRESSURE 
         DO j=1,sNy
./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 210 SOLVE_FOR_PRESSURE 
         DO j=1,sNy
./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 220 SOLVE_FOR_PRESSURE 
         DO j=1,sNy
./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 246 SOLVE_FOR_PRESSURE 
         DO j=1,sNy
./model/src/solve_for_pressure.F 248 SOLVE_FOR_PRESSURE 
          IF (OB_Ie(j,bi,bj).NE.0) THEN
./model/src/solve_for_pressure.F 249 SOLVE_FOR_PRESSURE 
           cg2d_b(OB_Ie(j,bi,bj),j,bi,bj)=0.
./model/src/solve_for_pressure.F 250 SOLVE_FOR_PRESSURE 
           cg2d_x(OB_Ie(j,bi,bj),j,bi,bj)=0.
./model/src/solve_for_pressure.F 253 SOLVE_FOR_PRESSURE 
          IF (OB_Iw(j,bi,bj).NE.0) THEN
./model/src/solve_for_pressure.F 254 SOLVE_FOR_PRESSURE 
           cg2d_b(OB_Iw(j,bi,bj),j,bi,bj)=0.
./model/src/solve_for_pressure.F 255 SOLVE_FOR_PRESSURE 
           cg2d_x(OB_Iw(j,bi,bj),j,bi,bj)=0.
./model/src/solve_for_pressure.F 345 SOLVE_FOR_PRESSURE 
        DO j=1-OLy,sNy+OLy
./model/src/solve_for_pressure.F 347 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 112 SOLVE_PENTADIAGONAL 
        DO j=jMin,jMax
./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 140 SOLVE_PENTADIAGONAL 
        DO j=jMin,jMax
./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 146 SOLVE_PENTADIAGONAL 
        DO j=jMin,jMax
./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 154 SOLVE_PENTADIAGONAL 
        DO j=jMin,jMax
./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 171 SOLVE_PENTADIAGONAL 
      DO j=jMin,jMax
./model/src/solve_pentadiagonal.F 174 SOLVE_PENTADIAGONAL 
         y5d_m1(i,j,k) = y5d(i,j,k,bi,bj)
./model/src/solve_pentadiagonal.F 180 SOLVE_PENTADIAGONAL 
      DO j=jMin,jMax
./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 81 SOLVE_PENTADIAGONAL 
        DO j=jMin,jMax
./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 93 SOLVE_PENTADIAGONAL 
        DO j=jMin,jMax
./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 101 SOLVE_TRIDIAGONAL 
       DO j=jMin,jMax
./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 113 SOLVE_TRIDIAGONAL 
       DO j=jMin,jMax
./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 126 SOLVE_TRIDIAGONAL 
      DO j=jMin,jMax
./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 136 SOLVE_TRIDIAGONAL 
      DO j=jMin,jMax
./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 69 SOLVE_TRIDIAGONAL 
      DO j=jMin,jMax
./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 82 SOLVE_TRIDIAGONAL 
       DO j=jMin,jMax
./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 95 SOLVE_TRIDIAGONAL 
      DO j=jMin,jMax
./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/taueddy_external_forcing.F 168 TAUEDDY_EXTERNAL_FORCING_V 
      DO j=jMin,jMax
./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 78 TAUEDDY_EXTERNAL_FORCING_U 
      DO j=jMin,jMax
./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 44 TAUEDDY_INIT_VARIA 
         DO j=1-Oly,sNy+Oly
./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 182 THERMODYNAMICS 
      INTEGER i, j
./model/src/thermodynamics.F 262 THERMODYNAMICS 
        DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F 264 THERMODYNAMICS 
          xA(i,j)        = 0. _d 0
./model/src/thermodynamics.F 265 THERMODYNAMICS 
          yA(i,j)        = 0. _d 0
./model/src/thermodynamics.F 266 THERMODYNAMICS 
          uTrans(i,j)    = 0. _d 0
./model/src/thermodynamics.F 267 THERMODYNAMICS 
          vTrans(i,j)    = 0. _d 0
./model/src/thermodynamics.F 268 THERMODYNAMICS 
          rTrans (i,j)   = 0. _d 0
./model/src/thermodynamics.F 269 THERMODYNAMICS 
          rTransKp1(i,j) = 0. _d 0
./model/src/thermodynamics.F 270 THERMODYNAMICS 
          fVerT  (i,j,1) = 0. _d 0
./model/src/thermodynamics.F 271 THERMODYNAMICS 
          fVerT  (i,j,2) = 0. _d 0
./model/src/thermodynamics.F 272 THERMODYNAMICS 
          fVerS  (i,j,1) = 0. _d 0
./model/src/thermodynamics.F 273 THERMODYNAMICS 
          fVerS  (i,j,2) = 0. _d 0
./model/src/thermodynamics.F 274 THERMODYNAMICS 
          kappaRT(i,j)   = 0. _d 0
./model/src/thermodynamics.F 275 THERMODYNAMICS 
          kappaRS(i,j)   = 0. _d 0
./model/src/thermodynamics.F 280 THERMODYNAMICS 
         DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F 283 THERMODYNAMICS 
           kappaRk(i,j,k)    = 0. _d 0
./model/src/thermodynamics.F 285 THERMODYNAMICS 
           gT(i,j,k,bi,bj)   = 0. _d 0
./model/src/thermodynamics.F 286 THERMODYNAMICS 
           gS(i,j,k,bi,bj)   = 0. _d 0
./model/src/thermodynamics.F 295 THERMODYNAMICS 
           DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F 297 THERMODYNAMICS 
             fVerP  (i,j,1,ip) = 0. _d 0
./model/src/thermodynamics.F 298 THERMODYNAMICS 
             fVerP  (i,j,2,ip) = 0. _d 0
./model/src/thermodynamics.F 299 THERMODYNAMICS 
             kappaRTr(i,j,ip)  = 0. _d 0
./model/src/thermodynamics.F 306 THERMODYNAMICS 
           DO j=1-OLy,sNy+OLy
./model/src/thermodynamics.F 308 THERMODYNAMICS 
             gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
./model/src/thermodynamics.F 478 THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./model/src/thermodynamics.F 480 THERMODYNAMICS 
             rTransKp1(i,j) = 0. _d 0
./model/src/thermodynamics.F 484 THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./model/src/thermodynamics.F 486 THERMODYNAMICS 
             rTransKp1(i,j) = rTrans(i,j)
./model/src/thermodynamics.F 505 THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./model/src/thermodynamics.F 507 THERMODYNAMICS 
             wFld(i,j)   = 0. _d 0
./model/src/thermodynamics.F 508 THERMODYNAMICS 
             maskUp(i,j) = 0. _d 0
./model/src/thermodynamics.F 509 THERMODYNAMICS 
             rTrans(i,j) = 0. _d 0
./model/src/thermodynamics.F 515 THERMODYNAMICS 
           DO j=1-Oly,sNy+Oly
./model/src/thermodynamics.F 517 THERMODYNAMICS 
             wFld(i,j)   = wVel(i,j,k,bi,bj)
./model/src/thermodynamics.F 518 THERMODYNAMICS 
             maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/thermodynamics.F 519 THERMODYNAMICS 
             rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j)
./model/src/timestep.F 101 TIMESTEP 
      DO j=1-Oly,sNy+Oly
./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 114 TIMESTEP 
        DO j=jMin,jMax
./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 128 TIMESTEP 
        DO j=jMin,jMax
./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 140 TIMESTEP 
         DO j=1,sNy+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 158 TIMESTEP 
         DO j=1,sNy+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 171 TIMESTEP 
        DO j=jMin,jMax
./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 207 TIMESTEP 
         DO j=jMin,jMax
./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 225 TIMESTEP 
         DO j=jMin,jMax
./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 242 TIMESTEP 
         DO j=jMin,jMax
./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 251 TIMESTEP 
        DO j=jMin,jMax
./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 260 TIMESTEP 
         DO j=jMin,jMax
./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 273 TIMESTEP 
        DO j=jMin,jMax
./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 283 TIMESTEP 
        DO j=jMin,jMax
./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 j=jMin,jMax
./model/src/timestep.F 300 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j)/rStarExpW(i,j,bi,bj)
./model/src/timestep.F 301 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j)/rStarExpS(i,j,bi,bj)
./model/src/timestep.F 307 TIMESTEP 
        DO j=jMin,jMax
./model/src/timestep.F 309 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F 310 TIMESTEP 
     &        /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTfreesurf
./model/src/timestep.F 312 TIMESTEP 
     &                    *recip_hFacW(i,j,k,bi,bj)
./model/src/timestep.F 314 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F 315 TIMESTEP 
     &        /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTfreesurf
./model/src/timestep.F 317 TIMESTEP 
     &                    *recip_hFacS(i,j,k,bi,bj)
./model/src/timestep.F 323 TIMESTEP 
        DO j=jMin,jMax
./model/src/timestep.F 325 TIMESTEP 
          IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN
./model/src/timestep.F 326 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F 327 TIMESTEP 
     &         *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)
./model/src/timestep.F 329 TIMESTEP 
          IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN
./model/src/timestep.F 330 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F 331 TIMESTEP 
     &         *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)
./model/src/timestep.F 343 TIMESTEP 
        DO j=jMin,jMax
./model/src/timestep.F 345 TIMESTEP 
          gUtmp(i,j) = gUtmp(i,j) + guDissip(i,j)
./model/src/timestep.F 346 TIMESTEP 
          gVtmp(i,j) = gVtmp(i,j) + gvDissip(i,j)
./model/src/timestep.F 357 TIMESTEP 
        DO j=jMin,jMax
./model/src/timestep.F 359 TIMESTEP 
          gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F 360 TIMESTEP 
     &               - nhFac*_recip_dxC(i,j,bi,bj)*
./model/src/timestep.F 361 TIMESTEP 
     &                ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F 362 TIMESTEP 
     &                 -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) )
./model/src/timestep.F 364 TIMESTEP 
          gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F 365 TIMESTEP 
     &               - nhFac*_recip_dyC(i,j,bi,bj)*
./model/src/timestep.F 366 TIMESTEP 
     &                ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F 367 TIMESTEP 
     &                 -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-1,bi,bj) )
./model/src/timestep.F 372 TIMESTEP 
        DO j=jMin,jMax
./model/src/timestep.F 374 TIMESTEP 
          gUtmp(i,j) = gUtmp(i,j)
./model/src/timestep.F 375 TIMESTEP 
     &               - nhFac*_recip_dxC(i,j,bi,bj)*
./model/src/timestep.F 376 TIMESTEP 
     &                  (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F 377 TIMESTEP 
          gVtmp(i,j) = gVtmp(i,j)
./model/src/timestep.F 378 TIMESTEP 
     &               - nhFac*_recip_dyC(i,j,bi,bj)*
./model/src/timestep.F 379 TIMESTEP 
     &                  (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F 387 TIMESTEP 
      DO j=jMin,jMax
./model/src/timestep.F 389 TIMESTEP 
          gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./model/src/timestep.F 391 TIMESTEP 
     &         gUtmp(i,j)
./model/src/timestep.F 392 TIMESTEP 
     &       - psFac*phiSurfX(i,j)
./model/src/timestep.F 393 TIMESTEP 
     &       - phxFac*dPhiHydX(i,j)
./model/src/timestep.F 394 TIMESTEP 
     &        )*_maskW(i,j,k,bi,bj)
./model/src/timestep.F 399 TIMESTEP 
      DO j=jMin,jMax
./model/src/timestep.F 401 TIMESTEP 
          gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./model/src/timestep.F 403 TIMESTEP 
     &         gVtmp(i,j)
./model/src/timestep.F 404 TIMESTEP 
     &       - psFac*phiSurfY(i,j)
./model/src/timestep.F 405 TIMESTEP 
     &       - phyFac*dPhiHydY(i,j)
./model/src/timestep.F 406 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 45 TIMESTEP_TRACER 
      DO j=jMin,jMax
./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 122 TIMESTEP_WVEL 
         DO j=1-Oly,sNy+Oly
./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 67 TIMESTEP_WVEL 
           DO j=jMin,jMax
./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 75 TIMESTEP_WVEL 
           DO j=jMin,jMax
./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 85 TIMESTEP_WVEL 
         DO j=1-Oly,sNy+Oly
./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 96 TIMESTEP_WVEL 
         DO j=jMin,jMax
./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 55 TRACERS_IIGW_CORRECTION 
      DO j=1-Oly,sNy+Oly
./model/src/tracers_iigw_correction.F 57 TRACERS_IIGW_CORRECTION 
          dWp1(i,j) = 0. _d 0
./model/src/tracers_iigw_correction.F 66 TRACERS_IIGW_CORRECTION 
       DO j=1-Oly,sNy+Oly
./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 80 TRACERS_IIGW_CORRECTION 
         DO j=1-Oly,sNy+Oly
./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 96 TRACERS_IIGW_CORRECTION 
         DO j=1-Oly,sNy+Oly
./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 115 UPDATE_ETAH 
         DO j=1-Oly,sNy+Oly
./model/src/update_etah.F 117 UPDATE_ETAH 
            dEtaWdt(i,j,bi,bj) = etaHw(i,j,bi,bj)
./model/src/update_etah.F 118 UPDATE_ETAH 
            dEtaSdt(i,j,bi,bj) = etaHs(i,j,bi,bj)
./model/src/update_etah.F 122 UPDATE_ETAH 
         DO j=1,sNy+1
./model/src/update_etah.F 124 UPDATE_ETAH 
            etaHw(i,j,bi,bj)   = ( etaH (i-1,j,bi,bj)
./model/src/update_etah.F 125 UPDATE_ETAH 
     &                           + etaH ( i ,j,bi,bj) )*0.5 _d 0
./model/src/update_etah.F 126 UPDATE_ETAH 
            etaHs(i,j,bi,bj)   = ( etaH (i,j-1,bi,bj)
./model/src/update_etah.F 127 UPDATE_ETAH 
     &                           + etaH (i, j ,bi,bj) )*0.5 _d 0
./model/src/update_etah.F 150 UPDATE_ETAH 
         DO j=1-Oly,sNy+Oly
./model/src/update_etah.F 152 UPDATE_ETAH 
            dEtaWdt(i,j,bi,bj) = ( etaHw(i,j,bi,bj)
./model/src/update_etah.F 153 UPDATE_ETAH 
     &                           - dEtaWdt(i,j,bi,bj) )/deltaTfreesurf
./model/src/update_etah.F 154 UPDATE_ETAH 
            dEtaSdt(i,j,bi,bj) = ( etaHs(i,j,bi,bj)
./model/src/update_etah.F 155 UPDATE_ETAH 
     &                           - dEtaSdt(i,j,bi,bj) )/deltaTfreesurf
./model/src/update_etah.F 45 UPDATE_ETAH 
      INTEGER i,j,bi,bj
./model/src/update_etah.F 55 UPDATE_ETAH 
         DO j=1-Oly,sNy+Oly
./model/src/update_etah.F 57 UPDATE_ETAH 
             etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/update_etah.F 65 UPDATE_ETAH 
         DO j=1-Oly,sNy+Oly
./model/src/update_etah.F 67 UPDATE_ETAH 
            etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/update_etah.F 72 UPDATE_ETAH 
         DO j=1,sNy
./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 174 UPDATE_MASKS_ETC 
        DO j=1-Oly,sNy+Oly
./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 86 UPDATE_R_STAR 
         DO j=1-Oly,sNy+Oly
./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_sigma.F 101 UPDATE_SIGMA 
        DO j=1-Oly,sNy+Oly
./model/src/update_sigma.F 103 UPDATE_SIGMA 
          IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F 104 UPDATE_SIGMA 
           tmpFld(i,j) = etaHc(i,j,bi,bj)
./model/src/update_sigma.F 105 UPDATE_SIGMA 
     &                 + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) )
./model/src/update_sigma.F 107 UPDATE_SIGMA 
           tmpFld(i,j) = rFullDepth
./model/src/update_sigma.F 112 UPDATE_SIGMA 
         DO j=1-Oly,sNy+Oly
./model/src/update_sigma.F 114 UPDATE_SIGMA 
            hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_sigma.F 116 UPDATE_SIGMA 
     &                           +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F 118 UPDATE_SIGMA 
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 120 UPDATE_SIGMA 
     &                           +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F 127 UPDATE_SIGMA 
        DO j=1-Oly,sNy+Oly
./model/src/update_sigma.F 129 UPDATE_SIGMA 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F 130 UPDATE_SIGMA 
           tmpFld(i,j) = etaHw(i,j,bi,bj)
./model/src/update_sigma.F 131 UPDATE_SIGMA 
     &                 + ( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) )
./model/src/update_sigma.F 133 UPDATE_SIGMA 
           tmpFld(i,j) = rFullDepth
./model/src/update_sigma.F 138 UPDATE_SIGMA 
         DO j=1-Oly,sNy+Oly
./model/src/update_sigma.F 140 UPDATE_SIGMA 
            hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_sigma.F 142 UPDATE_SIGMA 
     &                           +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F 144 UPDATE_SIGMA 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 146 UPDATE_SIGMA 
     &                           +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F 153 UPDATE_SIGMA 
        DO j=1-Oly,sNy+Oly
./model/src/update_sigma.F 155 UPDATE_SIGMA 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F 156 UPDATE_SIGMA 
           tmpFld(i,j) = etaHs(i,j,bi,bj)
./model/src/update_sigma.F 157 UPDATE_SIGMA 
     &                 + ( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) )
./model/src/update_sigma.F 159 UPDATE_SIGMA 
           tmpFld(i,j) = rFullDepth
./model/src/update_sigma.F 164 UPDATE_SIGMA 
         DO j=1-Oly,sNy+Oly
./model/src/update_sigma.F 166 UPDATE_SIGMA 
            hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_sigma.F 168 UPDATE_SIGMA 
     &                           +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F 170 UPDATE_SIGMA 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 172 UPDATE_SIGMA 
     &                           +dBHybSigF(k)*tmpFld(i,j)
./model/src/update_sigma.F 55 UPDATE_SIGMA 
      INTEGER i, j, k
./model/src/update_surf_dr.F 100 UPDATE_SURF_DR 
        DO j=1-Oly,sNy+Oly
./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 109 UPDATE_SURF_DR 
        DO j=2-Oly,sNy+Oly
./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 87 UPDATE_SURF_DR 
        DO j=1-Oly,sNy+Oly
./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 60 WRITE_GRID 
         DO j=1-Oly,sNy+Oly
./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)
./model/src/write_pickup.F 107 WRITE_PICKUP 
        j  = 0
./model/src/write_pickup.F 111 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 112 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, uVel,   -j, myIter, myThid )
./model/src/write_pickup.F 113 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'Uvel    '
./model/src/write_pickup.F 114 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 115 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, vVel,   -j, myIter, myThid )
./model/src/write_pickup.F 116 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'Vvel    '
./model/src/write_pickup.F 118 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 119 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, theta,  -j, myIter, myThid )
./model/src/write_pickup.F 120 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'Theta   '
./model/src/write_pickup.F 121 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 122 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, salt,   -j, myIter, myThid )
./model/src/write_pickup.F 123 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'Salt    '
./model/src/write_pickup.F 131 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 133 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 134 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GuNm1   '
./model/src/write_pickup.F 137 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 139 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 140 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GuNm2   '
./model/src/write_pickup.F 144 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 146 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 147 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GvNm1   '
./model/src/write_pickup.F 150 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 152 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 153 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GvNm2   '
./model/src/write_pickup.F 159 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 161 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 162 WRITE_PICKUP 
        IF (j.LE.listDim) THEN
./model/src/write_pickup.F 163 WRITE_PICKUP 
         IF ( AdamsBashforthGt ) wrFldList(j) = 'GtNm1   '
./model/src/write_pickup.F 164 WRITE_PICKUP 
         IF ( AdamsBashforth_T ) wrFldList(j) = 'TempNm1 '
./model/src/write_pickup.F 168 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 170 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 171 WRITE_PICKUP 
        IF (j.LE.listDim) THEN
./model/src/write_pickup.F 172 WRITE_PICKUP 
         IF ( AdamsBashforthGt ) wrFldList(j) = 'GtNm2   '
./model/src/write_pickup.F 173 WRITE_PICKUP 
         IF ( AdamsBashforth_T ) wrFldList(j) = 'TempNm2 '
./model/src/write_pickup.F 180 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 182 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 183 WRITE_PICKUP 
        IF (j.LE.listDim) THEN
./model/src/write_pickup.F 184 WRITE_PICKUP 
         IF ( AdamsBashforthGs ) wrFldList(j) = 'GsNm1   '
./model/src/write_pickup.F 185 WRITE_PICKUP 
         IF ( AdamsBashforth_S ) wrFldList(j) = 'SaltNm1 '
./model/src/write_pickup.F 189 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 191 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 192 WRITE_PICKUP 
        IF (j.LE.listDim) THEN
./model/src/write_pickup.F 193 WRITE_PICKUP 
         IF ( AdamsBashforthGs ) wrFldList(j) = 'GsNm2   '
./model/src/write_pickup.F 194 WRITE_PICKUP 
         IF ( AdamsBashforth_S ) wrFldList(j) = 'SaltNm2 '
./model/src/write_pickup.F 202 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 204 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 205 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GwNm1   '
./model/src/write_pickup.F 208 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 210 WRITE_PICKUP 
     &                                            -j, myIter, myThid )
./model/src/write_pickup.F 211 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GwNm2   '
./model/src/write_pickup.F 217 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 218 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, guNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 219 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GuNm1   '
./model/src/write_pickup.F 220 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 221 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gvNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 222 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GvNm1   '
./model/src/write_pickup.F 225 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 226 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gtNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 227 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GtNm1   '
./model/src/write_pickup.F 230 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 231 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gsNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 232 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GsNm1   '
./model/src/write_pickup.F 236 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 237 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, gwNm1,  -j, myIter, myThid )
./model/src/write_pickup.F 238 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'GwNm1   '
./model/src/write_pickup.F 245 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 246 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,totPhiHyd,-j,myIter, myThid )
./model/src/write_pickup.F 247 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'PhiHyd  '
./model/src/write_pickup.F 251 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 252 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr, phi_nh, -j, myIter, myThid )
./model/src/write_pickup.F 253 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'Phi_NHyd'
./model/src/write_pickup.F 259 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 260 WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp, Nr,addMass,-j,myIter, myThid )
./model/src/write_pickup.F 261 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'AddMass '
./model/src/write_pickup.F 265 WRITE_PICKUP 
        n3D = j
./model/src/write_pickup.F 267 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 268 WRITE_PICKUP 
        nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F 270 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'EtaN    '
./model/src/write_pickup.F 273 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 274 WRITE_PICKUP 
        nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F 276 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'dPhiNH  '
./model/src/write_pickup.F 281 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 282 WRITE_PICKUP 
        nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F 284 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'dEtaHdt '
./model/src/write_pickup.F 289 WRITE_PICKUP 
        j = j + 1
./model/src/write_pickup.F 290 WRITE_PICKUP 
        nj = -( n3D*(Nr-1) + j )
./model/src/write_pickup.F 292 WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'EtaH    '
./model/src/write_pickup.F 296 WRITE_PICKUP 
        nWrFlds = j
./model/src/write_pickup.F 72 WRITE_PICKUP 
      INTEGER j, nj
./model/src/write_pickup.F 86 WRITE_PICKUP 
      DO j=1,listDim
./model/src/write_pickup.F 87 WRITE_PICKUP 
        wrFldList(j) = ' '
./model/src/write_pickup.F 91 WRITE_PICKUP 
      DO j = 1,MAX_LEN_FNAM
./model/src/write_pickup.F 92 WRITE_PICKUP 
        fn(j:j) = ' '
./optim/optim_readdata.F 67 OPTIM_READDATA 
      integer i,j
./optim/optim_writedata.F 52 OPTIM_WRITEDATA 
      integer i,j,k
./pkg/admtlm/admtlm_bypassad.F 100 ADMTLM_BYPASSAD 
     &              + adetan(i,j,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 114 ADMTLM_BYPASSAD 
            do j = jmin, jmax
./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 132 ADMTLM_BYPASSAD 
            do j = jmin, jmax
./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 150 ADMTLM_BYPASSAD 
            do j = jmin, jmax
./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 168 ADMTLM_BYPASSAD 
            do j = jmin, jmax
./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 74 ADMTLM_BYPASSAD 
        DO j = jmin, jmax
./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 97 ADMTLM_BYPASSAD 
          do j = jmin, jmax
./pkg/admtlm/admtlm_bypassad.F 99 ADMTLM_BYPASSAD 
              tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj)
./pkg/admtlm/admtlm_dsvd.F 182 ADMTLM_DSVD 
     &                 j, ishfts, maxitr, mode, nconv
./pkg/admtlm/admtlm_dsvd.F 571 ADMTLM_DSVD 
            do j=1, nconv
./pkg/admtlm/admtlm_dsvd.F 572 ADMTLM_DSVD 
               print *, 'ph-ev ', j, s(j,1), s(j,2)
./pkg/admtlm/admtlm_dsvd.F 577 ADMTLM_DSVD 
            do 20 j=1, nconv
./pkg/admtlm/admtlm_dsvd.F 579 ADMTLM_DSVD 
               s(j,1) = sqrt(s(j,1))
./pkg/admtlm/admtlm_dsvd.F 592 ADMTLM_DSVD 
                  tmpvec1(l) = v(l,j)
./pkg/admtlm/admtlm_dsvd.F 600 ADMTLM_DSVD 
               call DCOPY( m, tmpvec2, 1, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F 601 ADMTLM_DSVD 
               temp = one / dnrm2( m, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F 603 ADMTLM_DSVD 
               print *, 'ph-print ', j, dnrm2( m, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F 605 ADMTLM_DSVD 
               call DSCAL(m , temp, u(l,j), 1 )
./pkg/admtlm/admtlm_dsvd.F 629 ADMTLM_DSVD 
               call DAXPY(m, -s(j,1), u(1,j), 1, tmpvec2, 1)
./pkg/admtlm/admtlm_dsvd.F 630 ADMTLM_DSVD 
               s(j,2) = dnrm2(m, tmpvec2, 1)
./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 48 ADMTLM_INIT_FIXED 
        DO j=1,sNy
./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 33 ADMTLM_MAP 
        DO j=1,sNy
./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 53 ADMTLM_METRIC 
        DO j=1,sNy
./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 75 ADMTLM_METRIC 
        DO j=1,sNy
./pkg/admtlm/admtlm_model2dsvd.F 68 ADMTLM_MODEL2DSVD 
      integer i, j, k
./pkg/aim_compon_interf/atm_apply_import.F 103 ATM_APPLY_IMPORT 
        DO j=1,sNy
./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 118 ATM_APPLY_IMPORT 
        DO j=1,sNy
./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 70 ATM_APPLY_IMPORT 
        DO j=1,sNy
./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 81 ATM_APPLY_IMPORT 
        DO j=1,sNy
./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 92 ATM_APPLY_IMPORT 
        DO j=1,sNy
./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 85 ATM_CPL_READ_PICKUP 
          DO j=1-Oly,sNy+Oly
./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 47 ATM_EXPORT_ATMCONFIG 
        DO j=1-Oly,sNy+Oly
./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 61 ATM_EXPORT_FLD 
         DO j=1,sNy
./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 86 ATM_EXPORT_FLD 
        DO j=1,sNy
./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 44 ATM_IMPORT_OCNCONFIG 
        DO j=1-Oly,sNy+Oly
./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 68 ATM_STORE_AIRCO2 
       DO j=1,sNy
./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 52 ATM_STORE_ATMSLP 
       DO j=1,sNy
./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 55 ATM_STORE_EVMPR 
       DO j=1,sNy
./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 61 ATM_STORE_FRACICE 
       DO j=1,sNy
./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 63 ATM_STORE_HEATFLUX 
       DO j=1,sNy
./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 53 ATM_STORE_QSHORTWAVE 
       DO j=1,sNy
./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 61 ATM_STORE_ROENFX 
       DO j=1,sNy
./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 52 ATM_STORE_SALTFX 
       DO j=1,sNy
./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 59 ATM_STORE_SEAICE 
       DO j=1,sNy
./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 64 ATM_STORE_TAUX 
       DO j=1,sNy
./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 83 ATM_STORE_TAUX 
       DO j=1,sNy
./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 64 ATM_STORE_TAUY 
       DO j=1,sNy
./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 83 ATM_STORE_TAUY 
       DO j=1,sNy
./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 64 ATM_STORE_WSPEED 
       DO j=1,sNy
./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 134 FILL_CS_CORNER_AG_RL 
          DO j=1,OLy
./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 142 FILL_CS_CORNER_AG_RL 
          DO j=1,OLy
./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 150 FILL_CS_CORNER_AG_RL 
          DO j=1,OLy
./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 158 FILL_CS_CORNER_AG_RL 
          DO j=1,OLy
./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 208 FILL_CS_CORNER_AG_RL 
          DO j=1,Oly
./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 216 FILL_CS_CORNER_AG_RL 
          DO j=1,Oly
./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 224 FILL_CS_CORNER_AG_RL 
          DO j=1,Oly
./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 232 FILL_CS_CORNER_AG_RL 
          DO j=1,Oly
./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 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 129 AIM_AIM2DYN 
         DO j=1,sNy
./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 140 AIM_AIM2DYN 
         DO j=1,sNy
./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 160 AIM_AIM2DYN 
        DO j=1,sNy
./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 86 AIM_AIM2DYN 
      DO j=1,sNy
./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_aim2dyn.F 99 AIM_AIM2DYN 
       DO j=1,sNy
./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 117 AIM_AIM2LAND 
       DO j=1,sNy
./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 135 AIM_AIM2LAND 
       DO j=1,sNy
./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 65 AIM_AIM2LAND 
       DO j=1,sNy
./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 84 AIM_AIM2LAND 
       DO j=1,sNy
./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_aim2land.F 99 AIM_AIM2LAND 
        DO j=1,sNy
./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 136 AIM_AIM2SIOCE 
       DO j=1,sNy
./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 160 AIM_AIM2SIOCE 
         DO j=1,sNy
./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 186 AIM_AIM2SIOCE 
       DO j=1,sNy
./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 218 AIM_AIM2SIOCE 
        DO j=1,sNy
./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 227 AIM_AIM2SIOCE 
      DO j=1,sNy
./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 98 AIM_AIM2SIOCE 
      DO j=1,sNy
./eesupp/src/fill_cs_corner_tr_rl.F 104 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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 111 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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 118 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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 166 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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 173 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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 180 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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 187 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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 236 FILL_CS_CORNER_TR_RL 
          DO j=1,Oly
./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 243 FILL_CS_CORNER_TR_RL 
          DO j=1,Oly
./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 250 FILL_CS_CORNER_TR_RL 
          DO j=1,Oly
./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 257 FILL_CS_CORNER_TR_RL 
          DO j=1,Oly
./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 97 FILL_CS_CORNER_TR_RL 
          DO j=1,OLy
./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_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 355 AIM_DIAGNOSTICS 
         DO j=1,sNy
./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)
./pkg/aim_v23/aim_do_co2.F 49 AIM_DO_CO2 
      INTEGER bi, bj, i, j
./pkg/aim_v23/aim_do_co2.F 65 AIM_DO_CO2 
         DO j=1,sNy
./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 87 AIM_DO_CO2 
          DO j=1,sNy
./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 124 AIM_DO_PHYSICS 
      DO j=1,sNy
./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 90 AIM_DO_PHYSICS 
      DO j = 1-Oly, sNy+Oly
./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 109 AIM_DYN2AIM 
         DO j = 1,sNy
./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 120 AIM_DYN2AIM 
         DO j = 1,sNy
./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 139 AIM_DYN2AIM 
         DO j = 1,sNy
./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 210 AIM_DYN2AIM 
         j = 1 + int((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 168 AIM_FIELDS_LOAD 
           DO j=1,sNy
./pkg/aim_v23/aim_fields_load.F 184 AIM_FIELDS_LOAD 
           DO j=1,sNy
./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 212 AIM_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 312 AIM_FIELDS_LOAD 
           DO j=1,sNy
./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 320 AIM_FIELDS_LOAD 
           DO j=1,sNy
./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 331 AIM_FIELDS_LOAD 
          DO j=1,sNy
./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 108 AIM_INITIALISE 
        DO j=1-Oly,sNy+Oly
./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 86 AIM_INITIALISE 
        DO j=1,sNy
./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 95 AIM_INITIALISE 
         DO j=1,sNy
./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 102 AIM_LAND2AIM 
         DO j=1,sNy
./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 108 AIM_LAND2AIM 
        DO j=1,sNy
./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 122 AIM_LAND2AIM 
         DO j=1,sNy
./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 135 AIM_LAND2AIM 
         DO j=1,sNy
./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 148 AIM_LAND2AIM 
         DO j=1,sNy
./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 158 AIM_LAND2AIM 
         DO j=1,sNy
./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 189 AIM_LAND2AIM 
         DO j=1,sNy
./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 94 AIM_LAND2AIM 
        DO j=1,sNy
./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 100 AIM_LAND_IMPL 
        DO j=1,sNy
./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 135 AIM_LAND_IMPL 
       DO j=1,sNy
./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 86 AIM_LAND_IMPL 
       DO j=1,sNy
./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 149 AIM_MNC_INIT 
        DO j = 1,MNC_MAX_CHAR
./pkg/aim_v23/aim_mnc_init.F 150 AIM_MNC_INIT 
          dn(i)(j:j) = ' '
./pkg/aim_v23/aim_mnc_init.F 33 AIM_MNC_INIT 
      INTEGER i,j, ndim
./eesupp/src/fill_cs_corner_uv_rs.F 127 FILL_CS_CORNER_UV_RS 
          DO j=1,OLy
./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 133 FILL_CS_CORNER_UV_RS 
          DO j=1,OLy
./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 142 FILL_CS_CORNER_UV_RS 
          DO j=1,OLy
./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 148 FILL_CS_CORNER_UV_RS 
          DO j=1,OLy
./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 157 FILL_CS_CORNER_UV_RS 
          DO j=1,OLy
./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 163 FILL_CS_CORNER_UV_RS 
          DO j=2,OLy
./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 172 FILL_CS_CORNER_UV_RS 
          DO j=1,OLy
./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 178 FILL_CS_CORNER_UV_RS 
          DO j=2,OLy
./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 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 119 AIM_SICE2AIM 
        DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F 121 AIM_SICE2AIM 
          aimAlb(i,j) = siceAlb(i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 126 AIM_SICE2AIM 
        DO j=1,sNy
./pkg/aim_v23/aim_sice2aim.F 128 AIM_SICE2AIM 
           aimAlb(i,j) = ALBICE
./pkg/aim_v23/aim_sice2aim.F 143 AIM_SICE2AIM 
        DO j=1,sNy
./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 162 AIM_SICE2AIM 
        DO j=1,sNy
./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 91 AIM_SICE2AIM 
        DO j=1,sNy
./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_sice2aim.F 99 AIM_SICE2AIM 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 100 AIM_SURF_BC 
      DO j=1,sNy
./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 140 AIM_SURF_BC 
        DO j=1,sNy
./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 158 AIM_SURF_BC 
        DO j=1,sNy
./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 176 AIM_SURF_BC 
        DO j=1,sNy
./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 219 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 225 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 226 AIM_SURF_BC 
          alb_land = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 227 AIM_SURF_BC 
     &       + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./pkg/aim_v23/aim_surf_bc.F 234 AIM_SURF_BC 
           SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/aim_v23/aim_surf_bc.F 235 AIM_SURF_BC 
           CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/aim_v23/aim_surf_bc.F 283 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 285 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 286 AIM_SURF_BC 
          alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 287 AIM_SURF_BC 
          alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 288 AIM_SURF_BC 
          alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 292 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 294 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 303 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 305 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 306 AIM_SURF_BC 
          sst1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 307 AIM_SURF_BC 
          stl1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 308 AIM_SURF_BC 
          sti1(I2,myThid) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 312 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 314 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 324 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 326 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 327 AIM_SURF_BC 
          soilw1(I2,myThid) = aim_sw10(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 331 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 333 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 341 AIM_SURF_BC 
        DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 343 AIM_SURF_BC 
          I2 = i+(j-1)*sNx
./pkg/aim_v23/aim_surf_bc.F 364 AIM_SURF_BC 
      DO j=1,sNy
./pkg/aim_v23/aim_surf_bc.F 366 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 100 AIM_TENDENCY_APPLY_U 
       DO j=jMin,jMax
./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 188 AIM_TENDENCY_APPLY_V 
       DO j=1-Oly,sNy+Oly
./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 200 AIM_TENDENCY_APPLY_V 
       DO j=jMin,jMax
./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 211 AIM_TENDENCY_APPLY_V 
       DO j=jMin,jMax
./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 226 AIM_TENDENCY_APPLY_V 
       DO j=jMin,jMax
./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 62 AIM_TENDENCY_APPLY_U 
       DO j=1-Oly,sNy+Oly
./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 74 AIM_TENDENCY_APPLY_U 
       DO j=jMin,jMax
./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 85 AIM_TENDENCY_APPLY_U 
       DO j=jMin,jMax
./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 75 AIM_WRITE_LOCAL 
        DO j=1,sNy
./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 84 AIM_WRITE_LOCAL 
        DO j=1,sNy
./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 105 AIM_WRITE_PHYS 
          DO j=1,sNy
./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 114 AIM_WRITE_PHYS 
          DO j=1,sNy
./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 123 AIM_WRITE_PHYS 
          DO j=1,sNy
./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_yz.F 18 GATHER_YZ 
      INTEGER jG, j, bi, bj
./eesupp/src/gather_yz.F 35 GATHER_YZ 
               DO j=1,sNy
./eesupp/src/gather_yz.F 36 GATHER_YZ 
                  jG = myYGlobalLo-1+(bi-1)*sNy+j
./eesupp/src/gather_yz.F 37 GATHER_YZ 
                  global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F 55 GATHER_YZ 
                  DO j=1,sNy
./eesupp/src/gather_yz.F 56 GATHER_YZ 
                     jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/gather_yz.F 57 GATHER_YZ 
                     global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F 74 GATHER_YZ 
                     DO j=1,sNy
./eesupp/src/gather_yz.F 75 GATHER_YZ 
                        jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/gather_yz.F 76 GATHER_YZ 
                        global(jG) = temp(j,bi,bj)
./pkg/atm2d/atm2d_init_vars.F 21 ATM2D_INIT_VARS 
      INTEGER j
./pkg/atm2d/atm2d_init_vars.F 63 ATM2D_INIT_VARS 
      PRINT *,(temch4(j),j=1,jm0)
./pkg/atm2d/atm2d_init_vars.F 65 ATM2D_INIT_VARS 
      PRINT *,(temn2o(j),j=1,jm0)
./pkg/atm2d/atm2d_init_vars.F 67 ATM2D_INIT_VARS 
      PRINT *,(temco2(j),j=1,jm0)
./pkg/atm2d/atm2d_readparms.F 49 ATM2D_READPARMS 
      INTEGER j     ! loop counter
./pkg/atm2d/atm2d_readparms.F 87 ATM2D_READPARMS 
      do j=1,sNy
./pkg/atm2d/atm2d_readparms.F 88 ATM2D_READPARMS 
        rband(j)=0
./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 214 INIT_2DFLD 
        DO j=1,sNy
./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 48 CALC_1DTO2D 
        DO j=ibj1,ibj2
./pkg/atm2d/calc_1dto2d.F 50 CALC_1DTO2D 
     &              atm_runoff(atm_oc_ind(j))*atm_oc_frac1(j) +
./pkg/atm2d/calc_1dto2d.F 51 CALC_1DTO2D 
     &              atm_runoff(atm_oc_ind(j)+1)*atm_oc_frac2(j)
./pkg/atm2d/calc_1dto2d.F 55 CALC_1DTO2D 
      DO j=1,sNy
./pkg/atm2d/calc_1dto2d.F 58 CALC_1DTO2D 
        fv_toC = atm_tauv(tauv_jpt(j)) * tauv_jwght(j) +
./pkg/atm2d/calc_1dto2d.F 59 CALC_1DTO2D 
     &        atm_tauv(tauv_jpt(j)+1) * (1. _d 0 - tauv_jwght(j))
./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 70 CALC_1DTO2D 
            IF (atm_oc_wgt(j).LT.1. _d 0)
./pkg/atm2d/calc_1dto2d.F 71 CALC_1DTO2D 
     &          CALL CALC_WGHT2D(i, j, atm_oc_ind(j)+1,
./pkg/atm2d/calc_1dto2d.F 72 CALC_1DTO2D 
     &                           1. _d 0-atm_oc_wgt(j))
./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 101 CALC_ZONAL_MEANS 
               cco2flux(atm_oc_ind(j)+1)= cco2flux(atm_oc_ind(j)+1) +
./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 104 CALC_ZONAL_MEANS 
             ctice(atm_oc_ind(j)+1)= ctice(atm_oc_ind(j)+1) +
./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 106 CALC_ZONAL_MEANS 
             csAlb(atm_oc_ind(j)+1)= csAlb(atm_oc_ind(j)+1) +
./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 108 CALC_ZONAL_MEANS 
             csAlbNIR(atm_oc_ind(j)+1)= csAlbNIR(atm_oc_ind(j)+1) +
./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 70 CALC_ZONAL_MEANS 
      DO j=1,sNy
./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 76 CALC_ZONAL_MEANS 
             ctocn(atm_oc_ind(j))= ctocn(atm_oc_ind(j)) +
./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 79 CALC_ZONAL_MEANS 
             cfice(atm_oc_ind(j))=cfice(atm_oc_ind(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 81 CALC_ZONAL_MEANS 
             cco2flux(atm_oc_ind(j))=cco2flux(atm_oc_ind(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 88 CALC_ZONAL_MEANS 
           csAlbNIR(atm_oc_ind(j))=csAlbNIR(atm_oc_ind(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 93 CALC_ZONAL_MEANS 
           IF (atm_oc_wgt(j).LT.1. _d 0) THEN
./pkg/atm2d/calc_zonal_means.F 94 CALC_ZONAL_MEANS 
             mWgt= 1. _d 0-atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 96 CALC_ZONAL_MEANS 
               ctocn(atm_oc_ind(j)+1)= ctocn(atm_oc_ind(j)+1) +
./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/calc_zonal_means.F 99 CALC_ZONAL_MEANS 
               cfice(atm_oc_ind(j)+1)= cfice(atm_oc_ind(j)+1) +
./pkg/atm2d/cpl_send_ocn_atmconfig.F 28 CPL_SEND_OCN_ATMCONFIG 
      INTEGER i,j
./pkg/atm2d/cpl_send_ocn_atmconfig.F 33 CPL_SEND_OCN_ATMCONFIG 
        DO j=1,Ny_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 118 FIXED_FLUX_ADD 
      DO j=1,sNy
./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/forward_step_atm2d.F 113 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 114 FORWARD_STEP_ATM2D 
          co24ocnan(j)=0.0
./pkg/atm2d/forward_step_atm2d.F 121 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 122 FORWARD_STEP_ATM2D 
          antemnep(j)=0.
./pkg/atm2d/forward_step_atm2d.F 143 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 144 FORWARD_STEP_ATM2D 
          fluxco2mn(j)=0.0
./pkg/atm2d/forward_step_atm2d.F 219 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 220 FORWARD_STEP_ATM2D 
          ocumn=ocumn+fluxco2(j)
./pkg/atm2d/forward_step_atm2d.F 221 FORWARD_STEP_ATM2D 
          fluxco2mn(j)=fluxco2mn(j)+fluxco2(j)
./pkg/atm2d/forward_step_atm2d.F 237 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 238 FORWARD_STEP_ATM2D 
          ch4mn=ch4mn+temch4(j)
./pkg/atm2d/forward_step_atm2d.F 239 FORWARD_STEP_ATM2D 
          n2omn=n2omn+temn2o(j)
./pkg/atm2d/forward_step_atm2d.F 240 FORWARD_STEP_ATM2D 
          nepmn=nepmn+temco2(j)
./pkg/atm2d/forward_step_atm2d.F 251 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 252 FORWARD_STEP_ATM2D 
          temnep(monid,j)=temco2(j)
./pkg/atm2d/forward_step_atm2d.F 261 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 262 FORWARD_STEP_ATM2D 
          antemnep(j)=antemnep(j)+temnep(monid,j)
./pkg/atm2d/forward_step_atm2d.F 263 FORWARD_STEP_ATM2D 
          nepan=nepan+temnep(monid,j)
./pkg/atm2d/forward_step_atm2d.F 264 FORWARD_STEP_ATM2D 
          ch4ann=ch4ann+temch4(j)
./pkg/atm2d/forward_step_atm2d.F 265 FORWARD_STEP_ATM2D 
          n2oann=n2oann+temn2o(j)
./pkg/atm2d/forward_step_atm2d.F 378 FORWARD_STEP_ATM2D 
        DO j=1,jm0
./pkg/atm2d/forward_step_atm2d.F 380 FORWARD_STEP_ATM2D 
          co24ocnan(j)=co24ocnan(j)*dtatm/24.0/365.0
./pkg/atm2d/forward_step_atm2d.F 382 FORWARD_STEP_ATM2D 
          co24ocnan(j)=co24ocnan(j)/365.0
./pkg/atm2d/forward_step_atm2d.F 45 FORWARD_STEP_ATM2D 
      INTEGER j,mn,na,no   !loop counters
./pkg/atm2d/get_ocnvars.F 101 GET_OCNVARS 
           mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F 106 GET_OCNVARS 
      DO j=1,sNy
./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 117 GET_OCNVARS 
      DO j=1,sNy
./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 52 GET_OCNVARS 
      DO j=1,sNy
./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 70 GET_OCNVARS 
       DO j=1,sNy
./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 82 GET_OCNVARS 
        DO j=1,sNy
./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 89 GET_OCNVARS 
        DO j=1,sNy
./pkg/atm2d/get_ocnvars.F 91 GET_OCNVARS 
           mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1)
./pkg/atm2d/get_ocnvars.F 99 GET_OCNVARS 
       DO j=1,sNy
./pkg/atm2d/init_atm2d.F 107 INIT_ATM2D 
      DO j=2, sNy-1
./pkg/atm2d/init_atm2d.F 110 INIT_ATM2D 
          IF  ((yG(1,j,1,1).GE.atm_yG(jj)).AND.
./pkg/atm2d/init_atm2d.F 111 INIT_ATM2D 
     &         (yG(1,j,1,1).LT.atm_yG(jj+1))) j_atm=jj
./pkg/atm2d/init_atm2d.F 114 INIT_ATM2D 
        atm_oc_ind(j)=j_atm
./pkg/atm2d/init_atm2d.F 115 INIT_ATM2D 
        end1= sin(yG(1,j,1,1) *deg2rad)
./pkg/atm2d/init_atm2d.F 116 INIT_ATM2D 
        end2= sin(yG(1,j+1,1,1) *deg2rad)
./pkg/atm2d/init_atm2d.F 119 INIT_ATM2D 
        IF ( yG(1,j+1,1,1) .GT. atm_yG(j_atm+1) ) THEN
./pkg/atm2d/init_atm2d.F 121 INIT_ATM2D 
           atm_oc_wgt(j)=(enda2-end1)/ (end2-end1)
./pkg/atm2d/init_atm2d.F 122 INIT_ATM2D 
           atm_oc_frac1(j)= (enda2-end1) / (enda2 - enda1)
./pkg/atm2d/init_atm2d.F 123 INIT_ATM2D 
           atm_oc_frac2(j)= (end2 - enda2) / (enda3 - enda2)
./pkg/atm2d/init_atm2d.F 125 INIT_ATM2D 
          atm_oc_wgt(j)=1. _d 0
./pkg/atm2d/init_atm2d.F 126 INIT_ATM2D 
          atm_oc_frac1(j)= (end2-end1)/ (enda2-enda1)
./pkg/atm2d/init_atm2d.F 127 INIT_ATM2D 
          atm_oc_frac2(j)=0. _d 0
./pkg/atm2d/init_atm2d.F 134 INIT_ATM2D 
      DO j=2, sNy
./pkg/atm2d/init_atm2d.F 136 INIT_ATM2D 
          IF (( yG(1,j,1,1) .GE. atm_yC(jj)).AND.
./pkg/atm2d/init_atm2d.F 137 INIT_ATM2D 
     &        ( yG(1,j,1,1) .LT. atm_yC(jj+1))) j_atm=jj
./pkg/atm2d/init_atm2d.F 139 INIT_ATM2D 
        tauv_jpt(j)= j_atm
./pkg/atm2d/init_atm2d.F 140 INIT_ATM2D 
        tauv_jwght(j)= 1. _d 0 - (yG(1,j,1,1) - atm_yC(j_atm)) /
./pkg/atm2d/init_atm2d.F 156 INIT_ATM2D 
      DO j=1,sNy
./pkg/atm2d/init_atm2d.F 158 INIT_ATM2D 
          IF (maskC(i,j,1,1,1).EQ.1.) THEN
./pkg/atm2d/init_atm2d.F 159 INIT_ATM2D 
            ocnArea(atm_oc_ind(j))=ocnArea(atm_oc_ind(j)) +
./pkg/atm2d/init_atm2d.F 160 INIT_ATM2D 
     &                           rA(i,j,1,1)*atm_oc_wgt(j)
./pkg/atm2d/init_atm2d.F 161 INIT_ATM2D 
            IF (atm_oc_wgt(j).LT.1.d0) THEN
./pkg/atm2d/init_atm2d.F 162 INIT_ATM2D 
              ocnArea(atm_oc_ind(j)+1)=ocnArea(atm_oc_ind(j)+1) +
./pkg/atm2d/init_atm2d.F 163 INIT_ATM2D 
     &                           rA(i,j,1,1)*(1.d0-atm_oc_wgt(j))
./pkg/atm2d/init_atm2d.F 247 INIT_ATM2D 
        DO j=1,sNy
./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 270 INIT_ATM2D 
        DO j=ibj1,ibj2
./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 275 INIT_ATM2D 
        DO j=ibj1,ibj2
./pkg/atm2d/init_atm2d.F 276 INIT_ATM2D 
          runIndex(j)= ib     ! for lookup of rband as fn. of latitude
./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 297 INIT_ATM2D 
        DO j=1-OLy,sNy+OLy
./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 340 INIT_ATM2D 
        DO j=1-OLy,sNy+OLy
./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 359 INIT_ATM2D 
        DO j=1,sNy
./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 29 INIT_SUMVARS 
        DO j=1-OLy,sNy+OLy
./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 106 MONTH_END_DIAGS 
      DO j=1,sNy
./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 41 MONTH_END_DIAGS 
      DO j=1,sNy
./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 38 NORM_OCN_FLUXES 
      DO j=1, sNy
./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 36 PASS_THSICE_FLUXES 
      DO j=1, sNy
./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 47 PUT_OCNVARS 
      DO j=1,sNy
./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)
./eesupp/src/global_sum_singlecpu.F 62 GLOBAL_SUM_SINGLECPU_RL 
      INTEGER i, j, ij
./eesupp/src/global_sum_singlecpu.F 87 GLOBAL_SUM_SINGLECPU_RL 
        DO j=1,sNy
./eesupp/src/global_sum_singlecpu.F 89 GLOBAL_SUM_SINGLECPU_RL 
           sharedLocBuf_r8(i,j,bi,bj) = phiLocal(i,j,bi,bj)
./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 83 RELAX_ADD 
      DO j=1,sNy
./pkg/atm2d/relax_add.F 89 RELAX_ADD 
     &                 max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0)
./pkg/atm2d/relax_add.F 95 RELAX_ADD 
     &                max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0)
./pkg/atm2d/sum_ocn_fluxes.F 36 SUM_OCN_FLUXES 
      INTEGER i,j
./pkg/atm2d/sum_ocn_fluxes.F 38 SUM_OCN_FLUXES 
      DO j=1, sNy
./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 34 SUM_THSICE_OUT 
      DO j=1, sNy
./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 38 SUM_YR_END_DIAGS 
      DO j=1,int(sNy/2)
./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 48 SUM_YR_END_DIAGS 
      DO j=int(sNy/2),sNy
./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 57 SUM_YR_END_DIAGS 
      DO j=1,sNy
./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 62 TAVE_END_DIAGS 
      DO j=1,sNy
./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 78 TAVE_END_DIAGS 
        DO j=1,sNy
./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) +
./pkg/autodiff/active_file_control.F 151 ACTIVE_READ_RL 
                   do j=1,sny
./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 198 ACTIVE_READ_RL 
                    do j=1,sny
./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 225 ACTIVE_READ_RL 
                 do j=1,sny
./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 384 ACTIVE_WRITE_RL 
                 do j=1,sny
./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 573 ACTIVE_READ_TILE_RL 
            do j=1-oly,sny+oly
./pkg/autodiff/active_file_control.F 578 ACTIVE_READ_TILE_RL 
     &                     (j-1+oly)*(snx+2*olx) +
./pkg/autodiff/active_file_control.F 639 ACTIVE_READ_TILE_RL 
          do j=1-oly,sny+oly
./pkg/autodiff/active_file_control.F 644 ACTIVE_READ_TILE_RL 
     &                   (j-1+oly)*(snx+2*olx) +
./pkg/autodiff/active_file_control.F 669 ACTIVE_READ_TILE_RL 
          do j = 1-oly,sny+oly
./pkg/autodiff/active_file_control.F 673 ACTIVE_READ_TILE_RL 
     &                   (j-1+oly)*(snx+2*olx) +
./pkg/autodiff/active_file_control.F 708 ACTIVE_READ_TILE_RL 
            do j=1-oly,sny+oly
./pkg/autodiff/active_file_control.F 713 ACTIVE_READ_TILE_RL 
     &                     (j-1+oly)*(snx+2*olx) +
./pkg/autodiff/active_file_control.F 813 ACTIVE_WRITE_TILE_RL 
      integer  i,j,k
./pkg/autodiff/active_file_control.F 840 ACTIVE_WRITE_TILE_RL 
          do j=1-oly,sny+oly
./pkg/autodiff/active_file_control.F 845 ACTIVE_WRITE_TILE_RL 
     &                   (j-1+oly)*(snx+2*olx) +
./pkg/autodiff/active_file_control.F 884 ACTIVE_WRITE_TILE_RL 
          do j=1-oly,sny+oly
./pkg/autodiff/active_file_control.F 889 ACTIVE_WRITE_TILE_RL 
     &                   (j-1+oly)*(snx+2*olx) +
./pkg/autodiff/active_file_control.F 922 ACTIVE_WRITE_TILE_RL 
          do j=1-oly,sny+oly
./pkg/autodiff/active_file_control.F 927 ACTIVE_WRITE_TILE_RL 
     &                   (j-1+oly)*(snx+2*olx) +
./pkg/autodiff/active_file_control.F 98 ACTIVE_READ_RL 
      integer i,j,k
./pkg/autodiff/active_file_control_slice.F 296 ACTIVE_WRITE_XZ_RL 
      integer  i,j,k
./pkg/autodiff/active_file_control_slice.F 466 ACTIVE_READ_YZ_RL 
      integer i,j,k
./pkg/autodiff/active_file_control_slice.F 521 ACTIVE_READ_YZ_RL 
                   do j = 1,sny
./pkg/autodiff/active_file_control_slice.F 522 ACTIVE_READ_YZ_RL 
                      active_data_t(j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_control_slice.F 566 ACTIVE_READ_YZ_RL 
                 do j = 1,sny
./pkg/autodiff/active_file_control_slice.F 567 ACTIVE_READ_YZ_RL 
                    active_data_t(j,k,bi,bj) =
./pkg/autodiff/active_file_control_slice.F 568 ACTIVE_READ_YZ_RL 
     &                   active_data_t(j,k,bi,bj) +
./pkg/autodiff/active_file_control_slice.F 569 ACTIVE_READ_YZ_RL 
     &                   active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 591 ACTIVE_READ_YZ_RL 
                 do j = 1,sny
./pkg/autodiff/active_file_control_slice.F 592 ACTIVE_READ_YZ_RL 
                    active_var(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 680 ACTIVE_WRITE_YZ_RL 
      integer  i,j,k
./pkg/autodiff/active_file_control_slice.F 737 ACTIVE_WRITE_YZ_RL 
                 do j = 1,sny
./pkg/autodiff/active_file_control_slice.F 738 ACTIVE_WRITE_YZ_RL 
                    active_var(j,k,bi,bj) =
./pkg/autodiff/active_file_control_slice.F 739 ACTIVE_WRITE_YZ_RL 
     &                   active_var(j,k,bi,bj) +
./pkg/autodiff/active_file_control_slice.F 740 ACTIVE_WRITE_YZ_RL 
     &                   active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 741 ACTIVE_WRITE_YZ_RL 
                    active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 82 ACTIVE_READ_XZ_RL 
      integer i,j,k
./pkg/autodiff/active_file_loc_control.F 137 ACTIVE_READ_RL_LOC 
                   do j=1,sny
./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 184 ACTIVE_READ_RL_LOC 
                 do j=1,sny
./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 211 ACTIVE_READ_RL_LOC 
                 do j=1,sny
./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 366 ACTIVE_WRITE_RL_LOC 
                 do j=1,sny
./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 288 ACTIVE_WRITE_XZ_RL_LOC 
      integer  i,j,k
./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 509 ACTIVE_READ_YZ_RL_LOC 
                   do j = 1,sny
./pkg/autodiff/active_file_loc_control_slice.F 510 ACTIVE_READ_YZ_RL_LOC 
                      active_data_t(j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 554 ACTIVE_READ_YZ_RL_LOC 
                 do j = 1,sny
./pkg/autodiff/active_file_loc_control_slice.F 555 ACTIVE_READ_YZ_RL_LOC 
                    active_data_t(j,k,bi,bj) =
./pkg/autodiff/active_file_loc_control_slice.F 556 ACTIVE_READ_YZ_RL_LOC 
     &                   active_data_t(j,k,bi,bj) +
./pkg/autodiff/active_file_loc_control_slice.F 557 ACTIVE_READ_YZ_RL_LOC 
     &                   active_var(j,k,bi,bj)
./pkg/autodiff/active_file_loc_control_slice.F 579 ACTIVE_READ_YZ_RL_LOC 
                 do j = 1,sny
./pkg/autodiff/active_file_loc_control_slice.F 580 ACTIVE_READ_YZ_RL_LOC 
                    active_var(j,k,bi,bj) = 0. _d 0
./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 721 ACTIVE_WRITE_YZ_RL_LOC 
                 do j = 1,sny
./pkg/autodiff/active_file_loc_control_slice.F 722 ACTIVE_WRITE_YZ_RL_LOC 
                    active_var(j,k,bi,bj) =
./pkg/autodiff/active_file_loc_control_slice.F 723 ACTIVE_WRITE_YZ_RL_LOC 
     &                   active_var(j,k,bi,bj) +
./pkg/autodiff/active_file_loc_control_slice.F 724 ACTIVE_WRITE_YZ_RL_LOC 
     &                   active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_loc_control_slice.F 725 ACTIVE_WRITE_YZ_RL_LOC 
                    active_data_t(j,k,bi,bj) = 0. _d 0
./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 35 ADDAMP_ADJ 
         DO j=1-Oly,sNy+Oly
./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 102 ADZERO_ADJ 
         DO j=1-Oly,sNy+Oly
./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 64 ADZERO_ADJ_LOC 
       DO j=1-Oly,sNy+Oly
./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 29 LEF_ZERO 
        DO j=1-Oly,sNy+Oly
./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 41 BULKF_AVE 
      DO j = 1,sNy
./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 131 BULKF_FIELDS_LOAD 
           DO j = 1-Oly,sNy+Oly
./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 294 BULKF_FIELDS_LOAD 
          DO j=1-Oly,sNy+Oly
./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 348 BULKF_FIELDS_LOAD 
        DO j=1-Oly,sNy+Oly
./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 387 BULKF_FIELDS_LOAD 
         DO j=1-Oly,sNy+Oly
./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 56 BULKF_FLUX_ADJUST 
        DO j = jMin, jMax
./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 64 BULKF_FLUX_ADJUST 
        DO j = jMin, jMax
./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 159 BULKF_FORCING 
           DO j = 1-Oly,sNy+Oly
./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 165 BULKF_FORCING 
           DO j = 1-Oly+1,sNy+Oly
./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 174 BULKF_FORCING 
         DO j = 1-Oly,sNy+Oly
./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 81 BULKF_FORCING 
         DO j = 1-Oly,sNy+Oly
./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 44 BULKF_INIT_VARIA 
         DO j=1-Oly,sNy+Oly
./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 64 BULKF_INIT_VARIA 
         DO j=1-Oly,sNy+Oly
./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 81 BULKF_INIT_VARIA 
         DO j=1-Oly,sNy+Oly
./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
./pkg/cal/cal_set.F 106 CAL_SET 
      integer i,j,k
./pkg/cal/cal_set.F 239 CAL_SET 
          j = mod(k,2)
./pkg/cal/cal_set.F 240 CAL_SET 
          k = (k-j)/2
./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/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 111 CD_CODE_SCHEME 
      DO j=1-Oly+1,sNy+Oly
./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 121 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 137 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 143 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 159 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 170 CD_CODE_SCHEME 
      DO j=1-Oly,sNy+Oly
./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 180 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 196 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 202 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 218 CD_CODE_SCHEME 
      DO j=jMin,jMax
./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 228 CD_CODE_SCHEME 
      DO j=1-OLy,sNy+OLy
./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 93 CD_CODE_SCHEME 
      DO j=1-Oly,sNy+Oly
./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 103 CFC11_FORCING 
           if ((j.lt.int(sNy/2)-3.and.j.gt.0).or.j.gt.sNy) then
./pkg/cfc/cfc11_forcing.F 104 CFC11_FORCING 
             ATMOSCFC11(i,j,bi,bj)=ACFC11south
./pkg/cfc/cfc11_forcing.F 113 CFC11_FORCING 
       DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc11_forcing.F 115 CFC11_FORCING 
          IF(yC(i,j,bi,bj) .GE. yNorth) THEN
./pkg/cfc/cfc11_forcing.F 116 CFC11_FORCING 
             xintp(j) = 1.0
./pkg/cfc/cfc11_forcing.F 117 CFC11_FORCING 
          ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN
./pkg/cfc/cfc11_forcing.F 118 CFC11_FORCING 
             xintp(j) = 0.0
./pkg/cfc/cfc11_forcing.F 120 CFC11_FORCING 
             xintp(j) = (yC(i,j,bi,bj) - ySouth)/
./pkg/cfc/cfc11_forcing.F 124 CFC11_FORCING 
           ATMOSCFC11(i,j,bi,bj)= xintp(j) * ACFC11north
./pkg/cfc/cfc11_forcing.F 125 CFC11_FORCING 
     &               + (1.0 - xintp(j))*ACFC11south
./pkg/cfc/cfc11_forcing.F 136 CFC11_FORCING 
         DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc11_forcing.F 138 CFC11_FORCING 
           GCFC11(i,j,1)=GCFC11(i,j,1)+SURCFC11(i,j)
./pkg/cfc/cfc11_forcing.F 60 CFC11_FORCING 
         DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc11_forcing.F 62 CFC11_FORCING 
           SURCFC11(i,j)=0.d0
./pkg/cfc/cfc11_forcing.F 92 CFC11_FORCING 
       DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc11_forcing.F 94 CFC11_FORCING 
           if ((j.gt.int(sNy/2)+3.and.j.le.sNy).or.j.lt.1) then
./pkg/cfc/cfc11_forcing.F 95 CFC11_FORCING 
             ATMOSCFC11(i,j,bi,bj)=ACFC11north
./pkg/cfc/cfc11_forcing.F 97 CFC11_FORCING 
           if (j.ge.int(sNy/2)-3.and.j.le.int(sNy/2)+3) then
./pkg/cfc/cfc11_forcing.F 98 CFC11_FORCING 
             a1=(float(j-int(sNy/2)+3)+.5)/7
./pkg/cfc/cfc11_surfforcing.F 50 CFC11_SURFFORCING 
        DO j=jMin,jMax
./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 92 CFC11_SURFFORCING 
        DO j=jMin,jMax
./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 103 CFC12_FORCING 
          if ((j.lt.int(sNy/2)-3.and.j.gt.0).or.j.gt.sNy) then
./pkg/cfc/cfc12_forcing.F 104 CFC12_FORCING 
             ATMOSCFC12(i,j,bi,bj)=ACFC12south
./pkg/cfc/cfc12_forcing.F 113 CFC12_FORCING 
       DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc12_forcing.F 115 CFC12_FORCING 
          IF(yC(i,j,bi,bj) .GE. yNorth) THEN
./pkg/cfc/cfc12_forcing.F 116 CFC12_FORCING 
             xintp(j) = 1.0
./pkg/cfc/cfc12_forcing.F 117 CFC12_FORCING 
          ELSE IF(yC(i,j,bi,bj) .LE. ySouth) THEN
./pkg/cfc/cfc12_forcing.F 118 CFC12_FORCING 
             xintp(j) = 0.0
./pkg/cfc/cfc12_forcing.F 120 CFC12_FORCING 
             xintp(j) = (yC(i,j,bi,bj) - ySouth)/
./pkg/cfc/cfc12_forcing.F 124 CFC12_FORCING 
           ATMOSCFC12(i,j,bi,bj)= xintp(j) * ACFC12north
./pkg/cfc/cfc12_forcing.F 125 CFC12_FORCING 
     &               + (1.0 - xintp(j))*ACFC12south
./pkg/cfc/cfc12_forcing.F 136 CFC12_FORCING 
         DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc12_forcing.F 138 CFC12_FORCING 
           GCFC12(i,j,1)=GCFC12(i,j,1)+SURCFC12(i,j)
./pkg/cfc/cfc12_forcing.F 60 CFC12_FORCING 
         DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc12_forcing.F 62 CFC12_FORCING 
           SURCFC12(i,j)=0.d0
./pkg/cfc/cfc12_forcing.F 92 CFC12_FORCING 
       DO j=1-OLy,sNy+OLy
./pkg/cfc/cfc12_forcing.F 94 CFC12_FORCING 
          if ((j.gt.int(sNy/2)+3.and.j.le.sNy).or.j.lt.1) then
./pkg/cfc/cfc12_forcing.F 95 CFC12_FORCING 
             ATMOSCFC12(i,j,bi,bj)=ACFC12north
./pkg/cfc/cfc12_forcing.F 97 CFC12_FORCING 
          if (j.ge.int(sNy/2)-3.and.j.le.int(sNy/2)+3) then
./pkg/cfc/cfc12_forcing.F 98 CFC12_FORCING 
             a1=(float(j-int(sNy/2)+3)+.5)/7
./pkg/cfc/cfc12_surfforcing.F 50 CFC12_SURFFORCING 
        DO j=jMin,jMax
./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 91 CFC12_SURFFORCING 
        DO j=jMin,jMax
./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 38 CFC_ATMOS 
         DO j=1-OLy,sNy+OLy
./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_fields_load.F 125 CFC_FIELDS_LOAD 
         DO j=1-Oly,sNy+Oly
./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 140 CFC_FIELDS_LOAD 
         DO j=1-Oly,sNy+Oly
./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 160 CFC_FIELDS_LOAD 
         DO j=1-Oly,sNy+Oly
./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 176 CFC_FIELDS_LOAD 
         DO j=1-Oly,sNy+Oly
./pkg/cfc/cfc_fields_load.F 189 CFC_FIELDS_LOAD 
         DO j=1-Oly,sNy+Oly
./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 63 ADAMS2D 
      DO j=1-Oly,sNy+Oly
./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 159 CHEAPAML 
          do j = 1-oly,sny+oly
./pkg/cheapaml/cheapaml.F 161 CHEAPAML 
             if (hFacC(i,j,1,bi,bj).ne.0. _d 0) then
./pkg/cheapaml/cheapaml.F 163 CHEAPAML 
               if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then
./pkg/cheapaml/cheapaml.F 165 CHEAPAML 
                if (snowheight(i,j,bi,bj).gt.3. _d -1) then
./pkg/cheapaml/cheapaml.F 176 CHEAPAML 
                       uw=uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 177 CHEAPAML 
                       vw=vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 183 CHEAPAML 
                       ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw
./pkg/cheapaml/cheapaml.F 184 CHEAPAML 
                       vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw
./pkg/cheapaml/cheapaml.F 186 CHEAPAML 
               ustress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F 187 CHEAPAML 
               vstress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F 193 CHEAPAML 
          do j = 1-oly,sny+oly
./pkg/cheapaml/cheapaml.F 195 CHEAPAML 
        Qnet(i,j,bi,bj)=0.d0
./pkg/cheapaml/cheapaml.F 216 CHEAPAML 
         do j=1-oly,sny+oly
./pkg/cheapaml/cheapaml.F 218 CHEAPAML 
         gTair(i,j,bi,bj)=0.d0
./pkg/cheapaml/cheapaml.F 282 CHEAPAML 
        do j=1-oly,sny+oly
./pkg/cheapaml/cheapaml.F 284 CHEAPAML 
        to=theta(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 285 CHEAPAML 
        t=Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 330 CHEAPAML 
                        uw=uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 331 CHEAPAML 
                        vw=vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 354 CHEAPAML 
        xflu=(-solar(i,j,bi,bj)+xalw+flha)*xef*hfacC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 357 CHEAPAML 
        xfld=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha)
./pkg/cheapaml/cheapaml.F 358 CHEAPAML 
     .*xef*hfacC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 361 CHEAPAML 
        gTair(i,j,bi,bj)=(xfld-xflu)*hm
./pkg/cheapaml/cheapaml.F 367 CHEAPAML 
        Qnet(i,j,bi,bj)=(-solar(i,j,bi,bj)-xalw+xolw+fsha+flha)
./pkg/cheapaml/cheapaml.F 368 CHEAPAML 
     .*hfacC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 420 CHEAPAML 
        do j=1-oly,sny+oly
./pkg/cheapaml/cheapaml.F 422 CHEAPAML 
        dtemp=tr(i,j,bi,bj)-Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 423 CHEAPAML 
        Tair(i,j,bi,bj)=Tair(i,j,bi,bj)+xgs*deltaT*dtemp
./pkg/cheapaml/cheapaml.F 424 CHEAPAML 
     .*xrelf*(1.d0-hFacC(i,j,1,bi,bj))
./pkg/cheapaml/cheapaml.F 444 CHEAPAML 
           DO j = 1-Oly,sNy+Oly
./pkg/cheapaml/cheapaml.F 446 CHEAPAML 
              fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 447 CHEAPAML 
     &          *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0
./pkg/cheapaml/cheapaml.F 450 CHEAPAML 
           DO j = 1-Oly+1,sNy+Oly
./pkg/cheapaml/cheapaml.F 452 CHEAPAML 
              fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 453 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, nt
./pkg/cheapaml/cheapaml_fields_load.F 114 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 116 CHEAPAML_FIELDS_LOAD 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 120 CHEAPAML_FIELDS_LOAD 
                  Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 129 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 131 CHEAPAML_FIELDS_LOAD 
          jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 132 CHEAPAML_FIELDS_LOAD 
          local=solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 136 CHEAPAML_FIELDS_LOAD 
          TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 145 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 148 CHEAPAML_FIELDS_LOAD 
                  local = Tr(i,j,bi,bj)+273.16d0
./pkg/cheapaml/cheapaml_fields_load.F 150 CHEAPAML_FIELDS_LOAD 
                  qr(i,j,bi,bj) = 0.8d0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F 159 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 161 CHEAPAML_FIELDS_LOAD 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 163 CHEAPAML_FIELDS_LOAD 
                  uwind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 172 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 174 CHEAPAML_FIELDS_LOAD 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 175 CHEAPAML_FIELDS_LOAD 
                  vwind(i,j,bi,bj) = 0.d0
./pkg/cheapaml/cheapaml_fields_load.F 273 CHEAPAML_FIELDS_LOAD 
        DO j=1-Oly,sNy+Oly
./pkg/cheapaml/cheapaml_fields_load.F 275 CHEAPAML_FIELDS_LOAD 
          TR(i,j,bi,bj)   = bWght*trair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 276 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*trair1(i,j,bi,bj)   !+273.15
./pkg/cheapaml/cheapaml_fields_load.F 277 CHEAPAML_FIELDS_LOAD 
          qr(i,j,bi,bj)   = bWght*qrair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 278 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*qrair1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 279 CHEAPAML_FIELDS_LOAD 
          uwind(i,j,bi,bj)   = bWght*uwind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 280 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*uwind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 281 CHEAPAML_FIELDS_LOAD 
          vwind(i,j,bi,bj)   = bWght*vwind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 282 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*vwind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 283 CHEAPAML_FIELDS_LOAD 
          solar(i,j,bi,bj)   = bWght*solar0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 284 CHEAPAML_FIELDS_LOAD 
     &                     +aWght*solar1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 299 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 301 CHEAPAML_FIELDS_LOAD 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 304 CHEAPAML_FIELDS_LOAD 
                  Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 316 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 318 CHEAPAML_FIELDS_LOAD 
        jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 319 CHEAPAML_FIELDS_LOAD 
        local=solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 323 CHEAPAML_FIELDS_LOAD 
                  TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 337 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 340 CHEAPAML_FIELDS_LOAD 
                  local = Tr(i,j,bi,bj)+273.16d0
./pkg/cheapaml/cheapaml_fields_load.F 342 CHEAPAML_FIELDS_LOAD 
                  qr(i,j,bi,bj) = 0.8d0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F 354 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 356 CHEAPAML_FIELDS_LOAD 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 362 CHEAPAML_FIELDS_LOAD 
                  uwind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 374 CHEAPAML_FIELDS_LOAD 
           DO j=1,sNy
./pkg/cheapaml/cheapaml_fields_load.F 376 CHEAPAML_FIELDS_LOAD 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 377 CHEAPAML_FIELDS_LOAD 
                  vwind(i,j,bi,bj) = 0.d0
./pkg/cheapaml/cheapaml_fields_load.F 78 CHEAPAML_FIELDS_LOAD 
      INTEGER bi,bj,i,j,intime0,intime1
./pkg/cheapaml/cheapaml_init_varia.F 51 CHEAPAML_INIT_VARIA 
            DO j=1,sNy
./pkg/cheapaml/cheapaml_init_varia.F 53 CHEAPAML_INIT_VARIA 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_init_varia.F 57 CHEAPAML_INIT_VARIA 
                  Tair(i,j,bi,bj) = localt
./pkg/cheapaml/cheapaml_read_pickup.F 151 CHEAPAML_READ_PICKUP 
        DO j=1,nMissing
./pkg/cheapaml/cheapaml_read_pickup.F 46 CHEAPAML_READ_PICKUP 
      INTEGER j, nj, ioUnit
./pkg/cheapaml/cheapaml_write_pickup.F 102 CHEAPAML_WRITE_PICKUP 
          j  = Nr
./pkg/cheapaml/cheapaml_write_pickup.F 107 CHEAPAML_WRITE_PICKUP 
     &                         0, 0, j, ' ',
./pkg/cheapaml/cheapaml_write_pickup.F 54 CHEAPAML_WRITE_PICKUP 
      INTEGER j, nj, fp, lChar
./pkg/cheapaml/cheapaml_write_pickup.F 70 CHEAPAML_WRITE_PICKUP 
        j  = 0
./pkg/cheapaml/cheapaml_write_pickup.F 77 CHEAPAML_WRITE_PICKUP 
        nj = -j*Nr
./pkg/cheapaml/cheapaml_write_pickup.F 79 CHEAPAML_WRITE_PICKUP 
        j = j + 1
./pkg/cheapaml/cheapaml_write_pickup.F 83 CHEAPAML_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'Tair'
./pkg/cheapaml/cheapaml_write_pickup.F 87 CHEAPAML_WRITE_PICKUP 
        nWrFlds = j
./pkg/cheapaml/cheapaml_write_pickup.F 99 CHEAPAML_WRITE_PICKUP 
        j  = 1
./pkg/cheapaml/cycle_2d_tracer.F 43 CYCLE_2D_TRACER 
      INTEGER i,j
./pkg/cheapaml/cycle_2d_tracer.F 48 CYCLE_2D_TRACER 
      DO j=1-OLy,sNy+OLy
./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 101 GAD_2D_CALC_RHS 
      DO j=1-OLy,sNy+OLy
./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 108 GAD_2D_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./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 116 GAD_2D_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./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 126 GAD_2D_CALC_RHS 
       DO j=1-Oly,sNy+Oly
./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 133 GAD_2D_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./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 140 GAD_2D_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./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 148 GAD_2D_CALC_RHS 
        DO j=1-Oly,sNy+Oly
./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 157 GAD_2D_CALC_RHS 
      DO j=1-Oly,sNy+Oly
./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 164 GAD_2D_CALC_RHS 
      DO j=1-Oly,sNy+Oly-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 92 GAD_2D_CALC_RHS 
      DO j=1-OLy,sNy+OLy
./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 48 GAD_C2_2D_ADV_X 
      DO j=1-Oly,sNy+Oly
./pkg/cheapaml/gad_c2_2d_adv_x.F 49 GAD_C2_2D_ADV_X 
       uT(1-Olx,j)=0.
./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 51 GAD_C2_2D_ADV_Y 
      DO j=1-Oly+1,sNy+Oly
./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 49 GAD_DIFF_2D_X 
      DO j=1-Oly,sNy+Oly
./pkg/cheapaml/gad_diff_2d_x.F 50 GAD_DIFF_2D_X 
       dfx(1-Olx,j)=0.
./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_x.F 55 GAD_DIFF_2D_X 
     &      *CosFacU(j,bi,bj)
./pkg/cheapaml/gad_diff_2d_y.F 46 GAD_DIFF_2D_Y 
      INTEGER i,j
./pkg/cheapaml/gad_diff_2d_y.F 52 GAD_DIFF_2D_Y 
      DO j=1-Oly+1,sNy+Oly
./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 58 GAD_DIFF_2D_Y 
     &      *CosFacV(j,bi,bj)
./pkg/cheapaml/gad_diff_2d_y.F 60 GAD_DIFF_2D_Y 
                  jG = myYGlobalLo-1+(bj-1)*sNy+j
./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 45 TIMESTEP_2D_TRACER 
      DO j=jMin,jMax
./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/compon_communic/comprecv_r4.F 20 COMPRECV_R4 
      integer i,j,ij,nx,ny
./pkg/compon_communic/comprecv_r4.F 70 COMPRECV_R4 
      do j=1,Nj
./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 77 COMPRECV_R4TILES 
       do j=1,Nj
./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 70 COMPRECV_R8 
      do j=1,Nj
./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 77 COMPRECV_R8TILES 
       do j=1,Nj
./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 35 COMPSEND_R4 
      do j=1,Nj
./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 45 COMPSEND_R4TILES 
       do j=1,Nj
./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 35 COMPSEND_R8 
      do j=1,Nj
./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 45 COMPSEND_R8TILES 
       do j=1,Nj
./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 91 COUPRECV_R4 
       do j=1,Nj
./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 104 COUPRECV_R4TILES 
       do j=1,Nj
./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 91 COUPRECV_R8 
       do j=1,Nj
./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 104 COUPRECV_R8TILES 
       do j=1,Nj
./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 55 COUPSEND_R4 
       do j=1,Nj
./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 58 COUPSEND_R4TILES 
        do j=1,Nj
./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 55 COUPSEND_R8 
       do j=1,Nj
./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 58 COUPSEND_R8TILES 
        do j=1,Nj
./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/compon_communic/generate_tag.F 14 NO PROCEDURE 
      integer j,hash,pow
./pkg/compon_communic/generate_tag.F 24 NO PROCEDURE 
      do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/generate_tag.F 25 NO PROCEDURE 
       hash=abs(hash+itrans(j)*pow)
./pkg/compon_communic/mitcomponent_init.F 23 MITCOMPONENT_INIT 
      integer n,j
./pkg/compon_communic/mitcoupler_init.F 23 MITCOUPLER_INIT 
      integer n,j
./pkg/compon_communic/mitcoupler_register.F 28 MITCOUPLER_REGISTER 
      integer j,numtiles,nx,ny,i0,j0
./pkg/compon_communic/mitcoupler_tile_register.F 28 MITCOUPLER_TILE_REGISTER 
      integer j,numtiles
./pkg/compon_communic/mitcoupler_tile_register.F 67 MITCOUPLER_TILE_REGISTER 
       do j=1,numtiles
./pkg/compon_communic/mitcoupler_tile_register.F 72 MITCOUPLER_TILE_REGISTER 
        tag=generate_tag(113,j,'Register each tile')
./pkg/compon_communic/mitcoupler_tile_register.F 84 MITCOUPLER_TILE_REGISTER 
        component_tile_nx(j,n,compind)=ibuf(1)
./pkg/compon_communic/mitcoupler_tile_register.F 85 MITCOUPLER_TILE_REGISTER 
        component_tile_ny(j,n,compind)=ibuf(2)
./pkg/compon_communic/mitcoupler_tile_register.F 86 MITCOUPLER_TILE_REGISTER 
        component_tile_i0(j,n,compind)=ibuf(3)
./pkg/compon_communic/mitcoupler_tile_register.F 87 MITCOUPLER_TILE_REGISTER 
        component_tile_j0(j,n,compind)=ibuf(4)
./pkg/compon_communic/mitcoupler_tile_register.F 92 MITCOUPLER_TILE_REGISTER 
     &   ' proc,tile,nx,ny,i0,j0 = ',n,j,ibuf(1),ibuf(2),ibuf(3),ibuf(4)
./pkg/compon_communic/mitcplr_char2dbl.F 13 MITCPLR_CHAR2DBL 
      integer j
./pkg/compon_communic/mitcplr_char2dbl.F 21 MITCPLR_CHAR2DBL 
      do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_char2dbl.F 22 MITCPLR_CHAR2DBL 
       rarg(j)= ichar( cbuftmp(j:j) )
./pkg/compon_communic/mitcplr_char2int.F 13 MITCPLR_CHAR2INT 
      integer j
./pkg/compon_communic/mitcplr_char2int.F 21 MITCPLR_CHAR2INT 
      do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_char2int.F 22 MITCPLR_CHAR2INT 
       iarg(j)=ichar( cbuftmp(j:j) )
./pkg/compon_communic/mitcplr_char2real.F 13 MITCPLR_CHAR2REAL 
      integer j
./pkg/compon_communic/mitcplr_char2real.F 21 MITCPLR_CHAR2REAL 
      do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_char2real.F 22 MITCPLR_CHAR2REAL 
       rarg(j)=float( ichar( cbuftmp(j:j) ) )
./pkg/compon_communic/mitcplr_dbl2char.F 13 MITCPLR_DBL2CHAR 
      integer j
./pkg/compon_communic/mitcplr_dbl2char.F 17 MITCPLR_DBL2CHAR 
      do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_dbl2char.F 18 MITCPLR_DBL2CHAR 
       carg(j:j) = char( nint( rarg(j) ) )
./pkg/compon_communic/mitcplr_init1.F 100 MITCPLR_INIT1 
       j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 101 MITCPLR_INIT1 
       rank_compcplr_procs(j,compind)=rank_coupler_procs(1)
./pkg/compon_communic/mitcplr_init1.F 102 MITCPLR_INIT1 
       call MITCPLR_SORTRANKS( j, rank_compcplr_procs(1,compind) )
./pkg/compon_communic/mitcplr_init1.F 108 MITCPLR_INIT1 
     &   ( rank_coupler_procs(j),j=1,num_coupler_procs )
./pkg/compon_communic/mitcplr_init1.F 112 MITCPLR_INIT1 
     &    ( rank_component_procs(j,n),j=1,num_component_procs(n) )
./pkg/compon_communic/mitcplr_init1.F 115 MITCPLR_INIT1 
     &    ( rank_compcplr_procs(j,n),j=1,num_compcplr_procs(n) )
./pkg/compon_communic/mitcplr_init1.F 196 MITCPLR_INIT1 
        call MPI_COMM_RANK( MPI_COMM_compcplr(n), j, ierr )
./pkg/compon_communic/mitcplr_init1.F 198 MITCPLR_INIT1 
     &     ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 204 MITCPLR_INIT1 
     &     ' Rank/Size = ',j,' /',numprocs,
./pkg/compon_communic/mitcplr_init1.F 209 MITCPLR_INIT1 
       call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr )
./pkg/compon_communic/mitcplr_init1.F 211 MITCPLR_INIT1 
     &     ' Rank = ',j,' MPI_COMM_RANK ierr=',ierr
./pkg/compon_communic/mitcplr_init1.F 217 MITCPLR_INIT1 
     &     ' Rank/Size = ',j,' /',numprocs
./pkg/compon_communic/mitcplr_init1.F 221 MITCPLR_INIT1 
      if ( couplerFlag ) j=myid
./pkg/compon_communic/mitcplr_init1.F 223 MITCPLR_INIT1 
     &   myTypeStr,'.',j,'.clog'
./pkg/compon_communic/mitcplr_init1.F 230 MITCPLR_INIT1 
     &  write(LogUnit,*) 'myid in MPI_COMM_Global = ',j
./pkg/compon_communic/mitcplr_init1.F 24 MITCPLR_INIT1 
      integer n,j
./pkg/compon_communic/mitcplr_init1.F 85 MITCPLR_INIT1 
        j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 86 MITCPLR_INIT1 
        rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init1.F 97 MITCPLR_INIT1 
       do j=1,num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init1.F 98 MITCPLR_INIT1 
        rank_compcplr_procs(j,compind)=rank_component_procs(j,compind)
./pkg/compon_communic/mitcplr_init2a.F 15 MITCPLR_INIT2A 
      integer n,j,lenbuf
./pkg/compon_communic/mitcplr_init2a.F 80 MITCPLR_INIT2A 
      call MPI_COMM_RANK( MPI_COMM_myglobal, j, ierr )
./pkg/compon_communic/mitcplr_init2a.F 88 MITCPLR_INIT2A 
      my_rank_in_local=j
./pkg/compon_communic/mitcplr_init2b.F 16 MITCPLR_INIT2B 
      integer n,j,lenbuf,compind
./pkg/compon_communic/mitcplr_init2b.F 69 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 70 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 74 MITCPLR_INIT2B 
         j=num_component_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 75 MITCPLR_INIT2B 
         rank_component_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 77 MITCPLR_INIT2B 
         j=num_compcplr_procs(compind)
./pkg/compon_communic/mitcplr_init2b.F 78 MITCPLR_INIT2B 
         rank_compcplr_procs(j,compind)=ibuf(1)
./pkg/compon_communic/mitcplr_init2b.F 94 MITCPLR_INIT2B 
     &     ' comp. ranks = ',(rank_component_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 95 MITCPLR_INIT2B 
     &                        j=1,num_component_procs(compind) )
./pkg/compon_communic/mitcplr_init2b.F 98 MITCPLR_INIT2B 
     &     ' c+c ranks = ',(rank_compcplr_procs(j,compind),
./pkg/compon_communic/mitcplr_init2b.F 99 MITCPLR_INIT2B 
     &                        j=1,num_compcplr_procs(compind) )
./pkg/compon_communic/mitcplr_int2char.F 13 MITCPLR_INT2CHAR 
      integer j
./pkg/compon_communic/mitcplr_int2char.F 17 MITCPLR_INT2CHAR 
      do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_int2char.F 18 MITCPLR_INT2CHAR 
       carg(j:j) = char( iarg(j) )
./pkg/compon_communic/mitcplr_match_comp.F 12 NO PROCEDURE 
      integer j,jmatch
./pkg/compon_communic/mitcplr_match_comp.F 22 NO PROCEDURE 
      do j=1,num_components
./pkg/compon_communic/mitcplr_match_comp.F 23 NO PROCEDURE 
       if ( carg .EQ. component_List(j) ) then
./pkg/compon_communic/mitcplr_match_comp.F 28 NO PROCEDURE 
         jmatch=j
./pkg/compon_communic/mitcplr_real2char.F 13 MITCPLR_REAL2CHAR 
      integer j
./pkg/compon_communic/mitcplr_real2char.F 17 MITCPLR_REAL2CHAR 
      do j=1,MAXLEN_COMP_NAME
./pkg/compon_communic/mitcplr_real2char.F 18 MITCPLR_REAL2CHAR 
       carg(j:j) = char( nint( rarg(j) ) )
./pkg/compon_communic/mitcplr_sortranks.F 11 MITCPLR_SORTRANKS 
      integer j,k,itmp
./pkg/compon_communic/mitcplr_sortranks.F 14 MITCPLR_SORTRANKS 
      do j=1,nranks-1
./pkg/compon_communic/mitcplr_sortranks.F 15 MITCPLR_SORTRANKS 
       do k=j+1,nranks
./pkg/compon_communic/mitcplr_sortranks.F 16 MITCPLR_SORTRANKS 
        if ( ranks(k) .lt. ranks(j) ) then
./pkg/compon_communic/mitcplr_sortranks.F 18 MITCPLR_SORTRANKS 
         ranks(k)=ranks(j)
./pkg/compon_communic/mitcplr_sortranks.F 19 MITCPLR_SORTRANKS 
         ranks(j)=itmp
./pkg/cost/cost_accumulate_mean.F 33 COST_ACCUMULATE_MEAN 
      integer i, j, k
./pkg/cost/cost_accumulate_mean.F 47 COST_ACCUMULATE_MEAN 
            do j=1,sNy
./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 149 COST_ATLANTIC_HEAT 
           do j=1,sNy
./pkg/cost/cost_atlantic_heat.F 150 COST_ATLANTIC_HEAT 
            jg = myYGlobalLo-1+(bj-1)*sNy+j
./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 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 88 COST_ATLANTIC_HEAT 
        do j=1,sNy
./pkg/cost/cost_atlantic_heat.F 89 COST_ATLANTIC_HEAT 
         jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_dependent_init.F 39 COST_DEPENDENT_INIT 
      integer i,j,k
./pkg/cost/cost_dependent_init.F 69 COST_DEPENDENT_INIT 
         do j=1,sNy
./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 46 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 74 COST_INIT_VARIA 
            do j=1,sNy
./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 87 COST_INIT_VARIA 
            do j=1,sNy
./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
./pkg/cost/cost_state_final.F 28 COST_STATE_FINAL 
      integer i, j, k
./pkg/cost/cost_state_final.F 33 COST_STATE_FINAL 
        DO j=1,sNy
./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 65 COST_TEST 
          do j=1,sNy
./pkg/cost/cost_test.F 66 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./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 52 COST_TRACER 
      DO j=1,sNy
./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 60 COST_VECTOR 
        do j=1,sNy
./pkg/cost/cost_vector.F 61 COST_VECTOR 
         jg = myYGlobalLo-1+(bj-1)*sNy+j
./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/ctrl/adctrl_bound.F 111 ADCTRL_BOUND_2D 
      integer myThid,bi,bj,i,j,k
./pkg/ctrl/adctrl_bound.F 146 ADCTRL_BOUND_2D 
            do j = 1,sny
./pkg/ctrl/adctrl_bound.F 148 ADCTRL_BOUND_2D 
      IF (maskFld3d(i,j,1,bi,bj).NE.0.) then
./pkg/ctrl/adctrl_bound.F 149 ADCTRL_BOUND_2D 
        xCur=fieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F 150 ADCTRL_BOUND_2D 
        adxCur=adjFieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F 153 ADCTRL_BOUND_2D 
          adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 158 ADCTRL_BOUND_2D 
          adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 31 ADCTRL_BOUND_3D 
      integer bi,bj,i,j,k
./pkg/ctrl/adctrl_bound.F 61 ADCTRL_BOUND_3D 
            do j = 1,sny
./pkg/ctrl/adctrl_bound.F 63 ADCTRL_BOUND_3D 
      IF (maskFld3d(i,j,k,bi,bj).NE.0.) then
./pkg/ctrl/adctrl_bound.F 64 ADCTRL_BOUND_3D 
        xCur=fieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F 65 ADCTRL_BOUND_3D 
        adxCur=adjFieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F 68 ADCTRL_BOUND_3D 
          adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 73 ADCTRL_BOUND_3D 
          adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./eesupp/src/scatter_yz.F 18 SCATTER_YZ 
      INTEGER jG, j, bi, bj
./eesupp/src/scatter_yz.F 36 SCATTER_YZ 
               DO j=1,sNy
./eesupp/src/scatter_yz.F 37 SCATTER_YZ 
                  jG = myYGlobalLo-1+(bi-1)*sNy+j
./eesupp/src/scatter_yz.F 38 SCATTER_YZ 
                  local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F 55 SCATTER_YZ 
                  DO j=1,sNy
./eesupp/src/scatter_yz.F 56 SCATTER_YZ 
                     jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/scatter_yz.F 57 SCATTER_YZ 
                     local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F 66 SCATTER_YZ 
                     DO j=1,sNy
./eesupp/src/scatter_yz.F 67 SCATTER_YZ 
                        jG = mpi_myYGlobalLo(npe+1)-1+(bi-1)*sNy+j
./eesupp/src/scatter_yz.F 68 SCATTER_YZ 
                        temp(j,bi,bj) = global(jG)
./pkg/ctrl/ctrl_bound.F 23 CTRL_BOUND_3D 
      integer myThid,bi,bj,i,j,k
./pkg/ctrl/ctrl_bound.F 39 CTRL_BOUND_3D 
            do j = 1,sny
./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 92 CTRL_BOUND_2D 
            do j = 1-oly,sny+oly
./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 104 CTRL_DEPTH_INI 
          do j = jmin,jmax
./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 120 CTRL_DEPTH_INI 
        do j = jmin,jmax
./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 93 CTRL_DEPTH_INI 
        do j = jmin,jmax
./pkg/ctrl/ctrl_depth_ini.F 95 CTRL_DEPTH_INI 
          tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_get_gen.F 205 CTRL_GET_GEN 
          do j = 1,sny
./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 139 CTRL_GETOBCSE 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 143 CTRL_GETOBCSE 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 144 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcse.F 154 CTRL_GETOBCSE 
                      utop = tmpfldyz(j,k,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 158 CTRL_GETOBCSE 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcse.F 162 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 174 CTRL_GETOBCSE 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 178 CTRL_GETOBCSE 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 179 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcse.F 189 CTRL_GETOBCSE 
                      utop = tmpfldyz(j,k,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 193 CTRL_GETOBCSE 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcse.F 197 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 210 CTRL_GETOBCSE 
                do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 211 CTRL_GETOBCSE 
                  xx_obcse1(j,k,bi,bj,iobcs)  = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 223 CTRL_GETOBCSE 
              do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 225 CTRL_GETOBCSE 
                  tmpfldyz(j,k,bi,bj) = xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 235 CTRL_GETOBCSE 
              do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 237 CTRL_GETOBCSE 
                  xx_obcse0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 257 CTRL_GETOBCSE 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 261 CTRL_GETOBCSE 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 262 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcse.F 272 CTRL_GETOBCSE 
                      utop = tmpfldyz(j,k,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 276 CTRL_GETOBCSE 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcse.F 280 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 292 CTRL_GETOBCSE 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 296 CTRL_GETOBCSE 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 297 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcse.F 307 CTRL_GETOBCSE 
                      utop = tmpfldyz(j,k,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 311 CTRL_GETOBCSE 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcse.F 315 CTRL_GETOBCSE 
                    tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 328 CTRL_GETOBCSE 
                do j = jmin,jmax
./pkg/ctrl/ctrl_getobcse.F 329 CTRL_GETOBCSE 
                  xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 342 CTRL_GETOBCSE 
                 do j = 1,sny
./pkg/ctrl/ctrl_getobcse.F 343 CTRL_GETOBCSE 
                    i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 345 CTRL_GETOBCSE 
                       OBEt(j,k,bi,bj) = OBEt (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 346 CTRL_GETOBCSE 
     &                 + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 347 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 348 CTRL_GETOBCSE 
                       OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 349 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 351 CTRL_GETOBCSE 
                       OBEs(j,k,bi,bj) = OBEs (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 352 CTRL_GETOBCSE 
     &                 + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 353 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 354 CTRL_GETOBCSE 
                       OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 355 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 357 CTRL_GETOBCSE 
                       OBEu(j,k,bi,bj) = OBEu (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 358 CTRL_GETOBCSE 
     &                 + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 359 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 360 CTRL_GETOBCSE 
                       OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 361 CTRL_GETOBCSE 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 363 CTRL_GETOBCSE 
                       OBEv(j,k,bi,bj) = OBEv (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 364 CTRL_GETOBCSE 
     &                 + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 365 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 366 CTRL_GETOBCSE 
                       OBEv(j,k,bi,bj) = OBEv(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 149 CTRL_GETOBCSN 
                    j = OB_Jn(I,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 151 CTRL_GETOBCSN 
     &                  ob_iw(j,bi,bj).ne. 0) then
./pkg/ctrl/ctrl_getobcsn.F 153 CTRL_GETOBCSN 
                        print*,shiftvel(1),i,j
./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 193 CTRL_GETOBCSN 
                    j = OB_Jn(I,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 279 CTRL_GETOBCSN 
                    j = OB_Jn(I,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 281 CTRL_GETOBCSN 
     &                    ob_iw(j,bi,bj).ne. 0) then
./pkg/ctrl/ctrl_getobcsn.F 284 CTRL_GETOBCSN 
                        print*,shiftvel(2),i,j
./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 323 CTRL_GETOBCSN 
                    j = OB_Jn(I,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 371 CTRL_GETOBCSN 
                    j = OB_Jn(I,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 377 CTRL_GETOBCSN 
     &                         *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 384 CTRL_GETOBCSN 
     &                         *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 391 CTRL_GETOBCSN 
     &                         *maskW(i,j,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 141 CTRL_GETOBCSS 
                    j = OB_Js(I,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 177 CTRL_GETOBCSS 
                    j = OB_Js(I,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 260 CTRL_GETOBCSS 
                    j = OB_Js(I,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 296 CTRL_GETOBCSS 
                    j = OB_Js(I,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 346 CTRL_GETOBCSS 
                    j = OB_Js(I,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 352 CTRL_GETOBCSS 
     &                      *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 358 CTRL_GETOBCSS 
     &                      *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 364 CTRL_GETOBCSS 
     &                      *maskW(i,j,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 139 CTRL_GETOBCSW 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 143 CTRL_GETOBCSW 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 144 CTRL_GETOBCSW 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsw.F 154 CTRL_GETOBCSW 
                      utop = tmpfldyz(j,k,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 158 CTRL_GETOBCSW 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcsw.F 162 CTRL_GETOBCSW 
                  tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 174 CTRL_GETOBCSW 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 178 CTRL_GETOBCSW 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 179 CTRL_GETOBCSW 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsw.F 189 CTRL_GETOBCSW 
                      utop = tmpfldyz(j,k,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 193 CTRL_GETOBCSW 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcsw.F 197 CTRL_GETOBCSW 
                  tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 210 CTRL_GETOBCSW 
                do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 211 CTRL_GETOBCSW 
                  xx_obcsw1(j,k,bi,bj,iobcs)  = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 227 CTRL_GETOBCSW 
                do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 228 CTRL_GETOBCSW 
                  tmpfldyz(j,k,bi,bj) = xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 239 CTRL_GETOBCSW 
                do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 240 CTRL_GETOBCSW 
                  xx_obcsw0(j,k,bi,bj,iobcs) = tmpfldyz2(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 260 CTRL_GETOBCSW 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 264 CTRL_GETOBCSW 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 265 CTRL_GETOBCSW 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsw.F 275 CTRL_GETOBCSW 
                      utop = tmpfldyz(j,k,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 279 CTRL_GETOBCSW 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcsw.F 283 CTRL_GETOBCSW 
                    tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 295 CTRL_GETOBCSW 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 299 CTRL_GETOBCSW 
                    ubaro = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 300 CTRL_GETOBCSW 
                    tmpfldyz(j,1,bi,bj) = 0.d0
./pkg/ctrl/ctrl_getobcsw.F 310 CTRL_GETOBCSW 
                      utop = tmpfldyz(j,k,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 314 CTRL_GETOBCSW 
                        tmpfldyz(j,k,bi,bj) = tmpfldyz(j,k,bi,bj)+ ubaro
./pkg/ctrl/ctrl_getobcsw.F 318 CTRL_GETOBCSW 
                    tmpfldyz(j,1,bi,bj) = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 331 CTRL_GETOBCSW 
                do j = jmin,jmax
./pkg/ctrl/ctrl_getobcsw.F 332 CTRL_GETOBCSW 
                  xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 345 CTRL_GETOBCSW 
                 do j = 1,sny
./pkg/ctrl/ctrl_getobcsw.F 346 CTRL_GETOBCSW 
                    i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 348 CTRL_GETOBCSW 
                       OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 349 CTRL_GETOBCSW 
     &                 + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 350 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 351 CTRL_GETOBCSW 
                       OBWt(j,k,bi,bj) = OBWt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 352 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 354 CTRL_GETOBCSW 
                       OBWs(j,k,bi,bj) = OBWs (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 355 CTRL_GETOBCSW 
     &                 + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 356 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 357 CTRL_GETOBCSW 
                       OBWs(j,k,bi,bj) = OBWs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 358 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 360 CTRL_GETOBCSW 
                       OBWu(j,k,bi,bj) = OBWu (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 361 CTRL_GETOBCSW 
     &                 + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 362 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 363 CTRL_GETOBCSW 
                       OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 364 CTRL_GETOBCSW 
     &                      *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 366 CTRL_GETOBCSW 
                       OBWv(j,k,bi,bj) = OBWv (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 367 CTRL_GETOBCSW 
     &                 + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 368 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 369 CTRL_GETOBCSW 
                       OBWv(j,k,bi,bj) = OBWv(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 102 CTRL_HFACC_INI 
            do j = jmin,jmax
./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 127 CTRL_HFACC_INI 
            do j = jmin,jmax
./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 142 CTRL_HFACC_INI 
            do j = jmin,jmax
./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 1072 CTRL_INIT 
          do j = jmin,jmax
./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 100 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 113 CTRL_INIT_OBCS_VARIABLES 
              do j = jmin,jmax
./pkg/ctrl/ctrl_init_obcs_variables.F 114 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 115 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 43 CTRL_INIT_OBCS_VARIABLES 
      integer i,j,k
./pkg/ctrl/ctrl_init_obcs_variables.F 98 CTRL_INIT_OBCS_VARIABLES 
              do j = jmin,jmax
./pkg/ctrl/ctrl_init_obcs_variables.F 99 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0
./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 112 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 125 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 138 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 151 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 164 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 177 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 190 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 203 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 216 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 229 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 242 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 255 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 268 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 281 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 294 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 60 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 73 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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 86 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./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_variables.F 99 CTRL_INIT_VARIABLES 
          do j = jmin,jmax
./pkg/ctrl/ctrl_init_wet.F 105 CTRL_INIT_WET 
            do j = jmin,jmax
./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 34 CTRL_INIT_WET 
      integer i,j,k
./pkg/ctrl/ctrl_init_wet.F 537 CTRL_INIT_WET 
             do j=1-oly,sNy+oly
./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 120 CTRL_MAP_FORCING 
          do j = jmin,jmax
./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 145 CTRL_MAP_FORCING 
          do j = jmin,jmax
./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 170 CTRL_MAP_FORCING 
          do j = jmin,jmax
./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 195 CTRL_MAP_FORCING 
          do j = jmin,jmax
./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 214 CTRL_MAP_FORCING 
          do j = jmin,jmax
./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 233 CTRL_MAP_FORCING 
          do j = jmin,jmax
./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 95 CTRL_MAP_FORCING 
          do j = jmin,jmax
./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 105 CTRL_MAP_INI 
            do j = jmin,jmax
./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 145 CTRL_MAP_INI 
            do j = jmin,jmax
./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 182 CTRL_MAP_INI 
            do j = jmin,jmax
./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 204 CTRL_MAP_INI 
          do j = jmin,jmax
./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 225 CTRL_MAP_INI 
          do j = jmin,jmax
./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 248 CTRL_MAP_INI 
            do j = jmin,jmax
./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 278 CTRL_MAP_INI 
            do j = jmin,jmax
./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 308 CTRL_MAP_INI 
            do j = jmin,jmax
./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 332 CTRL_MAP_INI 
            do j = jmin,jmax
./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 359 CTRL_MAP_INI 
            do j = jmin,jmax
./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 386 CTRL_MAP_INI 
          do j = jmin,jmax
./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 407 CTRL_MAP_INI 
            do j = jmin,jmax
./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 426 CTRL_MAP_INI 
            do j = jmin,jmax
./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 448 CTRL_MAP_INI 
            do j = jmin,jmax
./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 475 CTRL_MAP_INI 
            do j = jmin,jmax
./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 501 CTRL_MAP_INI 
          do j = jmin,jmax
./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 526 CTRL_MAP_INI 
          do j = jmin,jmax
./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 547 CTRL_MAP_INI 
          do j = jmin,jmax
./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)
./eesupp/src/timers.F 188 TIMER_CONTROL 
      INTEGER j
./eesupp/src/timers.F 203 TIMER_CONTROL 
      INTEGER j
./eesupp/src/timers.F 567 TIMER_CONTROL 
        do j = 1,nevents
./eesupp/src/timers.F 568 TIMER_CONTROL 
           call PAPIF_EVENT_CODE_TO_NAME(EventCode(j), EventName, Check)
./eesupp/src/timers.F 570 TIMER_CONTROL 
     $          values(j,I,myThreadId)/timerUser(I,myThreadId),
./eesupp/src/timers.F 571 TIMER_CONTROL 
     $          values(j,I,myThreadId)/timerWall(I,myThreadId),
./eesupp/src/timers.F 572 TIMER_CONTROL 
     $          1.D0*values(j,I,myThreadId)
./eesupp/src/timers.F 578 TIMER_CONTROL 
        do j = 1,nevents
./eesupp/src/timers.F 579 TIMER_CONTROL 
           WRITE(msgBuffer,71) pcl_counter_name(pcl_counter_list(j)),
./eesupp/src/timers.F 580 TIMER_CONTROL 
     $          i_result(j,I,myThreadId)/timerUser(I,myThreadId)
./eesupp/src/timers.F 581 TIMER_CONTROL 
     $          ,i_result(j,I,myThreadId)/timerWall(I,myThreadId),1.D0
./eesupp/src/timers.F 582 TIMER_CONTROL 
     $          *i_result(j,I,myThreadId)
./pkg/ctrl/ctrl_map_ini_ecco.F 114 CTRL_MAP_INI_ECCO 
          do j = jmin,jmax
./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 126 CTRL_MAP_INI_ECCO 
            do j = jmin,jmax
./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
./pkg/ctrl/ctrl_map_ini_gen.F 117 CTRL_MAP_INI_GEN3D 
            do j = jmin,jmax
./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 144 CTRL_MAP_INI_GEN3D 
            do j = jmin,jmax
./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 288 CTRL_MAP_INI_GEN2D 
            do j = jmin,jmax
./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 313 CTRL_MAP_INI_GEN2D 
            do j = jmin,jmax
./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 103 CTRL_MASK_SET_XZ 
                j = OB_J(I,bi,bj)
./pkg/ctrl/ctrl_mask_set_xz.F 104 CTRL_MASK_SET_XZ 
                if ( j .NE. 0 ) then
./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 114 CTRL_MASK_SET_XZ 
                    if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_xz.F 45 CTRL_MASK_SET_XZ 
      integer i,j,k
./pkg/ctrl/ctrl_mask_set_yz.F 103 CTRL_MASK_SET_YZ 
              do j = jmin,jmax
./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 110 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./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 117 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F 135 CTRL_MASK_SET_YZ 
              do j = jmin,jmax
./pkg/ctrl/ctrl_mask_set_yz.F 136 CTRL_MASK_SET_YZ 
                 gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_yz.F 45 CTRL_MASK_SET_YZ 
      integer i,j,k
./pkg/ctrl/ctrl_mask_set_yz.F 91 CTRL_MASK_SET_YZ 
              do j = 1-oly,sny+oly
./pkg/ctrl/ctrl_mask_set_yz.F 92 CTRL_MASK_SET_YZ 
                maskyz(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_obcsbal.F 57 CTRL_OBCSBAL 
      integer i,j,k
./pkg/ctrl/ctrl_obcsvol.F 184 CTRL_OBCSVOL 
                j = Ob_Jn(I,bi,bj)
./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 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 220 CTRL_OBCSVOL 
                j = Ob_Js(I,bi,bj)
./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 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 255 CTRL_OBCSVOL 
              do j = jmin,jmax
./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 260 CTRL_OBCSVOL 
                    tmpy = tmpfldyz(j,k,bi,bj)
./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 291 CTRL_OBCSVOL 
              do j = jmin,jmax
./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 296 CTRL_OBCSVOL 
                    tmpy = tmpfldyz(j,k,bi,bj)
./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 342 CTRL_OBCSVOL 
                j = Ob_Jn(I,bi,bj)
./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 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 378 CTRL_OBCSVOL 
                j = Ob_Js(I,bi,bj)
./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 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 413 CTRL_OBCSVOL 
              do j = jmin,jmax
./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 418 CTRL_OBCSVOL 
                    tmpy = tmpfldyz(j,k,bi,bj)
./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 449 CTRL_OBCSVOL 
              do j = jmin,jmax
./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 454 CTRL_OBCSVOL 
                    tmpy = tmpfldyz(j,k,bi,bj)
./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 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 73 CTRL_SET_GLOBFLD_XY 
            do j = jmin,jmax
./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 84 CTRL_SET_GLOBFLD_XY 
               do j = jmin,jmax
./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 68 CTRL_SET_GLOBFLD_XYZ 
               do j = jmin,jmax
./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 84 CTRL_SET_GLOBFLD_XZ 
               do j = jmin,jmax
./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 75 CTRL_SET_GLOBFLD_YZ 
               do j = jmin,jmax
./pkg/ctrl/ctrl_set_globfld_yz.F 76 CTRL_SET_GLOBFLD_YZ 
                  globfldyz(j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F 85 CTRL_SET_GLOBFLD_YZ 
               do j = jmin,jmax
./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 102 CTRL_SET_PACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 103 CTRL_SET_PACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 104 CTRL_SET_PACK_XY 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xy.F 105 CTRL_SET_PACK_XY 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xy.F 173 CTRL_SET_PACK_XY 
              do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xy.F 177 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,1)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 180 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F 181 CTRL_SET_PACK_XY 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 187 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F 188 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 192 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 193 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 197 CTRL_SET_PACK_XY 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 202 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 206 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 211 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 259 CTRL_SET_PACK_XY 
              do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xy.F 263 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,k)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 266 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F 267 CTRL_SET_PACK_XY 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 273 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F 274 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 278 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 279 CTRL_SET_PACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 283 CTRL_SET_PACK_XY 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 288 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 292 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 297 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 342 CTRL_SET_PACK_XY 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_xy.F 409 CTRL_SET_PACK_XY 
         DO j=1,sNy
./pkg/ctrl/ctrl_set_pack_xy.F 411 CTRL_SET_PACK_XY 
           if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xy.F 412 CTRL_SET_PACK_XY 
            fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 413 CTRL_SET_PACK_XY 
            fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 417 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 418 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) / forcingPrecond
./pkg/ctrl/ctrl_set_pack_xy.F 420 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 421 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) * forcingPrecond
./pkg/ctrl/ctrl_set_pack_xy.F 425 CTRL_SET_PACK_XY 
            fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_pack_xy.F 428 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 429 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_pack_xy.F 432 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 433 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_pack_xy.F 485 CTRL_SET_PACK_XY 
        DO j=1,Ny
./pkg/ctrl/ctrl_set_pack_xy.F 487 CTRL_SET_PACK_XY 
            if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 489 CTRL_SET_PACK_XY 
               cbuff(cbuffindex) = fld2d_buf_glo(i,j)
./pkg/ctrl/ctrl_set_pack_xy.F 52 CTRL_SET_PACK_XY 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_xy.F 98 CTRL_SET_PACK_XY 
               do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xyz.F 107 CTRL_SET_PACK_XYZ 
               do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xyz.F 111 CTRL_SET_PACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 112 CTRL_SET_PACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 113 CTRL_SET_PACK_XYZ 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xyz.F 114 CTRL_SET_PACK_XYZ 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xyz.F 188 CTRL_SET_PACK_XYZ 
              do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_xyz.F 192 CTRL_SET_PACK_XYZ 
                  if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F 195 CTRL_SET_PACK_XYZ 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xyz.F 196 CTRL_SET_PACK_XYZ 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 202 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 204 CTRL_SET_PACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 210 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 212 CTRL_SET_PACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 218 CTRL_SET_PACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F 221 CTRL_SET_PACK_XYZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 224 CTRL_SET_PACK_XYZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 269 CTRL_SET_PACK_XYZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_xyz.F 346 CTRL_SET_PACK_XYZ 
         DO j=1,sNy
./pkg/ctrl/ctrl_set_pack_xyz.F 348 CTRL_SET_PACK_XYZ 
           if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xyz.F 349 CTRL_SET_PACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 350 CTRL_SET_PACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 353 CTRL_SET_PACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_pack_xyz.F 356 CTRL_SET_PACK_XYZ 
            fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_pack_xyz.F 359 CTRL_SET_PACK_XYZ 
               fld3dNodim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xyz.F 360 CTRL_SET_PACK_XYZ 
     &              fld3dDim(i,j,k,bi,bj) / delZnorm
./pkg/ctrl/ctrl_set_pack_xyz.F 362 CTRL_SET_PACK_XYZ 
     &              * sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 367 CTRL_SET_PACK_XYZ 
               fld3dNodim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xyz.F 368 CTRL_SET_PACK_XYZ 
     &              fld3dDim(i,j,k,bi,bj) * delZnorm
./pkg/ctrl/ctrl_set_pack_xyz.F 370 CTRL_SET_PACK_XYZ 
     &              / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 426 CTRL_SET_PACK_XYZ 
        DO j=1,Ny
./pkg/ctrl/ctrl_set_pack_xyz.F 428 CTRL_SET_PACK_XYZ 
            if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F 430 CTRL_SET_PACK_XYZ 
               cbuff(cbuffindex) = fld2d_buf_glo(i,j)
./pkg/ctrl/ctrl_set_pack_xyz.F 53 CTRL_SET_PACK_XYZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_xz.F 124 CTRL_SET_PACK_XZ 
               do j = jmin,jmax
./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 208 CTRL_SET_PACK_XZ 
         do j=1,sny
./pkg/ctrl/ctrl_set_pack_xz.F 209 CTRL_SET_PACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./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 244 CTRL_SET_PACK_XZ 
                  jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_pack_xz.F 245 CTRL_SET_PACK_XZ 
                  kk=int((j-1)*nr+K-1)/sny+1
./pkg/ctrl/ctrl_set_pack_xz.F 55 CTRL_SET_PACK_XZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_pack_yz.F 103 CTRL_SET_PACK_YZ 
               do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F 106 CTRL_SET_PACK_YZ 
                        globfldyz  (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 107 CTRL_SET_PACK_YZ 
                        globfldtmp2(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 108 CTRL_SET_PACK_YZ 
                        globfldtmp3(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 110 CTRL_SET_PACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 122 CTRL_SET_PACK_YZ 
               do j = jmin,jmax
./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 183 CTRL_SET_PACK_YZ 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F 219 CTRL_SET_PACK_YZ 
                     do j = jmin,jmax
./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 245 CTRL_SET_PACK_YZ 
                 do j = jmin,jmax
./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 249 CTRL_SET_PACK_YZ 
                  if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 252 CTRL_SET_PACK_YZ 
                     globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F 260 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 268 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 274 CTRL_SET_PACK_YZ 
                     globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 320 CTRL_SET_PACK_YZ 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F 326 CTRL_SET_PACK_YZ 
                              globfldyz(bi,ip,j,bj,jp,k) = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 346 CTRL_SET_PACK_YZ 
                do j = jmin,jmax
./pkg/ctrl/ctrl_set_pack_yz.F 347 CTRL_SET_PACK_YZ 
                 if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 350 CTRL_SET_PACK_YZ 
                     globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F 351 CTRL_SET_PACK_YZ 
     &                    globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F 356 CTRL_SET_PACK_YZ 
     &                       globfldyz(bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_yz.F 358 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 364 CTRL_SET_PACK_YZ 
     &                       globfldyz(bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_yz.F 366 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 372 CTRL_SET_PACK_YZ 
                     globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 375 CTRL_SET_PACK_YZ 
                     cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F 55 CTRL_SET_PACK_YZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xy.F 100 CTRL_SET_UNPACK_XY 
               do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xy.F 104 CTRL_SET_UNPACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 105 CTRL_SET_UNPACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 106 CTRL_SET_UNPACK_XY 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xy.F 107 CTRL_SET_UNPACK_XY 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xy.F 198 CTRL_SET_UNPACK_XY 
              do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xy.F 202 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 204 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 206 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 210 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 213 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./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 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xy.F 222 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./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 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)*
./pkg/ctrl/ctrl_set_unpack_xy.F 227 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./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 234 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 238 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 243 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 246 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 247 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 306 CTRL_SET_UNPACK_XY 
              do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xy.F 310 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 312 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 314 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 318 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 321 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./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 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xy.F 330 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./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 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)*
./pkg/ctrl/ctrl_set_unpack_xy.F 335 CTRL_SET_UNPACK_XY 
     &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
./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 342 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 346 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 351 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 354 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 355 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 389 CTRL_SET_UNPACK_XY 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xy.F 500 CTRL_SET_UNPACK_XY 
        DO j=1,Ny
./pkg/ctrl/ctrl_set_unpack_xy.F 502 CTRL_SET_UNPACK_XY 
            if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 504 CTRL_SET_UNPACK_XY 
               fld2d_buf_glo(i,j) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 526 CTRL_SET_UNPACK_XY 
         DO j=1,sNy
./pkg/ctrl/ctrl_set_unpack_xy.F 528 CTRL_SET_UNPACK_XY 
           if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xy.F 529 CTRL_SET_UNPACK_XY 
            fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 530 CTRL_SET_UNPACK_XY 
            fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 534 CTRL_SET_UNPACK_XY 
            fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount)
./pkg/ctrl/ctrl_set_unpack_xy.F 538 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 539 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) * forcingPrecond
./pkg/ctrl/ctrl_set_unpack_xy.F 53 CTRL_SET_UNPACK_XY 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xy.F 541 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 542 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) / forcingPrecond
./pkg/ctrl/ctrl_set_unpack_xy.F 546 CTRL_SET_UNPACK_XY 
            fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xy.F 549 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 550 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xy.F 553 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 554 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 108 CTRL_SET_UNPACK_XYZ 
               do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xyz.F 112 CTRL_SET_UNPACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 113 CTRL_SET_UNPACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 114 CTRL_SET_UNPACK_XYZ 
                           globfldtmp2(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xyz.F 115 CTRL_SET_UNPACK_XYZ 
                           globfldtmp3(i,bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xyz.F 218 CTRL_SET_UNPACK_XYZ 
              do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_xyz.F 222 CTRL_SET_UNPACK_XYZ 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 224 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 226 CTRL_SET_UNPACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 230 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 233 CTRL_SET_UNPACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 240 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 241 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 243 CTRL_SET_UNPACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 248 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 249 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 251 CTRL_SET_UNPACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 259 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 262 CTRL_SET_UNPACK_XYZ 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 263 CTRL_SET_UNPACK_XYZ 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 297 CTRL_SET_UNPACK_XYZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xyz.F 412 CTRL_SET_UNPACK_XYZ 
        DO j=1,Ny
./pkg/ctrl/ctrl_set_unpack_xyz.F 414 CTRL_SET_UNPACK_XYZ 
            if (msk2d_buf_glo(i,j) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 416 CTRL_SET_UNPACK_XYZ 
               fld2d_buf_glo(i,j) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 443 CTRL_SET_UNPACK_XYZ 
         DO j=1,sNy
./pkg/ctrl/ctrl_set_unpack_xyz.F 445 CTRL_SET_UNPACK_XYZ 
           if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 446 CTRL_SET_UNPACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 447 CTRL_SET_UNPACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 451 CTRL_SET_UNPACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount)
./pkg/ctrl/ctrl_set_unpack_xyz.F 454 CTRL_SET_UNPACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xyz.F 457 CTRL_SET_UNPACK_XYZ 
            fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xyz.F 460 CTRL_SET_UNPACK_XYZ 
               fld3dDim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 461 CTRL_SET_UNPACK_XYZ 
     &              fld3dNodim(i,j,k,bi,bj) * delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 463 CTRL_SET_UNPACK_XYZ 
     &              / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 468 CTRL_SET_UNPACK_XYZ 
               fld3dDim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 469 CTRL_SET_UNPACK_XYZ 
     &              fld3dNodim(i,j,k,bi,bj) / delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 471 CTRL_SET_UNPACK_XYZ 
     &              * sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 53 CTRL_SET_UNPACK_XYZ 
      integer i,j,k
./pkg/ctrl/ctrl_set_unpack_xz.F 127 CTRL_SET_UNPACK_XZ 
               do j = jmin,jmax
./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 211 CTRL_SET_UNPACK_XZ 
         do j=1,sny
./pkg/ctrl/ctrl_set_unpack_xz.F 212 CTRL_SET_UNPACK_XZ 
            iobcs= mod((irec-1)*sny+j-1,nobcs)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 243 CTRL_SET_UNPACK_XZ 
               jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 244 CTRL_SET_UNPACK_XZ 
               kk=int((j-1)*nr+k-1)/sny+1
./pkg/ctrl/ctrl_set_unpack_xz.F 56 CTRL_SET_UNPACK_XZ 
      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 210 WRITE_1D_RL 
       DO j=1,4
./eesupp/src/write_utils.F 213 WRITE_1D_RL 
        ic = (lFld-1)*(j-1)/4
./eesupp/src/write_utils.F 216 WRITE_1D_RL 
        IF ( ic*4 .LT. (lFld-1)*(j-1) ) i2=i2+1
./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_set_unpack_yz.F 108 CTRL_SET_UNPACK_YZ 
               do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_yz.F 111 CTRL_SET_UNPACK_YZ 
                        globfldyz  (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 112 CTRL_SET_UNPACK_YZ 
                        globfldtmp2(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F 113 CTRL_SET_UNPACK_YZ 
                        globfldtmp3(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F 115 CTRL_SET_UNPACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 127 CTRL_SET_UNPACK_YZ 
               do j = jmin,jmax
./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 188 CTRL_SET_UNPACK_YZ 
                  do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_yz.F 244 CTRL_SET_UNPACK_YZ 
                 do j = jmin,jmax
./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 250 CTRL_SET_UNPACK_YZ 
                    if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 262 CTRL_SET_UNPACK_YZ 
     &                      sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 332 CTRL_SET_UNPACK_YZ 
              do j = jmin,jmax
./pkg/ctrl/ctrl_set_unpack_yz.F 335 CTRL_SET_UNPACK_YZ 
                  if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 337 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F 339 CTRL_SET_UNPACK_YZ 
                     globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F 342 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_yz.F 343 CTRL_SET_UNPACK_YZ 
     &                    globfldyz(bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_yz.F 345 CTRL_SET_UNPACK_YZ 
     &                    sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 351 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 354 CTRL_SET_UNPACK_YZ 
                  globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F 355 CTRL_SET_UNPACK_YZ 
     &                 globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_yz.F 56 CTRL_SET_UNPACK_YZ 
      integer i,j,k
./pkg/ctrl/ctrl_smooth.F 28 CTRL_SMOOTH 
      integer i, j, im1, ip1, jm1, jp1
./pkg/ctrl/ctrl_smooth.F 44 CTRL_SMOOTH 
            DO j = jmin, jmax
./pkg/ctrl/ctrl_smooth.F 45 CTRL_SMOOTH 
         jm1 = j-1
./pkg/ctrl/ctrl_smooth.F 46 CTRL_SMOOTH 
         jp1 = j+1
./pkg/ctrl/ctrl_smooth.F 51 CTRL_SMOOTH 
     &           p25   *   mask(i  ,j  ,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 52 CTRL_SMOOTH 
     &           p125  * ( mask(im1,j  ,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 53 CTRL_SMOOTH 
     &                     mask(ip1,j  ,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 63 CTRL_SMOOTH 
     &              p125 *(fld(im1,j ,bi,bj )*mask(im1,j  ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 64 CTRL_SMOOTH 
     &                     fld(ip1,j ,bi,bj )*mask(ip1,j  ,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 79 CTRL_SMOOTH 
      DO j = jmin, jmax
./pkg/ctrl/ctrl_smooth.F 81 CTRL_SMOOTH 
            fld(i,j,bi,bj) = fld_tmp(i,j)
./pkg/ctrl/ctrl_unpack.F 69 CTRL_UNPACK 
      integer i, j, k
./pkg/ctrl/ctrl_volflux.F 184 CTRL_VOLFLUX 
                j = Ob_Jn(I,bi,bj)
./pkg/ctrl/ctrl_volflux.F 185 CTRL_VOLFLUX 
                if (j.ne.0) then
./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 195 CTRL_VOLFLUX 
                      if (ob_iw(j,bi,bj).eq.(i-1) .and.
./pkg/ctrl/ctrl_volflux.F 196 CTRL_VOLFLUX 
     &                    ob_iw(j,bi,bj).ne. 0) then
./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 233 CTRL_VOLFLUX 
                j = Ob_Js(I,bi,bj)
./pkg/ctrl/ctrl_volflux.F 234 CTRL_VOLFLUX 
                if (j .ne. 0) then
./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 244 CTRL_VOLFLUX 
                      if (ob_iw(j,bi,bj).eq.(i-1).and.
./pkg/ctrl/ctrl_volflux.F 245 CTRL_VOLFLUX 
     &                    ob_iw(j,bi,bj).ne. 0) then
./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 286 CTRL_VOLFLUX 
              do j = jmin,jmax
./pkg/ctrl/ctrl_volflux.F 287 CTRL_VOLFLUX 
                i = ob_iw(j,bi,bj)
./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 292 CTRL_VOLFLUX 
                    tmpy = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 299 CTRL_VOLFLUX 
                      if (ob_jn(i,bi,bj).eq.(j+1) .and.
./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 348 CTRL_VOLFLUX 
              do j = jmin,jmax
./pkg/ctrl/ctrl_volflux.F 349 CTRL_VOLFLUX 
                i = ob_ie(j,bi,bj)
./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 354 CTRL_VOLFLUX 
                    tmpy = tmpfldyz(j,1,bi,bj)
./pkg/ctrl/ctrl_volflux.F 362 CTRL_VOLFLUX 
                      if (ob_jn(i,bi,bj).eq.(j+1) .and.
./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 101 DEBUG_CS_CORNER_UV 
        DO j=1,nSy
./pkg/debug/debug_cs_corner_uv.F 104 DEBUG_CS_CORNER_UV 
          n1 = W2_myTileList(i,j)
./pkg/debug/debug_cs_corner_uv.F 66 DEBUG_CS_CORNER_UV 
      INTEGER ic, i, j
./pkg/debug/debug_cs_corner_uv.F 75 DEBUG_CS_CORNER_UV 
       j = MIN(MAX(1-Olx,edgeIndex),Olx)
./pkg/debug/debug_cs_corner_uv.F 78 DEBUG_CS_CORNER_UV 
       tmpU(1,k,bi,bj)= uFld(1,j)
./pkg/debug/debug_cs_corner_uv.F 79 DEBUG_CS_CORNER_UV 
       tmpU(2,k,bi,bj)= uFld(1,sNy+1-j)
./pkg/debug/debug_cs_corner_uv.F 80 DEBUG_CS_CORNER_UV 
       tmpU(3,k,bi,bj)= uFld(sNx+1,j)
./pkg/debug/debug_cs_corner_uv.F 81 DEBUG_CS_CORNER_UV 
       tmpU(4,k,bi,bj)= uFld(sNx+1,sNy+1-j)
./pkg/debug/debug_cs_corner_uv.F 82 DEBUG_CS_CORNER_UV 
       tmpV(1,k,bi,bj)= vFld(j,1)
./pkg/debug/debug_cs_corner_uv.F 83 DEBUG_CS_CORNER_UV 
       tmpV(2,k,bi,bj)= vFld(sNx+1-j,1)
./pkg/debug/debug_cs_corner_uv.F 84 DEBUG_CS_CORNER_UV 
       tmpV(3,k,bi,bj)= vFld(j,sNy+1)
./pkg/debug/debug_cs_corner_uv.F 85 DEBUG_CS_CORNER_UV 
       tmpV(4,k,bi,bj)= vFld(sNx+1-j,sNy+1)
./pkg/debug/debug_cs_corner_uv.F 96 DEBUG_CS_CORNER_UV 
     &        word2print(1:ic), ' , index=', j
./pkg/debug/fill_in_corners_rl.F 37 FILL_IN_CORNERS_RL 
      INTEGER i, j, k
./pkg/debug/fill_in_corners_rl.F 44 FILL_IN_CORNERS_RL 
         DO j=1-Oly,0
./pkg/debug/fill_in_corners_rl.F 45 FILL_IN_CORNERS_RL 
          jj = j + sNy+Oly
./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 49 FILL_IN_CORNERS_RL 
           fld(ii,j,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 123 WRITE_FULLARRAY_RL 
     &                                j=1-Oly,sNy+Oly )
./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 94 WRITE_FULLARRAY_RL 
     &                                j=1-Oly,sNy+Oly )
./pkg/diagnostics/diag_vegtile_fill.F 156 DIAG_VEGTILE_FILL 
             j = 1 + INT(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 168 DIAG_VEGTILE_FILL 
              j = 1 + INT(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 196 DIAG_VEGTILE_FILL 
           DO j=0,nRegions
./pkg/diagnostics/diag_vegtile_fill.F 197 DIAG_VEGTILE_FILL 
            region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diag_vegtile_fill.F 204 DIAG_VEGTILE_FILL 
              DO j=0,nRegions
./pkg/diagnostics/diag_vegtile_fill.F 205 DIAG_VEGTILE_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diag_vegtile_fill.F 66 DIAG_VEGTILE_FILL 
      INTEGER iSp, ndId, j,l
./pkg/diagnostics/diagnostics_clear.F 77 DIAGNOSTICS_CLRDIAG 
      INTEGER i,j,k
./pkg/diagnostics/diagnostics_clear.F 89 DIAGNOSTICS_CLRDIAG 
         DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_clear.F 91 DIAGNOSTICS_CLRDIAG 
           qdiag(i,j,kl,bi,bj) = 0.0
./pkg/diagnostics/diagnostics_fill.F 117 DIAGNOSTICS_FILL 
           DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill.F 118 DIAGNOSTICS_FILL 
            region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_fill.F 125 DIAGNOSTICS_FILL 
              DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill.F 126 DIAGNOSTICS_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fill.F 65 DIAGNOSTICS_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fill_field.F 318 DIAGNOSTICS_CUMULATE 
      INTEGER i, j, l
./pkg/diagnostics/diagnostics_fill_field.F 330 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 339 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 348 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 357 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 373 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 381 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 389 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 397 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 411 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 419 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 433 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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 444 DIAGNOSTICS_CUMULATE 
        DO j = 1,jRun
./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)
./pkg/diagnostics/diagnostics_fill_rs.F 117 DIAGNOSTICS_FILL_RS 
           DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill_rs.F 118 DIAGNOSTICS_FILL_RS 
            region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_fill_rs.F 125 DIAGNOSTICS_FILL_RS 
              DO j=0,nRegions
./pkg/diagnostics/diagnostics_fill_rs.F 126 DIAGNOSTICS_FILL_RS 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fill_rs.F 65 DIAGNOSTICS_FILL_RS 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fill_state.F 108 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 133 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+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 151 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 171 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 192 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 208 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 225 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 241 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 257 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 274 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 290 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 306 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 321 DIAGNOSTICS_FILL_STATE 
           DO j = 1,sNy
./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 327 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 351 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 367 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 383 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 399 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 427 DIAGNOSTICS_FILL_STATE 
        do j = 1,sNy
./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 481 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 500 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 516 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 534 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 551 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 569 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 585 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 602 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 620 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 644 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 660 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy+1
./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 66 DIAGNOSTICS_FILL_STATE 
           DO j = 1,sNy
./pkg/diagnostics/diagnostics_fill_state.F 676 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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 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 692 DIAGNOSTICS_FILL_STATE 
            DO j = 1,sNy
./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_fract_fill.F 163 DIAGNOSTICS_FRACT_FILL 
           DO j=0,nRegions
./pkg/diagnostics/diagnostics_fract_fill.F 164 DIAGNOSTICS_FRACT_FILL 
            region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_fract_fill.F 171 DIAGNOSTICS_FRACT_FILL 
              DO j=0,nRegions
./pkg/diagnostics/diagnostics_fract_fill.F 172 DIAGNOSTICS_FRACT_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_fract_fill.F 78 DIAGNOSTICS_FRACT_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_init_varia.F 30 DIAGNOSTICS_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/diagnostics/diagnostics_init_varia.F 36 DIAGNOSTICS_INIT_VARIA 
            DO j = 1-Oly,sNy+Oly
./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 55 DIAGNOSTICS_INIT_VARIA 
            DO j = 0,nRegions
./pkg/diagnostics/diagnostics_init_varia.F 57 DIAGNOSTICS_INIT_VARIA 
                qSdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_interp_vert.F 132 DIAGNOSTICS_INTERP_VERT 
            DO j = 1-OLy,sNy+OLy
./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 138 DIAGNOSTICS_INTERP_VERT 
             DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_interp_vert.F 140 DIAGNOSTICS_INTERP_VERT 
               qtmp2(i,j,k,bi,bj) = rC(k)
./pkg/diagnostics/diagnostics_interp_vert.F 154 DIAGNOSTICS_INTERP_VERT 
           DO j = 1,sNy
./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 162 DIAGNOSTICS_INTERP_VERT 
             DO j = 1,sNy
./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 175 DIAGNOSTICS_INTERP_VERT 
             DO j = 1,sNy
./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 196 DIAGNOSTICS_INTERP_VERT 
             DO j = 1,sNy
./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
./lsopt/dostore.F 1 DOSTORE 
      subroutine DOSTORE( n, x, store, j )
./lsopt/dostore.F 22 DOSTORE 
        write( ntape, rec=j ) tmpx
./lsopt/dostore.F 24 DOSTORE 
        read(  ntape, rec=j ) tmpx
./lsopt/dostore.F 5 DOSTORE 
      integer n, i, j
./pkg/diagnostics/diagnostics_out.F 274 DIAGNOSTICS_OUT 
             DO j = 1,nlevels(listId)
./pkg/diagnostics/diagnostics_out.F 275 DIAGNOSTICS_OUT 
               ztmp(j) = rC(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_out.F 281 DIAGNOSTICS_OUT 
             DO j = 1,nlevels(listId)
./pkg/diagnostics/diagnostics_out.F 282 DIAGNOSTICS_OUT 
               ztmp(j) = rF(NINT(levs(j,listId)) + 1)
./pkg/diagnostics/diagnostics_out.F 288 DIAGNOSTICS_OUT 
             DO j = 1,nlevels(listId)
./pkg/diagnostics/diagnostics_out.F 289 DIAGNOSTICS_OUT 
               ztmp(j) = rF(NINT(levs(j,listId)))
./pkg/diagnostics/diagnostics_out.F 369 DIAGNOSTICS_OUT 
                  DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_out.F 371 DIAGNOSTICS_OUT 
                      qtmp1(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_out.F 571 DIAGNOSTICS_OUT 
                DO j = 1-OLy,sNy+OLy
./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_readparms.F 323 DIAGNOSTICS_READPARMS 
      DO j = 0,nRegions
./pkg/diagnostics/diagnostics_readparms.F 324 DIAGNOSTICS_READPARMS 
        diagSt_kRegMsk(j) = 0
./pkg/diagnostics/diagnostics_readparms.F 325 DIAGNOSTICS_READPARMS 
        diagSt_vRegMsk(j) = 0.
./pkg/diagnostics/diagnostics_readparms.F 338 DIAGNOSTICS_READPARMS 
        DO j = 0,nRegions
./pkg/diagnostics/diagnostics_readparms.F 339 DIAGNOSTICS_READPARMS 
          diagSt_region(j,n) = 0
./pkg/diagnostics/diagnostics_readparms.F 352 DIAGNOSTICS_READPARMS 
      j = 0
./pkg/diagnostics/diagnostics_readparms.F 355 DIAGNOSTICS_READPARMS 
         j = j+1
./pkg/diagnostics/diagnostics_readparms.F 356 DIAGNOSTICS_READPARMS 
         IF ( j.LE.nRegions ) THEN
./pkg/diagnostics/diagnostics_readparms.F 357 DIAGNOSTICS_READPARMS 
           diagSt_kRegMsk(j) = set_regMask(k)
./pkg/diagnostics/diagnostics_readparms.F 358 DIAGNOSTICS_READPARMS 
           diagSt_vRegMsk(j) = val_regMask(k)
./pkg/diagnostics/diagnostics_readparms.F 362 DIAGNOSTICS_READPARMS 
      IF ( j.GT.nRegions ) THEN
./pkg/diagnostics/diagnostics_readparms.F 364 DIAGNOSTICS_READPARMS 
     &   'set_regMask & val_regMask lists assume at least',j,' regions'
./pkg/diagnostics/diagnostics_readparms.F 386 DIAGNOSTICS_READPARMS 
           j = stat_region(k,l)
./pkg/diagnostics/diagnostics_readparms.F 387 DIAGNOSTICS_READPARMS 
           IF ( j.NE.UNSET_I .AND. j.GE.0 .AND. j.LE.nRegions ) THEN
./pkg/diagnostics/diagnostics_readparms.F 388 DIAGNOSTICS_READPARMS 
            IF ( diagSt_region(j,n).EQ.0 ) THEN
./pkg/diagnostics/diagnostics_readparms.F 389 DIAGNOSTICS_READPARMS 
             diagSt_region(j,n) = 1
./pkg/diagnostics/diagnostics_readparms.F 398 DIAGNOSTICS_READPARMS 
     &        'DIAGNOSTICS_READPARMS: region=',j,
./pkg/diagnostics/diagnostics_readparms.F 403 DIAGNOSTICS_READPARMS 
           ELSEIF ( j.NE.UNSET_I ) THEN
./pkg/diagnostics/diagnostics_readparms.F 405 DIAGNOSTICS_READPARMS 
     &       'DIAGNOSTICS_READPARMS: region=',j,
./pkg/diagnostics/diagnostics_readparms.F 530 DIAGNOSTICS_READPARMS 
        DO j=0,nRegions
./pkg/diagnostics/diagnostics_readparms.F 531 DIAGNOSTICS_READPARMS 
         IF ( diagSt_region(j,n).GE.1 ) THEN
./pkg/diagnostics/diagnostics_readparms.F 533 DIAGNOSTICS_READPARMS 
          IF (l.LE.MAX_LEN_MBUF) WRITE(msgBuf(l-2:l),'(I3)') j
./pkg/diagnostics/diagnostics_readparms.F 76 DIAGNOSTICS_READPARMS 
      INTEGER j,k,l,n,m,nf
./pkg/diagnostics/diagnostics_scale_fill.F 119 DIAGNOSTICS_SCALE_FILL 
           DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill.F 120 DIAGNOSTICS_SCALE_FILL 
            region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_scale_fill.F 127 DIAGNOSTICS_SCALE_FILL 
              DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill.F 128 DIAGNOSTICS_SCALE_FILL 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_scale_fill.F 69 DIAGNOSTICS_SCALE_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_scale_fill_rs.F 119 DIAGNOSTICS_SCALE_FILL_RS 
           DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill_rs.F 120 DIAGNOSTICS_SCALE_FILL_RS 
            region2fill(j) = diagSt_region(j,n)
./pkg/diagnostics/diagnostics_scale_fill_rs.F 127 DIAGNOSTICS_SCALE_FILL_RS 
              DO j=0,nRegions
./pkg/diagnostics/diagnostics_scale_fill_rs.F 128 DIAGNOSTICS_SCALE_FILL_RS 
               region2fill(j) = MAX(region2fill(j),diagSt_region(j,l))
./pkg/diagnostics/diagnostics_scale_fill_rs.F 69 DIAGNOSTICS_SCALE_FILL_RS 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_set_pointers.F 138 DIAGNOSTICS_SET_POINTERS 
          DO j=1,nlists
./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
./lsopt/hessupd.F 47 HESSUPD 
      integer jfin, i, j, jp
./lsopt/hessupd.F 64 HESSUPD 
      do j = jfin,jmin,-1
./lsopt/hessupd.F 68 HESSUPD 
     &        'j,jfin,jmin = ', j,jfin,jmin
./lsopt/hessupd.F 70 HESSUPD 
         jp = j
./lsopt/hessupd.F 94 HESSUPD 
      do j = jmin,jfin
./lsopt/hessupd.F 95 HESSUPD 
         jp = j
./pkg/diagnostics/diagnostics_sum_levels.F 108 DIAGNOSTICS_SUM_LEVELS 
              DO j = 1-OLy,sNy+OLy
./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 115 DIAGNOSTICS_SUM_LEVELS 
             DO j = 1-OLy,sNy+OLy
./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 132 DIAGNOSTICS_SUM_LEVELS 
               DO j = 1-OLy,sNy+OLy
./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 148 DIAGNOSTICS_SUM_LEVELS 
               DO j = 1-OLy,sNy+OLy
./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 164 DIAGNOSTICS_SUM_LEVELS 
               DO j = 1-OLy,sNy+OLy
./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 180 DIAGNOSTICS_SUM_LEVELS 
               DO j = 2-OLy,sNy+OLy
./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 197 DIAGNOSTICS_SUM_LEVELS 
             DO j = 1-OLy,sNy+OLy
./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 75 DIAGNOSTICS_SUM_LEVELS 
          DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F 77 DIAGNOSTICS_SUM_LEVELS 
              tmpFld(i,j) = 0. _d 0
./pkg/diagnostics/diagnostics_sum_levels.F 86 DIAGNOSTICS_SUM_LEVELS 
              DO j = 1-OLy,sNy+OLy
./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 92 DIAGNOSTICS_SUM_LEVELS 
             DO j = 1-OLy,sNy+OLy
./pkg/diagnostics/diagnostics_sum_levels.F 94 DIAGNOSTICS_SUM_LEVELS 
                fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_summary.F 187 DIAGNOSTICS_SUMMARY 
         DO j=0,nRegions
./pkg/diagnostics/diagnostics_summary.F 188 DIAGNOSTICS_SUMMARY 
           IF ( diagSt_region(j,ld).GE.1
./pkg/diagnostics/diagnostics_summary.F 191 DIAGNOSTICS_SUMMARY 
             WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j
./pkg/diagnostics/diagnostics_summary.F 34 DIAGNOSTICS_SUMMARY 
      INTEGER j, k, k1, k2, l
./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 501 DIAGNOSTICS_SETKLEV 
      j = 0
./pkg/diagnostics/diagnostics_utils.F 504 DIAGNOSTICS_SETKLEV 
         j = j+1
./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 509 DIAGNOSTICS_SETKLEV 
      IF ( j.GT.16 ) THEN
./pkg/diagnostics/diagnostics_utils.F 511 DIAGNOSTICS_SETKLEV 
     &   'DIAGS_MK_UNITS: too long (',j,' >16) input string'
./pkg/diagnostics/diagnostics_utils.F 554 DIAGNOSTICS_SETKLEV 
      INTEGER i,j,n
./pkg/diagnostics/diagnostics_utils.F 562 DIAGNOSTICS_SETKLEV 
      j = 0
./pkg/diagnostics/diagnostics_utils.F 567 DIAGNOSTICS_SETKLEV 
           j = j+1
./pkg/diagnostics/diagnostics_utils.F 568 DIAGNOSTICS_SETKLEV 
           IF (j.LE.80) DIAGS_MK_TITLE(j:j) = ' '
./pkg/diagnostics/diagnostics_utils.F 570 DIAGNOSTICS_SETKLEV 
         j = j+1
./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 574 DIAGNOSTICS_SETKLEV 
         flag = j.GE.1
./pkg/diagnostics/diagnostics_utils.F 578 DIAGNOSTICS_SETKLEV 
      IF ( j.GT.80 ) THEN
./pkg/diagnostics/diagnostics_utils.F 580 DIAGNOSTICS_SETKLEV 
     &   'DIAGS_MK_TITLE: too long (',j,' >80) input string'
./pkg/diagnostics/diagnostics_utils.F 58 GETDIAG 
      INTEGER i, j, ipnt,ipCt
./pkg/diagnostics/diagnostics_utils.F 74 GETDIAG 
          DO j = 1,sNy+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 84 GETDIAG 
          DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_utils.F 86 GETDIAG 
              qtmp(i,j) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 97 GETDIAG 
          DO j = 1,sNy+1
./pkg/diagnostics/diagnostics_utils.F 99 GETDIAG 
              IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN
./pkg/diagnostics/diagstats_ascii_out.F 43 DIAGSTATS_ASCII_OUT 
      INTEGER i, j, k, klev, nUnit
./pkg/diagnostics/diagstats_ascii_out.F 61 DIAGSTATS_ASCII_OUT 
       DO j=0,nRegions
./pkg/diagnostics/diagstats_ascii_out.F 62 DIAGSTATS_ASCII_OUT 
        IF ( diagSt_region(j,listId).GE.1 ) THEN
./pkg/diagnostics/diagstats_ascii_out.F 64 DIAGSTATS_ASCII_OUT 
     &    ' ; Iter =',myIter,' ; region #',j, ' ; nb.Lev =',kdiag(ndId)
./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 122 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 151 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 181 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 210 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 241 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 271 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 302 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 92 DIAGSTATS_CALC 
       DO j = 1,jRun
./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 79 DIAGSTATS_CLRDIAG 
         DO j = 0,nRegions
./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 373 DIAGSTATS_TO_RL 
        DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F 375 DIAGSTATS_TO_RL 
           outFldRL(i,j) = inpFldRL(i,j,kIn,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F 379 DIAGSTATS_TO_RL 
        DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F 381 DIAGSTATS_TO_RL 
           outFldRL(i,j) = inpFldRS(i,j,kIn,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F 389 DIAGSTATS_TO_RL 
        DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F 391 DIAGSTATS_TO_RL 
           outFrcRL(i,j) = inpFrcRL(i,j,kFr,biIn,bjIn)
./pkg/diagnostics/diagstats_fill.F 395 DIAGSTATS_TO_RL 
        DO j=1,jRun
./pkg/diagnostics/diagstats_fill.F 397 DIAGSTATS_TO_RL 
           outFrcRL(i,j) = inpFrcRS(i,j,kFr,biIn,bjIn)
./pkg/diagnostics/diagstats_ini_io.F 37 DIAGSTATS_INI_IO 
      INTEGER m, n, j, iL, nUnit
./pkg/diagnostics/diagstats_ini_io.F 74 DIAGSTATS_INI_IO 
          DO j=0,nRegions
./pkg/diagnostics/diagstats_ini_io.F 75 DIAGSTATS_INI_IO 
            IF (diagSt_region(j,n).GE.1 .AND.iL+3.LE.MAX_LEN_MBUF) THEN
./pkg/diagnostics/diagstats_ini_io.F 77 DIAGSTATS_INI_IO 
              WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j
./pkg/diagnostics/diagstats_ini_io.F 82 DIAGSTATS_INI_IO 
          DO j=1,diagSt_nbFlds(n),10
./pkg/diagnostics/diagstats_ini_io.F 84 DIAGSTATS_INI_IO 
     &        (' ', diagSt_Flds(m,n), m=j,MIN(diagSt_nbFlds(n),j+9) )
./pkg/diagnostics/diagstats_ini_io.F 86 DIAGSTATS_INI_IO 
          DO j=1,diagSt_nbFlds(n),50
./pkg/diagnostics/diagstats_ini_io.F 88 DIAGSTATS_INI_IO 
     &         ( kdiag(jSdiag(m,n)), m=j,MIN(diagSt_nbFlds(n),j+49) )
./pkg/diagnostics/diagstats_mnc_out.F 158 DIAGSTATS_MNC_OUT 
            DO j = 1,nlevels(listId)
./pkg/diagnostics/diagstats_mnc_out.F 159 DIAGSTATS_MNC_OUT 
              ztmp(j) = rC(NINT(levs(j,listId)))
./pkg/diagnostics/diagstats_mnc_out.F 165 DIAGSTATS_MNC_OUT 
            DO j = 1,nlevels(listId)
./pkg/diagnostics/diagstats_mnc_out.F 166 DIAGSTATS_MNC_OUT 
              ztmp(j) = rF(NINT(levs(j,listId)) + 1)
./pkg/diagnostics/diagstats_mnc_out.F 172 DIAGSTATS_MNC_OUT 
            DO j = 1,nlevels(listId)
./pkg/diagnostics/diagstats_mnc_out.F 173 DIAGSTATS_MNC_OUT 
              ztmp(j) = rF(NINT(levs(j,listId)))
./pkg/diagnostics/diagstats_mnc_out.F 258 DIAGSTATS_MNC_OUT 
            DO j = 0,nRegions
./pkg/diagnostics/diagstats_mnc_out.F 259 DIAGSTATS_MNC_OUT 
              stmp(1,j+1) = statGlob(ist,0,j)
./pkg/diagnostics/diagstats_mnc_out.F 300 DIAGSTATS_MNC_OUT 
            DO j = 0,nRegions
./pkg/diagnostics/diagstats_mnc_out.F 302 DIAGSTATS_MNC_OUT 
                stmp(k,j+1) = statGlob(ist,k,j)
./pkg/diagnostics/diagstats_mnc_out.F 55 DIAGSTATS_MNC_OUT 
      INTEGER i, j, k
./pkg/diagnostics/diagstats_others_calc.F 111 DIAGSTATS_LM_CALC 
        DO j=1-OLy,sNy+OLy
./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_output.F 122 DIAGSTATS_OUTPUT 
     &         '  vol(',j,' ):', statGlob(0,0,j),'  Parms: ',gdiag(ndId)
./pkg/diagnostics/diagstats_output.F 126 DIAGSTATS_OUTPUT 
     &         '  vol(',j,' ):',tmp_Glob(0,0), ' integral',tmp_Glob(1,0)
./pkg/diagnostics/diagstats_output.F 53 DIAGSTATS_OUTPUT 
      INTEGER j, m, ndId, iSp, iSm
./pkg/diagnostics/diagstats_output.F 85 DIAGSTATS_OUTPUT 
         DO j=0,nRegions
./pkg/diagnostics/diagstats_output.F 86 DIAGSTATS_OUTPUT 
          IF ( diagSt_region(j,listId).GT.0 ) THEN
./pkg/diagnostics/diagstats_output.F 90 DIAGSTATS_OUTPUT 
     O                       statGlob(0,0,j), tmp_Glob,
./pkg/diagnostics/diagstats_output.F 91 DIAGSTATS_OUTPUT 
     I                       undef, nLev, j,
./pkg/diagnostics/diagstats_output.F 99 DIAGSTATS_OUTPUT 
     &        ' , region:', j
./pkg/diagnostics/diagstats_set_pointers.F 152 DIAGSTATS_SET_POINTERS 
       DO j=1,nRegions
./pkg/diagnostics/diagstats_set_pointers.F 153 DIAGSTATS_SET_POINTERS 
        IF ( diagSt_region(j,l).NE.0 ) THEN
./pkg/diagnostics/diagstats_set_pointers.F 154 DIAGSTATS_SET_POINTERS 
          IF ( diagSt_kRegMsk(j).LT.1 .OR.
./pkg/diagnostics/diagstats_set_pointers.F 155 DIAGSTATS_SET_POINTERS 
     &         diagSt_kRegMsk(j).GT.nSetRegMask ) THEN
./pkg/diagnostics/diagstats_set_pointers.F 157 DIAGSTATS_SET_POINTERS 
     &       ' region', j, ' undefined (k=', diagSt_kRegMsk(j),
./pkg/diagnostics/diagstats_set_pointers.F 39 DIAGSTATS_SET_POINTERS 
      INTEGER j, k, l
./pkg/diagnostics/diagstats_set_pointers.F 93 DIAGSTATS_SET_POINTERS 
             DO j=0,nRegions
./pkg/diagnostics/diagstats_set_pointers.F 95 DIAGSTATS_SET_POINTERS 
     &                 .OR. (diagSt_region(j,l).LT.diagSt_region(j,ld))
./pkg/diagnostics/diagstats_set_regions.F 106 DIAGSTATS_SET_REGIONS 
          DO j=1-Oly,sNy+Oly
./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 131 DIAGSTATS_SET_REGIONS 
      DO j=1,nRegions
./pkg/diagnostics/diagstats_set_regions.F 133 DIAGSTATS_SET_REGIONS 
        IF ( diagSt_kRegMsk(j).LT.0  .OR.
./pkg/diagnostics/diagstats_set_regions.F 134 DIAGSTATS_SET_REGIONS 
     &       diagSt_kRegMsk(j).GT.sizRegMsk ) THEN
./pkg/diagnostics/diagstats_set_regions.F 136 DIAGSTATS_SET_REGIONS 
     &     '(region',j,') invalid region-mask index :',diagSt_kRegMsk(j)
./pkg/diagnostics/diagstats_set_regions.F 140 DIAGSTATS_SET_REGIONS 
        ELSEIF ( diagSt_kRegMsk(j).GT.nSetRegMask ) THEN
./pkg/diagnostics/diagstats_set_regions.F 142 DIAGSTATS_SET_REGIONS 
     &     'region',j,' , kRegMsk=', diagSt_kRegMsk(j),
./pkg/diagnostics/diagstats_set_regions.F 146 DIAGSTATS_SET_REGIONS 
        ELSEIF ( diagSt_kRegMsk(j).NE.0 ) THEN
./pkg/diagnostics/diagstats_set_regions.F 172 DIAGSTATS_SET_REGIONS 
      DO j=1,nRegions
./pkg/diagnostics/diagstats_set_regions.F 173 DIAGSTATS_SET_REGIONS 
        IF ( diagSt_kRegMsk(j).NE.0 ) THEN
./pkg/diagnostics/diagstats_set_regions.F 176 DIAGSTATS_SET_REGIONS 
          WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j
./pkg/diagnostics/diagstats_set_regions.F 196 DIAGSTATS_SET_REGIONS 
         DO j=1-Oly,1-Oly
./pkg/diagnostics/diagstats_set_regions.F 198 DIAGSTATS_SET_REGIONS 
           diagSt_regMask(i,j,1,bi,bj) = 0.
./pkg/diagnostics/diagstats_set_regions.F 207 DIAGSTATS_SET_REGIONS 
      DO j=1,nRegions
./pkg/diagnostics/diagstats_set_regions.F 208 DIAGSTATS_SET_REGIONS 
        flag = flag .OR. diagSt_kRegMsk(j).NE.0
./pkg/diagnostics/diagstats_set_regions.F 209 DIAGSTATS_SET_REGIONS 
     &              .OR. diagSt_vRegMsk(j).NE.0.
./pkg/diagnostics/diagstats_set_regions.F 38 DIAGSTATS_SET_REGIONS 
      INTEGER i, j
./pkg/diagnostics/diagstats_set_regions.F 58 DIAGSTATS_SET_REGIONS 
         DO j=1-Oly,sNy+Oly
./pkg/diagnostics/diagstats_set_regions.F 60 DIAGSTATS_SET_REGIONS 
           diagSt_regMask(i,j,k,bi,bj) = 0.
./pkg/dic/alk_surfforcing.F 49 ALK_SURFFORCING 
      INTEGER i,j
./pkg/dic/alk_surfforcing.F 52 ALK_SURFFORCING 
        DO j=jmin,jmax
./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 103 BIO_EXPORT 
       DO j=jmin,jmax
./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 83 BIO_EXPORT 
      DO j=jmin,jmax
./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 81 CALCITE_SATURATION 
        DO j=jmin,jmax
./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 102 CAR_FLUX 
        DO j=jmin,jmax
./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 127 CAR_FLUX 
       DO j=jmin,jmax
./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 63 CAR_FLUX 
       DO j=jmin,jmax
./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 84 CAR_FLUX 
       DO j=jmin,jmax
./pkg/dic/car_flux.F 86 CAR_FLUX 
         flux_u(i,j)  = caexport(i,j)
./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 80 CAR_FLUX_OMEGA_TOP 
       DO j=jmin,jmax
./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 693 CARBON_COEFFS 
        INTEGER j
./pkg/dic/carbon_chem.F 707 CARBON_COEFFS 
         do j=jmin,jmax
./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 922 CARBON_COEFFS_PRESSURE_DEP 
        INTEGER j
./pkg/dic/carbon_chem.F 973 CARBON_COEFFS_PRESSURE_DEP 
         do j=jmin,jmax
./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 116 DIC_ATMOS 
           DO j=1-OLy,sNy+OLy
./pkg/dic/dic_atmos.F 118 DIC_ATMOS 
               AtmospCO2(i,j,bi,bj)=tmp
./pkg/dic/dic_atmos.F 140 DIC_ATMOS 
          DO j=1,sNy
./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 149 DIC_ATMOS 
          DO j=1,sNy
./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 248 DIC_ATMOS 
         DO j=1-OLy,sNy+OLy
./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 87 DIC_ATMOS 
          DO j=1-OLy,sNy+OLy
./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 48 DIC_AVER 
         DO j=1-OLy,sNy+OLy
./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 71 DIC_AVER 
         DO j=1-OLy,sNy+OLy
./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 147 DIC_AVER_INIT 
         DO j=1,sNy
./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
./pkg/dic/dic_biotic_forcing.F 102 DIC_BIOTIC_FORCING 
       INTEGER i,j,k
./pkg/dic/dic_biotic_forcing.F 109 DIC_BIOTIC_FORCING 
         DO j=1-OLy,sNy+OLy
./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 132 DIC_BIOTIC_FORCING 
         DO j=1-OLy,sNy+OLy
./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 180 DIC_BIOTIC_FORCING 
         DO j=jmin,jmax
./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 212 DIC_BIOTIC_FORCING 
         DO j=jmin,jmax
./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 245 DIC_BIOTIC_FORCING 
         DO j=jmin,jmax
./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 263 DIC_BIOTIC_FORCING 
         DO j=jmin,jmax
./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 298 DIC_BIOTIC_FORCING 
         DO j=jmin,jmax
./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 315 DIC_BIOTIC_FORCING 
         DO j=jmin,jmax
./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 45 DIC_COST 
          DO j=1,sNy
./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 135 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 148 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 157 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 165 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 175 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 191 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 209 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 218 DIC_FIELDS_LOAD 
           DO j=1-Oly,sNy+Oly
./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 88 DIC_INI_FORCING 
         DO j=1-Oly,sNy+Oly
./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 43 DIC_INIT_VARIA 
        DO j=1-Oly,sNy+Oly
./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 50 DIC_INIT_VARIA 
         DO j=1-Oly,sNy+Oly
./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 100 DIC_SET_CONTROL 
         DO j = 1, sNy
./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 76 DIC_SET_CONTROL 
         DO j = 1, sNy
./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 53 DIC_STORE_FLUXCO2 
         DO j=1,sNy
./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 106 DIC_SURFFORCING 
       DO j=jmin,jmax
./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 130 DIC_SURFFORCING 
       DO j=jmin,jmax
./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 152 DIC_SURFFORCING 
       DO j=jmin,jmax
./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 210 DIC_SURFFORCING 
         DO j=jmin,jmax
./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 82 DIC_SURFFORCING 
        DO j=jmin,jmax
./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 109 DIC_SURFFORCING_INIT 
          DO j=1-Oly,sNy+Oly
./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 131 DIC_SURFFORCING_INIT 
         DO j=1-OLy,sNy+OLy
./pkg/dic/dic_surfforcing_init.F 133 DIC_SURFFORCING_INIT 
            pH(i,j,bi,bj) = 8. _d 0
./pkg/dic/dic_surfforcing_init.F 141 DIC_SURFFORCING_INIT 
        DO j=1-OLy,sNy+OLy
./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 176 DIC_SURFFORCING_INIT 
        DO j=jMin,jMax
./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 208 DIC_SURFFORCING_INIT 
          DO j=jMin,jMax
./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/dic_write_pickup.F 107 DIC_WRITE_PICKUP 
        j  = 1
./pkg/dic/dic_write_pickup.F 110 DIC_WRITE_PICKUP 
          j  = Nr
./pkg/dic/dic_write_pickup.F 115 DIC_WRITE_PICKUP 
     &                         0, 0, j, ' ',
./pkg/dic/dic_write_pickup.F 51 DIC_WRITE_PICKUP 
      INTEGER j, nj
./pkg/dic/dic_write_pickup.F 79 DIC_WRITE_PICKUP 
        j = 0
./pkg/dic/dic_write_pickup.F 84 DIC_WRITE_PICKUP 
        nj = -j*Nr
./pkg/dic/dic_write_pickup.F 87 DIC_WRITE_PICKUP 
        j = j + 1
./pkg/dic/dic_write_pickup.F 90 DIC_WRITE_PICKUP 
        IF (j.LE.listDim) wrFldList(j) = 'DIC_pH2d'
./pkg/dic/dic_write_pickup.F 93 DIC_WRITE_PICKUP 
        nWrFlds = j
./pkg/dic/fe_chem.F 45 FE_CHEM 
      INTEGER i,j,k
./pkg/dic/fe_chem.F 62 FE_CHEM 
        DO j=jMin,jMax
./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/insol.F 44 INSOL 
       integer j
./pkg/dic/insol.F 66 INSOL 
       DO j=1-OLy,sNy+OLy
./pkg/dic/insol.F 68 INSOL 
          lat=YC(1,j,1,bj)*deg2rad
./pkg/dic/insol.F 72 INSOL 
     &         lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) )
./pkg/dic/insol.F 85 INSOL 
          sfac(j) = MAX(1. _d -5,fluxi)
./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 122 O2_SURFFORCING 
        DO j=jmin,jmax
./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 70 O2_SURFFORCING 
        DO j=jmin,jmax
./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 106 PHOS_FLUX 
        DO j=jmin,jmax
./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 134 PHOS_FLUX 
       DO j=jmin,jmax
./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 64 PHOS_FLUX 
       DO j=jmin,jmax
./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 86 PHOS_FLUX 
       DO j=jmin,jmax
./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 42 TRACER_MEANAREA 
         DO j=1,sNy
./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 63 DWNSLP_CALC_RHO 
      DO j=1-OLy,sNy+OLy
./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 105 DWNSLP_INIT_FIXED 
         DO j=1,sNy+1
./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 136 DWNSLP_INIT_FIXED 
         DO j=1,sNy
./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 164 DWNSLP_INIT_FIXED 
         DO j=1,sNy+1
./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 228 DWNSLP_INIT_FIXED 
          j= MAX(jdeep,jshelf)
./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 77 DWNSLP_INIT_FIXED 
         DO j=1,sNy
./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 80 EBM_AREA_T 
        DO j = 1,sNy
./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 100 EBM_ATMOSPHERE 
            ReCountX(j,bj) = 90.
./pkg/ebm/ebm_atmosphere.F 101 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN
./pkg/ebm/ebm_atmosphere.F 102 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 9.0
./pkg/ebm/ebm_atmosphere.F 103 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN
./pkg/ebm/ebm_atmosphere.F 104 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 8.0
./pkg/ebm/ebm_atmosphere.F 105 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN
./pkg/ebm/ebm_atmosphere.F 106 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 5.0
./pkg/ebm/ebm_atmosphere.F 107 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN
./pkg/ebm/ebm_atmosphere.F 108 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 1.0
./pkg/ebm/ebm_atmosphere.F 203 EBM_ATMOSPHERE 
        DO j=1,sNy
./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 219 EBM_ATMOSPHERE 
        DO j=1,sNy
./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 233 EBM_ATMOSPHERE 
          LW(j,bj) = LW0 + LW1*(T(j,bj)-t_mlt)
./pkg/ebm/ebm_atmosphere.F 236 EBM_ATMOSPHERE 
             LW(j,bj) = LW(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 267 EBM_ATMOSPHERE 
          IF (ReCountX(j,bj) .GT. 0.) THEN
./pkg/ebm/ebm_atmosphere.F 268 EBM_ATMOSPHERE 
             Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))*
./pkg/ebm/ebm_atmosphere.F 269 EBM_ATMOSPHERE 
     &            ( SW(j,bj) - LW(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 78 EBM_ATMOSPHERE 
        DO j=1-oLy,sNy+oLy
./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_atmosphere.F 84 EBM_ATMOSPHERE 
         SW(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 85 EBM_ATMOSPHERE 
         LW(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 86 EBM_ATMOSPHERE 
         Hd(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 87 EBM_ATMOSPHERE 
         Fw(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 88 EBM_ATMOSPHERE 
         T(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 89 EBM_ATMOSPHERE 
         ReCountX(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 97 EBM_ATMOSPHERE 
        DO j = 1,sNy
./pkg/ebm/ebm_atmosphere.F 98 EBM_ATMOSPHERE 
         ReCountX(j,bj) = CountX(j,bj)
./pkg/ebm/ebm_atmosphere.F 99 EBM_ATMOSPHERE 
         IF (yC(1,j,bi,bj) .LE. -62.0) THEN
./pkg/ebm/ebm_forcing_surf.F 48 EBM_FORCING_SURF 
      INTEGER i,j
./pkg/ebm/ebm_forcing_surf.F 61 EBM_FORCING_SURF 
      DO j = jMin, jMax
./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 40 EBM_INI_VARS 
        DO j=1-OLy,sNy+OLy
./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 52 EBM_LOAD_CLIMATOLOGY 
       DO j=1,Ny-1
./pkg/ebm/ebm_load_climatology.F 53 EBM_LOAD_CLIMATOLOGY 
        lY = lY + delY(j)
./pkg/ebm/ebm_load_climatology.F 57 EBM_LOAD_CLIMATOLOGY 
         DO j=1,sNy
./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 77 EBM_LOAD_CLIMATOLOGY 
         DO j=1,sNy
./pkg/ebm/ebm_load_climatology.F 79 EBM_LOAD_CLIMATOLOGY 
           fv(i,j,bi,bj) = 0.0
./pkg/ebm/ebm_wind_perturb.F 105 EBM_WIND_PERTURB 
       DO j = jMin, jMax
./pkg/ebm/ebm_wind_perturb.F 106 EBM_WIND_PERTURB 
         y(j) = j
./pkg/ebm/ebm_wind_perturb.F 107 EBM_WIND_PERTURB 
         ya(j) = y(j) - MOD(y(j),6.0)
./pkg/ebm/ebm_wind_perturb.F 108 EBM_WIND_PERTURB 
         ya2(j) = ya(j)+6.0
./pkg/ebm/ebm_wind_perturb.F 109 EBM_WIND_PERTURB 
         if ( ya2(j) .gt. sNy+Oly ) then
./pkg/ebm/ebm_wind_perturb.F 110 EBM_WIND_PERTURB 
            ya2(j) = 0.0
./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 116 EBM_WIND_PERTURB 
     &        stdev(j)*(1.0/6.0)*
./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 55 EBM_WIND_PERTURB 
      DO j = 1-OLy, sNy+OLy
./pkg/ebm/ebm_wind_perturb.F 56 EBM_WIND_PERTURB 
         y(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F 57 EBM_WIND_PERTURB 
         ya(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F 58 EBM_WIND_PERTURB 
         ya2(j) =  0.0
./pkg/ebm/ebm_wind_perturb.F 59 EBM_WIND_PERTURB 
         stdev(j) = 0.0
./pkg/ebm/ebm_wind_perturb.F 67 EBM_WIND_PERTURB 
        DO j = 1-OLy, sNy+OLy
./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 72 EBM_WIND_PERTURB 
      DO j = 1, sNy
./pkg/ebm/ebm_wind_perturb.F 73 EBM_WIND_PERTURB 
         stdev(j) = std(j)
./pkg/ebm/ebm_wind_perturb.F 82 EBM_WIND_PERTURB 
      DO j = jMin, jMax
./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 88 EBM_WIND_PERTURB 
      DO j = jMin, jMax
./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 51 EBM_ZONALMEAN 
       DO j=1-OLy,sNy+OLy
./pkg/ebm/ebm_zonalmean.F 52 EBM_ZONALMEAN 
         ZonalMeanSST(j,bj) = 0.0
./pkg/ebm/ebm_zonalmean.F 53 EBM_ZONALMEAN 
         CountX(j,bj) = 0.0
./pkg/ebm/ebm_zonalmean.F 60 EBM_ZONALMEAN 
        DO j = 1-OLy, sNy+OLy
./pkg/ebm/ebm_zonalmean.F 61 EBM_ZONALMEAN 
         CountX_tile(j,bi,bj) = 0.0
./pkg/ebm/ebm_zonalmean.F 62 EBM_ZONALMEAN 
         ZonalMean_tile(j,bi,bj) = 0.0
./pkg/ebm/ebm_zonalmean.F 64 EBM_ZONALMEAN 
          ZonalMean_tile(j,bi,bj) = ZonalMean_tile(j,bi,bj) +
./pkg/ebm/ebm_zonalmean.F 65 EBM_ZONALMEAN 
     &           theta(i,j,k,bi,bj)
./pkg/ebm/ebm_zonalmean.F 66 EBM_ZONALMEAN 
          CountX_tile(j,bi,bj) = CountX_tile(j,bi,bj) +
./pkg/ebm/ebm_zonalmean.F 67 EBM_ZONALMEAN 
     &         maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_zonalmean.F 69 EBM_ZONALMEAN 
         ZonalMeanSST(j,bj) = ZonalMeanSST(j,bj) +
./pkg/ebm/ebm_zonalmean.F 70 EBM_ZONALMEAN 
     &    ZonalMean_tile(j,bi,bj)
./pkg/ebm/ebm_zonalmean.F 71 EBM_ZONALMEAN 
         CountX(j,bj) = CountX(j,bj) + CountX_tile(j,bi,bj)
./pkg/ebm/ebm_zonalmean.F 77 EBM_ZONALMEAN 
       DO j=1-OLy,sNy+OLy
./pkg/ebm/ebm_zonalmean.F 78 EBM_ZONALMEAN 
        _GLOBAL_SUM_RL( CountX(j,bj), myThid )
./pkg/ebm/ebm_zonalmean.F 79 EBM_ZONALMEAN 
        _GLOBAL_SUM_RL( ZonalMeanSST(j,bj), myThid )
./pkg/ebm/ebm_zonalmean.F 87 EBM_ZONALMEAN 
       DO j=1-OLy,sNy+OLy
./pkg/ebm/ebm_zonalmean.F 88 EBM_ZONALMEAN 
        IF ( CountX(j,bj) .GT. 0.0) THEN
./pkg/ebm/ebm_zonalmean.F 89 EBM_ZONALMEAN 
          ZonalMeanSST(j,bj) = ZonalMeanSST(j,bj)/CountX(j,bj)
./pkg/ecco/cost_argo_salt.F 162 COST_ARGO_SALT 
              do j = jmin,jmax
./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 165 COST_ARGO_THETA 
              do j = jmin,jmax
./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 145 COST_ATLANTIC 
              do j = jmin,jmax
./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 188 COST_ATLANTIC 
              do j = jmin,jmax
./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 245 COST_AVERAGESFIELDS 
              do j = jmin,jmax
./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 258 COST_AVERAGESFIELDS 
              do j = jmin,jmax
./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 296 COST_AVERAGESFIELDS 
              do j = jmin,jmax
./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 318 COST_AVERAGESFIELDS 
              do j = jmin,jmax
./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 329 COST_AVERAGESFIELDS 
              do j = jmin,jmax
./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 364 COST_AVERAGESFIELDS 
              do j = jmin,jmax
./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 j = jmin,jmax
./pkg/ecco/cost_averagesfields.F 527 COST_AVERAGESFIELDS 
           jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/ecco/cost_averagesfields.F 532 COST_AVERAGESFIELDS 
     &              +vVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 533 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 103 COST_AVERAGESGENERIC 
              do j = jmin,jmax
./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 132 COST_AVERAGESGENERIC 
            do j = jmin,jmax
./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 90 COST_AVERAGESGENERIC 
              do j = jmin,jmax
./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 110 COST_AVERAGESINIT 
            do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 112 COST_AVERAGESINIT 
                tbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 122 COST_AVERAGESINIT 
          do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 124 COST_AVERAGESINIT 
              tbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 135 COST_AVERAGESINIT 
          do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 137 COST_AVERAGESINIT 
              sstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 149 COST_AVERAGESINIT 
            do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 151 COST_AVERAGESINIT 
                sbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 161 COST_AVERAGESINIT 
          do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 163 COST_AVERAGESINIT 
              sbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 175 COST_AVERAGESINIT 
            do j = jmin,jmax
./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 189 COST_AVERAGESINIT 
            do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 191 COST_AVERAGESINIT 
                wbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 200 COST_AVERAGESINIT 
          do j = jmin,jmax
./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 212 COST_AVERAGESINIT 
          do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 214 COST_AVERAGESINIT 
              hfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 222 COST_AVERAGESINIT 
          do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 224 COST_AVERAGESINIT 
              sfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 234 COST_AVERAGESINIT 
          do j = jmin,jmax
./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 71 COST_AVERAGESINIT 
            do j = jmin,jmax
./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 83 COST_AVERAGESINIT 
          do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 85 COST_AVERAGESINIT 
              psbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 94 COST_AVERAGESINIT 
          do j = jmin,jmax
./pkg/ecco/cost_averagesinit.F 96 COST_AVERAGESINIT 
              bpbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 103 COST_BOTTOMDRAG 
            do j = jmin,jmax
./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 100 COST_BP 
              bpdifmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 101 COST_BP 
              bpdifanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 102 COST_BP 
              bpdatmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 103 COST_BP 
              bpdatanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 104 COST_BP 
              bpcount(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 133 COST_BP 
            do j = 1,sny
./pkg/ecco/cost_bp.F 135 COST_BP 
                if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 136 COST_BP 
     &               (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 137 COST_BP 
                  bpdifmean(i,j,bi,bj) = bpdifmean(i,j,bi,bj) +
./pkg/ecco/cost_bp.F 138 COST_BP 
     &              ( fac*bpbar(i,j,bi,bj) - bpdat(i,j,bi,bj) )
./pkg/ecco/cost_bp.F 139 COST_BP 
                  bpdatmean(i,j,bi,bj) = bpdatmean(i,j,bi,bj) +
./pkg/ecco/cost_bp.F 140 COST_BP 
     &              bpdat(i,j,bi,bj)
./pkg/ecco/cost_bp.F 141 COST_BP 
                  bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_bp.F 152 COST_BP 
            do j = 1,sny
./pkg/ecco/cost_bp.F 154 COST_BP 
                if (bpcount(i,j,bi,bj).GT. 0. _d 0) then
./pkg/ecco/cost_bp.F 155 COST_BP 
                  bpdifmean(i,j,bi,bj) =
./pkg/ecco/cost_bp.F 156 COST_BP 
     &              bpdifmean(i,j,bi,bj)/bpcount(i,j,bi,bj)
./pkg/ecco/cost_bp.F 157 COST_BP 
                  bpdatmean(i,j,bi,bj) =
./pkg/ecco/cost_bp.F 158 COST_BP 
     &              bpdatmean(i,j,bi,bj)/bpcount(i,j,bi,bj)
./pkg/ecco/cost_bp.F 181 COST_BP 
            do j = 1,sny
./pkg/ecco/cost_bp.F 183 COST_BP 
                if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 184 COST_BP 
     &               (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 185 COST_BP 
                  bpdifanom(i,j,bi,bj) =
./pkg/ecco/cost_bp.F 186 COST_BP 
     &              ( fac*bpbar(i,j,bi,bj) - bpdat(i,j,bi,bj) )
./pkg/ecco/cost_bp.F 187 COST_BP 
     &              - bpdifmean(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 191 COST_BP 
                  bpdifanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 192 COST_BP 
                  bpdatanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 205 COST_BP 
          do j = 1,sny
./pkg/ecco/cost_bp.F 207 COST_BP 
              if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 208 COST_BP 
     &             (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 209 COST_BP 
                offset  = offset + RA(i,j,bi,bj)*bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F 210 COST_BP 
                offset_sum = offset_sum + RA(i,j,bi,bj)
./pkg/ecco/cost_bp.F 222 COST_BP 
            do j = 1,sny
./pkg/ecco/cost_bp.F 225 COST_BP 
     &              (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 226 COST_BP 
     &              (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then
./pkg/ecco/cost_bp.F 227 COST_BP 
                  bpdifanom(i,j,bi,bj) = bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F 261 COST_BP 
            do j = 1,sny
./pkg/ecco/cost_bp.F 263 COST_BP 
                if ( (wbp(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 264 COST_BP 
     &               (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 265 COST_BP 
     &               (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 266 COST_BP 
                  junk = bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F 268 COST_BP 
     &              + junk*junk*wbp(i,j,bi,bj)
./pkg/ecco/cost_bp.F 56 COST_BP 
      integer i,j
./pkg/ecco/cost_bp.F 98 COST_BP 
          do j = 1,sny
./pkg/ecco/cost_bp_read.F 108 COST_BP_READ 
          do j = jmin,jmax
./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 155 COST_CTDS 
              do j = jmin,jmax
./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 134 COST_CTDSCLIM 
                     do j = jmin,jmax
./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 177 COST_CTDSCLIM 
              do j = jmin,jmax
./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 191 COST_CTDSCLIM 
              do j = jmin,jmax
./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 156 COST_CTDT 
              do j = jmin,jmax
./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 133 COST_CTDTCLIM 
                     do j = jmin,jmax
./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 176 COST_CTDTCLIM 
              do j = jmin,jmax
./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 191 COST_CTDTCLIM 
              do j = jmin,jmax
./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 165 COST_CURMTR 
              do j = jmin,jmax
./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 208 COST_CURMTR 
              do j = jmin,jmax
./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 253 COST_CURMTR 
              do j = jmin,jmax
./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 104 COST_DIFFKR 
            do j = jmin,jmax
./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 122 COST_DRIFT 
            do j = jmin,jmax
./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 159 COST_DRIFT 
              do j = jmin,jmax
./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 191 COST_DRIFT 
              do j = jmin,jmax
./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 214 COST_DRIFT 
            do j = jmin,jmax
./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 244 COST_DRIFT 
            do j = jmin,jmax
./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 160 COST_DRIFTER 
          do j = jmin,jmax
./pkg/ecco/cost_drifter.F 163 COST_DRIFTER 
               udmod(i,j,bi,bj)=ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 164 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 166 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 167 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 169 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)+ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 170 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)+vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 190 COST_DRIFTER 
         do j = jmin,jmax
./pkg/ecco/cost_drifter.F 192 COST_DRIFTER 
               mask13c(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_drifter.F 193 COST_DRIFTER 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.)
./pkg/ecco/cost_drifter.F 194 COST_DRIFTER 
     &              mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 204 COST_DRIFTER 
               if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_drifter.F 205 COST_DRIFTER 
                  mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 213 COST_DRIFTER 
         do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F 215 COST_DRIFTER 
             masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F 216 COST_DRIFTER 
     &           (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 217 COST_DRIFTER 
     &           +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 218 COST_DRIFTER 
     &           +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 219 COST_DRIFTER 
     &           +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 220 COST_DRIFTER 
     &           +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 221 COST_DRIFTER 
     &           +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F 222 COST_DRIFTER 
             if ( masktmp(i,j,bi,bj) .eq. 0.0 ) then
./pkg/ecco/cost_drifter.F 223 COST_DRIFTER 
                u6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F 225 COST_DRIFTER 
                u6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F 226 COST_DRIFTER 
     &                  udmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 227 COST_DRIFTER 
     &                + udmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 228 COST_DRIFTER 
     &                + udmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F 229 COST_DRIFTER 
     &                + udmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 230 COST_DRIFTER 
     &                + udmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F 231 COST_DRIFTER 
     &                + udmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 232 COST_DRIFTER 
     &                + udmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 233 COST_DRIFTER 
     &                + udmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 234 COST_DRIFTER 
     &                + udmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 235 COST_DRIFTER 
     &                + udmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 236 COST_DRIFTER 
     &                + udmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 237 COST_DRIFTER 
     &                + udmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F 238 COST_DRIFTER 
     &             / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F 243 COST_DRIFTER 
         do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F 245 COST_DRIFTER 
             masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F 246 COST_DRIFTER 
     &             (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 247 COST_DRIFTER 
     &             +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 248 COST_DRIFTER 
     &             +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 249 COST_DRIFTER 
     &             +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 250 COST_DRIFTER 
     &             +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 251 COST_DRIFTER 
     &             +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F 252 COST_DRIFTER 
             if ( masktmp(i,j,bi,bj) .eq.0.0 ) then
./pkg/ecco/cost_drifter.F 253 COST_DRIFTER 
                v6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F 255 COST_DRIFTER 
                v6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F 256 COST_DRIFTER 
     &                  vdmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 257 COST_DRIFTER 
     &                + vdmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 258 COST_DRIFTER 
     &                + vdmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F 259 COST_DRIFTER 
     &                + vdmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 260 COST_DRIFTER 
     &                + vdmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F 261 COST_DRIFTER 
     &                + vdmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 262 COST_DRIFTER 
     &                + vdmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 263 COST_DRIFTER 
     &                + vdmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 264 COST_DRIFTER 
     &                + vdmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 265 COST_DRIFTER 
     &                + vdmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 266 COST_DRIFTER 
     &                + vdmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 267 COST_DRIFTER 
     &                + vdmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F 268 COST_DRIFTER 
     &             / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F 273 COST_DRIFTER 
         do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F 276 COST_DRIFTER 
              uddat(i,j,bi,bj) = 0.01*udriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 277 COST_DRIFTER 
              vddat(i,j,bi,bj) = 0.01*vdriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 279 COST_DRIFTER 
              wud(i,j,bi,bj) = 1e4*max(wudrift(i,j,bi,bj),5.D0)**(-2)
./pkg/ecco/cost_drifter.F 280 COST_DRIFTER 
              wvd(i,j,bi,bj) = 1e4*max(wvdrift(i,j,bi,bj),5.D0)**(-2)
./pkg/ecco/cost_drifter.F 283 COST_DRIFTER 
              mask6c(i,j,bi,bj) = 1.0
./pkg/ecco/cost_drifter.F 284 COST_DRIFTER 
              if ( uddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 285 COST_DRIFTER 
              if ( abs(uddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 286 COST_DRIFTER 
              if ( vddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 287 COST_DRIFTER 
              if ( abs(vddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 302 COST_DRIFTER 
         do j = jmin,jmax-1,2
./pkg/ecco/cost_drifter.F 305 COST_DRIFTER 
     &              + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 306 COST_DRIFTER 
     &                 mask6c(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 307 COST_DRIFTER 
     &                (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))*
./pkg/ecco/cost_drifter.F 308 COST_DRIFTER 
     &                (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))   )
./pkg/ecco/cost_drifter.F 309 COST_DRIFTER 
     &              + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 310 COST_DRIFTER 
     &                 mask6c(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 311 COST_DRIFTER 
     &                (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))*
./pkg/ecco/cost_drifter.F 312 COST_DRIFTER 
     &                (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))   )
./pkg/ecco/cost_drifter.F 313 COST_DRIFTER 
               if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_drifter.F 314 COST_DRIFTER 
                  if ( wud(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F 316 COST_DRIFTER 
                  if ( wvd(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F 64 COST_DRIFTER 
      integer i,j,k
./pkg/ecco/cost_driftw.F 108 COST_DRIFTW 
            do j = jmin,jmax
./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 138 COST_DRIFTW 
              do j = jmin,jmax
./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 163 COST_DRIFTW 
              do j = jmin,jmax
./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 186 COST_DRIFTW 
            do j = jmin,jmax
./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 136 COST_FORCING_GEN 
          do j = jmin,jmax
./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 160 COST_FORCING_GEN 
            do j = jmin,jmax
./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 179 COST_FORCING_GEN 
        do j = jmin,jmax
./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 213 COST_FORCING_GEN 
            do j = jmin,jmax
./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 263 COST_FORCING_GEN 
            do j = jmin,jmax
./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 53 COST_GENCOST_CUSTOMIZE 
        do j = jmin,jmax
./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_gencost_sshv4.F 208 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 210 COST_GENCOST_SSHV4 
              mean_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 211 COST_GENCOST_SSHV4 
              mean_slaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 236 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 239 COST_GENCOST_SSHV4 
      if ( tpmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 240 COST_GENCOST_SSHV4 
     &    gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 241 COST_GENCOST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 242 COST_GENCOST_SSHV4 
     &  tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 243 COST_GENCOST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 247 COST_GENCOST_SSHV4 
      if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 248 COST_GENCOST_SSHV4 
     &    gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 249 COST_GENCOST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 250 COST_GENCOST_SSHV4 
     &  ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 251 COST_GENCOST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 255 COST_GENCOST_SSHV4 
      if ( gfomask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 256 COST_GENCOST_SSHV4 
     &    gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 257 COST_GENCOST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 258 COST_GENCOST_SSHV4 
     &  gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 259 COST_GENCOST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 272 COST_GENCOST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 274 COST_GENCOST_SSHV4 
               if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 275 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 276 COST_GENCOST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 277 COST_GENCOST_SSHV4 
     &              ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_gencost_sshv4.F 278 COST_GENCOST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = mean_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 279 COST_GENCOST_SSHV4 
     &                 mean_slaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 281 COST_GENCOST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 305 COST_GENCOST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 307 COST_GENCOST_SSHV4 
               if ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 308 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_gencost_sshv4.F 309 COST_GENCOST_SSHV4 
                  tpmean(i,j,bi,bj) = tpmean(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 310 COST_GENCOST_SSHV4 
     &                 -mean_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 329 COST_GENCOST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 332 COST_GENCOST_SSHV4 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 333 COST_GENCOST_SSHV4 
              mean_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 334 COST_GENCOST_SSHV4 
              mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 335 COST_GENCOST_SSHV4 
              mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 336 COST_GENCOST_SSHV4 
              mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 337 COST_GENCOST_SSHV4 
              mean_slaobs2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 339 COST_GENCOST_SSHV4 
              mean_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 340 COST_GENCOST_SSHV4 
              mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 341 COST_GENCOST_SSHV4 
              mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 342 COST_GENCOST_SSHV4 
              mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 344 COST_GENCOST_SSHV4 
              mean_psMtpobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 345 COST_GENCOST_SSHV4 
              mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 346 COST_GENCOST_SSHV4 
              mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 383 COST_GENCOST_SSHV4 
            do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 385 COST_GENCOST_SSHV4 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 386 COST_GENCOST_SSHV4 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_gencost_sshv4.F 388 COST_GENCOST_SSHV4 
                if ( tpmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 389 COST_GENCOST_SSHV4 
     &             gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 390 COST_GENCOST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 391 COST_GENCOST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 392 COST_GENCOST_SSHV4 
                   mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 393 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 394 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 395 COST_GENCOST_SSHV4 
                   mean_psMtpobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 396 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 400 COST_GENCOST_SSHV4 
                if ( ersmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 401 COST_GENCOST_SSHV4 
     &             gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 402 COST_GENCOST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 403 COST_GENCOST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 404 COST_GENCOST_SSHV4 
                   mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 405 COST_GENCOST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 406 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 407 COST_GENCOST_SSHV4 
                   mean_psMersobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 408 COST_GENCOST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 412 COST_GENCOST_SSHV4 
                if ( gfomask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 413 COST_GENCOST_SSHV4 
     &             gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 414 COST_GENCOST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 415 COST_GENCOST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 416 COST_GENCOST_SSHV4 
                   mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 417 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 418 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 419 COST_GENCOST_SSHV4 
                   mean_psMgfoobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 420 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 433 COST_GENCOST_SSHV4 
            do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 436 COST_GENCOST_SSHV4 
               if ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 437 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 438 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 439 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 440 COST_GENCOST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 441 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 442 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 443 COST_GENCOST_SSHV4 
                  mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 444 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 445 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 446 COST_GENCOST_SSHV4 
                  mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 450 COST_GENCOST_SSHV4 
               if ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 451 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 452 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 453 COST_GENCOST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 454 COST_GENCOST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 455 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 456 COST_GENCOST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 457 COST_GENCOST_SSHV4 
                  mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 458 COST_GENCOST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 459 COST_GENCOST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 460 COST_GENCOST_SSHV4 
                  mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 464 COST_GENCOST_SSHV4 
               if ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 465 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 466 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 467 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 468 COST_GENCOST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 469 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 470 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 471 COST_GENCOST_SSHV4 
                  mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 472 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 473 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 474 COST_GENCOST_SSHV4 
                  mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 477 COST_GENCOST_SSHV4 
               if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 478 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 479 COST_GENCOST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 480 COST_GENCOST_SSHV4 
     &              ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_gencost_sshv4.F 481 COST_GENCOST_SSHV4 
                  mean_slaobs2(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 482 COST_GENCOST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 483 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 484 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 485 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 486 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)-tpmean(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 487 COST_GENCOST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 488 COST_GENCOST_SSHV4 
                  offset=offset+mean_psMssh_all(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 489 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 490 COST_GENCOST_SSHV4 
                  offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 492 COST_GENCOST_SSHV4 
                  mean_slaobs2(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_gencost_sshv4.F 493 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 494 COST_GENCOST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 527 COST_GENCOST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 530 COST_GENCOST_SSHV4 
               if ( (mean_psMssh_all_MSK(i,j,bi,bj) .NE. 0.) .AND.
./pkg/ecco/cost_gencost_sshv4.F 531 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 532 COST_GENCOST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then
./pkg/ecco/cost_gencost_sshv4.F 534 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 535 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) - offset
./pkg/ecco/cost_gencost_sshv4.F 536 COST_GENCOST_SSHV4 
               elseif ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 537 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 538 COST_GENCOST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then
./pkg/ecco/cost_gencost_sshv4.F 540 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 541 COST_GENCOST_SSHV4 
     &             psmean(i,j,bi,bj) -tpmean(i,j,bi,bj) - offset
./pkg/ecco/cost_gencost_sshv4.F 543 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 546 COST_GENCOST_SSHV4 
               if ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 547 COST_GENCOST_SSHV4 
     &            psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset
./pkg/ecco/cost_gencost_sshv4.F 585 COST_GENCOST_SSHV4 
          do j = 1,sny
./pkg/ecco/cost_gencost_sshv4.F 587 COST_GENCOST_SSHV4 
              prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 605 COST_GENCOST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 607 COST_GENCOST_SSHV4 
       junk = mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 608 COST_GENCOST_SSHV4 
       junkweight = gencost_weight(i,j,bi,bj,igen_mdt)
./pkg/ecco/cost_gencost_sshv4.F 609 COST_GENCOST_SSHV4 
     &      *tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 614 COST_GENCOST_SSHV4 
       diagnosfld(i,j,bi,bj) = junk*junk*junkweight
./pkg/ecco/cost_gencost_sshv4.F 639 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 641 COST_GENCOST_SSHV4 
              anom_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 642 COST_GENCOST_SSHV4 
              anom_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 643 COST_GENCOST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 644 COST_GENCOST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 645 COST_GENCOST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 646 COST_GENCOST_SSHV4 
              anom_psMslaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 647 COST_GENCOST_SSHV4 
              anom_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 648 COST_GENCOST_SSHV4 
              anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 649 COST_GENCOST_SSHV4 
              anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 687 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 68 COST_GENCOST_SSHV4 
      integer i,j,k
./pkg/ecco/cost_gencost_sshv4.F 690 COST_GENCOST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 692 COST_GENCOST_SSHV4 
           anom_psMtpobs(i,j,bi,bj)= anom_psMtpobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 693 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 694 COST_GENCOST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 695 COST_GENCOST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 696 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 697 COST_GENCOST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 698 COST_GENCOST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 699 COST_GENCOST_SSHV4 
     &        tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 700 COST_GENCOST_SSHV4 
           anom_psMtpobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 701 COST_GENCOST_SSHV4 
     &        anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 702 COST_GENCOST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 703 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 707 COST_GENCOST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 709 COST_GENCOST_SSHV4 
           anom_psMersobs(i,j,bi,bj)= anom_psMersobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 710 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 711 COST_GENCOST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 712 COST_GENCOST_SSHV4 
           anom_psMersobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 713 COST_GENCOST_SSHV4 
     &        anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 714 COST_GENCOST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 715 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 716 COST_GENCOST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 717 COST_GENCOST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 718 COST_GENCOST_SSHV4 
     &        ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 719 COST_GENCOST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 720 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 724 COST_GENCOST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 726 COST_GENCOST_SSHV4 
           anom_psMgfoobs(i,j,bi,bj)= anom_psMgfoobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 727 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 728 COST_GENCOST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 729 COST_GENCOST_SSHV4 
           anom_psMgfoobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 730 COST_GENCOST_SSHV4 
     &        anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 731 COST_GENCOST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 732 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 733 COST_GENCOST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 734 COST_GENCOST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 735 COST_GENCOST_SSHV4 
     &        gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 736 COST_GENCOST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 737 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 749 COST_GENCOST_SSHV4 
            do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 752 COST_GENCOST_SSHV4 
               if ( anom_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 753 COST_GENCOST_SSHV4 
                  anom_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 754 COST_GENCOST_SSHV4 
     &                 anom_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 755 COST_GENCOST_SSHV4 
     &                 anom_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 759 COST_GENCOST_SSHV4 
               if ( anom_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 760 COST_GENCOST_SSHV4 
                  anom_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 761 COST_GENCOST_SSHV4 
     &                 anom_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 762 COST_GENCOST_SSHV4 
     &                 anom_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 766 COST_GENCOST_SSHV4 
               if ( anom_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 767 COST_GENCOST_SSHV4 
                  anom_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 768 COST_GENCOST_SSHV4 
     &                 anom_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 769 COST_GENCOST_SSHV4 
     &                 anom_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 772 COST_GENCOST_SSHV4 
               if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 773 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_gencost_sshv4.F 774 COST_GENCOST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 775 COST_GENCOST_SSHV4 
     &                 anom_psMslaobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 776 COST_GENCOST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 777 COST_GENCOST_SSHV4 
                  anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 778 COST_GENCOST_SSHV4 
     &                 anom_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 779 COST_GENCOST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 781 COST_GENCOST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 782 COST_GENCOST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 823 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 828 COST_GENCOST_SSHV4 
          junk = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 830 COST_GENCOST_SSHV4 
     &        + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F 831 COST_GENCOST_SSHV4 
     &        *maskc(i,j,1,bi,bj)/ndaysaveRL
./pkg/ecco/cost_gencost_sshv4.F 832 COST_GENCOST_SSHV4 
          if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F 833 COST_GENCOST_SSHV4 
     &         (anom_psMslaobs_NUM(i,j,bi,bj).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F 834 COST_GENCOST_SSHV4 
     &         (maskc(i,j,1,bi,bj) .ne. 0.) )
./pkg/ecco/cost_gencost_sshv4.F 869 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 871 COST_GENCOST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 872 COST_GENCOST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 873 COST_GENCOST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 874 COST_GENCOST_SSHV4 
              anom_tpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 875 COST_GENCOST_SSHV4 
              anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 876 COST_GENCOST_SSHV4 
              anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 884 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 887 COST_GENCOST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F 889 COST_GENCOST_SSHV4 
         anom_psMtpobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 890 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 891 COST_GENCOST_SSHV4 
     &       - mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 892 COST_GENCOST_SSHV4 
         anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 896 COST_GENCOST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F 898 COST_GENCOST_SSHV4 
         anom_psMersobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 899 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 900 COST_GENCOST_SSHV4 
     &       - mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 901 COST_GENCOST_SSHV4 
         anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 905 COST_GENCOST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F 907 COST_GENCOST_SSHV4 
         anom_psMgfoobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 908 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 909 COST_GENCOST_SSHV4 
     &       - mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 910 COST_GENCOST_SSHV4 
         anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 942 COST_GENCOST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_gencost_sshv4.F 946 COST_GENCOST_SSHV4 
                junkweight = mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 947 COST_GENCOST_SSHV4 
     &                      *gencost_weight(i,j,bi,bj,igen_tp)
./pkg/ecco/cost_gencost_sshv4.F 948 COST_GENCOST_SSHV4 
     &                      *tpmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 949 COST_GENCOST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 950 COST_GENCOST_SSHV4 
                junk = anom_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 959 COST_GENCOST_SSHV4 
                junkweight = mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 960 COST_GENCOST_SSHV4 
     &                      *gencost_weight(i,j,bi,bj,igen_ers)
./pkg/ecco/cost_gencost_sshv4.F 961 COST_GENCOST_SSHV4 
     &                      *ersmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 962 COST_GENCOST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 963 COST_GENCOST_SSHV4 
                junk = anom_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 972 COST_GENCOST_SSHV4 
                junkweight = mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 973 COST_GENCOST_SSHV4 
     &                      *gencost_weight(i,j,bi,bj,igen_gfo)
./pkg/ecco/cost_gencost_sshv4.F 974 COST_GENCOST_SSHV4 
     &                      *gfomask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 975 COST_GENCOST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 976 COST_GENCOST_SSHV4 
                junk = anom_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 145 COST_GENCOST_SSTV4 
           do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 147 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 148 COST_GENCOST_SSTV4 
              obs_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 149 COST_GENCOST_SSTV4 
              nb_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 150 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 196 COST_GENCOST_SSTV4 
                    do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 198 COST_GENCOST_SSTV4 
                         tmp_sst(i,j,bi,bj) = spval
./pkg/ecco/cost_gencost_sstv4.F 208 COST_GENCOST_SSTV4 
               do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 210 COST_GENCOST_SSTV4 
                 if ( (tmp_sst(i,j,bi,bj).GT.spval).AND.
./pkg/ecco/cost_gencost_sstv4.F 211 COST_GENCOST_SSTV4 
     &                (maskc(i,j,1,bi,bj).EQ.1.) ) then
./pkg/ecco/cost_gencost_sstv4.F 212 COST_GENCOST_SSTV4 
                  anom_sst(i,j,bi,bj)= anom_sst(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sstv4.F 213 COST_GENCOST_SSTV4 
     &               sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 214 COST_GENCOST_SSTV4 
                  obs_sst(i,j,bi,bj)= obs_sst(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sstv4.F 215 COST_GENCOST_SSTV4 
     &               tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 216 COST_GENCOST_SSTV4 
                  nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 228 COST_GENCOST_SSTV4 
           do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 230 COST_GENCOST_SSTV4 
             if ( nb_sst(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sstv4.F 231 COST_GENCOST_SSTV4 
              obs_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 232 COST_GENCOST_SSTV4 
     &            obs_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 233 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 234 COST_GENCOST_SSTV4 
     &            anom_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 235 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 277 COST_GENCOST_SSTV4 
           do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 279 COST_GENCOST_SSTV4 
             junk = anom_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 280 COST_GENCOST_SSTV4 
             junkweight = gencost_weight(i,j,bi,bj,igen_amsre_lsc)*
./pkg/ecco/cost_gencost_sstv4.F 281 COST_GENCOST_SSTV4 
     &          maskc(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 285 COST_GENCOST_SSTV4 
             if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) )
./pkg/ecco/cost_gencost_sstv4.F 334 COST_GENCOST_SSTV4 
                    do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 336 COST_GENCOST_SSTV4 
                         tmp_sst(i,j,bi,bj) = spval
./pkg/ecco/cost_gencost_sstv4.F 346 COST_GENCOST_SSTV4 
           do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 348 COST_GENCOST_SSTV4 
             if ( (tmp_sst(i,j,bi,bj).GT.spval).AND.
./pkg/ecco/cost_gencost_sstv4.F 349 COST_GENCOST_SSTV4 
     &            (maskc(i,j,1,bi,bj).EQ.1.) ) then
./pkg/ecco/cost_gencost_sstv4.F 350 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 351 COST_GENCOST_SSTV4 
     &               sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 352 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 354 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 355 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 372 COST_GENCOST_SSTV4 
           do j = jmin,jmax
./pkg/ecco/cost_gencost_sstv4.F 374 COST_GENCOST_SSTV4 
             junk = anom_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 375 COST_GENCOST_SSTV4 
             junkweight = gencost_weight(i,j,bi,bj,igen_amsre)*
./pkg/ecco/cost_gencost_sstv4.F 376 COST_GENCOST_SSTV4 
     &          maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 55 COST_GENCOST_SSTV4 
      integer i,j,k
./pkg/ecco/cost_generic.F 140 COST_GENERIC 
            do j = jmin,jmax
./pkg/ecco/cost_generic.F 142 COST_GENERIC 
                localobs(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 153 COST_GENERIC 
            do j = 1-oly,sny+oly
./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 246 COST_GENERIC 
                do j = jmin,jmax
./pkg/ecco/cost_generic.F 248 COST_GENERIC 
                     localobs(i,j,k,bi,bj) = spval
./pkg/ecco/cost_generic.F 264 COST_GENERIC 
             do j = jmin,jmax
./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 277 COST_GENERIC 
             do j = jmin,jmax
./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 104 COST_GEOID 
      do j = jbeg,jend
./pkg/ecco/cost_geoid.F 107 COST_GEOID 
     I       geoid_covariancefile, reclength, j,
./pkg/ecco/cost_geoid.F 115 COST_GEOID 
         sphcost = sphcost + factor*shc(j)
./pkg/ecco/cost_geoid.F 62 COST_GEOID 
      integer i,j
./pkg/ecco/cost_kapgm.F 107 COST_KAPGM 
            do j = jmin,jmax
./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 107 COST_KAPREDI 
            do j = jmin,jmax
./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 113 COST_MEAN_HEATFLUX 
            do j = jmin,jmax
./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 113 COST_MEAN_SALTFLUX 
            do j = jmin,jmax
./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 160 COST_OBCS_AGEOS 
            do j = 1-oly,sny+oly
./pkg/ecco/cost_obcs_ageos.F 161 COST_OBCS_AGEOS 
              maskyzageos(j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 162 COST_OBCS_AGEOS 
              yzdvel1(j,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 163 COST_OBCS_AGEOS 
              yzdvel2(j,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 164 COST_OBCS_AGEOS 
              yzgrdrho(j,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 172 COST_OBCS_AGEOS 
          do j = 1-oly,sny+oly
./pkg/ecco/cost_obcs_ageos.F 174 COST_OBCS_AGEOS 
              rholoc(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 222 COST_OBCS_AGEOS 
                j = ob_jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 224 COST_OBCS_AGEOS 
                if (j .eq. 0) then
./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 251 COST_OBCS_AGEOS 
                j = ob_jn(i,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 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 289 COST_OBCS_AGEOS 
                j = ob_js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 290 COST_OBCS_AGEOS 
                if (j .eq. 0) then
./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 316 COST_OBCS_AGEOS 
                 j = ob_js(i,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 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 352 COST_OBCS_AGEOS 
              do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F 353 COST_OBCS_AGEOS 
                i = ob_iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 356 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) = 0.
./pkg/ecco/cost_obcs_ageos.F 358 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) =
./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 378 COST_OBCS_AGEOS 
              do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F 379 COST_OBCS_AGEOS 
                i = ob_iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 381 COST_OBCS_AGEOS 
                yzgrdrho(j,k,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 389 COST_OBCS_AGEOS 
              do j = jmin,jmax
./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 396 COST_OBCS_AGEOS 
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 397 COST_OBCS_AGEOS 
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 402 COST_OBCS_AGEOS 
     &           maskyzageos(j,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 403 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 404 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 415 COST_OBCS_AGEOS 
              do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F 416 COST_OBCS_AGEOS 
                i = ob_ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 418 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) =0.
./pkg/ecco/cost_obcs_ageos.F 421 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) =
./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 441 COST_OBCS_AGEOS 
              do j = jmin, jmax
./pkg/ecco/cost_obcs_ageos.F 442 COST_OBCS_AGEOS 
                i = ob_ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 444 COST_OBCS_AGEOS 
                yzgrdrho(j,k,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 452 COST_OBCS_AGEOS 
              do j = jmin,jmax
./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 459 COST_OBCS_AGEOS 
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 460 COST_OBCS_AGEOS 
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 465 COST_OBCS_AGEOS 
     &           maskyzageos(j,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 466 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 467 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 57 COST_OBCS_AGEOS 
      integer i,j,k
./pkg/ecco/cost_obcse.F 128 COST_OBCSE 
               do j = jmin,jmax
./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 165 COST_OBCSE 
               do j = jmin,jmax
./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 201 COST_OBCSE 
               do j = jmin,jmax
./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 238 COST_OBCSE 
               do j = jmin,jmax
./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 129 COST_OBCSN 
                  j = OB_Jn(I,bi,bj)
./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 166 COST_OBCSN 
                  j = OB_Jn(I,bi,bj)
./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 202 COST_OBCSN 
                  j = OB_Jn(I,bi,bj)
./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 239 COST_OBCSN 
                  j = OB_Jn(I,bi,bj)
./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 129 COST_OBCSS 
                  j = OB_Js(I,bi,bj)
./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 166 COST_OBCSS 
                  j = OB_Js(I,bi,bj)
./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 202 COST_OBCSS 
                  j = OB_Js(I,bi,bj)
./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 239 COST_OBCSS 
                  j = OB_Js(I,bi,bj)
./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 206 COST_OBCSVOL 
                  j = OB_Jn(I,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 248 COST_OBCSVOL 
                  j = OB_Js(I,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 290 COST_OBCSVOL 
                do j = jmin,jmax
./pkg/ecco/cost_obcsvol.F 291 COST_OBCSVOL 
                  i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcsvol.F 293 COST_OBCSVOL 
                  tmpy = tmpfldyz(j,1,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 333 COST_OBCSVOL 
                do j = jmin,jmax
./pkg/ecco/cost_obcsvol.F 334 COST_OBCSVOL 
                  i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcsvol.F 336 COST_OBCSVOL 
                  tmpy = tmpfldyz(j,1,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 128 COST_OBCSW 
               do j = jmin,jmax
./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 165 COST_OBCSW 
               do j = jmin,jmax
./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 201 COST_OBCSW 
               do j = jmin,jmax
./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 238 COST_OBCSW 
               do j = jmin,jmax
./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 90 COST_READARGOS 
               do j = jmin,jmax
./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 90 COST_READARGOT 
               do j = jmin,jmax
./pkg/ecco/cost_readargot.F 92 COST_READARGOT 
                     argotobs(i,j,k,bi,bj)=spval
./pkg/ecco/cost_readers.F 129 COST_READERS 
          do j = jmin,jmax
./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 129 COST_READGFO 
          do j = jmin,jmax
./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 125 COST_READSCATXFIELDS 
          do j = jmin,jmax
./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 152 COST_READSCATXFIELDS 
          do j = jmin,jmax
./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 123 COST_READSCATYFIELDS 
          do j = jmin,jmax
./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 150 COST_READSCATYFIELDS 
          do j = jmin,jmax
./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 127 COST_READTOPEX 
          do j = jmin,jmax
./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 76 COST_READTOPEXMEAN 
          do j = jmin,jmax
./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 133 COST_SALT 
                     do j = jmin,jmax
./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 177 COST_SALT 
              do j = jmin,jmax
./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 192 COST_SALT 
              do j = jmin,jmax
./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 116 COST_SALT0 
             do j = jmin,jmax
./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 156 COST_SALT0 
             do j = jmin,jmax
./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 106 COST_SALT_INI_FIN 
            do j = jmin,jmax
./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 133 COST_SCAT 
            do j = jmin,jmax
./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 161 COST_SCAT 
            do j = jmin,jmax
./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 181 COST_SCAT 
            do j = jmin,jmax
./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 134 COST_SLA_READ 
          do j = jmin,jmax
./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 118 COST_SLA_READ_YD 
          do j = jmin,jmax
./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 152 COST_SLA_READ_YD 
          do j = jmin,jmax
./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 104 COST_SSH 
      do j = jmin, jmax
./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 127 COST_SSH 
          do j = jmin,jmax
./pkg/ecco/cost_ssh.F 129 COST_SSH 
              psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh.F 148 COST_SSH 
            do j = jmin,jmax
./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 168 COST_SSH 
          do j = 1,sny
./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 205 COST_SSH 
          do j = 1,sny
./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 259 COST_SSH 
            do j = jmin,jmax
./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 286 COST_SSH 
            do j = jmin,jmax
./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 313 COST_SSH 
            do j = jmin,jmax
./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 119 COST_SSH_MEAN 
          do j = jmin,jmax
./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 138 COST_SSH_MEAN 
          do j = jmin,jmax
./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 158 COST_SSH_MEAN 
      do j = 1, latshc
./pkg/ecco/cost_ssh_mean.F 160 COST_SSH_MEAN 
          diffearth(i,j) = 0.
./pkg/ecco/cost_ssh_mean.F 186 COST_SSH_MEAN 
            do j = jmin,jmax
./pkg/ecco/cost_ssh_mean.F 188 COST_SSH_MEAN 
                jglobe = joffset+ j + sNy*(bj-1) + sNy*nSy*(ipy-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 236 COST_SSH_MEAN 
          do j = jmin,jmax
./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 264 COST_SSH_MEAN 
          do j = jmin,jmax
./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 130 COST_SSH_NEW 
          do j = jmin,jmax
./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 179 COST_SSH_NEW 
            do j = jmin,jmax
./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 217 COST_SSH_NEW 
            do j = jmin,jmax
./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 253 COST_SSH_NEW 
          do j = 1,sny
./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 290 COST_SSH_NEW 
          do j = 1,sny
./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 342 COST_SSH_NEW 
            do j = jmin,jmax
./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 371 COST_SSH_NEW 
            do j = jmin,jmax
./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 400 COST_SSH_NEW 
            do j = jmin,jmax
./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 188 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 190 COST_SSHV4 
              mean_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 191 COST_SSHV4 
              mean_slaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 216 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 219 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 220 COST_SSHV4 
     &    wsshv4(i,j,2,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 221 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 222 COST_SSHV4 
     &  tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 223 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 227 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 228 COST_SSHV4 
     &    wsshv4(i,j,3,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 229 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 230 COST_SSHV4 
     &  ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 231 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 235 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*tpmeanmask(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 236 COST_SSHV4 
     &    wsshv4(i,j,4,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 237 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 238 COST_SSHV4 
     &  gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 239 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 252 COST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 254 COST_SSHV4 
               if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 255 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 256 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_sshv4.F 257 COST_SSHV4 
     &              ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 258 COST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = mean_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 259 COST_SSHV4 
     &                 mean_slaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 261 COST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 285 COST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 287 COST_SSHV4 
               if ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 288 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 289 COST_SSHV4 
                  tpmean(i,j,bi,bj) = tpmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 290 COST_SSHV4 
     &                 -mean_slaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 309 COST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 312 COST_SSHV4 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_sshv4.F 313 COST_SSHV4 
              mean_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 314 COST_SSHV4 
              mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 315 COST_SSHV4 
              mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 316 COST_SSHV4 
              mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 317 COST_SSHV4 
              mean_slaobs2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 319 COST_SSHV4 
              mean_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 320 COST_SSHV4 
              mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 321 COST_SSHV4 
              mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 322 COST_SSHV4 
              mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 324 COST_SSHV4 
              mean_psMtpobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 325 COST_SSHV4 
              mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 326 COST_SSHV4 
              mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 363 COST_SSHV4 
            do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 365 COST_SSHV4 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 366 COST_SSHV4 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_sshv4.F 368 COST_SSHV4 
                if ( tpmask(i,j,bi,bj)*wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F 370 COST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 371 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 372 COST_SSHV4 
                   mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 373 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 374 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 375 COST_SSHV4 
                   mean_psMtpobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 376 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 380 COST_SSHV4 
                if ( ersmask(i,j,bi,bj)*wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F 382 COST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 383 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 384 COST_SSHV4 
                   mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 385 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 386 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 387 COST_SSHV4 
                   mean_psMersobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 388 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 392 COST_SSHV4 
                if ( gfomask(i,j,bi,bj)*wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F 394 COST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 395 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 396 COST_SSHV4 
                   mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 397 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 398 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 399 COST_SSHV4 
                   mean_psMgfoobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 400 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 413 COST_SSHV4 
            do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 416 COST_SSHV4 
               if ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 417 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 418 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 419 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 420 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 421 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 422 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 423 COST_SSHV4 
                  mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 424 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 425 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 426 COST_SSHV4 
                  mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 430 COST_SSHV4 
               if ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 431 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 432 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 433 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 434 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 435 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 436 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 437 COST_SSHV4 
                  mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 438 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 439 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 440 COST_SSHV4 
                  mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 444 COST_SSHV4 
               if ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 445 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 446 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 447 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 448 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 449 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 450 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 451 COST_SSHV4 
                  mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 452 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 453 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 454 COST_SSHV4 
                  mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 457 COST_SSHV4 
               if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 458 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 459 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_sshv4.F 460 COST_SSHV4 
     &              ( tpmeanmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 461 COST_SSHV4 
                  mean_slaobs2(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 462 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 463 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 464 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 465 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 466 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)-tpmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 467 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 468 COST_SSHV4 
                  offset=offset+mean_psMssh_all(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 469 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 470 COST_SSHV4 
                  offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 472 COST_SSHV4 
                  mean_slaobs2(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_sshv4.F 473 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 474 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 507 COST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 510 COST_SSHV4 
               if ( (mean_psMssh_all_MSK(i,j,bi,bj) .NE. 0.) .AND.
./pkg/ecco/cost_sshv4.F 511 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 512 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then
./pkg/ecco/cost_sshv4.F 514 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 515 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) - offset
./pkg/ecco/cost_sshv4.F 516 COST_SSHV4 
               elseif ( ( tpmeanmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 517 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 518 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then
./pkg/ecco/cost_sshv4.F 520 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 521 COST_SSHV4 
     &             psmean(i,j,bi,bj) -tpmean(i,j,bi,bj) - offset
./pkg/ecco/cost_sshv4.F 523 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 526 COST_SSHV4 
               if ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_sshv4.F 527 COST_SSHV4 
     &            psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset
./pkg/ecco/cost_sshv4.F 565 COST_SSHV4 
          do j = 1,sny
./pkg/ecco/cost_sshv4.F 567 COST_SSHV4 
              prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 585 COST_SSHV4 
          do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 587 COST_SSHV4 
       junk = mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 589 COST_SSHV4 
     &      *wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 590 COST_SSHV4 
       if ( wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_sshv4.F 592 COST_SSHV4 
       diagnosfld(i,j,bi,bj) = junk*junk
./pkg/ecco/cost_sshv4.F 593 COST_SSHV4 
     &      * wsshv4(i,j,1,bi,bj)*tpmeanmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 618 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 620 COST_SSHV4 
              anom_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 621 COST_SSHV4 
              anom_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 622 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 623 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 624 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 625 COST_SSHV4 
              anom_psMslaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 626 COST_SSHV4 
              anom_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 627 COST_SSHV4 
              anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 628 COST_SSHV4 
              anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 666 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 669 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 66 COST_SSHV4 
      integer i,j
./pkg/ecco/cost_sshv4.F 671 COST_SSHV4 
           anom_psMtpobs(i,j,bi,bj)= anom_psMtpobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 672 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 673 COST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 674 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 675 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 676 COST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 677 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 678 COST_SSHV4 
     &        tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 679 COST_SSHV4 
           anom_psMtpobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 680 COST_SSHV4 
     &        anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 681 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 682 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 686 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 688 COST_SSHV4 
           anom_psMersobs(i,j,bi,bj)= anom_psMersobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 689 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 690 COST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 691 COST_SSHV4 
           anom_psMersobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 692 COST_SSHV4 
     &        anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 693 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 694 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 695 COST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 696 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 697 COST_SSHV4 
     &        ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 698 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 699 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 703 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 705 COST_SSHV4 
           anom_psMgfoobs(i,j,bi,bj)= anom_psMgfoobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 706 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 707 COST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 708 COST_SSHV4 
           anom_psMgfoobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 709 COST_SSHV4 
     &        anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 710 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 711 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 712 COST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 713 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 714 COST_SSHV4 
     &        gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 715 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 716 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 728 COST_SSHV4 
            do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 731 COST_SSHV4 
               if ( anom_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 732 COST_SSHV4 
                  anom_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 733 COST_SSHV4 
     &                 anom_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 734 COST_SSHV4 
     &                 anom_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 738 COST_SSHV4 
               if ( anom_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 739 COST_SSHV4 
                  anom_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 740 COST_SSHV4 
     &                 anom_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 741 COST_SSHV4 
     &                 anom_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 745 COST_SSHV4 
               if ( anom_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 746 COST_SSHV4 
                  anom_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 747 COST_SSHV4 
     &                 anom_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 748 COST_SSHV4 
     &                 anom_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 751 COST_SSHV4 
               if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 752 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 753 COST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 754 COST_SSHV4 
     &                 anom_psMslaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 755 COST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 756 COST_SSHV4 
                  anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 757 COST_SSHV4 
     &                 anom_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 758 COST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 760 COST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 761 COST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 802 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 807 COST_SSHV4 
          junk = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 809 COST_SSHV4 
     &    + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj)
./pkg/ecco/cost_sshv4.F 811 COST_SSHV4 
          if ( (wsshv4(i,j,5,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F 812 COST_SSHV4 
     &         (anom_psMslaobs_NUM(i,j,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F 813 COST_SSHV4 
     &         (maskc(i,j,1,bi,bj) .ne. 0.) )
./pkg/ecco/cost_sshv4.F 848 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 850 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 851 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 852 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 853 COST_SSHV4 
              anom_tpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 854 COST_SSHV4 
              anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 855 COST_SSHV4 
              anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 863 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 866 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 868 COST_SSHV4 
         anom_psMtpobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 869 COST_SSHV4 
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 870 COST_SSHV4 
     &       - mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 871 COST_SSHV4 
         anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 875 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 877 COST_SSHV4 
         anom_psMersobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 878 COST_SSHV4 
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 879 COST_SSHV4 
     &       - mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 880 COST_SSHV4 
         anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 884 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 886 COST_SSHV4 
         anom_psMgfoobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 887 COST_SSHV4 
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 888 COST_SSHV4 
     &       - mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 889 COST_SSHV4 
         anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 921 COST_SSHV4 
         do j = jmin,jmax
./pkg/ecco/cost_sshv4.F 925 COST_SSHV4 
                junkweight = mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 926 COST_SSHV4 
     &                      *wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F 927 COST_SSHV4 
     &                      *tpmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 928 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 929 COST_SSHV4 
                junk = anom_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 939 COST_SSHV4 
                junkweight = mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 940 COST_SSHV4 
     &                      *wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F 941 COST_SSHV4 
     &                      *ersmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 942 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 943 COST_SSHV4 
                junk = anom_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 953 COST_SSHV4 
                junkweight = mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 954 COST_SSHV4 
     &                      *wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F 955 COST_SSHV4 
     &                      *gfomask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 956 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 957 COST_SSHV4 
                junk = anom_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F 110 COST_TAU_EDDY 
            do j = jmin,jmax
./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 145 COST_TAU_EDDY 
            do j = jmin,jmax
./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 230 COST_TAU_EDDY 
        do j=1,sNy
./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 132 COST_THETA 
                     do j = jmin,jmax
./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 176 COST_THETA 
              do j = jmin,jmax
./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 191 COST_THETA 
              do j = jmin,jmax
./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 116 COST_THETA0 
             do j = jmin,jmax
./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 156 COST_THETA0 
             do j = jmin,jmax
./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 106 COST_THETA_INI_FIN 
            do j = jmin,jmax
./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 194 COST_TRANS_MERID 
              do j = jmin,jmax
./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 183 COST_TRANS_ZONAL 
              do j = jmin,jmax
./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 161 COST_XBT 
              do j = jmin,jmax
./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 181 COST_XBT 
              do j = jmin,jmax
./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 112 ECCO_COST_INIT_BARFILES 
          do j = jmin,jmax
./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 122 ECCO_COST_INIT_BARFILES 
            do j = jmin,jmax
./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 136 ECCO_COST_INIT_BARFILES 
            do j = jmin,jmax
./pkg/ecco/ecco_cost_init_barfiles.F 137 ECCO_COST_INIT_BARFILES 
              tmpfldyz (j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 138 ECCO_COST_INIT_BARFILES 
              tmpfldyz2(j,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 225 ECCO_COST_INIT_VARIA 
          do j = jmin,jmax
./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 1024 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1059 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1093 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1128 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 115 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F 1160 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 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 1192 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1224 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1256 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1288 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1320 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1353 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1385 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1418 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1442 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 1465 ECCO_COST_WEIGHTS 
           do j = jmin,jmax
./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 1489 ECCO_COST_WEIGHTS 
           do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./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 1513 ECCO_COST_WEIGHTS 
           do j = jmin,jmax
./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 1537 ECCO_COST_WEIGHTS 
           do j = jmin,jmax
./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 1562 ECCO_COST_WEIGHTS 
           do j = jmin,jmax
./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 1581 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 172 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 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 1852 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 222 ECCO_COST_WEIGHTS 
      do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F 229 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 243 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F 247 ECCO_COST_WEIGHTS 
              cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 347 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 365 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 388 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 406 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 434 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 453 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 481 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 500 ECCO_COST_WEIGHTS 
            do j = jmin,jmax
./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 531 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 596 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 614 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F 616 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 634 ECCO_COST_WEIGHTS 
           do j = jmin,jmax
./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 673 ECCO_COST_WEIGHTS 
           do j = jmin,jmax
./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 710 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 739 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 750 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./pkg/ecco/ecco_cost_weights.F 752 ECCO_COST_WEIGHTS 
              wsshv4tmp(i,j,bi,bj)=0. _d 0
./pkg/ecco/ecco_cost_weights.F 761 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 787 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 813 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 849 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 883 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 922 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 953 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 992 ECCO_COST_WEIGHTS 
          do j = jmin,jmax
./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 105 EXCH2_CHECK_DEPTHS 
         DO j=1,sNy
./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 64 EXCH2_CHECK_DEPTHS 
         DO j=1,sNy
./pkg/exch2/exch2_check_depths.F 65 EXCH2_CHECK_DEPTHS 
           tmpFld(0,j) = rHigh( 1 ,j,bi,bj) - rLow( 1 ,j,bi,bj)
./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 68 EXCH2_CHECK_DEPTHS 
         j = sNy+1
./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 77 EXCH2_CHECK_DEPTHS 
          DO j=exch2_jLo(n,tId),exch2_jHi(n,tId)
./pkg/exch2/exch2_check_depths.F 79 EXCH2_CHECK_DEPTHS 
            tmpFld(i,j) = 0.
./pkg/exch2/exch2_check_depths.F 86 EXCH2_CHECK_DEPTHS 
         j = sNy+1
./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 92 EXCH2_CHECK_DEPTHS 
         j = 0
./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 99 EXCH2_CHECK_DEPTHS 
         DO j=1,sNy
./pkg/exch2/w2_e2setup.F 43 W2_E2SETUP 
      INTEGER i, j, k
./pkg/exch2/w2_e2setup.F 51 W2_E2SETUP 
      DO j=1,W2_maxNbFacets
./pkg/exch2/w2_e2setup.F 52 W2_E2SETUP 
        facet_owns(1,j) = 0
./pkg/exch2/w2_e2setup.F 53 W2_E2SETUP 
        facet_owns(2,j) = 0
./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 68 W2_E2SETUP 
         DO j=1,nBlankTiles
./pkg/exch2/w2_e2setup.F 69 W2_E2SETUP 
          IF ( blankList(i).EQ.blankList(j) ) THEN
./pkg/exch2/w2_e2setup.F 73 W2_E2SETUP 
     &     ' appears several times in blankList (',j,i,')'
./pkg/exch2/w2_print_e2setup.F 130 W2_PRINT_E2SETUP 
            j  = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F 140 W2_PRINT_E2SETUP 
     &      '  ', edge(i), '.Edge Facet', j, ' <-- ',
./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 73 W2_PRINT_E2SETUP 
            j  = exch2_myFace(ip(i))
./pkg/exch2/w2_print_e2setup.F 83 W2_PRINT_E2SETUP 
     &      '  ', edge(i), '.Edge Facet', j, ' <-- ',
./pkg/exch2/w2_readparms.F 135 W2_READPARMS 
      DO j=1,2*W2_maxNbFacets
./pkg/exch2/w2_readparms.F 137 W2_READPARMS 
        facet_dims(j) = dimsFacets(j)
./pkg/exch2/w2_readparms.F 139 W2_READPARMS 
      DO j=1,W2_maxNbFacets
./pkg/exch2/w2_readparms.F 141 W2_READPARMS 
        facet_link(i,j) = facetEdgeLink(i,j)
./pkg/exch2/w2_readparms.F 147 W2_READPARMS 
      DO j=W2_maxNbFacets+1,namList_NbFacets
./pkg/exch2/w2_readparms.F 150 W2_READPARMS 
        IF ( facetEdgeLink(i,j).NE.0. ) errFlag = .TRUE.
./pkg/exch2/w2_readparms.F 167 W2_READPARMS 
      DO j=2*W2_maxNbFacets+1,2*namList_NbFacets
./pkg/exch2/w2_readparms.F 168 W2_READPARMS 
        IF ( dimsFacets(j).NE.0 ) errCnt = errCnt + 1
./pkg/exch2/w2_readparms.F 37 W2_READPARMS 
      INTEGER i, j, iUnit, stdUnit, errCnt
./pkg/exch2/w2_readparms.F 79 W2_READPARMS 
      DO j=1,W2_maxNbFacets*2
./pkg/exch2/w2_readparms.F 80 W2_READPARMS 
        dimsFacets(2*j-1) = 0
./pkg/exch2/w2_readparms.F 81 W2_READPARMS 
        dimsFacets( 2*j ) = 0
./pkg/exch2/w2_readparms.F 83 W2_READPARMS 
          facetEdgeLink(i,j) = 0.
./pkg/exch2/w2_readparms.F 91 W2_READPARMS 
      DO j=1,W2_maxNbFacets
./pkg/exch2/w2_readparms.F 92 W2_READPARMS 
        facet_dims(2*j-1) = 0
./pkg/exch2/w2_readparms.F 93 W2_READPARMS 
        facet_dims( 2*j ) = 0
./pkg/exch2/w2_readparms.F 95 W2_READPARMS 
          facet_link(i,j) = 0.
./pkg/exch2/w2_set_cs6_facets.F 142 W2_SET_CS6_FACETS 
        DO j=2,nFacets
./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 174 W2_SET_CS6_FACETS 
        DO j=1,nFacets
./pkg/exch2/w2_set_cs6_facets.F 175 W2_SET_CS6_FACETS 
         IF ( facet_dims(2*j-1)*facet_dims(2*j).EQ.0 ) THEN
./pkg/exch2/w2_set_cs6_facets.F 177 W2_SET_CS6_FACETS 
     &        ' facets #', j, ' , x-size=', facet_dims(2*j-1),
./pkg/exch2/w2_set_cs6_facets.F 178 W2_SET_CS6_FACETS 
     &                        ' , y-size=', facet_dims(2*j)
./pkg/exch2/w2_set_cs6_facets.F 40 W2_SET_CS6_FACETS 
      INTEGER i, j, ii, jj, lo, ll
./pkg/exch2/w2_set_cs6_facets.F 62 W2_SET_CS6_FACETS 
      DO j=1,nFacets
./pkg/exch2/w2_set_cs6_facets.F 63 W2_SET_CS6_FACETS 
       IF ( MOD(j,2).EQ.1 ) THEN
./pkg/exch2/w2_set_cs6_facets.F 64 W2_SET_CS6_FACETS 
         jj = j+2
./pkg/exch2/w2_set_cs6_facets.F 65 W2_SET_CS6_FACETS 
         facet_link(1,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 66 W2_SET_CS6_FACETS 
         jj = j-1
./pkg/exch2/w2_set_cs6_facets.F 67 W2_SET_CS6_FACETS 
         facet_link(2,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 68 W2_SET_CS6_FACETS 
         jj = j+1
./pkg/exch2/w2_set_cs6_facets.F 69 W2_SET_CS6_FACETS 
         facet_link(3,j) = 0.4 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 70 W2_SET_CS6_FACETS 
         jj = j-2
./pkg/exch2/w2_set_cs6_facets.F 71 W2_SET_CS6_FACETS 
         facet_link(4,j) = 0.1 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 73 W2_SET_CS6_FACETS 
         jj = j+1
./pkg/exch2/w2_set_cs6_facets.F 74 W2_SET_CS6_FACETS 
         facet_link(1,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 75 W2_SET_CS6_FACETS 
         jj = j-2
./pkg/exch2/w2_set_cs6_facets.F 76 W2_SET_CS6_FACETS 
         facet_link(2,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 77 W2_SET_CS6_FACETS 
         jj = j+2
./pkg/exch2/w2_set_cs6_facets.F 78 W2_SET_CS6_FACETS 
         facet_link(3,j) = 0.2 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 79 W2_SET_CS6_FACETS 
         jj = j-1
./pkg/exch2/w2_set_cs6_facets.F 80 W2_SET_CS6_FACETS 
         facet_link(4,j) = 0.3 + FLOAT( 1+MOD(jj+5,6) )
./pkg/exch2/w2_set_cs6_facets.F 88 W2_SET_CS6_FACETS 
      DO j=4,W2_maxNbFacets*2
./pkg/exch2/w2_set_cs6_facets.F 89 W2_SET_CS6_FACETS 
        IF ( facet_dims(j).NE.0 ) THEN
./pkg/exch2/w2_set_f2f_index.F 102 W2_SET_F2F_INDEX 
      DO j=1,nFacets
./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 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 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 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 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 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 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 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 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 219 W2_SET_F2F_INDEX 
      DO j=1,nFacets
./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 52 W2_SET_F2F_INDEX 
      DO j=1,nFacets
./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 60 W2_SET_F2F_INDEX 
     &        j, ' disconnected (facet_link=',facet_link(i,j),')'
./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 
         j = (jj+1)/2
./pkg/exch2/w2_set_gen_facets.F 102 W2_SET_GEN_FACETS 
     &     ' of facet', j, ' =', facet_dims(jj), ' : invalid (< 0)'
./pkg/exch2/w2_set_gen_facets.F 115 W2_SET_GEN_FACETS 
      DO j=nFacets+1,W2_maxNbFacets
./pkg/exch2/w2_set_gen_facets.F 117 W2_SET_GEN_FACETS 
        IF ( facet_link(i,j).NE.0 ) THEN
./pkg/exch2/w2_set_gen_facets.F 120 W2_SET_GEN_FACETS 
     &       'Link for ',edge(i), '.Edge of facet #',j,
./pkg/exch2/w2_set_gen_facets.F 121 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 52 W2_SET_GEN_FACETS 
      DO j=1,W2_maxNbFacets
./pkg/exch2/w2_set_gen_facets.F 53 W2_SET_GEN_FACETS 
        fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_gen_facets.F 54 W2_SET_GEN_FACETS 
        fNy = facet_dims( 2*j )
./pkg/exch2/w2_set_gen_facets.F 57 W2_SET_GEN_FACETS 
          nFacets = j
./pkg/exch2/w2_set_gen_facets.F 61 W2_SET_GEN_FACETS 
     &      'dimsFacets: Expect pair of >0 dims : facet',j,
./pkg/exch2/w2_set_map_tiles.F 108 W2_SET_MAP_TILES 
        DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F 109 W2_SET_MAP_TILES 
          nnx(j) = facet_dims(2*j-1)/tNx
./pkg/exch2/w2_set_map_tiles.F 122 W2_SET_MAP_TILES 
      DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F 123 W2_SET_MAP_TILES 
        exch2_xStack_Nx =   exch2_xStack_Nx + facet_dims(2*j-1)
./pkg/exch2/w2_set_map_tiles.F 124 W2_SET_MAP_TILES 
        exch2_xStack_Ny = MAX( exch2_xStack_Ny, facet_dims(2*j) )
./pkg/exch2/w2_set_map_tiles.F 129 W2_SET_MAP_TILES 
      DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F 130 W2_SET_MAP_TILES 
        exch2_yStack_Nx = MAX( exch2_yStack_Nx, facet_dims(2*j-1) )
./pkg/exch2/w2_set_map_tiles.F 131 W2_SET_MAP_TILES 
        exch2_yStack_Ny =   exch2_yStack_Ny + facet_dims(2*j)
./pkg/exch2/w2_set_map_tiles.F 155 W2_SET_MAP_TILES 
      DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F 156 W2_SET_MAP_TILES 
        fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_map_tiles.F 157 W2_SET_MAP_TILES 
        fNy = facet_dims( 2*j )
./pkg/exch2/w2_set_map_tiles.F 161 W2_SET_MAP_TILES 
     &    '- facet', j, ' : X-size=', fNx, ' , Y-size=', fNy,
./pkg/exch2/w2_set_map_tiles.F 172 W2_SET_MAP_TILES 
          IF ( tileIsActive ) exch2_myFace(tId) = j
./pkg/exch2/w2_set_map_tiles.F 240 W2_SET_MAP_TILES 
      INTEGER j, ii
./pkg/exch2/w2_set_map_tiles.F 248 W2_SET_MAP_TILES 
      DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F 249 W2_SET_MAP_TILES 
        mnFld = MIN( mnFld, fldList(j) )
./pkg/exch2/w2_set_map_tiles.F 259 W2_SET_MAP_TILES 
          DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F 260 W2_SET_MAP_TILES 
            flag = flag.AND.(MOD(fldList(j),ii).EQ.0 )
./pkg/exch2/w2_set_map_tiles.F 264 W2_SET_MAP_TILES 
            DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F 265 W2_SET_MAP_TILES 
              fldList(j) = fldList(j)/ii
./pkg/exch2/w2_set_map_tiles.F 276 W2_SET_MAP_TILES 
        IF (localDBg) WRITE(0,'(10I8)') (fldList(j),j=1,nFld)
./pkg/exch2/w2_set_map_tiles.F 277 W2_SET_MAP_TILES 
        DO j=1,nFld
./pkg/exch2/w2_set_map_tiles.F 278 W2_SET_MAP_TILES 
          fldList(j) = fldList(j)*divide
./pkg/exch2/w2_set_map_tiles.F 47 W2_SET_MAP_TILES 
      INTEGER j, ii, k, tId, tx, ty
./pkg/exch2/w2_set_map_tiles.F 66 W2_SET_MAP_TILES 
      DO j=1,nFacets
./pkg/exch2/w2_set_map_tiles.F 67 W2_SET_MAP_TILES 
        fNx = facet_dims(2*j-1)
./pkg/exch2/w2_set_map_tiles.F 68 W2_SET_MAP_TILES 
        fNy = facet_dims( 2*j )
./pkg/exch2/w2_set_map_tiles.F 72 W2_SET_MAP_TILES 
          WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j,
./pkg/exch2/w2_set_map_tiles.F 78 W2_SET_MAP_TILES 
          WRITE(msgBuf,'(A,I3,2(A,I7))') 'Facet',j,
./pkg/exch2/w2_set_map_tiles.F 83 W2_SET_MAP_TILES 
        facet_owns(1,j) = tCnt+1
./pkg/exch2/w2_set_map_tiles.F 85 W2_SET_MAP_TILES 
        facet_owns(2,j) = tCnt
./pkg/exch2/w2_set_single_facet.F 36 W2_SET_SINGLE_FACET 
      INTEGER j
./pkg/exch2/w2_set_single_facet.F 71 W2_SET_SINGLE_FACET 
      DO j=3,W2_maxNbFacets*2
./pkg/exch2/w2_set_single_facet.F 72 W2_SET_SINGLE_FACET 
       IF ( facet_dims(j).NE.0 ) THEN
./pkg/exf/exf_bulkformulae.F 175 EXF_BULKFORMULAE 
      INTEGER i,j,bi,bj
./pkg/exf/exf_bulkformulae.F 252 EXF_BULKFORMULAE 
        DO j = 1,sNy
./pkg/exf/exf_bulkformulae.F 265 EXF_BULKFORMULAE 
     &         + sNx*(j-1)
./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 
            rdn(i,j)   = 0. _d 0
./pkg/exf/exf_bulkformulae.F 316 EXF_BULKFORMULAE 
            windStress = wStress(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 317 EXF_BULKFORMULAE 
            ustar(i,j) = sqrt(windStress/atmrho)
./pkg/exf/exf_bulkformulae.F 319 EXF_BULKFORMULAE 
            tau(i,j)   = sqrt(windStress*atmrho)
./pkg/exf/exf_bulkformulae.F 327 EXF_BULKFORMULAE 
           tstar(i,j)=rhn*deltap(i,j)
./pkg/exf/exf_bulkformulae.F 328 EXF_BULKFORMULAE 
           qstar(i,j)=ren*delq(i,j)
./pkg/exf/exf_bulkformulae.F 332 EXF_BULKFORMULAE 
           tstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 333 EXF_BULKFORMULAE 
           qstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 334 EXF_BULKFORMULAE 
           ustar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 335 EXF_BULKFORMULAE 
           tau   (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 336 EXF_BULKFORMULAE 
           rdn   (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 341 EXF_BULKFORMULAE 
         DO j = 1,sNy
./pkg/exf/exf_bulkformulae.F 343 EXF_BULKFORMULAE 
           IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 348 EXF_BULKFORMULAE 
     &           + sNx*(j-1)
./pkg/exf/exf_bulkformulae.F 362 EXF_BULKFORMULAE 
            t0   = atemp(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 363 EXF_BULKFORMULAE 
     &           (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 364 EXF_BULKFORMULAE 
            huol = ( tstar(i,j)/t0 +
./pkg/exf/exf_bulkformulae.F 365 EXF_BULKFORMULAE 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 366 EXF_BULKFORMULAE 
     &              )*czol/(ustar(i,j)*ustar(i,j))
./pkg/exf/exf_bulkformulae.F 417 EXF_BULKFORMULAE 
             usn   = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp )
./pkg/exf/exf_bulkformulae.F 424 EXF_BULKFORMULAE 
             usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 431 EXF_BULKFORMULAE 
             rdn(i,j)   = SQRT(tmpbulk)
./pkg/exf/exf_bulkformulae.F 433 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one + rdn(i,j)*dzTmp)
./pkg/exf/exf_bulkformulae.F 435 EXF_BULKFORMULAE 
             rd(i,j)    = rdn(i,j)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 437 EXF_BULKFORMULAE 
             ustar(i,j) = rd(i,j)*sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 439 EXF_BULKFORMULAE 
             tau(i,j)   = atmrho*rd(i,j)*wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 453 EXF_BULKFORMULAE 
            qstar(i,j) = re*delq(i,j)
./pkg/exf/exf_bulkformulae.F 454 EXF_BULKFORMULAE 
            tstar(i,j) = rh*deltap(i,j)
./pkg/exf/exf_bulkformulae.F 461 EXF_BULKFORMULAE 
        DO j = 1,sNy
./pkg/exf/exf_bulkformulae.F 463 EXF_BULKFORMULAE 
          IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 467 EXF_BULKFORMULAE 
     &          + sNx*(j-1)
./pkg/exf/exf_bulkformulae.F 479 EXF_BULKFORMULAE 
           hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j)
./pkg/exf/exf_bulkformulae.F 480 EXF_BULKFORMULAE 
           hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j)
./pkg/exf/exf_bulkformulae.F 484 EXF_BULKFORMULAE 
           evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j)
./pkg/exf/exf_bulkformulae.F 494 EXF_BULKFORMULAE 
           tmpbulk =  tau(i,j)*rd(i,j)
./pkg/exf/exf_bulkformulae.F 495 EXF_BULKFORMULAE 
           ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 496 EXF_BULKFORMULAE 
           vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 502 EXF_BULKFORMULAE 
           ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 503 EXF_BULKFORMULAE 
           vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 505 EXF_BULKFORMULAE 
           hflux  (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 506 EXF_BULKFORMULAE 
           evap   (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 507 EXF_BULKFORMULAE 
           hs     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 508 EXF_BULKFORMULAE 
           hl     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 515 EXF_BULKFORMULAE 
          wsm     = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 518 EXF_BULKFORMULAE 
          ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 519 EXF_BULKFORMULAE 
     &                         uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 520 EXF_BULKFORMULAE 
          vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 521 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 75 EXF_CHECK_RANGE 
        do j = jmin,jmax
./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 77 EXF_FILTER_RL 
            do j = 1,sny
./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 87 EXF_FILTER_RL 
            do j = 1,sny
./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 97 EXF_FILTER_RL 
            do j = 1,sny
./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 77 EXF_FILTER_RS 
            do j = 1,sny
./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 87 EXF_FILTER_RS 
            do j = 1,sny
./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 97 EXF_FILTER_RS 
            do j = 1,sny
./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 149 EXF_GETCLIM 
         DO j=1-oLy,sNy+oLy
./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 85 EXF_GETCLIM 
        do j = 1,sny
./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 139 EXF_GETFFIELDS 
         do j = 1,sny
./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 192 EXF_GETFFIELDS 
        do j = 1,sny
./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 471 EXF_GETFFIELDS 
          do j = 1-oly,sny+oly
./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 499 EXF_GETFFIELDS 
          do j = 1,sny
./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 200 EXF_GETFORCING 
          do j = 1,sny
./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 265 EXF_GETFORCING 
        do j = 1-oLy,sNy+oLy
./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 108 EXF_GETSURFACEFLUXES 
          do j = 1-oly,sny+oly
./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 145 EXF_GETSURFACEFLUXES 
          do j = 1-oly,sny+oly
./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 378 EXF_INIT 
         DO j=1-oLy,sNy+oLy
./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 51 EXF_INIT 
        DO j=1-Oly,sNy+Oly
./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 113 EXF_INTERP 
        do j=1-OLy,sNy+OLy
./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 137 EXF_INTERP 
      do j=2,ny_in
./pkg/exf/exf_interp.F 138 EXF_INTERP 
       y_in(j) = y_in(j-1) + lat_inc(j-1)
./pkg/exf/exf_interp.F 140 EXF_INTERP 
      do j=ny_in+1,ny_in+2
./pkg/exf/exf_interp.F 141 EXF_INTERP 
       if (y_in(j-1).eq.ninety) then
./pkg/exf/exf_interp.F 142 EXF_INTERP 
        y_in(j) = 2 * ninety - y_in(j-2)
./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 150 EXF_INTERP 
      do j=1,ny_in
./pkg/exf/exf_interp.F 151 EXF_INTERP 
       arrayin(0,j)       = arrayin(nx_in,j)
./pkg/exf/exf_interp.F 152 EXF_INTERP 
       arrayin(-1,j)      = arrayin(nx_in-1,j)
./pkg/exf/exf_interp.F 153 EXF_INTERP 
       arrayin(nx_in+1,j) = arrayin(1,j)
./pkg/exf/exf_interp.F 154 EXF_INTERP 
       arrayin(nx_in+2,j) = arrayin(2,j)
./pkg/exf/exf_interp.F 169 EXF_INTERP 
      do j=ny_in,ny_in+2
./pkg/exf/exf_interp.F 170 EXF_INTERP 
       if (y_in(j).eq.ninety) then
./pkg/exf/exf_interp.F 174 EXF_INTERP 
          NorthValue = NorthValue + arrayin(i,j)
./pkg/exf/exf_interp.F 178 EXF_INTERP 
          arrayin(i,j) = NorthValue
./pkg/exf/exf_interp.F 182 EXF_INTERP 
          arrayin(i,j) = 0.
./pkg/exf/exf_interp.F 194 EXF_INTERP 
         do j=1,sny
./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 215 EXF_INTERP 
        do j=1,sny
./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 228 EXF_INTERP 
        do j=1,sny
./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 245 EXF_INTERP 
        do j=1,sny
./pkg/exf/exf_interp.F 247 EXF_INTERP 
          s_ind(i,j) = ny_in*.5
./pkg/exf/exf_interp.F 250 EXF_INTERP 
          inx(icnt,2) = j
./pkg/exf/exf_interp.F 258 EXF_INTERP 
          j = inx(ic,2)
./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 263 EXF_INTERP 
           inx(ii,2) = j
./pkg/exf/exf_interp.F 269 EXF_INTERP 
        do j=1,sny
./pkg/exf/exf_interp.F 273 EXF_INTERP 
          inx(icnt,2) = j
./pkg/exf/exf_interp.F 281 EXF_INTERP 
          j = inx(ic,2)
./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 286 EXF_INTERP 
           inx(ii,2) = j
./pkg/exf/exf_interp.F 292 EXF_INTERP 
        do j=1,sny
./pkg/exf/exf_interp.F 294 EXF_INTERP 
          n_ind(i,j) = s_ind(i,j) + 1
./pkg/exf/exf_interp.F 302 EXF_INTERP 
         do j=1,sny
./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 337 EXF_INTERP 
         do j=1,sny
./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 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 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 192 EXF_INTERP_READ 
        DO j=1,ny_in
./pkg/exf/exf_interp_read.F 194 EXF_INTERP_READ 
            arrayin(i,j)=glPtr4(i,j)
./pkg/exf/exf_interp_read.F 198 EXF_INTERP_READ 
        DO j=1,ny_in
./pkg/exf/exf_interp_read.F 200 EXF_INTERP_READ 
            arrayin(i,j)=glPtr8(i,j)
./pkg/exf/exf_interp_read.F 206 EXF_INTERP_READ 
        DO j=1,ny_in
./pkg/exf/exf_interp_read.F 208 EXF_INTERP_READ 
            arrayin(i,j)=buffer_r4(i,j)
./pkg/exf/exf_interp_read.F 212 EXF_INTERP_READ 
        DO j=1,ny_in
./pkg/exf/exf_interp_read.F 214 EXF_INTERP_READ 
            arrayin(i,j)=buffer_r8(i,j)
./pkg/exf/exf_interp_read.F 221 EXF_INTERP_READ 
        DO j=1,ny_in
./pkg/exf/exf_interp_read.F 222 EXF_INTERP_READ 
          ijs = (j-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 228 EXF_INTERP_READ 
        DO j=1,ny_in
./pkg/exf/exf_interp_read.F 229 EXF_INTERP_READ 
          ijs = (j-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 104 EXF_MAPFIELDS 
           do j = jmin,jmax
./pkg/exf/exf_mapfields.F 106 EXF_MAPFIELDS 
                  qnet(i,j,bi,bj) = qnet(i,j,bi,bj) -
./pkg/exf/exf_mapfields.F 114 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 121 EXF_MAPFIELDS 
           do j = jmin,jmax
./pkg/exf/exf_mapfields.F 123 EXF_MAPFIELDS 
                 EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh*
./pkg/exf/exf_mapfields.F 133 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 144 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 152 EXF_MAPFIELDS 
           do j = jmin,jmax
./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 158 EXF_MAPFIELDS 
           do j = jmin,jmax
./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 171 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 182 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 190 EXF_MAPFIELDS 
           do j = jmin+1,jmax
./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 196 EXF_MAPFIELDS 
           do j = jmin+1,jmax
./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 208 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 216 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 224 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 232 EXF_MAPFIELDS 
          do j = jmin,jmax
./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 98 EXF_MAPFIELDS 
          do j = jmin,jmax
./pkg/exf/exf_radiation.F 122 EXF_RADIATION 
         DO j = 1,sNy
./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 66 EXF_RADIATION 
          DO j = 1,sNy
./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 80 EXF_RADIATION 
          DO j = 1,sNy
./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_set_gen.F 195 EXF_SET_GEN 
           do j = 1,sny
./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 285 EXF_INIT_GEN 
          do j = 1-oly, sny+oly
./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 325 EXF_INIT_GEN 
               do j = 1,sny
./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 171 EXF_SET_OBCS_YZ 
      INTEGER j, k
./pkg/exf/exf_set_obcs.F 205 EXF_SET_OBCS_YZ 
                  DO j = 1,sNy
./pkg/exf/exf_set_obcs.F 206 EXF_SET_OBCS_YZ 
                     obcs_fld_yz(j,k,bi,bj) =
./pkg/exf/exf_set_obcs.F 207 EXF_SET_OBCS_YZ 
     &                    fac             *obcs_yz_0(j,k,bi,bj) +
./pkg/exf/exf_set_obcs.F 208 EXF_SET_OBCS_YZ 
     &                    (exf_one - fac) *obcs_yz_1(j,k,bi,bj)
./pkg/exf/exf_set_obcs.F 372 EXF_SET_OBCS_Y 
      INTEGER bi, bj, j
./pkg/exf/exf_set_obcs.F 405 EXF_SET_OBCS_Y 
               DO j = 1,sNy
./pkg/exf/exf_set_obcs.F 406 EXF_SET_OBCS_Y 
                  obcs_fld_y(j,bi,bj) =
./pkg/exf/exf_set_obcs.F 407 EXF_SET_OBCS_Y 
     &                 fac             *obcs_y_0(j,bi,bj) +
./pkg/exf/exf_set_obcs.F 408 EXF_SET_OBCS_Y 
     &                 (exf_one - fac) *obcs_y_1(j,bi,bj)
./pkg/exf/exf_set_runoff.F 144 EXF_SET_RUNOFF 
           do j = 1,sny
./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 213 EXF_INIT_RUNOFF 
          do j = 1-oly, sny+oly
./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 240 EXF_INIT_RUNOFF 
               do j = 1,sny
./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 148 EXF_SET_UV 
                do j = 1,sny
./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 228 EXF_SET_UV 
                do j = 1,sny
./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 278 EXF_SET_UV 
              do j = 1,sny
./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
./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/exf/exf_swapffields.F 110 EXF_SWAPFFIELDS_3D 
      integer  j
./pkg/exf/exf_swapffields.F 125 EXF_SWAPFFIELDS_3D 
            do j = 1,sny
./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 229 EXF_SWAPFFIELDS_YZ 
      integer  j, k
./pkg/exf/exf_swapffields.F 243 EXF_SWAPFFIELDS_YZ 
            do j = 1,sny
./pkg/exf/exf_swapffields.F 244 EXF_SWAPFFIELDS_YZ 
              ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj)
./pkg/exf/exf_swapffields.F 245 EXF_SWAPFFIELDS_YZ 
              ffld1(j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 337 EXF_SWAPFFIELDS_Y 
      integer  bi, bj, j, itlo,ithi, jtlo,jthi
./pkg/exf/exf_swapffields.F 348 EXF_SWAPFFIELDS_Y 
           do j = 1,sny
./pkg/exf/exf_swapffields.F 349 EXF_SWAPFFIELDS_Y 
              ffld0(j,bi,bj) = ffld1(j,bi,bj)
./pkg/exf/exf_swapffields.F 350 EXF_SWAPFFIELDS_Y 
              ffld1(j,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 52 EXF_SWAPFFIELDS 
      integer  j
./pkg/exf/exf_swapffields.F 65 EXF_SWAPFFIELDS 
          do j = 1,sny
./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 101 EXF_WIND 
             wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 102 EXF_WIND 
             cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 103 EXF_WIND 
             sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 109 EXF_WIND 
          DO j = 1,sNy
./pkg/exf/exf_wind.F 111 EXF_WIND 
             wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F 119 EXF_WIND 
        DO j = 1,sNy
./pkg/exf/exf_wind.F 122 EXF_WIND 
             usSq = ( ustress(i,  j,bi,bj)*ustress(i  ,j,bi,bj)
./pkg/exf/exf_wind.F 123 EXF_WIND 
     &               +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj)
./pkg/exf/exf_wind.F 124 EXF_WIND 
     &               +vstress(i,j,  bi,bj)*vstress(i,j  ,bi,bj)
./pkg/exf/exf_wind.F 125 EXF_WIND 
     &               +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj)
./pkg/exf/exf_wind.F 128 EXF_WIND 
             usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj)
./pkg/exf/exf_wind.F 129 EXF_WIND 
     &             +vstress(i,j,bi,bj)*vstress(i,j,bi,bj)
./pkg/exf/exf_wind.F 132 EXF_WIND 
             wStress(i,j,bi,bj) = SQRT(usSq)
./pkg/exf/exf_wind.F 134 EXF_WIND 
             cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F 135 EXF_WIND 
             sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F 137 EXF_WIND 
             wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 138 EXF_WIND 
             cw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 139 EXF_WIND 
             sw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 153 EXF_WIND 
         DO j = 1,sNy
./pkg/exf/exf_wind.F 155 EXF_WIND 
            ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA
./pkg/exf/exf_wind.F 157 EXF_WIND 
             wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 161 EXF_WIND 
             wsLoc(i,j) = SQRT(tmp1 + tmp2)
./pkg/exf/exf_wind.F 170 EXF_WIND 
             wsLoc(i,j) = tmp4 + tmp1*tmp1 / tmp4 - tmp1
./pkg/exf/exf_wind.F 177 EXF_WIND 
         DO j = 1,sNy
./pkg/exf/exf_wind.F 179 EXF_WIND 
            wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F 185 EXF_WIND 
        DO j = 1,sNy
./pkg/exf/exf_wind.F 187 EXF_WIND 
           uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj)
./pkg/exf/exf_wind.F 188 EXF_WIND 
           vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj)
./pkg/exf/exf_wind.F 198 EXF_WIND 
        DO j = 1,sNy
./pkg/exf/exf_wind.F 200 EXF_WIND 
           sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin)
./pkg/exf/exf_wind.F 46 EXF_WIND 
      INTEGER i,j
./pkg/exf/exf_wind.F 79 EXF_WIND 
        DO j = 1,sNy
./pkg/exf/exf_wind.F 81 EXF_WIND 
          wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 82 EXF_WIND 
          cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 83 EXF_WIND 
          sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 84 EXF_WIND 
          sh(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 85 EXF_WIND 
          wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 92 EXF_WIND 
        DO j = 1,sNy
./pkg/exf/exf_wind.F 94 EXF_WIND 
           wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 95 EXF_WIND 
     &         + vwind(i,j,bi,bj)*vwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 97 EXF_WIND 
             wsLoc(i,j) = SQRT(wsSq)
./pkg/exf/exf_wind.F 98 EXF_WIND 
             cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F 99 EXF_WIND 
             sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_zenithangle.F 100 EXF_ZENITHANGLE 
         DO j = 1,sNy
./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 246 EXF_ZENITHANGLE 
         DO j = 1,sNy
./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 131 EXF_ZENITHANGLE_TABLE 
         DO j = 1,sNy
./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 54 ATOC 
         do j = jdim1,jdim2
./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 60 ATOC 
         do j = jm1,jm2
./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 56 CTOA 
         do j = jdim1,jdim2
./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 62 CTOA 
         do j = jm1,jm2
./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)/
./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)/