Symbol Description Uses
bj tile indices 37106


File Line number Procedure Code
./pkg/exch2/exch2_check_depths.F 112 EXCH2_CHECK_DEPTHS 
     &        'tile #', tId, ' (bi,bj=', bi, ',', bj, ' ):'
./pkg/exch2/exch2_check_depths.F 48 EXCH2_CHECK_DEPTHS 
      INTEGER bi, bj, tId
./pkg/exch2/exch2_check_depths.F 59 EXCH2_CHECK_DEPTHS 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 70 EXCH2_CHECK_DEPTHS 
           tmpFld(i,0) = rHigh(i, 1 ,bi,bj) - rLow(i, 1 ,bi,bj)
./pkg/exch2/exch2_check_depths.F 71 EXCH2_CHECK_DEPTHS 
           tmpFld(i,j) = rHigh(i,sNy,bi,bj) - rLow(i,sNy,bi,bj)
./pkg/exch2/exch2_check_depths.F 75 EXCH2_CHECK_DEPTHS 
         tId = W2_myTileList(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 137 W2_CUMULSUM_Z_TILE_RL 
           DO bj=1,nSy
./pkg/exch2/w2_cumulsum_z_tile.F 139 W2_CUMULSUM_Z_TILE_RL 
              tN = W2_procTileList(bi,bj,np)
./pkg/exch2/w2_cumulsum_z_tile.F 140 W2_CUMULSUM_Z_TILE_RL 
              globalBuf(1,tN) = loc2Buf(1,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 141 W2_CUMULSUM_Z_TILE_RL 
              globalBuf(2,tN) = loc2Buf(2,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 156 W2_CUMULSUM_Z_TILE_RL 
         DO bj=1,nSy
./pkg/exch2/w2_cumulsum_z_tile.F 158 W2_CUMULSUM_Z_TILE_RL 
            tN = W2_myTileList(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 159 W2_CUMULSUM_Z_TILE_RL 
            globalBuf(1,tN) = shareBufCS2_R8(1,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 160 W2_CUMULSUM_Z_TILE_RL 
            globalBuf(2,tN) = shareBufCS2_R8(2,bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 196 W2_CUMULSUM_Z_TILE_RL 
           DO bj=1,nbTy-1
./pkg/exch2/w2_cumulsum_z_tile.F 197 W2_CUMULSUM_Z_TILE_RL 
            tS = facet_owns(1,j) - 1 + (bj-1)*nbTx
./pkg/exch2/w2_cumulsum_z_tile.F 209 W2_CUMULSUM_Z_TILE_RL 
           DO bj=1,nbTy
./pkg/exch2/w2_cumulsum_z_tile.F 210 W2_CUMULSUM_Z_TILE_RL 
            tN = facet_owns(1,j) + (bj-1)*nbTx
./pkg/exch2/w2_cumulsum_z_tile.F 242 W2_CUMULSUM_Z_TILE_RL 
         DO bj=1,nSy
./pkg/exch2/w2_cumulsum_z_tile.F 244 W2_CUMULSUM_Z_TILE_RL 
            tN = W2_myTileList(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 245 W2_CUMULSUM_Z_TILE_RL 
            shareBufCS1_R8(bi,bj) = globalBuf(3,tN)
./pkg/exch2/w2_cumulsum_z_tile.F 255 W2_CUMULSUM_Z_TILE_RL 
           DO bj=1,nSy
./pkg/exch2/w2_cumulsum_z_tile.F 257 W2_CUMULSUM_Z_TILE_RL 
              tN = W2_procTileList(bi,bj,np)
./pkg/exch2/w2_cumulsum_z_tile.F 258 W2_CUMULSUM_Z_TILE_RL 
              loc1Buf(bi,bj) = globalBuf(3,tN)
./pkg/exch2/w2_cumulsum_z_tile.F 276 W2_CUMULSUM_Z_TILE_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exch2/w2_cumulsum_z_tile.F 278 W2_CUMULSUM_Z_TILE_RL 
         psiZ(bi,bj) = shareBufCS1_R8(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 62 W2_CUMULSUM_Z_TILE_RL 
      INTEGER bi,bj
./pkg/exch2/w2_cumulsum_z_tile.F 90 W2_CUMULSUM_Z_TILE_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exch2/w2_cumulsum_z_tile.F 92 W2_CUMULSUM_Z_TILE_RL 
         shareBufCS2_R8(1,bi,bj) = dPsiX(bi,bj)
./pkg/exch2/w2_cumulsum_z_tile.F 93 W2_CUMULSUM_Z_TILE_RL 
         shareBufCS2_R8(2,bi,bj) = dPsiY(bi,bj)
./pkg/exch2/w2_map_procs.F 109 W2_MAP_PROCS 
      DO bj=1,nSy
./pkg/exch2/w2_map_procs.F 111 W2_MAP_PROCS 
        myTileId = W2_myTileList(bi,bj)
./pkg/exch2/w2_map_procs.F 139 W2_MAP_PROCS 
      DO bj=1,nSy
./pkg/exch2/w2_map_procs.F 141 W2_MAP_PROCS 
        myTileId = W2_myTileList(bi,bj)
./pkg/exch2/w2_map_procs.F 143 W2_MAP_PROCS 
     &       ' TILE: ', myTileId,' (bi,bj=', bi, bj, ' )',
./pkg/exch2/w2_map_procs.F 167 W2_MAP_PROCS 
         W2_myCommFlag(J,bi,bj) = commFlag
./pkg/exch2/w2_map_procs.F 46 W2_MAP_PROCS 
      INTEGER np, ii, jj, bi, bj
./pkg/exch2/w2_map_procs.F 55 W2_MAP_PROCS 
      DO bj=1,nSy
./pkg/exch2/w2_map_procs.F 57 W2_MAP_PROCS 
         W2_myTileList(bi,bj) = 0
./pkg/exch2/w2_map_procs.F 59 W2_MAP_PROCS 
           W2_procTileList(bi,bj,np) = 0
./pkg/exch2/w2_map_procs.F 62 W2_MAP_PROCS 
           W2_myCommFlag(J,bi,bj) = ' '
./pkg/exch2/w2_map_procs.F 91 W2_MAP_PROCS 
        bj = 1 + MOD(jj,nSy)
./pkg/exch2/w2_map_procs.F 95 W2_MAP_PROCS 
        W2_tileIndex(I)= bi + (bj-1)*nSx
./pkg/exch2/w2_map_procs.F 96 W2_MAP_PROCS 
        W2_procTileList(bi,bj,np) = I
./pkg/exch2/w2_map_procs.F 97 W2_MAP_PROCS 
        IF ( np.EQ.thisProc ) W2_myTileList(bi,bj) = I
./pkg/exch2/w2_print_comm_sequence.F 121 W2_PRINT_COMM_SEQUENCE 
      DO bj=1,nSy
./pkg/exch2/w2_print_comm_sequence.F 123 W2_PRINT_COMM_SEQUENCE 
        myTileId=W2_myTileList(bi,bj)
./pkg/exch2/w2_print_comm_sequence.F 54 W2_PRINT_COMM_SEQUENCE 
      INTEGER bi, bj, N
./pkg/exch2/w2_print_comm_sequence.F 65 W2_PRINT_COMM_SEQUENCE 
      DO bj=1,nSy
./pkg/exch2/w2_print_comm_sequence.F 67 W2_PRINT_COMM_SEQUENCE 
        myTileId=W2_myTileList(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/exch2/w2_set_map_cumsum.F 285 W2_SET_MAP_CUMSUM 
        DO bj=1,nbTy
./pkg/exch2/w2_set_map_cumsum.F 288 W2_SET_MAP_CUMSUM 
           tN = tS + 1 + (bj-1)*nbTx
./pkg/exch2/w2_set_map_cumsum.F 300 W2_SET_MAP_CUMSUM 
        DO bj=1,nbTy-1
./pkg/exch2/w2_set_map_cumsum.F 303 W2_SET_MAP_CUMSUM 
          tN = tS + bj*nbTx
./pkg/exch2/w2_set_map_cumsum.F 304 W2_SET_MAP_CUMSUM 
          DO k=1,bj
./pkg/exch2/w2_set_map_cumsum.F 44 W2_SET_MAP_CUMSUM 
      INTEGER tS, bi, bj, l, is, ie
./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/exf/exf_bulkformulae.F 175 EXF_BULKFORMULAE 
      INTEGER i,j,bi,bj
./pkg/exf/exf_bulkformulae.F 250 EXF_BULKFORMULAE 
      DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_bulkformulae.F 264 EXF_BULKFORMULAE 
          act2 = bj - myByLo(myThid)
./pkg/exf/exf_bulkformulae.F 286 EXF_BULKFORMULAE 
          IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 288 EXF_BULKFORMULAE 
           Tsf = theta(i,j,ksrf,bi,bj) + cen2kel
./pkg/exf/exf_bulkformulae.F 291 EXF_BULKFORMULAE 
     &              *( theta(i,j,ksrf,bi,bj)-theta(i,j,ksrfp1,bi,bj) )
./pkg/exf/exf_bulkformulae.F 292 EXF_BULKFORMULAE 
     &              *  maskC(i,j,ksrfp1,bi,bj)
./pkg/exf/exf_bulkformulae.F 298 EXF_BULKFORMULAE 
           atmrho_loc(i,j) = apressure(i,j,bi,bj) /
./pkg/exf/exf_bulkformulae.F 299 EXF_BULKFORMULAE 
     &                  (287.04 _d 0*atemp(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 300 EXF_BULKFORMULAE 
     &                  *(1. _d 0 + humid_fac*aqh(i,j,bi,bj)))
./pkg/exf/exf_bulkformulae.F 305 EXF_BULKFORMULAE 
           deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/exf/exf_bulkformulae.F 306 EXF_BULKFORMULAE 
           delq(i,j)   = aqh(i,j,bi,bj) - ssq
./pkg/exf/exf_bulkformulae.F 319 EXF_BULKFORMULAE 
            wsm        = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 326 EXF_BULKFORMULAE 
            windStress = wStress(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 357 EXF_BULKFORMULAE 
           IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 376 EXF_BULKFORMULAE 
            t0   = atemp(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 377 EXF_BULKFORMULAE 
     &           (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 379 EXF_BULKFORMULAE 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/exf/exf_bulkformulae.F 426 EXF_BULKFORMULAE 
             usn   = wspeed(i,j,bi,bj)/(exf_one + rdn(i,j)*dzTmp )
./pkg/exf/exf_bulkformulae.F 433 EXF_BULKFORMULAE 
             usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/exf/exf_bulkformulae.F 446 EXF_BULKFORMULAE 
             ustar(i,j) = rd(i,j)*sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 449 EXF_BULKFORMULAE 
             tau(i,j)   = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 451 EXF_BULKFORMULAE 
             tau(i,j)   = atmrho*rd(i,j)*wspeed(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 474 EXF_BULKFORMULAE 
          IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 490 EXF_BULKFORMULAE 
           hs(i,j,bi,bj) = atmcp*tau(i,j)*tstar(i,j)
./pkg/exf/exf_bulkformulae.F 491 EXF_BULKFORMULAE 
           hl(i,j,bi,bj) = flamb*tau(i,j)*qstar(i,j)
./pkg/exf/exf_bulkformulae.F 495 EXF_BULKFORMULAE 
           evap(i,j,bi,bj) = -recip_rhoConstFresh*tau(i,j)*qstar(i,j)
./pkg/exf/exf_bulkformulae.F 506 EXF_BULKFORMULAE 
           ustress(i,j,bi,bj) = tmpbulk*uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 507 EXF_BULKFORMULAE 
           vstress(i,j,bi,bj) = tmpbulk*vwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 512 EXF_BULKFORMULAE 
           if ( useAtmWind ) ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 513 EXF_BULKFORMULAE 
           if ( useAtmWind ) vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 514 EXF_BULKFORMULAE 
           hflux  (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 515 EXF_BULKFORMULAE 
           evap   (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 516 EXF_BULKFORMULAE 
           hs     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 517 EXF_BULKFORMULAE 
           hl     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 524 EXF_BULKFORMULAE 
          wsm     = sh(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 527 EXF_BULKFORMULAE 
          ustress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 528 EXF_BULKFORMULAE 
     &                         uwind(i,j,bi,bj)
./pkg/exf/exf_bulkformulae.F 529 EXF_BULKFORMULAE 
          vstress(i,j,bi,bj) = atmrho*tmpbulk*wspeed(i,j,bi,bj)*
./pkg/exf/exf_bulkformulae.F 530 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 221 EXF_CHECK_RANGE 
          if ( (runoftemp(i,j,bi,bj) .LT. -2. .OR.
./pkg/exf/exf_check_range.F 222 EXF_CHECK_RANGE 
     &         runoff(i,j,bi,bj) .GT. 36 ) .AND.
./pkg/exf/exf_check_range.F 223 EXF_CHECK_RANGE 
     &         maskC(i,j,1,bi,bj) .NE. 0. ) then
./pkg/exf/exf_check_range.F 226 EXF_CHECK_RANGE 
     &          bi, bj, i, j, myiter, runoff(i,j,bi,bj)
./pkg/exf/exf_check_range.F 33 EXF_CHECK_RANGE 
      integer bi,bj
./pkg/exf/exf_check_range.F 72 EXF_CHECK_RANGE 
      do bj = jtlo,jthi
./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
./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/exf/exf_filter_rl.F 35 EXF_FILTER_RL 
      INTEGER bi,bj
./pkg/exf/exf_filter_rl.F 46 EXF_FILTER_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_filter_rl.F 64 EXF_FILTER_RL 
               IF ( maskC(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_filter_rl.F 65 EXF_FILTER_RL 
                 arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 72 EXF_FILTER_RL 
               IF ( maskW(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_filter_rl.F 73 EXF_FILTER_RL 
                 arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 80 EXF_FILTER_RL 
               IF ( maskS(i,j,ks,bi,bj) .EQ. 0. ) THEN
./pkg/exf/exf_filter_rl.F 81 EXF_FILTER_RL 
                 arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getclim.F 156 EXF_GETCLIM 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getclim.F 163 EXF_GETCLIM 
     &          theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_getclim.F 168 EXF_GETCLIM 
     &          salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_getclim.F 173 EXF_GETCLIM 
     &          uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_getclim.F 176 EXF_GETCLIM 
     &          vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_getclim.F 179 EXF_GETCLIM 
              if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_getclim.F 180 EXF_GETCLIM 
     &             theta(i,j,1,bi,bj) .EQ. 0. ) then
./pkg/exf/exf_getclim.F 181 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 81 EXF_GETCLIM 
      do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_getclim.F 85 EXF_GETCLIM 
            if (climsst(i,j,bi,bj) .lt. climtempfreeze) then
./pkg/exf/exf_getclim.F 86 EXF_GETCLIM 
               climsst(i,j,bi,bj) = climtempfreeze
./pkg/exf/exf_getffields.F 125 EXF_GETFFIELDS 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 129 EXF_GETFFIELDS 
           uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F 130 EXF_GETFFIELDS 
     &          (uVel(i,j,1,bi,bj)+uVel(i+1,j,1,bi,bj))
./pkg/exf/exf_getffields.F 131 EXF_GETFFIELDS 
           vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F 132 EXF_GETFFIELDS 
     &          (vVel(i,j,1,bi,bj)+vVel(i,j+1,1,bi,bj))
./pkg/exf/exf_getffields.F 140 EXF_GETFFIELDS 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 144 EXF_GETFFIELDS 
           uwind(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 145 EXF_GETFFIELDS 
           vwind(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 189 EXF_GETFFIELDS 
      DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 193 EXF_GETFFIELDS 
          atemp(i,j,bi,bj) = atemp(i,j,bi,bj) + exf_offset_atemp
./pkg/exf/exf_getffields.F 250 EXF_GETFFIELDS 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 254 EXF_GETFFIELDS 
           precip(i,j,bi,bj) =
./pkg/exf/exf_getffields.F 255 EXF_GETFFIELDS 
     &          max( precip(i,j,bi,bj), snowPrecip(i,j,bi,bj) )
./pkg/exf/exf_getffields.F 47 EXF_GETFFIELDS 
      INTEGER i, j, bi, bj
./pkg/exf/exf_getffields.F 486 EXF_GETFFIELDS 
        DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 490 EXF_GETFFIELDS 
             tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 491 EXF_GETFFIELDS 
             tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 492 EXF_GETFFIELDS 
             tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 493 EXF_GETFFIELDS 
             tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 514 EXF_GETFFIELDS 
        DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 518 EXF_GETFFIELDS 
             uwind(i,j,bi,bj)=uwind(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getffields.F 519 EXF_GETFFIELDS 
             vwind(i,j,bi,bj)=vwind(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getffields.F 530 EXF_GETFFIELDS 
      DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 535 EXF_GETFFIELDS 
          atemp(i,j,bi,bj) =atemp(i,j,bi,bj) +xx_atemp_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F 538 EXF_GETFFIELDS 
          aqh(i,j,bi,bj)   =aqh(i,j,bi,bj)   +xx_aqh_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F 541 EXF_GETFFIELDS 
          precip(i,j,bi,bj)=precip(i,j,bi,bj)+xx_precip_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F 544 EXF_GETFFIELDS 
          swdown(i,j,bi,bj)=swdown(i,j,bi,bj)+xx_swdown_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F 547 EXF_GETFFIELDS 
          uwind(i,j,bi,bj) =uwind(i,j,bi,bj) +xx_uwind_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F 550 EXF_GETFFIELDS 
          vwind(i,j,bi,bj) =vwind(i,j,bi,bj) +xx_vwind_mean(i,j,bi,bj)
./pkg/exf/exf_getffields.F 79 EXF_GETFFIELDS 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_getffields.F 83 EXF_GETFFIELDS 
           ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 84 EXF_GETFFIELDS 
           vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getforcing.F 150 EXF_GETFORCING 
      INTEGER bi,bj
./pkg/exf/exf_getforcing.F 205 EXF_GETFORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_getforcing.F 212 EXF_GETFORCING 
              hflux(i,j,bi,bj) =
./pkg/exf/exf_getforcing.F 213 EXF_GETFORCING 
     &              - hs(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 214 EXF_GETFORCING 
     &              - hl(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 215 EXF_GETFORCING 
     &              + lwflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 217 EXF_GETFORCING 
     &              + swflux(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 220 EXF_GETFORCING 
              sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 223 EXF_GETFORCING 
              sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj)
./pkg/exf/exf_getforcing.F 226 EXF_GETFORCING 
              hflux(i,j,bi,bj) = hflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F 227 EXF_GETFORCING 
              sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/exf/exf_getforcing.F 273 EXF_GETFORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_getforcing.F 277 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 bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_getsurfacefluxes.F 112 EXF_GETSURFACEFLUXES 
             tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 113 EXF_GETSURFACEFLUXES 
             tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 114 EXF_GETSURFACEFLUXES 
             tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 115 EXF_GETSURFACEFLUXES 
             tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 145 EXF_GETSURFACEFLUXES 
        do bj = mybylo(mythid),mybyhi(mythid)
./pkg/exf/exf_getsurfacefluxes.F 149 EXF_GETSURFACEFLUXES 
             ustress(i,j,bi,bj)=ustress(i,j,bi,bj)+tmpUX(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F 150 EXF_GETSURFACEFLUXES 
             vstress(i,j,bi,bj)=vstress(i,j,bi,bj)+tmpVY(i,j,bi,bj)
./pkg/exf/exf_getsurfacefluxes.F 63 EXF_GETSURFACEFLUXES 
      integer i,j,bi,bj
./pkg/exf/exf_init.F 139 EXF_INIT 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_init.F 143 EXF_INIT 
          uwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 144 EXF_INIT 
          vwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 393 EXF_INIT 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_init.F 39 EXF_INIT 
      INTEGER i,j,bi,bj
./pkg/exf/exf_init.F 400 EXF_INIT 
     &          theta(i,j,1,bi,bj) = climsst(i,j,bi,bj)
./pkg/exf/exf_init.F 405 EXF_INIT 
     &          salt(i,j,1,bi,bj) = climsss(i,j,bi,bj)
./pkg/exf/exf_init.F 410 EXF_INIT 
     &          uvel(i,j,1,bi,bj) = climustr(i,j,bi,bj)
./pkg/exf/exf_init.F 413 EXF_INIT 
     &          vvel(i,j,1,bi,bj) = climvstr(i,j,bi,bj)
./pkg/exf/exf_init.F 415 EXF_INIT 
           if ( maskC(i,j,1,bi,bj) .NE. 0. .AND.
./pkg/exf/exf_init.F 416 EXF_INIT 
     &             theta(i,j,1,bi,bj) .EQ. 0. ) then
./pkg/exf/exf_init.F 417 EXF_INIT 
                print *, 'ph-warn-exf-init ', i, j, theta(i,j,1,bi,bj)
./pkg/exf/exf_init.F 44 EXF_INIT 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_init.F 48 EXF_INIT 
          wStress(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 49 EXF_INIT 
          cw(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 50 EXF_INIT 
          sw(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 51 EXF_INIT 
          sh(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 53 EXF_INIT 
          hs(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 54 EXF_INIT 
          hl(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 94 EXF_INIT 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_init.F 98 EXF_INIT 
          uwind(i,j,bi,bj) = 0.
./pkg/exf/exf_init.F 99 EXF_INIT 
          vwind(i,j,bi,bj) = 0.
./pkg/exf/exf_interp.F 289 EXF_INTERP 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_interp.F 293 EXF_INTERP 
          xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0
./pkg/exf/exf_interp.F 295 EXF_INTERP 
          xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS)
./pkg/exf/exf_interp.F 303 EXF_INTERP 
           IF ( xG(i,j,bi,bj) .LT. x_in(0)        .OR.
./pkg/exf/exf_interp.F 304 EXF_INTERP 
     &          xG(i,j,bi,bj) .GE. x_in(nxIn+1)   .OR.
./pkg/exf/exf_interp.F 305 EXF_INTERP 
     &          yG(i,j,bi,bj) .LT. y_in(0)        .OR.
./pkg/exf/exf_interp.F 306 EXF_INTERP 
     &          yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN
./pkg/exf/exf_interp.F 315 EXF_INTERP 
     &        i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj)
./pkg/exf/exf_interp.F 332 EXF_INTERP 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_interp.F 352 EXF_INTERP 
            IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN
./pkg/exf/exf_interp.F 376 EXF_INTERP 
     &        'EXF_INTERP: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj)
./pkg/exf/exf_interp.F 393 EXF_INTERP 
           w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1
./pkg/exf/exf_interp.F 405 EXF_INTERP 
     I                bi, bj, myThid )
./pkg/exf/exf_interp.F 79 EXF_INTERP 
      INTEGER  bi, bj
./pkg/exf/exf_interp_uv.F 306 EXF_INTERP_UV 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_interp_uv.F 310 EXF_INTERP_UV 
          xG(i,j,bi,bj) = xG_in(i,j,bi,bj)-lon_0
./pkg/exf/exf_interp_uv.F 312 EXF_INTERP_UV 
          xG(i,j,bi,bj) = lon_0+MOD(xG(i,j,bi,bj),threeSixtyRS)
./pkg/exf/exf_interp_uv.F 320 EXF_INTERP_UV 
           IF ( xG(i,j,bi,bj) .LT. x_in(0)        .OR.
./pkg/exf/exf_interp_uv.F 321 EXF_INTERP_UV 
     &          xG(i,j,bi,bj) .GE. x_in(nxIn+1)   .OR.
./pkg/exf/exf_interp_uv.F 322 EXF_INTERP_UV 
     &          yG(i,j,bi,bj) .LT. y_in(0)        .OR.
./pkg/exf/exf_interp_uv.F 323 EXF_INTERP_UV 
     &          yG(i,j,bi,bj) .GE. y_in(nyIn+1) ) THEN
./pkg/exf/exf_interp_uv.F 332 EXF_INTERP_UV 
     &        i,j,bi,bj, ' , xG,yG=', xG(i,j,bi,bj), yG(i,j,bi,bj)
./pkg/exf/exf_interp_uv.F 349 EXF_INTERP_UV 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_interp_uv.F 369 EXF_INTERP_UV 
            IF ( yG(i,j,bi,bj) .LT. y_in(k) ) THEN
./pkg/exf/exf_interp_uv.F 393 EXF_INTERP_UV 
     &      'EXF_INTERP_UV: i,j,bi,bj=',i,j,bi,bj,' , yG=',yG(i,j,bi,bj)
./pkg/exf/exf_interp_uv.F 410 EXF_INTERP_UV 
           w_ind(i,j) = INT((xG(i,j,bi,bj)-x_in(-1))/lon_inc) - 1
./pkg/exf/exf_interp_uv.F 422 EXF_INTERP_UV 
     I                bi, bj, myThid )
./pkg/exf/exf_interp_uv.F 430 EXF_INTERP_UV 
     I                bi, bj, myThid )
./pkg/exf/exf_interp_uv.F 87 EXF_INTERP_UV 
      INTEGER  bi, bj
./pkg/exf/exf_interpolate.F 111 EXF_INTERPOLATE 
      INTEGER       bi, bj, myThid
./pkg/exf/exf_interpolate.F 141 EXF_INTERPOLATE 
           arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interpolate.F 149 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 151 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 152 EXF_INTERPOLATE 
            arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj)
./pkg/exf/exf_interpolate.F 153 EXF_INTERPOLATE 
     &         + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 157 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 159 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 161 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 163 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 164 EXF_INTERPOLATE 
           arrayout(i,j,bi,bj)=
./pkg/exf/exf_interpolate.F 165 EXF_INTERPOLATE 
     &            +ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 166 EXF_INTERPOLATE 
     &            +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 176 EXF_INTERPOLATE 
           arrayout(i,j,bi,bj) = 0.
./pkg/exf/exf_interpolate.F 184 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 186 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 188 EXF_INTERPOLATE 
     &                    *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 190 EXF_INTERPOLATE 
     &                    *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 191 EXF_INTERPOLATE 
            arrayout(i,j,bi,bj) = arrayout(i,j,bi,bj)
./pkg/exf/exf_interpolate.F 192 EXF_INTERPOLATE 
     &         + ew_val(k)*LAGRAN(k,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 196 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 198 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 200 EXF_INTERPOLATE 
     &                    *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 202 EXF_INTERPOLATE 
     &                    *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 204 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 206 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 208 EXF_INTERPOLATE 
     &                    *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 210 EXF_INTERPOLATE 
     &                    *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 212 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 214 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 216 EXF_INTERPOLATE 
     &                    *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 218 EXF_INTERPOLATE 
     &                    *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 220 EXF_INTERPOLATE 
     &                    *LAGRAN(1,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 222 EXF_INTERPOLATE 
     &                    *LAGRAN(2,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 224 EXF_INTERPOLATE 
     &                    *LAGRAN(3,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 226 EXF_INTERPOLATE 
     &                    *LAGRAN(4,xG(i,j,bi,bj),px_ind,sp)
./pkg/exf/exf_interpolate.F 227 EXF_INTERPOLATE 
           arrayout(i,j,bi,bj) =
./pkg/exf/exf_interpolate.F 228 EXF_INTERPOLATE 
     &             ew_val1*LAGRAN(1,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 229 EXF_INTERPOLATE 
     &            +ew_val2*LAGRAN(2,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 230 EXF_INTERPOLATE 
     &            +ew_val3*LAGRAN(3,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 231 EXF_INTERPOLATE 
     &            +ew_val4*LAGRAN(4,yG(i,j,bi,bj),py_ind,sp)
./pkg/exf/exf_interpolate.F 69 EXF_INTERPOLATE 
     I                bi, bj, myThid )
./pkg/exf/exf_mapfields.F 108 EXF_MAPFIELDS 
             Qnet(i,j,bi,bj) = exf_outscal_hflux*hflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 114 EXF_MAPFIELDS 
             Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) -
./pkg/exf/exf_mapfields.F 124 EXF_MAPFIELDS 
             EmPmR(i,j,bi,bj)= exf_outscal_sflux*sflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 131 EXF_MAPFIELDS 
             EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj) - rhoConstFresh*
./pkg/exf/exf_mapfields.F 154 EXF_MAPFIELDS 
              Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 155 EXF_MAPFIELDS 
     &              + flami*snowPrecip(i,j,bi,bj)*rhoConstFresh
./pkg/exf/exf_mapfields.F 157 EXF_MAPFIELDS 
     &               *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 158 EXF_MAPFIELDS 
     &               *( precip(i,j,bi,bj)- snowPrecip(i,j,bi,bj) )
./pkg/exf/exf_mapfields.F 168 EXF_MAPFIELDS 
              IF ( atemp(i,j,bi,bj).LT.cen2kel ) THEN
./pkg/exf/exf_mapfields.F 169 EXF_MAPFIELDS 
               Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 170 EXF_MAPFIELDS 
     &              + flami*precip(i,j,bi,bj)*rhoConstFresh
./pkg/exf/exf_mapfields.F 173 EXF_MAPFIELDS 
               Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 175 EXF_MAPFIELDS 
     &               *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 176 EXF_MAPFIELDS 
     &               *precip(i,j,bi,bj)*rhoConstFresh
./pkg/exf/exf_mapfields.F 185 EXF_MAPFIELDS 
              Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 187 EXF_MAPFIELDS 
     &               *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 188 EXF_MAPFIELDS 
     &               *runoff(i,j,bi,bj)*rhoConstFresh
./pkg/exf/exf_mapfields.F 195 EXF_MAPFIELDS 
              Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 197 EXF_MAPFIELDS 
     &               *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/exf/exf_mapfields.F 198 EXF_MAPFIELDS 
     &               *evap(i,j,bi,bj)*rhoConstFresh
./pkg/exf/exf_mapfields.F 199 EXF_MAPFIELDS 
              Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F 210 EXF_MAPFIELDS 
               Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 212 EXF_MAPFIELDS 
     &              *( theta(i,j,ks,bi,bj) - runoftemp(i,j,bi,bj) )
./pkg/exf/exf_mapfields.F 213 EXF_MAPFIELDS 
     &              *runoff(i,j,bi,bj)*rhoConstFresh
./pkg/exf/exf_mapfields.F 225 EXF_MAPFIELDS 
              IF (ustress(i,j,bi,bj).GT.windstressmax) THEN
./pkg/exf/exf_mapfields.F 226 EXF_MAPFIELDS 
                ustress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F 235 EXF_MAPFIELDS 
              IF (ustress(i,j,bi,bj).LT.-windstressmax) THEN
./pkg/exf/exf_mapfields.F 236 EXF_MAPFIELDS 
                ustress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F 243 EXF_MAPFIELDS 
              fu(i,j,bi,bj) = exf_outscal_ustress*ustress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 250 EXF_MAPFIELDS 
              fu(i,j,bi,bj) = exf_outscal_ustress*
./pkg/exf/exf_mapfields.F 251 EXF_MAPFIELDS 
     &              (ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))
./pkg/exf/exf_mapfields.F 252 EXF_MAPFIELDS 
     &              *exf_half*maskW(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F 263 EXF_MAPFIELDS 
              IF (vstress(i,j,bi,bj).GT.windstressmax) THEN
./pkg/exf/exf_mapfields.F 264 EXF_MAPFIELDS 
                vstress(i,j,bi,bj)=windstressmax
./pkg/exf/exf_mapfields.F 273 EXF_MAPFIELDS 
              IF (vstress(i,j,bi,bj).LT.-windstressmax) THEN
./pkg/exf/exf_mapfields.F 274 EXF_MAPFIELDS 
                vstress(i,j,bi,bj)=-windstressmax
./pkg/exf/exf_mapfields.F 281 EXF_MAPFIELDS 
              fv(i,j,bi,bj) = exf_outscal_vstress*vstress(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 288 EXF_MAPFIELDS 
              fv(i,j,bi,bj) = exf_outscal_vstress*
./pkg/exf/exf_mapfields.F 289 EXF_MAPFIELDS 
     &              (vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))
./pkg/exf/exf_mapfields.F 290 EXF_MAPFIELDS 
     &              *exf_half*maskS(i,j,ks,bi,bj)
./pkg/exf/exf_mapfields.F 299 EXF_MAPFIELDS 
             Qsw(i,j,bi,bj)  = exf_outscal_swflux*swflux(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 307 EXF_MAPFIELDS 
             SST(i,j,bi,bj)  = exf_outscal_sst*climsst(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 315 EXF_MAPFIELDS 
             SSS(i,j,bi,bj)  = exf_outscal_sss*climsss(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 323 EXF_MAPFIELDS 
             pLoad(i,j,bi,bj)=exf_outscal_apressure*apressure(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 331 EXF_MAPFIELDS 
              exf_iceFraction(i,j,bi,bj) =
./pkg/exf/exf_mapfields.F 332 EXF_MAPFIELDS 
     &           exf_outscal_areamask*areamask(i,j,bi,bj)
./pkg/exf/exf_mapfields.F 333 EXF_MAPFIELDS 
              exf_iceFraction(I,J,bi,bj) =
./pkg/exf/exf_mapfields.F 334 EXF_MAPFIELDS 
     &           MIN( MAX(exf_iceFraction(I,J,bi,bj),zeroRS), oneRS )
./pkg/exf/exf_mapfields.F 78 EXF_MAPFIELDS 
      INTEGER bi,bj
./pkg/exf/exf_mapfields.F 89 EXF_MAPFIELDS 
      DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_mapfields.F 95 EXF_MAPFIELDS 
          act2 = bj - myByLo(myThid)
./pkg/exf/exf_radiation.F 142 EXF_RADIATION 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_radiation.F 146 EXF_RADIATION 
           zen_albedo (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F 147 EXF_RADIATION 
           zen_fsol_diurnal (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F 148 EXF_RADIATION 
           zen_fsol_daily (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_radiation.F 156 EXF_RADIATION 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_radiation.F 162 EXF_RADIATION 
           swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F 163 EXF_RADIATION 
     &                         (1.0-zen_albedo(i,j,bi,bj))
./pkg/exf/exf_radiation.F 165 EXF_RADIATION 
           swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F 169 EXF_RADIATION 
           swflux(i,j,bi,bj) = - swdown(i,j,bi,bj) *
./pkg/exf/exf_radiation.F 44 EXF_RADIATION 
      INTEGER bi,bj
./pkg/exf/exf_radiation.F 66 EXF_RADIATION 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_radiation.F 72 EXF_RADIATION 
            Tsf = theta(i,j,ks,bi,bj) + cen2kel
./pkg/exf/exf_radiation.F 74 EXF_RADIATION 
     &             *( theta(i,j,ks,bi,bj)-theta(i,j,kl,bi,bj) )
./pkg/exf/exf_radiation.F 75 EXF_RADIATION 
     &             *  maskC(i,j,kl,bi,bj)
./pkg/exf/exf_radiation.F 78 EXF_RADIATION 
            lwflux(i,j,bi,bj) =
./pkg/exf/exf_radiation.F 80 EXF_RADIATION 
     &          - lwdown(i,j,bi,bj)
./pkg/exf/exf_radiation.F 95 EXF_RADIATION 
            lwflux(i,j,bi,bj) =
./pkg/exf/exf_radiation.F 97 EXF_RADIATION 
     &          ((theta(i,j,ks,bi,bj)+cen2kel)**4)
./pkg/exf/exf_radiation.F 98 EXF_RADIATION 
     &          - lwdown(i,j,bi,bj)
./pkg/exf/exf_set_gen.F 220 EXF_SET_GEN 
         DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_gen.F 225 EXF_SET_GEN 
             genfld(i,j,bi,bj) = exf_inscal_gen * (
./pkg/exf/exf_set_gen.F 226 EXF_SET_GEN 
     &                          fac * gen0(i,j,bi,bj) +
./pkg/exf/exf_set_gen.F 227 EXF_SET_GEN 
     &              (exf_one - fac) * gen1(i,j,bi,bj) )
./pkg/exf/exf_set_gen.F 228 EXF_SET_GEN 
             genfld(i,j,bi,bj) =
./pkg/exf/exf_set_gen.F 229 EXF_SET_GEN 
     &            genfld(i,j,bi,bj) -
./pkg/exf/exf_set_gen.F 304 EXF_INIT_GEN 
      INTEGER bi, bj, i, j, count
./pkg/exf/exf_set_gen.F 308 EXF_INIT_GEN 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/exf/exf_set_gen.F 312 EXF_INIT_GEN 
              genfld(i,j,bi,bj)  = genconst
./pkg/exf/exf_set_gen.F 313 EXF_INIT_GEN 
              gen0(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_gen.F 314 EXF_INIT_GEN 
              gen1(i,j,bi,bj)    = genconst
./pkg/exf/exf_set_gen.F 352 EXF_INIT_GEN 
         DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_gen.F 356 EXF_INIT_GEN 
                     genfld(i,j,bi,bj) =
./pkg/exf/exf_set_gen.F 357 EXF_INIT_GEN 
     &                    exf_inscal_gen * genfld(i,j,bi,bj)
./pkg/exf/exf_set_gen.F 91 EXF_SET_GEN 
      INTEGER bi, bj, i, j
./pkg/exf/exf_set_obcs.F 103 EXF_SET_OBCS_XZ 
         DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_obcs.F 107 EXF_SET_OBCS_XZ 
                     obcs_fld_xz(i,k,bi,bj) =
./pkg/exf/exf_set_obcs.F 108 EXF_SET_OBCS_XZ 
     &                    fac * obcs_xz_0(i,k,bi,bj) +
./pkg/exf/exf_set_obcs.F 109 EXF_SET_OBCS_XZ 
     &                    (exf_one - fac) * obcs_xz_1(i,k,bi,bj)
./pkg/exf/exf_set_obcs.F 174 EXF_SET_OBCS_YZ 
      INTEGER bi, bj
./pkg/exf/exf_set_obcs.F 210 EXF_SET_OBCS_YZ 
         DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_obcs.F 214 EXF_SET_OBCS_YZ 
                     obcs_fld_yz(j,k,bi,bj) =
./pkg/exf/exf_set_obcs.F 215 EXF_SET_OBCS_YZ 
     &                    fac             *obcs_yz_0(j,k,bi,bj) +
./pkg/exf/exf_set_obcs.F 216 EXF_SET_OBCS_YZ 
     &                    (exf_one - fac) *obcs_yz_1(j,k,bi,bj)
./pkg/exf/exf_set_obcs.F 281 EXF_SET_OBCS_X 
      INTEGER bi, bj, i
./pkg/exf/exf_set_obcs.F 314 EXF_SET_OBCS_X 
         DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_obcs.F 317 EXF_SET_OBCS_X 
                  obcs_fld_x(i,bi,bj) =
./pkg/exf/exf_set_obcs.F 318 EXF_SET_OBCS_X 
     &                 fac * obcs_x_0(i,bi,bj) +
./pkg/exf/exf_set_obcs.F 319 EXF_SET_OBCS_X 
     &                 (exf_one - fac) * obcs_x_1(i,bi,bj)
./pkg/exf/exf_set_obcs.F 382 EXF_SET_OBCS_Y 
      INTEGER bi, bj, j
./pkg/exf/exf_set_obcs.F 415 EXF_SET_OBCS_Y 
         DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_obcs.F 418 EXF_SET_OBCS_Y 
                  obcs_fld_y(j,bi,bj) =
./pkg/exf/exf_set_obcs.F 419 EXF_SET_OBCS_Y 
     &                 fac             *obcs_y_0(j,bi,bj) +
./pkg/exf/exf_set_obcs.F 420 EXF_SET_OBCS_Y 
     &                 (exf_one - fac) *obcs_y_1(j,bi,bj)
./pkg/exf/exf_set_obcs.F 67 EXF_SET_OBCS_XZ 
      INTEGER bi, bj
./pkg/exf/exf_set_uv.F 212 EXF_SET_UV 
            DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_uv.F 217 EXF_SET_UV 
                    x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 218 EXF_SET_UV 
                    x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 219 EXF_SET_UV 
                    x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 220 EXF_SET_UV 
                    x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 227 EXF_SET_UV 
                    y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 228 EXF_SET_UV 
                    y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 229 EXF_SET_UV 
                    y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 230 EXF_SET_UV 
                    y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 233 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 235 EXF_SET_UV 
                    vvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 236 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 237 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 241 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 243 EXF_SET_UV 
                    uvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 244 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 245 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 248 EXF_SET_UV 
                 uvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F 249 EXF_SET_UV 
     &                      angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 250 EXF_SET_UV 
     &                     +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 251 EXF_SET_UV 
                 vvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F 252 EXF_SET_UV 
     &                     -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 253 EXF_SET_UV 
     &                     +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 260 EXF_SET_UV 
            DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_uv.F 264 EXF_SET_UV 
                 uvec1(i,j,bi,bj) = tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 265 EXF_SET_UV 
                 vvec1(i,j,bi,bj) = tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 338 EXF_SET_UV 
            DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_uv.F 343 EXF_SET_UV 
                    x1=xG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 344 EXF_SET_UV 
                    x2=xG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 345 EXF_SET_UV 
                    x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 346 EXF_SET_UV 
                    x4=xG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 353 EXF_SET_UV 
                    y1=yG(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 354 EXF_SET_UV 
                    y2=yG(i+1,j,bi,bj)
./pkg/exf/exf_set_uv.F 355 EXF_SET_UV 
                    y3=yG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 356 EXF_SET_UV 
                    y4=yG(i+1,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 359 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 361 EXF_SET_UV 
                    vvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 362 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 363 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 367 EXF_SET_UV 
     &                  cos(deg2rad*yC(i,j,bi,bj))
./pkg/exf/exf_set_uv.F 369 EXF_SET_UV 
                    uvec1(i,j,bi,bj)=
./pkg/exf/exf_set_uv.F 370 EXF_SET_UV 
     &                  (tmp_u(i,j,bi,bj)*dx+
./pkg/exf/exf_set_uv.F 371 EXF_SET_UV 
     &                  tmp_v(i,j,bi,bj)*dy)/
./pkg/exf/exf_set_uv.F 374 EXF_SET_UV 
                 uvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F 375 EXF_SET_UV 
     &                      angleCosC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 376 EXF_SET_UV 
     &                     +angleSinC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 377 EXF_SET_UV 
                 vvec1(i,j,bi,bj) =
./pkg/exf/exf_set_uv.F 378 EXF_SET_UV 
     &                     -angleSinC(i,j,bi,bj)*tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 379 EXF_SET_UV 
     &                     +angleCosC(i,j,bi,bj)*tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 386 EXF_SET_UV 
            DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_uv.F 390 EXF_SET_UV 
                 uvec1(i,j,bi,bj) = tmp_u(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 391 EXF_SET_UV 
                 vvec1(i,j,bi,bj) = tmp_v(i,j,bi,bj)
./pkg/exf/exf_set_uv.F 403 EXF_SET_UV 
        DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_set_uv.F 407 EXF_SET_UV 
                uvec(i,j,bi,bj) = exf_inscal_uvec * (
./pkg/exf/exf_set_uv.F 408 EXF_SET_UV 
     &                fac * uvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F 409 EXF_SET_UV 
     &                (exf_one - fac) * uvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 410 EXF_SET_UV 
                vvec(i,j,bi,bj) = exf_inscal_vvec * (
./pkg/exf/exf_set_uv.F 411 EXF_SET_UV 
     &                fac * vvec0(i,j,bi,bj) +
./pkg/exf/exf_set_uv.F 412 EXF_SET_UV 
     &                (exf_one - fac) * vvec1(i,j,bi,bj) )
./pkg/exf/exf_set_uv.F 99 EXF_SET_UV 
      INTEGER i, j, bi, bj
./pkg/exf/exf_swapffields.F 103 EXF_SWAPFFIELDS_3D 
      INTEGER bi, bj
./pkg/exf/exf_swapffields.F 108 EXF_SWAPFFIELDS_3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_swapffields.F 113 EXF_SWAPFFIELDS_3D 
                ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj)
./pkg/exf/exf_swapffields.F 114 EXF_SWAPFFIELDS_3D 
                ffld1(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 157 EXF_SWAPFFIELDS_XZ 
      INTEGER bi, bj
./pkg/exf/exf_swapffields.F 162 EXF_SWAPFFIELDS_XZ 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_swapffields.F 166 EXF_SWAPFFIELDS_XZ 
              ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj)
./pkg/exf/exf_swapffields.F 167 EXF_SWAPFFIELDS_XZ 
              ffld1(i,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 209 EXF_SWAPFFIELDS_YZ 
      INTEGER bi, bj
./pkg/exf/exf_swapffields.F 214 EXF_SWAPFFIELDS_YZ 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_swapffields.F 218 EXF_SWAPFFIELDS_YZ 
              ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj)
./pkg/exf/exf_swapffields.F 219 EXF_SWAPFFIELDS_YZ 
              ffld1(j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 53 EXF_SWAPFFIELDS 
      INTEGER bi, bj
./pkg/exf/exf_swapffields.F 58 EXF_SWAPFFIELDS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_swapffields.F 62 EXF_SWAPFFIELDS 
              ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj)
./pkg/exf/exf_swapffields.F 63 EXF_SWAPFFIELDS 
              ffld1(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 101 EXF_WIND 
             cw(i,j,bi,bj) = uwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F 102 EXF_WIND 
             sw(i,j,bi,bj) = vwind(i,j,bi,bj)/wsLoc(i,j)
./pkg/exf/exf_wind.F 105 EXF_WIND 
             cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 106 EXF_WIND 
             sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 114 EXF_WIND 
             wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F 125 EXF_WIND 
             usSq = ( ustress(i,  j,bi,bj)*ustress(i  ,j,bi,bj)
./pkg/exf/exf_wind.F 126 EXF_WIND 
     &               +ustress(i+1,j,bi,bj)*ustress(i+1,j,bi,bj)
./pkg/exf/exf_wind.F 127 EXF_WIND 
     &               +vstress(i,j,  bi,bj)*vstress(i,j  ,bi,bj)
./pkg/exf/exf_wind.F 128 EXF_WIND 
     &               +vstress(i,j+1,bi,bj)*vstress(i,j+1,bi,bj)
./pkg/exf/exf_wind.F 131 EXF_WIND 
             usSq = ustress(i,j,bi,bj)*ustress(i,j,bi,bj)
./pkg/exf/exf_wind.F 132 EXF_WIND 
     &             +vstress(i,j,bi,bj)*vstress(i,j,bi,bj)
./pkg/exf/exf_wind.F 135 EXF_WIND 
             wStress(i,j,bi,bj) = SQRT(usSq)
./pkg/exf/exf_wind.F 137 EXF_WIND 
             cw(i,j,bi,bj) = ustress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F 138 EXF_WIND 
             sw(i,j,bi,bj) = vstress(i,j,bi,bj)/wStress(i,j,bi,bj)
./pkg/exf/exf_wind.F 140 EXF_WIND 
             wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 141 EXF_WIND 
             cw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 142 EXF_WIND 
             sw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 158 EXF_WIND 
            ustar = wStress(i,j,bi,bj)*recip_sqrtRhoA
./pkg/exf/exf_wind.F 182 EXF_WIND 
            wspeed(i,j,bi,bj) = wsLoc(i,j)
./pkg/exf/exf_wind.F 198 EXF_WIND 
           uwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*cw(i,j,bi,bj)
./pkg/exf/exf_wind.F 199 EXF_WIND 
           vwind(i,j,bi,bj) = wspeed(i,j,bi,bj)*sw(i,j,bi,bj)
./pkg/exf/exf_wind.F 211 EXF_WIND 
           sh(i,j,bi,bj) = MAX(wspeed(i,j,bi,bj),uMin)
./pkg/exf/exf_wind.F 45 EXF_WIND 
      INTEGER bi,bj
./pkg/exf/exf_wind.F 59 EXF_WIND 
      DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_wind.F 65 EXF_WIND 
          act2 = bj - myByLo(myThid)
./pkg/exf/exf_wind.F 79 EXF_WIND 
          cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 80 EXF_WIND 
          sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 81 EXF_WIND 
          sh(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 82 EXF_WIND 
          wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 97 EXF_WIND 
           wsSq = uwind(i,j,bi,bj)*uwind(i,j,bi,bj)
./pkg/exf/exf_wind.F 98 EXF_WIND 
     &         + vwind(i,j,bi,bj)*vwind(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F 111 EXF_ZENITHANGLE 
          IF ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) THEN
./pkg/exf/exf_zenithangle.F 117 EXF_ZENITHANGLE 
            iLat1= zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F 118 EXF_ZENITHANGLE 
            wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F 155 EXF_ZENITHANGLE 
        SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 156 EXF_ZENITHANGLE 
        CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 164 EXF_ZENITHANGLE 
     &         cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F 225 EXF_ZENITHANGLE 
        zen_albedo (i,j,bi,bj) =
./pkg/exf/exf_zenithangle.F 239 EXF_ZENITHANGLE 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_zenithangle.F 264 EXF_ZENITHANGLE 
        SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 265 EXF_ZENITHANGLE 
        CJ = COS(yC(i,j,bi,bj) * deg2rad)
./pkg/exf/exf_zenithangle.F 269 EXF_ZENITHANGLE 
     &         cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F 272 EXF_ZENITHANGLE 
       zen_fsol_diurnal (i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F 274 EXF_ZENITHANGLE 
       H0 = -tan( yC(i,j,bi,bj) *deg2rad ) * tan( DECLI )
./pkg/exf/exf_zenithangle.F 280 EXF_ZENITHANGLE 
       zen_fsol_daily (i,j,bi,bj) = FSOL
./pkg/exf/exf_zenithangle.F 39 EXF_ZENITHANGLE 
      INTEGER bi,bj
./pkg/exf/exf_zenithangle.F 89 EXF_ZENITHANGLE 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_zenithangle_table.F 122 EXF_ZENITHANGLE_TABLE 
       DO bj = myByLo(myThid),myByHi(myThid)
./pkg/exf/exf_zenithangle_table.F 126 EXF_ZENITHANGLE_TABLE 
           LLLAT=yC(i,j,bi,bj)+91. _d 0
./pkg/exf/exf_zenithangle_table.F 131 EXF_ZENITHANGLE_TABLE 
           zen_albedo_pointer(i,j,bi,bj)=LLLAT
./pkg/exf/exf_zenithangle_table.F 35 EXF_ZENITHANGLE_TABLE 
      INTEGER bi,bj
./pkg/fizhi/AtoC.F 40 ATOC 
       integer i, j, L, bi, bj
./pkg/fizhi/AtoC.F 50 ATOC 
       do bj = myByLo(myThid), myByHi(myThid)
./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 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 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 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 52 CTOA 
       do bj = myByLo(myThid), myByHi(myThid)
./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 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 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 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/do_fizhi.F 171 DO_FIZHI 
       xlats(i,j) = lats(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 172 DO_FIZHI 
       xlons(i,j) = lons(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 173 DO_FIZHI 
       surfZ(i,j) = Zsurf(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 184 DO_FIZHI 
       radswt(i,j,bi,bj) = S0*(1.0/ra**2)*cosz(i,j)
./pkg/fizhi/do_fizhi.F 194 DO_FIZHI 
       ple(i,j,Nrphys+1,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100.
./pkg/fizhi/do_fizhi.F 195 DO_FIZHI 
       pkle(i,j,Nrphys+1,bi,bj)=(pephy(i,j,Nrphys+1,bi,bj)/100.) **kappa
./pkg/fizhi/do_fizhi.F 196 DO_FIZHI 
       p(i,j,bi,bj) = pephy(i,j,Nrphys+1,bi,bj)/100.
./pkg/fizhi/do_fizhi.F 197 DO_FIZHI 
       sea_ice(i,j) = sice(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 198 DO_FIZHI 
       raincon(i,j) = rainconin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 199 DO_FIZHI 
       rainlsp(i,j) = rainlspin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 200 DO_FIZHI 
       snowfall(i,j) = snowfallin(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 206 DO_FIZHI 
       u(i,j,L) = uphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 207 DO_FIZHI 
       v(i,j,L) = vphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 208 DO_FIZHI 
       t(i,j,L) = thphy(i,j,L,bi,bj)/p0kappa
./pkg/fizhi/do_fizhi.F 209 DO_FIZHI 
       q(i,j,L,1) = sphy(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 210 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 211 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 212 DO_FIZHI 
       ple(i,j,L,bi,bj) = pephy(i,j,L,bi,bj)/100.
./pkg/fizhi/do_fizhi.F 213 DO_FIZHI 
       if (ple(i,j,L,bi,bj).gt.0.) then
./pkg/fizhi/do_fizhi.F 214 DO_FIZHI 
        pkle(i,j,L,bi,bj) = ple(i,j,L,bi,bj) **kappa
./pkg/fizhi/do_fizhi.F 216 DO_FIZHI 
        pkle(i,j,L,bi,bj) = 0.
./pkg/fizhi/do_fizhi.F 218 DO_FIZHI 
       cldtot_lw(i,j,L) = cldtotlwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 219 DO_FIZHI 
       cldlsp_lw(i,j,L) = cldlsplwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 220 DO_FIZHI 
       cldras_lw(i,j,L) = cldraslwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 221 DO_FIZHI 
       lwlz(i,j,L) = lwlzin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 222 DO_FIZHI 
       qliqavelw(i,j,L) = qliqavelwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 223 DO_FIZHI 
       fccavelw(i,j,L) = fccavelwin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 224 DO_FIZHI 
       cldtot_sw(i,j,L) = cldtotswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 225 DO_FIZHI 
       cldlsp_sw(i,j,L) = cldlspswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 226 DO_FIZHI 
       cldras_sw(i,j,L) = cldrasswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 227 DO_FIZHI 
       swlz(i,j,L) = swlzin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 228 DO_FIZHI 
       qliqavesw(i,j,L) = qliqaveswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 229 DO_FIZHI 
       fccavesw(i,j,L) = fccaveswin(i,j,L,bi,bj)
./pkg/fizhi/do_fizhi.F 234 DO_FIZHI 
      call PKAPPA (im2,jm2,Nrphys,ple(1,1,1,bi,bj),pkle(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 235 DO_FIZHI 
     &                                                 pkl(1,1,1,bi,bj))
./pkg/fizhi/do_fizhi.F 237 DO_FIZHI 
      call FIZHI_DRIVER(myid,im2,jm2,Nrphys,bi,bj,ptracer,ntracer,
./pkg/fizhi/do_fizhi.F 239 DO_FIZHI 
     & p(1,1,bi,bj),u,v,t,q,pl(1,1,1,bi,bj),ple(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 240 DO_FIZHI 
     & dpres(1,1,1,bi,bj),pkle(1,1,1,bi,bj),pkl(1,1,1,bi,bj),surfZ,
./pkg/fizhi/do_fizhi.F 241 DO_FIZHI 
     & fracland(1,1,bi,bj),landtype(1,1,bi,bj),radswt(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 242 DO_FIZHI 
     & phis_var(1,1,bi,bj),tgz(1,1,bi,bj),sea_ice,nchp,chlat(1,bi,bj),
./pkg/fizhi/do_fizhi.F 243 DO_FIZHI 
     & chlon(1,bi,bj),igrd(1,bi,bj),nchptot(bi,bj),nchpland(bi,bj),
./pkg/fizhi/do_fizhi.F 244 DO_FIZHI 
     & chfr(1,bi,bj),ityp(1,bi,bj),tcanopy(1,bi,bj),tdeep(1,bi,bj),
./pkg/fizhi/do_fizhi.F 245 DO_FIZHI 
     & ecanopy(1,bi,bj),swetshal(1,bi,bj),swetroot(1,bi,bj),
./pkg/fizhi/do_fizhi.F 246 DO_FIZHI 
     & swetdeep(1,bi,bj),capac(1,bi,bj),snodep(1,bi,bj),
./pkg/fizhi/do_fizhi.F 247 DO_FIZHI 
     & ctmt(1,bi,bj),xxmt(1,bi,bj),yymt(1,bi,bj),zetamt(1,bi,bj),
./pkg/fizhi/do_fizhi.F 248 DO_FIZHI 
     & xlmt(1,1,bi,bj),khmt(1,1,bi,bj),tke(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 249 DO_FIZHI 
     & albvisdr(1,1,bi,bj),albvisdf(1,1,bi,bj),albnirdr(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 250 DO_FIZHI 
     & albnirdf(1,1,bi,bj),emiss(1,1,1,bi,bj),alai(1,bi,bj),
./pkg/fizhi/do_fizhi.F 251 DO_FIZHI 
     & agrn(1,bi,bj),
./pkg/fizhi/do_fizhi.F 252 DO_FIZHI 
     & qstr(1,1,1,bi,bj),o3(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 254 DO_FIZHI 
     & lwdt(1,1,1,bi,bj),lwdtclr(1,1,1,bi,bj),swdt(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 255 DO_FIZHI 
     & swdtclr(1,1,1,bi,bj),turbu(1,1,1,bi,bj),turbv(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 256 DO_FIZHI 
     & turbt(1,1,1,bi,bj),turbq(1,1,1,1,bi,bj),moistu(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 257 DO_FIZHI 
     & moistv(1,1,1,bi,bj),moistt(1,1,1,bi,bj),moistq(1,1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 258 DO_FIZHI 
     & radswg(1,1,bi,bj),swgclr(1,1,bi,bj),fdirpar(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 259 DO_FIZHI 
     & fdifpar(1,1,bi,bj),osr(1,1,bi,bj),osrclr(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 260 DO_FIZHI 
     & tg0(1,1,bi,bj),radlwg(1,1,bi,bj),lwgclr(1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 261 DO_FIZHI 
     & st4(1,1,bi,bj),dst4(1,1,bi,bj),dlwdtg(1,1,1,bi,bj),
./pkg/fizhi/do_fizhi.F 262 DO_FIZHI 
     & rainlsp,raincon,snowfall,iras(bi,bj),
./pkg/fizhi/do_fizhi.F 263 DO_FIZHI 
     & nlwcld(bi,bj),cldtot_lw,cldras_lw,cldlsp_lw,nlwlz(bi,bj),lwlz,
./pkg/fizhi/do_fizhi.F 264 DO_FIZHI 
     & nswcld(bi,bj),cldtot_sw,cldras_sw,cldlsp_sw,nswlz(bi,bj),swlz,
./pkg/fizhi/do_fizhi.F 265 DO_FIZHI 
     & imstturbsw(bi,bj),imstturblw(bi,bj),qliqavesw,qliqavelw,
./pkg/fizhi/do_fizhi.F 266 DO_FIZHI 
     & fccavesw,fccavelw,qq(1,1,1,bi,bj))
./pkg/fizhi/do_fizhi.F 271 DO_FIZHI 
       cldtotlwin(i,j,L,bi,bj) = cldtot_lw(i,j,L)
./pkg/fizhi/do_fizhi.F 272 DO_FIZHI 
       cldlsplwin(i,j,L,bi,bj) = cldlsp_lw(i,j,L)
./pkg/fizhi/do_fizhi.F 273 DO_FIZHI 
       cldraslwin(i,j,L,bi,bj) = cldras_lw(i,j,L)
./pkg/fizhi/do_fizhi.F 274 DO_FIZHI 
       lwlzin(i,j,L,bi,bj) = lwlz(i,j,L)
./pkg/fizhi/do_fizhi.F 275 DO_FIZHI 
       qliqavelwin(i,j,L,bi,bj) = qliqavelw(i,j,L)
./pkg/fizhi/do_fizhi.F 276 DO_FIZHI 
       fccavelwin(i,j,L,bi,bj) = fccavelw(i,j,L)
./pkg/fizhi/do_fizhi.F 277 DO_FIZHI 
       cldtotswin(i,j,L,bi,bj) = cldtot_sw(i,j,L)
./pkg/fizhi/do_fizhi.F 278 DO_FIZHI 
       cldlspswin(i,j,L,bi,bj) = cldlsp_sw(i,j,L)
./pkg/fizhi/do_fizhi.F 279 DO_FIZHI 
       cldrasswin(i,j,L,bi,bj) = cldras_sw(i,j,L)
./pkg/fizhi/do_fizhi.F 280 DO_FIZHI 
       swlzin(i,j,L,bi,bj) = swlz(i,j,L)
./pkg/fizhi/do_fizhi.F 281 DO_FIZHI 
       qliqaveswin(i,j,L,bi,bj) = qliqavesw(i,j,L)
./pkg/fizhi/do_fizhi.F 282 DO_FIZHI 
       fccaveswin(i,j,L,bi,bj) = fccavesw(i,j,L)
./pkg/fizhi/do_fizhi.F 289 DO_FIZHI 
       rainconin(i,j,bi,bj) = raincon(i,j)
./pkg/fizhi/do_fizhi.F 290 DO_FIZHI 
       rainlspin(i,j,bi,bj) = rainlsp(i,j)
./pkg/fizhi/do_fizhi.F 291 DO_FIZHI 
       snowfallin(i,j,bi,bj) = snowfall(i,j)
./pkg/fizhi/do_fizhi.F 300 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 301 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 302 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 303 DO_FIZHI 
     &   lwdt(i,j,L,bi,bj) +
./pkg/fizhi/do_fizhi.F 304 DO_FIZHI 
     &   dlwdtg(i,j,L,bi,bj) * (tgz(i,j,bi,bj)-tg0(i,j,bi,bj)) +
./pkg/fizhi/do_fizhi.F 305 DO_FIZHI 
     &   swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )*p0kappa ) / p(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 306 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 307 DO_FIZHI 
     &                                    /p(i,j,bi,bj)
./pkg/fizhi/do_fizhi.F 316 DO_FIZHI 
     &  im1,im2,jm1,jm2,Nrphys,nSx,nSy,bi,bj,ntracer)
./pkg/fizhi/do_fizhi.F 35 DO_FIZHI 
      INTEGER Nrphin,nSxIn,nSyIn,bi,bj,nchp
./pkg/fizhi/do_fizhi.F 5 DO_FIZHI 
     & idim1,idim2,jdim1,jdim2,Nrphin,nSxIn,nSyIn,im1,im2,jm1,jm2,bi,bj,
./pkg/fizhi/fizhi_driver.F 163 FIZHI_DRIVER 
      call SWRIO ( nymd,nhms,bi,bj,ndsw,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F 186 FIZHI_DRIVER 
      call LWRIO ( nymd,nhms,bi,bj,myid,istrip,npcs,
./pkg/fizhi/fizhi_driver.F 201 FIZHI_DRIVER 
      call TURBIO (im,jm,lm,istrip,nymd,nhms,bi,bj,
./pkg/fizhi/fizhi_driver.F 220 FIZHI_DRIVER 
     &   turbu,turbv,turbt,im,jm,lm,bi,bj,istrip,npcs,imglobal)
./pkg/fizhi/fizhi_driver.F 226 FIZHI_DRIVER 
     &                                                bi,bj,rfu,rfv,rft)
./pkg/fizhi/fizhi_driver.F 246 FIZHI_DRIVER 
     &    p,pl,ple,dpres,pkht,pkl,u,v,t,q,bi,bj,ntracer,ptracer,qq,
./pkg/fizhi/fizhi_driver.F 51 FIZHI_DRIVER 
      INTEGER myid,im,jm,lm,bi,bj,ptracer,ntracer
./pkg/fizhi/fizhi_driver.F 5 FIZHI_DRIVER 
       SUBROUTINE FIZHI_DRIVER (myid,im,jm,lm,bi,bj,ptracer,ntracer,
./pkg/fizhi/fizhi_fillnegs.F 27 QCHECK 
      integer Nsx,Nsy,bi,bj
./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 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 6 QCHECK 
     .     jm1,jm2,bi,bj,dp,qz)
./pkg/fizhi/fizhi_gwdrag.F 211 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 220 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDV    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 229 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDT    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 237 GWDRAG 
       call DIAGNOSTICS_FILL(dragx,'GWDUS   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 243 GWDRAG 
       call DIAGNOSTICS_FILL(dragy,'GWDVS   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 266 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDUT   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 289 GWDRAG 
       call DIAGNOSTICS_FILL(tmpdiag,'GWDVT   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_gwdrag.F 43 GWDRAG 
      integer myid,im,jm,Lm,bi,bj,istrip,npcs,imglobal
./pkg/fizhi/fizhi_gwdrag.F 5 GWDRAG 
     .         dudt,dvdt,dtdt,im,jm,Lm,bi,bj,istrip,npcs,imglobal)
./pkg/fizhi/fizhi_init_fixed.F 109 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_init_fixed.F 111 FIZHI_INIT_FIXED 
        call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,
./pkg/fizhi/fizhi_init_fixed.F 112 FIZHI_INIT_FIXED 
     &        surftype,tilefrac,fracland(1,1,bi,bj))
./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 153 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./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 85 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./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 103 FIZHI_INIT_VARS 
          pedyn(i,j,L,bi,bj) = 0.
./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 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 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 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 158 FIZHI_INIT_VARS 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_init_vars.F 163 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy)
./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 174 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy)
./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 183 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,2,tempphy)
./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 192 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy)
./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 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 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 229 FIZHI_INIT_VARS 
          ctmt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 230 FIZHI_INIT_VARS 
          xxmt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 231 FIZHI_INIT_VARS 
          yymt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 232 FIZHI_INIT_VARS 
          zetamt(i,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 236 FIZHI_INIT_VARS 
          tke(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 237 FIZHI_INIT_VARS 
          xlmt(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 238 FIZHI_INIT_VARS 
          khmt(i,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 245 FIZHI_INIT_VARS 
        turbStart(bi,bj) = .TRUE.
./pkg/fizhi/fizhi_init_vars.F 253 FIZHI_INIT_VARS 
        imstturblw(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F 254 FIZHI_INIT_VARS 
        imstturbsw(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F 255 FIZHI_INIT_VARS 
        iras(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F 256 FIZHI_INIT_VARS 
        nlwcld(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F 257 FIZHI_INIT_VARS 
        nlwlz(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F 258 FIZHI_INIT_VARS 
        nswcld(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F 259 FIZHI_INIT_VARS 
        nswlz(bi,bj) = 0
./pkg/fizhi/fizhi_init_vars.F 263 FIZHI_INIT_VARS 
         swlz(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 264 FIZHI_INIT_VARS 
         lwlz(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 265 FIZHI_INIT_VARS 
         qliqavesw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 266 FIZHI_INIT_VARS 
         qliqavelw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 267 FIZHI_INIT_VARS 
         fccavesw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 268 FIZHI_INIT_VARS 
         fccavelw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 269 FIZHI_INIT_VARS 
         cldtot_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 270 FIZHI_INIT_VARS 
         cldras_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 271 FIZHI_INIT_VARS 
         cldlsp_sw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 272 FIZHI_INIT_VARS 
         cldtot_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 273 FIZHI_INIT_VARS 
         cldras_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 274 FIZHI_INIT_VARS 
         cldlsp_lw(i,j,L,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 280 FIZHI_INIT_VARS 
         rainlsp(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 281 FIZHI_INIT_VARS 
         raincon(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 282 FIZHI_INIT_VARS 
         snowfall(i,j,bi,bj) = 0.
./pkg/fizhi/fizhi_init_vars.F 296 FIZHI_INIT_VARS 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_init_vars.F 298 FIZHI_INIT_VARS 
         turbStart(bi,bj) = .FALSE.
./pkg/fizhi/fizhi_init_vars.F 60 FIZHI_INIT_VARS 
       INTEGER i, j, L, bi, bj, Lbotij
./pkg/fizhi/fizhi_init_vars.F 96 FIZHI_INIT_VARS 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_init_veg.F 121 FIZHI_INIT_VEG 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_init_veg.F 125 FIZHI_INIT_VEG 
        bjglobal=bj+(myYGlobalLo-1)/jm
./pkg/fizhi/fizhi_init_veg.F 135 FIZHI_INIT_VEG 
            surftype(i,j,k,bi,bj) = iveg_32(i,j,k,biglobal,bjglobal)
./pkg/fizhi/fizhi_init_veg.F 136 FIZHI_INIT_VEG 
            tilefrac(i,j,k,bi,bj) = veg_32(i,j,k,biglobal,bjglobal)
./pkg/fizhi/fizhi_init_veg.F 155 FIZHI_INIT_VEG 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_init_veg.F 160 FIZHI_INIT_VEG 
           igrd(i,bi,bj) = 1
./pkg/fizhi/fizhi_init_veg.F 164 FIZHI_INIT_VEG 
         nchpland(bi,bj) = 0
./pkg/fizhi/fizhi_init_veg.F 168 FIZHI_INIT_VEG 
             if(surftype(i,j,k,bi,bj).lt.100 .and.
./pkg/fizhi/fizhi_init_veg.F 169 FIZHI_INIT_VEG 
     &            tilefrac(i,j,k,bi,bj).gt.0.) then
./pkg/fizhi/fizhi_init_veg.F 170 FIZHI_INIT_VEG 
               nchpland(bi,bj)  = nchpland(bi,bj) + 1
./pkg/fizhi/fizhi_init_veg.F 171 FIZHI_INIT_VEG 
               igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im
./pkg/fizhi/fizhi_init_veg.F 172 FIZHI_INIT_VEG 
               ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 173 FIZHI_INIT_VEG 
               chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 174 FIZHI_INIT_VEG 
               chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 175 FIZHI_INIT_VEG 
               chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 182 FIZHI_INIT_VEG 
         nchptot(bi,bj) = nchpland(bi,bj)
./pkg/fizhi/fizhi_init_veg.F 186 FIZHI_INIT_VEG 
             if(surftype(i,j,k,bi,bj).ge.100 .and.
./pkg/fizhi/fizhi_init_veg.F 187 FIZHI_INIT_VEG 
     &            tilefrac(i,j,k,bi,bj).gt.0.) then
./pkg/fizhi/fizhi_init_veg.F 188 FIZHI_INIT_VEG 
               nchptot(bi,bj)  = nchptot(bi,bj) + 1
./pkg/fizhi/fizhi_init_veg.F 189 FIZHI_INIT_VEG 
               igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./pkg/fizhi/fizhi_init_veg.F 190 FIZHI_INIT_VEG 
               ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 191 FIZHI_INIT_VEG 
               chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 192 FIZHI_INIT_VEG 
               chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 193 FIZHI_INIT_VEG 
               chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./pkg/fizhi/fizhi_init_veg.F 200 FIZHI_INIT_VEG 
     &    ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj),
./pkg/fizhi/fizhi_init_veg.F 201 FIZHI_INIT_VEG 
     &                 ', Total # of Tiles=', nchptot(bi,bj)
./pkg/fizhi/fizhi_init_veg.F 67 FIZHI_INIT_VEG 
      INTEGER i,j,k,bi,bj
./pkg/fizhi/fizhi_init_vegsurftiles.F 102 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 103 FIZHI_INIT_VEGSURFTILES 
     .                 temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 105 FIZHI_INIT_VEGSURFTILES 
        tcanopy(n,bi,bj) = temptile(n)
./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 115 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 116 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 118 FIZHI_INIT_VEGSURFTILES 
        tdeep(n,bi,bj) = temptile(n)
./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 128 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 129 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 131 FIZHI_INIT_VEGSURFTILES 
        ecanopy(n,bi,bj) = temptile(n)
./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 141 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 142 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 144 FIZHI_INIT_VEGSURFTILES 
        swetshal(n,bi,bj) = temptile(n)
./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 154 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 155 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 157 FIZHI_INIT_VEGSURFTILES 
        swetroot(n,bi,bj) = temptile(n)
./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 167 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 168 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 170 FIZHI_INIT_VEGSURFTILES 
        swetdeep(n,bi,bj) = temptile(n)
./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 180 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 181 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 183 FIZHI_INIT_VEGSURFTILES 
        snodep(n,bi,bj) = temptile(n)
./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 193 FIZHI_INIT_VEGSURFTILES 
       call GRD2MSC(tempgrid,sNx,sNy,igrd(1,bi,bj),
./pkg/fizhi/fizhi_init_vegsurftiles.F 194 FIZHI_INIT_VEGSURFTILES 
     .                    temptile,nchp,nchptot(bi,bj))
./pkg/fizhi/fizhi_init_vegsurftiles.F 196 FIZHI_INIT_VEGSURFTILES 
        capac(n,bi,bj) = temptile(n)
./pkg/fizhi/fizhi_init_vegsurftiles.F 49 FIZHI_INIT_VEGSURFTILES 
      integer bi,bj,fileprec
./pkg/fizhi/fizhi_init_vegsurftiles.F 83 FIZHI_INIT_VEGSURFTILES 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_init_vegsurftiles.F 87 FIZHI_INIT_VEGSURFTILES 
       bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1
./pkg/fizhi/fizhi_init_vegsurftiles.F 88 FIZHI_INIT_VEGSURFTILES 
       bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1
./pkg/fizhi/fizhi_init_vegsurftiles.F 91 FIZHI_INIT_VEGSURFTILES 
       bjslot = myYGlobalLo-1+(bj-1)*sNy
./pkg/fizhi/fizhi_init_vegsurftiles.F 94 FIZHI_INIT_VEGSURFTILES 
      call GET_LANDFRAC(sNx,sNy,Nsx,Nsy,bi,bj,maxtyp,
./pkg/fizhi/fizhi_init_vegsurftiles.F 95 FIZHI_INIT_VEGSURFTILES 
     .        surftype,tilefrac,fracland(1,1,bi,bj))
./pkg/fizhi/fizhi_lwrad.F 19 LWRIO 
      integer nymd,nhms,istrip,npcs,bi,bj,myid
./pkg/fizhi/fizhi_lwrad.F 282 LWRIO 
       call DIAGNOSTICS_FILL(tgz,'TGRLW   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 293 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TLW     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 302 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'SHRAD   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 311 LWRIO 
        call DIAGNOSTICS_FILL(tmpdiag,'OZLW    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 317 LWRIO 
       call DIAGNOSTICS_FILL(tempor1,'OLR     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 321 LWRIO 
       call DIAGNOSTICS_FILL(tempor2,'OLRCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_lwrad.F 5 LWRIO 
      subroutine LWRIO (nymd,nhms,bi,bj,myid,istrip,npcs,
./pkg/fizhi/fizhi_moist.F 1142 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDTMP  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1143 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'CTTCNT  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1159 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDPRS  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 1160 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'CTPCNT  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 21 MOISTIO 
      integer bi,bj,ntracerin,ptracer
./pkg/fizhi/fizhi_moist.F 7 MOISTIO 
     .   pz,plz,plze,dpres,pkht,pkl,uz,vz,tz,qz,bi,bj,ntracerin,ptracer,
./pkg/fizhi/fizhi_moist.F 850 MOISTIO 
       call DIAGNOSTICS_FILL(psubcldg,'PSUBCLD ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 851 MOISTIO 
       call DIAGNOSTICS_FILL(psubcldgc,'PSUBCLDC',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 863 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDNP   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 877 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTT  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 890 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTQ  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 903 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTU  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 916 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'MOISTV  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 930 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDMAS  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 944 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTRAIN  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 958 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DTLS    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 972 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'DQLS    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 985 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'PREACC  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_moist.F 997 MOISTIO 
       call DIAGNOSTICS_FILL(tmpdiag,'PRECON  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_rayleigh.F 38 RAYLEIGH 
      integer myid,im,jm,lm,bi,bj
./pkg/fizhi/fizhi_rayleigh.F 6 RAYLEIGH 
     .                                                bi,bj,rfu,rfv,rft)
./pkg/fizhi/fizhi_read_pickup.F 45 FIZHI_READ_PICKUP 
      integer j,bi,bj
./pkg/fizhi/fizhi_read_pickup.F 74 FIZHI_READ_PICKUP 
       do bj = 1,myByLo(myThid), myByHi(myThid)
./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_read_pickup.F 84 FIZHI_READ_PICKUP 
       iras(bi,bj)       = NINT(temp(1,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F 85 FIZHI_READ_PICKUP 
       nlwcld(bi,bj)     = NINT(temp(2,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F 86 FIZHI_READ_PICKUP 
       nlwlz(bi,bj)      = NINT(temp(3,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F 87 FIZHI_READ_PICKUP 
       nswcld(bi,bj)     = NINT(temp(4,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F 88 FIZHI_READ_PICKUP 
       nswlz(bi,bj)      = NINT(temp(5,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F 89 FIZHI_READ_PICKUP 
       imstturbsw(bi,bj) = NINT(temp(6,1,4,bi,bj))
./pkg/fizhi/fizhi_read_pickup.F 90 FIZHI_READ_PICKUP 
       imstturblw(bi,bj) = NINT(temp(7,1,4,bi,bj))
./pkg/fizhi/fizhi_readwrite_vegtiles.F 111 FIZHI_WRITE_VEGTILES 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 115 FIZHI_WRITE_VEGTILES 
       tn = W2_myTileList(bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 120 FIZHI_WRITE_VEGTILES 
       jG = bj+(myYGlobalLo-1)/sNy
./pkg/fizhi/fizhi_readwrite_vegtiles.F 131 FIZHI_WRITE_VEGTILES 
        r8seg(n) = ctmt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 139 FIZHI_WRITE_VEGTILES 
        r8seg(n) = xxmt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 147 FIZHI_WRITE_VEGTILES 
        r8seg(n) = yymt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 155 FIZHI_WRITE_VEGTILES 
        r8seg(n) = zetamt(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 165 FIZHI_WRITE_VEGTILES 
         r8seg(n) = xlmt(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 176 FIZHI_WRITE_VEGTILES 
         r8seg(n) = khmt(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 187 FIZHI_WRITE_VEGTILES 
         r8seg(n) = tke(n,k,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 198 FIZHI_WRITE_VEGTILES 
        r8seg(n) = tcanopy(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 207 FIZHI_WRITE_VEGTILES 
        r8seg(n) = tdeep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 216 FIZHI_WRITE_VEGTILES 
        r8seg(n) = ecanopy(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 225 FIZHI_WRITE_VEGTILES 
        r8seg(n) = swetshal(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 234 FIZHI_WRITE_VEGTILES 
        r8seg(n) = swetroot(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 243 FIZHI_WRITE_VEGTILES 
        r8seg(n) = swetdeep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 252 FIZHI_WRITE_VEGTILES 
        r8seg(n) = snodep(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 261 FIZHI_WRITE_VEGTILES 
        r8seg(n) = capac(n,bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 323 FIZHI_READ_VEGTILES 
      integer bi,bj,irec,fileprec
./pkg/fizhi/fizhi_readwrite_vegtiles.F 366 FIZHI_READ_VEGTILES 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 370 FIZHI_READ_VEGTILES 
       tn = W2_myTileList(bi,bj)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 375 FIZHI_READ_VEGTILES 
       jG = bj+(myYGlobalLo-1)/sNy
./pkg/fizhi/fizhi_readwrite_vegtiles.F 392 FIZHI_READ_VEGTILES 
        ctmt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 400 FIZHI_READ_VEGTILES 
        xxmt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 408 FIZHI_READ_VEGTILES 
        yymt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 416 FIZHI_READ_VEGTILES 
        zetamt(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 427 FIZHI_READ_VEGTILES 
         xlmt(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 438 FIZHI_READ_VEGTILES 
         khmt(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 449 FIZHI_READ_VEGTILES 
         tke(n,k,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 460 FIZHI_READ_VEGTILES 
        tcanopy(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 469 FIZHI_READ_VEGTILES 
        tdeep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 478 FIZHI_READ_VEGTILES 
        ecanopy(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 487 FIZHI_READ_VEGTILES 
        swetshal(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 496 FIZHI_READ_VEGTILES 
        swetroot(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 505 FIZHI_READ_VEGTILES 
        swetdeep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 514 FIZHI_READ_VEGTILES 
        snodep(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_readwrite_vegtiles.F 51 FIZHI_WRITE_VEGTILES 
      integer bi,bj,irec,fileprec
./pkg/fizhi/fizhi_readwrite_vegtiles.F 523 FIZHI_READ_VEGTILES 
        capac(n,bi,bj) = r8seg(n)
./pkg/fizhi/fizhi_step_diag.F 105 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (1.0-osrclr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 108 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSRCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 116 FIZHI_STEP_DIAG 
        if(radswt(i,j,bi,bj).ne.0.) then
./pkg/fizhi/fizhi_step_diag.F 117 FIZHI_STEP_DIAG 
         tmpdiag(i,j) = osr(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 123 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'PLALBEDO',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 131 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = st4(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 132 FIZHI_STEP_DIAG 
     &                 + dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F 135 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWGUP   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 13 FIZHI_STEP_DIAG 
      INTEGER myid,im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer
./pkg/fizhi/fizhi_step_diag.F 143 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = radlwg(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 144 FIZHI_STEP_DIAG 
     &                  dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F 147 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 155 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = lwgclr(i,j,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 156 FIZHI_STEP_DIAG 
     &                  dst4(i,j,bi,bj)*(tgz(i,j,bi,bj)-tg0(i,j,bi,bj))
./pkg/fizhi/fizhi_step_diag.F 159 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 170 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 173 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABU   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 181 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 184 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABV   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 193 FIZHI_STEP_DIAG 
     &   ( turbt(i,j,L,bi,bj) + moistt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 194 FIZHI_STEP_DIAG 
     &      lwdt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 195 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 196 FIZHI_STEP_DIAG 
     &      swdt(i,j,L,bi,bj)*radswt(i,j,bi,bj) )
./pkg/fizhi/fizhi_step_diag.F 197 FIZHI_STEP_DIAG 
     &      * pk(i,j,L,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 200 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 209 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 
       call DIAGNOSTICS_FILL(tmpdiag,'DIABQ   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 222 FIZHI_STEP_DIAG 
     & ( lwdt(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 223 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 224 FIZHI_STEP_DIAG 
     &                      * pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 227 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADLW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 236 FIZHI_STEP_DIAG 
     & ( lwdtclr(i,j,l,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 237 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 238 FIZHI_STEP_DIAG 
     &                      * pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 241 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'LWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 250 FIZHI_STEP_DIAG 
     &  + swdt(i,j,l,bi,bj)*radswt(i,j,bi,bj)*
./pkg/fizhi/fizhi_step_diag.F 251 FIZHI_STEP_DIAG 
     &                   pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 254 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSW   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 263 FIZHI_STEP_DIAG 
     &  + swdtclr(i,j,l,bi,bj)*radswt(i,j,bi,bj)*
./pkg/fizhi/fizhi_step_diag.F 264 FIZHI_STEP_DIAG 
     &                   pk(i,j,l,bi,bj)*pinv(i,j)*86400
./pkg/fizhi/fizhi_step_diag.F 267 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWCLR   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 278 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'UWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 289 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VWND    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 297 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = thphy(i,j,L)*pk(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 300 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TMPU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 308 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = qq(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 311 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TKE     ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 322 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SPHU    ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 341 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 350 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTMOIST',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 365 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 374 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTTURB ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 388 FIZHI_STEP_DIAG 
        qbar(i,j) = qbar(i,j) + ( lwdt(i,j,L,bi,bj) +
./pkg/fizhi/fizhi_step_diag.F 389 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 390 FIZHI_STEP_DIAG 
     &             *pk(i,j,l,bi,bj)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 399 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADLW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 414 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 421 FIZHI_STEP_DIAG 
     &             radswt(i,j,bi,bj) * pinv(i,j) * pinv(i,j) * 86400
./pkg/fizhi/fizhi_step_diag.F 424 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'VDTRADSW',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 440 FIZHI_STEP_DIAG 
     &             sphy(i,j,L)*dp(i,j,L,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 449 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'TPW     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 54 FIZHI_STEP_DIAG 
      pinv(i,j) = 1.0 / p(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 60 FIZHI_STEP_DIAG 
      call DIAGNOSTICS_FILL(p(1,1,bi,bj),'PS      ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 64 FIZHI_STEP_DIAG 
      call DIAGNOSTICS_FILL(radswt(1,1,bi,bj),'RADSWT  ',
./pkg/fizhi/fizhi_step_diag.F 65 FIZHI_STEP_DIAG 
     &                      0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 72 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = radswg(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 75 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'RADSWG  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 83 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = swgclr(i,j,bi,bj)*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 86 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'SWGCLR  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 94 FIZHI_STEP_DIAG 
        tmpdiag(i,j) = (1.0-osr(i,j,bi,bj))*radswt(i,j,bi,bj)
./pkg/fizhi/fizhi_step_diag.F 97 FIZHI_STEP_DIAG 
       call DIAGNOSTICS_FILL(tmpdiag,'OSR     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_step_diag.F 9 FIZHI_STEP_DIAG 
     &  im1,im2,jm1,jm2,Nrphys,Nbi,Nbj,bi,bj,ntracer)
./pkg/fizhi/fizhi_swrad.F 18 SWRIO 
      integer nymd,nhms,bi,bj,ndswr,myid,istrip,npcs
./pkg/fizhi/fizhi_swrad.F 235 SWRIO 
       call DIAGNOSTICS_FILL(totcld,'CLDFRC  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 245 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDRAS  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 256 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'CLDTOT  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 261 SWRIO 
       call DIAGNOSTICS_FILL(cldlow,'CLDLOW  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 265 SWRIO 
       call DIAGNOSTICS_FILL(cldmid,'CLDMID  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 269 SWRIO 
       call DIAGNOSTICS_FILL(cldhi,'CLDHI   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 279 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'LZRAD   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 286 SWRIO 
       call DIAGNOSTICS_FILL(albvisdr,'ALBVISDR',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 290 SWRIO 
       call DIAGNOSTICS_FILL(albvisdf,'ALBVISDF',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 294 SWRIO 
       call DIAGNOSTICS_FILL(albnirdr,'ALBNIRDR',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 298 SWRIO 
       call DIAGNOSTICS_FILL(albnirdf,'ALBNIRDF',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 324 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUAVE  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 342 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLD  ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 343 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TAUCLDC ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 364 SWRIO 
       call DIAGNOSTICS_FILL(taulow,'TAULOW  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 365 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'TAULOWC ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 383 SWRIO 
       call DIAGNOSTICS_FILL(taumid,'TAUMID  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 384 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'TAUMIDC ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 402 SWRIO 
       call DIAGNOSTICS_FILL(tauhi,'TAUHI   ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 403 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'TAUHIC  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 523 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag,'ALBEDO  ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 524 SWRIO 
       call DIAGNOSTICS_FILL(tmpdiag2,'ALBEDOC ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_swrad.F 5 SWRIO 
      subroutine SWRIO (nymd,nhms,bi,bj,ndswr,myid,istrip,npcs,
./pkg/fizhi/fizhi_tendency_apply.F 119 FIZHI_TENDENCY_APPLY_V 
      INTEGER kLev, bi, bj
./pkg/fizhi/fizhi_tendency_apply.F 141 FIZHI_TENDENCY_APPLY_V 
     &              + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 142 FIZHI_TENDENCY_APPLY_V 
     &               *( gvphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 143 FIZHI_TENDENCY_APPLY_V 
     &                - rayleighdrag*vVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 150 FIZHI_TENDENCY_APPLY_V 
        tmpdiag(i,j) = maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 151 FIZHI_TENDENCY_APPLY_V 
     &               *( gvphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 152 FIZHI_TENDENCY_APPLY_V 
     &                - rayleighdrag*vVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 156 FIZHI_TENDENCY_APPLY_V 
       CALL DIAGNOSTICS_FILL(tmpdiag,'DIABVDYN',kLev,1,2,bi,bj,myThid)
./pkg/fizhi/fizhi_tendency_apply.F 163 FIZHI_TENDENCY_APPLY_V 
     &       maskS(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj) * 86400
./pkg/fizhi/fizhi_tendency_apply.F 166 FIZHI_TENDENCY_APPLY_V 
       CALL DIAGNOSTICS_FILL(tmpdiag,'RFV     ',kLev,1,2,bi,bj,myThid)
./pkg/fizhi/fizhi_tendency_apply.F 173 FIZHI_TENDENCY_APPLY_T 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./pkg/fizhi/fizhi_tendency_apply.F 201 FIZHI_TENDENCY_APPLY_T 
      INTEGER kLev, bi, bj
./pkg/fizhi/fizhi_tendency_apply.F 226 FIZHI_TENDENCY_APPLY_T 
     &    + ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 228 FIZHI_TENDENCY_APPLY_T 
     &        *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 229 FIZHI_TENDENCY_APPLY_T 
     &              *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 230 FIZHI_TENDENCY_APPLY_T 
     &         + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 231 FIZHI_TENDENCY_APPLY_T 
     &              *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 232 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 233 FIZHI_TENDENCY_APPLY_T 
     &              *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 234 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 235 FIZHI_TENDENCY_APPLY_T 
     &              *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 244 FIZHI_TENDENCY_APPLY_T 
     &      ( maskC(i,j,kLev,bi,bj)*gthphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 246 FIZHI_TENDENCY_APPLY_T 
     &        *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 247 FIZHI_TENDENCY_APPLY_T 
     &              *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 248 FIZHI_TENDENCY_APPLY_T 
     &         + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 249 FIZHI_TENDENCY_APPLY_T 
     &              *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 250 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 251 FIZHI_TENDENCY_APPLY_T 
     &              *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 252 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 253 FIZHI_TENDENCY_APPLY_T 
     &              *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 257 FIZHI_TENDENCY_APPLY_T 
       CALL DIAGNOSTICS_FILL(tmpdiag,'DIABTDYN',kLev,1,2,bi,bj,myThid)
./pkg/fizhi/fizhi_tendency_apply.F 264 FIZHI_TENDENCY_APPLY_T 
     &        *( maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 265 FIZHI_TENDENCY_APPLY_T 
     &              *uVel(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 266 FIZHI_TENDENCY_APPLY_T 
     &         + maskW(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 267 FIZHI_TENDENCY_APPLY_T 
     &              *uVel(i+1,j,kLev,bi,bj)*uVel(i+1,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 268 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 269 FIZHI_TENDENCY_APPLY_T 
     &              *vVel(i,j,kLev,bi,bj)*vVel(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 270 FIZHI_TENDENCY_APPLY_T 
     &         + maskS(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 271 FIZHI_TENDENCY_APPLY_T 
     &              *vVel(i,j+1,kLev,bi,bj)*vVel(i,j+1,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 275 FIZHI_TENDENCY_APPLY_T 
       CALL DIAGNOSTICS_FILL(tmpdiag,'RFT     ',kLev,1,2,bi,bj,myThid)
./pkg/fizhi/fizhi_tendency_apply.F 282 FIZHI_TENDENCY_APPLY_S 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./pkg/fizhi/fizhi_tendency_apply.F 310 FIZHI_TENDENCY_APPLY_S 
      INTEGER kLev, bi, bj
./pkg/fizhi/fizhi_tendency_apply.F 325 FIZHI_TENDENCY_APPLY_S 
     &    + maskC(i,j,kLev,bi,bj)*gsphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 332 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 336 FIZHI_TENDENCY_APPLY_S 
       CALL DIAGNOSTICS_FILL(tmpdiag,'DIABQDYN',kLev,1,2,bi,bj,myThid)
./pkg/fizhi/fizhi_tendency_apply.F 36 FIZHI_TENDENCY_APPLY_U 
      INTEGER kLev, bi, bj
./pkg/fizhi/fizhi_tendency_apply.F 58 FIZHI_TENDENCY_APPLY_U 
     &              + maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 59 FIZHI_TENDENCY_APPLY_U 
     &               *( guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 60 FIZHI_TENDENCY_APPLY_U 
     &                - rayleighdrag*uVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 67 FIZHI_TENDENCY_APPLY_U 
        tmpdiag(i,j) = maskW(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 68 FIZHI_TENDENCY_APPLY_U 
     &               *( guphy(i,j,kLev,bi,bj)
./pkg/fizhi/fizhi_tendency_apply.F 69 FIZHI_TENDENCY_APPLY_U 
     &                - rayleighdrag*uVel(i,j,kLev,bi,bj) )
./pkg/fizhi/fizhi_tendency_apply.F 73 FIZHI_TENDENCY_APPLY_U 
       CALL DIAGNOSTICS_FILL(tmpdiag,'DIABUDYN',kLev,1,2,bi,bj,myThid)
./pkg/fizhi/fizhi_tendency_apply.F 7 FIZHI_TENDENCY_APPLY_U 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./pkg/fizhi/fizhi_tendency_apply.F 80 FIZHI_TENDENCY_APPLY_U 
     &       maskW(i,j,kLev,bi,bj)*uVel(i,j,kLev,bi,bj) * 86400
./pkg/fizhi/fizhi_tendency_apply.F 83 FIZHI_TENDENCY_APPLY_U 
       CALL DIAGNOSTICS_FILL(tmpdiag,'RFU     ',kLev,1,2,bi,bj,myThid)
./pkg/fizhi/fizhi_tendency_apply.F 90 FIZHI_TENDENCY_APPLY_V 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./pkg/fizhi/fizhi_turb.F 1001 TURBIO 
     & nn,.false., 'UFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1005 TURBIO 
     & nn,.false., 'VFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1009 TURBIO 
     & .false., 'USTAR   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1013 TURBIO 
     & .false., 'Z0      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1017 TURBIO 
     & .false., 'FRQTRB  ', 0, nlay-1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1021 TURBIO 
     & .false., 'PBL     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1025 TURBIO 
     & .false., 'U2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1029 TURBIO 
     & .false., 'V2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1033 TURBIO 
     & .false., 'T2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1044 TURBIO 
     & .false., 'Q2M     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1048 TURBIO 
     & .false., 'U10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1052 TURBIO 
     & .false., 'V10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1056 TURBIO 
     & .false., 'T10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1067 TURBIO 
     & .false., 'Q10M    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1076 TURBIO 
     & .false., 'TDEEP   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1080 TURBIO 
     & .false., 'QCANOPY ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1084 TURBIO 
     & .false., 'SMSHAL  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1088 TURBIO 
     & .false., 'SMROOT  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1092 TURBIO 
     & .false., 'SMDEEP  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1096 TURBIO 
     & .false., 'CAPACITY', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 1100 TURBIO 
     & .false., 'SNOW    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 115 TURBIO 
      integer im,jm,nlay,istrip,nymd,nhms,bi,bj,ndturb,nltop
./pkg/fizhi/fizhi_turb.F 1183 TURBIO 
      CALL DIAGNOSTICS_FILL(fcctmp,'TRBFCC  ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1185 TURBIO 
     &                             'TRBQLIQ ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1199 TURBIO 
      call DIAGNOSTICS_FILL(tgz,'TGROUND ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1200 TURBIO 
      call DIAGNOSTICS_FILL(tgz,'TCANOPY ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1206 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'TS      ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1209 TURBIO 
      call DIAGNOSTICS_FILL(tgz,'DTG     ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1216 TURBIO 
     &                            'TURBV   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1218 TURBIO 
     &                            'TURBU   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1221 TURBIO 
     &                            'TURBQ   ',0,nlay,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 1228 TURBIO 
        call DIAGNOSTICS_FILL(tmpdiag,'TURBT   ',L,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 26 TURBIO 
      SUBROUTINE TURBIO (im,jm,nlay,istrip,nymd,nhms,bi,bj, qbeg
./pkg/fizhi/fizhi_turb.F 315 TURBIO 
     &                             'DTG     ',0,1,-3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 432 TURBIO 
       call DIAGNOSTICS_FILL(tmpdiag,'QICE    ',0,1,3,bi,bj,myid)
./pkg/fizhi/fizhi_turb.F 539 TURBIO 
     & .false., 'QG      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 589 TURBIO 
     & .false., 'DTSRF   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 679 TURBIO 
     & .false., 'SNOWFALL', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 686 TURBIO 
     & .false., 'RAINCON ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 693 TURBIO 
     & .false., 'RAINLSP ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 697 TURBIO 
     & .false., 'GREEN   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 701 TURBIO 
     & .false., 'LAI     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 705 TURBIO 
     & .false., 'PARDR   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 709 TURBIO 
     & .false., 'PARDF   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 713 TURBIO 
     & .false., 'DLWDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 717 TURBIO 
     & .false., 'DHDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 721 TURBIO 
     & .false., 'DEDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 725 TURBIO 
     & .false., 'DHDQA   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 729 TURBIO 
     & .false., 'DEDQA   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 733 TURBIO 
     & .false., 'LWGDOWN ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 770 TURBIO 
     & .false., 'RUNOFF  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 774 TURBIO 
     & .false., 'FWSOIL  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 778 TURBIO 
     & .false., 'GDRAIN  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 782 TURBIO 
     & .false., 'SNOWMELT', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 786 TURBIO 
     & .false., 'EVEG    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 790 TURBIO 
     & .false., 'ESNOW   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 794 TURBIO 
     & .false., 'ESOIL   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 798 TURBIO 
     & .false., 'ERESV   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 802 TURBIO 
     & .false., 'EVPOT   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 806 TURBIO 
     & .false., 'DTC     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 810 TURBIO 
     & .false., 'DQC     ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 814 TURBIO 
     & .false., 'TCDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 818 TURBIO 
     & .false., 'RADDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 822 TURBIO 
     & .false., 'SENSDTC ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 826 TURBIO 
     & .false., 'LATDTC  ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 830 TURBIO 
     & .false., 'TDDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 834 TURBIO 
     & .false., 'QCDTC   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 933 TURBIO 
     & .false., 'EVAP    ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 940 TURBIO 
     & .false., 'EFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 947 TURBIO 
     & .false., 'HFLUX   ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 951 TURBIO 
     & .false., 'TUFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 955 TURBIO 
     & .false., 'TVFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 964 TURBIO 
     & .false., 'TTFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 973 TURBIO 
     & .false., 'TQFLUX  ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 977 TURBIO 
     & .false., 'RI      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 981 TURBIO 
     & .false., 'KH      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 985 TURBIO 
     & .false., 'KM      ', 0, nlay, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 989 TURBIO 
     & .false., 'CT      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 993 TURBIO 
     & .false., 'CU      ', 1, 1, bi, bj, myid)
./pkg/fizhi/fizhi_turb.F 997 TURBIO 
     & .false., 'WINDS   ', 1, 1, bi, bj, myid)
./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 113 FIZHI_WRAPPER 
        do bj = myByLo(myThid), myByHi(myThid)
./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 125 FIZHI_WRAPPER 
         thdynbef(i,j,L,bi,bj) = theta(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 134 FIZHI_WRAPPER 
        do bj = myByLo(myThid), myByHi(myThid)
./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 146 FIZHI_WRAPPER 
         sdynbef(i,j,L,bi,bj) = salt(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 156 FIZHI_WRAPPER 
       do bj = myByLo(myThid), myByHi(myThid)
./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 180 FIZHI_WRAPPER 
          pedyn(i,j,L,bi,bj) = 0.
./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 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 209 FIZHI_WRAPPER 
        do bj = myByLo(myThid), myByHi(myThid)
./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 227 FIZHI_WRAPPER 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_wrapper.F 229 FIZHI_WRAPPER 
        call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,
./pkg/fizhi/fizhi_wrapper.F 230 FIZHI_WRAPPER 
     &        surftype,tilefrac,fracland(1,1,bi,bj))
./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 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 253 FIZHI_WRAPPER 
     &              fracland(1,1,bi,bj),sNx,sNy,Nrphys,slp)
./pkg/fizhi/fizhi_wrapper.F 254 FIZHI_WRAPPER 
        call DIAGNOSTICS_FILL( slp,'SLP     ',1,1,3,bi,bj,myThid )
./pkg/fizhi/fizhi_wrapper.F 260 FIZHI_WRAPPER 
        turbStart(bi,bj) = turbStart(bi,bj) .AND. ( myIter.EQ.nIter0 )
./pkg/fizhi/fizhi_wrapper.F 263 FIZHI_WRAPPER 
     &  idim1,idim2,jdim1,jdim2,Nrphys,nSx,nSy,im1,im2,jm1,jm2,bi,bj,
./pkg/fizhi/fizhi_wrapper.F 264 FIZHI_WRAPPER 
     &  turbStart(bi,bj), nchp,nchptot,nchpland,
./pkg/fizhi/fizhi_wrapper.F 282 FIZHI_WRAPPER 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_wrapper.F 290 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=duphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 295 FIZHI_WRAPPER 
     & nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,guphy)
./pkg/fizhi/fizhi_wrapper.F 299 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=dvphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 304 FIZHI_WRAPPER 
     & nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gvphy)
./pkg/fizhi/fizhi_wrapper.F 308 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=dthphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 313 FIZHI_WRAPPER 
     & nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gthphy)
./pkg/fizhi/fizhi_wrapper.F 317 FIZHI_WRAPPER 
          tempphy(i,j,Nrphys+1-L,bi,bj)=dsphy(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 322 FIZHI_WRAPPER 
     & nSx,nSy,im1,im2,jm1,jm2,bi,bj,pedyn,kSurfC,Nr,nlperdyn,gsphy)
./pkg/fizhi/fizhi_wrapper.F 53 FIZHI_WRAPPER 
       INTEGER i, j, L, Lbotij, bi, bj
./pkg/fizhi/fizhi_wrapper.F 71 FIZHI_WRAPPER 
        do bj = myByLo(myThid), myByHi(myThid)
./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 83 FIZHI_WRAPPER 
         udynbef(i,j,L,bi,bj) = uvel(i,j,L,bi,bj)
./pkg/fizhi/fizhi_wrapper.F 92 FIZHI_WRAPPER 
        do bj = myByLo(myThid), myByHi(myThid)
./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 101 FIZHI_WRITE_PICKUP 
      temp(1,1,4,bi,bj) = float(iras(bi,bj))
./pkg/fizhi/fizhi_write_pickup.F 102 FIZHI_WRITE_PICKUP 
      temp(2,1,4,bi,bj) = float(nlwcld(bi,bj))
./pkg/fizhi/fizhi_write_pickup.F 103 FIZHI_WRITE_PICKUP 
      temp(3,1,4,bi,bj) = float(nlwlz(bi,bj))
./pkg/fizhi/fizhi_write_pickup.F 104 FIZHI_WRITE_PICKUP 
      temp(4,1,4,bi,bj) = float(nswcld(bi,bj))
./pkg/fizhi/fizhi_write_pickup.F 105 FIZHI_WRITE_PICKUP 
      temp(5,1,4,bi,bj) = float(nswlz(bi,bj))
./pkg/fizhi/fizhi_write_pickup.F 106 FIZHI_WRITE_PICKUP 
      temp(6,1,4,bi,bj) = float(imstturbsw(bi,bj))
./pkg/fizhi/fizhi_write_pickup.F 107 FIZHI_WRITE_PICKUP 
      temp(7,1,4,bi,bj) = float(imstturblw(bi,bj))
./pkg/fizhi/fizhi_write_pickup.F 49 FIZHI_WRITE_PICKUP 
      integer i,j,k,bi,bj
./pkg/fizhi/fizhi_write_pickup.F 52 FIZHI_WRITE_PICKUP 
      do bj = 1,myByLo(myThid), myByHi(myThid)
./pkg/fizhi/fizhi_write_pickup.F 57 FIZHI_WRITE_PICKUP 
       temp(i,j,k,bi,bj) = 0.
./pkg/fizhi/fizhi_write_pickup.F 91 FIZHI_WRITE_PICKUP 
      do bj = myByLo(myThid), myByHi(myThid)
./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 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 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 133 STEP_FIZHI_CORR 
       do bj = myByLo(myThid), myByHi(myThid)
./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 147 STEP_FIZHI_CORR 
     .        1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,udyntemp)
./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 156 STEP_FIZHI_CORR 
     .        1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,vdyntemp)
./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 165 STEP_FIZHI_CORR 
     .        1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,thdyntemp)
./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 174 STEP_FIZHI_CORR 
     .        1,sNx,1,sNy,bi,bj,pedyn,ksurfC,Nr,nlperdyn,sdyntemp)
./pkg/fizhi/step_fizhi_corr.F 188 STEP_FIZHI_CORR 
       do bj = myByLo(myThid), myByHi(myThid)
./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 213 STEP_FIZHI_CORR 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/step_fizhi_corr.F 217 STEP_FIZHI_CORR 
     .      1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy)
./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 227 STEP_FIZHI_CORR 
     .      1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy)
./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 236 STEP_FIZHI_CORR 
     .     1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy)
./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 245 STEP_FIZHI_CORR 
     .      1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy)
./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 258 STEP_FIZHI_CORR 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/step_fizhi_corr.F 261 STEP_FIZHI_CORR 
     .   Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,
./pkg/fizhi/step_fizhi_corr.F 265 STEP_FIZHI_CORR 
     .         jdim1,jdim2,bi,bj,dpphys,sphy)
./pkg/fizhi/step_fizhi_corr.F 278 STEP_FIZHI_CORR 
      do bj = myByLo(myThid), myByHi(myThid)
./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 291 STEP_FIZHI_CORR 
        call DIAGNOSTICS_FILL(tempij,'TENDUFIZ',L,1,3,bi,bj,myThid)
./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 303 STEP_FIZHI_CORR 
        call DIAGNOSTICS_FILL(tempij,'TENDVFIZ',L,1,3,bi,bj,myThid)
./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 315 STEP_FIZHI_CORR 
        call DIAGNOSTICS_FILL(tempij,'TENDTFIZ',L,1,3,bi,bj,myThid)
./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 327 STEP_FIZHI_CORR 
        call DIAGNOSTICS_FILL(tempij,'TENDQFIZ',L,1,3,bi,bj,myThid)
./pkg/fizhi/step_fizhi_corr.F 341 STEP_FIZHI_CORR 
      do bj = myByLo(myThid), myByHi(myThid)
./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 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 373 STEP_FIZHI_CORR 
     .      1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy)
./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 384 STEP_FIZHI_CORR 
     .      1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,1,tempphy)
./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 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 423 STEP_FIZHI_CORR 
      do bj = myByLo(myThid), myByHi(myThid)
./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 437 STEP_FIZHI_CORR 
     .     1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy)
./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 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)
./pkg/fizhi/step_fizhi_corr.F 470 STEP_FIZHI_CORR 
      do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/step_fizhi_corr.F 475 STEP_FIZHI_CORR 
        sdyntemp(i,j,L,bi,bj) =
./pkg/fizhi/step_fizhi_corr.F 476 STEP_FIZHI_CORR 
     .    (salt(i,j,L,bi,bj)-sdynbef(i,j,L,bi,bj))*dtinv -
./pkg/fizhi/step_fizhi_corr.F 477 STEP_FIZHI_CORR 
     .                                        gsphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 484 STEP_FIZHI_CORR 
     .      1,sNy,bi,bj,windphy,pephy,ksurfC,Nrphys,nlperdyn,0,tempphy)
./pkg/fizhi/step_fizhi_corr.F 490 STEP_FIZHI_CORR 
         sphytemp(i,j,Nrphys+1-L,bi,bj) = tempphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_corr.F 498 STEP_FIZHI_CORR 
        sphytemp(i,j,L,bi,bj)=
./pkg/fizhi/step_fizhi_corr.F 499 STEP_FIZHI_CORR 
     .    ( (sphy(i,j,L,bi,bj)-sbef(i,j,L,bi,bj))*dtinv
./pkg/fizhi/step_fizhi_corr.F 500 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 75 STEP_FIZHI_CORR 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/step_fizhi_corr.F 82 STEP_FIZHI_CORR 
          pedyn(i,j,L,bi,bj) = 0.
./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 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 27 STEP_FIZHI_FG 
       integer bi, bj
./pkg/fizhi/step_fizhi_fg.F 43 STEP_FIZHI_FG 
       do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/step_fizhi_fg.F 49 STEP_FIZHI_FG 
     .      Nrphys,Nsx,Nsy,1,sNx,1,sNy,bi,bj,duphy,dvphy,dthphy,dsphy)
./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 64 STEP_FIZHI_FG 
        tempij(i,j) = vphy(i,j,L,bi,bj)
./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 80 STEP_FIZHI_FG 
        tempij(i,j) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_fizhi_fg.F 88 STEP_FIZHI_FG 
     .       jm1,jm2,bi,bj,dpphys,sphy)
./pkg/fizhi/step_fizhi_fg.F 95 STEP_FIZHI_FG 
        tempij(i,j) = sphy(i,j,L,bi,bj)
./pkg/fizhi/step_physics.F 14 STEP_PHYSICS 
       integer Nrphys,Nsx,Nsy,bi,bj
./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/step_physics.F 6 STEP_PHYSICS 
     .  idim1,idim2,jdim1,jdim2,Nrphys,Nsx,Nsy,im1,im2,jm1,jm2,bi,bj,
./pkg/fizhi/update_chemistry_exports.F 111 INTERP_CHEMISTRY 
     . qz,plz,xlat,im,jm,lm,nSx,nSy,bi,bj,ozrad,qzrad)
./pkg/fizhi/update_chemistry_exports.F 117 INTERP_CHEMISTRY 
      integer nwatlevs,nwatlats,nozlevs,nozlats,nSx,nSy,bi,bj
./pkg/fizhi/update_chemistry_exports.F 132 INTERP_CHEMISTRY 
     .                         bi,bj, xlat,lm,plz,qz,qzrad(1,1,1,bi,bj))
./pkg/fizhi/update_chemistry_exports.F 134 INTERP_CHEMISTRY 
     .                         bi,bj, xlat,lm,plz,ozrad(1,1,1,bi,bj))
./pkg/fizhi/update_chemistry_exports.F 140 INTERP_QZ 
     .                         irun,bi,bj,xlat,nlevs,pres,qz_in,qz_out )
./pkg/fizhi/update_chemistry_exports.F 159 INTERP_QZ 
      integer bi,bj
./pkg/fizhi/update_chemistry_exports.F 279 INTERP_OZ 
     .                            irun,bi,bj,xlat,nlevs,plevs,ozrad)
./pkg/fizhi/update_chemistry_exports.F 296 INTERP_OZ 
      integer bi,bj
./pkg/fizhi/update_chemistry_exports.F 35 UPDATE_CHEMISTRY_EXPORTS 
      integer i, j, L, LL, bi, bj
./pkg/fizhi/update_chemistry_exports.F 49 UPDATE_CHEMISTRY_EXPORTS 
       do bj = myByLo(myThid), myByHi(myThid)
./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 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 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 98 UPDATE_CHEMISTRY_EXPORTS 
     .   waterin,pphy(1,1,1,bi,bj),xlat,
./pkg/fizhi/update_chemistry_exports.F 99 UPDATE_CHEMISTRY_EXPORTS 
     .   im2,jm2,Nrphys,nSx,nSy,bi,bj,o3,qstr)
./pkg/fizhi/update_earth_exports.F 100 UPDATE_EARTH_EXPORTS 
       call GETLGR (sec,month,day,chlt,ityp,nchpland(bi,bj),
./pkg/fizhi/update_earth_exports.F 1014 GETEMISS 
      call EMISSIVITY(snowdep(1,bi,bj),fraci,nchp,nchptot,ityp(1,bi,bj),
./pkg/fizhi/update_earth_exports.F 101 UPDATE_EARTH_EXPORTS 
     &       nchp,nSx,nSy,bi,bj,alai,agrn )
./pkg/fizhi/update_earth_exports.F 1025 GETEMISS 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),emisstile(1,k),nchp,
./pkg/fizhi/update_earth_exports.F 1029 GETEMISS 
       emiss(i,j,k,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 115 UPDATE_EARTH_EXPORTS 
     &    nchptot(bi,bj),nchpland(bi,bj),nSx,nSy,bi,bj,igrd,ityp,
./pkg/fizhi/update_earth_exports.F 1221 GET_LANDFRAC 
      SUBROUTINE GET_LANDFRAC(im,jm,nSx,nSy,bi,bj,maxtyp,surftype,
./pkg/fizhi/update_earth_exports.F 1230 GET_LANDFRAC 
      INTEGER im,jm,nSx,nSy,bi,bj,maxtyp
./pkg/fizhi/update_earth_exports.F 1246 GET_LANDFRAC 
      if( (surftype(i,j,k,bi,bj).lt.100.).and.
./pkg/fizhi/update_earth_exports.F 1247 GET_LANDFRAC 
     &                               (tilefrac(i,j,k,bi,bj).gt.0.0))then
./pkg/fizhi/update_earth_exports.F 1248 GET_LANDFRAC 
       frac(i,j) = frac(i,j) + tilefrac(i,j,k,bi,bj)
./pkg/fizhi/update_earth_exports.F 125 UPDATE_EARTH_EXPORTS 
        call GRD2MSC(fraci,im2,jm2,igrd(1,bi,bj),ficetile,
./pkg/fizhi/update_earth_exports.F 126 UPDATE_EARTH_EXPORTS 
     &               nchp,nchptot(bi,bj))
./pkg/fizhi/update_earth_exports.F 127 UPDATE_EARTH_EXPORTS 
        call GETEMISS(fracl,im2,jm2,nchp,nchptot(bi,bj),nSx,nSy,bi,bj,
./pkg/fizhi/update_earth_exports.F 141 UPDATE_EARTH_EXPORTS 
       do i = 1,nchptot(bi,bj)
./pkg/fizhi/update_earth_exports.F 142 UPDATE_EARTH_EXPORTS 
        tmpchp(i) = tcanopy(i,bi,bj)
./pkg/fizhi/update_earth_exports.F 144 UPDATE_EARTH_EXPORTS 
       call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),tmpchp,
./pkg/fizhi/update_earth_exports.F 145 UPDATE_EARTH_EXPORTS 
     &                    nchp,nchptot(bi,bj),fracl,tmpij,im2,jm2)
./pkg/fizhi/update_earth_exports.F 148 UPDATE_EARTH_EXPORTS 
        tgz(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 149 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 150 UPDATE_EARTH_EXPORTS 
     &                                 tgz(i,j,bi,bj) = sst(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 53 UPDATE_EARTH_EXPORTS 
      INTEGER i, j, n, bi, bj
./pkg/fizhi/update_earth_exports.F 706 GETLGR 
     &    nSx,nSy,bi,bj,ALAI,AGRN)
./pkg/fizhi/update_earth_exports.F 716 GETLGR 
      INTEGER sec, imon, iday, nchps, nchpdim, nSx, nSy, bi, bj
./pkg/fizhi/update_earth_exports.F 73 UPDATE_EARTH_EXPORTS 
      do bj = myByLo(myThid), myByHi(myThid)
./pkg/fizhi/update_earth_exports.F 77 UPDATE_EARTH_EXPORTS 
        lons(i,j) = xC(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 78 UPDATE_EARTH_EXPORTS 
        lats(i,j) = yC(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 800 GETLGR 
      IF(ALAT(I,bi,bj).GT.0.) THEN
./pkg/fizhi/update_earth_exports.F 808 GETLGR 
      ALAI(I,bi,bj) = VGLA(KK2,ITYP(I,bi,bj))*FAC+
./pkg/fizhi/update_earth_exports.F 809 GETLGR 
     &                                 VGLA(KK1,ITYP(I,bi,bj))*(ONE-FAC)
./pkg/fizhi/update_earth_exports.F 810 GETLGR 
      AGRN(I,bi,bj) = VGGR(KK2,ITYP(I,bi,bj))*FAC+
./pkg/fizhi/update_earth_exports.F 811 GETLGR 
     &                                 VGGR(KK1,ITYP(I,bi,bj))*(ONE-FAC)
./pkg/fizhi/update_earth_exports.F 821 GETALB 
     &        nchp,nchptot,nchpland,nSx,nSy,bi,bj,igrd,ityp,chfr,chlt,
./pkg/fizhi/update_earth_exports.F 82 UPDATE_EARTH_EXPORTS 
       call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,surftype,tilefrac,
./pkg/fizhi/update_earth_exports.F 862 GETALB 
      INTEGER sec,month,day,im,jm,nchp,nchptot,nchpland,nSx,nSy,bi,bj
./pkg/fizhi/update_earth_exports.F 87 UPDATE_EARTH_EXPORTS 
        if(sice(i,j,bi,bj).gt.0.) then
./pkg/fizhi/update_earth_exports.F 890 GETALB 
       ALBVR(I,J,bi,bj) = ALBSI*FRACI(I,J) + ALBOC(I,J)*(ONE-FRACI(I,J))
./pkg/fizhi/update_earth_exports.F 891 GETALB 
       ALBNR(I,J,bi,bj) = ALBVR(I,J,bi,bj)
./pkg/fizhi/update_earth_exports.F 892 GETALB 
       ALBVF(I,J,bi,bj) = ALBSI * FRACI(I,J) + OCNALB * (ONE-FRACI(I,J))
./pkg/fizhi/update_earth_exports.F 893 GETALB 
       ALBNF(I,J,bi,bj) = ALBVF(I,J,bi,bj)
./pkg/fizhi/update_earth_exports.F 899 GETALB 
      call GRD2MSC(cosz,im,jm,igrd(1,bi,bj),zenith,nchp,nchpland)
./pkg/fizhi/update_earth_exports.F 903 GETALB 
      call SIBALB(avisdr,anirdr,avisdf,anirdf,alai(1,bi,bj),
./pkg/fizhi/update_earth_exports.F 904 GETALB 
     &  agrn(1,bi,bj),zenith,snodep(1,bi,bj),ityp(1,bi,bj),nchpland)
./pkg/fizhi/update_earth_exports.F 910 GETALB 
       tmpij(i,j) = albvr(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 913 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdr,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 918 GETALB 
       albvr(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 923 GETALB 
       tmpij(i,j) = albvf(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 926 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),avisdf,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 930 GETALB 
       albvf(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 935 GETALB 
       tmpij(i,j) = albnr(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 938 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdr,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 942 GETALB 
       albnr(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 947 GETALB 
       tmpij(i,j) = albnf(i,j,bi,bj)
./pkg/fizhi/update_earth_exports.F 950 GETALB 
      call MSC2GRD(igrd(1,bi,bj),chfr(1,bi,bj),anirdf,nchp,nchpland,
./pkg/fizhi/update_earth_exports.F 954 GETALB 
       albnf(i,j,bi,bj) = tmpij(i,j)
./pkg/fizhi/update_earth_exports.F 963 GETEMISS 
      SUBROUTINE GETEMISS(fracg,im,jm,nchp,nchptot,nSx,nSy,bi,bj,
./pkg/fizhi/update_earth_exports.F 994 GETEMISS 
      INTEGER im,jm,nchp,nchptot,nSx,nSy,bi,bj
./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 118 GETSICE 
     .   jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./pkg/fizhi/update_ocean_exports.F 165 GETSICE 
      integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid
./pkg/fizhi/update_ocean_exports.F 34 UPDATE_OCEAN_EXPORTS 
       integer i, j, bi, bj, bislot, bjslot
./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 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 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 379 GETSST 
     .   jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./pkg/fizhi/update_ocean_exports.F 426 GETSST 
      integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid
./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 82 UPDATE_OCEAN_EXPORTS 
       bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1
./pkg/fizhi/update_ocean_exports.F 83 UPDATE_OCEAN_EXPORTS 
       bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1
./pkg/fizhi/update_ocean_exports.F 86 UPDATE_OCEAN_EXPORTS 
       bjslot = myYGlobalLo-1+(bj-1)*sNy
./pkg/fizhi/update_ocean_exports.F 90 UPDATE_OCEAN_EXPORTS 
     .  jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./pkg/fizhi/update_ocean_exports.F 91 UPDATE_OCEAN_EXPORTS 
     .  sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj),
./pkg/fizhi/update_ocean_exports.F 92 UPDATE_OCEAN_EXPORTS 
     .  nhms1sst(bi,bj),nhms2sst(bi,bj),sstdates(1,bi,bj),
./pkg/fizhi/update_ocean_exports.F 93 UPDATE_OCEAN_EXPORTS 
     .  ssttimes(1,bi,bj),sst,myThid)
./pkg/fizhi/update_ocean_exports.F 95 UPDATE_OCEAN_EXPORTS 
     .  jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./pkg/fizhi/update_ocean_exports.F 96 UPDATE_OCEAN_EXPORTS 
     .  sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj),
./pkg/fizhi/update_ocean_exports.F 97 UPDATE_OCEAN_EXPORTS 
     .  nhms1sice(bi,bj),nhms2sice(bi,bj),sicedates(1,bi,bj),
./pkg/fizhi/update_ocean_exports.F 98 UPDATE_OCEAN_EXPORTS 
     .  sicetimes(1,bi,bj),sice,myThid)
./pkg/flt/exch2_recv_get_vec.F 105 EXCH2_RECV_GET_VEC_RL 
           write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj,
./pkg/flt/exch2_recv_get_vec.F 108 EXCH2_RECV_GET_VEC_RL 
           CALL MPI_RECV( array(1,bi,bj,dir), theSize, theType,
./pkg/flt/exch2_recv_get_vec.F 113 EXCH2_RECV_GET_VEC_RL 
          write(ioUnit,'(A,5I6)') 'RECV,1 :',myProcId,bi,bj
./pkg/flt/exch2_recv_get_vec.F 125 EXCH2_RECV_GET_VEC_RL 
      DO bj=1,nSy
./pkg/flt/exch2_recv_get_vec.F 127 EXCH2_RECV_GET_VEC_RL 
         thisTile = W2_myTileList(bi,bj)
./pkg/flt/exch2_recv_get_vec.F 137 EXCH2_RECV_GET_VEC_RL 
           IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN
./pkg/flt/exch2_recv_get_vec.F 138 EXCH2_RECV_GET_VEC_RL 
            wHandle = theHandle(1,nN,bi,bj)
./pkg/flt/exch2_recv_get_vec.F 64 EXCH2_RECV_GET_VEC_RL 
      INTEGER bi, bj
./pkg/flt/exch2_recv_get_vec.F 85 EXCH2_RECV_GET_VEC_RL 
      DO bj=1,nSy
./pkg/flt/exch2_recv_get_vec.F 87 EXCH2_RECV_GET_VEC_RL 
         thisTile = W2_myTileList(bi,bj)
./pkg/flt/exch2_recv_get_vec.F 97 EXCH2_RECV_GET_VEC_RL 
          write(ioUnit,'(A,5I6)') 'RECV,0 :',myProcId,bi,bj
./pkg/flt/exch2_recv_get_vec.F 99 EXCH2_RECV_GET_VEC_RL 
          IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN
./pkg/flt/exch2_send_put_vec.F 104 EXCH2_SEND_PUT_VEC_RL 
      DO bj=1,nSy
./pkg/flt/exch2_send_put_vec.F 107 EXCH2_SEND_PUT_VEC_RL 
       thisTile = W2_myTileList(bi,bj)
./pkg/flt/exch2_send_put_vec.F 117 EXCH2_SEND_PUT_VEC_RL 
        IF ( W2_myCommFlag(nN,bi,bj) .EQ. 'P' ) THEN
./pkg/flt/exch2_send_put_vec.F 128 EXCH2_SEND_PUT_VEC_RL 
            bufRec(I,sBi,sBj,sDir) = array(I,bi,bj,dir)
./pkg/flt/exch2_send_put_vec.F 132 EXCH2_SEND_PUT_VEC_RL 
     &           W2_myCommFlag(nN,bi,bj) .EQ. 'M' ) THEN
./pkg/flt/exch2_send_put_vec.F 139 EXCH2_SEND_PUT_VEC_RL 
          write(ioUnit,'(A,5I5,I8)') 'qq1xW: ',myProcId,bi,bj,
./pkg/flt/exch2_send_put_vec.F 142 EXCH2_SEND_PUT_VEC_RL 
          CALL MPI_ISEND(array(1,bi,bj,dir), theSize, theType,
./pkg/flt/exch2_send_put_vec.F 144 EXCH2_SEND_PUT_VEC_RL 
     &                  theHandle(1,nN,bi,bj), mpiRc)
./pkg/flt/exch2_send_put_vec.F 68 EXCH2_SEND_PUT_VEC_RL 
      INTEGER bi, bj
./pkg/flt/exch_recv_get_vec.F 100 EXCH_RECV_GET_VEC_X_RL 
          theTag  = _tileTagRecvW(bi,bj)
./pkg/flt/exch_recv_get_vec.F 104 EXCH_RECV_GET_VEC_X_RL 
          write(ioUnit,'(A,5I5,I8)') 'qq2xW: ',myProcId,bi,bj,
./pkg/flt/exch_recv_get_vec.F 107 EXCH_RECV_GET_VEC_X_RL 
          CALL MPI_RECV( arrayW(1,bi,bj), theSize, theType,
./pkg/flt/exch_recv_get_vec.F 123 EXCH_RECV_GET_VEC_X_RL 
        write(ioUnit,'(A,5I6)') 'RECV_X,1 :',myProcId,bi,bj
./pkg/flt/exch_recv_get_vec.F 129 EXCH_RECV_GET_VEC_X_RL 
          theProc = tilePidE(bi,bj)
./pkg/flt/exch_recv_get_vec.F 130 EXCH_RECV_GET_VEC_X_RL 
          theTag  = _tileTagRecvE(bi,bj)
./pkg/flt/exch_recv_get_vec.F 134 EXCH_RECV_GET_VEC_X_RL 
          write(ioUnit,'(A,5I5,I8)') 'qq2xE: ',myProcId,bi,bj,
./pkg/flt/exch_recv_get_vec.F 137 EXCH_RECV_GET_VEC_X_RL 
          CALL MPI_RECV( arrayE(1,bi,bj), theSize, theType,
./pkg/flt/exch_recv_get_vec.F 144 EXCH_RECV_GET_VEC_X_RL 
        write(ioUnit,'(A,5I6)') 'RECV_X,2 :',myProcId,bi,bj
./pkg/flt/exch_recv_get_vec.F 153 EXCH_RECV_GET_VEC_X_RL 
       DO bj=1,nSy
./pkg/flt/exch_recv_get_vec.F 155 EXCH_RECV_GET_VEC_X_RL 
         IF ( exchNReqsX(1,bi,bj) .GT. 0 ) THEN
./pkg/flt/exch_recv_get_vec.F 158 EXCH_RECV_GET_VEC_X_RL 
     &    CALL MPI_WAITALL( exchNReqsX(1,bi,bj), exchReqIdX(1,1,bi,bj),
./pkg/flt/exch_recv_get_vec.F 163 EXCH_RECV_GET_VEC_X_RL 
         exchNReqsX(1,bi,bj) = 0
./pkg/flt/exch_recv_get_vec.F 184 EXCH_RECV_GET_VEC_X_RL 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/exch_recv_get_vec.F 187 EXCH_RECV_GET_VEC_X_RL 
         westCommMode = _tileCommModeW(bi,bj)
./pkg/flt/exch_recv_get_vec.F 188 EXCH_RECV_GET_VEC_X_RL 
         eastCommMode = _tileCommModeE(bi,bj)
./pkg/flt/exch_recv_get_vec.F 190 EXCH_RECV_GET_VEC_X_RL 
          write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,
./pkg/flt/exch_recv_get_vec.F 191 EXCH_RECV_GET_VEC_X_RL 
     &          westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount
./pkg/flt/exch_recv_get_vec.F 197 EXCH_RECV_GET_VEC_X_RL 
          write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,
./pkg/flt/exch_recv_get_vec.F 198 EXCH_RECV_GET_VEC_X_RL 
     &          westRecvAck(1,bi,bj), eastRecvAck(1,bi,bj), spinCount
./pkg/flt/exch_recv_get_vec.F 203 EXCH_RECV_GET_VEC_X_RL 
          IF ( westRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10
./pkg/flt/exch_recv_get_vec.F 204 EXCH_RECV_GET_VEC_X_RL 
          IF ( eastRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10
./pkg/flt/exch_recv_get_vec.F 206 EXCH_RECV_GET_VEC_X_RL 
         westRecvAck(1,bi,bj) = 0
./pkg/flt/exch_recv_get_vec.F 207 EXCH_RECV_GET_VEC_X_RL 
         eastRecvAck(1,bi,bj) = 0
./pkg/flt/exch_recv_get_vec.F 262 EXCH_RECV_GET_VEC_Y_RL 
      INTEGER bi, bj
./pkg/flt/exch_recv_get_vec.F 289 EXCH_RECV_GET_VEC_Y_RL 
      DO bj=1,nSy
./pkg/flt/exch_recv_get_vec.F 291 EXCH_RECV_GET_VEC_Y_RL 
        southCommMode  = _tileCommModeS(bi,bj)
./pkg/flt/exch_recv_get_vec.F 292 EXCH_RECV_GET_VEC_Y_RL 
        northCommMode  = _tileCommModeN(bi,bj)
./pkg/flt/exch_recv_get_vec.F 294 EXCH_RECV_GET_VEC_Y_RL 
        write(ioUnit,'(A,5I6)') 'RECV_Y,0 :',myProcId,bi,bj
./pkg/flt/exch_recv_get_vec.F 303 EXCH_RECV_GET_VEC_Y_RL 
          theProc = tilePidS(bi,bj)
./pkg/flt/exch_recv_get_vec.F 304 EXCH_RECV_GET_VEC_Y_RL 
          theTag  = _tileTagRecvS(bi,bj)
./pkg/flt/exch_recv_get_vec.F 307 EXCH_RECV_GET_VEC_Y_RL 
          CALL MPI_RECV( arrayS(1,bi,bj), theSize, theType,
./pkg/flt/exch_recv_get_vec.F 314 EXCH_RECV_GET_VEC_Y_RL 
        write(ioUnit,'(A,5I6)') 'RECV_Y,1 :',myProcId,bi,bj
./pkg/flt/exch_recv_get_vec.F 320 EXCH_RECV_GET_VEC_Y_RL 
          theProc = tilePidN(bi,bj)
./pkg/flt/exch_recv_get_vec.F 321 EXCH_RECV_GET_VEC_Y_RL 
          theTag  = _tileTagRecvN(bi,bj)
./pkg/flt/exch_recv_get_vec.F 324 EXCH_RECV_GET_VEC_Y_RL 
          CALL MPI_RECV( arrayN(1,bi,bj), theSize, theType,
./pkg/flt/exch_recv_get_vec.F 331 EXCH_RECV_GET_VEC_Y_RL 
        write(ioUnit,'(A,5I6)') 'RECV_Y,2 :',myProcId,bi,bj
./pkg/flt/exch_recv_get_vec.F 341 EXCH_RECV_GET_VEC_Y_RL 
       DO bj=1,nSy
./pkg/flt/exch_recv_get_vec.F 343 EXCH_RECV_GET_VEC_Y_RL 
         IF ( exchNReqsY(1,bi,bj) .GT. 0 ) THEN
./pkg/flt/exch_recv_get_vec.F 346 EXCH_RECV_GET_VEC_Y_RL 
     &    CALL MPI_WAITALL( exchNReqsY(1,bi,bj), exchReqIdY(1,1,bi,bj),
./pkg/flt/exch_recv_get_vec.F 351 EXCH_RECV_GET_VEC_Y_RL 
         exchNReqsY(1,bi,bj) = 0
./pkg/flt/exch_recv_get_vec.F 372 EXCH_RECV_GET_VEC_Y_RL 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/exch_recv_get_vec.F 375 EXCH_RECV_GET_VEC_Y_RL 
         southCommMode = _tileCommModeS(bi,bj)
./pkg/flt/exch_recv_get_vec.F 376 EXCH_RECV_GET_VEC_Y_RL 
         northCommMode = _tileCommModeN(bi,bj)
./pkg/flt/exch_recv_get_vec.F 378 EXCH_RECV_GET_VEC_Y_RL 
          write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,
./pkg/flt/exch_recv_get_vec.F 379 EXCH_RECV_GET_VEC_Y_RL 
     &          southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount
./pkg/flt/exch_recv_get_vec.F 385 EXCH_RECV_GET_VEC_Y_RL 
          write(ioUnit,'(A,5I6,I12)') 'spin:', myProcId,bi,bj,
./pkg/flt/exch_recv_get_vec.F 386 EXCH_RECV_GET_VEC_Y_RL 
     &          southRecvAck(1,bi,bj), northRecvAck(1,bi,bj), spinCount
./pkg/flt/exch_recv_get_vec.F 391 EXCH_RECV_GET_VEC_Y_RL 
          IF ( southRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10
./pkg/flt/exch_recv_get_vec.F 392 EXCH_RECV_GET_VEC_Y_RL 
          IF ( northRecvAck(1,bi,bj) .EQ. 0 ) GOTO 10
./pkg/flt/exch_recv_get_vec.F 394 EXCH_RECV_GET_VEC_Y_RL 
         southRecvAck(1,bi,bj) = 0
./pkg/flt/exch_recv_get_vec.F 395 EXCH_RECV_GET_VEC_Y_RL 
         northRecvAck(1,bi,bj) = 0
./pkg/flt/exch_recv_get_vec.F 58 EXCH_RECV_GET_VEC_X_RL 
      INTEGER bi, bj
./pkg/flt/exch_recv_get_vec.F 85 EXCH_RECV_GET_VEC_X_RL 
      DO bj=1,nSy
./pkg/flt/exch_recv_get_vec.F 87 EXCH_RECV_GET_VEC_X_RL 
        westCommMode  = _tileCommModeW(bi,bj)
./pkg/flt/exch_recv_get_vec.F 88 EXCH_RECV_GET_VEC_X_RL 
        eastCommMode  = _tileCommModeE(bi,bj)
./pkg/flt/exch_recv_get_vec.F 90 EXCH_RECV_GET_VEC_X_RL 
        write(ioUnit,'(A,5I6)') 'RECV_X,0 :',myProcId,bi,bj
./pkg/flt/exch_recv_get_vec.F 99 EXCH_RECV_GET_VEC_X_RL 
          theProc = tilePidW(bi,bj)
./pkg/flt/exch_send_put_vec.F 109 EXCH_SEND_PUT_VEC_X_RL 
      DO bj=1,nSy
./pkg/flt/exch_send_put_vec.F 112 EXCH_SEND_PUT_VEC_X_RL 
        westCommMode  = _tileCommModeW(bi,bj)
./pkg/flt/exch_send_put_vec.F 113 EXCH_SEND_PUT_VEC_X_RL 
        eastCommMode  = _tileCommModeE(bi,bj)
./pkg/flt/exch_send_put_vec.F 114 EXCH_SEND_PUT_VEC_X_RL 
        biE =  _tileBiE(bi,bj)
./pkg/flt/exch_send_put_vec.F 115 EXCH_SEND_PUT_VEC_X_RL 
        bjE =  _tileBjE(bi,bj)
./pkg/flt/exch_send_put_vec.F 116 EXCH_SEND_PUT_VEC_X_RL 
        biW =  _tileBiW(bi,bj)
./pkg/flt/exch_send_put_vec.F 117 EXCH_SEND_PUT_VEC_X_RL 
        bjW =  _tileBjW(bi,bj)
./pkg/flt/exch_send_put_vec.F 124 EXCH_SEND_PUT_VEC_X_RL 
          theProc = tilePidW(bi,bj)
./pkg/flt/exch_send_put_vec.F 125 EXCH_SEND_PUT_VEC_X_RL 
          theTag  = _tileTagSendW(bi,bj)
./pkg/flt/exch_send_put_vec.F 128 EXCH_SEND_PUT_VEC_X_RL 
          exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1
./pkg/flt/exch_send_put_vec.F 130 EXCH_SEND_PUT_VEC_X_RL 
          write(ioUnit,'(A,7I5,I8)') 'qq1xW: ',myProcId,bi,bj,
./pkg/flt/exch_send_put_vec.F 131 EXCH_SEND_PUT_VEC_X_RL 
     &          theProc,theTag, exchNReqsX(1,bi,bj),
./pkg/flt/exch_send_put_vec.F 132 EXCH_SEND_PUT_VEC_X_RL 
     &          exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize
./pkg/flt/exch_send_put_vec.F 134 EXCH_SEND_PUT_VEC_X_RL 
          CALL MPI_ISEND( arrayW(1,bi,bj), theSize, theType,
./pkg/flt/exch_send_put_vec.F 136 EXCH_SEND_PUT_VEC_X_RL 
     &                    exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj),
./pkg/flt/exch_send_put_vec.F 144 EXCH_SEND_PUT_VEC_X_RL 
            bufRecE(I,biW,bjW) = arrayW(I,bi,bj)
./pkg/flt/exch_send_put_vec.F 155 EXCH_SEND_PUT_VEC_X_RL 
          theProc = tilePidE(bi,bj)
./pkg/flt/exch_send_put_vec.F 156 EXCH_SEND_PUT_VEC_X_RL 
          theTag  = _tileTagSendE(bi,bj)
./pkg/flt/exch_send_put_vec.F 159 EXCH_SEND_PUT_VEC_X_RL 
          exchNReqsX(1,bi,bj) = exchNReqsX(1,bi,bj)+1
./pkg/flt/exch_send_put_vec.F 163 EXCH_SEND_PUT_VEC_X_RL 
          write(ioUnit,'(A,7I5,I8)') 'qq1xE: ',myProcId,bi,bj,
./pkg/flt/exch_send_put_vec.F 164 EXCH_SEND_PUT_VEC_X_RL 
     &       theProc,theTag, exchNReqsX(1,bi,bj),
./pkg/flt/exch_send_put_vec.F 165 EXCH_SEND_PUT_VEC_X_RL 
     &       exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj), theSize
./pkg/flt/exch_send_put_vec.F 169 EXCH_SEND_PUT_VEC_X_RL 
          CALL MPI_ISEND( arrayE(1,bi,bj), theSize, theType,
./pkg/flt/exch_send_put_vec.F 171 EXCH_SEND_PUT_VEC_X_RL 
     &                    exchReqIdX(exchNReqsX(1,bi,bj),1,bi,bj),
./pkg/flt/exch_send_put_vec.F 179 EXCH_SEND_PUT_VEC_X_RL 
            bufRecW(I,biE,bjE) = arrayE(I,bi,bj)
./pkg/flt/exch_send_put_vec.F 199 EXCH_SEND_PUT_VEC_X_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/exch_send_put_vec.F 201 EXCH_SEND_PUT_VEC_X_RL 
        biE = _tileBiE(bi,bj)
./pkg/flt/exch_send_put_vec.F 202 EXCH_SEND_PUT_VEC_X_RL 
        bjE = _tileBjE(bi,bj)
./pkg/flt/exch_send_put_vec.F 203 EXCH_SEND_PUT_VEC_X_RL 
        biW = _tileBiW(bi,bj)
./pkg/flt/exch_send_put_vec.F 204 EXCH_SEND_PUT_VEC_X_RL 
        bjW = _tileBjW(bi,bj)
./pkg/flt/exch_send_put_vec.F 205 EXCH_SEND_PUT_VEC_X_RL 
        westCommMode = _tileCommModeW(bi,bj)
./pkg/flt/exch_send_put_vec.F 206 EXCH_SEND_PUT_VEC_X_RL 
        eastCommMode = _tileCommModeE(bi,bj)
./pkg/flt/exch_send_put_vec.F 290 EXCH_SEND_PUT_VEC_Y_RL 
      INTEGER bi, bj, biS, bjS, biN, bjN
./pkg/flt/exch_send_put_vec.F 331 EXCH_SEND_PUT_VEC_Y_RL 
      DO bj=1,nSy
./pkg/flt/exch_send_put_vec.F 334 EXCH_SEND_PUT_VEC_Y_RL 
        southCommMode  = _tileCommModeS(bi,bj)
./pkg/flt/exch_send_put_vec.F 335 EXCH_SEND_PUT_VEC_Y_RL 
        northCommMode  = _tileCommModeN(bi,bj)
./pkg/flt/exch_send_put_vec.F 336 EXCH_SEND_PUT_VEC_Y_RL 
        biN =  _tileBiN(bi,bj)
./pkg/flt/exch_send_put_vec.F 337 EXCH_SEND_PUT_VEC_Y_RL 
        bjN =  _tileBjN(bi,bj)
./pkg/flt/exch_send_put_vec.F 338 EXCH_SEND_PUT_VEC_Y_RL 
        biS =  _tileBiS(bi,bj)
./pkg/flt/exch_send_put_vec.F 339 EXCH_SEND_PUT_VEC_Y_RL 
        bjS =  _tileBjS(bi,bj)
./pkg/flt/exch_send_put_vec.F 346 EXCH_SEND_PUT_VEC_Y_RL 
          theProc = tilePidS(bi,bj)
./pkg/flt/exch_send_put_vec.F 347 EXCH_SEND_PUT_VEC_Y_RL 
          theTag  = _tileTagSendS(bi,bj)
./pkg/flt/exch_send_put_vec.F 350 EXCH_SEND_PUT_VEC_Y_RL 
          exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1
./pkg/flt/exch_send_put_vec.F 351 EXCH_SEND_PUT_VEC_Y_RL 
          CALL MPI_ISEND( arrayS(1,bi,bj), theSize, theType,
./pkg/flt/exch_send_put_vec.F 353 EXCH_SEND_PUT_VEC_Y_RL 
     &                    exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj),
./pkg/flt/exch_send_put_vec.F 361 EXCH_SEND_PUT_VEC_Y_RL 
            bufRecN(I,biS,bjS) = arrayS(I,bi,bj)
./pkg/flt/exch_send_put_vec.F 372 EXCH_SEND_PUT_VEC_Y_RL 
          theProc = tilePidN(bi,bj)
./pkg/flt/exch_send_put_vec.F 373 EXCH_SEND_PUT_VEC_Y_RL 
          theTag  = _tileTagSendN(bi,bj)
./pkg/flt/exch_send_put_vec.F 376 EXCH_SEND_PUT_VEC_Y_RL 
          exchNReqsY(1,bi,bj) = exchNReqsY(1,bi,bj)+1
./pkg/flt/exch_send_put_vec.F 377 EXCH_SEND_PUT_VEC_Y_RL 
          CALL MPI_ISEND( arrayN(1,bi,bj), theSize, theType,
./pkg/flt/exch_send_put_vec.F 379 EXCH_SEND_PUT_VEC_Y_RL 
     &                    exchReqIdY(exchNReqsY(1,bi,bj),1,bi,bj),
./pkg/flt/exch_send_put_vec.F 387 EXCH_SEND_PUT_VEC_Y_RL 
            bufRecS(I,biN,bjN) = arrayN(I,bi,bj)
./pkg/flt/exch_send_put_vec.F 407 EXCH_SEND_PUT_VEC_Y_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/exch_send_put_vec.F 409 EXCH_SEND_PUT_VEC_Y_RL 
        biN = _tileBiN(bi,bj)
./pkg/flt/exch_send_put_vec.F 410 EXCH_SEND_PUT_VEC_Y_RL 
        bjN = _tileBjN(bi,bj)
./pkg/flt/exch_send_put_vec.F 411 EXCH_SEND_PUT_VEC_Y_RL 
        biS = _tileBiS(bi,bj)
./pkg/flt/exch_send_put_vec.F 412 EXCH_SEND_PUT_VEC_Y_RL 
        bjS = _tileBjS(bi,bj)
./pkg/flt/exch_send_put_vec.F 413 EXCH_SEND_PUT_VEC_Y_RL 
        southCommMode = _tileCommModeS(bi,bj)
./pkg/flt/exch_send_put_vec.F 414 EXCH_SEND_PUT_VEC_Y_RL 
        northCommMode = _tileCommModeN(bi,bj)
./pkg/flt/exch_send_put_vec.F 65 EXCH_SEND_PUT_VEC_X_RL 
      INTEGER bi, bj, biW, bjW, biE, bjE
./pkg/flt/flt_down.F 30 FLT_DOWN 
      INTEGER bi, bj
./pkg/flt/flt_down.F 35 FLT_DOWN 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_down.F 38 FLT_DOWN 
        DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_down.F 41 FLT_DOWN 
     &  (                             myTime.GE.tstart(ip,bi,bj))
./pkg/flt/flt_down.F 43 FLT_DOWN 
     &  (  tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.  tend(ip,bi,bj))
./pkg/flt/flt_down.F 45 FLT_DOWN 
     &  (kpart(ip,bi,bj) .LE. flt_surf)
./pkg/flt/flt_down.F 47 FLT_DOWN 
     &  (iup(ip,bi,bj)   .GT. 0.)
./pkg/flt/flt_down.F 58 FLT_DOWN 
           IF (mod(myTime,iup(ip,bi,bj)).EQ.itop(ip,bi,bj))
./pkg/flt/flt_down.F 59 FLT_DOWN 
     &      kpart(ip,bi,bj) = kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F 100 FLT_EXCH2 
           DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 103 FLT_EXCH2 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F 104 FLT_EXCH2 
     &           .AND. ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exch2.F 106 FLT_EXCH2 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F 107 FLT_EXCH2 
             ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exch2.F 112 FLT_EXCH2 
               iNew = ipart(ip,bi,bj) - DFLOAT(sNx)
./pkg/flt/flt_exch2.F 113 FLT_EXCH2 
               fltbuf_send(ic+1,bi,bj,W2_EAST) =   npart(ip,bi,bj)
./pkg/flt/flt_exch2.F 114 FLT_EXCH2 
               fltbuf_send(ic+2,bi,bj,W2_EAST) =  tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F 115 FLT_EXCH2 
               fltbuf_send(ic+3,bi,bj,W2_EAST) =   iNew
./pkg/flt/flt_exch2.F 116 FLT_EXCH2 
               fltbuf_send(ic+4,bi,bj,W2_EAST) =   jpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 117 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_EAST) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 118 FLT_EXCH2 
               fltbuf_send(ic+6,bi,bj,W2_EAST) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F 119 FLT_EXCH2 
               fltbuf_send(ic+7,bi,bj,W2_EAST) =     iup(ip,bi,bj)
./pkg/flt/flt_exch2.F 120 FLT_EXCH2 
               fltbuf_send(ic+8,bi,bj,W2_EAST) =    itop(ip,bi,bj)
./pkg/flt/flt_exch2.F 121 FLT_EXCH2 
               fltbuf_send(ic+9,bi,bj,W2_EAST) =    tend(ip,bi,bj)
./pkg/flt/flt_exch2.F 126 FLT_EXCH2 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F 132 FLT_EXCH2 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F 133 FLT_EXCH2 
     &           .AND. ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exch2.F 135 FLT_EXCH2 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F 136 FLT_EXCH2 
             ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exch2.F 141 FLT_EXCH2 
               iNew = ipart(ip,bi,bj) + DFLOAT(sNx)
./pkg/flt/flt_exch2.F 142 FLT_EXCH2 
               fltbuf_send(ic+1,bi,bj,W2_WEST) =   npart(ip,bi,bj)
./pkg/flt/flt_exch2.F 143 FLT_EXCH2 
               fltbuf_send(ic+2,bi,bj,W2_WEST) =  tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F 144 FLT_EXCH2 
               fltbuf_send(ic+3,bi,bj,W2_WEST) =   iNew
./pkg/flt/flt_exch2.F 145 FLT_EXCH2 
               fltbuf_send(ic+4,bi,bj,W2_WEST) =   jpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 146 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_WEST) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 147 FLT_EXCH2 
               fltbuf_send(ic+6,bi,bj,W2_WEST) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F 148 FLT_EXCH2 
               fltbuf_send(ic+7,bi,bj,W2_WEST) =     iup(ip,bi,bj)
./pkg/flt/flt_exch2.F 149 FLT_EXCH2 
               fltbuf_send(ic+8,bi,bj,W2_WEST) =    itop(ip,bi,bj)
./pkg/flt/flt_exch2.F 150 FLT_EXCH2 
               fltbuf_send(ic+9,bi,bj,W2_WEST) =    tend(ip,bi,bj)
./pkg/flt/flt_exch2.F 155 FLT_EXCH2 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F 163 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 170 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 181 FLT_EXCH2 
             npNew = npart_tile(bi,bj) - (icountE+icountW)
./pkg/flt/flt_exch2.F 183 FLT_EXCH2 
             DO jp = npNew+1,npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 184 FLT_EXCH2 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exch2.F 188 FLT_EXCH2 
                npart (ip,bi,bj) =  npart (jp,bi,bj)
./pkg/flt/flt_exch2.F 189 FLT_EXCH2 
                tstart(ip,bi,bj) =  tstart(jp,bi,bj)
./pkg/flt/flt_exch2.F 190 FLT_EXCH2 
                ipart (ip,bi,bj) =  ipart (jp,bi,bj)
./pkg/flt/flt_exch2.F 191 FLT_EXCH2 
                jpart (ip,bi,bj) =  jpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 192 FLT_EXCH2 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 193 FLT_EXCH2 
                kfloat(ip,bi,bj) =  kfloat(jp,bi,bj)
./pkg/flt/flt_exch2.F 194 FLT_EXCH2 
                iup   (ip,bi,bj) =  iup   (jp,bi,bj)
./pkg/flt/flt_exch2.F 195 FLT_EXCH2 
                itop  (ip,bi,bj) =  itop  (jp,bi,bj)
./pkg/flt/flt_exch2.F 196 FLT_EXCH2 
                tend  (ip,bi,bj) =  tend  (jp,bi,bj)
./pkg/flt/flt_exch2.F 199 FLT_EXCH2 
             npart_tile(bi,bj) = npNew
./pkg/flt/flt_exch2.F 215 FLT_EXCH2 
           DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 217 FLT_EXCH2 
            IF ( npart(ip,bi,bj).NE.0 ) THEN
./pkg/flt/flt_exch2.F 220 FLT_EXCH2 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F 221 FLT_EXCH2 
     &           .AND. jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exch2.F 223 FLT_EXCH2 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F 224 FLT_EXCH2 
             ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exch2.F 229 FLT_EXCH2 
               jNew = jpart(ip,bi,bj) - DFLOAT(sNy)
./pkg/flt/flt_exch2.F 230 FLT_EXCH2 
               fltbuf_send(ic+1,bi,bj,W2_NORTH) =   npart(ip,bi,bj)
./pkg/flt/flt_exch2.F 231 FLT_EXCH2 
               fltbuf_send(ic+2,bi,bj,W2_NORTH) =  tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F 232 FLT_EXCH2 
               fltbuf_send(ic+3,bi,bj,W2_NORTH) =   ipart(ip,bi,bj)
./pkg/flt/flt_exch2.F 233 FLT_EXCH2 
               fltbuf_send(ic+4,bi,bj,W2_NORTH) =   jNew
./pkg/flt/flt_exch2.F 234 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_NORTH) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 235 FLT_EXCH2 
               fltbuf_send(ic+6,bi,bj,W2_NORTH) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F 236 FLT_EXCH2 
               fltbuf_send(ic+7,bi,bj,W2_NORTH) =     iup(ip,bi,bj)
./pkg/flt/flt_exch2.F 237 FLT_EXCH2 
               fltbuf_send(ic+8,bi,bj,W2_NORTH) =    itop(ip,bi,bj)
./pkg/flt/flt_exch2.F 238 FLT_EXCH2 
               fltbuf_send(ic+9,bi,bj,W2_NORTH) =    tend(ip,bi,bj)
./pkg/flt/flt_exch2.F 243 FLT_EXCH2 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F 254 FLT_EXCH2 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exch2.F 255 FLT_EXCH2 
     &           .AND. jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exch2.F 257 FLT_EXCH2 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exch2.F 258 FLT_EXCH2 
             ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exch2.F 263 FLT_EXCH2 
               jNew = jpart(ip,bi,bj) + DFLOAT(sNy)
./pkg/flt/flt_exch2.F 264 FLT_EXCH2 
               fltbuf_send(ic+1,bi,bj,W2_SOUTH) =   npart(ip,bi,bj)
./pkg/flt/flt_exch2.F 265 FLT_EXCH2 
               fltbuf_send(ic+2,bi,bj,W2_SOUTH) =  tstart(ip,bi,bj)
./pkg/flt/flt_exch2.F 266 FLT_EXCH2 
               fltbuf_send(ic+3,bi,bj,W2_SOUTH) =   ipart(ip,bi,bj)
./pkg/flt/flt_exch2.F 267 FLT_EXCH2 
               fltbuf_send(ic+4,bi,bj,W2_SOUTH) =   jNew
./pkg/flt/flt_exch2.F 268 FLT_EXCH2 
               fltbuf_send(ic+5,bi,bj,W2_SOUTH) =   kpart(ip,bi,bj)
./pkg/flt/flt_exch2.F 269 FLT_EXCH2 
               fltbuf_send(ic+6,bi,bj,W2_SOUTH) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exch2.F 270 FLT_EXCH2 
               fltbuf_send(ic+7,bi,bj,W2_SOUTH) =     iup(ip,bi,bj)
./pkg/flt/flt_exch2.F 271 FLT_EXCH2 
               fltbuf_send(ic+8,bi,bj,W2_SOUTH) =    itop(ip,bi,bj)
./pkg/flt/flt_exch2.F 272 FLT_EXCH2 
               fltbuf_send(ic+9,bi,bj,W2_SOUTH) =    tend(ip,bi,bj)
./pkg/flt/flt_exch2.F 277 FLT_EXCH2 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exch2.F 292 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 299 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 310 FLT_EXCH2 
             npNew = npart_tile(bi,bj) - (icountN+icountS)
./pkg/flt/flt_exch2.F 312 FLT_EXCH2 
             DO jp = npNew+1,npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 313 FLT_EXCH2 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exch2.F 317 FLT_EXCH2 
                npart (ip,bi,bj) =  npart (jp,bi,bj)
./pkg/flt/flt_exch2.F 318 FLT_EXCH2 
                tstart(ip,bi,bj) =  tstart(jp,bi,bj)
./pkg/flt/flt_exch2.F 319 FLT_EXCH2 
                ipart (ip,bi,bj) =  ipart (jp,bi,bj)
./pkg/flt/flt_exch2.F 320 FLT_EXCH2 
                jpart (ip,bi,bj) =  jpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 321 FLT_EXCH2 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exch2.F 322 FLT_EXCH2 
                kfloat(ip,bi,bj) =  kfloat(jp,bi,bj)
./pkg/flt/flt_exch2.F 323 FLT_EXCH2 
                iup   (ip,bi,bj) =  iup   (jp,bi,bj)
./pkg/flt/flt_exch2.F 324 FLT_EXCH2 
                itop  (ip,bi,bj) =  itop  (jp,bi,bj)
./pkg/flt/flt_exch2.F 325 FLT_EXCH2 
                tend  (ip,bi,bj) =  tend  (jp,bi,bj)
./pkg/flt/flt_exch2.F 328 FLT_EXCH2 
             npart_tile(bi,bj) = npNew
./pkg/flt/flt_exch2.F 370 FLT_EXCH2 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_exch2.F 376 FLT_EXCH2 
            IF ( fltbuf_recv(ic+1,bi,bj,W2_EAST).NE.0. ) THEN
./pkg/flt/flt_exch2.F 377 FLT_EXCH2 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exch2.F 378 FLT_EXCH2 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 379 FLT_EXCH2 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 380 FLT_EXCH2 
               npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 381 FLT_EXCH2 
               tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 382 FLT_EXCH2 
               ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 383 FLT_EXCH2 
               jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 384 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 385 FLT_EXCH2 
               kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 386 FLT_EXCH2 
               iup(   jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 387 FLT_EXCH2 
               itop(  jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 388 FLT_EXCH2 
               tend(  jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_EAST)
./pkg/flt/flt_exch2.F 393 FLT_EXCH2 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 395 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 396 FLT_EXCH2 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exch2.F 405 FLT_EXCH2 
            IF ( fltbuf_recv(ic+1,bi,bj,W2_WEST).NE.0. ) THEN
./pkg/flt/flt_exch2.F 406 FLT_EXCH2 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exch2.F 407 FLT_EXCH2 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 408 FLT_EXCH2 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 409 FLT_EXCH2 
               npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 410 FLT_EXCH2 
               tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 411 FLT_EXCH2 
               ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 412 FLT_EXCH2 
               jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 413 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 414 FLT_EXCH2 
               kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 415 FLT_EXCH2 
               iup(   jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 416 FLT_EXCH2 
               itop(  jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 417 FLT_EXCH2 
               tend(  jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_WEST)
./pkg/flt/flt_exch2.F 422 FLT_EXCH2 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 424 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 425 FLT_EXCH2 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exch2.F 42 FLT_EXCH2 
      INTEGER bi, bj, ic
./pkg/flt/flt_exch2.F 434 FLT_EXCH2 
            IF ( fltbuf_recv(ic+1,bi,bj,W2_NORTH).NE.0. ) THEN
./pkg/flt/flt_exch2.F 435 FLT_EXCH2 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exch2.F 436 FLT_EXCH2 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 437 FLT_EXCH2 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 438 FLT_EXCH2 
               npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 439 FLT_EXCH2 
               tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 440 FLT_EXCH2 
               ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 441 FLT_EXCH2 
               jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 442 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 443 FLT_EXCH2 
               kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 444 FLT_EXCH2 
               iup(   jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 445 FLT_EXCH2 
               itop(  jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 446 FLT_EXCH2 
               tend(  jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_NORTH)
./pkg/flt/flt_exch2.F 451 FLT_EXCH2 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 453 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 454 FLT_EXCH2 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exch2.F 463 FLT_EXCH2 
            IF ( fltbuf_recv(ic+1,bi,bj,W2_SOUTH).NE.0. ) THEN
./pkg/flt/flt_exch2.F 464 FLT_EXCH2 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exch2.F 465 FLT_EXCH2 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 466 FLT_EXCH2 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exch2.F 467 FLT_EXCH2 
               npart( jp,bi,bj) = fltbuf_recv(ic+1,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 468 FLT_EXCH2 
               tstart(jp,bi,bj) = fltbuf_recv(ic+2,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 469 FLT_EXCH2 
               ipart( jp,bi,bj) = fltbuf_recv(ic+3,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 470 FLT_EXCH2 
               jpart( jp,bi,bj) = fltbuf_recv(ic+4,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 471 FLT_EXCH2 
               kpart( jp,bi,bj) = fltbuf_recv(ic+5,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 472 FLT_EXCH2 
               kfloat(jp,bi,bj) = fltbuf_recv(ic+6,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 473 FLT_EXCH2 
               iup(   jp,bi,bj) = fltbuf_recv(ic+7,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 474 FLT_EXCH2 
               itop(  jp,bi,bj) = fltbuf_recv(ic+8,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 475 FLT_EXCH2 
               tend(  jp,bi,bj) = fltbuf_recv(ic+9,bi,bj,W2_SOUTH)
./pkg/flt/flt_exch2.F 480 FLT_EXCH2 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exch2.F 482 FLT_EXCH2 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exch2.F 483 FLT_EXCH2 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exch2.F 74 FLT_EXCH2 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_exch2.F 76 FLT_EXCH2 
           nT = W2_myTileList(bi,bj)
./pkg/flt/flt_exch2.F 82 FLT_EXCH2 
             fltbuf_send(m,bi,bj,N) = 0.
./pkg/flt/flt_exch2.F 83 FLT_EXCH2 
             fltbuf_recv(m,bi,bj,N) = 0.
./pkg/flt/flt_exchg.F 100 FLT_EXCHG 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F 101 FLT_EXCHG 
     &           .AND. ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exchg.F 103 FLT_EXCHG 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F 104 FLT_EXCHG 
             ELSEIF ( ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exchg.F 106 FLT_EXCHG 
             IF ( ipart(ip,bi,bj).GE.ihi ) THEN
./pkg/flt/flt_exchg.F 112 FLT_EXCHG 
               iNew = ipart(ip,bi,bj) - DFLOAT(sNx)
./pkg/flt/flt_exchg.F 113 FLT_EXCHG 
               fltbuf_sendE(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 114 FLT_EXCHG 
               fltbuf_sendE(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 115 FLT_EXCHG 
               fltbuf_sendE(ic+3,bi,bj) =   iNew
./pkg/flt/flt_exchg.F 116 FLT_EXCHG 
               fltbuf_sendE(ic+4,bi,bj) =   jpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 117 FLT_EXCHG 
               fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 118 FLT_EXCHG 
               fltbuf_sendE(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 119 FLT_EXCHG 
               fltbuf_sendE(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 120 FLT_EXCHG 
               fltbuf_sendE(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 121 FLT_EXCHG 
               fltbuf_sendE(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 126 FLT_EXCHG 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F 133 FLT_EXCHG 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F 134 FLT_EXCHG 
     &           .AND. ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exchg.F 136 FLT_EXCHG 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F 137 FLT_EXCHG 
             ELSEIF ( ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exchg.F 139 FLT_EXCHG 
             IF ( ipart(ip,bi,bj).LT.ilo ) THEN
./pkg/flt/flt_exchg.F 145 FLT_EXCHG 
               iNew = ipart(ip,bi,bj) + DFLOAT(sNx)
./pkg/flt/flt_exchg.F 146 FLT_EXCHG 
               fltbuf_sendW(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 147 FLT_EXCHG 
               fltbuf_sendW(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 148 FLT_EXCHG 
               fltbuf_sendW(ic+3,bi,bj) =   iNew
./pkg/flt/flt_exchg.F 149 FLT_EXCHG 
               fltbuf_sendW(ic+4,bi,bj) =   jpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 150 FLT_EXCHG 
               fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 151 FLT_EXCHG 
               fltbuf_sendW(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 152 FLT_EXCHG 
               fltbuf_sendW(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 153 FLT_EXCHG 
               fltbuf_sendW(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 154 FLT_EXCHG 
               fltbuf_sendW(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 159 FLT_EXCHG 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F 167 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 174 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 185 FLT_EXCHG 
             npNew = npart_tile(bi,bj) - (icountE+icountW)
./pkg/flt/flt_exchg.F 187 FLT_EXCHG 
             DO jp = npNew+1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 188 FLT_EXCHG 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exchg.F 192 FLT_EXCHG 
                npart (ip,bi,bj) =  npart (jp,bi,bj)
./pkg/flt/flt_exchg.F 193 FLT_EXCHG 
                tstart(ip,bi,bj) =  tstart(jp,bi,bj)
./pkg/flt/flt_exchg.F 194 FLT_EXCHG 
                ipart (ip,bi,bj) =  ipart (jp,bi,bj)
./pkg/flt/flt_exchg.F 195 FLT_EXCHG 
                jpart (ip,bi,bj) =  jpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 196 FLT_EXCHG 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 197 FLT_EXCHG 
                kfloat(ip,bi,bj) =  kfloat(jp,bi,bj)
./pkg/flt/flt_exchg.F 198 FLT_EXCHG 
                iup   (ip,bi,bj) =  iup   (jp,bi,bj)
./pkg/flt/flt_exchg.F 199 FLT_EXCHG 
                itop  (ip,bi,bj) =  itop  (jp,bi,bj)
./pkg/flt/flt_exchg.F 200 FLT_EXCHG 
                tend  (ip,bi,bj) =  tend  (jp,bi,bj)
./pkg/flt/flt_exchg.F 203 FLT_EXCHG 
             npart_tile(bi,bj) = npNew
./pkg/flt/flt_exchg.F 231 FLT_EXCHG 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_exchg.F 237 FLT_EXCHG 
            IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN
./pkg/flt/flt_exchg.F 238 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 239 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 240 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 241 FLT_EXCHG 
               npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj)
./pkg/flt/flt_exchg.F 242 FLT_EXCHG 
               tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj)
./pkg/flt/flt_exchg.F 243 FLT_EXCHG 
               ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj)
./pkg/flt/flt_exchg.F 244 FLT_EXCHG 
               jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj)
./pkg/flt/flt_exchg.F 245 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 246 FLT_EXCHG 
               kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj)
./pkg/flt/flt_exchg.F 247 FLT_EXCHG 
               iup(   jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj)
./pkg/flt/flt_exchg.F 248 FLT_EXCHG 
               itop(  jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj)
./pkg/flt/flt_exchg.F 249 FLT_EXCHG 
               tend(  jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj)
./pkg/flt/flt_exchg.F 254 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 256 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 257 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 266 FLT_EXCHG 
            IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN
./pkg/flt/flt_exchg.F 267 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 268 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 269 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 270 FLT_EXCHG 
               npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj)
./pkg/flt/flt_exchg.F 271 FLT_EXCHG 
               tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj)
./pkg/flt/flt_exchg.F 272 FLT_EXCHG 
               ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj)
./pkg/flt/flt_exchg.F 273 FLT_EXCHG 
               jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj)
./pkg/flt/flt_exchg.F 274 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 275 FLT_EXCHG 
               kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj)
./pkg/flt/flt_exchg.F 276 FLT_EXCHG 
               iup(   jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj)
./pkg/flt/flt_exchg.F 277 FLT_EXCHG 
               itop(  jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj)
./pkg/flt/flt_exchg.F 278 FLT_EXCHG 
               tend(  jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj)
./pkg/flt/flt_exchg.F 283 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 285 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 286 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 306 FLT_EXCHG 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_exchg.F 312 FLT_EXCHG 
             fltbuf_sendE(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 313 FLT_EXCHG 
             fltbuf_sendW(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 314 FLT_EXCHG 
             fltbuf_recvE(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 315 FLT_EXCHG 
             fltbuf_recvW(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 325 FLT_EXCHG 
           sSide = myYGlobalLo+bj .LE.2
./pkg/flt/flt_exchg.F 326 FLT_EXCHG 
           nSide = myYGlobalLo+bj*sNy.GT.Ny
./pkg/flt/flt_exchg.F 329 FLT_EXCHG 
           DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 333 FLT_EXCHG 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F 334 FLT_EXCHG 
     &           .AND. jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exchg.F 336 FLT_EXCHG 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F 337 FLT_EXCHG 
             ELSEIF ( jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exchg.F 339 FLT_EXCHG 
             IF ( jpart(ip,bi,bj).GE.jhi ) THEN
./pkg/flt/flt_exchg.F 345 FLT_EXCHG 
               jNew = jpart(ip,bi,bj) - DFLOAT(sNy)
./pkg/flt/flt_exchg.F 346 FLT_EXCHG 
               fltbuf_sendE(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 347 FLT_EXCHG 
               fltbuf_sendE(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 348 FLT_EXCHG 
               fltbuf_sendE(ic+3,bi,bj) =   ipart(ip,bi,bj)
./pkg/flt/flt_exchg.F 349 FLT_EXCHG 
               fltbuf_sendE(ic+4,bi,bj) =   jNew
./pkg/flt/flt_exchg.F 350 FLT_EXCHG 
               fltbuf_sendE(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 351 FLT_EXCHG 
               fltbuf_sendE(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 352 FLT_EXCHG 
               fltbuf_sendE(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 353 FLT_EXCHG 
               fltbuf_sendE(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 354 FLT_EXCHG 
               fltbuf_sendE(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 359 FLT_EXCHG 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F 371 FLT_EXCHG 
     &           (myTime.LE.tend(ip,bi,bj) .OR. tend(ip,bi,bj).EQ.-1.)
./pkg/flt/flt_exchg.F 372 FLT_EXCHG 
     &           .AND. jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exchg.F 374 FLT_EXCHG 
              tend(ip,bi,bj) = flt_stopped
./pkg/flt/flt_exchg.F 375 FLT_EXCHG 
             ELSEIF ( jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exchg.F 377 FLT_EXCHG 
             IF ( jpart(ip,bi,bj).LT.jlo ) THEN
./pkg/flt/flt_exchg.F 383 FLT_EXCHG 
               jNew = jpart(ip,bi,bj) + DFLOAT(sNy)
./pkg/flt/flt_exchg.F 384 FLT_EXCHG 
               fltbuf_sendW(ic+1,bi,bj) =   npart(ip,bi,bj)
./pkg/flt/flt_exchg.F 385 FLT_EXCHG 
               fltbuf_sendW(ic+2,bi,bj) =  tstart(ip,bi,bj)
./pkg/flt/flt_exchg.F 386 FLT_EXCHG 
               fltbuf_sendW(ic+3,bi,bj) =   ipart(ip,bi,bj)
./pkg/flt/flt_exchg.F 387 FLT_EXCHG 
               fltbuf_sendW(ic+4,bi,bj) =   jNew
./pkg/flt/flt_exchg.F 388 FLT_EXCHG 
               fltbuf_sendW(ic+5,bi,bj) =   kpart(ip,bi,bj)
./pkg/flt/flt_exchg.F 389 FLT_EXCHG 
               fltbuf_sendW(ic+6,bi,bj) =  kfloat(ip,bi,bj)
./pkg/flt/flt_exchg.F 390 FLT_EXCHG 
               fltbuf_sendW(ic+7,bi,bj) =     iup(ip,bi,bj)
./pkg/flt/flt_exchg.F 391 FLT_EXCHG 
               fltbuf_sendW(ic+8,bi,bj) =    itop(ip,bi,bj)
./pkg/flt/flt_exchg.F 392 FLT_EXCHG 
               fltbuf_sendW(ic+9,bi,bj) =    tend(ip,bi,bj)
./pkg/flt/flt_exchg.F 397 FLT_EXCHG 
               npart(ip,bi,bj) = 0.
./pkg/flt/flt_exchg.F 410 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 417 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 428 FLT_EXCHG 
             npNew = npart_tile(bi,bj) - (icountN+icountS)
./pkg/flt/flt_exchg.F 430 FLT_EXCHG 
             DO jp = npNew+1,npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 431 FLT_EXCHG 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exchg.F 435 FLT_EXCHG 
                npart (ip,bi,bj) =  npart (jp,bi,bj)
./pkg/flt/flt_exchg.F 436 FLT_EXCHG 
                tstart(ip,bi,bj) =  tstart(jp,bi,bj)
./pkg/flt/flt_exchg.F 437 FLT_EXCHG 
                ipart (ip,bi,bj) =  ipart (jp,bi,bj)
./pkg/flt/flt_exchg.F 438 FLT_EXCHG 
                jpart (ip,bi,bj) =  jpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 439 FLT_EXCHG 
                kpart (ip,bi,bj) =  kpart (jp,bi,bj)
./pkg/flt/flt_exchg.F 440 FLT_EXCHG 
                kfloat(ip,bi,bj) =  kfloat(jp,bi,bj)
./pkg/flt/flt_exchg.F 441 FLT_EXCHG 
                iup   (ip,bi,bj) =  iup   (jp,bi,bj)
./pkg/flt/flt_exchg.F 442 FLT_EXCHG 
                itop  (ip,bi,bj) =  itop  (jp,bi,bj)
./pkg/flt/flt_exchg.F 443 FLT_EXCHG 
                tend  (ip,bi,bj) =  tend  (jp,bi,bj)
./pkg/flt/flt_exchg.F 446 FLT_EXCHG 
             npart_tile(bi,bj) = npNew
./pkg/flt/flt_exchg.F 46 FLT_EXCHG 
      INTEGER bi, bj, ic
./pkg/flt/flt_exchg.F 474 FLT_EXCHG 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_exchg.F 480 FLT_EXCHG 
            IF ( fltbuf_recvE(ic+1,bi,bj).NE.0. ) THEN
./pkg/flt/flt_exchg.F 481 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 482 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 483 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 484 FLT_EXCHG 
               npart( jp,bi,bj) = fltbuf_recvE(ic+1,bi,bj)
./pkg/flt/flt_exchg.F 485 FLT_EXCHG 
               tstart(jp,bi,bj) = fltbuf_recvE(ic+2,bi,bj)
./pkg/flt/flt_exchg.F 486 FLT_EXCHG 
               ipart( jp,bi,bj) = fltbuf_recvE(ic+3,bi,bj)
./pkg/flt/flt_exchg.F 487 FLT_EXCHG 
               jpart( jp,bi,bj) = fltbuf_recvE(ic+4,bi,bj)
./pkg/flt/flt_exchg.F 488 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvE(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 489 FLT_EXCHG 
               kfloat(jp,bi,bj) = fltbuf_recvE(ic+6,bi,bj)
./pkg/flt/flt_exchg.F 490 FLT_EXCHG 
               iup(   jp,bi,bj) = fltbuf_recvE(ic+7,bi,bj)
./pkg/flt/flt_exchg.F 491 FLT_EXCHG 
               itop(  jp,bi,bj) = fltbuf_recvE(ic+8,bi,bj)
./pkg/flt/flt_exchg.F 492 FLT_EXCHG 
               tend(  jp,bi,bj) = fltbuf_recvE(ic+9,bi,bj)
./pkg/flt/flt_exchg.F 497 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 499 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 500 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 509 FLT_EXCHG 
            IF ( fltbuf_recvW(ic+1,bi,bj).NE.0. ) THEN
./pkg/flt/flt_exchg.F 510 FLT_EXCHG 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_exchg.F 511 FLT_EXCHG 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 512 FLT_EXCHG 
               jp = npart_tile(bi,bj)
./pkg/flt/flt_exchg.F 513 FLT_EXCHG 
               npart( jp,bi,bj) = fltbuf_recvW(ic+1,bi,bj)
./pkg/flt/flt_exchg.F 514 FLT_EXCHG 
               tstart(jp,bi,bj) = fltbuf_recvW(ic+2,bi,bj)
./pkg/flt/flt_exchg.F 515 FLT_EXCHG 
               ipart( jp,bi,bj) = fltbuf_recvW(ic+3,bi,bj)
./pkg/flt/flt_exchg.F 516 FLT_EXCHG 
               jpart( jp,bi,bj) = fltbuf_recvW(ic+4,bi,bj)
./pkg/flt/flt_exchg.F 517 FLT_EXCHG 
               kpart( jp,bi,bj) = fltbuf_recvW(ic+5,bi,bj)
./pkg/flt/flt_exchg.F 518 FLT_EXCHG 
               kfloat(jp,bi,bj) = fltbuf_recvW(ic+6,bi,bj)
./pkg/flt/flt_exchg.F 519 FLT_EXCHG 
               iup(   jp,bi,bj) = fltbuf_recvW(ic+7,bi,bj)
./pkg/flt/flt_exchg.F 520 FLT_EXCHG 
               itop(  jp,bi,bj) = fltbuf_recvW(ic+8,bi,bj)
./pkg/flt/flt_exchg.F 521 FLT_EXCHG 
               tend(  jp,bi,bj) = fltbuf_recvW(ic+9,bi,bj)
./pkg/flt/flt_exchg.F 526 FLT_EXCHG 
           IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_exchg.F 528 FLT_EXCHG 
     &         ' bi,bj=', bi, bj,
./pkg/flt/flt_exchg.F 529 FLT_EXCHG 
     &         ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_exchg.F 74 FLT_EXCHG 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_exchg.F 79 FLT_EXCHG 
             fltbuf_sendE(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 80 FLT_EXCHG 
             fltbuf_sendW(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 81 FLT_EXCHG 
             fltbuf_recvE(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 82 FLT_EXCHG 
             fltbuf_recvW(m,bi,bj) = 0.
./pkg/flt/flt_exchg.F 96 FLT_EXCHG 
           DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_init_fixed.F 33 FLT_INIT_FIXED 
      INTEGER bi, bj
./pkg/flt/flt_init_fixed.F 44 FLT_INIT_FIXED 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_init_fixed.F 46 FLT_INIT_FIXED 
         xLo = MAX( xLo, -xG(1,1,bi,bj) )
./pkg/flt/flt_init_fixed.F 47 FLT_INIT_FIXED 
         xHi = MAX( xHi, xG(sNx+1,1,bi,bj) )
./pkg/flt/flt_init_fixed.F 48 FLT_INIT_FIXED 
         yLo = MAX( yLo, -yG(1,1,bi,bj) )
./pkg/flt/flt_init_fixed.F 49 FLT_INIT_FIXED 
         yHi = MAX( yHi, yG(1,sNy+1,bi,bj) )
./pkg/flt/flt_init_varia.F 112 FLT_INIT_VARIA 
      bj = 0
./pkg/flt/flt_init_varia.F 117 FLT_INIT_VARIA 
     &                        bi, bj, 1, myThid )
./pkg/flt/flt_init_varia.F 123 FLT_INIT_VARIA 
     &    ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6)
./pkg/flt/flt_init_varia.F 132 FLT_INIT_VARIA 
     &                          bi, bj, ip+1, myThid )
./pkg/flt/flt_init_varia.F 133 FLT_INIT_VARIA 
          DO bj = 1,nSy
./pkg/flt/flt_init_varia.F 137 FLT_INIT_VARIA 
     I                               tmp(3), tmp(4),bi,bj,myThid )
./pkg/flt/flt_init_varia.F 138 FLT_INIT_VARIA 
            kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid )
./pkg/flt/flt_init_varia.F 142 FLT_INIT_VARIA 
             npart_tile(bi,bj) = npart_tile(bi,bj) + 1
./pkg/flt/flt_init_varia.F 143 FLT_INIT_VARIA 
             IF ( npart_tile(bi,bj).LE.max_npart_tile ) THEN
./pkg/flt/flt_init_varia.F 145 FLT_INIT_VARIA 
              npart( npart_tile(bi,bj),bi,bj) = tmp(1)
./pkg/flt/flt_init_varia.F 146 FLT_INIT_VARIA 
              tstart(npart_tile(bi,bj),bi,bj) = tmp(2)
./pkg/flt/flt_init_varia.F 147 FLT_INIT_VARIA 
              ipart( npart_tile(bi,bj),bi,bj) = ix
./pkg/flt/flt_init_varia.F 148 FLT_INIT_VARIA 
              jpart( npart_tile(bi,bj),bi,bj) = jy
./pkg/flt/flt_init_varia.F 149 FLT_INIT_VARIA 
              kpart( npart_tile(bi,bj),bi,bj) = kz
./pkg/flt/flt_init_varia.F 150 FLT_INIT_VARIA 
              kfloat(npart_tile(bi,bj),bi,bj) = tmp(6)
./pkg/flt/flt_init_varia.F 151 FLT_INIT_VARIA 
              iup(   npart_tile(bi,bj),bi,bj) = tmp(7)
./pkg/flt/flt_init_varia.F 152 FLT_INIT_VARIA 
              itop(  npart_tile(bi,bj),bi,bj) = tmp(8)
./pkg/flt/flt_init_varia.F 153 FLT_INIT_VARIA 
              tend(  npart_tile(bi,bj),bi,bj) = tmp(9)
./pkg/flt/flt_init_varia.F 173 FLT_INIT_VARIA 
        DO bj = 1,nSy
./pkg/flt/flt_init_varia.F 179 FLT_INIT_VARIA 
     &                           bi, bj, 1, myThid )
./pkg/flt/flt_init_varia.F 181 FLT_INIT_VARIA 
     &     ' bi,bj=', bi, bj, ' , npart,max_npart=', tmp(1), tmp(6)
./pkg/flt/flt_init_varia.F 185 FLT_INIT_VARIA 
           npart_tile(bi,bj) = NINT(tmp(1))
./pkg/flt/flt_init_varia.F 187 FLT_INIT_VARIA 
           npart_read = MIN( npart_tile(bi,bj), max_npart_tile )
./pkg/flt/flt_init_varia.F 192 FLT_INIT_VARIA 
     &                             bi, bj, ip+1, myThid )
./pkg/flt/flt_init_varia.F 196 FLT_INIT_VARIA 
     I                                 tmp(3), tmp(4),bi,bj,myThid )
./pkg/flt/flt_init_varia.F 197 FLT_INIT_VARIA 
              kz = FLT_MAP_R2K( tmp(5), bi, bj, myThid )
./pkg/flt/flt_init_varia.F 205 FLT_INIT_VARIA 
             npart(ip,bi,bj)  = tmp(1)
./pkg/flt/flt_init_varia.F 206 FLT_INIT_VARIA 
             tstart(ip,bi,bj) = tmp(2)
./pkg/flt/flt_init_varia.F 207 FLT_INIT_VARIA 
             ipart(ip,bi,bj)  = ix
./pkg/flt/flt_init_varia.F 208 FLT_INIT_VARIA 
             jpart(ip,bi,bj)  = jy
./pkg/flt/flt_init_varia.F 209 FLT_INIT_VARIA 
             kpart(ip,bi,bj)  = kz
./pkg/flt/flt_init_varia.F 210 FLT_INIT_VARIA 
             kfloat(ip,bi,bj) = tmp(6)
./pkg/flt/flt_init_varia.F 211 FLT_INIT_VARIA 
             iup(  ip,bi,bj)  = tmp(7)
./pkg/flt/flt_init_varia.F 212 FLT_INIT_VARIA 
             itop( ip,bi,bj)  = tmp(8)
./pkg/flt/flt_init_varia.F 213 FLT_INIT_VARIA 
             tend( ip,bi,bj)  = tmp(9)
./pkg/flt/flt_init_varia.F 223 FLT_INIT_VARIA 
      DO bj = 1,nSy
./pkg/flt/flt_init_varia.F 225 FLT_INIT_VARIA 
         npart_dist = npart_dist + DBLE(npart_tile(bi,bj))
./pkg/flt/flt_init_varia.F 226 FLT_INIT_VARIA 
         IF ( npart_tile(bi,bj).GT.max_npart_tile ) THEN
./pkg/flt/flt_init_varia.F 228 FLT_INIT_VARIA 
     &       ' bi,bj=', bi, bj,
./pkg/flt/flt_init_varia.F 229 FLT_INIT_VARIA 
     &       ' npart_tile=', npart_tile(bi,bj),
./pkg/flt/flt_init_varia.F 47 FLT_INIT_VARIA 
      INTEGER bi, bj
./pkg/flt/flt_init_varia.F 79 FLT_INIT_VARIA 
      DO bj = 1,nSy
./pkg/flt/flt_init_varia.F 81 FLT_INIT_VARIA 
        npart_tile(bi,bj) = 0
./pkg/flt/flt_interp_linear.F 110 FLT_TRILINEAR 
     I                         nu, bi, bj, myThid )
./pkg/flt/flt_interp_linear.F 135 FLT_TRILINEAR 
      INTEGER nu, bi, bj, myThid
./pkg/flt/flt_interp_linear.F 17 FLT_BILINEAR 
     I                         kl, nu, bi, bj, myThid )
./pkg/flt/flt_interp_linear.F 187 FLT_TRILINEAR 
      uu = (1.-ddz)*( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k1,bi,bj)
./pkg/flt/flt_interp_linear.F 188 FLT_TRILINEAR 
     &                +     ddx * ddy    *var(i2,j2,k1,bi,bj) )
./pkg/flt/flt_interp_linear.F 189 FLT_TRILINEAR 
     &              + (     ddx *(1.-ddy)*var(i2,j1,k1,bi,bj)
./pkg/flt/flt_interp_linear.F 190 FLT_TRILINEAR 
     &                + (1.-ddx)* ddy    *var(i1,j2,k1,bi,bj) ) )
./pkg/flt/flt_interp_linear.F 191 FLT_TRILINEAR 
     &   +   ddz   *( ( (1.-ddx)*(1.-ddy)*var(i1,j1,k2,bi,bj)
./pkg/flt/flt_interp_linear.F 192 FLT_TRILINEAR 
     &                +     ddx * ddy    *var(i2,j2,k2,bi,bj) )
./pkg/flt/flt_interp_linear.F 193 FLT_TRILINEAR 
     &              + (     ddx*(1.-ddy) *var(i2,j1,k2,bi,bj)
./pkg/flt/flt_interp_linear.F 194 FLT_TRILINEAR 
     &                + (1.-ddx)* ddy    *var(i1,j2,k2,bi,bj) ) )
./pkg/flt/flt_interp_linear.F 205 FLT_BILINEAR2D 
     I                           nu, bi, bj, myThid )
./pkg/flt/flt_interp_linear.F 227 FLT_BILINEAR2D 
      INTEGER nu, bi, bj, myThid
./pkg/flt/flt_interp_linear.F 266 FLT_BILINEAR2D 
      uu =            ( (1.-ddx)*(1.-ddy)*var(i1,j1,bi,bj)
./pkg/flt/flt_interp_linear.F 267 FLT_BILINEAR2D 
     &                +     ddx * ddy    *var(i2,j2,bi,bj) )
./pkg/flt/flt_interp_linear.F 268 FLT_BILINEAR2D 
     &              + (     ddx *(1.-ddy)*var(i2,j1,bi,bj)
./pkg/flt/flt_interp_linear.F 269 FLT_BILINEAR2D 
     &                + (1.-ddx)* ddy    *var(i1,j2,bi,bj) )
./pkg/flt/flt_interp_linear.F 36 FLT_BILINEAR 
      INTEGER kl, nu, bi, bj, myThid
./pkg/flt/flt_interp_linear.F 84 FLT_BILINEAR 
        uu =          ( (1.-ddx)*(1.-ddy)*var(i1,j1,kl,bi,bj)
./pkg/flt/flt_interp_linear.F 85 FLT_BILINEAR 
     &                +     ddx * ddy    *var(i2,j2,kl,bi,bj) )
./pkg/flt/flt_interp_linear.F 86 FLT_BILINEAR 
     &              + (     ddx *(1.-ddy)*var(i2,j1,kl,bi,bj)
./pkg/flt/flt_interp_linear.F 87 FLT_BILINEAR 
     &                + (1.-ddx)* ddy    *var(i1,j2,kl,bi,bj) )
./pkg/flt/flt_interp_linear.F 90 FLT_BILINEAR 
        u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_interp_linear.F 91 FLT_BILINEAR 
        u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_interp_linear.F 92 FLT_BILINEAR 
        u22 = ( var(i2,j2,kl,bi,bj)+var(i2,j2,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_interp_linear.F 93 FLT_BILINEAR 
        u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_mapping.F 116 FLT_MAP_IJLOCAL2XY 
      INTEGER bi, bj, myThid
./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 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 163 FLT_MAP_IJLOCAL2XY 
     I                          rr, bi, bj, myThid )
./pkg/flt/flt_mapping.F 16 FLT_MAP_XY2IJLOCAL 
     I                               xx, yy, bi, bj, myThid )
./pkg/flt/flt_mapping.F 185 FLT_MAP_IJLOCAL2XY 
      INTEGER bi, bj, myThid
./pkg/flt/flt_mapping.F 210 FLT_MAP_IJLOCAL2XY 
     I                          kr, bi, bj, myThid )
./pkg/flt/flt_mapping.F 232 FLT_MAP_IJLOCAL2XY 
      INTEGER bi, bj, myThid
./pkg/flt/flt_mapping.F 42 FLT_MAP_XY2IJLOCAL 
      INTEGER bi, bj, myThid
./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 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 90 FLT_MAP_IJLOCAL2XY 
     I                               ix, jy, bi, bj, myThid )
./pkg/flt/flt_runga2.F 100 FLT_RUNGA2 
              scaley=recip_dyF(ic,jc,bi,bj)
./pkg/flt/flt_runga2.F 102 FLT_RUNGA2 
              jG = myYGlobalLo + (bj-1)*sNy + jc-1
./pkg/flt/flt_runga2.F 105 FLT_RUNGA2 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F 112 FLT_RUNGA2 
                kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 113 FLT_RUNGA2 
                CALL FLT_TRILINEAR(ix,jy,kz,uu,uVel,1,bi,bj,myThid)
./pkg/flt/flt_runga2.F 114 FLT_RUNGA2 
                CALL FLT_TRILINEAR(ix,jy,kz,vv,vVel,2,bi,bj,myThid)
./pkg/flt/flt_runga2.F 115 FLT_RUNGA2 
                CALL FLT_TRILINEAR(ix,jy,kz,ww,wVel,4,bi,bj,myThid)
./pkg/flt/flt_runga2.F 120 FLT_RUNGA2 
                CALL FLT_BILINEAR(ix,jy,uu,uVel,kc,1,bi,bj,myThid)
./pkg/flt/flt_runga2.F 121 FLT_RUNGA2 
                CALL FLT_BILINEAR(ix,jy,vv,vVel,kc,2,bi,bj,myThid)
./pkg/flt/flt_runga2.F 126 FLT_RUNGA2 
              IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga2.F 131 FLT_RUNGA2 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F 148 FLT_RUNGA2 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F 150 FLT_RUNGA2 
                CALL FLT_TRILINEAR(itx,jty,ktz,u1,uVel,1,bi,bj,myThid)
./pkg/flt/flt_runga2.F 151 FLT_RUNGA2 
                CALL FLT_TRILINEAR(itx,jty,ktz,v1,vVel,2,bi,bj,myThid)
./pkg/flt/flt_runga2.F 152 FLT_RUNGA2 
                CALL FLT_TRILINEAR(itx,jty,ktz,w1,wVel,4,bi,bj,myThid)
./pkg/flt/flt_runga2.F 157 FLT_RUNGA2 
                CALL FLT_BILINEAR(itx,jty,u1,uVel,kc,1,bi,bj,myThid)
./pkg/flt/flt_runga2.F 158 FLT_RUNGA2 
                CALL FLT_BILINEAR(itx,jty,v1,vVel,kc,2,bi,bj,myThid)
./pkg/flt/flt_runga2.F 161 FLT_RUNGA2 
              IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga2.F 167 FLT_RUNGA2 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F 178 FLT_RUNGA2 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F 190 FLT_RUNGA2 
              ipart(ip,bi,bj) = ipart(ip,bi,bj)
./pkg/flt/flt_runga2.F 192 FLT_RUNGA2 
              jpart(ip,bi,bj) = jpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 195 FLT_RUNGA2 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F 196 FLT_RUNGA2 
                kpart(ip,bi,bj) = kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 202 FLT_RUNGA2 
              ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) )
./pkg/flt/flt_runga2.F 203 FLT_RUNGA2 
              jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) )
./pkg/flt/flt_runga2.F 207 FLT_RUNGA2 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga2.F 209 FLT_RUNGA2 
                IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga2.F 210 FLT_RUNGA2 
     &                                      +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 212 FLT_RUNGA2 
                IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga2.F 222 FLT_RUNGA2 
               IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND.
./pkg/flt/flt_runga2.F 223 FLT_RUNGA2 
     &              maskC(ic,jc,1,bi,bj).EQ.1. ) THEN
./pkg/flt/flt_runga2.F 226 FLT_RUNGA2 
                  tend(ip,bi,bj) = myTime - flt_deltaT
./pkg/flt/flt_runga2.F 52 FLT_RUNGA2 
      INTEGER bi, bj
./pkg/flt/flt_runga2.F 78 FLT_RUNGA2 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_runga2.F 80 FLT_RUNGA2 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_runga2.F 83 FLT_RUNGA2 
           IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj)
./pkg/flt/flt_runga2.F 85 FLT_RUNGA2 
            kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga2.F 88 FLT_RUNGA2 
            IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj))
./pkg/flt/flt_runga2.F 89 FLT_RUNGA2 
     &      .AND.(  tend(ip,bi,bj).EQ.-1..OR.myTime.LE.  tend(ip,bi,bj))
./pkg/flt/flt_runga2.F 90 FLT_RUNGA2 
     &      .AND.(   iup(ip,bi,bj).NE.-3.)
./pkg/flt/flt_runga2.F 93 FLT_RUNGA2 
              ix = ipart(ip,bi,bj)
./pkg/flt/flt_runga2.F 94 FLT_RUNGA2 
              jy = jpart(ip,bi,bj)
./pkg/flt/flt_runga2.F 97 FLT_RUNGA2 
              kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_runga2.F 99 FLT_RUNGA2 
              scalex=recip_dxF(ic,jc,bi,bj)
./pkg/flt/flt_runga4.F 100 FLT_RUNGA4 
              scaley=recip_dyF(ic,jc,bi,bj)
./pkg/flt/flt_runga4.F 102 FLT_RUNGA4 
              jG = myYGlobalLo + (bj-1)*sNy + jc-1
./pkg/flt/flt_runga4.F 107 FLT_RUNGA4 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 114 FLT_RUNGA4 
                kz=kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F 115 FLT_RUNGA4 
                CALL FLT_TRILINEAR(ix,jy,kz,u1,uVel,1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 116 FLT_RUNGA4 
                CALL FLT_TRILINEAR(ix,jy,kz,v1,vVel,2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 117 FLT_RUNGA4 
                CALL FLT_TRILINEAR(ix,jy,kz,w1,wVel,4,bi,bj,myThid)
./pkg/flt/flt_runga4.F 122 FLT_RUNGA4 
                CALL FLT_BILINEAR(ix,jy,u1,uVel,kc,1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 123 FLT_RUNGA4 
                CALL FLT_BILINEAR(ix,jy,v1,vVel,kc,2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 128 FLT_RUNGA4 
              IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F 133 FLT_RUNGA4 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 150 FLT_RUNGA4 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 153 FLT_RUNGA4 
     &               1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 155 FLT_RUNGA4 
     &               2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 157 FLT_RUNGA4 
     &               4,bi,bj,myThid)
./pkg/flt/flt_runga4.F 163 FLT_RUNGA4 
     &               kc,1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 165 FLT_RUNGA4 
     &               kc,2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 168 FLT_RUNGA4 
              IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F 174 FLT_RUNGA4 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 185 FLT_RUNGA4 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 200 FLT_RUNGA4 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 203 FLT_RUNGA4 
     &               1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 205 FLT_RUNGA4 
     &               2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 207 FLT_RUNGA4 
     &               4,bi,bj,myThid)
./pkg/flt/flt_runga4.F 213 FLT_RUNGA4 
     &               kc,1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 215 FLT_RUNGA4 
     &               kc,2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 218 FLT_RUNGA4 
              IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F 224 FLT_RUNGA4 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 235 FLT_RUNGA4 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 250 FLT_RUNGA4 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 253 FLT_RUNGA4 
     &               1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 255 FLT_RUNGA4 
     &               2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 257 FLT_RUNGA4 
     &               4,bi,bj,myThid)
./pkg/flt/flt_runga4.F 263 FLT_RUNGA4 
     &               kc,1,bi,bj,myThid)
./pkg/flt/flt_runga4.F 265 FLT_RUNGA4 
     &               kc,2,bi,bj,myThid)
./pkg/flt/flt_runga4.F 268 FLT_RUNGA4 
              IF ( flt_noise.NE.0. .AND. iup(ip,bi,bj).NE.-2. ) THEN
./pkg/flt/flt_runga4.F 274 FLT_RUNGA4 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 285 FLT_RUNGA4 
                IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 297 FLT_RUNGA4 
              ipart(ip,bi,bj) = ipart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F 299 FLT_RUNGA4 
              jpart(ip,bi,bj) = jpart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F 302 FLT_RUNGA4 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 303 FLT_RUNGA4 
                kpart(ip,bi,bj) = kpart(ip,bi,bj) + flt_deltaT/6
./pkg/flt/flt_runga4.F 309 FLT_RUNGA4 
              ic = MAX( 1-OLx, MIN( NINT(ipart(ip,bi,bj)), sNx+OLx ) )
./pkg/flt/flt_runga4.F 310 FLT_RUNGA4 
              jc = MAX( 1-OLy, MIN( NINT(jpart(ip,bi,bj)), sNy+OLy ) )
./pkg/flt/flt_runga4.F 314 FLT_RUNGA4 
              IF (iup(ip,bi,bj).EQ.-1.) THEN
./pkg/flt/flt_runga4.F 316 FLT_RUNGA4 
                IF (kpart(ip,bi,bj).LT.kzlo) kpart(ip,bi,bj)=kzlo
./pkg/flt/flt_runga4.F 317 FLT_RUNGA4 
     &                                      +kzlo-kpart(ip,bi,bj)
./pkg/flt/flt_runga4.F 319 FLT_RUNGA4 
                IF (kpart(ip,bi,bj).GT.kzhi) kpart(ip,bi,bj)=kzhi
./pkg/flt/flt_runga4.F 329 FLT_RUNGA4 
               IF ( maskInC(ic,jc,bi,bj).EQ.0. .AND.
./pkg/flt/flt_runga4.F 330 FLT_RUNGA4 
     &              maskC(ic,jc,1,bi,bj).EQ.1. ) THEN
./pkg/flt/flt_runga4.F 333 FLT_RUNGA4 
                  tend(ip,bi,bj) = myTime - flt_deltaT
./pkg/flt/flt_runga4.F 52 FLT_RUNGA4 
      INTEGER bi, bj
./pkg/flt/flt_runga4.F 78 FLT_RUNGA4 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_runga4.F 80 FLT_RUNGA4 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_runga4.F 83 FLT_RUNGA4 
           IF ( tend(ip,bi,bj).NE.-1. .AND. myTime.GT.tend(ip,bi,bj)
./pkg/flt/flt_runga4.F 85 FLT_RUNGA4 
            kpart(ip,bi,bj) = 0.
./pkg/flt/flt_runga4.F 88 FLT_RUNGA4 
            IF ( (tstart(ip,bi,bj).EQ.-1..OR.myTime.GE.tstart(ip,bi,bj))
./pkg/flt/flt_runga4.F 89 FLT_RUNGA4 
     &      .AND.(  tend(ip,bi,bj).EQ.-1..OR.myTime.LE.  tend(ip,bi,bj))
./pkg/flt/flt_runga4.F 90 FLT_RUNGA4 
     &      .AND.(   iup(ip,bi,bj).NE.-3.)
./pkg/flt/flt_runga4.F 93 FLT_RUNGA4 
              ix = ipart(ip,bi,bj)
./pkg/flt/flt_runga4.F 94 FLT_RUNGA4 
              jy = jpart(ip,bi,bj)
./pkg/flt/flt_runga4.F 97 FLT_RUNGA4 
              kc=NINT(kpart(ip,bi,bj))
./pkg/flt/flt_runga4.F 99 FLT_RUNGA4 
              scalex=recip_dxF(ic,jc,bi,bj)
./pkg/flt/flt_traj.F 100 FLT_TRAJ 
         j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy )
./pkg/flt/flt_traj.F 102 FLT_TRAJ 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_traj.F 104 FLT_TRAJ 
            ix = ipart(ip,bi,bj)
./pkg/flt/flt_traj.F 105 FLT_TRAJ 
            jy = jpart(ip,bi,bj)
./pkg/flt/flt_traj.F 107 FLT_TRAJ 
     I                               ix, jy, bi,bj, myThid )
./pkg/flt/flt_traj.F 108 FLT_TRAJ 
            zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_traj.F 109 FLT_TRAJ 
            kp = NINT(kpart(ip,bi,bj))
./pkg/flt/flt_traj.F 110 FLT_TRAJ 
            tmp(1) = npart(ip,bi,bj)
./pkg/flt/flt_traj.F 117 FLT_TRAJ 
            tmp(8) = kpart(ip,bi,bj)
./pkg/flt/flt_traj.F 120 FLT_TRAJ 
     &           ( myTime.GE.tstart(ip,bi,bj)) .AND.
./pkg/flt/flt_traj.F 121 FLT_TRAJ 
     &           ( tend(ip,bi,bj).EQ.-1. .OR. myTime.LE.tend(ip,bi,bj))
./pkg/flt/flt_traj.F 129 FLT_TRAJ 
     &            ' FLT_TRAJ: ', (flt_io_buff(ii,ip,bi,bj),ii=1,5)
./pkg/flt/flt_traj.F 137 FLT_TRAJ 
              CALL FLT_BILINEAR  (ix,jy,uu,uVel,  kp,1,bi,bj,myThid)
./pkg/flt/flt_traj.F 138 FLT_TRAJ 
              CALL FLT_BILINEAR  (ix,jy,vv,vVel,  kp,2,bi,bj,myThid)
./pkg/flt/flt_traj.F 139 FLT_TRAJ 
              CALL FLT_BILINEAR2D(ix,jy,pp,etaN,     0,bi,bj,myThid)
./pkg/flt/flt_traj.F 140 FLT_TRAJ 
              CALL FLT_BILINEAR  (ix,jy,tt,theta, kp,0,bi,bj,myThid)
./pkg/flt/flt_traj.F 141 FLT_TRAJ 
              CALL FLT_BILINEAR  (ix,jy,ss,salt,  kp,0,bi,bj,myThid)
./pkg/flt/flt_traj.F 156 FLT_TRAJ 
              flt_io_buff(ii,ip,bi,bj) = tmp(ii)
./pkg/flt/flt_traj.F 174 FLT_TRAJ 
      DO bj=1,nSy
./pkg/flt/flt_traj.F 181 FLT_TRAJ 
     I                          bi, bj, 1, myThid )
./pkg/flt/flt_traj.F 210 FLT_TRAJ 
         tmp(1) = DBLE(npart_tile(bi,bj))+npart_read
./pkg/flt/flt_traj.F 229 FLT_TRAJ 
     &                          bi, bj, -1, myIter, myThid )
./pkg/flt/flt_traj.F 231 FLT_TRAJ 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_traj.F 234 FLT_TRAJ 
            IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_traj.F 236 FLT_TRAJ 
     I                             flt_io_buff(1,ip,bi,bj), dummyRS,
./pkg/flt/flt_traj.F 237 FLT_TRAJ 
     I                             bi, bj, irecord, myIter, myThid )
./pkg/flt/flt_traj.F 47 FLT_TRAJ 
      INTEGER bi, bj, nFlds
./pkg/flt/flt_traj.F 91 FLT_TRAJ 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_traj.F 95 FLT_TRAJ 
         nT = W2_myTileList(bi,bj)
./pkg/flt/flt_up.F 100 FLT_UP 
             IF ( MOD(myTime,iup(ip,bi,bj)).EQ.0.)
./pkg/flt/flt_up.F 101 FLT_UP 
     &       kpart(ip,bi,bj) = flt_surf
./pkg/flt/flt_up.F 106 FLT_UP 
           IF ( tend(ip,bi,bj).NE.-1..AND.myTime.GT.tend(ip,bi,bj)
./pkg/flt/flt_up.F 108 FLT_UP 
             kpart(ip,bi,bj) = 0.
./pkg/flt/flt_up.F 113 FLT_UP 
             ix = ipart(ip,bi,bj)
./pkg/flt/flt_up.F 114 FLT_UP 
             jy = jpart(ip,bi,bj)
./pkg/flt/flt_up.F 116 FLT_UP 
     I                                ix, jy, bi,bj, myThid )
./pkg/flt/flt_up.F 117 FLT_UP 
             zz = FLT_MAP_K2R( kpart(ip,bi,bj),bi,bj,myThid )
./pkg/flt/flt_up.F 119 FLT_UP 
             tmp(1) = npart(ip,bi,bj)
./pkg/flt/flt_up.F 126 FLT_UP 
             tmp(8) = kpart(ip,bi,bj)
./pkg/flt/flt_up.F 130 FLT_UP 
     &          ( myTime.GE.tstart(ip,bi,bj) ) .AND.
./pkg/flt/flt_up.F 131 FLT_UP 
     &          ( tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj) )
./pkg/flt/flt_up.F 133 FLT_UP 
             CALL FLT_BILINEAR2D(ix,jy,pp,etaN,0,bi,bj,myThid)
./pkg/flt/flt_up.F 136 FLT_UP 
               CALL FLT_BILINEAR  (ix,jy,uu,uVel,  k,1,bi,bj,myThid)
./pkg/flt/flt_up.F 137 FLT_UP 
               CALL FLT_BILINEAR  (ix,jy,vv,vVel,  k,2,bi,bj,myThid)
./pkg/flt/flt_up.F 138 FLT_UP 
               CALL FLT_BILINEAR  (ix,jy,tt,theta, k,0,bi,bj,myThid)
./pkg/flt/flt_up.F 139 FLT_UP 
               CALL FLT_BILINEAR  (ix,jy,ss,salt,  k,0,bi,bj,myThid)
./pkg/flt/flt_up.F 152 FLT_UP 
             flt_io_buff(ii,ip,bi,bj) = tmp(ii)
./pkg/flt/flt_up.F 172 FLT_UP 
      DO bj=1,nSy
./pkg/flt/flt_up.F 179 FLT_UP 
     &                          bi, bj, 1, myThid )
./pkg/flt/flt_up.F 208 FLT_UP 
         tmp(1) = DBLE(npart_tile(bi,bj))+npart_read
./pkg/flt/flt_up.F 227 FLT_UP 
     &                          bi, bj, -1, myIter, myThid )
./pkg/flt/flt_up.F 229 FLT_UP 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_up.F 232 FLT_UP 
           IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_up.F 234 FLT_UP 
     &                            flt_io_buff(1,ip,bi,bj), dummyRS,
./pkg/flt/flt_up.F 235 FLT_UP 
     &                            bi, bj, irecord, myIter, myThid )
./pkg/flt/flt_up.F 45 FLT_UP 
      INTEGER bi, bj, nFlds
./pkg/flt/flt_up.F 85 FLT_UP 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/flt/flt_up.F 89 FLT_UP 
         j0y = DFLOAT( myYGlobalLo-1 + (bj-1)*sNy )
./pkg/flt/flt_up.F 90 FLT_UP 
         DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_up.F 93 FLT_UP 
           IF ( myTime.GE.tstart(ip,bi,bj) .AND.
./pkg/flt/flt_up.F 94 FLT_UP 
     &         (tend(ip,bi,bj).EQ.-1..OR.myTime.LE.tend(ip,bi,bj))
./pkg/flt/flt_up.F 96 FLT_UP 
     &          kpart(ip,bi,bj).EQ.kfloat(ip,bi,bj) .AND.
./pkg/flt/flt_up.F 97 FLT_UP 
     &          iup(ip,bi,bj).GT.0.
./pkg/flt/flt_write_pickup.F 101 FLT_WRITE_PICKUP 
          npart_dist = npart_dist + DBLE(npart_tile(bi,bj))
./pkg/flt/flt_write_pickup.F 44 FLT_WRITE_PICKUP 
      INTEGER bi, bj, imax, iLen
./pkg/flt/flt_write_pickup.F 58 FLT_WRITE_PICKUP 
       DO bj=1,nSy
./pkg/flt/flt_write_pickup.F 64 FLT_WRITE_PICKUP 
          tmp(1) = npart_tile(bi,bj)
./pkg/flt/flt_write_pickup.F 77 FLT_WRITE_PICKUP 
     &                           bi,bj,-1, myIter, myThid )
./pkg/flt/flt_write_pickup.F 79 FLT_WRITE_PICKUP 
          DO ip=1,npart_tile(bi,bj)
./pkg/flt/flt_write_pickup.F 81 FLT_WRITE_PICKUP 
            tmp(1) =   npart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 82 FLT_WRITE_PICKUP 
            tmp(2) =  tstart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 83 FLT_WRITE_PICKUP 
            tmp(3) =   ipart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 84 FLT_WRITE_PICKUP 
            tmp(4) =   jpart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 85 FLT_WRITE_PICKUP 
            tmp(5) =   kpart(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 86 FLT_WRITE_PICKUP 
            tmp(6) =  kfloat(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 87 FLT_WRITE_PICKUP 
            tmp(7) =     iup(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 88 FLT_WRITE_PICKUP 
            tmp(8) =    itop(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 89 FLT_WRITE_PICKUP 
            tmp(9) =    tend(ip,bi,bj)
./pkg/flt/flt_write_pickup.F 93 FLT_WRITE_PICKUP 
            IF ( ip.NE.npart_tile(bi,bj) ) irecord = -irecord
./pkg/flt/flt_write_pickup.F 96 FLT_WRITE_PICKUP 
     &                             bi,bj,irecord, myIter, myThid )
./pkg/frazil/frazil_calc_rhs.F 42 FRAZIL_CALC_RHS 
      INTEGER bi,bj,i,j,k,kTop
./pkg/frazil/frazil_calc_rhs.F 53 FRAZIL_CALC_RHS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/frazil/frazil_calc_rhs.F 60 FRAZIL_CALC_RHS 
           FrazilForcingT(i,j,k,bi,bj) = 0. _d 0
./pkg/frazil/frazil_calc_rhs.F 69 FRAZIL_CALC_RHS 
           IF ( maskC(i,j,k-1,bi,bj) .NE. 0. _d 0 .AND.
./pkg/frazil/frazil_calc_rhs.F 70 FRAZIL_CALC_RHS 
     &          maskC(i,j,k,  bi,bj) .NE. 0. _d 0 ) THEN
./pkg/frazil/frazil_calc_rhs.F 73 FRAZIL_CALC_RHS 
            sLoc = MAX(salt(i,j,k,bi,bj), 0. _d 0)
./pkg/frazil/frazil_calc_rhs.F 74 FRAZIL_CALC_RHS 
            tLoc = SW_TEMP(sLoc,theta(i,j,k,bi,bj),pLoc,0. _d 0)
./pkg/frazil/frazil_calc_rhs.F 92 FRAZIL_CALC_RHS 
             kTop = kSurfC(i,j,bi,bj)
./pkg/frazil/frazil_calc_rhs.F 95 FRAZIL_CALC_RHS 
     &            * drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/frazil/frazil_calc_rhs.F 96 FRAZIL_CALC_RHS 
             FrazilForcingT(i,j,k,bi,bj) = Tresid / dTtracerLev(k)
./pkg/frazil/frazil_calc_rhs.F 97 FRAZIL_CALC_RHS 
             FrazilForcingT(i,j,kTop,bi,bj) =
./pkg/frazil/frazil_calc_rhs.F 98 FRAZIL_CALC_RHS 
     &            FrazilForcingT(i,j,kTop,bi,bj)
./pkg/frazil/frazil_init_varia.F 32 FRAZIL_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/frazil/frazil_init_varia.F 35 FRAZIL_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/frazil/frazil_init_varia.F 40 FRAZIL_INIT_VARIA 
           FrazilForcingT(i,j,k,bi,bj) = 0. _d 0
./pkg/frazil/frazil_tendency_apply.F 15 FRAZIL_TENDENCY_APPLY_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/frazil/frazil_tendency_apply.F 44 FRAZIL_TENDENCY_APPLY_T 
      INTEGER k, bi, bj
./pkg/frazil/frazil_tendency_apply.F 60 FRAZIL_TENDENCY_APPLY_T 
     &       + FrazilForcingT(i,j,k,bi,bj)
./pkg/frazil/frazil_tendency_apply.F 62 FRAZIL_TENDENCY_APPLY_T 
     &       * recip_drF(k) * _recip_hFacC(i,j,k,bi,bj)
./pkg/gchem/gchem_add_tendency.F 12 GCHEM_ADD_TENDENCY 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/gchem/gchem_add_tendency.F 44 GCHEM_ADD_TENDENCY 
      INTEGER k, bi, bj, iTracer
./pkg/gchem/gchem_add_tendency.F 63 GCHEM_ADD_TENDENCY 
     &                 + gchemTendency(i,j,k,bi,bj,iTracer)
./pkg/gchem/gchem_calc_tendency.F 100 GCHEM_CALC_TENDENCY 
     I                       bi, bj, iMin, iMax, jMin, jMax,
./pkg/gchem/gchem_calc_tendency.F 103 GCHEM_CALC_TENDENCY 
     I                       pTracer     (1-OLx,1-OLy,1,bi,bj,2),
./pkg/gchem/gchem_calc_tendency.F 104 GCHEM_CALC_TENDENCY 
     U                       gchemTendency(1-OLx,1-OLy,1,bi,bj,2),
./pkg/gchem/gchem_calc_tendency.F 105 GCHEM_CALC_TENDENCY 
     I                       bi, bj, iMin, iMax, jMin, jMax,
./pkg/gchem/gchem_calc_tendency.F 52 GCHEM_CALC_TENDENCY 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,k
./pkg/gchem/gchem_calc_tendency.F 56 GCHEM_CALC_TENDENCY 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gchem/gchem_calc_tendency.F 61 GCHEM_CALC_TENDENCY 
            gchemTendency(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/gchem/gchem_calc_tendency.F 75 GCHEM_CALC_TENDENCY 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gchem/gchem_calc_tendency.F 98 GCHEM_CALC_TENDENCY 
     I                       pTracer     (1-OLx,1-OLy,1,bi,bj,1),
./pkg/gchem/gchem_calc_tendency.F 99 GCHEM_CALC_TENDENCY 
     U                       gchemTendency(1-OLx,1-OLy,1,bi,bj,1),
./pkg/gchem/gchem_forcing_sep.F 133 GCHEM_FORCING_SEP 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gchem/gchem_forcing_sep.F 151 GCHEM_FORCING_SEP 
          CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1),
./pkg/gchem/gchem_forcing_sep.F 152 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,2),
./pkg/gchem/gchem_forcing_sep.F 153 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,3),
./pkg/gchem/gchem_forcing_sep.F 154 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,4),
./pkg/gchem/gchem_forcing_sep.F 155 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,5),
./pkg/gchem/gchem_forcing_sep.F 156 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,6),
./pkg/gchem/gchem_forcing_sep.F 157 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 161 GCHEM_FORCING_SEP 
          CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1),
./pkg/gchem/gchem_forcing_sep.F 162 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,2),
./pkg/gchem/gchem_forcing_sep.F 163 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,3),
./pkg/gchem/gchem_forcing_sep.F 164 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,4),
./pkg/gchem/gchem_forcing_sep.F 165 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,5),
./pkg/gchem/gchem_forcing_sep.F 166 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 169 GCHEM_FORCING_SEP 
          CALL DIC_BIOTIC_FORCING( pTracer(1-OLx,1-OLy,1,bi,bj,1),
./pkg/gchem/gchem_forcing_sep.F 170 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,2),
./pkg/gchem/gchem_forcing_sep.F 171 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,3),
./pkg/gchem/gchem_forcing_sep.F 172 GCHEM_FORCING_SEP 
     &                          pTracer(1-OLx,1-OLy,1,bi,bj,4),
./pkg/gchem/gchem_forcing_sep.F 173 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 187 GCHEM_FORCING_SEP 
          CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,1),
./pkg/gchem/gchem_forcing_sep.F 188 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 190 GCHEM_FORCING_SEP 
          CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,2),
./pkg/gchem/gchem_forcing_sep.F 191 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 193 GCHEM_FORCING_SEP 
          CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,3),
./pkg/gchem/gchem_forcing_sep.F 194 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 196 GCHEM_FORCING_SEP 
          CALL DARWIN_NUT_SUPPLY( pTracer(1-OLx,1-OLy,1,bi,bj,4),
./pkg/gchem/gchem_forcing_sep.F 197 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 204 GCHEM_FORCING_SEP 
     &                          bi,bj,imin,imax,jmin,jmax,
./pkg/gchem/gchem_forcing_sep.F 217 GCHEM_FORCING_SEP 
     I                bi, bj, 0, iTr,
./pkg/gchem/gchem_forcing_sep.F 218 GCHEM_FORCING_SEP 
     U                pTracer(1-OLx,1-OLy,1,bi,bj,iTr),
./pkg/gchem/gchem_forcing_sep.F 56 GCHEM_FORCING_SEP 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/gchem/gchem_surfmean.F 32 GCHEM_SURFMEAN 
      INTEGER i,j,bi,bj
./pkg/gchem/gchem_surfmean.F 44 GCHEM_SURFMEAN 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gchem/gchem_surfmean.F 46 GCHEM_SURFMEAN 
         sumTracerTile(bi,bj) = 0. _d 0
./pkg/gchem/gchem_surfmean.F 49 GCHEM_SURFMEAN 
            sumTracerTile(bi,bj) = sumTracerTile(bi,bj)
./pkg/gchem/gchem_surfmean.F 50 GCHEM_SURFMEAN 
     &        + tracer(i,j,ks,bi,bj)*rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 174 GAD_ADVECTION 
          act2 = bj - myByLo(myThid)
./pkg/generic_advdiff/gad_advection.F 19 GAD_ADVECTION 
     I     bi,bj, myTime,myIter,myThid)
./pkg/generic_advdiff/gad_advection.F 244 GAD_ADVECTION 
       myTile = W2_myTileList(bi,bj)
./pkg/generic_advdiff/gad_advection.F 277 GAD_ADVECTION 
         xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_advection.F 278 GAD_ADVECTION 
     &           *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 279 GAD_ADVECTION 
         yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_advection.F 280 GAD_ADVECTION 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 295 GAD_ADVECTION 
         localTij(i,j) = tracer(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 297 GAD_ADVECTION 
         localVol(i,j) = rA(i,j,bi,bj)*deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 298 GAD_ADVECTION 
     &                  *rhoFacC(k)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 299 GAD_ADVECTION 
     &                 + ( oneRS - maskC(i,j,k,bi,bj) )
./pkg/generic_advdiff/gad_advection.F 302 GAD_ADVECTION 
         maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 303 GAD_ADVECTION 
         maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 305 GAD_ADVECTION 
         maskLocW(i,j) = _maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 306 GAD_ADVECTION 
         maskLocS(i,j) = _maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 314 GAD_ADVECTION 
     &            withSigns, maskLocW,maskLocS, bi,bj, myThid )
./pkg/generic_advdiff/gad_advection.F 382 GAD_ADVECTION 
     &                              localTij, bi,bj, myThid )
./pkg/generic_advdiff/gad_advection.F 401 GAD_ADVECTION 
          CALL GAD_DST2U1_ADV_X(    bi,bj,k, advectionScheme, .TRUE.,
./pkg/generic_advdiff/gad_advection.F 405 GAD_ADVECTION 
          CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 409 GAD_ADVECTION 
          CALL GAD_DST3_ADV_X(      bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 413 GAD_ADVECTION 
          CALL GAD_DST3FL_ADV_X(    bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 418 GAD_ADVECTION 
          CALL GAD_OS7MP_ADV_X(     bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 429 GAD_ADVECTION 
          CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k,
./pkg/generic_advdiff/gad_advection.F 438 GAD_ADVECTION 
     &                              localTij, bi,bj, myThid )
./pkg/generic_advdiff/gad_advection.F 470 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 473 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 478 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 479 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 481 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 482 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 493 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 496 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 501 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 502 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 504 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 505 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 522 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 525 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 530 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 531 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 533 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(uTrans(i+1,j)-uTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 534 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 579 GAD_ADVECTION 
     &                              localTij, bi,bj, myThid )
./pkg/generic_advdiff/gad_advection.F 598 GAD_ADVECTION 
          CALL GAD_DST2U1_ADV_Y(    bi,bj,k, advectionScheme, .TRUE.,
./pkg/generic_advdiff/gad_advection.F 602 GAD_ADVECTION 
          CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 606 GAD_ADVECTION 
          CALL GAD_DST3_ADV_Y(      bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 610 GAD_ADVECTION 
          CALL GAD_DST3FL_ADV_Y(    bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 615 GAD_ADVECTION 
          CALL GAD_OS7MP_ADV_Y(     bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 626 GAD_ADVECTION 
          CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k,
./pkg/generic_advdiff/gad_advection.F 635 GAD_ADVECTION 
     &                              localTij, bi,bj, myThid )
./pkg/generic_advdiff/gad_advection.F 667 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 670 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 675 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 676 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 678 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 679 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 690 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 693 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 698 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 699 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 701 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 702 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 719 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 722 GAD_ADVECTION 
     &                   *maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 727 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 728 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 730 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(vTrans(i,j+1)-vTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 731 GAD_ADVECTION 
     &        )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 759 GAD_ADVECTION 
     &     ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k)
./pkg/generic_advdiff/gad_advection.F 777 GAD_ADVECTION 
          CALL DIAGNOSTICS_FILL( afx, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_advection.F 781 GAD_ADVECTION 
          CALL DIAGNOSTICS_FILL( afy, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_advection.F 792 GAD_ADVECTION 
     &             afx,afy, k, standardMessageUnit,bi,bj,myThid )
./pkg/generic_advdiff/gad_advection.F 80 GAD_ADVECTION 
      INTEGER bi,bj
./pkg/generic_advdiff/gad_advection.F 844 GAD_ADVECTION 
           rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 846 GAD_ADVECTION 
     &                 *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_advection.F 861 GAD_ADVECTION 
           CALL GAD_DST2U1_ADV_R(    bi,bj,k, advectionScheme,
./pkg/generic_advdiff/gad_advection.F 865 GAD_ADVECTION 
           CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 869 GAD_ADVECTION 
           CALL GAD_DST3_ADV_R(      bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 873 GAD_ADVECTION 
           CALL GAD_DST3FL_ADV_R(    bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 878 GAD_ADVECTION 
           CALL GAD_OS7MP_ADV_R(     bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_advection.F 908 GAD_ADVECTION 
     &                   *rkSign*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 911 GAD_ADVECTION 
     &                   *rkSign*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 922 GAD_ADVECTION 
     &          ( tmpTrac - tracer(i,j,k,bi,bj)*localVol(i,j) )
./pkg/generic_advdiff/gad_advection.F 923 GAD_ADVECTION 
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 924 GAD_ADVECTION 
     &            *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_advection.F 934 GAD_ADVECTION 
     &       *_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_advection.F 935 GAD_ADVECTION 
     &       *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_advection.F 937 GAD_ADVECTION 
     &         -tracer(i,j,k,bi,bj)*(rTransKp(i,j)-rTrans(i,j))
./pkg/generic_advdiff/gad_advection.F 938 GAD_ADVECTION 
     &        )*rkSign*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_advection.F 940 GAD_ADVECTION 
     &     ( localTij(i,j) - tracer(i,j,k,bi,bj) )/deltaTLev(k)
./pkg/generic_advdiff/gad_advection.F 949 GAD_ADVECTION 
     &                           diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_biharm_r.F 11 GAD_BIHARM_R 
     I           bi, bj, k,
./pkg/generic_advdiff/gad_biharm_r.F 35 GAD_BIHARM_R 
      INTEGER bi, bj, k
./pkg/generic_advdiff/gad_biharm_r.F 72 GAD_BIHARM_R 
     &                *tmpFac*maskC(i,j,kl,bi,bj)*maskC(i,j,km,bi,bj)
./pkg/generic_advdiff/gad_biharm_r.F 86 GAD_BIHARM_R 
     &                  *_recip_hFacC(i,j,kl,bi,bj)
./pkg/generic_advdiff/gad_biharm_r.F 97 GAD_BIHARM_R 
     &              *tmpFac*_rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_biharm_x.F 11 GAD_BIHARM_X 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_biharm_x.F 35 GAD_BIHARM_X 
      INTEGER bi,bj,k
./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 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 11 GAD_BIHARM_Y 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_biharm_y.F 35 GAD_BIHARM_Y 
      INTEGER bi,bj,k
./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 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 11 GAD_C2_ADV_R 
     I           bi, bj, k,
./pkg/generic_advdiff/gad_c2_adv_r.F 37 GAD_C2_ADV_R 
      INTEGER bi,bj,k
./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_x.F 11 GAD_C2_ADV_X 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_c2_adv_x.F 35 GAD_C2_ADV_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_c2_adv_y.F 11 GAD_C2_ADV_Y 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_c2_adv_y.F 35 GAD_C2_ADV_Y 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_c2_impl_r.F 10 GAD_C2_IMPL_R 
     I           bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_c2_impl_r.F 42 GAD_C2_IMPL_R 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_c2_impl_r.F 65 GAD_C2_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_c4_adv_r.F 11 GAD_C4_ADV_R 
     I           bi, bj, k,
./pkg/generic_advdiff/gad_c4_adv_r.F 39 GAD_C4_ADV_R 
      INTEGER bi,bj,k
./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)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F 79 GAD_C4_ADV_R 
         Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_c4_adv_r.F 83 GAD_C4_ADV_R 
         wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_c4_adv_x.F 11 GAD_C4_ADV_X 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_c4_adv_x.F 40 GAD_C4_ADV_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_c4_adv_x.F 75 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 11 GAD_C4_ADV_Y 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_c4_adv_y.F 40 GAD_C4_ADV_Y 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_c4_adv_y.F 75 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 11 GAD_CALC_RHS 
     I           bi,bj,iMin,iMax,jMin,jMax,k,kM1,kUp,kDown,
./pkg/generic_advdiff/gad_calc_rhs.F 202 GAD_CALC_RHS 
       CALL GAD_GRAD_X(bi,bj,k,xA,localT,fZon,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 203 GAD_CALC_RHS 
       CALL GAD_GRAD_Y(bi,bj,k,yA,localT,fMer,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 204 GAD_CALC_RHS 
       CALL GAD_DEL2(bi,bj,k,fZon,fMer,df4,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 217 GAD_CALC_RHS 
           CALL GAD_C2_ADV_X( bi,bj,k, uTrans, locABT, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 220 GAD_CALC_RHS 
           CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE.,
./pkg/generic_advdiff/gad_calc_rhs.F 227 GAD_CALC_RHS 
           maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 229 GAD_CALC_RHS 
           maskLocW(i,j) = _maskW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 234 GAD_CALC_RHS 
           CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 238 GAD_CALC_RHS 
           CALL GAD_U3_ADV_X( bi,bj,k, uTrans, maskLocW, locABT,
./pkg/generic_advdiff/gad_calc_rhs.F 241 GAD_CALC_RHS 
           CALL GAD_C4_ADV_X( bi,bj,k, uTrans, maskLocW, locABT,
./pkg/generic_advdiff/gad_calc_rhs.F 253 GAD_CALC_RHS 
           CALL GAD_DST3_ADV_X( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 257 GAD_CALC_RHS 
           CALL GAD_DST3FL_ADV_X( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 262 GAD_CALC_RHS 
           CALL GAD_OS7MP_ADV_X( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 273 GAD_CALC_RHS 
          CALL OBCS_U1_ADV_TRACER( .TRUE., trIdentity, bi, bj, k,
./pkg/generic_advdiff/gad_calc_rhs.F 274 GAD_CALC_RHS 
     I                             maskW(1-OLx,1-OLy,k,bi,bj),
./pkg/generic_advdiff/gad_calc_rhs.F 287 GAD_CALC_RHS 
          CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 294 GAD_CALC_RHS 
       CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,localT,df,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 305 GAD_CALC_RHS 
       CALL GAD_BIHARM_X(bi,bj,k,xA,df4,diffK4,df,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 312 GAD_CALC_RHS 
     I         trIdentity, bi, bj, k, iMin, iMax, jMin, jMax,
./pkg/generic_advdiff/gad_calc_rhs.F 331 GAD_CALC_RHS 
          CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 334 GAD_CALC_RHS 
           CALL LAYERS_FILL_DFX( df, trIdentity, k, 1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 350 GAD_CALC_RHS 
           CALL GAD_C2_ADV_Y( bi,bj,k, vTrans, locABT, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 353 GAD_CALC_RHS 
           CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE.,
./pkg/generic_advdiff/gad_calc_rhs.F 360 GAD_CALC_RHS 
           maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 362 GAD_CALC_RHS 
           maskLocS(i,j) = _maskS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 367 GAD_CALC_RHS 
           CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 371 GAD_CALC_RHS 
           CALL GAD_U3_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT,
./pkg/generic_advdiff/gad_calc_rhs.F 374 GAD_CALC_RHS 
           CALL GAD_C4_ADV_Y( bi,bj,k, vTrans, maskLocS, locABT,
./pkg/generic_advdiff/gad_calc_rhs.F 386 GAD_CALC_RHS 
           CALL GAD_DST3_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 390 GAD_CALC_RHS 
           CALL GAD_DST3FL_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 395 GAD_CALC_RHS 
           CALL GAD_OS7MP_ADV_Y( bi,bj,k, .TRUE., deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 406 GAD_CALC_RHS 
          CALL OBCS_U1_ADV_TRACER( .FALSE., trIdentity, bi, bj, k,
./pkg/generic_advdiff/gad_calc_rhs.F 407 GAD_CALC_RHS 
     I                             maskS(1-OLx,1-OLy,k,bi,bj),
./pkg/generic_advdiff/gad_calc_rhs.F 420 GAD_CALC_RHS 
          CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 427 GAD_CALC_RHS 
       CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,localT,df,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 438 GAD_CALC_RHS 
       CALL GAD_BIHARM_Y(bi,bj,k,yA,df4,diffK4,df,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 445 GAD_CALC_RHS 
     I         trIdentity, bi, bj, k, iMin, iMax, jMin, jMax,
./pkg/generic_advdiff/gad_calc_rhs.F 464 GAD_CALC_RHS 
          CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 467 GAD_CALC_RHS 
           CALL LAYERS_FILL_DFY( df, trIdentity,k, 1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 486 GAD_CALC_RHS 
           CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 489 GAD_CALC_RHS 
           CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 493 GAD_CALC_RHS 
           CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 497 GAD_CALC_RHS 
           CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 499 GAD_CALC_RHS 
           CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracAB, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 510 GAD_CALC_RHS 
           CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 514 GAD_CALC_RHS 
           CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 519 GAD_CALC_RHS 
           CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 529 GAD_CALC_RHS 
           CALL GAD_C2_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 532 GAD_CALC_RHS 
           CALL GAD_DST2U1_ADV_R( bi,bj,k,vertAdvecScheme,deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 536 GAD_CALC_RHS 
           CALL GAD_FLUXLIMIT_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 540 GAD_CALC_RHS 
           CALL GAD_U3_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 542 GAD_CALC_RHS 
           CALL GAD_C4_ADV_R( bi,bj,k, rTrans, TracerN, af, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 553 GAD_CALC_RHS 
           CALL GAD_DST3_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 557 GAD_CALC_RHS 
           CALL GAD_DST3FL_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 562 GAD_CALC_RHS 
           CALL GAD_OS7MP_ADV_R( bi,bj,k, deltaTLev(k),
./pkg/generic_advdiff/gad_calc_rhs.F 573 GAD_CALC_RHS 
          fVerT(i,j,kUp) = fVerT(i,j,kUp) + af(i,j)*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 579 GAD_CALC_RHS 
          CALL DIAGNOSTICS_FILL( af, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 582 GAD_CALC_RHS 
          IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 597 GAD_CALC_RHS 
        CALL GAD_DIFF_R(bi,bj,k,KappaR,TracerN,df,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 601 GAD_CALC_RHS 
        CALL GAD_BIHARM_R( bi,bj,k, diffKr4, TracerN, df, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 608 GAD_CALC_RHS 
     I         trIdentity, bi, bj, k, iMin, iMax, jMin, jMax,
./pkg/generic_advdiff/gad_calc_rhs.F 627 GAD_CALC_RHS 
          CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 630 GAD_CALC_RHS 
           CALL LAYERS_FILL_DFR( df, trIdentity, k, 1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 646 GAD_CALC_RHS 
     I           iMin,iMax,jMin,jMax,bi,bj,k,km1,
./pkg/generic_advdiff/gad_calc_rhs.F 651 GAD_CALC_RHS 
     I           iMin,iMax,jMin,jMax,bi,bj,k,km1,
./pkg/generic_advdiff/gad_calc_rhs.F 657 GAD_CALC_RHS 
     I           iMin,iMax,jMin,jMax,bi,bj,k,km1,
./pkg/generic_advdiff/gad_calc_rhs.F 677 GAD_CALC_RHS 
         CALL DIAGNOSTICS_FILL( df, diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 680 GAD_CALC_RHS 
         IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid)
./pkg/generic_advdiff/gad_calc_rhs.F 683 GAD_CALC_RHS 
          CALL LAYERS_FILL_DFR( df, trIdentity, k, 1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 703 GAD_CALC_RHS 
     &    _recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 704 GAD_CALC_RHS 
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 736 GAD_CALC_RHS 
                gTrFac = gTrFac/rStarExpC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 744 GAD_CALC_RHS 
     &         *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 745 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 753 GAD_CALC_RHS 
     &         *_recip_hFacC(i,j,k+1,bi,bj)*recip_drF(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 754 GAD_CALC_RHS 
     &         *recip_rA(i,j,bi,bj)*recip_deepFac2C(k+1)
./pkg/generic_advdiff/gad_calc_rhs.F 771 GAD_CALC_RHS 
     &   -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/generic_advdiff/gad_calc_rhs.F 772 GAD_CALC_RHS 
     &   *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/generic_advdiff/gad_calc_rhs.F 773 GAD_CALC_RHS 
     &   *( (fZon(i+1,j)-fZon(i,j))*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 774 GAD_CALC_RHS 
     &     +(fMer(i,j+1)-fMer(i,j))*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 779 GAD_CALC_RHS 
     &                  )*maskInC(i,j,bi,bj)
./pkg/generic_advdiff/gad_calc_rhs.F 791 GAD_CALC_RHS 
     &             fZon,fMer, k, standardMessageUnit,bi,bj,myThid )
./pkg/generic_advdiff/gad_calc_rhs.F 88 GAD_CALC_RHS 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./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/generic_advdiff/gad_del2.F 11 GAD_DEL2 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_del2.F 33 GAD_DEL2 
      INTEGER bi,bj,k
./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_diagnostics_state.F 112 GAD_DIAGNOSTICS_STATE 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 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 140 GAD_DIAGNOSTICS_STATE 
     &                            0, Nr, 2, bi, bj, myThid )
./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 67 GAD_DIAGNOSTICS_STATE 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 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_diagnostics_state.F 96 GAD_DIAGNOSTICS_STATE 
     &                            0, Nr, 2, bi, bj, myThid )
./pkg/generic_advdiff/gad_diff_r.F 11 GAD_DIFF_R 
     I           bi, bj, k,
./pkg/generic_advdiff/gad_diff_r.F 37 GAD_DIFF_R 
      INTEGER bi,bj,k
./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_x.F 11 GAD_DIFF_X 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_diff_x.F 36 GAD_DIFF_X 
      INTEGER bi,bj,k
./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 57 GAD_DIFF_X 
     &      *cosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_diff_y.F 11 GAD_DIFF_Y 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_diff_y.F 36 GAD_DIFF_Y 
      INTEGER bi,bj,k
./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 60 GAD_DIFF_Y 
     &           *cosFacV(j,bi,bj)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 11 GAD_DST2U1_ADV_R 
     I           bi,bj,k, advectionScheme,
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 38 GAD_DST2U1_ADV_R 
      INTEGER bi,bj,k
./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_x.F 11 GAD_DST2U1_ADV_X 
     I           bi,bj,k, advectionScheme, calcCFL,
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 39 GAD_DST2U1_ADV_X 
      INTEGER bi,bj,k
./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_y.F 11 GAD_DST2U1_ADV_Y 
     I           bi,bj,k, advectionScheme, calcCFL,
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 39 GAD_DST2U1_ADV_Y 
      INTEGER bi,bj, k, advectionScheme
./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_impl_r.F 10 GAD_DST2U1_IMPL_R 
     I           bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 45 GAD_DST2U1_IMPL_R 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 80 GAD_DST2U1_IMPL_R 
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 81 GAD_DST2U1_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./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/generic_advdiff/gad_dst3_adv_r.F 11 GAD_DST3_ADV_R 
     I           bi,bj,k,dTarg,
./pkg/generic_advdiff/gad_dst3_adv_r.F 42 GAD_DST3_ADV_R 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_dst3_adv_r.F 80 GAD_DST3_ADV_R 
     &         *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F 82 GAD_DST3_ADV_R 
     &         *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_r.F 84 GAD_DST3_ADV_R 
     &         *maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3_adv_x.F 11 GAD_DST3_ADV_X 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_dst3_adv_x.F 43 GAD_DST3_ADV_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_dst3_adv_x.F 87 GAD_DST3_ADV_X 
     &                  *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3_adv_y.F 11 GAD_DST3_ADV_Y 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_dst3_adv_y.F 42 GAD_DST3_ADV_Y 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_dst3_adv_y.F 86 GAD_DST3_ADV_Y 
     &                  *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 11 GAD_DST3FL_ADV_R 
     I           bi,bj,k,dTarg,
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 38 GAD_DST3FL_ADV_R 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 74 GAD_DST3FL_ADV_R 
     &         *maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 76 GAD_DST3FL_ADV_R 
     &         *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 78 GAD_DST3FL_ADV_R 
     &         *maskC(i,j,km1,bi,bj)
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 25 GAD_DST3FL_ADV_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 63 GAD_DST3FL_ADV_X 
     &                  *recip_dxC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 7 GAD_DST3FL_ADV_X 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 25 GAD_DST3FL_ADV_Y 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 59 GAD_DST3FL_ADV_Y 
     &                  *recip_dyC(i,j,bi,bj)*recip_deepFacC(k) )
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 7 GAD_DST3FL_ADV_Y 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 103 GAD_DST3FL_IMPL_R 
     &           *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 10 GAD_DST3FL_IMPL_R 
     I           bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 111 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 113 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 144 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 145 GAD_DST3FL_IMPL_R 
           mskM   = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 146 GAD_DST3FL_IMPL_R 
           mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 182 GAD_DST3FL_IMPL_R 
     &                   *recip_hFacC(i,j,k-1,bi,bj)*recip_drF(k-1)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 50 GAD_DST3FL_IMPL_R 
      INTEGER bi,bj,k
./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 11 GAD_FLUXLIMIT_ADV_R 
     I           bi,bj,k,dTarg,
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 44 GAD_FLUXLIMIT_ADV_R 
      INTEGER bi,bj,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 91 GAD_FLUXLIMIT_ADV_R 
     &        *maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 11 GAD_FLUXLIMIT_ADV_X 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 44 GAD_FLUXLIMIT_ADV_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 78 GAD_FLUXLIMIT_ADV_X 
     &                  *recip_dxC(i,j,bi,bj)*recip_deepFacC(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/generic_advdiff/gad_fluxlimit_adv_y.F 11 GAD_FLUXLIMIT_ADV_Y 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 44 GAD_FLUXLIMIT_ADV_Y 
      INTEGER bi,bj,k
./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_impl_r.F 10 GAD_FLUXLIMIT_IMPL_R 
     I           bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 111 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 45 GAD_FLUXLIMIT_IMPL_R 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 88 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 89 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 91 GAD_FLUXLIMIT_IMPL_R 
         Rjm=(tFld(i,j,km1)-tFld(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_grad_x.F 11 GAD_GRAD_X 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_grad_x.F 32 GAD_GRAD_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_grad_x.F 54 GAD_GRAD_X 
     &                             tracer, bi,bj, myThid )
./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 66 GAD_GRAD_X 
     &            *sqCosFacU(j,bi,bj)
./pkg/generic_advdiff/gad_grad_x.F 69 GAD_GRAD_X 
     &            *maskInW(i,j,bi,bj)
./pkg/generic_advdiff/gad_grad_y.F 11 GAD_GRAD_Y 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_grad_y.F 32 GAD_GRAD_Y 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_grad_y.F 54 GAD_GRAD_Y 
     &                             tracer, bi,bj, myThid )
./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 69 GAD_GRAD_Y 
     &            *sqCosFacV(j,bi,bj)
./pkg/generic_advdiff/gad_grad_y.F 73 GAD_GRAD_Y 
     &            *maskInS(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 146 GAD_IMPLICIT_R 
           b5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 14 GAD_IMPLICIT_R 
     I      bi, bj, myTime, myIter, myThid )
./pkg/generic_advdiff/gad_implicit_r.F 156 GAD_IMPLICIT_R 
           d5d(i,j,k) = -deltaTLev(k)*maskC(i,j,k+1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 188 GAD_IMPLICIT_R 
            rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 189 GAD_IMPLICIT_R 
     &                               *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 205 GAD_IMPLICIT_R 
          CALL GAD_C2_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_implicit_r.F 212 GAD_IMPLICIT_R 
          CALL GAD_DST2U1_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_implicit_r.F 219 GAD_IMPLICIT_R 
          CALL GAD_FLUXLIMIT_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_implicit_r.F 227 GAD_IMPLICIT_R 
          CALL GAD_U3C4_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_implicit_r.F 234 GAD_IMPLICIT_R 
          CALL GAD_DST3FL_IMPL_R( bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_implicit_r.F 256 GAD_IMPLICIT_R 
     I                          bi, bj, myThid )
./pkg/generic_advdiff/gad_implicit_r.F 266 GAD_IMPLICIT_R 
     I                            bi, bj, myThid )
./pkg/generic_advdiff/gad_implicit_r.F 299 GAD_IMPLICIT_R 
     &             -rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 303 GAD_IMPLICIT_R 
     &            * maskC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 304 GAD_IMPLICIT_R 
     &            * maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 318 GAD_IMPLICIT_R 
           CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)
./pkg/generic_advdiff/gad_implicit_r.F 319 GAD_IMPLICIT_R 
           IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT(diagName,bi,bj,myThid)
./pkg/generic_advdiff/gad_implicit_r.F 324 GAD_IMPLICIT_R 
     &                           k, 1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_implicit_r.F 358 GAD_IMPLICIT_R 
               div(i,j) = div(i,j)*h0FacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 359 GAD_IMPLICIT_R 
     &                            *rStarFacC(i,j,bi,bj)
./pkg/generic_advdiff/gad_implicit_r.F 366 GAD_IMPLICIT_R 
     &               _hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 367 GAD_IMPLICIT_R 
     &              + dBHybSigF(k)*dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./pkg/generic_advdiff/gad_implicit_r.F 374 GAD_IMPLICIT_R 
               IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/generic_advdiff/gad_implicit_r.F 375 GAD_IMPLICIT_R 
                div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 377 GAD_IMPLICIT_R 
                div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 389 GAD_IMPLICIT_R 
               div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k)
./pkg/generic_advdiff/gad_implicit_r.F 399 GAD_IMPLICIT_R 
     &                - rkSign*div(i,j)*rA(i,j,bi,bj)/deltaTLev(k)
./pkg/generic_advdiff/gad_implicit_r.F 405 GAD_IMPLICIT_R 
           CALL DIAGNOSTICS_FILL(af,diagName, k,1, 2,bi,bj, myThid)
./pkg/generic_advdiff/gad_implicit_r.F 51 GAD_IMPLICIT_R 
      INTEGER bi, bj
./pkg/generic_advdiff/gad_init_varia.F 37 GAD_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/generic_advdiff/gad_init_varia.F 40 GAD_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 25 GAD_OS7MP_ADV_R 
      INTEGER bi,bj,k
./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 7 GAD_OS7MP_ADV_R 
     I           bi,bj,k,deltaTloc,
./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 25 GAD_OS7MP_ADV_X 
      INTEGER bi,bj,k
./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 7 GAD_OS7MP_ADV_X 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_os7mp_adv_y.F 25 GAD_OS7MP_ADV_Y 
      INTEGER bi,bj,k
./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 7 GAD_OS7MP_ADV_Y 
     I           bi,bj,k, calcCFL, deltaTloc,
./pkg/generic_advdiff/gad_som_adv_r.F 11 GAD_SOM_ADV_R 
     I           bi,bj,k, kUp, kDw,
./pkg/generic_advdiff/gad_som_adv_r.F 258 GAD_SOM_ADV_R 
         IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/generic_advdiff/gad_som_adv_r.F 55 GAD_SOM_ADV_R 
      INTEGER bi,bj,k, kUp, kDw
./pkg/generic_advdiff/gad_som_adv_x.F 11 GAD_SOM_ADV_X 
     I           bi,bj,k, limiter,
./pkg/generic_advdiff/gad_som_adv_x.F 52 GAD_SOM_ADV_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_som_adv_y.F 11 GAD_SOM_ADV_Y 
     I           bi,bj,k, limiter,
./pkg/generic_advdiff/gad_som_adv_y.F 52 GAD_SOM_ADV_Y 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_som_advect.F 17 GAD_SOM_ADVECT 
     I     bi,bj, myTime,myIter,myThid)
./pkg/generic_advdiff/gad_som_advect.F 216 GAD_SOM_ADVECT 
       myTile = W2_myTileList(bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 246 GAD_SOM_ADVECT 
          xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_som_advect.F 247 GAD_SOM_ADVECT 
     &            *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 248 GAD_SOM_ADVECT 
          yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./pkg/generic_advdiff/gad_som_advect.F 249 GAD_SOM_ADVECT 
     &            *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 264 GAD_SOM_ADVECT 
         smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 265 GAD_SOM_ADVECT 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 267 GAD_SOM_ADVECT 
         smTr0(i,j,k) = tracer(i,j,k,bi,bj)*smVol(i,j,k)
./pkg/generic_advdiff/gad_som_advect.F 270 GAD_SOM_ADVECT 
     &                + (1. _d 0 - maskC(i,j,k,bi,bj))
./pkg/generic_advdiff/gad_som_advect.F 319 GAD_SOM_ADVECT 
     I                     ipass, k, Nr, bi, bj, myThid )
./pkg/generic_advdiff/gad_som_advect.F 326 GAD_SOM_ADVECT 
     I                     bi,bj,k, limiter,
./pkg/generic_advdiff/gad_som_advect.F 330 GAD_SOM_ADVECT 
     I                     maskInC(1-OLx,1-OLy,bi,bj),
./pkg/generic_advdiff/gad_som_advect.F 333 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,1),
./pkg/generic_advdiff/gad_som_advect.F 334 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,2),
./pkg/generic_advdiff/gad_som_advect.F 335 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,3),
./pkg/generic_advdiff/gad_som_advect.F 336 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,4),
./pkg/generic_advdiff/gad_som_advect.F 337 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,5),
./pkg/generic_advdiff/gad_som_advect.F 338 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,6),
./pkg/generic_advdiff/gad_som_advect.F 339 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,7),
./pkg/generic_advdiff/gad_som_advect.F 340 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,8),
./pkg/generic_advdiff/gad_som_advect.F 341 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,9),
./pkg/generic_advdiff/gad_som_advect.F 366 GAD_SOM_ADVECT 
     I                     iPass, k, Nr, bi, bj, myThid )
./pkg/generic_advdiff/gad_som_advect.F 373 GAD_SOM_ADVECT 
     I                     bi,bj,k, limiter,
./pkg/generic_advdiff/gad_som_advect.F 377 GAD_SOM_ADVECT 
     I                     maskInC(1-OLx,1-OLy,bi,bj),
./pkg/generic_advdiff/gad_som_advect.F 380 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,1),
./pkg/generic_advdiff/gad_som_advect.F 381 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,2),
./pkg/generic_advdiff/gad_som_advect.F 382 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,3),
./pkg/generic_advdiff/gad_som_advect.F 383 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,4),
./pkg/generic_advdiff/gad_som_advect.F 384 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,5),
./pkg/generic_advdiff/gad_som_advect.F 385 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,6),
./pkg/generic_advdiff/gad_som_advect.F 386 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,7),
./pkg/generic_advdiff/gad_som_advect.F 387 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,8),
./pkg/generic_advdiff/gad_som_advect.F 388 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,k,bi,bj,9),
./pkg/generic_advdiff/gad_som_advect.F 410 GAD_SOM_ADVECT 
     &          ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) )
./pkg/generic_advdiff/gad_som_advect.F 411 GAD_SOM_ADVECT 
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 412 GAD_SOM_ADVECT 
     &            *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 422 GAD_SOM_ADVECT 
         CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_som_advect.F 426 GAD_SOM_ADVECT 
         CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_som_advect.F 437 GAD_SOM_ADVECT 
     &             afx,afy, k, standardMessageUnit,bi,bj,myThid )
./pkg/generic_advdiff/gad_som_advect.F 451 GAD_SOM_ADVECT 
       CALL GAD_SOM_LIM_R( bi,bj, limiter,
./pkg/generic_advdiff/gad_som_advect.F 454 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,1),
./pkg/generic_advdiff/gad_som_advect.F 455 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,2),
./pkg/generic_advdiff/gad_som_advect.F 456 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,3),
./pkg/generic_advdiff/gad_som_advect.F 457 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,4),
./pkg/generic_advdiff/gad_som_advect.F 458 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,5),
./pkg/generic_advdiff/gad_som_advect.F 459 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,6),
./pkg/generic_advdiff/gad_som_advect.F 460 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,7),
./pkg/generic_advdiff/gad_som_advect.F 461 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,8),
./pkg/generic_advdiff/gad_som_advect.F 462 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,9),
./pkg/generic_advdiff/gad_som_advect.F 525 GAD_SOM_ADVECT 
           rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 527 GAD_SOM_ADVECT 
     &                 *maskC(i,j,k-1,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 537 GAD_SOM_ADVECT 
           rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 539 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 550 GAD_SOM_ADVECT 
     I                     bi,bj,k, kUp, kDown,
./pkg/generic_advdiff/gad_som_advect.F 552 GAD_SOM_ADVECT 
     I                     maskInC(1-OLx,1-OLy,bi,bj),
./pkg/generic_advdiff/gad_som_advect.F 555 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,1),
./pkg/generic_advdiff/gad_som_advect.F 556 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,2),
./pkg/generic_advdiff/gad_som_advect.F 557 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,3),
./pkg/generic_advdiff/gad_som_advect.F 558 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,4),
./pkg/generic_advdiff/gad_som_advect.F 559 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,5),
./pkg/generic_advdiff/gad_som_advect.F 560 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,6),
./pkg/generic_advdiff/gad_som_advect.F 561 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,7),
./pkg/generic_advdiff/gad_som_advect.F 562 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,8),
./pkg/generic_advdiff/gad_som_advect.F 563 GAD_SOM_ADVECT 
     U                     smTr(1-OLx,1-OLy,1,bi,bj,9),
./pkg/generic_advdiff/gad_som_advect.F 587 GAD_SOM_ADVECT 
     &          ( smTr0(i,j,k) - tracer(i,j,k,bi,bj)*smVol(i,j,k) )
./pkg/generic_advdiff/gad_som_advect.F 588 GAD_SOM_ADVECT 
     &            *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/generic_advdiff/gad_som_advect.F 589 GAD_SOM_ADVECT 
     &            *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./pkg/generic_advdiff/gad_som_advect.F 599 GAD_SOM_ADVECT 
     &                          diagName, k,1, 2,bi,bj, myThid )
./pkg/generic_advdiff/gad_som_advect.F 59 GAD_SOM_ADVECT 
      INTEGER bi,bj
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 13 GAD_SOM_FILL_CS_CORNER 
     I           bi, bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 58 GAD_SOM_FILL_CS_CORNER 
      INTEGER bi,bj
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 73 GAD_SOM_FILL_CS_CORNER 
     &                               sm_v , bi,bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 75 GAD_SOM_FILL_CS_CORNER 
     &                               sm_o , bi,bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 77 GAD_SOM_FILL_CS_CORNER 
     &                               sm_x , sm_y , bi,bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 79 GAD_SOM_FILL_CS_CORNER 
     &                               sm_z , bi,bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 81 GAD_SOM_FILL_CS_CORNER 
     &                               sm_xx, sm_yy, bi,bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 83 GAD_SOM_FILL_CS_CORNER 
     &                               sm_zz, bi,bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 85 GAD_SOM_FILL_CS_CORNER 
     &                               sm_xy, bi,bj, myThid )
./pkg/generic_advdiff/gad_som_fill_cs_corner.F 87 GAD_SOM_FILL_CS_CORNER 
     &                               sm_xz, sm_yz, bi,bj, myThid )
./pkg/generic_advdiff/gad_som_lim_r.F 11 GAD_SOM_LIM_R 
     I           bi,bj, limiter,
./pkg/generic_advdiff/gad_som_lim_r.F 32 GAD_SOM_LIM_R 
      INTEGER bi,bj
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 113 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,1),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 114 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,2),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 115 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,3),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 116 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,4),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 117 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,5),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 118 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,6),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 119 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,7),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 120 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,8),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 121 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,9),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 122 GAD_SOM_PREP_CS_CORNER 
     I                                 bi, bj, myThid )
./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 13 GAD_SOM_PREP_CS_CORNER 
     I           iPass, k, myNz, bi, bj, myThid )
./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 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 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 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 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 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 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 56 GAD_SOM_PREP_CS_CORNER 
      INTEGER iPass, k, bi, bj
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 90 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,1),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 91 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,2),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 92 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,3),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 93 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,4),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 94 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,5),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 95 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,6),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 96 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,7),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 97 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,8),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 98 GAD_SOM_PREP_CS_CORNER 
     U                                 smTr(1-OLx,1-OLy,k,bi,bj,9),
./pkg/generic_advdiff/gad_som_prep_cs_corner.F 99 GAD_SOM_PREP_CS_CORNER 
     I                                 bi, bj, myThid )
./pkg/generic_advdiff/gad_u3_adv_r.F 11 GAD_U3_ADV_R 
     I           bi, bj, k,
./pkg/generic_advdiff/gad_u3_adv_r.F 38 GAD_U3_ADV_R 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_u3_adv_r.F 71 GAD_U3_ADV_R 
         Rjp = (tracer(i,j,kp1)-tracer(i,j, k ))*maskC(i,j,kp1,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_r.F 73 GAD_U3_ADV_R 
         Rjm = (tracer(i,j,km1)-tracer(i,j,km2))*maskC(i,j,km2,bi,bj)
./pkg/generic_advdiff/gad_u3_adv_r.F 76 GAD_U3_ADV_R 
         wT(i,j) = maskC(i,j,km1,bi,bj)*(
./pkg/generic_advdiff/gad_u3_adv_x.F 11 GAD_U3_ADV_X 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_u3_adv_x.F 39 GAD_U3_ADV_X 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_u3_adv_y.F 11 GAD_U3_ADV_Y 
     I           bi,bj,k,
./pkg/generic_advdiff/gad_u3_adv_y.F 39 GAD_U3_ADV_Y 
      INTEGER bi,bj,k
./pkg/generic_advdiff/gad_u3c4_impl_r.F 103 GAD_U3C4_IMPL_R 
     &        0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3c4_impl_r.F 104 GAD_U3C4_IMPL_R 
         mskM   = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_u3c4_impl_r.F 105 GAD_U3C4_IMPL_R 
         mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_u3c4_impl_r.F 10 GAD_U3C4_IMPL_R 
     I           bi,bj,k, iMin,iMax,jMin,jMax,
./pkg/generic_advdiff/gad_u3c4_impl_r.F 112 GAD_U3C4_IMPL_R 
     &         *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 134 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 135 GAD_U3C4_IMPL_R 
           mskM   = maskC(i,j,km2,bi,bj)*maskM2
./pkg/generic_advdiff/gad_u3c4_impl_r.F 136 GAD_U3C4_IMPL_R 
           mskP   = maskC(i,j,kp1,bi,bj)*maskP1
./pkg/generic_advdiff/gad_u3c4_impl_r.F 143 GAD_U3C4_IMPL_R 
     &            *recip_rA(i,j,bi,bj)*recip_drC(k)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 50 GAD_U3C4_IMPL_R 
      INTEGER bi,bj,k
./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 113 SALT_FILL 
          CALL DIAGNOSTICS_FILL(salt,'SALTFILL',0,Nr,1,bi,bj,myThid)
./pkg/generic_advdiff/salt_fill.F 62 SALT_FILL 
      INTEGER bi,bj,i,j,L,LM1
./pkg/generic_advdiff/salt_fill.F 70 SALT_FILL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/generic_advdiff/salt_fill.F 77 SALT_FILL 
     &                                   0,Nr,-1,bi,bj,myThid)
./pkg/generic_advdiff/salt_fill.F 90 SALT_FILL 
          if( salt(i,j,L,bi,bj).lt.0.0  _d 0) then
./pkg/generic_advdiff/salt_fill.F 91 SALT_FILL 
           salt(i,j,LM1,bi,bj) = salt(i,j,LM1,bi,bj) +
./pkg/generic_advdiff/salt_fill.F 92 SALT_FILL 
     .          salt(i,j,L,bi,bj)*dpratio
./pkg/generic_advdiff/salt_fill.F 93 SALT_FILL 
           salt(i,j,L,bi,bj) = 0.0 _d 0
./pkg/ggl90/ggl90_calc.F 11 GGL90_CALC 
     I                 bi, bj, sigmaR, myTime, myIter, myThid )
./pkg/ggl90/ggl90_calc.F 153 GGL90_CALC 
        totalDepth(i,j)    = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 156 GGL90_CALC 
        SQRTTKE(i,j,1) = SQRT( GGL90TKE(i,j,1,bi,bj) )
./pkg/ggl90/ggl90_calc.F 166 GGL90_CALC 
         SQRTTKE(i,j,k)=SQRT( GGL90TKE(i,j,k,bi,bj) )
./pkg/ggl90/ggl90_calc.F 228 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 343 GGL90_CALC 
          xA(i,j) = _dyG(i,j,bi,bj)*drC(k)*
./pkg/ggl90/ggl90_calc.F 344 GGL90_CALC 
     &                 (min(.5 _d 0,_hFacW(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 345 GGL90_CALC 
     &                  min(.5 _d 0,_hFacW(i,j,k  ,bi,bj) ) )
./pkg/ggl90/ggl90_calc.F 346 GGL90_CALC 
          yA(i,j) = _dxG(i,j,bi,bj)*drC(k)*
./pkg/ggl90/ggl90_calc.F 347 GGL90_CALC 
     &                 (min(.5 _d 0,_hFacS(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 348 GGL90_CALC 
     &                  min(.5 _d 0,_hFacS(i,j,k  ,bi,bj) ) )
./pkg/ggl90/ggl90_calc.F 357 GGL90_CALC 
     &      *_recip_dxC(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 358 GGL90_CALC 
     &      *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i-1,j,k,bi,bj))
./pkg/ggl90/ggl90_calc.F 360 GGL90_CALC 
     &      *CosFacU(j,bi,bj)
./pkg/ggl90/ggl90_calc.F 371 GGL90_CALC 
     &      *_recip_dyC(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 372 GGL90_CALC 
     &      *(GGL90TKE(i,j,k,bi,bj)-GGL90TKE(i,j-1,k,bi,bj))
./pkg/ggl90/ggl90_calc.F 374 GGL90_CALC 
     &      *CosFacV(j,bi,bj)
./pkg/ggl90/ggl90_calc.F 381 GGL90_CALC 
          hFac = min(.5 _d 0,_hFacC(i,j,k-1,bi,bj) ) +
./pkg/ggl90/ggl90_calc.F 382 GGL90_CALC 
     &          min(.5 _d 0,_hFacC(i,j,k  ,bi,bj) )
./pkg/ggl90/ggl90_calc.F 385 GGL90_CALC 
     &      gTKE(i,j) = -recip_drC(k)*recip_rA(i,j,bi,bj)/hFac
./pkg/ggl90/ggl90_calc.F 397 GGL90_CALC 
         tempU= .5 _d 0*( uVel(i,j,km1,bi,bj)+uVel(i+1,j,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 398 GGL90_CALC 
     &                 -( uVel(i,j,k  ,bi,bj)+uVel(i+1,j,k  ,bi,bj)) )
./pkg/ggl90/ggl90_calc.F 400 GGL90_CALC 
         tempV= .5 _d 0*( vVel(i,j,km1,bi,bj)+vVel(i,j+1,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 401 GGL90_CALC 
     &                 -( vVel(i,j,k  ,bi,bj)+vVel(i,j+1,k  ,bi,bj)) )
./pkg/ggl90/ggl90_calc.F 414 GGL90_CALC 
     &                            * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 417 GGL90_CALC 
         KappaM = MAX(KappaM,viscArNr(k)) * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 419 GGL90_CALC 
         KappaE(i,j,k) = GGL90alpha * KappaM * maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 424 GGL90_CALC 
     &        *GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 426 GGL90_CALC 
         GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 440 GGL90_CALC 
          GGL90TKE(i,j,k,bi,bj) = GGL90TKE(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 469 GGL90_CALC 
     &        *recip_drF(k-1)*recip_hFacC(i,j,k-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 471 GGL90_CALC 
     &        *recip_drC(k)*maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 484 GGL90_CALC 
          kp1=MAX(1,MIN(klowC(i,j,bi,bj),k+1))
./pkg/ggl90/ggl90_calc.F 489 GGL90_CALC 
     &        *recip_drF( k ) * recip_hFacC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 491 GGL90_CALC 
     &        *recip_drC(k)*maskC(i,j,k-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 49 GGL90_CALC 
      INTEGER bi, bj
./pkg/ggl90/ggl90_calc.F 503 GGL90_CALC 
     &        * maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 515 GGL90_CALC 
     &    ( .5 _d 0*( surfaceForcingU(i,  j,  bi,bj)
./pkg/ggl90/ggl90_calc.F 516 GGL90_CALC 
     &              + surfaceForcingU(i+1,j,  bi,bj) ) )**2
./pkg/ggl90/ggl90_calc.F 517 GGL90_CALC 
     &  + ( .5 _d 0*( surfaceForcingV(i,  j,  bi,bj)
./pkg/ggl90/ggl90_calc.F 518 GGL90_CALC 
     &              + surfaceForcingV(i,  j+1,bi,bj) ) )**2
./pkg/ggl90/ggl90_calc.F 521 GGL90_CALC 
        GGL90TKE(i,j,kSurf,bi,bj) = maskC(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 523 GGL90_CALC 
        GGL90TKE(i,j,kp1,bi,bj) = GGL90TKE(i,j,kp1,bi,bj)
./pkg/ggl90/ggl90_calc.F 524 GGL90_CALC 
     &               - a3d(i,j,kp1)*GGL90TKE(i,j,kSurf,bi,bj)
./pkg/ggl90/ggl90_calc.F 527 GGL90_CALC 
        kBottom   = MAX(kLowC(i,j,bi,bj),1)
./pkg/ggl90/ggl90_calc.F 528 GGL90_CALC 
        GGL90TKE(i,j,kBottom,bi,bj) = GGL90TKE(i,j,kBottom,bi,bj)
./pkg/ggl90/ggl90_calc.F 537 GGL90_CALC 
     U                        GGL90TKE(1-OLx,1-OLy,1,bi,bj),
./pkg/ggl90/ggl90_calc.F 539 GGL90_CALC 
     I                        bi, bj, myThid )
./pkg/ggl90/ggl90_calc.F 545 GGL90_CALC 
         GGL90TKE(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc.F 546 GGL90_CALC 
     &                  *MAX( GGL90TKE(i,j,k,bi,bj), GGL90TKEmin )
./pkg/ggl90/ggl90_calc.F 560 GGL90_CALC 
     &   p4 *  GGL90visctmp(i  ,j  ,k) * mskCor(i  ,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 561 GGL90_CALC 
     &  +p8 *( GGL90visctmp(i-1,j  ,k) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 562 GGL90_CALC 
     &       + GGL90visctmp(i  ,j-1,k) * mskCor(i  ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 563 GGL90_CALC 
     &       + GGL90visctmp(i+1,j  ,k) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 564 GGL90_CALC 
     &       + GGL90visctmp(i  ,j+1,k) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 565 GGL90_CALC 
     &  +p16*( 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 568 GGL90_CALC 
     &       + GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 571 GGL90_CALC 
     &  +p8 *(       maskC(i-1,j  ,k,bi,bj) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 572 GGL90_CALC 
     &       +       maskC(i  ,j-1,k,bi,bj) * mskCor(i  ,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 573 GGL90_CALC 
     &       +       maskC(i+1,j  ,k,bi,bj) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 574 GGL90_CALC 
     &       +       maskC(i  ,j+1,k,bi,bj) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 575 GGL90_CALC 
     &  +p16*(       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-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 579 GGL90_CALC 
     &  )*maskC(i,j,k,bi,bj)*mskCor(i,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 584 GGL90_CALC 
         GGL90diffKr(i,j,k,bi,bj)= MAX( tmpVisc , diffKrNrT(k) )
./pkg/ggl90/ggl90_calc.F 595 GGL90_CALC 
     &   p4 *(GGL90visctmp(i  ,j  ,k) * mskCor(i  ,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 596 GGL90_CALC 
     &       +GGL90visctmp(i-1,j  ,k) * mskCor(i-1,j  ,bi,bj))
./pkg/ggl90/ggl90_calc.F 597 GGL90_CALC 
     &  +p8 *(GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 598 GGL90_CALC 
     &       +GGL90visctmp(i-1,j+1,k) * mskCor(i-1,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 600 GGL90_CALC 
     &       +GGL90visctmp(i  ,j+1,k) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 603 GGL90_CALC 
     &  +p8 *(      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-1,j+1,k,bi,bj) * mskCor(i-1,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 606 GGL90_CALC 
     &       +      maskC(i  ,j+1,k,bi,bj) * mskCor(i  ,j+1,bi,bj))
./pkg/ggl90/ggl90_calc.F 608 GGL90_CALC 
     &  *maskC(i  ,j,k,bi,bj)*mskCor(i  ,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 609 GGL90_CALC 
     &  *maskC(i-1,j,k,bi,bj)*mskCor(i-1,j,bi,bj)
./pkg/ggl90/ggl90_calc.F 611 GGL90_CALC 
        tmpVisc = _maskW(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc.F 617 GGL90_CALC 
        GGL90viscArU(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) )
./pkg/ggl90/ggl90_calc.F 628 GGL90_CALC 
     &   p4 *(GGL90visctmp(i  ,j  ,k) * mskCor(i  ,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 629 GGL90_CALC 
     &       +GGL90visctmp(i  ,j-1,k) * mskCor(i  ,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 630 GGL90_CALC 
     &  +p8 *(GGL90visctmp(i-1,j  ,k) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 631 GGL90_CALC 
     &       +GGL90visctmp(i-1,j-1,k) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 632 GGL90_CALC 
     &       +GGL90visctmp(i+1,j  ,k) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 633 GGL90_CALC 
     &       +GGL90visctmp(i+1,j-1,k) * mskCor(i+1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 636 GGL90_CALC 
     &  +p8 *(      maskC(i-1,j  ,k,bi,bj) * mskCor(i-1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 637 GGL90_CALC 
     &       +      maskC(i-1,j-1,k,bi,bj) * mskCor(i-1,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 638 GGL90_CALC 
     &       +      maskC(i+1,j  ,k,bi,bj) * mskCor(i+1,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 639 GGL90_CALC 
     &       +      maskC(i+1,j-1,k,bi,bj) * mskCor(i+1,j-1,bi,bj))
./pkg/ggl90/ggl90_calc.F 641 GGL90_CALC 
     &   *maskC(i,j  ,k,bi,bj)*mskCor(i,j  ,bi,bj)
./pkg/ggl90/ggl90_calc.F 642 GGL90_CALC 
     &   *maskC(i,j-1,k,bi,bj)*mskCor(i,j-1,bi,bj)
./pkg/ggl90/ggl90_calc.F 644 GGL90_CALC 
        tmpVisc = _maskS(i,j,k,bi,bj) *
./pkg/ggl90/ggl90_calc.F 651 GGL90_CALC 
        GGL90viscArV(i,j,k,bi,bj) = MAX( tmpVisc, viscArNr(k) )
./pkg/ggl90/ggl90_calc.F 659 GGL90_CALC 
     &                          0,Nr, 1, bi, bj, myThid )
./pkg/ggl90/ggl90_calc.F 661 GGL90_CALC 
     &                          0,Nr, 1, bi, bj, myThid )
./pkg/ggl90/ggl90_calc.F 663 GGL90_CALC 
     &                          0,Nr, 1, bi, bj, myThid )
./pkg/ggl90/ggl90_calc.F 665 GGL90_CALC 
     &                          0,Nr, 1, bi, bj, myThid )
./pkg/ggl90/ggl90_calc.F 667 GGL90_CALC 
     &                          0,Nr, 2, bi, bj, myThid )
./pkg/ggl90/ggl90_calc.F 669 GGL90_CALC 
     &                          0,Nr, 2, bi, bj, myThid )
./pkg/ggl90/ggl90_calc_diff.F 37 GGL90_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/ggl90/ggl90_calc_diff.F 54 GGL90_CALC_DIFF 
     &                  +( GGL90diffKr(i,j,k,bi,bj)
./pkg/ggl90/ggl90_calc_diff.F 65 GGL90_CALC_DIFF 
     &                  +( GGL90diffKr(i,j,kArg,bi,bj)
./pkg/ggl90/ggl90_calc_diff.F 7 GGL90_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/ggl90/ggl90_calc_visc.F 30 GGL90_CALC_VISC 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,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 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_calc_visc.F 7 GGL90_CALC_VISC 
     I        bi,bj,iMin,iMax,jMin,jMax,K,
./pkg/ggl90/ggl90_init_fixed.F 31 GGL90_INIT_FIXED 
      INTEGER i, j, bi, bj
./pkg/ggl90/ggl90_init_fixed.F 47 GGL90_INIT_FIXED 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ggl90/ggl90_init_fixed.F 51 GGL90_INIT_FIXED 
          mskCor(i,j,bi,bj) = 1. _d 0
./pkg/ggl90/ggl90_init_fixed.F 56 GGL90_INIT_FIXED 
     U                               mskCor(1-OLx,1-OLy,bi,bj),
./pkg/ggl90/ggl90_init_fixed.F 57 GGL90_INIT_FIXED 
     I                               bi,bj, myThid )
./pkg/ggl90/ggl90_init_varia.F 24 GGL90_INIT_VARIA 
      INTEGER bi, bj
./pkg/ggl90/ggl90_init_varia.F 32 GGL90_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ggl90/ggl90_init_varia.F 40 GGL90_INIT_VARIA 
           GGL90viscArU(I,J,K,bi,bj) = 0. _d 0
./pkg/ggl90/ggl90_init_varia.F 41 GGL90_INIT_VARIA 
           GGL90viscArV(I,J,K,bi,bj) = 0. _d 0
./pkg/ggl90/ggl90_init_varia.F 42 GGL90_INIT_VARIA 
           GGL90diffKr(I,J,K,bi,bj)  = 0. _d 0
./pkg/ggl90/ggl90_init_varia.F 44 GGL90_INIT_VARIA 
           GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj)
./pkg/ggl90/ggl90_init_varia.F 68 GGL90_INIT_VARIA 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ggl90/ggl90_init_varia.F 73 GGL90_INIT_VARIA 
             GGL90TKE(I,J,K,bi,bj) = MAX(GGL90TKE(I,J,K,bi,bj),
./pkg/ggl90/ggl90_init_varia.F 74 GGL90_INIT_VARIA 
     &            GGL90TKEmin)*maskC(I,J,K,bi,bj)
./pkg/ggl90/ggl90_output.F 108 GGL90_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ggl90/ggl90_output.F 110 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 111 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 112 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 113 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90TKEtave,    Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 114 GGL90_OUTPUT 
          GGL90_timeAve(bi,bj) = 0.
./pkg/ggl90/ggl90_output.F 121 GGL90_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ggl90/ggl90_output.F 124 GGL90_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 126 GGL90_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 128 GGL90_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 130 GGL90_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 132 GGL90_OUTPUT 
          GGL90_timeAve(bi,bj) = GGL90_timeAve(bi,bj)+DDTT
./pkg/ggl90/ggl90_output.F 143 GGL90_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ggl90/ggl90_output.F 146 GGL90_OUTPUT 
     &                            GGL90_timeAve, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 148 GGL90_OUTPUT 
     &                            GGL90_timeAve, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 150 GGL90_OUTPUT 
     &                            GGL90_timeAve, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 152 GGL90_OUTPUT 
     &                            GGL90_timeAve, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 168 GGL90_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ggl90/ggl90_output.F 170 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90viscArUtave, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 171 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90viscArVtave, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 172 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90diffKrtave, Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 173 GGL90_OUTPUT 
          CALL TIMEAVE_RESET( GGL90TKEtave,    Nr, bi, bj, myThid )
./pkg/ggl90/ggl90_output.F 174 GGL90_OUTPUT 
          GGL90_timeAve(bi,bj) = 0.
./pkg/ggl90/ggl90_output.F 69 GGL90_OUTPUT 
      INTEGER bi, bj
./pkg/gmredi/gmredi_calc_diff.F 40 GMREDI_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./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 59 GMREDI_CALC_DIFF 
     &           *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 62 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 64 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 66 GMREDI_CALC_DIFF 
     &           *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 77 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 
     &           *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 7 GMREDI_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/gmredi/gmredi_calc_diff.F 81 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+LS_Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 83 GMREDI_CALC_DIFF 
            KappaRx(i,j,k) = KappaRx(i,j,k)+Kwz(i,j,kArg,bi,bj)
./pkg/gmredi/gmredi_calc_diff.F 85 GMREDI_CALC_DIFF 
     &           *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_eigs.F 103 GMREDI_CALC_EIGS 
        fCori2(i,j) = fCori(i,j,bi,bj)*fCori(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_eigs.F 10 GMREDI_CALC_EIGS 
     I     bi, bj, N2, myThid, kLow,
./pkg/gmredi/gmredi_calc_eigs.F 297 GMREDI_CALC_EIGS 
        Rmid(i,j) = c1(i,j)/ABS(fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_eigs.F 37 GMREDI_CALC_EIGS 
      INTEGER bi, bj
./pkg/gmredi/gmredi_calc_psi_b.F 110 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 112 GMREDI_CALC_PSI_B 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 118 GMREDI_CALC_PSI_B 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 120 GMREDI_CALC_PSI_B 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 130 GMREDI_CALC_PSI_B 
     I             bi, bj, myThid )
./pkg/gmredi/gmredi_calc_psi_b.F 13 GMREDI_CALC_PSI_B 
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_psi_b.F 144 GMREDI_CALC_PSI_B 
          GM_PsiX(i,j,k,bi,bj) = SlopeX(i,j)*taperX(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 146 GMREDI_CALC_PSI_B 
     &     *( kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 149 GMREDI_CALC_PSI_B 
     &          *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 152 GMREDI_CALC_PSI_B 
     &      +op5*(VisbeckK(i-1,j,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 154 GMREDI_CALC_PSI_B 
     &      )*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 156 GMREDI_CALC_PSI_B 
     &     +eddyPsiX(i,j,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 162 GMREDI_CALC_PSI_B 
         GM_PsiY(i,j,k,bi,bj) = SlopeY(i,j)*taperY(i,j)
./pkg/gmredi/gmredi_calc_psi_b.F 164 GMREDI_CALC_PSI_B 
     &     *( kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 167 GMREDI_CALC_PSI_B 
     &          *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 170 GMREDI_CALC_PSI_B 
     &      +op5*(VisbeckK(i,j-1,bi,bj)+VisbeckK(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_b.F 172 GMREDI_CALC_PSI_B 
     &      )*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 174 GMREDI_CALC_PSI_B 
     &     +eddyPsiY(i,j,k,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_b.F 52 GMREDI_CALC_PSI_B 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/gmredi/gmredi_calc_psi_b.F 75 GMREDI_CALC_PSI_B 
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_calc_psi_bvp.F 10 GMREDI_CALC_PSI_BVP 
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_psi_bvp.F 113 GMREDI_CALC_PSI_BVP 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 115 GMREDI_CALC_PSI_BVP 
     &                  *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 125 GMREDI_CALC_PSI_BVP 
          GM_PsiX(i,j,k,bi,bj) = half_K*sigmaX_W
./pkg/gmredi/gmredi_calc_psi_bvp.F 126 GMREDI_CALC_PSI_BVP 
     &       *(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_bvp.F 142 GMREDI_CALC_PSI_BVP 
          IF ( maskW(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_psi_bvp.F 145 GMREDI_CALC_PSI_BVP 
     &                      *recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 148 GMREDI_CALC_PSI_BVP 
     &                     *(recip_drF(km1)*recip_hFacW(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 149 GMREDI_CALC_PSI_BVP 
     &                      +recip_drF(k)*recip_hFacW(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_calc_psi_bvp.F 151 GMREDI_CALC_PSI_BVP 
     &                      *recip_drF(k)*recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 161 GMREDI_CALC_PSI_BVP 
     &                         GM_PsiX(1-OLx,1-OLy,1,bi,bj),
./pkg/gmredi/gmredi_calc_psi_bvp.F 162 GMREDI_CALC_PSI_BVP 
     &                         errCode, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_psi_bvp.F 191 GMREDI_CALC_PSI_BVP 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 193 GMREDI_CALC_PSI_BVP 
     &                  *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 203 GMREDI_CALC_PSI_BVP 
          GM_PsiY(i,j,k,bi,bj) = half_K*sigmaY_W
./pkg/gmredi/gmredi_calc_psi_bvp.F 204 GMREDI_CALC_PSI_BVP 
     &       *(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_psi_bvp.F 213 GMREDI_CALC_PSI_BVP 
          IF ( maskS(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_psi_bvp.F 216 GMREDI_CALC_PSI_BVP 
     &                      *recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 219 GMREDI_CALC_PSI_BVP 
     &                     *(recip_drF(km1)*recip_hFacS(i,j,km1,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 220 GMREDI_CALC_PSI_BVP 
     &                      +recip_drF(k)*recip_hFacS(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_calc_psi_bvp.F 222 GMREDI_CALC_PSI_BVP 
     &                      *recip_drF(k)*recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_psi_bvp.F 232 GMREDI_CALC_PSI_BVP 
     &                         GM_PsiY(1-OLx,1-OLy,1,bi,bj),
./pkg/gmredi/gmredi_calc_psi_bvp.F 233 GMREDI_CALC_PSI_BVP 
     &                         errCode, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_psi_bvp.F 247 GMREDI_CALC_PSI_BVP 
     &                               0, 1, 2, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_psi_bvp.F 249 GMREDI_CALC_PSI_BVP 
     &                               0, 1, 2, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_psi_bvp.F 40 GMREDI_CALC_PSI_BVP 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/gmredi/gmredi_calc_psi_bvp.F 89 GMREDI_CALC_PSI_BVP 
          GM_PsiX(i,j,1,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_bvp.F 90 GMREDI_CALC_PSI_BVP 
          GM_PsiY(i,j,1,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 1000 GMREDI_CALC_TENSOR 
     &       ( maskC(i,j-1,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 1001 GMREDI_CALC_TENSOR 
     &           (theta(i,j-1,k,bi,bj)-theta(i,j-1,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 1002 GMREDI_CALC_TENSOR 
     &        +maskC(i, j ,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 1003 GMREDI_CALC_TENSOR 
     &           (theta(i, j ,k,bi,bj)-theta(i, j ,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 1005 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F 1006 GMREDI_CALC_TENSOR 
     &                * _hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 1010 GMREDI_CALC_TENSOR 
        CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KvzTz', k,1,2,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 1024 GMREDI_CALC_TENSOR 
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 1026 GMREDI_CALC_TENSOR 
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 1028 GMREDI_CALC_TENSOR 
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 1032 GMREDI_CALC_TENSOR 
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 1038 GMREDI_CALC_TENSOR 
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 1040 GMREDI_CALC_TENSOR 
     &                          deltaTclock, bi, bj, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 1043 GMREDI_CALC_TENSOR 
       GM_timeAve(bi,bj) = GM_timeAve(bi,bj)+deltaTclock
./pkg/gmredi/gmredi_calc_tensor.F 1050 GMREDI_CALC_TENSOR 
        CALL GMREDI_DIAGNOSTICS_FILL(bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 1067 GMREDI_CALC_TENSOR_DUMMY 
     I             bi, bj, myTime, myIter, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 1089 GMREDI_CALC_TENSOR_DUMMY 
      INTEGER bi, bj
./pkg/gmredi/gmredi_calc_tensor.F 1102 GMREDI_CALC_TENSOR_DUMMY 
         Kwx(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 1103 GMREDI_CALC_TENSOR_DUMMY 
         Kwy(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 1104 GMREDI_CALC_TENSOR_DUMMY 
         Kwz(i,j,k,bi,bj) = 0.0
./pkg/gmredi/gmredi_calc_tensor.F 125 GMREDI_CALC_TENSOR 
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_calc_tensor.F 151 GMREDI_CALC_TENSOR 
        VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 165 GMREDI_CALC_TENSOR 
         IF (fCori(i,j,bi,bj).NE.0.) THEN
./pkg/gmredi/gmredi_calc_tensor.F 166 GMREDI_CALC_TENSOR 
           ldd97_LrhoC(i,j) = Cspd/ABS(fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 178 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 179 GMREDI_CALC_TENSOR 
         fCoriLoc = op5*(fCori(i-1,j,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 18 GMREDI_CALC_TENSOR 
     I             bi, bj, myTime, myIter, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 195 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 196 GMREDI_CALC_TENSOR 
         fCoriLoc = op5*(fCori(i,j-1,bi,bj)+fCori(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 220 GMREDI_CALC_TENSOR 
         GM_PsiX(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 221 GMREDI_CALC_TENSOR 
         GM_PsiY(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 230 GMREDI_CALC_TENSOR 
         Kwx(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 231 GMREDI_CALC_TENSOR 
         Kwy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 232 GMREDI_CALC_TENSOR 
         Kwz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 234 GMREDI_CALC_TENSOR 
         Kux(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 235 GMREDI_CALC_TENSOR 
         Kvy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 238 GMREDI_CALC_TENSOR 
         Kuz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 239 GMREDI_CALC_TENSOR 
         Kvz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 249 GMREDI_CALC_TENSOR 
         hTransLay(i,j) = R_low(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 259 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = KPPhbl(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 268 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = hMixLayer(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 282 GMREDI_CALC_TENSOR 
     I       bi, bj, myTime, myThid)
./pkg/gmredi/gmredi_calc_tensor.F 314 GMREDI_CALC_TENSOR 
     &                      )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 317 GMREDI_CALC_TENSOR 
     &                      )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 343 GMREDI_CALC_TENSOR 
          IF ( maskC(i,j,k,bi,bj).NE.0. ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 344 GMREDI_CALC_TENSOR 
           integrDepth = -rC( kLowC(i,j,bi,bj) )
./pkg/gmredi/gmredi_calc_tensor.F 367 GMREDI_CALC_TENSOR 
     &                 + maskC(i-1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 368 GMREDI_CALC_TENSOR 
     &                 + maskC(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 369 GMREDI_CALC_TENSOR 
     &                 + maskC(i,j-1,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 370 GMREDI_CALC_TENSOR 
     &                 + maskC(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 394 GMREDI_CALC_TENSOR 
           VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 426 GMREDI_CALC_TENSOR 
     I             kLowC(1-OLx,1-OLy,bi,bj),
./pkg/gmredi/gmredi_calc_tensor.F 427 GMREDI_CALC_TENSOR 
     I             k, bi, bj, myTime, myIter, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 432 GMREDI_CALC_TENSOR 
         SlopeX(i,j)=SlopeX(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 433 GMREDI_CALC_TENSOR 
         SlopeY(i,j)=SlopeY(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 434 GMREDI_CALC_TENSOR 
         SlopeSqr(i,j)=SlopeSqr(i,j)*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 449 GMREDI_CALC_TENSOR 
          Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 450 GMREDI_CALC_TENSOR 
          Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 451 GMREDI_CALC_TENSOR 
          Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j)
./pkg/gmredi/gmredi_calc_tensor.F 481 GMREDI_CALC_TENSOR 
         VisbeckK(i,j,bi,bj) = VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 502 GMREDI_CALC_TENSOR 
         VisbeckK(i,j,bi,bj)=
./pkg/gmredi/gmredi_calc_tensor.F 503 GMREDI_CALC_TENSOR 
     &       MIN( MAX( VisbeckK(i,j,bi,bj), GM_Visbeck_minVal_K ),
./pkg/gmredi/gmredi_calc_tensor.F 534 GMREDI_CALC_TENSOR 
         Kgm_tmp = kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 536 GMREDI_CALC_TENSOR 
         Kgm_tmp = isopycK*GM_isoFac2d(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 539 GMREDI_CALC_TENSOR 
     &           + GM_skewflx*kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 541 GMREDI_CALC_TENSOR 
     &           + GM_skewflx*bolus_K*GM_bolFac2d(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 544 GMREDI_CALC_TENSOR 
     &           + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx)
./pkg/gmredi/gmredi_calc_tensor.F 547 GMREDI_CALC_TENSOR 
     &           + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 550 GMREDI_CALC_TENSOR 
         Kwx(i,j,k,bi,bj)= Kgm_tmp*Kwx(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 551 GMREDI_CALC_TENSOR 
         Kwy(i,j,k,bi,bj)= Kgm_tmp*Kwy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 553 GMREDI_CALC_TENSOR 
         Kwz(i,j,k,bi,bj)= ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 555 GMREDI_CALC_TENSOR 
         Kwz(i,j,k,bi,bj)= ( isopycK*GM_isoFac2d(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 558 GMREDI_CALC_TENSOR 
     &                     + VisbeckK(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 561 GMREDI_CALC_TENSOR 
     &                     + op5*(K3D(i,j,k,bi,bj)+K3D(i,j,km1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 563 GMREDI_CALC_TENSOR 
     &                     )*Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 570 GMREDI_CALC_TENSOR 
       CALL DIAGNOSTICS_FILL( hTransLay, 'GM_hTrsL', 0,1,2,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 571 GMREDI_CALC_TENSOR 
       CALL DIAGNOSTICS_FILL( baseSlope, 'GM_baseS', 0,1,2,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 572 GMREDI_CALC_TENSOR 
       CALL DIAGNOSTICS_FILL(recipLambda,'GM_rLamb', 0,1,2,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 584 GMREDI_CALC_TENSOR 
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_tensor.F 594 GMREDI_CALC_TENSOR 
     I              bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_tensor.F 610 GMREDI_CALC_TENSOR 
     I              bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/gmredi_calc_tensor.F 625 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( KPPhbl(i-1,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 626 GMREDI_CALC_TENSOR 
     &                      + KPPhbl( i ,j,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 62 GMREDI_CALC_TENSOR 
      INTEGER bi, bj
./pkg/gmredi/gmredi_calc_tensor.F 635 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( hMixLayer(i-1,j,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 636 GMREDI_CALC_TENSOR 
     &                      + hMixLayer( i ,j,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 647 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 663 GMREDI_CALC_TENSOR 
     &                       *_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 666 GMREDI_CALC_TENSOR 
     &                      )*_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 669 GMREDI_CALC_TENSOR 
     &                      )*_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 693 GMREDI_CALC_TENSOR 
     I             k, bi, bj, myTime, myIter, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 704 GMREDI_CALC_TENSOR 
          Kux(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 706 GMREDI_CALC_TENSOR 
     &     ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 709 GMREDI_CALC_TENSOR 
     &        *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 712 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 715 GMREDI_CALC_TENSOR 
     &     +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 727 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 742 GMREDI_CALC_TENSOR 
          Kuz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 744 GMREDI_CALC_TENSOR 
     &     ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 747 GMREDI_CALC_TENSOR 
     &        *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 750 GMREDI_CALC_TENSOR 
     &     - GM_skewflx*kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 753 GMREDI_CALC_TENSOR 
     &        *op5*(GM_bolFac2d(i-1,j,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 756 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 759 GMREDI_CALC_TENSOR 
     &     +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 774 GMREDI_CALC_TENSOR 
          tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 777 GMREDI_CALC_TENSOR 
     &        *op5*(GM_isoFac2d(i-1,j,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 780 GMREDI_CALC_TENSOR 
     &     +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F 783 GMREDI_CALC_TENSOR 
     &     +op5*(K3D(i,j,k,bi,bj)+K3D(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 793 GMREDI_CALC_TENSOR 
     &       ( maskC(i-1,j,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 794 GMREDI_CALC_TENSOR 
     &           (theta(i-1,j,km1,bi,bj)-theta(i-1,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 795 GMREDI_CALC_TENSOR 
     &        +maskC( i ,j,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 796 GMREDI_CALC_TENSOR 
     &           (theta( i ,j,km1,bi,bj)-theta( i ,j,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 799 GMREDI_CALC_TENSOR 
     &       ( maskC(i-1,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 800 GMREDI_CALC_TENSOR 
     &           (theta(i-1,j,k,bi,bj)-theta(i-1,j,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 801 GMREDI_CALC_TENSOR 
     &        +maskC( i ,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 802 GMREDI_CALC_TENSOR 
     &           (theta( i ,j,k,bi,bj)-theta( i ,j,kp1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 804 GMREDI_CALC_TENSOR 
           tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k)
./pkg/gmredi/gmredi_calc_tensor.F 805 GMREDI_CALC_TENSOR 
     &                * _hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 809 GMREDI_CALC_TENSOR 
        CALL DIAGNOSTICS_FILL(tmp1k, 'GM_KuzTz', k,1,2,bi,bj,myThid)
./pkg/gmredi/gmredi_calc_tensor.F 823 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( KPPhbl(i,j-1,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 824 GMREDI_CALC_TENSOR 
     &                      + KPPhbl(i, j ,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 833 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = ( hMixLayer(i,j-1,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 834 GMREDI_CALC_TENSOR 
     &                      + hMixLayer(i, j ,bi,bj) )*op5
./pkg/gmredi/gmredi_calc_tensor.F 847 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 864 GMREDI_CALC_TENSOR 
     &                      )*_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 866 GMREDI_CALC_TENSOR 
     &                       *_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 869 GMREDI_CALC_TENSOR 
     &                      )*_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 891 GMREDI_CALC_TENSOR 
     I             k, bi, bj, myTime, myIter, myThid )
./pkg/gmredi/gmredi_calc_tensor.F 905 GMREDI_CALC_TENSOR 
          Kvy(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 907 GMREDI_CALC_TENSOR 
     &     ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 910 GMREDI_CALC_TENSOR 
     &        *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 913 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 916 GMREDI_CALC_TENSOR 
     &     +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 928 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 943 GMREDI_CALC_TENSOR 
          Kvz(i,j,k,bi,bj) =
./pkg/gmredi/gmredi_calc_tensor.F 945 GMREDI_CALC_TENSOR 
     &     ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 948 GMREDI_CALC_TENSOR 
     &        *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 951 GMREDI_CALC_TENSOR 
     &     - GM_skewflx*kapGM(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 954 GMREDI_CALC_TENSOR 
     &        *op5*(GM_bolFac2d(i,j-1,bi,bj)+GM_bolFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 957 GMREDI_CALC_TENSOR 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 960 GMREDI_CALC_TENSOR 
     &     +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))*GM_advect
./pkg/gmredi/gmredi_calc_tensor.F 975 GMREDI_CALC_TENSOR 
          tmp1k(i,j) = ( kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_calc_tensor.F 978 GMREDI_CALC_TENSOR 
     &        *op5*(GM_isoFac2d(i,j-1,bi,bj)+GM_isoFac2d(i,j,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 981 GMREDI_CALC_TENSOR 
     &     +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F 984 GMREDI_CALC_TENSOR 
     &     +op5*(K3D(i,j,k,bi,bj)+K3D(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 994 GMREDI_CALC_TENSOR 
     &       ( maskC(i,j-1,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 995 GMREDI_CALC_TENSOR 
     &           (theta(i,j-1,km1,bi,bj)-theta(i,j-1,k,bi,bj))
./pkg/gmredi/gmredi_calc_tensor.F 996 GMREDI_CALC_TENSOR 
     &        +maskC(i, j ,k,bi,bj)*
./pkg/gmredi/gmredi_calc_tensor.F 997 GMREDI_CALC_TENSOR 
     &           (theta(i, j ,km1,bi,bj)-theta(i, j ,k,bi,bj))
./pkg/gmredi/gmredi_calc_urms.F 10 GMREDI_CALC_URMS 
     I     bi, bj, N2, myThid,
./pkg/gmredi/gmredi_calc_urms.F 34 GMREDI_CALC_URMS 
      INTEGER bi, bj
./pkg/gmredi/gmredi_calc_urms.F 60 GMREDI_CALC_URMS 
        k = kLowC(i,j,bi,bj)
./pkg/gmredi/gmredi_calc_urms.F 63 GMREDI_CALC_URMS 
     &         /(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj))
./pkg/gmredi/gmredi_calc_urms.F 73 GMREDI_CALC_URMS 
         IF (k.LT.kLowC(i,j,bi,bj)) THEN
./pkg/gmredi/gmredi_calc_urms.F 75 GMREDI_CALC_URMS 
     &          const(i,j)*(modesC(1,i,j,k,bi,bj)-modesC(1,i,j,1,bi,bj))
./pkg/gmredi/gmredi_calc_urms.F 86 GMREDI_CALC_URMS 
        if (kLowC(i,j,bi,bj).EQ.0) urms(i,j,1) = zeroRL
./pkg/gmredi/gmredi_diagnostics_fill.F 100 GMREDI_DIAGNOSTICS_FILL 
     &   0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 27 GMREDI_DIAGNOSTICS_FILL 
      INTEGER bi,bj
./pkg/gmredi/gmredi_diagnostics_fill.F 51 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(VisbeckK,'GM_VisbK',0,1,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 55 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(Kux,'GM_Kux  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 56 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(Kvy,'GM_Kvy  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 60 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(Kuz,'GM_Kuz  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 61 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(Kvz,'GM_Kvz  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 64 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(Kwx,'GM_Kwx  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 65 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(Kwy,'GM_Kwy  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 66 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(Kwz,'GM_Kwz  ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 69 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(GM_PsiX,'GM_PsiX ',0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 70 GMREDI_DIAGNOSTICS_FILL 
         CALL DIAGNOSTICS_FILL(GM_PsiY,'GM_PsiY ',0,Nr,1,bi,bj,myThid)
./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 86 GMREDI_DIAGNOSTICS_FILL 
     &   0,Nr,1,bi,bj,myThid)
./pkg/gmredi/gmredi_diagnostics_fill.F 8 GMREDI_DIAGNOSTICS_FILL 
     I             bi, bj, myThid )
./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_diagnostics_impl.F 44 GMREDI_DIAGNOSTICS_IMPL 
      INTEGER bi,bj
./pkg/gmredi/gmredi_diagnostics_impl.F 54 GMREDI_DIAGNOSTICS_IMPL 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gmredi/gmredi_diagnostics_impl.F 56 GMREDI_DIAGNOSTICS_IMPL 
           CALL DIAGNOSTICS_COUNT( 'GM_KwzTz', bi, bj, myThid )
./pkg/gmredi/gmredi_diagnostics_impl.F 61 GMREDI_DIAGNOSTICS_IMPL 
     &            *(theta(i,j,k,bi,bj)-theta(i,j,k-1,bi,bj))
./pkg/gmredi/gmredi_diagnostics_impl.F 62 GMREDI_DIAGNOSTICS_IMPL 
     &            * maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_diagnostics_impl.F 63 GMREDI_DIAGNOSTICS_IMPL 
                tmpVar(i,j) = tmpVar(i,j)*Kwz(i,j,k,bi,bj)
./pkg/gmredi/gmredi_diagnostics_impl.F 64 GMREDI_DIAGNOSTICS_IMPL 
     &                                   *rA(i,j,bi,bj)
./pkg/gmredi/gmredi_diagnostics_impl.F 68 GMREDI_DIAGNOSTICS_IMPL 
     &                              k, 1, 2, bi, bj, myThid )
./pkg/gmredi/gmredi_init_fixed.F 43 GMREDI_INIT_FIXED 
      INTEGER bi,bj
./pkg/gmredi/gmredi_init_fixed.F 46 GMREDI_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/gmredi/gmredi_init_fixed.F 50 GMREDI_INIT_FIXED 
           GM_isoFac2d(i,j,bi,bj) = 1. _d 0
./pkg/gmredi/gmredi_init_fixed.F 51 GMREDI_INIT_FIXED 
           GM_bolFac2d(i,j,bi,bj) = 1. _d 0
./pkg/gmredi/gmredi_init_varia.F 39 GMREDI_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/gmredi/gmredi_init_varia.F 41 GMREDI_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/gmredi/gmredi_init_varia.F 48 GMREDI_INIT_VARIA 
           Kwx(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 49 GMREDI_INIT_VARIA 
           Kwy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 50 GMREDI_INIT_VARIA 
           Kwz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 52 GMREDI_INIT_VARIA 
           Kuz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 53 GMREDI_INIT_VARIA 
           Kvz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 56 GMREDI_INIT_VARIA 
           Kux(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 57 GMREDI_INIT_VARIA 
           Kvy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 60 GMREDI_INIT_VARIA 
           GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 61 GMREDI_INIT_VARIA 
           GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 64 GMREDI_INIT_VARIA 
          VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 67 GMREDI_INIT_VARIA 
          K3D(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 75 GMREDI_INIT_VARIA 
        CALL TIMEAVE_RESET(GM_Kwx_T,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init_varia.F 76 GMREDI_INIT_VARIA 
        CALL TIMEAVE_RESET(GM_Kwy_T,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init_varia.F 77 GMREDI_INIT_VARIA 
        CALL TIMEAVE_RESET(GM_Kwz_T,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init_varia.F 78 GMREDI_INIT_VARIA 
        GM_timeAve(bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 80 GMREDI_INIT_VARIA 
        CALL TIMEAVE_RESET(Visbeck_K_T, 1, bi,bj,myThid)
./pkg/gmredi/gmredi_init_varia.F 83 GMREDI_INIT_VARIA 
        CALL TIMEAVE_RESET(GM_PsiXtave,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_init_varia.F 84 GMREDI_INIT_VARIA 
        CALL TIMEAVE_RESET(GM_PsiYtave,Nr, bi,bj,myThid)
./pkg/gmredi/gmredi_k3d.F 1001 GMREDI_K3D 
     &         (uKdqdyInt(i,j)-uInt(i,j)*KdqdyInt(i,j)/R_low(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F 1002 GMREDI_K3D 
     &        -(vKdqdxInt(i,j)-vInt(i,j)*KdqdxInt(i,j)/R_low(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F 1052 GMREDI_K3D 
        psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1059 GMREDI_K3D 
     &          - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1070 GMREDI_K3D 
          GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1071 GMREDI_K3D 
          GM_PsiY(i,j,k,bi,bj) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1077 GMREDI_K3D 
           GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k+1,bi,bj)
./pkg/gmredi/gmredi_k3d.F 1078 GMREDI_K3D 
     &          - hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1079 GMREDI_K3D 
           GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k+1,bi,bj)
./pkg/gmredi/gmredi_k3d.F 1080 GMREDI_K3D 
     &          - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k)
./pkg/gmredi/gmredi_k3d.F 1117 GMREDI_K3D 
        CALL DIAGNOSTICS_FILL(modesC(1,:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 1134 GMREDI_K3D 
           K3D(i,j,k,bi,bj) = GM_K3D_constK
./pkg/gmredi/gmredi_k3d.F 11 GMREDI_K3D 
     I     bi, bj, myTime, myThid )
./pkg/gmredi/gmredi_k3d.F 224 GMREDI_K3D 
        kLow_C(i,j) = kLowC(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 253 GMREDI_K3D 
        dfdx(i,j) = ( fCori(i,j,bi,bj)-fCori(i-1,j,bi,bj) )
./pkg/gmredi/gmredi_k3d.F 254 GMREDI_K3D 
     &              *recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 255 GMREDI_K3D 
        dfdy(i,j) = ( fCori(i,j,bi,bj)-fCori(i,j-1,bi,bj) )
./pkg/gmredi/gmredi_k3d.F 256 GMREDI_K3D 
     &              *recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 264 GMREDI_K3D 
        cori(i,j)  = SIGN( MAX( ABS(fCori(i,j,bi,bj)),GM_K3D_minCori ),
./pkg/gmredi/gmredi_k3d.F 265 GMREDI_K3D 
     &                          fCori(i,j,bi,bj) )
./pkg/gmredi/gmredi_k3d.F 277 GMREDI_K3D 
        fCoriU(i,j) = op5*( fCori(i,j,bi,bj)+fCori(i-1,j,bi,bj) )
./pkg/gmredi/gmredi_k3d.F 288 GMREDI_K3D 
        fCoriV(i,j) = op5*( fCori(i,j,bi,bj)+fCori(i,j-1,bi,bj) )
./pkg/gmredi/gmredi_k3d.F 293 GMREDI_K3D 
        gradf(i,j) = recip_rSphere*fCoriCos(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 300 GMREDI_K3D 
       fCoriU(i,j)=fCori(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 305 GMREDI_K3D 
       fCoriV(i,j)=fCori(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 39 GMREDI_K3D 
      INTEGER bi, bj
./pkg/gmredi/gmredi_k3d.F 405 GMREDI_K3D 
     &        maskW(i,j,k,bi,bj)*drF(k)*hfacC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 406 GMREDI_K3D 
     &                *ubar(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 414 GMREDI_K3D 
          Ubaro(i,j) = -Ubaro(i,j)/r_Low(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 424 GMREDI_K3D 
           BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 428 GMREDI_K3D 
           BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k)*N(i,j,k)
./pkg/gmredi/gmredi_k3d.F 442 GMREDI_K3D 
     I       iMin,iMax,jMin,jMax,bi,bj,N2,myThid,
./pkg/gmredi/gmredi_k3d.F 443 GMREDI_K3D 
     I       kLow_C, maskC(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 444 GMREDI_K3D 
     I       hfacC(:,:,:,bi,bj), recip_hfacC(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 445 GMREDI_K3D 
     I       R_Low(:,:,bi,bj), 1, .TRUE.,
./pkg/gmredi/gmredi_k3d.F 446 GMREDI_K3D 
     O       Rmid, modesC(:,:,:,:,bi,bj))
./pkg/gmredi/gmredi_k3d.F 452 GMREDI_K3D 
          Rdef(i,j,bi,bj) = MIN(Rmid(i,j),Req)
./pkg/gmredi/gmredi_k3d.F 496 GMREDI_K3D 
     &        (-hMixLayer(i,j,bi,bj).LE.-rC(k)) ) THEN
./pkg/gmredi/gmredi_k3d.F 507 GMREDI_K3D 
     &                   + hfacC(i,j,k,bi,bj)*drF(k)*M4onN2(i,j,k)
./pkg/gmredi/gmredi_k3d.F 540 GMREDI_K3D 
        Rurms(i,j) = MIN(Rdef(i,j,bi,bj),GM_K3D_Rmax)
./pkg/gmredi/gmredi_k3d.F 550 GMREDI_K3D 
        Rmix(i,j) = MIN(Rdef(i,j,bi,bj), RRhines(i,j))
./pkg/gmredi/gmredi_k3d.F 556 GMREDI_K3D 
     &                - gradf(i,j)*Rdef(i,j,bi,bj)*Rdef(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 567 GMREDI_K3D 
     I     iMin,iMax,jMin,jMax,bi,bj,N2,myThid,
./pkg/gmredi/gmredi_k3d.F 576 GMREDI_K3D 
             K3D(i,j,k,bi,bj) = GM_K3D_smallK
./pkg/gmredi/gmredi_k3d.F 579 GMREDI_K3D 
               K3D(i,j,k,bi,bj) = GM_K3D_smallK
./pkg/gmredi/gmredi_k3d.F 581 GMREDI_K3D 
               umc(i,j,k) =ubar(i,j,k,bi,bj) - cDopp(i,j)
./pkg/gmredi/gmredi_k3d.F 584 GMREDI_K3D 
               K3D(i,j,k,bi,bj) = GM_K3D_gamma*urms(i,j,k)
./pkg/gmredi/gmredi_k3d.F 589 GMREDI_K3D 
             IF (K3D(i,j,k,bi,bj).LT.GM_K3D_smallK)
./pkg/gmredi/gmredi_k3d.F 590 GMREDI_K3D 
     &            K3D(i,j,k,bi,bj) = GM_K3D_smallK
./pkg/gmredi/gmredi_k3d.F 591 GMREDI_K3D 
             IF (K3D(i,j,k,bi,bj).GT.GM_maxK3D)
./pkg/gmredi/gmredi_k3d.F 592 GMREDI_K3D 
     &            K3D(i,j,k,bi,bj) = GM_maxK3D
./pkg/gmredi/gmredi_k3d.F 609 GMREDI_K3D 
        surfkz(i,j) = MIN(-GM_K3D_surfMinDepth,-hMixLayer(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F 610 GMREDI_K3D 
        surfkz(i,j) = MAX(surfkz(i,j),R_low(i,j,bi,bj))
./pkg/gmredi/gmredi_k3d.F 611 GMREDI_K3D 
        IF(maskC(i,j,1,bi,bj).EQ.0.0) surfkz(i,j)=0.0
./pkg/gmredi/gmredi_k3d.F 634 GMREDI_K3D 
         IF(surfk(i,j).GE.kLowC(i,j,bi,bj)) THEN
./pkg/gmredi/gmredi_k3d.F 647 GMREDI_K3D 
           SlopeX(i,j,k)=-maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)*slope
./pkg/gmredi/gmredi_k3d.F 655 GMREDI_K3D 
           SlopeY(i,j,k)=-maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)*slope
./pkg/gmredi/gmredi_k3d.F 669 GMREDI_K3D 
     &                      *recip_drF(k)*recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 672 GMREDI_K3D 
     &                     *recip_drF(k)*recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 676 GMREDI_K3D 
           KPV(i,j,k) = K3D(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 687 GMREDI_K3D 
     &        *recip_drF(k)*recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 688 GMREDI_K3D 
     &        *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 692 GMREDI_K3D 
     &        *recip_drF(k)*recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 693 GMREDI_K3D 
     &        *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 697 GMREDI_K3D 
         KPV(i,j,k) = K3D(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 721 GMREDI_K3D 
                 hsurf = -rLowW(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 728 GMREDI_K3D 
                   tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 731 GMREDI_K3D 
                   tfluxX(i,j,k) = -fCoriU(i,j)*maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 740 GMREDI_K3D 
                 hsurf = -rLowS(i,j,bi,bj)
./pkg/gmredi/gmredi_k3d.F 747 GMREDI_K3D 
                   tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 750 GMREDI_K3D 
                   tfluxY(i,j,k) = -fCoriV(i,j)*maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 774 GMREDI_K3D 
           gradqx(i,j,k) = maskW(i,j,k,bi,bj)*tfluxX(i,j,k)
./pkg/gmredi/gmredi_k3d.F 775 GMREDI_K3D 
           gradqy(i,j,k) = maskS(i,j,k,bi,bj)*tfluxY(i,j,k)
./pkg/gmredi/gmredi_k3d.F 785 GMREDI_K3D 
           gradqx(i,j,k) = maskW(i,j,k,bi,bj)*(dfdx(i,j)+tfluxX(i,j,k))
./pkg/gmredi/gmredi_k3d.F 786 GMREDI_K3D 
           gradqy(i,j,k) = maskS(i,j,k,bi,bj)*(dfdy(i,j)+tfluxY(i,j,k))
./pkg/gmredi/gmredi_k3d.F 800 GMREDI_K3D 
         N2W(i,j,k) = maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 802 GMREDI_K3D 
         N2S(i,j,k) = maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 829 GMREDI_K3D 
           Xix(i,j,k) = -maskW(i,j,k,bi,bj)*KPV(i,j,k)*gradqx(i,j,k)
./pkg/gmredi/gmredi_k3d.F 830 GMREDI_K3D 
           Xiy(i,j,k) = -maskS(i,j,k,bi,bj)*KPV(i,j,k)*gradqy(i,j,k)
./pkg/gmredi/gmredi_k3d.F 844 GMREDI_K3D 
     I         iMin,iMax,jMin,jMax,bi,bj,N2W,myThid,
./pkg/gmredi/gmredi_k3d.F 845 GMREDI_K3D 
     I         kLow_U,maskW(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 846 GMREDI_K3D 
     I         hfacW(:,:,:,bi,bj),recip_hfacW(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 847 GMREDI_K3D 
     I         rLowW(:,:,bi,bj),GM_K3D_NModes,.FALSE.,
./pkg/gmredi/gmredi_k3d.F 848 GMREDI_K3D 
     O         dummy,modesW(:,:,:,:,bi,bj))
./pkg/gmredi/gmredi_k3d.F 865 GMREDI_K3D 
     &           - maskW(i,j,k,bi,bj)*drF(k)*hfacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 866 GMREDI_K3D 
     &           *Kdqdx(i,j,k)*modesW(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 885 GMREDI_K3D 
     &           + maskW(i,j,k,bi,bj)*XimX(m,i,j)*modesW(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 896 GMREDI_K3D 
     I         iMin,iMax,jMin,jMax,bi,bj,N2S,myThid,
./pkg/gmredi/gmredi_k3d.F 897 GMREDI_K3D 
     I         kLow_V,maskS(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 898 GMREDI_K3D 
     I         hfacS(:,:,:,bi,bj),recip_hfacS(:,:,:,bi,bj),
./pkg/gmredi/gmredi_k3d.F 899 GMREDI_K3D 
     I         rLowS(:,:,bi,bj), GM_K3D_NModes, .FALSE.,
./pkg/gmredi/gmredi_k3d.F 900 GMREDI_K3D 
     O         dummy,modesS(:,:,:,:,bi,bj))
./pkg/gmredi/gmredi_k3d.F 916 GMREDI_K3D 
     &           - drF(k)*hfacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 917 GMREDI_K3D 
     &           *Kdqdy(i,j,k)*modesS(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 936 GMREDI_K3D 
     &           + maskS(i,j,k,bi,bj)*XimY(m,i,j)*modesS(m,i,j,k,bi,bj)
./pkg/gmredi/gmredi_k3d.F 965 GMREDI_K3D 
         centreX = op5*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/gmredi/gmredi_k3d.F 969 GMREDI_K3D 
     &        + centreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 971 GMREDI_K3D 
     &        + centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 973 GMREDI_K3D 
     &        + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 977 GMREDI_K3D 
     &        + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 980 GMREDI_K3D 
         centreY = op5*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj) )
./pkg/gmredi/gmredi_k3d.F 983 GMREDI_K3D 
     &        + centreY*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 985 GMREDI_K3D 
     &        + CentreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 987 GMREDI_K3D 
     &        + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 991 GMREDI_K3D 
     &        + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k)
./pkg/gmredi/gmredi_k3d.F 999 GMREDI_K3D 
        IF (kLowC(i,j,bi,bj).GT.0) THEN
./pkg/gmredi/gmredi_output.F 113 GMREDI_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/gmredi/gmredi_output.F 116 GMREDI_OUTPUT 
     &                           Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 118 GMREDI_OUTPUT 
     &                           Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 120 GMREDI_OUTPUT 
     &                           Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 124 GMREDI_OUTPUT 
     &                           1 , bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 129 GMREDI_OUTPUT 
     &                           Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 131 GMREDI_OUTPUT 
     &                           Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 189 GMREDI_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/gmredi/gmredi_output.F 191 GMREDI_OUTPUT 
         CALL TIMEAVE_RESET( GM_Kwx_T, Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 192 GMREDI_OUTPUT 
         CALL TIMEAVE_RESET( GM_Kwy_T, Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 193 GMREDI_OUTPUT 
         CALL TIMEAVE_RESET( GM_Kwz_T, Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 196 GMREDI_OUTPUT 
     &    CALL TIMEAVE_RESET( Visbeck_K_T, 1, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 200 GMREDI_OUTPUT 
          CALL TIMEAVE_RESET( GM_PsiXtave, Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 201 GMREDI_OUTPUT 
          CALL TIMEAVE_RESET( GM_PsiYtave, Nr, bi, bj, myThid )
./pkg/gmredi/gmredi_output.F 204 GMREDI_OUTPUT 
         GM_timeAve(bi,bj) = 0.
./pkg/gmredi/gmredi_output.F 53 GMREDI_OUTPUT 
      INTEGER bi, bj
./pkg/gmredi/gmredi_read_pickup.F 137 GMREDI_READ_PICKUP 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gmredi/gmredi_read_pickup.F 142 GMREDI_READ_PICKUP 
             modesC(1,i,j,k,bi,bj) = vec(i,j,k,bi,bj)
./pkg/gmredi/gmredi_read_pickup.F 155 GMREDI_READ_PICKUP 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gmredi/gmredi_read_pickup.F 160 GMREDI_READ_PICKUP 
              modesW(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj)
./pkg/gmredi/gmredi_read_pickup.F 174 GMREDI_READ_PICKUP 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gmredi/gmredi_read_pickup.F 179 GMREDI_READ_PICKUP 
              modesS(n,i,j,k,bi,bj) = vec(i,j,k,bi,bj)
./pkg/gmredi/gmredi_read_pickup.F 46 GMREDI_READ_PICKUP 
      INTEGER i,j,k,n,nm,ioUnit,bi,bj
./pkg/gmredi/gmredi_residual_flow.F 105 GMREDI_RESIDUAL_FLOW 
          delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F 106 GMREDI_RESIDUAL_FLOW 
     &           - GM_PsiX(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 107 GMREDI_RESIDUAL_FLOW 
          ustar = delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 108 GMREDI_RESIDUAL_FLOW 
          uMean(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) - ustar
./pkg/gmredi/gmredi_residual_flow.F 113 GMREDI_RESIDUAL_FLOW 
          delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F 114 GMREDI_RESIDUAL_FLOW 
     &           - GM_PsiY(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 115 GMREDI_RESIDUAL_FLOW 
          vstar  = delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 116 GMREDI_RESIDUAL_FLOW 
          vMean(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) - vstar
./pkg/gmredi/gmredi_residual_flow.F 11 GMREDI_RESIDUAL_FLOW 
     I                  bi, bj, myIter, myThid )
./pkg/gmredi/gmredi_residual_flow.F 123 GMREDI_RESIDUAL_FLOW 
       CALL DIAGNOSTICS_FILL( uMean, 'UVELMEAN', 0,Nr,1,bi,bj,myThid )
./pkg/gmredi/gmredi_residual_flow.F 124 GMREDI_RESIDUAL_FLOW 
       CALL DIAGNOSTICS_FILL( vMean, 'VVELMEAN', 0,Nr,1,bi,bj,myThid )
./pkg/gmredi/gmredi_residual_flow.F 36 GMREDI_RESIDUAL_FLOW 
      INTEGER bi, bj, myIter, myThid
./pkg/gmredi/gmredi_residual_flow.F 66 GMREDI_RESIDUAL_FLOW 
           delPsi = GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F 67 GMREDI_RESIDUAL_FLOW 
     &            - GM_PsiX(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 69 GMREDI_RESIDUAL_FLOW 
     &                 + delPsi*recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 74 GMREDI_RESIDUAL_FLOW 
           delPsi = GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_residual_flow.F 75 GMREDI_RESIDUAL_FLOW 
     &            - GM_PsiY(i,j, k, bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 77 GMREDI_RESIDUAL_FLOW 
     &                 + delPsi*recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 82 GMREDI_RESIDUAL_FLOW 
           delPsi = ( dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 83 GMREDI_RESIDUAL_FLOW 
     &               -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 84 GMREDI_RESIDUAL_FLOW 
     &               +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 85 GMREDI_RESIDUAL_FLOW 
     &               -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 86 GMREDI_RESIDUAL_FLOW 
     &              )*maskC(i,j,k,bi,bj)
./pkg/gmredi/gmredi_residual_flow.F 87 GMREDI_RESIDUAL_FLOW 
           wFld(i,j,k) = wFld(i,j,k) + delPsi*recip_rA(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 104 GMREDI_RTRANSPORT 
     &   +op5*(_maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 105 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 107 GMREDI_RTRANSPORT 
     &        +_maskS(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 108 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j+1,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 110 GMREDI_RTRANSPORT 
     &   +op5*(_maskS(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 111 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 113 GMREDI_RTRANSPORT 
     &        +_maskS(i,j+1,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 114 GMREDI_RTRANSPORT 
     &         *_recip_dyC(i,j+1,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 133 GMREDI_RTRANSPORT 
     &      - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 134 GMREDI_RTRANSPORT 
     &       *( LS_Kwx(i,j,k,bi,bj)*dTdx(i,j)
./pkg/gmredi/gmredi_rtransport.F 135 GMREDI_RTRANSPORT 
     &        + LS_Kwy(i,j,k,bi,bj)*dTdy(i,j) )
./pkg/gmredi/gmredi_rtransport.F 143 GMREDI_RTRANSPORT 
     &      - _rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 144 GMREDI_RTRANSPORT 
     &       *( Kwx(i,j,k,bi,bj)*dTdx(i,j)
./pkg/gmredi/gmredi_rtransport.F 145 GMREDI_RTRANSPORT 
     &        + Kwy(i,j,k,bi,bj)*dTdy(i,j) )
./pkg/gmredi/gmredi_rtransport.F 158 GMREDI_RTRANSPORT 
     &      dyG(i+1,j,bi,bj)*GM_PsiX(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 159 GMREDI_RTRANSPORT 
     &     -dyG( i ,j,bi,bj)*GM_PsiX( i ,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 160 GMREDI_RTRANSPORT 
     &     +dxG(i,j+1,bi,bj)*GM_PsiY(i,j+1,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 161 GMREDI_RTRANSPORT 
     &     -dxG(i, j ,bi,bj)*GM_PsiY(i, j ,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 173 GMREDI_RTRANSPORT 
     &        *maskInC(i,j,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 44 GMREDI_RTRANSPORT 
      INTEGER bi, bj, k
./pkg/gmredi/gmredi_rtransport.F 65 GMREDI_RTRANSPORT 
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_rtransport.F 7 GMREDI_RTRANSPORT 
     I     trIdentity, bi, bj, k,
./pkg/gmredi/gmredi_rtransport.F 89 GMREDI_RTRANSPORT 
     &   +op5*(_maskW(i+1,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 90 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i+1,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 92 GMREDI_RTRANSPORT 
     &        +_maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 93 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 95 GMREDI_RTRANSPORT 
     &   +op5*(_maskW(i+1,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 96 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i+1,j,bi,bj)*
./pkg/gmredi/gmredi_rtransport.F 98 GMREDI_RTRANSPORT 
     &        +_maskW(i,j,k-1,bi,bj)
./pkg/gmredi/gmredi_rtransport.F 99 GMREDI_RTRANSPORT 
     &         *_recip_dxC(i,j,bi,bj)*
./pkg/gmredi/gmredi_slope_limit.F 131 GMREDI_SLOPE_LIMIT 
      act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_slope_limit.F 16 GMREDI_SLOPE_LIMIT 
     I             k, bi, bj, myTime, myIter, myThid )
./pkg/gmredi/gmredi_slope_limit.F 92 GMREDI_SLOPE_LIMIT 
      INTEGER k, bi,bj
./pkg/gmredi/gmredi_slope_psi.F 12 GMREDI_SLOPE_PSI 
     I             bi,bj, myThid )
./pkg/gmredi/gmredi_slope_psi.F 51 GMREDI_SLOPE_PSI 
      INTEGER K,bi,bj,myThid
./pkg/gmredi/gmredi_slope_psi.F 76 GMREDI_SLOPE_PSI 
      act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_write_pickup.F 104 GMREDI_WRITE_PICKUP 
            vec(i,j,k,bi,bj) = modesW(n,i,j,k,bi,bj)
./pkg/gmredi/gmredi_write_pickup.F 119 GMREDI_WRITE_PICKUP 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gmredi/gmredi_write_pickup.F 124 GMREDI_WRITE_PICKUP 
            vec(i,j,k,bi,bj) = modesS(n,i,j,k,bi,bj)
./pkg/gmredi/gmredi_write_pickup.F 54 GMREDI_WRITE_PICKUP 
      INTEGER i,j,k,bi,bj,m,n, nm, fp, lChar
./pkg/gmredi/gmredi_write_pickup.F 80 GMREDI_WRITE_PICKUP 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gmredi/gmredi_write_pickup.F 85 GMREDI_WRITE_PICKUP 
           vec(i,j,k,bi,bj) = modesC(1,i,j,k,bi,bj)
./pkg/gmredi/gmredi_write_pickup.F 99 GMREDI_WRITE_PICKUP 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/gmredi/gmredi_xtransport.F 10 GMREDI_XTRANSPORT 
     I     trIdentity, bi, bj, k,
./pkg/gmredi/gmredi_xtransport.F 116 GMREDI_XTRANSPORT 
     &    *Kux(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 119 GMREDI_XTRANSPORT 
     &    *(kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 124 GMREDI_XTRANSPORT 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))
./pkg/gmredi/gmredi_xtransport.F 128 GMREDI_XTRANSPORT 
     &    *_recip_dxC(i,j,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 143 GMREDI_XTRANSPORT 
     &       ( maskC(i-1,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 145 GMREDI_XTRANSPORT 
     &        +maskC( i ,j,k,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 149 GMREDI_XTRANSPORT 
     &       ( maskC(i-1,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 151 GMREDI_XTRANSPORT 
     &        +maskC( i ,j,kp1,bi,bj)*
./pkg/gmredi/gmredi_xtransport.F 164 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 178 GMREDI_XTRANSPORT 
         uTrans(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_xtransport.F 179 GMREDI_XTRANSPORT 
     &                                 -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_xtransport.F 180 GMREDI_XTRANSPORT 
     &                               *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 206 GMREDI_XTRANSPORT 
         tmp1k(i,j) = dyG(i,j,bi,bj)*( GM_PsiX(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_xtransport.F 207 GMREDI_XTRANSPORT 
     &                                -GM_PsiX(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_xtransport.F 208 GMREDI_XTRANSPORT 
     &                               *maskW(i,j,k,bi,bj)
./pkg/gmredi/gmredi_xtransport.F 212 GMREDI_XTRANSPORT 
       CALL DIAGNOSTICS_FILL(tmp1k,'GM_ubT  ', k,1,2,bi,bj,myThid)
./pkg/gmredi/gmredi_xtransport.F 47 GMREDI_XTRANSPORT 
      INTEGER bi, bj, k
./pkg/gmredi/gmredi_xtransport.F 80 GMREDI_XTRANSPORT 
          act2 = bj - myByLo(myThid)
./pkg/gmredi/gmredi_ytransport.F 10 GMREDI_YTRANSPORT 
     I     trIdentity, bi, bj, k,
./pkg/gmredi/gmredi_ytransport.F 116 GMREDI_YTRANSPORT 
     &    *Kvy(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 119 GMREDI_YTRANSPORT 
     &    *(kapRedi(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 124 GMREDI_YTRANSPORT 
     &     +op5*(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))
./pkg/gmredi/gmredi_ytransport.F 128 GMREDI_YTRANSPORT 
     &    *_recip_dyC(i,j,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 143 GMREDI_YTRANSPORT 
     &       ( maskC(i,j-1,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 145 GMREDI_YTRANSPORT 
     &        +maskC(i, j ,k,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 149 GMREDI_YTRANSPORT 
     &       ( maskC(i,j-1,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 151 GMREDI_YTRANSPORT 
     &        +maskC(i, j ,kp1,bi,bj)*
./pkg/gmredi/gmredi_ytransport.F 163 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 178 GMREDI_YTRANSPORT 
         vTrans(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_ytransport.F 179 GMREDI_YTRANSPORT 
     &                                 -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_ytransport.F 180 GMREDI_YTRANSPORT 
     &                               *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 205 GMREDI_YTRANSPORT 
         tmp1k(i,j) = dxG(i,j,bi,bj)*( GM_PsiY(i,j,kp1,bi,bj)*maskp1
./pkg/gmredi/gmredi_ytransport.F 206 GMREDI_YTRANSPORT 
     &                                -GM_PsiY(i,j,k,bi,bj) )
./pkg/gmredi/gmredi_ytransport.F 207 GMREDI_YTRANSPORT 
     &                               *maskS(i,j,k,bi,bj)
./pkg/gmredi/gmredi_ytransport.F 211 GMREDI_YTRANSPORT 
       CALL DIAGNOSTICS_FILL(tmp1k,'GM_vbT  ', k,1,2,bi,bj,myThid)
./pkg/gmredi/gmredi_ytransport.F 47 GMREDI_YTRANSPORT 
      INTEGER bi, bj, k
./pkg/gmredi/gmredi_ytransport.F 80 GMREDI_YTRANSPORT 
          act2 = bj - myByLo(myThid)
./pkg/gmredi/submeso_calc_psi.F 10 SUBMESO_CALC_PSI 
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/gmredi/submeso_calc_psi.F 157 SUBMESO_CALC_PSI 
     &                 *MIN( dxC(i,j,bi,bj), subMeso_Lmax )
./pkg/gmredi/submeso_calc_psi.F 174 SUBMESO_CALC_PSI 
          GM_PsiX(i,j,k,bi,bj) = GM_PsiX(i,j,k,bi,bj)
./pkg/gmredi/submeso_calc_psi.F 183 SUBMESO_CALC_PSI 
     &                           0, 1, 2, bi, bj, myThid )
./pkg/gmredi/submeso_calc_psi.F 185 SUBMESO_CALC_PSI 
     &                          0, 1, 2, bi, bj, myThid )
./pkg/gmredi/submeso_calc_psi.F 190 SUBMESO_CALC_PSI 
     &                         bi,bj,1,myIter,myThid )
./pkg/gmredi/submeso_calc_psi.F 192 SUBMESO_CALC_PSI 
     &                         bi,bj,1,myIter,myThid )
./pkg/gmredi/submeso_calc_psi.F 200 SUBMESO_CALC_PSI 
     &                 *MIN( dyC(i,j,bi,bj), subMeso_Lmax )
./pkg/gmredi/submeso_calc_psi.F 217 SUBMESO_CALC_PSI 
          GM_PsiY(i,j,k,bi,bj) = GM_PsiY(i,j,k,bi,bj)
./pkg/gmredi/submeso_calc_psi.F 226 SUBMESO_CALC_PSI 
     &                          0, 1, 2, bi, bj, myThid )
./pkg/gmredi/submeso_calc_psi.F 231 SUBMESO_CALC_PSI 
     &                         bi,bj,1,myIter,myThid )
./pkg/gmredi/submeso_calc_psi.F 41 SUBMESO_CALC_PSI 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/gmredi/submeso_calc_psi.F 82 SUBMESO_CALC_PSI 
         mixLayerU(i,j) = MIN( mixLayerU(i,j), -rLowW(i,j,bi,bj) )
./pkg/gmredi/submeso_calc_psi.F 88 SUBMESO_CALC_PSI 
         mixLayerV(i,j) = MIN( mixLayerV(i,j), -rLowS(i,j,bi,bj) )
./pkg/gmredi/submeso_calc_psi.F 98 SUBMESO_CALC_PSI 
          fcorLoc(i,j) = SQRT( fCori(i,j,bi,bj)*fCori(i,j,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F 109 GRDCHK_GET_OBCS_MASK 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_get_obcs_mask.F 113 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 114 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldxz(i,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F 132 GRDCHK_GET_OBCS_MASK 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_get_obcs_mask.F 136 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 137 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldyz(j,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F 155 GRDCHK_GET_OBCS_MASK 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_get_obcs_mask.F 159 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskyz(j,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 160 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldyz(j,k,bi,bj)
./pkg/grdchk/grdchk_get_obcs_mask.F 40 GRDCHK_GET_OBCS_MASK 
      integer bi,bj
./pkg/grdchk/grdchk_get_obcs_mask.F 86 GRDCHK_GET_OBCS_MASK 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_get_obcs_mask.F 90 GRDCHK_GET_OBCS_MASK 
                     grdchk_maskxz(i,k,bi,bj,iobcs) =
./pkg/grdchk/grdchk_get_obcs_mask.F 91 GRDCHK_GET_OBCS_MASK 
     &                    tmpfldxz(i,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 130 GRDCHK_GET_POSITION 
            bj = jtile
./pkg/grdchk/grdchk_get_position.F 144 GRDCHK_GET_POSITION 
                     if ( maskC(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 147 GRDCHK_GET_POSITION 
                     wetlocal = maskC(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 149 GRDCHK_GET_POSITION 
                     if ( _maskS(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 152 GRDCHK_GET_POSITION 
                     wetlocal = _maskS(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 154 GRDCHK_GET_POSITION 
                     if ( _maskW(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 157 GRDCHK_GET_POSITION 
                     wetlocal = _maskW(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 161 GRDCHK_GET_POSITION 
                     if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_get_position.F 164 GRDCHK_GET_POSITION 
                     wetlocal = maskSHI(i,j,k,bi,bj)
./pkg/grdchk/grdchk_get_position.F 169 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 170 GRDCHK_GET_POSITION 
     &                       .and. j.eq. OB_Jn(I,bi,bj) ) then
./pkg/grdchk/grdchk_get_position.F 173 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 177 GRDCHK_GET_POSITION 
                        if (grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 178 GRDCHK_GET_POSITION 
     &                       .and. j.eq. OB_Js(I,bi,bj) ) then
./pkg/grdchk/grdchk_get_position.F 181 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskxz(i,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 185 GRDCHK_GET_POSITION 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 186 GRDCHK_GET_POSITION 
     &                      .and. i.eq. OB_Iw(J,bi,bj) ) then
./pkg/grdchk/grdchk_get_position.F 189 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 193 GRDCHK_GET_POSITION 
                        if (grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_get_position.F 194 GRDCHK_GET_POSITION 
     &                       .and. i.eq. OB_Ie(J,bi,bj) ) then
./pkg/grdchk/grdchk_get_position.F 197 GRDCHK_GET_POSITION 
                        wetlocal = grdchk_maskyz(j,k,bi,bj,iobcs)
./pkg/grdchk/grdchk_get_position.F 206 GRDCHK_GET_POSITION 
     &                 bj    .EQ. jtile .AND.
./pkg/grdchk/grdchk_get_position.F 242 GRDCHK_GET_POSITION 
                itest     = itest + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_get_position.F 58 GRDCHK_GET_POSITION 
      integer bi,bj
./pkg/grdchk/grdchk_init.F 104 GRDCHK_INIT 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 107 GRDCHK_INIT 
                  nwettile(bi,bj,k,1) = nwetvtile(bi,bj,k)
./pkg/grdchk/grdchk_init.F 113 GRDCHK_INIT 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 116 GRDCHK_INIT 
                  nwettile(bi,bj,k,1) = nwetitile(bi,bj,k)
./pkg/grdchk/grdchk_init.F 122 GRDCHK_INIT 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 128 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 129 GRDCHK_INIT 
     &                       nwetobcsn(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 133 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 134 GRDCHK_INIT 
     &                       nwetobcss(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 138 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 139 GRDCHK_INIT 
     &                       nwetobcsw(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 143 GRDCHK_INIT 
                        nwettile(bi,bj,k,iobcs) =
./pkg/grdchk/grdchk_init.F 144 GRDCHK_INIT 
     &                       nwetobcse(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 166 GRDCHK_INIT 
      do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 170 GRDCHK_INIT 
                  ncvarcomp     = ncvarcomp + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_init.F 181 GRDCHK_INIT 
      do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 183 GRDCHK_INIT 
            iwetsum(bi,bj,0)    = 0
./pkg/grdchk/grdchk_init.F 185 GRDCHK_INIT 
               iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) +
./pkg/grdchk/grdchk_init.F 186 GRDCHK_INIT 
     &              nwettile(bi,bj,k,1)
./pkg/grdchk/grdchk_init.F 42 GRDCHK_INIT 
      integer bi,bj
./pkg/grdchk/grdchk_init.F 67 GRDCHK_INIT 
      do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 71 GRDCHK_INIT 
                  nwettile(bi,bj,k,iobcs) = 0
./pkg/grdchk/grdchk_init.F 80 GRDCHK_INIT 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 83 GRDCHK_INIT 
                  nwettile(bi,bj,k,1) = nwetctile(bi,bj,k)
./pkg/grdchk/grdchk_init.F 88 GRDCHK_INIT 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 91 GRDCHK_INIT 
                  nwettile(bi,bj,k,1) = nwetstile(bi,bj,k)
./pkg/grdchk/grdchk_init.F 96 GRDCHK_INIT 
         do bj = jtlo,jthi
./pkg/grdchk/grdchk_init.F 99 GRDCHK_INIT 
                  nwettile(bi,bj,k,1) = nwetwtile(bi,bj,k)
./pkg/grdchk/grdchk_loc.F 157 GRDCHK_LOC 
            bj = jLocTile
./pkg/grdchk/grdchk_loc.F 160 GRDCHK_LOC 
             icglo   = icglo + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 161 GRDCHK_LOC 
             icglom1 = icglo - nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 164 GRDCHK_LOC 
     &       bi, bj, icomptest, ichknum
./pkg/grdchk/grdchk_loc.F 184 GRDCHK_LOC 
               jtile  = bj
./pkg/grdchk/grdchk_loc.F 192 GRDCHK_LOC 
                     if ( maskC(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 198 GRDCHK_LOC 
                     if ( _maskS(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 204 GRDCHK_LOC 
                     if ( _maskW(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 211 GRDCHK_LOC 
                     if ( maskSHI(i,j,k,bi,bj) .gt. 0.) then
./pkg/grdchk/grdchk_loc.F 220 GRDCHK_LOC 
                        if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 221 GRDCHK_LOC 
     &                       .and. j.eq. OB_Jn(I,bi,bj) ) then
./pkg/grdchk/grdchk_loc.F 224 GRDCHK_LOC 
                           jtmp = OB_Jn(I,bi,bj)
./pkg/grdchk/grdchk_loc.F 229 GRDCHK_LOC 
                        if ( grdchk_maskxz(i,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 230 GRDCHK_LOC 
     &                       .and. j.eq. OB_Js(I,bi,bj) ) then
./pkg/grdchk/grdchk_loc.F 233 GRDCHK_LOC 
                           jtmp = OB_Js(I,bi,bj)
./pkg/grdchk/grdchk_loc.F 238 GRDCHK_LOC 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 239 GRDCHK_LOC 
     &                       .and. i.eq. OB_Iw(J,bi,bj) ) then
./pkg/grdchk/grdchk_loc.F 241 GRDCHK_LOC 
                           itmp = OB_Iw(J,bi,bj)
./pkg/grdchk/grdchk_loc.F 247 GRDCHK_LOC 
                        if ( grdchk_maskyz(j,k,bi,bj,iobcs) .gt. 0.
./pkg/grdchk/grdchk_loc.F 248 GRDCHK_LOC 
     &                       .and. i.eq. OB_Ie(J,bi,bj) ) then
./pkg/grdchk/grdchk_loc.F 250 GRDCHK_LOC 
                           itmp = OB_Ie(J,bi,bj)
./pkg/grdchk/grdchk_loc.F 281 GRDCHK_LOC 
                 icomptest = icomptest + nwettile(bi,bj,k,iobcs)
./pkg/grdchk/grdchk_loc.F 73 GRDCHK_LOC 
      integer bi,bj
./pkg/grdchk/grdchk_main.F 100 GRDCHK_MAIN 
      INTEGER bi, bj
./pkg/grdchk/grdchk_main.F 177 GRDCHK_MAIN 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/grdchk/grdchk_main.F 182 GRDCHK_MAIN 
                tmpplot1(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 183 GRDCHK_MAIN 
                tmpplot2(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 184 GRDCHK_MAIN 
                tmpplot3(i,j,k,bi,bj) = 0. _d 0
./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 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 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 123 DYN2PHYS 
           qphy(i,j,Lphy,bi,bj) = qd * weights(i,j,Lphy)
./pkg/gridalt/dyn2phys.F 47 DYN2PHYS 
      integer idim1, idim2, jdim1, jdim2, bi, bj
./pkg/gridalt/dyn2phys.F 7 DYN2PHYS 
     . idim1,idim2,jdim1,jdim2,bi,bj,windphy,pephy,Lbot,lmphy,nlperdyn,
./pkg/gridalt/dyn2phys.F 80 DYN2PHYS 
     .       (pephy(i,j,Lphy,bi,bj)+pephy(i,j,Lphy+1,bi,bj))/2.
./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_initialise.F 30 GRIDALT_INITIALISE 
       integer bi, bj
./pkg/gridalt/gridalt_initialise.F 44 GRIDALT_INITIALISE 
        do bj = myByLo(myThid), myByHi(myThid)
./pkg/gridalt/gridalt_initialise.F 48 GRIDALT_INITIALISE 
     .       1,sNx,1,sNy,bi,bj,Nrphys,ksurfC,dpphys0,nlph,nlperdyn)
./pkg/gridalt/gridalt_update.F 30 GRIDALT_UPDATE 
       integer i1,i2,j1,j2,bi,bj
./pkg/gridalt/gridalt_update.F 49 GRIDALT_UPDATE 
        do bj = myByLo(myThid), myByHi(myThid)
./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 71 GRIDALT_UPDATE 
        do bj = myByLo(myThid), myByHi(myThid)
./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 123 MAKE_PHYS_GRID 
        Lbotij = Lbot(i,j,bi,bj)
./pkg/gridalt/make_phys_grid.F 130 MAKE_PHYS_GRID 
     & (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then
./pkg/gridalt/make_phys_grid.F 144 MAKE_PHYS_GRID 
         if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge.
./pkg/gridalt/make_phys_grid.F 147 MAKE_PHYS_GRID 
          dpphys(i,j,nlphys,bi,bj) = dptry(Lnew)
./pkg/gridalt/make_phys_grid.F 152 MAKE_PHYS_GRID 
          if((dptry(Lnew-1)+(hfacC(i,j,Lbotij,bi,bj)*
./pkg/gridalt/make_phys_grid.F 156 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) =
./pkg/gridalt/make_phys_grid.F 157 MAKE_PHYS_GRID 
     &                      (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap
./pkg/gridalt/make_phys_grid.F 160 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) +
./pkg/gridalt/make_phys_grid.F 161 MAKE_PHYS_GRID 
     &                      (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F 163 MAKE_PHYS_GRID 
          deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap)
./pkg/gridalt/make_phys_grid.F 167 MAKE_PHYS_GRID 
        nlperdyn(i,j,Lbotij,bi,bj) = nlphys
./pkg/gridalt/make_phys_grid.F 178 MAKE_PHYS_GRID 
           if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then
./pkg/gridalt/make_phys_grid.F 180 MAKE_PHYS_GRID 
            dpphys(i,j,nlphys,bi,bj) = dptry(Lnew)
./pkg/gridalt/make_phys_grid.F 187 MAKE_PHYS_GRID 
            if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap))
./pkg/gridalt/make_phys_grid.F 191 MAKE_PHYS_GRID 
             dpphys(i,j,nlphys,bi,bj) =
./pkg/gridalt/make_phys_grid.F 192 MAKE_PHYS_GRID 
     &                             (hfacC(i,j,L,bi,bj)*drF(L))-deltap
./pkg/gridalt/make_phys_grid.F 193 MAKE_PHYS_GRID 
             deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 196 MAKE_PHYS_GRID 
             dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj) +
./pkg/gridalt/make_phys_grid.F 197 MAKE_PHYS_GRID 
     &                      (hfacC(i,j,L,bi,bj)*drF(L)-deltap)
./pkg/gridalt/make_phys_grid.F 198 MAKE_PHYS_GRID 
             deltap = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 207 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 209 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 217 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 219 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 222 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 225 MAKE_PHYS_GRID 
           dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 231 MAKE_PHYS_GRID 
          dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L)
./pkg/gridalt/make_phys_grid.F 233 MAKE_PHYS_GRID 
         nlperdyn(i,j,L,bi,bj) = nlphys
./pkg/gridalt/make_phys_grid.F 240 MAKE_PHYS_GRID 
        dpphys(i,j,nlphys,bi,bj)=dpphys(i,j,nlphys,bi,bj)-thindp*nlevs
./pkg/gridalt/make_phys_grid.F 242 MAKE_PHYS_GRID 
         dpphys(i,j,Lnew,bi,bj) = thindp
./pkg/gridalt/make_phys_grid.F 244 MAKE_PHYS_GRID 
        nlperdyn(i,j,Nr,bi,bj) = numlevphys
./pkg/gridalt/make_phys_grid.F 48 MAKE_PHYS_GRID 
       integer i1,i2,j1,j2,bi,bj
./pkg/gridalt/make_phys_grid.F 7 MAKE_PHYS_GRID 
     & nSx,nSy,i1,i2,j1,j2,bi,bj,Nrphys,Lbot,dpphys,numlevphys,nlperdyn)
./pkg/gridalt/make_phys_grid.F 98 MAKE_PHYS_GRID 
         nlperdyn(i,j,L,bi,bj) = 0
./pkg/gridalt/phys2dyn.F 43 PHYS2DYN 
      integer idim1, idim2, jdim1, jdim2, bi, bj
./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 7 PHYS2DYN 
     .     idim1,idim2,jdim1,jdim2,bi,bj,pedyn,Lbot,lmdyn,nlperdyn,qdyn)
./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 30 ICEFRONT_INIT_FIXED 
      INTEGER I, J, K, bi, bj
./pkg/icefront/icefront_init_fixed.F 49 ICEFRONT_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/icefront/icefront_init_fixed.F 53 ICEFRONT_INIT_FIXED 
          R_icefront(I,J,bi,bj) = ABS(R_icefront(I,J,bi,bj))
./pkg/icefront/icefront_init_fixed.F 59 ICEFRONT_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/icefront/icefront_init_fixed.F 63 ICEFRONT_INIT_FIXED 
          K_icefront(i,j,bi,bj) = 0
./pkg/icefront/icefront_init_fixed.F 65 ICEFRONT_INIT_FIXED 
           IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K)))
./pkg/icefront/icefront_init_fixed.F 66 ICEFRONT_INIT_FIXED 
     &          K_icefront(I,J,bi,bj) = K
./pkg/icefront/icefront_init_fixed.F 74 ICEFRONT_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/icefront/icefront_init_fixed.F 79 ICEFRONT_INIT_FIXED 
           IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN
./pkg/icefront/icefront_init_fixed.F 81 ICEFRONT_INIT_FIXED 
              IsInterface=Isinterface + K_icefront(I,J,bi,bj)
./pkg/icefront/icefront_init_varia.F 31 ICEFRONT_INIT_VARIA 
      INTEGER I, J, K, bi, bj
./pkg/icefront/icefront_init_varia.F 34 ICEFRONT_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/icefront/icefront_init_varia.F 39 ICEFRONT_INIT_VARIA 
           icefront_TendT (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_init_varia.F 40 ICEFRONT_INIT_VARIA 
           icefront_TendS (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_tendency_apply.F 103 ICEFRONT_TENDENCY_APPLY_S 
         IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN
./pkg/icefront/icefront_tendency_apply.F 105 ICEFRONT_TENDENCY_APPLY_S 
     &         + ICEFRONT_TendS(i,j,k,bi,bj)
./pkg/icefront/icefront_tendency_apply.F 17 ICEFRONT_TENDENCY_APPLY_T 
     I                    k, bi, bj, myTime, myIter, myThid )
./pkg/icefront/icefront_tendency_apply.F 39 ICEFRONT_TENDENCY_APPLY_T 
      INTEGER k, bi, bj
./pkg/icefront/icefront_tendency_apply.F 51 ICEFRONT_TENDENCY_APPLY_T 
         IF ( k .LE. k_icefront(i,j,bi,bj) ) THEN
./pkg/icefront/icefront_tendency_apply.F 53 ICEFRONT_TENDENCY_APPLY_T 
     &         + ICEFRONT_TendT(i,j,k,bi,bj)
./pkg/icefront/icefront_tendency_apply.F 69 ICEFRONT_TENDENCY_APPLY_S 
     I                    k, bi, bj, myTime, myIter, myThid )
./pkg/icefront/icefront_tendency_apply.F 91 ICEFRONT_TENDENCY_APPLY_S 
      INTEGER k, bi, bj
./pkg/icefront/icefront_thermodynamics.F 113 ICEFRONT_THERMODYNAMICS 
            tLoc = theta(I,J,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 114 ICEFRONT_THERMODYNAMICS 
            sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0)
./pkg/icefront/icefront_thermodynamics.F 121 ICEFRONT_THERMODYNAMICS 
            IF ( K .EQ. K_icefront(I,J,bi,bj)) THEN
./pkg/icefront/icefront_thermodynamics.F 122 ICEFRONT_THERMODYNAMICS 
             pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K)))
./pkg/icefront/icefront_thermodynamics.F 125 ICEFRONT_THERMODYNAMICS 
     &           (R_icefront(I,J,bi,bj)-pLoc)
./pkg/icefront/icefront_thermodynamics.F 126 ICEFRONT_THERMODYNAMICS 
     &           / R_icefront(I,J,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 146 ICEFRONT_THERMODYNAMICS 
            FreshWaterFlux(I,J) = maskC(I,J,K,bi,bj) *
./pkg/icefront/icefront_thermodynamics.F 150 ICEFRONT_THERMODYNAMICS 
            HeatFlux(I,J) = maskC(I,J,K,bi,bj) * HeatCapacity_Cp *
./pkg/icefront/icefront_thermodynamics.F 155 ICEFRONT_THERMODYNAMICS 
            icefront_TendT(i,j,K,bi,bj) = - HeatFlux(I,J)* eps5
./pkg/icefront/icefront_thermodynamics.F 156 ICEFRONT_THERMODYNAMICS 
            icefront_TendS(i,j,K,bi,bj) = FreshWaterFlux(I,J) *
./pkg/icefront/icefront_thermodynamics.F 161 ICEFRONT_THERMODYNAMICS 
            IF (k .LT. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_thermodynamics.F 162 ICEFRONT_THERMODYNAMICS 
             icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 163 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 164 ICEFRONT_THERMODYNAMICS 
             icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 165 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 166 ICEFRONT_THERMODYNAMICS 
            ELSEIF (k .EQ. k_icefront(i,j,bi,bj)) THEN
./pkg/icefront/icefront_thermodynamics.F 169 ICEFRONT_THERMODYNAMICS 
             icefront_TendT(i,j,K,bi,bj) = icefront_TendT(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 170 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 171 ICEFRONT_THERMODYNAMICS 
     &            * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K)))
./pkg/icefront/icefront_thermodynamics.F 173 ICEFRONT_THERMODYNAMICS 
             icefront_TendS(i,j,K,bi,bj) = icefront_TendS(i,j,K,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 174 ICEFRONT_THERMODYNAMICS 
     &            * ICEFRONTlength(i,j,bi,bj)
./pkg/icefront/icefront_thermodynamics.F 175 ICEFRONT_THERMODYNAMICS 
     &            * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K)))
./pkg/icefront/icefront_thermodynamics.F 192 ICEFRONT_THERMODYNAMICS 
     &         k,1,3,bi,bj,myThid)
./pkg/icefront/icefront_thermodynamics.F 194 ICEFRONT_THERMODYNAMICS 
     &         k,1,3,bi,bj,myThid)
./pkg/icefront/icefront_thermodynamics.F 61 ICEFRONT_THERMODYNAMICS 
      INTEGER bi,bj
./pkg/icefront/icefront_thermodynamics.F 85 ICEFRONT_THERMODYNAMICS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/icefront/icefront_thermodynamics.F 92 ICEFRONT_THERMODYNAMICS 
           IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0
./pkg/icefront/icefront_thermodynamics.F 93 ICEFRONT_THERMODYNAMICS 
     &          .AND. K .LE. K_icefront(I,J,bi,bj) ) THEN
./pkg/icefront/icefront_thermodynamics.F 95 ICEFRONT_THERMODYNAMICS 
     &                                  *abs(wVEL(I,J,K,bi,bj))
./pkg/kl10/kl10_calc.F 106 KL10_CALC 
     &              ,bj).GT.0)) THEN
./pkg/kl10/kl10_calc.F 11 KL10_CALC 
     I                bi, bj, sigmaR, myTime, myIter, myThid )
./pkg/kl10/kl10_calc.F 122 KL10_CALC 
            KLdiffKr(I,J,1,bi,bj) = MAX(KLviscAr(I,J,1,bi,bj),
./pkg/kl10/kl10_calc.F 161 KL10_CALC 
                  KLviscAr(I,J,K,bi,bj) = MAX(KTemp,viscArNr(K))
./pkg/kl10/kl10_calc.F 162 KL10_CALC 
                  KLdiffKr(I,J,K,bi,bj) = MAX(KTemp,diffKrNrT(K))
./pkg/kl10/kl10_calc.F 178 KL10_CALC 
                     IF (hfacW(I+di,J-1,K,bi,bj).GT.0.000001) THEN
./pkg/kl10/kl10_calc.F 179 KL10_CALC 
                        dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj)
./pkg/kl10/kl10_calc.F 180 KL10_CALC 
     &                       +drF(Km1)*hfacW(I+di,J-1,Km1,bi,bj))
./pkg/kl10/kl10_calc.F 182 KL10_CALC 
                           tempu = (uVel(I+di,J-1,Km1,bi,bj)-uVel(I+di,J
./pkg/kl10/kl10_calc.F 183 KL10_CALC 
     &                          -1,K,bi,bj))/dz
./pkg/kl10/kl10_calc.F 185 KL10_CALC 
     &                          ,bj)
./pkg/kl10/kl10_calc.F 192 KL10_CALC 
                        dz=0.5*(drF(Km1)*hfacW(I+di,J-1,Km1,bi ,bj))
./pkg/kl10/kl10_calc.F 197 KL10_CALC 
                     IF (hfacS(I-1,J+di,K,bi,bj).GT.0.000001) THEN
./pkg/kl10/kl10_calc.F 198 KL10_CALC 
                        dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj)
./pkg/kl10/kl10_calc.F 199 KL10_CALC 
     &                       +drF(Km1)*hfacS(I-1,J+di,Km1,bi,bj))
./pkg/kl10/kl10_calc.F 201 KL10_CALC 
                           tempu = (vVel(I-1,J+di,Km1,bi,bj)-vVel(I-1,J
./pkg/kl10/kl10_calc.F 202 KL10_CALC 
     &                          +di,K,bi,bj))/dz
./pkg/kl10/kl10_calc.F 204 KL10_CALC 
     &                          ,bj)
./pkg/kl10/kl10_calc.F 211 KL10_CALC 
                        dz=+0.5*(drF(Km1)*hfacS(I-1,J+di,Km1 ,bi,bj))
./pkg/kl10/kl10_calc.F 233 KL10_CALC 
                  KLeps(I-1,J-1,Km1,bi,bj) = 0.5*(ep+ec)
./pkg/kl10/kl10_calc.F 235 KL10_CALC 
                     KLeps(I-1,J-1,Km1,bi,bj) = ec
./pkg/kl10/kl10_calc.F 250 KL10_CALC 
            KLeps(I-1,J-1,Nr,bi,bj) =ep
./pkg/kl10/kl10_calc.F 51 KL10_CALC 
      INTEGER bi, bj
./pkg/kl10/kl10_calc.F 82 KL10_CALC 
            CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi,bj),
./pkg/kl10/kl10_calc.F 83 KL10_CALC 
     &           totPhiHyd(I,J,K,bi,bj),rhot,myThid )
./pkg/kl10/kl10_calc.F 87 KL10_CALC 
            KLeps(I-1,J-1,1,bi,bj)=0.0
./pkg/kl10/kl10_calc.F 92 KL10_CALC 
            KLviscAr(I,J,1,bi,bj) = viscArNr(1)
./pkg/kl10/kl10_calc.F 93 KL10_CALC 
            KLviscold = KLviscAr(I,J,1,bi,bj) ! at previous cell center
./pkg/kl10/kl10_calc.F 97 KL10_CALC 
               CALL FIND_RHO_SCALAR(theta(I,J,K,bi,bj), salt(I,J,K,bi
./pkg/kl10/kl10_calc.F 98 KL10_CALC 
     &              ,bj),totPhiHyd(I,J,K,bi,bj),rhot,myThid )
./pkg/kl10/kl10_calc_diff.F 37 KL10_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/kl10/kl10_calc_diff.F 54 KL10_CALC_DIFF 
     &                  +( KLdiffKr(i,j,k,bi,bj)
./pkg/kl10/kl10_calc_diff.F 56 KL10_CALC_DIFF 
     &                     - diffKr(i,j,k,bi,bj) )
./pkg/kl10/kl10_calc_diff.F 69 KL10_CALC_DIFF 
     &                  +( KLdiffKr(i,j,kArg,bi,bj)
./pkg/kl10/kl10_calc_diff.F 71 KL10_CALC_DIFF 
     &                     - diffKr(i,j,kArg,bi,bj) )
./pkg/kl10/kl10_calc_diff.F 7 KL10_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kl10/kl10_calc_visc.F 31 KL10_CALC_VISC 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,k
./pkg/kl10/kl10_calc_visc.F 45 KL10_CALC_VISC 
     &         KappaRU(i,j,k) - viscArNr(k) + _maskW(i,j,k,bi,bj) *
./pkg/kl10/kl10_calc_visc.F 46 KL10_CALC_VISC 
     &         0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i-1,j,k,bi,bj)) )
./pkg/kl10/kl10_calc_visc.F 53 KL10_CALC_VISC 
     &         KappaRV(i,j,k) - viscArNr(k) + _maskS(i,j,k,bi,bj) *
./pkg/kl10/kl10_calc_visc.F 54 KL10_CALC_VISC 
     &         0.5*(KLviscAr(i,j,k,bi,bj)+KLviscAr(i,j-1,k,bi,bj)) )
./pkg/kl10/kl10_calc_visc.F 6 KL10_CALC_VISC 
     I        bi,bj,iMin,iMax,jMin,jMax,k,
./pkg/kl10/kl10_init_varia.F 31 KL10_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/kl10/kl10_init_varia.F 37 KL10_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kl10/kl10_init_varia.F 42 KL10_INIT_VARIA 
           KLviscAr (i,j,k,bi,bj) = viscArNr(k)
./pkg/kl10/kl10_init_varia.F 43 KL10_INIT_VARIA 
           KLdiffKr (i,j,k,bi,bj) = diffKrNrT(k)
./pkg/kl10/kl10_output.F 105 KL10_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kl10/kl10_output.F 107 KL10_OUTPUT 
          CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid )
./pkg/kl10/kl10_output.F 108 KL10_OUTPUT 
          CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid )
./pkg/kl10/kl10_output.F 109 KL10_OUTPUT 
          KL_timeAve(bi,bj) = 0.
./pkg/kl10/kl10_output.F 116 KL10_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kl10/kl10_output.F 119 KL10_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/kl10/kl10_output.F 121 KL10_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/kl10/kl10_output.F 123 KL10_OUTPUT 
          KL_timeAve(bi,bj) = KL_timeAve(bi,bj)+DDTT
./pkg/kl10/kl10_output.F 134 KL10_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kl10/kl10_output.F 137 KL10_OUTPUT 
     &                            KL_timeAve, Nr, bi, bj, myThid )
./pkg/kl10/kl10_output.F 139 KL10_OUTPUT 
     &                            KL_timeAve, Nr, bi, bj, myThid )
./pkg/kl10/kl10_output.F 151 KL10_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kl10/kl10_output.F 153 KL10_OUTPUT 
          CALL TIMEAVE_RESET( KLviscArtave, Nr, bi, bj, myThid )
./pkg/kl10/kl10_output.F 154 KL10_OUTPUT 
          CALL TIMEAVE_RESET( KLdiffKrtave, Nr, bi, bj, myThid )
./pkg/kl10/kl10_output.F 155 KL10_OUTPUT 
          KL_timeAve(bi,bj) = 0.
./pkg/kl10/kl10_output.F 69 KL10_OUTPUT 
      INTEGER bi, bj
./model/src/adams_bashforth2.F 10 ADAMS_BASHFORTH2 
     I                     bi, bj, kArg, kSize,
./model/src/adams_bashforth2.F 47 ADAMS_BASHFORTH2 
      INTEGER bi, bj, kArg, kSize
./pkg/kpp/kpp_calc.F 134 KPP_CALC 
      INTEGER bi, bj
./pkg/kpp/kpp_calc.F 14 KPP_CALC 
     I     bi, bj, myTime, myIter, myThid )
./pkg/kpp/kpp_calc.F 222 KPP_CALC 
          act2 = bj - myByLo(myThid)
./pkg/kpp/kpp_calc.F 274 KPP_CALC 
     I     ikppkey, bi, bj, myThid )
./pkg/kpp/kpp_calc.F 292 KPP_CALC 
     I        k+1, bi, bj,
./pkg/kpp/kpp_calc.F 302 KPP_CALC 
     I     1, bi, bj,
./pkg/kpp/kpp_calc.F 307 KPP_CALC 
     I        k+1, bi, bj,
./pkg/kpp/kpp_calc.F 311 KPP_CALC 
     I        k, bi, bj,
./pkg/kpp/kpp_calc.F 315 KPP_CALC 
     I        k, bi, bj,
./pkg/kpp/kpp_calc.F 319 KPP_CALC 
     I        k, bi, bj,
./pkg/kpp/kpp_calc.F 332 KPP_CALC 
               dbloc(i,j,k) = dbloc(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 333 KPP_CALC 
     &              * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 334 KPP_CALC 
               ghat(i,j,k)  = ghat(i,j,k)  * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 335 KPP_CALC 
     &              * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 336 KPP_CALC 
               Ritop(i,j,k) = Ritop(i,j,k) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 337 KPP_CALC 
     &              * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 338 KPP_CALC 
               if(k.eq.nzmax(i,j,bi,bj)) then
./pkg/kpp/kpp_calc.F 410 KPP_CALC 
        temp1(i,j,1) = saltPlumeFlux(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 418 KPP_CALC 
         temp1(i,j,k) = SPforcingS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 419 KPP_CALC 
         temp2(i,j,k) = SPforcingT(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 439 KPP_CALC 
     I     ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid )
./pkg/kpp/kpp_calc.F 464 KPP_CALC 
     &        (uVel(i,  j,  k,bi,bj)-uVel(i,  j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 465 KPP_CALC 
     &        (uVel(i,  j,  k,bi,bj)-uVel(i,  j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 466 KPP_CALC 
     &        (uVel(ip1,j,  k,bi,bj)-uVel(ip1,j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 467 KPP_CALC 
     &        (uVel(ip1,j,  k,bi,bj)-uVel(ip1,j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 468 KPP_CALC 
     &        (vVel(i,  j,  k,bi,bj)-vVel(i,  j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 469 KPP_CALC 
     &        (vVel(i,  j,  k,bi,bj)-vVel(i,  j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 470 KPP_CALC 
     &        (vVel(i,  jp1,k,bi,bj)-vVel(i,  jp1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 471 KPP_CALC 
     &        (vVel(i,  jp1,k,bi,bj)-vVel(i,  jp1,kp1,bi,bj)) )
./pkg/kpp/kpp_calc.F 474 KPP_CALC 
     &        (uVel(i,  jm1,k,bi,bj)-uVel(i,  jm1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 475 KPP_CALC 
     &        (uVel(i,  jm1,k,bi,bj)-uVel(i,  jm1,kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 476 KPP_CALC 
     &        (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 477 KPP_CALC 
     &        (uVel(ip1,jm1,k,bi,bj)-uVel(ip1,jm1,kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 478 KPP_CALC 
     &        (uVel(i,  jp1,k,bi,bj)-uVel(i,  jp1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 479 KPP_CALC 
     &        (uVel(i,  jp1,k,bi,bj)-uVel(i,  jp1,kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 480 KPP_CALC 
     &        (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 481 KPP_CALC 
     &        (uVel(ip1,jp1,k,bi,bj)-uVel(ip1,jp1,kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 482 KPP_CALC 
     &        (vVel(im1,j,  k,bi,bj)-vVel(im1,j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 483 KPP_CALC 
     &        (vVel(im1,j,  k,bi,bj)-vVel(im1,j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 484 KPP_CALC 
     &        (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 485 KPP_CALC 
     &        (vVel(im1,jp1,k,bi,bj)-vVel(im1,jp1,kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 486 KPP_CALC 
     &        (vVel(ip1,j,  k,bi,bj)-vVel(ip1,j,  kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 487 KPP_CALC 
     &        (vVel(ip1,j,  k,bi,bj)-vVel(ip1,j,  kp1,bi,bj)) +
./pkg/kpp/kpp_calc.F 488 KPP_CALC 
     &        (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) *
./pkg/kpp/kpp_calc.F 489 KPP_CALC 
     &        (vVel(ip1,jp1,k,bi,bj)-vVel(ip1,jp1,kp1,bi,bj)) )
./pkg/kpp/kpp_calc.F 508 KPP_CALC 
     I        bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy,
./pkg/kpp/kpp_calc.F 510 KPP_CALC 
     O        KPPdiffKzS(1-Olx,1-Oly,1,bi,bj),
./pkg/kpp/kpp_calc.F 513 KPP_CALC 
     I        bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy,
./pkg/kpp/kpp_calc.F 515 KPP_CALC 
     O        KPPdiffKzT(1-Olx,1-Oly,1,bi,bj),
./pkg/kpp/kpp_calc.F 525 KPP_CALC 
     U      KPPdiffKzT(1-Olx,1-Oly,1,bi,bj),
./pkg/kpp/kpp_calc.F 526 KPP_CALC 
     U      KPPdiffKzS(1-Olx,1-Oly,1,bi,bj),
./pkg/kpp/kpp_calc.F 527 KPP_CALC 
     I      ikppkey,1-Olx,sNx+OLx,1-Oly,sNy+OLy,bi,bj,myThid)
./pkg/kpp/kpp_calc.F 533 KPP_CALC 
            work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 534 KPP_CALC 
            work2(i,j) = Fcori(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 539 KPP_CALC 
     I     , maskC(1-Olx,1-Oly,1,bi,bj)
./pkg/kpp/kpp_calc.F 542 KPP_CALC 
     I     , boplume, SaltPlumeDepth(1-Olx,1-Oly,bi,bj)
./pkg/kpp/kpp_calc.F 544 KPP_CALC 
     I     , XC(1-Olx,1-Oly,bi,bj), YC(1-Olx,1-Oly,bi,bj)
./pkg/kpp/kpp_calc.F 548 KPP_CALC 
     I     , KPPdiffKzS(1-Olx,1-Oly,1,bi,bj)
./pkg/kpp/kpp_calc.F 549 KPP_CALC 
     I     , KPPdiffKzT(1-Olx,1-Oly,1,bi,bj)
./pkg/kpp/kpp_calc.F 554 KPP_CALC 
     I     , bi, bj, mytime, myIter, mythid )
./pkg/kpp/kpp_calc.F 564 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 565 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 566 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 567 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 568 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 569 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 570 KPP_CALC 
         KPPghat(i,j,k,bi,bj)   = ghat(i,j,k)       * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 571 KPP_CALC 
     &        * maskC(i,j,km1,bi,bj)
./pkg/kpp/kpp_calc.F 575 KPP_CALC 
        if ( useShelfIce ) k = kTopC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 577 KPP_CALC 
        KPPhbl(i,j,bi,bj) = hbl(i,j) * maskC(i,j,k,bi,bj)
./pkg/kpp/kpp_calc.F 586 KPP_CALC 
     I        k, bi, bj,
./pkg/kpp/kpp_calc.F 587 KPP_CALC 
     U        KPPviscAz(1-OLx,1-OLy,k,bi,bj),
./pkg/kpp/kpp_calc.F 598 KPP_CALC 
     I        k, bi, bj,
./pkg/kpp/kpp_calc.F 599 KPP_CALC 
     U        KPPdiffKzS(1-OLx,1-OLy,k,bi,bj),
./pkg/kpp/kpp_calc.F 602 KPP_CALC 
     I        k, bi, bj,
./pkg/kpp/kpp_calc.F 603 KPP_CALC 
     U        KPPdiffKzT(1-OLx,1-OLy,k,bi,bj),
./pkg/kpp/kpp_calc.F 617 KPP_CALC 
            worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 626 KPP_CALC 
            KPPfrac(i,j,bi,bj) = worka(i,j)
./pkg/kpp/kpp_calc.F 637 KPP_CALC 
              work2(i,j) = SaltPlumeDepth(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 638 KPP_CALC 
              worka(i,j) = KPPhbl(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 640 KPP_CALC 
              lon(i,j) = XC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 641 KPP_CALC 
              lat(i,j) = YC(i,j,bi,bj)
./pkg/kpp/kpp_calc.F 654 KPP_CALC 
              KPPplumefrac(i,j,bi,bj) = 1. _d 0 - worka(i,j)
./pkg/kpp/kpp_calc.F 660 KPP_CALC 
              KPPplumefrac(i,j,bi,bj) = 0. _d 0
./pkg/kpp/kpp_calc.F 677 KPP_CALC_DUMMY 
     I     bi, bj, myTime, myIter, myThid )
./pkg/kpp/kpp_calc.F 702 KPP_CALC_DUMMY 
      INTEGER bi, bj
./pkg/kpp/kpp_calc.F 714 KPP_CALC_DUMMY 
            KPPhbl (i,j,bi,bj) = 1.0
./pkg/kpp/kpp_calc.F 715 KPP_CALC_DUMMY 
            KPPfrac(i,j,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F 717 KPP_CALC_DUMMY 
            KPPplumefrac(i,j,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F 720 KPP_CALC_DUMMY 
               KPPghat   (i,j,k,bi,bj) = 0.0
./pkg/kpp/kpp_calc.F 721 KPP_CALC_DUMMY 
               KPPviscAz (i,j,k,bi,bj) = viscArNr(1)
./pkg/kpp/kpp_calc.F 727 KPP_CALC_DUMMY 
     I     bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy,
./pkg/kpp/kpp_calc.F 729 KPP_CALC_DUMMY 
     O     KPPdiffKzS(1-Olx,1-Oly,1,bi,bj),
./pkg/kpp/kpp_calc.F 732 KPP_CALC_DUMMY 
     I     bi,bj,1-Olx,sNx+OLx,1-Oly,sNy+OLy,
./pkg/kpp/kpp_calc.F 734 KPP_CALC_DUMMY 
     O     KPPdiffKzT(1-Olx,1-Oly,1,bi,bj),
./pkg/kpp/kpp_calc_diff_ptr.F 43 KPP_CALC_DIFF_PTR 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./pkg/kpp/kpp_calc_diff_ptr.F 61 KPP_CALC_DIFF_PTR 
          KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 63 KPP_CALC_DIFF_PTR 
          KappaRx(i,j,k) = KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 78 KPP_CALC_DIFF_PTR 
         KappaRx(i,j,k) = LS_KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_ptr.F 7 KPP_CALC_DIFF_PTR 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kpp/kpp_calc_diff_ptr.F 80 KPP_CALC_DIFF_PTR 
         KappaRx(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_s.F 37 KPP_CALC_DIFF_S 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./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 62 KPP_CALC_DIFF_S 
         KappaRS(i,j,k) = KPPdiffKzS(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_s.F 7 KPP_CALC_DIFF_S 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kpp/kpp_calc_diff_t.F 37 KPP_CALC_DIFF_T 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./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 62 KPP_CALC_DIFF_T 
         KappaRT(i,j,k) = KPPdiffKzT(i,j,kArg,bi,bj)
./pkg/kpp/kpp_calc_diff_t.F 7 KPP_CALC_DIFF_T 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/kpp/kpp_calc_visc.F 28 KPP_CALC_VISC 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,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 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_calc_visc.F 7 KPP_CALC_VISC 
     I        bi,bj,iMin,iMax,jMin,jMax,K,
./pkg/kpp/kpp_forcing_surf.F 181 KPP_FORCING_SURF 
     &   (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 182 KPP_FORCING_SURF 
     &   (surfForcU(i,j,bi,bj) + surfForcU(ip1,j,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 183 KPP_FORCING_SURF 
     &   (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 184 KPP_FORCING_SURF 
     &   (surfForcV(i,j,bi,bj) + surfForcV(i,jp1,bi,bj))
./pkg/kpp/kpp_forcing_surf.F 210 KPP_FORCING_SURF 
     &       ( TTALPHA(I,J,1) * (surfForcT(i,j,bi,bj)+
./pkg/kpp/kpp_forcing_surf.F 211 KPP_FORCING_SURF 
     &       surfForcTice(i,j,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 212 KPP_FORCING_SURF 
     &       SSBETA(I,J,1) * surfForcS(i,j,bi,bj) )
./pkg/kpp/kpp_forcing_surf.F 214 KPP_FORCING_SURF 
        bosol(I,J) = gravity * TTALPHA(I,J,1) * Qsw(i,j,bi,bj) *
./pkg/kpp/kpp_forcing_surf.F 259 KPP_FORCING_SURF 
         CALL DIAGNOSTICS_FILL(bo     ,'KPPbo   ',0,1,2,bi,bj,myThid)
./pkg/kpp/kpp_forcing_surf.F 260 KPP_FORCING_SURF 
         CALL DIAGNOSTICS_FILL(bosol  ,'KPPbosol',0,1,2,bi,bj,myThid)
./pkg/kpp/kpp_forcing_surf.F 262 KPP_FORCING_SURF 
         CALL DIAGNOSTICS_FILL(boplume,'KPPboplm',0,Nr,2,bi,bj,myThid)
./pkg/kpp/kpp_forcing_surf.F 26 KPP_FORCING_SURF 
     I     ikppkey, iMin, iMax, jMin, jMax, bi, bj, myTime, myThid )
./pkg/kpp/kpp_forcing_surf.F 301 KPP_FORCING_SURF 
        work1(i,j) = nzmax(i,j,bi,bj)
./pkg/kpp/kpp_forcing_surf.F 303 KPP_FORCING_SURF 
         IF ( k .LT. nzmax(i,j,bi,bj) .AND.
./pkg/kpp/kpp_forcing_surf.F 304 KPP_FORCING_SURF 
     &        maskC(I,J,k,bi,bj) .GT. 0. .AND.
./pkg/kpp/kpp_forcing_surf.F 311 KPP_FORCING_SURF 
        IF ( k .EQ. 0 .OR. nzmax(i,j,bi,bj) .EQ. 1 ) THEN
./pkg/kpp/kpp_forcing_surf.F 316 KPP_FORCING_SURF 
        ELSEIF ( k .LT. nzmax(i,j,bi,bj) ) THEN
./pkg/kpp/kpp_forcing_surf.F 327 KPP_FORCING_SURF 
     &       (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 328 KPP_FORCING_SURF 
     &       (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 329 KPP_FORCING_SURF 
     &       (uVel(ip1,j,  1,bi,bj)-uVel(ip1,j,  2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 330 KPP_FORCING_SURF 
     &       (uVel(ip1,j,  1,bi,bj)-uVel(ip1,j,  2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 331 KPP_FORCING_SURF 
     &       (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 332 KPP_FORCING_SURF 
     &       (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  2,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 333 KPP_FORCING_SURF 
     &       (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,2,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 334 KPP_FORCING_SURF 
     &       (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,2,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 352 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 353 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 355 KPP_FORCING_SURF 
         ustarX = ( surfForcU(i,  j,bi,bj) +
./pkg/kpp/kpp_forcing_surf.F 356 KPP_FORCING_SURF 
     &        surfForcU(ip1,j,bi,bj) ) * p5 *recip_drF(1)
./pkg/kpp/kpp_forcing_surf.F 357 KPP_FORCING_SURF 
         ustarY = ( surfForcV(i,j,  bi,bj) +
./pkg/kpp/kpp_forcing_surf.F 358 KPP_FORCING_SURF 
     &        surfForcV(i,jp1,bi,bj) ) * p5 *recip_drF(1)
./pkg/kpp/kpp_forcing_surf.F 384 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 385 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 386 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 387 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(ip1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 388 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 389 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 390 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 391 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(i,  jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 394 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(i,  jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 395 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(i,  jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 396 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 397 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(ip1,jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 398 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 399 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(i,  jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 400 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 401 KPP_FORCING_SURF 
     &        (uRef(i,j) - uVel(ip1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 402 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(im1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 403 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(im1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 404 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 405 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(im1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 406 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 407 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(ip1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 408 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 409 KPP_FORCING_SURF 
     &        (vRef(i,j) - vVel(ip1,jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 425 KPP_FORCING_SURF 
     &        (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 426 KPP_FORCING_SURF 
     &        (uVel(i,  j,  1,bi,bj)-uVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 427 KPP_FORCING_SURF 
     &        (uVel(ip1,j,  1,bi,bj)-uVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 428 KPP_FORCING_SURF 
     &        (uVel(ip1,j,  1,bi,bj)-uVel(ip1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 429 KPP_FORCING_SURF 
     &        (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 430 KPP_FORCING_SURF 
     &        (vVel(i,  j,  1,bi,bj)-vVel(i,  j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 431 KPP_FORCING_SURF 
     &        (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 432 KPP_FORCING_SURF 
     &        (vVel(i,  jp1,1,bi,bj)-vVel(i,  jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 435 KPP_FORCING_SURF 
     &        (uVel(i,  jm1,1,bi,bj)-uVel(i,  jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 436 KPP_FORCING_SURF 
     &        (uVel(i,  jm1,1,bi,bj)-uVel(i,  jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 437 KPP_FORCING_SURF 
     &        (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 438 KPP_FORCING_SURF 
     &        (uVel(ip1,jm1,1,bi,bj)-uVel(ip1,jm1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 439 KPP_FORCING_SURF 
     &        (uVel(i,  jp1,1,bi,bj)-uVel(i,  jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 440 KPP_FORCING_SURF 
     &        (uVel(i,  jp1,1,bi,bj)-uVel(i,  jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 441 KPP_FORCING_SURF 
     &        (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 442 KPP_FORCING_SURF 
     &        (uVel(ip1,jp1,1,bi,bj)-uVel(ip1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 443 KPP_FORCING_SURF 
     &        (vVel(im1,j,  1,bi,bj)-vVel(im1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 444 KPP_FORCING_SURF 
     &        (vVel(im1,j,  1,bi,bj)-vVel(im1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 445 KPP_FORCING_SURF 
     &        (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 446 KPP_FORCING_SURF 
     &        (vVel(im1,jp1,1,bi,bj)-vVel(im1,jp1,k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 447 KPP_FORCING_SURF 
     &        (vVel(ip1,j,  1,bi,bj)-vVel(ip1,j,  k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 448 KPP_FORCING_SURF 
     &        (vVel(ip1,j,  1,bi,bj)-vVel(ip1,j,  k,bi,bj)) +
./pkg/kpp/kpp_forcing_surf.F 449 KPP_FORCING_SURF 
     &        (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) *
./pkg/kpp/kpp_forcing_surf.F 450 KPP_FORCING_SURF 
     &        (vVel(ip1,jp1,1,bi,bj)-vVel(ip1,jp1,k,bi,bj)) )
./pkg/kpp/kpp_forcing_surf.F 97 KPP_FORCING_SURF 
      INTEGER bi, bj
./model/src/adams_bashforth3.F 10 ADAMS_BASHFORTH3 
     I                     bi, bj, kArg, kSize,
./model/src/adams_bashforth3.F 110 ADAMS_BASHFORTH3 
     &                 + ab1*gTrNm(i,j,k,bi,bj,m1)
./model/src/adams_bashforth3.F 111 ADAMS_BASHFORTH3 
     &                 + ab2*gTrNm(i,j,k,bi,bj,m2)
./model/src/adams_bashforth3.F 112 ADAMS_BASHFORTH3 
           gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k) + AB_gTr(i,j)
./model/src/adams_bashforth3.F 122 ADAMS_BASHFORTH3 
     &                 + ab1*gTrNm(i,j,k,bi,bj,m1)
./model/src/adams_bashforth3.F 123 ADAMS_BASHFORTH3 
     &                 + ab2*gTrNm(i,j,k,bi,bj,m2)
./model/src/adams_bashforth3.F 124 ADAMS_BASHFORTH3 
           gTrNm(i,j,k,bi,bj,m2) = gTracer(i,j,k)
./model/src/adams_bashforth3.F 65 ADAMS_BASHFORTH3 
      INTEGER bi, bj, kArg, kSize
./pkg/kpp/kpp_init_varia.F 32 KPP_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/kpp/kpp_init_varia.F 40 KPP_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 66 KPP_INIT_VARIA 
                  KPPhbl(i,j,bi,bj) = 0.
./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 195 KPP_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kpp/kpp_output.F 197 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 198 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 199 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 200 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 201 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPhbltave,    1, bi,bj,myThid)
./pkg/kpp/kpp_output.F 202 KPP_OUTPUT 
            KPP_timeAve(bi,bj) = 0.
./pkg/kpp/kpp_output.F 215 KPP_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kpp/kpp_output.F 218 KPP_OUTPUT 
     &         KPPviscAztave, KPPviscAz, Nr,DDTT,bi,bj,myThid)
./pkg/kpp/kpp_output.F 220 KPP_OUTPUT 
     &         KPPdiffKzTtave,KPPdiffKzT,Nr,DDTT,bi,bj,myThid)
./pkg/kpp/kpp_output.F 222 KPP_OUTPUT 
     &         KPPdiffKzStave,KPPdiffKzS,Nr,DDTT,bi,bj,myThid)
./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 236 KPP_OUTPUT 
     &         KPPhbltave,    KPPhbl,    1, DDTT,bi,bj,myThid)
./pkg/kpp/kpp_output.F 238 KPP_OUTPUT 
          KPP_timeAve(bi,bj) = KPP_timeAve(bi,bj)+DDTT
./pkg/kpp/kpp_output.F 260 KPP_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kpp/kpp_output.F 263 KPP_OUTPUT 
     &                              KPP_timeAve, Nr, bi, bj, myThid )
./pkg/kpp/kpp_output.F 265 KPP_OUTPUT 
     &                              KPP_timeAve, Nr, bi, bj, myThid )
./pkg/kpp/kpp_output.F 267 KPP_OUTPUT 
     &                              KPP_timeAve, Nr, bi, bj, myThid )
./pkg/kpp/kpp_output.F 269 KPP_OUTPUT 
     &                              KPP_timeAve, Nr, bi, bj, myThid )
./pkg/kpp/kpp_output.F 271 KPP_OUTPUT 
     &                              KPP_timeAve, 1 , bi, bj, myThid )
./pkg/kpp/kpp_output.F 339 KPP_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/kpp/kpp_output.F 341 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPviscAztave, Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 342 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPdiffKzTtave,Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 343 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPghatKStave, Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 344 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPdiffKzStave,Nr,bi,bj,myThid)
./pkg/kpp/kpp_output.F 345 KPP_OUTPUT 
            CALL TIMEAVE_RESET(KPPhbltave,    1, bi,bj,myThid)
./pkg/kpp/kpp_output.F 346 KPP_OUTPUT 
            KPP_timeAve(bi,bj) = 0.
./pkg/kpp/kpp_output.F 369 KPP_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 388 KPP_OUTPUT 
          CALL DIAGNOSTICS_FILL(tmpLoc,'KPPghatK',0,Nr,3,bi,bj,myThid)
./pkg/kpp/kpp_output.F 85 KPP_OUTPUT 
      INTEGER bi, bj
./pkg/kpp/kpp_routines.F 1145 SMOOTH_HORIZ 
     I     k, bi, bj,
./pkg/kpp/kpp_routines.F 1161 SMOOTH_HORIZ 
      integer k, bi, bj
./pkg/kpp/kpp_routines.F 1187 SMOOTH_HORIZ 
     &           p25   *   maskC(i  ,j  ,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1188 SMOOTH_HORIZ 
     &           p125  * ( maskC(im1,j  ,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1189 SMOOTH_HORIZ 
     &                     maskC(ip1,j  ,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1190 SMOOTH_HORIZ 
     &                     maskC(i  ,jm1,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1191 SMOOTH_HORIZ 
     &                     maskC(i  ,jp1,k,bi,bj) ) +
./pkg/kpp/kpp_routines.F 1192 SMOOTH_HORIZ 
     &           p0625 * ( maskC(im1,jm1,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1193 SMOOTH_HORIZ 
     &                     maskC(im1,jp1,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1194 SMOOTH_HORIZ 
     &                     maskC(ip1,jm1,k,bi,bj)   +
./pkg/kpp/kpp_routines.F 1195 SMOOTH_HORIZ 
     &                     maskC(ip1,jp1,k,bi,bj) )
./pkg/kpp/kpp_routines.F 1198 SMOOTH_HORIZ 
     &              p25  * fld(i  ,j  )*maskC(i  ,j  ,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1199 SMOOTH_HORIZ 
     &              p125 *(fld(im1,j  )*maskC(im1,j  ,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1200 SMOOTH_HORIZ 
     &                     fld(ip1,j  )*maskC(ip1,j  ,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1201 SMOOTH_HORIZ 
     &                     fld(i  ,jm1)*maskC(i  ,jm1,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1202 SMOOTH_HORIZ 
     &                     fld(i  ,jp1)*maskC(i  ,jp1,k,bi,bj))+
./pkg/kpp/kpp_routines.F 1203 SMOOTH_HORIZ 
     &              p0625*(fld(im1,jm1)*maskC(im1,jm1,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1204 SMOOTH_HORIZ 
     &                     fld(im1,jp1)*maskC(im1,jp1,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1205 SMOOTH_HORIZ 
     &                     fld(ip1,jm1)*maskC(ip1,jm1,k,bi,bj) +
./pkg/kpp/kpp_routines.F 1206 SMOOTH_HORIZ 
     &                     fld(ip1,jp1)*maskC(ip1,jp1,k,bi,bj)))
./pkg/kpp/kpp_routines.F 1549 STATEKPP 
     I     ikppkey, bi, bj, myThid )
./pkg/kpp/kpp_routines.F 1590 STATEKPP 
      INTEGER bi, bj, myThid
./pkg/kpp/kpp_routines.F 1630 STATEKPP 
     I     theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj),
./pkg/kpp/kpp_routines.F 1632 STATEKPP 
     I     1, bi, bj, myThid )
./pkg/kpp/kpp_routines.F 1641 STATEKPP 
     I     bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1,
./pkg/kpp/kpp_routines.F 1645 STATEKPP 
     I     bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1,
./pkg/kpp/kpp_routines.F 1672 STATEKPP 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./pkg/kpp/kpp_routines.F 1674 STATEKPP 
     I        k, bi, bj, myThid )
./pkg/kpp/kpp_routines.F 1684 STATEKPP 
     I        theta(1-OLx,1-OLy,k-1,bi,bj),salt(1-OLx,1-OLy,k-1,bi,bj),
./pkg/kpp/kpp_routines.F 1686 STATEKPP 
     I        k-1, bi, bj, myThid )
./pkg/kpp/kpp_routines.F 1696 STATEKPP 
     I        theta(1-OLx,1-OLy,1,bi,bj), salt(1-OLx,1-OLy,1,bi,bj),
./pkg/kpp/kpp_routines.F 1698 STATEKPP 
     I        1, bi, bj, myThid )
./pkg/kpp/kpp_routines.F 1710 STATEKPP 
     I        bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K,
./pkg/kpp/kpp_routines.F 1714 STATEKPP 
     I        bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, K, K,
./pkg/kpp/kpp_routines.F 1741 STATEKPP 
         CALL DIAGNOSTICS_FILL(DBSFC ,'KPPdbsfc',0,Nr,2,bi,bj,myThid)
./pkg/kpp/kpp_routines.F 1742 STATEKPP 
         CALL DIAGNOSTICS_FILL(DBLOC ,'KPPdbloc',0,Nr,2,bi,bj,myThid)
./pkg/kpp/kpp_routines.F 1757 KPP_DOUBLEDIFF 
     I     ikppkey, imin, imax, jmin, jmax, bi, bj, myThid )
./pkg/kpp/kpp_routines.F 1794 KPP_DOUBLEDIFF 
      INTEGER ikppkey, imin, imax, jmin, jmax, bi, bj, myThid
./pkg/kpp/kpp_routines.F 1843 KPP_DOUBLEDIFF 
         alphaDT(I,J) = ( theta(I,J,Km1,bi,bj)-theta(I,J,K,bi,bj) )
./pkg/kpp/kpp_routines.F 1845 KPP_DOUBLEDIFF 
         betaDS(I,J)  = ( salt(I,J,Km1,bi,bj)-salt(I,J,K,bi,bj) )
./pkg/kpp/kpp_routines.F 1903 KPP_DOUBLEDIFF 
        CALL DIAGNOSTICS_FILL(nuddt,'KPPnuddt',k,1,2,bi,bj,myThid)
./pkg/kpp/kpp_routines.F 1904 KPP_DOUBLEDIFF 
        CALL DIAGNOSTICS_FILL(nudds,'KPPnudds',k,1,2,bi,bj,myThid)
./pkg/kpp/kpp_routines.F 209 KPPMIX 
     I     , bi, bj, myTime, myIter, myThid )
./pkg/kpp/kpp_routines.F 291 BLDEPTH 
     I     , bi, bj, myTime, myIter, myThid )
./pkg/kpp/kpp_routines.F 341 BLDEPTH 
      INTEGER bi, bj
./pkg/kpp/kpp_routines.F 40 KPPMIX 
     I     , bi, bj, myTime, myIter, myThid )
./pkg/kpp/kpp_routines.F 557 BLDEPTH 
         CALL DIAGNOSTICS_FILL(KPPBFSFC,'KPPbfsfc',0,Nr,2,bi,bj,myThid)
./pkg/kpp/kpp_routines.F 558 BLDEPTH 
         CALL DIAGNOSTICS_FILL(KPPRi   ,'KPPRi   ',0,Nr,2,bi,bj,myThid)
./pkg/kpp/kpp_routines.F 90 KPPMIX 
      INTEGER bi, bj
./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 10 KPP_TRANSPORT_PTR 
     I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
./pkg/kpp/kpp_transport_ptr.F 110 KPP_TRANSPORT_PTR 
     &        *surfaceForcingPTr(i,j,bi,bj,tracerIdentity)
./pkg/kpp/kpp_transport_ptr.F 60 KPP_TRANSPORT_PTR 
      INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1,tracerIdentity
./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 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 
     &          + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst
./pkg/kpp/kpp_transport_s.F 102 KPP_TRANSPORT_S 
     &          *(1.-KPPplumefrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_s.F 112 KPP_TRANSPORT_S 
        df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 113 KPP_TRANSPORT_S 
     &        *KPPdiffKzS(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_s.F 114 KPP_TRANSPORT_S 
     &        *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_s.F 115 KPP_TRANSPORT_S 
     &        *( surfaceForcingS(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 117 KPP_TRANSPORT_S 
     &          + tmpFac1*saltPlumeFlux(i,j,bi,bj)*recip_rhoConst
./pkg/kpp/kpp_transport_s.F 118 KPP_TRANSPORT_S 
     &          *(1.-KPPplumefrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_s.F 13 KPP_TRANSPORT_S 
     I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
./pkg/kpp/kpp_transport_s.F 53 KPP_TRANSPORT_S 
      INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1
./pkg/kpp/kpp_transport_s.F 96 KPP_TRANSPORT_S 
        df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_s.F 97 KPP_TRANSPORT_S 
     &        *( KPPdiffKzS(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) )
./pkg/kpp/kpp_transport_s.F 98 KPP_TRANSPORT_S 
     &        *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_s.F 99 KPP_TRANSPORT_S 
     &        *( surfaceForcingS(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 100 KPP_TRANSPORT_T 
     &            *(1.-KPPfrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_t.F 10 KPP_TRANSPORT_T 
     I     iMin,iMax,jMin,jMax,bi,bj,k,km1,
./pkg/kpp/kpp_transport_t.F 51 KPP_TRANSPORT_T 
      INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1
./pkg/kpp/kpp_transport_t.F 79 KPP_TRANSPORT_T 
            df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 80 KPP_TRANSPORT_T 
     &          *( KPPdiffKzT(i,j,k,bi,bj) + tmpFac*Kwz(i,j,k,bi,bj) )
./pkg/kpp/kpp_transport_t.F 81 KPP_TRANSPORT_T 
     &          *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_t.F 82 KPP_TRANSPORT_T 
     &          *( surfaceForcingT(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 83 KPP_TRANSPORT_T 
     &            +surfaceForcingTice(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 84 KPP_TRANSPORT_T 
     &            -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst
./pkg/kpp/kpp_transport_t.F 85 KPP_TRANSPORT_T 
     &            *(1.-KPPfrac(i,j,bi,bj))
./pkg/kpp/kpp_transport_t.F 94 KPP_TRANSPORT_T 
            df(i,j) = - _rA(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 95 KPP_TRANSPORT_T 
     &          *KPPdiffKzT(i,j,k,bi,bj)
./pkg/kpp/kpp_transport_t.F 96 KPP_TRANSPORT_T 
     &          *KPPghat(i,j,km1,bi,bj)
./pkg/kpp/kpp_transport_t.F 97 KPP_TRANSPORT_T 
     &          *( surfaceForcingT(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 98 KPP_TRANSPORT_T 
     &            +surfaceForcingTice(i,j,bi,bj)
./pkg/kpp/kpp_transport_t.F 99 KPP_TRANSPORT_T 
     &            -Qsw(i,j,bi,bj)*recip_Cp*recip_rhoConst
./model/src/add_walls2masks.F 108 ADD_WALLS2MASKS 
        DO bj=myByLo(myThid), myByHi(myThid)
./model/src/add_walls2masks.F 112 ADD_WALLS2MASKS 
              IF ( tmpFldW(i,j,bi,bj).EQ.oneRS ) THEN
./model/src/add_walls2masks.F 114 ADD_WALLS2MASKS 
                 hFacW(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F 116 ADD_WALLS2MASKS 
                rLowW (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F 117 ADD_WALLS2MASKS 
                rSurfW(i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F 119 ADD_WALLS2MASKS 
              IF ( tmpFldS(i,j,bi,bj).EQ.oneRS ) THEN
./model/src/add_walls2masks.F 121 ADD_WALLS2MASKS 
                 hFacS(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F 123 ADD_WALLS2MASKS 
                rLowS (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F 124 ADD_WALLS2MASKS 
                rSurfS(i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F 45 ADD_WALLS2MASKS 
      INTEGER bi, bj
./model/src/add_walls2masks.F 54 ADD_WALLS2MASKS 
        DO bj=myByLo(myThid), myByHi(myThid)
./model/src/add_walls2masks.F 58 ADD_WALLS2MASKS 
             tmpFldW(i,j,bi,bj) = zeroRS
./model/src/add_walls2masks.F 59 ADD_WALLS2MASKS 
             tmpFldS(i,j,bi,bj) = zeroRS
./model/src/add_walls2masks.F 81 ADD_WALLS2MASKS 
        DO bj=myByLo(myThid), myByHi(myThid)
./model/src/add_walls2masks.F 85 ADD_WALLS2MASKS 
              IF ( dyG(i,j,bi,bj).EQ.zeroRS ) THEN
./model/src/add_walls2masks.F 87 ADD_WALLS2MASKS 
                 hFacW(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F 89 ADD_WALLS2MASKS 
                rLowW (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F 90 ADD_WALLS2MASKS 
                rSurfW(i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F 92 ADD_WALLS2MASKS 
              IF ( dxG(i,j,bi,bj).EQ.zeroRS ) THEN
./model/src/add_walls2masks.F 94 ADD_WALLS2MASKS 
                 hFacS(i,j,k,bi,bj) = zeroRS
./model/src/add_walls2masks.F 96 ADD_WALLS2MASKS 
                rLowS (i,j,bi,bj) = rF(1)
./model/src/add_walls2masks.F 97 ADD_WALLS2MASKS 
                rSurfS(i,j,bi,bj) = rF(1)
./pkg/land/land_albedo.F 12 LAND_ALBEDO 
     I                bi,bj, myTime, myIter, myThid )
./pkg/land/land_albedo.F 45 LAND_ALBEDO 
      INTEGER bi, bj, myIter, myThid
./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_do_diags.F 10 LAND_DO_DIAGS 
     I                land_frc, bi,bj, myTime, myIter, myThid )
./pkg/land/land_do_diags.F 43 LAND_DO_DIAGS 
      INTEGER bi, bj, myIter, myThid
./pkg/land/land_do_diags.F 60 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 62 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 64 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 66 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 68 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 70 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 72 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 74 LAND_DO_DIAGS 
     &                        land_deltaT, bi, bj, myThid )
./pkg/land/land_do_diags.F 77 LAND_DO_DIAGS 
        land_timeAve(bi,bj) = land_timeAve(bi,bj)+land_deltaT
./pkg/land/land_do_diags.F 90 LAND_DO_DIAGS 
     &                                                1,bi,bj,myThid)
./pkg/land/land_do_diags.F 92 LAND_DO_DIAGS 
     &                                                1,bi,bj,myThid)
./pkg/land/land_do_diags.F 94 LAND_DO_DIAGS 
     &                                                1,bi,bj,myThid)
./pkg/land/land_do_diags.F 96 LAND_DO_DIAGS 
     &                                                1,bi,bj,myThid)
./pkg/land/land_do_diags.F 98 LAND_DO_DIAGS 
     &                                                1,bi,bj,myThid)
./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 139 LAND_IMPL_TEMP 
          alpha = land_hSnow(i,j,bi,bj)/diffKsnow
./pkg/land/land_impl_temp.F 13 LAND_IMPL_TEMP 
     I                bi, bj, myTime, myIter, myThid)
./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 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 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 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 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 51 LAND_IMPL_TEMP 
      INTEGER bi, bj, myIter, myThid
./pkg/land/land_ini_vars.F 126 LAND_INI_VARS 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 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 58 LAND_INI_VARS 
      DO bj = myByLo(myThid), myByHi(myThid)
./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
./model/src/apply_forcing.F 111 APPLY_FORCING_U 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 118 APPLY_FORCING_U 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 125 APPLY_FORCING_U 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 136 APPLY_FORCING_U 
     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/apply_forcing.F 137 APPLY_FORCING_U 
     &      *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./model/src/apply_forcing.F 143 APPLY_FORCING_U 
         IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F 145 APPLY_FORCING_U 
     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/apply_forcing.F 146 APPLY_FORCING_U 
     &      *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./model/src/apply_forcing.F 155 APPLY_FORCING_U 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 163 APPLY_FORCING_U 
     I                 k, bi, bj, -1,
./model/src/apply_forcing.F 173 APPLY_FORCING_U 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 182 APPLY_FORCING_U 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 198 APPLY_FORCING_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./model/src/apply_forcing.F 20 APPLY_FORCING_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./model/src/apply_forcing.F 231 APPLY_FORCING_V 
      INTEGER k, bi, bj
./model/src/apply_forcing.F 252 APPLY_FORCING_V 
          locVar(i,j) = gV(i,j,k,bi,bj)
./model/src/apply_forcing.F 256 APPLY_FORCING_V 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./model/src/apply_forcing.F 263 APPLY_FORCING_V 
          tmpVar(i,j) = gV(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F 264 APPLY_FORCING_V 
          gV(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F 289 APPLY_FORCING_V 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 296 APPLY_FORCING_V 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 303 APPLY_FORCING_V 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 314 APPLY_FORCING_V 
     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/apply_forcing.F 315 APPLY_FORCING_V 
     &      *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./model/src/apply_forcing.F 321 APPLY_FORCING_V 
         IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F 323 APPLY_FORCING_V 
     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/apply_forcing.F 324 APPLY_FORCING_V 
     &      *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./model/src/apply_forcing.F 333 APPLY_FORCING_V 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 341 APPLY_FORCING_V 
     I                 k, bi, bj, -2,
./model/src/apply_forcing.F 350 APPLY_FORCING_V 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 359 APPLY_FORCING_V 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 375 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./model/src/apply_forcing.F 409 APPLY_FORCING_T 
      INTEGER k, bi, bj
./model/src/apply_forcing.F 440 APPLY_FORCING_T 
          locVar(i,j) = gT(i,j,k,bi,bj)
./model/src/apply_forcing.F 444 APPLY_FORCING_T 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./model/src/apply_forcing.F 451 APPLY_FORCING_T 
          tmpVar(i,j) = gT(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F 452 APPLY_FORCING_T 
          gT(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F 480 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 487 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 494 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 505 APPLY_FORCING_T 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F 506 APPLY_FORCING_T 
     &          *( temp_addMass - theta(i,j,k,bi,bj) )
./model/src/apply_forcing.F 507 APPLY_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 508 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 516 APPLY_FORCING_T 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F 518 APPLY_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 519 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 53 APPLY_FORCING_U 
      INTEGER k, bi, bj
./model/src/apply_forcing.F 541 APPLY_FORCING_T 
     &         + frictionHeating(i,j,k,bi,bj)
./model/src/apply_forcing.F 542 APPLY_FORCING_T 
     &          *tmpFac*recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 543 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 575 APPLY_FORCING_T 
            tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq
./model/src/apply_forcing.F 576 APPLY_FORCING_T 
     &                  *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj)
./model/src/apply_forcing.F 577 APPLY_FORCING_T 
     &                   + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./model/src/apply_forcing.F 578 APPLY_FORCING_T 
     &                   )*maskC(i,j,km,bi,bj)*0.25 _d 0
./model/src/apply_forcing.F 588 APPLY_FORCING_T 
     &                  + wVel(i,j,kp,bi,bj)*delPI*atm_Rq
./model/src/apply_forcing.F 589 APPLY_FORCING_T 
     &                  *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./model/src/apply_forcing.F 590 APPLY_FORCING_T 
     &                   + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj)
./model/src/apply_forcing.F 591 APPLY_FORCING_T 
     &                   )*maskC(i,j,kp,bi,bj)*0.25 _d 0
./model/src/apply_forcing.F 599 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 607 APPLY_FORCING_T 
     &                     'MoistCor', kc, 1, 3, bi,bj,myThid )
./model/src/apply_forcing.F 617 APPLY_FORCING_T 
     &      +surfaceForcingT(i,j,bi,bj)
./model/src/apply_forcing.F 618 APPLY_FORCING_T 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 624 APPLY_FORCING_T 
         IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F 626 APPLY_FORCING_T 
     &      +surfaceForcingT(i,j,bi,bj)
./model/src/apply_forcing.F 627 APPLY_FORCING_T 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 636 APPLY_FORCING_T 
          IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/apply_forcing.F 638 APPLY_FORCING_T 
     &        +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 648 APPLY_FORCING_T 
         IF ( k.EQ.kLowC(i,j,bi,bj) ) THEN
./model/src/apply_forcing.F 650 APPLY_FORCING_T 
     &      + geothermalFlux(i,j,bi,bj)
./model/src/apply_forcing.F 652 APPLY_FORCING_T 
     &        *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 676 APPLY_FORCING_T 
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj)
./model/src/apply_forcing.F 677 APPLY_FORCING_T 
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./model/src/apply_forcing.F 679 APPLY_FORCING_T 
     &    *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 689 APPLY_FORCING_T 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 697 APPLY_FORCING_T 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 705 APPLY_FORCING_T 
     I                   k, bi, bj, myTime, 0, myThid )
./model/src/apply_forcing.F 712 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 720 APPLY_FORCING_T 
     I                 k, bi, bj, 1,
./model/src/apply_forcing.F 729 APPLY_FORCING_T 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 737 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 745 APPLY_FORCING_T 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 74 APPLY_FORCING_U 
          locVar(i,j) = gU(i,j,k,bi,bj)
./model/src/apply_forcing.F 761 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./model/src/apply_forcing.F 78 APPLY_FORCING_U 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./model/src/apply_forcing.F 795 APPLY_FORCING_S 
      INTEGER k, bi, bj
./model/src/apply_forcing.F 816 APPLY_FORCING_S 
          locVar(i,j) = gS(i,j,k,bi,bj)
./model/src/apply_forcing.F 820 APPLY_FORCING_S 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./model/src/apply_forcing.F 827 APPLY_FORCING_S 
          tmpVar(i,j) = gS(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F 828 APPLY_FORCING_S 
          gS(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F 855 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 85 APPLY_FORCING_U 
          tmpVar(i,j) = gU(i,j,k,bi,bj) - locVar(i,j)
./model/src/apply_forcing.F 862 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 869 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 86 APPLY_FORCING_U 
          gU(i,j,k,bi,bj) = locVar(i,j)
./model/src/apply_forcing.F 880 APPLY_FORCING_S 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F 881 APPLY_FORCING_S 
     &          *( salt_addMass - salt(i,j,k,bi,bj) )
./model/src/apply_forcing.F 882 APPLY_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 883 APPLY_FORCING_S 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 891 APPLY_FORCING_S 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./model/src/apply_forcing.F 893 APPLY_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./model/src/apply_forcing.F 894 APPLY_FORCING_S 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 907 APPLY_FORCING_S 
     &      +surfaceForcingS(i,j,bi,bj)
./model/src/apply_forcing.F 908 APPLY_FORCING_S 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 914 APPLY_FORCING_S 
         IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./model/src/apply_forcing.F 916 APPLY_FORCING_S 
     &      +surfaceForcingS(i,j,bi,bj)
./model/src/apply_forcing.F 917 APPLY_FORCING_S 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 926 APPLY_FORCING_S 
          IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/apply_forcing.F 928 APPLY_FORCING_S 
     &        +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/apply_forcing.F 938 APPLY_FORCING_S 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 946 APPLY_FORCING_S 
     I                   k, bi, bj, myTime, 0, myThid )
./model/src/apply_forcing.F 953 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 961 APPLY_FORCING_S 
     I                 k, bi, bj, 2,
./model/src/apply_forcing.F 970 APPLY_FORCING_S 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 978 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/apply_forcing.F 986 APPLY_FORCING_S 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./pkg/land/land_output.F 166 LAND_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/land/land_output.F 168 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid)
./pkg/land/land_output.F 169 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid)
./pkg/land/land_output.F 170 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid)
./pkg/land/land_output.F 171 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_sTtave,         1, bi, bj, myThid)
./pkg/land/land_output.F 172 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_hStave,         1, bi, bj, myThid)
./pkg/land/land_output.F 173 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_sAtave,         1, bi, bj, myThid)
./pkg/land/land_output.F 174 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_ROftave,        1, bi, bj, myThid)
./pkg/land/land_output.F 175 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_eROtave,        1, bi, bj, myThid)
./pkg/land/land_output.F 176 LAND_OUTPUT 
         land_timeAve(bi,bj) = 0.
./pkg/land/land_output.F 186 LAND_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/land/land_output.F 189 LAND_OUTPUT 
     &                           land_nLev, bi, bj, myThid )
./pkg/land/land_output.F 191 LAND_OUTPUT 
     &                           land_nLev, bi, bj, myThid )
./pkg/land/land_output.F 193 LAND_OUTPUT 
     &                           land_nLev, bi, bj, myThid )
./pkg/land/land_output.F 195 LAND_OUTPUT 
     &                                   1, bi, bj, myThid )
./pkg/land/land_output.F 197 LAND_OUTPUT 
     &                                   1, bi, bj, myThid )
./pkg/land/land_output.F 199 LAND_OUTPUT 
     &                                   1, bi, bj, myThid )
./pkg/land/land_output.F 201 LAND_OUTPUT 
     &                                   1, bi, bj, myThid )
./pkg/land/land_output.F 203 LAND_OUTPUT 
     &                                   1, bi, bj, myThid )
./pkg/land/land_output.F 270 LAND_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/land/land_output.F 272 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid)
./pkg/land/land_output.F 273 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid)
./pkg/land/land_output.F 274 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid)
./pkg/land/land_output.F 275 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_sTtave,         1, bi, bj, myThid)
./pkg/land/land_output.F 276 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_hStave,         1, bi, bj, myThid)
./pkg/land/land_output.F 277 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_sAtave,         1, bi, bj, myThid)
./pkg/land/land_output.F 278 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_ROftave,        1, bi, bj, myThid)
./pkg/land/land_output.F 279 LAND_OUTPUT 
         CALL TIMEAVE_RESET(land_eROtave,        1, bi, bj, myThid)
./pkg/land/land_output.F 280 LAND_OUTPUT 
         land_timeAve(bi,bj) = 0.
./pkg/land/land_output.F 52 LAND_OUTPUT 
      INTEGER bi, bj, k
./pkg/land/land_stepfwd.F 10 LAND_STEPFWD 
     I                land_frc, bi, bj, myTime, myIter, myThid)
./pkg/land/land_stepfwd.F 112 LAND_STEPFWD 
         IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./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 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 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 166 LAND_STEPFWD 
     &       k,land_groundT(i,j,k,bi,bj),temp_af,temp_bf
./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 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 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 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 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 260 LAND_STEPFWD 
           flxkup(i,j) = land_Pr_m_Ev(i,j,bi,bj)/land_rhoLiqW
./pkg/land/land_stepfwd.F 283 LAND_STEPFWD 
         IF ( land_frc(i,j,bi,bj).GT.0. ) THEN
./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 296 LAND_STEPFWD 
            land_groundW(i,j,k,bi,bj) = land_groundW(i,j,k,bi,bj)
./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 303 LAND_STEPFWD 
            land_runOff(i,j,bi,bj) = land_runOff(i,j,bi,bj)
./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 317 LAND_STEPFWD 
     &         land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN
./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 330 LAND_STEPFWD 
     &                 *land_groundT(i,j,k,bi,bj)
./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 343 LAND_STEPFWD 
     &      ,5,land_groundW(i,j,k,bi,bj)-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 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 367 LAND_STEPFWD 
            land_enRnOf(i,j,bi,bj) = land_enRnOf(i,j,bi,bj)
./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 38 LAND_STEPFWD 
      INTEGER bi, bj, myIter, myThid
./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 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 434 LAND_STEPFWD 
           land_skinT(i,j,bi,bj) = land_groundT(i,j,1,bi,bj)
./pkg/land/land_stepfwd.F 99 LAND_STEPFWD 
           flxkup(i,j) = land_HeatFlx(i,j,bi,bj)
./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 116 CALC_3D_DIFFUSIVITY 
     &          + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F 11 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,
./model/src/calc_3d_diffusivity.F 129 CALC_3D_DIFFUSIVITY 
     &          + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F 145 CALC_3D_DIFFUSIVITY 
     &          + diffKr(i,j,k,bi,bj)
./model/src/calc_3d_diffusivity.F 168 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 173 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 180 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 196 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 205 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 214 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 223 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 232 CALC_3D_DIFFUSIVITY 
     I        bi,bj,iMin,iMax,jMin,jMax,0,Nr,
./model/src/calc_3d_diffusivity.F 55 CALC_3D_DIFFUSIVITY 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./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/layers/layers_calc.F 127 LAYERS_CALC 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/layers/layers_calc.F 132 LAYERS_CALC 
     &                       theta(1-OLx,1-OLy,k,bi,bj),
./pkg/layers/layers_calc.F 133 LAYERS_CALC 
     &                       salt(1-OLx,1-OLy,k,bi,bj),
./pkg/layers/layers_calc.F 134 LAYERS_CALC 
     &                       prho(1-OLx,1-OLy,k,bi,bj),
./pkg/layers/layers_calc.F 135 LAYERS_CALC 
     &                       k, bi, bj, myThid )
./pkg/layers/layers_calc.F 138 LAYERS_CALC 
             prho(i,j,k,bi,bj) = rhoConst + prho(i,j,k,bi,bj)
./pkg/layers/layers_calc.F 221 LAYERS_CALC 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/layers/layers_calc.F 227 LAYERS_CALC 
              layers_surfflux(i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 228 LAYERS_CALC 
              layers_dfx     (i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 229 LAYERS_CALC 
              layers_dfy     (i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 230 LAYERS_CALC 
              layers_dfr     (i,j,k,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 324 LAYERS_CALC 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/layers/layers_calc.F 329 LAYERS_CALC 
     &                           deltaTclock, bi, bj, myThid )
./pkg/layers/layers_calc.F 332 LAYERS_CALC 
     &                           deltaTclock, bi, bj, myThid )
./pkg/layers/layers_calc.F 337 LAYERS_CALC 
     &                           deltaTclock, bi, bj, myThid )
./pkg/layers/layers_calc.F 340 LAYERS_CALC 
     &                           deltaTclock, bi, bj, myThid )
./pkg/layers/layers_calc.F 347 LAYERS_CALC 
     &                           deltaTclock, bi, bj, myThid )
./pkg/layers/layers_calc.F 350 LAYERS_CALC 
          layers_TimeAve(bi,bj)=layers_TimeAve(bi,bj)+deltaTclock
./pkg/layers/layers_calc.F 55 LAYERS_CALC 
      INTEGER bi, bj, iLa
./pkg/layers/layers_fluxcalc.F 108 LAYERS_FLUXCALC 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/layers/layers_fluxcalc.F 127 LAYERS_FLUXCALC 
         UH(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 129 LAYERS_FLUXCALC 
         Hw(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 133 LAYERS_FLUXCALC 
         VH(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 135 LAYERS_FLUXCALC 
         Hs(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 156 LAYERS_FLUXCALC 
         IF (hFacW(i,j,kp1,bi,bj) .EQ. 0.) kp1=k
./pkg/layers/layers_fluxcalc.F 158 LAYERS_FLUXCALC 
     &    0.5 _d 0 * (tracer(i-1,j,k,bi,bj)+tracer(i,j,k,bi,bj)) +
./pkg/layers/layers_fluxcalc.F 160 LAYERS_FLUXCALC 
     &    0.5 _d 0 * (tracer(i-1,j,kp1,bi,bj)+tracer(i,j,kp1,bi,bj))
./pkg/layers/layers_fluxcalc.F 194 LAYERS_FLUXCALC 
         UH(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 195 LAYERS_FLUXCALC 
     &    UH(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F 196 LAYERS_FLUXCALC 
     &    dZZf(kk) * uVel(i,j,kci,bi,bj) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 202 LAYERS_FLUXCALC 
     &              ( rA(i-1,j,bi,bj)*Kwx(i-1,j,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F 203 LAYERS_FLUXCALC 
     &               +rA( i ,j,bi,bj)*Kwx( i ,j,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F 204 LAYERS_FLUXCALC 
     &              ) * maskW(i,j,kcip1,bi,bj) * maskp1
./pkg/layers/layers_fluxcalc.F 205 LAYERS_FLUXCALC 
     &            - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F 206 LAYERS_FLUXCALC 
     &               +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F 207 LAYERS_FLUXCALC 
     &              ) * maskW(i,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F 208 LAYERS_FLUXCALC 
     &                           ) * recip_rAw(i,j,bi,bj)
./pkg/layers/layers_fluxcalc.F 211 LAYERS_FLUXCALC 
             delPsi = GM_PsiX(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_fluxcalc.F 212 LAYERS_FLUXCALC 
     &              - GM_PsiX(i,j, kci, bi,bj)
./pkg/layers/layers_fluxcalc.F 215 LAYERS_FLUXCALC 
           UH(i,j,kloc,bi,bj) = UH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 216 LAYERS_FLUXCALC 
     &      + delPsi*recip_drF(kci)*_recip_hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 217 LAYERS_FLUXCALC 
     &      * dZZf(kk)*hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 222 LAYERS_FLUXCALC 
         Hw(i,j,kloc,bi,bj) = Hw(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 223 LAYERS_FLUXCALC 
     &    + dZZf(kk) * hFacW(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 235 LAYERS_FLUXCALC 
         IF (hFacS(i,j,kp1,bi,bj) .EQ. 0.) kp1=k
./pkg/layers/layers_fluxcalc.F 237 LAYERS_FLUXCALC 
     &    0.5 _d 0 * (tracer(i,j-1,k,bi,bj)+tracer(i,j,k,bi,bj)) +
./pkg/layers/layers_fluxcalc.F 239 LAYERS_FLUXCALC 
     &    0.5 _d 0 * (tracer(i,j-1,kp1,bi,bj)+tracer(i,j,kp1,bi,bj))
./pkg/layers/layers_fluxcalc.F 273 LAYERS_FLUXCALC 
         VH(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 274 LAYERS_FLUXCALC 
     &    VH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 275 LAYERS_FLUXCALC 
     &    + dZZf(kk) * vVel(i,j,kci,bi,bj) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 281 LAYERS_FLUXCALC 
     &              ( rA(i,j-1,bi,bj)*Kwy(i,j-1,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F 282 LAYERS_FLUXCALC 
     &               +rA(i, j ,bi,bj)*Kwy(i, j ,kcip1,bi,bj)
./pkg/layers/layers_fluxcalc.F 283 LAYERS_FLUXCALC 
     &              ) * maskS(i,j,kcip1,bi,bj) * maskp1
./pkg/layers/layers_fluxcalc.F 284 LAYERS_FLUXCALC 
     &            - ( rA(i,j-1,bi,bj)*Kwy(i,j-1, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F 285 LAYERS_FLUXCALC 
     &               +rA(i, j ,bi,bj)*Kwy(i, j , kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F 286 LAYERS_FLUXCALC 
     &              ) * maskS(i,j, kci ,bi,bj)
./pkg/layers/layers_fluxcalc.F 287 LAYERS_FLUXCALC 
     &                           ) * recip_rAs(i,j,bi,bj)
./pkg/layers/layers_fluxcalc.F 290 LAYERS_FLUXCALC 
             delPsi = GM_PsiY(i,j,kcip1,bi,bj)*maskp1
./pkg/layers/layers_fluxcalc.F 291 LAYERS_FLUXCALC 
     &              - GM_PsiY(i,j, kci, bi,bj)
./pkg/layers/layers_fluxcalc.F 294 LAYERS_FLUXCALC 
           VH(i,j,kloc,bi,bj) = VH(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 295 LAYERS_FLUXCALC 
     &      + delPsi*recip_drF(kci)*_recip_hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 296 LAYERS_FLUXCALC 
     &      * dZZf(kk)*hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 301 LAYERS_FLUXCALC 
         Hs(i,j,kloc,bi,bj) = Hs(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 302 LAYERS_FLUXCALC 
     &    + dZZf(kk) * hFacS(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 317 LAYERS_FLUXCALC 
         IF (Hw(i,j,kg,bi,bj) .GT. 0.) THEN
./pkg/layers/layers_fluxcalc.F 318 LAYERS_FLUXCALC 
          PIw(i,j,kg,bi,bj) = 1. _d 0
./pkg/layers/layers_fluxcalc.F 319 LAYERS_FLUXCALC 
          U(i,j,kg,bi,bj) =
./pkg/layers/layers_fluxcalc.F 320 LAYERS_FLUXCALC 
     &        UH(i,j,kg,bi,bj) / Hw(i,j,kg,bi,bj)
./pkg/layers/layers_fluxcalc.F 324 LAYERS_FLUXCALC 
         IF (Hs(i,j,kg,bi,bj) .GT. 0.) THEN
./pkg/layers/layers_fluxcalc.F 325 LAYERS_FLUXCALC 
          PIs(i,j,kg,bi,bj) = 1. _d 0
./pkg/layers/layers_fluxcalc.F 326 LAYERS_FLUXCALC 
          V(i,j,kg,bi,bj) =
./pkg/layers/layers_fluxcalc.F 327 LAYERS_FLUXCALC 
     &        VH(i,j,kg,bi,bj) / Hs(i,j,kg,bi,bj)
./pkg/layers/layers_fluxcalc.F 406 LAYERS_DIAPYCNAL 
      INTEGER bi, bj
./pkg/layers/layers_fluxcalc.F 422 LAYERS_DIAPYCNAL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/layers/layers_fluxcalc.F 439 LAYERS_DIAPYCNAL 
         TtendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 440 LAYERS_DIAPYCNAL 
         TtendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 441 LAYERS_DIAPYCNAL 
         TtendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 442 LAYERS_DIAPYCNAL 
         StendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 443 LAYERS_DIAPYCNAL 
         StendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 444 LAYERS_DIAPYCNAL 
         StendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 445 LAYERS_DIAPYCNAL 
         Hc(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 446 LAYERS_DIAPYCNAL 
         PIc(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_fluxcalc.F 456 LAYERS_DIAPYCNAL 
         TatC(i,j) = MapFact(kk) *  tracer(i,j,k,bi,bj) +
./pkg/layers/layers_fluxcalc.F 457 LAYERS_DIAPYCNAL 
     &    (1.0-MapFact(kk)) *  tracer(i,j,k+1,bi,bj)
./pkg/layers/layers_fluxcalc.F 489 LAYERS_DIAPYCNAL 
         dzfac = dZZf(kk) * hFacC(i,j,kci,bi,bj)
./pkg/layers/layers_fluxcalc.F 493 LAYERS_DIAPYCNAL 
          TtendSurf(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 494 LAYERS_DIAPYCNAL 
     &     TtendSurf(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F 495 LAYERS_DIAPYCNAL 
     &     dzfac * layers_surfflux(i,j,1,1,bi,bj)
./pkg/layers/layers_fluxcalc.F 496 LAYERS_DIAPYCNAL 
          StendSurf(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 497 LAYERS_DIAPYCNAL 
     &     StendSurf(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F 498 LAYERS_DIAPYCNAL 
     &     dzfac * layers_surfflux(i,j,1,2,bi,bj)
./pkg/layers/layers_fluxcalc.F 500 LAYERS_DIAPYCNAL 
         TtendDiffh(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 501 LAYERS_DIAPYCNAL 
     &     TtendDiffh(i,j,kloc,bi,bj) + dzfac *
./pkg/layers/layers_fluxcalc.F 504 LAYERS_DIAPYCNAL 
         TtendDiffr(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 505 LAYERS_DIAPYCNAL 
     &     TtendDiffr(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F 507 LAYERS_DIAPYCNAL 
         StendDiffh(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 508 LAYERS_DIAPYCNAL 
     &     StendDiffh(i,j,kloc,bi,bj) + dzfac *
./pkg/layers/layers_fluxcalc.F 511 LAYERS_DIAPYCNAL 
         StendDiffr(i,j,kloc,bi,bj) =
./pkg/layers/layers_fluxcalc.F 512 LAYERS_DIAPYCNAL 
     &     StendDiffr(i,j,kloc,bi,bj) +
./pkg/layers/layers_fluxcalc.F 514 LAYERS_DIAPYCNAL 
         Hc(i,j,kloc,bi,bj) = Hc(i,j,kloc,bi,bj)
./pkg/layers/layers_fluxcalc.F 526 LAYERS_DIAPYCNAL 
         IF (Hc(i,j,kg,bi,bj) .GT. 0.) THEN
./pkg/layers/layers_fluxcalc.F 527 LAYERS_DIAPYCNAL 
          PIc(i,j,kg,bi,bj) = 1. _d 0
./pkg/layers/layers_fluxcalc.F 89 LAYERS_FLUXCALC 
      INTEGER bi, bj
./pkg/layers/layers_init_varia.F 28 LAYERS_INIT_VARIA 
      INTEGER i,j,kg,bi,bj
./pkg/layers/layers_init_varia.F 34 LAYERS_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/layers/layers_init_varia.F 43 LAYERS_INIT_VARIA 
           layers_UH (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 45 LAYERS_INIT_VARIA 
           layers_Hw (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 46 LAYERS_INIT_VARIA 
           layers_PIw(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 47 LAYERS_INIT_VARIA 
           layers_U  (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 52 LAYERS_INIT_VARIA 
           layers_VH (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 54 LAYERS_INIT_VARIA 
           layers_Hs (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 55 LAYERS_INIT_VARIA 
           layers_PIs(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 56 LAYERS_INIT_VARIA 
           layers_V  (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 61 LAYERS_INIT_VARIA 
           layers_TtendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 62 LAYERS_INIT_VARIA 
           layers_TtendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 63 LAYERS_INIT_VARIA 
           layers_TtendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 64 LAYERS_INIT_VARIA 
           layers_StendSurf (i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 65 LAYERS_INIT_VARIA 
           layers_StendDiffh(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 66 LAYERS_INIT_VARIA 
           layers_StendDiffr(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 76 LAYERS_INIT_VARIA 
           prho(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 87 LAYERS_INIT_VARIA 
            layers_surfflux(i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 88 LAYERS_INIT_VARIA 
            layers_dfx     (i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 89 LAYERS_INIT_VARIA 
            layers_dfy     (i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 90 LAYERS_INIT_VARIA 
            layers_dfr     (i,j,kg,iTracer,bi,bj) = 0. _d 0
./pkg/layers/layers_output.F 104 LAYERS_OUTPUT 
     &                            Nlayers, bi, bj, myThid )
./pkg/layers/layers_output.F 107 LAYERS_OUTPUT 
     &                            Nlayers, bi, bj, myThid )
./pkg/layers/layers_output.F 114 LAYERS_OUTPUT 
     &                            Nr, bi, bj, myThid )
./pkg/layers/layers_output.F 152 LAYERS_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/layers/layers_output.F 154 LAYERS_OUTPUT 
          layers_TimeAve(bi,bj) = 0.
./pkg/layers/layers_output.F 156 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_UH_T,  Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 158 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_Hw_T, Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 163 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_VH_T, Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 165 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_Hs_T, Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 171 LAYERS_OUTPUT 
     &    CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid)
./pkg/layers/layers_output.F 49 LAYERS_OUTPUT 
      INTEGER bi, bj
./pkg/layers/layers_output.F 61 LAYERS_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/layers/layers_output.F 63 LAYERS_OUTPUT 
          layers_TimeAve(bi,bj) = 0.
./pkg/layers/layers_output.F 65 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_UH_T,  Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 67 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_Hw_T, Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 72 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_VH_T, Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 74 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(layers_Hs_T, Nlayers,bi,bj,myThid)
./pkg/layers/layers_output.F 79 LAYERS_OUTPUT 
          CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid)
./pkg/layers/layers_output.F 90 LAYERS_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/layers/layers_output.F 95 LAYERS_OUTPUT 
     &                            Nlayers, bi, bj, myThid )
./pkg/layers/layers_output.F 98 LAYERS_OUTPUT 
     &                            Nlayers, bi, bj, myThid )
./pkg/layers/layers_save.F 102 LAYERS_FILL_SURFACE_FLUX 
             layers_surfflux(i,j,1,trIdentity,bi,bj) =
./pkg/layers/layers_save.F 103 LAYERS_FILL_SURFACE_FLUX 
     &       layers_surfflux(i,j,1,trIdentity,bi,bj) +
./pkg/layers/layers_save.F 104 LAYERS_FILL_SURFACE_FLUX 
     &              surfflux(i,j,bi,bj)
./pkg/layers/layers_save.F 77 LAYERS_FILL_SURFACE_FLUX 
      INTEGER i,j,bi,bj
./pkg/layers/layers_save.F 93 LAYERS_FILL_SURFACE_FLUX 
         DO bj=myByLo(myThid), myByHi(myThid)
./model/src/calc_adv_flow.F 129 CALC_ADV_FLOW 
           maskUp(i,j) = maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/calc_adv_flow.F 130 CALC_ADV_FLOW 
           rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)*maskUp(i,j)
./model/src/calc_adv_flow.F 15 CALC_ADV_FLOW 
     I                k, bi, bj, myThid )
./model/src/calc_adv_flow.F 63 CALC_ADV_FLOW 
      INTEGER k,bi,bj
./model/src/calc_adv_flow.F 75 CALC_ADV_FLOW 
         xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_adv_flow.F 76 CALC_ADV_FLOW 
     &           *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/calc_adv_flow.F 77 CALC_ADV_FLOW 
         yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_adv_flow.F 78 CALC_ADV_FLOW 
     &           *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/calc_adv_flow.F 95 CALC_ADV_FLOW 
          rTransKp(i,j) = wFld(i,j,k+1)*rA(i,j,bi,bj)
./model/src/calc_adv_flow.F 96 CALC_ADV_FLOW 
     &                  * maskC(i,j,k,bi,bj)*maskC(i,j,k+1,bi,bj)
./pkg/layers/layers_thermodynamics.F 50 LAYERS_CALC_RHS 
      INTEGER bi, bj
./pkg/layers/layers_thermodynamics.F 59 LAYERS_CALC_RHS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/layers/layers_thermodynamics.F 66 LAYERS_CALC_RHS 
             layers_surfflux(i,j,k,iTracer,bi,bj) =
./pkg/layers/layers_thermodynamics.F 67 LAYERS_CALC_RHS 
     &       layers_surfflux(i,j,k,iTracer,bi,bj)
./pkg/layers/layers_thermodynamics.F 68 LAYERS_CALC_RHS 
     &       *recip_drF(1)*_recip_hFacC(i,j,1,bi,bj)
./pkg/layers/layers_thermodynamics.F 84 LAYERS_CALC_RHS 
              tmpfac = -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/layers/layers_thermodynamics.F 85 LAYERS_CALC_RHS 
     &          *recip_rA(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/layers/layers_thermodynamics.F 86 LAYERS_CALC_RHS 
              layers_dfx(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) *
./pkg/layers/layers_thermodynamics.F 87 LAYERS_CALC_RHS 
     &         tmpfac * ( layers_dfx(i+1,j,k,iTracer,bi,bj) -
./pkg/layers/layers_thermodynamics.F 88 LAYERS_CALC_RHS 
     &          layers_dfx(i,j,k,iTracer,bi,bj) )
./pkg/layers/layers_thermodynamics.F 89 LAYERS_CALC_RHS 
              layers_dfy(i,j,k,iTracer,bi,bj) = maskInC(i,j,bi,bj) *
./pkg/layers/layers_thermodynamics.F 90 LAYERS_CALC_RHS 
     &         tmpfac * ( layers_dfy(i,j+1,k,iTracer,bi,bj) -
./pkg/layers/layers_thermodynamics.F 91 LAYERS_CALC_RHS 
     &          layers_dfy(i,j,k,iTracer,bi,bj) )
./pkg/layers/layers_thermodynamics.F 92 LAYERS_CALC_RHS 
              layers_dfr(i,j,k,iTracer,bi,bj) = tmpfac * rkSign *
./pkg/layers/layers_thermodynamics.F 93 LAYERS_CALC_RHS 
     &        ( layers_dfr(i,j,kdown,iTracer,bi,bj)*downfac -
./pkg/layers/layers_thermodynamics.F 94 LAYERS_CALC_RHS 
     &          layers_dfr(i,j,k,iTracer,bi,bj) )
./pkg/longstep/longstep_average_3d.F 43 LONGSTEP_AVERAGE_3D 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_average_3d.F 47 LONGSTEP_AVERAGE_3D 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/longstep/longstep_average_3d.F 49 LONGSTEP_AVERAGE_3D 
        factor = FLOAT(lsCnt(bi,bj))
./pkg/longstep/longstep_average_3d.F 50 LONGSTEP_AVERAGE_3D 
        IF (lsCnt(bi,bj).NE.0) factor = 1. _d 0 / factor
./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 49 LONGSTEP_AVERAGE_3D_FAC 
      DO bj=myByLo(myThid), myByHi(myThid)
./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
./model/src/calc_div_ghat.F 10 CALC_DIV_GHAT 
     I                bi,bj,k,
./model/src/calc_div_ghat.F 115 CALC_DIV_GHAT 
          pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 116 CALC_DIV_GHAT 
     &     + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 123 CALC_DIV_GHAT 
        cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) +
./model/src/calc_div_ghat.F 132 CALC_DIV_GHAT 
         cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) )
./model/src/calc_div_ghat.F 142 CALC_DIV_GHAT 
          pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom
./model/src/calc_div_ghat.F 151 CALC_DIV_GHAT 
     &             *yA(i,j)*gV(i,j,k,bi,bj) / deltatmom
./model/src/calc_div_ghat.F 158 CALC_DIV_GHAT 
          pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 159 CALC_DIV_GHAT 
     &     + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 166 CALC_DIV_GHAT 
        cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj) +
./model/src/calc_div_ghat.F 175 CALC_DIV_GHAT 
         cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 186 CALC_DIV_GHAT 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/calc_div_ghat.F 187 CALC_DIV_GHAT 
     &         - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom
./model/src/calc_div_ghat.F 194 CALC_DIV_GHAT 
          cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 195 CALC_DIV_GHAT 
     &         - addMass(i,j,k,bi,bj)*mass2rUnit/deltaTMom
./model/src/calc_div_ghat.F 43 CALC_DIV_GHAT 
      INTEGER bi,bj
./model/src/calc_div_ghat.F 67 CALC_DIV_GHAT 
          xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_div_ghat.F 68 CALC_DIV_GHAT 
     &              *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_div_ghat.F 69 CALC_DIV_GHAT 
          yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./model/src/calc_div_ghat.F 70 CALC_DIV_GHAT 
     &              *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k)
./model/src/calc_div_ghat.F 83 CALC_DIV_GHAT 
          pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom
./model/src/calc_div_ghat.F 92 CALC_DIV_GHAT 
     &             *xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom
./pkg/longstep/longstep_fill_3d.F 44 LONGSTEP_FILL_3D 
      INTEGER i,j,k,bi,bj
./pkg/longstep/longstep_fill_3d.F 47 LONGSTEP_FILL_3D 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/longstep/longstep_fill_3d.F 49 LONGSTEP_FILL_3D 
        lsCnt(bi,bj) = lsCnt(bi,bj) + 1
./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 48 LONGSTEP_FILL_3D_FAC 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/longstep/longstep_fill_3d_fac.F 50 LONGSTEP_FILL_3D_FAC 
        lsCnt(bi,bj) = lsCnt(bi,bj) + 1
./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 48 LONGSTEP_FILL_3D_RS 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/longstep/longstep_fill_3d_rs.F 50 LONGSTEP_FILL_3D_RS 
        lsCnt(bi,bj) = lsCnt(bi,bj) + 1
./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 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 11 LONGSTEP_FORCING_SURF 
     I                            bi, bj, iMin, iMax, jMin, jMax,
./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 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 38 LONGSTEP_FORCING_SURF 
      INTEGER bi, bj, iMin, iMax, jMin, jMax
./pkg/longstep/longstep_forcing_surf.F 63 LONGSTEP_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./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 45 LONGSTEP_RESET_3D 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/longstep/longstep_reset_3d.F 47 LONGSTEP_RESET_3D 
        lsCnt(bi,bj) = 0
./pkg/longstep/longstep_reset_3d.F 51 LONGSTEP_RESET_3D 
           lsFld(i,j,k,bi,bj) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 107 LONGSTEP_THERMODYNAMICS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/longstep/longstep_thermodynamics.F 113 LONGSTEP_THERMODYNAMICS 
          act2 = bj - myByLo(myThid)
./pkg/longstep/longstep_thermodynamics.F 146 LONGSTEP_THERMODYNAMICS 
             recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 147 LONGSTEP_THERMODYNAMICS 
     &                            / rStarExpC(i,j,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 157 LONGSTEP_THERMODYNAMICS 
             recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 158 LONGSTEP_THERMODYNAMICS 
     &        /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./pkg/longstep/longstep_thermodynamics.F 160 LONGSTEP_THERMODYNAMICS 
     &                    *recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 170 LONGSTEP_THERMODYNAMICS 
             IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/longstep/longstep_thermodynamics.F 171 LONGSTEP_THERMODYNAMICS 
              recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 173 LONGSTEP_THERMODYNAMICS 
              recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 184 LONGSTEP_THERMODYNAMICS 
             recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 199 LONGSTEP_THERMODYNAMICS 
     I        bi, bj, iMin, iMax, jMin, jMax,
./pkg/longstep/longstep_thermodynamics.F 207 LONGSTEP_THERMODYNAMICS 
           uFld(i,j,k) = LS_uVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 208 LONGSTEP_THERMODYNAMICS 
           vFld(i,j,k) = LS_vVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 209 LONGSTEP_THERMODYNAMICS 
           wFld(i,j,k) = LS_wVel(i,j,k,bi,bj)
./pkg/longstep/longstep_thermodynamics.F 218 LONGSTEP_THERMODYNAMICS 
     I                  bi, bj, myIter, myThid )
./pkg/longstep/longstep_thermodynamics.F 231 LONGSTEP_THERMODYNAMICS 
     I          bi, bj, recip_hFacNew,
./pkg/longstep/longstep_thermodynamics.F 90 LONGSTEP_THERMODYNAMICS 
      INTEGER bi, bj
./model/src/calc_eddy_stress.F 11 CALC_EDDY_STRESS 
      SUBROUTINE CALC_EDDY_STRESS(bi,bj,myThid)
./model/src/calc_eddy_stress.F 39 CALC_EDDY_STRESS 
      INTEGER bi,bj
./model/src/calc_eddy_stress.F 58 CALC_EDDY_STRESS 
           psiy = op25*(GM_PsiY(i,  j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 59 CALC_EDDY_STRESS 
     &                 +GM_PsiY(i,  j+1,k,bi,bj)
./model/src/calc_eddy_stress.F 60 CALC_EDDY_STRESS 
     &                 +GM_PsiY(i-1,j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 61 CALC_EDDY_STRESS 
     &                 +GM_PsiY(i-1,j+1,k,bi,bj))
./model/src/calc_eddy_stress.F 63 CALC_EDDY_STRESS 
           psiy = op25*(eddyPsiY(i,  j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 64 CALC_EDDY_STRESS 
     &                 +eddyPsiY(i,  j+1,k,bi,bj)
./model/src/calc_eddy_stress.F 65 CALC_EDDY_STRESS 
     &                 +eddyPsiY(i-1,j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 66 CALC_EDDY_STRESS 
     &                 +eddyPsiY(i-1,j+1,k,bi,bj))
./model/src/calc_eddy_stress.F 68 CALC_EDDY_STRESS 
           coriU = op5*(fcori(i-1,j,bi,bj)
./model/src/calc_eddy_stress.F 69 CALC_EDDY_STRESS 
     &                 +fCori(i  ,j,bi,bj))
./model/src/calc_eddy_stress.F 71 CALC_EDDY_STRESS 
           tauxEddy(i,j,k,bi,bj) =  rhoConst*coriU*psiy
./model/src/calc_eddy_stress.F 78 CALC_EDDY_STRESS 
           psix = op25*(GM_PsiX(i,  j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 79 CALC_EDDY_STRESS 
     &                 +GM_PsiX(i+1,j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 80 CALC_EDDY_STRESS 
     &                 +GM_PsiX(i  ,j-1,k,bi,bj)
./model/src/calc_eddy_stress.F 81 CALC_EDDY_STRESS 
     &                 +GM_PsiX(i+1,j-1,k,bi,bj))
./model/src/calc_eddy_stress.F 83 CALC_EDDY_STRESS 
           psix = op25*(eddyPsiX(i,  j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 84 CALC_EDDY_STRESS 
     &                 +eddyPsiX(i+1,j  ,k,bi,bj)
./model/src/calc_eddy_stress.F 85 CALC_EDDY_STRESS 
     &                 +eddyPsiX(i  ,j-1,k,bi,bj)
./model/src/calc_eddy_stress.F 86 CALC_EDDY_STRESS 
     &                 +eddyPsiX(i+1,j-1,k,bi,bj))
./model/src/calc_eddy_stress.F 88 CALC_EDDY_STRESS 
           coriV = op5*(fcori(i,j-1,bi,bj)
./model/src/calc_eddy_stress.F 89 CALC_EDDY_STRESS 
     &                 +fCori(i,j  ,bi,bj))
./model/src/calc_eddy_stress.F 91 CALC_EDDY_STRESS 
           tauyEddy(i,j,k,bi,bj) = -rhoConst*coriV*psix
./pkg/matrix/matrix_init_varia.F 23 MATRIX_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/matrix/matrix_init_varia.F 29 MATRIX_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/matrix/matrix_init_varia.F 31 MATRIX_INIT_VARIA 
         expMatrixCounter(bi,bj) = 0
./pkg/matrix/matrix_init_varia.F 32 MATRIX_INIT_VARIA 
         impMatrixCounter(bi,bj) = 0
./pkg/matrix/matrix_init_varia.F 36 MATRIX_INIT_VARIA 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/matrix/matrix_init_varia.F 41 MATRIX_INIT_VARIA 
               PTRACERS_initial(i,j,k,bi,bj,iTracer) =
./pkg/matrix/matrix_init_varia.F 42 MATRIX_INIT_VARIA 
     &                  pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_init_varia.F 43 MATRIX_INIT_VARIA 
               MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0
./pkg/matrix/matrix_init_varia.F 44 MATRIX_INIT_VARIA 
               MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0
./pkg/matrix/matrix_store_tendency.F 108 MATRIX_STORE_TENDENCY_IMP 
            MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_store_tendency.F 109 MATRIX_STORE_TENDENCY_IMP 
     &             MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/matrix/matrix_store_tendency.F 110 MATRIX_STORE_TENDENCY_IMP 
     &             + pTracer(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 111 MATRIX_STORE_TENDENCY_IMP 
            pTracer(i,j,k,bi,bj,iTracer)=
./pkg/matrix/matrix_store_tendency.F 112 MATRIX_STORE_TENDENCY_IMP 
     &             PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 117 MATRIX_STORE_TENDENCY_IMP 
      impMatrixCounter(bi,bj) = impMatrixCounter(bi,bj) + 1
./pkg/matrix/matrix_store_tendency.F 17 MATRIX_STORE_TENDENCY_EXP 
     I                  iTracer, bi, bj,
./pkg/matrix/matrix_store_tendency.F 39 MATRIX_STORE_TENDENCY_EXP 
      INTEGER bi, bj
./pkg/matrix/matrix_store_tendency.F 53 MATRIX_STORE_TENDENCY_EXP 
          MATRIX(i,j,k,bi,bj,iTracer,1) = MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_store_tendency.F 54 MATRIX_STORE_TENDENCY_EXP 
     &     + ( tracNew(i,j,k) - PTRACERS_initial(i,j,k,bi,bj,iTracer) )
./pkg/matrix/matrix_store_tendency.F 55 MATRIX_STORE_TENDENCY_EXP 
          tracNew(i,j,k) = PTRACERS_initial(i,j,k,bi,bj,iTracer)
./pkg/matrix/matrix_store_tendency.F 62 MATRIX_STORE_TENDENCY_EXP 
        expMatrixCounter(bi,bj) = expMatrixCounter(bi,bj) + 1
./pkg/matrix/matrix_store_tendency.F 75 MATRIX_STORE_TENDENCY_IMP 
     I                  bi, bj, myTime, myIter, myThid )
./pkg/matrix/matrix_store_tendency.F 93 MATRIX_STORE_TENDENCY_IMP 
      INTEGER bi, bj
./pkg/matrix/matrix_write_tendency.F 103 MATRIX_WRITE_TENDENCY 
          DO bj=myByLo(myThid), myByHi (myThid)
./pkg/matrix/matrix_write_tendency.F 108 MATRIX_WRITE_TENDENCY 
                 MATRIX(i,j,k,bi,bj,iTracer,2) =
./pkg/matrix/matrix_write_tendency.F 109 MATRIX_WRITE_TENDENCY 
     &                   MATRIX(i,j,k,bi,bj,iTracer,2)
./pkg/matrix/matrix_write_tendency.F 117 MATRIX_WRITE_TENDENCY 
          bj=myByLo(myThid)
./pkg/matrix/matrix_write_tendency.F 120 MATRIX_WRITE_TENDENCY 
     &       iTracer, impMatrixWriteCount, impMatrixCounter(bi,bj)
./pkg/matrix/matrix_write_tendency.F 134 MATRIX_WRITE_TENDENCY 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/matrix/matrix_write_tendency.F 136 MATRIX_WRITE_TENDENCY 
           impMatrixCounter(bi,bj) = 0
./pkg/matrix/matrix_write_tendency.F 140 MATRIX_WRITE_TENDENCY 
          DO bj=myByLo(myThid), myByHi (myThid)
./pkg/matrix/matrix_write_tendency.F 145 MATRIX_WRITE_TENDENCY 
                 MATRIX(i,j,k,bi,bj,iTracer,2) = 0. _d 0
./pkg/matrix/matrix_write_tendency.F 29 MATRIX_WRITE_TENDENCY 
      INTEGER bi,bj,i,j,k,iTracer,iRec
./pkg/matrix/matrix_write_tendency.F 38 MATRIX_WRITE_TENDENCY 
        bj=myByLo(myThid)
./pkg/matrix/matrix_write_tendency.F 40 MATRIX_WRITE_TENDENCY 
        recipExpDeltaTtracer = expMatrixCounter(bi,bj)*dTtracerLev(1)
./pkg/matrix/matrix_write_tendency.F 44 MATRIX_WRITE_TENDENCY 
          DO bj=myByLo(myThid),myByHi(myThid)
./pkg/matrix/matrix_write_tendency.F 49 MATRIX_WRITE_TENDENCY 
                 MATRIX(i,j,k,bi,bj,iTracer,1) =
./pkg/matrix/matrix_write_tendency.F 50 MATRIX_WRITE_TENDENCY 
     &                   MATRIX(i,j,k,bi,bj,iTracer,1)
./pkg/matrix/matrix_write_tendency.F 58 MATRIX_WRITE_TENDENCY 
          bj=myByLo(myThid)
./pkg/matrix/matrix_write_tendency.F 61 MATRIX_WRITE_TENDENCY 
     &       iTracer, expMatrixWriteCount, expMatrixCounter(bi,bj)
./pkg/matrix/matrix_write_tendency.F 75 MATRIX_WRITE_TENDENCY 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/matrix/matrix_write_tendency.F 77 MATRIX_WRITE_TENDENCY 
           expMatrixCounter(bi,bj) = 0
./pkg/matrix/matrix_write_tendency.F 81 MATRIX_WRITE_TENDENCY 
          DO bj=myByLo(myThid),myByHi(myThid)
./pkg/matrix/matrix_write_tendency.F 86 MATRIX_WRITE_TENDENCY 
                 MATRIX(i,j,k,bi,bj,iTracer,1) = 0. _d 0
./pkg/matrix/matrix_write_tendency.F 97 MATRIX_WRITE_TENDENCY 
        bj=myByLo(myThid)
./pkg/matrix/matrix_write_tendency.F 99 MATRIX_WRITE_TENDENCY 
        recipImpMatrixCounter = impMatrixCounter(bi,bj)
./model/src/calc_grad_phi_fv.F 103 CALC_GRAD_PHI_FV 
         dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj)
./model/src/calc_grad_phi_fv.F 104 CALC_GRAD_PHI_FV 
         dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj)
./model/src/calc_grad_phi_fv.F 10 CALC_GRAD_PHI_FV 
     I                       k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/calc_grad_phi_fv.F 47 CALC_GRAD_PHI_FV 
      INTEGER k, bi,bj, iMin,iMax, jMin,jMax
./model/src/calc_grad_phi_fv.F 79 CALC_GRAD_PHI_FV 
        dPhiHydX(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i-1,j,bi,bj) )
./model/src/calc_grad_phi_fv.F 83 CALC_GRAD_PHI_FV 
        dPhiHydX(i,j) = _recip_dxC(i,j,bi,bj)*dPhiHydX(i,j)
./model/src/calc_grad_phi_fv.F 91 CALC_GRAD_PHI_FV 
        dPhiHydY(i,j) = ( phi0surf(i,j,bi,bj) - phi0surf(i,j-1,bi,bj) )
./model/src/calc_grad_phi_fv.F 95 CALC_GRAD_PHI_FV 
        dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*dPhiHydY(i,j)
./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 128 MDS_FACEF_READ_RS 
          array(i,j,bi,bj) = ioBuf4(i,j)
./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 19 MDS_FACEF_READ_RS 
     I                    bi,bj, myThid )
./pkg/mdsio/mdsio_facef_read.F 45 MDS_FACEF_READ_RS 
      INTEGER bi,bj, myThid
./pkg/mdsio/mdsio_facef_read.F 71 MDS_FACEF_READ_RS 
      tN  = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_facef_read.F 93 MDS_FACEF_READ_RS 
          array(i,j,bi,bj) = ioBuf4(i+tBx)
./pkg/mdsio/mdsio_gl.F 1014 MDSREADFIELD_2D_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl.F 1019 MDSREADFIELD_2D_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F 1057 MDSREADFIELD_2D_GL 
            jG=bj+(jp-1)*nsy
./pkg/mdsio/mdsio_gl.F 1072 MDSREADFIELD_2D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1075 MDSREADFIELD_2D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1089 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1092 MDSREADFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 1106 MDSREADFIELD_2D_GL 
        arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_gl.F 1174 MDSREADFIELD_2D_GL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/mdsio/mdsio_gl.F 1177 MDSREADFIELD_2D_GL 
             JJ=((jp-1)*nSy+(bj-1))*sNy+J
./pkg/mdsio/mdsio_gl.F 1180 MDSREADFIELD_2D_GL 
              arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F 1280 MDSWRITEFIELD_2D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 1379 MDSWRITEFIELD_2D_GL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/mdsio/mdsio_gl.F 1382 MDSWRITEFIELD_2D_GL 
           JJ=((jp-1)*nSy+(bj-1))*sNy+J
./pkg/mdsio/mdsio_gl.F 1385 MDSWRITEFIELD_2D_GL 
            global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 1461 MDSWRITEFIELD_2D_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl.F 1465 MDSWRITEFIELD_2D_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F 1483 MDSWRITEFIELD_2D_GL 
                arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 1491 MDSWRITEFIELD_2D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,nLocz, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1494 MDSWRITEFIELD_2D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,nLocz, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1508 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1511 MDSWRITEFIELD_2D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,nLocz, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 1545 MDSWRITEFIELD_2D_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F 1552 MDSWRITEFIELD_2D_GL 
         dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1
./pkg/mdsio/mdsio_gl.F 1553 MDSWRITEFIELD_2D_GL 
         dimList(3,2)=((jp-1)*nSy+bj)*sNy
./pkg/mdsio/mdsio_gl.F 227 MDSREADFIELD_3D_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl.F 232 MDSREADFIELD_3D_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F 270 MDSREADFIELD_3D_GL 
            jG=bj+(jp-1)*nsy
./pkg/mdsio/mdsio_gl.F 285 MDSREADFIELD_3D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 288 MDSREADFIELD_3D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 302 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 305 MDSREADFIELD_3D_GL 
             call MDS_SEG8TORL( j,bi,bj,k,Nr, r8seg, .TRUE., arr )
./pkg/mdsio/mdsio_gl.F 319 MDSREADFIELD_3D_GL 
        arr_gl(ii,bi,ip,j,bj,jp,k)=arr(ii,j,k,bi,bj)
./pkg/mdsio/mdsio_gl.F 387 MDSREADFIELD_3D_GL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/mdsio/mdsio_gl.F 390 MDSREADFIELD_3D_GL 
             JJ=((jp-1)*nSy+(bj-1))*sNy+J
./pkg/mdsio/mdsio_gl.F 393 MDSREADFIELD_3D_GL 
              arr_gl(i,bi,ip,j,bj,jp,k) = global(II,JJ)
./pkg/mdsio/mdsio_gl.F 492 MDSWRITEFIELD_3D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl.F 590 MDSWRITEFIELD_3D_GL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/mdsio/mdsio_gl.F 593 MDSWRITEFIELD_3D_GL 
           JJ=((jp-1)*nSy+(bj-1))*sNy+J
./pkg/mdsio/mdsio_gl.F 596 MDSWRITEFIELD_3D_GL 
            global(II,JJ) = arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 672 MDSWRITEFIELD_3D_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl.F 676 MDSWRITEFIELD_3D_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F 694 MDSWRITEFIELD_3D_GL 
                arr(i,j,k,bi,bj)=arr_gl(i,bi,ip,j,bj,jp,k)
./pkg/mdsio/mdsio_gl.F 702 MDSWRITEFIELD_3D_GL 
             call MDS_SEG4TORS( j,bi,bj,k,Nr, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 705 MDSWRITEFIELD_3D_GL 
             call MDS_SEG4TORL( j,bi,bj,k,Nr, r4seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 719 MDSWRITEFIELD_3D_GL 
             call MDS_SEG8TORS( j,bi,bj,k,Nr, r8seg, .FALSE., arr )
./pkg/mdsio/mdsio_gl.F 722 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 756 MDSWRITEFIELD_3D_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl.F 763 MDSWRITEFIELD_3D_GL 
         dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1
./pkg/mdsio/mdsio_gl.F 764 MDSWRITEFIELD_3D_GL 
         dimList(3,2)=((jp-1)*nSy+bj)*sNy
./pkg/mdsio/mdsio_gl.F 860 MDSREADFIELD_2D_GL 
      integer ip,jp,iG,jG,irec,bi,bj,i,j,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 141 MDSREADFIELD_XZ_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl_slice.F 146 MDSREADFIELD_XZ_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F 188 MDSREADFIELD_XZ_GL 
             call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 191 MDSREADFIELD_XZ_GL 
             call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 205 MDSREADFIELD_XZ_GL 
             call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 208 MDSREADFIELD_XZ_GL 
             call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 222 MDSREADFIELD_XZ_GL 
        arr_gl(ii,bi,ip,bj,jp,k)=arr(ii,k,bi,bj)
./pkg/mdsio/mdsio_gl_slice.F 313 MDSREADFIELD_YZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 381 MDSREADFIELD_YZ_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl_slice.F 386 MDSREADFIELD_YZ_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F 428 MDSREADFIELD_YZ_GL 
             call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 431 MDSREADFIELD_YZ_GL 
             call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 445 MDSREADFIELD_YZ_GL 
             call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 448 MDSREADFIELD_YZ_GL 
             call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.TRUE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 462 MDSREADFIELD_YZ_GL 
        arr_gl(bi,ip,jj,bj,jp,k)=arr(jj,k,bi,bj)
./pkg/mdsio/mdsio_gl_slice.F 567 MDSWRITEFIELD_XZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 618 MDSWRITEFIELD_XZ_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl_slice.F 622 MDSWRITEFIELD_XZ_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F 639 MDSWRITEFIELD_XZ_GL 
               arr(ii,k,bi,bj)=arr_gl(ii,bi,ip,bj,jp,k)
./pkg/mdsio/mdsio_gl_slice.F 647 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG4TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 650 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG4TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 664 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG8TORS_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 667 MDSWRITEFIELD_XZ_GL 
             call MDS_SEG8TORL_2D(sNx,oLx,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 699 MDSWRITEFIELD_XZ_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F 706 MDSWRITEFIELD_XZ_GL 
         dimList(2,2)=(jp-1)*nSy+bj
./pkg/mdsio/mdsio_gl_slice.F 707 MDSWRITEFIELD_XZ_GL 
         dimList(3,2)= jp*nSy+bj
./pkg/mdsio/mdsio_gl_slice.F 72 MDSREADFIELD_XZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,ii,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 808 MDSWRITEFIELD_YZ_GL 
      integer ip,jp,iG,jG,irec,bi,bj,jj,k,dUnit,IL
./pkg/mdsio/mdsio_gl_slice.F 859 MDSWRITEFIELD_YZ_GL 
      do bj=1,nSy
./pkg/mdsio/mdsio_gl_slice.F 863 MDSWRITEFIELD_YZ_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F 880 MDSWRITEFIELD_YZ_GL 
               arr(jj,k,bi,bj)=arr_gl(bi,ip,jj,bj,jp,k)
./pkg/mdsio/mdsio_gl_slice.F 888 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG4TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 891 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG4TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r4seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 905 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG8TORS_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 908 MDSWRITEFIELD_YZ_GL 
             call MDS_SEG8TORL_2D(sNy,oLy,nNz,bi,bj,k,.FALSE.,r8seg,arr)
./pkg/mdsio/mdsio_gl_slice.F 940 MDSWRITEFIELD_YZ_GL 
         jG=bj+(jp-1)*nsy ! Kludge until unstructered tiles
./pkg/mdsio/mdsio_gl_slice.F 947 MDSWRITEFIELD_YZ_GL 
         dimList(2,2)=((jp-1)*nSy+(bj-1))*sNy+1
./pkg/mdsio/mdsio_gl_slice.F 948 MDSWRITEFIELD_YZ_GL 
         dimList(3,2)=((jp-1)*nSy+bj)*sNy
./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 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 68 MDS_PASS_R4TORL 
          DO bj = myByLo(myThid), myByHi(myThid)
./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 81 MDS_PASS_R4TORL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/mdsio/mdsio_pass_r4torl.F 87 MDS_PASS_R4TORL 
                buffer(i,j,k,bi,bj) = arrFld(i,j,kLev,bi,bj)
./pkg/mdsio/mdsio_pass_r4torl.F 97 MDS_PASS_R4TORL 
        bj = bjArg
./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 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 68 MDS_PASS_R4TORS 
          DO bj = myByLo(myThid), myByHi(myThid)
./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 81 MDS_PASS_R4TORS 
          DO bj = myByLo(myThid), myByHi(myThid)
./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_r4tors.F 97 MDS_PASS_R4TORS 
        bj = bjArg
./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 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 68 MDS_PASS_R8TORL 
          DO bj = myByLo(myThid), myByHi(myThid)
./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 81 MDS_PASS_R8TORL 
          DO bj = myByLo(myThid), myByHi(myThid)
./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_r8torl.F 97 MDS_PASS_R8TORL 
        bj = bjArg
./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 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 68 MDS_PASS_R8TORS 
          DO bj = myByLo(myThid), myByHi(myThid)
./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 81 MDS_PASS_R8TORS 
          DO bj = myByLo(myThid), myByHi(myThid)
./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_pass_r8tors.F 97 MDS_PASS_R8TORS 
        bj = bjArg
./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 106 CALC_GRAD_PHI_HYD 
     &                  *(pStarFacK(i,j,bi,bj) - 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 115 CALC_GRAD_PHI_HYD 
          IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN
./model/src/calc_grad_phi_hyd.F 11 CALC_GRAD_PHI_HYD 
     I                       k, bi, bj, iMin,iMax, jMin,jMax,
./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 137 CALC_GRAD_PHI_HYD 
         varLoc(i,j) = phiHydC(i,j)+phi0surf(i,j,bi,bj)
./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 157 CALC_GRAD_PHI_HYD 
        dPhiHydY(i,j) = _recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 170 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = etaH(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 171 CALC_GRAD_PHI_HYD 
     &                *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 179 CALC_GRAD_PHI_HYD 
     &             *recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 187 CALC_GRAD_PHI_HYD 
     &             *recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 197 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 198 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 205 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 206 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 228 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 229 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 231 CALC_GRAD_PHI_HYD 
     &             *(pStarFacK(i,j,bi,bj)-pStarFacK(i-1,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 232 CALC_GRAD_PHI_HYD 
     &             *recip_dxC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 241 CALC_GRAD_PHI_HYD 
     &             *(rStarFacC(i,j,bi,bj)-rStarFacC(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 242 CALC_GRAD_PHI_HYD 
     &             *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 244 CALC_GRAD_PHI_HYD 
     &             *(pStarFacK(i,j,bi,bj)-pStarFacK(i,j-1,bi,bj))
./model/src/calc_grad_phi_hyd.F 245 CALC_GRAD_PHI_HYD 
     &             *recip_dyC(i,j,bi,bj)*recip_deepFacC(k)
./model/src/calc_grad_phi_hyd.F 257 CALC_GRAD_PHI_HYD 
         dPhiHydX(i,j) = dPhiHydX(i,j)*_maskW(i,j,k,bi,bj)
./model/src/calc_grad_phi_hyd.F 258 CALC_GRAD_PHI_HYD 
         dPhiHydY(i,j) = dPhiHydY(i,j)*_maskS(i,j,k,bi,bj)
./model/src/calc_grad_phi_hyd.F 45 CALC_GRAD_PHI_HYD 
      INTEGER k, bi,bj, iMin,iMax, jMin,jMax
./model/src/calc_grad_phi_hyd.F 78 CALC_GRAD_PHI_HYD 
          varLoc(i,j) = phiHydC(i,j)*pStarFacK(i,j,bi,bj)
./model/src/calc_grad_phi_hyd.F 79 CALC_GRAD_PHI_HYD 
     &                + phi0surf(i,j,bi,bj)
./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 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/mdsio/mdsio_read_field.F 110 MDS_READ_FIELD 
      INTEGER iG,jG,bi,bj
./pkg/mdsio/mdsio_read_field.F 391 MDS_READ_FIELD 
        DO bj=1,nSy
./pkg/mdsio/mdsio_read_field.F 393 MDS_READ_FIELD 
          bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx )
./pkg/mdsio/mdsio_read_field.F 403 MDS_READ_FIELD 
           tBy = myYGlobalLo-1 + (bj-1)*sNy
./pkg/mdsio/mdsio_read_field.F 408 MDS_READ_FIELD 
             tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_read_field.F 454 MDS_READ_FIELD 
           jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_read_section.F 165 MDS_READ_SEC_XZ 
      DO bj=1,nSy
./pkg/mdsio/mdsio_read_section.F 170 MDS_READ_SEC_XZ 
         jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_read_section.F 203 MDS_READ_SEC_XZ 
         tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_read_section.F 216 MDS_READ_SEC_XZ 
            jG = (myYGlobalLo-1)/sNy + (bj-1)
./pkg/mdsio/mdsio_read_section.F 231 MDS_READ_SEC_XZ 
             CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 234 MDS_READ_SEC_XZ 
             CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 248 MDS_READ_SEC_XZ 
             CALL MDS_SEG8TORS_2D(sNx,oLx,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 251 MDS_READ_SEC_XZ 
             CALL MDS_SEG8TORL_2D(sNx,oLx,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 361 MDS_READ_SEC_YZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_read_section.F 443 MDS_READ_SEC_YZ 
      DO bj=1,nSy
./pkg/mdsio/mdsio_read_section.F 448 MDS_READ_SEC_YZ 
         jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_read_section.F 481 MDS_READ_SEC_YZ 
         tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_read_section.F 494 MDS_READ_SEC_YZ 
            jG = myYGlobalLo-1 + (bj-1)*sNy
./pkg/mdsio/mdsio_read_section.F 509 MDS_READ_SEC_YZ 
             CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 512 MDS_READ_SEC_YZ 
             CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 526 MDS_READ_SEC_YZ 
             CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 529 MDS_READ_SEC_YZ 
             CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.TRUE.,
./pkg/mdsio/mdsio_read_section.F 84 MDS_READ_SEC_XZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_read_whalos.F 90 MDS_READ_WHALOS 
      integer i,j,k,bi,bj,ii
./pkg/mdsio/mdsio_readvec_loc.F 144 MDS_READVEC_LOC 
        IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN
./pkg/mdsio/mdsio_readvec_loc.F 164 MDS_READVEC_LOC 
          jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_readvec_loc.F 16 MDS_READVEC_LOC 
     I   bi, bj,
./pkg/mdsio/mdsio_readvec_loc.F 67 MDS_READVEC_LOC 
      INTEGER bi,bj
./model/src/calc_grad_phi_surf.F 36 CALC_GRAD_PHI_SURF 
      INTEGER bi,bj,iMin,iMax,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 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) )
./model/src/calc_grad_phi_surf.F 9 CALC_GRAD_PHI_SURF 
      SUBROUTINE CALC_GRAD_PHI_SURF( bi, bj, iMin, iMax, jMin, jMax,
./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 )
./pkg/mdsio/mdsio_segxtorx_2d.F 115 MDS_SEG8TORL_2D 
      INTEGER sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_segxtorx_2d.F 125 MDS_SEG8TORL_2D 
        arr(ii,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_segxtorx_2d.F 129 MDS_SEG8TORL_2D 
        seg(ii)=arr(ii,k,bi,bj)
./pkg/mdsio/mdsio_segxtorx_2d.F 138 MDS_SEG8TORS_2D 
      SUBROUTINE MDS_SEG8TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/mdsio/mdsio_segxtorx_2d.F 156 MDS_SEG8TORS_2D 
      INTEGER sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_segxtorx_2d.F 15 MDS_SEG4TORL_2D 
      SUBROUTINE MDS_SEG4TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/mdsio/mdsio_segxtorx_2d.F 166 MDS_SEG8TORS_2D 
        arr(ii,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_segxtorx_2d.F 170 MDS_SEG8TORS_2D 
        seg(ii)=arr(ii,k,bi,bj)
./pkg/mdsio/mdsio_segxtorx_2d.F 33 MDS_SEG4TORL_2D 
      INTEGER sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_segxtorx_2d.F 43 MDS_SEG4TORL_2D 
        arr(ii,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_segxtorx_2d.F 47 MDS_SEG4TORL_2D 
        seg(ii)=arr(ii,k,bi,bj)
./pkg/mdsio/mdsio_segxtorx_2d.F 56 MDS_SEG4TORS_2D 
      SUBROUTINE MDS_SEG4TORS_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/mdsio/mdsio_segxtorx_2d.F 74 MDS_SEG4TORS_2D 
      INTEGER sn,ol,nNz,bi,bj,k
./pkg/mdsio/mdsio_segxtorx_2d.F 84 MDS_SEG4TORS_2D 
        arr(ii,k,bi,bj)=seg(ii)
./pkg/mdsio/mdsio_segxtorx_2d.F 88 MDS_SEG4TORS_2D 
        seg(ii)=arr(ii,k,bi,bj)
./pkg/mdsio/mdsio_segxtorx_2d.F 97 MDS_SEG8TORL_2D 
      SUBROUTINE MDS_SEG8TORL_2D(sn,ol,nNz,bi,bj,k,copyTo,seg,arr)
./pkg/mdsio/mdsio_wr_metafiles.F 157 MDS_WR_METAFILES 
        DO bj=1,nSy
./pkg/mdsio/mdsio_wr_metafiles.F 161 MDS_WR_METAFILES 
           jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_wr_metafiles.F 168 MDS_WR_METAFILES 
           tBy = myYGlobalLo-1 + (bj-1)*sNy
./pkg/mdsio/mdsio_wr_metafiles.F 173 MDS_WR_METAFILES 
             tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_wr_metafiles.F 97 MDS_WR_METAFILES 
      INTEGER iG,jG, bi,bj, IL,pIL
./pkg/mdsio/mdsio_write_field.F 127 MDS_WRITE_FIELD 
      INTEGER iG,jG,bi,bj
./pkg/mdsio/mdsio_write_field.F 441 MDS_WRITE_FIELD 
        DO bj=1,nSy
./pkg/mdsio/mdsio_write_field.F 443 MDS_WRITE_FIELD 
          bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx )
./pkg/mdsio/mdsio_write_field.F 449 MDS_WRITE_FIELD 
          tBy = myYGlobalLo-1 + (bj-1)*sNy
./pkg/mdsio/mdsio_write_field.F 452 MDS_WRITE_FIELD 
            tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_write_field.F 498 MDS_WRITE_FIELD 
           jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_write_field.F 532 MDS_WRITE_FIELD 
           jG=bj+(myYGlobalLo-1)/sNy
./model/src/calc_grid_angles.F 100 CALC_GRID_ANGLES 
     &             ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL )
./model/src/calc_grid_angles.F 102 CALC_GRID_ANGLES 
            u2zonDir(i,j,bi,bj) =  rSphere
./model/src/calc_grid_angles.F 103 CALC_GRID_ANGLES 
     &          *( SIN( yG(i,j+1,bi,bj)*deg2rad )
./model/src/calc_grid_angles.F 104 CALC_GRID_ANGLES 
     &           - SIN( yG(i, j, bi,bj)*deg2rad )
./model/src/calc_grid_angles.F 105 CALC_GRID_ANGLES 
     &           )* _dxC(i,j,bi,bj)/tmpVal
./model/src/calc_grid_angles.F 108 CALC_GRID_ANGLES 
            u2zonDir(i,j,bi,bj) = 1.
./model/src/calc_grid_angles.F 117 CALC_GRID_ANGLES 
          tmpVal = _rAs(i,j,bi,bj) * COS( deg2rad*
./model/src/calc_grid_angles.F 118 CALC_GRID_ANGLES 
     &             ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL )
./model/src/calc_grid_angles.F 120 CALC_GRID_ANGLES 
            v2zonDir(i,j,bi,bj) = -rSphere
./model/src/calc_grid_angles.F 121 CALC_GRID_ANGLES 
     &          *( SIN( yG(i+1,j,bi,bj)*deg2rad )
./model/src/calc_grid_angles.F 122 CALC_GRID_ANGLES 
     &           - SIN( yG(i,j,bi,bj)*deg2rad )
./model/src/calc_grid_angles.F 123 CALC_GRID_ANGLES 
     &           )* _dyC(i,j,bi,bj)/tmpVal
./model/src/calc_grid_angles.F 126 CALC_GRID_ANGLES 
            v2zonDir(i,j,bi,bj) = 0.
./model/src/calc_grid_angles.F 40 CALC_GRID_ANGLES 
      INTEGER bi, bj
./model/src/calc_grid_angles.F 49 CALC_GRID_ANGLES 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/calc_grid_angles.F 56 CALC_GRID_ANGLES 
          IF ( _dyG(i,j,bi,bj).GT.0. ) THEN
./model/src/calc_grid_angles.F 58 CALC_GRID_ANGLES 
     &         - ( yG(i,j,bi,bj) - yG(i,j+1,bi,bj) )*deg2rad
./model/src/calc_grid_angles.F 59 CALC_GRID_ANGLES 
     &         / _dyG(i,j,bi,bj)
./model/src/calc_grid_angles.F 63 CALC_GRID_ANGLES 
          u2zonDir(i,j,bi,bj) = rSphere*uPseudo(i,j)
./model/src/calc_grid_angles.F 68 CALC_GRID_ANGLES 
          IF ( _dxG(i,j,bi,bj).GT.0. ) THEN
./model/src/calc_grid_angles.F 70 CALC_GRID_ANGLES 
     &         + ( yG(i,j,bi,bj) - yG(i+1,j,bi,bj) )*deg2rad
./model/src/calc_grid_angles.F 71 CALC_GRID_ANGLES 
     &         / _dxG(i,j,bi,bj)
./model/src/calc_grid_angles.F 75 CALC_GRID_ANGLES 
          v2zonDir(i,j,bi,bj) = rSphere*vPseudo(i,j)
./model/src/calc_grid_angles.F 85 CALC_GRID_ANGLES 
           angleCosC(i,j,bi,bj) =  uC*uNorm
./model/src/calc_grid_angles.F 86 CALC_GRID_ANGLES 
           angleSinC(i,j,bi,bj) = -vC*uNorm
./model/src/calc_grid_angles.F 99 CALC_GRID_ANGLES 
          tmpVal = _rAw(i,j,bi,bj) * COS( deg2rad*
./pkg/mdsio/mdsio_write_section.F 151 MDS_WRITE_SEC_XZ 
      DO bj=1,nSy
./pkg/mdsio/mdsio_write_section.F 156 MDS_WRITE_SEC_XZ 
         jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_write_section.F 174 MDS_WRITE_SEC_XZ 
         tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_write_section.F 187 MDS_WRITE_SEC_XZ 
            jG = (myYGlobalLo-1)/sNy + (bj-1)
./pkg/mdsio/mdsio_write_section.F 198 MDS_WRITE_SEC_XZ 
             CALL MDS_SEG4TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 201 MDS_WRITE_SEC_XZ 
             CALL MDS_SEG4TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 215 MDS_WRITE_SEC_XZ 
             CALL MDS_SEG8TORS_2D( sNx,oLx,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 218 MDS_WRITE_SEC_XZ 
             CALL MDS_SEG8TORL_2D( sNx,oLx,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 345 MDS_WRITE_SEC_YZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_write_section.F 404 MDS_WRITE_SEC_YZ 
      DO bj=1,nSy
./pkg/mdsio/mdsio_write_section.F 409 MDS_WRITE_SEC_YZ 
         jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_write_section.F 427 MDS_WRITE_SEC_YZ 
         tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_write_section.F 440 MDS_WRITE_SEC_YZ 
            jG = myYGlobalLo-1 + (bj-1)*sNy
./pkg/mdsio/mdsio_write_section.F 451 MDS_WRITE_SEC_YZ 
             CALL MDS_SEG4TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 454 MDS_WRITE_SEC_YZ 
             CALL MDS_SEG4TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 468 MDS_WRITE_SEC_YZ 
             CALL MDS_SEG8TORS_2D( sNy,oLy,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 471 MDS_WRITE_SEC_YZ 
             CALL MDS_SEG8TORL_2D( sNy,oLy,kSize,bi,bj,k,.FALSE.,
./pkg/mdsio/mdsio_write_section.F 91 MDS_WRITE_SEC_XZ 
      INTEGER iG,jG,irec,bi,bj,k,dUnit,IL,pIL
./pkg/mdsio/mdsio_write_whalos.F 92 MDS_WRITE_WHALOS 
      integer i,j,k,bi,bj,ii
./pkg/mdsio/mdsio_writelocal.F 120 MDS_WRITELOCAL 
      INTEGER bi, bj
./pkg/mdsio/mdsio_writelocal.F 288 MDS_WRITELOCAL 
          bj = bjArg + myByLo(ith) - 1
./pkg/mdsio/mdsio_writelocal.F 290 MDS_WRITELOCAL 
          bBij = sNx*sNy*nNz*( bi-1 + (bj-1)*nSx )
./pkg/mdsio/mdsio_writelocal.F 304 MDS_WRITELOCAL 
          tBy = myYGlobalLo-1 + (bj-1)*sNy
./pkg/mdsio/mdsio_writelocal.F 307 MDS_WRITELOCAL 
            tN = W2_myTileList(bi,bj)
./pkg/mdsio/mdsio_writelocal.F 352 MDS_WRITELOCAL 
            jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_writelocal.F 386 MDS_WRITELOCAL 
           jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_writevec_loc.F 156 MDS_WRITEVEC_LOC 
          IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN
./pkg/mdsio/mdsio_writevec_loc.F 162 MDS_WRITEVEC_LOC 
            jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_writevec_loc.F 16 MDS_WRITEVEC_LOC 
     I   bi, bj,
./pkg/mdsio/mdsio_writevec_loc.F 216 MDS_WRITEVEC_LOC 
          IF ( bi.EQ.0 .AND. bj.EQ.0 ) THEN
./pkg/mdsio/mdsio_writevec_loc.F 228 MDS_WRITEVEC_LOC 
            jG=bj+(myYGlobalLo-1)/sNy
./pkg/mdsio/mdsio_writevec_loc.F 68 MDS_WRITEVEC_LOC 
      INTEGER bi,bj
./pkg/mdsio/mdsio_writevec_loc.F 96 MDS_WRITEVEC_LOC 
      IF ( myProcId.EQ.0 .OR. bi.NE.0 .OR. bj.NE.0 ) THEN
./model/src/calc_gw.F 154 CALC_GW 
           gW(i,j,k,bi,bj) = 0.
./model/src/calc_gw.F 15 CALC_GW 
     I               bi, bj, KappaRU, KappaRV,
./model/src/calc_gw.F 194 CALC_GW 
           IF ( maskC(i,j,k-1,bi,bj).EQ.0. .OR.
./model/src/calc_gw.F 195 CALC_GW 
     &          maskC(i,j, k ,bi,bj).EQ.0. ) THEN
./model/src/calc_gw.F 200 CALC_GW 
     &        (  MIN( Ro_surf(i,j,bi,bj),rC(k-1) )
./model/src/calc_gw.F 201 CALC_GW 
     &         - MAX( R_low(i,j,bi,bj),  rC(k)   )
./model/src/calc_gw.F 210 CALC_GW 
     &                           MIN( Ro_surf(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F 211 CALC_GW 
     &                          -MAX(   R_low(i,j,bi,bj),  rC(k)  )
./model/src/calc_gw.F 218 CALC_GW 
     &                           MIN( rSurfW(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F 219 CALC_GW 
     &                          -MAX(  rLowW(i,j,bi,bj), rC(k)   )
./model/src/calc_gw.F 222 CALC_GW 
           xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j)
./model/src/calc_gw.F 229 CALC_GW 
     &                           MIN( rSurfS(i,j,bi,bj), rC(k-1) )
./model/src/calc_gw.F 230 CALC_GW 
     &                          -MAX(  rLowS(i,j,bi,bj), rC(k)   )
./model/src/calc_gw.F 233 CALC_GW 
           yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j)
./model/src/calc_gw.F 244 CALC_GW 
           IF ( maskC(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/calc_gw.F 249 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 255 CALC_GW 
     &          drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 256 CALC_GW 
     &        + drF( k )*MIN( h0FacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 259 CALC_GW 
     &          drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 260 CALC_GW 
     &        + drF( k )*MIN( _hFacC(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 263 CALC_GW 
     &          drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 264 CALC_GW 
     &        + drF( k )*MIN( _hFacW(i,j,k  ,bi,bj), halfRS )
./model/src/calc_gw.F 266 CALC_GW 
     &          drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS )
./model/src/calc_gw.F 267 CALC_GW 
     &        + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS )
./model/src/calc_gw.F 269 CALC_GW 
           xA(i,j) = _dyG(i,j,bi,bj)*rThickC_W(i,j)
./model/src/calc_gw.F 272 CALC_GW 
           yA(i,j) = _dxG(i,j,bi,bj)*rThickC_S(i,j)
./model/src/calc_gw.F 296 CALC_GW 
            wFld(i,j) = wVel(i,j,k,bi,bj)
./model/src/calc_gw.F 308 CALC_GW 
     &                                 wFld, bi,bj, myThid )
./model/src/calc_gw.F 315 CALC_GW 
     &              *_recip_dxC(i,j,bi,bj)*xA(i,j)
./model/src/calc_gw.F 317 CALC_GW 
     &              *sqCosFacU(j,bi,bj)
./model/src/calc_gw.F 320 CALC_GW 
     &              *maskInW(i,j,bi,bj)
./model/src/calc_gw.F 329 CALC_GW 
     &                                 wFld, bi,bj, myThid )
./model/src/calc_gw.F 338 CALC_GW 
     &              *_recip_dyC(i,j,bi,bj)*yA(i,j)
./model/src/calc_gw.F 341 CALC_GW 
     &              *sqCosFacV(j,bi,bj)
./model/src/calc_gw.F 345 CALC_GW 
     &              *maskInS(i,j,bi,bj)
./model/src/calc_gw.F 356 CALC_GW 
     &                   )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 368 CALC_GW 
     &       - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F 369 CALC_GW 
     &              *(wVel(i,j,k,bi,bj)-wVel(i-1,j,k,bi,bj))
./model/src/calc_gw.F 370 CALC_GW 
     &              *_recip_dxC(i,j,bi,bj)*xA(i,j)
./model/src/calc_gw.F 371 CALC_GW 
     &              *cosFacU(j,bi,bj)
./model/src/calc_gw.F 372 CALC_GW 
     &       + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL
./model/src/calc_gw.F 374 CALC_GW 
     &              *_recip_dxC(i,j,bi,bj)*xA(i,j)
./model/src/calc_gw.F 376 CALC_GW 
     &              *sqCosFacU(j,bi,bj)
./model/src/calc_gw.F 378 CALC_GW 
     &              *cosFacU(j,bi,bj)
./model/src/calc_gw.F 386 CALC_GW 
     &       - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL
./model/src/calc_gw.F 387 CALC_GW 
     &              *(wVel(i,j,k,bi,bj)-wVel(i,j-1,k,bi,bj))
./model/src/calc_gw.F 388 CALC_GW 
     &              *_recip_dyC(i,j,bi,bj)*yA(i,j)
./model/src/calc_gw.F 390 CALC_GW 
     &              *cosFacV(j,bi,bj)
./model/src/calc_gw.F 392 CALC_GW 
     &       + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL
./model/src/calc_gw.F 394 CALC_GW 
     &              *_recip_dyC(i,j,bi,bj)*yA(i,j)
./model/src/calc_gw.F 397 CALC_GW 
     &              *sqCosFacV(j,bi,bj)
./model/src/calc_gw.F 399 CALC_GW 
     &              *cosFacV(j,bi,bj)
./model/src/calc_gw.F 414 CALC_GW 
     &          - viscLoc*( wVel(i,j,kp1,bi,bj)*mskP1
./model/src/calc_gw.F 415 CALC_GW 
     &                     -wVel(i,j, k ,bi,bj) )*rkSign
./model/src/calc_gw.F 416 CALC_GW 
     &                   *recip_drF(k)*rA(i,j,bi,bj)
./model/src/calc_gw.F 432 CALC_GW 
     &          - viscLoc*( wVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 433 CALC_GW 
     &                     -wVel(i,j,k-1,bi,bj) )*rkSign
./model/src/calc_gw.F 434 CALC_GW 
     &                   *recip_drF(k-1)*rA(i,j,bi,bj)
./model/src/calc_gw.F 450 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 461 CALC_GW 
     I               bi,bj,k,
./model/src/calc_gw.F 481 CALC_GW 
     I         iMin,iMax,jMin,jMax, k, bi, bj, myThid )
./model/src/calc_gw.F 500 CALC_GW 
     &          drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 502 CALC_GW 
     &        + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 504 CALC_GW 
     &                )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k)
./model/src/calc_gw.F 515 CALC_GW 
     &          drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj)
./model/src/calc_gw.F 517 CALC_GW 
     &         +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj)
./model/src/calc_gw.F 519 CALC_GW 
     &                )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k)
./model/src/calc_gw.F 532 CALC_GW 
     &              ( wVel(i,j, k ,bi,bj)*rVel2wUnit( k )
./model/src/calc_gw.F 533 CALC_GW 
     &               +wVel(i,j,kp1,bi,bj)*rVel2wUnit(kp1)*mskP1 )
./model/src/calc_gw.F 536 CALC_GW 
     &              ( wVel(i,j, k ,bi,bj)*deepFac2F( k )*rhoFacF( k )
./model/src/calc_gw.F 537 CALC_GW 
     &               +wVel(i,j,kp1,bi,bj)*deepFac2F(kp1)*rhoFacF(kp1)
./model/src/calc_gw.F 539 CALC_GW 
     &              )*rA(i,j,bi,bj)
./model/src/calc_gw.F 548 CALC_GW 
             tmp_WbarZ = wVel(i,j,k,bi,bj)*rVel2wUnit(k)
./model/src/calc_gw.F 549 CALC_GW 
             rTrans = wVel(i,j,k,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/calc_gw.F 550 CALC_GW 
     &               *rA(i,j,bi,bj)
./model/src/calc_gw.F 564 CALC_GW 
             gW(i,j,k,bi,bj) =
./model/src/calc_gw.F 568 CALC_GW 
     &         )*recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 576 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/calc_gw.F 577 CALC_GW 
     &        + wVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0
./model/src/calc_gw.F 578 CALC_GW 
     &          *( addMass(i,j,k,bi,bj)
./model/src/calc_gw.F 579 CALC_GW 
     &            +addMass(i,j,km1,bi,bj)*mskM1 )
./model/src/calc_gw.F 580 CALC_GW 
     &          *recip_rA(i,j,bi,bj)*recip_rThickC(i,j)
./model/src/calc_gw.F 58 CALC_GW 
      INTEGER bi,bj
./model/src/calc_gw.F 610 CALC_GW 
     I               bi,bj,k,
./model/src/calc_gw.F 616 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j)
./model/src/calc_gw.F 622 CALC_GW 
     I               bi,bj,k,
./model/src/calc_gw.F 628 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwAdd(i,j)
./model/src/calc_gw.F 638 CALC_GW 
     &                           k, 1, 2, bi,bj, myThid )
./model/src/calc_gw.F 645 CALC_GW 
     &                           k,Nr, 1, bi,bj, myThid )
./model/src/calc_gw.F 654 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j)
./model/src/calc_gw.F 663 CALC_GW 
     I                         bi, bj, k, Nr,
./model/src/calc_gw.F 664 CALC_GW 
     U                         gW(1-OLx,1-OLy,1,bi,bj), gwNm,
./model/src/calc_gw.F 669 CALC_GW 
     I                         bi, bj, k, Nr,
./model/src/calc_gw.F 670 CALC_GW 
     U                         gW(1-OLx,1-OLy,1,bi,bj),
./model/src/calc_gw.F 671 CALC_GW 
     U                         gwNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/calc_gw.F 677 CALC_GW 
          CALL DIAGNOSTICS_FILL(gw_AB,'AB_gW   ',k,1,2,bi,bj,myThid)
./model/src/calc_gw.F 685 CALC_GW 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)+gwDiss(i,j)
./model/src/calc_gw.F 695 CALC_GW 
        CALL DIAGNOSTICS_FILL(viscAh_W,'VISCAHW ',0,Nr,1,bi,bj,myThid)
./model/src/calc_gw.F 696 CALC_GW 
        CALL DIAGNOSTICS_FILL(viscA4_W,'VISCA4W ',0,Nr,1,bi,bj,myThid)
./pkg/mnc/mnc_cw_cvars.F 100 MNC_CW_WRITE_CVAR 
          rtmp(i) = xC(i,1,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 136 MNC_CW_WRITE_CVAR 
          rtmp(i) = xG(i,1,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 16 MNC_CW_WRITE_CVAR 
     I     bi, bj,
./pkg/mnc/mnc_cw_cvars.F 172 MNC_CW_WRITE_CVAR 
          rtmp(i) = xC(i,1,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 210 MNC_CW_WRITE_CVAR 
          rtmp(i) = yC(1,i,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 246 MNC_CW_WRITE_CVAR 
          rtmp(i) = yG(1,i,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 282 MNC_CW_WRITE_CVAR 
          rtmp(i) = yC(1,i-OLy,bi,bj)
./pkg/mnc/mnc_cw_cvars.F 41 MNC_CW_WRITE_CVAR 
      integer fid, did, bi,bj
./pkg/mnc/mnc_cw_cvars.F 68 MNC_CW_WRITE_CVAR 
      xtmin = exch2_tbasex(W2_myTileList(bi,bj))
./pkg/mnc/mnc_cw_cvars.F 69 MNC_CW_WRITE_CVAR 
      ytmin = exch2_tbasey(W2_myTileList(bi,bj))
./pkg/mnc/mnc_cw_cvars.F 77 MNC_CW_WRITE_CVAR 
       ytmin = sNy * ( bj+(myYGlobalLo-1)/sNy - 1 )
./pkg/mnc/mnc_cw_model_attr.F 13 MNC_CW_SET_GATTR 
     I     bi, bj, tnum,
./pkg/mnc/mnc_cw_model_attr.F 36 MNC_CW_SET_GATTR 
      integer myThid, bi,bj, tnum
./pkg/mnc/mnc_cw_model_attr.F 83 MNC_CW_SET_GATTR 
      CALL MNC_FILE_ADD_ATTR_INT(fname,'bj', 1, bj, myThid)
./pkg/mnc/mnc_cwrapper.F 606 MNC_CW_GET_TILE_NUM 
     I     bi, bj,
./pkg/mnc/mnc_cwrapper.F 622 MNC_CW_GET_TILE_NUM 
      integer myThid, bi,bj, uniq_tnum
./pkg/mnc/mnc_cwrapper.F 633 MNC_CW_GET_TILE_NUM 
      uniq_tnum = W2_myTileList(bi,bj)
./pkg/mnc/mnc_cwrapper.F 639 MNC_CW_GET_TILE_NUM 
      jG = bj+(myYGlobalLo-1)/sNy
./pkg/mnc/mnc_cwrapper.F 656 MNC_CW_GET_FACE_NUM 
     I     bi, bj,
./pkg/mnc/mnc_cwrapper.F 672 MNC_CW_GET_FACE_NUM 
      integer myThid, bi,bj, uniq_fnum
./pkg/mnc/mnc_cwrapper.F 677 MNC_CW_GET_FACE_NUM 
      uniq_fnum = exch2_myFace( W2_myTileList(bi,bj) )
./pkg/mnc/mnc_cwrapper.F 695 MNC_CW_GET_XYFO 
     I     bi, bj,
./pkg/mnc/mnc_cwrapper.F 711 MNC_CW_GET_XYFO 
      integer myThid, bi,bj, ixoff,iyoff
./pkg/mnc/mnc_cwrapper.F 721 MNC_CW_GET_XYFO 
      uniq_tnum = W2_myTileList(bi,bj)
./pkg/mnc/mnc_cwrapper.F 732 MNC_CW_GET_XYFO 
      iyoff = myYGlobalLo + bj * sNy
./pkg/mnc/mnc_dim.F 154 MNC_DIM_INIT_ALL_CV 
     &         mnc_f_info(indf,2), idd, bi, bj, myThid)
./pkg/mnc/mnc_dim.F 69 MNC_DIM_INIT_ALL_CV 
     I     bi,bj,
./pkg/mnc/mnc_dim.F 82 MNC_DIM_INIT_ALL_CV 
      integer myThid, dlen, bi,bj
./model/src/calc_ivdc.F 35 CALC_IVDC 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,K
./model/src/calc_ivdc.F 51 CALC_IVDC 
          IVDConvCount(i,j,k,bi,bj) = 1. _d 0
./model/src/calc_ivdc.F 53 CALC_IVDC 
          IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./model/src/calc_ivdc.F 9 CALC_IVDC 
     I       bi, bj, iMin, iMax, jMin, jMax, K,
./pkg/mom_common/mom_calc_3d_strain.F 103 MOM_CALC_3D_STRAIN 
     &    *( maskp1*wVel( i , j ,kp1,bi,bj)-wVel( i , j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 111 MOM_CALC_3D_STRAIN 
     &      recip_dyU(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 112 MOM_CALC_3D_STRAIN 
     &           *( uVel( i , j , k ,bi,bj)-uVel( i ,j-1, k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 113 MOM_CALC_3D_STRAIN 
     &     +recip_dxV(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 114 MOM_CALC_3D_STRAIN 
     &           *( vVel( i , j , k ,bi,bj)-vVel(i-1, j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 133 MOM_CALC_3D_STRAIN 
     &           *( uVel( i , j , k ,bi,bj)*twoRL )
./pkg/mom_common/mom_calc_3d_strain.F 134 MOM_CALC_3D_STRAIN 
     &     +recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 135 MOM_CALC_3D_STRAIN 
     &           *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 13 MOM_CALC_3D_STRAIN 
     I        bi, bj, myThid )
./pkg/mom_common/mom_calc_3d_strain.F 143 MOM_CALC_3D_STRAIN 
     &           *( vVel( i , j , k ,bi,bj)*twoRL )
./pkg/mom_common/mom_calc_3d_strain.F 144 MOM_CALC_3D_STRAIN 
     &     +recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 145 MOM_CALC_3D_STRAIN 
     &           *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 155 MOM_CALC_3D_STRAIN 
     &           *( uVel( i , j , k ,bi,bj)-uVel( i , j ,k-1 ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 156 MOM_CALC_3D_STRAIN 
     &     +recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 157 MOM_CALC_3D_STRAIN 
     &           *( wVel( i , j , k ,bi,bj)-wVel(i-1, j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 166 MOM_CALC_3D_STRAIN 
     &           *( vVel( i , j , k ,bi,bj)-vVel( i , j ,k-1,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 167 MOM_CALC_3D_STRAIN 
     &     +recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 168 MOM_CALC_3D_STRAIN 
     &           *( wVel( i , j , k ,bi,bj)-wVel( i ,j-1, k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 178 MOM_CALC_3D_STRAIN 
     &                  *maskW(i,j-1,k,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 185 MOM_CALC_3D_STRAIN 
     &                  *maskW(i,j,k-1,bi,bj)*maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 191 MOM_CALC_3D_STRAIN 
     &                  *maskS(i,j,k-1,bi,bj)*maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 218 MOM_CALC_3D_STRAIN 
     &            *( 0. _d 0 - uVel( i , j ,k-1 ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 228 MOM_CALC_3D_STRAIN 
     &            *( 0. _d 0 - vVel( i , j ,k-1,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 31 MOM_CALC_3D_STRAIN 
      INTEGER bi, bj
./pkg/mom_common/mom_calc_3d_strain.F 86 MOM_CALC_3D_STRAIN 
          str11(i,j,k) = recip_dxF(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 87 MOM_CALC_3D_STRAIN 
     &           *( uVel(i+1, j , k ,bi,bj)-uVel( i , j , k ,bi,bj) )
./pkg/mom_common/mom_calc_3d_strain.F 94 MOM_CALC_3D_STRAIN 
          str22(i,j,k) = recip_dyF(i,j,bi,bj)
./pkg/mom_common/mom_calc_3d_strain.F 95 MOM_CALC_3D_STRAIN 
     &           *( vVel( i ,j+1, k ,bi,bj)-vVel( i , j , k ,bi,bj) )
./model/src/calc_oce_mxlayer.F 105 CALC_OCE_MXLAYER 
           hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj)
./model/src/calc_oce_mxlayer.F 112 CALC_OCE_MXLAYER 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/calc_oce_mxlayer.F 114 CALC_OCE_MXLAYER 
     I        k, bi, bj, myThid )
./model/src/calc_oce_mxlayer.F 118 CALC_OCE_MXLAYER 
           IF ( k.LE.klowC(i,j,bi,bj) .AND.
./model/src/calc_oce_mxlayer.F 126 CALC_OCE_MXLAYER 
             hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k)
./model/src/calc_oce_mxlayer.F 12 CALC_OCE_MXLAYER 
     I                       bi, bj, myTime, myIter, myThid )
./model/src/calc_oce_mxlayer.F 145 CALC_OCE_MXLAYER 
           IF ( klowC(i,j,bi,bj) .GT. 0 ) THEN
./model/src/calc_oce_mxlayer.F 146 CALC_OCE_MXLAYER 
            hMixLayer(i,j,bi,bj) = drF(1)
./model/src/calc_oce_mxlayer.F 149 CALC_OCE_MXLAYER 
            hMixLayer(i,j,bi,bj) = rF(1)
./model/src/calc_oce_mxlayer.F 158 CALC_OCE_MXLAYER 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/calc_oce_mxlayer.F 160 CALC_OCE_MXLAYER 
     I        k, bi, bj, myThid )
./model/src/calc_oce_mxlayer.F 164 CALC_OCE_MXLAYER 
           IF ( k.LT.klowC(i,j,bi,bj)
./model/src/calc_oce_mxlayer.F 178 CALC_OCE_MXLAYER 
               hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1)
./model/src/calc_oce_mxlayer.F 195 CALC_OCE_MXLAYER 
            rhoLoc(i,j)=(hMixSmooth *   hMixLayer(i,j,bi,bj)   +
./model/src/calc_oce_mxlayer.F 196 CALC_OCE_MXLAYER 
     &                       tmpFac * ( hMixLayer(i-1,j,bi,bj) +
./model/src/calc_oce_mxlayer.F 197 CALC_OCE_MXLAYER 
     &                                  hMixLayer(i+1,j,bi,bj) +
./model/src/calc_oce_mxlayer.F 198 CALC_OCE_MXLAYER 
     &                                  hMixLayer(i,j-1,bi,bj) +
./model/src/calc_oce_mxlayer.F 199 CALC_OCE_MXLAYER 
     &                                  hMixLayer(i,j+1,bi,bj) )
./model/src/calc_oce_mxlayer.F 202 CALC_OCE_MXLAYER 
     &                       tmpFac * ( maskC(i-1,j,1,bi,bj) +
./model/src/calc_oce_mxlayer.F 203 CALC_OCE_MXLAYER 
     &                                  maskC(i+1,j,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,1,bi,bj) )
./model/src/calc_oce_mxlayer.F 206 CALC_OCE_MXLAYER 
     &                  ) * maskC(i,j,1,bi,bj)
./model/src/calc_oce_mxlayer.F 211 CALC_OCE_MXLAYER 
            hMixLayer(i,j,bi,bj) = rhoLoc(i,j)
./model/src/calc_oce_mxlayer.F 219 CALC_OCE_MXLAYER 
     &                         0, 1, 1, bi, bj, myThid )
./model/src/calc_oce_mxlayer.F 42 CALC_OCE_MXLAYER 
      INTEGER bi, bj
./model/src/calc_oce_mxlayer.F 97 CALC_OCE_MXLAYER 
     I            bi, bj, 1-OLx, sNx+OLx, 1-OLy, sNy+OLy, 1, 1,
./pkg/mom_common/mom_calc_absvort3.F 24 MOM_CALC_ABSVORT3 
      INTEGER bi,bj,k
./pkg/mom_common/mom_calc_absvort3.F 47 MOM_CALC_ABSVORT3 
     &      fCoriG(i,j,bi,bj)*useCoriolisFac
./pkg/mom_common/mom_calc_absvort3.F 7 MOM_CALC_ABSVORT3 
     I        bi,bj,k,
./pkg/mom_common/mom_calc_hdiv.F 24 MOM_CALC_HDIV 
      INTEGER bi,bj,k,hDivScheme
./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 43 MOM_CALC_HDIV 
     &             )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 45 MOM_CALC_HDIV 
     &              *maskInC(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 56 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 57 MOM_CALC_HDIV 
     &       -uFld( i , j )*dyG( i , j ,bi,bj)*hFacW( i , j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hdiv.F 58 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 59 MOM_CALC_HDIV 
     &       -vFld( i , j )*dxG( i , j ,bi,bj)*hFacS( i , j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hdiv.F 60 MOM_CALC_HDIV 
     &    )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 61 MOM_CALC_HDIV 
     &     *_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 63 MOM_CALC_HDIV 
     &     *maskInC(i,j,bi,bj)
./pkg/mom_common/mom_calc_hdiv.F 7 MOM_CALC_HDIV 
     I        bi,bj,k, hDivScheme,
./pkg/mom_common/mom_calc_hfacz.F 119 MOM_CALC_HFACZ 
     &       SMOOTHMIN_RS(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 121 MOM_CALC_HFACZ 
     &                MIN(_hFacW(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 123 MOM_CALC_HFACZ 
     &                    _hFacW(i  ,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 124 MOM_CALC_HFACZ 
     &       *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 127 MOM_CALC_HFACZ 
     &       SMOOTHMIN_RS(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 129 MOM_CALC_HFACZ 
     &                MIN(_hFacS(i  ,j  ,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 131 MOM_CALC_HFACZ 
     &                    _hFacS(i-1,j  ,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 132 MOM_CALC_HFACZ 
     &         *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 147 MOM_CALC_HFACZ 
     &         *maskW(i,j,k,bi,bj)*maskW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 148 MOM_CALC_HFACZ 
     &         *maskS(i,j,k,bi,bj)*maskS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 14 MOM_CALC_HFACZ 
     I        bi, bj, k,
./pkg/mom_common/mom_calc_hfacz.F 198 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 199 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 200 MOM_CALC_HFACZ 
     &             + ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 201 MOM_CALC_HFACZ 
     &                +_hFacS(i-1,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 216 MOM_CALC_HFACZ 
     &                  _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 217 MOM_CALC_HFACZ 
     &                + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 218 MOM_CALC_HFACZ 
     &                , _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 219 MOM_CALC_HFACZ 
     &                + _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 227 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 228 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 229 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 230 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 241 MOM_CALC_HFACZ 
        myTile = W2_myTileList(bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 263 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 264 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 265 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 270 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 271 MOM_CALC_HFACZ 
     &                +_hFacS( i ,j,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 272 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 275 MOM_CALC_HFACZ 
     &               ( _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 276 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 277 MOM_CALC_HFACZ 
     &               + _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 288 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 289 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 290 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 295 MOM_CALC_HFACZ 
     &               ( _hFacS(i-1,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 296 MOM_CALC_HFACZ 
     &                +_hFacW(i,j-1,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 297 MOM_CALC_HFACZ 
     &               + _hFacW(i, 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 302 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,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 307 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 318 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 319 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 320 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 325 MOM_CALC_HFACZ 
     &               ( _hFacS( i ,j,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 326 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 327 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,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 332 MOM_CALC_HFACZ 
     &               + _hFacS( 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 337 MOM_CALC_HFACZ 
     &               + _hFacW(i, j ,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 347 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacW(i,j,k,bi,bj),
./pkg/mom_common/mom_calc_hfacz.F 348 MOM_CALC_HFACZ 
     &                  _hFacW(i,j-1,k,bi,bj))
./pkg/mom_common/mom_calc_hfacz.F 349 MOM_CALC_HFACZ 
          hFacZOpen=MIN(_hFacS(i-1,j,k,bi,bj),hFacZOpen)
./pkg/mom_common/mom_calc_hfacz.F 354 MOM_CALC_HFACZ 
     &               ( _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 355 MOM_CALC_HFACZ 
     &                +_hFacW(i, j ,k,bi,bj) )
./pkg/mom_common/mom_calc_hfacz.F 356 MOM_CALC_HFACZ 
     &               + _hFacS(i-1,j,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 361 MOM_CALC_HFACZ 
     &               + _hFacW(i,j-1,k,bi,bj)
./pkg/mom_common/mom_calc_hfacz.F 43 MOM_CALC_HFACZ 
      INTEGER bi, bj, k
./pkg/mom_common/mom_calc_hfacz.F 90 MOM_CALC_HFACZ 
          act2 = bj - myByLo(myThid)
./pkg/mom_common/mom_calc_ke.F 100 MOM_CALC_KE 
     &                  )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 110 MOM_CALC_KE 
     &           ( uFld( i , j )*uFld( i , j )*_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 111 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 112 MOM_CALC_KE 
     &         + ( vFld( i , j )*vFld( i , j )*_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 113 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 114 MOM_CALC_KE 
     &            )*_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 11 MOM_CALC_KE 
     I        bi,bj,k,KEscheme,
./pkg/mom_common/mom_calc_ke.F 125 MOM_CALC_KE 
     &        *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 127 MOM_CALC_KE 
     &        *_hFacW(i+1,j,k,bi,bj)*rAw(i+1,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 131 MOM_CALC_KE 
     &        *_hFacS(i, j, k,bi,bj)*rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 133 MOM_CALC_KE 
     &        *_hFacS(i,j+1,k,bi,bj)*rAs(i,j+1,bi,bj)
./pkg/mom_common/mom_calc_ke.F 134 MOM_CALC_KE 
     &           )      )*_recip_hFacC(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_ke.F 135 MOM_CALC_KE 
     &                   * recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_ke.F 35 MOM_CALC_KE 
      INTEGER bi,bj,k
./pkg/mom_common/mom_calc_ke.F 96 MOM_CALC_KE 
     &           ( uFld(i, j )*uFld(i, j )*rAw(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 97 MOM_CALC_KE 
     &            +uFld(i+1,j)*uFld(i+1,j)*rAw(i+1,j,bi,bj) )
./pkg/mom_common/mom_calc_ke.F 98 MOM_CALC_KE 
     &         + ( vFld(i, j )*vFld(i, j )*rAs(i ,j, bi,bj)
./pkg/mom_common/mom_calc_ke.F 99 MOM_CALC_KE 
     &            +vFld(i,j+1)*vFld(i,j+1)*rAs(i,j+1,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 118 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 119 MOM_CALC_RELVORT3 
     &      ( vFld(I,J)*dyC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 120 MOM_CALC_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 121 MOM_CALC_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 132 MOM_CALC_RELVORT3 
     &      recip_rAz(I-1,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 133 MOM_CALC_RELVORT3 
     &      vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 134 MOM_CALC_RELVORT3 
     &     -vFld(I-2,J)*dyC(I-2,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 135 MOM_CALC_RELVORT3 
     &     -uFld(I-1,J)*dxC(I-1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 136 MOM_CALC_RELVORT3 
     &     +vFld(I+0,J-1)*dyC(I+0,J-1,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 160 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 161 MOM_CALC_RELVORT3 
     &      (-uFld(I,J)*dxC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 162 MOM_CALC_RELVORT3 
     &       -vFld(I-1,J)*dyC(I-1,J,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 163 MOM_CALC_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 167 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 168 MOM_CALC_RELVORT3 
     &      (-vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 169 MOM_CALC_RELVORT3 
     &       +uFld(I,J-1)*dxC(I,J-1,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 170 MOM_CALC_RELVORT3 
     &      - uFld(I,J)*dxC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 174 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 175 MOM_CALC_RELVORT3 
     &      (+uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 176 MOM_CALC_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)     )
./pkg/mom_common/mom_calc_relvort3.F 177 MOM_CALC_RELVORT3 
     &      - vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 189 MOM_CALC_RELVORT3 
     &      recip_rAz(I+1,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 190 MOM_CALC_RELVORT3 
     &      vFld(I+1,J)*dyC(I+1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 191 MOM_CALC_RELVORT3 
     &     -vFld(I-0,J)*dyC(I-0,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 192 MOM_CALC_RELVORT3 
     &     -uFld(I+1,J)*dxC(I+1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 193 MOM_CALC_RELVORT3 
     &     -vFld(I-1,J-1)*dyC(I-1,J-1,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 217 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 218 MOM_CALC_RELVORT3 
     &      (+uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 219 MOM_CALC_RELVORT3 
     &       +vFld(I,J)*dyC(I,J,bi,bj)     )
./pkg/mom_common/mom_calc_relvort3.F 220 MOM_CALC_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 224 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 225 MOM_CALC_RELVORT3 
     &      (-uFld(I,J)*dxC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 226 MOM_CALC_RELVORT3 
     &       +uFld(I,J-1)*dxC(I,J-1,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 227 MOM_CALC_RELVORT3 
     &      + vFld(I,J)*dyC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 231 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 232 MOM_CALC_RELVORT3 
     &      (+vFld(I,J)*dyC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 233 MOM_CALC_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)     )
./pkg/mom_common/mom_calc_relvort3.F 234 MOM_CALC_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 246 MOM_CALC_RELVORT3 
     &      recip_rAz(I-1,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 247 MOM_CALC_RELVORT3 
     &      vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 248 MOM_CALC_RELVORT3 
     &     -vFld(I-2,J)*dyC(I-2,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 249 MOM_CALC_RELVORT3 
     &     +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 250 MOM_CALC_RELVORT3 
     &     +uFld(I-1,J-1)*dxC(I-1,J-1,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 274 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 275 MOM_CALC_RELVORT3 
     &      (-uFld(I,J)*dxC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 276 MOM_CALC_RELVORT3 
     &       -vFld(I-1,J)*dyC(I-1,J,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 277 MOM_CALC_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 281 MOM_CALC_RELVORT3 
     &     +recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 282 MOM_CALC_RELVORT3 
     &      (+uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 283 MOM_CALC_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)     )
./pkg/mom_common/mom_calc_relvort3.F 284 MOM_CALC_RELVORT3 
     &      - vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 296 MOM_CALC_RELVORT3 
     &      recip_rAz(I+1,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 297 MOM_CALC_RELVORT3 
     &      vFld(I+1,J)*dyC(I+1,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 298 MOM_CALC_RELVORT3 
     &     -vFld(I-0,J)*dyC(I-0,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 299 MOM_CALC_RELVORT3 
     &     -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 29 MOM_CALC_RELVORT3 
      INTEGER bi,bj,k
./pkg/mom_common/mom_calc_relvort3.F 300 MOM_CALC_RELVORT3 
     &     +uFld(I+1,J-1)*dxC(I+1,J-1,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 58 MOM_CALC_RELVORT3 
     &      recip_rAz(I,J,bi,bj)*(
./pkg/mom_common/mom_calc_relvort3.F 59 MOM_CALC_RELVORT3 
     &      ( vFld(I,J)*dyC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 60 MOM_CALC_RELVORT3 
     &       -vFld(I-1,J)*dyC(I-1,J,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 61 MOM_CALC_RELVORT3 
     &     -( uFld(I,J)*dxC(I,J,bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 62 MOM_CALC_RELVORT3 
     &       -uFld(I,J-1)*dxC(I,J-1,bi,bj) )
./pkg/mom_common/mom_calc_relvort3.F 85 MOM_CALC_RELVORT3 
       myTile = W2_myTileList(bi,bj)
./pkg/mom_common/mom_calc_relvort3.F 8 MOM_CALC_RELVORT3 
     I        bi,bj,k,
./pkg/mom_common/mom_calc_smag_3d.F 130 MOM_CALC_SMAG_3D 
     &    smag3D_hLsC(i,j,bi,bj)*tmpFac*SQRT(
./pkg/mom_common/mom_calc_smag_3d.F 147 MOM_CALC_SMAG_3D 
     &    smag3D_hLsZ(i,j,bi,bj)*tmpFac*SQRT(
./pkg/mom_common/mom_calc_smag_3d.F 16 MOM_CALC_SMAG_3D 
     I        k, bi, bj, myThid )
./pkg/mom_common/mom_calc_smag_3d.F 182 MOM_CALC_SMAG_3D 
     &    smag3D_hLsW(i,j,bi,bj)*tmpFac*SQRT(
./pkg/mom_common/mom_calc_smag_3d.F 199 MOM_CALC_SMAG_3D 
     &    smag3D_hLsS(i,j,bi,bj)*tmpFac*SQRT(
./pkg/mom_common/mom_calc_smag_3d.F 57 MOM_CALC_SMAG_3D 
      INTEGER k, bi, bj
./pkg/mom_common/mom_calc_strain.F 11 MOM_CALC_STRAIN 
     I        bi,bj,k,
./pkg/mom_common/mom_calc_strain.F 38 MOM_CALC_STRAIN 
      INTEGER bi,bj,k
./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 11 MOM_CALC_TENSION 
     I        bi,bj,k,
./pkg/mom_common/mom_calc_tension.F 35 MOM_CALC_TENSION 
      INTEGER bi,bj,k
./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 )
./pkg/mom_common/mom_calc_tension.F 59 MOM_CALC_TENSION 
     &    )*recip_rA(i,j,bi,bj)
./pkg/mom_common/mom_calc_tension.F 61 MOM_CALC_TENSION 
     &     *maskInC(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 149 MOM_CALC_VISC 
          act2 = bj - myByLo(myThid)
./pkg/mom_common/mom_calc_visc.F 15 MOM_CALC_VISC 
     I        bi,bj,k,
./pkg/mom_common/mom_calc_visc.F 261 MOM_CALC_VISC 
     &                                hDiv, bi,bj, myThid )
./pkg/mom_common/mom_calc_visc.F 265 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 273 MOM_CALC_VISC 
     &                                hDiv, bi,bj, myThid )
./pkg/mom_common/mom_calc_visc.F 277 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 286 MOM_CALC_VISC 
     &                  *recip_dxG(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 287 MOM_CALC_VISC 
     &                  *maskS(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 289 MOM_CALC_VISC 
     &                  *maskInS(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 297 MOM_CALC_VISC 
     &                  *recip_dyG(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 298 MOM_CALC_VISC 
     &                  *maskW(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 300 MOM_CALC_VISC 
     &                  *maskInW(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 324 MOM_CALC_VISC 
         L2 = L2_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 326 MOM_CALC_VISC 
         L3 = L3_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 327 MOM_CALC_VISC 
         L4rdt = L4rdt_D(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 406 MOM_CALC_VISC 
     &          +viscAhDfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 420 MOM_CALC_VISC 
     &          +viscA4Dfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 432 MOM_CALC_VISC 
         L2 = L2_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 434 MOM_CALC_VISC 
         L3 = L3_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 435 MOM_CALC_VISC 
         L4rdt = L4rdt_Z(i,j,bi,bj)
./pkg/mom_common/mom_calc_visc.F 514 MOM_CALC_VISC 
     &          +viscAhZfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 525 MOM_CALC_VISC 
     &          +viscA4Zfld(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 542 MOM_CALC_VISC 
            viscAh_W(i,j,k+1,bi,bj) = halfRL*viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 543 MOM_CALC_VISC 
            viscA4_W(i,j,k+1,bi,bj) = halfRL*viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 554 MOM_CALC_VISC 
            viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_D(i,j)
./pkg/mom_common/mom_calc_visc.F 555 MOM_CALC_VISC 
            viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_D(i,j)
./pkg/mom_common/mom_calc_visc.F 562 MOM_CALC_VISC 
            viscAh_W(i,j,k,bi,bj) = shiftAh + viscAh_W(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 564 MOM_CALC_VISC 
            viscA4_W(i,j,k,bi,bj) = shiftA4 + viscA4_W(i,j,k,bi,bj)
./pkg/mom_common/mom_calc_visc.F 588 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_D,'VISCAHD ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 589 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_D,'VISCA4D ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 590 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_Z,'VISCAHZ ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 591 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_Z,'VISCA4Z ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 593 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_DMax,'VAHDMAX ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 594 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_DMax,'VA4DMAX ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 595 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_ZMax,'VAHZMAX ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 596 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_ZMax,'VA4ZMAX ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 598 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_DMin,'VAHDMIN ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 599 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_DMin,'VA4DMIN ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 600 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_ZMin,'VAHZMIN ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 601 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_ZMin,'VA4ZMIN ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 603 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_DLth,'VAHDLTH ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 604 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_DLth,'VA4DLTH ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 605 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_ZLth,'VAHZLTH ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 606 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_ZLth,'VA4ZLTH ',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 609 MOM_CALC_VISC 
     &                       k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 611 MOM_CALC_VISC 
     &                       k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 613 MOM_CALC_VISC 
     &                       k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 615 MOM_CALC_VISC 
     &                       k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 617 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_DSmg,'VAHDSMAG',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 618 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_DSmg,'VA4DSMAG',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 619 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscAh_ZSmg,'VAHZSMAG',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 620 MOM_CALC_VISC 
       CALL DIAGNOSTICS_FILL(viscA4_ZSmg,'VA4ZSMAG',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_calc_visc.F 91 MOM_CALC_VISC 
      INTEGER bi,bj,k
./model/src/calc_phi_hyd.F 123 CALC_PHI_HYD 
          act2 = bj - myByLo(myThid)
./model/src/calc_phi_hyd.F 14 CALC_PHI_HYD 
     I                         bi, bj, iMin, iMax, jMin, jMax, k,
./model/src/calc_phi_hyd.F 167 CALC_PHI_HYD 
     I              tFld(1-OLx,1-OLy,k,bi,bj),
./model/src/calc_phi_hyd.F 168 CALC_PHI_HYD 
     I              sFld(1-OLx,1-OLy,k,bi,bj),
./model/src/calc_phi_hyd.F 170 CALC_PHI_HYD 
     I              k, bi, bj, myThid )
./model/src/calc_phi_hyd.F 174 CALC_PHI_HYD 
             alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 188 CALC_PHI_HYD 
           IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0
./model/src/calc_phi_hyd.F 194 CALC_PHI_HYD 
           alphaRho(i,j) = alphaRho(i,j)*maskC(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 203 CALC_PHI_HYD 
         CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid)
./model/src/calc_phi_hyd.F 212 CALC_PHI_HYD 
              phiHydF(i,j) = surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 240 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 241 CALC_PHI_HYD 
            ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 243 CALC_PHI_HYD 
            ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 283 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 284 CALC_PHI_HYD 
            ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 286 CALC_PHI_HYD 
            ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 324 CALC_PHI_HYD 
     I              tFld(1-OLx,1-OLy,k,bi,bj),
./model/src/calc_phi_hyd.F 325 CALC_PHI_HYD 
     I              sFld(1-OLx,1-OLy,k,bi,bj),
./model/src/calc_phi_hyd.F 327 CALC_PHI_HYD 
     I              k, bi, bj, myThid )
./model/src/calc_phi_hyd.F 335 CALC_PHI_HYD 
             alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 344 CALC_PHI_HYD 
            alphaRho(i,j)=maskC(i,j,k,bi,bj)*
./model/src/calc_phi_hyd.F 352 CALC_PHI_HYD 
         CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid)
./model/src/calc_phi_hyd.F 368 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 369 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 371 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 407 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 408 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 410 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 442 CALC_PHI_HYD 
            alphaRho(i,j) = ( tFld(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 443 CALC_PHI_HYD 
     &                        *( sFld(i,j,k,bi,bj)*atm_Rq + oneRL )
./model/src/calc_phi_hyd.F 444 CALC_PHI_HYD 
     &                      - thetaRef )*maskC(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 450 CALC_PHI_HYD 
             alphaRho(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/calc_phi_hyd.F 458 CALC_PHI_HYD 
         CALL MOM_QUASIHYDROSTATIC(bi,bj,k,uVel,vVel,alphaRho,myThid)
./model/src/calc_phi_hyd.F 471 CALC_PHI_HYD 
           locDepth = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./model/src/calc_phi_hyd.F 473 CALC_PHI_HYD 
           locDepth = locDepth + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 476 CALC_PHI_HYD 
     &           ( R_low(i,j,bi,bj) + aHybSigmF( k )*fullDepth
./model/src/calc_phi_hyd.F 480 CALC_PHI_HYD 
     &           ( R_low(i,j,bi,bj) + aHybSigmC( k )*fullDepth
./model/src/calc_phi_hyd.F 484 CALC_PHI_HYD 
     &           ( R_low(i,j,bi,bj)+ aHybSigmF(k+1)*fullDepth
./model/src/calc_phi_hyd.F 546 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 547 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 549 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 590 CALC_PHI_HYD 
           IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/calc_phi_hyd.F 591 CALC_PHI_HYD 
             ddRloc = Ro_surf(i,j,bi,bj)-rC(k)
./model/src/calc_phi_hyd.F 593 CALC_PHI_HYD 
             ddRloc = ddRloc + surfPhiFac*etaH(i,j,bi,bj)
./model/src/calc_phi_hyd.F 621 CALC_PHI_HYD 
     I                         k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/calc_phi_hyd.F 636 CALC_PHI_HYD 
     I                         k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/calc_phi_hyd.F 657 CALC_PHI_HYD 
     I                      k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/calc_phi_hyd.F 664 CALC_PHI_HYD 
     I                      k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/calc_phi_hyd.F 68 CALC_PHI_HYD 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,k
./pkg/mom_common/mom_hdissip.F 27 MOM_HDISSIP 
      INTEGER bi,bj,k
./pkg/mom_common/mom_hdissip.F 49 MOM_HDISSIP 
     &    recip_dyG(i,j,bi,bj)*recip_dyG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 50 MOM_HDISSIP 
     &    *recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 52 MOM_HDISSIP 
     &       dyF( i , j ,bi,bj)*dyF( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 54 MOM_HDISSIP 
     &      -dyF(i-1, j ,bi,bj)*dyF(i-1, j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 57 MOM_HDISSIP 
     &    +recip_dxC(i,j,bi,bj)*recip_dxC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 58 MOM_HDISSIP 
     &    *recip_dyG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 60 MOM_HDISSIP 
     &       dxV( i ,j+1,bi,bj)*dxV( i ,j+1,bi,bj)
./pkg/mom_common/mom_hdissip.F 62 MOM_HDISSIP 
     &      -dxV( i , j ,bi,bj)*dxV( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 67 MOM_HDISSIP 
     &    recip_dyC(i,j,bi,bj)*recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 68 MOM_HDISSIP 
     &    *recip_dxG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 70 MOM_HDISSIP 
     &       dyU(i+1, j ,bi,bj)*dyU(i+1, j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 72 MOM_HDISSIP 
     &      -dyU( i , j ,bi,bj)*dyU( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 75 MOM_HDISSIP 
     &    -recip_dxG(i,j,bi,bj)*recip_dxG(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 76 MOM_HDISSIP 
     &    *recip_dyC(i,j,bi,bj)
./pkg/mom_common/mom_hdissip.F 78 MOM_HDISSIP 
     &       dxF( i , j ,bi,bj)*dxF( i , j ,bi,bj)
./pkg/mom_common/mom_hdissip.F 7 MOM_HDISSIP 
     I        bi, bj, k,
./pkg/mom_common/mom_hdissip.F 80 MOM_HDISSIP 
     &      -dxF( i ,j-1,bi,bj)*dxF( i ,j-1,bi,bj)
./pkg/mom_common/mom_init_fixed.F 104 MOM_INIT_FIXED 
            L2_Z(i,j,bi,bj) = rAz(i,j,bi,bj)
./pkg/mom_common/mom_init_fixed.F 110 MOM_INIT_FIXED 
            IF ( recip_dxV(i,j,bi,bj).NE.0. .OR.
./pkg/mom_common/mom_init_fixed.F 111 MOM_INIT_FIXED 
     &           recip_dyU(i,j,bi,bj).NE.0. ) THEN
./pkg/mom_common/mom_init_fixed.F 112 MOM_INIT_FIXED 
              L2_Z(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_init_fixed.F 113 MOM_INIT_FIXED 
     &           /((recip_dxV(i,j,bi,bj)**2+recip_dyU(i,j,bi,bj)**2))
./pkg/mom_common/mom_init_fixed.F 120 MOM_INIT_FIXED 
            L3_Z(i,j,bi,bj) = L2_Z(i,j,bi,bj)**1.5
./pkg/mom_common/mom_init_fixed.F 121 MOM_INIT_FIXED 
            L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F 122 MOM_INIT_FIXED 
     &                       *L2_Z(i,j,bi,bj)**2
./pkg/mom_common/mom_init_fixed.F 129 MOM_INIT_FIXED 
           smag3D_hLsC(i,j,bi,bj) = rA (i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F 130 MOM_INIT_FIXED 
           smag3D_hLsW(i,j,bi,bj) = rAw(i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F 131 MOM_INIT_FIXED 
           smag3D_hLsS(i,j,bi,bj) = rAs(i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F 132 MOM_INIT_FIXED 
           smag3D_hLsZ(i,j,bi,bj) = rAz(i,j,bi,bj)**twoThird
./pkg/mom_common/mom_init_fixed.F 33 MOM_INIT_FIXED 
      INTEGER i,j,k,bi,bj
./pkg/mom_common/mom_init_fixed.F 42 MOM_INIT_FIXED 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/mom_common/mom_init_fixed.F 49 MOM_INIT_FIXED 
            viscAhDfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 50 MOM_INIT_FIXED 
            viscAhZfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 59 MOM_INIT_FIXED 
            viscA4Dfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 60 MOM_INIT_FIXED 
            viscA4Zfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 70 MOM_INIT_FIXED 
            viscAh_W(i,j,k,bi,bj) = viscAhW
./pkg/mom_common/mom_init_fixed.F 71 MOM_INIT_FIXED 
            viscA4_W(i,j,k,bi,bj) = viscA4W
./pkg/mom_common/mom_init_fixed.F 80 MOM_INIT_FIXED 
            L2_D(i,j,bi,bj) = rA(i,j,bi,bj)
./pkg/mom_common/mom_init_fixed.F 86 MOM_INIT_FIXED 
            IF ( recip_dxF(i,j,bi,bj).NE.0. .OR.
./pkg/mom_common/mom_init_fixed.F 87 MOM_INIT_FIXED 
     &           recip_dyF(i,j,bi,bj).NE.0. ) THEN
./pkg/mom_common/mom_init_fixed.F 88 MOM_INIT_FIXED 
              L2_D(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_init_fixed.F 89 MOM_INIT_FIXED 
     &           /((recip_dxF(i,j,bi,bj)**2+recip_dyF(i,j,bi,bj)**2))
./pkg/mom_common/mom_init_fixed.F 96 MOM_INIT_FIXED 
            L3_D(i,j,bi,bj) = L2_D(i,j,bi,bj)**1.5
./pkg/mom_common/mom_init_fixed.F 97 MOM_INIT_FIXED 
            L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F 98 MOM_INIT_FIXED 
     &                       *L2_D(i,j,bi,bj)**2
./pkg/mom_common/mom_quasihydrostatic.F 101 MOM_QUASIHYDROSTATIC 
     &     (   (uFld( i ,j,k,bi,bj)*uFld( i ,j,k,bi,bj)
./pkg/mom_common/mom_quasihydrostatic.F 102 MOM_QUASIHYDROSTATIC 
     &         +uFld(i+1,j,k,bi,bj)*uFld(i+1,j,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F 103 MOM_QUASIHYDROSTATIC 
     &       + (vFld(i, j ,k,bi,bj)*vFld(i, j ,k,bi,bj)
./pkg/mom_common/mom_quasihydrostatic.F 104 MOM_QUASIHYDROSTATIC 
     &         +vFld(i,j+1,k,bi,bj)*vFld(i,j+1,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F 11 MOM_QUASIHYDROSTATIC 
     I                bi,bj,k,
./pkg/mom_common/mom_quasihydrostatic.F 38 MOM_QUASIHYDROSTATIC 
      INTEGER bi,bj,k
./pkg/mom_common/mom_quasihydrostatic.F 86 MOM_QUASIHYDROSTATIC 
     &     fCoriCos(i,j,bi,bj)*
./pkg/mom_common/mom_quasihydrostatic.F 87 MOM_QUASIHYDROSTATIC 
     &       ( angleCosC(i,j,bi,bj)*0.5 _d 0 *
./pkg/mom_common/mom_quasihydrostatic.F 88 MOM_QUASIHYDROSTATIC 
     &                (uFld(i,j,k,bi,bj)+uFld(i+1,j,k,bi,bj))
./pkg/mom_common/mom_quasihydrostatic.F 89 MOM_QUASIHYDROSTATIC 
     &        -angleSinC(i,j,bi,bj)*0.5 _d 0 *
./pkg/mom_common/mom_quasihydrostatic.F 90 MOM_QUASIHYDROSTATIC 
     &                (vFld(i,j,k,bi,bj)+vFld(i,j+1,k,bi,bj))
./pkg/mom_common/mom_u_bottomdrag.F 102 MOM_U_BOTTOMDRAG 
     &     + bottomDragFld(i,j,bi,bj)*dragFac
./pkg/mom_common/mom_u_bottomdrag.F 125 MOM_U_BOTTOMDRAG 
        CALL DIAGNOSTICS_FILL(uDragTerms,'UBotDrag',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_u_bottomdrag.F 14 MOM_U_BOTTOMDRAG 
     I        bi,bj,k,
./pkg/mom_common/mom_u_bottomdrag.F 42 MOM_U_BOTTOMDRAG 
      INTEGER bi,bj,k
./pkg/mom_common/mom_u_bottomdrag.F 81 MOM_U_BOTTOMDRAG 
          recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F 88 MOM_U_BOTTOMDRAG 
          recDrF_bot(i,j) = _recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_u_bottomdrag.F 89 MOM_U_BOTTOMDRAG 
     &                    * ( 1. _d 0 -_maskW(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_u_coriolis_nh.F 11 MOM_U_CORIOLIS_NH 
     I               bi,bj,k,wFld,
./pkg/mom_common/mom_u_coriolis_nh.F 34 MOM_U_CORIOLIS_NH 
      INTEGER bi,bj,k
./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 11 MOM_U_IMPLICIT_R 
     I                 bi, bj, myTime, myIter, myThid )
./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 143 MOM_U_IMPLICIT_R 
     &                           *recip_rAw(i,j,bi,bj)*rkSign
./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 150 MOM_U_IMPLICIT_R 
     &                     *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./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 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 164 MOM_U_IMPLICIT_R 
     &                           *recip_rAw(i,j,bi,bj)*rkSign
./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 168 MOM_U_IMPLICIT_R 
     &            - rCenter*_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./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 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 188 MOM_U_IMPLICIT_R 
     U                          gU(1-OLx,1-OLy,1,bi,bj),
./pkg/mom_common/mom_u_implicit_r.F 190 MOM_U_IMPLICIT_R 
     I                          bi, bj, myThid )
./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 223 MOM_U_IMPLICIT_R 
          CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid)
./pkg/mom_common/mom_u_implicit_r.F 33 MOM_U_IMPLICIT_R 
      INTEGER bi, bj
./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 89 MOM_U_IMPLICIT_R 
     &                  *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./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_metric_nh.F 11 MOM_U_METRIC_NH 
     I               bi,bj,k,
./pkg/mom_common/mom_u_metric_nh.F 35 MOM_U_METRIC_NH 
      INTEGER bi,bj,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 11 MOM_U_RVISCFLUX 
     I        bi,bj,k,
./pkg/mom_common/mom_u_rviscflux.F 36 MOM_U_RVISCFLUX 
      INTEGER bi,bj,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 110 MOM_U_SIDEDRAG 
        hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 111 MOM_U_SIDEDRAG 
        hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F 113 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 114 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F 117 MOM_U_SIDEDRAG 
     &   -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 118 MOM_U_SIDEDRAG 
     &   *recip_drF(k)*recip_rAw(i,j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 119 MOM_U_SIDEDRAG 
     &   *( hFacZClosedS*_dxV(i, j ,bi,bj)*_recip_dyU(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 11 MOM_U_SIDEDRAG 
     I        bi, bj, k,
./pkg/mom_common/mom_u_sidedrag.F 121 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j  )*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 123 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j  )*del2u(i,j)*sqcosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 125 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j  )*del2u(i,j)*cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 131 MOM_U_SIDEDRAG 
     &     +hFacZClosedN*_dxV(i,j+1,bi,bj)*_recip_dyU(i,j+1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 133 MOM_U_SIDEDRAG 
     &         *( viscAh_Z(i,j+1)*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 135 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j+1)*del2u(i,j)*sqcosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 137 MOM_U_SIDEDRAG 
     &           -viscA4_Z(i,j+1)*del2u(i,j)*cosFacU(j,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 152 MOM_U_SIDEDRAG 
        CALL DIAGNOSTICS_FILL(uDragTerms,'USidDrag',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_u_sidedrag.F 39 MOM_U_SIDEDRAG 
      INTEGER bi, bj, k
./pkg/mom_common/mom_u_sidedrag.F 68 MOM_U_SIDEDRAG 
        hFacZClosedS = h0FacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 69 MOM_U_SIDEDRAG 
        hFacZClosedN = h0FacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F 71 MOM_U_SIDEDRAG 
        hFacZClosedS = _hFacW(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_u_sidedrag.F 72 MOM_U_SIDEDRAG 
        hFacZClosedN = _hFacW(i,j,k,bi,bj) - hFacZ(i,j+1)
./pkg/mom_common/mom_u_sidedrag.F 74 MOM_U_SIDEDRAG 
        Ahtmp=MIN(viscAh+viscAhGrid*rAw(i,j,bi,bj)/deltaTmom,
./pkg/mom_common/mom_u_sidedrag.F 76 MOM_U_SIDEDRAG 
        A4tmp=MIN(viscA4+viscA4Grid*(rAw(i,j,bi,bj)**2)/deltaTmom,
./pkg/mom_common/mom_u_sidedrag.F 78 MOM_U_SIDEDRAG 
        A4tmp=MIN(A4tmp,viscA4GridMax*(rAw(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_u_sidedrag.F 79 MOM_U_SIDEDRAG 
        A4tmp=MAX(A4tmp,viscA4GridMin*(rAw(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_u_sidedrag.F 81 MOM_U_SIDEDRAG 
     &   -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 82 MOM_U_SIDEDRAG 
     &   *recip_drF(k)*recip_rAw(i,j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 83 MOM_U_SIDEDRAG 
     &   *( hFacZClosedS*_dxV(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 84 MOM_U_SIDEDRAG 
     &      *_recip_dyU(i, j ,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 85 MOM_U_SIDEDRAG 
     &     +hFacZClosedN*_dxV(i,j+1,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 86 MOM_U_SIDEDRAG 
     &      *_recip_dyU(i,j+1,bi,bj) )
./pkg/mom_common/mom_u_sidedrag.F 89 MOM_U_SIDEDRAG 
     &                viscAh*uFld(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 91 MOM_U_SIDEDRAG 
     &               -viscA4*del2u(i,j)*sqcosFacU(j,bi,bj)
./pkg/mom_common/mom_u_sidedrag.F 93 MOM_U_SIDEDRAG 
     &               -viscA4*del2u(i,j)*cosFacU(j,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 101 MOM_UV_SMAG_3D 
     &         *dyU( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 104 MOM_UV_SMAG_3D 
     &         *dxF( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 106 MOM_UV_SMAG_3D 
     &         *dxF( i ,j-1,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 113 MOM_UV_SMAG_3D 
     &     )*rkSign*recip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 17 MOM_UV_SMAG_3D 
     I        iMin,iMax,jMin,jMax, k, bi, bj, myThid )
./pkg/mom_common/mom_uv_smag_3d.F 44 MOM_UV_SMAG_3D 
      INTEGER k, bi, bj
./pkg/mom_common/mom_uv_smag_3d.F 75 MOM_UV_SMAG_3D 
         uDissip(i,j) = recip_rAw(i,j,bi,bj)*(
./pkg/mom_common/mom_uv_smag_3d.F 77 MOM_UV_SMAG_3D 
     &         *dyF( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 79 MOM_UV_SMAG_3D 
     &         *dyF(i-1, j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 82 MOM_UV_SMAG_3D 
     &         *dxV( i ,j+1,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 84 MOM_UV_SMAG_3D 
     &         *dxV( i , j ,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 91 MOM_UV_SMAG_3D 
     &     )*rkSign*recip_hFacW(i,j,k,bi,bj)
./pkg/mom_common/mom_uv_smag_3d.F 97 MOM_UV_SMAG_3D 
         vDissip(i,j) = recip_rAs(i,j,bi,bj)*(
./pkg/mom_common/mom_uv_smag_3d.F 99 MOM_UV_SMAG_3D 
     &         *dyU(i+1, j ,bi,bj)
./model/src/calc_r_star.F 105 CALC_R_STAR 
          IF (kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 106 CALC_R_STAR 
           rStarFacC(i,j,bi,bj) =
./model/src/calc_r_star.F 107 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 108 CALC_R_STAR 
     &      *recip_Rcol(i,j,bi,bj)
./model/src/calc_r_star.F 110 CALC_R_STAR 
           rStarFacC(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 118 CALC_R_STAR 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 119 CALC_R_STAR 
           tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F 120 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) =
./model/src/calc_r_star.F 121 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 122 CALC_R_STAR 
     &                    +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F 123 CALC_R_STAR 
     &                   )*recip_rAw(i,j,bi,bj)
./model/src/calc_r_star.F 126 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 132 CALC_R_STAR 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 133 CALC_R_STAR 
           tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F 134 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) =
./model/src/calc_r_star.F 135 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 136 CALC_R_STAR 
     &                    +etaFld(i,j,bi,bj)*rA(i,j,bi,bj)
./model/src/calc_r_star.F 137 CALC_R_STAR 
     &                   )*recip_rAs(i,j,bi,bj)
./model/src/calc_r_star.F 140 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 148 CALC_R_STAR 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 149 CALC_R_STAR 
           tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F 150 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) =
./model/src/calc_r_star.F 151 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) )
./model/src/calc_r_star.F 154 CALC_R_STAR 
           rStarFacW(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 160 CALC_R_STAR 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/calc_r_star.F 161 CALC_R_STAR 
           tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F 162 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) =
./model/src/calc_r_star.F 163 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) )
./model/src/calc_r_star.F 166 CALC_R_STAR 
           rStarFacS(i,j,bi,bj) = 1.
./model/src/calc_r_star.F 174 CALC_R_STAR 
     I                    bi, bj, etaFld,
./model/src/calc_r_star.F 188 CALC_R_STAR 
          IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 191 CALC_R_STAR 
          IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 194 CALC_R_STAR 
          IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 197 CALC_R_STAR 
          IF ( rStarFacC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_r_star.F 199 CALC_R_STAR 
            maxhFacC = max(rStarFacC(i,j,bi,bj),maxhFacC)
./model/src/calc_r_star.F 208 CALC_R_STAR 
           IF ( rStarFacC(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 211 CALC_R_STAR 
     &       rStarFacC(i,j,bi,bj),
./model/src/calc_r_star.F 212 CALC_R_STAR 
     &       Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj),
./model/src/calc_r_star.F 213 CALC_R_STAR 
     &       etaFld(i,j,bi,bj)
./model/src/calc_r_star.F 215 CALC_R_STAR 
           IF ( rStarFacW(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 216 CALC_R_STAR 
            tmpfldW = rSurfW(i,j,bi,bj) - rLowW(i,j,bi,bj)
./model/src/calc_r_star.F 219 CALC_R_STAR 
     &        rStarFacW(i,j,bi,bj), tmpfldW,
./model/src/calc_r_star.F 220 CALC_R_STAR 
     &        etaFld(i-1,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_r_star.F 222 CALC_R_STAR 
           IF ( rStarFacS(i,j,bi,bj).LT.hFacInf ) THEN
./model/src/calc_r_star.F 223 CALC_R_STAR 
            tmpfldS = rSurfS(i,j,bi,bj) - rLowS(i,j,bi,bj)
./model/src/calc_r_star.F 226 CALC_R_STAR 
     &        rStarFacS(i,j,bi,bj), tmpfldS,
./model/src/calc_r_star.F 227 CALC_R_STAR 
     &        etaFld(i,j-1,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_r_star.F 234 CALC_R_STAR 
     &     ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter
./model/src/calc_r_star.F 238 CALC_R_STAR 
     &     ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter
./model/src/calc_r_star.F 242 CALC_R_STAR 
     &     ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter
./model/src/calc_r_star.F 253 CALC_R_STAR 
     &    ' pts : bi,bj,Thid,Iter=',bi,bj,myThid,myIter
./model/src/calc_r_star.F 267 CALC_R_STAR 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/calc_r_star.F 281 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 282 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 283 CALC_R_STAR 
          IF (kSurfC(1-i,jj, bi,bj).GT.Nr) rStarFacC(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 284 CALC_R_STAR 
          IF (kSurfC(ii, jj, bi,bj).GT.Nr) rStarFacC(ii, jj, bi,bj)= 1.
./model/src/calc_r_star.F 286 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 287 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 288 CALC_R_STAR 
          IF (kSurfW(1-i,jj, bi,bj).GT.Nr) rStarFacW(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 289 CALC_R_STAR 
          IF (kSurfW(ii, jj, bi,bj).GT.Nr) rStarFacW(ii, jj, bi,bj)= 1.
./model/src/calc_r_star.F 291 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 292 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 293 CALC_R_STAR 
          IF (kSurfS(1-i,jj, bi,bj).GT.Nr) rStarFacS(1-i,jj, bi,bj)= 1.
./model/src/calc_r_star.F 294 CALC_R_STAR 
          IF (kSurfS(ii, jj, bi,bj).GT.Nr) rStarFacS(ii, jj, bi,bj)= 1.
./model/src/calc_r_star.F 303 CALC_R_STAR 
           rStarDhCDt(i,j,bi,bj)=(rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 304 CALC_R_STAR 
     &                           -rStarExpC(i,j,bi,bj))/deltaTFreeSurf
./model/src/calc_r_star.F 305 CALC_R_STAR 
           rStarDhWDt(i,j,bi,bj)=(rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 306 CALC_R_STAR 
     &                           -rStarExpW(i,j,bi,bj))/deltaTFreeSurf
./model/src/calc_r_star.F 307 CALC_R_STAR 
           rStarDhSDt(i,j,bi,bj)=(rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 308 CALC_R_STAR 
     &                           -rStarExpS(i,j,bi,bj))/deltaTFreeSurf
./model/src/calc_r_star.F 309 CALC_R_STAR 
           rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 310 CALC_R_STAR 
     &                          / rStarExpC(i,j,bi,bj)
./model/src/calc_r_star.F 311 CALC_R_STAR 
           rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 312 CALC_R_STAR 
     &                          / rStarExpW(i,j,bi,bj)
./model/src/calc_r_star.F 313 CALC_R_STAR 
           rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 314 CALC_R_STAR 
     &                          / rStarExpS(i,j,bi,bj)
./model/src/calc_r_star.F 321 CALC_R_STAR 
           pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/calc_r_star.F 328 CALC_R_STAR 
           pStarFacK(i,j,bi,bj) = 1. _d 0
./model/src/calc_r_star.F 53 CALC_R_STAR 
      INTEGER i,j,bi,bj
./model/src/calc_r_star.F 79 CALC_R_STAR 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/calc_r_star.F 85 CALC_R_STAR 
             rStarFacNm1C(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 86 CALC_R_STAR 
             rStarFacNm1S(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./model/src/calc_r_star.F 87 CALC_R_STAR 
             rStarFacNm1W(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 96 CALC_R_STAR 
            rStarExpC(i,j,bi,bj) = rStarFacC(i,j,bi,bj)
./model/src/calc_r_star.F 97 CALC_R_STAR 
            rStarExpW(i,j,bi,bj) = rStarFacW(i,j,bi,bj)
./model/src/calc_r_star.F 98 CALC_R_STAR 
            rStarExpS(i,j,bi,bj) = rStarFacS(i,j,bi,bj)
./pkg/mom_common/mom_v_bottomdrag.F 102 MOM_V_BOTTOMDRAG 
     &     + bottomDragFld(i,j,bi,bj)*dragFac
./pkg/mom_common/mom_v_bottomdrag.F 125 MOM_V_BOTTOMDRAG 
        CALL DIAGNOSTICS_FILL(vDragTerms,'VBotDrag',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_v_bottomdrag.F 14 MOM_V_BOTTOMDRAG 
     I        bi,bj,k,
./pkg/mom_common/mom_v_bottomdrag.F 42 MOM_V_BOTTOMDRAG 
      INTEGER bi,bj,k
./pkg/mom_common/mom_v_bottomdrag.F 81 MOM_V_BOTTOMDRAG 
          recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_bottomdrag.F 88 MOM_V_BOTTOMDRAG 
          recDrF_bot(i,j) = _recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_common/mom_v_bottomdrag.F 89 MOM_V_BOTTOMDRAG 
     &                    * ( 1. _d 0 -_maskS(i,j,kDown,bi,bj) )
./pkg/mom_common/mom_v_coriolis_nh.F 11 MOM_V_CORIOLIS_NH 
     I               bi,bj,k,wFld,
./pkg/mom_common/mom_v_coriolis_nh.F 34 MOM_V_CORIOLIS_NH 
      INTEGER bi,bj,k
./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 11 MOM_V_IMPLICIT_R 
     I                 bi, bj, myTime, myIter, myThid )
./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 143 MOM_V_IMPLICIT_R 
     &                           *recip_rAs(i,j,bi,bj)*rkSign
./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 150 MOM_V_IMPLICIT_R 
     &                     *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./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 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 164 MOM_V_IMPLICIT_R 
     &                           *recip_rAs(i,j,bi,bj)*rkSign
./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 168 MOM_V_IMPLICIT_R 
     &            - rCenter*_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./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 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 188 MOM_V_IMPLICIT_R 
     U                          gV(1-OLx,1-OLy,1,bi,bj),
./pkg/mom_common/mom_v_implicit_r.F 190 MOM_V_IMPLICIT_R 
     I                          bi, bj, myThid )
./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 223 MOM_V_IMPLICIT_R 
          CALL DIAGNOSTICS_FILL(vf,diagName, k,1, 2,bi,bj, myThid)
./pkg/mom_common/mom_v_implicit_r.F 33 MOM_V_IMPLICIT_R 
      INTEGER bi, bj
./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 89 MOM_V_IMPLICIT_R 
     &                  *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./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_metric_nh.F 11 MOM_V_METRIC_NH 
     I               bi,bj,k,
./pkg/mom_common/mom_v_metric_nh.F 35 MOM_V_METRIC_NH 
      INTEGER bi,bj,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 11 MOM_V_RVISCFLUX 
     I        bi,bj,k,
./pkg/mom_common/mom_v_rviscflux.F 36 MOM_V_RVISCFLUX 
      INTEGER bi,bj,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 107 MOM_V_SIDEDRAG 
        hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 108 MOM_V_SIDEDRAG 
        hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F 110 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 111 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F 114 MOM_V_SIDEDRAG 
     &   -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 115 MOM_V_SIDEDRAG 
     &   *recip_drF(k)*recip_rAs(i,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 116 MOM_V_SIDEDRAG 
     &   *( hFacZClosedW*_dyU( i ,j,bi,bj)*_recip_dxV( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 117 MOM_V_SIDEDRAG 
     &         *( viscAh_Z(i  ,j)*vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 119 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i  ,j)*del2v(i,j)*sqcosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 11 MOM_V_SIDEDRAG 
     I        bi, bj, k,
./pkg/mom_common/mom_v_sidedrag.F 121 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i  ,j)*del2v(i,j)*cosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 123 MOM_V_SIDEDRAG 
     &     +hFacZClosedE*_dyU(i+1,j,bi,bj)*_recip_dxV(i+1,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 124 MOM_V_SIDEDRAG 
     &         *( viscAh_Z(i+1,j)*vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 126 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i+1,j)*del2v(i,j)*sqcosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 128 MOM_V_SIDEDRAG 
     &           -viscA4_Z(i+1,j)*del2v(i,j)*cosFacV(j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 139 MOM_V_SIDEDRAG 
        CALL DIAGNOSTICS_FILL(vDragTerms,'VSidDrag',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_v_sidedrag.F 39 MOM_V_SIDEDRAG 
      INTEGER bi, bj, k
./pkg/mom_common/mom_v_sidedrag.F 68 MOM_V_SIDEDRAG 
        hFacZClosedW = h0FacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 69 MOM_V_SIDEDRAG 
        hFacZClosedE = h0FacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F 71 MOM_V_SIDEDRAG 
        hFacZClosedW = _hFacS(i,j,k,bi,bj) - hFacZ(i,j)
./pkg/mom_common/mom_v_sidedrag.F 72 MOM_V_SIDEDRAG 
        hFacZClosedE = _hFacS(i,j,k,bi,bj) - hFacZ(i+1,j)
./pkg/mom_common/mom_v_sidedrag.F 74 MOM_V_SIDEDRAG 
        Ahtmp=MIN(viscAh+viscAhGrid*rAs(i,j,bi,bj)/deltaTmom,
./pkg/mom_common/mom_v_sidedrag.F 76 MOM_V_SIDEDRAG 
        A4tmp=MIN(viscA4+viscA4Grid*(rAs(i,j,bi,bj)**2)/deltaTmom,
./pkg/mom_common/mom_v_sidedrag.F 79 MOM_V_SIDEDRAG 
           A4tmp=MIN(A4tmp,viscA4GridMax*(rAs(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_v_sidedrag.F 81 MOM_V_SIDEDRAG 
        A4tmp=MAX(A4tmp,viscA4GridMin*(rAs(i,j,bi,bj)**2)/deltaTmom)
./pkg/mom_common/mom_v_sidedrag.F 83 MOM_V_SIDEDRAG 
     &   -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 84 MOM_V_SIDEDRAG 
     &   *recip_drF(k)*recip_rAs(i,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 85 MOM_V_SIDEDRAG 
     &   *( hFacZClosedW*_dyU( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 86 MOM_V_SIDEDRAG 
     &      *_recip_dxV( i ,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 87 MOM_V_SIDEDRAG 
     &     +hFacZClosedE*_dyU(i+1,j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 88 MOM_V_SIDEDRAG 
     &      *_recip_dxV(i+1,j,bi,bj) )
./pkg/mom_common/mom_v_sidedrag.F 90 MOM_V_SIDEDRAG 
     &                Ahtmp*vFld(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 92 MOM_V_SIDEDRAG 
     &               -viscA4*del2v(i,j)*sqcosFacV(j,bi,bj)
./pkg/mom_common/mom_v_sidedrag.F 94 MOM_V_SIDEDRAG 
     &               -A4tmp*del2v(i,j)*cosFacV(j,bi,bj)
./pkg/mom_common/mom_w_coriolis_nh.F 11 MOM_W_CORIOLIS_NH 
     I               bi,bj,k,
./pkg/mom_common/mom_w_coriolis_nh.F 35 MOM_W_CORIOLIS_NH 
      INTEGER bi,bj,k
./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_metric_nh.F 11 MOM_W_METRIC_NH 
     I               bi,bj,k,
./pkg/mom_common/mom_w_metric_nh.F 35 MOM_W_METRIC_NH 
      INTEGER bi,bj,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_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 11 MOM_W_SIDEDRAG 
     I        bi,bj,k,
./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 136 MOM_W_SIDEDRAG 
        CALL DIAGNOSTICS_FILL(gwSideDrag,'WSidDrag',k,1,2,bi,bj,myThid)
./pkg/mom_common/mom_w_sidedrag.F 42 MOM_W_SIDEDRAG 
      INTEGER bi,bj,k
./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)
./pkg/mom_common/mom_w_smag_3d.F 16 MOM_W_SMAG_3D 
     I        iMin,iMax,jMin,jMax, k, bi, bj, myThid )
./pkg/mom_common/mom_w_smag_3d.F 47 MOM_W_SMAG_3D 
      INTEGER k, bi, bj
./pkg/mom_common/mom_w_smag_3d.F 76 MOM_W_SMAG_3D 
     &                  recip_rA(i,j,bi,bj)*(
./pkg/mom_common/mom_w_smag_3d.F 79 MOM_W_SMAG_3D 
     &         *dyG(i+1, j ,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F 82 MOM_W_SMAG_3D 
     &         *dyG( i , j ,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F 86 MOM_W_SMAG_3D 
     &         *dxG( i ,j+1,bi,bj)
./pkg/mom_common/mom_w_smag_3d.F 89 MOM_W_SMAG_3D 
     &         *dxG( i , j ,bi,bj)
./model/src/calc_surf_dr.F 103 CALC_SURF_DR 
     &          hfacC(i,j,ks,bi,bj), hFactmp, etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 114 CALC_SURF_DR 
     &          + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j))
./model/src/calc_surf_dr.F 116 CALC_SURF_DR 
            rSurftmp(i,j) = Rmin_surf(i,j,bi,bj)
./model/src/calc_surf_dr.F 121 CALC_SURF_DR 
           hFac_surfC(i,j,bi,bj) = h0FacC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 122 CALC_SURF_DR 
     &            + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj)
./model/src/calc_surf_dr.F 123 CALC_SURF_DR 
     &              )*recip_drF(ks)*maskC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 127 CALC_SURF_DR 
     &          hFac_surfC(i,j,bi,bj).GT.hFacSup ) THEN
./model/src/calc_surf_dr.F 131 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 133 CALC_SURF_DR 
     &         'hFac_n-1,hFac_n,eta =', hfacC(i,j,ks,bi,bj),
./model/src/calc_surf_dr.F 134 CALC_SURF_DR 
     &          hFac_surfC(i,j,bi,bj), etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 147 CALC_SURF_DR 
          ks = kSurfW(i,j,bi,bj)
./model/src/calc_surf_dr.F 158 CALC_SURF_DR 
            hFac_surfW(i,j,bi,bj) = h0FacW(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 160 CALC_SURF_DR 
     &              - MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/calc_surf_dr.F 161 CALC_SURF_DR 
     &              )*recip_drF(ks)*maskW(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 168 CALC_SURF_DR 
          ks = kSurfS(i,j,bi,bj)
./model/src/calc_surf_dr.F 179 CALC_SURF_DR 
            hFac_surfS(i,j,bi,bj) = h0FacS(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 181 CALC_SURF_DR 
     &              - MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/calc_surf_dr.F 182 CALC_SURF_DR 
     &              )*recip_drF(ks)*maskS(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 191 CALC_SURF_DR 
     I                    bi, bj, etaFld,
./model/src/calc_surf_dr.F 51 CALC_SURF_DR 
      INTEGER i,j,bi,bj
./model/src/calc_surf_dr.F 66 CALC_SURF_DR 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/calc_surf_dr.F 72 CALC_SURF_DR 
           hFac_surfNm1C(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/calc_surf_dr.F 73 CALC_SURF_DR 
           hFac_surfNm1S(i,j,bi,bj) = hFac_surfS(i,j,bi,bj)
./model/src/calc_surf_dr.F 74 CALC_SURF_DR 
           hFac_surfNm1W(i,j,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/calc_surf_dr.F 83 CALC_SURF_DR 
          rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj)
./model/src/calc_surf_dr.F 84 CALC_SURF_DR 
          ks = kSurfC(i,j,bi,bj)
./model/src/calc_surf_dr.F 86 CALC_SURF_DR 
           IF ( rSurftmp(i,j).LT.Rmin_surf(i,j,bi,bj) ) THEN
./model/src/calc_surf_dr.F 90 CALC_SURF_DR 
             hFactmp = h0FacC(i,j,ks,bi,bj)
./model/src/calc_surf_dr.F 91 CALC_SURF_DR 
     &         + ( rSurftmp(i,j) - Ro_surf(i,j,bi,bj) )*recip_drF(ks)
./model/src/calc_surf_dr.F 95 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./model/src/calc_surf_dr.F 99 CALC_SURF_DR 
     &         ' i,j,k,bi,bj,Thid,Iter=',i,j,ks,bi,bj,myThid,myIter
./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 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 10 MOM_CALC_RTRANS 
     I                          k, bi, bj,
./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 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 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 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 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 47 MOM_CALC_RTRANS 
      INTEGER k, bi, bj, myIter, myThid
./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 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_fluxform.F 185 MOM_FLUXFORM 
          act2 = bj - myByLo(myThid)
./pkg/mom_fluxform/mom_fluxform.F 264 MOM_FLUXFORM 
      CALL MOM_CALC_HFACZ( bi,bj,k,hFacZ,r_hFacZ,myThid )
./pkg/mom_fluxform/mom_fluxform.F 270 MOM_FLUXFORM 
        xA(i,j) = _dyG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 271 MOM_FLUXFORM 
     &          *drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 272 MOM_FLUXFORM 
        yA(i,j) = _dxG(i,j,bi,bj)*deepFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 273 MOM_FLUXFORM 
     &          *drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 283 MOM_FLUXFORM 
     &       MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ),
./pkg/mom_fluxform/mom_fluxform.F 284 MOM_FLUXFORM 
     &       MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) )
./pkg/mom_fluxform/mom_fluxform.F 293 MOM_FLUXFORM 
        uFld(i,j) = uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 294 MOM_FLUXFORM 
        vFld(i,j) = vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 307 MOM_FLUXFORM 
      CALL MOM_CALC_KE( bi,bj,k,2,uFld,vFld,KE,myThid )
./pkg/mom_fluxform/mom_fluxform.F 309 MOM_FLUXFORM 
        CALL MOM_CALC_HDIV( bi,bj,k,2,uFld,vFld,hDiv,myThid )
./pkg/mom_fluxform/mom_fluxform.F 310 MOM_FLUXFORM 
        CALL MOM_CALC_RELVORT3( bi,bj,k,uFld,vFld,hFacZ,vort3,myThid )
./pkg/mom_fluxform/mom_fluxform.F 311 MOM_FLUXFORM 
        CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid )
./pkg/mom_fluxform/mom_fluxform.F 312 MOM_FLUXFORM 
        CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid )
./pkg/mom_fluxform/mom_fluxform.F 323 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(hDiv,   'momHDiv ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 324 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(vort3,  'momVort3',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 325 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(tension,'Tension ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 326 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(strain, 'Strain  ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 335 MOM_FLUXFORM 
        CALL MOM_UV_BOUNDARY( bi, bj, k,
./pkg/mom_fluxform/mom_fluxform.F 337 MOM_FLUXFORM 
     O                        uBnd(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 338 MOM_FLUXFORM 
     O                        vBnd(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 356 MOM_FLUXFORM 
        CALL MOM_CALC_RTRANS( k, bi, bj,
./pkg/mom_fluxform/mom_fluxform.F 361 MOM_FLUXFORM 
        CALL MOM_U_ADV_WU( bi,bj,k,uVel,wVel,rTransU,
./pkg/mom_fluxform/mom_fluxform.F 364 MOM_FLUXFORM 
        CALL MOM_V_ADV_WV( bi,bj,k,vVel,wVel,rTransV,
./pkg/mom_fluxform/mom_fluxform.F 372 MOM_FLUXFORM 
        CALL MOM_CALC_RTRANS( k+1, bi, bj,
./pkg/mom_fluxform/mom_fluxform.F 379 MOM_FLUXFORM 
        CALL MOM_UV_BOUNDARY( bi, bj, k+1,
./pkg/mom_fluxform/mom_fluxform.F 381 MOM_FLUXFORM 
     O                        uBnd(1-OLx,1-OLy,k+1,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 382 MOM_FLUXFORM 
     O                        vBnd(1-OLx,1-OLy,k+1,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 397 MOM_FLUXFORM 
        CALL MOM_CALC_VISC( bi, bj, k,
./pkg/mom_fluxform/mom_fluxform.F 412 MOM_FLUXFORM 
        CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uBnd(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 414 MOM_FLUXFORM 
        CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uBnd(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 417 MOM_FLUXFORM 
     I                     bi,bj,k+1,uBnd,wVel,rTransU,
./pkg/mom_fluxform/mom_fluxform.F 41 MOM_FLUXFORM 
     I        bi,bj,k,iMin,iMax,jMin,jMax,
./pkg/mom_fluxform/mom_fluxform.F 422 MOM_FLUXFORM 
        CALL MOM_U_ADV_UU( bi,bj,k,uTrans,uFld,fZon,myThid )
./pkg/mom_fluxform/mom_fluxform.F 426 MOM_FLUXFORM 
        CALL MOM_U_ADV_VU( bi,bj,k,vTrans,uFld,fMer,myThid )
./pkg/mom_fluxform/mom_fluxform.F 431 MOM_FLUXFORM 
     I                     bi,bj,k+1,uVel,wVel,rTransU,
./pkg/mom_fluxform/mom_fluxform.F 438 MOM_FLUXFORM 
          gU(i,j,k,bi,bj) =
./pkg/mom_fluxform/mom_fluxform.F 440 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 441 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 443 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 444 MOM_FLUXFORM 
     &     *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 455 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL( fZon,  'ADVx_Um ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 456 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL( fMer,  'ADVy_Um ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 457 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fVerUkm,'ADVrE_Um',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 467 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 468 MOM_FLUXFORM 
     &     - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf
./pkg/mom_fluxform/mom_fluxform.F 469 MOM_FLUXFORM 
     &       *uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 476 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 477 MOM_FLUXFORM 
     &     - rStarDhWDt(i,j,bi,bj)*uVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 488 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 489 MOM_FLUXFORM 
     &     + uVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0
./pkg/mom_fluxform/mom_fluxform.F 490 MOM_FLUXFORM 
     &      *( addMass(i-1,j,k,bi,bj) + addMass(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_fluxform.F 491 MOM_FLUXFORM 
     &      *_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 492 MOM_FLUXFORM 
     &      * recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F 502 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 514 MOM_FLUXFORM 
     &  CALL MOM_U_DEL2U( bi, bj, k, uFld, hFacZ, h0FacZ,
./pkg/mom_fluxform/mom_fluxform.F 518 MOM_FLUXFORM 
        CALL MOM_U_XVISCFLUX( bi,bj,k,uFld,v4F,fZon,
./pkg/mom_fluxform/mom_fluxform.F 522 MOM_FLUXFORM 
        CALL MOM_U_YVISCFLUX( bi,bj,k,uFld,v4F,hFacZ,fMer,
./pkg/mom_fluxform/mom_fluxform.F 527 MOM_FLUXFORM 
        CALL MOM_U_RVISCFLUX( bi,bj, k, uVel,KappaRU,fVrUp,myThid )
./pkg/mom_fluxform/mom_fluxform.F 528 MOM_FLUXFORM 
        CALL MOM_U_RVISCFLUX( bi,bj,k+1,uVel,KappaRU,fVrDw,myThid )
./pkg/mom_fluxform/mom_fluxform.F 537 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 538 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 540 MOM_FLUXFORM 
     &     -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 541 MOM_FLUXFORM 
     &     *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F 553 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Um',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 554 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Um',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 556 MOM_FLUXFORM 
     &    CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Um',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 563 MOM_FLUXFORM 
         CALL MOM_U_SIDEDRAG( bi, bj, k,
./pkg/mom_fluxform/mom_fluxform.F 577 MOM_FLUXFORM 
         CALL MOM_U_BOTTOMDRAG( bi,bj,k,uFld,KE,KappaRU,vF,myThid )
./pkg/mom_fluxform/mom_fluxform.F 587 MOM_FLUXFORM 
         CALL SHELFICE_U_DRAG( bi,bj,k,uFld,KE,KappaRU,vF,myThid )
./pkg/mom_fluxform/mom_fluxform.F 608 MOM_FLUXFORM 
       CALL MOM_U_METRIC_NH( bi,bj,k,uFld,wVel,mT,myThid )
./pkg/mom_fluxform/mom_fluxform.F 611 MOM_FLUXFORM 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtNHFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 617 MOM_FLUXFORM 
       CALL MOM_U_METRIC_SPHERE( bi,bj,k,uFld,vFld,mT,myThid )
./pkg/mom_fluxform/mom_fluxform.F 620 MOM_FLUXFORM 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 626 MOM_FLUXFORM 
       CALL MOM_U_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid )
./pkg/mom_fluxform/mom_fluxform.F 629 MOM_FLUXFORM 
         gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+mtFacU*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 641 MOM_FLUXFORM 
        CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vBnd(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 643 MOM_FLUXFORM 
        CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vBnd(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 645 MOM_FLUXFORM 
        CALL MOM_V_ADV_WV( bi,bj,k+1,vBnd,wVel,rTransV,
./pkg/mom_fluxform/mom_fluxform.F 650 MOM_FLUXFORM 
        CALL MOM_V_ADV_UV( bi,bj,k,uTrans,vFld,fZon,myThid )
./pkg/mom_fluxform/mom_fluxform.F 654 MOM_FLUXFORM 
        CALL MOM_V_ADV_VV( bi,bj,k,vTrans,vFld,fMer,myThid )
./pkg/mom_fluxform/mom_fluxform.F 658 MOM_FLUXFORM 
        CALL MOM_V_ADV_WV( bi,bj,k+1,vVel,wVel,rTransV,
./pkg/mom_fluxform/mom_fluxform.F 665 MOM_FLUXFORM 
          gV(i,j,k,bi,bj) =
./pkg/mom_fluxform/mom_fluxform.F 667 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 668 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 670 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 671 MOM_FLUXFORM 
     &     *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 682 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL( fZon,  'ADVx_Vm ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 683 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL( fMer,  'ADVy_Vm ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 684 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fVerVkm,'ADVrE_Vm',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 694 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 695 MOM_FLUXFORM 
     &     - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTFreeSurf
./pkg/mom_fluxform/mom_fluxform.F 696 MOM_FLUXFORM 
     &       *vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 703 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 704 MOM_FLUXFORM 
     &     - rStarDhSDt(i,j,bi,bj)*vVel(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 715 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 716 MOM_FLUXFORM 
     &     + vVel(i,j,k,bi,bj)*mass2rUnit*0.5 _d 0
./pkg/mom_fluxform/mom_fluxform.F 717 MOM_FLUXFORM 
     &      *( addMass(i,j-1,k,bi,bj) + addMass(i,j,k,bi,bj) )
./pkg/mom_fluxform/mom_fluxform.F 718 MOM_FLUXFORM 
     &      *_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)*recip_rhoFacC(k)
./pkg/mom_fluxform/mom_fluxform.F 719 MOM_FLUXFORM 
     &      * recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F 729 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 740 MOM_FLUXFORM 
     &  CALL MOM_V_DEL2V( bi, bj, k, vFld, hFacZ, h0FacZ,
./pkg/mom_fluxform/mom_fluxform.F 744 MOM_FLUXFORM 
        CALL MOM_V_XVISCFLUX( bi,bj,k,vFld,v4f,hFacZ,fZon,
./pkg/mom_fluxform/mom_fluxform.F 748 MOM_FLUXFORM 
        CALL MOM_V_YVISCFLUX( bi,bj,k,vFld,v4f,fMer,
./pkg/mom_fluxform/mom_fluxform.F 753 MOM_FLUXFORM 
        CALL MOM_V_RVISCFLUX( bi,bj, k, vVel,KappaRV,fVrUp,myThid )
./pkg/mom_fluxform/mom_fluxform.F 754 MOM_FLUXFORM 
        CALL MOM_V_RVISCFLUX( bi,bj,k+1,vVel,KappaRV,fVrDw,myThid )
./pkg/mom_fluxform/mom_fluxform.F 763 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)/
./pkg/mom_fluxform/mom_fluxform.F 764 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 766 MOM_FLUXFORM 
     &     -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_fluxform/mom_fluxform.F 767 MOM_FLUXFORM 
     &      *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_fluxform.F 779 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fZon, 'VISCx_Vm',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 780 MOM_FLUXFORM 
          CALL DIAGNOSTICS_FILL(fMer, 'VISCy_Vm',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 782 MOM_FLUXFORM 
     &    CALL DIAGNOSTICS_FILL(fVrUp,'VISrE_Vm',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 789 MOM_FLUXFORM 
         CALL MOM_V_SIDEDRAG( bi, bj, k,
./pkg/mom_fluxform/mom_fluxform.F 803 MOM_FLUXFORM 
         CALL MOM_V_BOTTOMDRAG( bi,bj,k,vFld,KE,KappaRV,vF,myThid )
./pkg/mom_fluxform/mom_fluxform.F 813 MOM_FLUXFORM 
         CALL SHELFICE_V_DRAG( bi,bj,k,vFld,KE,KappaRV,vF,myThid )
./pkg/mom_fluxform/mom_fluxform.F 834 MOM_FLUXFORM 
       CALL MOM_V_METRIC_NH( bi,bj,k,vFld,wVel,mT,myThid )
./pkg/mom_fluxform/mom_fluxform.F 837 MOM_FLUXFORM 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtNHFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 843 MOM_FLUXFORM 
       CALL MOM_V_METRIC_SPHERE( bi,bj,k,uFld,mT,myThid )
./pkg/mom_fluxform/mom_fluxform.F 846 MOM_FLUXFORM 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 852 MOM_FLUXFORM 
       CALL MOM_V_METRIC_CYLINDER( bi,bj,k,uFld,vFld,mT,myThid )
./pkg/mom_fluxform/mom_fluxform.F 855 MOM_FLUXFORM 
         gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+mtFacV*mT(i,j)
./pkg/mom_fluxform/mom_fluxform.F 864 MOM_FLUXFORM 
        CALL MOM_U_CORIOLIS( bi,bj,k,vFld,cf,myThid )
./pkg/mom_fluxform/mom_fluxform.F 867 MOM_FLUXFORM 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 86 MOM_FLUXFORM 
      INTEGER bi,bj,k
./pkg/mom_fluxform/mom_fluxform.F 872 MOM_FLUXFORM 
     &    CALL DIAGNOSTICS_FILL(cf,'Um_Cori ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 874 MOM_FLUXFORM 
        CALL MOM_V_CORIOLIS( bi,bj,k,uFld,cf,myThid )
./pkg/mom_fluxform/mom_fluxform.F 877 MOM_FLUXFORM 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 882 MOM_FLUXFORM 
     &    CALL DIAGNOSTICS_FILL(cf,'Vm_Cori ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 888 MOM_FLUXFORM 
        CALL MOM_U_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid )
./pkg/mom_fluxform/mom_fluxform.F 891 MOM_FLUXFORM 
          gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)+fuFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 896 MOM_FLUXFORM 
        CALL MOM_V_CORIOLIS_NH( bi,bj,k,wVel,cf,myThid )
./pkg/mom_fluxform/mom_fluxform.F 899 MOM_FLUXFORM 
          gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj)+fvFac*cf(i,j)
./pkg/mom_fluxform/mom_fluxform.F 908 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 909 MOM_FLUXFORM 
        guDiss(i,j)     = guDiss(i,j)    *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 910 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 911 MOM_FLUXFORM 
        gvDiss(i,j)     = gvDiss(i,j)    *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 917 MOM_FLUXFORM 
        CALL DIAGNOSTICS_FILL(KE,    'momKE   ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 918 MOM_FLUXFORM 
        CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 919 MOM_FLUXFORM 
     &                               'Um_Advec',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 920 MOM_FLUXFORM 
        CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_fluxform/mom_fluxform.F 921 MOM_FLUXFORM 
     &                               'Vm_Advec',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 923 MOM_FLUXFORM 
        CALL DIAGNOSTICS_FILL(guDiss,'Um_Diss ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_fluxform.F 924 MOM_FLUXFORM 
        CALL DIAGNOSTICS_FILL(gvDiss,'Vm_Diss ',k,1,2,bi,bj,myThid)
./pkg/mom_fluxform/mom_u_adv_uu.F 11 MOM_U_ADV_UU 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_u_adv_uu.F 35 MOM_U_ADV_UU 
      INTEGER bi,bj,k
./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_vu.F 11 MOM_U_ADV_VU 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_u_adv_vu.F 35 MOM_U_ADV_VU 
      INTEGER bi,bj,k
./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 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 11 MOM_U_ADV_WU 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_u_adv_wu.F 36 MOM_U_ADV_WU 
      INTEGER bi,bj,k
./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 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 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 99 MOM_U_ADV_WU 
     &          wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)*
./pkg/mom_fluxform/mom_u_coriolis.F 11 MOM_U_CORIOLIS 
     I        bi,bj,k,vFld,
./pkg/mom_fluxform/mom_u_coriolis.F 34 MOM_U_CORIOLIS 
      INTEGER bi,bj,k
./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 56 MOM_U_CORIOLIS 
     &         + _fCori(i-1,j,bi,bj)
./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 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 105 MOM_U_DEL2U 
         hFacZClosedS = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 106 MOM_U_DEL2U 
         hFacZClosedN = h0FacW(i,j,k,bi,bj) - h0FacZ(i,j+1)
./pkg/mom_fluxform/mom_u_del2u.F 108 MOM_U_DEL2U 
         hFacZClosedS = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_u_del2u.F 109 MOM_U_DEL2U 
         hFacZClosedN = _hFacW(i,j,k,bi,bj) - h0FacZ(i,j+1)
./pkg/mom_fluxform/mom_u_del2u.F 112 MOM_U_DEL2U 
     &    -_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 113 MOM_U_DEL2U 
     &       *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_u_del2u.F 114 MOM_U_DEL2U 
     &       *( hFacZClosedS*dxV(i, j ,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 115 MOM_U_DEL2U 
     &                      *_recip_dyU(i, j ,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 116 MOM_U_DEL2U 
     &         +hFacZClosedN*dxV(i,j+1,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 117 MOM_U_DEL2U 
     &                      *_recip_dyU(i,j+1,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 119 MOM_U_DEL2U 
     &         *_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 11 MOM_U_DEL2U 
     I        bi, bj, k,
./pkg/mom_fluxform/mom_u_del2u.F 34 MOM_U_DEL2U 
      INTEGER bi, bj, k
./pkg/mom_fluxform/mom_u_del2u.F 55 MOM_U_DEL2U 
        fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 56 MOM_U_DEL2U 
     &   *_dyF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 57 MOM_U_DEL2U 
     &   *_recip_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 60 MOM_U_DEL2U 
     &   *sqCosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 63 MOM_U_DEL2U 
     &   *maskInC(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 74 MOM_U_DEL2U 
     &   *_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 75 MOM_U_DEL2U 
     &   *_recip_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 78 MOM_U_DEL2U 
     &   *sqCosFacV(J,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 89 MOM_U_DEL2U 
     &   recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 90 MOM_U_DEL2U 
     &  *recip_rAw(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_u_del2u.F 93 MOM_U_DEL2U 
     &   )*_maskW(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_u_del2u.F 95 MOM_U_DEL2U 
     &    *maskInW(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_metric_cylinder.F 11 MOM_U_METRIC_CYLINDER 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_u_metric_cylinder.F 35 MOM_U_METRIC_CYLINDER 
      INTEGER bi,bj,k
./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
./model/src/calc_viscosity.F 11 CALC_VISCOSITY 
     I           bi,bj, iMin,iMax,jMin,jMax,
./model/src/calc_viscosity.F 39 CALC_VISCOSITY 
      INTEGER bi,bj
./model/src/calc_viscosity.F 61 CALC_VISCOSITY 
     I        bi,bj, iMin,iMax,jMin,jMax, k,
./model/src/calc_viscosity.F 68 CALC_VISCOSITY 
     I        bi,bj, iMin,iMax,jMin,jMax, k,
./model/src/calc_viscosity.F 75 CALC_VISCOSITY 
     I        bi,bj, iMin,iMax,jMin,jMax, k,
./model/src/calc_viscosity.F 82 CALC_VISCOSITY 
     I        bi,bj, iMin,iMax,jMin,jMax, k,
./model/src/calc_viscosity.F 89 CALC_VISCOSITY 
     I        bi,bj, iMin,iMax,jMin,jMax, k,
./pkg/mom_fluxform/mom_u_metric_sphere.F 11 MOM_U_METRIC_SPHERE 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_u_metric_sphere.F 35 MOM_U_METRIC_SPHERE 
      INTEGER bi,bj,k
./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 11 MOM_U_XVISCFLUX 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_u_xviscflux.F 37 MOM_U_XVISCFLUX 
      INTEGER bi,bj,k
./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 60 MOM_U_XVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F 63 MOM_U_XVISCFLUX 
     &       *sqCosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F 65 MOM_U_XVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_u_xviscflux.F 67 MOM_U_XVISCFLUX 
     &      )*_recip_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_u_yviscflux.F 11 MOM_U_YVISCFLUX 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_u_yviscflux.F 37 MOM_U_YVISCFLUX 
      INTEGER bi,bj,k
./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 62 MOM_U_YVISCFLUX 
     &       *cosFacV(J,bi,bj)
./pkg/mom_fluxform/mom_u_yviscflux.F 67 MOM_U_YVISCFLUX 
     &       *sqCosFacV(J,bi,bj)
./pkg/mom_fluxform/mom_u_yviscflux.F 69 MOM_U_YVISCFLUX 
     &       *cosFacV(J,bi,bj)
./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 11 MOM_UV_BOUNDARY 
     I               bi,bj,k,
./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 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 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 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 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 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 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 37 MOM_UV_BOUNDARY 
      INTEGER bi,bj
./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 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 11 MOM_V_ADV_UV 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_v_adv_uv.F 35 MOM_V_ADV_UV 
      INTEGER bi,bj,k
./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 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 11 MOM_V_ADV_VV 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_v_adv_vv.F 35 MOM_V_ADV_VV 
      INTEGER bi,bj,k
./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_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 12 MOM_V_ADV_WV 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_v_adv_wv.F 37 MOM_V_ADV_WV 
      INTEGER bi,bj,k
./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 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 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_coriolis.F 11 MOM_V_CORIOLIS 
     I        bi,bj,k,uFld,
./pkg/mom_fluxform/mom_v_coriolis.F 34 MOM_V_CORIOLIS 
      INTEGER bi,bj,k
./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 56 MOM_V_CORIOLIS 
     &         + _fCori(i,j-1,bi,bj)
./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 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 104 MOM_V_DEL2V 
         hFacZClosedW = h0FacS(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 105 MOM_V_DEL2V 
         hFacZClosedE = h0FacS(i,j,k,bi,bj) - h0FacZ(i+1,j)
./pkg/mom_fluxform/mom_v_del2v.F 107 MOM_V_DEL2V 
         hFacZClosedW = _hFacS(i,j,k,bi,bj) - h0FacZ(i,j)
./pkg/mom_fluxform/mom_v_del2v.F 108 MOM_V_DEL2V 
         hFacZClosedE = _hFacS(i,j,k,bi,bj) - h0FacZ(i+1,j)
./pkg/mom_fluxform/mom_v_del2v.F 111 MOM_V_DEL2V 
     &    -_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 112 MOM_V_DEL2V 
     &       *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_v_del2v.F 113 MOM_V_DEL2V 
     &       *( hFacZClosedW*dyU( i ,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 114 MOM_V_DEL2V 
     &                      *_recip_dxV( i ,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 115 MOM_V_DEL2V 
     &         +hFacZClosedE*dyU(i+1,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 116 MOM_V_DEL2V 
     &                      *_recip_dxV(i+1,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 118 MOM_V_DEL2V 
     &         *_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 11 MOM_V_DEL2V 
     I        bi, bj, k,
./pkg/mom_fluxform/mom_v_del2v.F 34 MOM_V_DEL2V 
      INTEGER bi, bj, k
./pkg/mom_fluxform/mom_v_del2v.F 55 MOM_V_DEL2V 
     &   *_dyU(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 56 MOM_V_DEL2V 
     &   *_recip_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 59 MOM_V_DEL2V 
     &   *sqCosFacV(J,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 69 MOM_V_DEL2V 
        fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 70 MOM_V_DEL2V 
     &   *_dxF(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 71 MOM_V_DEL2V 
     &   *_recip_dyF(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 74 MOM_V_DEL2V 
     &   *sqCosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 77 MOM_V_DEL2V 
     &   *maskInC(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 88 MOM_V_DEL2V 
     &   recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 89 MOM_V_DEL2V 
     &  *recip_rAs(i,j,bi,bj)*recip_deepFac2C(k)
./pkg/mom_fluxform/mom_v_del2v.F 92 MOM_V_DEL2V 
     &   )*_maskS(i,j,k,bi,bj)
./pkg/mom_fluxform/mom_v_del2v.F 94 MOM_V_DEL2V 
     &    *maskInS(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_metric_cylinder.F 11 MOM_V_METRIC_CYLINDER 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_v_metric_cylinder.F 35 MOM_V_METRIC_CYLINDER 
      INTEGER bi,bj,k
./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
./model/src/calc_wsurf_tr.F 50 CALC_WSURF_TR 
      INTEGER i,j,bi,bj,ks
./model/src/calc_wsurf_tr.F 64 CALC_WSURF_TR 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/calc_wsurf_tr.F 66 CALC_WSURF_TR 
         wT_Tile(bi,bj) = 0.
./model/src/calc_wsurf_tr.F 67 CALC_WSURF_TR 
         wS_Tile(bi,bj) = 0.
./model/src/calc_wsurf_tr.F 70 CALC_WSURF_TR 
             ks = ksurfC(i,j,bi,bj)
./model/src/calc_wsurf_tr.F 72 CALC_WSURF_TR 
                wT_Tile(bi,bj) = wT_Tile(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 75 CALC_WSURF_TR 
                wS_Tile(bi,bj) = wS_Tile(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/mom_fluxform/mom_v_metric_sphere.F 11 MOM_V_METRIC_SPHERE 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_v_metric_sphere.F 34 MOM_V_METRIC_SPHERE 
      INTEGER bi,bj,k
./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 11 MOM_V_XVISCFLUX 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_v_xviscflux.F 37 MOM_V_XVISCFLUX 
      INTEGER bi,bj,k
./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 61 MOM_V_XVISCFLUX 
     &       *cosFacV(J,bi,bj)
./pkg/mom_fluxform/mom_v_xviscflux.F 64 MOM_V_XVISCFLUX 
     &       *sqCosFacV(J,bi,bj)
./pkg/mom_fluxform/mom_v_xviscflux.F 66 MOM_V_XVISCFLUX 
     &       *cosFacV(J,bi,bj)
./pkg/mom_fluxform/mom_v_xviscflux.F 68 MOM_V_XVISCFLUX 
     &      )*_recip_dxV(i,j,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 11 MOM_V_YVISCFLUX 
     I        bi,bj,k,
./pkg/mom_fluxform/mom_v_yviscflux.F 37 MOM_V_YVISCFLUX 
      INTEGER bi,bj,k
./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 61 MOM_V_YVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 66 MOM_V_YVISCFLUX 
     &       *sqCosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 68 MOM_V_YVISCFLUX 
     &       *cosFacU(J,bi,bj)
./pkg/mom_fluxform/mom_v_yviscflux.F 71 MOM_V_YVISCFLUX 
     &      )*_recip_dyF(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 13 MOM_VECINV 
     I        bi,bj,k,iMin,iMax,jMin,jMax,
./pkg/mom_vecinv/mom_vecinv.F 152 MOM_VECINV 
          act2 = bj - myByLo(myThid)
./pkg/mom_vecinv/mom_vecinv.F 173 MOM_VECINV 
        IF ((bi .EQ. 1).AND.(bj .EQ. 1).AND.(k .EQ. 1)) THEN
./pkg/mom_vecinv/mom_vecinv.F 241 MOM_VECINV 
      CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid)
./pkg/mom_vecinv/mom_vecinv.F 246 MOM_VECINV 
        uFld(i,j) = uVel(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 247 MOM_VECINV 
        vFld(i,j) = vVel(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 255 MOM_VECINV 
      CALL MOM_CALC_KE(bi,bj,k,selectKEscheme,uFld,vFld,KE,myThid)
./pkg/mom_vecinv/mom_vecinv.F 257 MOM_VECINV 
      CALL MOM_CALC_RELVORT3(bi,bj,k,uFld,vFld,hFacZ,vort3,myThid)
./pkg/mom_vecinv/mom_vecinv.F 284 MOM_VECINV 
     &       MIN( h0FacW(i,j,k,bi,bj), h0FacW(i,j-1,k,bi,bj) ),
./pkg/mom_vecinv/mom_vecinv.F 285 MOM_VECINV 
     &       MIN( h0FacS(i,j,k,bi,bj), h0FacS(i-1,j,k,bi,bj) ) )
./pkg/mom_vecinv/mom_vecinv.F 291 MOM_VECINV 
       CALL MOM_CALC_HDIV(bi,bj,k,2,uFld,vFld,hDiv,myThid)
./pkg/mom_vecinv/mom_vecinv.F 294 MOM_VECINV 
        CALL MOM_CALC_TENSION( bi,bj,k,uFld,vFld,tension,myThid )
./pkg/mom_vecinv/mom_vecinv.F 295 MOM_VECINV 
        CALL MOM_CALC_STRAIN( bi,bj,k,uFld,vFld,hFacZ,strain,myThid )
./pkg/mom_vecinv/mom_vecinv.F 319 MOM_VECINV 
         CALL MOM_CALC_VISC( bi, bj, k,
./pkg/mom_vecinv/mom_vecinv.F 327 MOM_VECINV 
         CALL MOM_VI_DEL2UV(bi,bj,k,hDiv,vort3,hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 330 MOM_VECINV 
         CALL MOM_CALC_HDIV(bi,bj,k,2,del2u,del2v,dStar,myThid)
./pkg/mom_vecinv/mom_vecinv.F 331 MOM_VECINV 
         CALL MOM_CALC_RELVORT3(bi,bj,k,
./pkg/mom_vecinv/mom_vecinv.F 340 MOM_VECINV 
         CALL MOM_HDISSIP( bi, bj, k,
./pkg/mom_vecinv/mom_vecinv.F 348 MOM_VECINV 
         CALL MOM_VI_HDISSIP( bi, bj, k,
./pkg/mom_vecinv/mom_vecinv.F 361 MOM_VECINV 
       CALL MOM_U_RVISCFLUX(bi,bj,k+1,uVel,KappaRU,vrF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 372 MOM_VECINV 
     &   -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_vecinv/mom_vecinv.F 373 MOM_VECINV 
     &   *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 382 MOM_VECINV 
       CALL MOM_U_SIDEDRAG( bi, bj, k,
./pkg/mom_vecinv/mom_vecinv.F 397 MOM_VECINV 
       CALL MOM_U_BOTTOMDRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 406 MOM_VECINV 
       CALL SHELFICE_U_DRAG(bi,bj,k,uFld,KE,KappaRU,vF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 420 MOM_VECINV 
       CALL MOM_V_RVISCFLUX(bi,bj,k+1,vVel,KappaRV,vrF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 431 MOM_VECINV 
     &   -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/mom_vecinv/mom_vecinv.F 432 MOM_VECINV 
     &   *recip_rAs(i,j,bi,bj)
./pkg/mom_vecinv/mom_vecinv.F 441 MOM_VECINV 
       CALL MOM_V_SIDEDRAG( bi, bj, k,
./pkg/mom_vecinv/mom_vecinv.F 456 MOM_VECINV 
       CALL MOM_V_BOTTOMDRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 465 MOM_VECINV 
         CALL SHELFICE_V_DRAG(bi,bj,k,vFld,KE,KappaRV,vF,myThid)
./pkg/mom_vecinv/mom_vecinv.F 485 MOM_VECINV 
     &  CALL MOM_CALC_ABSVORT3(bi,bj,k,vort3,omega3,myThid)
./pkg/mom_vecinv/mom_vecinv.F 495 MOM_VECINV 
        CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 497 MOM_VECINV 
        CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 500 MOM_VECINV 
        CALL MOM_VI_CORIOLIS(bi,bj,k,uFld,vFld,hFacZ,r_hFacZ,
./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 511 MOM_VECINV 
           CALL WRITE_LOCAL_RL('fV','I10',1,uCf,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 512 MOM_VECINV 
           CALL WRITE_LOCAL_RL('fU','I10',1,vCf,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 516 MOM_VECINV 
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fV', uCf,
./pkg/mom_vecinv/mom_vecinv.F 518 MOM_VECINV 
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fU', vCf,
./pkg/mom_vecinv/mom_vecinv.F 525 MOM_VECINV 
         CALL DIAGNOSTICS_FILL(uCf,'Um_Cori ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 526 MOM_VECINV 
         CALL DIAGNOSTICS_FILL(vCf,'Vm_Cori ',k,1,2,bi,bj,myThid)
./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 542 MOM_VECINV 
        CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,omega3,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 545 MOM_VECINV 
        CALL MOM_VI_U_CORIOLIS_C4(bi,bj,k,vFld,vort3, r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 548 MOM_VECINV 
        CALL MOM_VI_U_CORIOLIS(bi,bj,K,vFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 551 MOM_VECINV 
        CALL MOM_VI_U_CORIOLIS(bi,bj,k,vFld,vort3, hFacZ,r_hFacZ,
./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 561 MOM_VECINV 
        CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K,uFld,omega3,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 564 MOM_VECINV 
        CALL MOM_VI_V_CORIOLIS_C4(bi,bj,K,uFld,vort3, r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 567 MOM_VECINV 
        CALL MOM_VI_V_CORIOLIS(bi,bj,K,uFld,omega3,hFacZ,r_hFacZ,
./pkg/mom_vecinv/mom_vecinv.F 570 MOM_VECINV 
        CALL MOM_VI_V_CORIOLIS(bi,bj,k,uFld,vort3, hFacZ,r_hFacZ,
./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 581 MOM_VECINV 
           CALL WRITE_LOCAL_RL('zV','I10',1,uCf,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 582 MOM_VECINV 
           CALL WRITE_LOCAL_RL('zU','I10',1,vCf,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 586 MOM_VECINV 
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zV', uCf,
./pkg/mom_vecinv/mom_vecinv.F 588 MOM_VECINV 
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zU', vCf,
./pkg/mom_vecinv/mom_vecinv.F 597 MOM_VECINV 
     &                           Nr, k, bi, bj, myThid)
./pkg/mom_vecinv/mom_vecinv.F 599 MOM_VECINV 
     &                           Nr, k, bi, bj, myThid)
./pkg/mom_vecinv/mom_vecinv.F 604 MOM_VECINV 
         CALL DIAGNOSTICS_FILL(uCf,'Um_AdvZ3',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 605 MOM_VECINV 
         CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvZ3',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 611 MOM_VECINV 
        CALL MOM_VI_U_VERTSHEAR(bi,bj,K,uVel,wVel,uCf,myThid)
./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 617 MOM_VECINV 
        CALL MOM_VI_V_VERTSHEAR(bi,bj,K,vVel,wVel,vCf,myThid)
./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 625 MOM_VECINV 
         CALL DIAGNOSTICS_FILL(uCf,'Um_AdvRe',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 626 MOM_VECINV 
         CALL DIAGNOSTICS_FILL(vCf,'Vm_AdvRe',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 632 MOM_VECINV 
       CALL MOM_VI_U_GRAD_KE(bi,bj,K,KE,uCf,myThid)
./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 638 MOM_VECINV 
       CALL MOM_VI_V_GRAD_KE(bi,bj,K,KE,vCf,myThid)
./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 646 MOM_VECINV 
           CALL WRITE_LOCAL_RL('KEx','I10',1,uCf,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 647 MOM_VECINV 
           CALL WRITE_LOCAL_RL('KEy','I10',1,vCf,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 651 MOM_VECINV 
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEx', uCf,
./pkg/mom_vecinv/mom_vecinv.F 653 MOM_VECINV 
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEy', vCf,
./pkg/mom_vecinv/mom_vecinv.F 664 MOM_VECINV 
        CALL MOM_U_CORIOLIS_NH(bi,bj,k,wVel,uCf,myThid)
./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 672 MOM_VECINV 
        CALL MOM_V_CORIOLIS_NH(bi,bj,k,wVel,vCf,myThid)
./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 683 MOM_VECINV 
       CALL MOM_U_METRIC_NH(bi,bj,k,uFld,wVel,uCf,myThid)
./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 689 MOM_VECINV 
       CALL MOM_V_METRIC_NH(bi,bj,k,vFld,wVel,vCf,myThid)
./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 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 711 MOM_VECINV 
     &             guDiss,gvDiss, k, standardMessageUnit,bi,bj,myThid )
./pkg/mom_vecinv/mom_vecinv.F 718 MOM_VECINV 
     &                        bi,bj,k, myIter, myThid )
./pkg/mom_vecinv/mom_vecinv.F 720 MOM_VECINV 
     &                        bi,bj,k, myIter, myThid )
./pkg/mom_vecinv/mom_vecinv.F 722 MOM_VECINV 
     &                        bi,bj,k, myIter, myThid )
./pkg/mom_vecinv/mom_vecinv.F 724 MOM_VECINV 
     &                        bi,bj,k, myIter, myThid )
./pkg/mom_vecinv/mom_vecinv.F 727 MOM_VECINV 
         CALL WRITE_LOCAL_RL('W3','I10',1,omega3, bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 728 MOM_VECINV 
         CALL WRITE_LOCAL_RL('Z3','I10',1,vort3BC,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 729 MOM_VECINV 
         CALL WRITE_LOCAL_RL('KE','I10',1,KE,     bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 730 MOM_VECINV 
         CALL WRITE_LOCAL_RL('D', 'I10',1,hDiv,   bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 731 MOM_VECINV 
         CALL WRITE_LOCAL_RL('Dt','I10',1,tension,bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 733 MOM_VECINV 
     &                        bi,bj,k, myIter, myThid )
./pkg/mom_vecinv/mom_vecinv.F 734 MOM_VECINV 
         CALL WRITE_LOCAL_RL('Du','I10',1,guDiss, bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 735 MOM_VECINV 
         CALL WRITE_LOCAL_RL('Dv','I10',1,gvDiss, bi,bj,k,myIter,myThid)
./pkg/mom_vecinv/mom_vecinv.F 739 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'W3',omega3,
./pkg/mom_vecinv/mom_vecinv.F 73 MOM_VECINV 
      INTEGER bi,bj,k
./pkg/mom_vecinv/mom_vecinv.F 741 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Z3',vort3BC,
./pkg/mom_vecinv/mom_vecinv.F 743 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE,
./pkg/mom_vecinv/mom_vecinv.F 745 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'D', hDiv,
./pkg/mom_vecinv/mom_vecinv.F 747 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dt',tension,
./pkg/mom_vecinv/mom_vecinv.F 749 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Ds',strainBC,
./pkg/mom_vecinv/mom_vecinv.F 751 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Du',guDiss,
./pkg/mom_vecinv/mom_vecinv.F 753 MOM_VECINV 
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dv',gvDiss,
./pkg/mom_vecinv/mom_vecinv.F 761 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(vort3BC,'momVort3',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 762 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(KE,     'momKE   ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 764 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(hDiv,   'momHDiv ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 765 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(guDiss, 'Um_Diss ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 766 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(gvDiss, 'Vm_Diss ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 769 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(tension, 'Tension ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 770 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(strainBC,'Strain  ',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 772 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(gU(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_vecinv/mom_vecinv.F 773 MOM_VECINV 
     &                                'Um_Advec',k,1,2,bi,bj,myThid)
./pkg/mom_vecinv/mom_vecinv.F 774 MOM_VECINV 
        CALL DIAGNOSTICS_FILL(gV(1-OLx,1-OLy,k,bi,bj),
./pkg/mom_vecinv/mom_vecinv.F 775 MOM_VECINV 
     &                                'Vm_Advec',k,1,2,bi,bj,myThid)
./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 24 MOM_VI_CORIOLIS 
      INTEGER bi,bj,K
./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 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 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 7 MOM_VI_CORIOLIS 
     I        bi,bj,K,
./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 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 99 MOM_VI_CORIOLIS 
     &    -0.5*( fCoriG(i,j,bi,bj)+fCoriG(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 100 MOM_VI_DEL2UV 
     &       *maskInW(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 111 MOM_VI_DEL2UV 
     &                             hDiv, bi,bj, myThid )
./pkg/mom_vecinv/mom_vi_del2uv.F 119 MOM_VI_DEL2UV 
     &      (  ( hDiv(i,j) - hDiv(i,j-1) )*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 120 MOM_VI_DEL2UV 
     &        +_recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_del2uv.F 122 MOM_VI_DEL2UV 
     &                                    *recip_dxG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 123 MOM_VI_DEL2UV 
     &      )*maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 125 MOM_VI_DEL2UV 
     &       *maskInS(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 22 MOM_VI_DEL2UV 
      INTEGER bi,bj,k
./pkg/mom_vecinv/mom_vi_del2uv.F 7 MOM_VI_DEL2UV 
     I        bi,bj,k,
./pkg/mom_vecinv/mom_vi_del2uv.F 86 MOM_VI_DEL2UV 
     &                             hDiv, bi,bj, myThid )
./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 97 MOM_VI_DEL2UV 
     &                                    *recip_dyG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_del2uv.F 98 MOM_VI_DEL2UV 
     &      )*maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 100 MOM_VI_HDISSIP 
     &               cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 101 MOM_VI_HDISSIP 
     &        + viscAhD*              ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 103 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 132 MOM_VI_HDISSIP 
          Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 133 MOM_VI_HDISSIP 
          Dij=dyF( i , j ,bi,bj)*dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 134 MOM_VI_HDISSIP 
          Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 136 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 137 MOM_VI_HDISSIP 
          Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 138 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 156 MOM_VI_HDISSIP 
          uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 157 MOM_VI_HDISSIP 
     &                             ( (Dij-Dmj)*cosFacU(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 158 MOM_VI_HDISSIP 
     &  -_recip_hFacW(i,j,k,bi,bj)*( Zip-Zij )
./pkg/mom_vecinv/mom_vi_hdissip.F 160 MOM_VI_HDISSIP 
     &                                        *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 163 MOM_VI_HDISSIP 
          vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 164 MOM_VI_HDISSIP 
     &   _recip_hFacS(i,j,k,bi,bj)*( (Zpj-Zij)*cosFacV(j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 167 MOM_VI_HDISSIP 
     &                                        *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 172 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 173 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 175 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 178 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 179 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 180 MOM_VI_HDISSIP 
     &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 182 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 196 MOM_VI_HDISSIP 
          Dim=dyF( i ,j-1,bi,bj)*dStar( i ,j-1)
./pkg/mom_vecinv/mom_vi_hdissip.F 197 MOM_VI_HDISSIP 
          Dij=dyF( i , j ,bi,bj)*dStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 198 MOM_VI_HDISSIP 
          Dmj=dyF(i-1, j ,bi,bj)*dStar(i-1, j )
./pkg/mom_vecinv/mom_vi_hdissip.F 200 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 201 MOM_VI_HDISSIP 
          Zij1=dxV( i , j ,bi,bj)*hFacZ( i , j )*zStar( i , j )
./pkg/mom_vecinv/mom_vi_hdissip.F 202 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 217 MOM_VI_HDISSIP 
          uD4 = recip_rAw(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 218 MOM_VI_HDISSIP 
     &                             viscA4D*( Dij-Dmj )*cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 219 MOM_VI_HDISSIP 
     &  -_recip_hFacW(i,j,k,bi,bj)*viscA4Z*( Zip-Zij )
./pkg/mom_vecinv/mom_vi_hdissip.F 221 MOM_VI_HDISSIP 
     &                                                *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 224 MOM_VI_HDISSIP 
          vD4 = recip_rAs(i,j,bi,bj)*(
./pkg/mom_vecinv/mom_vi_hdissip.F 225 MOM_VI_HDISSIP 
     &   _recip_hFacS(i,j,k,bi,bj)*viscA4Z*( Zpj-Zij )*cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 228 MOM_VI_HDISSIP 
     &                                                *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 233 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 234 MOM_VI_HDISSIP 
     &        - viscA4Z*_recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 235 MOM_VI_HDISSIP 
     &                                ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 237 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 239 MOM_VI_HDISSIP 
          vD4 = viscA4Z*_recip_hFacS(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 240 MOM_VI_HDISSIP 
     &               cosFacV(j,bi,bj)*( Zpj-Zij )*recip_DXG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 241 MOM_VI_HDISSIP 
     &        + viscA4D*              ( Dij-Dim )*recip_DYC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 243 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 26 MOM_VI_HDISSIP 
      INTEGER bi, bj, k
./pkg/mom_vecinv/mom_vi_hdissip.F 63 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 64 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 66 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 69 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 70 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 71 MOM_VI_HDISSIP 
     &                               +( Dij-Dim )*recip_DYC(i,j,bi,bj) )
./pkg/mom_vecinv/mom_vi_hdissip.F 73 MOM_VI_HDISSIP 
     &                                           *cosFacV(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 7 MOM_VI_HDISSIP 
     I        bi, bj, k,
./pkg/mom_vecinv/mom_vi_hdissip.F 93 MOM_VI_HDISSIP 
     &               cosFacU(j,bi,bj)*( Dij-Dmj )*recip_DXC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 94 MOM_VI_HDISSIP 
     &        - viscAhZ*_recip_hFacW(i,j,k,bi,bj)*
./pkg/mom_vecinv/mom_vi_hdissip.F 95 MOM_VI_HDISSIP 
     &                                ( Zip-Zij )*recip_DYG(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 97 MOM_VI_HDISSIP 
     &                                           *cosFacU(j,bi,bj)
./pkg/mom_vecinv/mom_vi_hdissip.F 99 MOM_VI_HDISSIP 
          vD2 = viscAhZ*_recip_hFacS(i,j,k,bi,bj)*
./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 10 MOM_VI_U_CORIOLIS 
     I                     bi, bj, k,
./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 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 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 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 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 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 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 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 34 MOM_VI_U_CORIOLIS 
      INTEGER bi, bj, k
./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 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 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_c4.F 10 MOM_VI_U_CORIOLIS_C4 
     I        bi,bj,k,
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 130 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 131 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 132 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 133 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 143 MOM_VI_U_CORIOLIS_C4 
          Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 144 MOM_VI_U_CORIOLIS_C4 
          Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 156 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 157 MOM_VI_U_CORIOLIS_C4 
     &                               * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 171 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 172 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 174 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 175 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 184 MOM_VI_U_CORIOLIS_C4 
          Rjp = ( vort3r(i,j+2) - vort3r(i,j+1) )*maskInW(i,j+1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 185 MOM_VI_U_CORIOLIS_C4 
          Rjm = ( vort3r(i, j ) - vort3r(i,j-1) )*maskInW(i,j-1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 200 MOM_VI_U_CORIOLIS_C4 
         uCoriolisTerm(i,j) =  vort3u*recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 201 MOM_VI_U_CORIOLIS_C4 
     &                               * _maskW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 38 MOM_VI_U_CORIOLIS_C4 
      INTEGER bi,bj,k
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 78 MOM_VI_U_CORIOLIS_C4 
       myTile = W2_myTileList(bi,bj)
./model/src/cg2d.F 117 CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 121 CG2D 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d.F 122 CG2D 
          rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax)
./model/src/cg2d.F 133 CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 137 CG2D 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm
./model/src/cg2d.F 138 CG2D 
          cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm
./model/src/cg2d.F 150 CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 155 CG2D 
            cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d.F 161 CG2D 
          cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d.F 164 CG2D 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg2d.F 165 CG2D 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg2d.F 171 CG2D 
          cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d.F 172 CG2D 
     &    (aW2d(i  ,j  ,bi,bj)*cg2d_x(i-1,j  ,bi,bj)
./model/src/cg2d.F 173 CG2D 
     &    +aW2d(i+1,j  ,bi,bj)*cg2d_x(i+1,j  ,bi,bj)
./model/src/cg2d.F 174 CG2D 
     &    +aS2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j-1,bi,bj)
./model/src/cg2d.F 175 CG2D 
     &    +aS2d(i  ,j+1,bi,bj)*cg2d_x(i  ,j+1,bi,bj)
./model/src/cg2d.F 176 CG2D 
     &    +aC2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j  ,bi,bj)
./model/src/cg2d.F 179 CG2D 
          localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F 181 CG2D 
          errTile(bi,bj)    = errTile(bi,bj)
./model/src/cg2d.F 182 CG2D 
     &                      + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F 183 CG2D 
          sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d.F 220 CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 222 CG2D 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d.F 228 CG2D 
           cg2d_q(i,j,bi,bj) =
./model/src/cg2d.F 229 CG2D 
     &      pC(i  ,j  ,bi,bj)*cg2d_r(i  ,j  ,bi,bj)
./model/src/cg2d.F 230 CG2D 
     &     +pW(i  ,j  ,bi,bj)*cg2d_r(i-1,j  ,bi,bj)
./model/src/cg2d.F 231 CG2D 
     &     +pW(i+1,j  ,bi,bj)*cg2d_r(i+1,j  ,bi,bj)
./model/src/cg2d.F 232 CG2D 
     &     +pS(i  ,j  ,bi,bj)*cg2d_r(i  ,j-1,bi,bj)
./model/src/cg2d.F 233 CG2D 
     &     +pS(i  ,j+1,bi,bj)*cg2d_r(i  ,j+1,bi,bj)
./model/src/cg2d.F 238 CG2D 
          localBuf(i,j,bi,bj) =
./model/src/cg2d.F 239 CG2D 
     &      cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F 241 CG2D 
           eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d.F 242 CG2D 
     &     +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F 261 CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 265 CG2D 
           cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj)
./model/src/cg2d.F 266 CG2D 
     &                       + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d.F 277 CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 279 CG2D 
         alphaTile(bi,bj) = 0. _d 0
./model/src/cg2d.F 285 CG2D 
           cg2d_q(i,j,bi,bj) =
./model/src/cg2d.F 286 CG2D 
     &     aW2d(i  ,j  ,bi,bj)*cg2d_s(i-1,j  ,bi,bj)
./model/src/cg2d.F 287 CG2D 
     &    +aW2d(i+1,j  ,bi,bj)*cg2d_s(i+1,j  ,bi,bj)
./model/src/cg2d.F 288 CG2D 
     &    +aS2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j-1,bi,bj)
./model/src/cg2d.F 289 CG2D 
     &    +aS2d(i  ,j+1,bi,bj)*cg2d_s(i  ,j+1,bi,bj)
./model/src/cg2d.F 290 CG2D 
     &    +aC2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j  ,bi,bj)
./model/src/cg2d.F 292 CG2D 
          localBuf(i,j,bi,bj) = cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d.F 294 CG2D 
          alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg2d.F 295 CG2D 
     &                     + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d.F 314 CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 316 CG2D 
         errTile(bi,bj) = 0. _d 0
./model/src/cg2d.F 319 CG2D 
           cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj)
./model/src/cg2d.F 320 CG2D 
           cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj)
./model/src/cg2d.F 322 CG2D 
           localBuf(i,j,bi,bj) = cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F 324 CG2D 
           errTile(bi,bj) = errTile(bi,bj)
./model/src/cg2d.F 325 CG2D 
     &                    + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d.F 351 CG2D 
         DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 355 CG2D 
             cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d.F 369 CG2D 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 373 CG2D 
             cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj)
./model/src/cg2d.F 382 CG2D 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d.F 386 CG2D 
            cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm
./model/src/cg2d.F 90 CG2D 
      INTEGER bi, bj
./pkg/mom_vecinv/mom_vi_u_grad_ke.F 23 MOM_VI_U_GRAD_KE 
      INTEGER bi,bj,K
./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 7 MOM_VI_U_GRAD_KE 
     I        bi,bj,K,
./pkg/mom_vecinv/mom_vi_u_vertshear.F 103 MOM_VI_U_VERTSHEAR 
        uZp=(mask_Kp1*uFld(I,J,Kp1,bi,bj)-uFld(I,J,K,bi,bj))*rkSign
./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 24 MOM_VI_U_VERTSHEAR 
      INTEGER bi,bj,K
./pkg/mom_vecinv/mom_vi_u_vertshear.F 69 MOM_VI_U_VERTSHEAR 
     &    wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 70 MOM_VI_U_VERTSHEAR 
     &   +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 72 MOM_VI_U_VERTSHEAR 
     &              *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 76 MOM_VI_U_VERTSHEAR 
     &    wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 77 MOM_VI_U_VERTSHEAR 
     &   +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 79 MOM_VI_U_VERTSHEAR 
     &              *recip_rAw(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 7 MOM_VI_U_VERTSHEAR 
     I        bi,bj,K,
./pkg/mom_vecinv/mom_vi_u_vertshear.F 83 MOM_VI_U_VERTSHEAR 
     &    wFld(I,J,K,bi,bj)*maskC(I,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 84 MOM_VI_U_VERTSHEAR 
     &   +wFld(I-1,J,K,bi,bj)*maskC(I-1,J,Km1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 89 MOM_VI_U_VERTSHEAR 
     &    wFld(I,J,Kp1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 90 MOM_VI_U_VERTSHEAR 
     &   +wFld(I-1,J,Kp1,bi,bj)
./pkg/mom_vecinv/mom_vi_u_vertshear.F 96 MOM_VI_U_VERTSHEAR 
        uZm=(uFld(I,J,K,bi,bj)-mask_Km1*uFld(I,J,Km1,bi,bj))*rkSign
./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 10 MOM_VI_V_CORIOLIS 
     I                     bi, bj, k,
./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 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 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 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 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 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 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 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 34 MOM_VI_V_CORIOLIS 
      INTEGER bi, bj, k
./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 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 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_c4.F 10 MOM_VI_V_CORIOLIS_C4 
     I        bi,bj,k,
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 130 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 131 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 132 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 133 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 143 MOM_VI_V_CORIOLIS_C4 
          Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 144 MOM_VI_V_CORIOLIS_C4 
          Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 156 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 157 MOM_VI_V_CORIOLIS_C4 
     &                               * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 171 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 172 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 174 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 175 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 184 MOM_VI_V_CORIOLIS_C4 
          Rjp = ( vort3r(i+2,j) - vort3r(i+1,j) )*maskInS(i+1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 185 MOM_VI_V_CORIOLIS_C4 
          Rjm = ( vort3r( i ,j) - vort3r(i-1,j) )*maskInS(i-1,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 200 MOM_VI_V_CORIOLIS_C4 
         vCoriolisTerm(i,j) = -vort3v*recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 201 MOM_VI_V_CORIOLIS_C4 
     &                               * _maskS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 38 MOM_VI_V_CORIOLIS_C4 
      INTEGER bi,bj,k
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 78 MOM_VI_V_CORIOLIS_C4 
       myTile = W2_myTileList(bi,bj)
./pkg/mom_vecinv/mom_vi_v_grad_ke.F 23 MOM_VI_V_GRAD_KE 
      INTEGER bi,bj,K
./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 7 MOM_VI_V_GRAD_KE 
     I        bi,bj,K,
./pkg/mom_vecinv/mom_vi_v_vertshear.F 103 MOM_VI_V_VERTSHEAR 
        vZp=(mask_Kp1*vFld(I,J,Kp1,bi,bj)-vFld(I,J,K,bi,bj))*rkSign
./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 24 MOM_VI_V_VERTSHEAR 
      INTEGER bi,bj,K
./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 7 MOM_VI_V_VERTSHEAR 
     I        bi,bj,K,
./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/mom_vecinv/mom_vi_v_vertshear.F 89 MOM_VI_V_VERTSHEAR 
     &    wFld(I,J,Kp1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 90 MOM_VI_V_VERTSHEAR 
     &   +wFld(I,J-1,Kp1,bi,bj)
./pkg/mom_vecinv/mom_vi_v_vertshear.F 96 MOM_VI_V_VERTSHEAR 
        vZm=(vFld(I,J,K,bi,bj)-mask_Km1*vFld(I,J,Km1,bi,bj))*rkSign
./pkg/monitor/mon_advcfl.F 33 MON_ADVCFL 
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_advcfl.F 38 MON_ADVCFL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_advcfl.F 43 MON_ADVCFL 
           tmpVal=abs(U(I,J,K,bi,bj))*rDx(I,J,BI,BJ)*dT
./pkg/monitor/mon_advcflw.F 33 MON_ADVCFLW 
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_advcflw.F 38 MON_ADVCFLW 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_advcflw.F 43 MON_ADVCFLW 
           tmpVal=abs(W(I,J,K,bi,bj))*rDz(K)*dT
./model/src/cg2d_ex0.F 106 CG2D_EX0 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_ex0.F 109 CG2D_EX0 
        actualIts(bi,bj)  = 0
./model/src/cg2d_ex0.F 110 CG2D_EX0 
        minResIter(bi,bj) = 0
./model/src/cg2d_ex0.F 111 CG2D_EX0 
        minResTile(bi,bj) = -1. _d 0
./model/src/cg2d_ex0.F 112 CG2D_EX0 
        eta_qrNM1(bi,bj) =  1. _d 0
./model/src/cg2d_ex0.F 116 CG2D_EX0 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d_ex0.F 117 CG2D_EX0 
          rhsMaxLoc = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMaxLoc)
./model/src/cg2d_ex0.F 120 CG2D_EX0 
        rhsNorm(bi,bj) = 1. _d 0
./model/src/cg2d_ex0.F 121 CG2D_EX0 
        IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc
./model/src/cg2d_ex0.F 125 CG2D_EX0 
           cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm(bi,bj)
./model/src/cg2d_ex0.F 126 CG2D_EX0 
           cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm(bi,bj)
./model/src/cg2d_ex0.F 142 CG2D_EX0 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_ex0.F 147 CG2D_EX0 
            cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_ex0.F 153 CG2D_EX0 
          cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d_ex0.F 156 CG2D_EX0 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg2d_ex0.F 157 CG2D_EX0 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg2d_ex0.F 163 CG2D_EX0 
          cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d_ex0.F 164 CG2D_EX0 
     &    (aW2d(i  ,j  ,bi,bj)*cg2d_x(i-1,j  ,bi,bj)
./model/src/cg2d_ex0.F 165 CG2D_EX0 
     &    +aW2d(i+1,j  ,bi,bj)*cg2d_x(i+1,j  ,bi,bj)
./model/src/cg2d_ex0.F 166 CG2D_EX0 
     &    +aS2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j-1,bi,bj)
./model/src/cg2d_ex0.F 167 CG2D_EX0 
     &    +aS2d(i  ,j+1,bi,bj)*cg2d_x(i  ,j+1,bi,bj)
./model/src/cg2d_ex0.F 168 CG2D_EX0 
     &    +aC2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j  ,bi,bj)
./model/src/cg2d_ex0.F 170 CG2D_EX0 
          errTile(bi,bj)    = errTile(bi,bj)
./model/src/cg2d_ex0.F 171 CG2D_EX0 
     &                      + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_ex0.F 172 CG2D_EX0 
          sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d_ex0.F 176 CG2D_EX0 
          minResTile(bi,bj) = errTile(bi,bj)
./model/src/cg2d_ex0.F 178 CG2D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg2d_ex0.F 179 CG2D_EX0 
        sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS )
./model/src/cg2d_ex0.F 204 CG2D_EX0 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_ex0.F 206 CG2D_EX0 
        IF ( errTile(bi,bj).GE.cg2dTolerance_sq ) THEN
./model/src/cg2d_ex0.F 210 CG2D_EX0 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d_ex0.F 216 CG2D_EX0 
           cg2d_q(i,j,bi,bj) =
./model/src/cg2d_ex0.F 217 CG2D_EX0 
     &      pC(i  ,j  ,bi,bj)*cg2d_r(i  ,j  ,bi,bj)
./model/src/cg2d_ex0.F 218 CG2D_EX0 
     &     +pW(i  ,j  ,bi,bj)*cg2d_r(i-1,j  ,bi,bj)
./model/src/cg2d_ex0.F 219 CG2D_EX0 
     &     +pW(i+1,j  ,bi,bj)*cg2d_r(i+1,j  ,bi,bj)
./model/src/cg2d_ex0.F 220 CG2D_EX0 
     &     +pS(i  ,j  ,bi,bj)*cg2d_r(i  ,j-1,bi,bj)
./model/src/cg2d_ex0.F 221 CG2D_EX0 
     &     +pS(i  ,j+1,bi,bj)*cg2d_r(i  ,j+1,bi,bj)
./model/src/cg2d_ex0.F 222 CG2D_EX0 
           eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d_ex0.F 223 CG2D_EX0 
     &     +cg2d_q(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_ex0.F 227 CG2D_EX0 
         cgBeta   = eta_qrNtile(bi,bj)/eta_qrNM1(bi,bj)
./model/src/cg2d_ex0.F 228 CG2D_EX0 
         eta_qrNM1(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d_ex0.F 232 CG2D_EX0 
           cg2d_s(i,j,bi,bj) = cg2d_q(i,j,bi,bj)
./model/src/cg2d_ex0.F 233 CG2D_EX0 
     &                       + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d_ex0.F 239 CG2D_EX0 
     U                  cg2d_s(0,0,bi,bj),
./model/src/cg2d_ex0.F 241 CG2D_EX0 
     I                  EXCH_IGNORE_CORNERS, bi, bj, myThid )
./model/src/cg2d_ex0.F 245 CG2D_EX0 
         alphaTile(bi,bj) = 0. _d 0
./model/src/cg2d_ex0.F 251 CG2D_EX0 
           cg2d_q(i,j,bi,bj) =
./model/src/cg2d_ex0.F 252 CG2D_EX0 
     &     aW2d(i  ,j  ,bi,bj)*cg2d_s(i-1,j  ,bi,bj)
./model/src/cg2d_ex0.F 253 CG2D_EX0 
     &    +aW2d(i+1,j  ,bi,bj)*cg2d_s(i+1,j  ,bi,bj)
./model/src/cg2d_ex0.F 254 CG2D_EX0 
     &    +aS2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j-1,bi,bj)
./model/src/cg2d_ex0.F 255 CG2D_EX0 
     &    +aS2d(i  ,j+1,bi,bj)*cg2d_s(i  ,j+1,bi,bj)
./model/src/cg2d_ex0.F 256 CG2D_EX0 
     &    +aC2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j  ,bi,bj)
./model/src/cg2d_ex0.F 257 CG2D_EX0 
          alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg2d_ex0.F 258 CG2D_EX0 
     &                     + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d_ex0.F 261 CG2D_EX0 
         alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj)
./model/src/cg2d_ex0.F 265 CG2D_EX0 
         errTile(bi,bj) = 0. _d 0
./model/src/cg2d_ex0.F 268 CG2D_EX0 
           cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj)
./model/src/cg2d_ex0.F 269 CG2D_EX0 
           cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj)
./model/src/cg2d_ex0.F 270 CG2D_EX0 
           errTile(bi,bj) = errTile(bi,bj)
./model/src/cg2d_ex0.F 271 CG2D_EX0 
     &                    + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_ex0.F 274 CG2D_EX0 
         actualIts(bi,bj) = it2d
./model/src/cg2d_ex0.F 279 CG2D_EX0 
     &      bj, '): iter=', it2d, ' ; resid.= ', SQRT(errTile(bi,bj))
./model/src/cg2d_ex0.F 284 CG2D_EX0 
         IF ( errTile(bi,bj) .GE. cg2dTolerance_sq .AND.
./model/src/cg2d_ex0.F 285 CG2D_EX0 
     &        errTile(bi,bj) .LT. minResTile(bi,bj) ) THEN
./model/src/cg2d_ex0.F 287 CG2D_EX0 
           minResTile(bi,bj) = errTile(bi,bj)
./model/src/cg2d_ex0.F 288 CG2D_EX0 
           minResIter(bi,bj) = it2d
./model/src/cg2d_ex0.F 291 CG2D_EX0 
             cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_ex0.F 297 CG2D_EX0 
     U                  cg2d_r(0,0,bi,bj),
./model/src/cg2d_ex0.F 299 CG2D_EX0 
     I                  EXCH_IGNORE_CORNERS, bi, bj, myThid )
./model/src/cg2d_ex0.F 302 CG2D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg2d_ex0.F 314 CG2D_EX0 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_ex0.F 318 CG2D_EX0 
         IF ( errTile(bi,bj) .GT. minResTile(bi,bj) ) THEN
./model/src/cg2d_ex0.F 321 CG2D_EX0 
             cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj)
./model/src/cg2d_ex0.F 331 CG2D_EX0 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_ex0.F 335 CG2D_EX0 
            cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm(bi,bj)
./model/src/cg2d_ex0.F 349 CG2D_EX0 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_ex0.F 351 CG2D_EX0 
         nIterMin = MIN( actualIts(bi,bj), nIterMin )
./model/src/cg2d_ex0.F 352 CG2D_EX0 
         numIters = MAX( actualIts(bi,bj), numIters )
./model/src/cg2d_ex0.F 353 CG2D_EX0 
         minResidualSq = MIN( errTile(bi,bj), minResidualSq )
./model/src/cg2d_ex0.F 82 CG2D_EX0 
      INTEGER bi, bj
./pkg/monitor/mon_advcflw2.F 35 MON_ADVCFLW2 
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_advcflw2.F 40 MON_ADVCFLW2 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_advcflw2.F 45 MON_ADVCFLW2 
           tmpVal=abs(W(I,J,K,bi,bj))*dT
./pkg/monitor/mon_advcflw2.F 46 MON_ADVCFLW2 
     &           *max(  rDrF(K)*rHfac(I,J,K,bi,bj),
./pkg/monitor/mon_advcflw2.F 47 MON_ADVCFLW2 
     &                rDrF(K-1)*rHfac(I,J,K-1,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 102 MON_CALC_STATS_RL 
            tileVol (bi,bj) = tileVol (bi,bj) + tmpVol
./pkg/monitor/mon_calc_stats_rl.F 103 MON_CALC_STATS_RL 
            tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal
./pkg/monitor/mon_calc_stats_rl.F 104 MON_CALC_STATS_RL 
            tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal
./pkg/monitor/mon_calc_stats_rl.F 135 MON_CALC_STATS_RL 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_calc_stats_rl.F 137 MON_CALC_STATS_RL 
         tileSD(bi,bj)=0.
./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 145 MON_CALC_STATS_RL 
             tileSD(bi,bj) = tileSD(bi,bj)
./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 60 MON_CALC_STATS_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_calc_stats_rl.F 62 MON_CALC_STATS_RL 
        tileDel2(bi,bj) = 0.
./pkg/monitor/mon_calc_stats_rl.F 63 MON_CALC_STATS_RL 
        tileVol (bi,bj) = 0.
./pkg/monitor/mon_calc_stats_rl.F 64 MON_CALC_STATS_RL 
        tileMean(bi,bj) = 0.
./pkg/monitor/mon_calc_stats_rl.F 65 MON_CALC_STATS_RL 
        tileVar (bi,bj) = 0.
./pkg/monitor/mon_calc_stats_rl.F 69 MON_CALC_STATS_RL 
           tmpVal  = arr(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 70 MON_CALC_STATS_RL 
           tmpMask = arrMask(i,j,bi,bj)*arrhFac(i,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 88 MON_CALC_STATS_RL 
            ddx = arrhFac(i+1,j,k,bi,bj)*arrhFac(i-1,j,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 90 MON_CALC_STATS_RL 
             ddx = (arr(i+1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F 91 MON_CALC_STATS_RL 
     &           + (arr(i-1,j,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F 93 MON_CALC_STATS_RL 
            ddy = arrhFac(i,j+1,k,bi,bj)*arrhFac(i,j-1,k,bi,bj)
./pkg/monitor/mon_calc_stats_rl.F 95 MON_CALC_STATS_RL 
             ddy = (arr(i,j+1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F 96 MON_CALC_STATS_RL 
     &           + (arr(i,j-1,k,bi,bj)-tmpVal)
./pkg/monitor/mon_calc_stats_rl.F 98 MON_CALC_STATS_RL 
            tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy
./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 102 MON_CALC_STATS_RS 
            tileVol (bi,bj) = tileVol (bi,bj) + tmpVol
./pkg/monitor/mon_calc_stats_rs.F 103 MON_CALC_STATS_RS 
            tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal
./pkg/monitor/mon_calc_stats_rs.F 104 MON_CALC_STATS_RS 
            tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal
./pkg/monitor/mon_calc_stats_rs.F 135 MON_CALC_STATS_RS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_calc_stats_rs.F 137 MON_CALC_STATS_RS 
         tileSD(bi,bj)=0.
./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 145 MON_CALC_STATS_RS 
             tileSD(bi,bj) = tileSD(bi,bj)
./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 60 MON_CALC_STATS_RS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_calc_stats_rs.F 62 MON_CALC_STATS_RS 
        tileDel2(bi,bj) = 0.
./pkg/monitor/mon_calc_stats_rs.F 63 MON_CALC_STATS_RS 
        tileVol (bi,bj) = 0.
./pkg/monitor/mon_calc_stats_rs.F 64 MON_CALC_STATS_RS 
        tileMean(bi,bj) = 0.
./pkg/monitor/mon_calc_stats_rs.F 65 MON_CALC_STATS_RS 
        tileVar (bi,bj) = 0.
./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_calc_stats_rs.F 98 MON_CALC_STATS_RS 
            tileDel2(bi,bj) = tileDel2(bi,bj) + ddx*ddx + ddy*ddy
./pkg/monitor/mon_ke.F 100 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 101 MON_KE 
     &      +vVel(i, j ,k,bi,bj)*vVel(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 102 MON_KE 
     &         *dxG(i, j ,bi,bj)*dyC(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)
./pkg/monitor/mon_ke.F 103 MON_KE 
     &      +vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
./pkg/monitor/mon_ke.F 104 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 105 MON_KE 
     &        )*maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F 106 MON_KE 
           tileVlAv(bi,bj) = tileVlAv(bi,bj)
./pkg/monitor/mon_ke.F 108 MON_KE 
           tmpVal= tmpVal*_recip_hFacC(i,j,k,bi,bj)*recip_rA(i,j,bi,bj)
./pkg/monitor/mon_ke.F 113 MON_KE 
     &        ( wVel(i,j, k, bi,bj)*wVel(i,j, k, bi,bj)*msk_1
./pkg/monitor/mon_ke.F 115 MON_KE 
     &         +wVel(i,j,kp1,bi,bj)*wVel(i,j,kp1,bi,bj)*mskp1
./pkg/monitor/mon_ke.F 117 MON_KE 
     &        )*maskC(i,j,k,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F 118 MON_KE 
            tileVlAv(bi,bj) = tileVlAv(bi,bj)
./pkg/monitor/mon_ke.F 119 MON_KE 
     &             + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 127 MON_KE 
            tileMean(bi,bj)=tileMean(bi,bj)+tmpVal
./pkg/monitor/mon_ke.F 137 MON_KE 
           tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
./pkg/monitor/mon_ke.F 138 MON_KE 
     &                      *etaN(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 142 MON_KE 
     &            + phi0surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 143 MON_KE 
           tilePEav(bi,bj) = tilePEav(bi,bj)
./pkg/monitor/mon_ke.F 144 MON_KE 
     &            + tmpVal*rA(i,j,bi,bj)*deepFac2F(1)
./pkg/monitor/mon_ke.F 145 MON_KE 
     &                    *maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F 170 MON_KE 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_ke.F 195 MON_KE 
            tmpVal = abFac1*guNm(i,j,k,bi,bj,m1)
./pkg/monitor/mon_ke.F 196 MON_KE 
     &             + abFac2*guNm(i,j,k,bi,bj,m2)
./pkg/monitor/mon_ke.F 198 MON_KE 
            tmpVal = abFac1*guNm1(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 200 MON_KE 
            tmpVal = tmpVal*deltaTMom + uVel(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 202 MON_KE 
     &             + R_drK*tmpVal*_hFacW(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 210 MON_KE 
     &             ( yG(i,j,bi,bj) + yG(i,j+1,bi,bj) )*halfRL )
./pkg/monitor/mon_ke.F 211 MON_KE 
            tmpFld(i,j) = tmpFld(i,j)*u2zonDir(i,j,bi,bj)
./pkg/monitor/mon_ke.F 212 MON_KE 
     &                   *cosLat*rAw(i,j,bi,bj)
./pkg/monitor/mon_ke.F 213 MON_KE 
     &                   *maskInW(i,j,bi,bj)
./pkg/monitor/mon_ke.F 216 MON_KE 
         tileAMu(bi,bj) = 0. _d 0
./pkg/monitor/mon_ke.F 219 MON_KE 
            tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j)
./pkg/monitor/mon_ke.F 234 MON_KE 
            tmpVal = abFac1*gvNm(i,j,k,bi,bj,m1)
./pkg/monitor/mon_ke.F 235 MON_KE 
     &             + abFac2*gvNm(i,j,k,bi,bj,m2)
./pkg/monitor/mon_ke.F 237 MON_KE 
            tmpVal = abFac1*gvNm1(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 239 MON_KE 
            tmpVal = tmpVal*deltaTMom + vVel(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 241 MON_KE 
     &             + R_drK*tmpVal*_hFacS(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 249 MON_KE 
     &             ( yG(i,j,bi,bj) + yG(i+1,j,bi,bj) )*halfRL )
./pkg/monitor/mon_ke.F 250 MON_KE 
            tmpFld(i,j) = tmpFld(i,j)*v2zonDir(i,j,bi,bj)
./pkg/monitor/mon_ke.F 251 MON_KE 
     &                   *cosLat*rAs(i,j,bi,bj)
./pkg/monitor/mon_ke.F 252 MON_KE 
     &                   *maskInS(i,j,bi,bj)
./pkg/monitor/mon_ke.F 257 MON_KE 
            tileAMu(bi,bj) = tileAMu(bi,bj) + tmpFld(i,j)
./pkg/monitor/mon_ke.F 265 MON_KE 
            tmpFld(i,j) = etaHnm1(i,j,bi,bj)
./pkg/monitor/mon_ke.F 274 MON_KE 
            tmpFld(i,j) = etaN(i,j,bi,bj)
./pkg/monitor/mon_ke.F 282 MON_KE 
            cosLat = COS( deg2rad*yG(i,j,bi,bj) )
./pkg/monitor/mon_ke.F 297 MON_KE 
            ks = kSurfC(i,j,bi,bj)
./pkg/monitor/mon_ke.F 299 MON_KE 
     &             *maskInC(i,j,bi,bj)*deepFac2F(ks)
./pkg/monitor/mon_ke.F 300 MON_KE 
     &             *rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks)
./pkg/monitor/mon_ke.F 303 MON_KE 
         tileAMs(bi,bj) = 0. _d 0
./pkg/monitor/mon_ke.F 306 MON_KE 
            tileAMs(bi,bj) = tileAMs(bi,bj) + tmpFld(i,j)
./pkg/monitor/mon_ke.F 33 MON_KE 
      INTEGER bi, bj
./pkg/monitor/mon_ke.F 64 MON_KE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_ke.F 66 MON_KE 
        tileVol(bi,bj)  = 0. _d 0
./pkg/monitor/mon_ke.F 67 MON_KE 
        tileMean(bi,bj) = 0. _d 0
./pkg/monitor/mon_ke.F 68 MON_KE 
        tileVlAv(bi,bj) = 0. _d 0
./pkg/monitor/mon_ke.F 69 MON_KE 
        tilePEav(bi,bj) = 0. _d 0
./pkg/monitor/mon_ke.F 80 MON_KE 
           tileVol(bi,bj) = tileVol(bi,bj)
./pkg/monitor/mon_ke.F 81 MON_KE 
     &                    + rA(i,j,bi,bj)*deepFac2C(k)
./pkg/monitor/mon_ke.F 82 MON_KE 
     &                     *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj)
./pkg/monitor/mon_ke.F 83 MON_KE 
     &                     *maskInC(i,j,bi,bj)
./pkg/monitor/mon_ke.F 97 MON_KE 
     &       uVel( i ,j,k,bi,bj)*uVel( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F 98 MON_KE 
     &         *dyG( i ,j,bi,bj)*dxC( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)
./pkg/monitor/mon_ke.F 99 MON_KE 
     &      +uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
./model/src/cg2d_nsa.F 100 CG2D_NSA 
      INTEGER bi, bj
./model/src/cg2d_nsa.F 147 CG2D_NSA 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 151 CG2D_NSA 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d_nsa.F 152 CG2D_NSA 
          rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax)
./model/src/cg2d_nsa.F 164 CG2D_NSA 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 168 CG2D_NSA 
           cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm
./model/src/cg2d_nsa.F 169 CG2D_NSA 
           cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm
./model/src/cg2d_nsa.F 186 CG2D_NSA 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 188 CG2D_NSA 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg2d_nsa.F 189 CG2D_NSA 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg2d_nsa.F 192 CG2D_NSA 
          cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d_nsa.F 197 CG2D_NSA 
          cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d_nsa.F 198 CG2D_NSA 
     &    (aW2d(i  ,j  ,bi,bj)*cg2d_x(i-1,j  ,bi,bj)
./model/src/cg2d_nsa.F 199 CG2D_NSA 
     &    +aW2d(i+1,j  ,bi,bj)*cg2d_x(i+1,j  ,bi,bj)
./model/src/cg2d_nsa.F 200 CG2D_NSA 
     &    +aS2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j-1,bi,bj)
./model/src/cg2d_nsa.F 201 CG2D_NSA 
     &    +aS2d(i  ,j+1,bi,bj)*cg2d_x(i  ,j+1,bi,bj)
./model/src/cg2d_nsa.F 202 CG2D_NSA 
     &    +aC2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j  ,bi,bj)
./model/src/cg2d_nsa.F 204 CG2D_NSA 
          errTile(bi,bj)    = errTile(bi,bj)
./model/src/cg2d_nsa.F 205 CG2D_NSA 
     &                      + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_nsa.F 206 CG2D_NSA 
          sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d_nsa.F 256 CG2D_NSA 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 258 CG2D_NSA 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d_nsa.F 261 CG2D_NSA 
           cg2d_z(i,j,bi,bj) =
./model/src/cg2d_nsa.F 262 CG2D_NSA 
     &      pC(i  ,j  ,bi,bj)*cg2d_r(i  ,j  ,bi,bj)
./model/src/cg2d_nsa.F 263 CG2D_NSA 
     &     +pW(i  ,j  ,bi,bj)*cg2d_r(i-1,j  ,bi,bj)
./model/src/cg2d_nsa.F 264 CG2D_NSA 
     &     +pW(i+1,j  ,bi,bj)*cg2d_r(i+1,j  ,bi,bj)
./model/src/cg2d_nsa.F 265 CG2D_NSA 
     &     +pS(i  ,j  ,bi,bj)*cg2d_r(i  ,j-1,bi,bj)
./model/src/cg2d_nsa.F 266 CG2D_NSA 
     &     +pS(i  ,j+1,bi,bj)*cg2d_r(i  ,j+1,bi,bj)
./model/src/cg2d_nsa.F 267 CG2D_NSA 
           eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d_nsa.F 268 CG2D_NSA 
     &     +cg2d_z(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_nsa.F 286 CG2D_NSA 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 290 CG2D_NSA 
           cg2d_s(i,j,bi,bj) = cg2d_z(i,j,bi,bj)
./model/src/cg2d_nsa.F 291 CG2D_NSA 
     &                       + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d_nsa.F 309 CG2D_NSA 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 311 CG2D_NSA 
         alphaTile(bi,bj) = 0. _d 0
./model/src/cg2d_nsa.F 314 CG2D_NSA 
           cg2d_q(i,j,bi,bj) =
./model/src/cg2d_nsa.F 315 CG2D_NSA 
     &     aW2d(i  ,j  ,bi,bj)*cg2d_s(i-1,j  ,bi,bj)
./model/src/cg2d_nsa.F 316 CG2D_NSA 
     &    +aW2d(i+1,j  ,bi,bj)*cg2d_s(i+1,j  ,bi,bj)
./model/src/cg2d_nsa.F 317 CG2D_NSA 
     &    +aS2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j-1,bi,bj)
./model/src/cg2d_nsa.F 318 CG2D_NSA 
     &    +aS2d(i  ,j+1,bi,bj)*cg2d_s(i  ,j+1,bi,bj)
./model/src/cg2d_nsa.F 319 CG2D_NSA 
     &    +aC2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j  ,bi,bj)
./model/src/cg2d_nsa.F 320 CG2D_NSA 
           alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg2d_nsa.F 321 CG2D_NSA 
     &                      + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d_nsa.F 336 CG2D_NSA 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 338 CG2D_NSA 
         errTile(bi,bj) = 0. _d 0
./model/src/cg2d_nsa.F 341 CG2D_NSA 
           cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+alpha*cg2d_s(i,j,bi,bj)
./model/src/cg2d_nsa.F 342 CG2D_NSA 
           cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-alpha*cg2d_q(i,j,bi,bj)
./model/src/cg2d_nsa.F 343 CG2D_NSA 
           errTile(bi,bj) = errTile(bi,bj)
./model/src/cg2d_nsa.F 344 CG2D_NSA 
     &                    + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_nsa.F 371 CG2D_NSA 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_nsa.F 375 CG2D_NSA 
            cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm
./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 114 MON_STATS_LATBND_RL 
            tileVol (bi,bj,n) = tileVol (bi,bj,n) + tmpVol
./pkg/monitor/mon_stats_latbnd_rl.F 115 MON_STATS_LATBND_RL 
            tileMean(bi,bj,n) = tileMean(bi,bj,n) + tmpVol*tmpVal
./pkg/monitor/mon_stats_latbnd_rl.F 116 MON_STATS_LATBND_RL 
            tileVar (bi,bj,n) = tileVar (bi,bj,n) + tmpVol*tmpVal*tmpVal
./pkg/monitor/mon_stats_latbnd_rl.F 51 MON_STATS_LATBND_RL 
      INTEGER bi,bj,i,j,k,n
./pkg/monitor/mon_stats_latbnd_rl.F 91 MON_STATS_LATBND_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_latbnd_rl.F 94 MON_STATS_LATBND_RL 
         tileVol (bi,bj,n) = 0.
./pkg/monitor/mon_stats_latbnd_rl.F 95 MON_STATS_LATBND_RL 
         tileMean(bi,bj,n) = 0.
./pkg/monitor/mon_stats_latbnd_rl.F 96 MON_STATS_LATBND_RL 
         tileVar (bi,bj,n) = 0.
./pkg/monitor/mon_stats_rl.F 130 MON_STATS_RL 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rl.F 132 MON_STATS_RL 
         tileSD(bi,bj)=0.
./pkg/monitor/mon_stats_rl.F 136 MON_STATS_RL 
            tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 137 MON_STATS_RL 
            IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./pkg/monitor/mon_stats_rl.F 138 MON_STATS_RL 
             tmpVol=arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
./pkg/monitor/mon_stats_rl.F 139 MON_STATS_RL 
     &                                *arrMask(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 140 MON_STATS_RL 
             tileSD(bi,bj) = tileSD(bi,bj)
./pkg/monitor/mon_stats_rl.F 35 MON_STATS_RL 
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_stats_rl.F 61 MON_STATS_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rl.F 63 MON_STATS_RL 
        tileDel2(bi,bj) = 0.
./pkg/monitor/mon_stats_rl.F 64 MON_STATS_RL 
        tileVol (bi,bj) = 0.
./pkg/monitor/mon_stats_rl.F 65 MON_STATS_RL 
        tileMean(bi,bj) = 0.
./pkg/monitor/mon_stats_rl.F 66 MON_STATS_RL 
        tileVar (bi,bj) = 0.
./pkg/monitor/mon_stats_rl.F 70 MON_STATS_RL 
           tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 71 MON_STATS_RL 
           IF (arrMask(I,J,K,bi,bj).NE.0. .AND. noPnts) THEN
./pkg/monitor/mon_stats_rl.F 76 MON_STATS_RL 
           IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./pkg/monitor/mon_stats_rl.F 79 MON_STATS_RL 
            tileDel2(bi,bj) = tileDel2(bi,bj)
./pkg/monitor/mon_stats_rl.F 81 MON_STATS_RL 
     &         (arr(I+1,J,K,bi,bj)-tmpVal)*arrMask(I+1,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 82 MON_STATS_RL 
     &        +(arr(I-1,J,K,bi,bj)-tmpVal)*arrMask(I-1,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 83 MON_STATS_RL 
     &        +(arr(I,J+1,K,bi,bj)-tmpVal)*arrMask(I,J+1,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 84 MON_STATS_RL 
     &        +(arr(I,J-1,K,bi,bj)-tmpVal)*arrMask(I,J-1,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 87 MON_STATS_RL 
            tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
./pkg/monitor/mon_stats_rl.F 88 MON_STATS_RL 
     &                                 *arrMask(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rl.F 89 MON_STATS_RL 
            tileVol (bi,bj) = tileVol (bi,bj) + tmpVol
./pkg/monitor/mon_stats_rl.F 90 MON_STATS_RL 
            tileMean(bi,bj) = tileMean(bi,bj) + tmpVol*tmpVal
./pkg/monitor/mon_stats_rl.F 91 MON_STATS_RL 
            tileVar (bi,bj) = tileVar (bi,bj) + tmpVol*tmpVal*tmpVal
./pkg/monitor/mon_stats_rs.F 103 MON_STATS_RS 
            tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rs.F 105 MON_STATS_RS 
             tileSD(bi,bj) = tileSD(bi,bj)
./pkg/monitor/mon_stats_rs.F 32 MON_STATS_RS 
      INTEGER bi,bj,I,J,K
./pkg/monitor/mon_stats_rs.F 49 MON_STATS_RS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rs.F 51 MON_STATS_RS 
        tileMean(bi,bj) = 0.
./pkg/monitor/mon_stats_rs.F 52 MON_STATS_RS 
        tileVar (bi,bj) = 0.
./pkg/monitor/mon_stats_rs.F 56 MON_STATS_RS 
           tmpVal=arr(I,J,K,bi,bj)
./pkg/monitor/mon_stats_rs.F 66 MON_STATS_RS 
            tileMean(bi,bj)=tileMean(bi,bj)+tmpVal
./pkg/monitor/mon_stats_rs.F 67 MON_STATS_RS 
            tileVar (bi,bj)=tileVar (bi,bj)+tmpVal*tmpVal
./pkg/monitor/mon_stats_rs.F 97 MON_STATS_RS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_stats_rs.F 99 MON_STATS_RS 
         tileSD(bi,bj)=0.
./pkg/monitor/mon_surfcor.F 105 MON_SURFCOR 
           tile_wS(bi,bj) = 0.
./pkg/monitor/mon_surfcor.F 108 MON_SURFCOR 
             ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 110 MON_SURFCOR 
              tmpVal = salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 111 MON_SURFCOR 
     &               + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks)
./pkg/monitor/mon_surfcor.F 112 MON_SURFCOR 
     &                *hFacC(i,j,Nr,bi,bj)*_recip_hFacC(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 113 MON_SURFCOR 
              tile_wS(bi,bj) = tile_wS(bi,bj)
./pkg/monitor/mon_surfcor.F 114 MON_SURFCOR 
     &                       + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 115 MON_SURFCOR 
     &                        *wVel(i,j,ks,bi,bj)*tmpVal
./pkg/monitor/mon_surfcor.F 131 MON_SURFCOR 
              tileTh2pe(bi,bj) = tileTh2pe(bi,bj)
./pkg/monitor/mon_surfcor.F 132 MON_SURFCOR 
     &         - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 133 MON_SURFCOR 
     &           *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0
./pkg/monitor/mon_surfcor.F 134 MON_SURFCOR 
     &           *maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 135 MON_SURFCOR 
     &           *maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 154 MON_SURFCOR 
              tmpVol  = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k)
./pkg/monitor/mon_surfcor.F 155 MON_SURFCOR 
     &                 *maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 156 MON_SURFCOR 
              tmpVal  = rStarDhCDt(i,j,bi,bj)*theta(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 159 MON_SURFCOR 
     &          +tmpVol*rStarDhCDt(i,j,bi,bj)*salt(i,j,k,bi,bj)
./pkg/monitor/mon_surfcor.F 166 MON_SURFCOR 
          tile_wT(bi,bj) = tile_wT(bi,bj) + vT_Mean
./pkg/monitor/mon_surfcor.F 167 MON_SURFCOR 
          tile_wS(bi,bj) = tile_wS(bi,bj) + vS_Mean
./pkg/monitor/mon_surfcor.F 168 MON_SURFCOR 
          tileWHeat(bi,bj) = tileWHeat(bi,bj) + vT_Heat
./pkg/monitor/mon_surfcor.F 54 MON_SURFCOR 
      INTEGER i,j,k,ks,bi,bj
./pkg/monitor/mon_surfcor.F 75 MON_SURFCOR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_surfcor.F 77 MON_SURFCOR 
          tileArea(bi,bj) = 0.
./pkg/monitor/mon_surfcor.F 78 MON_SURFCOR 
          tile_wT(bi,bj) = 0.
./pkg/monitor/mon_surfcor.F 79 MON_SURFCOR 
          tile_wS(bi,bj) = 0.
./pkg/monitor/mon_surfcor.F 80 MON_SURFCOR 
          tileWHeat(bi,bj) = 0.
./pkg/monitor/mon_surfcor.F 81 MON_SURFCOR 
          tileTh2pe(bi,bj) = 0.
./pkg/monitor/mon_surfcor.F 85 MON_SURFCOR 
            ks = ksurfC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 87 MON_SURFCOR 
             tileArea(bi,bj) = tileArea(bi,bj)
./pkg/monitor/mon_surfcor.F 88 MON_SURFCOR 
     &                       + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 89 MON_SURFCOR 
             tmpVal = rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 90 MON_SURFCOR 
     &               *wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 91 MON_SURFCOR 
             tile_wT(bi,bj) = tile_wT(bi,bj) + tmpVal
./pkg/monitor/mon_surfcor.F 92 MON_SURFCOR 
             tile_wS(bi,bj) = tile_wS(bi,bj)
./pkg/monitor/mon_surfcor.F 93 MON_SURFCOR 
     &                      + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/monitor/mon_surfcor.F 94 MON_SURFCOR 
     &                       *wVel(i,j,ks,bi,bj)*salt(i,j,ks,bi,bj)
./pkg/monitor/mon_surfcor.F 97 MON_SURFCOR 
               tileWHeat(bi,bj) = tileWHeat(bi,bj)
./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 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 165 MON_VORT3 
           myTile = W2_myTileList(bi,bj)
./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 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 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 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 246 MON_VORT3 
          IF (yG(1,sNy+1,bi,bj).EQ.90.) THEN
./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 255 MON_VORT3 
            hFacZ(1,j) = hFacZ(1,j) + _hFacW(i,j-1,k,bi,bj)
./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 265 MON_VORT3 
          IF (yG(1,1,bi,bj).EQ.-90.) THEN
./pkg/monitor/mon_vort3.F 270 MON_VORT3 
     &                 - uVel(i,j,k,bi,bj)*dxC(i,j,bi,bj)
./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 281 MON_VORT3 
            vort3(1,j) = vort3(1,j)*recip_rAz(1,j,bi,bj)
./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 293 MON_VORT3 
            tileArea(bi,bj)  = tileArea(bi,bj)  + tmpAre
./pkg/monitor/mon_vort3.F 298 MON_VORT3 
            tmpVal = tmpVal + fCoriG(i,j,bi,bj)
./pkg/monitor/mon_vort3.F 299 MON_VORT3 
            tileSum(bi,bj) = tileSum(bi,bj) + tmpAre*tmpVal
./pkg/monitor/mon_vort3.F 300 MON_VORT3 
            tileVar(bi,bj) = tileVar(bi,bj) + tmpAre*tmpVal*tmpVal
./pkg/monitor/mon_vort3.F 303 MON_VORT3 
            tileVol(bi,bj) = tileVol(bi,bj) + tmpVol
./pkg/monitor/mon_vort3.F 304 MON_VORT3 
            tileVSum(bi,bj)= tileVSum(bi,bj)+ tmpVol*tmpVal
./pkg/monitor/mon_vort3.F 305 MON_VORT3 
            tileVSq(bi,bj) = tileVSq(bi,bj) + tmpVol*tmpVal*tmpVal
./pkg/monitor/mon_vort3.F 35 MON_VORT3 
      INTEGER bi,bj,i,j,k
./pkg/monitor/mon_vort3.F 71 MON_VORT3 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/monitor/mon_vort3.F 73 MON_VORT3 
         tileArea(bi,bj)= 0. _d 0
./pkg/monitor/mon_vort3.F 74 MON_VORT3 
         tileVol(bi,bj) = 0. _d 0
./pkg/monitor/mon_vort3.F 75 MON_VORT3 
         tileSum(bi,bj) = 0. _d 0
./pkg/monitor/mon_vort3.F 76 MON_VORT3 
         tileVar(bi,bj) = 0. _d 0
./pkg/monitor/mon_vort3.F 77 MON_VORT3 
         tileVSum(bi,bj)= 0. _d 0
./pkg/monitor/mon_vort3.F 78 MON_VORT3 
         tileVSq(bi,bj) = 0. _d 0
./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))
./model/src/cg2d_sr.F 122 CG2D_SR 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 126 CG2D_SR 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*cg2dNorm
./model/src/cg2d_sr.F 127 CG2D_SR 
          rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax)
./model/src/cg2d_sr.F 138 CG2D_SR 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 142 CG2D_SR 
          cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*rhsNorm
./model/src/cg2d_sr.F 143 CG2D_SR 
          cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*rhsNorm
./model/src/cg2d_sr.F 155 CG2D_SR 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 160 CG2D_SR 
            cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_sr.F 166 CG2D_SR 
          cg2d_s(i,j,bi,bj) = 0.
./model/src/cg2d_sr.F 169 CG2D_SR 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 170 CG2D_SR 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg2d_sr.F 176 CG2D_SR 
          cg2d_r(i,j,bi,bj) = cg2d_b(i,j,bi,bj) -
./model/src/cg2d_sr.F 177 CG2D_SR 
     &    (aW2d(i  ,j  ,bi,bj)*cg2d_x(i-1,j  ,bi,bj)
./model/src/cg2d_sr.F 178 CG2D_SR 
     &    +aW2d(i+1,j  ,bi,bj)*cg2d_x(i+1,j  ,bi,bj)
./model/src/cg2d_sr.F 179 CG2D_SR 
     &    +aS2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j-1,bi,bj)
./model/src/cg2d_sr.F 180 CG2D_SR 
     &    +aS2d(i  ,j+1,bi,bj)*cg2d_x(i  ,j+1,bi,bj)
./model/src/cg2d_sr.F 181 CG2D_SR 
     &    +aC2d(i  ,j  ,bi,bj)*cg2d_x(i  ,j  ,bi,bj)
./model/src/cg2d_sr.F 183 CG2D_SR 
          errTile(bi,bj)    = errTile(bi,bj)
./model/src/cg2d_sr.F 184 CG2D_SR 
     &                      + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F 185 CG2D_SR 
          sumRHStile(bi,bj) = sumRHStile(bi,bj) + cg2d_b(i,j,bi,bj)
./model/src/cg2d_sr.F 218 CG2D_SR 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 220 CG2D_SR 
        eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 226 CG2D_SR 
           cg2d_y(i,j,bi,bj) =
./model/src/cg2d_sr.F 227 CG2D_SR 
     &       pC(i  ,j  ,bi,bj)*cg2d_r(i  ,j  ,bi,bj)
./model/src/cg2d_sr.F 228 CG2D_SR 
     &      +pW(i  ,j  ,bi,bj)*cg2d_r(i-1,j  ,bi,bj)
./model/src/cg2d_sr.F 229 CG2D_SR 
     &      +pW(i+1,j  ,bi,bj)*cg2d_r(i+1,j  ,bi,bj)
./model/src/cg2d_sr.F 230 CG2D_SR 
     &      +pS(i  ,j  ,bi,bj)*cg2d_r(i  ,j-1,bi,bj)
./model/src/cg2d_sr.F 231 CG2D_SR 
     &      +pS(i  ,j+1,bi,bj)*cg2d_r(i  ,j+1,bi,bj)
./model/src/cg2d_sr.F 232 CG2D_SR 
           cg2d_s(i,j,bi,bj)  = cg2d_y(i,j,bi,bj)
./model/src/cg2d_sr.F 233 CG2D_SR 
           eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d_sr.F 234 CG2D_SR 
     &      +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F 247 CG2D_SR 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 249 CG2D_SR 
        alphaTile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 255 CG2D_SR 
          cg2d_q(i,j,bi,bj) =
./model/src/cg2d_sr.F 256 CG2D_SR 
     &      aW2d(i  ,j  ,bi,bj)*cg2d_s(i-1,j  ,bi,bj)
./model/src/cg2d_sr.F 257 CG2D_SR 
     &     +aW2d(i+1,j  ,bi,bj)*cg2d_s(i+1,j  ,bi,bj)
./model/src/cg2d_sr.F 258 CG2D_SR 
     &     +aS2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j-1,bi,bj)
./model/src/cg2d_sr.F 259 CG2D_SR 
     &     +aS2d(i  ,j+1,bi,bj)*cg2d_s(i  ,j+1,bi,bj)
./model/src/cg2d_sr.F 260 CG2D_SR 
     &     +aC2d(i  ,j  ,bi,bj)*cg2d_s(i  ,j  ,bi,bj)
./model/src/cg2d_sr.F 261 CG2D_SR 
          alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg2d_sr.F 262 CG2D_SR 
     &                     + cg2d_s(i,j,bi,bj)*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F 274 CG2D_SR 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 278 CG2D_SR 
          cg2d_x(i,j,bi,bj)=cg2d_x(i,j,bi,bj)+sigma*cg2d_s(i,j,bi,bj)
./model/src/cg2d_sr.F 279 CG2D_SR 
          cg2d_r(i,j,bi,bj)=cg2d_r(i,j,bi,bj)-sigma*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F 295 CG2D_SR 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 302 CG2D_SR 
           cg2d_y(i,j,bi,bj) =
./model/src/cg2d_sr.F 303 CG2D_SR 
     &       pC(i  ,j  ,bi,bj)*cg2d_r(i  ,j  ,bi,bj)
./model/src/cg2d_sr.F 304 CG2D_SR 
     &      +pW(i  ,j  ,bi,bj)*cg2d_r(i-1,j  ,bi,bj)
./model/src/cg2d_sr.F 305 CG2D_SR 
     &      +pW(i+1,j  ,bi,bj)*cg2d_r(i+1,j  ,bi,bj)
./model/src/cg2d_sr.F 306 CG2D_SR 
     &      +pS(i  ,j  ,bi,bj)*cg2d_r(i  ,j-1,bi,bj)
./model/src/cg2d_sr.F 307 CG2D_SR 
     &      +pS(i  ,j+1,bi,bj)*cg2d_r(i  ,j+1,bi,bj)
./model/src/cg2d_sr.F 319 CG2D_SR 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 321 CG2D_SR 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 322 CG2D_SR 
         deltaTile(bi,bj)   = 0. _d 0
./model/src/cg2d_sr.F 323 CG2D_SR 
         errTile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 329 CG2D_SR 
           cg2d_v(i,j,bi,bj) =
./model/src/cg2d_sr.F 330 CG2D_SR 
     &       aW2d(i  ,j  ,bi,bj)*cg2d_y(i-1,j  ,bi,bj)
./model/src/cg2d_sr.F 331 CG2D_SR 
     &      +aW2d(i+1,j  ,bi,bj)*cg2d_y(i+1,j  ,bi,bj)
./model/src/cg2d_sr.F 332 CG2D_SR 
     &      +aS2d(i  ,j  ,bi,bj)*cg2d_y(i  ,j-1,bi,bj)
./model/src/cg2d_sr.F 333 CG2D_SR 
     &      +aS2d(i  ,j+1,bi,bj)*cg2d_y(i  ,j+1,bi,bj)
./model/src/cg2d_sr.F 334 CG2D_SR 
     &      +aC2d(i  ,j  ,bi,bj)*cg2d_y(i  ,j  ,bi,bj)
./model/src/cg2d_sr.F 335 CG2D_SR 
           eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d_sr.F 336 CG2D_SR 
     &      +cg2d_y(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F 337 CG2D_SR 
           deltaTile(bi,bj) = deltaTile(bi,bj)
./model/src/cg2d_sr.F 338 CG2D_SR 
     &      +cg2d_y(i,j,bi,bj)*cg2d_v(i,j,bi,bj)
./model/src/cg2d_sr.F 339 CG2D_SR 
           errTile(bi,bj) = errTile(bi,bj)
./model/src/cg2d_sr.F 340 CG2D_SR 
     &                    + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F 343 CG2D_SR 
         sumPhi(1,bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg2d_sr.F 344 CG2D_SR 
         sumPhi(2,bi,bj) = deltaTile(bi,bj)
./model/src/cg2d_sr.F 345 CG2D_SR 
         sumPhi(3,bi,bj) = errTile(bi,bj)
./model/src/cg2d_sr.F 371 CG2D_SR 
         DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 375 CG2D_SR 
             cg2d_min(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_sr.F 388 CG2D_SR 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 392 CG2D_SR 
           cg2d_s(i,j,bi,bj) = cg2d_y(i,j,bi,bj)
./model/src/cg2d_sr.F 393 CG2D_SR 
     &                       + cgBeta*cg2d_s(i,j,bi,bj)
./model/src/cg2d_sr.F 394 CG2D_SR 
           cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/cg2d_sr.F 395 CG2D_SR 
     &                       + sigma*cg2d_s(i,j,bi,bj)
./model/src/cg2d_sr.F 396 CG2D_SR 
           cg2d_q(i,j,bi,bj) = cg2d_v(i,j,bi,bj)
./model/src/cg2d_sr.F 397 CG2D_SR 
     &                       + cgBeta*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F 398 CG2D_SR 
           cg2d_r(i,j,bi,bj) = cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F 399 CG2D_SR 
     &                       - sigma*cg2d_q(i,j,bi,bj)
./model/src/cg2d_sr.F 409 CG2D_SR 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 411 CG2D_SR 
        errTile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 414 CG2D_SR 
          errTile(bi,bj) = errTile(bi,bj)
./model/src/cg2d_sr.F 415 CG2D_SR 
     &                   + cg2d_r(i,j,bi,bj)*cg2d_r(i,j,bi,bj)
./model/src/cg2d_sr.F 425 CG2D_SR 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 429 CG2D_SR 
             cg2d_x(i,j,bi,bj) = cg2d_min(i,j,bi,bj)
./model/src/cg2d_sr.F 438 CG2D_SR 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg2d_sr.F 442 CG2D_SR 
            cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)/rhsNorm
./model/src/cg2d_sr.F 96 CG2D_SR 
      INTEGER bi, bj
./pkg/my82/my82_calc.F 11 MY82_CALC 
     I                bi, bj, sigmaR, myTime, myIter, myThid )
./pkg/my82/my82_calc.F 148 MY82_CALC 
         MYhbl(I,J,bi,bj) = 0. _d 0
./pkg/my82/my82_calc.F 150 MY82_CALC 
         MYhbl(I,J,bi,bj) = -GM(I,J)/GH(I,J)*MYhblScale
./pkg/my82/my82_calc.F 159 MY82_CALC 
         tkel = MYhbl(I,J,bi,bj)*tke(I,J,K)
./pkg/my82/my82_calc.F 161 MY82_CALC 
         MYviscAr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SM(I,J,K)
./pkg/my82/my82_calc.F 162 MY82_CALC 
         MYdiffKr(I,J,K,bi,bj) = MYhbl(I,J,bi,bj)*tkel*SH(I,J,K)
./pkg/my82/my82_calc.F 164 MY82_CALC 
         MYviscAr(I,J,K,bi,bj) = MAX(MYviscAr(I,J,K,bi,bj),
./pkg/my82/my82_calc.F 166 MY82_CALC 
         MYdiffKr(I,J,K,bi,bj) = MAX(MYdiffKr(I,J,K,bi,bj),
./pkg/my82/my82_calc.F 169 MY82_CALC 
         MYviscAr(I,J,K,bi,bj) = MIN(MYviscAr(I,J,K,bi,bj),MYviscMax)
./pkg/my82/my82_calc.F 170 MY82_CALC 
     &        * maskC(I,J,K,bi,bj)
./pkg/my82/my82_calc.F 171 MY82_CALC 
         MYdiffKr(I,J,K,bi,bj) = MIN(MYdiffKr(I,J,K,bi,bj),MYdiffMax)
./pkg/my82/my82_calc.F 172 MY82_CALC 
     &        * maskC(I,J,K,bi,bj)
./pkg/my82/my82_calc.F 44 MY82_CALC 
      INTEGER bi, bj
./pkg/my82/my82_calc.F 95 MY82_CALC 
     I      bi, bj, K, iMin, iMax, jMin, jMax,
./pkg/my82/my82_calc_diff.F 37 MY82_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./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 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_diff.F 7 MY82_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/my82/my82_calc_visc.F 28 MY82_CALC_VISC 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,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 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_calc_visc.F 6 MY82_CALC_VISC 
     I        bi,bj,iMin,iMax,jMin,jMax,K,
./model/src/cg3d.F 138 CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 143 CG3D 
           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm
./model/src/cg3d.F 144 CG3D 
     &                          * maskC(i,j,k,bi,bj)
./model/src/cg3d.F 145 CG3D 
           rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax)
./model/src/cg3d.F 154 CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 159 CG3D 
           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm
./model/src/cg3d.F 160 CG3D 
           cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm
./model/src/cg3d.F 171 CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 173 CG3D 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg3d.F 174 CG3D 
        sumRHStile(bi,bj) = 0. _d 0
./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 192 CG3D 
             ks = kSurfC(i,j,bi,bj)
./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 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 226 CG3D 
           errTile(bi,bj) = errTile(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 270 CG3D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 272 CG3D 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg3d.F 279 CG3D 
            cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d.F 280 CG3D 
     &                        *cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 290 CG3D 
            cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d.F 291 CG3D 
     &                      *( cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 292 CG3D 
     &                         -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj)
./model/src/cg3d.F 303 CG3D 
            eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg3d.F 304 CG3D 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 314 CG3D 
            cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 315 CG3D 
     &                         -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj)
./model/src/cg3d.F 323 CG3D 
            eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg3d.F 324 CG3D 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 339 CG3D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 344 CG3D 
            cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 345 CG3D 
     &                   + cgBeta*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d.F 354 CG3D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 356 CG3D 
         alphaTile(bi,bj) = 0. _d 0
./model/src/cg3d.F 368 CG3D 
     &         +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 374 CG3D 
             ks = kSurfC(i,j,bi,bj)
./model/src/cg3d.F 376 CG3D 
     &              *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/cg3d.F 377 CG3D 
     &              *rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/cg3d.F 378 CG3D 
     &              *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d.F 390 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 391 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 392 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 393 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 394 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 395 CG3D 
     &       +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d.F 396 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 398 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 400 CG3D 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d.F 401 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 411 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 412 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 413 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 414 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 415 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 416 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 418 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 420 CG3D 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d.F 421 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 431 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 432 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 433 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 434 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 435 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 436 CG3D 
     &       +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d.F 437 CG3D 
     &       +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d.F 438 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 440 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 442 CG3D 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d.F 443 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 454 CG3D 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d.F 455 CG3D 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d.F 456 CG3D 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d.F 457 CG3D 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d.F 458 CG3D 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d.F 459 CG3D 
     &       +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d.F 460 CG3D 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d.F 462 CG3D 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d.F 464 CG3D 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d.F 465 CG3D 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 480 CG3D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 482 CG3D 
         errTile(bi,bj) = 0. _d 0
./model/src/cg3d.F 489 CG3D 
            cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj)
./model/src/cg3d.F 490 CG3D 
     &            +alpha*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d.F 491 CG3D 
            cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 492 CG3D 
     &            -alpha*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d.F 493 CG3D 
            errTile(bi,bj) = errTile(bi,bj)
./model/src/cg3d.F 494 CG3D 
     &            +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d.F 523 CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d.F 528 CG3D 
           cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm
./model/src/cg3d.F 95 CG3D 
      INTEGER bi, bj
./pkg/my82/my82_init_varia.F 31 MY82_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/my82/my82_init_varia.F 48 MY82_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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)
./pkg/my82/my82_output.F 134 MY82_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/my82/my82_output.F 136 MY82_OUTPUT 
          CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid )
./pkg/my82/my82_output.F 137 MY82_OUTPUT 
          CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid )
./pkg/my82/my82_output.F 138 MY82_OUTPUT 
          CALL TIMEAVE_RESET( MYhbltave,    1 , bi, bj, myThid )
./pkg/my82/my82_output.F 139 MY82_OUTPUT 
          MY_timeAve(bi,bj) = 0.
./pkg/my82/my82_output.F 146 MY82_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/my82/my82_output.F 149 MY82_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/my82/my82_output.F 151 MY82_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/my82/my82_output.F 153 MY82_OUTPUT 
     &                           1 , DDTT, bi, bj, myThid )
./pkg/my82/my82_output.F 155 MY82_OUTPUT 
          MY_timeAve(bi,bj) = MY_timeAve(bi,bj)+DDTT
./pkg/my82/my82_output.F 166 MY82_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/my82/my82_output.F 169 MY82_OUTPUT 
     &                            MY_timeAve, Nr, bi,bj,myThid)
./pkg/my82/my82_output.F 171 MY82_OUTPUT 
     &                            MY_timeAve, Nr, bi,bj,myThid)
./pkg/my82/my82_output.F 173 MY82_OUTPUT 
     &                            MY_timeAve, 1 , bi,bj,myThid)
./pkg/my82/my82_output.F 209 MY82_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/my82/my82_output.F 211 MY82_OUTPUT 
          CALL TIMEAVE_RESET( MYviscArtave, Nr, bi, bj, myThid )
./pkg/my82/my82_output.F 212 MY82_OUTPUT 
          CALL TIMEAVE_RESET( MYdiffKrtave, Nr, bi, bj, myThid )
./pkg/my82/my82_output.F 213 MY82_OUTPUT 
          CALL TIMEAVE_RESET( MYhbltave,    1 , bi, bj, myThid )
./pkg/my82/my82_output.F 214 MY82_OUTPUT 
          MY_timeAve(bi,bj) = 0.
./pkg/my82/my82_output.F 72 MY82_OUTPUT 
      INTEGER bi, bj
./pkg/my82/my82_ri_number.F 104 MY82_RI_NUMBER 
        tempu= .5 _d 0*(  uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj)
./pkg/my82/my82_ri_number.F 105 MY82_RI_NUMBER 
     &            - (uVel(I,J,K  ,bi,bj)+uVel(I+1,J,K  ,bi,bj)) )
./pkg/my82/my82_ri_number.F 107 MY82_RI_NUMBER 
        tempv= .5 _d 0*(  vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj)
./pkg/my82/my82_ri_number.F 108 MY82_RI_NUMBER 
     &            - (vVel(I,J,K  ,bi,bj)+vVel(I,J+1,K  ,bi,bj)) )
./pkg/my82/my82_ri_number.F 11 MY82_RI_NUMBER 
     I     bi, bj, K, iMin, iMax, jMin, jMax,
./pkg/my82/my82_ri_number.F 45 MY82_RI_NUMBER 
      INTEGER bi, bj, iMin, iMax, jMin, jMax, k
./pkg/my82/my82_ri_number.F 91 MY82_RI_NUMBER 
     I     theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj),
./pkg/my82/my82_ri_number.F 93 MY82_RI_NUMBER 
     I     Km1, bi, bj, myThid )
./pkg/my82/my82_ri_number.F 96 MY82_RI_NUMBER 
     I     theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj),
./pkg/my82/my82_ri_number.F 98 MY82_RI_NUMBER 
     I     K, bi, bj, myThid )
./pkg/mypackage/mypackage_calc_rhs.F 34 MYPACKAGE_CALC_RHS 
      INTEGER bi, bj
./pkg/mypackage/mypackage_calc_rhs.F 38 MYPACKAGE_CALC_RHS 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d_ex0.F 127 CG3D_EX0 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d_ex0.F 130 CG3D_EX0 
        actualIts(bi,bj) = 0
./model/src/cg3d_ex0.F 131 CG3D_EX0 
        eta_qrNM1(bi,bj) =  1. _d 0
./model/src/cg3d_ex0.F 136 CG3D_EX0 
           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*cg3dNorm
./model/src/cg3d_ex0.F 137 CG3D_EX0 
     &                          * maskC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 138 CG3D_EX0 
           rhsMaxLoc = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMaxLoc)
./model/src/cg3d_ex0.F 142 CG3D_EX0 
        rhsNorm(bi,bj) = 1. _d 0
./model/src/cg3d_ex0.F 143 CG3D_EX0 
        IF ( rhsMaxLoc .NE. 0. ) rhsNorm(bi,bj) = 1. _d 0 / rhsMaxLoc
./model/src/cg3d_ex0.F 147 CG3D_EX0 
           cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm(bi,bj)
./model/src/cg3d_ex0.F 148 CG3D_EX0 
           cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm(bi,bj)
./model/src/cg3d_ex0.F 164 CG3D_EX0 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d_ex0.F 166 CG3D_EX0 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg3d_ex0.F 167 CG3D_EX0 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg3d_ex0.F 179 CG3D_EX0 
     &         +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 185 CG3D_EX0 
             ks = kSurfC(i,j,bi,bj)
./model/src/cg3d_ex0.F 187 CG3D_EX0 
     &              *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/cg3d_ex0.F 188 CG3D_EX0 
     &              *rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/cg3d_ex0.F 189 CG3D_EX0 
     &              *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d_ex0.F 206 CG3D_EX0 
           cg3d_r(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 208 CG3D_EX0 
     &       +aW3d( i, j, k, bi,bj)*cg3d_x(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F 209 CG3D_EX0 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_x(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F 210 CG3D_EX0 
     &       +aS3d( i, j, k, bi,bj)*cg3d_x( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F 211 CG3D_EX0 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_x( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F 212 CG3D_EX0 
     &       +aV3d( i, j, k, bi,bj)*cg3d_x( i, j,km1,bi,bj)*maskM1
./model/src/cg3d_ex0.F 213 CG3D_EX0 
     &       +aV3d( i, j,kp1,bi,bj)*cg3d_x( i, j,kp1,bi,bj)*maskP1
./model/src/cg3d_ex0.F 214 CG3D_EX0 
     &       +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj)
./model/src/cg3d_ex0.F 216 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 219 CG3D_EX0 
           errTile(bi,bj) = errTile(bi,bj)
./model/src/cg3d_ex0.F 220 CG3D_EX0 
     &                    +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 221 CG3D_EX0 
           sumRHStile(bi,bj) = sumRHStile(bi,bj)+cg3d_b(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 226 CG3D_EX0 
           cg3d_s(i,j,k,bi,bj) = 0.
./model/src/cg3d_ex0.F 230 CG3D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg3d_ex0.F 231 CG3D_EX0 
        sumRHS = MAX( ABS(sumRHStile(bi,bj)), sumRHS )
./model/src/cg3d_ex0.F 259 CG3D_EX0 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d_ex0.F 261 CG3D_EX0 
        IF ( errTile(bi,bj).GE.cg3dTolerance_sq ) THEN
./model/src/cg3d_ex0.F 269 CG3D_EX0 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg3d_ex0.F 276 CG3D_EX0 
            cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 277 CG3D_EX0 
     &                        *cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 287 CG3D_EX0 
            cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 288 CG3D_EX0 
     &                      *( cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 289 CG3D_EX0 
     &                         -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj)
./model/src/cg3d_ex0.F 300 CG3D_EX0 
            eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg3d_ex0.F 301 CG3D_EX0 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 311 CG3D_EX0 
            cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 312 CG3D_EX0 
     &                         -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj)
./model/src/cg3d_ex0.F 320 CG3D_EX0 
            eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg3d_ex0.F 321 CG3D_EX0 
     &                        +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 326 CG3D_EX0 
         cgBeta   = eta_qrNtile(bi,bj)/eta_qrNM1(bi,bj)
./model/src/cg3d_ex0.F 327 CG3D_EX0 
         eta_qrNM1(bi,bj) = eta_qrNtile(bi,bj)
./model/src/cg3d_ex0.F 332 CG3D_EX0 
            cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 333 CG3D_EX0 
     &                   + cgBeta*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 340 CG3D_EX0 
         alphaTile(bi,bj) = 0. _d 0
./model/src/cg3d_ex0.F 352 CG3D_EX0 
     &         +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 358 CG3D_EX0 
             ks = kSurfC(i,j,bi,bj)
./model/src/cg3d_ex0.F 360 CG3D_EX0 
     &              *recip_Rcol(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./model/src/cg3d_ex0.F 361 CG3D_EX0 
     &              *rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/cg3d_ex0.F 362 CG3D_EX0 
     &              *recip_Bo(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/cg3d_ex0.F 374 CG3D_EX0 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F 375 CG3D_EX0 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F 376 CG3D_EX0 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F 377 CG3D_EX0 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F 378 CG3D_EX0 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F 379 CG3D_EX0 
     &       +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d_ex0.F 380 CG3D_EX0 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F 382 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 384 CG3D_EX0 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d_ex0.F 385 CG3D_EX0 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 395 CG3D_EX0 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F 396 CG3D_EX0 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F 397 CG3D_EX0 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F 398 CG3D_EX0 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F 399 CG3D_EX0 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F 400 CG3D_EX0 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F 402 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 404 CG3D_EX0 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d_ex0.F 405 CG3D_EX0 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 415 CG3D_EX0 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F 416 CG3D_EX0 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F 417 CG3D_EX0 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F 418 CG3D_EX0 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F 419 CG3D_EX0 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F 420 CG3D_EX0 
     &       +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d_ex0.F 421 CG3D_EX0 
     &       +aV3d( i, j,k+1,bi,bj)*cg3d_s( i, j,k+1,bi,bj)
./model/src/cg3d_ex0.F 422 CG3D_EX0 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F 424 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 426 CG3D_EX0 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d_ex0.F 427 CG3D_EX0 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 438 CG3D_EX0 
            cg3d_q(i,j,k,bi,bj) =
./model/src/cg3d_ex0.F 439 CG3D_EX0 
     &        aW3d( i, j, k, bi,bj)*cg3d_s(i-1,j, k, bi,bj)
./model/src/cg3d_ex0.F 440 CG3D_EX0 
     &       +aW3d(i+1,j, k, bi,bj)*cg3d_s(i+1,j, k, bi,bj)
./model/src/cg3d_ex0.F 441 CG3D_EX0 
     &       +aS3d( i, j, k, bi,bj)*cg3d_s( i,j-1,k, bi,bj)
./model/src/cg3d_ex0.F 442 CG3D_EX0 
     &       +aS3d( i,j+1,k, bi,bj)*cg3d_s( i,j+1,k, bi,bj)
./model/src/cg3d_ex0.F 443 CG3D_EX0 
     &       +aV3d( i, j, k, bi,bj)*cg3d_s( i, j,k-1,bi,bj)
./model/src/cg3d_ex0.F 444 CG3D_EX0 
     &       +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj)
./model/src/cg3d_ex0.F 446 CG3D_EX0 
     &       -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 448 CG3D_EX0 
            alphaTile(bi,bj) = alphaTile(bi,bj)
./model/src/cg3d_ex0.F 449 CG3D_EX0 
     &             +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 453 CG3D_EX0 
         alpha = eta_qrNtile(bi,bj)/alphaTile(bi,bj)
./model/src/cg3d_ex0.F 457 CG3D_EX0 
         errTile(bi,bj) = 0. _d 0
./model/src/cg3d_ex0.F 464 CG3D_EX0 
            cg3d_x(i,j,k,bi,bj)=cg3d_x(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 465 CG3D_EX0 
     &            +alpha*cg3d_s(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 466 CG3D_EX0 
            cg3d_r(i,j,k,bi,bj)=cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 467 CG3D_EX0 
     &            -alpha*cg3d_q(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 468 CG3D_EX0 
            errTile(bi,bj) = errTile(bi,bj)
./model/src/cg3d_ex0.F 469 CG3D_EX0 
     &            +cg3d_r(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj)
./model/src/cg3d_ex0.F 473 CG3D_EX0 
         actualIts(bi,bj) = it3d
./model/src/cg3d_ex0.F 478 CG3D_EX0 
     &      bj, '): iter=', it3d, ' ; resid.= ', SQRT(errTile(bi,bj))
./model/src/cg3d_ex0.F 485 CG3D_EX0 
     U                  cg3d_r(0,0,1,bi,bj),
./model/src/cg3d_ex0.F 487 CG3D_EX0 
     I                  EXCH_IGNORE_CORNERS, bi, bj, myThid )
./model/src/cg3d_ex0.F 490 CG3D_EX0 
        err_sq = MAX( errTile(bi,bj), err_sq )
./model/src/cg3d_ex0.F 507 CG3D_EX0 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/cg3d_ex0.F 512 CG3D_EX0 
           cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm(bi,bj)
./model/src/cg3d_ex0.F 516 CG3D_EX0 
        numIters = MAX( actualIts(bi,bj), numIters )
./model/src/cg3d_ex0.F 87 CG3D_EX0 
      INTEGER bi, bj
./pkg/mypackage/mypackage_init_varia.F 33 MYPACKAGE_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/mypackage/mypackage_init_varia.F 35 MYPACKAGE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 63 MYPACKAGE_INIT_VARIA 
          myPa_Surf1(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 64 MYPACKAGE_INIT_VARIA 
          myPa_Surf2(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_tendency_apply.F 114 MYPACKAGE_TENDENCY_APPLY_V 
      INTEGER k, bi, bj
./pkg/mypackage/mypackage_tendency_apply.F 128 MYPACKAGE_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj) * myPa_TendVelV(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 136 MYPACKAGE_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj)*( myPa_TendVelV(i,j-1,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 137 MYPACKAGE_TENDENCY_APPLY_V 
     &                           +myPa_TendVelV(i, j ,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 155 MYPACKAGE_TENDENCY_APPLY_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/mypackage/mypackage_tendency_apply.F 181 MYPACKAGE_TENDENCY_APPLY_T 
      INTEGER k, bi, bj
./pkg/mypackage/mypackage_tendency_apply.F 195 MYPACKAGE_TENDENCY_APPLY_T 
     &     + maskC(i,j,k,bi,bj) * myPa_TendScal1(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 19 MYPACKAGE_TENDENCY_APPLY_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/mypackage/mypackage_tendency_apply.F 212 MYPACKAGE_TENDENCY_APPLY_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/mypackage/mypackage_tendency_apply.F 238 MYPACKAGE_TENDENCY_APPLY_S 
      INTEGER k, bi, bj
./pkg/mypackage/mypackage_tendency_apply.F 252 MYPACKAGE_TENDENCY_APPLY_S 
     &     + maskC(i,j,k,bi,bj) * myPa_TendScal2(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 46 MYPACKAGE_TENDENCY_APPLY_U 
      INTEGER k, bi, bj
./pkg/mypackage/mypackage_tendency_apply.F 60 MYPACKAGE_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj) * myPa_TendVelU(i,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 68 MYPACKAGE_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj)*( myPa_TendVelU(i-1,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 69 MYPACKAGE_TENDENCY_APPLY_U 
     &                           +myPa_TendVelU( i ,j,k,bi,bj)
./pkg/mypackage/mypackage_tendency_apply.F 87 MYPACKAGE_TENDENCY_APPLY_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/obcs/obcs_add_tides.F 102 OBCS_ADD_TIDES 
             OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj) +
./pkg/obcs/obcs_add_tides.F 103 OBCS_ADD_TIDES 
     &              maskS(i,jB,k,bi,bj) * OBNam(i,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F 104 OBCS_ADD_TIDES 
     &              COS( 2.D0 * PI * (myTime-OBNph(i,td,bi,bj)) /
./pkg/obcs/obcs_add_tides.F 114 OBCS_ADD_TIDES 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_add_tides.F 117 OBCS_ADD_TIDES 
           jB = OB_Js(i,bi,bj)
./pkg/obcs/obcs_add_tides.F 120 OBCS_ADD_TIDES 
             OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj) +
./pkg/obcs/obcs_add_tides.F 121 OBCS_ADD_TIDES 
     &              maskS(i,1+jB,k,bi,bj)* OBSam(i,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F 122 OBCS_ADD_TIDES 
     &              COS( 2.D0 * PI * (myTime-OBSph(i,td,bi,bj)) /
./pkg/obcs/obcs_add_tides.F 47 OBCS_ADD_TIDES 
      INTEGER bi, bj
./pkg/obcs/obcs_add_tides.F 56 OBCS_ADD_TIDES 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_add_tides.F 60 OBCS_ADD_TIDES 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_add_tides.F 63 OBCS_ADD_TIDES 
           iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_add_tides.F 66 OBCS_ADD_TIDES 
             OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj) +
./pkg/obcs/obcs_add_tides.F 67 OBCS_ADD_TIDES 
     &              maskW(iB,j,k,bi,bj) * OBEam(j,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F 68 OBCS_ADD_TIDES 
     &              COS( 2.D0 * PI * (myTime-OBEph(j,td,bi,bj)) /
./pkg/obcs/obcs_add_tides.F 78 OBCS_ADD_TIDES 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_add_tides.F 81 OBCS_ADD_TIDES 
           iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_add_tides.F 84 OBCS_ADD_TIDES 
             OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj) +
./pkg/obcs/obcs_add_tides.F 85 OBCS_ADD_TIDES 
     &              maskW(1+iB,j,k,bi,bj) * OBWam(j,td,bi,bj) *
./pkg/obcs/obcs_add_tides.F 86 OBCS_ADD_TIDES 
     &              COS( 2.D0 * PI * (myTime-OBWph(j,td,bi,bj)) /
./pkg/obcs/obcs_add_tides.F 96 OBCS_ADD_TIDES 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_add_tides.F 99 OBCS_ADD_TIDES 
           jB = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 104 OBCS_ADJUST_UVICE 
        uFld(I,OB_Js(I,bi,bj)+1,bi,bj) =
./pkg/obcs/obcs_adjust_uvice.F 105 OBCS_ADJUST_UVICE 
     &         _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 106 OBCS_ADJUST_UVICE 
     &         uFld(I,OB_Js(I,bi,bj)+2,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 107 OBCS_ADJUST_UVICE 
        vFld(I,OB_Js(I,bi,bj)+1,bi,bj) =
./pkg/obcs/obcs_adjust_uvice.F 108 OBCS_ADJUST_UVICE 
     &         _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 109 OBCS_ADJUST_UVICE 
     &         vFld(I,OB_Js(I,bi,bj)+2,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 112 OBCS_ADJUST_UVICE 
        vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=
./pkg/obcs/obcs_adjust_uvice.F 113 OBCS_ADJUST_UVICE 
     &       min(OBSvice(I,bi,bj),vFld(I,OB_Js(I,bi,bj)+1,bi,bj))
./pkg/obcs/obcs_adjust_uvice.F 114 OBCS_ADJUST_UVICE 
     &       * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 116 OBCS_ADJUST_UVICE 
        vFld(I,OB_Js(I,bi,bj)+1,bi,bj)=OBSvice(I,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 117 OBCS_ADJUST_UVICE 
     &       * _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 119 OBCS_ADJUST_UVICE 
        uFld(I,OB_Js(I,bi,bj),bi,bj)=OBSuice(I,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 120 OBCS_ADJUST_UVICE 
     &       * _maskW(I,OB_Js(I,bi,bj),K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 122 OBCS_ADJUST_UVICE 
        if ( _maskS(I,OB_Js(I,bi,bj)+1,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 123 OBCS_ADJUST_UVICE 
     &       _maskS(I,OB_Js(I,bi,bj)+3,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 124 OBCS_ADJUST_UVICE 
     &       vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 125 OBCS_ADJUST_UVICE 
     &       ( vFld(I,OB_Js(I,bi,bj)+1,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 126 OBCS_ADJUST_UVICE 
     &       vFld(I,OB_Js(I,bi,bj)+3,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 127 OBCS_ADJUST_UVICE 
     &       _maskS(I,OB_Js(I,bi,bj)+2,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 130 OBCS_ADJUST_UVICE 
        if ( _maskW(I,OB_Js(I,bi,bj)  ,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 131 OBCS_ADJUST_UVICE 
     &       _maskW(I,OB_Js(I,bi,bj)+2,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 132 OBCS_ADJUST_UVICE 
     &       uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 133 OBCS_ADJUST_UVICE 
     &       ( uFld(I,OB_Js(I,bi,bj)  ,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 134 OBCS_ADJUST_UVICE 
     &       uFld(I,OB_Js(I,bi,bj)+2,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 135 OBCS_ADJUST_UVICE 
     &       _maskW(I,OB_Js(I,bi,bj)+1,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 145 OBCS_ADJUST_UVICE 
      IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_adjust_uvice.F 148 OBCS_ADJUST_UVICE 
       IF (OB_Ie(J,bi,bj).NE.OB_indexNone) THEN
./pkg/obcs/obcs_adjust_uvice.F 150 OBCS_ADJUST_UVICE 
        uFld(OB_Ie(J,bi,bj),J,bi,bj) =
./pkg/obcs/obcs_adjust_uvice.F 151 OBCS_ADJUST_UVICE 
     &         _maskW(OB_Ie(J,bi,bj),J,K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 152 OBCS_ADJUST_UVICE 
     &         uFld(OB_Ie(J,bi,bj)-1,J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 153 OBCS_ADJUST_UVICE 
        vFld(OB_Ie(J,bi,bj),J,bi,bj) =
./pkg/obcs/obcs_adjust_uvice.F 154 OBCS_ADJUST_UVICE 
     &         _maskS(OB_Ie(J,bi,bj),J,K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 155 OBCS_ADJUST_UVICE 
     &         vFld(OB_Ie(J,bi,bj)-1,J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 158 OBCS_ADJUST_UVICE 
        uFld(OB_Ie(J,bi,bj),J,bi,bj)=
./pkg/obcs/obcs_adjust_uvice.F 159 OBCS_ADJUST_UVICE 
     &       max(OBEuice(J,bi,bj),uFld(OB_Ie(J,bi,bj),J,bi,bj))
./pkg/obcs/obcs_adjust_uvice.F 160 OBCS_ADJUST_UVICE 
     &       * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 162 OBCS_ADJUST_UVICE 
        uFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEuice(J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 163 OBCS_ADJUST_UVICE 
     &       * _maskW(OB_Ie(J,bi,bj),J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 165 OBCS_ADJUST_UVICE 
        vFld(OB_Ie(J,bi,bj),J,bi,bj)=OBEvice(J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 166 OBCS_ADJUST_UVICE 
     &       * _maskS(OB_Ie(J,bi,bj),J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 168 OBCS_ADJUST_UVICE 
        if ( _maskW(OB_Ie(J,bi,bj)  ,J,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 169 OBCS_ADJUST_UVICE 
     &       _maskW(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 170 OBCS_ADJUST_UVICE 
     &       uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 171 OBCS_ADJUST_UVICE 
     &       ( uFld(OB_Ie(J,bi,bj)  ,J,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 172 OBCS_ADJUST_UVICE 
     &       uFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 173 OBCS_ADJUST_UVICE 
     &       _maskW(OB_Ie(J,bi,bj)-1,J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 176 OBCS_ADJUST_UVICE 
        if ( _maskS(OB_Ie(J,bi,bj)  ,J,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 177 OBCS_ADJUST_UVICE 
     &       _maskS(OB_Ie(J,bi,bj)-2,J,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 178 OBCS_ADJUST_UVICE 
     &       vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 179 OBCS_ADJUST_UVICE 
     &       ( vFld(OB_Ie(J,bi,bj)  ,J,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 180 OBCS_ADJUST_UVICE 
     &       vFld(OB_Ie(J,bi,bj)-2,J,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 181 OBCS_ADJUST_UVICE 
     &       _maskS(OB_Ie(J,bi,bj)-1,J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 190 OBCS_ADJUST_UVICE 
      IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_adjust_uvice.F 193 OBCS_ADJUST_UVICE 
       IF (OB_Iw(J,bi,bj).NE.OB_indexNone) THEN
./pkg/obcs/obcs_adjust_uvice.F 195 OBCS_ADJUST_UVICE 
        uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=
./pkg/obcs/obcs_adjust_uvice.F 196 OBCS_ADJUST_UVICE 
     &         _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 197 OBCS_ADJUST_UVICE 
     &         uFld(OB_Iw(J,bi,bj)+2,J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 203 OBCS_ADJUST_UVICE 
        vFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=
./pkg/obcs/obcs_adjust_uvice.F 204 OBCS_ADJUST_UVICE 
     &         _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 205 OBCS_ADJUST_UVICE 
     &         vFld(OB_Iw(J,bi,bj)+2,J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 208 OBCS_ADJUST_UVICE 
        uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=
./pkg/obcs/obcs_adjust_uvice.F 209 OBCS_ADJUST_UVICE 
     &       min(OBWuice(J,bi,bj),uFld(OB_Iw(J,bi,bj)+1,J,bi,bj))
./pkg/obcs/obcs_adjust_uvice.F 210 OBCS_ADJUST_UVICE 
     &       * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 212 OBCS_ADJUST_UVICE 
        uFld(OB_Iw(J,bi,bj)+1,J,bi,bj)=OBWuice(J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 213 OBCS_ADJUST_UVICE 
     &       * _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 215 OBCS_ADJUST_UVICE 
        vFld(OB_Iw(J,bi,bj),J,bi,bj)=OBWvice(J,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 216 OBCS_ADJUST_UVICE 
     &       * _maskS(OB_Iw(J,bi,bj),J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 218 OBCS_ADJUST_UVICE 
        if ( _maskW(OB_Iw(J,bi,bj)+1,J,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 219 OBCS_ADJUST_UVICE 
     &       _maskW(OB_Iw(J,bi,bj)+3,J,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 220 OBCS_ADJUST_UVICE 
     &       uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 221 OBCS_ADJUST_UVICE 
     &       ( uFld(OB_Iw(J,bi,bj)+1,J,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 222 OBCS_ADJUST_UVICE 
     &       uFld(OB_Iw(J,bi,bj)+3,J,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 223 OBCS_ADJUST_UVICE 
     &       _maskW(OB_Iw(J,bi,bj)+2,J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 226 OBCS_ADJUST_UVICE 
        if ( _maskS(OB_Iw(J,bi,bj)  ,J,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 227 OBCS_ADJUST_UVICE 
     &       _maskS(OB_Iw(J,bi,bj)+2,J,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 228 OBCS_ADJUST_UVICE 
     &       vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 229 OBCS_ADJUST_UVICE 
     &       ( vFld(OB_Iw(J,bi,bj)  ,J,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 230 OBCS_ADJUST_UVICE 
     &       vFld(OB_Iw(J,bi,bj)+2,J,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 231 OBCS_ADJUST_UVICE 
     &       _maskS(OB_Iw(J,bi,bj)+1,J,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 40 OBCS_ADJUST_UVICE 
      INTEGER I,J,K,bi,bj
./pkg/obcs/obcs_adjust_uvice.F 44 OBCS_ADJUST_UVICE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_adjust_uvice.F 49 OBCS_ADJUST_UVICE 
      IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_adjust_uvice.F 52 OBCS_ADJUST_UVICE 
       IF (OB_Jn(I,bi,bj).NE.OB_indexNone) THEN
./pkg/obcs/obcs_adjust_uvice.F 54 OBCS_ADJUST_UVICE 
        uFld(I,OB_Jn(I,bi,bj)  ,bi,bj) =
./pkg/obcs/obcs_adjust_uvice.F 55 OBCS_ADJUST_UVICE 
     &       _maskW(I,OB_Jn(I,bi,bj),K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 56 OBCS_ADJUST_UVICE 
     &       uFld(I,OB_Jn(I,bi,bj)-1,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 57 OBCS_ADJUST_UVICE 
        vFld(I,OB_Jn(I,bi,bj)  ,bi,bj) =
./pkg/obcs/obcs_adjust_uvice.F 58 OBCS_ADJUST_UVICE 
     &       _maskS(I,OB_Jn(I,bi,bj),K,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 59 OBCS_ADJUST_UVICE 
     &       vFld(I,OB_Jn(I,bi,bj)-1,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 62 OBCS_ADJUST_UVICE 
        vFld(I,OB_Jn(I,bi,bj),bi,bj) =
./pkg/obcs/obcs_adjust_uvice.F 63 OBCS_ADJUST_UVICE 
     &       max(OBNvice(I,bi,bj),vFld(I,OB_Jn(I,bi,bj),bi,bj)) *
./pkg/obcs/obcs_adjust_uvice.F 64 OBCS_ADJUST_UVICE 
     &       _maskS(I,OB_Jn(I,bi,bj),K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 66 OBCS_ADJUST_UVICE 
        vFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNvice(I,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 67 OBCS_ADJUST_UVICE 
     &       _maskS(I,OB_Jn(I,bi,bj),K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 69 OBCS_ADJUST_UVICE 
        uFld(I,OB_Jn(I,bi,bj),bi,bj) = OBNuice(I,bi,bj) *
./pkg/obcs/obcs_adjust_uvice.F 70 OBCS_ADJUST_UVICE 
     &       _maskW(I,OB_Jn(I,bi,bj),K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 72 OBCS_ADJUST_UVICE 
        if ( _maskS(I,OB_Jn(I,bi,bj)  ,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 73 OBCS_ADJUST_UVICE 
     &       _maskS(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 74 OBCS_ADJUST_UVICE 
     &       vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 75 OBCS_ADJUST_UVICE 
     &       ( vFld(I,OB_Jn(I,bi,bj)  ,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 76 OBCS_ADJUST_UVICE 
     &       vFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 77 OBCS_ADJUST_UVICE 
     &       _maskS(I,OB_Jn(I,bi,bj)-1,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 80 OBCS_ADJUST_UVICE 
        if ( _maskW(I,OB_Jn(I,bi,bj)  ,K,bi,bj) .NE. 0. .AND.
./pkg/obcs/obcs_adjust_uvice.F 81 OBCS_ADJUST_UVICE 
     &       _maskW(I,OB_Jn(I,bi,bj)-2,K,bi,bj) .NE. 0. )
./pkg/obcs/obcs_adjust_uvice.F 82 OBCS_ADJUST_UVICE 
     &       uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_adjust_uvice.F 83 OBCS_ADJUST_UVICE 
     &       ( uFld(I,OB_Jn(I,bi,bj)  ,bi,bj) +
./pkg/obcs/obcs_adjust_uvice.F 84 OBCS_ADJUST_UVICE 
     &       uFld(I,OB_Jn(I,bi,bj)-2,bi,bj) ) *
./pkg/obcs/obcs_adjust_uvice.F 85 OBCS_ADJUST_UVICE 
     &       _maskW(I,OB_Jn(I,bi,bj)-1,K,bi,bj)
./pkg/obcs/obcs_adjust_uvice.F 94 OBCS_ADJUST_UVICE 
      IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_adjust_uvice.F 97 OBCS_ADJUST_UVICE 
       IF (OB_Js(I,bi,bj).NE.OB_indexNone) THEN
./pkg/obcs/obcs_apply_eta.F 37 OBCS_APPLY_ETA 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_eta.F 51 OBCS_APPLY_ETA 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_eta.F 54 OBCS_APPLY_ETA 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 56 OBCS_APPLY_ETA 
            IF ( kSurfS(i,Jobc,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 57 OBCS_APPLY_ETA 
     &        etaFld(i,Jobc,bi,bj) = OBNeta(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 61 OBCS_APPLY_ETA 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_eta.F 64 OBCS_APPLY_ETA 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 66 OBCS_APPLY_ETA 
            IF ( kSurfS(i,Jobc+1,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 67 OBCS_APPLY_ETA 
     &        etaFld(i,Jobc,bi,bj) = OBSeta(i,bi,bj)
./pkg/obcs/obcs_apply_eta.F 73 OBCS_APPLY_ETA 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_eta.F 76 OBCS_APPLY_ETA 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 78 OBCS_APPLY_ETA 
            IF ( kSurfW(Iobc,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 79 OBCS_APPLY_ETA 
     &        etaFld(Iobc,j,bi,bj) = OBEeta(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 83 OBCS_APPLY_ETA 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_eta.F 86 OBCS_APPLY_ETA 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 88 OBCS_APPLY_ETA 
            IF ( kSurfW(Iobc+1,j,bi,bj).LE.Nr )
./pkg/obcs/obcs_apply_eta.F 89 OBCS_APPLY_ETA 
     &        etaFld(Iobc,j,bi,bj) = OBWeta(j,bi,bj)
./pkg/obcs/obcs_apply_eta.F 9 OBCS_APPLY_ETA 
      SUBROUTINE OBCS_APPLY_ETA( bi, bj,
./pkg/obcs/obcs_apply_ptracer.F 100 OBCS_APPLY_PTRACER 
      IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ptracer.F 103 OBCS_APPLY_PTRACER 
        Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 107 OBCS_APPLY_PTRACER 
          pFld(Iobc,j,kl) = OBEptr(j,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_ptracer.F 10 OBCS_APPLY_PTRACER 
     I                               bi, bj, kArg, iTracer,
./pkg/obcs/obcs_apply_ptracer.F 115 OBCS_APPLY_PTRACER 
      IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ptracer.F 118 OBCS_APPLY_PTRACER 
        Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 122 OBCS_APPLY_PTRACER 
          pFld(Iobc,j,kl) = OBWptr(j,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_ptracer.F 41 OBCS_APPLY_PTRACER 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_ptracer.F 69 OBCS_APPLY_PTRACER 
      IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ptracer.F 72 OBCS_APPLY_PTRACER 
        Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 76 OBCS_APPLY_PTRACER 
          pFld(i,Jobc,kl) = OBNptr(i,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_ptracer.F 84 OBCS_APPLY_PTRACER 
      IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ptracer.F 87 OBCS_APPLY_PTRACER 
        Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_ptracer.F 91 OBCS_APPLY_PTRACER 
          pFld(i,Jobc,kl) = OBSptr(i,k,bi,bj,iTracer)
./pkg/obcs/obcs_apply_r_star.F 101 OBCS_APPLY_R_STAR 
      IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_r_star.F 104 OBCS_APPLY_R_STAR 
        IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_r_star.F 105 OBCS_APPLY_R_STAR 
         i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 106 OBCS_APPLY_R_STAR 
         IF (kSurfW(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 108 OBCS_APPLY_R_STAR 
           rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 109 OBCS_APPLY_R_STAR 
     &      + OBEeta(  j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 111 OBCS_APPLY_R_STAR 
           rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 112 OBCS_APPLY_R_STAR 
     &      + etaFld(i,j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 118 OBCS_APPLY_R_STAR 
      IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_r_star.F 121 OBCS_APPLY_R_STAR 
        IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_r_star.F 122 OBCS_APPLY_R_STAR 
         i = OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_apply_r_star.F 123 OBCS_APPLY_R_STAR 
         IF (kSurfW(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 125 OBCS_APPLY_R_STAR 
           rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 126 OBCS_APPLY_R_STAR 
     &      + OBWeta(  j,bi,bj) / (rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 128 OBCS_APPLY_R_STAR 
           rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 129 OBCS_APPLY_R_STAR 
     &      + etaFld(i-1,j,bi,bj)/(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 12 OBCS_APPLY_R_STAR 
     I                bi, bj, etaFld,
./pkg/obcs/obcs_apply_r_star.F 41 OBCS_APPLY_R_STAR 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_r_star.F 65 OBCS_APPLY_R_STAR 
      IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_r_star.F 68 OBCS_APPLY_R_STAR 
        IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_r_star.F 69 OBCS_APPLY_R_STAR 
         j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_r_star.F 70 OBCS_APPLY_R_STAR 
         IF (kSurfS(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 72 OBCS_APPLY_R_STAR 
           rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 73 OBCS_APPLY_R_STAR 
     &      + OBNeta(  j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 75 OBCS_APPLY_R_STAR 
           rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 76 OBCS_APPLY_R_STAR 
     &      + etaFld(i,j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 82 OBCS_APPLY_R_STAR 
      IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_r_star.F 85 OBCS_APPLY_R_STAR 
        IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_r_star.F 86 OBCS_APPLY_R_STAR 
         j = OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_apply_r_star.F 87 OBCS_APPLY_R_STAR 
         IF (kSurfS(i,j,bi,bj).LE.Nr) THEN
./pkg/obcs/obcs_apply_r_star.F 89 OBCS_APPLY_R_STAR 
           rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 90 OBCS_APPLY_R_STAR 
     &      + OBSeta(  j,bi,bj) / (rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_r_star.F 92 OBCS_APPLY_R_STAR 
           rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 93 OBCS_APPLY_R_STAR 
     &      + etaFld(i,j-1,bi,bj)/(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 101 OBCS_APPLY_SEAICE 
            HSALT(Iobc,j,bi,bj) = OBEsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 109 OBCS_APPLY_SEAICE 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 112 OBCS_APPLY_SEAICE 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 114 OBCS_APPLY_SEAICE 
            HEFF (Iobc,j,bi,bj) = OBWh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 115 OBCS_APPLY_SEAICE 
            AREA (Iobc,j,bi,bj) = OBWa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 116 OBCS_APPLY_SEAICE 
            HSNOW(Iobc,j,bi,bj) = OBWsn(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 118 OBCS_APPLY_SEAICE 
            HSALT(Iobc,j,bi,bj) = OBWsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 131 OBCS_APPLY_SEAICE 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 134 OBCS_APPLY_SEAICE 
          Jobc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 136 OBCS_APPLY_SEAICE 
           IF ( _maskS(i,Jobc-1,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 139 OBCS_APPLY_SEAICE 
     &           (HEFF(i,Jobc-1,bi,bj)+HEFF(i,Jobc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 140 OBCS_APPLY_SEAICE 
             HEFF(i,Jobc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 141 OBCS_APPLY_SEAICE 
             HEFF(i,Jobc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 145 OBCS_APPLY_SEAICE 
     &           (AREA(i,Jobc-1,bi,bj)+AREA(i,Jobc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 146 OBCS_APPLY_SEAICE 
             AREA(i,Jobc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 147 OBCS_APPLY_SEAICE 
             AREA(i,Jobc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 151 OBCS_APPLY_SEAICE 
     &           (HSNOW(i,Jobc-1,bi,bj)+HSNOW(i,Jobc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 152 OBCS_APPLY_SEAICE 
             HSNOW(i,Jobc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 153 OBCS_APPLY_SEAICE 
             HSNOW(i,Jobc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 158 OBCS_APPLY_SEAICE 
     &           (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 159 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 160 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 170 OBCS_APPLY_SEAICE 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 173 OBCS_APPLY_SEAICE 
          Jobc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 175 OBCS_APPLY_SEAICE 
           IF ( _maskS(i,Jobc+2,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 178 OBCS_APPLY_SEAICE 
     &           (HEFF(i,Jobc+1,bi,bj)+HEFF(i,Jobc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 179 OBCS_APPLY_SEAICE 
             HEFF(i,Jobc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 180 OBCS_APPLY_SEAICE 
             HEFF(i,Jobc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 184 OBCS_APPLY_SEAICE 
     &           (AREA(i,Jobc+1,bi,bj)+AREA(i,Jobc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 185 OBCS_APPLY_SEAICE 
             AREA(i,Jobc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 186 OBCS_APPLY_SEAICE 
             AREA(i,Jobc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 190 OBCS_APPLY_SEAICE 
     &           (HSNOW(i,Jobc+1,bi,bj)+HSNOW(i,Jobc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 191 OBCS_APPLY_SEAICE 
             HSNOW(i,Jobc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 192 OBCS_APPLY_SEAICE 
             HSNOW(i,Jobc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 197 OBCS_APPLY_SEAICE 
     &           (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 198 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 199 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 209 OBCS_APPLY_SEAICE 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 212 OBCS_APPLY_SEAICE 
          Iobc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 214 OBCS_APPLY_SEAICE 
           IF ( _maskW(Iobc-1,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 217 OBCS_APPLY_SEAICE 
     &           (HEFF(Iobc-1,j,bi,bj)+HEFF(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 218 OBCS_APPLY_SEAICE 
             HEFF(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 219 OBCS_APPLY_SEAICE 
             HEFF(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 223 OBCS_APPLY_SEAICE 
     &           (AREA(Iobc-1,j,bi,bj)+AREA(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 224 OBCS_APPLY_SEAICE 
             AREA(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 225 OBCS_APPLY_SEAICE 
             AREA(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 229 OBCS_APPLY_SEAICE 
     &           (HSNOW(Iobc-1,j,bi,bj)+HSNOW(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 230 OBCS_APPLY_SEAICE 
             HSNOW(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 231 OBCS_APPLY_SEAICE 
             HSNOW(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 236 OBCS_APPLY_SEAICE 
     &           (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 237 OBCS_APPLY_SEAICE 
             HSALT(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 238 OBCS_APPLY_SEAICE 
             HSALT(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 248 OBCS_APPLY_SEAICE 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 251 OBCS_APPLY_SEAICE 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 253 OBCS_APPLY_SEAICE 
           IF ( _maskW(Iobc+2,j,k,bi,bj) .NE. 0. ) THEN
./pkg/obcs/obcs_apply_seaice.F 256 OBCS_APPLY_SEAICE 
     &           (HEFF(Iobc+1,j,bi,bj)+HEFF(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 257 OBCS_APPLY_SEAICE 
             HEFF(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 258 OBCS_APPLY_SEAICE 
             HEFF(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 262 OBCS_APPLY_SEAICE 
     &           (AREA(Iobc+1,j,bi,bj)+AREA(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 263 OBCS_APPLY_SEAICE 
             AREA(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 264 OBCS_APPLY_SEAICE 
             AREA(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 268 OBCS_APPLY_SEAICE 
     &           (HSNOW(Iobc+1,j,bi,bj)+HSNOW(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 269 OBCS_APPLY_SEAICE 
             HSNOW(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 270 OBCS_APPLY_SEAICE 
             HSNOW(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 275 OBCS_APPLY_SEAICE 
     &           (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 276 OBCS_APPLY_SEAICE 
             HSALT(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 277 OBCS_APPLY_SEAICE 
             HSALT(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 46 OBCS_APPLY_SEAICE 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_seaice.F 54 OBCS_APPLY_SEAICE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_apply_seaice.F 58 OBCS_APPLY_SEAICE 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 61 OBCS_APPLY_SEAICE 
          Jobc = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 63 OBCS_APPLY_SEAICE 
            HEFF (i,Jobc,bi,bj) = OBNh (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 64 OBCS_APPLY_SEAICE 
            AREA (i,Jobc,bi,bj) = OBNa (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 65 OBCS_APPLY_SEAICE 
            HSNOW(i,Jobc,bi,bj) = OBNsn(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 67 OBCS_APPLY_SEAICE 
            HSALT(i,Jobc,bi,bj) = OBNsl(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 75 OBCS_APPLY_SEAICE 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 78 OBCS_APPLY_SEAICE 
          Jobc = OB_Js(I,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 80 OBCS_APPLY_SEAICE 
            HEFF (i,Jobc,bi,bj) = OBSh (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 81 OBCS_APPLY_SEAICE 
            AREA (i,Jobc,bi,bj) = OBSa (i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 82 OBCS_APPLY_SEAICE 
            HSNOW(i,Jobc,bi,bj) = OBSsn(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 84 OBCS_APPLY_SEAICE 
            HSALT(i,Jobc,bi,bj) = OBSsl(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 92 OBCS_APPLY_SEAICE 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_seaice.F 95 OBCS_APPLY_SEAICE 
          Iobc = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 97 OBCS_APPLY_SEAICE 
            HEFF (Iobc,j,bi,bj) = OBEh (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 98 OBCS_APPLY_SEAICE 
            AREA (Iobc,j,bi,bj) = OBEa (j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 99 OBCS_APPLY_SEAICE 
            HSNOW(Iobc,j,bi,bj) = OBEsn(j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 100 OBCS_APPLY_SURF_DR 
     &             + etaFld(i,j-1,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 102 OBCS_APPLY_SURF_DR 
          hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 109 OBCS_APPLY_SURF_DR 
      IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 112 OBCS_APPLY_SURF_DR 
        IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 113 OBCS_APPLY_SURF_DR 
         i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 114 OBCS_APPLY_SURF_DR 
         ks = kSurfW(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 117 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 118 OBCS_APPLY_SURF_DR 
     &             + OBEeta(j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 120 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 121 OBCS_APPLY_SURF_DR 
     &             + etaFld(i,j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 123 OBCS_APPLY_SURF_DR 
          hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 128 OBCS_APPLY_SURF_DR 
      IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 12 OBCS_APPLY_SURF_DR 
     I                bi, bj, etaFld,
./pkg/obcs/obcs_apply_surf_dr.F 131 OBCS_APPLY_SURF_DR 
        IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 132 OBCS_APPLY_SURF_DR 
         i = OB_Iw(j,bi,bj)+1
./pkg/obcs/obcs_apply_surf_dr.F 133 OBCS_APPLY_SURF_DR 
         ks = kSurfW(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 136 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 137 OBCS_APPLY_SURF_DR 
     &             + OBWeta(j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 139 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacW(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 140 OBCS_APPLY_SURF_DR 
     &             + etaFld(i-1,j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 142 OBCS_APPLY_SURF_DR 
          hFac_FldW(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 43 OBCS_APPLY_SURF_DR 
      INTEGER bi,bj
./pkg/obcs/obcs_apply_surf_dr.F 69 OBCS_APPLY_SURF_DR 
      IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 72 OBCS_APPLY_SURF_DR 
        IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 73 OBCS_APPLY_SURF_DR 
         j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 74 OBCS_APPLY_SURF_DR 
         ks = kSurfS(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 77 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 78 OBCS_APPLY_SURF_DR 
     &             + OBNeta(i,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 80 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 81 OBCS_APPLY_SURF_DR 
     &             + etaFld(i,j,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 83 OBCS_APPLY_SURF_DR 
          hFac_FldS(i,j,bi,bj) = MAX( hFacInfMOM, hFactmp )
./pkg/obcs/obcs_apply_surf_dr.F 88 OBCS_APPLY_SURF_DR 
      IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 91 OBCS_APPLY_SURF_DR 
        IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_apply_surf_dr.F 92 OBCS_APPLY_SURF_DR 
         j = OB_Js(i,bi,bj)+1
./pkg/obcs/obcs_apply_surf_dr.F 93 OBCS_APPLY_SURF_DR 
         ks = kSurfS(i,j,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 96 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_surf_dr.F 97 OBCS_APPLY_SURF_DR 
     &             + OBSeta(i,bi,bj)*recip_drF(ks)
./pkg/obcs/obcs_apply_surf_dr.F 99 OBCS_APPLY_SURF_DR 
           hFactmp = h0FacS(i,j,ks,bi,bj)
./pkg/obcs/obcs_apply_ts.F 101 OBCS_APPLY_TS 
             tFld(i,Jobc,k,bi,bj) = OBNt(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 102 OBCS_APPLY_TS 
             sFld(i,Jobc,k,bi,bj) = OBNs(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 10 OBCS_APPLY_TS 
      SUBROUTINE OBCS_APPLY_TS( bi, bj, kArg,
./pkg/obcs/obcs_apply_ts.F 111 OBCS_APPLY_TS 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ts.F 117 OBCS_APPLY_TS 
           Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_ts.F 120 OBCS_APPLY_TS 
             tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 121 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBSt(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 122 OBCS_APPLY_TS 
             sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 123 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBSs(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 132 OBCS_APPLY_TS 
           Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_ts.F 135 OBCS_APPLY_TS 
             tFld(i,Jobc,k,bi,bj) = OBSt(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 136 OBCS_APPLY_TS 
             sFld(i,Jobc,k,bi,bj) = OBSs(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 146 OBCS_APPLY_TS 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ts.F 152 OBCS_APPLY_TS 
           Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 155 OBCS_APPLY_TS 
             tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 156 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBEt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 157 OBCS_APPLY_TS 
             sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 158 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBEs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 167 OBCS_APPLY_TS 
           Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 170 OBCS_APPLY_TS 
             tFld(Iobc,j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 171 OBCS_APPLY_TS 
             sFld(Iobc,j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 180 OBCS_APPLY_TS 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ts.F 186 OBCS_APPLY_TS 
           Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 189 OBCS_APPLY_TS 
             tFld(Iobc,j,k,bi,bj) = tFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 190 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBWt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 191 OBCS_APPLY_TS 
             sFld(Iobc,j,k,bi,bj) = sFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 192 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBWs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 201 OBCS_APPLY_TS 
           Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_ts.F 204 OBCS_APPLY_TS 
             tFld(Iobc,j,k,bi,bj) = OBWt(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 205 OBCS_APPLY_TS 
             sFld(Iobc,j,k,bi,bj) = OBWs(j,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 39 OBCS_APPLY_TS 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_ts.F 77 OBCS_APPLY_TS 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_ts.F 83 OBCS_APPLY_TS 
           Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_ts.F 86 OBCS_APPLY_TS 
             tFld(i,Jobc,k,bi,bj) = tFld(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 87 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBNt(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 88 OBCS_APPLY_TS 
             sFld(i,Jobc,k,bi,bj) = sFld(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 89 OBCS_APPLY_TS 
     &            + dTtracerLev(k)*OBNs(i,k,bi,bj)
./pkg/obcs/obcs_apply_ts.F 98 OBCS_APPLY_TS 
           Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_uv.F 101 OBCS_APPLY_UV 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_uv.F 104 OBCS_APPLY_UV 
             uFld(i,Jobc,k,bi,bj) = OBSu(i,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 105 OBCS_APPLY_UV 
     &                            *_maskW(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 114 OBCS_APPLY_UV 
        IF ( tileHasOBE(bi,bj) ) THEN
./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 
             vFld(Iobc,j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 121 OBCS_APPLY_UV 
     &                            *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 128 OBCS_APPLY_UV 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uv.F 131 OBCS_APPLY_UV 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 134 OBCS_APPLY_UV 
             vFld(Iobc,j,k,bi,bj) = OBWv(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 135 OBCS_APPLY_UV 
     &                            *_maskS(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 145 OBCS_APPLY_UV 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uv.F 148 OBCS_APPLY_UV 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_uv.F 151 OBCS_APPLY_UV 
             vFld(i,Jobc,k,bi,bj)   = OBNv(i,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 152 OBCS_APPLY_UV 
     &                              *_maskS(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 153 OBCS_APPLY_UV 
             vFld(i,Jobc+1,k,bi,bj) = OBNv(i,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 154 OBCS_APPLY_UV 
     &                              *_maskS(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 162 OBCS_APPLY_UV 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uv.F 165 OBCS_APPLY_UV 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_uv.F 168 OBCS_APPLY_UV 
             vFld(i,Jobc+1,k,bi,bj) = OBSv(i,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 169 OBCS_APPLY_UV 
     &                              *_maskS(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 170 OBCS_APPLY_UV 
             vFld(i,Jobc,k,bi,bj)   = OBSv(i,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 171 OBCS_APPLY_UV 
     &                              *_maskS(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 181 OBCS_APPLY_UV 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uv.F 184 OBCS_APPLY_UV 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 187 OBCS_APPLY_UV 
             uFld(Iobc,j,k,bi,bj)   = OBEu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 188 OBCS_APPLY_UV 
     &                              *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 189 OBCS_APPLY_UV 
             uFld(Iobc+1,j,k,bi,bj) = OBEu(j,K,bi,bj)
./pkg/obcs/obcs_apply_uv.F 190 OBCS_APPLY_UV 
     &                              *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 198 OBCS_APPLY_UV 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uv.F 201 OBCS_APPLY_UV 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uv.F 204 OBCS_APPLY_UV 
             uFld(Iobc+1,j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 205 OBCS_APPLY_UV 
     &                              *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 206 OBCS_APPLY_UV 
             uFld(Iobc,j,k,bi,bj)   = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 207 OBCS_APPLY_UV 
     &                              *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 38 OBCS_APPLY_UV 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_uv.F 84 OBCS_APPLY_UV 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uv.F 87 OBCS_APPLY_UV 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_uv.F 90 OBCS_APPLY_UV 
             uFld(i,Jobc,k,bi,bj) = OBNu(i,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 91 OBCS_APPLY_UV 
     &                            *_maskW(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_uv.F 98 OBCS_APPLY_UV 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uv.F 9 OBCS_APPLY_UV 
      SUBROUTINE OBCS_APPLY_UV( bi, bj, kArg,
./pkg/obcs/obcs_apply_uvice.F 105 OBCS_APPLY_UVICE 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 108 OBCS_APPLY_UVICE 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 110 OBCS_APPLY_UVICE 
           vFld(Iobc,j,bi,bj) = OBEvice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 111 OBCS_APPLY_UVICE 
     &                        *seaiceMaskV(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 118 OBCS_APPLY_UVICE 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 121 OBCS_APPLY_UVICE 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 123 OBCS_APPLY_UVICE 
           vFld(Iobc,j,bi,bj) = OBWvice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 124 OBCS_APPLY_UVICE 
     &                        *seaiceMaskV(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 134 OBCS_APPLY_UVICE 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 137 OBCS_APPLY_UVICE 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 139 OBCS_APPLY_UVICE 
           vFld(i,Jobc,bi,bj)   = OBNvice(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 140 OBCS_APPLY_UVICE 
     &                          *seaiceMaskV(i,Jobc,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 142 OBCS_APPLY_UVICE 
     &     vFld(i,Jobc+1,bi,bj) = OBNvice(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 143 OBCS_APPLY_UVICE 
     &                          *seaiceMaskV(i,Jobc,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 151 OBCS_APPLY_UVICE 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 154 OBCS_APPLY_UVICE 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 156 OBCS_APPLY_UVICE 
           vFld(i,Jobc+1,bi,bj) = OBSvice(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 157 OBCS_APPLY_UVICE 
     &                          *seaiceMaskV(i,Jobc+1,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 159 OBCS_APPLY_UVICE 
     &     vFld(i,Jobc,bi,bj)   = OBSvice(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 160 OBCS_APPLY_UVICE 
     &                          *seaiceMaskV(i,Jobc+1,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 169 OBCS_APPLY_UVICE 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 172 OBCS_APPLY_UVICE 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 174 OBCS_APPLY_UVICE 
           uFld(Iobc,j,bi,bj)   = OBEuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 175 OBCS_APPLY_UVICE 
     &                          *seaiceMaskU(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 177 OBCS_APPLY_UVICE 
     &     uFld(Iobc+1,j,bi,bj) = OBEuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 178 OBCS_APPLY_UVICE 
     &                          *seaiceMaskU(Iobc,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 186 OBCS_APPLY_UVICE 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 189 OBCS_APPLY_UVICE 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 191 OBCS_APPLY_UVICE 
           uFld(Iobc+1,j,bi,bj) = OBWuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 192 OBCS_APPLY_UVICE 
     &                          *seaiceMaskU(Iobc+1,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 194 OBCS_APPLY_UVICE 
     &     uFld(Iobc,j,bi,bj)   = OBWuice(j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 195 OBCS_APPLY_UVICE 
     &                          *seaiceMaskU(Iobc+1,j,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 53 OBCS_APPLY_UVICE 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_uvice.F 71 OBCS_APPLY_UVICE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_apply_uvice.F 78 OBCS_APPLY_UVICE 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 81 OBCS_APPLY_UVICE 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 83 OBCS_APPLY_UVICE 
           uFld(i,Jobc,bi,bj) = OBNuice(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 84 OBCS_APPLY_UVICE 
     &                        *seaiceMaskU(i,Jobc,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 91 OBCS_APPLY_UVICE 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_uvice.F 94 OBCS_APPLY_UVICE 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 96 OBCS_APPLY_UVICE 
           uFld(i,Jobc,bi,bj) = OBSuice(i,bi,bj)
./pkg/obcs/obcs_apply_uvice.F 97 OBCS_APPLY_UVICE 
     &                        *seaiceMaskU(i,Jobc,bi,bj)
./pkg/obcs/obcs_apply_w.F 104 OBCS_APPLY_W 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_apply_w.F 107 OBCS_APPLY_W 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_apply_w.F 111 OBCS_APPLY_W 
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 112 OBCS_APPLY_W 
            wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 115 OBCS_APPLY_W 
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 116 OBCS_APPLY_W 
            wFld(Iobc,j,k,bi,bj) = OBEw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 123 OBCS_APPLY_W 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_apply_w.F 126 OBCS_APPLY_W 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_apply_w.F 130 OBCS_APPLY_W 
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 131 OBCS_APPLY_W 
            wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 134 OBCS_APPLY_W 
            obc_mask = maskC(Iobc,j,km1,bi,bj)*maskC(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 135 OBCS_APPLY_W 
            wFld(Iobc,j,k,bi,bj) = OBWw(j,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 38 OBCS_APPLY_W 
      INTEGER bi, bj
./pkg/obcs/obcs_apply_w.F 65 OBCS_APPLY_W 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_apply_w.F 68 OBCS_APPLY_W 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_apply_w.F 72 OBCS_APPLY_W 
            obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 73 OBCS_APPLY_W 
            wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 76 OBCS_APPLY_W 
            obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 77 OBCS_APPLY_W 
            wFld(i,Jobc,k,bi,bj) = OBNw(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 84 OBCS_APPLY_W 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_apply_w.F 87 OBCS_APPLY_W 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_apply_w.F 91 OBCS_APPLY_W 
            obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 92 OBCS_APPLY_W 
            wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 95 OBCS_APPLY_W 
            obc_mask = maskC(i,Jobc,km1,bi,bj)*maskC(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_apply_w.F 96 OBCS_APPLY_W 
            wFld(i,Jobc,k,bi,bj) = OBSw(i,k,bi,bj)*obc_mask
./pkg/obcs/obcs_apply_w.F 9 OBCS_APPLY_W 
      SUBROUTINE OBCS_APPLY_W( bi, bj, kArg,
./pkg/obcs/obcs_balance_flow.F 101 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 102 OBCS_BALANCE_FLOW 
     &                   *maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 103 OBCS_BALANCE_FLOW 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_balance_flow.F 104 OBCS_BALANCE_FLOW 
            tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBEu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 109 OBCS_BALANCE_FLOW 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 110 OBCS_BALANCE_FLOW 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_balance_flow.F 111 OBCS_BALANCE_FLOW 
     &                       + tileArea(bi,bj)*OBCS_balanceFacE
./pkg/obcs/obcs_balance_flow.F 113 OBCS_BALANCE_FLOW 
         areaE = areaE + tileArea(bi,bj)
./pkg/obcs/obcs_balance_flow.F 114 OBCS_BALANCE_FLOW 
         flowE = flowE + tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 139 OBCS_BALANCE_FLOW 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 141 OBCS_BALANCE_FLOW 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 142 OBCS_BALANCE_FLOW 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 143 OBCS_BALANCE_FLOW 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 146 OBCS_BALANCE_FLOW 
           iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 150 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 151 OBCS_BALANCE_FLOW 
     &                   *maskInW(1+iB,j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 152 OBCS_BALANCE_FLOW 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_balance_flow.F 153 OBCS_BALANCE_FLOW 
            tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBWu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 158 OBCS_BALANCE_FLOW 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 159 OBCS_BALANCE_FLOW 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_balance_flow.F 160 OBCS_BALANCE_FLOW 
     &                       + tileArea(bi,bj)*OBCS_balanceFacW
./pkg/obcs/obcs_balance_flow.F 162 OBCS_BALANCE_FLOW 
         areaW = areaW + tileArea(bi,bj)
./pkg/obcs/obcs_balance_flow.F 163 OBCS_BALANCE_FLOW 
         flowW = flowW + tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 188 OBCS_BALANCE_FLOW 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 190 OBCS_BALANCE_FLOW 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 191 OBCS_BALANCE_FLOW 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 192 OBCS_BALANCE_FLOW 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 195 OBCS_BALANCE_FLOW 
           jB = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_balance_flow.F 199 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj)
./pkg/obcs/obcs_balance_flow.F 200 OBCS_BALANCE_FLOW 
     &                   *maskInS(i,jB,bi,bj)
./pkg/obcs/obcs_balance_flow.F 201 OBCS_BALANCE_FLOW 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_balance_flow.F 202 OBCS_BALANCE_FLOW 
            tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBNv(i,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 207 OBCS_BALANCE_FLOW 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 208 OBCS_BALANCE_FLOW 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_balance_flow.F 209 OBCS_BALANCE_FLOW 
     &                       + tileArea(bi,bj)*OBCS_balanceFacN
./pkg/obcs/obcs_balance_flow.F 211 OBCS_BALANCE_FLOW 
         areaN = areaN + tileArea(bi,bj)
./pkg/obcs/obcs_balance_flow.F 212 OBCS_BALANCE_FLOW 
         flowN = flowN + tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 237 OBCS_BALANCE_FLOW 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 239 OBCS_BALANCE_FLOW 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 240 OBCS_BALANCE_FLOW 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 241 OBCS_BALANCE_FLOW 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 244 OBCS_BALANCE_FLOW 
           jB = OB_Js(i,bi,bj)
./pkg/obcs/obcs_balance_flow.F 248 OBCS_BALANCE_FLOW 
            tmpA = drF(k)*hFacS(i,1+jB,k,bi,bj)*dxG(i,1+jB,bi,bj)
./pkg/obcs/obcs_balance_flow.F 249 OBCS_BALANCE_FLOW 
     &                   *maskInS(i,1+jB,bi,bj)
./pkg/obcs/obcs_balance_flow.F 250 OBCS_BALANCE_FLOW 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_balance_flow.F 251 OBCS_BALANCE_FLOW 
            tileFlow(bi,bj) = tileFlow(bi,bj) + tmpA*OBSv(i,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 256 OBCS_BALANCE_FLOW 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 257 OBCS_BALANCE_FLOW 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_balance_flow.F 258 OBCS_BALANCE_FLOW 
     &                       + tileArea(bi,bj)*OBCS_balanceFacS
./pkg/obcs/obcs_balance_flow.F 260 OBCS_BALANCE_FLOW 
         areaS = areaS + tileArea(bi,bj)
./pkg/obcs/obcs_balance_flow.F 261 OBCS_BALANCE_FLOW 
         flowS = flowS + tileFlow(bi,bj)
./pkg/obcs/obcs_balance_flow.F 320 OBCS_BALANCE_FLOW 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 322 OBCS_BALANCE_FLOW 
         IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 325 OBCS_BALANCE_FLOW 
            iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 327 OBCS_BALANCE_FLOW 
             OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 328 OBCS_BALANCE_FLOW 
     &                       + flowE*maskW(iB,j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 340 OBCS_BALANCE_FLOW 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 342 OBCS_BALANCE_FLOW 
         IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 345 OBCS_BALANCE_FLOW 
            iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_balance_flow.F 347 OBCS_BALANCE_FLOW 
             OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 348 OBCS_BALANCE_FLOW 
     &                       + flowW*maskW(1+iB,j,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 360 OBCS_BALANCE_FLOW 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 362 OBCS_BALANCE_FLOW 
         IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 365 OBCS_BALANCE_FLOW 
            jB = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_balance_flow.F 367 OBCS_BALANCE_FLOW 
             OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 368 OBCS_BALANCE_FLOW 
     &                       + flowN*maskS(i,jB,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 380 OBCS_BALANCE_FLOW 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 382 OBCS_BALANCE_FLOW 
         IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 385 OBCS_BALANCE_FLOW 
            jB = OB_Js(i,bi,bj)
./pkg/obcs/obcs_balance_flow.F 387 OBCS_BALANCE_FLOW 
             OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 388 OBCS_BALANCE_FLOW 
     &                       + flowS*maskS(i,1+jB,k,bi,bj)
./pkg/obcs/obcs_balance_flow.F 47 OBCS_BALANCE_FLOW 
      INTEGER bi, bj
./pkg/obcs/obcs_balance_flow.F 79 OBCS_BALANCE_FLOW 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 81 OBCS_BALANCE_FLOW 
        tileAreaOB(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 82 OBCS_BALANCE_FLOW 
        tileInFlow(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 90 OBCS_BALANCE_FLOW 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_balance_flow.F 92 OBCS_BALANCE_FLOW 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 93 OBCS_BALANCE_FLOW 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_balance_flow.F 94 OBCS_BALANCE_FLOW 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_balance_flow.F 97 OBCS_BALANCE_FLOW 
           iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc.F 103 OBCS_CALC 
            IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 104 OBCS_CALC 
              OBEu(j,k,bi,bj)= U_F1(j,k,2)
./pkg/obcs/obcs_calc.F 105 OBCS_CALC 
              OBEv(j,k,bi,bj)= V_F1(j,k,2)
./pkg/obcs/obcs_calc.F 106 OBCS_CALC 
              OBEt(j,k,bi,bj)= T_F1(j,k,2)
./pkg/obcs/obcs_calc.F 107 OBCS_CALC 
              OBEs(j,k,bi,bj)= S_F1(j,k,2)
./pkg/obcs/obcs_calc.F 109 OBCS_CALC 
              OBEeta(j,bi,bj)= ETA_F1(j,1,2)
./pkg/obcs/obcs_calc.F 118 OBCS_CALC 
            IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 119 OBCS_CALC 
              OBEu(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 120 OBCS_CALC 
              OBEv(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 121 OBCS_CALC 
              OBEt(j,k,bi,bj)=tRef(k)
./pkg/obcs/obcs_calc.F 122 OBCS_CALC 
              OBEs(j,k,bi,bj)=sRef(k)
./pkg/obcs/obcs_calc.F 124 OBCS_CALC 
              OBEw(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 127 OBCS_CALC 
              OBEeta(j,bi,bj)=0.
./pkg/obcs/obcs_calc.F 145 OBCS_CALC 
     &          bi, bj, futureTime,
./pkg/obcs/obcs_calc.F 153 OBCS_CALC 
            IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 154 OBCS_CALC 
              OBWu(j,k,bi,bj)= U_F1(j,k,1)
./pkg/obcs/obcs_calc.F 155 OBCS_CALC 
              OBWv(j,k,bi,bj)= V_F1(j,k,1)
./pkg/obcs/obcs_calc.F 156 OBCS_CALC 
              OBWt(j,k,bi,bj)= T_F1(j,k,1)
./pkg/obcs/obcs_calc.F 157 OBCS_CALC 
              OBWs(j,k,bi,bj)= S_F1(j,k,1)
./pkg/obcs/obcs_calc.F 159 OBCS_CALC 
              OBWeta(j,bi,bj)= ETA_F1(j,1,1)
./pkg/obcs/obcs_calc.F 168 OBCS_CALC 
            IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 169 OBCS_CALC 
              OBWu(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 170 OBCS_CALC 
              OBWv(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 171 OBCS_CALC 
              OBWt(j,k,bi,bj)=tRef(k)
./pkg/obcs/obcs_calc.F 172 OBCS_CALC 
              OBWs(j,k,bi,bj)=sRef(k)
./pkg/obcs/obcs_calc.F 174 OBCS_CALC 
              OBWw(j,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 177 OBCS_CALC 
              OBWeta(j,bi,bj)=0.
./pkg/obcs/obcs_calc.F 195 OBCS_CALC 
     &          bi, bj, futureTime,
./pkg/obcs/obcs_calc.F 202 OBCS_CALC 
            IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 203 OBCS_CALC 
              OBNv(i,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 204 OBCS_CALC 
              OBNu(i,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 205 OBCS_CALC 
              OBNt(i,k,bi,bj)=tRef(k)
./pkg/obcs/obcs_calc.F 206 OBCS_CALC 
              OBNs(i,k,bi,bj)=sRef(k)
./pkg/obcs/obcs_calc.F 208 OBCS_CALC 
              OBNw(i,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 211 OBCS_CALC 
              OBNeta(i,bi,bj)=0.
./pkg/obcs/obcs_calc.F 229 OBCS_CALC 
     &          bi, bj, futureTime,
./pkg/obcs/obcs_calc.F 236 OBCS_CALC 
            IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 237 OBCS_CALC 
              OBSu(i,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 238 OBCS_CALC 
              OBSv(i,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 239 OBCS_CALC 
              OBSt(i,k,bi,bj)=tRef(k)
./pkg/obcs/obcs_calc.F 240 OBCS_CALC 
              OBSs(i,k,bi,bj)=sRef(k)
./pkg/obcs/obcs_calc.F 242 OBCS_CALC 
              OBSw(i,k,bi,bj)=0.
./pkg/obcs/obcs_calc.F 245 OBCS_CALC 
              OBSeta(i,bi,bj)=0.
./pkg/obcs/obcs_calc.F 285 OBCS_CALC 
           IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 286 OBCS_CALC 
            I_obc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc.F 287 OBCS_CALC 
            OBEptr(j,k,bi,bj,iTracer) =
./pkg/obcs/obcs_calc.F 288 OBCS_CALC 
     &           pTracer(I_obc-1,j,k,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 289 OBCS_CALC 
     &           *_maskW(I_obc,j,k,bi,bj)
./pkg/obcs/obcs_calc.F 317 OBCS_CALC 
           IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 318 OBCS_CALC 
            I_obc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_calc.F 319 OBCS_CALC 
            OBWptr(j,k,bi,bj,iTracer) =
./pkg/obcs/obcs_calc.F 320 OBCS_CALC 
     &           pTracer(I_obc+1,j,k,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 321 OBCS_CALC 
     &           *_maskW(I_obc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc.F 349 OBCS_CALC 
           IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 350 OBCS_CALC 
            J_obc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_calc.F 351 OBCS_CALC 
            OBNptr(i,k,bi,bj,iTracer) =
./pkg/obcs/obcs_calc.F 352 OBCS_CALC 
     &           pTracer(i,J_obc-1,k,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 353 OBCS_CALC 
     &           *_maskS(i,J_obc,k,bi,bj)
./pkg/obcs/obcs_calc.F 381 OBCS_CALC 
           IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_calc.F 382 OBCS_CALC 
            J_obc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_calc.F 383 OBCS_CALC 
            OBSptr(i,k,bi,bj,iTracer) =
./pkg/obcs/obcs_calc.F 384 OBCS_CALC 
     &           pTracer(i,J_obc+1,k,bi,bj,iTracer)
./pkg/obcs/obcs_calc.F 385 OBCS_CALC 
     &           *_maskS(i,J_obc+1,k,bi,bj)
./pkg/obcs/obcs_calc.F 60 OBCS_CALC 
      INTEGER bi, bj
./pkg/obcs/obcs_calc.F 74 OBCS_CALC 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_calc.F 95 OBCS_CALC 
     &          bi, bj, futureTime,
./pkg/obcs/obcs_calc_stevens.F 103 OBCS_CALC_STEVENS 
      INTEGER bi, bj
./pkg/obcs/obcs_calc_stevens.F 142 OBCS_CALC_STEVENS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_calc_stevens.F 148 OBCS_CALC_STEVENS 
          act2 = bj - myByLo(myThid)
./pkg/obcs/obcs_calc_stevens.F 173 OBCS_CALC_STEVENS 
          I = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 183 OBCS_CALC_STEVENS 
            uMerBar = uMerBar + uVel(I-1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 185 OBCS_CALC_STEVENS 
            uMerBar = uMerBar + OBEuStevens(J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 187 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 188 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 193 OBCS_CALC_STEVENS 
            uMerPri(K) = (uVel(I-1,J,K,bi,bj)-uMerBar)
./pkg/obcs/obcs_calc_stevens.F 195 OBCS_CALC_STEVENS 
            uMerPri(K) = (OBEuStevens(J,K,bi,bj)-uMerBar)
./pkg/obcs/obcs_calc_stevens.F 197 OBCS_CALC_STEVENS 
     &           * _maskW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 203 OBCS_CALC_STEVENS 
            uMerBar = uMerBar + OBEu(J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 204 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 205 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 211 OBCS_CALC_STEVENS 
            OBEu(J,K,bi,bj) = (uMerBar + uMerPri(K))
./pkg/obcs/obcs_calc_stevens.F 212 OBCS_CALC_STEVENS 
     &           * _maskW(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 215 OBCS_CALC_STEVENS 
            OBEw(J,K,bi,bj)=0.
./pkg/obcs/obcs_calc_stevens.F 224 OBCS_CALC_STEVENS 
           I = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 226 OBCS_CALC_STEVENS 
            OBEeta(J,bi,bj) = etaN(I-1,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 235 OBCS_CALC_STEVENS 
           I = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 237 OBCS_CALC_STEVENS 
            cflMer(J,K) = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/dTtracerLev(K)
./pkg/obcs/obcs_calc_stevens.F 240 OBCS_CALC_STEVENS 
            gFacM(J,K)  = ABS(MIN(SIGN(1.D0,uVel(I,J,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 249 OBCS_CALC_STEVENS 
           I = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 252 OBCS_CALC_STEVENS 
            dTracSpace = (theta(I-1,J,K,bi,bj)-theta(I-2,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 253 OBCS_CALC_STEVENS 
     &           * _maskW(I-1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 254 OBCS_CALC_STEVENS 
            dTracTime  = (theta(I-1,J,K,bi,bj)-OBEtStevens(J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 263 OBCS_CALC_STEVENS 
            OBEt(J,K,bi,bj) = _maskW(I,J,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 264 OBCS_CALC_STEVENS 
     &          - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase )
./pkg/obcs/obcs_calc_stevens.F 265 OBCS_CALC_STEVENS 
     &          *(theta(I,J,K,bi,bj)-theta(I-1,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 266 OBCS_CALC_STEVENS 
     &          * _recip_dxC(I,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 268 OBCS_CALC_STEVENS 
     &           * (theta(I,J,K,bi,bj)-OBEt(J,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 270 OBCS_CALC_STEVENS 
            dTracSpace = (salt(I-1,J,K,bi,bj)-salt(I-2,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 271 OBCS_CALC_STEVENS 
     &          * _maskW(I-1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 272 OBCS_CALC_STEVENS 
            dTracTime  = (salt(I-1,J,K,bi,bj)-OBEsStevens(J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 281 OBCS_CALC_STEVENS 
            OBEs(J,K,bi,bj) = _maskW(I,J,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 282 OBCS_CALC_STEVENS 
     &          - ( aFac*MAX(0.D0,uVel(I,J,K,bi,bj)) + uPhase )
./pkg/obcs/obcs_calc_stevens.F 283 OBCS_CALC_STEVENS 
     &          *(salt(I,J,K,bi,bj)-salt(I-1,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 284 OBCS_CALC_STEVENS 
     &          * _recip_dxC(I,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 286 OBCS_CALC_STEVENS 
     &           * (salt(I,J,K,bi,bj)-OBEs(J,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 311 OBCS_CALC_STEVENS 
          I = OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 321 OBCS_CALC_STEVENS 
            uMerBar = uMerBar + uVel(I+2,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 323 OBCS_CALC_STEVENS 
            uMerBar = uMerBar + OBWuStevens(J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 325 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 326 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 331 OBCS_CALC_STEVENS 
            uMerPri(K) = (uVel(I+2,J,K,bi,bj)-uMerBar)
./pkg/obcs/obcs_calc_stevens.F 333 OBCS_CALC_STEVENS 
            uMerPri(K) = (OBWuStevens(J,K,bi,bj)-uMerBar)
./pkg/obcs/obcs_calc_stevens.F 335 OBCS_CALC_STEVENS 
     &           * _maskW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 341 OBCS_CALC_STEVENS 
            uMerBar = uMerBar + OBWu(J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 342 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 343 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 349 OBCS_CALC_STEVENS 
            OBWu(J,K,bi,bj) = (uMerBar + uMerPri(K))
./pkg/obcs/obcs_calc_stevens.F 350 OBCS_CALC_STEVENS 
     &          * _maskW(I+1,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 353 OBCS_CALC_STEVENS 
            OBWw(J,K,bi,bj)=0.
./pkg/obcs/obcs_calc_stevens.F 362 OBCS_CALC_STEVENS 
           I = OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 364 OBCS_CALC_STEVENS 
            OBWeta(J,bi,bj) = etaN(I+1,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 373 OBCS_CALC_STEVENS 
           I = OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 375 OBCS_CALC_STEVENS 
            cflMer(J,K) = 0.5 _d 0 * _dxC(I+2,J,bi,bj)/dTtracerLev(K)
./pkg/obcs/obcs_calc_stevens.F 378 OBCS_CALC_STEVENS 
            gFacM(J,K)  = ABS(MAX(SIGN(1.D0,uVel(I+1,J,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 387 OBCS_CALC_STEVENS 
           I = OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 390 OBCS_CALC_STEVENS 
            dTracSpace = (theta(I+2,J,K,bi,bj)-theta(I+1,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 391 OBCS_CALC_STEVENS 
     &        * _maskW(I+2,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 392 OBCS_CALC_STEVENS 
            dTracTime  = (theta(I+1,J,K,bi,bj)-OBWtStevens(J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 401 OBCS_CALC_STEVENS 
            OBWt(J,K,bi,bj) = _maskW(I+1,J,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 402 OBCS_CALC_STEVENS 
     &        - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase )
./pkg/obcs/obcs_calc_stevens.F 403 OBCS_CALC_STEVENS 
     &        *(theta(I+1,J,K,bi,bj)-theta(I,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 404 OBCS_CALC_STEVENS 
     &        * _recip_dxC(I+1,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 406 OBCS_CALC_STEVENS 
     &           * (theta(I,J,K,bi,bj)-OBWt(J,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 408 OBCS_CALC_STEVENS 
            dTracSpace = (salt(I+2,J,K,bi,bj)-salt(I+1,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 409 OBCS_CALC_STEVENS 
     &        * _maskW(I+2,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 410 OBCS_CALC_STEVENS 
            dTracTime  = (salt(I+1,J,K,bi,bj)-OBWsStevens(J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 419 OBCS_CALC_STEVENS 
            OBWs(J,K,bi,bj) = _maskW(I+1,J,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 420 OBCS_CALC_STEVENS 
     &        - ( aFac*MIN(0.D0,uVel(I+1,J,K,bi,bj)) + uPhase )
./pkg/obcs/obcs_calc_stevens.F 421 OBCS_CALC_STEVENS 
     &        *(salt(I+1,J,K,bi,bj)-salt(I,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 422 OBCS_CALC_STEVENS 
     &        * _recip_dxC(I+1,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 424 OBCS_CALC_STEVENS 
     &           * (salt(I,J,K,bi,bj)-OBWs(J,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 448 OBCS_CALC_STEVENS 
          J = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 458 OBCS_CALC_STEVENS 
            vZonBar = vZonBar + vVel(I,J-1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 460 OBCS_CALC_STEVENS 
            vZonBar = vZonBar + OBNvStevens(I,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 462 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 463 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 468 OBCS_CALC_STEVENS 
            vZonPri(K) = (vVel(I,J-1,K,bi,bj)-vZonBar)
./pkg/obcs/obcs_calc_stevens.F 470 OBCS_CALC_STEVENS 
            vZonPri(K) = (OBNvStevens(I,K,bi,bj)-vZonBar)
./pkg/obcs/obcs_calc_stevens.F 472 OBCS_CALC_STEVENS 
     &           * _maskS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 478 OBCS_CALC_STEVENS 
            vZonBar = vZonBar + OBNv(I,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 479 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 480 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 486 OBCS_CALC_STEVENS 
            OBNv(I,K,bi,bj) = (vZonBar + vZonPri(K))
./pkg/obcs/obcs_calc_stevens.F 487 OBCS_CALC_STEVENS 
     &           * _maskS(I,J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 490 OBCS_CALC_STEVENS 
            OBNw(I,K,bi,bj)=0.
./pkg/obcs/obcs_calc_stevens.F 499 OBCS_CALC_STEVENS 
           J = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 501 OBCS_CALC_STEVENS 
            OBNeta(I,bi,bj) = etaN(I,J-1,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 510 OBCS_CALC_STEVENS 
           J = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 512 OBCS_CALC_STEVENS 
            cflZon(I,K) = 0.5 _d 0 * _dyC(I,J-1,bi,bj)/dTtracerLev(K)
./pkg/obcs/obcs_calc_stevens.F 515 OBCS_CALC_STEVENS 
            gFacZ(I,K)  = ABS(MIN(SIGN(1.D0,vVel(I,J,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 524 OBCS_CALC_STEVENS 
           J = OB_Jn(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 527 OBCS_CALC_STEVENS 
            dTracSpace = (theta(I,J-1,K,bi,bj)-theta(I,J-2,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 528 OBCS_CALC_STEVENS 
     &        * _maskS(I,J-1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 529 OBCS_CALC_STEVENS 
            dTracTime  = (theta(I,J-1,K,bi,bj)-OBNtStevens(I,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 538 OBCS_CALC_STEVENS 
            OBNt(I,K,bi,bj) = _maskS(I,J,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 539 OBCS_CALC_STEVENS 
     &        - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase )
./pkg/obcs/obcs_calc_stevens.F 540 OBCS_CALC_STEVENS 
     &        *(theta(I,J,K,bi,bj)-theta(I,J-1,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 541 OBCS_CALC_STEVENS 
     &        * _recip_dyC(I,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 543 OBCS_CALC_STEVENS 
     &           * (theta(I,J,K,bi,bj)-OBNt(I,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 545 OBCS_CALC_STEVENS 
            dTracSpace = (salt(I,J-1,K,bi,bj)-salt(I,J-2,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 546 OBCS_CALC_STEVENS 
     &        * _maskS(I,J-1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 547 OBCS_CALC_STEVENS 
            dTracTime  = (salt(I,J-1,K,bi,bj)-OBNsStevens(I,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 556 OBCS_CALC_STEVENS 
            OBNs(I,K,bi,bj) = _maskS(I,J,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 557 OBCS_CALC_STEVENS 
     &        - ( aFac*MAX(0.D0,vVel(I,J,K,bi,bj)) + vPhase )
./pkg/obcs/obcs_calc_stevens.F 558 OBCS_CALC_STEVENS 
     &        *(salt(I,J,K,bi,bj)-salt(I,J-1,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 559 OBCS_CALC_STEVENS 
     &        * _recip_dyC(I,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 561 OBCS_CALC_STEVENS 
     &           * (salt(I,J,K,bi,bj)-OBNs(I,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 586 OBCS_CALC_STEVENS 
          J = OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 596 OBCS_CALC_STEVENS 
            vZonBar = vZonBar + vVel(I,J+2,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 598 OBCS_CALC_STEVENS 
            vZonBar = vZonBar + OBSvStevens(I,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 600 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 601 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 606 OBCS_CALC_STEVENS 
            vZonPri(K) = (vVel(I,J+2,K,bi,bj)-vZonBar)
./pkg/obcs/obcs_calc_stevens.F 608 OBCS_CALC_STEVENS 
            vZonPri(K) = (OBSvStevens(I,K,bi,bj)-vZonBar)
./pkg/obcs/obcs_calc_stevens.F 610 OBCS_CALC_STEVENS 
     &           * _maskS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 616 OBCS_CALC_STEVENS 
            vZonBar = vZonBar + OBSv(I,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 617 OBCS_CALC_STEVENS 
     &           *drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 618 OBCS_CALC_STEVENS 
            drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 624 OBCS_CALC_STEVENS 
            OBSv(I,K,bi,bj) = (vZonBar + vZonPri(K))
./pkg/obcs/obcs_calc_stevens.F 625 OBCS_CALC_STEVENS 
     &          * _maskS(I,J+1,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 628 OBCS_CALC_STEVENS 
            OBSw(I,K,bi,bj)=0.
./pkg/obcs/obcs_calc_stevens.F 637 OBCS_CALC_STEVENS 
           J = OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 639 OBCS_CALC_STEVENS 
            OBSeta(I,bi,bj) = etaN(I,J+1,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 648 OBCS_CALC_STEVENS 
           J = OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 650 OBCS_CALC_STEVENS 
            cflZon(I,K) = 0.5 _d 0 * _dyC(I,J+2,bi,bj)/dTtracerLev(K)
./pkg/obcs/obcs_calc_stevens.F 653 OBCS_CALC_STEVENS 
            gFacZ(I,K)  = ABS(MAX(SIGN(1.D0,vVel(I,J+1,K,bi,bj)),0.D0))
./pkg/obcs/obcs_calc_stevens.F 662 OBCS_CALC_STEVENS 
           J = OB_Js(I,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 665 OBCS_CALC_STEVENS 
            dTracSpace = (theta(I,J+2,K,bi,bj)-theta(I,J+1,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 666 OBCS_CALC_STEVENS 
     &        * _maskS(I,J+2,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 667 OBCS_CALC_STEVENS 
            dTracTime  = (theta(I,J+1,K,bi,bj)-OBStStevens(I,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 676 OBCS_CALC_STEVENS 
            OBSt(I,K,bi,bj) = _maskS(I,J+1,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 677 OBCS_CALC_STEVENS 
     &        - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase )
./pkg/obcs/obcs_calc_stevens.F 678 OBCS_CALC_STEVENS 
     &        *(theta(I,J+1,K,bi,bj)-theta(I,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 679 OBCS_CALC_STEVENS 
     &        * _recip_dyC(I,J+1,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 681 OBCS_CALC_STEVENS 
     &           * (theta(I,J,K,bi,bj)-OBSt(I,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 683 OBCS_CALC_STEVENS 
            dTracSpace = (salt(I,J+2,K,bi,bj)-salt(I,J+1,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 684 OBCS_CALC_STEVENS 
     &        * _maskS(I,J+2,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 685 OBCS_CALC_STEVENS 
            dTracTime  = (salt(I,J+1,K,bi,bj)-OBSsStevens(I,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 694 OBCS_CALC_STEVENS 
            OBSs(I,K,bi,bj) = _maskS(I,J+1,K,bi,bj) * (
./pkg/obcs/obcs_calc_stevens.F 695 OBCS_CALC_STEVENS 
     &        - ( aFac*MIN(0.D0,vVel(I,J+1,K,bi,bj)) + vPhase )
./pkg/obcs/obcs_calc_stevens.F 696 OBCS_CALC_STEVENS 
     &        *(salt(I,J+1,K,bi,bj)-salt(I,J,K,bi,bj))
./pkg/obcs/obcs_calc_stevens.F 697 OBCS_CALC_STEVENS 
     &        * _recip_dyC(I,J+1,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 699 OBCS_CALC_STEVENS 
     &           * (salt(I,J,K,bi,bj)-OBSs(I,K,bi,bj)) )
./pkg/obcs/obcs_calc_stevens.F 718 OBCS_CALC_STEVENS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_calc_stevens.F 726 OBCS_CALC_STEVENS 
          I = OB_Ie(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 728 OBCS_CALC_STEVENS 
          uPhase = uPhase + OBEu(J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 729 OBCS_CALC_STEVENS 
     &         *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 730 OBCS_CALC_STEVENS 
          I = OB_Iw(J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 732 OBCS_CALC_STEVENS 
          vPhase = vPhase + OBWu(J,K,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 733 OBCS_CALC_STEVENS 
     &         *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 803 OBCS_STEVENS_SAVE_TRACERS 
      INTEGER bi,bj,i,j,k,Iobc,Jobc
./pkg/obcs/obcs_calc_stevens.F 806 OBCS_STEVENS_SAVE_TRACERS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_calc_stevens.F 809 OBCS_STEVENS_SAVE_TRACERS 
        IF ( tileHasOBN(bi,bj) .AND. useStevensNorth ) THEN
./pkg/obcs/obcs_calc_stevens.F 812 OBCS_STEVENS_SAVE_TRACERS 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 815 OBCS_STEVENS_SAVE_TRACERS 
            OBNtStevens(i,k,bi,bj) = theta(i,Jobc-1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 816 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 817 OBCS_STEVENS_SAVE_TRACERS 
            OBNsStevens(i,k,bi,bj) = salt(i,Jobc-1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 818 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 825 OBCS_STEVENS_SAVE_TRACERS 
        IF ( tileHasOBS(bi,bj) .AND. useStevensSouth ) THEN
./pkg/obcs/obcs_calc_stevens.F 828 OBCS_STEVENS_SAVE_TRACERS 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 831 OBCS_STEVENS_SAVE_TRACERS 
            OBStStevens(i,k,bi,bj) = theta(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 832 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 833 OBCS_STEVENS_SAVE_TRACERS 
            OBSsStevens(i,k,bi,bj) = salt(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 834 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 841 OBCS_STEVENS_SAVE_TRACERS 
        IF ( tileHasOBE(bi,bj) .AND. useStevensEast ) THEN
./pkg/obcs/obcs_calc_stevens.F 844 OBCS_STEVENS_SAVE_TRACERS 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 847 OBCS_STEVENS_SAVE_TRACERS 
            OBEtStevens(j,k,bi,bj) = theta(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 848 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 849 OBCS_STEVENS_SAVE_TRACERS 
            OBEsStevens(j,k,bi,bj) = salt(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 850 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(Iobc-1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 857 OBCS_STEVENS_SAVE_TRACERS 
        IF ( tileHasOBW(bi,bj) .AND. useStevensWest ) THEN
./pkg/obcs/obcs_calc_stevens.F 860 OBCS_STEVENS_SAVE_TRACERS 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 863 OBCS_STEVENS_SAVE_TRACERS 
            OBWtStevens(j,k,bi,bj) = theta(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 864 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 865 OBCS_STEVENS_SAVE_TRACERS 
            OBWsStevens(j,k,bi,bj) = salt(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_calc_stevens.F 866 OBCS_STEVENS_SAVE_TRACERS 
     &           *maskC(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_check.F 107 OBCS_CHECK 
       DO bj = 1,nSy
./pkg/obcs/obcs_check.F 110 OBCS_CHECK 
     &     '======== Tile bi=', bi, ' , bj=', bj, ' ========'
./pkg/obcs/obcs_check.F 114 OBCS_CHECK 
         CALL PRINT_LIST_I( OB_Jn(1-OLx,bi,bj), 1-OLx, sNx+OLx, INDEX_I,
./pkg/obcs/obcs_check.F 118 OBCS_CHECK 
         CALL PRINT_LIST_I( OB_Js(1-OLx,bi,bj), 1-OLx, sNx+OLx, INDEX_I,
./pkg/obcs/obcs_check.F 122 OBCS_CHECK 
         CALL PRINT_LIST_I( OB_Ie(1-OLy,bi,bj), 1-OLy, sNy+OLy, INDEX_J,
./pkg/obcs/obcs_check.F 126 OBCS_CHECK 
         CALL PRINT_LIST_I( OB_Iw(1-OLy,bi,bj), 1-OLy, sNy+OLy, INDEX_J,
./pkg/obcs/obcs_check.F 143 OBCS_CHECK 
      DO bj = 1,nSy
./pkg/obcs/obcs_check.F 146 OBCS_CHECK 
         IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_check.F 151 OBCS_CHECK 
     &      'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Northern OB'
./pkg/obcs/obcs_check.F 157 OBCS_CHECK 
         IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_check.F 162 OBCS_CHECK 
     &      'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Southern OB'
./pkg/obcs/obcs_check.F 168 OBCS_CHECK 
         IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_check.F 173 OBCS_CHECK 
     &      'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Eastern OB'
./pkg/obcs/obcs_check.F 179 OBCS_CHECK 
         IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_check.F 184 OBCS_CHECK 
     &      'OBCS_CHECK: tile bi,bj=',bi,bj, ' has Western OB'
./pkg/obcs/obcs_check.F 447 OBCS_CHECK 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_check.F 452 OBCS_CHECK 
          i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_check.F 454 OBCS_CHECK 
           IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F 457 OBCS_CHECK 
     &        ' from OB_Ie (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check.F 45 OBCS_CHECK 
      INTEGER bi, bj
./pkg/obcs/obcs_check.F 464 OBCS_CHECK 
           IF ( maskInC(i-1,j,bi,bj).GT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F 465 OBCS_CHECK 
     &          .AND.ksurfW(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F 466 OBCS_CHECK 
     &          .AND. i.NE.OB_Ie(j,bi,bj) ) THEN
./pkg/obcs/obcs_check.F 469 OBCS_CHECK 
     &        ' from insideMask (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check.F 476 OBCS_CHECK 
          i = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_check.F 478 OBCS_CHECK 
           IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F 481 OBCS_CHECK 
     &        ' from OB_Iw (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check.F 488 OBCS_CHECK 
           IF ( maskInC(i-1,j,bi,bj).LT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F 489 OBCS_CHECK 
     &          .AND.ksurfW(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F 490 OBCS_CHECK 
     &          .AND. i.NE.OB_Iw(j,bi,bj)+1 ) THEN
./pkg/obcs/obcs_check.F 493 OBCS_CHECK 
     &        ' from insideMask (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check.F 503 OBCS_CHECK 
          j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_check.F 505 OBCS_CHECK 
           IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F 508 OBCS_CHECK 
     &        ' from OB_Jn (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check.F 515 OBCS_CHECK 
           IF ( maskInC(i,j-1,bi,bj).GT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F 516 OBCS_CHECK 
     &          .AND.ksurfS(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F 517 OBCS_CHECK 
     &          .AND. j.NE.OB_Jn(i,bi,bj) ) THEN
./pkg/obcs/obcs_check.F 520 OBCS_CHECK 
     &        ' from insideMask (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check.F 527 OBCS_CHECK 
          j = OB_Js(i,bi,bj)
./pkg/obcs/obcs_check.F 529 OBCS_CHECK 
           IF ( maskInC(i,j,bi,bj).NE.0. ) THEN
./pkg/obcs/obcs_check.F 532 OBCS_CHECK 
     &        ' from OB_Js (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check.F 539 OBCS_CHECK 
           IF ( maskInC(i,j-1,bi,bj).LT.maskInC(i,j,bi,bj)
./pkg/obcs/obcs_check.F 540 OBCS_CHECK 
     &          .AND.ksurfS(i,j,bi,bj).LE.Nr
./pkg/obcs/obcs_check.F 541 OBCS_CHECK 
     &          .AND. j.NE.OB_Js(i,bi,bj)+1 ) THEN
./pkg/obcs/obcs_check.F 544 OBCS_CHECK 
     &        ' from insideMask (bi,bj=', bi, ',', bj,
./pkg/obcs/obcs_check_depths.F 100 OBCS_CHECK_DEPTHS 
     &          '(i,j,bi,bj)=',  i, j, bi, bj
./pkg/obcs/obcs_check_depths.F 32 OBCS_CHECK_DEPTHS 
      INTEGER bi, bj, i, j, ichanged
./pkg/obcs/obcs_check_depths.F 39 OBCS_CHECK_DEPTHS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_check_depths.F 44 OBCS_CHECK_DEPTHS 
         j = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_check_depths.F 46 OBCS_CHECK_DEPTHS 
          IF ( R_low(i,j,bi,bj) .LT. R_low(i,j-1,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F 48 OBCS_CHECK_DEPTHS 
           R_low(i,j,bi,bj) = R_low(i,j-1,bi,bj)
./pkg/obcs/obcs_check_depths.F 51 OBCS_CHECK_DEPTHS 
     &          '(i,j,bi,bj)=',  i, j, bi, bj
./pkg/obcs/obcs_check_depths.F 60 OBCS_CHECK_DEPTHS 
         j = OB_Js(i,bi,bj)
./pkg/obcs/obcs_check_depths.F 62 OBCS_CHECK_DEPTHS 
          IF ( R_low(i,j,bi,bj) .LT. R_low(i,j+1,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F 64 OBCS_CHECK_DEPTHS 
           R_low(i,j,bi,bj) = R_low(i,j+1,bi,bj)
./pkg/obcs/obcs_check_depths.F 67 OBCS_CHECK_DEPTHS 
     &          '(i,j,bi,bj)=',  i, j, bi, bj
./pkg/obcs/obcs_check_depths.F 76 OBCS_CHECK_DEPTHS 
         i = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_check_depths.F 78 OBCS_CHECK_DEPTHS 
          IF ( R_low(i,j,bi,bj) .LT. R_low(i-1,j,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F 80 OBCS_CHECK_DEPTHS 
           R_low(i,j,bi,bj) = R_low(i-1,j,bi,bj)
./pkg/obcs/obcs_check_depths.F 83 OBCS_CHECK_DEPTHS 
     &          '(i,j,bi,bj)=',  i, j, bi, bj
./pkg/obcs/obcs_check_depths.F 93 OBCS_CHECK_DEPTHS 
         i = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_check_depths.F 95 OBCS_CHECK_DEPTHS 
          IF ( R_low(i,j,bi,bj) .LT. R_low(i+1,j,bi,bj) ) THEN
./pkg/obcs/obcs_check_depths.F 97 OBCS_CHECK_DEPTHS 
           R_low(i,j,bi,bj) = R_low(i+1,j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 106 OBCS_COPY_TRACER 
      IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_copy_tracer.F 109 OBCS_COPY_TRACER 
          Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 12 OBCS_COPY_TRACER 
     I                             kSiz, bi, bj, myThid )
./pkg/obcs/obcs_copy_tracer.F 44 OBCS_COPY_TRACER 
      INTEGER bi, bj
./pkg/obcs/obcs_copy_tracer.F 57 OBCS_COPY_TRACER 
      IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_copy_tracer.F 60 OBCS_COPY_TRACER 
          Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 73 OBCS_COPY_TRACER 
      IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_copy_tracer.F 76 OBCS_COPY_TRACER 
          Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_copy_tracer.F 90 OBCS_COPY_TRACER 
      IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_copy_tracer.F 93 OBCS_COPY_TRACER 
          Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F 104 OBCS_COPY_UV_N 
      IF ( tileHasOBW(bi,bj) .AND. useStevensWest ) THEN
./pkg/obcs/obcs_copy_uv_n.F 107 OBCS_COPY_UV_N 
        Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F 12 OBCS_COPY_UV_N 
     I                             kSiz, bi, bj, myThid )
./pkg/obcs/obcs_copy_uv_n.F 42 OBCS_COPY_UV_N 
      INTEGER bi, bj
./pkg/obcs/obcs_copy_uv_n.F 55 OBCS_COPY_UV_N 
      IF ( tileHasOBN(bi,bj) .AND. useStevensNorth ) THEN
./pkg/obcs/obcs_copy_uv_n.F 58 OBCS_COPY_UV_N 
        Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F 71 OBCS_COPY_UV_N 
      IF ( tileHasOBS(bi,bj) .AND. useStevensSouth ) THEN
./pkg/obcs/obcs_copy_uv_n.F 74 OBCS_COPY_UV_N 
        Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_copy_uv_n.F 88 OBCS_COPY_UV_N 
      IF ( tileHasOBE(bi,bj) .AND. useStevensEast ) THEN
./pkg/obcs/obcs_copy_uv_n.F 91 OBCS_COPY_UV_N 
        Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 104 OBCS_DIAG_BALANCE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 106 OBCS_DIAG_BALANCE 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 107 OBCS_DIAG_BALANCE 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 108 OBCS_DIAG_BALANCE 
        IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 110 OBCS_DIAG_BALANCE 
           iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 112 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 113 OBCS_DIAG_BALANCE 
     &                   *maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 114 OBCS_DIAG_BALANCE 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_diag_balance.F 115 OBCS_DIAG_BALANCE 
            tileFlow(bi,bj) = tileFlow(bi,bj) + uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 119 OBCS_DIAG_BALANCE 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 120 OBCS_DIAG_BALANCE 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_diag_balance.F 121 OBCS_DIAG_BALANCE 
     &                       + tileArea(bi,bj)*OBCS_balanceFacE
./pkg/obcs/obcs_diag_balance.F 123 OBCS_DIAG_BALANCE 
         areaE = areaE + tileArea(bi,bj)
./pkg/obcs/obcs_diag_balance.F 124 OBCS_DIAG_BALANCE 
         flowE = flowE + tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 149 OBCS_DIAG_BALANCE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 151 OBCS_DIAG_BALANCE 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 152 OBCS_DIAG_BALANCE 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 153 OBCS_DIAG_BALANCE 
        IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 155 OBCS_DIAG_BALANCE 
           iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 158 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 159 OBCS_DIAG_BALANCE 
     &                   *maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 160 OBCS_DIAG_BALANCE 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_diag_balance.F 161 OBCS_DIAG_BALANCE 
            tileFlow(bi,bj) = tileFlow(bi,bj) + uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 165 OBCS_DIAG_BALANCE 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 166 OBCS_DIAG_BALANCE 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_diag_balance.F 167 OBCS_DIAG_BALANCE 
     &                       + tileArea(bi,bj)*OBCS_balanceFacW
./pkg/obcs/obcs_diag_balance.F 169 OBCS_DIAG_BALANCE 
         areaW = areaW + tileArea(bi,bj)
./pkg/obcs/obcs_diag_balance.F 170 OBCS_DIAG_BALANCE 
         flowW = flowW + tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 195 OBCS_DIAG_BALANCE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 197 OBCS_DIAG_BALANCE 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 198 OBCS_DIAG_BALANCE 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 199 OBCS_DIAG_BALANCE 
        IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 201 OBCS_DIAG_BALANCE 
           jB = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_diag_balance.F 203 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 204 OBCS_DIAG_BALANCE 
     &                   *maskInS(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 205 OBCS_DIAG_BALANCE 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_diag_balance.F 206 OBCS_DIAG_BALANCE 
            tileFlow(bi,bj) = tileFlow(bi,bj) + vTrans(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 210 OBCS_DIAG_BALANCE 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) - tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 211 OBCS_DIAG_BALANCE 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_diag_balance.F 212 OBCS_DIAG_BALANCE 
     &                       + tileArea(bi,bj)*OBCS_balanceFacN
./pkg/obcs/obcs_diag_balance.F 214 OBCS_DIAG_BALANCE 
         areaN = areaN + tileArea(bi,bj)
./pkg/obcs/obcs_diag_balance.F 215 OBCS_DIAG_BALANCE 
         flowN = flowN + tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 240 OBCS_DIAG_BALANCE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 242 OBCS_DIAG_BALANCE 
        tileArea(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 243 OBCS_DIAG_BALANCE 
        tileFlow(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 244 OBCS_DIAG_BALANCE 
        IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 246 OBCS_DIAG_BALANCE 
           jB = OB_Js(i,bi,bj)
./pkg/obcs/obcs_diag_balance.F 249 OBCS_DIAG_BALANCE 
            tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 250 OBCS_DIAG_BALANCE 
     &                   *maskInS(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 251 OBCS_DIAG_BALANCE 
            tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_diag_balance.F 252 OBCS_DIAG_BALANCE 
            tileFlow(bi,bj) = tileFlow(bi,bj) + vTrans(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 256 OBCS_DIAG_BALANCE 
           tileInFlow(bi,bj) = tileInFlow(bi,bj) + tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 257 OBCS_DIAG_BALANCE 
           tileAreaOB(bi,bj) = tileAreaOB(bi,bj)
./pkg/obcs/obcs_diag_balance.F 258 OBCS_DIAG_BALANCE 
     &                       + tileArea(bi,bj)*OBCS_balanceFacS
./pkg/obcs/obcs_diag_balance.F 260 OBCS_DIAG_BALANCE 
         areaS = areaS + tileArea(bi,bj)
./pkg/obcs/obcs_diag_balance.F 261 OBCS_DIAG_BALANCE 
         flowS = flowS + tileFlow(bi,bj)
./pkg/obcs/obcs_diag_balance.F 318 OBCS_DIAG_BALANCE 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 320 OBCS_DIAG_BALANCE 
         IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 322 OBCS_DIAG_BALANCE 
            IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_diag_balance.F 323 OBCS_DIAG_BALANCE 
             iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 324 OBCS_DIAG_BALANCE 
             uTrans(iB,j,bi,bj) = uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 325 OBCS_DIAG_BALANCE 
     &                    + flowE*drF(k)*hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 326 OBCS_DIAG_BALANCE 
     &                           *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 337 OBCS_DIAG_BALANCE 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 339 OBCS_DIAG_BALANCE 
         IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 341 OBCS_DIAG_BALANCE 
            IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_diag_balance.F 342 OBCS_DIAG_BALANCE 
             iB = 1+OB_Iw(j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 343 OBCS_DIAG_BALANCE 
             uTrans(iB,j,bi,bj) = uTrans(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 344 OBCS_DIAG_BALANCE 
     &                    + flowW*drF(k)*hFacW(iB,j,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 345 OBCS_DIAG_BALANCE 
     &                           *dyG(iB,j,bi,bj)*maskInW(iB,j,bi,bj)
./pkg/obcs/obcs_diag_balance.F 356 OBCS_DIAG_BALANCE 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 358 OBCS_DIAG_BALANCE 
         IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 360 OBCS_DIAG_BALANCE 
            IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_diag_balance.F 361 OBCS_DIAG_BALANCE 
             jB = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_diag_balance.F 362 OBCS_DIAG_BALANCE 
             vTrans(i,jB,bi,bj) = vTrans(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 363 OBCS_DIAG_BALANCE 
     &                    + flowN*drF(k)*hFacS(i,jB,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 364 OBCS_DIAG_BALANCE 
     &                           *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 375 OBCS_DIAG_BALANCE 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 377 OBCS_DIAG_BALANCE 
         IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_diag_balance.F 379 OBCS_DIAG_BALANCE 
            IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_diag_balance.F 380 OBCS_DIAG_BALANCE 
             jB = 1+OB_Js(i,bi,bj)
./pkg/obcs/obcs_diag_balance.F 381 OBCS_DIAG_BALANCE 
             vTrans(i,jB,bi,bj) = vTrans(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 382 OBCS_DIAG_BALANCE 
     &                    + flowS*drF(k)*hFacS(i,jB,k,bi,bj)
./pkg/obcs/obcs_diag_balance.F 383 OBCS_DIAG_BALANCE 
     &                           *dxG(i,jB,bi,bj)*maskInS(i,jB,bi,bj)
./pkg/obcs/obcs_diag_balance.F 61 OBCS_DIAG_BALANCE 
      INTEGER bi, bj
./pkg/obcs/obcs_diag_balance.F 93 OBCS_DIAG_BALANCE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_diag_balance.F 95 OBCS_DIAG_BALANCE 
        tileAreaOB(bi,bj) = 0.
./pkg/obcs/obcs_diag_balance.F 96 OBCS_DIAG_BALANCE 
        tileInFlow(bi,bj) = 0.
./pkg/obcs/obcs_fields_load.F 108 OBCS_FIELDS_LOAD 
      bj = myByLo(myThid)
./pkg/obcs/obcs_fields_load.F 114 OBCS_FIELDS_LOAD 
     &   ' : iP,iLd,i0,i1=', iRecP,OBCS_ldRec(bi,bj), iRec0,iRec1,
./pkg/obcs/obcs_fields_load.F 130 OBCS_FIELDS_LOAD 
      IF ( iRec1.NE.OBCS_ldRec(bi,bj) ) THEN
./pkg/obcs/obcs_fields_load.F 140 OBCS_FIELDS_LOAD 
     &    ' (prev=', iRecP, OBCS_ldRec(bi,bj), ' )'
./pkg/obcs/obcs_fields_load.F 328 OBCS_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_fields_load.F 330 OBCS_FIELDS_LOAD 
           OBCS_ldRec(bi,bj) = iRec1
./pkg/obcs/obcs_fields_load.F 521 OBCS_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_fields_load.F 524 OBCS_FIELDS_LOAD 
           OBEeta(j,bi,bj) = bWght*OBEeta0(j,bi,bj)
./pkg/obcs/obcs_fields_load.F 525 OBCS_FIELDS_LOAD 
     &                      +aWght*OBEeta1(j,bi,bj)
./pkg/obcs/obcs_fields_load.F 547 OBCS_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_fields_load.F 550 OBCS_FIELDS_LOAD 
           OBWeta(j,bi,bj) = bWght*OBWeta0(j,bi,bj)
./pkg/obcs/obcs_fields_load.F 551 OBCS_FIELDS_LOAD 
     &                      +aWght*OBWeta1(j,bi,bj)
./pkg/obcs/obcs_fields_load.F 573 OBCS_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_fields_load.F 576 OBCS_FIELDS_LOAD 
           OBNeta(i,bi,bj) = bWght*OBNeta0(i,bi,bj)
./pkg/obcs/obcs_fields_load.F 577 OBCS_FIELDS_LOAD 
     &                      +aWght*OBNeta1(i,bi,bj)
./pkg/obcs/obcs_fields_load.F 599 OBCS_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_fields_load.F 602 OBCS_FIELDS_LOAD 
           OBSeta(i,bi,bj) = bWght*OBSeta0(i,bi,bj)
./pkg/obcs/obcs_fields_load.F 603 OBCS_FIELDS_LOAD 
     &                      +aWght*OBSeta1(i,bi,bj)
./pkg/obcs/obcs_fields_load.F 686 OBCS_TIME_INTERP_XZ 
      INTEGER bi,bj,i,k
./pkg/obcs/obcs_fields_load.F 688 OBCS_TIME_INTERP_XZ 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_fields_load.F 692 OBCS_TIME_INTERP_XZ 
           fld(i,k,bi,bj)   = bWght*fld0(i,k,bi,bj)
./pkg/obcs/obcs_fields_load.F 693 OBCS_TIME_INTERP_XZ 
     &                       +aWght*fld1(i,k,bi,bj)
./pkg/obcs/obcs_fields_load.F 737 OBCS_TIME_INTERP_YZ 
      INTEGER bi,bj,j,k
./pkg/obcs/obcs_fields_load.F 739 OBCS_TIME_INTERP_YZ 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_fields_load.F 743 OBCS_TIME_INTERP_YZ 
           fld(j,k,bi,bj)   = bWght*fld0(j,k,bi,bj)
./pkg/obcs/obcs_fields_load.F 744 OBCS_TIME_INTERP_YZ 
     &                       +aWght*fld1(j,k,bi,bj)
./pkg/obcs/obcs_fields_load.F 88 OBCS_FIELDS_LOAD 
      INTEGER bi, bj
./model/src/convective_adjustment.F 102 CONVECTIVE_ADJUSTMENT 
          act2 = bj - myByLo(myThid)
./model/src/convective_adjustment.F 14 CONVECTIVE_ADJUSTMENT 
     I                      bi, bj, myTime, myIter, myThid )
./model/src/convective_adjustment.F 150 CONVECTIVE_ADJUSTMENT 
     I           theta(1-OLx,1-OLy,K-1,bi,bj),
./model/src/convective_adjustment.F 151 CONVECTIVE_ADJUSTMENT 
     I           salt (1-OLx,1-OLy,K-1,bi,bj),
./model/src/convective_adjustment.F 153 CONVECTIVE_ADJUSTMENT 
     I           K-1, bi, bj, myThid )
./model/src/convective_adjustment.F 164 CONVECTIVE_ADJUSTMENT 
     I           theta(1-OLx,1-OLy,K,bi,bj),
./model/src/convective_adjustment.F 165 CONVECTIVE_ADJUSTMENT 
     I           salt (1-OLx,1-OLy,K,bi,bj),
./model/src/convective_adjustment.F 167 CONVECTIVE_ADJUSTMENT 
     I           K, bi, bj, myThid )
./model/src/convective_adjustment.F 183 CONVECTIVE_ADJUSTMENT 
     I           bi,bj,K,rhoKm1,rhoK,
./model/src/convective_adjustment.F 189 CONVECTIVE_ADJUSTMENT 
     I                              bi,bj,k,weightA,weightB,
./model/src/convective_adjustment.F 195 CONVECTIVE_ADJUSTMENT 
     I                              bi,bj,k,weightA,weightB,
./model/src/convective_adjustment.F 203 CONVECTIVE_ADJUSTMENT 
     I                              bi,bj,k,weightA,weightB,myThid)
./model/src/convective_adjustment.F 213 CONVECTIVE_ADJUSTMENT 
     I                            Nr, deltaTClock, bi, bj, myThid)
./model/src/convective_adjustment.F 220 CONVECTIVE_ADJUSTMENT 
     I                             0, Nr, 2, bi, bj, myThid )
./model/src/convective_adjustment.F 44 CONVECTIVE_ADJUSTMENT 
      INTEGER bi,bj
./pkg/obcs/obcs_init_fixed.F 100 OBCS_INIT_FIXED 
             IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 104 OBCS_INIT_FIXED 
          IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 106 OBCS_INIT_FIXED 
           DO j=OB_Js(i,bi,bj),1,-1
./pkg/obcs/obcs_init_fixed.F 108 OBCS_INIT_FIXED 
     &              kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Jn(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 109 OBCS_INIT_FIXED 
             IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 124 OBCS_INIT_FIXED 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_fixed.F 128 OBCS_INIT_FIXED 
           IF ( OBCS_insideMask(i,j,bi,bj).NE.0. )
./pkg/obcs/obcs_init_fixed.F 129 OBCS_INIT_FIXED 
     &          OBCS_insideMask(i,j,bi,bj) = 1.
./pkg/obcs/obcs_init_fixed.F 144 OBCS_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_fixed.F 148 OBCS_INIT_FIXED 
            maskInW(i,j,bi,bj) = maskInW(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 149 OBCS_INIT_FIXED 
     &                     *MAX( OBCS_insideMask(i-1,j,bi,bj),
./pkg/obcs/obcs_init_fixed.F 150 OBCS_INIT_FIXED 
     &                           OBCS_insideMask(i,j,bi,bj) )
./pkg/obcs/obcs_init_fixed.F 151 OBCS_INIT_FIXED 
            maskInS(i,j,bi,bj) = maskInS(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 152 OBCS_INIT_FIXED 
     &                     *MAX( OBCS_insideMask(i,j-1,bi,bj),
./pkg/obcs/obcs_init_fixed.F 153 OBCS_INIT_FIXED 
     &                           OBCS_insideMask(i,j,bi,bj) )
./pkg/obcs/obcs_init_fixed.F 173 OBCS_INIT_FIXED 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_fixed.F 179 OBCS_INIT_FIXED 
           IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F 180 OBCS_INIT_FIXED 
     &          OBCS_insideMask(i-1,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 182 OBCS_INIT_FIXED 
     &          .AND. ksurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F 183 OBCS_INIT_FIXED 
            IF ( OB_Ie(j,bi,bj).EQ.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 184 OBCS_INIT_FIXED 
              OB_Ie(j,bi,bj) = i
./pkg/obcs/obcs_init_fixed.F 186 OBCS_INIT_FIXED 
     &        ' Sets OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 188 OBCS_INIT_FIXED 
            ELSEIF ( OB_Ie(j,bi,bj).NE.i ) THEN
./pkg/obcs/obcs_init_fixed.F 192 OBCS_INIT_FIXED 
     &        ' OBE(j,bi,bj=',j,',',bi,',',bj,')=', OB_Ie(j,bi,bj),
./pkg/obcs/obcs_init_fixed.F 202 OBCS_INIT_FIXED 
           IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F 203 OBCS_INIT_FIXED 
     &          OBCS_insideMask(i+1,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 205 OBCS_INIT_FIXED 
     &          .AND. ksurfW(i+1,j,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F 206 OBCS_INIT_FIXED 
            IF ( OB_Iw(j,bi,bj).EQ.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 207 OBCS_INIT_FIXED 
              OB_Iw(j,bi,bj) = i
./pkg/obcs/obcs_init_fixed.F 209 OBCS_INIT_FIXED 
     &        ' Sets OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 211 OBCS_INIT_FIXED 
            ELSEIF ( OB_Iw(j,bi,bj).NE.i ) THEN
./pkg/obcs/obcs_init_fixed.F 215 OBCS_INIT_FIXED 
     &        ' OBW(j,bi,bj=',j,',',bi,',',bj,')=', OB_Iw(j,bi,bj),
./pkg/obcs/obcs_init_fixed.F 225 OBCS_INIT_FIXED 
           IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F 226 OBCS_INIT_FIXED 
     &          OBCS_insideMask(i,j-1,bi,bj)
./pkg/obcs/obcs_init_fixed.F 228 OBCS_INIT_FIXED 
     &          .AND. ksurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F 229 OBCS_INIT_FIXED 
            IF ( OB_Jn(i,bi,bj).EQ.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 230 OBCS_INIT_FIXED 
              OB_Jn(i,bi,bj) = j
./pkg/obcs/obcs_init_fixed.F 232 OBCS_INIT_FIXED 
     &        ' Sets OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 234 OBCS_INIT_FIXED 
            ELSEIF ( OB_Jn(i,bi,bj).NE.j ) THEN
./pkg/obcs/obcs_init_fixed.F 238 OBCS_INIT_FIXED 
     &        ' OBN(i,bi,bj=',i,',',bi,',',bj,')=', OB_Jn(i,bi,bj),
./pkg/obcs/obcs_init_fixed.F 248 OBCS_INIT_FIXED 
           IF ( OBCS_insideMask(i,j,bi,bj).LT.
./pkg/obcs/obcs_init_fixed.F 249 OBCS_INIT_FIXED 
     &          OBCS_insideMask(i,j+1,bi,bj)
./pkg/obcs/obcs_init_fixed.F 251 OBCS_INIT_FIXED 
     &          .AND. ksurfS(i,j+1,bi,bj).LE.Nr ) THEN
./pkg/obcs/obcs_init_fixed.F 252 OBCS_INIT_FIXED 
            IF ( OB_Js(i,bi,bj).EQ.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 253 OBCS_INIT_FIXED 
              OB_Js(i,bi,bj) = j
./pkg/obcs/obcs_init_fixed.F 255 OBCS_INIT_FIXED 
     &        ' Sets OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 257 OBCS_INIT_FIXED 
            ELSEIF ( OB_Js(i,bi,bj).NE.j ) THEN
./pkg/obcs/obcs_init_fixed.F 261 OBCS_INIT_FIXED 
     &        ' OBS(i,bi,bj=',i,',',bi,',',bj,')=', OB_Js(i,bi,bj),
./pkg/obcs/obcs_init_fixed.F 286 OBCS_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_fixed.F 293 OBCS_INIT_FIXED 
         iB = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 296 OBCS_INIT_FIXED 
             OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 299 OBCS_INIT_FIXED 
             maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 301 OBCS_INIT_FIXED 
           IF ( OB_Ie(jm,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 302 OBCS_INIT_FIXED 
            iB = MAX( iB, OB_Ie(jm,bi,bj) )
./pkg/obcs/obcs_init_fixed.F 304 OBCS_INIT_FIXED 
             maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 312 OBCS_INIT_FIXED 
         iB = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 315 OBCS_INIT_FIXED 
             OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 318 OBCS_INIT_FIXED 
             maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 320 OBCS_INIT_FIXED 
           IF ( OB_Iw(jm,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 321 OBCS_INIT_FIXED 
            iB = MIN( iB, OB_Iw(jm,bi,bj) )
./pkg/obcs/obcs_init_fixed.F 323 OBCS_INIT_FIXED 
             maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 331 OBCS_INIT_FIXED 
         jB = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 334 OBCS_INIT_FIXED 
             OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 337 OBCS_INIT_FIXED 
             maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 339 OBCS_INIT_FIXED 
           IF ( OB_Jn(im,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 340 OBCS_INIT_FIXED 
            jB = MAX( jB, OB_Jn(im,bi,bj) )
./pkg/obcs/obcs_init_fixed.F 342 OBCS_INIT_FIXED 
             maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 350 OBCS_INIT_FIXED 
         jB = OB_Js(i,bi,bj)
./pkg/obcs/obcs_init_fixed.F 353 OBCS_INIT_FIXED 
             OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 356 OBCS_INIT_FIXED 
             maskInS(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 358 OBCS_INIT_FIXED 
           IF ( OB_Js(im,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 359 OBCS_INIT_FIXED 
            jB = MIN( jB, OB_Js(im,bi,bj) )
./pkg/obcs/obcs_init_fixed.F 361 OBCS_INIT_FIXED 
             maskInW(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 370 OBCS_INIT_FIXED 
            maskInC(i,j,bi,bj) = maskInC(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 371 OBCS_INIT_FIXED 
     &                          *OBCS_insideMask(i,j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 382 OBCS_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_fixed.F 384 OBCS_INIT_FIXED 
         tileHasOBE(bi,bj) = .FALSE.
./pkg/obcs/obcs_init_fixed.F 385 OBCS_INIT_FIXED 
         tileHasOBW(bi,bj) = .FALSE.
./pkg/obcs/obcs_init_fixed.F 386 OBCS_INIT_FIXED 
         tileHasOBN(bi,bj) = .FALSE.
./pkg/obcs/obcs_init_fixed.F 387 OBCS_INIT_FIXED 
         tileHasOBS(bi,bj) = .FALSE.
./pkg/obcs/obcs_init_fixed.F 389 OBCS_INIT_FIXED 
          tileHasOBE(bi,bj) = tileHasOBE(bi,bj) .OR.
./pkg/obcs/obcs_init_fixed.F 390 OBCS_INIT_FIXED 
     &                      ( OB_Ie(j,bi,bj).NE.OB_indexNone )
./pkg/obcs/obcs_init_fixed.F 391 OBCS_INIT_FIXED 
          tileHasOBW(bi,bj) = tileHasOBW(bi,bj) .OR.
./pkg/obcs/obcs_init_fixed.F 392 OBCS_INIT_FIXED 
     &                      ( OB_Iw(j,bi,bj).NE.OB_indexNone )
./pkg/obcs/obcs_init_fixed.F 395 OBCS_INIT_FIXED 
          tileHasOBN(bi,bj) = tileHasOBN(bi,bj) .OR.
./pkg/obcs/obcs_init_fixed.F 396 OBCS_INIT_FIXED 
     &                      ( OB_Jn(i,bi,bj).NE.OB_indexNone )
./pkg/obcs/obcs_init_fixed.F 397 OBCS_INIT_FIXED 
          tileHasOBS(bi,bj) = tileHasOBS(bi,bj) .OR.
./pkg/obcs/obcs_init_fixed.F 398 OBCS_INIT_FIXED 
     &                      ( OB_Js(i,bi,bj).NE.OB_indexNone )
./pkg/obcs/obcs_init_fixed.F 45 OBCS_INIT_FIXED 
      INTEGER bi, bj
./pkg/obcs/obcs_init_fixed.F 58 OBCS_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_fixed.F 62 OBCS_INIT_FIXED 
           OBCS_insideMask(i,j,bi,bj) = 1.
./pkg/obcs/obcs_init_fixed.F 71 OBCS_INIT_FIXED 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_fixed.F 75 OBCS_INIT_FIXED 
          IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 77 OBCS_INIT_FIXED 
           DO i=OB_Ie(j,bi,bj),sNx
./pkg/obcs/obcs_init_fixed.F 79 OBCS_INIT_FIXED 
     &              kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Iw(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 80 OBCS_INIT_FIXED 
             IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 84 OBCS_INIT_FIXED 
          IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 86 OBCS_INIT_FIXED 
           DO i=OB_Iw(j,bi,bj),1,-1
./pkg/obcs/obcs_init_fixed.F 88 OBCS_INIT_FIXED 
     &              kSurfC(i,j,bi,bj).LE.Nr .AND. i.NE.OB_Ie(j,bi,bj)
./pkg/obcs/obcs_init_fixed.F 89 OBCS_INIT_FIXED 
             IF ( flag ) OBCS_insideMask(i,j,bi,bj) = 0.
./pkg/obcs/obcs_init_fixed.F 95 OBCS_INIT_FIXED 
          IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_init_fixed.F 97 OBCS_INIT_FIXED 
           DO j=OB_Jn(i,bi,bj),sNy
./pkg/obcs/obcs_init_fixed.F 99 OBCS_INIT_FIXED 
     &              kSurfC(i,j,bi,bj).LE.Nr .AND. j.NE.OB_Js(i,bi,bj)
./pkg/obcs/obcs_init_variables.F 100 OBCS_INIT_VARIABLES 
          OBSv1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 101 OBCS_INIT_VARIABLES 
          OBSt1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 102 OBCS_INIT_VARIABLES 
          OBSs1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 105 OBCS_INIT_VARIABLES 
          OBSvStevens(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 106 OBCS_INIT_VARIABLES 
          OBStStevens(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 107 OBCS_INIT_VARIABLES 
          OBSsStevens(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 114 OBCS_INIT_VARIABLES 
          OBEu(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 115 OBCS_INIT_VARIABLES 
          OBEv(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 116 OBCS_INIT_VARIABLES 
          OBEt(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 117 OBCS_INIT_VARIABLES 
          OBEs(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 119 OBCS_INIT_VARIABLES 
          OBEu0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 120 OBCS_INIT_VARIABLES 
          OBEv0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 121 OBCS_INIT_VARIABLES 
          OBEt0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 122 OBCS_INIT_VARIABLES 
          OBEs0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 123 OBCS_INIT_VARIABLES 
          OBEu1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 124 OBCS_INIT_VARIABLES 
          OBEv1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 125 OBCS_INIT_VARIABLES 
          OBEt1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 126 OBCS_INIT_VARIABLES 
          OBEs1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 129 OBCS_INIT_VARIABLES 
          OBEuStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 130 OBCS_INIT_VARIABLES 
          OBEtStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 131 OBCS_INIT_VARIABLES 
          OBEsStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 136 OBCS_INIT_VARIABLES 
          OBWu(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 137 OBCS_INIT_VARIABLES 
          OBWv(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 138 OBCS_INIT_VARIABLES 
          OBWt(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 139 OBCS_INIT_VARIABLES 
          OBWs(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 141 OBCS_INIT_VARIABLES 
          OBWu0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 142 OBCS_INIT_VARIABLES 
          OBWv0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 143 OBCS_INIT_VARIABLES 
          OBWt0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 144 OBCS_INIT_VARIABLES 
          OBWs0(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 145 OBCS_INIT_VARIABLES 
          OBWu1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 146 OBCS_INIT_VARIABLES 
          OBWv1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 147 OBCS_INIT_VARIABLES 
          OBWt1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 148 OBCS_INIT_VARIABLES 
          OBWs1(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 151 OBCS_INIT_VARIABLES 
          OBWuStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 152 OBCS_INIT_VARIABLES 
          OBWtStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 153 OBCS_INIT_VARIABLES 
          OBWsStevens(j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 162 OBCS_INIT_VARIABLES 
          OBNw (i,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 163 OBCS_INIT_VARIABLES 
          OBSw (i,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 165 OBCS_INIT_VARIABLES 
          OBNw0(i,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 166 OBCS_INIT_VARIABLES 
          OBSw0(i,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 167 OBCS_INIT_VARIABLES 
          OBNw1(i,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 168 OBCS_INIT_VARIABLES 
          OBSw1(i,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 172 OBCS_INIT_VARIABLES 
          OBEw (j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 173 OBCS_INIT_VARIABLES 
          OBWw (j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 175 OBCS_INIT_VARIABLES 
          OBEw0(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 176 OBCS_INIT_VARIABLES 
          OBWw0(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 177 OBCS_INIT_VARIABLES 
          OBEw1(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 178 OBCS_INIT_VARIABLES 
          OBWw1(j,k,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 186 OBCS_INIT_VARIABLES 
          OBNeta (i,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 187 OBCS_INIT_VARIABLES 
          OBSeta (i,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 189 OBCS_INIT_VARIABLES 
          OBNeta0(i,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 190 OBCS_INIT_VARIABLES 
          OBSeta0(i,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 191 OBCS_INIT_VARIABLES 
          OBNeta1(i,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 192 OBCS_INIT_VARIABLES 
          OBSeta1(i,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 196 OBCS_INIT_VARIABLES 
          OBEeta (j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 197 OBCS_INIT_VARIABLES 
          OBWeta (j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 199 OBCS_INIT_VARIABLES 
          OBEeta0(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 200 OBCS_INIT_VARIABLES 
          OBWeta0(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 201 OBCS_INIT_VARIABLES 
          OBEeta1(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 202 OBCS_INIT_VARIABLES 
          OBWeta1(j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 212 OBCS_INIT_VARIABLES 
         OBNa (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 213 OBCS_INIT_VARIABLES 
         OBNh (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 214 OBCS_INIT_VARIABLES 
         OBNa0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 215 OBCS_INIT_VARIABLES 
         OBNh0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 216 OBCS_INIT_VARIABLES 
         OBNa1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 217 OBCS_INIT_VARIABLES 
         OBNh1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 218 OBCS_INIT_VARIABLES 
         OBNsl (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 219 OBCS_INIT_VARIABLES 
         OBNsn (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 220 OBCS_INIT_VARIABLES 
         OBNsl0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 221 OBCS_INIT_VARIABLES 
         OBNsn0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 222 OBCS_INIT_VARIABLES 
         OBNsl1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 223 OBCS_INIT_VARIABLES 
         OBNsn1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 224 OBCS_INIT_VARIABLES 
         OBNuice (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 225 OBCS_INIT_VARIABLES 
         OBNvice (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 226 OBCS_INIT_VARIABLES 
         OBNuice0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 227 OBCS_INIT_VARIABLES 
         OBNvice0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 228 OBCS_INIT_VARIABLES 
         OBNuice1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 229 OBCS_INIT_VARIABLES 
         OBNvice1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 232 OBCS_INIT_VARIABLES 
         OBSa (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 233 OBCS_INIT_VARIABLES 
         OBSh (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 234 OBCS_INIT_VARIABLES 
         OBSa0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 235 OBCS_INIT_VARIABLES 
         OBSh0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 236 OBCS_INIT_VARIABLES 
         OBSa1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 237 OBCS_INIT_VARIABLES 
         OBSh1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 238 OBCS_INIT_VARIABLES 
         OBSsl (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 239 OBCS_INIT_VARIABLES 
         OBSsn (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 240 OBCS_INIT_VARIABLES 
         OBSsl0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 241 OBCS_INIT_VARIABLES 
         OBSsn0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 242 OBCS_INIT_VARIABLES 
         OBSsl1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 243 OBCS_INIT_VARIABLES 
         OBSsn1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 244 OBCS_INIT_VARIABLES 
         OBSuice (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 245 OBCS_INIT_VARIABLES 
         OBSvice (i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 246 OBCS_INIT_VARIABLES 
         OBSuice0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 247 OBCS_INIT_VARIABLES 
         OBSvice0(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 248 OBCS_INIT_VARIABLES 
         OBSuice1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 249 OBCS_INIT_VARIABLES 
         OBSvice1(i,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 254 OBCS_INIT_VARIABLES 
         OBEa (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 255 OBCS_INIT_VARIABLES 
         OBEh (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 256 OBCS_INIT_VARIABLES 
         OBEa0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 257 OBCS_INIT_VARIABLES 
         OBEh0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 258 OBCS_INIT_VARIABLES 
         OBEa1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 259 OBCS_INIT_VARIABLES 
         OBEh1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 260 OBCS_INIT_VARIABLES 
         OBEsl (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 261 OBCS_INIT_VARIABLES 
         OBEsn (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 262 OBCS_INIT_VARIABLES 
         OBEsl0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 263 OBCS_INIT_VARIABLES 
         OBEsn0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 264 OBCS_INIT_VARIABLES 
         OBEsl1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 265 OBCS_INIT_VARIABLES 
         OBEsn1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 266 OBCS_INIT_VARIABLES 
         OBEuice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 267 OBCS_INIT_VARIABLES 
         OBEvice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 268 OBCS_INIT_VARIABLES 
         OBEuice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 269 OBCS_INIT_VARIABLES 
         OBEvice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 270 OBCS_INIT_VARIABLES 
         OBEuice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 271 OBCS_INIT_VARIABLES 
         OBEvice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 274 OBCS_INIT_VARIABLES 
         OBWa (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 275 OBCS_INIT_VARIABLES 
         OBWh (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 276 OBCS_INIT_VARIABLES 
         OBWa0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 277 OBCS_INIT_VARIABLES 
         OBWh0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 278 OBCS_INIT_VARIABLES 
         OBWa1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 279 OBCS_INIT_VARIABLES 
         OBWh1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 280 OBCS_INIT_VARIABLES 
         OBWsl (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 281 OBCS_INIT_VARIABLES 
         OBWsn (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 282 OBCS_INIT_VARIABLES 
         OBWsl0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 283 OBCS_INIT_VARIABLES 
         OBWsn0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 284 OBCS_INIT_VARIABLES 
         OBWsl1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 285 OBCS_INIT_VARIABLES 
         OBWsn1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 286 OBCS_INIT_VARIABLES 
         OBWuice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 287 OBCS_INIT_VARIABLES 
         OBWvice (j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 288 OBCS_INIT_VARIABLES 
         OBWuice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 289 OBCS_INIT_VARIABLES 
         OBWvice0(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 290 OBCS_INIT_VARIABLES 
         OBWuice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 291 OBCS_INIT_VARIABLES 
         OBWvice1(j,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 304 OBCS_INIT_VARIABLES 
            OBNptr (i,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 306 OBCS_INIT_VARIABLES 
            OBNptr0(i,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 307 OBCS_INIT_VARIABLES 
            OBNptr1(i,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 312 OBCS_INIT_VARIABLES 
            OBSptr (i,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 314 OBCS_INIT_VARIABLES 
            OBSptr0(i,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 315 OBCS_INIT_VARIABLES 
            OBSptr1(i,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 322 OBCS_INIT_VARIABLES 
            OBEptr (j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 324 OBCS_INIT_VARIABLES 
            OBEptr0(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 325 OBCS_INIT_VARIABLES 
            OBEptr1(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 330 OBCS_INIT_VARIABLES 
            OBWptr (j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 332 OBCS_INIT_VARIABLES 
            OBWptr0(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 333 OBCS_INIT_VARIABLES 
            OBWptr1(j,k,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 352 OBCS_INIT_VARIABLES 
          CALL ORLANSKI_INIT(bi, bj, myThid)
./pkg/obcs/obcs_init_variables.F 360 OBCS_INIT_VARIABLES 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_variables.F 365 OBCS_INIT_VARIABLES 
          OBNam (i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 366 OBCS_INIT_VARIABLES 
          OBNph (i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 369 OBCS_INIT_VARIABLES 
          OBSam (i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 370 OBCS_INIT_VARIABLES 
          OBSph (i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 375 OBCS_INIT_VARIABLES 
          OBEam (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 376 OBCS_INIT_VARIABLES 
          OBEph (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 379 OBCS_INIT_VARIABLES 
          OBWam (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 380 OBCS_INIT_VARIABLES 
          OBWph (j,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 435 OBCS_INIT_VARIABLES 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_variables.F 437 OBCS_INIT_VARIABLES 
          CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid )
./pkg/obcs/obcs_init_variables.F 438 OBCS_INIT_VARIABLES 
          CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid )
./pkg/obcs/obcs_init_variables.F 46 OBCS_INIT_VARIABLES 
      INTEGER bi, bj
./pkg/obcs/obcs_init_variables.F 479 OBCS_INIT_VARIABLES 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_variables.F 482 OBCS_INIT_VARIABLES 
     I           bi, bj, 0, iTracer,
./pkg/obcs/obcs_init_variables.F 483 OBCS_INIT_VARIABLES 
     U           ptracer(1-Olx,1-Oly,1,bi,bj,iTracer),
./pkg/obcs/obcs_init_variables.F 59 OBCS_INIT_VARIABLES 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/obcs/obcs_init_variables.F 63 OBCS_INIT_VARIABLES 
        OBCS_ldRec(bi,bj) = 0
./pkg/obcs/obcs_init_variables.F 68 OBCS_INIT_VARIABLES 
          OBNu(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 69 OBCS_INIT_VARIABLES 
          OBNv(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 70 OBCS_INIT_VARIABLES 
          OBNt(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 71 OBCS_INIT_VARIABLES 
          OBNs(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 73 OBCS_INIT_VARIABLES 
          OBNu0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 74 OBCS_INIT_VARIABLES 
          OBNv0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 75 OBCS_INIT_VARIABLES 
          OBNt0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 76 OBCS_INIT_VARIABLES 
          OBNs0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 77 OBCS_INIT_VARIABLES 
          OBNu1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 78 OBCS_INIT_VARIABLES 
          OBNv1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 79 OBCS_INIT_VARIABLES 
          OBNt1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 80 OBCS_INIT_VARIABLES 
          OBNs1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 83 OBCS_INIT_VARIABLES 
          OBNvStevens(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 84 OBCS_INIT_VARIABLES 
          OBNtStevens(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 85 OBCS_INIT_VARIABLES 
          OBNsStevens(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 90 OBCS_INIT_VARIABLES 
          OBSu(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 91 OBCS_INIT_VARIABLES 
          OBSv(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 92 OBCS_INIT_VARIABLES 
          OBSt(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 93 OBCS_INIT_VARIABLES 
          OBSs(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 95 OBCS_INIT_VARIABLES 
          OBSu0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 96 OBCS_INIT_VARIABLES 
          OBSv0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 97 OBCS_INIT_VARIABLES 
          OBSt0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 98 OBCS_INIT_VARIABLES 
          OBSs0(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 99 OBCS_INIT_VARIABLES 
          OBSu1(i,k,bi,bj)=0. _d 0
./pkg/obcs/obcs_mon_stats.F 103 OBCS_MON_STATS_EW_RL 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_mon_stats.F 105 OBCS_MON_STATS_EW_RL 
          tileArea(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 106 OBCS_MON_STATS_EW_RL 
          tileMean(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 107 OBCS_MON_STATS_EW_RL 
          tileVar (bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 108 OBCS_MON_STATS_EW_RL 
          IF ( tHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_mon_stats.F 113 OBCS_MON_STATS_EW_RL 
             ii = iEb(j,bi,bj)
./pkg/obcs/obcs_mon_stats.F 118 OBCS_MON_STATS_EW_RL 
              tmpMask = arrhFac(iB,j,km,bi,bj)
./pkg/obcs/obcs_mon_stats.F 119 OBCS_MON_STATS_EW_RL 
     &                *( mskInC(ii-1,j,bi,bj)-mskInC(ii,j,bi,bj) )
./pkg/obcs/obcs_mon_stats.F 122 OBCS_MON_STATS_EW_RL 
              tmpV = arr(ii,j,k,bi,bj)
./pkg/obcs/obcs_mon_stats.F 123 OBCS_MON_STATS_EW_RL 
              tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask
./pkg/obcs/obcs_mon_stats.F 131 OBCS_MON_STATS_EW_RL 
              tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_mon_stats.F 132 OBCS_MON_STATS_EW_RL 
              tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV
./pkg/obcs/obcs_mon_stats.F 133 OBCS_MON_STATS_EW_RL 
              tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV
./pkg/obcs/obcs_mon_stats.F 175 OBCS_MON_STATS_EW_RL 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_mon_stats.F 177 OBCS_MON_STATS_EW_RL 
          tileArea(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 178 OBCS_MON_STATS_EW_RL 
          tileMean(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 179 OBCS_MON_STATS_EW_RL 
          tileVar (bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 180 OBCS_MON_STATS_EW_RL 
          IF ( tHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_mon_stats.F 185 OBCS_MON_STATS_EW_RL 
             ii = iWb(j,bi,bj)
./pkg/obcs/obcs_mon_stats.F 190 OBCS_MON_STATS_EW_RL 
              tmpMask = arrhFac(iB,j,km,bi,bj)
./pkg/obcs/obcs_mon_stats.F 191 OBCS_MON_STATS_EW_RL 
     &                *( mskInC(ii+1,j,bi,bj)-mskInC(ii,j,bi,bj) )
./pkg/obcs/obcs_mon_stats.F 195 OBCS_MON_STATS_EW_RL 
              tmpV = arr(ii,j,k,bi,bj)
./pkg/obcs/obcs_mon_stats.F 196 OBCS_MON_STATS_EW_RL 
              tmpA = arrDy(iB,j,bi,bj)*arrDr(k)*tmpMask
./pkg/obcs/obcs_mon_stats.F 204 OBCS_MON_STATS_EW_RL 
              tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_mon_stats.F 205 OBCS_MON_STATS_EW_RL 
              tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV
./pkg/obcs/obcs_mon_stats.F 206 OBCS_MON_STATS_EW_RL 
              tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV
./pkg/obcs/obcs_mon_stats.F 312 OBCS_MON_STATS_NS_RL 
      INTEGER bi, bj
./pkg/obcs/obcs_mon_stats.F 335 OBCS_MON_STATS_NS_RL 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_mon_stats.F 337 OBCS_MON_STATS_NS_RL 
          tileArea(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 338 OBCS_MON_STATS_NS_RL 
          tileMean(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 339 OBCS_MON_STATS_NS_RL 
          tileVar (bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 340 OBCS_MON_STATS_NS_RL 
          IF ( tHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_mon_stats.F 345 OBCS_MON_STATS_NS_RL 
             jj = jNb(i,bi,bj)
./pkg/obcs/obcs_mon_stats.F 350 OBCS_MON_STATS_NS_RL 
              tmpMask = arrhFac(i,jB,km,bi,bj)
./pkg/obcs/obcs_mon_stats.F 351 OBCS_MON_STATS_NS_RL 
     &                *( mskInC(i,jj-1,bi,bj)-mskInC(i,jj,bi,bj) )
./pkg/obcs/obcs_mon_stats.F 354 OBCS_MON_STATS_NS_RL 
              tmpV = arr(i,jj,k,bi,bj)
./pkg/obcs/obcs_mon_stats.F 355 OBCS_MON_STATS_NS_RL 
              tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask
./pkg/obcs/obcs_mon_stats.F 363 OBCS_MON_STATS_NS_RL 
              tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_mon_stats.F 364 OBCS_MON_STATS_NS_RL 
              tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV
./pkg/obcs/obcs_mon_stats.F 365 OBCS_MON_STATS_NS_RL 
              tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV
./pkg/obcs/obcs_mon_stats.F 407 OBCS_MON_STATS_NS_RL 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_mon_stats.F 409 OBCS_MON_STATS_NS_RL 
          tileArea(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 410 OBCS_MON_STATS_NS_RL 
          tileMean(bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 411 OBCS_MON_STATS_NS_RL 
          tileVar (bi,bj) = 0.
./pkg/obcs/obcs_mon_stats.F 412 OBCS_MON_STATS_NS_RL 
          IF ( tHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_mon_stats.F 417 OBCS_MON_STATS_NS_RL 
             jj = jSb(i,bi,bj)
./pkg/obcs/obcs_mon_stats.F 422 OBCS_MON_STATS_NS_RL 
              tmpMask = arrhFac(i,jB,km,bi,bj)
./pkg/obcs/obcs_mon_stats.F 423 OBCS_MON_STATS_NS_RL 
     &                *( mskInC(i,jj+1,bi,bj)-mskInC(i,jj,bi,bj) )
./pkg/obcs/obcs_mon_stats.F 427 OBCS_MON_STATS_NS_RL 
              tmpV = arr(i,jj,k,bi,bj)
./pkg/obcs/obcs_mon_stats.F 428 OBCS_MON_STATS_NS_RL 
              tmpA = arrDx(i,jB,bi,bj)*arrDr(k)*tmpMask
./pkg/obcs/obcs_mon_stats.F 436 OBCS_MON_STATS_NS_RL 
              tileArea(bi,bj) = tileArea(bi,bj) + tmpA
./pkg/obcs/obcs_mon_stats.F 437 OBCS_MON_STATS_NS_RL 
              tileMean(bi,bj) = tileMean(bi,bj) + tmpA*tmpV
./pkg/obcs/obcs_mon_stats.F 438 OBCS_MON_STATS_NS_RL 
              tileVar (bi,bj) = tileVar (bi,bj) + tmpA*tmpV*tmpV
./pkg/obcs/obcs_mon_stats.F 80 OBCS_MON_STATS_EW_RL 
      INTEGER bi, bj
./pkg/obcs/obcs_readparms.F 463 OBCS_READPARMS 
      DO bj = 1, nSy
./pkg/obcs/obcs_readparms.F 467 OBCS_READPARMS 
         OB_Jn(i,bi,bj) = OB_indexNone
./pkg/obcs/obcs_readparms.F 468 OBCS_READPARMS 
         OB_Js(i,bi,bj) = OB_indexNone
./pkg/obcs/obcs_readparms.F 472 OBCS_READPARMS 
         OB_Ie(j,bi,bj) = OB_indexNone
./pkg/obcs/obcs_readparms.F 473 OBCS_READPARMS 
         OB_Iw(J,bi,bj) = OB_indexNone
./pkg/obcs/obcs_readparms.F 479 OBCS_READPARMS 
        tN = W2_myTileList(bi,bj)
./pkg/obcs/obcs_readparms.F 490 OBCS_READPARMS 
           IF ( jG.EQ.OB_Jnorth(iG) ) OB_Jn(i,bi,bj) = j
./pkg/obcs/obcs_readparms.F 497 OBCS_READPARMS 
           IF ( jG.EQ.OB_Jsouth(iG) ) OB_Js(i,bi,bj) = j
./pkg/obcs/obcs_readparms.F 511 OBCS_READPARMS 
           IF ( iG.EQ.OB_Ieast(jG) )  OB_Ie(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F 518 OBCS_READPARMS 
           IF ( iG.EQ.OB_Iwest(jG) )  OB_Iw(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F 530 OBCS_READPARMS 
         jG = myYGlobalLo+(bj-1)*sNy+j-1
./pkg/obcs/obcs_readparms.F 542 OBCS_READPARMS 
           IF ( iG.EQ.OB_Ieast(jGm) )  OB_Ie(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F 54 OBCS_READPARMS 
      INTEGER bi, bj, iG, jG, iGm, jGm
./pkg/obcs/obcs_readparms.F 550 OBCS_READPARMS 
           IF ( iG.EQ.OB_Iwest(jGm) )  OB_Iw(j,bi,bj) = i
./pkg/obcs/obcs_readparms.F 562 OBCS_READPARMS 
           jG = myYGlobalLo+(bj-1)*sNy+j-1
./pkg/obcs/obcs_readparms.F 564 OBCS_READPARMS 
           IF ( jG.EQ.OB_Jnorth(iGm) ) OB_Jn(i,bi,bj) = j
./pkg/obcs/obcs_readparms.F 570 OBCS_READPARMS 
           jG = myYGlobalLo+(bj-1)*sNy+j-1
./pkg/obcs/obcs_readparms.F 572 OBCS_READPARMS 
           IF ( jG.EQ.OB_Jsouth(iGm) ) OB_Js(i,bi,bj) = j
./pkg/obcs/obcs_save_uv_n.F 102 OBCS_SAVE_UV_N 
          OBEuStevens(j,k,bi,bj) = uFld(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 103 OBCS_SAVE_UV_N 
     &         *_maskW(Iobc,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 110 OBCS_SAVE_UV_N 
      IF ( tileHasOBW(bi,bj) .AND. useStevensWest ) THEN
./pkg/obcs/obcs_save_uv_n.F 113 OBCS_SAVE_UV_N 
        Iobc = OB_Iw(j,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 116 OBCS_SAVE_UV_N 
          OBWuStevens(j,k,bi,bj) = uFld(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 117 OBCS_SAVE_UV_N 
     &         *_maskW(Iobc+1,j,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 40 OBCS_SAVE_UV_N 
      INTEGER bi, bj
./pkg/obcs/obcs_save_uv_n.F 67 OBCS_SAVE_UV_N 
      IF ( tileHasOBN(bi,bj) .AND. useStevensNorth ) THEN
./pkg/obcs/obcs_save_uv_n.F 70 OBCS_SAVE_UV_N 
        Jobc = OB_Jn(i,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 73 OBCS_SAVE_UV_N 
          OBNvStevens(i,k,bi,bj) = vFld(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 74 OBCS_SAVE_UV_N 
     &         *_maskS(i,Jobc,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 81 OBCS_SAVE_UV_N 
      IF ( tileHasOBS(bi,bj) .AND. useStevensSouth ) THEN
./pkg/obcs/obcs_save_uv_n.F 84 OBCS_SAVE_UV_N 
        Jobc = OB_Js(i,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 87 OBCS_SAVE_UV_N 
          OBSvStevens(i,k,bi,bj) = vFld(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 88 OBCS_SAVE_UV_N 
     &         *_maskS(i,Jobc+1,k,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 96 OBCS_SAVE_UV_N 
      IF ( tileHasOBE(bi,bj) .AND. useStevensEast ) THEN
./pkg/obcs/obcs_save_uv_n.F 99 OBCS_SAVE_UV_N 
        Iobc = OB_Ie(j,bi,bj)
./pkg/obcs/obcs_save_uv_n.F 9 OBCS_SAVE_UV_N 
      SUBROUTINE OBCS_SAVE_UV_N(  bi, bj, iMin, iMax, jMin, jMax, kArg,
./pkg/obcs/obcs_seaice_sponge.F 109 OBCS_SEAICE_SPONGE_A 
         IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 111 OBCS_SEAICE_SPONGE_A 
           IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 113 OBCS_SEAICE_SPONGE_A 
             i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F 124 OBCS_SEAICE_SPONGE_A 
              AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 125 OBCS_SEAICE_SPONGE_A 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 126 OBCS_SEAICE_SPONGE_A 
     &           * ( AREA(i,j,bi,bj) - OBEa(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 136 OBCS_SEAICE_SPONGE_A 
         IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 138 OBCS_SEAICE_SPONGE_A 
           IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 140 OBCS_SEAICE_SPONGE_A 
             i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F 151 OBCS_SEAICE_SPONGE_A 
              AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 152 OBCS_SEAICE_SPONGE_A 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 153 OBCS_SEAICE_SPONGE_A 
     &           * ( AREA(i,j,bi,bj) - OBWa(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 203 OBCS_SEAICE_SPONGE_H 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 207 OBCS_SEAICE_SPONGE_H 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_seaice_sponge.F 212 OBCS_SEAICE_SPONGE_H 
         IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 214 OBCS_SEAICE_SPONGE_H 
           IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 216 OBCS_SEAICE_SPONGE_H 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 227 OBCS_SEAICE_SPONGE_H 
              HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 228 OBCS_SEAICE_SPONGE_H 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 229 OBCS_SEAICE_SPONGE_H 
     &           * ( HEFF(i,j,bi,bj) - OBNh(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 239 OBCS_SEAICE_SPONGE_H 
         IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 241 OBCS_SEAICE_SPONGE_H 
           IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 243 OBCS_SEAICE_SPONGE_H 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 254 OBCS_SEAICE_SPONGE_H 
              HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 255 OBCS_SEAICE_SPONGE_H 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 256 OBCS_SEAICE_SPONGE_H 
     &           * ( HEFF(i,j,bi,bj) - OBSh(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 266 OBCS_SEAICE_SPONGE_H 
         IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 268 OBCS_SEAICE_SPONGE_H 
           IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 270 OBCS_SEAICE_SPONGE_H 
             i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F 281 OBCS_SEAICE_SPONGE_H 
              HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 282 OBCS_SEAICE_SPONGE_H 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 283 OBCS_SEAICE_SPONGE_H 
     &           * ( HEFF(i,j,bi,bj) - OBEh(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 293 OBCS_SEAICE_SPONGE_H 
         IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 295 OBCS_SEAICE_SPONGE_H 
           IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 297 OBCS_SEAICE_SPONGE_H 
             i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F 308 OBCS_SEAICE_SPONGE_H 
              HEFF(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 309 OBCS_SEAICE_SPONGE_H 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 310 OBCS_SEAICE_SPONGE_H 
     &           * ( HEFF(i,j,bi,bj) - OBWh(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 360 OBCS_SEAICE_SPONGE_SL 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 364 OBCS_SEAICE_SPONGE_SL 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_seaice_sponge.F 369 OBCS_SEAICE_SPONGE_SL 
         IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 371 OBCS_SEAICE_SPONGE_SL 
           IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 373 OBCS_SEAICE_SPONGE_SL 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 384 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 385 OBCS_SEAICE_SPONGE_SL 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 386 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBNsl(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 396 OBCS_SEAICE_SPONGE_SL 
         IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 398 OBCS_SEAICE_SPONGE_SL 
           IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 400 OBCS_SEAICE_SPONGE_SL 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 411 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 412 OBCS_SEAICE_SPONGE_SL 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 413 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBSsl(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 423 OBCS_SEAICE_SPONGE_SL 
         IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 425 OBCS_SEAICE_SPONGE_SL 
           IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 427 OBCS_SEAICE_SPONGE_SL 
             i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F 438 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 439 OBCS_SEAICE_SPONGE_SL 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 440 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBEsl(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 450 OBCS_SEAICE_SPONGE_SL 
         IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 452 OBCS_SEAICE_SPONGE_SL 
           IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 454 OBCS_SEAICE_SPONGE_SL 
             i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F 465 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 466 OBCS_SEAICE_SPONGE_SL 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 467 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBWsl(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 46 OBCS_SEAICE_SPONGE_A 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 50 OBCS_SEAICE_SPONGE_A 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_seaice_sponge.F 517 OBCS_SEAICE_SPONGE_SN 
      INTEGER bi, bj, i, j, isl, jsl
./pkg/obcs/obcs_seaice_sponge.F 521 OBCS_SEAICE_SPONGE_SN 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/obcs/obcs_seaice_sponge.F 526 OBCS_SEAICE_SPONGE_SN 
         IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 528 OBCS_SEAICE_SPONGE_SN 
           IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 530 OBCS_SEAICE_SPONGE_SN 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 541 OBCS_SEAICE_SPONGE_SN 
              HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 542 OBCS_SEAICE_SPONGE_SN 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 543 OBCS_SEAICE_SPONGE_SN 
     &           * ( HSNOW(i,j,bi,bj) - OBNsn(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 553 OBCS_SEAICE_SPONGE_SN 
         IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 555 OBCS_SEAICE_SPONGE_SN 
           IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 557 OBCS_SEAICE_SPONGE_SN 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 55 OBCS_SEAICE_SPONGE_A 
         IF ( tileHasOBN(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 568 OBCS_SEAICE_SPONGE_SN 
              HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 569 OBCS_SEAICE_SPONGE_SN 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 570 OBCS_SEAICE_SPONGE_SN 
     &           * ( HSNOW(i,j,bi,bj) - OBSsn(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 57 OBCS_SEAICE_SPONGE_A 
           IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 580 OBCS_SEAICE_SPONGE_SN 
         IF ( tileHasOBE(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 582 OBCS_SEAICE_SPONGE_SN 
           IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 584 OBCS_SEAICE_SPONGE_SN 
             i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_seaice_sponge.F 595 OBCS_SEAICE_SPONGE_SN 
              HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 596 OBCS_SEAICE_SPONGE_SN 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 597 OBCS_SEAICE_SPONGE_SN 
     &           * ( HSNOW(i,j,bi,bj) - OBEsn(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 59 OBCS_SEAICE_SPONGE_A 
             j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_seaice_sponge.F 607 OBCS_SEAICE_SPONGE_SN 
         IF ( tileHasOBW(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 609 OBCS_SEAICE_SPONGE_SN 
           IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 611 OBCS_SEAICE_SPONGE_SN 
             i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_seaice_sponge.F 622 OBCS_SEAICE_SPONGE_SN 
              HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 623 OBCS_SEAICE_SPONGE_SN 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 624 OBCS_SEAICE_SPONGE_SN 
     &           * ( HSNOW(i,j,bi,bj) - OBWsn(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 70 OBCS_SEAICE_SPONGE_A 
              AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 71 OBCS_SEAICE_SPONGE_A 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 72 OBCS_SEAICE_SPONGE_A 
     &           * ( AREA(i,j,bi,bj) - OBNa(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 82 OBCS_SEAICE_SPONGE_A 
         IF ( tileHasOBS(bi,bj) ) THEN
./pkg/obcs/obcs_seaice_sponge.F 84 OBCS_SEAICE_SPONGE_A 
           IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_seaice_sponge.F 86 OBCS_SEAICE_SPONGE_A 
             j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_seaice_sponge.F 97 OBCS_SEAICE_SPONGE_A 
              AREA(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 98 OBCS_SEAICE_SPONGE_A 
     &           - maskC(i,j,1,bi,bj) * lambda_obcs
./pkg/obcs/obcs_seaice_sponge.F 99 OBCS_SEAICE_SPONGE_A 
     &           * ( AREA(i,j,bi,bj) - OBSa(i,bi,bj) )
./model/src/convective_adjustment_ini.F 102 CONVECTIVE_ADJUSTMENT_INI 
          act2 = bj - myByLo(myThid)
./model/src/convective_adjustment_ini.F 14 CONVECTIVE_ADJUSTMENT_INI 
     I                      bi, bj, myTime, myIter, myThid )
./model/src/convective_adjustment_ini.F 150 CONVECTIVE_ADJUSTMENT_INI 
     I           theta(1-OLx,1-OLy,K-1,bi,bj),
./model/src/convective_adjustment_ini.F 151 CONVECTIVE_ADJUSTMENT_INI 
     I           salt (1-OLx,1-OLy,K-1,bi,bj),
./model/src/convective_adjustment_ini.F 153 CONVECTIVE_ADJUSTMENT_INI 
     I           K-1, bi, bj, myThid )
./model/src/convective_adjustment_ini.F 164 CONVECTIVE_ADJUSTMENT_INI 
     I           theta(1-OLx,1-OLy,K,bi,bj),
./model/src/convective_adjustment_ini.F 165 CONVECTIVE_ADJUSTMENT_INI 
     I           salt (1-OLx,1-OLy,K,bi,bj),
./model/src/convective_adjustment_ini.F 167 CONVECTIVE_ADJUSTMENT_INI 
     I           K, bi, bj, myThid )
./model/src/convective_adjustment_ini.F 181 CONVECTIVE_ADJUSTMENT_INI 
     I           bi,bj,K,rhoKm1,rhoK,
./model/src/convective_adjustment_ini.F 187 CONVECTIVE_ADJUSTMENT_INI 
     I                              bi,bj,k,weightA,weightB,
./model/src/convective_adjustment_ini.F 193 CONVECTIVE_ADJUSTMENT_INI 
     I                              bi,bj,k,weightA,weightB,
./model/src/convective_adjustment_ini.F 201 CONVECTIVE_ADJUSTMENT_INI 
     I                              bi,bj,k,weightA,weightB,myThid)
./model/src/convective_adjustment_ini.F 48 CONVECTIVE_ADJUSTMENT_INI 
      INTEGER bi,bj
./pkg/obcs/obcs_sponge.F 103 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBSu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 104 OBCS_SPONGE_U 
     &    + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 119 OBCS_SPONGE_U 
     &   - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 120 OBCS_SPONGE_U 
     &   * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 131 OBCS_SPONGE_U 
       IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 133 OBCS_SPONGE_U 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 137 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBEu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 138 OBCS_SPONGE_U 
     &    + float(isl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 153 OBCS_SPONGE_U 
     &    - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 154 OBCS_SPONGE_U 
     &    * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 165 OBCS_SPONGE_U 
       IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 167 OBCS_SPONGE_U 
         i=OB_Iw(j,bi,bj)+isl+1
./pkg/obcs/obcs_sponge.F 171 OBCS_SPONGE_U 
     &      float(spongeThickness-isl)*OBWu(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 172 OBCS_SPONGE_U 
     &    + float(isl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 187 OBCS_SPONGE_U 
     &    - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 188 OBCS_SPONGE_U 
     &    * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 18 OBCS_SPONGE_U 
     I                iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/obcs/obcs_sponge.F 208 OBCS_SPONGE_V 
     I                iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/obcs/obcs_sponge.F 236 OBCS_SPONGE_V 
      INTEGER k, bi, bj
./pkg/obcs/obcs_sponge.F 253 OBCS_SPONGE_V 
       IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 255 OBCS_SPONGE_V 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 259 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBNv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 260 OBCS_SPONGE_V 
     &    + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 275 OBCS_SPONGE_V 
     &    - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 276 OBCS_SPONGE_V 
     &    * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 287 OBCS_SPONGE_V 
       IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 289 OBCS_SPONGE_V 
         j=OB_Js(i,bi,bj)+jsl+1
./pkg/obcs/obcs_sponge.F 293 OBCS_SPONGE_V 
     &      float(spongeThickness-jsl)*OBSv(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 294 OBCS_SPONGE_V 
     &    + float(jsl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 309 OBCS_SPONGE_V 
     &    - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 310 OBCS_SPONGE_V 
     &    * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 321 OBCS_SPONGE_V 
       IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 323 OBCS_SPONGE_V 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 327 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBEv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 328 OBCS_SPONGE_V 
     &    + float(isl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 343 OBCS_SPONGE_V 
     &    - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 344 OBCS_SPONGE_V 
     &    * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 355 OBCS_SPONGE_V 
       IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 357 OBCS_SPONGE_V 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 362 OBCS_SPONGE_V 
     &      float(spongeThickness-isl)*OBWv(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 363 OBCS_SPONGE_V 
     &    + float(isl)*vVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 378 OBCS_SPONGE_V 
     &   - _maskS(i,j,k,bi,bj) * lambda_obcs_v
./pkg/obcs/obcs_sponge.F 379 OBCS_SPONGE_V 
     &   * ( vVel(i,j,k,bi,bj) - vrelax )
./pkg/obcs/obcs_sponge.F 399 OBCS_SPONGE_T 
     I                iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/obcs/obcs_sponge.F 431 OBCS_SPONGE_T 
      INTEGER k, bi, bj
./pkg/obcs/obcs_sponge.F 448 OBCS_SPONGE_T 
          act2 = bj - myByLo(myThid)
./pkg/obcs/obcs_sponge.F 467 OBCS_SPONGE_T 
       IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 469 OBCS_SPONGE_T 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 46 OBCS_SPONGE_U 
      INTEGER k, bi, bj
./pkg/obcs/obcs_sponge.F 472 OBCS_SPONGE_T 
           IF  (OBNt(i,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 474 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBNt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 475 OBCS_SPONGE_T 
     &    + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 489 OBCS_SPONGE_T 
     &    -  maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 490 OBCS_SPONGE_T 
     &    * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 507 OBCS_SPONGE_T 
       IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 509 OBCS_SPONGE_T 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 512 OBCS_SPONGE_T 
           IF  (OBSt(i,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 514 OBCS_SPONGE_T 
     &      float(spongeThickness-jsl)*OBSt(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 515 OBCS_SPONGE_T 
     &    + float(jsl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 530 OBCS_SPONGE_T 
     &   - maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 531 OBCS_SPONGE_T 
     &   * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 548 OBCS_SPONGE_T 
       IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 550 OBCS_SPONGE_T 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 553 OBCS_SPONGE_T 
           IF  (OBEt(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 555 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBEt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 556 OBCS_SPONGE_T 
     &    + float(isl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 571 OBCS_SPONGE_T 
     &    - maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 572 OBCS_SPONGE_T 
     &    * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 589 OBCS_SPONGE_T 
       IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 593 OBCS_SPONGE_T 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 596 OBCS_SPONGE_T 
           IF  (OBWt(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 598 OBCS_SPONGE_T 
     &      float(spongeThickness-isl)*OBWt(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 599 OBCS_SPONGE_T 
     &    + float(isl)*theta(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 614 OBCS_SPONGE_T 
     &    - maskC(i,j,k,bi,bj) * lambda_obcs_t
./pkg/obcs/obcs_sponge.F 615 OBCS_SPONGE_T 
     &    * ( theta(i,j,k,bi,bj) - trelax )
./pkg/obcs/obcs_sponge.F 636 OBCS_SPONGE_S 
     I                iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/obcs/obcs_sponge.F 63 OBCS_SPONGE_U 
       IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 65 OBCS_SPONGE_U 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 668 OBCS_SPONGE_S 
      INTEGER k, bi, bj
./pkg/obcs/obcs_sponge.F 685 OBCS_SPONGE_S 
          act2 = bj - myByLo(myThid)
./pkg/obcs/obcs_sponge.F 69 OBCS_SPONGE_U 
     &      float(spongeThickness-jsl)*OBNu(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 704 OBCS_SPONGE_S 
       IF ( OB_Jn(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 706 OBCS_SPONGE_S 
         j=OB_Jn(i,bi,bj)-jsl
./pkg/obcs/obcs_sponge.F 709 OBCS_SPONGE_S 
           IF  (OBNs(i,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 70 OBCS_SPONGE_U 
     &    + float(jsl)*uVel(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 711 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBNs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 712 OBCS_SPONGE_S 
     &    + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 727 OBCS_SPONGE_S 
     &    - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 728 OBCS_SPONGE_S 
     &    * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 745 OBCS_SPONGE_S 
       IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 747 OBCS_SPONGE_S 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_sponge.F 750 OBCS_SPONGE_S 
           IF  (OBSs(i,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 752 OBCS_SPONGE_S 
     &      float(spongeThickness-jsl)*OBSs(i,k,bi,bj)
./pkg/obcs/obcs_sponge.F 753 OBCS_SPONGE_S 
     &    + float(jsl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 768 OBCS_SPONGE_S 
     &   - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 769 OBCS_SPONGE_S 
     &   * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 786 OBCS_SPONGE_S 
       IF ( OB_Ie(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 788 OBCS_SPONGE_S 
         i=OB_Ie(j,bi,bj)-isl
./pkg/obcs/obcs_sponge.F 791 OBCS_SPONGE_S 
           IF  (OBEs(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 793 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBEs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 794 OBCS_SPONGE_S 
     &    + float(isl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 809 OBCS_SPONGE_S 
     &    - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 810 OBCS_SPONGE_S 
     &    * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 827 OBCS_SPONGE_S 
       IF ( OB_Iw(j,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 832 OBCS_SPONGE_S 
         i=OB_Iw(j,bi,bj)+isl
./pkg/obcs/obcs_sponge.F 835 OBCS_SPONGE_S 
           IF  (OBWs(j,k,bi,bj).ne. 0.d0) then
./pkg/obcs/obcs_sponge.F 837 OBCS_SPONGE_S 
     &      float(spongeThickness-isl)*OBWs(j,k,bi,bj)
./pkg/obcs/obcs_sponge.F 838 OBCS_SPONGE_S 
     &    + float(isl)*salt(i,j,k,bi,bj) )
./pkg/obcs/obcs_sponge.F 853 OBCS_SPONGE_S 
     &    - maskC(i,j,k,bi,bj) * lambda_obcs_s
./pkg/obcs/obcs_sponge.F 854 OBCS_SPONGE_S 
     &    * ( salt(i,j,k,bi,bj) - srelax )
./pkg/obcs/obcs_sponge.F 85 OBCS_SPONGE_U 
     &    - _maskW(i,j,k,bi,bj) * lambda_obcs_u
./pkg/obcs/obcs_sponge.F 86 OBCS_SPONGE_U 
     &    * ( uVel(i,j,k,bi,bj) - urelax )
./pkg/obcs/obcs_sponge.F 97 OBCS_SPONGE_U 
       IF ( OB_Js(i,bi,bj).NE.OB_indexNone ) THEN
./pkg/obcs/obcs_sponge.F 99 OBCS_SPONGE_U 
         j=OB_Js(i,bi,bj)+jsl
./pkg/obcs/obcs_u1_adv_tracer.F 103 OBCS_U1_ADV_TRACER 
     &             *( maskInC(i-1,j,bi,bj) - maskInC(i,j,bi,bj) )
./pkg/obcs/obcs_u1_adv_tracer.F 116 OBCS_U1_ADV_TRACER 
     &           maskInC(i-1,j,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN
./pkg/obcs/obcs_u1_adv_tracer.F 12 OBCS_U1_ADV_TRACER 
     I           trIdentity, bi, bj, k,
./pkg/obcs/obcs_u1_adv_tracer.F 133 OBCS_U1_ADV_TRACER 
     &             *( maskInC(i,j-1,bi,bj) - maskInC(i,j,bi,bj) )
./pkg/obcs/obcs_u1_adv_tracer.F 146 OBCS_U1_ADV_TRACER 
     &           maskInC(i,j-1,bi,bj).NE.maskInC(i,j,bi,bj) ) THEN
./pkg/obcs/obcs_u1_adv_tracer.F 51 OBCS_U1_ADV_TRACER 
      INTEGER bi, bj, k
./pkg/obcs/orlanski_east.F 108 ORLANSKI_EAST 
            I_obc=OB_Ie(J,bi,bj)
./pkg/obcs/orlanski_east.F 111 ORLANSKI_EAST 
               IF ((UE_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_east.F 112 ORLANSKI_EAST 
     &            (UE_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_east.F 115 ORLANSKI_EAST 
                  CL=-(uVel(I_obc-1,J,K,bi,bj)-UE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 116 ORLANSKI_EAST 
     &          (ab1*UE_STORE_2(J,K,bi,bj) + ab2*UE_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_east.F 126 ORLANSKI_EAST 
                 CVEL_UE(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_east.F 128 ORLANSKI_EAST 
                 CVEL_UE(J,K,bi,bj) = f1*(CL*dxF(I_obc-2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_east.F 129 ORLANSKI_EAST 
     &              )+f2*CVEL_UE(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 132 ORLANSKI_EAST 
               OBEu(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 133 ORLANSKI_EAST 
     &           CVEL_UE(J,K,bi,bj)*(deltaT*recip_dxF(I_obc-1,J,bi,bj))*
./pkg/obcs/orlanski_east.F 134 ORLANSKI_EAST 
     &           (ab1*(uVel(I_obc,J,K,bi,bj)-uVel(I_obc-1,J,K,bi,bj)) +
./pkg/obcs/orlanski_east.F 135 ORLANSKI_EAST 
     &           ab2*(UE_STORE_4(J,K,bi,bj)-UE_STORE_1(J,K,bi,bj)))
./pkg/obcs/orlanski_east.F 137 ORLANSKI_EAST 
               IF ((VE_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_east.F 138 ORLANSKI_EAST 
     &            (VE_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_east.F 141 ORLANSKI_EAST 
                  CL=-(vVel(I_obc-1,J,K,bi,bj)-VE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 142 ORLANSKI_EAST 
     &          (ab1*VE_STORE_2(J,K,bi,bj) + ab2*VE_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_east.F 152 ORLANSKI_EAST 
                 CVEL_VE(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_east.F 154 ORLANSKI_EAST 
                 CVEL_VE(J,K,bi,bj) = f1*(CL*dxV(I_obc-1,J,bi,bj)
./pkg/obcs/orlanski_east.F 155 ORLANSKI_EAST 
     $                 /deltaT)+f2*CVEL_VE(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 158 ORLANSKI_EAST 
               OBEv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 159 ORLANSKI_EAST 
     &           CVEL_VE(J,K,bi,bj)*(deltaT*recip_dxV(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 160 ORLANSKI_EAST 
     &           (ab1*(vVel(I_obc,J,K,bi,bj)-vVel(I_obc-1,J,K,bi,bj)) +
./pkg/obcs/orlanski_east.F 161 ORLANSKI_EAST 
     &           ab2*(VE_STORE_4(J,K,bi,bj)-VE_STORE_1(J,K,bi,bj)))
./pkg/obcs/orlanski_east.F 163 ORLANSKI_EAST 
               IF ((TE_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_east.F 164 ORLANSKI_EAST 
     &            (TE_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_east.F 167 ORLANSKI_EAST 
                  CL=-(theta(I_obc-1,J,K,bi,bj)-TE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 168 ORLANSKI_EAST 
     &          (ab1*TE_STORE_2(J,K,bi,bj) + ab2*TE_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_east.F 178 ORLANSKI_EAST 
                 CVEL_TE(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_east.F 180 ORLANSKI_EAST 
                 CVEL_TE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj)
./pkg/obcs/orlanski_east.F 181 ORLANSKI_EAST 
     $                 /deltaT)+f2*CVEL_TE(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 184 ORLANSKI_EAST 
               OBEt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 185 ORLANSKI_EAST 
     &           CVEL_TE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 186 ORLANSKI_EAST 
     &           (ab1*(theta(I_obc,J,K,bi,bj)-theta(I_obc-1,J,K,bi,bj))+
./pkg/obcs/orlanski_east.F 187 ORLANSKI_EAST 
     &           ab2*(TE_STORE_4(J,K,bi,bj)-TE_STORE_1(J,K,bi,bj)))
./pkg/obcs/orlanski_east.F 189 ORLANSKI_EAST 
               IF ((SE_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_east.F 190 ORLANSKI_EAST 
     &            (SE_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_east.F 193 ORLANSKI_EAST 
                  CL=-(salt(I_obc-1,J,K,bi,bj)-SE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 194 ORLANSKI_EAST 
     &          (ab1*SE_STORE_2(J,K,bi,bj) + ab2*SE_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_east.F 204 ORLANSKI_EAST 
                 CVEL_SE(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_east.F 206 ORLANSKI_EAST 
                 CVEL_SE(J,K,bi,bj) = f1*(CL*dxC(I_obc-1,J,bi,bj)
./pkg/obcs/orlanski_east.F 207 ORLANSKI_EAST 
     $                 /deltaT)+f2*CVEL_SE(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 210 ORLANSKI_EAST 
               OBEs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 211 ORLANSKI_EAST 
     &           CVEL_SE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 212 ORLANSKI_EAST 
     &           (ab1*(salt(I_obc,J,K,bi,bj)-salt(I_obc-1,J,K,bi,bj))+
./pkg/obcs/orlanski_east.F 213 ORLANSKI_EAST 
     &           ab2*(SE_STORE_4(J,K,bi,bj)-SE_STORE_1(J,K,bi,bj)))
./pkg/obcs/orlanski_east.F 217 ORLANSKI_EAST 
               IF ((WE_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_east.F 218 ORLANSKI_EAST 
     &            (WE_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_east.F 221 ORLANSKI_EAST 
                  CL=-(wVel(I_obc-1,J,K,bi,bj)-WE_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_east.F 222 ORLANSKI_EAST 
     &          (ab1*WE_STORE_2(J,K,bi,bj)+ab2*WE_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_east.F 232 ORLANSKI_EAST 
                 CVEL_WE(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_east.F 234 ORLANSKI_EAST 
                 CVEL_WE(J,K,bi,bj)=f1*(CL*dxC(I_obc-1,J,bi,bj)/deltaT)
./pkg/obcs/orlanski_east.F 235 ORLANSKI_EAST 
     &                   + f2*CVEL_WE(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 238 ORLANSKI_EAST 
               OBEw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)-
./pkg/obcs/orlanski_east.F 239 ORLANSKI_EAST 
     &           CVEL_WE(J,K,bi,bj)*(deltaT*recip_dxC(I_obc,J,bi,bj))*
./pkg/obcs/orlanski_east.F 240 ORLANSKI_EAST 
     &           (ab1*(wVel(I_obc,J,K,bi,bj)-wVel(I_obc-1,J,K,bi,bj))+
./pkg/obcs/orlanski_east.F 241 ORLANSKI_EAST 
     &           ab2*(WE_STORE_4(J,K,bi,bj)-WE_STORE_1(J,K,bi,bj)))
./pkg/obcs/orlanski_east.F 247 ORLANSKI_EAST 
               UE_STORE_3(J,K,bi,bj)=UE_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 249 ORLANSKI_EAST 
               UE_STORE_2(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 250 ORLANSKI_EAST 
     &         uVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 251 ORLANSKI_EAST 
               UE_STORE_1(J,K,bi,bj)=uVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 252 ORLANSKI_EAST 
               UE_STORE_4(J,K,bi,bj)=uVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 255 ORLANSKI_EAST 
               VE_STORE_3(J,K,bi,bj)=VE_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 257 ORLANSKI_EAST 
               VE_STORE_2(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 258 ORLANSKI_EAST 
     &         vVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 259 ORLANSKI_EAST 
               VE_STORE_1(J,K,bi,bj)=vVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 260 ORLANSKI_EAST 
               VE_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 263 ORLANSKI_EAST 
               TE_STORE_3(J,K,bi,bj)=TE_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 265 ORLANSKI_EAST 
               TE_STORE_2(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 266 ORLANSKI_EAST 
     &         theta(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 267 ORLANSKI_EAST 
               TE_STORE_1(J,K,bi,bj)=theta(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 268 ORLANSKI_EAST 
               TE_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 271 ORLANSKI_EAST 
               SE_STORE_3(J,K,bi,bj)=SE_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 273 ORLANSKI_EAST 
               SE_STORE_2(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 274 ORLANSKI_EAST 
     &         salt(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 275 ORLANSKI_EAST 
               SE_STORE_1(J,K,bi,bj)=salt(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 276 ORLANSKI_EAST 
               SE_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 281 ORLANSKI_EAST 
               WE_STORE_3(J,K,bi,bj)=WE_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_east.F 283 ORLANSKI_EAST 
               WE_STORE_2(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj) -
./pkg/obcs/orlanski_east.F 284 ORLANSKI_EAST 
     &         wVel(I_obc-2,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 285 ORLANSKI_EAST 
               WE_STORE_1(J,K,bi,bj)=wVel(I_obc-1,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 286 ORLANSKI_EAST 
               WE_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_east.F 7 ORLANSKI_EAST 
      SUBROUTINE ORLANSKI_EAST( bi, bj, futureTime,
./pkg/obcs/orlanski_east.F 80 ORLANSKI_EAST 
      INTEGER bi, bj
./pkg/obcs/orlanski_init.F 100 ORLANSKI_INIT 
          UE_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 101 ORLANSKI_INIT 
          VE_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 102 ORLANSKI_INIT 
          TE_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 103 ORLANSKI_INIT 
          SE_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 104 ORLANSKI_INIT 
          UW_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 105 ORLANSKI_INIT 
          VW_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 106 ORLANSKI_INIT 
          TW_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 107 ORLANSKI_INIT 
          SW_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 108 ORLANSKI_INIT 
          UW_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 109 ORLANSKI_INIT 
          VW_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 110 ORLANSKI_INIT 
          TW_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 111 ORLANSKI_INIT 
          SW_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 112 ORLANSKI_INIT 
          UW_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 113 ORLANSKI_INIT 
          VW_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 114 ORLANSKI_INIT 
          TW_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 115 ORLANSKI_INIT 
          SW_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 116 ORLANSKI_INIT 
          UW_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 117 ORLANSKI_INIT 
          VW_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 118 ORLANSKI_INIT 
          TW_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 119 ORLANSKI_INIT 
          SW_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 120 ORLANSKI_INIT 
          CVEL_UE(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 121 ORLANSKI_INIT 
          CVEL_VE(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 122 ORLANSKI_INIT 
          CVEL_TE(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 123 ORLANSKI_INIT 
          CVEL_SE(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 124 ORLANSKI_INIT 
          CVEL_UW(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 125 ORLANSKI_INIT 
          CVEL_VW(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 126 ORLANSKI_INIT 
          CVEL_TW(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 127 ORLANSKI_INIT 
          CVEL_SW(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 129 ORLANSKI_INIT 
          WE_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 130 ORLANSKI_INIT 
          WE_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 131 ORLANSKI_INIT 
          WE_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 132 ORLANSKI_INIT 
          WE_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 133 ORLANSKI_INIT 
          WW_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 134 ORLANSKI_INIT 
          WW_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 135 ORLANSKI_INIT 
          WW_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 136 ORLANSKI_INIT 
          WW_STORE_4(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 137 ORLANSKI_INIT 
          CVEL_WE(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 138 ORLANSKI_INIT 
          CVEL_WW(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 25 ORLANSKI_INIT 
      INTEGER bi, bj, myThid
./pkg/obcs/orlanski_init.F 34 ORLANSKI_INIT 
          UN_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 35 ORLANSKI_INIT 
          VN_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 36 ORLANSKI_INIT 
          TN_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 37 ORLANSKI_INIT 
          SN_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 38 ORLANSKI_INIT 
          UN_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 39 ORLANSKI_INIT 
          VN_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 40 ORLANSKI_INIT 
          TN_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 41 ORLANSKI_INIT 
          SN_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 42 ORLANSKI_INIT 
          UN_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 43 ORLANSKI_INIT 
          VN_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 44 ORLANSKI_INIT 
          TN_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 45 ORLANSKI_INIT 
          SN_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 46 ORLANSKI_INIT 
          UN_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 47 ORLANSKI_INIT 
          VN_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 48 ORLANSKI_INIT 
          TN_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 49 ORLANSKI_INIT 
          SN_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 50 ORLANSKI_INIT 
          US_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 51 ORLANSKI_INIT 
          VS_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 52 ORLANSKI_INIT 
          TS_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 53 ORLANSKI_INIT 
          SS_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 54 ORLANSKI_INIT 
          US_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 55 ORLANSKI_INIT 
          VS_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 56 ORLANSKI_INIT 
          TS_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 57 ORLANSKI_INIT 
          SS_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 58 ORLANSKI_INIT 
          US_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 59 ORLANSKI_INIT 
          VS_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 60 ORLANSKI_INIT 
          TS_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 61 ORLANSKI_INIT 
          SS_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 62 ORLANSKI_INIT 
          US_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 63 ORLANSKI_INIT 
          VS_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 64 ORLANSKI_INIT 
          TS_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 65 ORLANSKI_INIT 
          SS_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 66 ORLANSKI_INIT 
          CVEL_UN(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 67 ORLANSKI_INIT 
          CVEL_VN(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 68 ORLANSKI_INIT 
          CVEL_TN(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 69 ORLANSKI_INIT 
          CVEL_SN(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 6 ORLANSKI_INIT 
      SUBROUTINE ORLANSKI_INIT(bi, bj, myThid )
./pkg/obcs/orlanski_init.F 70 ORLANSKI_INIT 
          CVEL_US(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 71 ORLANSKI_INIT 
          CVEL_VS(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 72 ORLANSKI_INIT 
          CVEL_TS(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 73 ORLANSKI_INIT 
          CVEL_SS(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 75 ORLANSKI_INIT 
          WN_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 76 ORLANSKI_INIT 
          WN_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 77 ORLANSKI_INIT 
          WN_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 78 ORLANSKI_INIT 
          WN_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 79 ORLANSKI_INIT 
          WS_STORE_1(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 80 ORLANSKI_INIT 
          WS_STORE_2(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 81 ORLANSKI_INIT 
          WS_STORE_3(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 82 ORLANSKI_INIT 
          WS_STORE_4(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 83 ORLANSKI_INIT 
          CVEL_WN(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 84 ORLANSKI_INIT 
          CVEL_WS(I,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 88 ORLANSKI_INIT 
          UE_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 89 ORLANSKI_INIT 
          VE_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 90 ORLANSKI_INIT 
          TE_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 91 ORLANSKI_INIT 
          SE_STORE_1(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 92 ORLANSKI_INIT 
          UE_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 93 ORLANSKI_INIT 
          VE_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 94 ORLANSKI_INIT 
          TE_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 95 ORLANSKI_INIT 
          SE_STORE_2(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 96 ORLANSKI_INIT 
          UE_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 97 ORLANSKI_INIT 
          VE_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 98 ORLANSKI_INIT 
          TE_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_init.F 99 ORLANSKI_INIT 
          SE_STORE_3(J,K,bi,bj)=0.
./pkg/obcs/orlanski_north.F 102 ORLANSKI_NORTH 
               IF ((UN_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_north.F 103 ORLANSKI_NORTH 
     &            (UN_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_north.F 106 ORLANSKI_NORTH 
                  CL=-(uVel(I,J_obc-1,K,bi,bj)-UN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 107 ORLANSKI_NORTH 
     &          (ab1*UN_STORE_2(I,K,bi,bj) + ab2*UN_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_north.F 114 ORLANSKI_NORTH 
               CVEL_UN(I,K,bi,bj) = f1*(CL*dyU(I,J_obc-1,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 115 ORLANSKI_NORTH 
     &                f2*CVEL_UN(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 117 ORLANSKI_NORTH 
               OBNu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 118 ORLANSKI_NORTH 
     &           CVEL_UN(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 119 ORLANSKI_NORTH 
     &           (ab1*(uVel(I,J_obc,K,bi,bj)-uVel(I,J_obc-1,K,bi,bj)) +
./pkg/obcs/orlanski_north.F 120 ORLANSKI_NORTH 
     &           ab2*(UN_STORE_4(I,K,bi,bj)-UN_STORE_1(I,K,bi,bj)))
./pkg/obcs/orlanski_north.F 122 ORLANSKI_NORTH 
               IF ((VN_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_north.F 123 ORLANSKI_NORTH 
     &            (VN_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_north.F 126 ORLANSKI_NORTH 
                  CL=-(vVel(I,J_obc-1,K,bi,bj)-VN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 127 ORLANSKI_NORTH 
     &          (ab1*VN_STORE_2(I,K,bi,bj) + ab2*VN_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_north.F 134 ORLANSKI_NORTH 
               CVEL_VN(I,K,bi,bj) = f1*(CL*dyF(I,J_obc-2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 135 ORLANSKI_NORTH 
     &                f2*CVEL_VN(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 137 ORLANSKI_NORTH 
               OBNv(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 138 ORLANSKI_NORTH 
     &           CVEL_VN(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc-1,bi,bj)*
./pkg/obcs/orlanski_north.F 139 ORLANSKI_NORTH 
     &           (ab1*(vVel(I,J_obc,K,bi,bj)-vVel(I,J_obc-1,K,bi,bj)) +
./pkg/obcs/orlanski_north.F 140 ORLANSKI_NORTH 
     &           ab2*(VN_STORE_4(I,K,bi,bj)-VN_STORE_1(I,K,bi,bj)))
./pkg/obcs/orlanski_north.F 142 ORLANSKI_NORTH 
               IF ((TN_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_north.F 143 ORLANSKI_NORTH 
     &            (TN_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_north.F 146 ORLANSKI_NORTH 
                  CL=-(theta(I,J_obc-1,K,bi,bj)-TN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 147 ORLANSKI_NORTH 
     &          (ab1*TN_STORE_2(I,K,bi,bj) + ab2*TN_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_north.F 154 ORLANSKI_NORTH 
               CVEL_TN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 155 ORLANSKI_NORTH 
     &                f2*CVEL_TN(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 157 ORLANSKI_NORTH 
               OBNt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 158 ORLANSKI_NORTH 
     &          CVEL_TN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 159 ORLANSKI_NORTH 
     &          (ab1*(theta(I,J_obc,K,bi,bj)-theta(I,J_obc-1,K,bi,bj))+
./pkg/obcs/orlanski_north.F 160 ORLANSKI_NORTH 
     &          ab2*(TN_STORE_4(I,K,bi,bj)-TN_STORE_1(I,K,bi,bj)))
./pkg/obcs/orlanski_north.F 162 ORLANSKI_NORTH 
               IF ((SN_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_north.F 163 ORLANSKI_NORTH 
     &            (SN_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_north.F 166 ORLANSKI_NORTH 
                  CL=-(salt(I,J_obc-1,K,bi,bj)-SN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 167 ORLANSKI_NORTH 
     &          (ab1*SN_STORE_2(I,K,bi,bj) + ab2*SN_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_north.F 174 ORLANSKI_NORTH 
               CVEL_SN(I,K,bi,bj) = f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)+
./pkg/obcs/orlanski_north.F 175 ORLANSKI_NORTH 
     &                f2*CVEL_SN(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 177 ORLANSKI_NORTH 
               OBNs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 178 ORLANSKI_NORTH 
     &          CVEL_SN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 179 ORLANSKI_NORTH 
     &          (ab1*(salt(I,J_obc,K,bi,bj)-salt(I,J_obc-1,K,bi,bj)) +
./pkg/obcs/orlanski_north.F 180 ORLANSKI_NORTH 
     &          ab2*(SN_STORE_4(I,K,bi,bj)-SN_STORE_1(I,K,bi,bj)))
./pkg/obcs/orlanski_north.F 184 ORLANSKI_NORTH 
               IF ((WN_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_north.F 185 ORLANSKI_NORTH 
     &            (WN_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_north.F 188 ORLANSKI_NORTH 
                 CL=-(wVel(I,J_obc-1,K,bi,bj)-WN_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_north.F 189 ORLANSKI_NORTH 
     &          (ab1*WN_STORE_2(I,K,bi,bj)+ab2*WN_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_north.F 196 ORLANSKI_NORTH 
               CVEL_WN(I,K,bi,bj)=f1*(CL*dyC(I,J_obc-1,bi,bj)/deltaT)
./pkg/obcs/orlanski_north.F 197 ORLANSKI_NORTH 
     &                + f2*CVEL_WN(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 199 ORLANSKI_NORTH 
               OBNw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)-
./pkg/obcs/orlanski_north.F 200 ORLANSKI_NORTH 
     &           CVEL_WN(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc,bi,bj)*
./pkg/obcs/orlanski_north.F 201 ORLANSKI_NORTH 
     &           (ab1*(wVel(I,J_obc,K,bi,bj)-wVel(I,J_obc-1,K,bi,bj))+
./pkg/obcs/orlanski_north.F 202 ORLANSKI_NORTH 
     &           ab2*(WN_STORE_4(I,K,bi,bj)-WN_STORE_1(I,K,bi,bj)))
./pkg/obcs/orlanski_north.F 208 ORLANSKI_NORTH 
               UN_STORE_3(I,K,bi,bj)=UN_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 210 ORLANSKI_NORTH 
               UN_STORE_2(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 211 ORLANSKI_NORTH 
     &         uVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 212 ORLANSKI_NORTH 
               UN_STORE_1(I,K,bi,bj)=uVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 213 ORLANSKI_NORTH 
               UN_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 216 ORLANSKI_NORTH 
               VN_STORE_3(I,K,bi,bj)=VN_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 218 ORLANSKI_NORTH 
               VN_STORE_2(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 219 ORLANSKI_NORTH 
     &         vVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 220 ORLANSKI_NORTH 
               VN_STORE_1(I,K,bi,bj)=vVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 221 ORLANSKI_NORTH 
               VN_STORE_4(I,K,bi,bj)=vVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 224 ORLANSKI_NORTH 
               TN_STORE_3(I,K,bi,bj)=TN_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 226 ORLANSKI_NORTH 
               TN_STORE_2(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 227 ORLANSKI_NORTH 
     &         theta(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 228 ORLANSKI_NORTH 
               TN_STORE_1(I,K,bi,bj)=theta(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 229 ORLANSKI_NORTH 
               TN_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 232 ORLANSKI_NORTH 
               SN_STORE_3(I,K,bi,bj)=SN_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 234 ORLANSKI_NORTH 
               SN_STORE_2(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 235 ORLANSKI_NORTH 
     &         salt(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 236 ORLANSKI_NORTH 
               SN_STORE_1(I,K,bi,bj)=salt(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 237 ORLANSKI_NORTH 
               SN_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 242 ORLANSKI_NORTH 
               WN_STORE_3(I,K,bi,bj)=WN_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_north.F 244 ORLANSKI_NORTH 
               WN_STORE_2(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj) -
./pkg/obcs/orlanski_north.F 245 ORLANSKI_NORTH 
     &         wVel(I,J_obc-2,K,bi,bj)
./pkg/obcs/orlanski_north.F 246 ORLANSKI_NORTH 
               WN_STORE_1(I,K,bi,bj)=wVel(I,J_obc-1,K,bi,bj)
./pkg/obcs/orlanski_north.F 247 ORLANSKI_NORTH 
               WN_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_north.F 6 ORLANSKI_NORTH 
      SUBROUTINE ORLANSKI_NORTH( bi, bj, futureTime,
./pkg/obcs/orlanski_north.F 71 ORLANSKI_NORTH 
      INTEGER bi, bj
./pkg/obcs/orlanski_north.F 99 ORLANSKI_NORTH 
            J_obc=OB_Jn(I,bi,bj)
./pkg/obcs/orlanski_south.F 102 ORLANSKI_SOUTH 
               IF ((US_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_south.F 103 ORLANSKI_SOUTH 
     &            (US_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_south.F 106 ORLANSKI_SOUTH 
                  CL=(uVel(I,J_obc+1,K,bi,bj)-US_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 107 ORLANSKI_SOUTH 
     &          (ab1*US_STORE_2(I,K,bi,bj) + ab2*US_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_south.F 114 ORLANSKI_SOUTH 
               CVEL_US(I,K,bi,bj) = f1*(CL*dyU(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 115 ORLANSKI_SOUTH 
     &                f2*CVEL_US(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 117 ORLANSKI_SOUTH 
               OBSu(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 118 ORLANSKI_SOUTH 
     &          CVEL_US(I,K,bi,bj)*deltaT*recip_dyU(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 119 ORLANSKI_SOUTH 
     &          (ab1*(uVel(I,J_obc+1,K,bi,bj)-uVel(I,J_obc,K,bi,bj)) +
./pkg/obcs/orlanski_south.F 120 ORLANSKI_SOUTH 
     &         ab2*(US_STORE_1(I,K,bi,bj)-US_STORE_4(I,K,bi,bj)))
./pkg/obcs/orlanski_south.F 122 ORLANSKI_SOUTH 
               IF ((VS_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_south.F 123 ORLANSKI_SOUTH 
     &            (VS_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_south.F 126 ORLANSKI_SOUTH 
                  CL=(vVel(I,J_obc+2,K,bi,bj)-VS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 127 ORLANSKI_SOUTH 
     &          (ab1*VS_STORE_2(I,K,bi,bj) + ab2*VS_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_south.F 134 ORLANSKI_SOUTH 
               CVEL_VS(I,K,bi,bj) = f1*(CL*dyF(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 135 ORLANSKI_SOUTH 
     &                f2*CVEL_VS(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 137 ORLANSKI_SOUTH 
               OBSv(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)+
./pkg/obcs/orlanski_south.F 138 ORLANSKI_SOUTH 
     &          CVEL_VS(I,K,bi,bj)*deltaT*recip_dyF(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 139 ORLANSKI_SOUTH 
     &          (ab1*(vVel(I,J_obc+2,K,bi,bj)-vVel(I,J_obc+1,K,bi,bj))+
./pkg/obcs/orlanski_south.F 140 ORLANSKI_SOUTH 
     &          ab2*(VS_STORE_1(I,K,bi,bj)-VS_STORE_4(I,K,bi,bj)))
./pkg/obcs/orlanski_south.F 142 ORLANSKI_SOUTH 
               IF ((TS_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_south.F 143 ORLANSKI_SOUTH 
     &            (TS_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_south.F 146 ORLANSKI_SOUTH 
                  CL=(theta(I,J_obc+1,K,bi,bj)-TS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 147 ORLANSKI_SOUTH 
     &          (ab1*TS_STORE_2(I,K,bi,bj) + ab2*TS_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_south.F 154 ORLANSKI_SOUTH 
               CVEL_TS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 155 ORLANSKI_SOUTH 
     &                f2*CVEL_TS(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 157 ORLANSKI_SOUTH 
               OBSt(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 158 ORLANSKI_SOUTH 
     &          CVEL_TS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 159 ORLANSKI_SOUTH 
     &          (ab1*(theta(I,J_obc+1,K,bi,bj)-theta(I,J_obc,K,bi,bj))+
./pkg/obcs/orlanski_south.F 160 ORLANSKI_SOUTH 
     &          ab2*(TS_STORE_1(I,K,bi,bj)-TS_STORE_4(I,K,bi,bj)))
./pkg/obcs/orlanski_south.F 162 ORLANSKI_SOUTH 
               IF ((SS_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_south.F 163 ORLANSKI_SOUTH 
     &            (SS_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_south.F 166 ORLANSKI_SOUTH 
                  CL=(salt(I,J_obc+1,K,bi,bj)-SS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 167 ORLANSKI_SOUTH 
     &          (ab1*SS_STORE_2(I,K,bi,bj) + ab2*SS_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_south.F 174 ORLANSKI_SOUTH 
               CVEL_SS(I,K,bi,bj) = f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)+
./pkg/obcs/orlanski_south.F 175 ORLANSKI_SOUTH 
     &                f2*CVEL_SS(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 177 ORLANSKI_SOUTH 
               OBSs(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 178 ORLANSKI_SOUTH 
     &          CVEL_SS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 179 ORLANSKI_SOUTH 
     &          (ab1*(salt(I,J_obc+1,K,bi,bj)-salt(I,J_obc,K,bi,bj)) +
./pkg/obcs/orlanski_south.F 180 ORLANSKI_SOUTH 
     &         ab2*(SS_STORE_1(I,K,bi,bj)-SS_STORE_4(I,K,bi,bj)))
./pkg/obcs/orlanski_south.F 184 ORLANSKI_SOUTH 
               IF ((WS_STORE_2(I,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_south.F 185 ORLANSKI_SOUTH 
     &            (WS_STORE_3(I,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_south.F 188 ORLANSKI_SOUTH 
                  CL=(wVel(I,J_obc+1,K,bi,bj)-WS_STORE_1(I,K,bi,bj))/
./pkg/obcs/orlanski_south.F 189 ORLANSKI_SOUTH 
     &          (ab1*WS_STORE_2(I,K,bi,bj)+ab2*WS_STORE_3(I,K,bi,bj))
./pkg/obcs/orlanski_south.F 196 ORLANSKI_SOUTH 
               CVEL_WS(I,K,bi,bj)=f1*(CL*dyC(I,J_obc+2,bi,bj)/deltaT)
./pkg/obcs/orlanski_south.F 197 ORLANSKI_SOUTH 
     &                   + f2*CVEL_WS(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 199 ORLANSKI_SOUTH 
               OBSw(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)+
./pkg/obcs/orlanski_south.F 200 ORLANSKI_SOUTH 
     &           CVEL_WS(I,K,bi,bj)*deltaT*recip_dyC(I,J_obc+1,bi,bj)*
./pkg/obcs/orlanski_south.F 201 ORLANSKI_SOUTH 
     &           (ab1*(wVel(I,J_obc+1,K,bi,bj)-wVel(I,J_obc,K,bi,bj))+
./pkg/obcs/orlanski_south.F 202 ORLANSKI_SOUTH 
     &           ab2*(WS_STORE_1(I,K,bi,bj)-WS_STORE_4(I,K,bi,bj)))
./pkg/obcs/orlanski_south.F 208 ORLANSKI_SOUTH 
               US_STORE_3(I,K,bi,bj)=US_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 210 ORLANSKI_SOUTH 
               US_STORE_2(I,K,bi,bj)=uVel(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 211 ORLANSKI_SOUTH 
     &         uVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 212 ORLANSKI_SOUTH 
               US_STORE_1(I,K,bi,bj)=uVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 213 ORLANSKI_SOUTH 
               US_STORE_4(I,K,bi,bj)=uVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 216 ORLANSKI_SOUTH 
               VS_STORE_3(I,K,bi,bj)=VS_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 218 ORLANSKI_SOUTH 
               VS_STORE_2(I,K,bi,bj)=vVel(I,J_obc+3,K,bi,bj) -
./pkg/obcs/orlanski_south.F 219 ORLANSKI_SOUTH 
     &         vVel(I,J_obc+2,K,bi,bj)
./pkg/obcs/orlanski_south.F 220 ORLANSKI_SOUTH 
               VS_STORE_1(I,K,bi,bj)=vVel(I,J_obc+2,K,bi,bj)
./pkg/obcs/orlanski_south.F 221 ORLANSKI_SOUTH 
               VS_STORE_4(I,K,bi,bj)=vVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 224 ORLANSKI_SOUTH 
               TS_STORE_3(I,K,bi,bj)=TS_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 226 ORLANSKI_SOUTH 
               TS_STORE_2(I,K,bi,bj)=theta(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 227 ORLANSKI_SOUTH 
     &         theta(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 228 ORLANSKI_SOUTH 
               TS_STORE_1(I,K,bi,bj)=theta(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 229 ORLANSKI_SOUTH 
               TS_STORE_4(I,K,bi,bj)=theta(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 232 ORLANSKI_SOUTH 
               SS_STORE_3(I,K,bi,bj)=SS_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 234 ORLANSKI_SOUTH 
               SS_STORE_2(I,K,bi,bj)=salt(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 235 ORLANSKI_SOUTH 
     &         salt(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 236 ORLANSKI_SOUTH 
               SS_STORE_1(I,K,bi,bj)=salt(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 237 ORLANSKI_SOUTH 
               SS_STORE_4(I,K,bi,bj)=salt(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 242 ORLANSKI_SOUTH 
               WS_STORE_3(I,K,bi,bj)=WS_STORE_2(I,K,bi,bj)
./pkg/obcs/orlanski_south.F 244 ORLANSKI_SOUTH 
               WS_STORE_2(I,K,bi,bj)=wVel(I,J_obc+2,K,bi,bj) -
./pkg/obcs/orlanski_south.F 245 ORLANSKI_SOUTH 
     &         wVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 246 ORLANSKI_SOUTH 
               WS_STORE_1(I,K,bi,bj)=wVel(I,J_obc+1,K,bi,bj)
./pkg/obcs/orlanski_south.F 247 ORLANSKI_SOUTH 
               WS_STORE_4(I,K,bi,bj)=wVel(I,J_obc,K,bi,bj)
./pkg/obcs/orlanski_south.F 6 ORLANSKI_SOUTH 
      SUBROUTINE ORLANSKI_SOUTH( bi, bj, futureTime,
./pkg/obcs/orlanski_south.F 71 ORLANSKI_SOUTH 
      INTEGER bi, bj
./pkg/obcs/orlanski_south.F 99 ORLANSKI_SOUTH 
            J_obc=OB_Js(I,bi,bj)
./pkg/obcs/orlanski_west.F 110 ORLANSKI_WEST 
            I_obc=OB_Iw(J,bi,bj)
./pkg/obcs/orlanski_west.F 113 ORLANSKI_WEST 
               IF ((UW_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_west.F 114 ORLANSKI_WEST 
     &            (UW_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_west.F 117 ORLANSKI_WEST 
                  CL=(uVel(I_obc+2,J,K,bi,bj)-UW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 118 ORLANSKI_WEST 
     &          (ab1*UW_STORE_2(J,K,bi,bj) + ab2*UW_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_west.F 128 ORLANSKI_WEST 
                 CVEL_UW(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_west.F 130 ORLANSKI_WEST 
                 CVEL_UW(J,K,bi,bj) = f1*(CL*dxF(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 131 ORLANSKI_WEST 
     &              )+f2*CVEL_UW(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 134 ORLANSKI_WEST 
               OBWu(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 135 ORLANSKI_WEST 
     &          CVEL_UW(J,K,bi,bj)*(deltaT*recip_dxF(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 136 ORLANSKI_WEST 
     &          (ab1*(uVel(I_obc+2,J,K,bi,bj)-uVel(I_obc+1,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 137 ORLANSKI_WEST 
     &          ab2*(UW_STORE_1(J,K,bi,bj)-UW_STORE_4(J,K,bi,bj)))
./pkg/obcs/orlanski_west.F 139 ORLANSKI_WEST 
               IF ((VW_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_west.F 140 ORLANSKI_WEST 
     &            (VW_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_west.F 143 ORLANSKI_WEST 
                  CL=(vVel(I_obc+1,J,K,bi,bj)-VW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 144 ORLANSKI_WEST 
     &          (ab1*VW_STORE_2(J,K,bi,bj) + ab2*VW_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_west.F 154 ORLANSKI_WEST 
                 CVEL_VW(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_west.F 156 ORLANSKI_WEST 
                 CVEL_VW(J,K,bi,bj) = f1*(CL*dxV(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 157 ORLANSKI_WEST 
     &              )+f2*CVEL_VW(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 160 ORLANSKI_WEST 
               OBWv(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 161 ORLANSKI_WEST 
     &           CVEL_VW(J,K,bi,bj)*(deltaT*recip_dxV(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 162 ORLANSKI_WEST 
     &           (ab1*(vVel(I_obc+1,J,K,bi,bj)-vVel(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 163 ORLANSKI_WEST 
     &           ab2*(VW_STORE_1(J,K,bi,bj)-VW_STORE_4(J,K,bi,bj)))
./pkg/obcs/orlanski_west.F 165 ORLANSKI_WEST 
               IF ((TW_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_west.F 166 ORLANSKI_WEST 
     &            (TW_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_west.F 169 ORLANSKI_WEST 
                  CL=(theta(I_obc+1,J,K,bi,bj)-TW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 170 ORLANSKI_WEST 
     &          (ab1*TW_STORE_2(J,K,bi,bj) + ab2*TW_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_west.F 180 ORLANSKI_WEST 
                 CVEL_TW(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_west.F 182 ORLANSKI_WEST 
                 CVEL_TW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 183 ORLANSKI_WEST 
     &              )+f2*CVEL_TW(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 186 ORLANSKI_WEST 
               OBWt(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 187 ORLANSKI_WEST 
     &          CVEL_TW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 188 ORLANSKI_WEST 
     &          (ab1*(theta(I_obc+1,J,K,bi,bj)-theta(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 189 ORLANSKI_WEST 
     &          ab2*(TW_STORE_1(J,K,bi,bj)-TW_STORE_4(J,K,bi,bj)))
./pkg/obcs/orlanski_west.F 191 ORLANSKI_WEST 
               IF ((SW_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_west.F 192 ORLANSKI_WEST 
     &            (SW_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_west.F 195 ORLANSKI_WEST 
                  CL=(salt(I_obc+1,J,K,bi,bj)-SW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 196 ORLANSKI_WEST 
     &          (ab1*SW_STORE_2(J,K,bi,bj) + ab2*SW_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_west.F 206 ORLANSKI_WEST 
                 CVEL_SW(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_west.F 208 ORLANSKI_WEST 
                 CVEL_SW(J,K,bi,bj) = f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT
./pkg/obcs/orlanski_west.F 209 ORLANSKI_WEST 
     &              )+f2*CVEL_SW(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 212 ORLANSKI_WEST 
               OBWs(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 213 ORLANSKI_WEST 
     &           CVEL_SW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 214 ORLANSKI_WEST 
     &           (ab1*(salt(I_obc+1,J,K,bi,bj)-salt(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 215 ORLANSKI_WEST 
     &           ab2*(SW_STORE_1(J,K,bi,bj)-SW_STORE_4(J,K,bi,bj)))
./pkg/obcs/orlanski_west.F 219 ORLANSKI_WEST 
               IF ((WW_STORE_2(J,K,bi,bj).eq.0.).and.
./pkg/obcs/orlanski_west.F 220 ORLANSKI_WEST 
     &            (WW_STORE_3(J,K,bi,bj).eq.0.)) THEN
./pkg/obcs/orlanski_west.F 223 ORLANSKI_WEST 
                  CL=(wVel(I_obc+1,J,K,bi,bj)-WW_STORE_1(J,K,bi,bj))/
./pkg/obcs/orlanski_west.F 224 ORLANSKI_WEST 
     &          (ab1*WW_STORE_2(J,K,bi,bj)+ab2*WW_STORE_3(J,K,bi,bj))
./pkg/obcs/orlanski_west.F 234 ORLANSKI_WEST 
                 CVEL_WW(J,K,bi,bj) = CFIX
./pkg/obcs/orlanski_west.F 236 ORLANSKI_WEST 
                 CVEL_WW(J,K,bi,bj)=f1*(CL*dxC(I_obc+2,J,bi,bj)/deltaT)
./pkg/obcs/orlanski_west.F 237 ORLANSKI_WEST 
     &                   + f2*CVEL_WW(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 240 ORLANSKI_WEST 
               OBWw(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)+
./pkg/obcs/orlanski_west.F 241 ORLANSKI_WEST 
     &           CVEL_WW(J,K,bi,bj)*(deltaT*recip_dxC(I_obc+1,J,bi,bj))*
./pkg/obcs/orlanski_west.F 242 ORLANSKI_WEST 
     &            (ab1*(wVel(I_obc+1,J,K,bi,bj)-wVel(I_obc,J,K,bi,bj))+
./pkg/obcs/orlanski_west.F 243 ORLANSKI_WEST 
     &            ab2*(WW_STORE_1(J,K,bi,bj)-WW_STORE_4(J,K,bi,bj)))
./pkg/obcs/orlanski_west.F 249 ORLANSKI_WEST 
               UW_STORE_3(J,K,bi,bj)=UW_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 251 ORLANSKI_WEST 
               UW_STORE_2(J,K,bi,bj)=uVel(I_obc+3,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 252 ORLANSKI_WEST 
     &         uVel(I_obc+2,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 253 ORLANSKI_WEST 
               UW_STORE_1(J,K,bi,bj)=uVel(I_obc+2,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 254 ORLANSKI_WEST 
               UW_STORE_4(J,K,bi,bj)=uVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 257 ORLANSKI_WEST 
               VW_STORE_3(J,K,bi,bj)=VW_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 259 ORLANSKI_WEST 
               VW_STORE_2(J,K,bi,bj)=vVel(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 260 ORLANSKI_WEST 
     &         vVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 261 ORLANSKI_WEST 
               VW_STORE_1(J,K,bi,bj)=vVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 262 ORLANSKI_WEST 
               VW_STORE_4(J,K,bi,bj)=vVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 265 ORLANSKI_WEST 
               TW_STORE_3(J,K,bi,bj)=TW_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 267 ORLANSKI_WEST 
               TW_STORE_2(J,K,bi,bj)=theta(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 268 ORLANSKI_WEST 
     &         theta(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 269 ORLANSKI_WEST 
               TW_STORE_1(J,K,bi,bj)=theta(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 270 ORLANSKI_WEST 
               TW_STORE_4(J,K,bi,bj)=theta(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 273 ORLANSKI_WEST 
               SW_STORE_3(J,K,bi,bj)=SW_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 275 ORLANSKI_WEST 
               SW_STORE_2(J,K,bi,bj)=salt(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 276 ORLANSKI_WEST 
     &         salt(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 277 ORLANSKI_WEST 
               SW_STORE_1(J,K,bi,bj)=salt(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 278 ORLANSKI_WEST 
               SW_STORE_4(J,K,bi,bj)=salt(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 283 ORLANSKI_WEST 
               WW_STORE_3(J,K,bi,bj)=WW_STORE_2(J,K,bi,bj)
./pkg/obcs/orlanski_west.F 285 ORLANSKI_WEST 
               WW_STORE_2(J,K,bi,bj)=wVel(I_obc+2,J,K,bi,bj) -
./pkg/obcs/orlanski_west.F 286 ORLANSKI_WEST 
     &         wVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 287 ORLANSKI_WEST 
               WW_STORE_1(J,K,bi,bj)=wVel(I_obc+1,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 288 ORLANSKI_WEST 
               WW_STORE_4(J,K,bi,bj)=wVel(I_obc,J,K,bi,bj)
./pkg/obcs/orlanski_west.F 7 ORLANSKI_WEST 
      SUBROUTINE ORLANSKI_WEST( bi, bj, futureTime,
./pkg/obcs/orlanski_west.F 82 ORLANSKI_WEST 
      INTEGER bi, bj
./model/src/convective_weights.F 10 CONVECTIVE_WEIGHTS 
     I                              bi, bj, k, rhoKm1, rhoK,
./model/src/convective_weights.F 41 CONVECTIVE_WEIGHTS 
      INTEGER bi,bj,k
./model/src/convective_weights.F 60 CONVECTIVE_WEIGHTS 
         IF ( _hFacC(i,j,k-1,bi,bj)* _hFacC(i,j,k,bi,bj) .GT. 0. .AND.
./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 )
./pkg/ocn_compon_interf/cpl_exch_configs.F 101 CPL_EXCH_CONFIGS 
     &     'Depth (ocean)     ==', R_low(i,j,bi,bj)
./pkg/ocn_compon_interf/cpl_exch_configs.F 48 CPL_EXCH_CONFIGS 
      INTEGER i, j, bi, bj
./pkg/ocn_compon_interf/cpl_exch_configs.F 84 CPL_EXCH_CONFIGS 
      DO bj=1,nSy
./pkg/ocn_compon_interf/cpl_exch_configs.F 88 CPL_EXCH_CONFIGS 
          IF ( ( landMask(i,j,bi,bj) .EQ. atm_waterOnly
./pkg/ocn_compon_interf/cpl_exch_configs.F 89 CPL_EXCH_CONFIGS 
     &        .AND. R_low(i,j,bi,bj) .EQ. depth_noWater )
./pkg/ocn_compon_interf/cpl_exch_configs.F 90 CPL_EXCH_CONFIGS 
     &    .OR. ( landMask(i,j,bi,bj) .EQ. atm_landOnly
./pkg/ocn_compon_interf/cpl_exch_configs.F 91 CPL_EXCH_CONFIGS 
     &        .AND. R_low(i,j,bi,bj) .NE. depth_noWater ) ) THEN
./pkg/ocn_compon_interf/cpl_exch_configs.F 95 CPL_EXCH_CONFIGS 
     &                              ',bi=', bi, ',bj=', bj, ')'
./pkg/ocn_compon_interf/cpl_exch_configs.F 98 CPL_EXCH_CONFIGS 
     &     'Land (atmosphere) ==', landMask(i,j,bi,bj)
./pkg/ocn_compon_interf/cpl_export_my_data.F 42 CPL_EXPORT_MY_DATA 
      INTEGER bi,bj
./pkg/ocn_compon_interf/cpl_export_my_data.F 44 CPL_EXPORT_MY_DATA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ocn_compon_interf/cpl_export_my_data.F 47 CPL_EXPORT_MY_DATA 
     I           myTime, myIter, bi,bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 100 CPL_INI_VARS 
         CALL TIMEAVE_RESET( FWtave ,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 101 CPL_INI_VARS 
         CALL TIMEAVE_RESET( SFxtave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 102 CPL_INI_VARS 
         CALL TIMEAVE_RESET( SICtave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 103 CPL_INI_VARS 
         CALL TIMEAVE_RESET( MXLtave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 104 CPL_INI_VARS 
         CALL TIMEAVE_RESET( SSTtave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 105 CPL_INI_VARS 
         CALL TIMEAVE_RESET( SSStave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 106 CPL_INI_VARS 
         CALL TIMEAVE_RESET( vSqtave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 107 CPL_INI_VARS 
         CALL TIMEAVE_RESET( aCO2tave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 108 CPL_INI_VARS 
         CALL TIMEAVE_RESET( sWSpdtave,1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 109 CPL_INI_VARS 
         CALL TIMEAVE_RESET( iceftave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 110 CPL_INI_VARS 
         CALL TIMEAVE_RESET( fCO2tave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 112 CPL_INI_VARS 
         CPL_timeAve(bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 46 CPL_INI_VARS 
      INTEGER I,J,bi,bj
./pkg/ocn_compon_interf/cpl_ini_vars.F 48 CPL_INI_VARS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ocn_compon_interf/cpl_ini_vars.F 53 CPL_INI_VARS 
          ocMxlD2cpl(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 54 CPL_INI_VARS 
          SSTocn2cpl(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 55 CPL_INI_VARS 
          SSSocn2cpl(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 56 CPL_INI_VARS 
          vSqocn2cpl(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 57 CPL_INI_VARS 
          fluxCO2cpl(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 59 CPL_INI_VARS 
          atmSLPr   (I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 60 CPL_INI_VARS 
          HeatFlux  (I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 61 CPL_INI_VARS 
          qShortWave(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 67 CPL_INI_VARS 
          tauX      (I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 68 CPL_INI_VARS 
          tauY      (I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 69 CPL_INI_VARS 
          FWflux    (I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 70 CPL_INI_VARS 
          iceSaltFlx(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 71 CPL_INI_VARS 
          seaIceMass(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 72 CPL_INI_VARS 
          airCO2    (I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 73 CPL_INI_VARS 
          surfWSpeed(I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 74 CPL_INI_VARS 
          fracIce   (I,J,bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_ini_vars.F 88 CPL_INI_VARS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ocn_compon_interf/cpl_ini_vars.F 90 CPL_INI_VARS 
         CALL TIMEAVE_RESET( SLPtave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 91 CPL_INI_VARS 
         CALL TIMEAVE_RESET( HFtave ,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 92 CPL_INI_VARS 
         CALL TIMEAVE_RESET( QSWtave,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 98 CPL_INI_VARS 
         CALL TIMEAVE_RESET( TXtave ,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_ini_vars.F 99 CPL_INI_VARS 
         CALL TIMEAVE_RESET( TYtave ,  1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 164 CPL_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ocn_compon_interf/cpl_output.F 166 CPL_OUTPUT 
            CALL TIMEAVE_RESET( SLPtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 167 CPL_OUTPUT 
            CALL TIMEAVE_RESET( HFtave , 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 168 CPL_OUTPUT 
            CALL TIMEAVE_RESET( QSWtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 174 CPL_OUTPUT 
            CALL TIMEAVE_RESET( TXtave , 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 175 CPL_OUTPUT 
            CALL TIMEAVE_RESET( TYtave , 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 176 CPL_OUTPUT 
            CALL TIMEAVE_RESET( FWtave , 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 177 CPL_OUTPUT 
            CALL TIMEAVE_RESET( SFxtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 178 CPL_OUTPUT 
            CALL TIMEAVE_RESET( SICtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 179 CPL_OUTPUT 
            CALL TIMEAVE_RESET( MXLtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 180 CPL_OUTPUT 
            CALL TIMEAVE_RESET( SSTtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 181 CPL_OUTPUT 
            CALL TIMEAVE_RESET( SSStave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 182 CPL_OUTPUT 
            CALL TIMEAVE_RESET( vSqtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 184 CPL_OUTPUT 
              CALL TIMEAVE_RESET( aCO2tave , 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 185 CPL_OUTPUT 
              CALL TIMEAVE_RESET( sWSpdtave, 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 186 CPL_OUTPUT 
              CALL TIMEAVE_RESET( iceftave , 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 187 CPL_OUTPUT 
              CALL TIMEAVE_RESET( fCO2tave , 1, bi, bj, myThid )
./pkg/ocn_compon_interf/cpl_output.F 189 CPL_OUTPUT 
            CPL_timeAve(bi,bj) = 0.
./pkg/ocn_compon_interf/cpl_output.F 53 CPL_OUTPUT 
      INTEGER bi,bj
./pkg/ocn_compon_interf/cpl_output.F 65 CPL_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ocn_compon_interf/cpl_output.F 67 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(SLPtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 68 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(HFtave ,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 69 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(QSWtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 75 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(TXtave ,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 76 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(TYtave ,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 77 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(FWtave ,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 78 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(SFxtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 79 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(SICtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 80 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(MXLtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 81 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(SSTtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 82 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(SSStave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 83 CPL_OUTPUT 
          CALL TIMEAVE_NORMALIZE(vSqtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 85 CPL_OUTPUT 
           CALL TIMEAVE_NORMALIZE(aCO2tave, CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 86 CPL_OUTPUT 
           CALL TIMEAVE_NORMALIZE(sWSpdtave,CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 87 CPL_OUTPUT 
           CALL TIMEAVE_NORMALIZE(iceftave, CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_output.F 88 CPL_OUTPUT 
           CALL TIMEAVE_NORMALIZE(fCO2tave, CPL_timeAve,1,bi,bj,myThid)
./pkg/ocn_compon_interf/cpl_register.F 49 CPL_REGISTER 
      INTEGER bi, bj
./pkg/ocn_compon_interf/cpl_register.F 58 CPL_REGISTER 
      DO bj=1,nSy
./pkg/ocn_compon_interf/cpl_register.F 62 CPL_REGISTER 
        jG0 = myYGlobalLo+(bj-1)*sNy
./pkg/ocn_compon_interf/cpl_register.F 65 CPL_REGISTER 
          tN = W2_myTileList(bi,bj)
./pkg/ocn_compon_interf/cpl_register.F 71 CPL_REGISTER 
        iReg(2,j) = bj
./model/src/convectively_mixtracer.F 10 CONVECTIVELY_MIXTRACER 
     I                              bi, bj, k, weightA, weightB,
./model/src/convectively_mixtracer.F 31 CONVECTIVELY_MIXTRACER 
      INTEGER bi,bj,k
./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 52 CONVECTIVELY_MIXTRACER 
        Tracer(i,j,k,bi,bj)=Tracer(i,j,k,bi,bj)
./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 111 OCN_APPLY_IMPORT 
             Qsw(i,j,bi,bj) = qShortWave(i,j,bi,bj)
./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 129 OCN_APPLY_IMPORT 
             AtmospCO2(i,j,bi,bj)= airCO2(i,j,bi,bj)
./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 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 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 162 OCN_APPLY_IMPORT 
              phi0surf(i,j,bi,bj) = atmSLPr(i,j,bi,bj)*recip_rhoConst
./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 55 OCN_APPLY_IMPORT 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 73 OCN_APPLY_IMPORT 
              pLoad(i,j,bi,bj) = atmSLPr(i,j,bi,bj)
./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 89 OCN_APPLY_IMPORT 
              EmPmR(i,j,bi,bj) = FWFlux    (i,j,bi,bj)
./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 109 OCN_CPL_DIAGS 
         CPL_timeAve(bi,bj) = CPL_timeAve(bi,bj)+DDTT
./pkg/ocn_compon_interf/ocn_cpl_diags.F 45 OCN_CPL_DIAGS 
      INTEGER bi, bj
./pkg/ocn_compon_interf/ocn_cpl_diags.F 55 OCN_CPL_DIAGS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 61 OCN_CPL_DIAGS 
            SLPtave(i,j,bi,bj)  = SLPtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 62 OCN_CPL_DIAGS 
     &                   + DDTT * atmSLPr(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 63 OCN_CPL_DIAGS 
            HFtave(i,j,bi,bj)   = HFtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 64 OCN_CPL_DIAGS 
     &                   + DDTT * HeatFlux(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 65 OCN_CPL_DIAGS 
            QSWtave(i,j,bi,bj)  = QSWtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 66 OCN_CPL_DIAGS 
     &                   + DDTT * qShortWave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 77 OCN_CPL_DIAGS 
            TXtave(i,j,bi,bj)   = TXtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 78 OCN_CPL_DIAGS 
     &                   + DDTT * tauX(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 79 OCN_CPL_DIAGS 
            TYtave(i,j,bi,bj)   = TYtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 80 OCN_CPL_DIAGS 
     &                   + DDTT * tauY(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 81 OCN_CPL_DIAGS 
            FWtave(i,j,bi,bj)   = FWtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 82 OCN_CPL_DIAGS 
     &                   + DDTT * FWFlux(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 83 OCN_CPL_DIAGS 
            SFxtave(i,j,bi,bj)  = SFxtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 84 OCN_CPL_DIAGS 
     &                   + DDTT * iceSaltFlx(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 85 OCN_CPL_DIAGS 
            SICtave(i,j,bi,bj)  = SICtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 86 OCN_CPL_DIAGS 
     &                   + DDTT * seaIceMass(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 87 OCN_CPL_DIAGS 
            MXLtave(i,j,bi,bj)  = MXLtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 88 OCN_CPL_DIAGS 
     &                   + DDTT * ocMxlD2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 89 OCN_CPL_DIAGS 
            SSTtave(i,j,bi,bj)  = SSTtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 90 OCN_CPL_DIAGS 
     &                   + DDTT * SSTocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 91 OCN_CPL_DIAGS 
            SSStave(i,j,bi,bj)  = SSStave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 92 OCN_CPL_DIAGS 
     &                   + DDTT * SSSocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 93 OCN_CPL_DIAGS 
            vSqtave(i,j,bi,bj)  = vSqtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 94 OCN_CPL_DIAGS 
     &                   + DDTT * vSqocn2cpl(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 96 OCN_CPL_DIAGS 
            aCO2tave(i,j,bi,bj)  = aCO2tave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 97 OCN_CPL_DIAGS 
     &                    + DDTT * airCO2(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 98 OCN_CPL_DIAGS 
            sWSpdtave(i,j,bi,bj) = sWSpdtave(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_cpl_diags.F 99 OCN_CPL_DIAGS 
     &                    + DDTT * surfWSpeed(i,j,bi,bj)
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F 37 OCN_EXPORT_OCNCONFIG 
      INTEGER i,j,bi,bj
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F 41 OCN_EXPORT_OCNCONFIG 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F 45 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 47 OCN_STORE_MY_DATA 
      INTEGER bi,bj
./pkg/ocn_compon_interf/ocn_store_my_data.F 61 OCN_STORE_MY_DATA 
          SSTocn2cpl(i,j,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 62 OCN_STORE_MY_DATA 
          SSSocn2cpl(i,j,bi,bj) = salt (i,j,1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 70 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) =
./pkg/ocn_compon_interf/ocn_store_my_data.F 71 OCN_STORE_MY_DATA 
     &          h0FacC(i,j,1,bi,bj)*rStarFacC(i,j,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 77 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 87 OCN_STORE_MY_DATA 
           ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1)
./pkg/ocn_compon_interf/ocn_store_my_data.F 94 OCN_STORE_MY_DATA 
          vSqocn2cpl(i,j,bi,bj) =
./pkg/ocn_compon_interf/ocn_store_my_data.F 95 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 96 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 97 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 98 OCN_STORE_MY_DATA 
     &              + vVel(i,j , 1,bi,bj)*vVel(i,j , 1,bi,bj)
./pkg/ocn_compon_interf/ocn_store_my_data.F 9 OCN_STORE_MY_DATA 
     I                     myTime, myIter, bi,bj, myThid )
./model/src/correction_step.F 10 CORRECTION_STEP 
      SUBROUTINE CORRECTION_STEP( bi, bj, iMin, iMax, jMin, jMax,
./model/src/correction_step.F 43 CORRECTION_STEP 
      INTEGER bi,bj
./model/src/correction_step.F 70 CORRECTION_STEP 
        uVel(i,j,k,bi,bj)=( gU(i,j,k,bi,bj)
./model/src/correction_step.F 73 CORRECTION_STEP 
     &       -deltaTmom*nhFac*_recip_dxC(i,j,bi,bj)
./model/src/correction_step.F 74 CORRECTION_STEP 
     &         *(phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/correction_step.F 76 CORRECTION_STEP 
     &                    )*_maskW(i,j,k,bi,bj)
./model/src/correction_step.F 78 CORRECTION_STEP 
     &                     *maskInW(i,j,bi,bj)
./model/src/correction_step.F 86 CORRECTION_STEP 
        vVel(i,j,k,bi,bj)=( gV(i,j,k,bi,bj)
./model/src/correction_step.F 89 CORRECTION_STEP 
     &       -deltaTmom*nhFac*_recip_dyC(i,j,bi,bj)
./model/src/correction_step.F 90 CORRECTION_STEP 
     &         *(phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/correction_step.F 92 CORRECTION_STEP 
     &                    )*_maskS(i,j,k,bi,bj)
./model/src/correction_step.F 94 CORRECTION_STEP 
     &                     *maskInS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 104 OFFLINE_FIELDS_LOAD 
     &   ' : iP,iLd,i0,i1=', intimeP, offlineLdRec(bi,bj),
./pkg/offline/offline_fields_load.F 120 OFFLINE_FIELDS_LOAD 
      IF ( intime1.NE.offlineLdRec(bi,bj) ) THEN
./pkg/offline/offline_fields_load.F 138 OFFLINE_FIELDS_LOAD 
     &    ' (prev=', intimeP, offlineLdRec(bi,bj), ' )'
./pkg/offline/offline_fields_load.F 343 OFFLINE_FIELDS_LOAD 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/offline/offline_fields_load.F 345 OFFLINE_FIELDS_LOAD 
           offlineLdRec(bi,bj) = intime1
./pkg/offline/offline_fields_load.F 353 OFFLINE_FIELDS_LOAD 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/offline/offline_fields_load.F 355 OFFLINE_FIELDS_LOAD 
        offline_Wght(1,bi,bj) = bWght
./pkg/offline/offline_fields_load.F 356 OFFLINE_FIELDS_LOAD 
        offline_Wght(2,bi,bj) = aWght
./pkg/offline/offline_fields_load.F 360 OFFLINE_FIELDS_LOAD 
           uVel(i,j,k,bi,bj) = bWght*uvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 361 OFFLINE_FIELDS_LOAD 
     &                       + aWght*uvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 362 OFFLINE_FIELDS_LOAD 
           vVel(i,j,k,bi,bj) = bWght*vvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 363 OFFLINE_FIELDS_LOAD 
     &                       + aWght*vvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 364 OFFLINE_FIELDS_LOAD 
           wVel(i,j,k,bi,bj) = bWght*wvel0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 365 OFFLINE_FIELDS_LOAD 
     &                       + aWght*wvel1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 366 OFFLINE_FIELDS_LOAD 
           theta(i,j,k,bi,bj)= bWght*tave0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 367 OFFLINE_FIELDS_LOAD 
     &                       + aWght*tave1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 368 OFFLINE_FIELDS_LOAD 
           salt(i,j,k,bi,bj) = bWght*save0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 369 OFFLINE_FIELDS_LOAD 
     &                       + aWght*save1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 371 OFFLINE_FIELDS_LOAD 
           Kwx(i,j,k,bi,bj)  = bWght*gmkx0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 372 OFFLINE_FIELDS_LOAD 
     &                       + aWght*gmkx1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 373 OFFLINE_FIELDS_LOAD 
           Kwy(i,j,k,bi,bj)  = bWght*gmky0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 374 OFFLINE_FIELDS_LOAD 
     &                       + aWght*gmky1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 375 OFFLINE_FIELDS_LOAD 
           Kwz(i,j,k,bi,bj)  = bWght*gmkz0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 376 OFFLINE_FIELDS_LOAD 
     &                       + aWght*gmkz1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 380 OFFLINE_FIELDS_LOAD 
           IVDConvCount(i,j,k,bi,bj) = bWght*conv0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 381 OFFLINE_FIELDS_LOAD 
     &                               + aWght*conv1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 383 OFFLINE_FIELDS_LOAD 
           KPPdiffKzS(i,j,k,bi,bj) = bWght*kdfs0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 384 OFFLINE_FIELDS_LOAD 
     &                             + aWght*kdfs1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 387 OFFLINE_FIELDS_LOAD 
           KPPghat(i,j,k,bi,bj) = bWght*kght0(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 388 OFFLINE_FIELDS_LOAD 
     &                          + aWght*kght1(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 398 OFFLINE_FIELDS_LOAD 
            uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 399 OFFLINE_FIELDS_LOAD 
     &                        / rStarFacW(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 400 OFFLINE_FIELDS_LOAD 
            vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 401 OFFLINE_FIELDS_LOAD 
     &                        / rStarFacS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 409 OFFLINE_FIELDS_LOAD 
            uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 410 OFFLINE_FIELDS_LOAD 
     &                        / rStarFacNm1W(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 411 OFFLINE_FIELDS_LOAD 
            vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/offline/offline_fields_load.F 412 OFFLINE_FIELDS_LOAD 
     &                        / rStarFacNm1S(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 426 OFFLINE_FIELDS_LOAD 
           surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 427 OFFLINE_FIELDS_LOAD 
     &                                + aWght*sflx1(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 428 OFFLINE_FIELDS_LOAD 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/offline/offline_fields_load.F 73 OFFLINE_FIELDS_LOAD 
      INTEGER bi,bj,i,j,k
./pkg/offline/offline_fields_load.F 98 OFFLINE_FIELDS_LOAD 
      bj = myByLo(myThid)
./pkg/offline/offline_get_surfforcing.F 50 OFFLINE_GET_SURFFORCING 
      INTEGER bi,bj,i,j
./pkg/offline/offline_get_surfforcing.F 56 OFFLINE_GET_SURFFORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/offline/offline_get_surfforcing.F 58 OFFLINE_GET_SURFFORCING 
        bWght = offline_Wght(1,bi,bj)
./pkg/offline/offline_get_surfforcing.F 59 OFFLINE_GET_SURFFORCING 
        aWght = offline_Wght(2,bi,bj)
./pkg/offline/offline_get_surfforcing.F 66 OFFLINE_GET_SURFFORCING 
          surfaceForcingS(i,j,bi,bj) = bWght*sflx0(i,j,bi,bj)
./pkg/offline/offline_get_surfforcing.F 67 OFFLINE_GET_SURFFORCING 
     &                               + aWght*sflx1(i,j,bi,bj)
./pkg/offline/offline_get_surfforcing.F 68 OFFLINE_GET_SURFFORCING 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/offline/offline_init_varia.F 27 OFFLINE_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/offline/offline_init_varia.F 29 OFFLINE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/offline/offline_init_varia.F 31 OFFLINE_INIT_VARIA 
         offlineLdRec(bi,bj) = 0
./pkg/offline/offline_init_varia.F 32 OFFLINE_INIT_VARIA 
         offline_Wght(1,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 33 OFFLINE_INIT_VARIA 
         offline_Wght(2,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 
             uvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 39 OFFLINE_INIT_VARIA 
             vvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 40 OFFLINE_INIT_VARIA 
             vvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 41 OFFLINE_INIT_VARIA 
             wvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 42 OFFLINE_INIT_VARIA 
             wvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 43 OFFLINE_INIT_VARIA 
             tave0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 44 OFFLINE_INIT_VARIA 
             tave1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 45 OFFLINE_INIT_VARIA 
             save0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 46 OFFLINE_INIT_VARIA 
             save1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 47 OFFLINE_INIT_VARIA 
             gmkx0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 48 OFFLINE_INIT_VARIA 
             gmkx1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 49 OFFLINE_INIT_VARIA 
             gmky0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 50 OFFLINE_INIT_VARIA 
             gmky1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 51 OFFLINE_INIT_VARIA 
             gmkz0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 52 OFFLINE_INIT_VARIA 
             gmkz1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 53 OFFLINE_INIT_VARIA 
             conv0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 54 OFFLINE_INIT_VARIA 
             conv1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 55 OFFLINE_INIT_VARIA 
             kdfs0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 56 OFFLINE_INIT_VARIA 
             kdfs1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 57 OFFLINE_INIT_VARIA 
             kght0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 58 OFFLINE_INIT_VARIA 
             kght1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 66 OFFLINE_INIT_VARIA 
             sflx0(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 67 OFFLINE_INIT_VARIA 
             sflx1(i,j,bi,bj) = 0. _d 0
./model/src/cycle_ab_tracer.F 10 CYCLE_AB_TRACER 
     I                   bi, bj,
./model/src/cycle_ab_tracer.F 37 CYCLE_AB_TRACER 
      INTEGER bi,bj
./model/src/cycle_tracer.F 10 CYCLE_TRACER 
     I                   bi, bj,
./model/src/cycle_tracer.F 33 CYCLE_TRACER 
      INTEGER bi,bj
./pkg/opps/opps_calc.F 139 OPPS_CALC 
       Dd(k)=STATE1(Pd(k,2),Pd(k,1),i,j,k,bi,bj,myThid)
./pkg/opps/opps_calc.F 177 OPPS_CALC 
        D1=STATE1( Pd(k2,2), Pd(k2,1),i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F 179 OPPS_CALC 
     &                                i,j,k2+1,bi,bj,myThid)
./pkg/opps/opps_calc.F 22 OPPS_CALC 
     I     I, J, bi, bj, myTime, myIter, myThid )
./pkg/opps/opps_calc.F 233 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 420 OPPS_CALC 
       OPPSconvectCount(I,J,K,bi,bj) =
./pkg/opps/opps_calc.F 421 OPPS_CALC 
     &      OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0
./pkg/opps/opps_calc.F 440 OPPS_CALC 
      _RL FUNCTION STATE1( sLoc, tLoc, i, j, kRef, bi, bj, myThid )
./pkg/opps/opps_calc.F 463 OPPS_CALC 
      INTEGER i, j, kRef, bi, bj, myThid
./pkg/opps/opps_calc.F 483 OPPS_CALC 
        pLoc = rhoConst*( totPhiHyd(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 485 OPPS_CALC 
     &                   )*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 487 OPPS_CALC 
        pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 492 OPPS_CALC 
       pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj)
./pkg/opps/opps_calc.F 81 OPPS_CALC 
      INTEGER I, J, bi, bj, KMax, nTracer, nTracerInUse
./pkg/opps/opps_init.F 31 OPPS_INIT 
      INTEGER i, j, k, bi, bj
./pkg/opps/opps_init.F 37 OPPS_INIT 
      do bj = myByLo(myThid), myByHi(myThid)
./pkg/opps/opps_init.F 42 OPPS_INIT 
           OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0
./pkg/opps/opps_interface.F 105 OPPS_INTERFACE 
        IF ( kSurfC(I,J,bi,bj) .LE. Nr ) THEN
./pkg/opps/opps_interface.F 108 OPPS_INTERFACE 
           tracerLoc(K,1) = theta(I,J,K,bi,bj)
./pkg/opps/opps_interface.F 109 OPPS_INTERFACE 
           tracerLoc(K,2)  = salt(I,J,K,bi,bj)
./pkg/opps/opps_interface.F 10 OPPS_INTERFACE 
     I       bi, bj, iMin, iMax, jMin, jMax,
./pkg/opps/opps_interface.F 110 OPPS_INTERFACE 
           wVelLoc(K)  = wVel(I,J,K,bi,bj)
./pkg/opps/opps_interface.F 114 OPPS_INTERFACE 
           tracerLoc(K,1) = theta(I,J,K,bi,bj)
./pkg/opps/opps_interface.F 115 OPPS_INTERFACE 
           tracerLoc(K,2)  = salt(I,J,K,bi,bj)
./pkg/opps/opps_interface.F 122 OPPS_INTERFACE 
           tracerLoc(K,itr) = ptracer(I,J,K,bi,bj,itr-2)
./pkg/opps/opps_interface.F 141 OPPS_INTERFACE 
         kMax = kLowC(I,J,bi,bj)
./pkg/opps/opps_interface.F 145 OPPS_INTERFACE 
     I        I,J,bi,bj,myTime,myIter,myThid)
./pkg/opps/opps_interface.F 172 OPPS_INTERFACE 
          theta(I,J,K,bi,bj) = tracerLoc(K,1)
./pkg/opps/opps_interface.F 173 OPPS_INTERFACE 
          salt(I,J,K,bi,bj)  = tracerLoc(K,2)
./pkg/opps/opps_interface.F 178 OPPS_INTERFACE 
           ptracer(I,J,K,bi,bj,itr-2) = tracerLoc(K,itr)
./pkg/opps/opps_interface.F 52 OPPS_INTERFACE 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/opps/opps_interface.F 97 OPPS_INTERFACE 
         OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0
./pkg/opps/opps_output.F 102 OPPS_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/opps/opps_output.F 104 OPPS_OUTPUT 
          CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid )
./pkg/opps/opps_output.F 105 OPPS_OUTPUT 
          OPPS_timeAve(bi,bj) = 0.
./pkg/opps/opps_output.F 112 OPPS_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/opps/opps_output.F 115 OPPS_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/opps/opps_output.F 117 OPPS_OUTPUT 
          OPPS_timeAve(bi,bj) = OPPS_timeAve(bi,bj)+DDTT
./pkg/opps/opps_output.F 128 OPPS_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/opps/opps_output.F 131 OPPS_OUTPUT 
     &                            OPPS_timeAve, Nr, bi, bj, myThid )
./pkg/opps/opps_output.F 141 OPPS_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/opps/opps_output.F 143 OPPS_OUTPUT 
          CALL TIMEAVE_RESET( OPPSconvCountTave, Nr, bi, bj, myThid )
./pkg/opps/opps_output.F 144 OPPS_OUTPUT 
          OPPS_timeAve(bi,bj) = 0.
./pkg/opps/opps_output.F 69 OPPS_OUTPUT 
      INTEGER bi, bj
./model/src/diags_oceanic_surf_flux.F 117 DIAGS_OCEANIC_SURF_FLUX 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/diags_oceanic_surf_flux.F 121 DIAGS_OCEANIC_SURF_FLUX 
           tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F 123 DIAGS_OCEANIC_SURF_FLUX 
     &      -Qsw(i,j,bi,bj)+
./model/src/diags_oceanic_surf_flux.F 125 DIAGS_OCEANIC_SURF_FLUX 
     &      (surfaceForcingT(i,j,bi,bj)+surfaceForcingTice(i,j,bi,bj))
./model/src/diags_oceanic_surf_flux.F 134 DIAGS_OCEANIC_SURF_FLUX 
            tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 135 DIAGS_OCEANIC_SURF_FLUX 
     &       + PmEpR(i,j,bi,bj)*theta(i,j,ks,bi,bj)*HeatCapacity_Cp
./model/src/diags_oceanic_surf_flux.F 153 DIAGS_OCEANIC_SURF_FLUX 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/diags_oceanic_surf_flux.F 157 DIAGS_OCEANIC_SURF_FLUX 
           tmp1k(i,j,bi,bj) =
./model/src/diags_oceanic_surf_flux.F 158 DIAGS_OCEANIC_SURF_FLUX 
     &      surfaceForcingS(i,j,bi,bj)*rUnit2mass
./model/src/diags_oceanic_surf_flux.F 167 DIAGS_OCEANIC_SURF_FLUX 
            tmp1k(i,j,bi,bj) = tmp1k(i,j,bi,bj)
./model/src/diags_oceanic_surf_flux.F 168 DIAGS_OCEANIC_SURF_FLUX 
     &       + PmEpR(i,j,bi,bj)*salt(i,j,ks,bi,bj)
./model/src/diags_oceanic_surf_flux.F 49 DIAGS_OCEANIC_SURF_FLUX 
      INTEGER i,j,bi,bj
./pkg/pp81/pp81_calc.F 107 PP81_CALC 
         PPviscAr(I,J,K,bi,bj) = PPviscAr(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 108 PP81_CALC 
     &        * maskC(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 109 PP81_CALC 
         PPdiffKr(I,J,K,bi,bj) = PPdiffKr(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 110 PP81_CALC 
     &        * maskC(I,J,K,bi,bj)
./pkg/pp81/pp81_calc.F 11 PP81_CALC 
     I                bi, bj, sigmaR, myTime, myIter, myThid )
./pkg/pp81/pp81_calc.F 46 PP81_CALC 
      INTEGER bi, bj
./pkg/pp81/pp81_calc.F 69 PP81_CALC 
     I      bi, bj, K, iMin, iMax, jMin, jMax,
./pkg/pp81/pp81_calc.F 82 PP81_CALC 
         PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscArNr(k))
./pkg/pp81/pp81_calc.F 83 PP81_CALC 
         PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom,
./pkg/pp81/pp81_calc.F 98 PP81_CALC 
          PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj))
./pkg/pp81/pp81_calc.F 99 PP81_CALC 
          PPdiffKr(I,J,K,bi,bj) = MAX(PPdiffMin,PPdiffKr(I,J,K,bi,bj))
./pkg/pp81/pp81_calc_diff.F 37 PP81_CALC_DIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,kArg,kSize
./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 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_diff.F 7 PP81_CALC_DIFF 
     I        bi,bj,iMin,iMax,jMin,jMax,kArg,kSize,
./pkg/pp81/pp81_calc_visc.F 31 PP81_CALC_VISC 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,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 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_calc_visc.F 6 PP81_CALC_VISC 
     I        bi,bj,iMin,iMax,jMin,jMax,k,
./pkg/pp81/pp81_init_varia.F 31 PP81_INIT_VARIA 
      INTEGER i, j, k, bi, bj
./pkg/pp81/pp81_init_varia.F 37 PP81_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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/diags_phi_hyd.F 100 DIAGS_PHI_HYD 
           dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst
./model/src/diags_phi_hyd.F 101 DIAGS_PHI_HYD 
           totPhiHyd(i,j,k,bi,bj) =
./model/src/diags_phi_hyd.F 102 DIAGS_PHI_HYD 
     &              phiHydC(i,j)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_hyd.F 104 DIAGS_PHI_HYD 
     &                *( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_hyd.F 105 DIAGS_PHI_HYD 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F 112 DIAGS_PHI_HYD 
           dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity
./model/src/diags_phi_hyd.F 113 DIAGS_PHI_HYD 
           totPhiHyd(i,j,k,bi,bj) =
./model/src/diags_phi_hyd.F 114 DIAGS_PHI_HYD 
     &              phiHydC(i,j)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_hyd.F 116 DIAGS_PHI_HYD 
     &                *( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_hyd.F 117 DIAGS_PHI_HYD 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F 11 DIAGS_PHI_HYD 
     I                       k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/diags_phi_hyd.F 125 DIAGS_PHI_HYD 
        CALL DIAGNOSTICS_FILL(phiHydCstR,'PHIHYDcR',k,1,2,bi,bj,myThid)
./model/src/diags_phi_hyd.F 44 DIAGS_PHI_HYD 
      INTEGER k, bi,bj, iMin,iMax, jMin,jMax
./model/src/diags_phi_hyd.F 65 DIAGS_PHI_HYD 
           totPhiHyd(i,j,k,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_hyd.F 66 DIAGS_PHI_HYD 
     &            + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/diags_phi_hyd.F 67 DIAGS_PHI_HYD 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F 69 DIAGS_PHI_HYD 
           phiHydCstR(i,j) = totPhiHyd(i,j,k,bi,bj)
./model/src/diags_phi_hyd.F 83 DIAGS_PHI_HYD 
           facP = pStarFacK(i,j,bi,bj)
./model/src/diags_phi_hyd.F 84 DIAGS_PHI_HYD 
           dPhiRef = phiRef(2*k) - gravity*topoZ(i,j,bi,bj)
./model/src/diags_phi_hyd.F 85 DIAGS_PHI_HYD 
     &                           - phi0surf(i,j,bi,bj)
./model/src/diags_phi_hyd.F 86 DIAGS_PHI_HYD 
           totPhiHyd(i,j,k,bi,bj) =
./model/src/diags_phi_hyd.F 89 DIAGS_PHI_HYD 
     &            + phi0surf(i,j,bi,bj)
./pkg/pp81/pp81_output.F 102 PP81_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_output.F 104 PP81_OUTPUT 
          CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid )
./pkg/pp81/pp81_output.F 105 PP81_OUTPUT 
          CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid )
./pkg/pp81/pp81_output.F 106 PP81_OUTPUT 
          PP_timeAve(bi,bj) = 0.
./pkg/pp81/pp81_output.F 113 PP81_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_output.F 116 PP81_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/pp81/pp81_output.F 118 PP81_OUTPUT 
     &                           Nr, DDTT, bi, bj, myThid )
./pkg/pp81/pp81_output.F 120 PP81_OUTPUT 
          PP_timeAve(bi,bj) = PP_timeAve(bi,bj)+DDTT
./pkg/pp81/pp81_output.F 131 PP81_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_output.F 134 PP81_OUTPUT 
     &                            PP_timeAve, Nr, bi, bj, myThid )
./pkg/pp81/pp81_output.F 136 PP81_OUTPUT 
     &                            PP_timeAve, Nr, bi, bj, myThid )
./pkg/pp81/pp81_output.F 148 PP81_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/pp81/pp81_output.F 150 PP81_OUTPUT 
          CALL TIMEAVE_RESET( PPviscArtave, Nr, bi, bj, myThid )
./pkg/pp81/pp81_output.F 151 PP81_OUTPUT 
          CALL TIMEAVE_RESET( PPdiffKrtave, Nr, bi, bj, myThid )
./pkg/pp81/pp81_output.F 152 PP81_OUTPUT 
          PP_timeAve(bi,bj) = 0.
./pkg/pp81/pp81_output.F 69 PP81_OUTPUT 
      INTEGER bi, bj
./pkg/pp81/pp81_ri_number.F 100 PP81_RI_NUMBER 
     I     theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj),
./pkg/pp81/pp81_ri_number.F 102 PP81_RI_NUMBER 
     I     K, bi, bj, myThid )
./pkg/pp81/pp81_ri_number.F 108 PP81_RI_NUMBER 
        tempu= .5*(  uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj)
./pkg/pp81/pp81_ri_number.F 109 PP81_RI_NUMBER 
     &            - (uVel(I,J,K  ,bi,bj)+uVel(I+1,J,K  ,bi,bj)) )
./pkg/pp81/pp81_ri_number.F 111 PP81_RI_NUMBER 
        tempv= .5*(  vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj)
./pkg/pp81/pp81_ri_number.F 112 PP81_RI_NUMBER 
     &            - (vVel(I,J,K  ,bi,bj)+vVel(I,J+1,K  ,bi,bj)) )
./pkg/pp81/pp81_ri_number.F 11 PP81_RI_NUMBER 
     I     bi, bj, K, iMin, iMax, jMin, jMax,
./pkg/pp81/pp81_ri_number.F 47 PP81_RI_NUMBER 
      INTEGER bi, bj, iMin, iMax, jMin, jMax, k
./pkg/pp81/pp81_ri_number.F 95 PP81_RI_NUMBER 
     I     theta(1-OLx,1-OLy,Km1,bi,bj), salt(1-OLx,1-OLy,Km1,bi,bj),
./pkg/pp81/pp81_ri_number.F 97 PP81_RI_NUMBER 
     I     Km1, bi, bj, myThid )
./pkg/profiles/active_file_control_profiles.F 100 ACTIVE_READ_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+2 )
./pkg/profiles/active_file_control_profiles.F 106 ACTIVE_READ_PROFILE_RL 
      prof_mask1D_cur(ivar,bi,bj)=vec_tmp(ivar)
./pkg/profiles/active_file_control_profiles.F 156 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 157 ACTIVE_READ_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 178 ACTIVE_READ_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 179 ACTIVE_READ_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 214 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 215 ACTIVE_READ_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 250 ACTIVE_WRITE_PROFILE_RL 
     I                                 bj,
./pkg/profiles/active_file_control_profiles.F 26 ACTIVE_READ_PROFILE_RL 
     I                                bj,
./pkg/profiles/active_file_control_profiles.F 278 ACTIVE_WRITE_PROFILE_RL 
      integer  bi,bj,mythid
./pkg/profiles/active_file_control_profiles.F 314 ACTIVE_WRITE_PROFILE_RL 
     & prof_mask1D_cur(1,bi,bj))
./pkg/profiles/active_file_control_profiles.F 330 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 331 ACTIVE_WRITE_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 334 ACTIVE_WRITE_PROFILE_RL 
      vec_tmp(ivar)=prof_mask1D_cur(ivar,bi,bj)
./pkg/profiles/active_file_control_profiles.F 340 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 341 ACTIVE_WRITE_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+2 )
./pkg/profiles/active_file_control_profiles.F 387 ACTIVE_WRITE_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 388 ACTIVE_WRITE_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 410 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 411 ACTIVE_WRITE_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 450 ACTIVE_WRITE_PROFILE_RL 
      write(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 451 ACTIVE_WRITE_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 56 ACTIVE_READ_PROFILE_RL 
      integer  bi,bj,mythid
./pkg/profiles/active_file_control_profiles.F 86 ACTIVE_READ_PROFILE_RL 
     & prof_mask1D_cur(1,bi,bj))
./pkg/profiles/active_file_control_profiles.F 90 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_control_profiles.F 91 ACTIVE_READ_PROFILE_RL 
     & +prof_num_var_cur(active_num_file,active_varnum,bi,bj)-1)*2+1 )
./pkg/profiles/active_file_control_profiles.F 99 ACTIVE_READ_PROFILE_RL 
      read(fid,rec=( (irec-1)*prof_num_var_tot(active_num_file,bi,bj)
./pkg/profiles/active_file_profiles.F 131 ACTIVE_WRITE_PROFILE 
      integer  bi,bj,mythid
./pkg/profiles/active_file_profiles.F 136 ACTIVE_WRITE_PROFILE 
      call ACTIVE_WRITE_PROFILE_RL( fidforward(active_num_file,bi,bj),
./pkg/profiles/active_file_profiles.F 139 ACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles.F 140 ACTIVE_WRITE_PROFILE 
     &     FORWARD_SIMULATION, myOptimIter,bi,bj, mythid)
./pkg/profiles/active_file_profiles.F 33 ACTIVE_READ_PROFILE 
     I                           bj,
./pkg/profiles/active_file_profiles.F 66 ACTIVE_READ_PROFILE 
      integer  bi,bj,mythid
./pkg/profiles/active_file_profiles.F 72 ACTIVE_READ_PROFILE 
      call ACTIVE_READ_PROFILE_RL( fidforward(active_num_file,bi,bj),
./pkg/profiles/active_file_profiles.F 75 ACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles.F 76 ACTIVE_READ_PROFILE 
     &     FORWARD_SIMULATION, myOptimIter,bi,bj, mythid)
./pkg/profiles/active_file_profiles.F 97 ACTIVE_WRITE_PROFILE 
     I                           bj,
./pkg/profiles/active_file_profiles_ad.F 128 ADACTIVE_WRITE_PROFILE 
      integer  bi,bj,mythid
./pkg/profiles/active_file_profiles_ad.F 136 ADACTIVE_WRITE_PROFILE 
      call ACTIVE_WRITE_PROFILE_RL( fidadjoint(active_num_file,bi,bj) ,
./pkg/profiles/active_file_profiles_ad.F 139 ADACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_ad.F 140 ADACTIVE_WRITE_PROFILE 
     &     REVERSE_SIMULATION, myiter,bi,bj, mythid)
./pkg/profiles/active_file_profiles_ad.F 30 ADACTIVE_READ_PROFILE 
     I                              bj,
./pkg/profiles/active_file_profiles_ad.F 64 ADACTIVE_READ_PROFILE 
      integer  bi,bj,mythid
./pkg/profiles/active_file_profiles_ad.F 69 ADACTIVE_READ_PROFILE 
      call ACTIVE_READ_PROFILE_RL( fidadjoint(active_num_file,bi,bj) ,
./pkg/profiles/active_file_profiles_ad.F 72 ADACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_ad.F 73 ADACTIVE_READ_PROFILE 
     &     REVERSE_SIMULATION, myiter,bi,bj, mythid)
./pkg/profiles/active_file_profiles_ad.F 92 ADACTIVE_WRITE_PROFILE 
     I                              bj,
./pkg/profiles/active_file_profiles_g.F 104 G_ACTIVE_WRITE_PROFILE 
     I                           bj,
./pkg/profiles/active_file_profiles_g.F 139 G_ACTIVE_WRITE_PROFILE 
      integer  bi,bj,mythid
./pkg/profiles/active_file_profiles_g.F 145 G_ACTIVE_WRITE_PROFILE 
      call ACTIVE_WRITE_PROFILE_RL( fidforward(active_num_file,bi,bj) ,
./pkg/profiles/active_file_profiles_g.F 148 G_ACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_g.F 149 G_ACTIVE_WRITE_PROFILE 
     &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
./pkg/profiles/active_file_profiles_g.F 151 G_ACTIVE_WRITE_PROFILE 
      call ACTIVE_WRITE_PROFILE_RL( fidtangent(active_num_file,bi,bj) ,
./pkg/profiles/active_file_profiles_g.F 154 G_ACTIVE_WRITE_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_g.F 155 G_ACTIVE_WRITE_PROFILE 
     &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
./pkg/profiles/active_file_profiles_g.F 30 G_ACTIVE_READ_PROFILE 
     I                           bj,
./pkg/profiles/active_file_profiles_g.F 68 G_ACTIVE_READ_PROFILE 
      integer  bi,bj,mythid
./pkg/profiles/active_file_profiles_g.F 74 G_ACTIVE_READ_PROFILE 
      call ACTIVE_READ_PROFILE_RL( fidforward(active_num_file,bi,bj),
./pkg/profiles/active_file_profiles_g.F 77 G_ACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_g.F 78 G_ACTIVE_READ_PROFILE 
     &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
./pkg/profiles/active_file_profiles_g.F 80 G_ACTIVE_READ_PROFILE 
      call ACTIVE_READ_PROFILE_RL( fidtangent(active_num_file,bi,bj),
./pkg/profiles/active_file_profiles_g.F 83 G_ACTIVE_READ_PROFILE 
     &     irec, prof_ind_glob(active_num_file,irec,bi,bj),
./pkg/profiles/active_file_profiles_g.F 84 G_ACTIVE_READ_PROFILE 
     &     TANGENT_SIMULATION, myOptimIter,bi,bj, mythid)
./pkg/profiles/cost_profiles.F 106 COST_PROFILES 
             prof_mask1D_cur(k,bi,bj)=0.
./pkg/profiles/cost_profiles.F 111 COST_PROFILES 
            if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then
./pkg/profiles/cost_profiles.F 119 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 123 COST_PROFILES 
     &         prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 124 COST_PROFILES 
     &         prof_lat(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 125 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 131 COST_PROFILES 
              do K=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 144 COST_PROFILES 
     &         prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 145 COST_PROFILES 
     &         prof_lat(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 146 COST_PROFILES 
     &         num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 151 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var,
./pkg/profiles/cost_profiles.F 152 COST_PROFILES 
     &           prof_num,.false.,optimcycle,bi,bj,mythid,
./pkg/profiles/cost_profiles.F 153 COST_PROFILES 
     &           profiles_dummy(num_file,num_var,bi,bj))
./pkg/profiles/cost_profiles.F 156 COST_PROFILES 
     &           prof_ind_glob(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 157 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),prof_data1D,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 160 COST_PROFILES 
     &           prof_ind_glob(num_file,prof_num,bi,bj),
./pkg/profiles/cost_profiles.F 161 COST_PROFILES 
     &           ProfDepthNo(num_file,bi,bj),
./pkg/profiles/cost_profiles.F 162 COST_PROFILES 
     &           prof_weights1D,bi,bj,myThid)
./pkg/profiles/cost_profiles.F 164 COST_PROFILES 
             do K=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 166 COST_PROFILES 
                 objf_profiles(num_file,num_var,bi,bj)=
./pkg/profiles/cost_profiles.F 167 COST_PROFILES 
     &             objf_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 168 COST_PROFILES 
     &             +prof_weights1D(K)*prof_mask1D_cur(K,bi,bj)
./pkg/profiles/cost_profiles.F 171 COST_PROFILES 
                 num_profiles(num_file,num_var,bi,bj)=
./pkg/profiles/cost_profiles.F 172 COST_PROFILES 
     &               num_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 173 COST_PROFILES 
     &               +prof_mask1D_cur(K,bi,bj)
./pkg/profiles/cost_profiles.F 182 COST_PROFILES 
         if (ProfNo(num_file,bi,bj).GT.0) then
./pkg/profiles/cost_profiles.F 184 COST_PROFILES 
           write(msgbuf,'(a,4I9)') 'bi,bj,prof_num,num_var ',bi,bj,
./pkg/profiles/cost_profiles.F 185 COST_PROFILES 
     &      ProfNo(num_file,bi,bj),num_var
./pkg/profiles/cost_profiles.F 189 COST_PROFILES 
     &      objf_profiles(num_file,num_var,bi,bj),
./pkg/profiles/cost_profiles.F 190 COST_PROFILES 
     &      num_profiles(num_file,num_var,bi,bj)
./pkg/profiles/cost_profiles.F 45 COST_PROFILES 
      integer bi,bj,iG,jG,fid
./pkg/profiles/cost_profiles.F 65 COST_PROFILES 
      DO bj=1,nSy
./pkg/profiles/cost_profiles.F 69 COST_PROFILES 
         fid=fiddata(num_file,bi,bj)
./pkg/profiles/cost_profiles.F 71 COST_PROFILES 
         if ( (ProfNo(num_file,bi,bj).GT.0).AND.
./pkg/profiles/cost_profiles.F 74 COST_PROFILES 
           err = NF_CLOSE(fidforward(num_file,bi,bj))
./pkg/profiles/cost_profiles.F 77 COST_PROFILES 
           jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles
./pkg/profiles/cost_profiles.F 87 COST_PROFILES 
     &     fidforward(num_file,bi,bj))
./pkg/profiles/cost_profiles.F 91 COST_PROFILES 
          if (prof_num.LE.ProfNo(num_file,bi,bj)) then
./pkg/profiles/cost_profiles.F 95 COST_PROFILES 
            prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj)
./pkg/profiles/cost_profiles.F 96 COST_PROFILES 
            prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj)
./pkg/profiles/cost_profiles.F 97 COST_PROFILES 
            prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj)
./model/src/diags_phi_rlow.F 106 DIAGS_PHI_RLOW 
           IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN
./model/src/diags_phi_rlow.F 107 DIAGS_PHI_RLOW 
             ddRloc = rC(k)-R_low(i,j,bi,bj)
./model/src/diags_phi_rlow.F 108 DIAGS_PHI_RLOW 
             phiHydLow(i,j,bi,bj) = phiHydC(i,j)
./model/src/diags_phi_rlow.F 10 DIAGS_PHI_RLOW 
     I                       k, bi, bj, iMin,iMax, jMin,jMax,
./model/src/diags_phi_rlow.F 130 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) = phiHydF(i,j)
./model/src/diags_phi_rlow.F 143 DIAGS_PHI_RLOW 
           facP = pStarFacK(i,j,bi,bj)
./model/src/diags_phi_rlow.F 144 DIAGS_PHI_RLOW 
           dPhiRef = phiRef(2*k+1) - gravity*topoZ(i,j,bi,bj)
./model/src/diags_phi_rlow.F 145 DIAGS_PHI_RLOW 
     &                             - phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F 146 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) =
./model/src/diags_phi_rlow.F 147 DIAGS_PHI_RLOW 
     &              phiHydLow(i,j,bi,bj)*facP
./model/src/diags_phi_rlow.F 149 DIAGS_PHI_RLOW 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F 157 DIAGS_PHI_RLOW 
           dPhiRef = ( Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) )
./model/src/diags_phi_rlow.F 159 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) =
./model/src/diags_phi_rlow.F 160 DIAGS_PHI_RLOW 
     &              phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_rlow.F 161 DIAGS_PHI_RLOW 
     &            + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_rlow.F 162 DIAGS_PHI_RLOW 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F 170 DIAGS_PHI_RLOW 
           dPhiRef = ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) )
./model/src/diags_phi_rlow.F 172 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) =
./model/src/diags_phi_rlow.F 173 DIAGS_PHI_RLOW 
     &              phiHydLow(i,j,bi,bj)*rStarFacC(i,j,bi,bj)
./model/src/diags_phi_rlow.F 174 DIAGS_PHI_RLOW 
     &            + dPhiRef*( rStarFacC(i,j,bi,bj) - 1. _d 0 )
./model/src/diags_phi_rlow.F 175 DIAGS_PHI_RLOW 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F 186 DIAGS_PHI_RLOW 
           phiHydLow(i,j,bi,bj) = phiHydLow(i,j,bi,bj)
./model/src/diags_phi_rlow.F 187 DIAGS_PHI_RLOW 
     &            + Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./model/src/diags_phi_rlow.F 188 DIAGS_PHI_RLOW 
     &            + phi0surf(i,j,bi,bj)
./model/src/diags_phi_rlow.F 47 DIAGS_PHI_RLOW 
      INTEGER k, bi,bj, iMin,iMax, jMin,jMax
./model/src/diags_phi_rlow.F 78 DIAGS_PHI_RLOW 
            phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/diags_phi_rlow.F 88 DIAGS_PHI_RLOW 
           IF ( k .EQ. kLowC(i,j,bi,bj) ) THEN
./model/src/diags_phi_rlow.F 89 DIAGS_PHI_RLOW 
             ddRloc = rC(k)-R_low(i,j,bi,bj)
./model/src/diags_phi_rlow.F 90 DIAGS_PHI_RLOW 
             phiHydLow(i,j,bi,bj) = phiHydC(i,j)
./pkg/profiles/profiles_init_fixed.F 155 PROFILES_INIT_FIXED 
      DO bj=1,nSy
./pkg/profiles/profiles_init_fixed.F 158 PROFILES_INIT_FIXED 
        profiles_curfile_buff(bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 167 PROFILES_INIT_FIXED 
           profiles_data_buff(m,l,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 168 PROFILES_INIT_FIXED 
           profiles_weight_buff(m,l,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 206 PROFILES_INIT_FIXED 
      err = NF_OPEN(fnamedatanc, 0, fiddata(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 209 PROFILES_INIT_FIXED 
      fid=fiddata(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 211 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 216 PROFILES_INIT_FIXED 
      err = NF_INQ_DIMLEN(fid, dimid, ProfDepthNo(num_file,bi,bj) )
./pkg/profiles/profiles_init_fixed.F 223 PROFILES_INIT_FIXED 
     &   '  no. of depth levels   ',ProfDepthNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 227 PROFILES_INIT_FIXED 
     &   '  no. of profiles   ', ProfNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 247 PROFILES_INIT_FIXED 
      do k=1,ProfDepthNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 249 PROFILES_INIT_FIXED 
     & prof_depth(num_file,k,bi,bj))
./pkg/profiles/profiles_init_fixed.F 290 PROFILES_INIT_FIXED 
      prof_time(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 291 PROFILES_INIT_FIXED 
      prof_lon(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 292 PROFILES_INIT_FIXED 
      prof_lat(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 293 PROFILES_INIT_FIXED 
      prof_ind_glob(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 296 PROFILES_INIT_FIXED 
         prof_interp_i(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 297 PROFILES_INIT_FIXED 
         prof_interp_j(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 298 PROFILES_INIT_FIXED 
         prof_interp_weights(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 300 PROFILES_INIT_FIXED 
      prof_interp_xC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 301 PROFILES_INIT_FIXED 
      prof_interp_yC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 302 PROFILES_INIT_FIXED 
      prof_interp_xCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 303 PROFILES_INIT_FIXED 
      prof_interp_yCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 310 PROFILES_INIT_FIXED 
      profno_div1000=max(0,int(ProfNo(num_file,bi,bj)/1000))
./pkg/profiles/profiles_init_fixed.F 314 PROFILES_INIT_FIXED 
      if (min(ProfNo(num_file,bi,bj), 1000*kk).GE.
./pkg/profiles/profiles_init_fixed.F 321 PROFILES_INIT_FIXED 
      vec_count(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 325 PROFILES_INIT_FIXED 
     & (vec_count(2)+vec_start(2)-1.GT.ProfNo(num_file,bi,bj)) )
./pkg/profiles/profiles_init_fixed.F 33 PROFILES_INIT_FIXED 
      integer k,l,m,bi,bj,iG,jG, myThid,num_file,length_for_tile
./pkg/profiles/profiles_init_fixed.F 366 PROFILES_INIT_FIXED 
        vec_count2(2)=min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 378 PROFILES_INIT_FIXED 
      do k=1,min(1000,ProfNo(num_file,bi,bj)-1000*(kk-1))
./pkg/profiles/profiles_init_fixed.F 402 PROFILES_INIT_FIXED 
       if (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then
./pkg/profiles/profiles_init_fixed.F 403 PROFILES_INIT_FIXED 
        tmp_lon=xC(sNx+1,1,bi,bj)+360
./pkg/profiles/profiles_init_fixed.F 405 PROFILES_INIT_FIXED 
        tmp_lon=xC(sNx+1,1,bi,bj)
./pkg/profiles/profiles_init_fixed.F 407 PROFILES_INIT_FIXED 
       if ((xC(1,1,bi,bj).LE.tmp_lon2(k)).AND.
./pkg/profiles/profiles_init_fixed.F 409 PROFILES_INIT_FIXED 
     & (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND.
./pkg/profiles/profiles_init_fixed.F 410 PROFILES_INIT_FIXED 
     & (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k))
./pkg/profiles/profiles_init_fixed.F 413 PROFILES_INIT_FIXED 
        prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 414 PROFILES_INIT_FIXED 
        prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)
./pkg/profiles/profiles_init_fixed.F 415 PROFILES_INIT_FIXED 
        prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k)
./pkg/profiles/profiles_init_fixed.F 416 PROFILES_INIT_FIXED 
        prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 424 PROFILES_INIT_FIXED 
       elseif (xC(sNx+1,1,bi,bj).LT.xC(1,1,bi,bj)) then
./pkg/profiles/profiles_init_fixed.F 425 PROFILES_INIT_FIXED 
        if ((xC(1,1,bi,bj).LE.tmp_lon2(k)+360).AND.
./pkg/profiles/profiles_init_fixed.F 427 PROFILES_INIT_FIXED 
     &  (yC(1,1,bi,bj).LE.tmp_lat2(k)).AND.
./pkg/profiles/profiles_init_fixed.F 428 PROFILES_INIT_FIXED 
     &  (yC(1,sNy+1,bi,bj).GT.tmp_lat2(k))
./pkg/profiles/profiles_init_fixed.F 431 PROFILES_INIT_FIXED 
         prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 432 PROFILES_INIT_FIXED 
         prof_lon(num_file,length_for_tile,bi,bj)=tmp_lon2(k)+360
./pkg/profiles/profiles_init_fixed.F 433 PROFILES_INIT_FIXED 
         prof_lat(num_file,length_for_tile,bi,bj)=tmp_lat2(k)
./pkg/profiles/profiles_init_fixed.F 434 PROFILES_INIT_FIXED 
         prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 448 PROFILES_INIT_FIXED 
       if ( ( abs( tmp_xC11(k) - xC(1,1,bi,bj) ).LT.0.0001 ) .AND.
./pkg/profiles/profiles_init_fixed.F 449 PROFILES_INIT_FIXED 
     & ( abs( tmp_yC11(k) - yC(1,1,bi,bj) ).LT.0.0001 ) .AND.
./pkg/profiles/profiles_init_fixed.F 450 PROFILES_INIT_FIXED 
     & ( abs( tmp_xCNINJ(k) - xC(sNx,sNy,bi,bj) ).LT.0.0001 ) .AND.
./pkg/profiles/profiles_init_fixed.F 451 PROFILES_INIT_FIXED 
     & ( abs( tmp_yCNINJ(k) - yC(sNx,sNy,bi,bj) ).LT.0.0001 )
./pkg/profiles/profiles_init_fixed.F 455 PROFILES_INIT_FIXED 
         prof_time(num_file,length_for_tile,bi,bj)=diffsecs
./pkg/profiles/profiles_init_fixed.F 456 PROFILES_INIT_FIXED 
         prof_interp_xC11(num_file,length_for_tile,bi,bj)=tmp_xC11(k)
./pkg/profiles/profiles_init_fixed.F 457 PROFILES_INIT_FIXED 
         prof_interp_yC11(num_file,length_for_tile,bi,bj)=tmp_yC11(k)
./pkg/profiles/profiles_init_fixed.F 458 PROFILES_INIT_FIXED 
       prof_interp_xCNINJ(num_file,length_for_tile,bi,bj)=tmp_xCNINJ(k)
./pkg/profiles/profiles_init_fixed.F 459 PROFILES_INIT_FIXED 
       prof_interp_yCNINJ(num_file,length_for_tile,bi,bj)=tmp_yCNINJ(k)
./pkg/profiles/profiles_init_fixed.F 462 PROFILES_INIT_FIXED 
             prof_interp_weights(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 464 PROFILES_INIT_FIXED 
             prof_interp_i(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 466 PROFILES_INIT_FIXED 
             prof_interp_j(num_file,length_for_tile,q,bi,bj)
./pkg/profiles/profiles_init_fixed.F 513 PROFILES_INIT_FIXED 
         prof_ind_glob(num_file,length_for_tile,bi,bj)=k+1000*(kk-1)
./pkg/profiles/profiles_init_fixed.F 531 PROFILES_INIT_FIXED 
      ProfNo(num_file,bi,bj)=length_for_tile
./pkg/profiles/profiles_init_fixed.F 534 PROFILES_INIT_FIXED 
     &   '  within tile & run ', ProfNo(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 541 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 543 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 547 PROFILES_INIT_FIXED 
      vec_quantities(num_file,1,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 548 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 549 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 550 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,1,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 551 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 553 PROFILES_INIT_FIXED 
      vec_quantities(num_file,1,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 557 PROFILES_INIT_FIXED 
      vec_quantities(num_file,2,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 558 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 559 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 560 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,2,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 561 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 563 PROFILES_INIT_FIXED 
      vec_quantities(num_file,2,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 570 PROFILES_INIT_FIXED 
      vec_quantities(num_file,3,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 571 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 572 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 573 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,3,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 574 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 576 PROFILES_INIT_FIXED 
      vec_quantities(num_file,3,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 580 PROFILES_INIT_FIXED 
      vec_quantities(num_file,4,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 581 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 582 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 583 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,4,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 584 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 586 PROFILES_INIT_FIXED 
      vec_quantities(num_file,4,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 591 PROFILES_INIT_FIXED 
      vec_quantities(num_file,5,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 592 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 593 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 594 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,5,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 595 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 597 PROFILES_INIT_FIXED 
      vec_quantities(num_file,5,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 601 PROFILES_INIT_FIXED 
      vec_quantities(num_file,6,bi,bj)=.TRUE.
./pkg/profiles/profiles_init_fixed.F 602 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 603 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)+1
./pkg/profiles/profiles_init_fixed.F 604 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,6,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 605 PROFILES_INIT_FIXED 
     & prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_fixed.F 607 PROFILES_INIT_FIXED 
      vec_quantities(num_file,6,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 611 PROFILES_INIT_FIXED 
     &,vec_quantities(num_file,1,bi,bj),vec_quantities(num_file,2,bi,bj)
./pkg/profiles/profiles_init_fixed.F 612 PROFILES_INIT_FIXED 
     &,vec_quantities(num_file,3,bi,bj),vec_quantities(num_file,4,bi,bj)
./pkg/profiles/profiles_init_fixed.F 613 PROFILES_INIT_FIXED 
     &,vec_quantities(num_file,5,bi,bj),vec_quantities(num_file,6,bi,bj)
./pkg/profiles/profiles_init_fixed.F 621 PROFILES_INIT_FIXED 
           if (ProfNo(num_file,bi,bj).GT.0) then
./pkg/profiles/profiles_init_fixed.F 623 PROFILES_INIT_FIXED 
         jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles
./pkg/profiles/profiles_init_fixed.F 638 PROFILES_INIT_FIXED 
     &   fiddata(num_file,bi,bj),fnameequinc,
./pkg/profiles/profiles_init_fixed.F 639 PROFILES_INIT_FIXED 
     &   fidforward(num_file,bi,bj),ProfNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 640 PROFILES_INIT_FIXED 
     &   ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 641 PROFILES_INIT_FIXED 
     &   bi,bj,myThid)
./pkg/profiles/profiles_init_fixed.F 643 PROFILES_INIT_FIXED 
        err = NF_OPEN(fnameequinc,NF_WRITE,fidforward(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 648 PROFILES_INIT_FIXED 
        call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 649 PROFILES_INIT_FIXED 
     &   adfnameequinc, fidadjoint(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 650 PROFILES_INIT_FIXED 
     &   ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 651 PROFILES_INIT_FIXED 
     & bi,bj, myThid)
./pkg/profiles/profiles_init_fixed.F 653 PROFILES_INIT_FIXED 
        err = NF_OPEN(adfnameequinc,NF_WRITE,fidadjoint(num_file,bi,bj))
./pkg/profiles/profiles_init_fixed.F 665 PROFILES_INIT_FIXED 
         fidforward(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 666 PROFILES_INIT_FIXED 
     &     2000+(num_file-1)*nSx*nSx+(bi-1)*nSy+bj
./pkg/profiles/profiles_init_fixed.F 668 PROFILES_INIT_FIXED 
        call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 669 PROFILES_INIT_FIXED 
     &   fnameequinc,fidforward(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 670 PROFILES_INIT_FIXED 
     &   ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 671 PROFILES_INIT_FIXED 
     &   bi,bj,myThid)
./pkg/profiles/profiles_init_fixed.F 674 PROFILES_INIT_FIXED 
         open( fidforward(num_file,bi,bj),file=fnameequinc,
./pkg/profiles/profiles_init_fixed.F 676 PROFILES_INIT_FIXED 
     &   recl=  (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 )
./pkg/profiles/profiles_init_fixed.F 680 PROFILES_INIT_FIXED 
         fidadjoint(num_file,bi,bj)=
./pkg/profiles/profiles_init_fixed.F 681 PROFILES_INIT_FIXED 
     &     4000+(num_file-1)*nSx*nSx+(bi-1)*nSy+bj
./pkg/profiles/profiles_init_fixed.F 683 PROFILES_INIT_FIXED 
        call PROFILES_INIT_NCFILE(num_file,fiddata(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 684 PROFILES_INIT_FIXED 
     &   adfnameequinc, fidadjoint(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 685 PROFILES_INIT_FIXED 
     &   ProfNo(num_file,bi,bj),ProfDepthNo(num_file,bi,bj),
./pkg/profiles/profiles_init_fixed.F 686 PROFILES_INIT_FIXED 
     &   bi,bj, myThid)
./pkg/profiles/profiles_init_fixed.F 689 PROFILES_INIT_FIXED 
         open( fidadjoint(num_file,bi,bj),file=adfnameequinc,
./pkg/profiles/profiles_init_fixed.F 691 PROFILES_INIT_FIXED 
     &   recl=  (ProfDepthNo(num_file,bi,bj)+1)*WORDLENGTH*2 )
./pkg/profiles/profiles_init_fixed.F 702 PROFILES_INIT_FIXED 
      ProfNo(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 704 PROFILES_INIT_FIXED 
      prof_num_var_cur(num_file,k,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 705 PROFILES_INIT_FIXED 
      vec_quantities(num_file,k,bi,bj)=.FALSE.
./pkg/profiles/profiles_init_fixed.F 707 PROFILES_INIT_FIXED 
      prof_num_var_tot(num_file,bi,bj)=0
./pkg/profiles/profiles_init_fixed.F 709 PROFILES_INIT_FIXED 
      prof_time(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 710 PROFILES_INIT_FIXED 
      prof_lon(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 711 PROFILES_INIT_FIXED 
      prof_lat(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 712 PROFILES_INIT_FIXED 
      prof_ind_glob(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 715 PROFILES_INIT_FIXED 
         prof_interp_i(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 716 PROFILES_INIT_FIXED 
         prof_interp_j(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 717 PROFILES_INIT_FIXED 
         prof_interp_weights(num_file,k,q,bi,bj) = -999
./pkg/profiles/profiles_init_fixed.F 719 PROFILES_INIT_FIXED 
      prof_interp_xC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 720 PROFILES_INIT_FIXED 
      prof_interp_yC11(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 721 PROFILES_INIT_FIXED 
      prof_interp_xCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 722 PROFILES_INIT_FIXED 
      prof_interp_yCNINJ(num_file,k,bi,bj)=-999
./pkg/profiles/profiles_init_fixed.F 739 PROFILES_INIT_FIXED 
         jG=bj+(myYGlobalLo-1)/sNy ! Kludge until unstructered tiles
./pkg/profiles/profiles_init_fixed.F 752 PROFILES_INIT_FIXED 
        xy_buffer_r8(l,m)=xC(l,m,bi,bj)
./pkg/profiles/profiles_init_fixed.F 772 PROFILES_INIT_FIXED 
                xy_buffer_r8(l,m)=yC(l,m,bi,bj)
./pkg/profiles/profiles_init_ncfile.F 14 PROFILES_INIT_NCFILE 
     & Zlength,bi,bj,myThid)
./pkg/profiles/profiles_init_ncfile.F 29 PROFILES_INIT_NCFILE 
      integer myThid,bi,bj,err,vecid(2), length, Zlength
./pkg/profiles/profiles_init_ncfile.F 83 PROFILES_INIT_NCFILE 
       do num_var=prof_num_var_tot(num_file,bi,bj),1,-1
./pkg/profiles/profiles_init_ncfile.F 84 PROFILES_INIT_NCFILE 
       write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_ncfile.F 86 PROFILES_INIT_NCFILE 
       write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)
./pkg/profiles/profiles_init_varia.F 42 PROFILES_INIT_VARIA 
      integer bi,bj
./pkg/profiles/profiles_init_varia.F 56 PROFILES_INIT_VARIA 
      do bj = jtlo,jthi
./pkg/profiles/profiles_init_varia.F 60 PROFILES_INIT_VARIA 
            objf_profiles(num_file,num_var,bi,bj)= 0. _d 0
./pkg/profiles/profiles_init_varia.F 61 PROFILES_INIT_VARIA 
            num_profiles(num_file,num_var,bi,bj) = 0. _d 0
./pkg/profiles/profiles_init_varia.F 62 PROFILES_INIT_VARIA 
            profiles_dummy(num_file,num_var,bi,bj)=0. _d 0
./pkg/profiles/profiles_inloop.F 100 PROFILES_INLOOP 
     &      prof_num,optimcycle,bi,bj,mythid,
./pkg/profiles/profiles_inloop.F 101 PROFILES_INLOOP 
     &      profiles_dummy(num_file,num_var,bi,bj))
./pkg/profiles/profiles_inloop.F 42 PROFILES_INLOOP 
      integer k,bi,bj,prof_num, num_file, num_var
./pkg/profiles/profiles_inloop.F 60 PROFILES_INLOOP 
      DO bj=1,nSy
./pkg/profiles/profiles_inloop.F 65 PROFILES_INLOOP 
      if (prof_num.LE.ProfNo(num_file,bi,bj)) then
./pkg/profiles/profiles_inloop.F 66 PROFILES_INLOOP 
      if ((prof_time(num_file,prof_num,bi,bj).GE.mytime).AND.
./pkg/profiles/profiles_inloop.F 67 PROFILES_INLOOP 
     & (prof_time(num_file,prof_num,bi,bj).LT.(mytime+deltaTclock)))
./pkg/profiles/profiles_inloop.F 72 PROFILES_INLOOP 
      prof_i1D(k)= prof_interp_i(num_file,prof_num,k,bi,bj)
./pkg/profiles/profiles_inloop.F 73 PROFILES_INLOOP 
      prof_j1D(k)= prof_interp_j(num_file,prof_num,k,bi,bj)
./pkg/profiles/profiles_inloop.F 74 PROFILES_INLOOP 
      prof_w1D(k)= prof_interp_weights(num_file,prof_num,k,bi,bj)
./pkg/profiles/profiles_inloop.F 83 PROFILES_INLOOP 
      if (vec_quantities(num_file,num_var,bi,bj).EQV..TRUE.) then
./pkg/profiles/profiles_inloop.F 88 PROFILES_INLOOP 
     &        prof_lon(num_file,prof_num,bi,bj),
./pkg/profiles/profiles_inloop.F 89 PROFILES_INLOOP 
     &        prof_lat(num_file,prof_num,bi,bj),
./pkg/profiles/profiles_inloop.F 90 PROFILES_INLOOP 
     &        num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/profiles_inloop.F 95 PROFILES_INLOOP 
     &        num_var,num_file,mytime,bi,bj,myThid)
./pkg/profiles/profiles_inloop.F 99 PROFILES_INLOOP 
     &      ProfDepthNo(num_file,bi,bj),prof_traj1D,num_var,
./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 150 PROFILES_INTERP 
               tab_coeffs1(1,1)=theta(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 151 PROFILES_INTERP 
               tab_coeffs1(1,2)=theta(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 152 PROFILES_INTERP 
               tab_coeffs1(2,1)=theta(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 153 PROFILES_INTERP 
               tab_coeffs1(2,2)=theta(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 154 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 155 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 156 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 157 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 159 PROFILES_INTERP 
               tab_coeffs1(1,1)=salt(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 160 PROFILES_INTERP 
               tab_coeffs1(1,2)=salt(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 161 PROFILES_INTERP 
               tab_coeffs1(2,1)=salt(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 162 PROFILES_INTERP 
               tab_coeffs1(2,2)=salt(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 163 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 164 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 165 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 166 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 168 PROFILES_INTERP 
               tab_coeffs1(1,1)=uVel(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 169 PROFILES_INTERP 
               tab_coeffs1(1,2)=uVel(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 170 PROFILES_INTERP 
               tab_coeffs1(2,1)=uVel(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 171 PROFILES_INTERP 
               tab_coeffs1(2,2)=uVel(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 172 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskW(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 173 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskW(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 174 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskW(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 175 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskW(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 177 PROFILES_INTERP 
               tab_coeffs1(1,1)=vVel(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 178 PROFILES_INTERP 
               tab_coeffs1(1,2)=vVel(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 179 PROFILES_INTERP 
               tab_coeffs1(2,1)=vVel(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 180 PROFILES_INTERP 
               tab_coeffs1(2,2)=vVel(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 181 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskS(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 182 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskS(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 183 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskS(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 184 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskS(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 189 PROFILES_INTERP 
               tab_coeffs1(1,1)=pTracer(prof_i,prof_j,k,bi,bj,1) !SO
./pkg/profiles/profiles_interp.F 190 PROFILES_INTERP 
               tab_coeffs1(1,2)=pTracer(prof_i+1,prof_j,k,bi,bj,1) !SE
./pkg/profiles/profiles_interp.F 191 PROFILES_INTERP 
               tab_coeffs1(2,1)=pTracer(prof_i,prof_j+1,k,bi,bj,1) !NO
./pkg/profiles/profiles_interp.F 192 PROFILES_INTERP 
               tab_coeffs1(2,2)=pTracer(prof_i+1,prof_j+1,k,bi,bj,1) !NZ
./pkg/profiles/profiles_interp.F 199 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj) !SO
./pkg/profiles/profiles_interp.F 200 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj) !SE
./pkg/profiles/profiles_interp.F 201 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj) !NO
./pkg/profiles/profiles_interp.F 202 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 204 PROFILES_INTERP 
               tab_coeffs1(1,1)=etan(prof_i,prof_j,bi,bj) !SO
./pkg/profiles/profiles_interp.F 205 PROFILES_INTERP 
               tab_coeffs1(1,2)=etan(prof_i+1,prof_j,bi,bj) !SE
./pkg/profiles/profiles_interp.F 206 PROFILES_INTERP 
               tab_coeffs1(2,1)=etan(prof_i,prof_j+1,bi,bj) !NO
./pkg/profiles/profiles_interp.F 207 PROFILES_INTERP 
               tab_coeffs1(2,2)=etan(prof_i+1,prof_j+1,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 208 PROFILES_INTERP 
               tab_coeffs3(1,1)=maskC(prof_i,prof_j,1,bi,bj) !SO
./pkg/profiles/profiles_interp.F 209 PROFILES_INTERP 
               tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,1,bi,bj) !SE
./pkg/profiles/profiles_interp.F 210 PROFILES_INTERP 
               tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,1,bi,bj) !NO
./pkg/profiles/profiles_interp.F 211 PROFILES_INTERP 
               tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,1,bi,bj) !NZ
./pkg/profiles/profiles_interp.F 21 PROFILES_INTERP 
     I bj,
./pkg/profiles/profiles_interp.F 254 PROFILES_INTERP 
         prof_mask1D_cur(kk,bi,bj)=0
./pkg/profiles/profiles_interp.F 256 PROFILES_INTERP 
      do kk=1,ProfDepthNo(file_cur,bi,bj)
./pkg/profiles/profiles_interp.F 258 PROFILES_INTERP 
        if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then
./pkg/profiles/profiles_interp.F 260 PROFILES_INTERP 
          prof_mask1D_cur(kk,bi,bj)=mask_cur(1)
./pkg/profiles/profiles_interp.F 262 PROFILES_INTERP 
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp.F 263 PROFILES_INTERP 
          if ( prof_depth(file_cur,kk,bi,bj) .LT.
./pkg/profiles/profiles_interp.F 266 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp.F 272 PROFILES_INTERP 
            if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND.
./pkg/profiles/profiles_interp.F 273 PROFILES_INTERP 
     &      (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then
./pkg/profiles/profiles_interp.F 284 PROFILES_INTERP 
            tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/
./pkg/profiles/profiles_interp.F 288 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=1
./pkg/profiles/profiles_interp.F 294 PROFILES_INTERP 
          elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then
./pkg/profiles/profiles_interp.F 297 PROFILES_INTERP 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp.F 58 PROFILES_INTERP 
      integer i,j,k,kk,kcur,bi,bj
./pkg/profiles/profiles_interp.F 76 PROFILES_INTERP 
        if ((yC(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp.F 77 PROFILES_INTERP 
     &  (yC(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp.F 79 PROFILES_INTERP 
          lat_1=yC(i,j,bi,bj)
./pkg/profiles/profiles_interp.F 80 PROFILES_INTERP 
          lat_2=yC(i,j+1,bi,bj)
./pkg/profiles/profiles_interp.F 87 PROFILES_INTERP 
        if ((yG(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp.F 88 PROFILES_INTERP 
     &  (yG(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp.F 90 PROFILES_INTERP 
          lat_1=yG(i,j,bi,bj)
./pkg/profiles/profiles_interp.F 91 PROFILES_INTERP 
          lat_2=yG(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_gg.F 122 PROFILES_INTERP_GG 
         prof_mask1D_cur(kk,bi,bj)=0
./pkg/profiles/profiles_interp_gg.F 124 PROFILES_INTERP_GG 
      do kk=1,ProfDepthNo(file_cur,bi,bj)
./pkg/profiles/profiles_interp_gg.F 126 PROFILES_INTERP_GG 
        if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then
./pkg/profiles/profiles_interp_gg.F 128 PROFILES_INTERP_GG 
          prof_mask1D_cur(kk,bi,bj)=mask_cur(1)
./pkg/profiles/profiles_interp_gg.F 130 PROFILES_INTERP_GG 
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp_gg.F 131 PROFILES_INTERP_GG 
          if ( prof_depth(file_cur,kk,bi,bj) .LT.
./pkg/profiles/profiles_interp_gg.F 134 PROFILES_INTERP_GG 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp_gg.F 140 PROFILES_INTERP_GG 
            if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND.
./pkg/profiles/profiles_interp_gg.F 141 PROFILES_INTERP_GG 
     &      (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then
./pkg/profiles/profiles_interp_gg.F 152 PROFILES_INTERP_GG 
            tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/
./pkg/profiles/profiles_interp_gg.F 156 PROFILES_INTERP_GG 
            prof_mask1D_cur(kk,bi,bj)=1
./pkg/profiles/profiles_interp_gg.F 162 PROFILES_INTERP_GG 
          elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then
./pkg/profiles/profiles_interp_gg.F 165 PROFILES_INTERP_GG 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp_gg.F 22 PROFILES_INTERP_GG 
     I bj,
./pkg/profiles/profiles_interp_gg.F 63 PROFILES_INTERP_GG 
      integer q,k,kk,kcur,bi,bj
./pkg/profiles/profiles_interp_gg.F 74 PROFILES_INTERP_GG 
               tab_coeffs1(q)=theta(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 75 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 77 PROFILES_INTERP_GG 
               tab_coeffs1(q)=salt(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 78 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 80 PROFILES_INTERP_GG 
               tab_coeffs1(q)=uVel(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 81 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskW(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 83 PROFILES_INTERP_GG 
               tab_coeffs1(q)=vVel(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 84 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskS(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 89 PROFILES_INTERP_GG 
               tab_coeffs1(q)=pTracer(i_cur(q),j_cur(q),k,bi,bj,1)
./pkg/profiles/profiles_interp_gg.F 93 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),k,bi,bj)
./pkg/profiles/profiles_interp_gg.F 95 PROFILES_INTERP_GG 
               tab_coeffs1(q)=etan(i_cur(q),j_cur(q),bi,bj)
./pkg/profiles/profiles_interp_gg.F 96 PROFILES_INTERP_GG 
               tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),1,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 150 PROFILES_INTERP_MEAN 
               tab_coeffs1(1,1)=prof_etan_mean(prof_i,prof_j,bi,bj) !SO
./pkg/profiles/profiles_interp_mean.F 151 PROFILES_INTERP_MEAN 
               tab_coeffs1(1,2)=prof_etan_mean(prof_i+1,prof_j,bi,bj) !SE
./pkg/profiles/profiles_interp_mean.F 152 PROFILES_INTERP_MEAN 
               tab_coeffs1(2,1)=prof_etan_mean(prof_i,prof_j+1,bi,bj) !NO
./pkg/profiles/profiles_interp_mean.F 153 PROFILES_INTERP_MEAN 
               tab_coeffs1(2,2)=prof_etan_mean(prof_i+1,prof_j+1,bi,bj) !NZ
./pkg/profiles/profiles_interp_mean.F 154 PROFILES_INTERP_MEAN 
               tab_coeffs3(1,1)=maskC(prof_i,prof_j,1,bi,bj) !SO
./pkg/profiles/profiles_interp_mean.F 155 PROFILES_INTERP_MEAN 
               tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,1,bi,bj) !SE
./pkg/profiles/profiles_interp_mean.F 156 PROFILES_INTERP_MEAN 
               tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,1,bi,bj) !NO
./pkg/profiles/profiles_interp_mean.F 157 PROFILES_INTERP_MEAN 
               tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,1,bi,bj) !NZ
./pkg/profiles/profiles_interp_mean.F 159 PROFILES_INTERP_MEAN 
          tab_coeffs1(1,1)=prof_theta_mean(prof_i,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 160 PROFILES_INTERP_MEAN 
          tab_coeffs1(1,2)=prof_theta_mean(prof_i+1,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 161 PROFILES_INTERP_MEAN 
          tab_coeffs1(2,1)=prof_theta_mean(prof_i,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 162 PROFILES_INTERP_MEAN 
          tab_coeffs1(2,2)=prof_theta_mean(prof_i+1,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 163 PROFILES_INTERP_MEAN 
          tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 164 PROFILES_INTERP_MEAN 
          tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 165 PROFILES_INTERP_MEAN 
          tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 166 PROFILES_INTERP_MEAN 
          tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 168 PROFILES_INTERP_MEAN 
          tab_coeffs1(1,1)=prof_salt_mean(prof_i,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 169 PROFILES_INTERP_MEAN 
          tab_coeffs1(1,2)=prof_salt_mean(prof_i+1,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 170 PROFILES_INTERP_MEAN 
          tab_coeffs1(2,1)=prof_salt_mean(prof_i,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 171 PROFILES_INTERP_MEAN 
          tab_coeffs1(2,2)=prof_salt_mean(prof_i+1,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 172 PROFILES_INTERP_MEAN 
          tab_coeffs3(1,1)=maskC(prof_i,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 173 PROFILES_INTERP_MEAN 
          tab_coeffs3(1,2)=maskC(prof_i+1,prof_j,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 174 PROFILES_INTERP_MEAN 
          tab_coeffs3(2,1)=maskC(prof_i,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 175 PROFILES_INTERP_MEAN 
          tab_coeffs3(2,2)=maskC(prof_i+1,prof_j+1,k,bi,bj)
./pkg/profiles/profiles_interp_mean.F 218 PROFILES_INTERP_MEAN 
         prof_mask1D_cur(kk,bi,bj)=0
./pkg/profiles/profiles_interp_mean.F 21 PROFILES_INTERP_MEAN 
     I bj,
./pkg/profiles/profiles_interp_mean.F 220 PROFILES_INTERP_MEAN 
      do kk=1,ProfDepthNo(file_cur,bi,bj)
./pkg/profiles/profiles_interp_mean.F 222 PROFILES_INTERP_MEAN 
        if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then
./pkg/profiles/profiles_interp_mean.F 224 PROFILES_INTERP_MEAN 
          prof_mask1D_cur(kk,bi,bj)=mask_cur(1)
./pkg/profiles/profiles_interp_mean.F 226 PROFILES_INTERP_MEAN 
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp_mean.F 227 PROFILES_INTERP_MEAN 
          if ( prof_depth(file_cur,kk,bi,bj) .LT.
./pkg/profiles/profiles_interp_mean.F 230 PROFILES_INTERP_MEAN 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp_mean.F 236 PROFILES_INTERP_MEAN 
            if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND.
./pkg/profiles/profiles_interp_mean.F 237 PROFILES_INTERP_MEAN 
     &      (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then
./pkg/profiles/profiles_interp_mean.F 248 PROFILES_INTERP_MEAN 
            tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/
./pkg/profiles/profiles_interp_mean.F 252 PROFILES_INTERP_MEAN 
            prof_mask1D_cur(kk,bi,bj)=1
./pkg/profiles/profiles_interp_mean.F 258 PROFILES_INTERP_MEAN 
          elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then
./pkg/profiles/profiles_interp_mean.F 261 PROFILES_INTERP_MEAN 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp_mean.F 58 PROFILES_INTERP_MEAN 
      integer i,j,k,kk,kcur,bi,bj
./pkg/profiles/profiles_interp_mean.F 76 PROFILES_INTERP_MEAN 
        if ((yC(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp_mean.F 77 PROFILES_INTERP_MEAN 
     &  (yC(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp_mean.F 79 PROFILES_INTERP_MEAN 
          lat_1=yC(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 80 PROFILES_INTERP_MEAN 
          lat_2=yC(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_mean.F 87 PROFILES_INTERP_MEAN 
        if ((yG(i,j,bi,bj).LE.lat_cur).AND.
./pkg/profiles/profiles_interp_mean.F 88 PROFILES_INTERP_MEAN 
     &  (yG(i,j+1,bi,bj).GT.lat_cur)) then
./pkg/profiles/profiles_interp_mean.F 90 PROFILES_INTERP_MEAN 
          lat_1=yG(i,j,bi,bj)
./pkg/profiles/profiles_interp_mean.F 91 PROFILES_INTERP_MEAN 
          lat_2=yG(i,j+1,bi,bj)
./pkg/profiles/profiles_interp_mean_gg.F 101 PROFILES_INTERP_MEAN_GG 
         prof_mask1D_cur(kk,bi,bj)=0
./pkg/profiles/profiles_interp_mean_gg.F 103 PROFILES_INTERP_MEAN_GG 
      do kk=1,ProfDepthNo(file_cur,bi,bj)
./pkg/profiles/profiles_interp_mean_gg.F 105 PROFILES_INTERP_MEAN_GG 
        if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then
./pkg/profiles/profiles_interp_mean_gg.F 107 PROFILES_INTERP_MEAN_GG 
          prof_mask1D_cur(kk,bi,bj)=mask_cur(1)
./pkg/profiles/profiles_interp_mean_gg.F 109 PROFILES_INTERP_MEAN_GG 
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp_mean_gg.F 110 PROFILES_INTERP_MEAN_GG 
          if ( prof_depth(file_cur,kk,bi,bj) .LT.
./pkg/profiles/profiles_interp_mean_gg.F 113 PROFILES_INTERP_MEAN_GG 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp_mean_gg.F 119 PROFILES_INTERP_MEAN_GG 
            if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND.
./pkg/profiles/profiles_interp_mean_gg.F 120 PROFILES_INTERP_MEAN_GG 
     &      (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then
./pkg/profiles/profiles_interp_mean_gg.F 131 PROFILES_INTERP_MEAN_GG 
            tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/
./pkg/profiles/profiles_interp_mean_gg.F 135 PROFILES_INTERP_MEAN_GG 
            prof_mask1D_cur(kk,bi,bj)=1
./pkg/profiles/profiles_interp_mean_gg.F 141 PROFILES_INTERP_MEAN_GG 
          elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then
./pkg/profiles/profiles_interp_mean_gg.F 144 PROFILES_INTERP_MEAN_GG 
            prof_mask1D_cur(kk,bi,bj)=mask_cur(kcur)
./pkg/profiles/profiles_interp_mean_gg.F 22 PROFILES_INTERP_MEAN_GG 
     I bj,
./pkg/profiles/profiles_interp_mean_gg.F 63 PROFILES_INTERP_MEAN_GG 
      integer q,k,kk,kcur,bi,bj
./pkg/profiles/profiles_interp_mean_gg.F 74 PROFILES_INTERP_MEAN_GG 
               tab_coeffs1(q)=prof_etan_mean(i_cur(q),j_cur(q),bi,bj)
./pkg/profiles/profiles_interp_mean_gg.F 75 PROFILES_INTERP_MEAN_GG 
               tab_coeffs3(q)=maskC(i_cur(q),j_cur(q),1,bi,bj)
./model/src/diags_rho.F 151 DIAGS_RHO_G 
      INTEGER k, bi,bj
./model/src/diags_rho.F 164 DIAGS_RHO_G 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/diags_rho.F 169 DIAGS_RHO_G 
             tmpFld(i,j) = uFld(i,j,k,bi,bj)*_hFacW(i,j,k,bi,bj)
./model/src/diags_rho.F 170 DIAGS_RHO_G 
     &                   *(rho3d(i-1,j,k,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F 174 DIAGS_RHO_G 
          CALL DIAGNOSTICS_FILL(tmpFld,'URHOMASS',k,1,2,bi,bj,myThid)
./model/src/diags_rho.F 17 DIAGS_RHO_L 
     I                        diagRho, k, bi, bj,
./model/src/diags_rho.F 181 DIAGS_RHO_G 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/diags_rho.F 186 DIAGS_RHO_G 
             tmpFld(i,j) = vFld(i,j,k,bi,bj)*_hFacS(i,j,k,bi,bj)
./model/src/diags_rho.F 187 DIAGS_RHO_G 
     &                   *(rho3d(i,j-1,k,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F 191 DIAGS_RHO_G 
          CALL DIAGNOSTICS_FILL(tmpFld,'VRHOMASS',k,1,2,bi,bj,myThid)
./model/src/diags_rho.F 198 DIAGS_RHO_G 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/diags_rho.F 204 DIAGS_RHO_G 
             tmpFld(i,j) = wFld(i,j,k,bi,bj)*rho3d(i,j,k,bi,bj)
./model/src/diags_rho.F 210 DIAGS_RHO_G 
             tmpFld(i,j) = wFld(i,j,k,bi,bj)
./model/src/diags_rho.F 211 DIAGS_RHO_G 
     &                   *(rho3d(i,j,k-1,bi,bj)+rho3d(i,j,k,bi,bj))
./model/src/diags_rho.F 216 DIAGS_RHO_G 
          CALL DIAGNOSTICS_FILL(tmpFld,'WRHOMASS',k,1,2,bi,bj,myThid)
./model/src/diags_rho.F 49 DIAGS_RHO_L 
      INTEGER k, bi, bj
./model/src/diags_rho.F 73 DIAGS_RHO_L 
           tmpFld(i,j) = wFld(i,j,k,bi,bj)
./model/src/diags_rho.F 77 DIAGS_RHO_L 
        CALL DIAGNOSTICS_FILL(tmpFld,'WdRHO_P ',k,1,2,bi,bj,myThid)
./model/src/diags_rho.F 78 DIAGS_RHO_L 
        IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT('WdRHO_P ',bi,bj,myThid)
./model/src/diags_rho.F 86 DIAGS_RHO_L 
           tmpFld(i,j) = wFld(i,j,k,bi,bj)
./model/src/diags_rho.F 90 DIAGS_RHO_L 
        CALL DIAGNOSTICS_FILL(tmpFld,'WdRHOdP ',k,1,2,bi,bj,myThid)
./model/src/diags_rho.F 91 DIAGS_RHO_L 
        IF ( k.EQ.2 ) CALL DIAGNOSTICS_COUNT('WdRHOdP ',bi,bj,myThid)
./pkg/profiles/profiles_readvector.F 106 PROFILES_READVECTOR 
     & (k,irec-profiles_minind_buff(bi,bj)+1,-vNb,bi,bj)
./pkg/profiles/profiles_readvector.F 112 PROFILES_READVECTOR 
     & (k,irec-profiles_minind_buff(bi,bj)+1,vNb,bi,bj)
./pkg/profiles/profiles_readvector.F 13 PROFILES_READVECTOR 
     & vec_loc_length, vec_loc , bi,bj, myThid)
./pkg/profiles/profiles_readvector.F 27 PROFILES_READVECTOR 
      integer vec_loc_length, vNb, k, kk, kkk,bi,bj
./pkg/profiles/profiles_readvector.F 40 PROFILES_READVECTOR 
      if ( (irec.LT.profiles_minind_buff(bi,bj)).OR.
./pkg/profiles/profiles_readvector.F 41 PROFILES_READVECTOR 
     &  (irec.GT.profiles_maxind_buff(bi,bj)).OR.
./pkg/profiles/profiles_readvector.F 42 PROFILES_READVECTOR 
     & (profiles_curfile_buff(bi,bj).NE.fNb) ) then
./pkg/profiles/profiles_readvector.F 43 PROFILES_READVECTOR 
      err = NF_INQ_DIMID(fiddata(fNb,bi,bj),'iPROF', varid1)
./pkg/profiles/profiles_readvector.F 44 PROFILES_READVECTOR 
      err = NF_INQ_DIMLEN(fiddata(fNb,bi,bj), varid1, tmpprofno)
./pkg/profiles/profiles_readvector.F 46 PROFILES_READVECTOR 
      if (profiles_curfile_buff(bi,bj).NE.fNb) then
./pkg/profiles/profiles_readvector.F 48 PROFILES_READVECTOR 
      profiles_minind_buff(bi,bj)=max(1,irec-500+1)
./pkg/profiles/profiles_readvector.F 49 PROFILES_READVECTOR 
      profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+500)
./pkg/profiles/profiles_readvector.F 50 PROFILES_READVECTOR 
      elseif (irec.LT.profiles_minind_buff(bi,bj)) then
./pkg/profiles/profiles_readvector.F 52 PROFILES_READVECTOR 
      profiles_minind_buff(bi,bj)=max(1,irec-999)
./pkg/profiles/profiles_readvector.F 53 PROFILES_READVECTOR 
      profiles_maxind_buff(bi,bj)=irec
./pkg/profiles/profiles_readvector.F 56 PROFILES_READVECTOR 
      profiles_minind_buff(bi,bj)=irec
./pkg/profiles/profiles_readvector.F 57 PROFILES_READVECTOR 
      profiles_maxind_buff(bi,bj)=min(tmpprofno,irec+999)
./pkg/profiles/profiles_readvector.F 62 PROFILES_READVECTOR 
     &   profiles_minind_buff(bi,bj), profiles_maxind_buff(bi,bj),
./pkg/profiles/profiles_readvector.F 63 PROFILES_READVECTOR 
     &   irec, profNo(fNb,bi,bj), tmpprofno
./pkg/profiles/profiles_readvector.F 68 PROFILES_READVECTOR 
      vec_start(2)=profiles_minind_buff(bi,bj)
./pkg/profiles/profiles_readvector.F 71 PROFILES_READVECTOR 
     & profiles_maxind_buff(bi,bj)-profiles_minind_buff(bi,bj)+1
./pkg/profiles/profiles_readvector.F 74 PROFILES_READVECTOR 
      if (vec_quantities(fNb,kkk,bi,bj).EQV..TRUE.) then
./pkg/profiles/profiles_readvector.F 75 PROFILES_READVECTOR 
      err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_names(kkk),
./pkg/profiles/profiles_readvector.F 77 PROFILES_READVECTOR 
      err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start,
./pkg/profiles/profiles_readvector.F 79 PROFILES_READVECTOR 
      err = NF_INQ_VARID(fiddata(fNb,bi,bj),prof_namesweight(kkk)
./pkg/profiles/profiles_readvector.F 81 PROFILES_READVECTOR 
      err = NF_GET_VARA_DOUBLE(fiddata(fNb,bi,bj), varid1 , vec_start,
./pkg/profiles/profiles_readvector.F 91 PROFILES_READVECTOR 
      profiles_data_buff(k,kk,kkk,bi,bj)=vec_tmp1((kk-1)*vec_count(1)+k)
./pkg/profiles/profiles_readvector.F 92 PROFILES_READVECTOR 
      profiles_weight_buff(k,kk,kkk,bi,bj)=vec_tmp2((kk-1)*vec_count(1)
./pkg/profiles/profiles_readvector.F 99 PROFILES_READVECTOR 
      profiles_curfile_buff(bi,bj)=fNb
./model/src/do_atmospheric_phys.F 50 DO_ATMOSPHERIC_PHYS 
      INTEGER bi, bj
./model/src/do_atmospheric_phys.F 63 DO_ATMOSPHERIC_PHYS 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/do_atmospheric_phys.F 78 DO_ATMOSPHERIC_PHYS 
             rhoInSitu(i,j,k,bi,bj) =
./model/src/do_atmospheric_phys.F 79 DO_ATMOSPHERIC_PHYS 
     &         ( theta(i,j,k,bi,bj)
./model/src/do_atmospheric_phys.F 80 DO_ATMOSPHERIC_PHYS 
     &              *( salt(i,j,k,bi,bj)*atm_Rq + oneRL )
./model/src/do_atmospheric_phys.F 81 DO_ATMOSPHERIC_PHYS 
     &         - thetaRef )*maskC(i,j,k,bi,bj)
./model/src/do_atmospheric_phys.F 90 DO_ATMOSPHERIC_PHYS 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/do_atmospheric_phys.F 95 DO_ATMOSPHERIC_PHYS 
              rhoInSitu(i,j,k,bi,bj) = 0.
./pkg/ptracers/ptracers_apply_forcing.F 13 PTRACERS_APPLY_FORCING 
     I                    iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/ptracers/ptracers_apply_forcing.F 40 PTRACERS_APPLY_FORCING 
      INTEGER k, bi,bj, iTracer
./pkg/ptracers/ptracers_apply_forcing.F 71 PTRACERS_APPLY_FORCING 
     I                 iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/ptracers/ptracers_apply_forcing.F 81 PTRACERS_APPLY_FORCING 
     &                   *recip_drF(k)*recip_hFacC(i,j,k,bi,bj)
./pkg/ptracers/ptracers_apply_forcing.F 90 PTRACERS_APPLY_FORCING 
     I                 k, bi, bj, iTracer+2,
./pkg/ptracers/ptracers_calc_wsurf_tr.F 47 PTRACERS_CALC_WSURF_TR 
      INTEGER i,j,bi,bj,ks,itr
./pkg/ptracers/ptracers_calc_wsurf_tr.F 53 PTRACERS_CALC_WSURF_TR 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_calc_wsurf_tr.F 56 PTRACERS_CALC_WSURF_TR 
         wT_Tile(bi,bj,itr) = 0.
./pkg/ptracers/ptracers_calc_wsurf_tr.F 59 PTRACERS_CALC_WSURF_TR 
           ks = ksurfC(i,j,bi,bj)
./pkg/ptracers/ptracers_calc_wsurf_tr.F 61 PTRACERS_CALC_WSURF_TR 
            wT_Tile(bi,bj,itr) = wT_Tile(bi,bj,itr)
./pkg/ptracers/ptracers_calc_wsurf_tr.F 62 PTRACERS_CALC_WSURF_TR 
     &       + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj)
./pkg/ptracers/ptracers_calc_wsurf_tr.F 63 PTRACERS_CALC_WSURF_TR 
     &                      *ptracer(i,j,ks,bi,bj,iTr)
./pkg/ptracers/ptracers_convect.F 10 PTRACERS_CONVECT 
      SUBROUTINE PTRACERS_CONVECT( bi,bj,k,weightA,weightB,myThid )
./pkg/ptracers/ptracers_convect.F 33 PTRACERS_CONVECT 
      INTEGER bi,bj,k
./pkg/ptracers/ptracers_convect.F 57 PTRACERS_CONVECT 
          act2 = bj - myByLo(myThid)
./pkg/ptracers/ptracers_convect.F 73 PTRACERS_CONVECT 
     I           bi,bj,k,weightA,weightB,
./pkg/ptracers/ptracers_diagnostics_state.F 109 PTRACERS_DIAGNOSTICS_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./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 142 PTRACERS_DIAGNOSTICS_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./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 76 PTRACERS_DIAGNOSTICS_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./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) )
./pkg/ptracers/ptracers_forcing_surf.F 105 PTRACERS_FORCING_SURF 
         CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid)
./pkg/ptracers/ptracers_forcing_surf.F 12 PTRACERS_FORCING_SURF 
     I                            bi, bj, iMin, iMax, jMin, jMax,
./pkg/ptracers/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 132 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 133 PTRACERS_FORCING_SURF 
     &        + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F 134 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 162 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 163 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 164 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F 165 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./pkg/ptracers/ptracers_forcing_surf.F 184 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./pkg/ptracers/ptracers_forcing_surf.F 185 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./pkg/ptracers/ptracers_forcing_surf.F 186 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./pkg/ptracers/ptracers_forcing_surf.F 41 PTRACERS_FORCING_SURF 
      INTEGER bi, bj, iMin, iMax, jMin, jMax
./pkg/ptracers/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) = 0. _d 0
./pkg/ptracers/ptracers_forcing_surf.F 88 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./pkg/ptracers/ptracers_init_varia.F 112 PTRACERS_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_init_varia.F 117 PTRACERS_INIT_VARIA 
            IF (maskC(i,j,k,bi,bj).EQ.0.)
./pkg/ptracers/ptracers_init_varia.F 118 PTRACERS_INIT_VARIA 
     &           pTracer(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/ptracers/ptracers_init_varia.F 38 PTRACERS_INIT_VARIA 
      INTEGER i,j,k,bi,bj,iTracer
./pkg/ptracers/ptracers_init_varia.F 58 PTRACERS_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_init_varia.F 65 PTRACERS_INIT_VARIA 
            pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer)
./pkg/ptracers/ptracers_init_varia.F 66 PTRACERS_INIT_VARIA 
            gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 72 PTRACERS_INIT_VARIA 
           surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 83 PTRACERS_INIT_VARIA 
               _Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_integrate.F 11 PTRACERS_INTEGRATE 
     I                    bi, bj, recip_hFac,
./pkg/ptracers/ptracers_integrate.F 169 PTRACERS_INTEGRATE 
          act2 = bj - myByLo(myThid)
./pkg/ptracers/ptracers_integrate.F 185 PTRACERS_INTEGRATE 
     I                      bi, bj, 0, Nr,
./pkg/ptracers/ptracers_integrate.F 186 PTRACERS_INTEGRATE 
     I                      pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 187 PTRACERS_INTEGRATE 
     U                      gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 209 PTRACERS_INTEGRATE 
     I         bi, bj, iMin,iMax,jMin,jMax,
./pkg/ptracers/ptracers_integrate.F 235 PTRACERS_INTEGRATE 
     I                        bi, bj, myTime, myIter, myThid )
./pkg/ptracers/ptracers_integrate.F 251 PTRACERS_INTEGRATE 
     I                        bi, bj, myTime, myIter, myThid )
./pkg/ptracers/ptracers_integrate.F 279 PTRACERS_INTEGRATE 
     I                k, bi, bj, myThid )
./pkg/ptracers/ptracers_integrate.F 289 PTRACERS_INTEGRATE 
     I                    surfaceForcingPTr(1-OLx,1-OLy,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 290 PTRACERS_INTEGRATE 
     I                    iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/ptracers/ptracers_integrate.F 295 PTRACERS_INTEGRATE 
            CALL DIAGNOSTICS_FILL(gTrForc,diagName,k,1,2,bi,bj,myThid)
./pkg/ptracers/ptracers_integrate.F 302 PTRACERS_INTEGRATE 
     I             bi,bj, iMin,iMax,jMin,jMax, k,kM1, kUp,kDown,
./pkg/ptracers/ptracers_integrate.F 309 PTRACERS_INTEGRATE 
     I             pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 310 PTRACERS_INTEGRATE 
     I             gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 339 PTRACERS_INTEGRATE 
     I                      bi, bj, k, Nr,
./pkg/ptracers/ptracers_integrate.F 341 PTRACERS_INTEGRATE 
     U                      gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 347 PTRACERS_INTEGRATE 
             CALL DIAGNOSTICS_FILL(gTr_AB,diagName,k,1,2,bi,bj,myThid)
./pkg/ptracers/ptracers_integrate.F 365 PTRACERS_INTEGRATE 
     I                           bi, bj, k,
./pkg/ptracers/ptracers_integrate.F 370 PTRACERS_INTEGRATE 
     I                           bi, bj, k,
./pkg/ptracers/ptracers_integrate.F 371 PTRACERS_INTEGRATE 
     U                           gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 383 PTRACERS_INTEGRATE 
     I                  GAD_TR, bi, bj, kSurfC,
./pkg/ptracers/ptracers_integrate.F 384 PTRACERS_INTEGRATE 
     I                  pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 390 PTRACERS_INTEGRATE 
     I                  GAD_TR, bi, bj, kLowC,
./pkg/ptracers/ptracers_integrate.F 391 PTRACERS_INTEGRATE 
     I                  pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 401 PTRACERS_INTEGRATE 
     I                bi, bj, PTRACERS_dTLev,
./pkg/ptracers/ptracers_integrate.F 402 PTRACERS_INTEGRATE 
     I                pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 413 PTRACERS_INTEGRATE 
     I                      iTracer, bi, bj,
./pkg/ptracers/ptracers_integrate.F 436 PTRACERS_INTEGRATE 
     I         pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 438 PTRACERS_INTEGRATE 
     I         bi, bj, myTime, myIter, myThid )
./pkg/ptracers/ptracers_integrate.F 445 PTRACERS_INTEGRATE 
     I         bi, bj, iMin, iMax, jMin, jMax,
./pkg/ptracers/ptracers_integrate.F 454 PTRACERS_INTEGRATE 
     I               bi, bj, gTracer,
./pkg/ptracers/ptracers_integrate.F 455 PTRACERS_INTEGRATE 
     U               pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 456 PTRACERS_INTEGRATE 
     O               gpTrNm1(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 461 PTRACERS_INTEGRATE 
     I               bi, bj,
./pkg/ptracers/ptracers_integrate.F 462 PTRACERS_INTEGRATE 
     O               pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 470 PTRACERS_INTEGRATE 
     I         bi, bj, 0, iTracer,
./pkg/ptracers/ptracers_integrate.F 471 PTRACERS_INTEGRATE 
     U         pTracer(1-OLx,1-OLy,1,bi,bj,iTracer),
./pkg/ptracers/ptracers_integrate.F 49 PTRACERS_INTEGRATE 
      INTEGER bi, bj
./model/src/do_oceanic_phys.F 1007 DO_OCEANIC_PHYS 
     I                bi, bj, kSurfC, rhoInSitu,
./model/src/do_oceanic_phys.F 1011 DO_OCEANIC_PHYS 
     I                bi, bj, kLowC, rhoInSitu,
./model/src/do_oceanic_phys.F 1067 DO_OCEANIC_PHYS 
     &      CALL SALT_PLUME_DIAGNOSTICS_FILL(bi,bj,myThid)
./model/src/do_oceanic_phys.F 130 DO_OCEANIC_PHYS 
      INTEGER bi, bj
./model/src/do_oceanic_phys.F 195 DO_OCEANIC_PHYS 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/do_oceanic_phys.F 199 DO_OCEANIC_PHYS 
          saltPlumeDepth(i,j,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F 200 DO_OCEANIC_PHYS 
          saltPlumeFlux(i,j,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 208 DO_OCEANIC_PHYS 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/do_oceanic_phys.F 213 DO_OCEANIC_PHYS 
           sigmaRfield(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F 512 DO_OCEANIC_PHYS 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/do_oceanic_phys.F 522 DO_OCEANIC_PHYS 
          act2 = bj - myByLo(myThid)
./model/src/do_oceanic_phys.F 560 DO_OCEANIC_PHYS 
           rhoInSitu(i,j,k,bi,bj) = 0.
./model/src/do_oceanic_phys.F 562 DO_OCEANIC_PHYS 
           GGL90viscArU(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 563 DO_OCEANIC_PHYS 
           GGL90viscArV(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 564 DO_OCEANIC_PHYS 
           GGL90diffKr(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 568 DO_OCEANIC_PHYS 
           SPforcingS(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F 569 DO_OCEANIC_PHYS 
           SPforcingT(i,j,k,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F 581 DO_OCEANIC_PHYS 
           IVDConvCount(i,j,k,bi,bj) = 0.
./model/src/do_oceanic_phys.F 593 DO_OCEANIC_PHYS 
           Kwx(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 594 DO_OCEANIC_PHYS 
           Kwy(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 595 DO_OCEANIC_PHYS 
           Kwz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 597 DO_OCEANIC_PHYS 
           Kux(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 598 DO_OCEANIC_PHYS 
           Kvy(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 601 DO_OCEANIC_PHYS 
           Kuz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 602 DO_OCEANIC_PHYS 
           Kvz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 605 DO_OCEANIC_PHYS 
           GM_PsiX(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 606 DO_OCEANIC_PHYS 
           GM_PsiY(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 609 DO_OCEANIC_PHYS 
           VisbeckK(i,j,bi,bj)   = 0. _d 0
./model/src/do_oceanic_phys.F 623 DO_OCEANIC_PHYS 
           KPPdiffKzS(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 624 DO_OCEANIC_PHYS 
           KPPdiffKzT(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 669 DO_OCEANIC_PHYS 
     O                  rhoInSitu(1-OLx,1-OLy,k,bi,bj),
./model/src/do_oceanic_phys.F 670 DO_OCEANIC_PHYS 
     I                  k, bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 683 DO_OCEANIC_PHYS 
     I                  k, bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 692 DO_OCEANIC_PHYS 
     I                theta(1-OLx,1-OLy,k,bi,bj),
./model/src/do_oceanic_phys.F 693 DO_OCEANIC_PHYS 
     I                salt (1-OLx,1-OLy,k,bi,bj),
./model/src/do_oceanic_phys.F 694 DO_OCEANIC_PHYS 
     O                rhoInSitu(1-OLx,1-OLy,k,bi,bj),
./model/src/do_oceanic_phys.F 695 DO_OCEANIC_PHYS 
     I                k, bi, bj, myThid )
./model/src/do_oceanic_phys.F 711 DO_OCEANIC_PHYS 
             rhoInSitu(i,j,k,bi,bj) =
./model/src/do_oceanic_phys.F 712 DO_OCEANIC_PHYS 
     &         ( theta(i,j,k,bi,bj)
./model/src/do_oceanic_phys.F 713 DO_OCEANIC_PHYS 
     &              *( salt(i,j,k,bi,bj)*atm_Rq + oneRL )
./model/src/do_oceanic_phys.F 714 DO_OCEANIC_PHYS 
     &         - thetaRef )*maskC(i,j,k,bi,bj)
./model/src/do_oceanic_phys.F 760 DO_OCEANIC_PHYS 
     I                 theta(1-OLx,1-OLy,k-1,bi,bj),
./model/src/do_oceanic_phys.F 761 DO_OCEANIC_PHYS 
     I                 salt (1-OLx,1-OLy,k-1,bi,bj),
./model/src/do_oceanic_phys.F 763 DO_OCEANIC_PHYS 
     I                 k-1, bi, bj, myThid )
./model/src/do_oceanic_phys.F 771 DO_OCEANIC_PHYS 
              rhoKp1(i,j) = rhoInSitu(i,j,k,bi,bj)
./model/src/do_oceanic_phys.F 775 DO_OCEANIC_PHYS 
     I             bi, bj, iMin, iMax, jMin, jMax, k,
./model/src/do_oceanic_phys.F 776 DO_OCEANIC_PHYS 
     I             rhoInSitu(1-OLx,1-OLy,k,bi,bj), rhoKm1, rhoKp1,
./model/src/do_oceanic_phys.F 783 DO_OCEANIC_PHYS 
              sigmaRfield(i,j,k,bi,bj)=sigmaR(i,j,k)
./model/src/do_oceanic_phys.F 805 DO_OCEANIC_PHYS 
     I        bi, bj, iMin, iMax, jMin, jMax, k,
./model/src/do_oceanic_phys.F 812 DO_OCEANIC_PHYS 
            CALL DIAGS_RHO_L( doDiagsRho, k, bi, bj,
./model/src/do_oceanic_phys.F 813 DO_OCEANIC_PHYS 
     I                        rhoInSitu(1-OLx,1-OLy,1,bi,bj),
./model/src/do_oceanic_phys.F 831 DO_OCEANIC_PHYS 
     I              rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR,
./model/src/do_oceanic_phys.F 832 DO_OCEANIC_PHYS 
     I              bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 838 DO_OCEANIC_PHYS 
     I              rhoInSitu(1-OLx,1-OLy,1,bi,bj), sigmaR,
./model/src/do_oceanic_phys.F 839 DO_OCEANIC_PHYS 
     I              bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 842 DO_OCEANIC_PHYS 
     I              bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 845 DO_OCEANIC_PHYS 
     I              1, bi, bj, recip_hFacC(1-OLx,1-OLy,1,bi,bj),
./model/src/do_oceanic_phys.F 849 DO_OCEANIC_PHYS 
     I              2, bi, bj, recip_hFacC(1-OLx,1-OLy,1,bi,bj),
./model/src/do_oceanic_phys.F 854 DO_OCEANIC_PHYS 
     I              bi, bj, iMin, iMax, jMin, jMax,
./model/src/do_oceanic_phys.F 863 DO_OCEANIC_PHYS 
     &         2, bi, bj, myThid)
./model/src/do_oceanic_phys.F 897 DO_OCEANIC_PHYS 
     I                  bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 902 DO_OCEANIC_PHYS 
     I                  bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 914 DO_OCEANIC_PHYS 
     I                     bi, bj, sigmaR, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 925 DO_OCEANIC_PHYS 
     I                     bi, bj, sigmaR, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 936 DO_OCEANIC_PHYS 
     I                     bi, bj, sigmaR, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 952 DO_OCEANIC_PHYS 
     I                     bi, bj, sigmaR, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 959 DO_OCEANIC_PHYS 
          CALL TIMEAVE_SURF_FLUX( bi, bj, myTime, myIter, myThid)
./model/src/do_oceanic_phys.F 963 DO_OCEANIC_PHYS 
     I                           Nr, deltaTClock, bi, bj, myThid)
./model/src/do_oceanic_phys.F 991 DO_OCEANIC_PHYS 
     I             bi, bj, myTime, myIter, myThid )
./model/src/do_oceanic_phys.F 997 DO_OCEANIC_PHYS 
     I             bi, bj, myTime, myIter, myThid )
./pkg/ptracers/ptracers_reset.F 115 PTRACERS_RESET 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_reset.F 121 PTRACERS_RESET 
               _Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_reset.F 43 PTRACERS_RESET 
      INTEGER i,j,k,bi,bj,iTracer
./pkg/ptracers/ptracers_reset.F 70 PTRACERS_RESET 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_reset.F 75 PTRACERS_RESET 
             pTracer(i,j,k,bi,bj,iTracer) = PTRACERS_ref(k,iTracer)
./pkg/ptracers/ptracers_reset.F 76 PTRACERS_RESET 
             gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_reset.F 93 PTRACERS_RESET 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_reset.F 98 PTRACERS_RESET 
             IF (maskC(i,j,k,bi,bj).EQ.0.)
./pkg/ptracers/ptracers_reset.F 99 PTRACERS_RESET 
     &           pTracer(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/ptracers/ptracers_timeave.F 10 PTRACERS_TIMEAVE 
     I                    myTime, myIter, bi, bj, myThid )
./pkg/ptracers/ptracers_timeave.F 41 PTRACERS_TIMEAVE 
      INTEGER bi, bj
./pkg/ptracers/ptracers_timeave.F 62 PTRACERS_TIMEAVE 
     &                       1 , bi, bj, myThid )
./pkg/ptracers/ptracers_timeave.F 64 PTRACERS_TIMEAVE 
     &                       Nr, bi, bj, myThid )
./pkg/ptracers/ptracers_timeave.F 66 PTRACERS_TIMEAVE 
        ptracer_half(bi,bj) = 0.
./pkg/ptracers/ptracers_timeave.F 67 PTRACERS_TIMEAVE 
        ptracer_full(bi,bj) = 0.
./pkg/ptracers/ptracers_timeave.F 84 PTRACERS_TIMEAVE 
     &                          Nr, DDTT, bi, bj, myThid )
./pkg/ptracers/ptracers_timeave.F 87 PTRACERS_TIMEAVE 
        ptracer_half(bi,bj) = ptracer_half(bi,bj)+DDTT
./pkg/ptracers/ptracers_timeave.F 96 PTRACERS_TIMEAVE 
     &                          1, deltaTclock, bi, bj, myThid )
./pkg/ptracers/ptracers_timeave.F 98 PTRACERS_TIMEAVE 
        ptracer_full(bi,bj) = ptracer_full(bi,bj)+deltaTclock
./pkg/ptracers/ptracers_write_timeave.F 157 PTRACERS_WRITE_TIMEAVE 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_write_timeave.F 165 PTRACERS_WRITE_TIMEAVE 
            CALL PTRACERS_TIMEAVE( myTime, nIter0, bi, bj, myThid )
./pkg/ptracers/ptracers_write_timeave.F 45 PTRACERS_WRITE_TIMEAVE 
      INTEGER bi, bj, iTr
./pkg/ptracers/ptracers_write_timeave.F 63 PTRACERS_WRITE_TIMEAVE 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ptracers/ptracers_write_timeave.F 69 PTRACERS_WRITE_TIMEAVE 
     &                     ptracer_full,  1, bi, bj, myThid )
./pkg/ptracers/ptracers_write_timeave.F 72 PTRACERS_WRITE_TIMEAVE 
     &                     ptracer_half, Nr, bi, bj, myThid )
./pkg/ptracers/ptracers_zonal_filt_apply.F 40 PTRACERS_ZONAL_FILT_APPLY 
      INTEGER bi,bj
./pkg/ptracers/ptracers_zonal_filt_apply.F 45 PTRACERS_ZONAL_FILT_APPLY 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ptracers/ptracers_zonal_filt_apply.F 48 PTRACERS_ZONAL_FILT_APPLY 
     U                       pTracer(1-OLx,1-OLy,1,bi,bj,iTr),
./pkg/ptracers/ptracers_zonal_filt_apply.F 49 PTRACERS_ZONAL_FILT_APPLY 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./pkg/ptracers/ptracers_zonal_filt_apply.F 50 PTRACERS_ZONAL_FILT_APPLY 
     I                       1, sNy, Nr, bi, bj, 1, myThid )
./pkg/rbcs/rbcs_add_tendency.F 109 RBCS_ADD_TENDENCY 
     &       - RBC_mask(i,j,k,bi,bj,2)/tauRelaxS
./pkg/rbcs/rbcs_add_tendency.F 110 RBCS_ADD_TENDENCY 
     &        *( salt(i,j,k,bi,bj)- RBCsalt(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F 125 RBCS_ADD_TENDENCY 
     &       - RBC_mask(i,j,k,bi,bj,irbc)/tauRelaxPTR(iTracer)
./pkg/rbcs/rbcs_add_tendency.F 126 RBCS_ADD_TENDENCY 
     &        *( pTracer(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_add_tendency.F 127 RBCS_ADD_TENDENCY 
     &           - RBC_ptracers(i,j,k,bi,bj,iTracer) )
./pkg/rbcs/rbcs_add_tendency.F 12 RBCS_ADD_TENDENCY 
     I                    k, bi, bj, tracerNum,
./pkg/rbcs/rbcs_add_tendency.F 42 RBCS_ADD_TENDENCY 
      INTEGER k, bi, bj
./pkg/rbcs/rbcs_add_tendency.F 72 RBCS_ADD_TENDENCY 
     &       - RBC_maskU(i,j,k,bi,bj)/tauRelaxU
./pkg/rbcs/rbcs_add_tendency.F 73 RBCS_ADD_TENDENCY 
     &        *( uVel(i,j,k,bi,bj)- RBCuVel(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F 83 RBCS_ADD_TENDENCY 
     &       - RBC_maskV(i,j,k,bi,bj)/tauRelaxV
./pkg/rbcs/rbcs_add_tendency.F 84 RBCS_ADD_TENDENCY 
     &        *( vVel(i,j,k,bi,bj)- RBCvVel(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_add_tendency.F 96 RBCS_ADD_TENDENCY 
     &       - RBC_mask(i,j,k,bi,bj,1)/tauRelaxT
./pkg/rbcs/rbcs_add_tendency.F 97 RBCS_ADD_TENDENCY 
     &        *( theta(i,j,k,bi,bj)- RBCtemp(i,j,k,bi,bj) )
./pkg/rbcs/rbcs_fields_load.F 109 RBCS_FIELDS_LOAD 
      IF ( intime1.NE.rbcsLdRec(bi,bj) ) THEN
./pkg/rbcs/rbcs_fields_load.F 119 RBCS_FIELDS_LOAD 
     &    ' (prev=', intimeP, rbcsLdRec(bi,bj), ' )'
./pkg/rbcs/rbcs_fields_load.F 221 RBCS_FIELDS_LOAD 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_fields_load.F 223 RBCS_FIELDS_LOAD 
           rbcsLdRec(bi,bj) = intime1
./pkg/rbcs/rbcs_fields_load.F 231 RBCS_FIELDS_LOAD 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_fields_load.F 238 RBCS_FIELDS_LOAD 
            RBCuVel(i,j,k,bi,bj) = bWght*rbcu0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 239 RBCS_FIELDS_LOAD 
     &                            +aWght*rbcu1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 240 RBCS_FIELDS_LOAD 
            RBCvVel(i,j,k,bi,bj) = bWght*rbcv0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 241 RBCS_FIELDS_LOAD 
     &                            +aWght*rbcv1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 250 RBCS_FIELDS_LOAD 
            RBCtemp(i,j,k,bi,bj) = bWght*rbct0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 251 RBCS_FIELDS_LOAD 
     &                            +aWght*rbct1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 252 RBCS_FIELDS_LOAD 
            RBCsalt(i,j,k,bi,bj) = bWght*rbcs0(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 253 RBCS_FIELDS_LOAD 
     &                            +aWght*rbcs1(i,j,k,bi,bj)
./pkg/rbcs/rbcs_fields_load.F 264 RBCS_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_fields_load.F 269 RBCS_FIELDS_LOAD 
               RBC_ptracers(i,j,k,bi,bj,iTracer) =
./pkg/rbcs/rbcs_fields_load.F 270 RBCS_FIELDS_LOAD 
     &                      bWght*rbcptr0(i,j,k,bi,bj,iTracer)
./pkg/rbcs/rbcs_fields_load.F 271 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
./pkg/rbcs/rbcs_fields_load.F 74 RBCS_FIELDS_LOAD 
      bj = myByLo(myThid)
./pkg/rbcs/rbcs_fields_load.F 86 RBCS_FIELDS_LOAD 
     &   ' : iP,iLd,i0,i1=', intimeP,rbcsLdRec(bi,bj), intime0,intime1,
./pkg/rbcs/rbcs_init_fixed.F 117 RBCS_INIT_FIXED 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_fixed.F 122 RBCS_INIT_FIXED 
               RBC_maskU(i,j,k,bi,bj) =
./pkg/rbcs/rbcs_init_fixed.F 123 RBCS_INIT_FIXED 
     &                  ( RBC_mask(i-1,j,k,bi,bj,1)
./pkg/rbcs/rbcs_init_fixed.F 124 RBCS_INIT_FIXED 
     &                  + RBC_mask( i ,j,k,bi,bj,1) )*0.5 _d 0
./pkg/rbcs/rbcs_init_fixed.F 138 RBCS_INIT_FIXED 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_fixed.F 143 RBCS_INIT_FIXED 
               RBC_maskV(i,j,k,bi,bj) =
./pkg/rbcs/rbcs_init_fixed.F 144 RBCS_INIT_FIXED 
     &                  ( RBC_mask(i,j-1,k,bi,bj,1)
./pkg/rbcs/rbcs_init_fixed.F 145 RBCS_INIT_FIXED 
     &                  + RBC_mask(i, j ,k,bi,bj,1) )*0.5 _d 0
./pkg/rbcs/rbcs_init_fixed.F 155 RBCS_INIT_FIXED 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_fixed.F 160 RBCS_INIT_FIXED 
               RBC_maskU(i,j,k,bi,bj) = RBC_maskU(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F 161 RBCS_INIT_FIXED 
     &                                * maskW(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F 162 RBCS_INIT_FIXED 
               RBC_maskV(i,j,k,bi,bj) = RBC_maskV(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F 163 RBCS_INIT_FIXED 
     &                                * maskS(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_fixed.F 35 RBCS_INIT_FIXED 
      INTEGER i,j,k,bi,bj
./pkg/rbcs/rbcs_init_fixed.F 46 RBCS_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_fixed.F 51 RBCS_INIT_FIXED 
             RBC_maskU(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_fixed.F 52 RBCS_INIT_FIXED 
             RBC_maskV(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_fixed.F 64 RBCS_INIT_FIXED 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_fixed.F 71 RBCS_INIT_FIXED 
               RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0
./pkg/rbcs/rbcs_init_fixed.F 89 RBCS_INIT_FIXED 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_fixed.F 94 RBCS_INIT_FIXED 
               RBC_mask(i,j,k,bi,bj,irbc) = RBC_mask(i,j,k,bi,bj,irbc)
./pkg/rbcs/rbcs_init_fixed.F 95 RBCS_INIT_FIXED 
     &                                    * maskC(i,j,k,bi,bj)
./pkg/rbcs/rbcs_init_varia.F 34 RBCS_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/rbcs/rbcs_init_varia.F 39 RBCS_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_varia.F 41 RBCS_INIT_VARIA 
          rbcsLdRec(bi,bj) = 0
./pkg/rbcs/rbcs_init_varia.F 46 RBCS_INIT_VARIA 
                rbcu0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 47 RBCS_INIT_VARIA 
                rbcv0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 48 RBCS_INIT_VARIA 
                rbcu1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 49 RBCS_INIT_VARIA 
                rbcv1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 50 RBCS_INIT_VARIA 
                RBCuVel(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 51 RBCS_INIT_VARIA 
                RBCvVel(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 53 RBCS_INIT_VARIA 
                rbct0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 54 RBCS_INIT_VARIA 
                rbcs0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 55 RBCS_INIT_VARIA 
                rbct1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 56 RBCS_INIT_VARIA 
                rbcs1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 57 RBCS_INIT_VARIA 
                RBCtemp(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 58 RBCS_INIT_VARIA 
                RBCsalt(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 68 RBCS_INIT_VARIA 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/rbcs/rbcs_init_varia.F 73 RBCS_INIT_VARIA 
                rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 74 RBCS_INIT_VARIA 
                rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 75 RBCS_INIT_VARIA 
                RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0
./model/src/do_statevars_tave.F 47 DO_STATEVARS_TAVE 
      INTEGER bi,bj
./model/src/do_statevars_tave.F 51 DO_STATEVARS_TAVE 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/do_statevars_tave.F 55 DO_STATEVARS_TAVE 
           CALL TIMEAVE_STATVARS( myTime, myIter, bi, bj, myThid )
./model/src/do_statevars_tave.F 59 DO_STATEVARS_TAVE 
           CALL PTRACERS_TIMEAVE( myTime, myIter, bi, bj, myThid )
./pkg/regrid/regrid_init_varia.F 102 REGRID_INIT_VARIA 
          jG = bj + (myYGlobalLo-1)/sNy
./pkg/regrid/regrid_init_varia.F 123 REGRID_INIT_VARIA 
              nlpts = REGRID_iend(i,bi,bj)
./pkg/regrid/regrid_init_varia.F 172 REGRID_INIT_VARIA 
                REGRID_i_loc(nlpts,bi,bj) = irx
./pkg/regrid/regrid_init_varia.F 173 REGRID_INIT_VARIA 
                REGRID_j_loc(nlpts,bi,bj) = isrc/nFx + 1
./pkg/regrid/regrid_init_varia.F 174 REGRID_INIT_VARIA 
                REGRID_i_out(nlpts,bi,bj) = idst
./pkg/regrid/regrid_init_varia.F 175 REGRID_INIT_VARIA 
                REGRID_amat(nlpts,bi,bj)  = wt
./pkg/regrid/regrid_init_varia.F 186 REGRID_INIT_VARIA 
            REGRID_ibeg(i,bi,bj) = init_nlpts + 1
./pkg/regrid/regrid_init_varia.F 187 REGRID_INIT_VARIA 
            REGRID_iend(i,bi,bj) = nlpts
./pkg/regrid/regrid_init_varia.F 37 REGRID_INIT_VARIA 
      INTEGER i,k, iface, uniq_tnum, bi,bj
./pkg/regrid/regrid_init_varia.F 86 REGRID_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/regrid/regrid_init_varia.F 91 REGRID_INIT_VARIA 
          uniq_tnum = W2_myTileList(bi,bj)
./pkg/rw/read_glvec_rl.F 41 READ_GLVEC_RL 
      INTEGER ioUnit, bi, bj
./pkg/rw/read_glvec_rl.F 62 READ_GLVEC_RL 
      bj = 0
./pkg/rw/read_glvec_rl.F 67 READ_GLVEC_RL 
     I                       bi, bj, iRec, myThid )
./pkg/rw/read_glvec_rs.F 41 READ_GLVEC_RS 
      INTEGER ioUnit, bi, bj
./pkg/rw/read_glvec_rs.F 62 READ_GLVEC_RS 
      bj = 0
./pkg/rw/read_glvec_rs.F 67 READ_GLVEC_RS 
     I                       bi, bj, iRec, myThid )
./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 87 WRITE_FLD_S3D_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 87 WRITE_FLD_S3D_RS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/rw/write_fld_s3d_rs.F 92 WRITE_FLD_S3D_RS 
            locVar(i,j,k,bi,bj) = field(i,j,k,bi,bj)
./model/src/dynamics.F 185 DYNAMICS 
      INTEGER bi, bj
./model/src/dynamics.F 269 DYNAMICS 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/dynamics.F 284 DYNAMICS 
          act2 = bj - myByLo(myThid)
./model/src/dynamics.F 305 DYNAMICS 
           gU(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 306 DYNAMICS 
           gV(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 328 DYNAMICS 
          phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 331 DYNAMICS 
          dWtransC(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 332 DYNAMICS 
          dWtransU(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 333 DYNAMICS 
          dWtransV(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 351 DYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax,
./model/src/dynamics.F 384 DYNAMICS 
     I            bi,bj, iMin,iMax,jMin,jMax,
./model/src/dynamics.F 394 DYNAMICS 
     I         bi, bj, myThid )
./model/src/dynamics.F 410 DYNAMICS 
     U         uVel(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 411 DYNAMICS 
     U         vVel(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 412 DYNAMICS 
     I         Nr, bi, bj, myThid )
./model/src/dynamics.F 417 DYNAMICS 
        CALL CALC_EDDY_STRESS(bi,bj,myThid)
./model/src/dynamics.F 482 DYNAMICS 
     I        bi,bj,iMin,iMax,jMin,jMax,k,
./model/src/dynamics.F 491 DYNAMICS 
     &                           'Um_dPHdx', k, 1, 2, bi, bj, myThid )
./model/src/dynamics.F 493 DYNAMICS 
     &                           'Vm_dPHdy', k, 1, 2, bi, bj, myThid )
./model/src/dynamics.F 527 DYNAMICS 
     I         bi,bj,k,iMin,iMax,jMin,jMax,
./model/src/dynamics.F 537 DYNAMICS 
     I         bi,bj,k,iMin,iMax,jMin,jMax,
./model/src/dynamics.F 552 DYNAMICS 
     I         k, bi, bj, myThid )
./model/src/dynamics.F 557 DYNAMICS 
     I         iMin,iMax,jMin,jMax, k, bi, bj, myThid )
./model/src/dynamics.F 568 DYNAMICS 
     I         bi,bj,iMin,iMax,jMin,jMax,k,
./model/src/dynamics.F 583 DYNAMICS 
     I                           bi, bj, myTime, myIter, myThid )
./model/src/dynamics.F 585 DYNAMICS 
     I                           bi, bj, myTime, myIter, myThid )
./model/src/dynamics.F 594 DYNAMICS 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/dynamics.F 595 DYNAMICS 
     I         -1, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 596 DYNAMICS 
     U         gU(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 602 DYNAMICS 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/dynamics.F 603 DYNAMICS 
     I         -2, KappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 604 DYNAMICS 
     U         gV(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 614 DYNAMICS 
     I        bi, bj, iMin, iMax, jMin, jMax, 0,
./model/src/dynamics.F 616 DYNAMICS 
          CALL OBCS_APPLY_UV( bi, bj, 0, gU, gV, myThid )
./model/src/dynamics.F 626 DYNAMICS 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/dynamics.F 627 DYNAMICS 
     I         0, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 628 DYNAMICS 
     U         vVelD(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 634 DYNAMICS 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/dynamics.F 635 DYNAMICS 
     I         0, KappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 636 DYNAMICS 
     U         uVelD(1-OLx,1-OLy,1,bi,bj),
./model/src/dynamics.F 652 DYNAMICS 
     I                 bi,bj, KappaRU, KappaRV,
./model/src/dynamics.F 658 DYNAMICS 
     &   CALL TIMESTEP_WVEL( bi,bj, myTime, myIter, myThid )
./pkg/rw/write_glvec_rl.F 39 WRITE_GLVEC_RL 
      INTEGER ioUnit, bi, bj, iRec
./pkg/rw/write_glvec_rl.F 60 WRITE_GLVEC_RL 
      bj = 0
./pkg/rw/write_glvec_rl.F 66 WRITE_GLVEC_RL 
     I                       bi, bj, iRec, myIter, myThid )
./pkg/rw/write_glvec_rs.F 39 WRITE_GLVEC_RS 
      INTEGER ioUnit, bi, bj, iRec
./pkg/rw/write_glvec_rs.F 60 WRITE_GLVEC_RS 
      bj = 0
./pkg/rw/write_glvec_rs.F 66 WRITE_GLVEC_RS 
     I                       bi, bj, iRec, myIter, myThid )
./pkg/rw/write_local_rl.F 11 WRITE_LOCAL_RL 
     I                 bi, bj, iRec, myIter, myThArg )
./pkg/rw/write_local_rl.F 37 WRITE_LOCAL_RL 
      INTEGER bi,bj
./pkg/rw/write_local_rl.F 91 WRITE_LOCAL_RL 
     I                        bi, bj, iRec, myIter, myThArg )
./pkg/rw/write_local_rs.F 11 WRITE_LOCAL_RS 
     I                 bi, bj, iRec, myIter, myThArg )
./pkg/rw/write_local_rs.F 37 WRITE_LOCAL_RS 
      INTEGER bi,bj
./pkg/rw/write_local_rs.F 91 WRITE_LOCAL_RS 
     I                        bi, bj, iRec, myIter, myThArg )
./model/src/external_fields_load.F 103 EXTERNAL_FIELDS_LOAD 
      IF ( intime1.NE.loadedRec(bi,bj) ) THEN
./model/src/external_fields_load.F 113 EXTERNAL_FIELDS_LOAD 
     &    ' (prev=', intimeP, loadedRec(bi,bj), ' )'
./model/src/external_fields_load.F 147 EXTERNAL_FIELDS_LOAD 
          DO bj = myByLo(myThid), myByHi(myThid)
./model/src/external_fields_load.F 151 EXTERNAL_FIELDS_LOAD 
              EmPmR0(i,j,bi,bj) = EmPmR0(i,j,bi,bj)*rhoConstFresh
./model/src/external_fields_load.F 152 EXTERNAL_FIELDS_LOAD 
              EmPmR1(i,j,bi,bj) = EmPmR1(i,j,bi,bj)*rhoConstFresh
./model/src/external_fields_load.F 185 EXTERNAL_FIELDS_LOAD 
          DO bj = myByLo(myThid), myByHi(myThid)
./model/src/external_fields_load.F 189 EXTERNAL_FIELDS_LOAD 
              Qnet0(i,j,bi,bj) = Qnet0(i,j,bi,bj) + Qsw0(i,j,bi,bj)
./model/src/external_fields_load.F 190 EXTERNAL_FIELDS_LOAD 
              Qnet1(i,j,bi,bj) = Qnet1(i,j,bi,bj) + Qsw1(i,j,bi,bj)
./model/src/external_fields_load.F 230 EXTERNAL_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/external_fields_load.F 232 EXTERNAL_FIELDS_LOAD 
           loadedRec(bi,bj) = intime1
./model/src/external_fields_load.F 240 EXTERNAL_FIELDS_LOAD 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/external_fields_load.F 245 EXTERNAL_FIELDS_LOAD 
            SST(i,j,bi,bj)   = bWght*SST0(i,j,bi,bj)
./model/src/external_fields_load.F 246 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*SST1(i,j,bi,bj)
./model/src/external_fields_load.F 253 EXTERNAL_FIELDS_LOAD 
            SSS(i,j,bi,bj)   = bWght*SSS0(i,j,bi,bj)
./model/src/external_fields_load.F 254 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*SSS1(i,j,bi,bj)
./model/src/external_fields_load.F 261 EXTERNAL_FIELDS_LOAD 
            fu(i,j,bi,bj)    = bWght*taux0(i,j,bi,bj)
./model/src/external_fields_load.F 262 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*taux1(i,j,bi,bj)
./model/src/external_fields_load.F 269 EXTERNAL_FIELDS_LOAD 
            fv(i,j,bi,bj)    = bWght*tauy0(i,j,bi,bj)
./model/src/external_fields_load.F 270 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*tauy1(i,j,bi,bj)
./model/src/external_fields_load.F 278 EXTERNAL_FIELDS_LOAD 
            Qnet(i,j,bi,bj)  = bWght*Qnet0(i,j,bi,bj)
./model/src/external_fields_load.F 279 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*Qnet1(i,j,bi,bj)
./model/src/external_fields_load.F 286 EXTERNAL_FIELDS_LOAD 
            EmPmR(i,j,bi,bj) = bWght*EmPmR0(i,j,bi,bj)
./model/src/external_fields_load.F 287 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*EmPmR1(i,j,bi,bj)
./model/src/external_fields_load.F 294 EXTERNAL_FIELDS_LOAD 
            saltFlux(i,j,bi,bj) = bWght*saltFlux0(i,j,bi,bj)
./model/src/external_fields_load.F 295 EXTERNAL_FIELDS_LOAD 
     &                          + aWght*saltFlux1(i,j,bi,bj)
./model/src/external_fields_load.F 303 EXTERNAL_FIELDS_LOAD 
            Qsw(i,j,bi,bj)   = bWght*Qsw0(i,j,bi,bj)
./model/src/external_fields_load.F 304 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*Qsw1(i,j,bi,bj)
./model/src/external_fields_load.F 313 EXTERNAL_FIELDS_LOAD 
            pLoad(i,j,bi,bj) = bWght*pLoad0(i,j,bi,bj)
./model/src/external_fields_load.F 314 EXTERNAL_FIELDS_LOAD 
     &                       + aWght*pLoad1(i,j,bi,bj)
./model/src/external_fields_load.F 61 EXTERNAL_FIELDS_LOAD 
      INTEGER bi, bj, i, j
./model/src/external_fields_load.F 78 EXTERNAL_FIELDS_LOAD 
      bj = myByLo(myThid)
./model/src/external_fields_load.F 84 EXTERNAL_FIELDS_LOAD 
     &   ' : iP,iLd,i0,i1=', intimeP,loadedRec(bi,bj), intime0,intime1,
./model/src/external_fields_load.F 97 EXTERNAL_FIELDS_LOAD 
      IF ( intime1.NE.loadedRec(bi,bj) ) THEN
./pkg/salt_plume/salt_plume_apply.F 10 SALT_PLUME_APPLY 
     I            trIdentity, bi, bj,
./pkg/salt_plume/salt_plume_apply.F 154 SALT_PLUME_APPLY 
           work(i,j,k) = tracer(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_apply.F 176 SALT_PLUME_APPLY 
             SPforcingT(i,j,k,bi,bj)=0. _d 0
./pkg/salt_plume/salt_plume_apply.F 185 SALT_PLUME_APPLY 
             SPforcingS(i,j,k,bi,bj)=0. _d 0
./pkg/salt_plume/salt_plume_apply.F 196 SALT_PLUME_APPLY 
           IF(trIdentity.EQ.GAD_TEMPERATURE) SurfVal=tracer(i,j,1,bi,bj)
./pkg/salt_plume/salt_plume_apply.F 198 SALT_PLUME_APPLY 
            gTr_totSurf2Below = SPbrineVolFlux(i,j,bi,bj)*SurfVal
./pkg/salt_plume/salt_plume_apply.F 199 SALT_PLUME_APPLY 
            gTr_Surf2kLev = dSPvolSurf2kLev(i,j,k,bi,bj) * SurfVal
./pkg/salt_plume/salt_plume_apply.F 200 SALT_PLUME_APPLY 
            dSPvolBelow2kLev = -dSPvolkLev2Above(i,j,kp1,bi,bj)
./pkg/salt_plume/salt_plume_apply.F 206 SALT_PLUME_APPLY 
            gTr_kLev2Above= dSPvolkLev2Above(i,j,k,bi,bj) * work(i,j,k)
./pkg/salt_plume/salt_plume_apply.F 225 SALT_PLUME_APPLY 
             SPforcingS(i,j,k,bi,bj)=plumetend(i,j,k)
./pkg/salt_plume/salt_plume_apply.F 228 SALT_PLUME_APPLY 
             SPforcingT(i,j,k,bi,bj)=plumetend(i,j,k)
./pkg/salt_plume/salt_plume_apply.F 235 SALT_PLUME_APPLY 
     &   CALL DIAGNOSTICS_FILL(plumetend, diagName, 0,Nr,2,bi,bj,myThid)
./pkg/salt_plume/salt_plume_apply.F 250 SALT_PLUME_APPLY 
     &       plumetend(i,j,k)=SPforcingT(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_apply.F 252 SALT_PLUME_APPLY 
             plumetend(i,j,k)=SPforcingS(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_apply.F 53 SALT_PLUME_APPLY 
      INTEGER bi, bj
./pkg/salt_plume/salt_plume_calc_depth.F 113 SALT_PLUME_CALC_DEPTH 
     I       theta(1-OLx,1-OLy,K,bi,bj), salt(1-OLx,1-OLy,K,bi,bj),
./pkg/salt_plume/salt_plume_calc_depth.F 115 SALT_PLUME_CALC_DEPTH 
     I       K, bi, bj, myThid )
./pkg/salt_plume/salt_plume_calc_depth.F 119 SALT_PLUME_CALC_DEPTH 
          IF ( k.LE.klowC(i,j,bi,bj) .AND.
./pkg/salt_plume/salt_plume_calc_depth.F 11 SALT_PLUME_CALC_DEPTH 
     I                       bi, bj, myTime, myIter, myThid )
./pkg/salt_plume/salt_plume_calc_depth.F 127 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 140 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 155 SALT_PLUME_CALC_DEPTH 
           IF ( k.LE.klowC(i,j,bi,bj) .AND.
./pkg/salt_plume/salt_plume_calc_depth.F 161 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 174 SALT_PLUME_CALC_DEPTH 
          SaltPlumeDepth(i,j,bi,bj) =
./pkg/salt_plume/salt_plume_calc_depth.F 175 SALT_PLUME_CALC_DEPTH 
     &       min( SaltPlumeDepth(i,j,bi,bj)*SPovershoot,
./pkg/salt_plume/salt_plume_calc_depth.F 176 SALT_PLUME_CALC_DEPTH 
     &            rF(1)-R_low(i,j,bi,bj) )
./pkg/salt_plume/salt_plume_calc_depth.F 184 SALT_PLUME_CALC_DEPTH 
          SaltPlumeDepth(i,j,bi,bj) =
./pkg/salt_plume/salt_plume_calc_depth.F 185 SALT_PLUME_CALC_DEPTH 
     &       min( SaltPlumeDepth(i,j,bi,bj),
./pkg/salt_plume/salt_plume_calc_depth.F 186 SALT_PLUME_CALC_DEPTH 
     &            rF(1)-R_low(i,j,bi,bj) )
./pkg/salt_plume/salt_plume_calc_depth.F 45 SALT_PLUME_CALC_DEPTH 
      INTEGER bi, bj
./pkg/salt_plume/salt_plume_calc_depth.F 66 SALT_PLUME_CALC_DEPTH 
        act2 = bj - myByLo(myThid)
./pkg/salt_plume/salt_plume_calc_depth.F 79 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 92 SALT_PLUME_CALC_DEPTH 
         SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj)
./pkg/salt_plume/salt_plume_diagnostics_fill.F 10 SALT_PLUME_DIAGNOSTICS_FILL 
     I             bi, bj, myThid )
./pkg/salt_plume/salt_plume_diagnostics_fill.F 23 SALT_PLUME_DIAGNOSTICS_FILL 
      INTEGER bi,bj
./pkg/salt_plume/salt_plume_forcing_surf.F 10 SALT_PLUME_FORCING_SURF 
     I                            bi, bj, iMin, iMax, jMin, jMax,
./pkg/salt_plume/salt_plume_forcing_surf.F 38 SALT_PLUME_FORCING_SURF 
      INTEGER bi, bj, iMin, iMax, jMin, jMax
./pkg/salt_plume/salt_plume_forcing_surf.F 58 SALT_PLUME_FORCING_SURF 
        SPforcS1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F 60 SALT_PLUME_FORCING_SURF 
        SPforcT1(i,j,bi,bj)=SPbrineVolFlux(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F 61 SALT_PLUME_FORCING_SURF 
     &   *theta(i,j,1,bi,bj)*rhoConst
./pkg/salt_plume/salt_plume_forcing_surf.F 67 SALT_PLUME_FORCING_SURF 
        surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F 68 SALT_PLUME_FORCING_SURF 
     &      - SPforcS1(i,j,bi,bj) * mass2rUnit
./pkg/salt_plume/salt_plume_forcing_surf.F 69 SALT_PLUME_FORCING_SURF 
        surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F 70 SALT_PLUME_FORCING_SURF 
     &      - SPforcT1(i,j,bi,bj) * mass2rUnit / HeatCapacity_Cp
./pkg/salt_plume/salt_plume_forcing_surf.F 72 SALT_PLUME_FORCING_SURF 
        surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./pkg/salt_plume/salt_plume_forcing_surf.F 73 SALT_PLUME_FORCING_SURF 
     &       - saltPlumeFlux(i,j,bi,bj) * mass2rUnit
./model/src/external_forcing.F 100 EXTERNAL_FORCING_U 
     &      *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj)
./model/src/external_forcing.F 106 EXTERNAL_FORCING_U 
         IF ( kSurfW(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F 107 EXTERNAL_FORCING_U 
          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/external_forcing.F 108 EXTERNAL_FORCING_U 
     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
./model/src/external_forcing.F 109 EXTERNAL_FORCING_U 
     &      *recip_drF(kLev)*_recip_hFacW(i,j,kLev,bi,bj)
./model/src/external_forcing.F 117 EXTERNAL_FORCING_U 
     U                 gU(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 118 EXTERNAL_FORCING_U 
     I                 iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 125 EXTERNAL_FORCING_U 
     U                 gU(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 126 EXTERNAL_FORCING_U 
     I                 kLev, bi, bj, -1,
./model/src/external_forcing.F 135 EXTERNAL_FORCING_U 
     U                   gU(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 136 EXTERNAL_FORCING_U 
     I                   iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 144 EXTERNAL_FORCING_U 
     U                 gU(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 145 EXTERNAL_FORCING_U 
     I                 iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 159 EXTERNAL_FORCING_V 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 189 EXTERNAL_FORCING_V 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 19 EXTERNAL_FORCING_U 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 213 EXTERNAL_FORCING_V 
     U                       gV(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 214 EXTERNAL_FORCING_V 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 220 EXTERNAL_FORCING_V 
     U                       gV(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 221 EXTERNAL_FORCING_V 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 227 EXTERNAL_FORCING_V 
     U                       gV(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 228 EXTERNAL_FORCING_V 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 238 EXTERNAL_FORCING_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./model/src/external_forcing.F 239 EXTERNAL_FORCING_V 
     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/external_forcing.F 240 EXTERNAL_FORCING_V 
     &      *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 246 EXTERNAL_FORCING_V 
         IF ( kSurfS(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F 247 EXTERNAL_FORCING_V 
          gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./model/src/external_forcing.F 248 EXTERNAL_FORCING_V 
     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
./model/src/external_forcing.F 249 EXTERNAL_FORCING_V 
     &      *recip_drF(kLev)*_recip_hFacS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 257 EXTERNAL_FORCING_V 
     U                 gV(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 258 EXTERNAL_FORCING_V 
     I                 iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 265 EXTERNAL_FORCING_V 
     U                 gV(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 266 EXTERNAL_FORCING_V 
     I                 kLev, bi, bj, -2,
./model/src/external_forcing.F 274 EXTERNAL_FORCING_V 
     U                   gV(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 275 EXTERNAL_FORCING_V 
     I                   iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 283 EXTERNAL_FORCING_V 
     U                 gV(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 284 EXTERNAL_FORCING_V 
     I                 iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 298 EXTERNAL_FORCING_T 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 329 EXTERNAL_FORCING_T 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 366 EXTERNAL_FORCING_T 
     U                       gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 367 EXTERNAL_FORCING_T 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 373 EXTERNAL_FORCING_T 
     U                       gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 374 EXTERNAL_FORCING_T 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 380 EXTERNAL_FORCING_T 
     U                       gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 381 EXTERNAL_FORCING_T 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 391 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 392 EXTERNAL_FORCING_T 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 393 EXTERNAL_FORCING_T 
     &          *( temp_addMass - theta(i,j,kLev,bi,bj) )
./model/src/external_forcing.F 394 EXTERNAL_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 395 EXTERNAL_FORCING_T 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 402 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 403 EXTERNAL_FORCING_T 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 405 EXTERNAL_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 406 EXTERNAL_FORCING_T 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 427 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 428 EXTERNAL_FORCING_T 
     &         + frictionHeating(i,j,kLev,bi,bj)
./model/src/external_forcing.F 429 EXTERNAL_FORCING_T 
     &          *tmpFac*recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 430 EXTERNAL_FORCING_T 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 462 EXTERNAL_FORCING_T 
            tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq
./model/src/external_forcing.F 463 EXTERNAL_FORCING_T 
     &                  *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj)
./model/src/external_forcing.F 464 EXTERNAL_FORCING_T 
     &                   + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./model/src/external_forcing.F 465 EXTERNAL_FORCING_T 
     &                   )*maskC(i,j,km,bi,bj)*0.25 _d 0
./model/src/external_forcing.F 475 EXTERNAL_FORCING_T 
     &                  + wVel(i,j,kp,bi,bj)*delPI*atm_Rq
./model/src/external_forcing.F 476 EXTERNAL_FORCING_T 
     &                  *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./model/src/external_forcing.F 477 EXTERNAL_FORCING_T 
     &                   + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj)
./model/src/external_forcing.F 478 EXTERNAL_FORCING_T 
     &                   )*maskC(i,j,kp,bi,bj)*0.25 _d 0
./model/src/external_forcing.F 484 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 486 EXTERNAL_FORCING_T 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 494 EXTERNAL_FORCING_T 
     &                     'MoistCor', kc, 1, 3, bi,bj,myThid )
./model/src/external_forcing.F 49 EXTERNAL_FORCING_U 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 503 EXTERNAL_FORCING_T 
          gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 504 EXTERNAL_FORCING_T 
     &      +surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing.F 505 EXTERNAL_FORCING_T 
     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 511 EXTERNAL_FORCING_T 
         IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F 512 EXTERNAL_FORCING_T 
          gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 513 EXTERNAL_FORCING_T 
     &      +surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing.F 514 EXTERNAL_FORCING_T 
     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 523 EXTERNAL_FORCING_T 
          IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/external_forcing.F 524 EXTERNAL_FORCING_T 
            gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 525 EXTERNAL_FORCING_T 
     &        +TsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 547 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj) = gT(i,j,kLev,bi,bj)
./model/src/external_forcing.F 548 EXTERNAL_FORCING_T 
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 549 EXTERNAL_FORCING_T 
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./model/src/external_forcing.F 551 EXTERNAL_FORCING_T 
     &    *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 560 EXTERNAL_FORCING_T 
     U                 gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 561 EXTERNAL_FORCING_T 
     I                 iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 568 EXTERNAL_FORCING_T 
     U                   gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 569 EXTERNAL_FORCING_T 
     I                   iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 576 EXTERNAL_FORCING_T 
     U                   gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 577 EXTERNAL_FORCING_T 
     I                   kLev, bi, bj, myTime, 0, myThid )
./model/src/external_forcing.F 583 EXTERNAL_FORCING_T 
     U                     gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 584 EXTERNAL_FORCING_T 
     I                     iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 591 EXTERNAL_FORCING_T 
     U                 gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 592 EXTERNAL_FORCING_T 
     I                 kLev, bi, bj, 1,
./model/src/external_forcing.F 600 EXTERNAL_FORCING_T 
     U                   gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 601 EXTERNAL_FORCING_T 
     I                   iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 608 EXTERNAL_FORCING_T 
     U                       gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 609 EXTERNAL_FORCING_T 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 616 EXTERNAL_FORCING_T 
     U                 gT(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 617 EXTERNAL_FORCING_T 
     I                 iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 631 EXTERNAL_FORCING_S 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./model/src/external_forcing.F 663 EXTERNAL_FORCING_S 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./model/src/external_forcing.F 689 EXTERNAL_FORCING_S 
     U                       gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 690 EXTERNAL_FORCING_S 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 696 EXTERNAL_FORCING_S 
     U                       gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 697 EXTERNAL_FORCING_S 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 703 EXTERNAL_FORCING_S 
     U                       gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 704 EXTERNAL_FORCING_S 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 714 EXTERNAL_FORCING_S 
            gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 715 EXTERNAL_FORCING_S 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 716 EXTERNAL_FORCING_S 
     &          *( salt_addMass - salt(i,j,kLev,bi,bj) )
./model/src/external_forcing.F 717 EXTERNAL_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 718 EXTERNAL_FORCING_S 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 725 EXTERNAL_FORCING_S 
            gS(i,j,kLev,bi,bj) = gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 726 EXTERNAL_FORCING_S 
     &        + addMass(i,j,kLev,bi,bj)*mass2rUnit
./model/src/external_forcing.F 728 EXTERNAL_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./model/src/external_forcing.F 729 EXTERNAL_FORCING_S 
     &          *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 73 EXTERNAL_FORCING_U 
     U                       gU(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 741 EXTERNAL_FORCING_S 
          gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 742 EXTERNAL_FORCING_S 
     &      +surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing.F 743 EXTERNAL_FORCING_S 
     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 749 EXTERNAL_FORCING_S 
         IF ( kSurfC(i,j,bi,bj).EQ.kLev ) THEN
./model/src/external_forcing.F 74 EXTERNAL_FORCING_U 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 750 EXTERNAL_FORCING_S 
          gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 751 EXTERNAL_FORCING_S 
     &      +surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing.F 752 EXTERNAL_FORCING_S 
     &      *recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 761 EXTERNAL_FORCING_S 
          IF (kLev .EQ. kSurfC(i,j,bi,bj)) THEN
./model/src/external_forcing.F 762 EXTERNAL_FORCING_S 
            gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./model/src/external_forcing.F 763 EXTERNAL_FORCING_S 
     &        +SsurfCor*recip_drF(kLev)*_recip_hFacC(i,j,kLev,bi,bj)
./model/src/external_forcing.F 772 EXTERNAL_FORCING_S 
     U                   gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 773 EXTERNAL_FORCING_S 
     I                   iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 780 EXTERNAL_FORCING_S 
     U                   gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 781 EXTERNAL_FORCING_S 
     I                   kLev, bi, bj, myTime, 0, myThid )
./model/src/external_forcing.F 787 EXTERNAL_FORCING_S 
     U                     gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 788 EXTERNAL_FORCING_S 
     I                     iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 795 EXTERNAL_FORCING_S 
     U                 gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 796 EXTERNAL_FORCING_S 
     I                 kLev, bi, bj, 2,
./model/src/external_forcing.F 804 EXTERNAL_FORCING_S 
     U                   gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 805 EXTERNAL_FORCING_S 
     I                   iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 80 EXTERNAL_FORCING_U 
     U                       gU(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 812 EXTERNAL_FORCING_S 
     U                       gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 813 EXTERNAL_FORCING_S 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 81 EXTERNAL_FORCING_U 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 820 EXTERNAL_FORCING_S 
     U                 gS(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 821 EXTERNAL_FORCING_S 
     I                 iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 87 EXTERNAL_FORCING_U 
     U                       gU(1-OLx,1-OLy,kLev,bi,bj),
./model/src/external_forcing.F 88 EXTERNAL_FORCING_U 
     I                       iMin,iMax,jMin,jMax, kLev, bi,bj,
./model/src/external_forcing.F 98 EXTERNAL_FORCING_U 
          gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/external_forcing.F 99 EXTERNAL_FORCING_U 
     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
./pkg/salt_plume/salt_plume_init_varia.F 28 SALT_PLUME_INIT_VARIA 
      INTEGER i,j, bi,bj,Nrp1
./pkg/salt_plume/salt_plume_init_varia.F 34 SALT_PLUME_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/salt_plume/salt_plume_init_varia.F 41 SALT_PLUME_INIT_VARIA 
          SaltPlumeDepth (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 42 SALT_PLUME_INIT_VARIA 
          saltPlumeFlux  (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 44 SALT_PLUME_INIT_VARIA 
          SPbrineVolFlux (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 45 SALT_PLUME_INIT_VARIA 
          SPforcS1       (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 47 SALT_PLUME_INIT_VARIA 
           dSPvolSurf2kLev (i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 48 SALT_PLUME_INIT_VARIA 
           dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 49 SALT_PLUME_INIT_VARIA 
           SPforcingS      (i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 50 SALT_PLUME_INIT_VARIA 
           SPforcingT      (i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 51 SALT_PLUME_INIT_VARIA 
           SPplumek        (i,j,k,bi,bj) = 1. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 53 SALT_PLUME_INIT_VARIA 
          dSPvolkLev2Above (i,j,Nrp1,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 54 SALT_PLUME_INIT_VARIA 
          SPplumek         (i,j,Nrp1,bi,bj) = 1. _d 0
./pkg/salt_plume/salt_plume_tendency_apply_s.F 103 SALT_PLUME_TENDENCY_APPLY_S 
         IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_s.F 106 SALT_PLUME_TENDENCY_APPLY_S 
     &                     *maskC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 107 SALT_PLUME_TENDENCY_APPLY_S 
          plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 109 SALT_PLUME_TENDENCY_APPLY_S 
          plumetend(I,J) = SPforcingS(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 112 SALT_PLUME_TENDENCY_APPLY_S 
     &        *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 11 SALT_PLUME_TENDENCY_APPLY_S 
     I                      iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/salt_plume/salt_plume_tendency_apply_s.F 124 SALT_PLUME_TENDENCY_APPLY_S 
        IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_s.F 129 SALT_PLUME_TENDENCY_APPLY_S 
         SPdepth(1)=SaltPlumeDepth(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 130 SALT_PLUME_TENDENCY_APPLY_S 
         SPdepth(2)=SaltPlumeDepth(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 132 SALT_PLUME_TENDENCY_APPLY_S 
         lon(1) = XC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 133 SALT_PLUME_TENDENCY_APPLY_S 
         lon(2) = XC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 134 SALT_PLUME_TENDENCY_APPLY_S 
         lat(1) = YC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 135 SALT_PLUME_TENDENCY_APPLY_S 
         lat(2) = YC(i,j,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 144 SALT_PLUME_TENDENCY_APPLY_S 
         plumefrac(I,J) = (plumekb(2)-plumekb(1))*maskC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 145 SALT_PLUME_TENDENCY_APPLY_S 
         plumetend(I,J) = saltPlumeFlux(i,j,bi,bj)*plumefrac(I,J)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 147 SALT_PLUME_TENDENCY_APPLY_S 
         plumetend(i,j) = SPforcingS(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 150 SALT_PLUME_TENDENCY_APPLY_S 
     &        *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_s.F 162 SALT_PLUME_TENDENCY_APPLY_S 
     &      plumefrac,'PLUMEKB ',k,1,2,bi,bj,myThid )
./pkg/salt_plume/salt_plume_tendency_apply_s.F 164 SALT_PLUME_TENDENCY_APPLY_S 
     &      plumetend,'oceSPtnd',k,1,2,bi,bj,myThid )
./pkg/salt_plume/salt_plume_tendency_apply_s.F 41 SALT_PLUME_TENDENCY_APPLY_S 
      INTEGER k, bi, bj
./pkg/salt_plume/salt_plume_tendency_apply_s.F 80 SALT_PLUME_TENDENCY_APPLY_S 
     I      imt,minusone,SaltPlumeDepth(1-OLx,1-OLy,bi,bj),
./pkg/salt_plume/salt_plume_tendency_apply_s.F 82 SALT_PLUME_TENDENCY_APPLY_S 
     I      XC(1-OLx,1-OLy,bi,bj),YC(1-OLx,1-OLy,bi,bj),
./pkg/salt_plume/salt_plume_tendency_apply_s.F 93 SALT_PLUME_TENDENCY_APPLY_S 
     I      imt,minusone,SaltPlumeDepth(1-OLx,1-OLy,bi,bj),
./pkg/salt_plume/salt_plume_tendency_apply_s.F 95 SALT_PLUME_TENDENCY_APPLY_S 
     I      XC(1-OLx,1-OLy,bi,bj),YC(1-OLx,1-OLy,bi,bj),
./pkg/salt_plume/salt_plume_tendency_apply_t.F 11 SALT_PLUME_TENDENCY_APPLY_T 
     I                      iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/salt_plume/salt_plume_tendency_apply_t.F 41 SALT_PLUME_TENDENCY_APPLY_T 
      INTEGER k, bi, bj
./pkg/salt_plume/salt_plume_tendency_apply_t.F 58 SALT_PLUME_TENDENCY_APPLY_T 
        IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN
./pkg/salt_plume/salt_plume_tendency_apply_t.F 59 SALT_PLUME_TENDENCY_APPLY_T 
         plumeEtend(i,j) = SPforcingT(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_t.F 61 SALT_PLUME_TENDENCY_APPLY_T 
     &        *recip_drF(k)*mass2rUnit*_recip_hFacC(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_tendency_apply_t.F 72 SALT_PLUME_TENDENCY_APPLY_T 
     &      plumeEtend,'oceEPtnd',k,1,2,bi,bj,myThid )
./pkg/salt_plume/salt_plume_volfrac.F 103 SALT_PLUME_VOLFRAC 
     I               XC(1-Olx,1-Oly,bi,bj),YC(1-Olx,1-Oly,bi,bj),
./pkg/salt_plume/salt_plume_volfrac.F 109 SALT_PLUME_VOLFRAC 
         SPplumek(i,j,k,bi,bj)=dMbdt(i,j)
./pkg/salt_plume/salt_plume_volfrac.F 10 SALT_PLUME_VOLFRAC 
     I                       bi, bj, myTime, myIter, myThid )
./pkg/salt_plume/salt_plume_volfrac.F 110 SALT_PLUME_VOLFRAC 
         IF(SPplumek(i,j,k,bi,bj).GT. 0.9999999) THEN
./pkg/salt_plume/salt_plume_volfrac.F 149 SALT_PLUME_VOLFRAC 
        dMbdt(i,j)=saltPlumeFlux(i,j,bi,bj)/SPbrineSconst
./pkg/salt_plume/salt_plume_volfrac.F 150 SALT_PLUME_VOLFRAC 
        SPbrineVolFlux(i,j,bi,bj)=dMbdt(i,j)*mass2rUnit
./pkg/salt_plume/salt_plume_volfrac.F 158 SALT_PLUME_VOLFRAC 
         dplumek=SPplumek(i,j,k+1,bi,bj)-SPplumek(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F 159 SALT_PLUME_VOLFRAC 
         dSPvolSurf2kLev(i,j,k,bi,bj)=dplumek*SPbrineVolFlux(i,j,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F 171 SALT_PLUME_VOLFRAC 
          dSPvolkLev2Above(i,j,k,bi,bj)=dSPvolkLev2Above(i,j,kp1,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F 172 SALT_PLUME_VOLFRAC 
     &                                  - dSPvolSurf2kLev(i,j,k,bi,bj)
./pkg/salt_plume/salt_plume_volfrac.F 181 SALT_PLUME_VOLFRAC 
     &      SPplumek,'PLUMEKB1',0,Nr,1,bi,bj,myThid )
./pkg/salt_plume/salt_plume_volfrac.F 52 SALT_PLUME_VOLFRAC 
      INTEGER bi,bj
./pkg/salt_plume/salt_plume_volfrac.F 77 SALT_PLUME_VOLFRAC 
         dSPvolSurf2kLev(i,j,k,bi,bj)  = 0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F 78 SALT_PLUME_VOLFRAC 
         dSPvolkLev2Above(i,j,k,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F 79 SALT_PLUME_VOLFRAC 
         SPplumek(i,j,k,bi,bj)         = 1. _d 0
./pkg/salt_plume/salt_plume_volfrac.F 85 SALT_PLUME_VOLFRAC 
        SPplumek(i,j,Nrp1,bi,bj)         = 1. _d 0
./pkg/salt_plume/salt_plume_volfrac.F 86 SALT_PLUME_VOLFRAC 
        SPbrineVolFlux(i,j,bi,bj)        = 0. _d 0
./pkg/salt_plume/salt_plume_volfrac.F 96 SALT_PLUME_VOLFRAC 
         temp(i,j)=SaltPlumeDepth(i,j,bi,bj)
./model/src/external_forcing_surf.F 122 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/external_forcing_surf.F 127 EXTERNAL_FORCING_SURF 
           PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 136 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/external_forcing_surf.F 140 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 141 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 163 EXTERNAL_FORCING_SURF 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/external_forcing_surf.F 166 EXTERNAL_FORCING_SURF 
     I        surfaceForcingS(1-OLx,1-OLy,bi,bj),
./model/src/external_forcing_surf.F 167 EXTERNAL_FORCING_SURF 
     I        bi, bj, iMin, iMax, jMin, jMax,
./model/src/external_forcing_surf.F 179 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/external_forcing_surf.F 185 EXTERNAL_FORCING_SURF 
          act2 = bj - myByLo(myThid)
./model/src/external_forcing_surf.F 207 EXTERNAL_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 209 EXTERNAL_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 211 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 212 EXTERNAL_FORCING_SURF 
     &       - ( Qnet(i,j,bi,bj)
./model/src/external_forcing_surf.F 214 EXTERNAL_FORCING_SURF 
     &          -Qsw(i,j,bi,bj)
./model/src/external_forcing_surf.F 218 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 219 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./model/src/external_forcing_surf.F 234 EXTERNAL_FORCING_SURF 
     I        bi, bj, iMin, iMax, jMin, jMax,
./model/src/external_forcing_surf.F 257 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 258 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F 259 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 268 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 269 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./model/src/external_forcing_surf.F 270 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./model/src/external_forcing_surf.F 292 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 293 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 294 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./model/src/external_forcing_surf.F 303 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 304 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 305 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./model/src/external_forcing_surf.F 318 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/external_forcing_surf.F 319 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 329 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/external_forcing_surf.F 330 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./model/src/external_forcing_surf.F 359 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./model/src/external_forcing_surf.F 360 EXTERNAL_FORCING_SURF 
     &                          +sIceLoad(i,j,bi,bj)*gravity
./model/src/external_forcing_surf.F 367 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./model/src/external_forcing_surf.F 386 EXTERNAL_FORCING_SURF 
     I                  bi, bj, iMin, iMax, jMin, jMax,
./model/src/external_forcing_surf.F 60 EXTERNAL_FORCING_SURF 
      INTEGER bi,bj
./pkg/sbo/sbo_calc.F 106 SBO_CALC 
      integer bi, bj, i, j, k
./pkg/sbo/sbo_calc.F 200 SBO_CALC 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/sbo/sbo_calc.F 204 SBO_CALC 
             UEice(i,j,bi,bj) = 0.
./pkg/sbo/sbo_calc.F 205 SBO_CALC 
             VNice(i,j,bi,bj) = 0.
./pkg/sbo/sbo_calc.F 223 SBO_CALC 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/sbo/sbo_calc.F 225 SBO_CALC 
        tile_FWload(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 226 SBO_CALC 
        tile_GCload(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 227 SBO_CALC 
        tile_sboarea(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 230 SBO_CALC 
            darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/sbo/sbo_calc.F 231 SBO_CALC 
            tile_sboarea(bi,bj) = tile_sboarea(bi,bj) + darea
./pkg/sbo/sbo_calc.F 232 SBO_CALC 
            tile_FWload(bi,bj) =  tile_FWload(bi,bj) +
./pkg/sbo/sbo_calc.F 233 SBO_CALC 
     &           rhoConst*etaN(i,j,bi,bj)*darea +
./pkg/sbo/sbo_calc.F 234 SBO_CALC 
     &           sIceLoad(i,j,bi,bj)*darea
./pkg/sbo/sbo_calc.F 236 SBO_CALC 
               dvolume = rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F 237 SBO_CALC 
               tile_GCload(bi,bj) = tile_GCload(bi,bj) +
./pkg/sbo/sbo_calc.F 238 SBO_CALC 
     &              rhoInSitu(i,j,k,bi,bj) * dvolume
./pkg/sbo/sbo_calc.F 251 SBO_CALC 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/sbo/sbo_calc.F 255 SBO_CALC 
            Mload(i,j,bi,bj) =  rhoConst*etaN(i,j,bi,bj) +
./pkg/sbo/sbo_calc.F 256 SBO_CALC 
     &           sIceLoad(i,j,bi,bj) +
./pkg/sbo/sbo_calc.F 257 SBO_CALC 
     &           GCload - R_low(i,j,bi,bj)*rhoConst
./pkg/sbo/sbo_calc.F 259 SBO_CALC 
               Mload(i,j,bi,bj) = Mload(i,j,bi,bj) +
./pkg/sbo/sbo_calc.F 260 SBO_CALC 
     &           rhoInSitu(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F 268 SBO_CALC 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/sbo/sbo_calc.F 272 SBO_CALC 
            lat = yC(i,j,bi,bj) * deg2rad
./pkg/sbo/sbo_calc.F 273 SBO_CALC 
            lon = xC(i,j,bi,bj) * deg2rad
./pkg/sbo/sbo_calc.F 274 SBO_CALC 
            COSlat(i,j,bi,bj) = COS(lat)
./pkg/sbo/sbo_calc.F 275 SBO_CALC 
            SINlat(i,j,bi,bj) = SIN(lat)
./pkg/sbo/sbo_calc.F 276 SBO_CALC 
            COSlon(i,j,bi,bj) = COS(lon)
./pkg/sbo/sbo_calc.F 277 SBO_CALC 
            SINlon(i,j,bi,bj) = SIN(lon)
./pkg/sbo/sbo_calc.F 287 SBO_CALC 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/sbo/sbo_calc.F 291 SBO_CALC 
        tile_xoamc(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 292 SBO_CALC 
        tile_yoamc(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 293 SBO_CALC 
        tile_zoamc(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 294 SBO_CALC 
        tile_xoamp(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 295 SBO_CALC 
        tile_yoamp(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 296 SBO_CALC 
        tile_zoamp(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 297 SBO_CALC 
        tile_mass(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 298 SBO_CALC 
        tile_xcom(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 299 SBO_CALC 
        tile_ycom(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 300 SBO_CALC 
        tile_zcom(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 302 SBO_CALC 
        tile_xoamc_si(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 303 SBO_CALC 
        tile_yoamc_si(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 304 SBO_CALC 
        tile_zoamc_si(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 305 SBO_CALC 
        tile_mass_si(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 307 SBO_CALC 
        tile_xoamp_fw(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 308 SBO_CALC 
        tile_yoamp_fw(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 309 SBO_CALC 
        tile_zoamp_fw(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 310 SBO_CALC 
        tile_mass_fw(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 311 SBO_CALC 
        tile_xcom_fw(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 312 SBO_CALC 
        tile_ycom_fw(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 313 SBO_CALC 
        tile_zcom_fw(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 315 SBO_CALC 
        tile_mass_gc(bi,bj) = 0.0
./pkg/sbo/sbo_calc.F 320 SBO_CALC 
           IF ( maskC(i,j,1,bi,bj) .NE. 0. ) THEN
./pkg/sbo/sbo_calc.F 323 SBO_CALC 
              darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/sbo/sbo_calc.F 326 SBO_CALC 
              tile_mass(bi,bj) = tile_mass(bi,bj) +
./pkg/sbo/sbo_calc.F 327 SBO_CALC 
     &          Mload(i,j,bi,bj)*darea
./pkg/sbo/sbo_calc.F 328 SBO_CALC 
              tile_mass_gc(bi,bj) = tile_mass_gc(bi,bj) +
./pkg/sbo/sbo_calc.F 330 SBO_CALC 
              tile_mass_si(bi,bj) = tile_mass_si(bi,bj) +
./pkg/sbo/sbo_calc.F 331 SBO_CALC 
     &          sIceLoad(i,j,bi,bj)*darea
./pkg/sbo/sbo_calc.F 334 SBO_CALC 
              tile_xcom(bi,bj) = tile_xcom(bi,bj) +
./pkg/sbo/sbo_calc.F 335 SBO_CALC 
     &          Mload(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 337 SBO_CALC 
              tile_ycom(bi,bj) = tile_ycom(bi,bj) +
./pkg/sbo/sbo_calc.F 338 SBO_CALC 
     &          Mload(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 340 SBO_CALC 
              tile_zcom(bi,bj) = tile_zcom(bi,bj) +
./pkg/sbo/sbo_calc.F 341 SBO_CALC 
     &          Mload(i,j,bi,bj)*SINlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 347 SBO_CALC 
                 dvolume = rA(i,j,bi,bj)*drF(k)
./pkg/sbo/sbo_calc.F 348 SBO_CALC 
     &             * maskC(i,j,k,bi,bj)*hFacC(i,j,k,bi,bj)
./pkg/sbo/sbo_calc.F 349 SBO_CALC 
                 tile_xoamc(bi,bj) = tile_xoamc(bi,bj) +
./pkg/sbo/sbo_calc.F 350 SBO_CALC 
     &             ( VN(i,j,k,bi,bj)*SINlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F 351 SBO_CALC 
     &             UE(i,j,k,bi,bj)*
./pkg/sbo/sbo_calc.F 352 SBO_CALC 
     &             SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F 354 SBO_CALC 
                 tile_yoamc(bi,bj) = tile_yoamc(bi,bj) +
./pkg/sbo/sbo_calc.F 355 SBO_CALC 
     &             (-VN(i,j,k,bi,bj)*COSlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F 356 SBO_CALC 
     &             UE(i,j,k,bi,bj)*
./pkg/sbo/sbo_calc.F 357 SBO_CALC 
     &             SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F 359 SBO_CALC 
                 tile_zoamc(bi,bj) = tile_zoamc(bi,bj) +
./pkg/sbo/sbo_calc.F 360 SBO_CALC 
     &             UE(i,j,k,bi,bj)*COSlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 365 SBO_CALC 
              tile_xoamc_si(bi,bj) = tile_xoamc_si(bi,bj) +
./pkg/sbo/sbo_calc.F 366 SBO_CALC 
     &          ( VNice(i,j,bi,bj)*SINlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F 367 SBO_CALC 
     &          UEice(i,j,bi,bj)*
./pkg/sbo/sbo_calc.F 368 SBO_CALC 
     &          SINlat(i,j,bi,bj)*COSlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F 369 SBO_CALC 
     &          * sIceLoad(i,j,bi,bj) * ae * darea
./pkg/sbo/sbo_calc.F 370 SBO_CALC 
              tile_yoamc_si(bi,bj) = tile_yoamc_si(bi,bj) +
./pkg/sbo/sbo_calc.F 371 SBO_CALC 
     &          (-VNice(i,j,bi,bj)*COSlon(i,j,bi,bj) -
./pkg/sbo/sbo_calc.F 372 SBO_CALC 
     &          UEice(i,j,bi,bj)*
./pkg/sbo/sbo_calc.F 373 SBO_CALC 
     &          SINlat(i,j,bi,bj)*SINlon(i,j,bi,bj) )
./pkg/sbo/sbo_calc.F 374 SBO_CALC 
     &          * sIceLoad(i,j,bi,bj) * ae * darea
./pkg/sbo/sbo_calc.F 375 SBO_CALC 
              tile_zoamc_si(bi,bj) = tile_zoamc_si(bi,bj) +
./pkg/sbo/sbo_calc.F 376 SBO_CALC 
     &          UEice(i,j,bi,bj)*COSlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 377 SBO_CALC 
     &          * sIceLoad(i,j,bi,bj) * ae * darea
./pkg/sbo/sbo_calc.F 380 SBO_CALC 
              tile_xoamp(bi,bj) = tile_xoamp(bi,bj) -
./pkg/sbo/sbo_calc.F 381 SBO_CALC 
     &          SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 382 SBO_CALC 
     &          * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea
./pkg/sbo/sbo_calc.F 383 SBO_CALC 
              tile_yoamp(bi,bj) = tile_yoamp(bi,bj) -
./pkg/sbo/sbo_calc.F 384 SBO_CALC 
     &          SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 385 SBO_CALC 
     &          * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea
./pkg/sbo/sbo_calc.F 386 SBO_CALC 
              tile_zoamp(bi,bj) = tile_zoamp(bi,bj) +
./pkg/sbo/sbo_calc.F 387 SBO_CALC 
     &          COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 388 SBO_CALC 
     &          * sbo_omega * Mload(i,j,bi,bj) * ae*ae * darea
./pkg/sbo/sbo_calc.F 391 SBO_CALC 
              tile_mass_fw(bi,bj) = tile_mass_fw(bi,bj) +
./pkg/sbo/sbo_calc.F 395 SBO_CALC 
              tile_xcom_fw(bi,bj) = tile_xcom_fw(bi,bj) +
./pkg/sbo/sbo_calc.F 396 SBO_CALC 
     &          FWload * COSlat(i,j,bi,bj) * COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 398 SBO_CALC 
              tile_ycom_fw(bi,bj) = tile_ycom_fw(bi,bj) +
./pkg/sbo/sbo_calc.F 399 SBO_CALC 
     &          FWload * COSlat(i,j,bi,bj) * SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 401 SBO_CALC 
              tile_zcom_fw(bi,bj) = tile_zcom_fw(bi,bj) +
./pkg/sbo/sbo_calc.F 402 SBO_CALC 
     &          FWload * SINlat(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 406 SBO_CALC 
              tile_xoamp_fw(bi,bj) = tile_xoamp_fw(bi,bj) -
./pkg/sbo/sbo_calc.F 407 SBO_CALC 
     &          SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*COSlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 409 SBO_CALC 
              tile_yoamp_fw(bi,bj) = tile_yoamp_fw(bi,bj) -
./pkg/sbo/sbo_calc.F 410 SBO_CALC 
     &          SINlat(i,j,bi,bj)*COSlat(i,j,bi,bj)*SINlon(i,j,bi,bj)
./pkg/sbo/sbo_calc.F 412 SBO_CALC 
              tile_zoamp_fw(bi,bj) = tile_zoamp_fw(bi,bj) +
./pkg/sbo/sbo_calc.F 413 SBO_CALC 
     &          COSlat(i,j,bi,bj) * COSlat(i,j,bi,bj)
./model/src/find_alpha.F 120 FIND_ALPHA 
     I        bi, bj, iMin, iMax, jMin, jMax,  kRef,
./model/src/find_alpha.F 126 FIND_ALPHA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 132 FIND_ALPHA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 140 FIND_ALPHA 
               t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 148 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 18 FIND_ALPHA 
     I     bi, bj, iMin, iMax, jMin, jMax,  k, kRef,
./model/src/find_alpha.F 227 FIND_ALPHA 
     I        bi, bj, iMin, iMax, jMin, jMax,  kRef,
./model/src/find_alpha.F 233 FIND_ALPHA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 239 FIND_ALPHA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 245 FIND_ALPHA 
               t1  = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 247 FIND_ALPHA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 285 FIND_ALPHA 
     I      bi, bj, iMin, iMax, jMin, jMax,  kRef,
./model/src/find_alpha.F 291 FIND_ALPHA 
     I      theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 297 FIND_ALPHA 
         ct      = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 298 FIND_ALPHA 
         sa      = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 348 FIND_BETA 
     I     bi, bj, iMin, iMax, jMin, jMax,  k, kRef,
./model/src/find_alpha.F 380 FIND_BETA 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./model/src/find_alpha.F 423 FIND_BETA 
               tP=theta(i,j,k,bi,bj)-refTemp
./model/src/find_alpha.F 424 FIND_BETA 
               sP=salt(i,j,k,bi,bj)-refSalt
./model/src/find_alpha.F 448 FIND_BETA 
     I        bi, bj, iMin, iMax, jMin, jMax,  kRef,
./model/src/find_alpha.F 454 FIND_BETA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 460 FIND_BETA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 468 FIND_BETA 
               t1 = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 472 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 50 FIND_ALPHA 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./model/src/find_alpha.F 541 FIND_BETA 
     I        bi, bj, iMin, iMax, jMin, jMax,  kRef,
./model/src/find_alpha.F 547 FIND_BETA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 553 FIND_BETA 
     I        theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 559 FIND_BETA 
               t1  = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 561 FIND_BETA 
               s1  = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 592 FIND_BETA 
     I      bi, bj, iMin, iMax, jMin, jMax,  kRef,
./model/src/find_alpha.F 598 FIND_BETA 
     I      theta(1-OLx,1-OLy,k,bi,bj), salt(1-OLx,1-OLy,k,bi,bj),
./model/src/find_alpha.F 604 FIND_BETA 
         ct      = theta(i,j,k,bi,bj)
./model/src/find_alpha.F 605 FIND_BETA 
         sa      = salt(i,j,k,bi,bj)
./model/src/find_alpha.F 93 FIND_ALPHA 
               tP=theta(i,j,k,bi,bj)-refTemp
./model/src/find_alpha.F 94 FIND_ALPHA 
               sP=salt(i,j,k,bi,bj)-refSalt
./pkg/seaice/advect.F 116 ADVECT 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 122 ADVECT 
            fld(i,j,bi,bj)=fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F 124 ADVECT 
     &           ( tmpFld(i  ,j  ,bi,bj)+tmpFld(i+1,j  ,bi,bj))
./pkg/seaice/advect.F 125 ADVECT 
     &           *   UI(i+1,j,  bi,bj) -
./pkg/seaice/advect.F 126 ADVECT 
     &           ( tmpFld(i  ,j  ,bi,bj)+tmpFld(i-1,j  ,bi,bj))
./pkg/seaice/advect.F 127 ADVECT 
     &           *   UI(i  ,j,  bi,bj) )*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F 128 ADVECT 
     &           *(HALF * _recip_dxF(i,j,bi,bj))
./pkg/seaice/advect.F 130 ADVECT 
     &           ( tmpFld(i  ,j  ,bi,bj)+tmpFld(i  ,j+1,bi,bj))
./pkg/seaice/advect.F 131 ADVECT 
     &           *   VI(i  ,j+1,  bi,bj)
./pkg/seaice/advect.F 132 ADVECT 
     &           * _dxG(i  ,j+1,bi,bj) -
./pkg/seaice/advect.F 133 ADVECT 
     &           ( tmpFld(i  ,j  ,bi,bj)+tmpFld(i  ,j-1,bi,bj))
./pkg/seaice/advect.F 134 ADVECT 
     &           *   VI(i  ,j  ,  bi,bj)
./pkg/seaice/advect.F 135 ADVECT 
     &           * _dxG(i,j,bi,bj))*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F 136 ADVECT 
     &           *(HALF * _recip_dyF(i,j,bi,bj) * _recip_dxF(i,j,bi,bj))
./pkg/seaice/advect.F 143 ADVECT 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 148 ADVECT 
            afx(i,j) = _dyG(i,j,bi,bj) * UI(i,j,bi,bj)
./pkg/seaice/advect.F 149 ADVECT 
     &           * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i-1,j,bi,bj))
./pkg/seaice/advect.F 150 ADVECT 
            afy(i,j) = _dxG(i,j,bi,bj) * VI(i,j,bi,bj)
./pkg/seaice/advect.F 151 ADVECT 
     &           * 0.5 _d 0 * (tmpFld(i,j,bi,bj)+tmpFld(i,j-1,bi,bj))
./pkg/seaice/advect.F 156 ADVECT 
            fld(i,j,bi,bj)=fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F 160 ADVECT 
     &           )*recip_rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/advect.F 175 ADVECT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 179 ADVECT 
           tmpFld(i,j,bi,bj) = fldNm1(i,j,bi,bj)
./pkg/seaice/advect.F 187 ADVECT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 191 ADVECT 
            DIFFA(i,j,bi,bj) = MIN( _dxF(i,j,bi,bj), _dyF(i,j,bi,bj) )
./pkg/seaice/advect.F 199 ADVECT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 203 ADVECT 
           fld(i,j,bi,bj) = ( fld(i,j,bi,bj)
./pkg/seaice/advect.F 204 ADVECT 
     &                       +tmpFld(i,j,bi,bj)*DIFF1*DELTT
./pkg/seaice/advect.F 205 ADVECT 
     &                      )*iceMsk(i,j,bi,bj)
./pkg/seaice/advect.F 215 ADVECT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 223 ADVECT 
            DIFFA(i,j,bi,bj) = - DIFFA(i,j,bi,bj)*DIFFA(i,j,bi,bj)
./pkg/seaice/advect.F 231 ADVECT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 235 ADVECT 
           fld(i,j,bi,bj) = ( fld(i,j,bi,bj)
./pkg/seaice/advect.F 236 ADVECT 
     &                       +tmpFld(i,j,bi,bj)*DIFF1*DELTT
./pkg/seaice/advect.F 237 ADVECT 
     &                      )*iceMsk(i,j,bi,bj)
./pkg/seaice/advect.F 55 ADVECT 
      INTEGER i, j, bi, bj
./pkg/seaice/advect.F 65 ADVECT 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 69 ADVECT 
          fldNm1(i,j,bi,bj) = fld(i,j,bi,bj)
./pkg/seaice/advect.F 89 ADVECT 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/advect.F 94 ADVECT 
            tmpFld(i,j,bi,bj)=HALF*(fld(i,j,bi,bj)
./pkg/seaice/advect.F 95 ADVECT 
     &           +fldNm1(i,j,bi,bj))
./pkg/seaice/cost_ice_test.F 101 COST_ICE_TEST 
                        objf_ice(bi,bj) = objf_ice(bi,bj) +
./pkg/seaice/cost_ice_test.F 102 COST_ICE_TEST 
     &                       tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F 110 COST_ICE_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/cost_ice_test.F 114 COST_ICE_TEST 
                        objf_ice(bi,bj) = objf_ice(bi,bj) +
./pkg/seaice/cost_ice_test.F 115 COST_ICE_TEST 
     &                       tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F 144 COST_ICE_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/cost_ice_test.F 148 COST_ICE_TEST 
                objf_ice(bi,bj) = objf_ice(bi,bj) +
./pkg/seaice/cost_ice_test.F 149 COST_ICE_TEST 
     &                 tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F 150 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 152 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 )
./pkg/seaice/cost_ice_test.F 160 COST_ICE_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/cost_ice_test.F 164 COST_ICE_TEST 
                objf_ice(bi,bj) = objf_ice(bi,bj) +
./pkg/seaice/cost_ice_test.F 165 COST_ICE_TEST 
     &                 tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F 166 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 175 COST_ICE_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/cost_ice_test.F 179 COST_ICE_TEST 
                objf_ice(bi,bj) = objf_ice(bi,bj) +
./pkg/seaice/cost_ice_test.F 180 COST_ICE_TEST 
     &                 tempVar * rA(i,j,bi,bj) * (
./pkg/seaice/cost_ice_test.F 181 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 183 COST_ICE_TEST 
     &                 (TICES(i,j,1,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 184 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F 185 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F 186 COST_ICE_TEST 
     &                 HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 )
./pkg/seaice/cost_ice_test.F 197 COST_ICE_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/cost_ice_test.F 201 COST_ICE_TEST 
                        objf_ice(bi,bj) = objf_ice(bi,bj) +
./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 203 COST_ICE_TEST 
     &                       ( AREA(i,j,bi,bj) - 0.5 _d 0 )
./pkg/seaice/cost_ice_test.F 211 COST_ICE_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/cost_ice_test.F 215 COST_ICE_TEST 
                        objf_ice(bi,bj) = objf_ice(bi,bj) +
./pkg/seaice/cost_ice_test.F 216 COST_ICE_TEST 
     &                       UICE(i,j,bi,bj) * UICE(i,j,bi,bj) +
./pkg/seaice/cost_ice_test.F 217 COST_ICE_TEST 
     &                       VICE(i,j,bi,bj) * VICE(i,j,bi,bj)
./pkg/seaice/cost_ice_test.F 75 COST_ICE_TEST 
      integer bi,bj,i,j,kSrf
./pkg/seaice/cost_ice_test.F 97 COST_ICE_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/diffus.F 114 DIFFUS 
            DELTXX = DIFFA(i,j,bi,bj)
./pkg/seaice/diffus.F 115 DIFFUS 
     &             * _recip_dxF(i,j,bi,bj)*_recip_dxF(i,j,bi,bj)
./pkg/seaice/diffus.F 116 DIFFUS 
            DELTYY = DIFFA(i,j,bi,bj)
./pkg/seaice/diffus.F 117 DIFFUS 
     &             * _recip_dyF(i,j,bi,bj)*_recip_dyF(i,j,bi,bj)
./pkg/seaice/diffus.F 118 DIFFUS 
     &             * _recip_dxF(i,j,bi,bj)
./pkg/seaice/diffus.F 121 DIFFUS 
     &                 (fld(i+1,j,bi,bj)-fld(i,  j,bi,bj))
./pkg/seaice/diffus.F 122 DIFFUS 
     &                 *iceMsk(i+1,j,bi,bj)
./pkg/seaice/diffus.F 124 DIFFUS 
     &                 *maskInW(i+1,j,bi,bj)
./pkg/seaice/diffus.F 126 DIFFUS 
     &                -(fld(i,  j,bi,bj)-fld(i-1,j,bi,bj))
./pkg/seaice/diffus.F 127 DIFFUS 
     &                 *iceMsk(i-1,j,bi,bj)
./pkg/seaice/diffus.F 129 DIFFUS 
     &                 *maskInW(i,j,bi,bj)
./pkg/seaice/diffus.F 133 DIFFUS 
     &                 (fld(i,j+1,bi,bj)-fld(i,j,  bi,bj))
./pkg/seaice/diffus.F 134 DIFFUS 
     &                 * _dxG(i,j+1,bi,bj)*iceMsk(i,j+1,bi,bj)
./pkg/seaice/diffus.F 136 DIFFUS 
     &                 *maskInS(i,j+1,bi,bj)
./pkg/seaice/diffus.F 138 DIFFUS 
     &                -(fld(i,j,  bi,bj)-fld(i,j-1,bi,bj))
./pkg/seaice/diffus.F 139 DIFFUS 
     &                 * _dxG(i,j,  bi,bj)*iceMsk(i,j-1,bi,bj)
./pkg/seaice/diffus.F 141 DIFFUS 
     &                 *maskInS(i,j,bi,bj)
./pkg/seaice/diffus.F 148 DIFFUS 
            fld(i,j,bi,bj) = tmpFld(i,j)
./pkg/seaice/diffus.F 46 DIFFUS 
      INTEGER i, j, bi, bj
./pkg/seaice/diffus.F 54 DIFFUS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/diffus.F 68 DIFFUS 
            dfx(i,j) = _dyG(i,j,bi,bj) * _recip_dxC(i,j,bi,bj)
./pkg/seaice/diffus.F 69 DIFFUS 
     &         * (fld(i,j,bi,bj)-fld(i-1,j,bi,bj))
./pkg/seaice/diffus.F 70 DIFFUS 
     &         * cosFacU(j,bi,bj)
./pkg/seaice/diffus.F 71 DIFFUS 
     &         * iceMsk(i,j,bi,bj)*iceMsk(i-1,j,bi,bj)
./pkg/seaice/diffus.F 72 DIFFUS 
     &         * ( DIFFA(i,j,bi,bj)+DIFFA(i-1,j,bi,bj) )*HALF
./pkg/seaice/diffus.F 74 DIFFUS 
     &         * maskInW(i,j,bi,bj)
./pkg/seaice/diffus.F 76 DIFFUS 
            dfy(i,j) = _dxG(i,j,bi,bj) * _recip_dyC(i,j,bi,bj)
./pkg/seaice/diffus.F 77 DIFFUS 
     &         * (fld(i,j,bi,bj)-fld(i,j-1,bi,bj))
./pkg/seaice/diffus.F 79 DIFFUS 
     &         * cosFacV(j,bi,bj)
./pkg/seaice/diffus.F 81 DIFFUS 
     &         * iceMsk(i,j,bi,bj)*iceMsk(i,j-1,bi,bj)
./pkg/seaice/diffus.F 82 DIFFUS 
     &         * ( DIFFA(i,j,bi,bj)+DIFFA(i,j-1,bi,bj) )*HALF
./pkg/seaice/diffus.F 84 DIFFUS 
     &         * maskInS(i,j,bi,bj)
./pkg/seaice/diffus.F 90 DIFFUS 
            fld(i,j,bi,bj) = 0. _d 0
./pkg/seaice/diffus.F 96 DIFFUS 
            fld(i,j,bi,bj) = (
./pkg/seaice/diffus.F 99 DIFFUS 
     &                       ) * recip_rA(i,j,bi,bj)
./pkg/seaice/dynsolver.F 104 DYNSOLVER 
          AMASS(I,J,bi,bj)=RHOICE*QUART*(
./pkg/seaice/dynsolver.F 105 DYNSOLVER 
     &          HEFF(i,j  ,bi,bj) + HEFF(i-1,j  ,bi,bj)
./pkg/seaice/dynsolver.F 106 DYNSOLVER 
     &         +HEFF(i,j-1,bi,bj) + HEFF(i-1,j-1,bi,bj) )
./pkg/seaice/dynsolver.F 107 DYNSOLVER 
          COR_ICE(I,J,bi,bj)=AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj)
./pkg/seaice/dynsolver.F 117 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 121 DYNSOLVER 
          U1=QUART*(UWIND(I-1,J-1,bi,bj)+UWIND(I-1,J,bi,bj)
./pkg/seaice/dynsolver.F 122 DYNSOLVER 
     &             +UWIND(I  ,J-1,bi,bj)+UWIND(I  ,J,bi,bj))
./pkg/seaice/dynsolver.F 123 DYNSOLVER 
          V1=QUART*(VWIND(I-1,J-1,bi,bj)+VWIND(I-1,J,bi,bj)
./pkg/seaice/dynsolver.F 124 DYNSOLVER 
     &             +VWIND(I  ,J-1,bi,bj)+VWIND(I  ,J,bi,bj))
./pkg/seaice/dynsolver.F 132 DYNSOLVER 
          DAIRN(I,J,bi,bj)=RHOAIR*OCEAN_drag
./pkg/seaice/dynsolver.F 134 DYNSOLVER 
          WINDX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*
./pkg/seaice/dynsolver.F 135 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 136 DYNSOLVER 
          WINDY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*
./pkg/seaice/dynsolver.F 137 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 140 DYNSOLVER 
          IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/dynsolver.F 141 DYNSOLVER 
           DAIRN(I,J,bi,bj) =
./pkg/seaice/dynsolver.F 142 DYNSOLVER 
     &          RHOAIR*(SEAICE_drag_south*AAA*AREA(I,J,bi,bj)
./pkg/seaice/dynsolver.F 144 DYNSOLVER 
     &          +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 146 DYNSOLVER 
           DAIRN(I,J,bi,bj) =
./pkg/seaice/dynsolver.F 147 DYNSOLVER 
     &          RHOAIR*(SEAICE_drag*AAA*AREA(I,J,bi,bj)
./pkg/seaice/dynsolver.F 149 DYNSOLVER 
     &          +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 151 DYNSOLVER 
          FORCEX(I,J,bi,bj)=DAIRN(I,J,bi,bj)*
./pkg/seaice/dynsolver.F 152 DYNSOLVER 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(I,J,bi,bj))*V1)
./pkg/seaice/dynsolver.F 153 DYNSOLVER 
          FORCEY(I,J,bi,bj)=DAIRN(I,J,bi,bj)*
./pkg/seaice/dynsolver.F 154 DYNSOLVER 
     &         (SIGN(SINWIN, _fCori(I,J,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/dynsolver.F 160 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 167 DYNSOLVER 
            phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/dynsolver.F 176 DYNSOLVER 
     &                   + ( pload(i,j,bi,bj)
./pkg/seaice/dynsolver.F 177 DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/dynsolver.F 185 DYNSOLVER 
     &                   + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/dynsolver.F 193 DYNSOLVER 
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 194 DYNSOLVER 
     &      -AMASS(I,J,bi,bj)
./pkg/seaice/dynsolver.F 195 DYNSOLVER 
     &         *( (phiSurf(i, j )-phiSurf(i-1, j ))*maskW(i, j ,1,bi,bj)
./pkg/seaice/dynsolver.F 196 DYNSOLVER 
     &           +(phiSurf(i,j-1)-phiSurf(i-1,j-1))*maskW(i,j-1,1,bi,bj)
./pkg/seaice/dynsolver.F 197 DYNSOLVER 
     &          )*HALF*_recip_dxV(I,J,bi,bj)
./pkg/seaice/dynsolver.F 198 DYNSOLVER 
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 199 DYNSOLVER 
     &      -AMASS(I,J,bi,bj)
./pkg/seaice/dynsolver.F 200 DYNSOLVER 
     &         *( (phiSurf( i ,j)-phiSurf( i ,j-1))*maskS( i ,j,1,bi,bj)
./pkg/seaice/dynsolver.F 201 DYNSOLVER 
     &           +(phiSurf(i-1,j)-phiSurf(i-1,j-1))*maskS(i-1,j,1,bi,bj)
./pkg/seaice/dynsolver.F 202 DYNSOLVER 
     &          )*HALF*_recip_dyU(I,J,bi,bj)
./pkg/seaice/dynsolver.F 204 DYNSOLVER 
          FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 205 DYNSOLVER 
          FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 213 DYNSOLVER 
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 214 DYNSOLVER 
     &         -COR_ICE(I,J,bi,bj)*GWATY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 215 DYNSOLVER 
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 216 DYNSOLVER 
     &         +COR_ICE(I,J,bi,bj)*GWATX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 218 DYNSOLVER 
          FORCEX0(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/dynsolver.F 219 DYNSOLVER 
          FORCEY0(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/dynsolver.F 222 DYNSOLVER 
          PRESS0(I,J,bi,bj)=PSTAR*HEFF(I,J,bi,bj)
./pkg/seaice/dynsolver.F 223 DYNSOLVER 
     &         *EXP(-20.0 _d 0*(ONE-AREA(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 225 DYNSOLVER 
          ZMAX(I,J,bi,bj)=SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj)
./pkg/seaice/dynsolver.F 227 DYNSOLVER 
          ZMIN(I,J,bi,bj)=SEAICE_zetaMin
./pkg/seaice/dynsolver.F 228 DYNSOLVER 
          PRESS0(I,J,bi,bj)=PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/dynsolver.F 250 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 254 DYNSOLVER 
          UICENM1(I,J,bi,bj)=UICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 255 DYNSOLVER 
          VICENM1(I,J,bi,bj)=VICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 256 DYNSOLVER 
          UICEC(I,J,bi,bj)=UICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 257 DYNSOLVER 
          VICEC(I,J,bi,bj)=VICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 271 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 275 DYNSOLVER 
          UICE(I,J,bi,bj)=HALF*(UICE(I,J,bi,bj)+UICENM1(I,J,bi,bj))
./pkg/seaice/dynsolver.F 276 DYNSOLVER 
          VICE(I,J,bi,bj)=HALF*(VICE(I,J,bi,bj)+VICENM1(I,J,bi,bj))
./pkg/seaice/dynsolver.F 277 DYNSOLVER 
          UICEC(I,J,bi,bj)=UICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 278 DYNSOLVER 
          VICEC(I,J,bi,bj)=VICE(I,J,bi,bj)
./pkg/seaice/dynsolver.F 313 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 325 DYNSOLVER 
          UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 326 DYNSOLVER 
          VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 335 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 339 DYNSOLVER 
          UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F 340 DYNSOLVER 
          VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F 53 DYNSOLVER 
      INTEGER i, j, bi, bj
./pkg/seaice/dynsolver.F 74 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 78 DYNSOLVER 
          GWATX(I,J,bi,bj)=HALF*(uVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/dynsolver.F 79 DYNSOLVER 
     &                         +uVel(i,j-1,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/dynsolver.F 80 DYNSOLVER 
          GWATY(I,J,bi,bj)=HALF*(vVel(i,j,KGEO(I,J,bi,bj),bi,bj)
./pkg/seaice/dynsolver.F 81 DYNSOLVER 
     &                         +vVel(i-1,j,KGEO(I,J,bi,bj),bi,bj))
./pkg/seaice/dynsolver.F 95 DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/dynsolver.F 99 DYNSOLVER 
          COR_ICE(i,j,bi,bj) = 0.
./pkg/seaice/lsr.F 1000 LSR 
     &         ( UICEC(I+1,J+1,bi,bj) - UICEC(I ,J+1,bi,bj) )
./pkg/seaice/lsr.F 1001 LSR 
     &         * _recip_dxG(I,J+1,bi,bj)
./pkg/seaice/lsr.F 1002 LSR 
     &         +(UICEC(I+1,J  ,bi,bj) - UICEC(I ,J  ,bi,bj) )
./pkg/seaice/lsr.F 1003 LSR 
     &         * _recip_dxG(I,J  ,bi,bj) )
./pkg/seaice/lsr.F 1005 LSR 
     &          ( UICEC(I+1,J+1,bi,bj) - UICEC(I+1,J  ,bi,bj) )
./pkg/seaice/lsr.F 1006 LSR 
     &         * _recip_dyG(I+1,J,bi,bj)
./pkg/seaice/lsr.F 1007 LSR 
     &          +(UICEC(I  ,J+1,bi,bj) - UICEC(I  ,J  ,bi,bj) )
./pkg/seaice/lsr.F 1008 LSR 
     &         * _recip_dyG(I,  J,bi,bj) )
./pkg/seaice/lsr.F 1015 LSR 
     &         uicec(i,j,bi,bj) + uicec(i+1,j,bi,bj) )
./pkg/seaice/lsr.F 1017 LSR 
     &         uicec(i,j+1,bi,bj) + uicec(i+1,j+1,bi,bj) )
./pkg/seaice/lsr.F 1023 LSR 
           rhsV(I,J,bi,bj)=-DRAGA(I,J,bi,bj)*UICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 1024 LSR 
     &        +FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 1028 LSR 
     &         (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i-1,j,bi,bj))
./pkg/seaice/lsr.F 1029 LSR 
     &         *(uz(i,j)-uz(i-1,j)) * _recip_dxC(i,j,bi,bj)
./pkg/seaice/lsr.F 1031 LSR 
     &         (zetaMinusEta(i,j-1,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj))
./pkg/seaice/lsr.F 1032 LSR 
     &         *(uz(i,j-1)-uz(i-1,j-1)) * _recip_dxC(i,j-1,bi,bj)
./pkg/seaice/lsr.F 1033 LSR 
     &         ) * _recip_dyU(i,j,bi,bj)
./pkg/seaice/lsr.F 1035 LSR 
     &         + ( zetaMinusEta(I  ,J  ,bi,bj) * dUdx(I  ,J  )
./pkg/seaice/lsr.F 1036 LSR 
     &           + zetaMinusEta(I-1,J  ,bi,bj) * dUdx(I-1,J  )
./pkg/seaice/lsr.F 1037 LSR 
     &           - zetaMinusEta(I  ,J-1,bi,bj) * dUdx(I  ,J-1)
./pkg/seaice/lsr.F 1038 LSR 
     &           - zetaMinusEta(I-1,J-1,bi,bj) * dUdx(I-1,J-1)
./pkg/seaice/lsr.F 1039 LSR 
     &         )* 0.5 _d 0 * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 1042 LSR 
     &        + ( ETA          (I  ,J  ,bi,bj) * dUdy(I  ,J  )
./pkg/seaice/lsr.F 1043 LSR 
     &         +  ETA          (I  ,J-1,bi,bj) * dUdy(I  ,J-1)
./pkg/seaice/lsr.F 1044 LSR 
     &         -  ETA          (I-1,J  ,bi,bj) * dUdy(I-1,J  )
./pkg/seaice/lsr.F 1045 LSR 
     &         -  ETA          (I-1,J-1,bi,bj) * dUdy(I-1,J-1)
./pkg/seaice/lsr.F 1046 LSR 
     &         )*0.5 _d 0* _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 1048 LSR 
     &        +(ETA(I  ,J  ,bi,bj) + ETA(I  ,J-1,bi,bj)
./pkg/seaice/lsr.F 1049 LSR 
     &         -ETA(I-1,J-1,bi,bj) - ETA(I-1,J  ,bi,bj))
./pkg/seaice/lsr.F 1050 LSR 
     &         * UICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 1051 LSR 
     &         * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 1052 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 1053 LSR 
     &        +ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 1054 LSR 
     &         *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 1055 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 1057 LSR 
     &        +ETAMEAN(I,J,bi,bj)*TWO  * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 1058 LSR 
     &        *(UICEC(I+1,J,bi,bj)-UICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 1059 LSR 
     &         * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj))
./pkg/seaice/lsr.F 1061 LSR 
          VRT1(I,J,bi,bj)= 0.5 _d 0 * (
./pkg/seaice/lsr.F 1062 LSR 
     &           ETA(I-1,J-1,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 1063 LSR 
     &          +ETA(I-1,J  ,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 1064 LSR 
     &          ) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 1065 LSR 
          VRT2(I,J,bi,bj)= 0.5 _d 0 * (
./pkg/seaice/lsr.F 1066 LSR 
     &          ETA(I  ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 1067 LSR 
     &         +ETA(I  ,J  ,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 1068 LSR 
     &         ) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 1090 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 1095 LSR 
          VTMP(I,J,bi,bj)=VICE(I,J,bi,bj)
./pkg/seaice/lsr.F 1102 LSR 
            AA2= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 1104 LSR 
     &           etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj)
./pkg/seaice/lsr.F 1107 LSR 
     &         +( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj) )
./pkg/seaice/lsr.F 1108 LSR 
     &         * _tanPhiAtV(I,J-1,bi,bj)
./pkg/seaice/lsr.F 1109 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 1110 LSR 
     &         + ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 1111 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere )
./pkg/seaice/lsr.F 1112 LSR 
     &         *VICE(I,J-1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 1114 LSR 
            AA1= _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 1116 LSR 
     &           etaPlusZeta(I-1,J,bi,bj) + etaPlusZeta(I,J,bi,bj)
./pkg/seaice/lsr.F 1119 LSR 
     &         -( ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 1120 LSR 
     &         * _tanPhiAtV(I,J+1,bi,bj)
./pkg/seaice/lsr.F 1121 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 1122 LSR 
     &         - ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 1123 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere )
./pkg/seaice/lsr.F 1124 LSR 
     &         *VICE(I,J+1,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 1129 LSR 
          VRT(J)=rhsV(I,J,bi,bj)+AA3+VRT1(I,J,bi,bj)*VICE(I-1,J,bi,bj)
./pkg/seaice/lsr.F 1130 LSR 
     &                       +VRT2(I,J,bi,bj)*VICE(I+1,J,bi,bj)
./pkg/seaice/lsr.F 1131 LSR 
          VRT(J)=VRT(J)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 1135 LSR 
          CVV(J)=CV(I,J,bi,bj)
./pkg/seaice/lsr.F 1137 LSR 
         VRT(1)=VRT(1)/BV(I,1,bi,bj)
./pkg/seaice/lsr.F 1140 LSR 
          CVV(J)=CVV(J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))
./pkg/seaice/lsr.F 1141 LSR 
          VRT(J)=(VRT(J)-AV(I,J,bi,bj)*VRT(JM))
./pkg/seaice/lsr.F 1142 LSR 
     &          /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(JM))
./pkg/seaice/lsr.F 1150 LSR 
          VICE(I,J,bi,bj)=VTMP(I,J,bi,bj)
./pkg/seaice/lsr.F 1151 LSR 
     &        +WFAV*(VRT(J)-VTMP(I,J,bi,bj))
./pkg/seaice/lsr.F 1160 LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 1164 LSR 
           UERR=(VICE(I,J,bi,bj)-VTMP(I,J,bi,bj))
./pkg/seaice/lsr.F 1165 LSR 
     &             *UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 1197 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 1201 LSR 
          UICE(I,J,bi,bj)=UICE(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 1202 LSR 
          VICE(I,J,bi,bj)=VICE(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 167 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 171 LSR 
          ucLoc(I,J,bi,bj) = 0.25 _d 0 * (
./pkg/seaice/lsr.F 172 LSR 
     &         +  uIceC(I+1,J,bi,bj) +  uIceC(I+1,J+1,bi,bj)
./pkg/seaice/lsr.F 173 LSR 
     &         +  uIceC(I  ,J,bi,bj) +  uIceC(I,  J+1,bi,bj) )
./pkg/seaice/lsr.F 174 LSR 
          vcLoc(I,J,bi,bj) = 0.25 _d 0 * (
./pkg/seaice/lsr.F 175 LSR 
     &         +  vIceC(I+1,J,bi,bj) +  vIceC(I+1,J+1,bi,bj)
./pkg/seaice/lsr.F 176 LSR 
     &         +  vIceC(I  ,J,bi,bj) +  vIceC(I,  J+1,bi,bj) )
./pkg/seaice/lsr.F 181 LSR 
          e11loc = 0.5 _d 0 * _recip_dxF(I,J,bi,bj) *
./pkg/seaice/lsr.F 182 LSR 
     &                (uIceC(I+1,J+1,bi,bj)+uIceC(I+1,J,bi,bj)
./pkg/seaice/lsr.F 183 LSR 
     &                -uIceC(I,  J+1,bi,bj)-uIceC(I,  J,bi,bj))
./pkg/seaice/lsr.F 184 LSR 
     &                + vcLoc(I,J,bi,bj) * k2AtC(I,J,bi,bj)
./pkg/seaice/lsr.F 185 LSR 
          e22loc = 0.5 _d 0 * _recip_dyF(I,J,bi,bj) *
./pkg/seaice/lsr.F 186 LSR 
     &                (vIceC(I+1,J+1,bi,bj)+vIceC(I,J+1,bi,bj)
./pkg/seaice/lsr.F 187 LSR 
     &                -vIceC(I+1,J,  bi,bj)-vIceC(I,J,  bi,bj))
./pkg/seaice/lsr.F 188 LSR 
     &                + ucLoc(I,J,bi,bj) * k1AtC(I,J,bi,bj)
./pkg/seaice/lsr.F 190 LSR 
     &           0.5 _d 0 * _recip_dyF(I,J,bi,bj) *
./pkg/seaice/lsr.F 191 LSR 
     &         (uIceC(I+1,J+1,bi,bj)+uIceC(I,J+1,bi,bj)
./pkg/seaice/lsr.F 192 LSR 
     &         -uIceC(I+1,J,  bi,bj)-uIceC(I,J,  bi,bj))
./pkg/seaice/lsr.F 193 LSR 
     &         + 0.5 _d 0 * _recip_dxF(I,J,bi,bj) *
./pkg/seaice/lsr.F 194 LSR 
     &         (vIceC(I+1,J+1,bi,bj)+vIceC(I+1,J,bi,bj)
./pkg/seaice/lsr.F 195 LSR 
     &         -vIceC(I,  J+1,bi,bj)-vIceC(I,  J,bi,bj))
./pkg/seaice/lsr.F 196 LSR 
     &         - vcLoc(I,J,bi,bj)*k1AtC(I,J,bi,bj)
./pkg/seaice/lsr.F 197 LSR 
     &         - ucLoc(I,J,bi,bj)*k2AtC(I,J,bi,bj) )
./pkg/seaice/lsr.F 207 LSR 
          ZETA(I,J,bi,bj)  = 0.5 _d 0*PRESS0(I,J,bi,bj)/DELT2
./pkg/seaice/lsr.F 209 LSR 
          ZETA(I,J,bi,bj)  = MIN(ZMAX(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/lsr.F 210 LSR 
          ZETA(I,J,bi,bj)  = MAX(ZMIN(I,J,bi,bj),ZETA(I,J,bi,bj))
./pkg/seaice/lsr.F 212 LSR 
          ZETA(I,J,bi,bj)  = ZETA(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/lsr.F 213 LSR 
          ETA(I,J,bi,bj)   = ECM2*ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 214 LSR 
          PRESS(I,J,bi,bj) = 2.0 _d 0*ZETA(I,J,bi,bj)*DELT2
./pkg/seaice/lsr.F 220 LSR 
          TEMPVAR=(uIce(I,J,bi,bj)-GWATX(I,J,bi,bj))**2
./pkg/seaice/lsr.F 221 LSR 
     &           +(vIce(I,J,bi,bj)-GWATY(I,J,bi,bj))**2
./pkg/seaice/lsr.F 222 LSR 
          IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/lsr.F 224 LSR 
            DWATN(I,J,bi,bj)=QUART
./pkg/seaice/lsr.F 226 LSR 
            DWATN(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR)
./pkg/seaice/lsr.F 230 LSR 
            DWATN(I,J,bi,bj)=QUART
./pkg/seaice/lsr.F 232 LSR 
            DWATN(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR)
./pkg/seaice/lsr.F 236 LSR 
          DRAGS(I,J,bi,bj)=DWATN(I,J,bi,bj)*COSWAT
./pkg/seaice/lsr.F 238 LSR 
          DRAGA(I,J,bi,bj)=DWATN(I,J,bi,bj)
./pkg/seaice/lsr.F 239 LSR 
     &         *SIGN(SINWAT, _fCori(I,J,bi,bj))
./pkg/seaice/lsr.F 240 LSR 
     &         + AMASS(I,J,bi,bj) * _fCoriG(I,J,bi,bj)
./pkg/seaice/lsr.F 242 LSR 
          FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/lsr.F 243 LSR 
     &         *(COSWAT*GWATX(I,J,bi,bj)
./pkg/seaice/lsr.F 244 LSR 
     &         -SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATY(I,J,bi,bj))
./pkg/seaice/lsr.F 245 LSR 
          FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+DWATN(I,J,bi,bj)
./pkg/seaice/lsr.F 246 LSR 
     &         *(SIGN(SINWAT, _fCori(I,J,bi,bj))*GWATX(I,J,bi,bj)
./pkg/seaice/lsr.F 247 LSR 
     &         +COSWAT*GWATY(I,J,bi,bj))
./pkg/seaice/lsr.F 252 LSR 
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/lsr.F 253 LSR 
     &          -QUART * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 254 LSR 
     &          *(PRESS(I,  J,bi,bj) + PRESS(I,  J-1,bi,bj)
./pkg/seaice/lsr.F 255 LSR 
     &          - PRESS(I-1,J,bi,bj) - PRESS(I-1,J-1,bi,bj))
./pkg/seaice/lsr.F 256 LSR 
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 257 LSR 
     &         -QUART * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 258 LSR 
     &          *(PRESS(I,J,  bi,bj) + PRESS(I-1,J,  bi,bj)
./pkg/seaice/lsr.F 259 LSR 
     &          - PRESS(I,J-1,bi,bj) - PRESS(I-1,J-1,bi,bj))
./pkg/seaice/lsr.F 261 LSR 
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/lsr.F 262 LSR 
     &         +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*uIceNm1(I,J,bi,bj)
./pkg/seaice/lsr.F 263 LSR 
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 264 LSR 
     &         +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn*vIceNm1(I,J,bi,bj)
./pkg/seaice/lsr.F 265 LSR 
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 266 LSR 
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 273 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 279 LSR 
     &         +  eta(I,J,bi,bj) +  eta(I-1,J,bi,bj) )
./pkg/seaice/lsr.F 281 LSR 
     &         + zeta(I,J,bi,bj) + zeta(I-1,J,bi,bj) )
./pkg/seaice/lsr.F 287 LSR 
     &         +  eta(I,J,bi,bj) +  eta(I,J-1,bi,bj) )
./pkg/seaice/lsr.F 289 LSR 
     &         + zeta(I,J,bi,bj) + zeta(I,J-1,bi,bj) )
./pkg/seaice/lsr.F 296 LSR 
          UXX(I,J) = _dyC(I,J,bi,bj) * (zetaV(I,J)+etaV(I,J))
./pkg/seaice/lsr.F 297 LSR 
     &         * _recip_dxG(I,J,bi,bj)
./pkg/seaice/lsr.F 299 LSR 
          UXM(I,J) = _dyC(I,J,bi,bj) * (zetaV(I,J)-etaV(I,J))
./pkg/seaice/lsr.F 300 LSR 
     &         * k1AtV(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/lsr.F 306 LSR 
          UYY(I,J) = _dxC(I,J,bi,bj) * etaU(I,J)
./pkg/seaice/lsr.F 307 LSR 
     &         * _recip_dyG(I,J,bi,bj)
./pkg/seaice/lsr.F 309 LSR 
          UYM(I,J) = _dxC(I,J,bi,bj) * etaU(I,J)
./pkg/seaice/lsr.F 310 LSR 
     &         * k2AtU(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/lsr.F 316 LSR 
          VXX(I,J) = _dyC(I,J,bi,bj) * etaV(I,J)
./pkg/seaice/lsr.F 317 LSR 
     &         * _recip_dxG(I,J,bi,bj)
./pkg/seaice/lsr.F 319 LSR 
          VXM(I,J) = _dyC(I,J,bi,bj) * etaV(I,J)
./pkg/seaice/lsr.F 320 LSR 
     &         * k1AtV(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/lsr.F 326 LSR 
          VYY(I,J) = _dxC(I,J,bi,bj) * (zetaU(I,J)+etaU(I,J))
./pkg/seaice/lsr.F 327 LSR 
     &         * _recip_dyG(I,J,bi,bj)
./pkg/seaice/lsr.F 329 LSR 
          VYM(I,J) = _dxC(I,J,bi,bj) * (zetaU(I,J)-etaU(I,J))
./pkg/seaice/lsr.F 330 LSR 
     &         * k2AtU(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/lsr.F 341 LSR 
          AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) )
./pkg/seaice/lsr.F 342 LSR 
     &         * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 344 LSR 
          CU(I,J,bi,bj)= ( - UXX(I  ,J) - UXM(I  ,J) )
./pkg/seaice/lsr.F 345 LSR 
     &         * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 347 LSR 
          BU(I,J,bi,bj)=(ONE - UVM(I,J,bi,bj)) +
./pkg/seaice/lsr.F 350 LSR 
     &         ) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 352 LSR 
          uRt1(I,J,bi,bj)= UYY(I,J-1) + UYM(I,J-1)
./pkg/seaice/lsr.F 354 LSR 
          uRt2(I,J,bi,bj)= UYY(I,J  ) - UYM(I,J  )
./pkg/seaice/lsr.F 361 LSR 
          AU(I,J,bi,bj)    = AU(I,J,bi,bj)    * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 362 LSR 
          CU(I,J,bi,bj)    = CU(I,J,bi,bj)    * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 365 LSR 
          BU(I,J,bi,bj)    = BU(I,J,bi,bj)    * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 366 LSR 
     &         + UVM(I,J,bi,bj) *
./pkg/seaice/lsr.F 367 LSR 
     &         ( AMASS(I,J,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/lsr.F 368 LSR 
     &         + DRAGS(I,J,bi,bj) )
./pkg/seaice/lsr.F 369 LSR 
          uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 370 LSR 
          uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 381 LSR 
          AV(I,J,bi,bj)=( - VYY(I,J-1) + VYM(I,J-1)
./pkg/seaice/lsr.F 382 LSR 
     &         ) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 384 LSR 
          CV(I,J,bi,bj)=( - VYY(I,J  ) - VYM(I,J  )
./pkg/seaice/lsr.F 385 LSR 
     &         ) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 387 LSR 
          BV(I,J,bi,bj)= (ONE - UVM(I,J,bi,bj)) +
./pkg/seaice/lsr.F 390 LSR 
     &         ) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 392 LSR 
          vRt1(I,J,bi,bj) = VXX(I-1,J) + VXM(I-1,J)
./pkg/seaice/lsr.F 394 LSR 
          vRt2(I,J,bi,bj) = VXX(I  ,J) - VXM(I  ,J)
./pkg/seaice/lsr.F 401 LSR 
          AV(I,J,bi,bj)    = AV(I,J,bi,bj)    * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 402 LSR 
          CV(I,J,bi,bj)    = CV(I,J,bi,bj)    * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 405 LSR 
          BV(I,J,bi,bj)    = BV(I,J,bi,bj)    * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 406 LSR 
     &         + UVM(I,J,bi,bj) *
./pkg/seaice/lsr.F 407 LSR 
     &         ( AMASS(I,J,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/lsr.F 408 LSR 
     &         + DRAGS(I,J,bi,bj) )
./pkg/seaice/lsr.F 409 LSR 
          vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 410 LSR 
          vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * recip_rAz(I,J,bi,bj)
./pkg/seaice/lsr.F 420 LSR 
     &         * (vcLoc(I,J,bi,bj)-vcLoc(I,J-1,bi,bj))
./pkg/seaice/lsr.F 421 LSR 
     &         * _recip_dyC(I,J,bi,bj)
./pkg/seaice/lsr.F 422 LSR 
     &         + (zetaV(I,J)+etaV(I,J))*k2atV(I,J,bi,bj)
./pkg/seaice/lsr.F 423 LSR 
     &         * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I+1,J,bi,bj))
./pkg/seaice/lsr.F 424 LSR 
     &         - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I,J-1,bi,bj))
./pkg/seaice/lsr.F 426 LSR 
     &         * (ucLoc(I,J,bi,bj)-ucLoc(I,J-1,bi,bj))
./pkg/seaice/lsr.F 427 LSR 
     &         * _recip_dyC(I,J,bi,bj)
./pkg/seaice/lsr.F 428 LSR 
     &         - etaV(I,J) * k2AtV(I,J,bi,bj)
./pkg/seaice/lsr.F 429 LSR 
     &         * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I+1,J,bi,bj))
./pkg/seaice/lsr.F 437 LSR 
     &         * (ucLoc(I,J,bi,bj)-ucLoc(I-1,J,bi,bj))
./pkg/seaice/lsr.F 438 LSR 
     &         * _recip_dxC(I,J,bi,bj)
./pkg/seaice/lsr.F 439 LSR 
     &         + (zetaU(I,J)+etaU(I,J))*k2atU(I,J,bi,bj)
./pkg/seaice/lsr.F 440 LSR 
     &         * 0.5 _d 0 * (uIceC(I,J,bi,bj)+uIceC(I,J+1,bi,bj))
./pkg/seaice/lsr.F 441 LSR 
     &         - 0.5 _d 0 * (PRESS(I,J,bi,bj)+PRESS(I-1,J,bi,bj))
./pkg/seaice/lsr.F 443 LSR 
     &         * (vcLoc(I,J,bi,bj)-vcLoc(I-1,J,bi,bj))
./pkg/seaice/lsr.F 444 LSR 
     &         * _recip_dxC(I,J,bi,bj)
./pkg/seaice/lsr.F 445 LSR 
     &         - etaU(I,J) * k1AtU(I,J,bi,bj)
./pkg/seaice/lsr.F 446 LSR 
     &         * 0.5 _d 0 * (vIceC(I,J,bi,bj)+vIceC(I,J+1,bi,bj))
./pkg/seaice/lsr.F 451 LSR 
          rhsU(I,J,bi,bj) =   DRAGA(I,J,bi,bj)*vIceC(I,J,bi,bj)
./pkg/seaice/lsr.F 452 LSR 
     &         +FORCEX(I,J,bi,bj)
./pkg/seaice/lsr.F 453 LSR 
     &         + ( _dyC(I,  J,  bi,bj) * sig11(I,  J  )
./pkg/seaice/lsr.F 454 LSR 
     &           - _dyC(I-1,J,  bi,bj) * sig11(I-1,J  )
./pkg/seaice/lsr.F 455 LSR 
     &           + _dxC(I,  J,  bi,bj) * sig21(I,  J  )
./pkg/seaice/lsr.F 456 LSR 
     &           - _dxC(I,  J-1,bi,bj) * sig21(I,  J-1) )
./pkg/seaice/lsr.F 457 LSR 
     &         * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 458 LSR 
          rhsV(I,J,bi,bj) = - DRAGA(I,J,bi,bj)*uIceC(I,J,bi,bj)
./pkg/seaice/lsr.F 459 LSR 
     &         +FORCEY(I,J,bi,bj)
./pkg/seaice/lsr.F 460 LSR 
     &         + ( _dyC(I,  J,  bi,bj) * sig12(I,  J  )
./pkg/seaice/lsr.F 461 LSR 
     &           - _dyC(I-1,J,  bi,bj) * sig12(I-1,J  )
./pkg/seaice/lsr.F 462 LSR 
     &           + _dxC(I,  J,  bi,bj) * sig22(I,  J  )
./pkg/seaice/lsr.F 463 LSR 
     &           - _dxC(I,  J-1,bi,bj) * sig22(I,  J-1) )
./pkg/seaice/lsr.F 464 LSR 
     &         * recip_rAz(I,J,bi,bj) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 486 LSR 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 493 LSR 
            uTmp(I,J,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/lsr.F 499 LSR 
            vTmp(I,J,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/lsr.F 508 LSR 
             IF (I.EQ.1)   AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj)
./pkg/seaice/lsr.F 509 LSR 
             IF (I.EQ.sNx) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj)
./pkg/seaice/lsr.F 50 LSR 
      INTEGER i, j, m, bi, bj, j1, j2, im, jm
./pkg/seaice/lsr.F 511 LSR 
             URT(I,J)=rhsU(I,J,bi,bj)
./pkg/seaice/lsr.F 514 LSR 
     &            + uRt1(I,J,bi,bj)*uTmp(I,J-1,bi,bj)
./pkg/seaice/lsr.F 515 LSR 
     &            + uRt2(I,J,bi,bj)*uTmp(I,J+1,bi,bj)
./pkg/seaice/lsr.F 517 LSR 
     &            + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj)
./pkg/seaice/lsr.F 518 LSR 
     &            + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj)
./pkg/seaice/lsr.F 520 LSR 
             URT(I,J)=URT(I,J)* UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 524 LSR 
             CUU(I,J)=CU(I,J,bi,bj)
./pkg/seaice/lsr.F 526 LSR 
            CUU(1,J)=CUU(1,J)/BU(1,J,bi,bj)
./pkg/seaice/lsr.F 527 LSR 
            URT(1,J)=URT(1,J)/BU(1,J,bi,bj)
./pkg/seaice/lsr.F 538 LSR 
             CUU(I,J)=CUU(I,J)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J))
./pkg/seaice/lsr.F 539 LSR 
             URT(I,J)=(URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))
./pkg/seaice/lsr.F 540 LSR 
     &           /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J))
./pkg/seaice/lsr.F 553 LSR 
             uIce(I,J,bi,bj)=uTmp(I,J,bi,bj)
./pkg/seaice/lsr.F 554 LSR 
     &           +WFAU*(URT(I,J)-uTmp(I,J,bi,bj))
./pkg/seaice/lsr.F 565 LSR 
             IF (J.EQ.1)   AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj)
./pkg/seaice/lsr.F 566 LSR 
             IF (J.EQ.sNy) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj)
./pkg/seaice/lsr.F 568 LSR 
             VRT(I,J)=rhsV(I,J,bi,bj)
./pkg/seaice/lsr.F 571 LSR 
     &            + vRt1(I,J,bi,bj)*vTmp(I-1,J,bi,bj)
./pkg/seaice/lsr.F 572 LSR 
     &            + vRt2(I,J,bi,bj)*vTmp(I+1,J,bi,bj)
./pkg/seaice/lsr.F 574 LSR 
     &            + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj)
./pkg/seaice/lsr.F 575 LSR 
     &            + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj)
./pkg/seaice/lsr.F 577 LSR 
             VRT(I,J)=VRT(I,J)* UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 581 LSR 
             CVV(I,J)=CV(I,J,bi,bj)
./pkg/seaice/lsr.F 583 LSR 
            CVV(I,1)=CVV(I,1)/BV(I,1,bi,bj)
./pkg/seaice/lsr.F 584 LSR 
            VRT(I,1)=VRT(I,1)/BV(I,1,bi,bj)
./pkg/seaice/lsr.F 587 LSR 
             CVV(I,J)=CVV(I,J)/(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM))
./pkg/seaice/lsr.F 588 LSR 
             VRT(I,J)=(VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM))
./pkg/seaice/lsr.F 589 LSR 
     &            /(BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM))
./pkg/seaice/lsr.F 597 LSR 
             vIce(I,J,bi,bj)=vTmp(I,J,bi,bj)
./pkg/seaice/lsr.F 598 LSR 
     &           +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj))
./pkg/seaice/lsr.F 610 LSR 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 614 LSR 
             UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj))
./pkg/seaice/lsr.F 615 LSR 
     &               * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 635 LSR 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 639 LSR 
             UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj))
./pkg/seaice/lsr.F 640 LSR 
     &               * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 697 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 701 LSR 
          etaPlusZeta(I,J,bi,bj) = ETA(I,J,bi,bj)+ZETA(I,J,bi,bj)
./pkg/seaice/lsr.F 702 LSR 
          zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA(I,J,bi,bj)
./pkg/seaice/lsr.F 707 LSR 
          ETAMEAN(I,J,bi,bj) =QUART*(
./pkg/seaice/lsr.F 708 LSR 
     &          ETA(I,J-1,bi,bj) + ETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 709 LSR 
     &         +ETA(I,J  ,bi,bj) + ETA(I-1,J  ,bi,bj))
./pkg/seaice/lsr.F 710 LSR 
          ZETAMEAN(I,J,bi,bj)=QUART*(
./pkg/seaice/lsr.F 711 LSR 
     &          ZETA(I,J-1,bi,bj) + ZETA(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 712 LSR 
     &         +ZETA(I,J  ,bi,bj) + ZETA(I-1,J  ,bi,bj))
./pkg/seaice/lsr.F 718 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 723 LSR 
          AA1=( etaPlusZeta(I  ,J-1,bi,bj) * _recip_dxF(I  ,J-1,bi,bj)
./pkg/seaice/lsr.F 724 LSR 
     &         +etaPlusZeta(I  ,J  ,bi,bj) * _recip_dxF(I  ,J  ,bi,bj)
./pkg/seaice/lsr.F 725 LSR 
     &         )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 726 LSR 
          AA2=( etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 727 LSR 
     &         +etaPlusZeta(I-1,J  ,bi,bj) * _recip_dxF(I-1,J  ,bi,bj)
./pkg/seaice/lsr.F 728 LSR 
     &         )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 729 LSR 
          AA3=  0.5 _d 0 *(ETA(I-1,J  ,bi,bj)+ETA(I,J  ,bi,bj))
./pkg/seaice/lsr.F 730 LSR 
          AA4=  0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 731 LSR 
          AA5= -(AA3-AA4) * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 732 LSR 
     &         * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 733 LSR 
          AA6=TWO*ETAMEAN(I,J,bi,bj) *recip_rSphere*recip_rSphere
./pkg/seaice/lsr.F 734 LSR 
     &          * _tanPhiAtV(I,J,bi,bj)  * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 735 LSR 
          AU(I,J,bi,bj)=-AA2
./pkg/seaice/lsr.F 736 LSR 
          CU(I,J,bi,bj)=-AA1
./pkg/seaice/lsr.F 737 LSR 
          BU(I,J,bi,bj)=(ONE-UVM(I,J,bi,bj))
./pkg/seaice/lsr.F 738 LSR 
     &         - AU(I,J,bi,bj) - CU(I,J,bi,bj)
./pkg/seaice/lsr.F 739 LSR 
     &         + ((AA3+AA4)*_recip_dyU(I,J,bi,bj)*_recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 741 LSR 
     &           + AMASS(I,J,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/lsr.F 742 LSR 
     &           + DRAGS(I,J,bi,bj)
./pkg/seaice/lsr.F 743 LSR 
     &           )*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 748 LSR 
         AU(1,J,bi,bj)=ZERO
./pkg/seaice/lsr.F 749 LSR 
         CU(sNx,J,bi,bj)=ZERO
./pkg/seaice/lsr.F 750 LSR 
         CU(1,J,bi,bj)=CU(1,J,bi,bj)/BU(1,J,bi,bj)
./pkg/seaice/lsr.F 757 LSR 
     &         ( VICEC(I+1,J+1,bi,bj) - VICEC(I+1,J  ,bi,bj) )
./pkg/seaice/lsr.F 758 LSR 
     &         * _recip_dyG(I+1,J,bi,bj)
./pkg/seaice/lsr.F 759 LSR 
     &         +(VICEC(I  ,J+1,bi,bj) - VICEC(I  ,J  ,bi,bj) )
./pkg/seaice/lsr.F 760 LSR 
     &         * _recip_dyG(I,  J,bi,bj) )
./pkg/seaice/lsr.F 762 LSR 
     &         ( VICEC(I+1,J+1,bi,bj) - VICEC(I  ,J+1,bi,bj) )
./pkg/seaice/lsr.F 763 LSR 
     &         * _recip_dxG(I,J+1,bi,bj)
./pkg/seaice/lsr.F 764 LSR 
     &         +(VICEC(I+1,J  ,bi,bj) - VICEC(I  ,J  ,bi,bj) )
./pkg/seaice/lsr.F 765 LSR 
     &         * _recip_dxG(I,J,  bi,bj) )
./pkg/seaice/lsr.F 772 LSR 
     &         vicec(i,j,bi,bj) + vicec(i+1,j,bi,bj) )
./pkg/seaice/lsr.F 774 LSR 
     &         vicec(i,j+1,bi,bj) + vicec(i+1,j+1,bi,bj) )
./pkg/seaice/lsr.F 780 LSR 
          rhsU(I,J,bi,bj)=DRAGA(I,J,bi,bj)*VICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 781 LSR 
     &         +FORCEX(I,J,bi,bj)
./pkg/seaice/lsr.F 784 LSR 
     &         (zetaMinusEta(i,j,bi,bj)+zetaMinusEta(i,j-1,bi,bj))
./pkg/seaice/lsr.F 785 LSR 
     &         *(vz(i,j)-vz(i,j-1)) * _recip_dyC(i,j,bi,bj)
./pkg/seaice/lsr.F 787 LSR 
     &         (zetaMinusEta(i-1,j,bi,bj)+zetaMinusEta(i-1,j-1,bi,bj))
./pkg/seaice/lsr.F 788 LSR 
     &         *(vz(i-1,j)-vz(i-1,j-1)) * _recip_dyC(i-1,j,bi,bj)
./pkg/seaice/lsr.F 789 LSR 
     &         ) * _recip_dxV(i,j,bi,bj)
./pkg/seaice/lsr.F 791 LSR 
     &         + ( zetaMinusEta(I  ,J  ,bi,bj) * dVdy(I  ,J  )
./pkg/seaice/lsr.F 792 LSR 
     &           + zetaMinusEta(I  ,J-1,bi,bj) * dVdy(I  ,J-1)
./pkg/seaice/lsr.F 793 LSR 
     &           - zetaMinusEta(I-1,J  ,bi,bj) * dVdy(I-1,J  )
./pkg/seaice/lsr.F 794 LSR 
     &           - zetaMinusEta(I-1,J-1,bi,bj) * dVdy(I-1,J-1)
./pkg/seaice/lsr.F 795 LSR 
     &         )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 798 LSR 
     &         + ( ETA         (I  ,J  ,bi,bj) * dVdx(I  ,J  )
./pkg/seaice/lsr.F 799 LSR 
     &           + ETA         (I-1,J  ,bi,bj) * dVdx(I-1,J  )
./pkg/seaice/lsr.F 800 LSR 
     &           - ETA         (I  ,J-1,bi,bj) * dVdx(I  ,J-1)
./pkg/seaice/lsr.F 801 LSR 
     &           - ETA         (I-1,J-1,bi,bj) * dVdx(I-1,J-1)
./pkg/seaice/lsr.F 802 LSR 
     &         ) * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 804 LSR 
     &        -(etaPlusZeta(I  ,J  ,bi,bj)+etaPlusZeta(I  ,J-1,bi,bj)
./pkg/seaice/lsr.F 805 LSR 
     &         -etaPlusZeta(I-1,J-1,bi,bj)-etaPlusZeta(I-1,J  ,bi,bj))
./pkg/seaice/lsr.F 806 LSR 
     &         * VICEC(I,J,bi,bj)
./pkg/seaice/lsr.F 807 LSR 
     &            * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 808 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 810 LSR 
     &         -(ETAMEAN(I,J,bi,bj)+ZETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 811 LSR 
     &         *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 812 LSR 
     &            * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 813 LSR 
     &         * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) )
./pkg/seaice/lsr.F 816 LSR 
     &         -ETAMEAN(I,J,bi,bj)
./pkg/seaice/lsr.F 817 LSR 
     &         *(VICEC(I+1,J,bi,bj) - VICEC(I-1,J,bi,bj))
./pkg/seaice/lsr.F 818 LSR 
     &            *TWO* _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 819 LSR 
     &         * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) )
./pkg/seaice/lsr.F 822 LSR 
          URT1(I,J,bi,bj)=
./pkg/seaice/lsr.F 823 LSR 
     &         0.5 _d 0 * (ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 824 LSR 
     &         * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 825 LSR 
     &         -     ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J-1,bi,bj)
./pkg/seaice/lsr.F 826 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 827 LSR 
     &         + TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 828 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 829 LSR 
          URT2(I,J,bi,bj)=
./pkg/seaice/lsr.F 830 LSR 
     &         0.5 _d 0 * (ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj))
./pkg/seaice/lsr.F 831 LSR 
     &         * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 832 LSR 
     &         +     ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J+1,bi,bj)
./pkg/seaice/lsr.F 833 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 834 LSR 
     &         - TWO*ETAMEAN(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 835 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 855 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 860 LSR 
          UTMP(I,J,bi,bj)=UICE(I,J,bi,bj)
./pkg/seaice/lsr.F 867 LSR 
           AA2=(etaPlusZeta(I-1,J-1,bi,bj) * _recip_dxF(I-1,J-1,bi,bj)
./pkg/seaice/lsr.F 868 LSR 
     &         +etaPlusZeta(I-1,J  ,bi,bj) * _recip_dxF(I-1,J  ,bi,bj)
./pkg/seaice/lsr.F 869 LSR 
     &          )*0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 870 LSR 
           AA3=AA2*UICE(I-1,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 872 LSR 
           AA1=(etaPlusZeta(I  ,J-1,bi,bj) * _recip_dxF(I  ,J-1,bi,bj)
./pkg/seaice/lsr.F 873 LSR 
     &         +etaPlusZeta(I  ,J  ,bi,bj) * _recip_dxF(I  ,J  ,bi,bj)
./pkg/seaice/lsr.F 874 LSR 
     &          )*0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 875 LSR 
           AA3=AA1*UICE(I+1,J,bi,bj)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 879 LSR 
          URT(I)=rhsU(I,J,bi,bj)+AA3
./pkg/seaice/lsr.F 880 LSR 
     &          +URT1(I,J,bi,bj)*UICE(I,J-1,bi,bj)
./pkg/seaice/lsr.F 881 LSR 
     &          +URT2(I,J,bi,bj)*UICE(I,J+1,bi,bj)
./pkg/seaice/lsr.F 882 LSR 
          URT(I)=URT(I)*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 886 LSR 
          CUU(I)=CU(I,J,bi,bj)
./pkg/seaice/lsr.F 888 LSR 
         URT(1)=URT(1)/BU(1,J,bi,bj)
./pkg/seaice/lsr.F 891 LSR 
          CUU(I)=CUU(I)/(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM))
./pkg/seaice/lsr.F 892 LSR 
          URT(I)=(URT(I)-AU(I,J,bi,bj)*URT(IM))
./pkg/seaice/lsr.F 893 LSR 
     &          /(BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM))
./pkg/seaice/lsr.F 901 LSR 
          UICE(I,J,bi,bj)=UTMP(I,J,bi,bj)
./pkg/seaice/lsr.F 902 LSR 
     &        +WFAU*(URT(I)-UTMP(I,J,bi,bj))
./pkg/seaice/lsr.F 912 LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 916 LSR 
           UERR=(UICE(I,J,bi,bj)-UTMP(I,J,bi,bj))
./pkg/seaice/lsr.F 917 LSR 
     &             *UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 945 LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/lsr.F 950 LSR 
          AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 951 LSR 
     &         * (etaPlusZeta(I-1,J  ,bi,bj) + etaPlusZeta(I,J  ,bi,bj))
./pkg/seaice/lsr.F 952 LSR 
          AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 953 LSR 
     &         * (etaPlusZeta(I-1,J-1,bi,bj) + etaPlusZeta(I,J-1,bi,bj))
./pkg/seaice/lsr.F 954 LSR 
          AA3= (ETA(I  ,J-1,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 955 LSR 
     &         +ETA(I  ,J  ,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 956 LSR 
     &         )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 957 LSR 
          AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0
./pkg/seaice/lsr.F 958 LSR 
     &          *_recip_dxV(I,J,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 959 LSR 
          AA5=(zetaMinusEta(I-1,J  ,bi,bj) + zetaMinusEta(I,J  ,bi,bj)
./pkg/seaice/lsr.F 960 LSR 
     &        -zetaMinusEta(I-1,J-1,bi,bj) - zetaMinusEta(I,J-1,bi,bj)
./pkg/seaice/lsr.F 961 LSR 
     &          )* _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 962 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 964 LSR 
          AA6=TWO*ETAMEAN(I,J,bi,bj) * recip_rSphere*recip_rSphere
./pkg/seaice/lsr.F 965 LSR 
     &         * _tanPhiAtV(I,J,bi,bj) * _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 967 LSR 
         AV(I,J,bi,bj)=(
./pkg/seaice/lsr.F 969 LSR 
     &         - (ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 970 LSR 
     &          * _tanPhiAtV(I,J-1,bi,bj)
./pkg/seaice/lsr.F 971 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 972 LSR 
     &         -ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 973 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 974 LSR 
     &         )*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 975 LSR 
         CV(I,J,bi,bj)=(
./pkg/seaice/lsr.F 977 LSR 
     &        +(ZETAMEAN(I,J,bi,bj)-ETAMEAN(I,J,bi,bj))
./pkg/seaice/lsr.F 978 LSR 
     &         * _tanPhiAtV(I,J+1,bi,bj)
./pkg/seaice/lsr.F 979 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 980 LSR 
     &        +ETAMEAN(I,J,bi,bj)*TWO* _tanPhiAtV(I,J,bi,bj)
./pkg/seaice/lsr.F 981 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 982 LSR 
     &        )*UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 983 LSR 
          BV(I,J,bi,bj)= (ONE-UVM(I,J,bi,bj))
./pkg/seaice/lsr.F 985 LSR 
     &        +AMASS(I,J,bi,bj)/SEAICE_deltaTdyn+DRAGS(I,J,bi,bj))
./pkg/seaice/lsr.F 986 LSR 
     &        *UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 991 LSR 
         AV(I,1,bi,bj)=ZERO
./pkg/seaice/lsr.F 992 LSR 
         CV(I,sNy,bi,bj)=ZERO
./pkg/seaice/lsr.F 993 LSR 
         CV(I,1,bi,bj)=CV(I,1,bi,bj)/BV(I,1,bi,bj)
./pkg/seaice/ostres.F 33 OSTRES 
      INTEGER i, j, bi, bj
./pkg/seaice/ostres.F 51 OSTRES 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/ostres.F 55 OSTRES 
            fu(I,J,bi,bj)=HALF
./pkg/seaice/ostres.F 56 OSTRES 
     &           *(WINDX(I,J+1,bi,bj)+WINDX(I,J,bi,bj))
./pkg/seaice/ostres.F 57 OSTRES 
            fv(I,J,bi,bj)=HALF
./pkg/seaice/ostres.F 58 OSTRES 
     &           *(WINDY(I+1,J,bi,bj)+WINDY(I,J,bi,bj))
./pkg/seaice/ostres.F 68 OSTRES 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/ostres.F 72 OSTRES 
          fuIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I,J+1,bi,bj) )*(
./pkg/seaice/ostres.F 74 OSTRES 
     &         ( UICE(I,J,  bi,bj)-GWATX(I,J,  bi,bj)
./pkg/seaice/ostres.F 75 OSTRES 
     &         + UICE(I,J+1,bi,bj)-GWATX(I,J+1,bi,bj) )
./pkg/seaice/ostres.F 76 OSTRES 
     &         -SIGN(SINWAT,COR_ICE(I,J,bi,bj)) *
./pkg/seaice/ostres.F 77 OSTRES 
     &         ( VICE(I,J,  bi,bj)-GWATY(I,J,  bi,bj)
./pkg/seaice/ostres.F 78 OSTRES 
     &         + VICE(I,J+1,bi,bj)-GWATY(I,J+1,bi,bj) )
./pkg/seaice/ostres.F 80 OSTRES 
          fvIce=QUART*( DWATN(I,J,bi,bj)+DWATN(I+1,J,bi,bj) )*(
./pkg/seaice/ostres.F 81 OSTRES 
     &         SIGN(SINWAT,COR_ICE(I,J,bi,bj)) *
./pkg/seaice/ostres.F 82 OSTRES 
     &         ( UICE(I,  J,bi,bj)-GWATX(I,  J,bi,bj)
./pkg/seaice/ostres.F 83 OSTRES 
     &         + UICE(I+1,J,bi,bj)-GWATX(I+1,J,bi,bj) )
./pkg/seaice/ostres.F 85 OSTRES 
     &         ( VICE(I,  J,bi,bj)-GWATY(I,  J,bi,bj)
./pkg/seaice/ostres.F 86 OSTRES 
     &         + VICE(I+1,J,bi,bj)-GWATY(I+1,J,bi,bj) )
./pkg/seaice/ostres.F 88 OSTRES 
          fu(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fu(I,J,bi,bj)+
./pkg/seaice/ostres.F 89 OSTRES 
     &         AREA(I,J,bi,bj)*fuIce
./pkg/seaice/ostres.F 90 OSTRES 
          fv(I,J,bi,bj)=(ONE-AREA(I,J,bi,bj))*fv(I,J,bi,bj)+
./pkg/seaice/ostres.F 91 OSTRES 
     &         AREA(I,J,bi,bj)*fvIce
./model/src/find_rho.F 1160 LOOK_FOR_NEG_SALINITY 
     I                k, bi, bj, myThid )
./model/src/find_rho.F 1185 LOOK_FOR_NEG_SALINITY 
      INTEGER k, bi, bj
./model/src/find_rho.F 1207 LOOK_FOR_NEG_SALINITY 
     &      ' from level k =', k, ' ; bi,bj =', bi, bj
./model/src/find_rho.F 153 FIND_RHO_2D 
     I             bi, bj, iMin, iMax, jMin, jMax, kRef,
./model/src/find_rho.F 188 FIND_RHO_2D 
     I             bi, bj, iMin, iMax, jMin, jMax, kRef,
./model/src/find_rho.F 217 FIND_RHO_2D 
     I             bi, bj, iMin, iMax, jMin, jMax, kRef,
./model/src/find_rho.F 31 FIND_RHO_2D 
     I                k, bi, bj, myThid )
./model/src/find_rho.F 61 FIND_RHO_2D 
      INTEGER k, bi, bj
./model/src/find_rho.F 90 FIND_RHO_2D 
     I          k, bi, bj, myThid )
./pkg/seaice/seaice_advdiff.F 110 SEAICE_ADVDIFF 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 117 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 118 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 125 SEAICE_ADVDIFF 
          xA(i,j,bi,bj) = _dyG(i,j,bi,bj)*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 126 SEAICE_ADVDIFF 
          yA(i,j,bi,bj) = _dxG(i,j,bi,bj)*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_advdiff.F 154 SEAICE_ADVDIFF 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 168 SEAICE_ADVDIFF 
        act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_advdiff.F 194 SEAICE_ADVDIFF 
          hEffNm1(i,j,bi,bj) = HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 195 SEAICE_ADVDIFF 
          areaNm1(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 204 SEAICE_ADVDIFF 
          uTrans(i,j) = uc(i,j,bi,bj)*xA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 205 SEAICE_ADVDIFF 
          vTrans(i,j) = vc(i,j,bi,bj)*yA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 215 SEAICE_ADVDIFF 
           HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F 221 SEAICE_ADVDIFF 
     I         uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 222 SEAICE_ADVDIFF 
     I         uTrans, vTrans, HEFF(1-OLx,1-OLy,bi,bj), recip_heff,
./pkg/seaice/seaice_advdiff.F 224 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 229 SEAICE_ADVDIFF 
     I         HEFF(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 230 SEAICE_ADVDIFF 
     I         xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 232 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 237 SEAICE_ADVDIFF 
           HEFF(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 238 SEAICE_ADVDIFF 
     &          HEFF(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 245 SEAICE_ADVDIFF 
           HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 258 SEAICE_ADVDIFF 
           AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F 264 SEAICE_ADVDIFF 
     I         uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 265 SEAICE_ADVDIFF 
     I         uTrans, vTrans, AREA(1-OLx,1-OLy,bi,bj), recip_heff,
./pkg/seaice/seaice_advdiff.F 267 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 272 SEAICE_ADVDIFF 
     I         AREA(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 273 SEAICE_ADVDIFF 
     I         xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 275 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 280 SEAICE_ADVDIFF 
           AREA(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 281 SEAICE_ADVDIFF 
     &          AREA(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 288 SEAICE_ADVDIFF 
           AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 295 SEAICE_ADVDIFF 
     I       uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 296 SEAICE_ADVDIFF 
     I       uTrans, vTrans, opnWtrFrac(1-OLx,1-OLy,bi,bj), recip_heff,
./pkg/seaice/seaice_advdiff.F 298 SEAICE_ADVDIFF 
     I       bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 303 SEAICE_ADVDIFF 
     I        opnWtrFrac(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 304 SEAICE_ADVDIFF 
     I        xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 306 SEAICE_ADVDIFF 
     I        bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 311 SEAICE_ADVDIFF 
          opnWtrFrac(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 312 SEAICE_ADVDIFF 
     &         opnWtrFrac(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 325 SEAICE_ADVDIFF 
           HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F 331 SEAICE_ADVDIFF 
     I         uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 332 SEAICE_ADVDIFF 
     I         uTrans, vTrans, HSNOW(1-OLx,1-OLy,bi,bj), recip_heff,
./pkg/seaice/seaice_advdiff.F 334 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 339 SEAICE_ADVDIFF 
     I         HSNOW(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 340 SEAICE_ADVDIFF 
     I         xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 342 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 347 SEAICE_ADVDIFF 
           HSNOW(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 348 SEAICE_ADVDIFF 
     &          HSNOW(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 355 SEAICE_ADVDIFF 
           HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 366 SEAICE_ADVDIFF 
        CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid)
./pkg/seaice/seaice_advdiff.F 374 SEAICE_ADVDIFF 
     I         uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 375 SEAICE_ADVDIFF 
     I         uTrans, vTrans, HSALT(1-OLx,1-OLy,bi,bj), recip_heff,
./pkg/seaice/seaice_advdiff.F 377 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 382 SEAICE_ADVDIFF 
     I         HSALT(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 383 SEAICE_ADVDIFF 
     I         xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 385 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 390 SEAICE_ADVDIFF 
           HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 391 SEAICE_ADVDIFF 
     &          HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 409 SEAICE_ADVDIFF 
            SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) *
./pkg/seaice/seaice_advdiff.F 410 SEAICE_ADVDIFF 
     &          SItracer(i,j,bi,bj,iTr) * hEffNm1(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 419 SEAICE_ADVDIFF 
            SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) *
./pkg/seaice/seaice_advdiff.F 420 SEAICE_ADVDIFF 
     &          SItracer(i,j,bi,bj,iTr) * areaNm1(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 429 SEAICE_ADVDIFF 
            SItrPrev(i,j,bi,bj)=SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F 432 SEAICE_ADVDIFF 
            diagArray(I,J,2+(iTr-1)*5) = SItrExt(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 439 SEAICE_ADVDIFF 
     I         uc(1-OLx,1-OLy,bi,bj), vc(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 440 SEAICE_ADVDIFF 
     I         uTrans, vTrans, SItrExt(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 443 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 448 SEAICE_ADVDIFF 
     I         SItrExt(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 449 SEAICE_ADVDIFF 
     I         xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 451 SEAICE_ADVDIFF 
     I         bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 456 SEAICE_ADVDIFF 
            SItrExt(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 457 SEAICE_ADVDIFF 
     &        SItrExt(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) )
./pkg/seaice/seaice_advdiff.F 464 SEAICE_ADVDIFF 
            if (HEFF(I,J,bi,bj).GE.siEps) then
./pkg/seaice/seaice_advdiff.F 465 SEAICE_ADVDIFF 
            SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/HEFF(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F 466 SEAICE_ADVDIFF 
            SItrBucket(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F 468 SEAICE_ADVDIFF 
            SItracer(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F 469 SEAICE_ADVDIFF 
            SItrBucket(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 474 SEAICE_ADVDIFF 
             tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 475 SEAICE_ADVDIFF 
     &       SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 476 SEAICE_ADVDIFF 
     &       SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj))
./pkg/seaice/seaice_advdiff.F 477 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 478 SEAICE_ADVDIFF 
             SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F 479 SEAICE_ADVDIFF 
             SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F 480 SEAICE_ADVDIFF 
     &           +tmpscal2*HEFF(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F 483 SEAICE_ADVDIFF 
            if (HEFF(I,J,bi,bj).GE.siEps) then
./pkg/seaice/seaice_advdiff.F 484 SEAICE_ADVDIFF 
              tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F 485 SEAICE_ADVDIFF 
              SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F 486 SEAICE_ADVDIFF 
              SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F 487 SEAICE_ADVDIFF 
     &                                 +HEFF(I,J,bi,bj)*tmpscal1
./pkg/seaice/seaice_advdiff.F 490 SEAICE_ADVDIFF 
      diagArray(I,J,1+(iTr-1)*5)= - SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F 491 SEAICE_ADVDIFF 
     &  *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_advdiff.F 492 SEAICE_ADVDIFF 
      tmpscal1= ( HEFF(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_advdiff.F 493 SEAICE_ADVDIFF 
     &  + SItrBucket(i,j,bi,bj,iTr) )*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F 495 SEAICE_ADVDIFF 
      diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) *
./pkg/seaice/seaice_advdiff.F 504 SEAICE_ADVDIFF 
            if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then
./pkg/seaice/seaice_advdiff.F 505 SEAICE_ADVDIFF 
            SItracer(i,j,bi,bj,iTr)=SItrExt(i,j,bi,bj)/AREA(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F 507 SEAICE_ADVDIFF 
            SItracer(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F 509 SEAICE_ADVDIFF 
            SItrBucket(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_advdiff.F 511 SEAICE_ADVDIFF 
             tmpscal1=max(SItrPrev(i,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 512 SEAICE_ADVDIFF 
     &       SItrPrev(i+1,j,bi,bj),SItrPrev(i-1,j,bi,bj),
./pkg/seaice/seaice_advdiff.F 513 SEAICE_ADVDIFF 
     &       SItrPrev(i,j+1,bi,bj),SItrPrev(i,j-1,bi,bj))
./pkg/seaice/seaice_advdiff.F 514 SEAICE_ADVDIFF 
             tmpscal2=MAX(ZERO,SItracer(i,j,bi,bj,iTr)-tmpscal1)
./pkg/seaice/seaice_advdiff.F 515 SEAICE_ADVDIFF 
             SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal2
./pkg/seaice/seaice_advdiff.F 518 SEAICE_ADVDIFF 
            if (AREA(I,J,bi,bj).GE.SEAICE_area_floor) then
./pkg/seaice/seaice_advdiff.F 519 SEAICE_ADVDIFF 
              tmpscal1=MIN(0. _d 0,SItracer(i,j,bi,bj,iTr))
./pkg/seaice/seaice_advdiff.F 520 SEAICE_ADVDIFF 
              SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)-tmpscal1
./pkg/seaice/seaice_advdiff.F 525 SEAICE_ADVDIFF 
     & + AREA(I,J,bi,bj)*SItracer(i,j,bi,bj,iTr)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_advdiff.F 526 SEAICE_ADVDIFF 
      diagArray(I,J,3+(iTr-1)*5)=HEFFM(i,j,bi,bj) *
./pkg/seaice/seaice_advdiff.F 553 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 557 SEAICE_ADVDIFF 
             HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F 566 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 570 SEAICE_ADVDIFF 
     I           fldNm1(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 571 SEAICE_ADVDIFF 
     I           xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 572 SEAICE_ADVDIFF 
     U           HEFF(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 573 SEAICE_ADVDIFF 
     I           bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 578 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 582 SEAICE_ADVDIFF 
             HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 596 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 600 SEAICE_ADVDIFF 
             AREA(i,j,bi,bj)=AREAITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F 609 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 613 SEAICE_ADVDIFF 
     I           fldNm1(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 614 SEAICE_ADVDIFF 
     I           xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 615 SEAICE_ADVDIFF 
     U           Area(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 616 SEAICE_ADVDIFF 
     I           bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 621 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 625 SEAICE_ADVDIFF 
             AREAITD(i,j,it,bi,bj)=AREA(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 635 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 639 SEAICE_ADVDIFF 
     I           fldNm1(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 640 SEAICE_ADVDIFF 
     I           xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 641 SEAICE_ADVDIFF 
     U           opnWtrFrac(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 642 SEAICE_ADVDIFF 
     I           bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 654 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 658 SEAICE_ADVDIFF 
             HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj)
./pkg/seaice/seaice_advdiff.F 667 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 671 SEAICE_ADVDIFF 
     I           fldNm1(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 672 SEAICE_ADVDIFF 
     I           xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 673 SEAICE_ADVDIFF 
     U           HSNOW(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 674 SEAICE_ADVDIFF 
     I           bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advdiff.F 679 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 67 SEAICE_ADVDIFF 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_advdiff.F 683 SEAICE_ADVDIFF 
             HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj)
./pkg/seaice/seaice_advdiff.F 693 SEAICE_ADVDIFF 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 698 SEAICE_ADVDIFF 
         CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid)
./pkg/seaice/seaice_advdiff.F 711 SEAICE_ADVDIFF 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_advdiff.F 715 SEAICE_ADVDIFF 
     I           fldNm1(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 716 SEAICE_ADVDIFF 
     I           xA(1-OLx,1-OLy,bi,bj), yA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 717 SEAICE_ADVDIFF 
     U           HSALT(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_advdiff.F 718 SEAICE_ADVDIFF 
     I           bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_advection.F 155 SEAICE_ADVECTION 
          act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_advection.F 19 SEAICE_ADVECTION 
     I     bi, bj, myTime, myIter, myThid)
./pkg/seaice/seaice_advection.F 213 SEAICE_ADVECTION 
       myTile = W2_myTileList(bi,bj)
./pkg/seaice/seaice_advection.F 255 SEAICE_ADVECTION 
         maskLocW(i,j) = _maskW(i,j,k,bi,bj)*maskInW(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 256 SEAICE_ADVECTION 
         maskLocS(i,j) = _maskS(i,j,k,bi,bj)*maskInS(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 258 SEAICE_ADVECTION 
         maskLocW(i,j) = _maskW(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 259 SEAICE_ADVECTION 
         maskLocS(i,j) = _maskS(i,j,k,bi,bj)
./pkg/seaice/seaice_advection.F 278 SEAICE_ADVECTION 
     &      withSigns, maskLocW,maskLocS, bi,bj, myThid )
./pkg/seaice/seaice_advection.F 352 SEAICE_ADVECTION 
     &                               localTij, bi,bj, myThid )
./pkg/seaice/seaice_advection.F 365 SEAICE_ADVECTION 
          CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .TRUE.,
./pkg/seaice/seaice_advection.F 375 SEAICE_ADVECTION 
          CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 379 SEAICE_ADVECTION 
          CALL GAD_DST3_ADV_X(      bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 383 SEAICE_ADVECTION 
          CALL GAD_DST3FL_ADV_X(    bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 388 SEAICE_ADVECTION 
          CALL GAD_OS7MP_ADV_X(     bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 407 SEAICE_ADVECTION 
     &                              localTij, bi,bj, myThid )
./pkg/seaice/seaice_advection.F 426 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 427 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 436 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 437 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 448 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 449 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 458 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 459 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 492 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 493 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 502 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 503 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 554 SEAICE_ADVECTION 
     &                               localTij, bi,bj, myThid )
./pkg/seaice/seaice_advection.F 567 SEAICE_ADVECTION 
          CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .TRUE.,
./pkg/seaice/seaice_advection.F 577 SEAICE_ADVECTION 
          CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 581 SEAICE_ADVECTION 
          CALL GAD_DST3_ADV_Y(      bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 585 SEAICE_ADVECTION 
          CALL GAD_DST3FL_ADV_Y(    bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 590 SEAICE_ADVECTION 
          CALL GAD_OS7MP_ADV_Y(     bi,bj,k, .TRUE.,
./pkg/seaice/seaice_advection.F 609 SEAICE_ADVECTION 
     &                              localTij, bi,bj, myThid )
./pkg/seaice/seaice_advection.F 628 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 629 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 638 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 639 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 650 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 651 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 660 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 661 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 694 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 695 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 704 SEAICE_ADVECTION 
     &         -SEAICE_deltaTtherm*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 705 SEAICE_ADVECTION 
     &           *recip_rA(i,j,bi,bj)*r_hFld(i,j)
./pkg/seaice/seaice_advection.F 737 SEAICE_ADVECTION 
       tmpFac= SEAICE_deltaTtherm*recip_rA(i,j,bi,bj)
./pkg/seaice/seaice_advection.F 746 SEAICE_ADVECTION 
         CALL DIAGNOSTICS_FILL(afx,diagName, k,1, 2,bi,bj, myThid)
./pkg/seaice/seaice_advection.F 748 SEAICE_ADVECTION 
         CALL DIAGNOSTICS_FILL(afy,diagName, k,1, 2,bi,bj, myThid)
./pkg/seaice/seaice_advection.F 759 SEAICE_ADVECTION 
     &      afx,afy, k, standardMessageUnit,bi,bj,myThid )
./pkg/seaice/seaice_advection.F 90 SEAICE_ADVECTION 
      INTEGER bi,bj
./pkg/seaice/seaice_budget_ocean.F 109 SEAICE_BUDGET_OCEAN 
        netHeatFlux(I,J) = Qnet(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 110 SEAICE_BUDGET_OCEAN 
        SWHeatFlux (I,J) =  Qsw(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 11 SEAICE_BUDGET_OCEAN 
     I     bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_budget_ocean.F 121 SEAICE_BUDGET_OCEAN 
     &       *swdown(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 125 SEAICE_BUDGET_OCEAN 
        lwflux(I,J,bi,bj) = - lwdownLoc(I,J)*SEAICE_emissivity
./pkg/seaice/seaice_budget_ocean.F 129 SEAICE_BUDGET_OCEAN 
        hs(I,J,bi,bj) = D1*UG(I,J)*(atempLoc(I,J)-tsurfLoc(I,J))
./pkg/seaice/seaice_budget_ocean.F 134 SEAICE_BUDGET_OCEAN 
        hl(I,J,bi,bj) = D1W*UG(I,J)*(AQH(I,J,bi,bj)-ssq)
./pkg/seaice/seaice_budget_ocean.F 137 SEAICE_BUDGET_OCEAN 
     &       + lwflux(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 138 SEAICE_BUDGET_OCEAN 
     &       - hs(I,J,bi,bj) - hl(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 141 SEAICE_BUDGET_OCEAN 
        evap(i,j,bi,bj) = -hl(I,J,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 144 SEAICE_BUDGET_OCEAN 
        sflux(i,j,bi,bj) = evap(i,j,bi,bj) - precip(i,j,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 146 SEAICE_BUDGET_OCEAN 
        sflux(i,j,bi,bj) = sflux(i,j,bi,bj) - runoff(i,j,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 148 SEAICE_BUDGET_OCEAN 
        sflux(i,j,bi,bj) = sflux(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/seaice/seaice_budget_ocean.F 149 SEAICE_BUDGET_OCEAN 
        empmr(i,j,bi,bj) = sflux(i,j,bi,bj)*rhoConstFresh
./pkg/seaice/seaice_budget_ocean.F 52 SEAICE_BUDGET_OCEAN 
      INTEGER bi, bj, myIter, myThid
./pkg/seaice/seaice_budget_ocean.F 95 SEAICE_BUDGET_OCEAN 
        atempLoc (I,J) = MAX(celsius2K+MIN_ATEMP,ATEMP(I,J,bi,bj))
./pkg/seaice/seaice_budget_ocean.F 98 SEAICE_BUDGET_OCEAN 
        lwdownLoc(I,J) = MAX(MIN_LWDOWN,LWDOWN(I,J,bi,bj))
./pkg/seaice/seaice_calc_ice_strength.F 103 SEAICE_CALC_ICE_STRENGTH 
         IF ( (HEFF(i,j,bi,bj).LE.SEAICEpresH0).AND.
./pkg/seaice/seaice_calc_ice_strength.F 105 SEAICE_CALC_ICE_STRENGTH 
          tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F 107 SEAICE_CALC_ICE_STRENGTH 
         ELSEIF ( (HEFF(i,j,bi,bj).GT.SEAICEpresH0).AND.
./pkg/seaice/seaice_calc_ice_strength.F 109 SEAICE_CALC_ICE_STRENGTH 
          tmpscal1=MAX(HEFF(i,j,bi,bj)/SEAICEpresH0,ZERO)
./pkg/seaice/seaice_calc_ice_strength.F 10 SEAICE_CALC_ICE_STRENGTH 
     I     bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_calc_ice_strength.F 112 SEAICE_CALC_ICE_STRENGTH 
          tmpscal2=HEFF(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 114 SEAICE_CALC_ICE_STRENGTH 
         PRESS0(I,J,bi,bj)=SEAICE_strength*tmpscal2
./pkg/seaice/seaice_calc_ice_strength.F 115 SEAICE_CALC_ICE_STRENGTH 
     &        *EXP(-20.0 _d 0*(SEAICE_area_max-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_calc_ice_strength.F 116 SEAICE_CALC_ICE_STRENGTH 
         ZMAX(I,J,bi,bj)  = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 117 SEAICE_CALC_ICE_STRENGTH 
         ZMIN(I,J,bi,bj)  = SEAICE_zetaMin
./pkg/seaice/seaice_calc_ice_strength.F 118 SEAICE_CALC_ICE_STRENGTH 
         PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 126 SEAICE_CALC_ICE_STRENGTH 
         PRESS0(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_calc_ice_strength.F 132 SEAICE_CALC_ICE_STRENGTH 
     I      iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_calc_ice_strength.F 142 SEAICE_CALC_ICE_STRENGTH 
     &          PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 154 SEAICE_CALC_ICE_STRENGTH 
           PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 169 SEAICE_CALC_ICE_STRENGTH 
         PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)/ridgingModeNorm(i,j)
./pkg/seaice/seaice_calc_ice_strength.F 171 SEAICE_CALC_ICE_STRENGTH 
         ZMAX(I,J,bi,bj)  = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 172 SEAICE_CALC_ICE_STRENGTH 
         ZMIN(I,J,bi,bj)  = SEAICE_zetaMin
./pkg/seaice/seaice_calc_ice_strength.F 173 SEAICE_CALC_ICE_STRENGTH 
         PRESS0(I,J,bi,bj)= PRESS0(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_calc_ice_strength.F 46 SEAICE_CALC_ICE_STRENGTH 
      INTEGER bi,bj
./pkg/seaice/seaice_calc_ice_strength.F 92 SEAICE_CALC_ICE_STRENGTH 
        opnWtrFrac(i,j,bi,bj) = 1. _d 0 - AREA(i,j,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 112 SEAICE_CALC_LHS 
          eplus = e11(I,J,bi,bj) + e22(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 113 SEAICE_CALC_LHS 
          eminus= e11(I,J,bi,bj) - e22(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 114 SEAICE_CALC_LHS 
          sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus
./pkg/seaice/seaice_calc_lhs.F 115 SEAICE_CALC_LHS 
     &         - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 116 SEAICE_CALC_LHS 
          sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus
./pkg/seaice/seaice_calc_lhs.F 117 SEAICE_CALC_LHS 
     &         - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 123 SEAICE_CALC_LHS 
          sig12(I,J) = 2. _d 0 * e12(I,J,bi,bj) * etaZ(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 131 SEAICE_CALC_LHS 
          stressDivergenceX(I,J,bi,bj) =
./pkg/seaice/seaice_calc_lhs.F 132 SEAICE_CALC_LHS 
     &         ( sig11(I  ,J  ) * _dyF(I  ,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 133 SEAICE_CALC_LHS 
     &         - sig11(I-1,J  ) * _dyF(I-1,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 134 SEAICE_CALC_LHS 
     &         + sig12(I  ,J+1) * _dxV(I,J+1,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 135 SEAICE_CALC_LHS 
     &         - sig12(I  ,J  ) * _dxV(I,J  ,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 136 SEAICE_CALC_LHS 
     &         ) * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 137 SEAICE_CALC_LHS 
          stressDivergenceY(I,J,bi,bj) =
./pkg/seaice/seaice_calc_lhs.F 138 SEAICE_CALC_LHS 
     &         ( sig22(I  ,J  ) * _dxF(I,J  ,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 139 SEAICE_CALC_LHS 
     &         - sig22(I  ,J-1) * _dxF(I,J-1,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 140 SEAICE_CALC_LHS 
     &         + sig12(I+1,J  ) * _dyU(I+1,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 141 SEAICE_CALC_LHS 
     &         - sig12(I  ,J  ) * _dyU(I  ,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 142 SEAICE_CALC_LHS 
     &         ) * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 149 SEAICE_CALC_LHS 
          uIceLHS(I,J,bi,bj) =
./pkg/seaice/seaice_calc_lhs.F 150 SEAICE_CALC_LHS 
     &         bdfAlpha*seaiceMassU(I,J,bi,bj)*recip_deltaT
./pkg/seaice/seaice_calc_lhs.F 151 SEAICE_CALC_LHS 
     &         *uIceLoc(I,J,bi,bj) - stressDivergenceX(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 153 SEAICE_CALC_LHS 
          vIceLHS(I,J,bi,bj) =
./pkg/seaice/seaice_calc_lhs.F 154 SEAICE_CALC_LHS 
     &         bdfAlpha*seaiceMassV(I,J,bi,bj)*recip_deltaT
./pkg/seaice/seaice_calc_lhs.F 155 SEAICE_CALC_LHS 
     &         *vIceLoc(I,J,bi,bj) - stressDivergenceY(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 157 SEAICE_CALC_LHS 
          uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - 0.5 _d 0*(
./pkg/seaice/seaice_calc_lhs.F 158 SEAICE_CALC_LHS 
     &         seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 159 SEAICE_CALC_LHS 
     &       * 0.5 _d 0*( vIceLoc(I  ,J,bi,bj)+vIceLoc(I  ,J+1,bi,bj) )
./pkg/seaice/seaice_calc_lhs.F 160 SEAICE_CALC_LHS 
     &       + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 161 SEAICE_CALC_LHS 
     &       * 0.5 _d 0*( vIceLoc(I-1,J,bi,bj)+vIceLoc(I-1,J+1,bi,bj) )
./pkg/seaice/seaice_calc_lhs.F 164 SEAICE_CALC_LHS 
          vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) + 0.5 _d 0*(
./pkg/seaice/seaice_calc_lhs.F 165 SEAICE_CALC_LHS 
     &         seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 166 SEAICE_CALC_LHS 
     &       * 0.5 _d 0*( uIceLoc(I,J  ,bi,bj)+uIceLoc(I+1,  J,bi,bj) )
./pkg/seaice/seaice_calc_lhs.F 167 SEAICE_CALC_LHS 
     &       + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 168 SEAICE_CALC_LHS 
     &       * 0.5 _d 0*( uIceLoc(I,J-1,bi,bj)+uIceLoc(I+1,J-1,bi,bj) )
./pkg/seaice/seaice_calc_lhs.F 171 SEAICE_CALC_LHS 
          uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj) +
./pkg/seaice/seaice_calc_lhs.F 172 SEAICE_CALC_LHS 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) *
./pkg/seaice/seaice_calc_lhs.F 173 SEAICE_CALC_LHS 
     &         COSWAT * uIceLoc(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 174 SEAICE_CALC_LHS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 175 SEAICE_CALC_LHS 
     &         (  DWATN(I  ,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 176 SEAICE_CALC_LHS 
     &         (vIceLoc(I  ,J,bi,bj)+vIceLoc(I  ,J+1,bi,bj))
./pkg/seaice/seaice_calc_lhs.F 177 SEAICE_CALC_LHS 
     &         +  DWATN(I-1,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 178 SEAICE_CALC_LHS 
     &         (vIceLoc(I-1,J,bi,bj)+vIceLoc(I-1,J+1,bi,bj))
./pkg/seaice/seaice_calc_lhs.F 181 SEAICE_CALC_LHS 
          vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj) +
./pkg/seaice/seaice_calc_lhs.F 182 SEAICE_CALC_LHS 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) *
./pkg/seaice/seaice_calc_lhs.F 183 SEAICE_CALC_LHS 
     &         COSWAT * vIceLoc(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 184 SEAICE_CALC_LHS 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 185 SEAICE_CALC_LHS 
     &         (  DWATN(I,J  ,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 186 SEAICE_CALC_LHS 
     &         (uIceLoc(I,J  ,bi,bj)+uIceLoc(I+1,J  ,bi,bj))
./pkg/seaice/seaice_calc_lhs.F 187 SEAICE_CALC_LHS 
     &         +  DWATN(I,J-1,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_lhs.F 188 SEAICE_CALC_LHS 
     &         (uIceLoc(I,J-1,bi,bj)+uIceLoc(I+1,J-1,bi,bj))
./pkg/seaice/seaice_calc_lhs.F 191 SEAICE_CALC_LHS 
          uIceLHS(I,J,bi,bj) = uIceLHS(I,J,bi,bj)*maskinW(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 192 SEAICE_CALC_LHS 
          vIceLHS(I,J,bi,bj) = vIceLHS(I,J,bi,bj)*maskinS(I,J,bi,bj)
./pkg/seaice/seaice_calc_lhs.F 72 SEAICE_CALC_LHS 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_calc_lhs.F 99 SEAICE_CALC_LHS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_calc_residual.F 120 SEAICE_CALC_RESIDUAL 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_calc_residual.F 124 SEAICE_CALC_RESIDUAL 
           uIceRes(I,J,bi,bj) = uIceLHS(I,J,bi,bj) - uIceRHS(I,J,bi,bj)
./pkg/seaice/seaice_calc_residual.F 125 SEAICE_CALC_RESIDUAL 
           vIceRes(I,J,bi,bj) = vIceLHS(I,J,bi,bj) - vIceRHS(I,J,bi,bj)
./pkg/seaice/seaice_calc_residual.F 61 SEAICE_CALC_RESIDUAL 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_calc_residual.F 65 SEAICE_CALC_RESIDUAL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_calc_residual.F 69 SEAICE_CALC_RESIDUAL 
          uIceLHS(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_calc_residual.F 70 SEAICE_CALC_RESIDUAL 
          vIceLHS(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_calc_residual.F 71 SEAICE_CALC_RESIDUAL 
          uIceRHS(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_calc_residual.F 72 SEAICE_CALC_RESIDUAL 
          vIceRHS(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_calc_rhs.F 55 SEAICE_CALC_RHS 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_calc_rhs.F 66 SEAICE_CALC_RHS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_calc_rhs.F 73 SEAICE_CALC_RHS 
          uIceRHS(I,J,bi,bj) = FORCEX(I,J,bi,bj) + (
./pkg/seaice/seaice_calc_rhs.F 74 SEAICE_CALC_RHS 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) *
./pkg/seaice/seaice_calc_rhs.F 75 SEAICE_CALC_RHS 
     &         COSWAT * uVel(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_calc_rhs.F 76 SEAICE_CALC_RHS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 77 SEAICE_CALC_RHS 
     &         ( DWATN(I  ,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 78 SEAICE_CALC_RHS 
     &          ( vVel(I  ,J,kSrf,bi,bj)+vVel(I  ,J+1,kSrf,bi,bj) )
./pkg/seaice/seaice_calc_rhs.F 79 SEAICE_CALC_RHS 
     &         + DWATN(I-1,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 80 SEAICE_CALC_RHS 
     &          ( vVel(I-1,J,kSrf,bi,bj)+vVel(I-1,J+1,kSrf,bi,bj) )
./pkg/seaice/seaice_calc_rhs.F 82 SEAICE_CALC_RHS 
          vIceRHS(I,J,bi,bj) = FORCEY(I,J,bi,bj) + (
./pkg/seaice/seaice_calc_rhs.F 83 SEAICE_CALC_RHS 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) *
./pkg/seaice/seaice_calc_rhs.F 84 SEAICE_CALC_RHS 
     &         COSWAT * vVel(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_calc_rhs.F 85 SEAICE_CALC_RHS 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 86 SEAICE_CALC_RHS 
     &         ( DWATN(I,J  ,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 87 SEAICE_CALC_RHS 
     &          ( uVel(I,J  ,kSrf,bi,bj)+uVel(I+1,J  ,kSrf,bi,bj))
./pkg/seaice/seaice_calc_rhs.F 88 SEAICE_CALC_RHS 
     &         + DWATN(I,J-1,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_calc_rhs.F 89 SEAICE_CALC_RHS 
     &          ( uVel(I,J-1,kSrf,bi,bj)+uVel(I+1,J-1,kSrf,bi,bj))
./pkg/seaice/seaice_calc_rhs.F 92 SEAICE_CALC_RHS 
          uIceRHS(I,J,bi,bj) = uIceRHS(I,J,bi,bj)*maskinW(I,J,bi,bj)
./pkg/seaice/seaice_calc_rhs.F 93 SEAICE_CALC_RHS 
          vIceRHS(I,J,bi,bj) = vIceRHS(I,J,bi,bj)*maskinS(I,J,bi,bj)
./model/src/forcing_surf_relax.F 100 FORCING_SURF_RELAX 
     &      -lambdaThetaClimRelax(i,j,bi,bj)
./model/src/forcing_surf_relax.F 101 FORCING_SURF_RELAX 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/forcing_surf_relax.F 102 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 104 FORCING_SURF_RELAX 
          surfaceForcingS(i,j,bi,bj) =
./model/src/forcing_surf_relax.F 105 FORCING_SURF_RELAX 
     &      -lambdaSaltClimRelax(i,j,bi,bj)
./model/src/forcing_surf_relax.F 106 FORCING_SURF_RELAX 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/forcing_surf_relax.F 107 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 123 FORCING_SURF_RELAX 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F 124 FORCING_SURF_RELAX 
     &                                  * rStarExpC(i,j,bi,bj)
./model/src/forcing_surf_relax.F 125 FORCING_SURF_RELAX 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F 126 FORCING_SURF_RELAX 
     &                                  * rStarExpC(i,j,bi,bj)
./model/src/forcing_surf_relax.F 134 FORCING_SURF_RELAX 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F 135 FORCING_SURF_RELAX 
     &        *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/forcing_surf_relax.F 137 FORCING_SURF_RELAX 
     &                    *recip_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 139 FORCING_SURF_RELAX 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F 140 FORCING_SURF_RELAX 
     &        *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/forcing_surf_relax.F 142 FORCING_SURF_RELAX 
     &                    *recip_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 150 FORCING_SURF_RELAX 
           IF (ks.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/forcing_surf_relax.F 151 FORCING_SURF_RELAX 
            surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F 152 FORCING_SURF_RELAX 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/forcing_surf_relax.F 153 FORCING_SURF_RELAX 
            surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F 154 FORCING_SURF_RELAX 
     &             *_recip_hFacC(i,j,ks,bi,bj)*hFac_surfC(i,j,bi,bj)
./model/src/forcing_surf_relax.F 171 FORCING_SURF_RELAX 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/forcing_surf_relax.F 173 FORCING_SURF_RELAX 
          sumTile(bi,bj) = 0. _d 0
./model/src/forcing_surf_relax.F 176 FORCING_SURF_RELAX 
             sumTile(bi,bj) = sumTile(bi,bj)
./model/src/forcing_surf_relax.F 177 FORCING_SURF_RELAX 
     &                      + surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F 178 FORCING_SURF_RELAX 
     &                       *rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/forcing_surf_relax.F 186 FORCING_SURF_RELAX 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/forcing_surf_relax.F 190 FORCING_SURF_RELAX 
             surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./model/src/forcing_surf_relax.F 207 FORCING_SURF_RELAX 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/forcing_surf_relax.F 209 FORCING_SURF_RELAX 
          sumTile(bi,bj) = 0. _d 0
./model/src/forcing_surf_relax.F 212 FORCING_SURF_RELAX 
             sumTile(bi,bj) = sumTile(bi,bj)
./model/src/forcing_surf_relax.F 213 FORCING_SURF_RELAX 
     &                      + surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F 214 FORCING_SURF_RELAX 
     &                       *rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/forcing_surf_relax.F 222 FORCING_SURF_RELAX 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/forcing_surf_relax.F 226 FORCING_SURF_RELAX 
             surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./model/src/forcing_surf_relax.F 54 FORCING_SURF_RELAX 
      INTEGER bi,bj
./model/src/forcing_surf_relax.F 72 FORCING_SURF_RELAX 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/forcing_surf_relax.F 83 FORCING_SURF_RELAX 
          surfaceForcingT(i,j,bi,bj) =
./model/src/forcing_surf_relax.F 84 FORCING_SURF_RELAX 
     &      -lambdaThetaClimRelax(i,j,bi,bj)*(1.-AREA(i,j,bi,bj))
./model/src/forcing_surf_relax.F 85 FORCING_SURF_RELAX 
     &         *(theta(i,j,ks,bi,bj)-SST(i,j,bi,bj))
./model/src/forcing_surf_relax.F 86 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 88 FORCING_SURF_RELAX 
          surfaceForcingS(i,j,bi,bj) =
./model/src/forcing_surf_relax.F 89 FORCING_SURF_RELAX 
     &      -lambdaSaltClimRelax(i,j,bi,bj) *(1.-AREA(i,j,bi,bj))
./model/src/forcing_surf_relax.F 90 FORCING_SURF_RELAX 
     &         *(salt(i,j,ks,bi,bj)-SSS(i,j,bi,bj))
./model/src/forcing_surf_relax.F 91 FORCING_SURF_RELAX 
     &         *drF(ks)*_hFacC(i,j,ks,bi,bj)
./model/src/forcing_surf_relax.F 99 FORCING_SURF_RELAX 
          surfaceForcingT(i,j,bi,bj) =
./pkg/seaice/seaice_calc_strainrates.F 104 SEAICE_CALC_STRAINRATES 
          dvdy(i,j) = _recip_dyF(i,j,bi,bj) *
./pkg/seaice/seaice_calc_strainrates.F 105 SEAICE_CALC_STRAINRATES 
     &         (vFld(i,j+1,bi,bj)-vFld(i,j,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 106 SEAICE_CALC_STRAINRATES 
          vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i,j+1,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 112 SEAICE_CALC_STRAINRATES 
          e11Loc(i,j,bi,bj) = dudx(i,j) + vave(i,j) * k2AtC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 113 SEAICE_CALC_STRAINRATES 
          e22Loc(i,j,bi,bj) = dvdy(i,j) + uave(i,j) * k1AtC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 120 SEAICE_CALC_STRAINRATES 
          e11Loc(i,j,bi,bj) = e11Loc(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 121 SEAICE_CALC_STRAINRATES 
          e22Loc(i,j,bi,bj) = e22Loc(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 130 SEAICE_CALC_STRAINRATES 
          dudy(i,j) = ( uFld(i,j,bi,bj) - uFld(i  ,j-1,bi,bj) )
./pkg/seaice/seaice_calc_strainrates.F 131 SEAICE_CALC_STRAINRATES 
     &         * _recip_dyU(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 132 SEAICE_CALC_STRAINRATES 
          uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i  ,j-1,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 137 SEAICE_CALC_STRAINRATES 
          dvdx(i,j) = ( vFld(i,j,bi,bj) - vFld(i-1,j  ,bi,bj) )
./pkg/seaice/seaice_calc_strainrates.F 138 SEAICE_CALC_STRAINRATES 
     &         * _recip_dxV(i,j,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 139 SEAICE_CALC_STRAINRATES 
          vave(i,j) = 0.5 _d 0 * (vFld(i,j,bi,bj)+vFld(i-1,j  ,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 145 SEAICE_CALC_STRAINRATES 
          hFacU = _maskW(i,j,k,bi,bj) - _maskW(i,j-1,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 146 SEAICE_CALC_STRAINRATES 
          hFacV = _maskS(i,j,k,bi,bj) - _maskS(i-1,j,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 147 SEAICE_CALC_STRAINRATES 
          e12Loc(i,j,bi,bj) = 0.5 _d 0 * (
./pkg/seaice/seaice_calc_strainrates.F 149 SEAICE_CALC_STRAINRATES 
     &         - k1AtZ(i,j,bi,bj) * vave(i,j)
./pkg/seaice/seaice_calc_strainrates.F 150 SEAICE_CALC_STRAINRATES 
     &         - k2AtZ(i,j,bi,bj) * uave(i,j)
./pkg/seaice/seaice_calc_strainrates.F 152 SEAICE_CALC_STRAINRATES 
     &         *maskC(i  ,j  ,k,bi,bj)*maskC(i-1,j  ,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 153 SEAICE_CALC_STRAINRATES 
     &         *maskC(i  ,j-1,k,bi,bj)*maskC(i-1,j-1,k,bi,bj)
./pkg/seaice/seaice_calc_strainrates.F 155 SEAICE_CALC_STRAINRATES 
     &           2.0 _d 0 * uave(i,j) * _recip_dyU(i,j,bi,bj) * hFacU
./pkg/seaice/seaice_calc_strainrates.F 156 SEAICE_CALC_STRAINRATES 
     &         + 2.0 _d 0 * vave(i,j) * _recip_dxV(i,j,bi,bj) * hFacV
./pkg/seaice/seaice_calc_strainrates.F 71 SEAICE_CALC_STRAINRATES 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_calc_strainrates.F 91 SEAICE_CALC_STRAINRATES 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_calc_strainrates.F 97 SEAICE_CALC_STRAINRATES 
          dudx(i,j) = _recip_dxF(i,j,bi,bj) *
./pkg/seaice/seaice_calc_strainrates.F 98 SEAICE_CALC_STRAINRATES 
     &         (uFld(i+1,j,bi,bj)-uFld(i,j,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 99 SEAICE_CALC_STRAINRATES 
          uave(i,j) = 0.5 _d 0 * (uFld(i,j,bi,bj)+uFld(i+1,j,bi,bj))
./pkg/seaice/seaice_calc_viscosities.F 107 SEAICE_CALC_VISCOSITIES 
           e12Csqr(i,j) = 0.25 _d 0 * recip_rA(I,J,bi,bj) *
./pkg/seaice/seaice_calc_viscosities.F 108 SEAICE_CALC_VISCOSITIES 
     &          ( rAz(I  ,J  ,bi,bj)*e12(I  ,J  ,bi,bj)**2
./pkg/seaice/seaice_calc_viscosities.F 109 SEAICE_CALC_VISCOSITIES 
     &          + rAz(I+1,J  ,bi,bj)*e12(I+1,J  ,bi,bj)**2
./pkg/seaice/seaice_calc_viscosities.F 110 SEAICE_CALC_VISCOSITIES 
     &          + rAz(I  ,J+1,bi,bj)*e12(I  ,J+1,bi,bj)**2
./pkg/seaice/seaice_calc_viscosities.F 111 SEAICE_CALC_VISCOSITIES 
     &          + rAz(I+1,J+1,bi,bj)*e12(I+1,J+1,bi,bj)**2 )
./pkg/seaice/seaice_calc_viscosities.F 117 SEAICE_CALC_VISCOSITIES 
          deltaC(I,J,bi,bj) =
./pkg/seaice/seaice_calc_viscosities.F 118 SEAICE_CALC_VISCOSITIES 
     &         (e11(i,j,bi,bj)**2+e22(i,j,bi,bj)**2)*(ONE+ecm2)
./pkg/seaice/seaice_calc_viscosities.F 120 SEAICE_CALC_VISCOSITIES 
     &         + 2. _d 0*e11(i,j,bi,bj)*e22(i,j,bi,bj)*(ONE-ecm2)
./pkg/seaice/seaice_calc_viscosities.F 123 SEAICE_CALC_VISCOSITIES 
          IF ( deltaC(I,J,bi,bj) .GT. 0. _d 0 )
./pkg/seaice/seaice_calc_viscosities.F 124 SEAICE_CALC_VISCOSITIES 
     &         deltaC(I,J,bi,bj) = SQRT(deltaC(I,J,bi,bj))
./pkg/seaice/seaice_calc_viscosities.F 126 SEAICE_CALC_VISCOSITIES 
          deltaC(I,J,bi,bj)    = SQRT(deltaC(I,J,bi,bj))
./pkg/seaice/seaice_calc_viscosities.F 128 SEAICE_CALC_VISCOSITIES 
          deltaCreg = MAX(deltaC(I,J,bi,bj),SEAICE_EPS)
./pkg/seaice/seaice_calc_viscosities.F 134 SEAICE_CALC_VISCOSITIES 
          zeta (I,J,bi,bj) = ZMAX(I,J,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 137 SEAICE_CALC_VISCOSITIES 
          zeta (I,J,bi,bj) = HALF*press0(I,J,bi,bj)/deltaCreg
./pkg/seaice/seaice_calc_viscosities.F 139 SEAICE_CALC_VISCOSITIES 
          zeta (I,J,bi,bj) = MIN(ZMAX(I,J,bi,bj),zeta(I,J,bi,bj))
./pkg/seaice/seaice_calc_viscosities.F 141 SEAICE_CALC_VISCOSITIES 
          zeta (I,J,bi,bj) = MAX(ZMIN(I,J,bi,bj),zeta(I,J,bi,bj))
./pkg/seaice/seaice_calc_viscosities.F 143 SEAICE_CALC_VISCOSITIES 
          zeta (I,J,bi,bj) = zeta(I,J,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 144 SEAICE_CALC_VISCOSITIES 
          eta  (I,J,bi,bj) = ECM2*zeta(I,J,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 146 SEAICE_CALC_VISCOSITIES 
          press(I,J,bi,bj) = TWO *zeta(I,J,bi,bj)*deltaC(I,J,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 153 SEAICE_CALC_VISCOSITIES 
           etaDen = (e11(I,J,bi,bj)-e22(I,J,bi,bj))**2
./pkg/seaice/seaice_calc_viscosities.F 156 SEAICE_CALC_VISCOSITIES 
           etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 157 SEAICE_CALC_VISCOSITIES 
     &          *( e11(I,J,bi,bj)+e22(I,J,bi,bj) )
./pkg/seaice/seaice_calc_viscosities.F 159 SEAICE_CALC_VISCOSITIES 
           eta(I,J,bi,bj) = MIN(eta(I,J,bi,bj),etaMax)
./pkg/seaice/seaice_calc_viscosities.F 167 SEAICE_CALC_VISCOSITIES 
          sumNorm  = maskC(I,J,  k,bi,bj)+maskC(I-1,J,  k,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 168 SEAICE_CALC_VISCOSITIES 
     &             + maskC(I,J-1,k,bi,bj)+maskC(I-1,J-1,k,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 170 SEAICE_CALC_VISCOSITIES 
          etaZ(I,J,bi,bj) = sumNorm *
./pkg/seaice/seaice_calc_viscosities.F 171 SEAICE_CALC_VISCOSITIES 
     &         ( eta (I,J  ,bi,bj)  + eta (I-1,J  ,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 172 SEAICE_CALC_VISCOSITIES 
     &         + eta (I,J-1,bi,bj)  + eta (I-1,J-1,bi,bj) )
./pkg/seaice/seaice_calc_viscosities.F 181 SEAICE_CALC_VISCOSITIES 
           etaZ(I,J,bi,bj) = etaZ(I,J,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 182 SEAICE_CALC_VISCOSITIES 
     &          *maskC(I,J,  k,bi,bj)*maskC(I-1,J,  k,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 183 SEAICE_CALC_VISCOSITIES 
     &          *maskC(I,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 68 SEAICE_CALC_VISCOSITIES 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_calc_viscosities.F 86 SEAICE_CALC_VISCOSITIES 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_calc_viscosities.F 97 SEAICE_CALC_VISCOSITIES 
     &          ( e12(I,J  ,bi,bj) + e12(I+1,J  ,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 98 SEAICE_CALC_VISCOSITIES 
     &          + e12(I,J+1,bi,bj) + e12(I+1,J+1,bi,bj) )
./pkg/seaice/seaice_cost_accumulate_mean.F 34 SEAICE_COST_ACCUMULATE_MEAN 
      INTEGER bi, bj
./pkg/seaice/seaice_cost_accumulate_mean.F 49 SEAICE_COST_ACCUMULATE_MEAN 
       DO bj = jtlo,jthi
./pkg/seaice/seaice_cost_accumulate_mean.F 53 SEAICE_COST_ACCUMULATE_MEAN 
            uHeffExportCell(i,j,bi,bj) = uHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 54 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 55 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 56 SEAICE_COST_ACCUMULATE_MEAN 
     &        )*UICE(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 57 SEAICE_COST_ACCUMULATE_MEAN 
     &         *_dyG(i,j,bi,bj)/lastinterval*deltaTClock
./pkg/seaice/seaice_cost_accumulate_mean.F 58 SEAICE_COST_ACCUMULATE_MEAN 
            vHeffExportCell(i,j,bi,bj) = vHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 59 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 60 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 61 SEAICE_COST_ACCUMULATE_MEAN 
     &        )*VICE(i,j,bi,bj)
./pkg/seaice/seaice_cost_accumulate_mean.F 62 SEAICE_COST_ACCUMULATE_MEAN 
     &         *_dxG(i,j,bi,bj)/lastinterval*deltaTClock
./pkg/seaice/seaice_cost_concentration.F 132 SEAICE_COST_CONCENTRATION 
      do bj = jtlo,jthi
./pkg/seaice/seaice_cost_concentration.F 134 SEAICE_COST_CONCENTRATION 
          objf_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 135 SEAICE_COST_CONCENTRATION 
          num_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 240 SEAICE_COST_CONCENTRATION 
          do bj = jtlo,jthi
./pkg/seaice/seaice_cost_concentration.F 245 SEAICE_COST_CONCENTRATION 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_concentration.F 254 SEAICE_COST_CONCENTRATION 
        do bj = jtlo,jthi
./pkg/seaice/seaice_cost_concentration.F 260 SEAICE_COST_CONCENTRATION 
                     localModWeight(i,j,bi,bj) =
./pkg/seaice/seaice_cost_concentration.F 261 SEAICE_COST_CONCENTRATION 
     &                  localweight(i,j,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 264 SEAICE_COST_CONCENTRATION 
                     if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN
./pkg/seaice/seaice_cost_concentration.F 267 SEAICE_COST_CONCENTRATION 
                       areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj))
./pkg/seaice/seaice_cost_concentration.F 270 SEAICE_COST_CONCENTRATION 
                      IF      (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN
./pkg/seaice/seaice_cost_concentration.F 272 SEAICE_COST_CONCENTRATION 
                      ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0  ) .and.
./pkg/seaice/seaice_cost_concentration.F 273 SEAICE_COST_CONCENTRATION 
     &                        (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F 275 SEAICE_COST_CONCENTRATION 
                      ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and.
./pkg/seaice/seaice_cost_concentration.F 276 SEAICE_COST_CONCENTRATION 
     &                        (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F 282 SEAICE_COST_CONCENTRATION 
                       localModWeight(i,j,bi,bj) =
./pkg/seaice/seaice_cost_concentration.F 297 SEAICE_COST_CONCENTRATION 
     &                 localobs(i,j,k,bi,bj), localweight(i,j,bi,bj),
./pkg/seaice/seaice_cost_concentration.F 298 SEAICE_COST_CONCENTRATION 
     &                 localModWeight(i,j,bi,bj),
./pkg/seaice/seaice_cost_concentration.F 313 SEAICE_COST_CONCENTRATION 
          do bj = jtlo,jthi
./pkg/seaice/seaice_cost_concentration.F 318 SEAICE_COST_CONCENTRATION 
                    if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_concentration.F 319 SEAICE_COST_CONCENTRATION 
                      print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 328 SEAICE_COST_CONCENTRATION 
        do bj = jtlo,jthi
./pkg/seaice/seaice_cost_concentration.F 337 SEAICE_COST_CONCENTRATION 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 338 SEAICE_COST_CONCENTRATION 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_concentration.F 339 SEAICE_COST_CONCENTRATION 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_concentration.F 340 SEAICE_COST_CONCENTRATION 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_concentration.F 350 SEAICE_COST_CONCENTRATION 
                localwww  = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_concentration.F 353 SEAICE_COST_CONCENTRATION 
                localwww  = localModWeight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_concentration.F 356 SEAICE_COST_CONCENTRATION 
                junk      = ( localbar(i,j,k,bi,bj) -
./pkg/seaice/seaice_cost_concentration.F 357 SEAICE_COST_CONCENTRATION 
     &                        localobs(i,j,k,bi,bj) )
./pkg/seaice/seaice_cost_concentration.F 366 SEAICE_COST_CONCENTRATION 
     &                 localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_concentration.F 367 SEAICE_COST_CONCENTRATION 
     &                 localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_concentration.F 378 SEAICE_COST_CONCENTRATION 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/seaice/seaice_cost_concentration.F 383 SEAICE_COST_CONCENTRATION 
            objf_local(bi,bj) = objf_local(bi,bj) + localcost
./pkg/seaice/seaice_cost_concentration.F 73 SEAICE_COST_CONCENTRATION 
      integer bi,bj
./pkg/seaice/seaice_cost_export.F 34 SEAICE_COST_EXPORT 
      integer bi, bj
./pkg/seaice/seaice_cost_export.F 45 SEAICE_COST_EXPORT 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_cost_export.F 52 SEAICE_COST_EXPORT 
            jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/seaice/seaice_cost_export.F 54 SEAICE_COST_EXPORT 
             objf_ice_export(bi,bj) = objf_ice_export(bi,bj)
./pkg/seaice/seaice_cost_export.F 55 SEAICE_COST_EXPORT 
     &              - uHeffExportCell(i,j,bi,bj)
./pkg/seaice/seaice_cost_final.F 41 SEAICE_COST_FINAL 
      INTEGER bi, bj
./pkg/seaice/seaice_cost_final.F 72 SEAICE_COST_FINAL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_cost_final.F 75 SEAICE_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/seaice/seaice_cost_final.F 76 SEAICE_COST_FINAL 
     &          + mult_ice_export * objf_ice_export(bi,bj)
./pkg/seaice/seaice_cost_final.F 77 SEAICE_COST_FINAL 
     &          + mult_ice        * objf_ice(bi,bj)
./pkg/seaice/seaice_cost_final.F 78 SEAICE_COST_FINAL 
     &          + mult_smrarea    * objf_smrarea(bi,bj)
./pkg/seaice/seaice_cost_final.F 79 SEAICE_COST_FINAL 
     &          + mult_smrsst     * objf_smrsst(bi,bj)
./pkg/seaice/seaice_cost_final.F 80 SEAICE_COST_FINAL 
     &          + mult_smrsss     * objf_smrsss(bi,bj)
./pkg/seaice/seaice_cost_init_varia.F 39 SEAICE_COST_INIT_VARIA 
      integer bi,bj
./pkg/seaice/seaice_cost_init_varia.F 61 SEAICE_COST_INIT_VARIA 
      do bj = jtlo,jthi
./pkg/seaice/seaice_cost_init_varia.F 63 SEAICE_COST_INIT_VARIA 
          objf_ice(bi,bj)     = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 64 SEAICE_COST_INIT_VARIA 
          objf_smrarea(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 65 SEAICE_COST_INIT_VARIA 
          objf_smrsst(bi,bj)  = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 66 SEAICE_COST_INIT_VARIA 
          objf_smrsss(bi,bj)  = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 67 SEAICE_COST_INIT_VARIA 
          objf_ice_export(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 69 SEAICE_COST_INIT_VARIA 
          num_ice(bi,bj)      = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 70 SEAICE_COST_INIT_VARIA 
          num_smrarea(bi,bj)  = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 71 SEAICE_COST_INIT_VARIA 
          num_smrsst(bi,bj)   = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 72 SEAICE_COST_INIT_VARIA 
          num_smrsss(bi,bj)   = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 77 SEAICE_COST_INIT_VARIA 
      do bj = jtlo,jthi
./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 133 SEAICE_COST_SSS 
      do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sss.F 135 SEAICE_COST_SSS 
          objf_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 136 SEAICE_COST_SSS 
          num_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 258 SEAICE_COST_SSS 
          do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sss.F 263 SEAICE_COST_SSS 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sss.F 273 SEAICE_COST_SSS 
          do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sss.F 278 SEAICE_COST_SSS 
                    if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_sss.F 279 SEAICE_COST_SSS 
                      print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_sss.F 288 SEAICE_COST_SSS 
        do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sss.F 297 SEAICE_COST_SSS 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sss.F 298 SEAICE_COST_SSS 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_sss.F 299 SEAICE_COST_SSS 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_sss.F 300 SEAICE_COST_SSS 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_sss.F 310 SEAICE_COST_SSS 
                localwww  = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_sss.F 313 SEAICE_COST_SSS 
                if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND.
./pkg/seaice/seaice_cost_sss.F 314 SEAICE_COST_SSS 
     &                areabar(i,j,1,bi,bj) .LE. 0.0) then
./pkg/seaice/seaice_cost_sss.F 319 SEAICE_COST_SSS 
                   junk = ( localbar(i,j,k,bi,bj) - SEAICE_clamp_salt )
./pkg/seaice/seaice_cost_sss.F 335 SEAICE_COST_SSS 
     &                 localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sss.F 336 SEAICE_COST_SSS 
     &                 areabar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sss.F 337 SEAICE_COST_SSS 
     &                 localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sss.F 348 SEAICE_COST_SSS 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/seaice/seaice_cost_sss.F 353 SEAICE_COST_SSS 
            objf_local(bi,bj) = objf_local(bi,bj) + localcost
./pkg/seaice/seaice_cost_sss.F 74 SEAICE_COST_SSS 
      integer bi,bj
./pkg/seaice/seaice_cost_sst.F 136 SEAICE_COST_SST 
      do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sst.F 138 SEAICE_COST_SST 
          objf_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 139 SEAICE_COST_SST 
          num_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 258 SEAICE_COST_SST 
          do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sst.F 263 SEAICE_COST_SST 
                     localobs(i,j,k,bi,bj) = spval
./pkg/seaice/seaice_cost_sst.F 273 SEAICE_COST_SST 
          do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sst.F 278 SEAICE_COST_SST 
                    if (localobs(i,j,k,bi,bj) .LT. -1) THEN
./pkg/seaice/seaice_cost_sst.F 279 SEAICE_COST_SST 
                      print *,'obs rec date: ', -localobs(i,j,1,bi,bj)
./pkg/seaice/seaice_cost_sst.F 288 SEAICE_COST_SST 
        do bj = jtlo,jthi
./pkg/seaice/seaice_cost_sst.F 297 SEAICE_COST_SST 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sst.F 298 SEAICE_COST_SST 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/seaice/seaice_cost_sst.F 299 SEAICE_COST_SST 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/seaice/seaice_cost_sst.F 300 SEAICE_COST_SST 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/seaice/seaice_cost_sst.F 310 SEAICE_COST_SST 
                localwww  = localweight(i,j,bi,bj)*cmask(i,j,k)
./pkg/seaice/seaice_cost_sst.F 313 SEAICE_COST_SST 
                if ( localobs(i,j,k,bi,bj) .GT. 0.0 .AND.
./pkg/seaice/seaice_cost_sst.F 314 SEAICE_COST_SST 
     &                areabar(i,j,1,bi,bj) .LE. 0.0) then
./pkg/seaice/seaice_cost_sst.F 316 SEAICE_COST_SST 
                   junk = ( localbar(i,j,k,bi,bj) -
./pkg/seaice/seaice_cost_sst.F 331 SEAICE_COST_SST 
     &                 localbar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sst.F 332 SEAICE_COST_SST 
     &                 areabar(i,j,k,bi,bj),
./pkg/seaice/seaice_cost_sst.F 333 SEAICE_COST_SST 
     &                 localobs(i,j,k,bi,bj)
./pkg/seaice/seaice_cost_sst.F 344 SEAICE_COST_SST 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/seaice/seaice_cost_sst.F 349 SEAICE_COST_SST 
            objf_local(bi,bj) = objf_local(bi,bj) + localcost
./pkg/seaice/seaice_cost_sst.F 72 SEAICE_COST_SST 
      integer bi,bj
./pkg/seaice/seaice_cost_weights.F 106 SEAICE_COST_WEIGHTS 
         do bj = jtlo,jthi
./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 117 SEAICE_COST_WEIGHTS 
         do bj = jtlo,jthi
./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 129 SEAICE_COST_WEIGHTS 
      do bj = jtlo,jthi
./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 41 SEAICE_COST_WEIGHTS 
      integer bi,bj
./pkg/seaice/seaice_cost_weights.F 86 SEAICE_COST_WEIGHTS 
      do bj = jtlo,jthi
./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 103 SEAICE_CTRL_MAP_INI 
                area(i,j,bi,bj) = area(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F 104 SEAICE_CTRL_MAP_INI 
     &                            tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F 119 SEAICE_CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/seaice/seaice_ctrl_map_ini.F 123 SEAICE_CTRL_MAP_INI 
                heff(i,j,bi,bj) = heff(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F 124 SEAICE_CTRL_MAP_INI 
     &                            tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F 139 SEAICE_CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/seaice/seaice_ctrl_map_ini.F 143 SEAICE_CTRL_MAP_INI 
                hsnow(i,j,bi,bj) = hsnow(i,j,bi,bj) +
./pkg/seaice/seaice_ctrl_map_ini.F 144 SEAICE_CTRL_MAP_INI 
     &                             tmpfld2d(i,j,bi,bj)
./pkg/seaice/seaice_ctrl_map_ini.F 47 SEAICE_CTRL_MAP_INI 
      integer bi,bj
./pkg/seaice/seaice_ctrl_map_ini.F 99 SEAICE_CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/seaice/seaice_diagnostics_state.F 136 SEAICE_DIAGNOSTICS_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_diagnostics_state.F 140 SEAICE_DIAGNOSTICS_STATE 
             sig1 = seaice_sigma1(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 141 SEAICE_DIAGNOSTICS_STATE 
             sig2 = seaice_sigma2(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 143 SEAICE_DIAGNOSTICS_STATE 
     &            ( seaice_sigma12(I,  J,  bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 144 SEAICE_DIAGNOSTICS_STATE 
     &            + seaice_sigma12(I+1,J,  bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 145 SEAICE_DIAGNOSTICS_STATE 
     &            + seaice_sigma12(I+1,J+1,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 146 SEAICE_DIAGNOSTICS_STATE 
     &            + seaice_sigma12(I  ,J+1,bi,bj) )
./pkg/seaice/seaice_diagnostics_state.F 149 SEAICE_DIAGNOSTICS_STATE 
             IF ( press(I,J,bi,bj) .GT. 1. _d -13 )
./pkg/seaice/seaice_diagnostics_state.F 150 SEAICE_DIAGNOSTICS_STATE 
     &            recip_prs = 1./press(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 155 SEAICE_DIAGNOSTICS_STATE 
           CALL DIAGNOSTICS_FILL(sigI ,'SIsigI  ',0,1,2,bi,bj,myThid)
./pkg/seaice/seaice_diagnostics_state.F 156 SEAICE_DIAGNOSTICS_STATE 
           CALL DIAGNOSTICS_FILL(sigII,'SIsigII ',0,1,2,bi,bj,myThid)
./pkg/seaice/seaice_diagnostics_state.F 170 SEAICE_DIAGNOSTICS_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_diagnostics_state.F 174 SEAICE_DIAGNOSTICS_STATE 
             sig1  = 2.*zeta(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 175 SEAICE_DIAGNOSTICS_STATE 
     &            * (e11(I,J,bi,bj) + e22(I,J,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 176 SEAICE_DIAGNOSTICS_STATE 
     &            - press(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 177 SEAICE_DIAGNOSTICS_STATE 
             sig2  = 2.* eta(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 178 SEAICE_DIAGNOSTICS_STATE 
     &            * (e11(I,J,bi,bj) - e22(I,J,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 179 SEAICE_DIAGNOSTICS_STATE 
             sig12 = 2.*eta(I,J,bi,bj) * 0.25 _d 0 *
./pkg/seaice/seaice_diagnostics_state.F 180 SEAICE_DIAGNOSTICS_STATE 
     &            ( e12(I  ,J  ,bi,bj) + e12(I+1,J  ,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 181 SEAICE_DIAGNOSTICS_STATE 
     &            + e12(I  ,J+1,bi,bj) + e12(I+1,J+1,bi,bj) )
./pkg/seaice/seaice_diagnostics_state.F 184 SEAICE_DIAGNOSTICS_STATE 
             IF ( press(I,J,bi,bj) .GT. 1. _d -13 )
./pkg/seaice/seaice_diagnostics_state.F 185 SEAICE_DIAGNOSTICS_STATE 
     &            recip_prs = 1./press(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 190 SEAICE_DIAGNOSTICS_STATE 
           CALL DIAGNOSTICS_FILL(sigI ,'SIsigI  ',0,1,2,bi,bj,myThid)
./pkg/seaice/seaice_diagnostics_state.F 191 SEAICE_DIAGNOSTICS_STATE 
           CALL DIAGNOSTICS_FILL(sigII,'SIsigII ',0,1,2,bi,bj,myThid)
./pkg/seaice/seaice_diagnostics_state.F 201 SEAICE_DIAGNOSTICS_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_diagnostics_state.F 205 SEAICE_DIAGNOSTICS_STATE 
             press(i,j,bi,bj) =
./pkg/seaice/seaice_diagnostics_state.F 207 SEAICE_DIAGNOSTICS_STATE 
     &            UICE(i,j,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 210 SEAICE_DIAGNOSTICS_STATE 
     &            0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 212 SEAICE_DIAGNOSTICS_STATE 
     &            *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 220 SEAICE_DIAGNOSTICS_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_diagnostics_state.F 224 SEAICE_DIAGNOSTICS_STATE 
             press(i,j,bi,bj) =
./pkg/seaice/seaice_diagnostics_state.F 226 SEAICE_DIAGNOSTICS_STATE 
     &            VICE(i,j,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 229 SEAICE_DIAGNOSTICS_STATE 
     &            0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 231 SEAICE_DIAGNOSTICS_STATE 
     &            *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 43 SEAICE_DIAGNOSTICS_STATE 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_diagnostics_state.F 69 SEAICE_DIAGNOSTICS_STATE 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_diagnostics_state.F 74 SEAICE_DIAGNOSTICS_STATE 
            tIce(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_diagnostics_state.F 84 SEAICE_DIAGNOSTICS_STATE 
             IF (AREA(I,J,bi,bj) .GT. ZERO)
./pkg/seaice/seaice_diagnostics_state.F 85 SEAICE_DIAGNOSTICS_STATE 
     &            tmp=AREAITD(I,J,K,bi,bj)/AREA(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 87 SEAICE_DIAGNOSTICS_STATE 
             tIce(I,J,bi,bj) = tIce(I,J,bi,bj)
./pkg/seaice/seaice_diagnostics_state.F 88 SEAICE_DIAGNOSTICS_STATE 
     &            + TICES(I,J,K,bi,bj)*tmp*recip_multDim
./pkg/seaice/seaice_diffusion.F 102 SEAICE_DIFFUSION 
         CALL DIAGNOSTICS_FILL(fZon,diagName, k,1, 2,bi,bj, myThid)
./pkg/seaice/seaice_diffusion.F 104 SEAICE_DIFFUSION 
         CALL DIAGNOSTICS_FILL(fMer,diagName, k,1, 2,bi,bj, myThid)
./pkg/seaice/seaice_diffusion.F 14 SEAICE_DIFFUSION 
     I     bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_diffusion.F 51 SEAICE_DIFFUSION 
      INTEGER bi,bj
./pkg/seaice/seaice_diffusion.F 85 SEAICE_DIFFUSION 
        CALL GAD_DIFF_X(bi,bj,k,xA,diffKh,iceFld,fZon,myThid)
./pkg/seaice/seaice_diffusion.F 87 SEAICE_DIFFUSION 
        CALL GAD_DIFF_Y(bi,bj,k,yA,diffKh,iceFld,fMer,myThid)
./pkg/seaice/seaice_diffusion.F 92 SEAICE_DIFFUSION 
     &        - fac*iceMask(i,j,bi,bj)*recip_rA(i,j,bi,bj)
./model/src/freesurf_rescale_g.F 10 FREESURF_RESCALE_G 
     I                     bi, bj, k,
./model/src/freesurf_rescale_g.F 32 FREESURF_RESCALE_G 
      INTEGER bi,bj,k
./model/src/freesurf_rescale_g.F 48 FREESURF_RESCALE_G 
     &                    / rStarExpC(i,j,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 67 FREESURF_RESCALE_G 
          IF (k.EQ.kSurfC(i,j,bi,bj)) THEN
./model/src/freesurf_rescale_g.F 69 FREESURF_RESCALE_G 
     &            *_hFacC(i,j,k,bi,bj)/hFac_surfC(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F 10 SEAICE_DO_RIDGING 
     I     bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_do_ridging.F 111 SEAICE_DO_RIDGING 
        AREA(I,J,bi,bj) = MIN(AREA(I,J,bi,bj),SEAICE_area_max)
./pkg/seaice/seaice_do_ridging.F 124 SEAICE_DO_RIDGING 
         openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F 136 SEAICE_DO_RIDGING 
     &        AREAITD(i,j,1,bi,bj) = openWater(i,j)+AREAITD(i,j,1,bi,bj)
./pkg/seaice/seaice_do_ridging.F 149 SEAICE_DO_RIDGING 
        fw2ObyRidge(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_do_ridging.F 156 SEAICE_DO_RIDGING 
     I     iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_do_ridging.F 162 SEAICE_DO_RIDGING 
        divergence  = e11(i,j,bi,bj) + e22(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F 163 SEAICE_DO_RIDGING 
        shear       = 0.5 _d 0 * ( deltaC(i,j,bi,bj) - ABS(divergence) )
./pkg/seaice/seaice_do_ridging.F 178 SEAICE_DO_RIDGING 
         netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F 188 SEAICE_DO_RIDGING 
        divAdv = (1. _d 0-netArea(i,j)-opnWtrFrac(i,j,bi,bj))
./pkg/seaice/seaice_do_ridging.F 207 SEAICE_DO_RIDGING 
         areaPR(i,j,k) = AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F 208 SEAICE_DO_RIDGING 
         heffPR(i,j,k) = HEFFITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F 209 SEAICE_DO_RIDGING 
         hsnwPR(i,j,k) = HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F 227 SEAICE_DO_RIDGING 
         IF ( tmp .GT. opnWtrFrac(i,j,bi,bj) ) THEN
./pkg/seaice/seaice_do_ridging.F 228 SEAICE_DO_RIDGING 
          tmpFac = opnWtrFrac(i,j,bi,bj)/tmp
./pkg/seaice/seaice_do_ridging.F 242 SEAICE_DO_RIDGING 
          IF ( tmp .GT. AREAITD(i,j,k,bi,bj) ) THEN
./pkg/seaice/seaice_do_ridging.F 243 SEAICE_DO_RIDGING 
           tmpFac = AREAITD(i,j,k,bi,bj)/tmp
./pkg/seaice/seaice_do_ridging.F 257 SEAICE_DO_RIDGING 
        opnWtrFrac(i,j,bi,bj) = opnWtrFrac(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F 262 SEAICE_DO_RIDGING 
        opnWtrFrac(i,j,bi,bj) = MAX( 0. _d 0, opnWtrFrac(i,j,bi,bj) )
./pkg/seaice/seaice_do_ridging.F 273 SEAICE_DO_RIDGING 
     &        .AND. HEFFM(i,j,bi,bj) .GT. 0. _d 0
./pkg/seaice/seaice_do_ridging.F 292 SEAICE_DO_RIDGING 
          fw2ObyRidge(i,j,bi,bj) = fw2ObyRidge(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F 299 SEAICE_DO_RIDGING 
          AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj) - ridgingArea(i,j)
./pkg/seaice/seaice_do_ridging.F 300 SEAICE_DO_RIDGING 
          HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) - ridgingHeff(i,j)
./pkg/seaice/seaice_do_ridging.F 301 SEAICE_DO_RIDGING 
          HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j)
./pkg/seaice/seaice_do_ridging.F 379 SEAICE_DO_RIDGING 
          AREAITD(i,j,l,bi,bj) = AREAITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F 381 SEAICE_DO_RIDGING 
          HEFFITD(i,j,l,bi,bj) = HEFFITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F 383 SEAICE_DO_RIDGING 
          HSNOWITD(i,j,l,bi,bj) = HSNOWITD(i,j,l,bi,bj)
./pkg/seaice/seaice_do_ridging.F 401 SEAICE_DO_RIDGING 
         netArea(i,j) = netArea(i,j) + AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_do_ridging.F 408 SEAICE_DO_RIDGING 
        tmp = netArea(i,j)+opnWtrFrac(i,j,bi,bj)
./pkg/seaice/seaice_do_ridging.F 410 SEAICE_DO_RIDGING 
        IF ( HEFFM(i,j,bi,bj) .GT. 0. _d 0 .AND. areaTooLarge ) THEN
./pkg/seaice/seaice_do_ridging.F 448 SEAICE_DO_RIDGING 
     I     iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_do_ridging.F 46 SEAICE_DO_RIDGING 
      INTEGER bi,bj
./pkg/seaice/seaice_dynsolver.F 110 SEAICE_DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_dynsolver.F 114 SEAICE_DYNSOLVER 
          seaiceMassC(I,J,bi,bj)=SEAICE_rhoIce*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 115 SEAICE_DYNSOLVER 
          seaiceMassU(I,J,bi,bj)=SEAICE_rhoIce*HALF*(
./pkg/seaice/seaice_dynsolver.F 116 SEAICE_DYNSOLVER 
     &          HEFF(i,j,bi,bj) + HEFF(i-1,j  ,bi,bj) )
./pkg/seaice/seaice_dynsolver.F 117 SEAICE_DYNSOLVER 
          seaiceMassV(I,J,bi,bj)=SEAICE_rhoIce*HALF*(
./pkg/seaice/seaice_dynsolver.F 118 SEAICE_DYNSOLVER 
     &          HEFF(i,j,bi,bj) + HEFF(i  ,j-1,bi,bj) )
./pkg/seaice/seaice_dynsolver.F 127 SEAICE_DYNSOLVER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_dynsolver.F 131 SEAICE_DYNSOLVER 
           seaiceMaskU(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I-1,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 132 SEAICE_DYNSOLVER 
           mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j  ,bi,bj)
./pkg/seaice/seaice_dynsolver.F 133 SEAICE_DYNSOLVER 
           IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND.
./pkg/seaice/seaice_dynsolver.F 135 SEAICE_DYNSOLVER 
            seaiceMaskU(I,J,bi,bj) = 1. _d 0
./pkg/seaice/seaice_dynsolver.F 137 SEAICE_DYNSOLVER 
            seaiceMaskU(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 139 SEAICE_DYNSOLVER 
           seaiceMaskV(I,J,bi,bj)=AREA(i,j,bi,bj)+AREA(I,J-1,bi,bj)
./pkg/seaice/seaice_dynsolver.F 140 SEAICE_DYNSOLVER 
           mask_vice=HEFFM(i,j,bi,bj)+HEFFM(i  ,j-1,bi,bj)
./pkg/seaice/seaice_dynsolver.F 141 SEAICE_DYNSOLVER 
           IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND.
./pkg/seaice/seaice_dynsolver.F 143 SEAICE_DYNSOLVER 
            seaiceMaskV(I,J,bi,bj) = 1. _d 0
./pkg/seaice/seaice_dynsolver.F 145 SEAICE_DYNSOLVER 
            seaiceMaskV(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 158 SEAICE_DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_dynsolver.F 162 SEAICE_DYNSOLVER 
          TAUX (I,J,bi,bj)= 0. _d 0
./pkg/seaice/seaice_dynsolver.F 163 SEAICE_DYNSOLVER 
          TAUY (I,J,bi,bj)= 0. _d 0
./pkg/seaice/seaice_dynsolver.F 166 SEAICE_DYNSOLVER 
          stressDivergenceX(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 167 SEAICE_DYNSOLVER 
          stressDivergenceY(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 185 SEAICE_DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_dynsolver.F 191 SEAICE_DYNSOLVER 
            phiSurf(i,j) = Bo_surf(i,j,bi,bj)*etaN(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 200 SEAICE_DYNSOLVER 
     &                   + ( pload(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 201 SEAICE_DYNSOLVER 
     &                      +sIceLoad(i,j,bi,bj)*gravity
./pkg/seaice/seaice_dynsolver.F 209 SEAICE_DYNSOLVER 
     &                   + pload(i,j,bi,bj)*recip_rhoConst
./pkg/seaice/seaice_dynsolver.F 217 SEAICE_DYNSOLVER 
          FORCEX0(I,J,bi,bj)=TAUX(I,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 218 SEAICE_DYNSOLVER 
          FORCEY0(I,J,bi,bj)=TAUY(I,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 226 SEAICE_DYNSOLVER 
          FORCEX0(I,J,bi,bj)=FORCEX0(I,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 227 SEAICE_DYNSOLVER 
     &         -seaiceMassU(I,J,bi,bj)*_recip_dxC(I,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 229 SEAICE_DYNSOLVER 
          FORCEY0(I,J,bi,bj)=FORCEY0(I,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 230 SEAICE_DYNSOLVER 
     &         -seaiceMassV(I,J,bi,bj)* _recip_dyC(I,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 236 SEAICE_DYNSOLVER 
        CALL SEAICE_CALC_ICE_STRENGTH( bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_dynsolver.F 250 SEAICE_DYNSOLVER 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 256 SEAICE_DYNSOLVER 
            stressDivergenceX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 257 SEAICE_DYNSOLVER 
            stressDivergenceY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 337 SEAICE_DYNSOLVER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_dynsolver.F 341 SEAICE_DYNSOLVER 
           uIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 342 SEAICE_DYNSOLVER 
     &          MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F 343 SEAICE_DYNSOLVER 
           vIce(i,j,bi,bj)=
./pkg/seaice/seaice_dynsolver.F 344 SEAICE_DYNSOLVER 
     &          MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F 60 SEAICE_DYNSOLVER 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_dynsolver.F 69 SEAICE_DYNSOLVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_dynsolver.F 73 SEAICE_DYNSOLVER 
          PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 74 SEAICE_DYNSOLVER 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_dynsolver.F 75 SEAICE_DYNSOLVER 
          ZMAX(I,J,bi,bj)   = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj)
./pkg/seaice/seaice_dynsolver.F 76 SEAICE_DYNSOLVER 
          ZMIN(i,j,bi,bj)   = SEAICE_zetaMin
./pkg/seaice/seaice_dynsolver.F 77 SEAICE_DYNSOLVER 
          PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_dynsolver.F 78 SEAICE_DYNSOLVER 
          TAUX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 79 SEAICE_DYNSOLVER 
          TAUY(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 81 SEAICE_DYNSOLVER 
          uice_fd(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_dynsolver.F 82 SEAICE_DYNSOLVER 
          vice_fd(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_evp.F 146 SEAICE_EVP 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_evp.F 151 SEAICE_EVP 
          uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 152 SEAICE_EVP 
          vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 154 SEAICE_EVP 
          e11  (I,J,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 155 SEAICE_EVP 
          e22  (I,J,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 156 SEAICE_EVP 
          e12  (I,J,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 168 SEAICE_EVP 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_evp.F 172 SEAICE_EVP 
           zMax (I,J,bi,bj)   = _rA(I,J,bi,bj) * fac
./pkg/seaice/seaice_evp.F 212 SEAICE_EVP 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_evp.F 223 SEAICE_EVP 
            deltaC  (I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_evp.F 228 SEAICE_EVP 
            ep(i,j) = e11(i,j,bi,bj) + e22(i,j,bi,bj)
./pkg/seaice/seaice_evp.F 229 SEAICE_EVP 
            em(i,j) = e11(i,j,bi,bj) - e22(i,j,bi,bj)
./pkg/seaice/seaice_evp.F 243 SEAICE_EVP 
            deltaC(I,J,bi,bj) =
./pkg/seaice/seaice_evp.F 246 SEAICE_EVP 
     &               ( e12(I,  J,bi,bj)**2 + e12(I+1,J+1,bi,bj)**2
./pkg/seaice/seaice_evp.F 247 SEAICE_EVP 
     &               + e12(I+1,J,bi,bj)**2 + e12(I,  J+1,bi,bj)**2 )
./pkg/seaice/seaice_evp.F 254 SEAICE_EVP 
     &           + 4. _d 0*recip_ecc2*e12(I,J,bi,bj)**2
./pkg/seaice/seaice_evp.F 257 SEAICE_EVP 
            IF ( deltaC(I,J,bi,bj) .GT. 0. _d 0 )
./pkg/seaice/seaice_evp.F 258 SEAICE_EVP 
     &           deltaC(I,J,bi,bj) = SQRT(deltaC(I,J,bi,bj))
./pkg/seaice/seaice_evp.F 262 SEAICE_EVP 
            deltaC(I,J,bi,bj) = SQRT(deltaC(I,J,bi,bj))
./pkg/seaice/seaice_evp.F 265 SEAICE_EVP 
            deltaCreg   = MAX(deltaC(I,J,bi,bj),SEAICE_EPS)
./pkg/seaice/seaice_evp.F 268 SEAICE_EVP 
            zetaC(I,J)  = HALF*press0(I,J,bi,bj)/deltaCreg
./pkg/seaice/seaice_evp.F 270 SEAICE_EVP 
     &         * ( PRESS0(I,J  ,bi,bj) + PRESS0(I-1,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 271 SEAICE_EVP 
     &           + PRESS0(I,J-1,bi,bj) + PRESS0(I-1,J-1,bi,bj) )
./pkg/seaice/seaice_evp.F 283 SEAICE_EVP 
            zetaC(I,J)  = MAX(zMin(I,J,bi,bj),MIN(zMax(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 290 SEAICE_EVP 
     &           MAX(zMax(I,  J,bi,bj),zMax(I,  J-1,bi,bj)),
./pkg/seaice/seaice_evp.F 291 SEAICE_EVP 
     &           MAX(zMax(I-1,J,bi,bj),zMax(I-1,J-1,bi,bj)) )
./pkg/seaice/seaice_evp.F 293 SEAICE_EVP 
     &           MAX(zMin(I,  J,bi,bj),zMin(I,  J-1,bi,bj)),
./pkg/seaice/seaice_evp.F 294 SEAICE_EVP 
     &           MAX(zMin(I-1,J,bi,bj),zMin(I-1,J-1,bi,bj)) )
./pkg/seaice/seaice_evp.F 302 SEAICE_EVP 
            pressC(I,J) = TWO*zetaC(I,J)*deltaC(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 310 SEAICE_EVP 
             press(I,J,bi,bj) = pressC(I,J)
./pkg/seaice/seaice_evp.F 311 SEAICE_EVP 
             zeta (I,J,bi,bj) = zetaC(I,J)
./pkg/seaice/seaice_evp.F 312 SEAICE_EVP 
             eta  (I,J,bi,bj) = zetaC(I,J)*recip_ecc2
./pkg/seaice/seaice_evp.F 335 SEAICE_EVP 
     &            ( e12(I,  J,bi,bj)**2 + e12(I+1,J+1,bi,bj)**2
./pkg/seaice/seaice_evp.F 336 SEAICE_EVP 
     &            + e12(I+1,J,bi,bj)**2 + e12(I,  J+1,bi,bj)**2 )
./pkg/seaice/seaice_evp.F 339 SEAICE_EVP 
     &            *(deltaC(I,J,bi,bj)-ep(I,J))/etaDenC
./pkg/seaice/seaice_evp.F 343 SEAICE_EVP 
     &            + 4. _d 0*e12(I,J,bi,bj)**2
./pkg/seaice/seaice_evp.F 351 SEAICE_EVP 
             eta(I,J,bi,bj) = MIN(zetaC(I,J),zetaMaxC)*recip_ecc2
./pkg/seaice/seaice_evp.F 355 SEAICE_EVP 
     &            ) * hEffM(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 357 SEAICE_EVP 
     &            * em(I,J) * hEffM(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 359 SEAICE_EVP 
     &            * 2. _d 0*e12(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 370 SEAICE_EVP 
     &            ) * hEffM(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 372 SEAICE_EVP 
     &            * em(I,J) * hEffM(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 374 SEAICE_EVP 
     &            2. _d 0*zetaZ(I,J)*2. _d 0*e12(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 384 SEAICE_EVP 
            seaice_sigma1 (I,J,bi,bj) = ( seaice_sigma1 (I,J,bi,bj)
./pkg/seaice/seaice_evp.F 387 SEAICE_EVP 
     &           *hEffM(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 388 SEAICE_EVP 
            seaice_sigma2 (I,J,bi,bj) = ( seaice_sigma2 (I,J,bi,bj)
./pkg/seaice/seaice_evp.F 391 SEAICE_EVP 
     &         *hEffM(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 396 SEAICE_EVP 
            seaice_sigma1(I,J,bi,bj) = SIGN(MAX(
./pkg/seaice/seaice_evp.F 397 SEAICE_EVP 
     &           ABS( seaice_sigma1(I,J,bi,bj) ), SEAICE_EPS ),
./pkg/seaice/seaice_evp.F 398 SEAICE_EVP 
     &           seaice_sigma1(I,J,bi,bj) )
./pkg/seaice/seaice_evp.F 399 SEAICE_EVP 
            seaice_sigma2(I,J,bi,bj) = SIGN(MAX(
./pkg/seaice/seaice_evp.F 400 SEAICE_EVP 
     &           ABS( seaice_sigma2(I,J,bi,bj) ), SEAICE_EPS ),
./pkg/seaice/seaice_evp.F 401 SEAICE_EVP 
     &           seaice_sigma2(I,J,bi,bj) )
./pkg/seaice/seaice_evp.F 405 SEAICE_EVP 
     &           ( seaice_sigma1(I,J,bi,bj)+seaice_sigma2(I,J,bi,bj) )
./pkg/seaice/seaice_evp.F 407 SEAICE_EVP 
     &           ( seaice_sigma1(I,J,bi,bj)-seaice_sigma2(I,J,bi,bj) )
./pkg/seaice/seaice_evp.F 414 SEAICE_EVP 
            seaice_sigma12(I,J,bi,bj) = ( seaice_sigma12(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 418 SEAICE_EVP 
            seaice_sigma12(I,J,bi,bj) = SIGN(MAX(
./pkg/seaice/seaice_evp.F 419 SEAICE_EVP 
     &           ABS( seaice_sigma12(I,J,bi,bj) ), SEAICE_EPS ),
./pkg/seaice/seaice_evp.F 420 SEAICE_EVP 
     &           seaice_sigma12(I,J,bi,bj) )
./pkg/seaice/seaice_evp.F 429 SEAICE_EVP 
            stressDivergenceX(I,J,bi,bj) =
./pkg/seaice/seaice_evp.F 430 SEAICE_EVP 
     &           ( sig11(I  ,J  ) * _dyF(I  ,J,bi,bj)
./pkg/seaice/seaice_evp.F 431 SEAICE_EVP 
     &           - sig11(I-1,J  ) * _dyF(I-1,J,bi,bj)
./pkg/seaice/seaice_evp.F 432 SEAICE_EVP 
     &           + seaice_sigma12(I,J+1,bi,bj) * _dxV(I,J+1,bi,bj)
./pkg/seaice/seaice_evp.F 433 SEAICE_EVP 
     &           - seaice_sigma12(I,J  ,bi,bj) * _dxV(I,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 434 SEAICE_EVP 
     &           ) * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 435 SEAICE_EVP 
            stressDivergenceY(I,J,bi,bj) =
./pkg/seaice/seaice_evp.F 436 SEAICE_EVP 
     &           ( sig22(I,J  ) * _dxF(I,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 437 SEAICE_EVP 
     &           - sig22(I,J-1) * _dxF(I,J-1,bi,bj)
./pkg/seaice/seaice_evp.F 438 SEAICE_EVP 
     &           + seaice_sigma12(I+1,J,bi,bj) * _dyU(I+1,J,bi,bj)
./pkg/seaice/seaice_evp.F 439 SEAICE_EVP 
     &           - seaice_sigma12(I  ,J,bi,bj) * _dyU(I  ,J,bi,bj)
./pkg/seaice/seaice_evp.F 440 SEAICE_EVP 
     &           ) * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 470 SEAICE_EVP 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_evp.F 482 SEAICE_EVP 
            locMaskU = seaiceMassU(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 483 SEAICE_EVP 
            locMaskV = seaiceMassV(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 491 SEAICE_EVP 
            FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+
./pkg/seaice/seaice_evp.F 492 SEAICE_EVP 
     &           0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) *
./pkg/seaice/seaice_evp.F 493 SEAICE_EVP 
     &           COSWAT * uVel(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_evp.F 494 SEAICE_EVP 
     &           - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 495 SEAICE_EVP 
     &           ( DWATN(I  ,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 496 SEAICE_EVP 
     &            (vVel(I  ,J  ,kSrf,bi,bj)-vIce(I  ,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 497 SEAICE_EVP 
     &            +vVel(I  ,J+1,kSrf,bi,bj)-vIce(I  ,J+1,bi,bj))
./pkg/seaice/seaice_evp.F 498 SEAICE_EVP 
     &           + DWATN(I-1,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 499 SEAICE_EVP 
     &            (vVel(I-1,J  ,kSrf,bi,bj)-vIce(I-1,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 500 SEAICE_EVP 
     &            +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj))
./pkg/seaice/seaice_evp.F 502 SEAICE_EVP 
            FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+
./pkg/seaice/seaice_evp.F 503 SEAICE_EVP 
     &           0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) *
./pkg/seaice/seaice_evp.F 504 SEAICE_EVP 
     &           COSWAT * vVel(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_evp.F 505 SEAICE_EVP 
     &           + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 506 SEAICE_EVP 
     &           ( DWATN(I,J  ,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 507 SEAICE_EVP 
     &            (uVel(I  ,J  ,kSrf,bi,bj)-uIce(I  ,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 508 SEAICE_EVP 
     &            +uVel(I+1,J  ,kSrf,bi,bj)-uIce(I+1,J  ,bi,bj))
./pkg/seaice/seaice_evp.F 509 SEAICE_EVP 
     &           + DWATN(I,J-1,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 510 SEAICE_EVP 
     &            (uVel(I  ,J-1,kSrf,bi,bj)-uIce(I  ,J-1,bi,bj)
./pkg/seaice/seaice_evp.F 511 SEAICE_EVP 
     &            +uVel(I+1,J-1,kSrf,bi,bj)-uIce(I+1,J-1,bi,bj))
./pkg/seaice/seaice_evp.F 514 SEAICE_EVP 
            FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) + 0.5 _d 0*(
./pkg/seaice/seaice_evp.F 515 SEAICE_EVP 
     &             seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_evp.F 516 SEAICE_EVP 
     &           * 0.5 _d 0*( vIce(I  ,J,bi,bj)+vIce(I  ,J+1,bi,bj) )
./pkg/seaice/seaice_evp.F 517 SEAICE_EVP 
     &           + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_evp.F 518 SEAICE_EVP 
     &           * 0.5 _d 0*( vIce(I-1,J,bi,bj)+vIce(I-1,J+1,bi,bj) )
./pkg/seaice/seaice_evp.F 520 SEAICE_EVP 
            FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*(
./pkg/seaice/seaice_evp.F 521 SEAICE_EVP 
     &             seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_evp.F 522 SEAICE_EVP 
     &           * 0.5 _d 0*( uIce(I,J  ,bi,bj)+uIce(I+1,  J,bi,bj) )
./pkg/seaice/seaice_evp.F 523 SEAICE_EVP 
     &           + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_evp.F 524 SEAICE_EVP 
     &           * 0.5 _d 0*( uIce(I,J-1,bi,bj)+uIce(I+1,J-1,bi,bj) )
./pkg/seaice/seaice_evp.F 533 SEAICE_EVP 
            uIce(I,J,bi,bj) = seaiceMaskU(I,J,bi,bj) *
./pkg/seaice/seaice_evp.F 534 SEAICE_EVP 
     &           ( seaiceMassU(I,J,bi,bj)*betaFac
./pkg/seaice/seaice_evp.F 535 SEAICE_EVP 
     &           * uIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 536 SEAICE_EVP 
     &           + seaiceMassU(I,J,bi,bj)*recip_deltaT*evpStarFac
./pkg/seaice/seaice_evp.F 537 SEAICE_EVP 
     &           * uIceNm1(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 538 SEAICE_EVP 
     &           + FORCEX(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 539 SEAICE_EVP 
     &           + stressDivergenceX(I,J,bi,bj) )
./pkg/seaice/seaice_evp.F 540 SEAICE_EVP 
     &           /( 1. _d 0 - seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 541 SEAICE_EVP 
     &           + seaiceMassU(I,J,bi,bj)*betaFacP1
./pkg/seaice/seaice_evp.F 542 SEAICE_EVP 
     &           + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I-1,J,bi,bj) )
./pkg/seaice/seaice_evp.F 544 SEAICE_EVP 
            vIce(I,J,bi,bj) = seaiceMaskV(I,J,bi,bj) *
./pkg/seaice/seaice_evp.F 545 SEAICE_EVP 
     &           ( seaiceMassV(I,J,bi,bj)*betaFac
./pkg/seaice/seaice_evp.F 546 SEAICE_EVP 
     &           * vIce(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 547 SEAICE_EVP 
     &           + seaiceMassV(I,J,bi,bj)*recip_deltaT*evpStarFac
./pkg/seaice/seaice_evp.F 548 SEAICE_EVP 
     &           * vIceNm1(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 549 SEAICE_EVP 
     &           + FORCEY(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 550 SEAICE_EVP 
     &           + stressDivergenceY(I,J,bi,bj) )
./pkg/seaice/seaice_evp.F 551 SEAICE_EVP 
     &           /( 1. _d 0 - seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 552 SEAICE_EVP 
     &           + seaiceMassV(I,J,bi,bj)*betaFacP1
./pkg/seaice/seaice_evp.F 553 SEAICE_EVP 
     &           + 0.5 _d 0*( DWATN(I,J,bi,bj) + DWATN(I,J-1,bi,bj) )
./pkg/seaice/seaice_evp.F 565 SEAICE_EVP 
            locMaskU = maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj)
./pkg/seaice/seaice_evp.F 566 SEAICE_EVP 
            locMaskV = maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./pkg/seaice/seaice_evp.F 567 SEAICE_EVP 
            uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*locMaskU
./pkg/seaice/seaice_evp.F 568 SEAICE_EVP 
     &                       + uIceNm1(i,j,bi,bj)*(ONE-locMaskU)
./pkg/seaice/seaice_evp.F 569 SEAICE_EVP 
            vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*locMaskV
./pkg/seaice/seaice_evp.F 570 SEAICE_EVP 
     &                       + vIceNm1(i,j,bi,bj)*(ONE-locMaskV)
./pkg/seaice/seaice_evp.F 80 SEAICE_EVP 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_fake.F 41 SEAICE_FAKE 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_fake.F 50 SEAICE_FAKE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fake.F 55 SEAICE_FAKE 
            fac=MIN(1. _d 0, MAX(0. _d 0 , 1. _d 0 - area(i,j,bi,bj)))
./pkg/seaice/seaice_fake.F 56 SEAICE_FAKE 
            fu(i,j,bi,bj) = fu(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F 57 SEAICE_FAKE 
            fv(i,j,bi,bj) = fv(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F 58 SEAICE_FAKE 
            qnet(i,j,bi,bj) = qnet(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F 59 SEAICE_FAKE 
            qsw(i,j,bi,bj) = qsw(i,j,bi,bj) * fac
./pkg/seaice/seaice_fake.F 62 SEAICE_FAKE 
            EmPmR(i,j,bi,bj)  = maskC(i,j,1,bi,bj)*(
./pkg/seaice/seaice_fake.F 63 SEAICE_FAKE 
     &         fac * EVAP(i,j,bi,bj)
./pkg/seaice/seaice_fake.F 64 SEAICE_FAKE 
     &             - PRECIP(i,j,bi,bj)
./pkg/seaice/seaice_fake.F 66 SEAICE_FAKE 
     &             - RUNOFF(i,j,bi,bj)
./pkg/seaice/seaice_fake.F 71 SEAICE_FAKE 
            fac=MIN(1. _d 0, MAX(0. _d 0 , area(i,j,bi,bj)))
./pkg/seaice/seaice_fake.F 73 SEAICE_FAKE 
     &                SEAICE_dTempFrz_dS *salt(i,j,1,bi,bj)
./pkg/seaice/seaice_fake.F 74 SEAICE_FAKE 
            theta(i,j,1,bi,bj)=theta(i,j,1,bi,bj) + fac *
./pkg/seaice/seaice_fake.F 75 SEAICE_FAKE 
     &        ( tempFrz-theta(i,j,1,bi,bj) ) *
./pkg/seaice/seaice_fgmres.F 102 SEAICE_FGMRES_DRIVER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 105 SEAICE_FGMRES_DRIVER 
          wk2(k,bi,bj) = 0. _d 0
./pkg/seaice/seaice_fgmres.F 114 SEAICE_FGMRES_DRIVER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 117 SEAICE_FGMRES_DRIVER 
          rhs(k,bi,bj) = -rhs(k,bi,bj)
./pkg/seaice/seaice_fgmres.F 118 SEAICE_FGMRES_DRIVER 
          wk2(k,bi,bj) = 0. _d 0
./pkg/seaice/seaice_fgmres.F 183 SEAICE_MAP2VEC 
      INTEGER I, J, bi, bj
./pkg/seaice/seaice_fgmres.F 188 SEAICE_MAP2VEC 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 197 SEAICE_MAP2VEC 
           vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 198 SEAICE_MAP2VEC 
           vector(ii,  bi,bj) = yfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 206 SEAICE_MAP2VEC 
           xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj)
./pkg/seaice/seaice_fgmres.F 207 SEAICE_MAP2VEC 
           yfld2d(I,J,bi,bj) = vector(ii,  bi,bj)
./pkg/seaice/seaice_fgmres.F 217 SEAICE_MAP2VEC 
           vector(ii,  bi,bj) = xfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 218 SEAICE_MAP2VEC 
           vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 226 SEAICE_MAP2VEC 
           xfld2d(I,J,bi,bj) = vector(ii,  bi,bj)
./pkg/seaice/seaice_fgmres.F 227 SEAICE_MAP2VEC 
           yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj)
./pkg/seaice/seaice_fgmres.F 273 SEAICE_MAP_RS2VEC 
      INTEGER I, J, bi, bj
./pkg/seaice/seaice_fgmres.F 278 SEAICE_MAP_RS2VEC 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 287 SEAICE_MAP_RS2VEC 
           vector(ii-1,bi,bj) = xfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 288 SEAICE_MAP_RS2VEC 
           vector(ii,  bi,bj) = yfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 296 SEAICE_MAP_RS2VEC 
           xfld2d(I,J,bi,bj) = vector(ii-1,bi,bj)
./pkg/seaice/seaice_fgmres.F 297 SEAICE_MAP_RS2VEC 
           yfld2d(I,J,bi,bj) = vector(ii,  bi,bj)
./pkg/seaice/seaice_fgmres.F 307 SEAICE_MAP_RS2VEC 
           vector(ii,  bi,bj) = xfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 308 SEAICE_MAP_RS2VEC 
           vector(ii+m,bi,bj) = yfld2d(I,J,bi,bj)
./pkg/seaice/seaice_fgmres.F 316 SEAICE_MAP_RS2VEC 
           xfld2d(I,J,bi,bj) = vector(ii,  bi,bj)
./pkg/seaice/seaice_fgmres.F 317 SEAICE_MAP_RS2VEC 
           yfld2d(I,J,bi,bj) = vector(ii+m,bi,bj)
./pkg/seaice/seaice_fgmres.F 475 SEAICE_FGMRES 
      integer bi, bj
./pkg/seaice/seaice_fgmres.F 499 SEAICE_FGMRES 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 502 SEAICE_FGMRES 
         wk1(j,bi,bj)=sol(j,bi,bj)
./pkg/seaice/seaice_fgmres.F 509 SEAICE_FGMRES 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 512 SEAICE_FGMRES 
         vv(j,1,bi,bj) = rhs(j,bi,bj) - wk2(j,bi,bj)
./pkg/seaice/seaice_fgmres.F 522 SEAICE_FGMRES 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 525 SEAICE_FGMRES 
         vv(j,1,bi,bj) = vv(j,1,bi,bj)*t
./pkg/seaice/seaice_fgmres.F 549 SEAICE_FGMRES 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 552 SEAICE_FGMRES 
         wk1(k,bi,bj) = vv(k,i,bi,bj)
./pkg/seaice/seaice_fgmres.F 562 SEAICE_FGMRES 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 565 SEAICE_FGMRES 
         w(k,i,bi,bj) = wk2(k,bi,bj)
./pkg/seaice/seaice_fgmres.F 573 SEAICE_FGMRES 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 576 SEAICE_FGMRES 
         wk1(k,bi,bj)=wk2(k,bi,bj)
./pkg/seaice/seaice_fgmres.F 591 SEAICE_FGMRES 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 594 SEAICE_FGMRES 
         vv(k,i1,bi,bj)=wk2(k,bi,bj)
./pkg/seaice/seaice_fgmres.F 609 SEAICE_FGMRES 
       do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 612 SEAICE_FGMRES 
          vv(k,i1,bi,bj) = vv(k,i1,bi,bj) - t*vv(k,j,bi,bj)
./pkg/seaice/seaice_fgmres.F 623 SEAICE_FGMRES 
       do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 626 SEAICE_FGMRES 
          vv(k,i1,bi,bj) = vv(k,i1,bi,bj)*t
./pkg/seaice/seaice_fgmres.F 701 SEAICE_FGMRES 
       do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 704 SEAICE_FGMRES 
          sol(k,bi,bj) = sol(k,bi,bj) + t*w(k,j,bi,bj)
./pkg/seaice/seaice_fgmres.F 727 SEAICE_FGMRES 
       do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 730 SEAICE_FGMRES 
          vv(k,1,bi,bj) = vv(k,1,bi,bj) + t*vv(k,j,bi,bj)
./pkg/seaice/seaice_fgmres.F 75 SEAICE_FGMRES_DRIVER 
      INTEGER k, bi, bj
./pkg/seaice/seaice_fgmres.F 772 SEAICE_SCALPROD 
      integer i,m,mp1,bi,bj
./pkg/seaice/seaice_fgmres.F 779 SEAICE_SCALPROD 
      do bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_fgmres.F 781 SEAICE_SCALPROD 
        dtemp(bi,bj) = 0. _d 0
./pkg/seaice/seaice_fgmres.F 784 SEAICE_SCALPROD 
          dtemp(bi,bj) = dtemp(bi,bj) + dx(i,i1,bi,bj)*dy(i,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 785 SEAICE_SCALPROD 
     &         * scalarProductMetric(i,1,bi,bj)
./pkg/seaice/seaice_fgmres.F 792 SEAICE_SCALPROD 
          dtemp(bi,bj) = dtemp(bi,bj)               +
./pkg/seaice/seaice_fgmres.F 793 SEAICE_SCALPROD 
     &        dx(i,    i1,bi,bj)*dy(i,    i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 794 SEAICE_SCALPROD 
     &        * scalarProductMetric(i,    1, bi,bj) +
./pkg/seaice/seaice_fgmres.F 795 SEAICE_SCALPROD 
     &        dx(i + 1,i1,bi,bj)*dy(i + 1,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 796 SEAICE_SCALPROD 
     &        * scalarProductMetric(i + 1,1, bi,bj) +
./pkg/seaice/seaice_fgmres.F 797 SEAICE_SCALPROD 
     &        dx(i + 2,i1,bi,bj)*dy(i + 2,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 798 SEAICE_SCALPROD 
     &        * scalarProductMetric(i + 2,1, bi,bj) +
./pkg/seaice/seaice_fgmres.F 799 SEAICE_SCALPROD 
     &        dx(i + 3,i1,bi,bj)*dy(i + 3,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 800 SEAICE_SCALPROD 
     &        * scalarProductMetric(i + 3,1, bi,bj) +
./pkg/seaice/seaice_fgmres.F 801 SEAICE_SCALPROD 
     &        dx(i + 4,i1,bi,bj)*dy(i + 4,i2,bi,bj)
./pkg/seaice/seaice_fgmres.F 802 SEAICE_SCALPROD 
     &        * scalarProductMetric(i + 4,1, bi,bj)
./pkg/seaice/seaice_freedrift.F 106 SEAICE_FREEDRIFT 
           IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_freedrift.F 124 SEAICE_FREEDRIFT 
           IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_freedrift.F 142 SEAICE_FREEDRIFT 
           uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*COS(sol_a)
./pkg/seaice/seaice_freedrift.F 143 SEAICE_FREEDRIFT 
           vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*SIN(sol_a)
./pkg/seaice/seaice_freedrift.F 156 SEAICE_FREEDRIFT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_freedrift.F 160 SEAICE_FREEDRIFT 
           uice_fd(i,j,bi,bj)=HALF*
./pkg/seaice/seaice_freedrift.F 161 SEAICE_FREEDRIFT 
     &       (uice_cntr(i-1,j,bi,bj)+uice_cntr(i,j,bi,bj))
./pkg/seaice/seaice_freedrift.F 162 SEAICE_FREEDRIFT 
           vice_fd(i,j,bi,bj)=HALF*
./pkg/seaice/seaice_freedrift.F 163 SEAICE_FREEDRIFT 
     &       (vice_cntr(i,j-1,bi,bj)+vice_cntr(i,j,bi,bj))
./pkg/seaice/seaice_freedrift.F 172 SEAICE_FREEDRIFT 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_freedrift.F 176 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 177 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 41 SEAICE_FREEDRIFT 
      INTEGER i, j, kSrf, bi, bj
./pkg/seaice/seaice_freedrift.F 57 SEAICE_FREEDRIFT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_freedrift.F 61 SEAICE_FREEDRIFT 
           uice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 62 SEAICE_FREEDRIFT 
           vice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 63 SEAICE_FREEDRIFT 
           uice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 64 SEAICE_FREEDRIFT 
           Vice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 73 SEAICE_FREEDRIFT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_freedrift.F 82 SEAICE_FREEDRIFT 
     &       (FORCEX0(i,j,bi,bj)+FORCEX0(i+1,j,bi,bj))
./pkg/seaice/seaice_freedrift.F 84 SEAICE_FREEDRIFT 
     &       (FORCEY0(i,j,bi,bj)+FORCEY0(i,j+1,bi,bj))
./pkg/seaice/seaice_freedrift.F 86 SEAICE_FREEDRIFT 
           mIceCor=SEAICE_rhoIce*HEFF(i,j,bi,bj)*_fCori(I,J,bi,bj)
./pkg/seaice/seaice_freedrift.F 88 SEAICE_FREEDRIFT 
           uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj))
./pkg/seaice/seaice_freedrift.F 89 SEAICE_FREEDRIFT 
           vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 109 SEAICE_GET_DYNFORCING 
     &         (COSWIN*U1-SIGN(SINWIN, _fCori(i,j,bi,bj))*V1)
./pkg/seaice/seaice_get_dynforcing.F 111 SEAICE_GET_DYNFORCING 
     &         (SIGN(SINWIN, _fCori(i,j,bi,bj))*U1+COSWIN*V1)
./pkg/seaice/seaice_get_dynforcing.F 118 SEAICE_GET_DYNFORCING 
          fu(i,j,bi,bj) = 0.5 _d 0*( oceTauX(i,j) + oceTauX(i-1,j) )
./pkg/seaice/seaice_get_dynforcing.F 119 SEAICE_GET_DYNFORCING 
     &                            *_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 120 SEAICE_GET_DYNFORCING 
          fv(i,j,bi,bj) = 0.5 _d 0*( oceTauY(i,j) + oceTauY(i,j-1) )
./pkg/seaice/seaice_get_dynforcing.F 121 SEAICE_GET_DYNFORCING 
     &                            *_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 135 SEAICE_GET_DYNFORCING 
            U1=UWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 136 SEAICE_GET_DYNFORCING 
     &          + 0.5 _d 0 * (uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 137 SEAICE_GET_DYNFORCING 
     &          - 0.5 _d 0 * (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 138 SEAICE_GET_DYNFORCING 
            V1=VWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 139 SEAICE_GET_DYNFORCING 
     &          + 0.5 _d 0 * (vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 140 SEAICE_GET_DYNFORCING 
     &          - 0.5 _d 0 * (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 147 SEAICE_GET_DYNFORCING 
            IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_get_dynforcing.F 157 SEAICE_GET_DYNFORCING 
            U1=UWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 158 SEAICE_GET_DYNFORCING 
            V1=VWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 165 SEAICE_GET_DYNFORCING 
            IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_get_dynforcing.F 177 SEAICE_GET_DYNFORCING 
            taux(i,j,bi,bj)= 0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 179 SEAICE_GET_DYNFORCING 
     &          (uWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 180 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 181 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 182 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 183 SEAICE_GET_DYNFORCING 
     &          (vWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 184 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 185 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 187 SEAICE_GET_DYNFORCING 
     &          (uWind(i-1,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 188 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i-1,j,ks,bi,bj)+uVel(i,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 189 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uIce(i-1,j,bi,bj)+uIce(i,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 190 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 191 SEAICE_GET_DYNFORCING 
     &          (vWind(i-1,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 192 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i-1,j,ks,bi,bj)+vVel(i-1,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 193 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 194 SEAICE_GET_DYNFORCING 
     &         )*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 196 SEAICE_GET_DYNFORCING 
            tauy(i,j,bi,bj)= 0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 197 SEAICE_GET_DYNFORCING 
     &         ( CDAIR(i,j)*(SIGN(SINWIN, _fCori(i,j,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 198 SEAICE_GET_DYNFORCING 
     &          (uWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 199 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j,ks,bi,bj)+uVel(i+1,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 200 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 202 SEAICE_GET_DYNFORCING 
     &          (vWind(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 203 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j,ks,bi,bj)+vVel(i,j+1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 204 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 205 SEAICE_GET_DYNFORCING 
     &          +CDAIR(i,j-1)*(SIGN(SINWIN, _fCori(i,j-1,bi,bj))*
./pkg/seaice/seaice_get_dynforcing.F 206 SEAICE_GET_DYNFORCING 
     &          (uWind(i,j-1,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 207 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j-1,ks,bi,bj)+uVel(i+1,j-1,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 208 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 210 SEAICE_GET_DYNFORCING 
     &          (vWind(i,j-1,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 211 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j-1,ks,bi,bj)+vVel(i,j,ks,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 212 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vIce(i,j-1,bi,bj)+vIce(i,j,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 213 SEAICE_GET_DYNFORCING 
     &         )*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 220 SEAICE_GET_DYNFORCING 
            taux(i,j,bi,bj)=0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 222 SEAICE_GET_DYNFORCING 
     &          COSWIN                            *uWind(i  ,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 223 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i  ,j,bi,bj))*vWind(i  ,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 225 SEAICE_GET_DYNFORCING 
     &          COSWIN                            *uWind(i-1,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 226 SEAICE_GET_DYNFORCING 
     &          -SIGN(SINWIN, _fCori(i-1,j,bi,bj))*vWind(i-1,j,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 227 SEAICE_GET_DYNFORCING 
     &         )*_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 229 SEAICE_GET_DYNFORCING 
            tauy(i,j,bi,bj)=0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 231 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(i,j  ,bi,bj))*uWind(i,j  ,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 232 SEAICE_GET_DYNFORCING 
     &          +COSWIN*vWind(i,j  ,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 234 SEAICE_GET_DYNFORCING 
     &          SIGN(SINWIN, _fCori(i,j-1,bi,bj))*uWind(i,j-1,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 235 SEAICE_GET_DYNFORCING 
     &          +COSWIN*vWind(i,j-1,bi,bj) )
./pkg/seaice/seaice_get_dynforcing.F 236 SEAICE_GET_DYNFORCING 
     &         )*_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 250 SEAICE_GET_DYNFORCING 
           IF ( yC(i,j,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_get_dynforcing.F 255 SEAICE_GET_DYNFORCING 
           taux(i,j,bi,bj) = CDAIR(i,j)*fu(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 256 SEAICE_GET_DYNFORCING 
     &                     *_maskW(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 257 SEAICE_GET_DYNFORCING 
           tauy(i,j,bi,bj) = CDAIR(i,j)*fv(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 258 SEAICE_GET_DYNFORCING 
     &                     *_maskS(i,j,ks,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 62 SEAICE_GET_DYNFORCING 
      INTEGER bi, bj, i, j
./pkg/seaice/seaice_get_dynforcing.F 86 SEAICE_GET_DYNFORCING 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_get_dynforcing.F 98 SEAICE_GET_DYNFORCING 
          U1=UWIND(i,j,bi,bj)
./pkg/seaice/seaice_get_dynforcing.F 99 SEAICE_GET_DYNFORCING 
          V1=VWIND(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 1022 SEAICE_GROWTH 
     &              SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1024 SEAICE_GROWTH 
          IF ( theta(I,J,kSurface,bi,bj) .GE. tempFrz ) THEN
./pkg/seaice/seaice_growth.F 1042 SEAICE_GROWTH 
     &         * (theta(I,J,kSurface,bi,bj)-tempFrz)
./pkg/seaice/seaice_growth.F 1043 SEAICE_GROWTH 
     &         * SEAICE_deltaTtherm * maskC(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1060 SEAICE_GROWTH 
     &          SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1061 SEAICE_GROWTH 
           tmpscal1=(theta(I,J,kSurface,bi,bj)-tempFrz)
./pkg/seaice/seaice_growth.F 1114 SEAICE_GROWTH 
          SItracer(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1115 SEAICE_GROWTH 
     &     SItracer(I,J,bi,bj,iTrGrease) * HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1129 SEAICE_GROWTH 
           tmpscal1 = uWind(I,J,bi,bj)*uWind(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1130 SEAICE_GROWTH 
     &              + vWind(I,J,bi,bj)*vWind(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1140 SEAICE_GROWTH 
     &        0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1141 SEAICE_GROWTH 
     &                 +uVel(i+1,j,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 1142 SEAICE_GROWTH 
     &       -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj))
./pkg/seaice/seaice_growth.F 1145 SEAICE_GROWTH 
     &        0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 1146 SEAICE_GROWTH 
     &                 +vVel(i,j+1,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 1147 SEAICE_GROWTH 
     &       -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj))
./pkg/seaice/seaice_growth.F 1158 SEAICE_GROWTH 
     &         ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2
./pkg/seaice/seaice_growth.F 1159 SEAICE_GROWTH 
     &       + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2
./pkg/seaice/seaice_growth.F 1167 SEAICE_GROWTH 
           tmpscal3 = 0.5 _d 0 * (dxC(I,J,bi,bj)+dyC(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1174 SEAICE_GROWTH 
           tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3
./pkg/seaice/seaice_growth.F 1212 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublimMult(I,J,IT),HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1220 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublim(I,J),HSNOW(I,J,bi,bj)*SNOW2ICE),ZERO)
./pkg/seaice/seaice_growth.F 1222 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj)    = HSNOW(I,J,bi,bj)  - tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1236 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO)
./pkg/seaice/seaice_growth.F 1242 SEAICE_GROWTH 
     &     MAX(MIN(r_FWbySublim(I,J),HEFF(I,J,bi,bj)),ZERO)
./pkg/seaice/seaice_growth.F 1244 SEAICE_GROWTH 
          HEFF(I,J,bi,bj)     = HEFF(I,J,bi,bj)   - tmpscal2
./pkg/seaice/seaice_growth.F 1288 SEAICE_GROWTH 
     &                               -HEFFITD(I,J,IT,bi,bj))
./pkg/seaice/seaice_growth.F 1297 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,2) = HEFFpreTH(I,J)
./pkg/seaice/seaice_growth.F 1311 SEAICE_GROWTH 
          d_HEFFbyOCNonICE(I,J)=MAX(r_QbyOCN(i,j), -HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1313 SEAICE_GROWTH 
          HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J)
./pkg/seaice/seaice_growth.F 1315 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,2)=HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1338 SEAICE_GROWTH 
     &                  -HSNOWITD(I,J,IT,bi,bj)*SNOW2ICE)
./pkg/seaice/seaice_growth.F 1357 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyATM_cover(I,J),-HSNOW(I,J,bi,bj)*SNOW2ICE)
./pkg/seaice/seaice_growth.F 1364 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + tmpscal2*ICE2SNOW
./pkg/seaice/seaice_growth.F 1409 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,3) = SItrHEFF(I,J,bi,bj,2)
./pkg/seaice/seaice_growth.F 1418 SEAICE_GROWTH 
          tmpscal2 = MAX(-HEFF(I,J,bi,bj),r_QbyATM_cover(I,J)+
./pkg/seaice/seaice_growth.F 1425 SEAICE_GROWTH 
          HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal2
./pkg/seaice/seaice_growth.F 1428 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,3)=HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1446 SEAICE_GROWTH 
     &          snowPrecip(i,j,bi,bj) * AREApreTH(I,J)
./pkg/seaice/seaice_growth.F 1448 SEAICE_GROWTH 
     &          ( PRECIP(I,J,bi,bj) - snowPrecip(I,J,bi,bj) ) *
./pkg/seaice/seaice_growth.F 1450 SEAICE_GROWTH 
           HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J)
./pkg/seaice/seaice_growth.F 1465 SEAICE_GROWTH 
     &            PRECIP(I,J,bi,bj)*AREApreTH(I,J)
./pkg/seaice/seaice_growth.F 1469 SEAICE_GROWTH 
     &            PRECIP(I,J,bi,bj)*AREApreTH(I,J)
./pkg/seaice/seaice_growth.F 1486 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj) + d_HSNWbyRAIN(I,J)
./pkg/seaice/seaice_growth.F 1533 SEAICE_GROWTH 
          tmpscal1=MAX(r_QbyOCN(i,j)*ICE2SNOW, -HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1542 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)+d_HSNWbyOCNonSNW(I,J)
./pkg/seaice/seaice_growth.F 1573 SEAICE_GROWTH 
          tmpscal4 = HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1585 SEAICE_GROWTH 
     &           -tmpscal4*facOpenMelt)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1599 SEAICE_GROWTH 
           tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1600 SEAICE_GROWTH 
           SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0
./pkg/seaice/seaice_growth.F 1614 SEAICE_GROWTH 
     &             SItracer(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1617 SEAICE_GROWTH 
           SItracer(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1618 SEAICE_GROWTH 
     &             SItracer(I,J,bi,bj,iTrGrease) * tmpscal1
./pkg/seaice/seaice_growth.F 1620 SEAICE_GROWTH 
           SItrBucket(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1621 SEAICE_GROWTH 
     &             SItrBucket(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1626 SEAICE_GROWTH 
           SItracer(i,j,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1627 SEAICE_GROWTH 
     &      SItracer(i,j,bi,bj,iTrGrease) + greaseNewFrazil
./pkg/seaice/seaice_growth.F 1630 SEAICE_GROWTH 
          tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease)
./pkg/seaice/seaice_growth.F 1632 SEAICE_GROWTH 
          SItrBucket(I,J,bi,bj,iTrGrease)=0. _d 0
./pkg/seaice/seaice_growth.F 1643 SEAICE_GROWTH 
          HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3
./pkg/seaice/seaice_growth.F 1652 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,4)=SItrHEFF(I,J,bi,bj,3)
./pkg/seaice/seaice_growth.F 1655 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,4)=HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1694 SEAICE_GROWTH 
           tmpscal0 = (HSNOW(I,J,bi,bj)*SEAICE_rhoSnow
./pkg/seaice/seaice_growth.F 1695 SEAICE_GROWTH 
     &              +HEFF(I,J,bi,bj)*SEAICE_rhoIce)*recip_rhoConst
./pkg/seaice/seaice_growth.F 1696 SEAICE_GROWTH 
           tmpscal1 = MAX( 0. _d 0, tmpscal0 - HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1698 SEAICE_GROWTH 
           HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj)+d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 1699 SEAICE_GROWTH 
           HSNOW(I,J,bi,bj) = HSNOW(I,J,bi,bj)-
./pkg/seaice/seaice_growth.F 1712 SEAICE_GROWTH 
            HEFFITD(I,J,IT,bi,bj) = HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1717 SEAICE_GROWTH 
            HSNOWITD(I,J,IT,bi,bj) = HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1760 SEAICE_GROWTH 
          HEFF(I,J,bi,bj)=HEFFITD(I,J,1,bi,bj)
./pkg/seaice/seaice_growth.F 1761 SEAICE_GROWTH 
          AREA(I,J,bi,bj)=AREAITD(I,J,1,bi,bj)
./pkg/seaice/seaice_growth.F 1762 SEAICE_GROWTH 
          HSNOW(I,J,bi,bj)=HSNOWITD(I,J,1,bi,bj)
./pkg/seaice/seaice_growth.F 1778 SEAICE_GROWTH 
          IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_growth.F 1813 SEAICE_GROWTH 
            tmpscal0=HEFF(I,J,bi,bj) - d_HEFFbyATMonOCN(I,J)
./pkg/seaice/seaice_growth.F 1823 SEAICE_GROWTH 
          IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR.
./pkg/seaice/seaice_growth.F 1824 SEAICE_GROWTH 
     &        (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN
./pkg/seaice/seaice_growth.F 1825 SEAICE_GROWTH 
           AREA(I,J,bi,bj)=MAX(0. _d 0,
./pkg/seaice/seaice_growth.F 1826 SEAICE_GROWTH 
     &      MIN( SEAICE_area_max, AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1829 SEAICE_GROWTH 
           AREA(I,J,bi,bj)=0. _d 0
./pkg/seaice/seaice_growth.F 1832 SEAICE_GROWTH 
          SItrAREA(I,J,bi,bj,3)=AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1849 SEAICE_GROWTH 
          HEFFITD(I,J,1,bi,bj)=HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1850 SEAICE_GROWTH 
          AREAITD(I,J,1,bi,bj)=AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1851 SEAICE_GROWTH 
          HSNOWITD(I,J,1,bi,bj)=HSNOW(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1860 SEAICE_GROWTH 
            IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN
./pkg/seaice/seaice_growth.F 1862 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj)=ZERO
./pkg/seaice/seaice_growth.F 1868 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1870 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = max(ZERO,AREAITD(I,J,IT,bi,bj))
./pkg/seaice/seaice_growth.F 1872 SEAICE_GROWTH 
             AREAITD(I,J,IT,bi,bj) = max(AREAITD(I,J,IT,bi,bj),
./pkg/seaice/seaice_growth.F 1873 SEAICE_GROWTH 
     &                                   HEFFITD(I,J,IT,bi,bj)/tmpscal1)
./pkg/seaice/seaice_growth.F 1876 SEAICE_GROWTH 
            SItrAREA(I,J,bi,bj,3)=SItrAREA(I,J,bi,bj,3)
./pkg/seaice/seaice_growth.F 1877 SEAICE_GROWTH 
     &                           +AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 1892 SEAICE_GROWTH 
            AREAITD(I,J,IT,bi,bj) = AREAITDpreTH(I,J,IT) + 0.1 _d 0 *
./pkg/seaice/seaice_growth.F 1893 SEAICE_GROWTH 
     &               ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) )
./pkg/seaice/seaice_growth.F 1901 SEAICE_GROWTH 
           AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 *
./pkg/seaice/seaice_growth.F 1902 SEAICE_GROWTH 
     &               ( HEFF(I,J,bi,bj) - HEFFpreTH(I,J) )
./pkg/seaice/seaice_growth.F 1910 SEAICE_GROWTH 
        CALL SEAICE_ITD_REDIST(bi, bj, myTime, myIter, myThid)
./pkg/seaice/seaice_growth.F 1913 SEAICE_GROWTH 
        CALL SEAICE_ITD_SUM(bi, bj, myTime, myIter, myThid)
./pkg/seaice/seaice_growth.F 1920 SEAICE_GROWTH 
          if (HEFF(I,J,bi,bj).GT.siEps) then
./pkg/seaice/seaice_growth.F 1921 SEAICE_GROWTH 
           SItracer(I,J,bi,bj,iTrGrease) =
./pkg/seaice/seaice_growth.F 1922 SEAICE_GROWTH 
     &      SItracer(I,J,bi,bj,iTrGrease) / HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1924 SEAICE_GROWTH 
           SItracer(I,J,bi,bj,iTrGrease) = 0. _d 0
./pkg/seaice/seaice_growth.F 1951 SEAICE_GROWTH 
          tmpscal1 = d_HEFFbyNEG(I,J,bi,bj) + d_HEFFbyOCNonICE(I,J) +
./pkg/seaice/seaice_growth.F 1955 SEAICE_GROWTH 
     &             + d_HEFFbyRLX(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1959 SEAICE_GROWTH 
     &                    min(SEAICE_salt0,salt(I,J,kSurface,bi,bj)) )
./pkg/seaice/seaice_growth.F 1960 SEAICE_GROWTH 
          tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1962 SEAICE_GROWTH 
          saltFlux(I,J,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 1969 SEAICE_GROWTH 
            IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0
./pkg/seaice/seaice_growth.F 1970 SEAICE_GROWTH 
     &       .AND. XC(I,J,bi,bj) .LT. -90.0) THEN
./pkg/seaice/seaice_growth.F 1992 SEAICE_GROWTH 
          tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 1994 SEAICE_GROWTH 
          saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)
./pkg/seaice/seaice_growth.F 1998 SEAICE_GROWTH 
           IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 )
./pkg/seaice/seaice_growth.F 1999 SEAICE_GROWTH 
     &          saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 2018 SEAICE_GROWTH 
         tmpscal2=HEFF(I,J,bi,bj)-tmpscal1-d_HEFFbyFLOODING(I,J)
./pkg/seaice/seaice_growth.F 2021 SEAICE_GROWTH 
             saltFlux(I,J,bi,bj) =
./pkg/seaice/seaice_growth.F 2022 SEAICE_GROWTH 
     &            HEFFM(I,J,bi,bj)*recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2023 SEAICE_GROWTH 
     &            *SEAICE_saltFrac*salt(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2031 SEAICE_GROWTH 
               IF(YC(I,J,bi,bj).LT. 85.0 .AND. YC(I,J,bi,bj).GT. 71.0
./pkg/seaice/seaice_growth.F 2032 SEAICE_GROWTH 
     &                  .AND. XC(I,J,bi,bj) .LT. -90.0) THEN
./pkg/seaice/seaice_growth.F 2041 SEAICE_GROWTH 
             saltPlumeFlux(I,J,bi,bj)=
./pkg/seaice/seaice_growth.F 2042 SEAICE_GROWTH 
     &            HEFFM(I,J,bi,bj)*recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2043 SEAICE_GROWTH 
     &            *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2051 SEAICE_GROWTH 
             saltFlux(I,J,bi,bj) =
./pkg/seaice/seaice_growth.F 2052 SEAICE_GROWTH 
     &         HEFFM(I,J,bi,bj)*recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2053 SEAICE_GROWTH 
     &         *HSALT(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2057 SEAICE_GROWTH 
             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 2079 SEAICE_GROWTH 
             saltPlumeFlux(I,J,bi,bj)=
./pkg/seaice/seaice_growth.F 2080 SEAICE_GROWTH 
     &            HEFFM(I,J,bi,bj)*recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2081 SEAICE_GROWTH 
     &            *(ONE-SEAICE_saltFrac)*salt(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2085 SEAICE_GROWTH 
             saltPlumeFlux(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_growth.F 2090 SEAICE_GROWTH 
           IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 )
./pkg/seaice/seaice_growth.F 2091 SEAICE_GROWTH 
     &          saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 2095 SEAICE_GROWTH 
          HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) +
./pkg/seaice/seaice_growth.F 2096 SEAICE_GROWTH 
     &         saltFlux(I,J,bi,bj) * SEAICE_deltaTtherm
./pkg/seaice/seaice_growth.F 2097 SEAICE_GROWTH 
          saltFlux(I,J,bi,bj) =
./pkg/seaice/seaice_growth.F 2098 SEAICE_GROWTH 
     &         saltFlux(I,J,bi,bj) + saltFluxAdjust(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2107 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,5)=HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2164 SEAICE_GROWTH 
          QNET(I,J,bi,bj) = r_QbyATM_cover(I,J) + r_QbyATM_open(I,J)
./pkg/seaice/seaice_growth.F 2168 SEAICE_GROWTH 
     &           + d_HEFFbyNEG(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2170 SEAICE_GROWTH 
     &           + d_HEFFbyRLX(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2172 SEAICE_GROWTH 
     &           + d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE
./pkg/seaice/seaice_growth.F 2174 SEAICE_GROWTH 
     &             snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J))
./pkg/seaice/seaice_growth.F 2175 SEAICE_GROWTH 
     &           ) * maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2180 SEAICE_GROWTH 
          QSW(I,J,bi,bj)  = a_QSWbyATM_cover(I,J) + a_QSWbyATM_open(I,J)
./pkg/seaice/seaice_growth.F 2189 SEAICE_GROWTH 
          QNET(I,J,bi,bj) = QNET(I,J,bi,bj)*convertHI2Q
./pkg/seaice/seaice_growth.F 2190 SEAICE_GROWTH 
          QSW(I,J,bi,bj)  = QSW(I,J,bi,bj)*convertHI2Q
./pkg/seaice/seaice_growth.F 2224 SEAICE_GROWTH 
           tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 2228 SEAICE_GROWTH 
     &       + d_HEFFbyNEG(I,J,bi,bj)+ d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE )
./pkg/seaice/seaice_growth.F 2230 SEAICE_GROWTH 
     &       - snowPrecip(i,j,bi,bj) * (ONE-AREApreTH(I,J)) )
./pkg/seaice/seaice_growth.F 2239 SEAICE_GROWTH 
     &         HeatCapacity_Cp * theta(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2242 SEAICE_GROWTH 
     &       ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2253 SEAICE_GROWTH 
     &       QNET(I,J,bi,bj)=QNET(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_growth.F 2259 SEAICE_GROWTH 
     &        'SIaaflux',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2276 SEAICE_GROWTH 
           SIatmQnt(I,J,bi,bj) =
./pkg/seaice/seaice_growth.F 2277 SEAICE_GROWTH 
     &            maskC(I,J,kSurface,bi,bj)*convertHI2Q*(
./pkg/seaice/seaice_growth.F 2283 SEAICE_GROWTH 
           tmpscal1 = rhoConstFresh*maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2287 SEAICE_GROWTH 
           tmpscal2=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*
./pkg/seaice/seaice_growth.F 2288 SEAICE_GROWTH 
     &       ( ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) )
./pkg/seaice/seaice_growth.F 2291 SEAICE_GROWTH 
     &         - RUNOFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2307 SEAICE_GROWTH 
     &        ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2310 SEAICE_GROWTH 
     &        ( temp_EvPrRn - theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2314 SEAICE_GROWTH 
           SItflux(I,J,bi,bj)= SIatmQnt(I,J,bi,bj)-tmpscal1-tmpscal2
./pkg/seaice/seaice_growth.F 2329 SEAICE_GROWTH 
     &             +d_HEFFbyNEG(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2331 SEAICE_GROWTH 
     &             +d_HEFFbyRLX(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2333 SEAICE_GROWTH 
     &             +d_HSNWbyNEG(I,J,bi,bj)*SNOW2ICE
./pkg/seaice/seaice_growth.F 2336 SEAICE_GROWTH 
          EmPmR(I,J,bi,bj)  = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 2337 SEAICE_GROWTH 
     &         ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) )
./pkg/seaice/seaice_growth.F 2340 SEAICE_GROWTH 
     &         - RUNOFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2347 SEAICE_GROWTH 
     &         - fw2ObyRidge(I,J,bi,bj)*recip_deltaTtherm
./pkg/seaice/seaice_growth.F 2348 SEAICE_GROWTH 
     &           * maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2351 SEAICE_GROWTH 
           SIatmFW(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 2352 SEAICE_GROWTH 
     &          EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) )
./pkg/seaice/seaice_growth.F 2353 SEAICE_GROWTH 
     &          - PRECIP(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2355 SEAICE_GROWTH 
     &          - RUNOFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2367 SEAICE_GROWTH 
            frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 2368 SEAICE_GROWTH 
     &           PRECIP(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2369 SEAICE_GROWTH 
     &           - EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) )
./pkg/seaice/seaice_growth.F 2371 SEAICE_GROWTH 
     &           + RUNOFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2385 SEAICE_GROWTH 
          frWtrAtm(I,J,bi,bj) = maskC(I,J,kSurface,bi,bj)*(
./pkg/seaice/seaice_growth.F 2386 SEAICE_GROWTH 
     &         PRECIP(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2387 SEAICE_GROWTH 
     &         - EVAP(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2390 SEAICE_GROWTH 
     &         + RUNOFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2418 SEAICE_GROWTH 
           tmpscal1 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2419 SEAICE_GROWTH 
     &              + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow
./pkg/seaice/seaice_growth.F 2422 SEAICE_GROWTH 
           tmpscal2 = HEFF(I,J,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_growth.F 2423 SEAICE_GROWTH 
     &              + HSNOW(I,J,bi,bj)*SEAICE_rhoSnow
./pkg/seaice/seaice_growth.F 2425 SEAICE_GROWTH 
           sIceLoad(i,j,bi,bj) = tmpscal2
./pkg/seaice/seaice_growth.F 2433 SEAICE_GROWTH 
        FWFsiTile(bi,bj) = 0. _d 0
./pkg/seaice/seaice_growth.F 2437 SEAICE_GROWTH 
           FWFsiTile(bi,bj) =
./pkg/seaice/seaice_growth.F 2438 SEAICE_GROWTH 
     &       FWFsiTile(bi,bj) + SIatmFW(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 2439 SEAICE_GROWTH 
     &       * rA(i,j,bi,bj) * maskInC(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 2444 SEAICE_GROWTH 
        FWF2HFsiTile(bi,bj) = 0. _d 0
./pkg/seaice/seaice_growth.F 2448 SEAICE_GROWTH 
           FWF2HFsiTile(bi,bj) = FWF2HFsiTile(bi,bj) +
./pkg/seaice/seaice_growth.F 2449 SEAICE_GROWTH 
     &       HeatCapacity_Cp * theta(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2450 SEAICE_GROWTH 
     &       * rA(i,j,bi,bj) * maskInC(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 2454 SEAICE_GROWTH 
        HFsiTile(bi,bj) = 0. _d 0
./pkg/seaice/seaice_growth.F 2458 SEAICE_GROWTH 
           HFsiTile(bi,bj) =
./pkg/seaice/seaice_growth.F 2459 SEAICE_GROWTH 
     &       HFsiTile(bi,bj) + SItflux(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 2460 SEAICE_GROWTH 
     &       * rA(i,j,bi,bj) * maskInC(i,j,bi,bj)
./pkg/seaice/seaice_growth.F 2474 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2476 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2478 SEAICE_GROWTH 
     &      tmpscal1,1,'SIaQbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2480 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2482 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2484 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2486 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdHbFLO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2488 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdSbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2490 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdSbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2492 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbATO',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2494 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbATC',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2496 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdAbOCN',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2498 SEAICE_GROWTH 
     &      convertHI2Q,1, 'SIqneto ',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2500 SEAICE_GROWTH 
     &      convertHI2Q,1, 'SIqneti ',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2504 SEAICE_GROWTH 
            DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2506 SEAICE_GROWTH 
            DIAGarrayB(I,J) =  AREA(I,J,bi,bj)-AREApreTH(I,J)
./pkg/seaice/seaice_growth.F 2510 SEAICE_GROWTH 
     &      'SIsnPrcp',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2512 SEAICE_GROWTH 
     &      tmpscal1,1,'SIdA    ',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2515 SEAICE_GROWTH 
           DIAGarrayB(I,J) = maskC(I,J,kSurface,bi,bj) *
./pkg/seaice/seaice_growth.F 2520 SEAICE_GROWTH 
     &      'SIfwSubl',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2525 SEAICE_GROWTH 
           DIAGarrayA(I,J) = maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2529 SEAICE_GROWTH 
           DIAGarrayC(I,J) = maskC(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 2533 SEAICE_GROWTH 
           tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) )
./pkg/seaice/seaice_growth.F 2538 SEAICE_GROWTH 
           DIAGarrayB(I,J) = -maskC(I,J,kSurface,bi,bj)*rhoConstFresh
./pkg/seaice/seaice_growth.F 2542 SEAICE_GROWTH 
         CALL DIAGNOSTICS_FILL(DIAGarrayA,'SIacSubl',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2543 SEAICE_GROWTH 
         CALL DIAGNOSTICS_FILL(DIAGarrayC,'SIrsSubl',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2544 SEAICE_GROWTH 
         CALL DIAGNOSTICS_FILL(DIAGarrayB,'SIhl    ',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2548 SEAICE_GROWTH 
     &        'SIgrsLT ',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 2595 SEAICE_GROWTH 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_growth.F 2599 SEAICE_GROWTH 
            empmr(i,j,bi,bj) = empmr(i,j,bi,bj) - tmpscal0
./pkg/seaice/seaice_growth.F 2600 SEAICE_GROWTH 
            SIatmFW(i,j,bi,bj) = SIatmFW(i,j,bi,bj) - tmpscal0
./pkg/seaice/seaice_growth.F 2609 SEAICE_GROWTH 
     &       ( ZERO + HeatCapacity_Cp * theta(I,J,kSurface,bi,bj) )
./pkg/seaice/seaice_growth.F 2612 SEAICE_GROWTH 
     &       HeatCapacity_Cp*(temp_EvPrRn - theta(I,J,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 2616 SEAICE_GROWTH 
            SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal0*tmpscal1
./pkg/seaice/seaice_growth.F 2632 SEAICE_GROWTH 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_growth.F 2636 SEAICE_GROWTH 
            SItflux(i,j,bi,bj) = SItflux(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2637 SEAICE_GROWTH 
            qnet(i,j,bi,bj) = qnet(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 2638 SEAICE_GROWTH 
            SIatmQnt(i,j,bi,bj) = SIatmQnt(i,j,bi,bj) - tmpscal2
./pkg/seaice/seaice_growth.F 376 SEAICE_GROWTH 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_growth.F 382 SEAICE_GROWTH 
        act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_growth.F 480 SEAICE_GROWTH 
          frWtrAtm(I,J,bi,bj)        = 0.0 _d 0
./pkg/seaice/seaice_growth.F 495 SEAICE_GROWTH 
          HEFFpreTH(I,J)=HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 496 SEAICE_GROWTH 
          HSNWpreTH(I,J)=HSNOW(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 497 SEAICE_GROWTH 
          AREApreTH(I,J)=AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 499 SEAICE_GROWTH 
          DIAGarrayB(I,J) = AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 500 SEAICE_GROWTH 
          DIAGarrayC(I,J) = HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 501 SEAICE_GROWTH 
          DIAGarrayD(I,J) = HSNOW(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 504 SEAICE_GROWTH 
          SItrHEFF(I,J,bi,bj,1)=HEFF(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 505 SEAICE_GROWTH 
          SItrAREA(I,J,bi,bj,2)=AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 513 SEAICE_GROWTH 
           HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 514 SEAICE_GROWTH 
           HSNWITDpreTH(I,J,IT)=HSNOWITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 515 SEAICE_GROWTH 
           AREAITDpreTH(I,J,IT)=AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 518 SEAICE_GROWTH 
           IF (AREA(I,J,bi,bj) .GT. ZERO) THEN
./pkg/seaice/seaice_growth.F 519 SEAICE_GROWTH 
            areaFracFactor(I,J,IT)=AREAITD(I,J,IT,bi,bj)/AREA(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 536 SEAICE_GROWTH 
           SItrHEFF(I,J,bi,bj,iTr)=ZERO
./pkg/seaice/seaice_growth.F 543 SEAICE_GROWTH 
          SItrAREA(I,J,bi,bj,3)=ZERO
./pkg/seaice/seaice_growth.F 551 SEAICE_GROWTH 
         CALL DIAGNOSTICS_FILL(DIAGarrayB,'SIareaPT',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 552 SEAICE_GROWTH 
         CALL DIAGNOSTICS_FILL(DIAGarrayC,'SIheffPT',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 553 SEAICE_GROWTH 
         CALL DIAGNOSTICS_FILL(DIAGarrayD,'SIhsnoPT',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 559 SEAICE_GROWTH 
     I          SItracer(1-OLx,1-OLy,bi,bj,iTr),HEFF(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_growth.F 560 SEAICE_GROWTH 
     I          ONE, 1, diagName,0,1,2,bi,bj,myThid )
./pkg/seaice/seaice_growth.F 563 SEAICE_GROWTH 
     I          SItracer(1-OLx,1-OLy,bi,bj,iTr),AREA(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_growth.F 564 SEAICE_GROWTH 
     I          ONE, 1, diagName,0,1,2,bi,bj,myThid )
./pkg/seaice/seaice_growth.F 598 SEAICE_GROWTH 
          AREAforAtmFW(I,J,bi,bj) = AREApreTH(I,J)
./pkg/seaice/seaice_growth.F 716 SEAICE_GROWTH 
          TmixLoc(i,j) = theta(i,j,kSurface,bi,bj)+celsius2K
./pkg/seaice/seaice_growth.F 718 SEAICE_GROWTH 
          UG(I,J) = MAX(SEAICE_EPS,wspeed(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 733 SEAICE_GROWTH 
     I       bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_growth.F 743 SEAICE_GROWTH 
     &          (uWind(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 744 SEAICE_GROWTH 
     &          +0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 745 SEAICE_GROWTH 
     &                    +uVel(i+1,j,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 746 SEAICE_GROWTH 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2
./pkg/seaice/seaice_growth.F 747 SEAICE_GROWTH 
     &          +(vWind(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 748 SEAICE_GROWTH 
     &          +0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 749 SEAICE_GROWTH 
     &                    +vVel(i,j+1,kSurface,bi,bj))
./pkg/seaice/seaice_growth.F 750 SEAICE_GROWTH 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2
./pkg/seaice/seaice_growth.F 774 SEAICE_GROWTH 
           ticeInMult(I,J,IT)  = TICES(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 775 SEAICE_GROWTH 
           ticeOutMult(I,J,IT) = TICES(I,J,IT,bi,bj)
./pkg/seaice/seaice_growth.F 776 SEAICE_GROWTH 
           TICES(I,J,IT,bi,bj) = ZERO
./pkg/seaice/seaice_growth.F 824 SEAICE_GROWTH 
     I        bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_growth.F 861 SEAICE_GROWTH 
           TICES(I,J,IT,bi,bj) = ticeOutMult(I,J,IT)
./pkg/seaice/seaice_growth.F 895 SEAICE_GROWTH 
     &     'SIactLHF',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 897 SEAICE_GROWTH 
     &     'SImaxLHF',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_growth.F 95 SEAICE_GROWTH 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_init_varia.F 109 SEAICE_INIT_VARIA 
           k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_init_varia.F 110 SEAICE_INIT_VARIA 
           k2AtZ(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_init_varia.F 118 SEAICE_INIT_VARIA 
           k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 119 SEAICE_INIT_VARIA 
     &          * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 120 SEAICE_INIT_VARIA 
     &          * _recip_dxF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 125 SEAICE_INIT_VARIA 
           k1AtZ(I,J,bi,bj) = _recip_dyU(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 126 SEAICE_INIT_VARIA 
     &          * ( _dyC(I,J,bi,bj) - _dyC(I-1,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 127 SEAICE_INIT_VARIA 
     &          * _recip_dxV(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 132 SEAICE_INIT_VARIA 
           k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 133 SEAICE_INIT_VARIA 
     &          * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 134 SEAICE_INIT_VARIA 
     &          * _recip_dyF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 139 SEAICE_INIT_VARIA 
           k2AtZ(I,J,bi,bj) = _recip_dxV(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 140 SEAICE_INIT_VARIA 
     &          * ( _dxC(I,J,bi,bj) - _dxC(I,J-1,bi,bj) )
./pkg/seaice/seaice_init_varia.F 141 SEAICE_INIT_VARIA 
     &          * _recip_dyU(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 148 SEAICE_INIT_VARIA 
          k1AtC(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 149 SEAICE_INIT_VARIA 
          k1AtU(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 150 SEAICE_INIT_VARIA 
          k1AtV(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 151 SEAICE_INIT_VARIA 
          k2AtC(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 152 SEAICE_INIT_VARIA 
          k2AtU(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 153 SEAICE_INIT_VARIA 
          k2AtV(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 165 SEAICE_INIT_VARIA 
           k2AtC(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_init_varia.F 166 SEAICE_INIT_VARIA 
           k2AtU(I,J,bi,bj) = - _tanPhiAtU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_init_varia.F 167 SEAICE_INIT_VARIA 
           k2AtV(I,J,bi,bj) = - _tanPhiAtV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/seaice_init_varia.F 175 SEAICE_INIT_VARIA 
           k1AtC(I,J,bi,bj) = _recip_dyF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 176 SEAICE_INIT_VARIA 
     &          * ( _dyG(I+1,J,bi,bj) - _dyG(I,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 177 SEAICE_INIT_VARIA 
     &          * _recip_dxF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 182 SEAICE_INIT_VARIA 
           k1AtU(I,J,bi,bj) = _recip_dyG(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 183 SEAICE_INIT_VARIA 
     &          * ( _dyF(I,J,bi,bj) - _dyF(I-1,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 184 SEAICE_INIT_VARIA 
     &          * _recip_dxC(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 189 SEAICE_INIT_VARIA 
           k1AtV(I,J,bi,bj) = _recip_dyC(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 190 SEAICE_INIT_VARIA 
     &          * ( _dyU(I+1,J,bi,bj) - _dyU(I,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 191 SEAICE_INIT_VARIA 
     &          * _recip_dxG(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 196 SEAICE_INIT_VARIA 
           k2AtC(I,J,bi,bj) = _recip_dxF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 197 SEAICE_INIT_VARIA 
     &          * ( _dxG(I,J+1,bi,bj) - _dxG(I,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 198 SEAICE_INIT_VARIA 
     &          * _recip_dyF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 203 SEAICE_INIT_VARIA 
           k2AtU(I,J,bi,bj) = _recip_dxC(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 204 SEAICE_INIT_VARIA 
     &          * ( _dxV(I,J+1,bi,bj) - _dxV(I,J,bi,bj) )
./pkg/seaice/seaice_init_varia.F 205 SEAICE_INIT_VARIA 
     &          * _recip_dyG(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 210 SEAICE_INIT_VARIA 
           k2AtV(I,J,bi,bj) = _recip_dxG(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 211 SEAICE_INIT_VARIA 
     &          * ( _dxF(I,J,bi,bj) - _dxF(I,J-1,bi,bj) )
./pkg/seaice/seaice_init_varia.F 212 SEAICE_INIT_VARIA 
     &          * _recip_dyC(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 222 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 226 SEAICE_INIT_VARIA 
          KGEO(i,j,bi,bj)   = 0
./pkg/seaice/seaice_init_varia.F 232 SEAICE_INIT_VARIA 
          KGEO(i,j,bi,bj) = 1
./pkg/seaice/seaice_init_varia.F 234 SEAICE_INIT_VARIA 
          IF (klowc(i,j,bi,bj) .LT. 2) THEN
./pkg/seaice/seaice_init_varia.F 235 SEAICE_INIT_VARIA 
           KGEO(i,j,bi,bj) = 1
./pkg/seaice/seaice_init_varia.F 237 SEAICE_INIT_VARIA 
           KGEO(i,j,bi,bj) = 2
./pkg/seaice/seaice_init_varia.F 238 SEAICE_INIT_VARIA 
           DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND.
./pkg/seaice/seaice_init_varia.F 239 SEAICE_INIT_VARIA 
     &          KGEO(i,j,bi,bj) .LT. (klowc(i,j,bi,bj)-1) )
./pkg/seaice/seaice_init_varia.F 240 SEAICE_INIT_VARIA 
              KGEO(i,j,bi,bj) = KGEO(i,j,bi,bj) + 1
./pkg/seaice/seaice_init_varia.F 252 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 256 SEAICE_INIT_VARIA 
          HEFF(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 257 SEAICE_INIT_VARIA 
          AREA(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 261 SEAICE_INIT_VARIA 
           AREAITD(i,j,k,bi,bj) =0. _d 0
./pkg/seaice/seaice_init_varia.F 262 SEAICE_INIT_VARIA 
           HEFFITD(i,j,k,bi,bj) =0. _d 0
./pkg/seaice/seaice_init_varia.F 266 SEAICE_INIT_VARIA 
          UICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 267 SEAICE_INIT_VARIA 
          VICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 269 SEAICE_INIT_VARIA 
          uice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 270 SEAICE_INIT_VARIA 
          vice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 273 SEAICE_INIT_VARIA 
          uIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 274 SEAICE_INIT_VARIA 
          vIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 275 SEAICE_INIT_VARIA 
          ETA (i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 276 SEAICE_INIT_VARIA 
          etaZ(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 277 SEAICE_INIT_VARIA 
          ZETA(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 278 SEAICE_INIT_VARIA 
          FORCEX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 279 SEAICE_INIT_VARIA 
          FORCEY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 281 SEAICE_INIT_VARIA 
          seaiceMassC(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 282 SEAICE_INIT_VARIA 
          seaiceMassU(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 283 SEAICE_INIT_VARIA 
          seaiceMassV(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 284 SEAICE_INIT_VARIA 
          stressDivergenceX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 285 SEAICE_INIT_VARIA 
          stressDivergenceY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 287 SEAICE_INIT_VARIA 
          seaice_sigma1 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 288 SEAICE_INIT_VARIA 
          seaice_sigma2 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 289 SEAICE_INIT_VARIA 
          seaice_sigma12(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 292 SEAICE_INIT_VARIA 
          uIceC(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 293 SEAICE_INIT_VARIA 
          vIceC(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 294 SEAICE_INIT_VARIA 
          AMASS(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 295 SEAICE_INIT_VARIA 
          DAIRN(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 296 SEAICE_INIT_VARIA 
          WINDX(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 297 SEAICE_INIT_VARIA 
          WINDY(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 298 SEAICE_INIT_VARIA 
          GWATX(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 299 SEAICE_INIT_VARIA 
          GWATY(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 301 SEAICE_INIT_VARIA 
          DWATN(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 302 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 303 SEAICE_INIT_VARIA 
          FORCEX0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F 304 SEAICE_INIT_VARIA 
          FORCEY0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F 305 SEAICE_INIT_VARIA 
          ZMAX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 306 SEAICE_INIT_VARIA 
          ZMIN(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 307 SEAICE_INIT_VARIA 
          HSNOW(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 311 SEAICE_INIT_VARIA 
           HSNOWITD(i,j,k,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 316 SEAICE_INIT_VARIA 
          HSALT(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 320 SEAICE_INIT_VARIA 
           SItracer(i,j,bi,bj,iTr) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 321 SEAICE_INIT_VARIA 
           SItrBucket(i,j,bi,bj,iTr) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 323 SEAICE_INIT_VARIA 
           if (SItrName(iTr).EQ.'one') SItracer(i,j,bi,bj,iTr)=1. _d 0
./pkg/seaice/seaice_init_varia.F 326 SEAICE_INIT_VARIA 
           SItrHEFF (i,j,bi,bj,jTh) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 329 SEAICE_INIT_VARIA 
           SItrAREA (i,j,bi,bj,jTh) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 333 SEAICE_INIT_VARIA 
            TICES(i,j,k,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 335 SEAICE_INIT_VARIA 
          TAUX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 336 SEAICE_INIT_VARIA 
          TAUY(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 338 SEAICE_INIT_VARIA 
          uHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 339 SEAICE_INIT_VARIA 
          vHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 340 SEAICE_INIT_VARIA 
          icevolMeanCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 342 SEAICE_INIT_VARIA 
          saltWtrIce(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 343 SEAICE_INIT_VARIA 
          frWtrIce(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 345 SEAICE_INIT_VARIA 
          frWtrAtm(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 346 SEAICE_INIT_VARIA 
          AREAforAtmFW(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 355 SEAICE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 357 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( FUtave   , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 358 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( FVtave   , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 359 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 360 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 361 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( QSWtave  , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 362 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 363 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 364 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 365 SEAICE_INIT_VARIA 
        CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_init_varia.F 366 SEAICE_INIT_VARIA 
        SEAICE_timeAve(bi,bj) = ZERO
./pkg/seaice/seaice_init_varia.F 375 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 379 SEAICE_INIT_VARIA 
          seaiceMaskU(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 380 SEAICE_INIT_VARIA 
          seaiceMaskV(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 381 SEAICE_INIT_VARIA 
          mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i-1,j  ,bi,bj)
./pkg/seaice/seaice_init_varia.F 382 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 383 SEAICE_INIT_VARIA 
          mask_uice=HEFFM(i,j,bi,bj)+HEFFM(i  ,j-1,bi,bj)
./pkg/seaice/seaice_init_varia.F 384 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 391 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 399 SEAICE_INIT_VARIA 
          J_obc = OB_Js(i,bi,bj)
./pkg/seaice/seaice_init_varia.F 401 SEAICE_INIT_VARIA 
           seaiceMaskU(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 402 SEAICE_INIT_VARIA 
           seaiceMaskV(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 407 SEAICE_INIT_VARIA 
          I_obc = OB_Iw(j,bi,bj)
./pkg/seaice/seaice_init_varia.F 409 SEAICE_INIT_VARIA 
           seaiceMaskU(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 410 SEAICE_INIT_VARIA 
           seaiceMaskV(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 420 SEAICE_INIT_VARIA 
           TICES(i,j,k,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init_varia.F 423 SEAICE_INIT_VARIA 
          AMASS      (i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 425 SEAICE_INIT_VARIA 
          seaiceMassC(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 426 SEAICE_INIT_VARIA 
          seaiceMassU(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 427 SEAICE_INIT_VARIA 
          seaiceMassV(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 42 SEAICE_INIT_VARIA 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_init_varia.F 465 SEAICE_INIT_VARIA 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 469 SEAICE_INIT_VARIA 
           HEFF(i,j,bi,bj)=SEAICE_initialHEFF*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 470 SEAICE_INIT_VARIA 
           UICE(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init_varia.F 471 SEAICE_INIT_VARIA 
           VICE(i,j,bi,bj)=ZERO
./pkg/seaice/seaice_init_varia.F 484 SEAICE_INIT_VARIA 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 488 SEAICE_INIT_VARIA 
            uIce(i,j,bi,bj) = uIce(i,j,bi,bj)*seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 489 SEAICE_INIT_VARIA 
            vIce(i,j,bi,bj) = vIce(i,j,bi,bj)*seaiceMaskV(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 502 SEAICE_INIT_VARIA 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 506 SEAICE_INIT_VARIA 
            HEFF(i,j,bi,bj) = MAX(HEFF(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F 513 SEAICE_INIT_VARIA 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 517 SEAICE_INIT_VARIA 
           IF(HEFF(i,j,bi,bj).GT.ZERO) AREA(i,j,bi,bj)=ONE
./pkg/seaice/seaice_init_varia.F 527 SEAICE_INIT_VARIA 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 531 SEAICE_INIT_VARIA 
            AREA(i,j,bi,bj) = MAX(AREA(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F 532 SEAICE_INIT_VARIA 
            AREA(i,j,bi,bj) = MIN(AREA(i,j,bi,bj),ONE)
./pkg/seaice/seaice_init_varia.F 533 SEAICE_INIT_VARIA 
            IF ( AREA(i,j,bi,bj) .LE. ZERO ) HEFF(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_init_varia.F 534 SEAICE_INIT_VARIA 
            IF ( HEFF(i,j,bi,bj) .LE. ZERO ) AREA(i,j,bi,bj) = ZERO
./pkg/seaice/seaice_init_varia.F 541 SEAICE_INIT_VARIA 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 545 SEAICE_INIT_VARIA 
           HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 555 SEAICE_INIT_VARIA 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 559 SEAICE_INIT_VARIA 
            HSNOW(i,j,bi,bj) = MAX(HSNOW(i,j,bi,bj),ZERO)
./pkg/seaice/seaice_init_varia.F 567 SEAICE_INIT_VARIA 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 571 SEAICE_INIT_VARIA 
           AREAITD(I,J,1,bi,bj)   = AREA(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 572 SEAICE_INIT_VARIA 
           HEFFITD(I,J,1,bi,bj)   = HEFF(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 573 SEAICE_INIT_VARIA 
           HSNOWITD(I,J,1,bi,bj)  = HSNOW(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 574 SEAICE_INIT_VARIA 
           opnWtrFrac(I,J,bi,bj)  = 1. _d 0 - AREA(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 575 SEAICE_INIT_VARIA 
           fw2ObyRidge(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 578 SEAICE_INIT_VARIA 
         CALL SEAICE_ITD_REDIST(bi, bj, baseTime, nIter0, myThid)
./pkg/seaice/seaice_init_varia.F 584 SEAICE_INIT_VARIA 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 588 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 618 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 61 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 622 SEAICE_INIT_VARIA 
          AREAforAtmFW(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 656 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 659 SEAICE_INIT_VARIA 
         scalarProductMetric(i,1,bi,bj) =
./pkg/seaice/seaice_init_varia.F 65 SEAICE_INIT_VARIA 
          HEFFM(i,j,bi,bj)       = 0. _d 0
./pkg/seaice/seaice_init_varia.F 660 SEAICE_INIT_VARIA 
     &        scalarProductMetric(i,1,bi,bj)/globalArea
./pkg/seaice/seaice_init_varia.F 668 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 672 SEAICE_INIT_VARIA 
          ZETA(i,j,bi,bj)   = HEFF(i,j,bi,bj)*(1.0 _d 11)
./pkg/seaice/seaice_init_varia.F 673 SEAICE_INIT_VARIA 
          ETA(i,j,bi,bj)    = ZETA(i,j,bi,bj)/SEAICE_eccen**2
./pkg/seaice/seaice_init_varia.F 674 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = PSTAR*HEFF(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 675 SEAICE_INIT_VARIA 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_init_varia.F 676 SEAICE_INIT_VARIA 
          ZMAX(I,J,bi,bj)   = SEAICE_zetaMaxFac*PRESS0(I,J,bi,bj)
./pkg/seaice/seaice_init_varia.F 677 SEAICE_INIT_VARIA 
          ZMIN(i,j,bi,bj)   = SEAICE_zetaMin
./pkg/seaice/seaice_init_varia.F 678 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = PRESS0(i,j,bi,bj)*HEFFM(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 684 SEAICE_INIT_VARIA 
           sIceLoad(i,j,bi,bj) = HEFF(i,j,bi,bj)*SEAICE_rhoIce
./pkg/seaice/seaice_init_varia.F 685 SEAICE_INIT_VARIA 
     &                         + HSNOW(i,j,bi,bj)*SEAICE_rhoSnow
./pkg/seaice/seaice_init_varia.F 70 SEAICE_INIT_VARIA 
          HEFFM(i,j,bi,bj)= 1. _d 0
./pkg/seaice/seaice_init_varia.F 71 SEAICE_INIT_VARIA 
          IF (_hFacC(i,j,kSurface,bi,bj).eq.0.)
./pkg/seaice/seaice_init_varia.F 72 SEAICE_INIT_VARIA 
     &         HEFFM(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F 78 SEAICE_INIT_VARIA 
          UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 79 SEAICE_INIT_VARIA 
          mask_uice=HEFFM(i,j,  bi,bj)+HEFFM(i-1,j-1,bi,bj)
./pkg/seaice/seaice_init_varia.F 80 SEAICE_INIT_VARIA 
     &             +HEFFM(i,j-1,bi,bj)+HEFFM(i-1,j,  bi,bj)
./pkg/seaice/seaice_init_varia.F 81 SEAICE_INIT_VARIA 
          IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0
./pkg/seaice/seaice_init_varia.F 89 SEAICE_INIT_VARIA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_init_varia.F 94 SEAICE_INIT_VARIA 
          k1AtC(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 95 SEAICE_INIT_VARIA 
          k1AtZ(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 96 SEAICE_INIT_VARIA 
          k2AtC(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_varia.F 97 SEAICE_INIT_VARIA 
          k2AtZ(I,J,bi,bj) = 0.0 _d 0
./model/src/freeze_surface.F 41 FREEZE_SURFACE 
      INTEGER bi,bj,i,j,k
./model/src/freeze_surface.F 54 FREEZE_SURFACE 
      DO bj=myByLo(myThid),myByHi(myThid)
./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/seaice/seaice_itd_pickup.F 104 SEAICE_ITD_PICKUP 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_itd_pickup.F 108 SEAICE_ITD_PICKUP 
             AREAITD(i,j,1,bi,bj)  = AREA(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F 109 SEAICE_ITD_PICKUP 
             HEFFITD(i,j,1,bi,bj)  = HEFF(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F 110 SEAICE_ITD_PICKUP 
             HSNOWITD(i,j,1,bi,bj) = HSNOW(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F 120 SEAICE_ITD_PICKUP 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_itd_pickup.F 126 SEAICE_ITD_PICKUP 
             LND_mu = log(HEFF(i,j,bi,bj)/AREA(i,j,bi,bj))
./pkg/seaice/seaice_itd_pickup.F 140 SEAICE_ITD_PICKUP 
     &             * AREA(i,j,bi,bj)
./pkg/seaice/seaice_itd_pickup.F 146 SEAICE_ITD_PICKUP 
              AREAITD(i,j,k,bi,bj) = AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_pickup.F 148 SEAICE_ITD_PICKUP 
              HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_pickup.F 163 SEAICE_ITD_PICKUP 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_itd_pickup.F 165 SEAICE_ITD_PICKUP 
        CALL SEAICE_ITD_REDIST( bi, bj, dummyTime, myIter, myThid)
./pkg/seaice/seaice_itd_pickup.F 166 SEAICE_ITD_PICKUP 
        CALL SEAICE_ITD_SUM( bi, bj, dummyTime, myIter, myThid)
./pkg/seaice/seaice_itd_pickup.F 74 SEAICE_ITD_PICKUP 
      INTEGER i, j, bi, bj, k
./pkg/seaice/seaice_itd_redist.F 10 SEAICE_ITD_REDIST 
     I     bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_itd_redist.F 112 SEAICE_ITD_REDIST 
     &     AREAITD(i,j,1,bi,bj) = openWater(i,j) + AREAITD(i,j,1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 124 SEAICE_ITD_REDIST 
          IF (AREAITD(i,j,k,bi,bj) .lt. 0.0) THEN
./pkg/seaice/seaice_itd_redist.F 127 SEAICE_ITD_REDIST 
           AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 128 SEAICE_ITD_REDIST 
     &                             + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 129 SEAICE_ITD_REDIST 
           AREAITD (i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 130 SEAICE_ITD_REDIST 
           HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 131 SEAICE_ITD_REDIST 
     &                             + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 132 SEAICE_ITD_REDIST 
           HEFFITD (i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 133 SEAICE_ITD_REDIST 
           HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 134 SEAICE_ITD_REDIST 
     &                             + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 135 SEAICE_ITD_REDIST 
           HSNOWITD(i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 153 SEAICE_ITD_REDIST 
          IF (HEFFITD(i,j,k,bi,bj) .gt.
./pkg/seaice/seaice_itd_redist.F 154 SEAICE_ITD_REDIST 
     &         Hlimit(k)*AREAITD(i,j,k,bi,bj)) THEN
./pkg/seaice/seaice_itd_redist.F 157 SEAICE_ITD_REDIST 
           AREAITD (i,j,k+1,bi,bj) = AREAITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 158 SEAICE_ITD_REDIST 
     &                             + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 159 SEAICE_ITD_REDIST 
           AREAITD (i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 160 SEAICE_ITD_REDIST 
           HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 161 SEAICE_ITD_REDIST 
     &                             + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 162 SEAICE_ITD_REDIST 
           HEFFITD (i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 163 SEAICE_ITD_REDIST 
           HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 164 SEAICE_ITD_REDIST 
     &                             + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 165 SEAICE_ITD_REDIST 
           HSNOWITD(i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 180 SEAICE_ITD_REDIST 
          IF (HEFFITD(i,j,k,bi,bj) .lt.
./pkg/seaice/seaice_itd_redist.F 181 SEAICE_ITD_REDIST 
     &         Hlimit(k-1)*AREAITD(i,j,k,bi,bj)) THEN
./pkg/seaice/seaice_itd_redist.F 184 SEAICE_ITD_REDIST 
           AREAITD (i,j,k-1,bi,bj) = AREAITD (i,j,k-1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 185 SEAICE_ITD_REDIST 
     &                             + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 186 SEAICE_ITD_REDIST 
           AREAITD (i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 187 SEAICE_ITD_REDIST 
           HEFFITD (i,j,k-1,bi,bj) = HEFFITD (i,j,k-1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 188 SEAICE_ITD_REDIST 
     &                             + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 189 SEAICE_ITD_REDIST 
           HEFFITD (i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 190 SEAICE_ITD_REDIST 
           HSNOWITD(i,j,k-1,bi,bj) = HSNOWITD(i,j,k-1,bi,bj)
./pkg/seaice/seaice_itd_redist.F 191 SEAICE_ITD_REDIST 
     &                             + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_redist.F 192 SEAICE_ITD_REDIST 
           HSNOWITD(i,j,k  ,bi,bj) = ZERO
./pkg/seaice/seaice_itd_redist.F 57 SEAICE_ITD_REDIST 
      INTEGER bi,bj
./pkg/seaice/seaice_itd_redist.F 93 SEAICE_ITD_REDIST 
         openWater(i,j) = openWater(i,j) - AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_itd_sum.F 10 SEAICE_ITD_SUM 
     I     bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_itd_sum.F 52 SEAICE_ITD_SUM 
      INTEGER bi, bj
./pkg/seaice/seaice_itd_sum.F 80 SEAICE_ITD_SUM 
          AREA (i,j,bi,bj)=AREAITD (i,j,1,bi,bj)
./pkg/seaice/seaice_itd_sum.F 81 SEAICE_ITD_SUM 
          HEFF (i,j,bi,bj)=HEFFITD (i,j,1,bi,bj)
./pkg/seaice/seaice_itd_sum.F 82 SEAICE_ITD_SUM 
          HSNOW(i,j,bi,bj)=HSNOWITD(i,j,1,bi,bj)
./pkg/seaice/seaice_itd_sum.F 89 SEAICE_ITD_SUM 
           AREA (i,j,bi,bj) = AREA (i,j,bi,bj) + AREAITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_sum.F 90 SEAICE_ITD_SUM 
           HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj)
./pkg/seaice/seaice_itd_sum.F 91 SEAICE_ITD_SUM 
           HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj)
./pkg/seaice/seaice_jacvec.F 145 SEAICE_JACVEC 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_jacvec.F 149 SEAICE_JACVEC 
          utp(I,J,bi,bj) = uIce(I,J,bi,bj) + epsilon * duIce(I,J,bi,bj)
./pkg/seaice/seaice_jacvec.F 150 SEAICE_JACVEC 
          vtp(I,J,bi,bj) = vIce(I,J,bi,bj) + epsilon * dvIce(I,J,bi,bj)
./pkg/seaice/seaice_jacvec.F 164 SEAICE_JACVEC 
      DO bj = myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_jacvec.F 168 SEAICE_JACVEC 
          duIce(I,J,bi,bj) =
./pkg/seaice/seaice_jacvec.F 169 SEAICE_JACVEC 
     &         (uIceResP(I,J,bi,bj)-uIceRes(I,J,bi,bj))*reps
./pkg/seaice/seaice_jacvec.F 170 SEAICE_JACVEC 
          dvIce(I,J,bi,bj) =
./pkg/seaice/seaice_jacvec.F 171 SEAICE_JACVEC 
     &         (vIceResP(I,J,bi,bj)-vIceRes(I,J,bi,bj))*reps
./pkg/seaice/seaice_jacvec.F 68 SEAICE_JACVEC 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_jfnk.F 132 SEAICE_JFNK 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_jfnk.F 136 SEAICE_JFNK 
          uIceRes(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_jfnk.F 137 SEAICE_JFNK 
          vIceRes(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_jfnk.F 138 SEAICE_JFNK 
          duIce  (I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_jfnk.F 139 SEAICE_JFNK 
          dvIce  (I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_jfnk.F 145 SEAICE_JFNK 
          duIcNm1(I,J,bi,bj) = uIce(I,J,bi,bj) * bdfAlpha
./pkg/seaice/seaice_jfnk.F 146 SEAICE_JFNK 
     &         + ( uIce(I,J,bi,bj) - uIceNm1(I,J,bi,bj) ) * bdfFac
./pkg/seaice/seaice_jfnk.F 147 SEAICE_JFNK 
          dvIcNm1(I,J,bi,bj) = vIce(I,J,bi,bj) * bdfAlpha
./pkg/seaice/seaice_jfnk.F 148 SEAICE_JFNK 
     &         + ( vIce(I,J,bi,bj) - vIceNm1(I,J,bi,bj) ) * bdfFac
./pkg/seaice/seaice_jfnk.F 149 SEAICE_JFNK 
          uIceNm1(I,J,bi,bj) = uIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 150 SEAICE_JFNK 
          vIceNm1(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 160 SEAICE_JFNK 
          FORCEX(I,J,bi,bj) = FORCEX0(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 161 SEAICE_JFNK 
     &         + seaiceMassU(I,J,bi,bj)*duIcNm1(I,J,bi,bj)*recip_deltaT
./pkg/seaice/seaice_jfnk.F 162 SEAICE_JFNK 
          FORCEY(I,J,bi,bj) = FORCEY0(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 163 SEAICE_JFNK 
     &         + seaiceMassV(I,J,bi,bj)*dvIcNm1(I,J,bi,bj)*recip_deltaT
./pkg/seaice/seaice_jfnk.F 182 SEAICE_JFNK 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_jfnk.F 186 SEAICE_JFNK 
           zetaPre(I,J,bi,bj) =  zeta(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 187 SEAICE_JFNK 
            etaPre(I,J,bi,bj) =   eta(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 188 SEAICE_JFNK 
           etaZPre(I,J,bi,bj) =  etaZ(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 189 SEAICE_JFNK 
           dwatPre(I,J,bi,bj) = DWATN(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 298 SEAICE_JFNK 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_jfnk.F 302 SEAICE_JFNK 
            duIce(I,J,bi,bj)= 0. _d 0
./pkg/seaice/seaice_jfnk.F 303 SEAICE_JFNK 
            dvIce(I,J,bi,bj)= 0. _d 0
./pkg/seaice/seaice_jfnk.F 485 SEAICE_JFNK_UPDATE 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_jfnk.F 505 SEAICE_JFNK_UPDATE 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_jfnk.F 509 SEAICE_JFNK_UPDATE 
           uIce(I,J,bi,bj) = uIce(I,J,bi,bj)+facLS*duIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 510 SEAICE_JFNK_UPDATE 
           vIce(I,J,bi,bj) = vIce(I,J,bi,bj)+facLS*dvIce(I,J,bi,bj)
./pkg/seaice/seaice_jfnk.F 64 SEAICE_JFNK 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_lsr.F 1027 SEAICE_RESIDUAL 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_lsr.F 1034 SEAICE_RESIDUAL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 1038 SEAICE_RESIDUAL 
           uRes(i,j,bi,bj) = rhsU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1039 SEAICE_RESIDUAL 
     &            + uRt1(i,j,bi,bj)*uFld(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1040 SEAICE_RESIDUAL 
     &            + uRt2(i,j,bi,bj)*uFld(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1041 SEAICE_RESIDUAL 
     &            - ( AU(i,j,bi,bj)*uFld(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1042 SEAICE_RESIDUAL 
     &              + BU(i,j,bi,bj)*uFld( i ,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1043 SEAICE_RESIDUAL 
     &              + CU(i,j,bi,bj)*uFld(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1045 SEAICE_RESIDUAL 
           vRes(i,j,bi,bj) = rhsV(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1046 SEAICE_RESIDUAL 
     &            + vRt1(i,j,bi,bj)*vFld(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1047 SEAICE_RESIDUAL 
     &            + vRt2(i,j,bi,bj)*vFld(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1048 SEAICE_RESIDUAL 
     &            - ( AV(i,j,bi,bj)*vFld(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1049 SEAICE_RESIDUAL 
     &              + BV(i,j,bi,bj)*vFld(i, j ,bi,bj)
./pkg/seaice/seaice_lsr.F 1050 SEAICE_RESIDUAL 
     &              + CV(i,j,bi,bj)*vFld(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1057 SEAICE_RESIDUAL 
            residU = residU + uRes(i,j,bi,bj)*uRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1058 SEAICE_RESIDUAL 
     &                       *rAw(i,j,bi,bj)*maskInW(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1060 SEAICE_RESIDUAL 
     &                       *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1062 SEAICE_RESIDUAL 
            residV = residV + vRes(i,j,bi,bj)*vRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1063 SEAICE_RESIDUAL 
     &                       *rAs(i,j,bi,bj)*maskInS(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1065 SEAICE_RESIDUAL 
     &                       *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1155 SEAICE_LSR_CALC_COEFFS 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_lsr.F 1189 SEAICE_LSR_CALC_COEFFS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 1197 SEAICE_LSR_CALC_COEFFS 
          UXX(I,J) = _dyF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1198 SEAICE_LSR_CALC_COEFFS 
     &         * _recip_dxF(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1200 SEAICE_LSR_CALC_COEFFS 
          UXM(I,J) = _dyF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1201 SEAICE_LSR_CALC_COEFFS 
     &         * k1AtC(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 1207 SEAICE_LSR_CALC_COEFFS 
          UYY(I,J) = _dxV(I,J,bi,bj) * etaZloc(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1208 SEAICE_LSR_CALC_COEFFS 
     &         * _recip_dyU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1210 SEAICE_LSR_CALC_COEFFS 
          UYM(I,J) = _dxV(I,J,bi,bj) * etaZloc(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1211 SEAICE_LSR_CALC_COEFFS 
     &         * k2AtZ(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 1217 SEAICE_LSR_CALC_COEFFS 
          VXX(I,J) = _dyU(I,J,bi,bj) * etaZloc(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1218 SEAICE_LSR_CALC_COEFFS 
     &         * _recip_dxV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1220 SEAICE_LSR_CALC_COEFFS 
          VXM(I,J) = _dyU(I,J,bi,bj) * etaZloc(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1221 SEAICE_LSR_CALC_COEFFS 
     &         * k1AtZ(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 1227 SEAICE_LSR_CALC_COEFFS 
          VYY(I,J) = _dxF(I,J,bi,bj) * etaPlusZeta(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1228 SEAICE_LSR_CALC_COEFFS 
     &         * _recip_dyF(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1230 SEAICE_LSR_CALC_COEFFS 
          VYM(I,J) = _dxF(I,J,bi,bj) * zetaMinusEta(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1231 SEAICE_LSR_CALC_COEFFS 
     &         * k2AtC(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 1243 SEAICE_LSR_CALC_COEFFS 
          AU(I,J,bi,bj)= ( - UXX(I-1,J) + UXM(I-1,J) )
./pkg/seaice/seaice_lsr.F 1244 SEAICE_LSR_CALC_COEFFS 
     &         * seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1246 SEAICE_LSR_CALC_COEFFS 
          CU(I,J,bi,bj)= ( - UXX(I  ,J) - UXM(I  ,J) )
./pkg/seaice/seaice_lsr.F 1247 SEAICE_LSR_CALC_COEFFS 
     &         * seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1249 SEAICE_LSR_CALC_COEFFS 
          BU(I,J,bi,bj)=(ONE - seaiceMaskU(I,J,bi,bj)) +
./pkg/seaice/seaice_lsr.F 1252 SEAICE_LSR_CALC_COEFFS 
     &         ) * seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1254 SEAICE_LSR_CALC_COEFFS 
          uRt1(I,J,bi,bj)= UYY(I,J  ) + UYM(I,J  )
./pkg/seaice/seaice_lsr.F 1256 SEAICE_LSR_CALC_COEFFS 
          uRt2(I,J,bi,bj)= UYY(I,J+1) - UYM(I,J+1)
./pkg/seaice/seaice_lsr.F 1265 SEAICE_LSR_CALC_COEFFS 
          hFacM = seaiceMaskU(I,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1266 SEAICE_LSR_CALC_COEFFS 
          hFacP = seaiceMaskU(I,J+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1270 SEAICE_LSR_CALC_COEFFS 
          BU(I,J,bi,bj)=BU(I,J,bi,bj) + seaiceMaskU(I,J,bi,bj) *
./pkg/seaice/seaice_lsr.F 1274 SEAICE_LSR_CALC_COEFFS 
          uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * hFacM
./pkg/seaice/seaice_lsr.F 1275 SEAICE_LSR_CALC_COEFFS 
          uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * hFacP
./pkg/seaice/seaice_lsr.F 1282 SEAICE_LSR_CALC_COEFFS 
          AU(I,J,bi,bj)    = AU(I,J,bi,bj)    * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1283 SEAICE_LSR_CALC_COEFFS 
          CU(I,J,bi,bj)    = CU(I,J,bi,bj)    * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1286 SEAICE_LSR_CALC_COEFFS 
          BU(I,J,bi,bj)    = BU(I,J,bi,bj)    * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1287 SEAICE_LSR_CALC_COEFFS 
     &         + seaiceMaskU(I,J,bi,bj) *
./pkg/seaice/seaice_lsr.F 1288 SEAICE_LSR_CALC_COEFFS 
     &         ( bdfAlpha*seaiceMassU(I,J,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F 1289 SEAICE_LSR_CALC_COEFFS 
     &         + 0.5 _d 0 * ( dwatnLoc(I,  J,bi,bj)
./pkg/seaice/seaice_lsr.F 1290 SEAICE_LSR_CALC_COEFFS 
     &                      + dwatnLoc(I-1,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1292 SEAICE_LSR_CALC_COEFFS 
          uRt1(I,J,bi,bj) = uRt1(I,J,bi,bj) * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1293 SEAICE_LSR_CALC_COEFFS 
          uRt2(I,J,bi,bj) = uRt2(I,J,bi,bj) * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1305 SEAICE_LSR_CALC_COEFFS 
          AV(I,J,bi,bj)=( - VYY(I,J-1) + VYM(I,J-1)
./pkg/seaice/seaice_lsr.F 1306 SEAICE_LSR_CALC_COEFFS 
     &         ) * seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1308 SEAICE_LSR_CALC_COEFFS 
          CV(I,J,bi,bj)=( - VYY(I,J  ) - VYM(I,J  )
./pkg/seaice/seaice_lsr.F 1309 SEAICE_LSR_CALC_COEFFS 
     &         ) * seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1311 SEAICE_LSR_CALC_COEFFS 
          BV(I,J,bi,bj)= (ONE - seaiceMaskV(I,J,bi,bj)) +
./pkg/seaice/seaice_lsr.F 1314 SEAICE_LSR_CALC_COEFFS 
     &         ) * seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1316 SEAICE_LSR_CALC_COEFFS 
          vRt1(I,J,bi,bj) = VXX(I  ,J) + VXM(I  ,J)
./pkg/seaice/seaice_lsr.F 1318 SEAICE_LSR_CALC_COEFFS 
          vRt2(I,J,bi,bj) = VXX(I+1,J) - VXM(I+1,J)
./pkg/seaice/seaice_lsr.F 1327 SEAICE_LSR_CALC_COEFFS 
          hFacM = seaiceMaskV(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1328 SEAICE_LSR_CALC_COEFFS 
          hFacP = seaiceMaskV(i+1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 1332 SEAICE_LSR_CALC_COEFFS 
          BV(I,J,bi,bj)=BV(I,J,bi,bj) + seaiceMaskV(I,J,bi,bj) *
./pkg/seaice/seaice_lsr.F 1336 SEAICE_LSR_CALC_COEFFS 
          vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * hFacM
./pkg/seaice/seaice_lsr.F 1337 SEAICE_LSR_CALC_COEFFS 
          vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * hFacP
./pkg/seaice/seaice_lsr.F 1344 SEAICE_LSR_CALC_COEFFS 
          AV(I,J,bi,bj)    = AV(I,J,bi,bj)    * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1345 SEAICE_LSR_CALC_COEFFS 
          CV(I,J,bi,bj)    = CV(I,J,bi,bj)    * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1348 SEAICE_LSR_CALC_COEFFS 
          BV(I,J,bi,bj)    = BV(I,J,bi,bj)    * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1349 SEAICE_LSR_CALC_COEFFS 
     &         + seaiceMaskV(I,J,bi,bj) *
./pkg/seaice/seaice_lsr.F 1350 SEAICE_LSR_CALC_COEFFS 
     &         ( bdfAlpha*seaiceMassV(I,J,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F 1351 SEAICE_LSR_CALC_COEFFS 
     &         + 0.5 _d 0 * ( dwatnLoc(I,J,  bi,bj)
./pkg/seaice/seaice_lsr.F 1352 SEAICE_LSR_CALC_COEFFS 
     &                      + dwatnLoc(I,J-1,bi,bj) )
./pkg/seaice/seaice_lsr.F 1354 SEAICE_LSR_CALC_COEFFS 
          vRt1(I,J,bi,bj) = vRt1(I,J,bi,bj) * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1355 SEAICE_LSR_CALC_COEFFS 
          vRt2(I,J,bi,bj) = vRt2(I,J,bi,bj) * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1374 SEAICE_LSR_RHSU 
     I     iMin, iMax, jMin, jMax, bi, bj, myThid )
./pkg/seaice/seaice_lsr.F 1394 SEAICE_LSR_RHSU 
      INTEGER iMin, iMax, jMin, jMax, bi, bj
./pkg/seaice/seaice_lsr.F 1423 SEAICE_LSR_RHSU 
        sig11(I,J) = zetaMinusEta(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1424 SEAICE_LSR_RHSU 
     &       * ( vIceC(I,J+1,bi,bj) - vIceC(I,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1425 SEAICE_LSR_RHSU 
     &       * _recip_dyF(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1426 SEAICE_LSR_RHSU 
     &       + etaPlusZeta(I,J,bi,bj) * k2AtC(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1427 SEAICE_LSR_RHSU 
     &       * 0.5 _d 0 * ( vIceC(I,J+1,bi,bj) + vIceC(I,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1428 SEAICE_LSR_RHSU 
     &       - 0.5 _d 0 * pressLoc(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1434 SEAICE_LSR_RHSU 
        hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1435 SEAICE_LSR_RHSU 
        sig12(I,J) = etaZloc(I,J,bi,bj) * (
./pkg/seaice/seaice_lsr.F 1436 SEAICE_LSR_RHSU 
     &       ( vIceC(I,J,bi,bj) - vIceC(I-1,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1437 SEAICE_LSR_RHSU 
     &       * _recip_dxV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1438 SEAICE_LSR_RHSU 
     &       - k1AtZ(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1439 SEAICE_LSR_RHSU 
     &       * 0.5 _d 0 * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1442 SEAICE_LSR_RHSU 
     &       *maskC(I  ,J  ,kSrf,bi,bj)*maskC(I-1,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_lsr.F 1443 SEAICE_LSR_RHSU 
     &       *maskC(I  ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj)
./pkg/seaice/seaice_lsr.F 1447 SEAICE_LSR_RHSU 
     &       + etaZloc(I,J,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1448 SEAICE_LSR_RHSU 
     &       * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1456 SEAICE_LSR_RHSU 
        rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1457 SEAICE_LSR_RHSU 
     &       + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) *
./pkg/seaice/seaice_lsr.F 1458 SEAICE_LSR_RHSU 
     &       ( _dyF(I  ,J  ,bi,bj)*sig11(I  ,J  )
./pkg/seaice/seaice_lsr.F 1459 SEAICE_LSR_RHSU 
     &       - _dyF(I-1,J  ,bi,bj)*sig11(I-1,J  )
./pkg/seaice/seaice_lsr.F 1460 SEAICE_LSR_RHSU 
     &       + _dxV(I  ,J+1,bi,bj)*sig12(I  ,J+1)
./pkg/seaice/seaice_lsr.F 1461 SEAICE_LSR_RHSU 
     &       - _dxV(I  ,J  ,bi,bj)*sig12(I  ,J  ) )
./pkg/seaice/seaice_lsr.F 1476 SEAICE_LSR_RHSV 
     I     iMin, iMax, jMin, jMax, bi, bj, myThid )
./pkg/seaice/seaice_lsr.F 1496 SEAICE_LSR_RHSV 
      INTEGER iMin, iMax, jMin, jMax, bi, bj
./pkg/seaice/seaice_lsr.F 1526 SEAICE_LSR_RHSV 
        sig22(I,J) = zetaMinusEta(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1527 SEAICE_LSR_RHSV 
     &       * ( uIceC(I+1,J,bi,bj) - uIceC(I,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1528 SEAICE_LSR_RHSV 
     &       * _recip_dxF(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1529 SEAICE_LSR_RHSV 
     &       + etaPlusZeta(I,J,bi,bj) * k1AtC(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1530 SEAICE_LSR_RHSV 
     &       * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 1531 SEAICE_LSR_RHSV 
     &       - 0.5 _d 0 * pressLoc(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1537 SEAICE_LSR_RHSV 
        hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1538 SEAICE_LSR_RHSV 
        sig12(I,J) = etaZloc(I,J,bi,bj) * (
./pkg/seaice/seaice_lsr.F 1539 SEAICE_LSR_RHSV 
     &       ( uIceC(I,J,bi,bj) - uIceC(I,J-1,bi,bj) )
./pkg/seaice/seaice_lsr.F 1540 SEAICE_LSR_RHSV 
     &       * _recip_dyU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1541 SEAICE_LSR_RHSV 
     &       - k2AtZ(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1542 SEAICE_LSR_RHSV 
     &       * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) )
./pkg/seaice/seaice_lsr.F 1545 SEAICE_LSR_RHSV 
     &       *maskC(I  ,J  ,kSrf,bi,bj)*maskC(I-1,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_lsr.F 1546 SEAICE_LSR_RHSV 
     &       *maskC(I  ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj)
./pkg/seaice/seaice_lsr.F 1550 SEAICE_LSR_RHSV 
     &       + etaZloc(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1551 SEAICE_LSR_RHSV 
     &       * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) )
./pkg/seaice/seaice_lsr.F 1559 SEAICE_LSR_RHSV 
        rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1560 SEAICE_LSR_RHSV 
     &       + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) *
./pkg/seaice/seaice_lsr.F 1561 SEAICE_LSR_RHSV 
     &       ( _dyU(I+1,J  ,bi,bj) * sig12(I+1,J  )
./pkg/seaice/seaice_lsr.F 1562 SEAICE_LSR_RHSV 
     &       - _dyU(I  ,J  ,bi,bj) * sig12(I  ,J  )
./pkg/seaice/seaice_lsr.F 1563 SEAICE_LSR_RHSV 
     &       + _dxF(I  ,J  ,bi,bj) * sig22(I  ,J  )
./pkg/seaice/seaice_lsr.F 1564 SEAICE_LSR_RHSV 
     &       - _dxF(I  ,J-1,bi,bj) * sig22(I  ,J-1) )
./pkg/seaice/seaice_lsr.F 1579 SEAICE_LSR_TRIDIAGU 
     I     iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_lsr.F 1603 SEAICE_LSR_TRIDIAGU 
      INTEGER iMin, iMax, jMin, jMax, bi, bj
./pkg/seaice/seaice_lsr.F 164 SEAICE_LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 1655 SEAICE_LSR_TRIDIAGU 
        IF (I.EQ.iMin) AA3 = AA3 - AU(I,J,bi,bj)*uIce(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1656 SEAICE_LSR_TRIDIAGU 
        IF (I.EQ.iMax) AA3 = AA3 - CU(I,J,bi,bj)*uIce(I+1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1658 SEAICE_LSR_TRIDIAGU 
        URT(I,J)=rhsU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1660 SEAICE_LSR_TRIDIAGU 
     &       + uRt1(I,J,bi,bj)*uIce(I,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1661 SEAICE_LSR_TRIDIAGU 
     &       + uRt2(I,J,bi,bj)*uIce(I,J+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1662 SEAICE_LSR_TRIDIAGU 
        URT(I,J)=URT(I,J)* seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1666 SEAICE_LSR_TRIDIAGU 
        CUU(I,J)=CU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1668 SEAICE_LSR_TRIDIAGU 
       CUU(iMin,J)=CUU(iMin,J)/BU(iMin,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1669 SEAICE_LSR_TRIDIAGU 
       URT(iMin,J)=URT(iMin,J)/BU(iMin,J,bi,bj)
./pkg/seaice/seaice_lsr.F 168 SEAICE_LSR 
          press  (i,j,bi,bj )= 0. _d 0
./pkg/seaice/seaice_lsr.F 1691 SEAICE_LSR_TRIDIAGU 
        bet      = BU(I,J,bi,bj)-AU(I,J,bi,bj)*CUU(IM,J)
./pkg/seaice/seaice_lsr.F 1693 SEAICE_LSR_TRIDIAGU 
        URT(I,J) = (URT(I,J)-AU(I,J,bi,bj)*URT(IM,J))/bet
./pkg/seaice/seaice_lsr.F 169 SEAICE_LSR 
          zeta   (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 170 SEAICE_LSR 
          eta    (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 1714 SEAICE_LSR_TRIDIAGU 
        uIce(I,J,bi,bj)=uTmp(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1715 SEAICE_LSR_TRIDIAGU 
     &       +WFAU*(URT(I,J)-uTmp(I,J,bi,bj))
./pkg/seaice/seaice_lsr.F 171 SEAICE_LSR 
          etaZ   (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 172 SEAICE_LSR 
          uIceC  (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 1733 SEAICE_LSR_TRIDIAGV 
     I     iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_lsr.F 173 SEAICE_LSR 
          vIceC  (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 174 SEAICE_LSR 
          uIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 1757 SEAICE_LSR_TRIDIAGV 
      INTEGER iMin, iMax, jMin, jMax, bi, bj
./pkg/seaice/seaice_lsr.F 175 SEAICE_LSR 
          vIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_lsr.F 1824 SEAICE_LSR_TRIDIAGV 
        IF (J.EQ.jMin) AA3 = AA3 - AV(I,J,bi,bj)*vIce(I,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 1825 SEAICE_LSR_TRIDIAGV 
        IF (J.EQ.jMax) AA3 = AA3 - CV(I,J,bi,bj)*vIce(I,J+1,bi,bj)
./pkg/seaice/seaice_lsr.F 1827 SEAICE_LSR_TRIDIAGV 
        VRT(I,J)=rhsV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1829 SEAICE_LSR_TRIDIAGV 
     &       + vRt1(I,J,bi,bj)*vIce(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1830 SEAICE_LSR_TRIDIAGV 
     &       + vRt2(I,J,bi,bj)*vIce(I+1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1831 SEAICE_LSR_TRIDIAGV 
        VRT(I,J)=VRT(I,J)* seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1833 SEAICE_LSR_TRIDIAGV 
        CVV(I,J)=CV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1843 SEAICE_LSR_TRIDIAGV 
       CVV(I,jMin)=CVV(I,jMin)/BV(I,jMin,bi,bj)
./pkg/seaice/seaice_lsr.F 1844 SEAICE_LSR_TRIDIAGV 
       VRT(I,jMin)=VRT(I,jMin)/BV(I,jMin,bi,bj)
./pkg/seaice/seaice_lsr.F 1866 SEAICE_LSR_TRIDIAGV 
        bet      = BV(I,J,bi,bj)-AV(I,J,bi,bj)*CVV(I,JM)
./pkg/seaice/seaice_lsr.F 1868 SEAICE_LSR_TRIDIAGV 
        VRT(I,J) = (VRT(I,J)-AV(I,J,bi,bj)*VRT(I,JM))/bet
./pkg/seaice/seaice_lsr.F 1889 SEAICE_LSR_TRIDIAGV 
        vIce(I,J,bi,bj)=vTmp(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 1890 SEAICE_LSR_TRIDIAGV 
     &       +WFAV*(VRT(I,J)-vTmp(I,J,bi,bj))
./pkg/seaice/seaice_lsr.F 234 SEAICE_LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 238 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 239 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 240 SEAICE_LSR 
           uIceC(I,J,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 241 SEAICE_LSR 
           vIceC(I,J,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 248 SEAICE_LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 252 SEAICE_LSR 
           uIce(I,J,bi,bj)=HALF*(uIce(I,J,bi,bj)+uIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 253 SEAICE_LSR 
           vIce(I,J,bi,bj)=HALF*(vIce(I,J,bi,bj)+vIceNm1(i,j,bi,bj))
./pkg/seaice/seaice_lsr.F 254 SEAICE_LSR 
           uIceC(I,J,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 255 SEAICE_LSR 
           vIceC(I,J,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 263 SEAICE_LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 267 SEAICE_LSR 
           uIceNm1(i,j,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 268 SEAICE_LSR 
           vIceNm1(i,j,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 303 SEAICE_LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 307 SEAICE_LSR 
          etaPlusZeta (I,J,bi,bj) = ETA (I,J,bi,bj)+ZETA(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 308 SEAICE_LSR 
          zetaMinusEta(I,J,bi,bj) = ZETA(I,J,bi,bj)-ETA (I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 317 SEAICE_LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 323 SEAICE_LSR 
          FORCEX(I,J,bi,bj)=FORCEX0(I,J,bi,bj)+
./pkg/seaice/seaice_lsr.F 324 SEAICE_LSR 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) *
./pkg/seaice/seaice_lsr.F 325 SEAICE_LSR 
     &         COSWAT * uVel(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_lsr.F 326 SEAICE_LSR 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 327 SEAICE_LSR 
     &         ( DWATN(I  ,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 328 SEAICE_LSR 
     &          (vVel(I  ,J  ,kSrf,bi,bj)-vIceC(I  ,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 329 SEAICE_LSR 
     &          +vVel(I  ,J+1,kSrf,bi,bj)-vIceC(I  ,J+1,bi,bj))
./pkg/seaice/seaice_lsr.F 330 SEAICE_LSR 
     &         + DWATN(I-1,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 331 SEAICE_LSR 
     &          (vVel(I-1,J  ,kSrf,bi,bj)-vIceC(I-1,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 332 SEAICE_LSR 
     &          +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj))
./pkg/seaice/seaice_lsr.F 334 SEAICE_LSR 
          FORCEY(I,J,bi,bj)=FORCEY0(I,J,bi,bj)+
./pkg/seaice/seaice_lsr.F 335 SEAICE_LSR 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) *
./pkg/seaice/seaice_lsr.F 336 SEAICE_LSR 
     &         COSWAT * vVel(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_lsr.F 337 SEAICE_LSR 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 338 SEAICE_LSR 
     &         ( DWATN(I,J  ,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 339 SEAICE_LSR 
     &          (uVel(I  ,J  ,kSrf,bi,bj)-uIceC(I  ,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 340 SEAICE_LSR 
     &          +uVel(I+1,J  ,kSrf,bi,bj)-uIceC(I+1,J  ,bi,bj))
./pkg/seaice/seaice_lsr.F 341 SEAICE_LSR 
     &         + DWATN(I,J-1,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 342 SEAICE_LSR 
     &          (uVel(I  ,J-1,kSrf,bi,bj)-uIceC(I  ,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 343 SEAICE_LSR 
     &          +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj))
./pkg/seaice/seaice_lsr.F 350 SEAICE_LSR 
          FORCEX(I,J,bi,bj) = FORCEX(I,J,bi,bj) + HALF*
./pkg/seaice/seaice_lsr.F 351 SEAICE_LSR 
     &         ( seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_lsr.F 352 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) )
./pkg/seaice/seaice_lsr.F 353 SEAICE_LSR 
     &         + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 354 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 355 SEAICE_LSR 
          FORCEY(I,J,bi,bj) = FORCEY(I,J,bi,bj) - HALF*
./pkg/seaice/seaice_lsr.F 356 SEAICE_LSR 
     &         ( seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 357 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j  ,bi,bj)+uIceC(i+1,  j,bi,bj) )
./pkg/seaice/seaice_lsr.F 358 SEAICE_LSR 
     &         + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 359 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 365 SEAICE_LSR 
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 366 SEAICE_LSR 
     &         +seaiceMassU(I,J,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F 367 SEAICE_LSR 
     &         *uIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 368 SEAICE_LSR 
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 369 SEAICE_LSR 
     &         +seaiceMassV(I,J,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F 370 SEAICE_LSR 
     &         *vIceNm1(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 371 SEAICE_LSR 
          FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 372 SEAICE_LSR 
          FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 381 SEAICE_LSR 
          rhsU(I,J,bi,bj) = FORCEX(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 387 SEAICE_LSR 
     I       iMin, iMax, jMin, jMax, bi, bj, myThid )
./pkg/seaice/seaice_lsr.F 393 SEAICE_LSR 
          rhsV(I,J,bi,bj) = FORCEY(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 399 SEAICE_LSR 
     I       iMin, iMax, jMin, jMax, bi, bj, myThid )
./pkg/seaice/seaice_lsr.F 417 SEAICE_LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 421 SEAICE_LSR 
          IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_lsr.F 422 SEAICE_LSR 
           AU(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_lsr.F 423 SEAICE_LSR 
           BU(I,J,bi,bj)   = ONE
./pkg/seaice/seaice_lsr.F 424 SEAICE_LSR 
           CU(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_lsr.F 425 SEAICE_LSR 
           uRt1(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_lsr.F 426 SEAICE_LSR 
           uRt2(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_lsr.F 427 SEAICE_LSR 
           rhsU(I,J,bi,bj) = uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 429 SEAICE_LSR 
          IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_lsr.F 430 SEAICE_LSR 
           AV(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_lsr.F 431 SEAICE_LSR 
           BV(I,J,bi,bj)   = ONE
./pkg/seaice/seaice_lsr.F 432 SEAICE_LSR 
           CV(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_lsr.F 433 SEAICE_LSR 
           vRt1(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_lsr.F 434 SEAICE_LSR 
           vRt2(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_lsr.F 435 SEAICE_LSR 
           rhsV(I,J,bi,bj) = vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 467 SEAICE_LSR 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 471 SEAICE_LSR 
            uIce_fd(i,j,bi,bj) = FORCEX(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 472 SEAICE_LSR 
     &         / ( 1. _d 0 - seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 473 SEAICE_LSR 
     &           + seaiceMassU(i,j,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F 474 SEAICE_LSR 
     &           + HALF*( DWATN(i,j,bi,bj) + DWATN(i-1,j,bi,bj) )*COSWAT
./pkg/seaice/seaice_lsr.F 476 SEAICE_LSR 
            vIce_fd(i,j,bi,bj) = FORCEY(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 477 SEAICE_LSR 
     &         / ( 1. _d 0 - seaiceMaskV(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 478 SEAICE_LSR 
     &           + seaiceMassV(i,j,bi,bj)/SEAICE_deltaTdyn
./pkg/seaice/seaice_lsr.F 479 SEAICE_LSR 
     &           + HALF*( DWATN(i,j,bi,bj) + DWATN(i,j-1,bi,bj) )*COSWAT
./pkg/seaice/seaice_lsr.F 501 SEAICE_LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 505 SEAICE_LSR 
           errIni = uTmp(i,j,bi,bj)*uTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 506 SEAICE_LSR 
           errFD  = uRes(i,j,bi,bj)*uRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 512 SEAICE_LSR 
     &          *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj)
./pkg/seaice/seaice_lsr.F 514 SEAICE_LSR 
            uIce(i,j,bi,bj) = ( errFD *uIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 515 SEAICE_LSR 
     &                        + errIni*uIce_fd(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 518 SEAICE_LSR 
           errIni = vTmp(i,j,bi,bj)*vTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 519 SEAICE_LSR 
           errFD  = vRes(i,j,bi,bj)*vRes(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 525 SEAICE_LSR 
     &          *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 527 SEAICE_LSR 
            vIce(i,j,bi,bj) = ( errFD *vIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 528 SEAICE_LSR 
     &                        + errIni*vIce_fd(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 613 SEAICE_LSR 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 618 SEAICE_LSR 
              uTmp(i,j,bi,bj)  = uIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 619 SEAICE_LSR 
              rhsUx(i,j,bi,bj) = ( rhsU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 620 SEAICE_LSR 
     &             + uRt1(i,j,bi,bj)*uIce(i,j-1,bi,bj)
./pkg/seaice/seaice_lsr.F 621 SEAICE_LSR 
     &             + uRt2(i,j,bi,bj)*uIce(i,j+1,bi,bj)
./pkg/seaice/seaice_lsr.F 622 SEAICE_LSR 
     &                           )*seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 629 SEAICE_LSR 
              vTmp(i,j,bi,bj)  = vIce(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 630 SEAICE_LSR 
              rhsVy(i,j,bi,bj) = ( rhsV(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 631 SEAICE_LSR 
     &             + vRt1(i,j,bi,bj)*vIce(i-1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 632 SEAICE_LSR 
     &             + vRt2(i,j,bi,bj)*vIce(i+1,J,bi,bj)
./pkg/seaice/seaice_lsr.F 633 SEAICE_LSR 
     &                           )*seaiceMaskU(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 649 SEAICE_LSR 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 654 SEAICE_LSR 
              uIce(i,j,bi,bj) = uTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 655 SEAICE_LSR 
     &            + WFAU*( uIce(i,j,bi,bj)-uTmp(i,j,bi,bj) )
./pkg/seaice/seaice_lsr.F 662 SEAICE_LSR 
              vIce(i,j,bi,bj) = vTmp(i,j,bi,bj)
./pkg/seaice/seaice_lsr.F 663 SEAICE_LSR 
     &            + WFAV*( vIce(i,j,bi,bj)-vTmp(i,j,bi,bj) )
./pkg/seaice/seaice_lsr.F 674 SEAICE_LSR 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 680 SEAICE_LSR 
          act2 = bj - myByLo(myThid)
./pkg/seaice/seaice_lsr.F 695 SEAICE_LSR 
            uTmp(I,J,bi,bj)=uIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 696 SEAICE_LSR 
            vTmp(I,J,bi,bj)=vIce(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 705 SEAICE_LSR 
     I          iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_lsr.F 713 SEAICE_LSR 
     I          iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_lsr.F 726 SEAICE_LSR 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 730 SEAICE_LSR 
             UERR=(uIce(I,J,bi,bj)-uTmp(I,J,bi,bj))
./pkg/seaice/seaice_lsr.F 731 SEAICE_LSR 
     &               * seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 751 SEAICE_LSR 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 755 SEAICE_LSR 
             UERR=(vIce(I,J,bi,bj)-vTmp(I,J,bi,bj))
./pkg/seaice/seaice_lsr.F 756 SEAICE_LSR 
     &               * seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 80 SEAICE_LSR 
      INTEGER i, j, m, bi, bj
./pkg/seaice/seaice_lsr.F 838 SEAICE_LSR 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 842 SEAICE_LSR 
          uIce(I,J,bi,bj)=uIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 843 SEAICE_LSR 
          vIce(I,J,bi,bj)=vIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 855 SEAICE_LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 861 SEAICE_LSR 
     &          ( ( (uIceNm1(i,j,bi,bj)+uIceNm1(i+1,j,bi,bj))
./pkg/seaice/seaice_lsr.F 862 SEAICE_LSR 
     &            - (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F 863 SEAICE_LSR 
     &          + ( (vIceNm1(i,j,bi,bj)+vIceNm1(i,j+1,bi,bj))
./pkg/seaice/seaice_lsr.F 864 SEAICE_LSR 
     &            - (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F 865 SEAICE_LSR 
           IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN
./pkg/seaice/seaice_lsr.F 866 SEAICE_LSR 
            EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F 867 SEAICE_LSR 
     &           ( ( (uIce(i,j,bi,bj)+uIce(i+1,j,bi,bj)) )**2
./pkg/seaice/seaice_lsr.F 868 SEAICE_LSR 
     &           + ( (vIce(i,j,bi,bj)+vIce(i,j+1,bi,bj)) )**2 )
./pkg/seaice/seaice_lsr.F 906 SEAICE_LSR 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_lsr.F 918 SEAICE_LSR 
           eplus = e11(I,J,bi,bj) + e22(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 919 SEAICE_LSR 
           eminus= e11(I,J,bi,bj) - e22(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 920 SEAICE_LSR 
           sig11(I,J) = zeta(I,J,bi,bj)*eplus + eta(I,J,bi,bj)*eminus
./pkg/seaice/seaice_lsr.F 921 SEAICE_LSR 
     &          - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 922 SEAICE_LSR 
           sig22(I,J) = zeta(I,J,bi,bj)*eplus - eta(I,J,bi,bj)*eminus
./pkg/seaice/seaice_lsr.F 923 SEAICE_LSR 
     &          - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 929 SEAICE_LSR 
           sig12(I,J) = 2. _d 0 * e12(I,J,bi,bj) * etaZ(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 935 SEAICE_LSR 
           stressDivergenceX(I,J,bi,bj) =
./pkg/seaice/seaice_lsr.F 936 SEAICE_LSR 
     &          ( sig11(I  ,J  ) * _dyF(I  ,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 937 SEAICE_LSR 
     &          - sig11(I-1,J  ) * _dyF(I-1,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 938 SEAICE_LSR 
     &          + sig12(I  ,J+1) * _dxV(I  ,J+1,bi,bj)
./pkg/seaice/seaice_lsr.F 939 SEAICE_LSR 
     &          - sig12(I  ,J  ) * _dxV(I  ,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 940 SEAICE_LSR 
     &          ) * recip_rAw(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 941 SEAICE_LSR 
           stressDivergenceY(I,J,bi,bj) =
./pkg/seaice/seaice_lsr.F 942 SEAICE_LSR 
     &          ( sig22(I  ,J  ) * _dxF(I  ,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 943 SEAICE_LSR 
     &          - sig22(I  ,J-1) * _dxF(I  ,J-1,bi,bj)
./pkg/seaice/seaice_lsr.F 944 SEAICE_LSR 
     &          + sig12(I+1,J  ) * _dyU(I+1,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 945 SEAICE_LSR 
     &          - sig12(I  ,J  ) * _dyU(I  ,J  ,bi,bj)
./pkg/seaice/seaice_lsr.F 946 SEAICE_LSR 
     &          ) * recip_rAs(I,J,bi,bj)
./pkg/seaice/seaice_map_thsice.F 46 SEAICE_MAP_THSICE 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_map_thsice.F 53 SEAICE_MAP_THSICE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_map_thsice.F 57 SEAICE_MAP_THSICE 
          AREA(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/seaice/seaice_map_thsice.F 58 SEAICE_MAP_THSICE 
          HEFF(i,j,bi,bj) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/seaice/seaice_model.F 60 SEAICE_MODEL 
      INTEGER bi, bj
./pkg/seaice/seaice_model.F 84 SEAICE_MODEL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_model.F 88 SEAICE_MODEL 
          uIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 89 SEAICE_MODEL 
          vIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 92 SEAICE_MODEL 
           SItrBucket(i,j,bi,bj,iTr) = 0. _d 0
./model/src/grad_sigma.F 102 GRAD_SIGMA 
         sigmaR(i,j,k)= maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./model/src/grad_sigma.F 10 GRAD_SIGMA 
     I             bi, bj, iMin, iMax, jMin, jMax, k,
./model/src/grad_sigma.F 40 GRAD_SIGMA 
      INTEGER bi,bj,iMin,iMax,jMin,jMax,k
./model/src/grad_sigma.F 67 GRAD_SIGMA 
     &                             rhoLoc, bi,bj, myThid )
./model/src/grad_sigma.F 72 GRAD_SIGMA 
        sigmaX(i,j,k)=_maskW(i,j,k,bi,bj)
./model/src/grad_sigma.F 73 GRAD_SIGMA 
     &        *_recip_dxC(i,j,bi,bj)
./model/src/grad_sigma.F 82 GRAD_SIGMA 
     &                             rhoLoc, bi,bj, myThid )
./model/src/grad_sigma.F 87 GRAD_SIGMA 
        sigmaY(i,j,k)=_maskS(i,j,k,bi,bj)
./model/src/grad_sigma.F 88 GRAD_SIGMA 
     &        *_recip_dyC(i,j,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 100 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(vIce(I  ,J  ,bi,bj)-vVel(I  ,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 101 SEAICE_OCEAN_STRESS 
     &                  +vIce(I  ,J+1,bi,bj)-vVel(I  ,J+1,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 102 SEAICE_OCEAN_STRESS 
     &         + DWATN(I-1,J,bi,bj) *
./pkg/seaice/seaice_ocean_stress.F 103 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(vIce(I-1,J  ,bi,bj)-vVel(I-1,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 104 SEAICE_OCEAN_STRESS 
     &                  +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 106 SEAICE_OCEAN_STRESS 
          fvIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) )*
./pkg/seaice/seaice_ocean_stress.F 108 SEAICE_OCEAN_STRESS 
     &         ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) )
./pkg/seaice/seaice_ocean_stress.F 109 SEAICE_OCEAN_STRESS 
     &         + SIGN(SINWAT,  _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_ocean_stress.F 110 SEAICE_OCEAN_STRESS 
     &         ( DWATN(I,J  ,bi,bj) *
./pkg/seaice/seaice_ocean_stress.F 111 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(uIce(I  ,J  ,bi,bj)-uVel(I  ,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 112 SEAICE_OCEAN_STRESS 
     &                  +uIce(I+1,J  ,bi,bj)-uVel(I+1,J  ,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 113 SEAICE_OCEAN_STRESS 
     &         + DWATN(I,J-1,bi,bj) *
./pkg/seaice/seaice_ocean_stress.F 114 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(uIce(I  ,J-1,bi,bj)-uVel(I  ,J-1,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 115 SEAICE_OCEAN_STRESS 
     &                  +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 117 SEAICE_OCEAN_STRESS 
          areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 119 SEAICE_OCEAN_STRESS 
          areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 121 SEAICE_OCEAN_STRESS 
          fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)+areaW*fuIceLoc
./pkg/seaice/seaice_ocean_stress.F 122 SEAICE_OCEAN_STRESS 
          fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)+areaS*fvIceLoc
./pkg/seaice/seaice_ocean_stress.F 41 SEAICE_OCEAN_STRESS 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_ocean_stress.F 59 SEAICE_OCEAN_STRESS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_ocean_stress.F 65 SEAICE_OCEAN_STRESS 
           areaW = 0.5 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 67 SEAICE_OCEAN_STRESS 
           fu(I,J,bi,bj)=(ONE-areaW)*fu(I,J,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 68 SEAICE_OCEAN_STRESS 
     &          + areaW*taux(I,J,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 69 SEAICE_OCEAN_STRESS 
     &          + stressDivergenceX(I,J,bi,bj) * SEAICEstressFactor
./pkg/seaice/seaice_ocean_stress.F 75 SEAICE_OCEAN_STRESS 
           areaS = 0.5 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 77 SEAICE_OCEAN_STRESS 
           fv(I,J,bi,bj)=(ONE-areaS)*fv(I,J,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 78 SEAICE_OCEAN_STRESS 
     &          + areaS*tauy(I,J,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 79 SEAICE_OCEAN_STRESS 
     &          + stressDivergenceY(I,J,bi,bj) * SEAICEstressFactor
./pkg/seaice/seaice_ocean_stress.F 91 SEAICE_OCEAN_STRESS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_ocean_stress.F 95 SEAICE_OCEAN_STRESS 
          fuIceLoc=HALF*( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) )*
./pkg/seaice/seaice_ocean_stress.F 97 SEAICE_OCEAN_STRESS 
     &         ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) )
./pkg/seaice/seaice_ocean_stress.F 98 SEAICE_OCEAN_STRESS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_ocean_stress.F 99 SEAICE_OCEAN_STRESS 
     &         ( DWATN(I  ,J,bi,bj) *
./pkg/seaice/seaice_oceandrag_coeffs.F 100 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=SEAICE_waterDrag_south*SQRT(TEMPVAR)
./pkg/seaice/seaice_oceandrag_coeffs.F 104 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.
./pkg/seaice/seaice_oceandrag_coeffs.F 106 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.25 _d 0
./pkg/seaice/seaice_oceandrag_coeffs.F 108 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=SEAICE_waterDrag*SQRT(TEMPVAR)
./pkg/seaice/seaice_oceandrag_coeffs.F 111 SEAICE_OCEANDRAG_COEFFS 
          CwatC(I,J,bi,bj) = CwatC(I,J,bi,bj) * maskC(I,J,kSrf,bi,bj)
./pkg/seaice/seaice_oceandrag_coeffs.F 62 SEAICE_OCEANDRAG_COEFFS 
      INTEGER i,j,bi,bj
./pkg/seaice/seaice_oceandrag_coeffs.F 69 SEAICE_OCEANDRAG_COEFFS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_oceandrag_coeffs.F 76 SEAICE_OCEANDRAG_COEFFS 
     &            ( ( uIceLoc(i  ,j,bi,bj)-uVel(i  ,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 77 SEAICE_OCEANDRAG_COEFFS 
     &             +( uIceLoc(i+1,j,bi,bj)-uVel(i+1,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 79 SEAICE_OCEANDRAG_COEFFS 
     &          + ( ( vIceLoc(i, j ,bi,bj)-vVel(i, j ,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 80 SEAICE_OCEANDRAG_COEFFS 
     &             +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 84 SEAICE_OCEANDRAG_COEFFS 
     &            ( ( uIceLoc(i  ,j,bi,bj)-uVel(i  ,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 85 SEAICE_OCEANDRAG_COEFFS 
     &             *maskInW( i ,j,bi,bj)
./pkg/seaice/seaice_oceandrag_coeffs.F 86 SEAICE_OCEANDRAG_COEFFS 
     &             +( uIceLoc(i+1,J,bi,bj)-uVel(i+1,j,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 87 SEAICE_OCEANDRAG_COEFFS 
     &             *maskInW(i+1,j,bi,bj) )**2
./pkg/seaice/seaice_oceandrag_coeffs.F 88 SEAICE_OCEANDRAG_COEFFS 
     &          + ( ( vIceLoc(i,j  ,bi,bj)-vVel(i,j  ,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 89 SEAICE_OCEANDRAG_COEFFS 
     &             *maskInS(i, j ,bi,bj)
./pkg/seaice/seaice_oceandrag_coeffs.F 90 SEAICE_OCEANDRAG_COEFFS 
     &             +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) )
./pkg/seaice/seaice_oceandrag_coeffs.F 91 SEAICE_OCEANDRAG_COEFFS 
     &             *maskInS(i,j+1,bi,bj) )**2 )
./pkg/seaice/seaice_oceandrag_coeffs.F 93 SEAICE_OCEANDRAG_COEFFS 
          IF ( YC(I,J,bi,bj) .LT. ZERO ) THEN
./pkg/seaice/seaice_oceandrag_coeffs.F 95 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.
./pkg/seaice/seaice_oceandrag_coeffs.F 98 SEAICE_OCEANDRAG_COEFFS 
            CwatC(I,J,bi,bj)=0.25 _d 0
./pkg/seaice/seaice_output.F 183 SEAICE_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_output.F 188 SEAICE_OUTPUT 
           FUtave(i,j,bi,bj)   =
./pkg/seaice/seaice_output.F 189 SEAICE_OUTPUT 
     &         FUtave(i,j,bi,bj)   +FU(i,j,bi,bj)    *deltaTclock
./pkg/seaice/seaice_output.F 190 SEAICE_OUTPUT 
           FVtave(i,j,bi,bj)   =
./pkg/seaice/seaice_output.F 191 SEAICE_OUTPUT 
     &         FVtave(i,j,bi,bj)   +FV(i,j,bi,bj)    *deltaTclock
./pkg/seaice/seaice_output.F 192 SEAICE_OUTPUT 
           EmPmRtave(i,j,bi,bj)=
./pkg/seaice/seaice_output.F 193 SEAICE_OUTPUT 
     &         EmPmRtave(i,j,bi,bj)+EmPmR(i,j,bi,bj) *deltaTclock
./pkg/seaice/seaice_output.F 194 SEAICE_OUTPUT 
           QNETtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 195 SEAICE_OUTPUT 
     &         QNETtave(i,j,bi,bj) +QNET(i,j,bi,bj)  *deltaTclock
./pkg/seaice/seaice_output.F 196 SEAICE_OUTPUT 
           QSWtave(i,j,bi,bj)  =
./pkg/seaice/seaice_output.F 197 SEAICE_OUTPUT 
     &         QSWtave(i,j,bi,bj)  +QSW(i,j,bi,bj)   *deltaTclock
./pkg/seaice/seaice_output.F 198 SEAICE_OUTPUT 
           UICEtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 199 SEAICE_OUTPUT 
     &         UICEtave(i,j,bi,bj) +UICE(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 200 SEAICE_OUTPUT 
           VICEtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 201 SEAICE_OUTPUT 
     &         VICEtave(i,j,bi,bj) +VICE(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 202 SEAICE_OUTPUT 
           HEFFtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 203 SEAICE_OUTPUT 
     &         HEFFtave(i,j,bi,bj) +HEFF(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 204 SEAICE_OUTPUT 
           AREAtave(i,j,bi,bj) =
./pkg/seaice/seaice_output.F 205 SEAICE_OUTPUT 
     &         AREAtave(i,j,bi,bj) +AREA(i,j,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 212 SEAICE_OUTPUT 
            HEFFITDtave(i,j,k,bi,bj) =
./pkg/seaice/seaice_output.F 213 SEAICE_OUTPUT 
     &        HEFFITDtave(i,j,k,bi,bj) +HEFFITD(i,j,k,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 214 SEAICE_OUTPUT 
            AREAITDtave(i,j,k,bi,bj) =
./pkg/seaice/seaice_output.F 215 SEAICE_OUTPUT 
     &        AREAITDtave(i,j,k,bi,bj) +AREAITD(i,j,k,bi,bj)*deltaTclock
./pkg/seaice/seaice_output.F 220 SEAICE_OUTPUT 
         SEAICE_timeAve(bi,bj) = SEAICE_timeAve(bi,bj)+deltaTclock
./pkg/seaice/seaice_output.F 240 SEAICE_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_output.F 243 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 245 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 247 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 249 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 251 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 253 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 255 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 257 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 259 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 262 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, nITD, bi, bj, myThid )
./pkg/seaice/seaice_output.F 264 SEAICE_OUTPUT 
     &                            SEAICE_timeAve, nITD, bi, bj, myThid )
./pkg/seaice/seaice_output.F 317 SEAICE_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/seaice/seaice_output.F 319 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( FUtave   , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 320 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( FVtave   , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 321 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( EmPmRtave, 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 322 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( QNETtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 323 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( QSWtave  , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 324 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( UICEtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 325 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( VICEtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 326 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( HEFFtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 327 SEAICE_OUTPUT 
          CALL TIMEAVE_RESET( AREAtave , 1, bi, bj, myThid )
./pkg/seaice/seaice_output.F 328 SEAICE_OUTPUT 
          SEAICE_timeAve(bi,bj) = ZERO
./pkg/seaice/seaice_output.F 61 SEAICE_OUTPUT 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_preconditioner.F 148 SEAICE_PRECONDITIONER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_preconditioner.F 152 SEAICE_PRECONDITIONER 
          rhsU (I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_preconditioner.F 153 SEAICE_PRECONDITIONER 
          rhsV (I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_preconditioner.F 154 SEAICE_PRECONDITIONER 
          rhsU0(I,J,bi,bj) = duIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 155 SEAICE_PRECONDITIONER 
          rhsV0(I,J,bi,bj) = dvIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 157 SEAICE_PRECONDITIONER 
          duIce(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_preconditioner.F 158 SEAICE_PRECONDITIONER 
          dvIce(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_preconditioner.F 166 SEAICE_PRECONDITIONER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_preconditioner.F 170 SEAICE_PRECONDITIONER 
          etaPlusZeta (I,J,bi,bj)= etaPre(I,J,bi,bj)+zetaPre(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 171 SEAICE_PRECONDITIONER 
          zetaMinusEta(I,J,bi,bj)=zetaPre(I,J,bi,bj)- etaPre(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 187 SEAICE_PRECONDITIONER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_preconditioner.F 191 SEAICE_PRECONDITIONER 
          IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F 192 SEAICE_PRECONDITIONER 
           AU(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_preconditioner.F 193 SEAICE_PRECONDITIONER 
           BU(I,J,bi,bj)   = ONE
./pkg/seaice/seaice_preconditioner.F 194 SEAICE_PRECONDITIONER 
           CU(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_preconditioner.F 195 SEAICE_PRECONDITIONER 
           uRt1(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_preconditioner.F 196 SEAICE_PRECONDITIONER 
           uRt2(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_preconditioner.F 198 SEAICE_PRECONDITIONER 
          IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F 199 SEAICE_PRECONDITIONER 
           AV(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_preconditioner.F 200 SEAICE_PRECONDITIONER 
           BV(I,J,bi,bj)   = ONE
./pkg/seaice/seaice_preconditioner.F 201 SEAICE_PRECONDITIONER 
           CV(I,J,bi,bj)   = ZERO
./pkg/seaice/seaice_preconditioner.F 202 SEAICE_PRECONDITIONER 
           vRt1(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_preconditioner.F 203 SEAICE_PRECONDITIONER 
           vRt2(I,J,bi,bj) = ZERO
./pkg/seaice/seaice_preconditioner.F 229 SEAICE_PRECONDITIONER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_preconditioner.F 233 SEAICE_PRECONDITIONER 
           rhsU(I,J,bi,bj) = rhsU0(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 234 SEAICE_PRECONDITIONER 
           rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 241 SEAICE_PRECONDITIONER 
     I        iMin,iMax,jMin,jMax,bi,bj,myThid )
./pkg/seaice/seaice_preconditioner.F 246 SEAICE_PRECONDITIONER 
     I        iMin,iMax,jMin,jMax,bi,bj,myThid )
./pkg/seaice/seaice_preconditioner.F 250 SEAICE_PRECONDITIONER 
           IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F 251 SEAICE_PRECONDITIONER 
            rhsU(I,J,bi,bj) = duIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 253 SEAICE_PRECONDITIONER 
           IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F 254 SEAICE_PRECONDITIONER 
            rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 278 SEAICE_PRECONDITIONER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_preconditioner.F 284 SEAICE_PRECONDITIONER 
           uTmp(I,J,bi,bj)=duIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 285 SEAICE_PRECONDITIONER 
           vTmp(I,J,bi,bj)=dvIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 292 SEAICE_PRECONDITIONER 
           rhsU(I,J,bi,bj) = rhsU0(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 294 SEAICE_PRECONDITIONER 
           rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 302 SEAICE_PRECONDITIONER 
     I        iMin,iMax,jMin,jMax,bi,bj,myThid )
./pkg/seaice/seaice_preconditioner.F 308 SEAICE_PRECONDITIONER 
     I        iMin,iMax,jMin,jMax,bi,bj,myThid )
./pkg/seaice/seaice_preconditioner.F 314 SEAICE_PRECONDITIONER 
           IF ( maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F 315 SEAICE_PRECONDITIONER 
            rhsU(I,J,bi,bj) = duIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 318 SEAICE_PRECONDITIONER 
           IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F 319 SEAICE_PRECONDITIONER 
            rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 330 SEAICE_PRECONDITIONER 
     I        imin, imax, jmin, jmax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_preconditioner.F 338 SEAICE_PRECONDITIONER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_preconditioner.F 343 SEAICE_PRECONDITIONER 
           rhsV(I,J,bi,bj) = rhsV0(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 350 SEAICE_PRECONDITIONER 
     I        iMin,iMax,jMin,jMax,bi,bj,myThid )
./pkg/seaice/seaice_preconditioner.F 355 SEAICE_PRECONDITIONER 
           IF ( maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj) .EQ. 0. ) THEN
./pkg/seaice/seaice_preconditioner.F 356 SEAICE_PRECONDITIONER 
            rhsV(I,J,bi,bj) = dvIce(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 367 SEAICE_PRECONDITIONER 
     I        imin, imax, jmin, jmax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_preconditioner.F 411 SEAICE_PRECONDITIONER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_preconditioner.F 415 SEAICE_PRECONDITIONER 
          duIce(I,J,bi,bj)=duIce(I,J,bi,bj)* seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 416 SEAICE_PRECONDITIONER 
          dvIce(I,J,bi,bj)=dvIce(I,J,bi,bj)* seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 434 SEAICE_PRECOND_RHSU 
     I     iMin,iMax,jMin,jMax,bi,bj,myThid )
./pkg/seaice/seaice_preconditioner.F 464 SEAICE_PRECOND_RHSU 
      INTEGER iMin, iMax, jMin, jMax, bi, bj, myThid
./pkg/seaice/seaice_preconditioner.F 480 SEAICE_PRECOND_RHSU 
        sig11(I,J) = zetaMinusEta(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 481 SEAICE_PRECOND_RHSU 
     &       * ( vIceLoc(I,J+1,bi,bj) - vIceLoc(I,J,bi,bj) )
./pkg/seaice/seaice_preconditioner.F 482 SEAICE_PRECOND_RHSU 
     &       * _recip_dyF(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 483 SEAICE_PRECOND_RHSU 
     &       + etaPlusZeta(I,J,bi,bj) * k2AtC(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 484 SEAICE_PRECOND_RHSU 
     &       * 0.5 _d 0 * (vIceLoc(I,J+1,bi,bj)+vIceLoc(I,J,bi,bj))
./pkg/seaice/seaice_preconditioner.F 490 SEAICE_PRECOND_RHSU 
        hFacM = seaiceMaskV(I,J,bi,bj) - seaiceMaskV(I-1,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 491 SEAICE_PRECOND_RHSU 
        sig12(I,J) = etaZpre(I,J,bi,bj) * (
./pkg/seaice/seaice_preconditioner.F 492 SEAICE_PRECOND_RHSU 
     &       ( vIceLoc(I,J,bi,bj) - vIceLoc(I-1,J,bi,bj) )
./pkg/seaice/seaice_preconditioner.F 493 SEAICE_PRECOND_RHSU 
     &       * _recip_dxV(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 494 SEAICE_PRECOND_RHSU 
     &       - k1AtZ(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 495 SEAICE_PRECOND_RHSU 
     &       * 0.5 _d 0 * (vIceLoc(I,J,bi,bj)+vIceLoc(I-1,J,bi,bj))
./pkg/seaice/seaice_preconditioner.F 498 SEAICE_PRECOND_RHSU 
     &       *maskC(I  ,J  ,k,bi,bj)*maskC(I-1,J  ,k,bi,bj)
./pkg/seaice/seaice_preconditioner.F 499 SEAICE_PRECOND_RHSU 
     &       *maskC(I  ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj)
./pkg/seaice/seaice_preconditioner.F 503 SEAICE_PRECOND_RHSU 
     &       + etaZpre(I,J,bi,bj) * _recip_dxV(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 504 SEAICE_PRECOND_RHSU 
     &       * ( vIceLoc(I,J,bi,bj) + vIceLoc(I-1,J,bi,bj) )
./pkg/seaice/seaice_preconditioner.F 512 SEAICE_PRECOND_RHSU 
        rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 513 SEAICE_PRECOND_RHSU 
     &       + recip_rAw(I,J,bi,bj) * seaiceMaskU(I,J,bi,bj) *
./pkg/seaice/seaice_preconditioner.F 514 SEAICE_PRECOND_RHSU 
     &       ( _dyF(I  ,J  ,bi,bj)*sig11(I  ,J  )
./pkg/seaice/seaice_preconditioner.F 515 SEAICE_PRECOND_RHSU 
     &       - _dyF(I-1,J  ,bi,bj)*sig11(I-1,J  )
./pkg/seaice/seaice_preconditioner.F 516 SEAICE_PRECOND_RHSU 
     &       + _dxV(I  ,J+1,bi,bj)*sig12(I  ,J+1)
./pkg/seaice/seaice_preconditioner.F 517 SEAICE_PRECOND_RHSU 
     &       - _dxV(I  ,J  ,bi,bj)*sig12(I  ,J  ) )
./pkg/seaice/seaice_preconditioner.F 524 SEAICE_PRECOND_RHSU 
         rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 525 SEAICE_PRECOND_RHSU 
     &        - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 526 SEAICE_PRECOND_RHSU 
     &        ( dwatPre(I  ,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 527 SEAICE_PRECOND_RHSU 
     &        (vVel(I  ,J  ,k,bi,bj)-vIceLoc(I  ,J  ,bi,bj)
./pkg/seaice/seaice_preconditioner.F 528 SEAICE_PRECOND_RHSU 
     &        +vVel(I  ,J+1,k,bi,bj)-vIceLoc(I  ,J+1,bi,bj))
./pkg/seaice/seaice_preconditioner.F 529 SEAICE_PRECOND_RHSU 
     &        + dwatPre(I-1,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 530 SEAICE_PRECOND_RHSU 
     &        (vVel(I-1,J  ,k,bi,bj)-vIceLoc(I-1,J  ,bi,bj)
./pkg/seaice/seaice_preconditioner.F 531 SEAICE_PRECOND_RHSU 
     &        +vVel(I-1,J+1,k,bi,bj)-vIceLoc(I-1,J+1,bi,bj))
./pkg/seaice/seaice_preconditioner.F 534 SEAICE_PRECOND_RHSU 
         rhsU(I,J,bi,bj) = rhsU(I,J,bi,bj) + 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 535 SEAICE_PRECOND_RHSU 
     &        ( seaiceMassC(I  ,J,bi,bj) * _fCori(I  ,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 536 SEAICE_PRECOND_RHSU 
     &        *0.5 _d 0*(vIceLoc( i ,j,bi,bj)+vIceLoc( i ,j+1,bi,bj))
./pkg/seaice/seaice_preconditioner.F 537 SEAICE_PRECOND_RHSU 
     &        + seaiceMassC(I-1,J,bi,bj) * _fCori(I-1,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 538 SEAICE_PRECOND_RHSU 
     &        *0.5 _d 0*(vIceLoc(i-1,j,bi,bj)+vIceLoc(i-1,j+1,bi,bj))
./pkg/seaice/seaice_preconditioner.F 556 SEAICE_PRECOND_RHSV 
     I     iMin,iMax,jMin,jMax,bi,bj,myThid )
./pkg/seaice/seaice_preconditioner.F 586 SEAICE_PRECOND_RHSV 
      INTEGER iMin, iMax, jMin, jMax, bi, bj, myThid
./pkg/seaice/seaice_preconditioner.F 602 SEAICE_PRECOND_RHSV 
        sig22(I,J) =  zetaMinusEta(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 603 SEAICE_PRECOND_RHSV 
     &       * ( uIceLoc(I+1,J,bi,bj) - uIceLoc(I,J,bi,bj) )
./pkg/seaice/seaice_preconditioner.F 604 SEAICE_PRECOND_RHSV 
     &       * _recip_dxF(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 605 SEAICE_PRECOND_RHSV 
     &       + etaPlusZeta(I,J,bi,bj) * k1AtC(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 606 SEAICE_PRECOND_RHSV 
     &       * 0.5 _d 0 * (uIceLoc(I+1,J,bi,bj)+uIceLoc(I,J,bi,bj))
./pkg/seaice/seaice_preconditioner.F 612 SEAICE_PRECOND_RHSV 
        hFacM = seaiceMaskU(i,j,bi,bj) - seaiceMaskU(i,j-1,bi,bj)
./pkg/seaice/seaice_preconditioner.F 613 SEAICE_PRECOND_RHSV 
        sig12(I,J) = etaZpre(I,J,bi,bj) * (
./pkg/seaice/seaice_preconditioner.F 614 SEAICE_PRECOND_RHSV 
     &       ( uIceLoc(I,J,bi,bj) - uIceLoc(I,J-1,bi,bj) )
./pkg/seaice/seaice_preconditioner.F 615 SEAICE_PRECOND_RHSV 
     &       * _recip_dyU(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 616 SEAICE_PRECOND_RHSV 
     &       - k2AtZ(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 617 SEAICE_PRECOND_RHSV 
     &       * 0.5 _d 0 * (uIceLoc(I,J,bi,bj)+uIceLoc(I,J-1,bi,bj))
./pkg/seaice/seaice_preconditioner.F 620 SEAICE_PRECOND_RHSV 
     &       *maskC(I  ,J  ,k,bi,bj)*maskC(I-1,J  ,k,bi,bj)
./pkg/seaice/seaice_preconditioner.F 621 SEAICE_PRECOND_RHSV 
     &       *maskC(I  ,J-1,k,bi,bj)*maskC(I-1,J-1,k,bi,bj)
./pkg/seaice/seaice_preconditioner.F 625 SEAICE_PRECOND_RHSV 
     &       + etaZpre(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 626 SEAICE_PRECOND_RHSV 
     &       * ( uIceLoc(I,J,bi,bj) + uIceLoc(I,J-1,bi,bj) )
./pkg/seaice/seaice_preconditioner.F 634 SEAICE_PRECOND_RHSV 
        rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 635 SEAICE_PRECOND_RHSV 
     &       + recip_rAs(I,J,bi,bj) * seaiceMaskV(I,J,bi,bj) *
./pkg/seaice/seaice_preconditioner.F 636 SEAICE_PRECOND_RHSV 
     &       ( _dyU(I+1,J  ,bi,bj) * sig12(I+1,J  )
./pkg/seaice/seaice_preconditioner.F 637 SEAICE_PRECOND_RHSV 
     &       - _dyU(I  ,J  ,bi,bj) * sig12(I  ,J  )
./pkg/seaice/seaice_preconditioner.F 638 SEAICE_PRECOND_RHSV 
     &       + _dxF(I  ,J  ,bi,bj) * sig22(I  ,J  )
./pkg/seaice/seaice_preconditioner.F 639 SEAICE_PRECOND_RHSV 
     &       - _dxF(I  ,J-1,bi,bj) * sig22(I  ,J-1) )
./pkg/seaice/seaice_preconditioner.F 646 SEAICE_PRECOND_RHSV 
         rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj)
./pkg/seaice/seaice_preconditioner.F 647 SEAICE_PRECOND_RHSV 
     &        + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 648 SEAICE_PRECOND_RHSV 
     &        ( dwatPre(I,J  ,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 649 SEAICE_PRECOND_RHSV 
     &        (uVel(I  ,J  ,k,bi,bj)-uIceLoc(I  ,J  ,bi,bj)
./pkg/seaice/seaice_preconditioner.F 650 SEAICE_PRECOND_RHSV 
     &        +uVel(I+1,J  ,k,bi,bj)-uIceLoc(I+1,J  ,bi,bj))
./pkg/seaice/seaice_preconditioner.F 651 SEAICE_PRECOND_RHSV 
     &        + dwatPre(I,J-1,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 652 SEAICE_PRECOND_RHSV 
     &        (uVel(I  ,J-1,k,bi,bj)-uIceLoc(I  ,J-1,bi,bj)
./pkg/seaice/seaice_preconditioner.F 653 SEAICE_PRECOND_RHSV 
     &        +uVel(I+1,J-1,k,bi,bj)-uIceLoc(I+1,J-1,bi,bj))
./pkg/seaice/seaice_preconditioner.F 656 SEAICE_PRECOND_RHSV 
         rhsV(I,J,bi,bj) = rhsV(I,J,bi,bj) - 0.5 _d 0 *
./pkg/seaice/seaice_preconditioner.F 657 SEAICE_PRECOND_RHSV 
     &        ( seaiceMassC(I,J  ,bi,bj) * _fCori(I,J  ,bi,bj)
./pkg/seaice/seaice_preconditioner.F 658 SEAICE_PRECOND_RHSV 
     &        *0.5 _d 0*(uIceLoc(i  ,j  ,bi,bj)+uIceLoc(i+1,  j,bi,bj))
./pkg/seaice/seaice_preconditioner.F 659 SEAICE_PRECOND_RHSV 
     &        + seaiceMassC(I,J-1,bi,bj) * _fCori(I,J-1,bi,bj)
./pkg/seaice/seaice_preconditioner.F 660 SEAICE_PRECOND_RHSV 
     &        *0.5 _d 0*(uIceLoc(i  ,j-1,bi,bj)+uIceLoc(i+1,j-1,bi,bj))
./pkg/seaice/seaice_preconditioner.F 82 SEAICE_PRECONDITIONER 
      INTEGER i, j, m, bi, bj
./pkg/seaice/seaice_prepare_ridging.F 102 SEAICE_PREPARE_RIDGING 
          tmp = HEFFITD(i,j,k,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F 103 SEAICE_PREPARE_RIDGING 
     &         /SQRT( AREAITD(i,j,k,bi,bj)**2 + area_reg_sq )
./pkg/seaice/seaice_prepare_ridging.F 117 SEAICE_PREPARE_RIDGING 
        IF ( opnWtrFrac(i,j,bi,bj) .GT. SEAICE_area_floor )
./pkg/seaice/seaice_prepare_ridging.F 118 SEAICE_PREPARE_RIDGING 
     &       gSum(i,j,0) = opnWtrFrac(i,j,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F 125 SEAICE_PREPARE_RIDGING 
         IF ( AREAITD(i,j,k,bi,bj) .GT. SEAICE_area_floor )
./pkg/seaice/seaice_prepare_ridging.F 126 SEAICE_PREPARE_RIDGING 
     &        gSum(i,j,k) = gSum(i,j,k) + AREAITD(i,j,k,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F 14 SEAICE_PREPARE_RIDGING 
     I     iMin, iMax, jMin, jMax, bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_prepare_ridging.F 266 SEAICE_PREPARE_RIDGING 
         partFunc(i,j,k) = partFunc(i,j,k) * heffM(i,j,bi,bj)
./pkg/seaice/seaice_prepare_ridging.F 52 SEAICE_PREPARE_RIDGING 
      INTEGER bi,bj
./pkg/seaice/seaice_prepare_ridging.F 99 SEAICE_PREPARE_RIDGING 
         IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_read_pickup.F 230 SEAICE_READ_PICKUP 
          DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_read_pickup.F 232 SEAICE_READ_PICKUP 
            CALL SEAICE_ITD_SUM( bi, bj, startTime, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 302 SEAICE_READ_PICKUP 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_read_pickup.F 307 SEAICE_READ_PICKUP 
               TICES(i,j,k,bi,bj) = TICES(i,j,1,bi,bj)
./pkg/seaice/seaice_read_pickup.F 57 SEAICE_READ_PICKUP 
      INTEGER i,j,k,bi,bj
./pkg/seaice/seaice_reg_ridge.F 101 SEAICE_REG_RIDGE 
          d_HEFFbyNEG(I,J,bi,bj)    = 0.0 _d 0
./pkg/seaice/seaice_reg_ridge.F 102 SEAICE_REG_RIDGE 
          d_HSNWbyNEG(I,J,bi,bj)    = 0.0 _d 0
./pkg/seaice/seaice_reg_ridge.F 104 SEAICE_REG_RIDGE 
          d_AREAbyRLX(I,J,bi,bj)    = 0.0 _d 0
./pkg/seaice/seaice_reg_ridge.F 105 SEAICE_REG_RIDGE 
          d_HEFFbyRLX(I,J,bi,bj)    = 0.0 _d 0
./pkg/seaice/seaice_reg_ridge.F 108 SEAICE_REG_RIDGE 
          saltFluxAdjust(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_reg_ridge.F 129 SEAICE_REG_RIDGE 
           IF ( exf_iceFraction(I,J,bi,bj).GT.AREA(I,J,bi,bj) ) THEN
./pkg/seaice/seaice_reg_ridge.F 130 SEAICE_REG_RIDGE 
            d_AREAbyRLX(i,j,bi,bj) =
./pkg/seaice/seaice_reg_ridge.F 132 SEAICE_REG_RIDGE 
     &       * (exf_iceFraction(I,J,bi,bj) - AREA(I,J,bi,bj))
./pkg/seaice/seaice_reg_ridge.F 134 SEAICE_REG_RIDGE 
           IF ( exf_iceFraction(I,J,bi,bj).GT.zeroRS .AND.
./pkg/seaice/seaice_reg_ridge.F 135 SEAICE_REG_RIDGE 
     &          AREA(I,J,bi,bj).EQ.0. _d 0) THEN
./pkg/seaice/seaice_reg_ridge.F 137 SEAICE_REG_RIDGE 
            d_HEFFbyRLX(i,j,bi,bj) = 1. _d 1 * siEps
./pkg/seaice/seaice_reg_ridge.F 140 SEAICE_REG_RIDGE 
           AREAITD(I,J,1,bi,bj) = AREAITD(I,J,1,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 141 SEAICE_REG_RIDGE 
     &                          +  d_AREAbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 142 SEAICE_REG_RIDGE 
           HEFFITD(I,J,1,bi,bj) = HEFFITD(I,J,1,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 143 SEAICE_REG_RIDGE 
     &                          +  d_HEFFbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 145 SEAICE_REG_RIDGE 
           AREA(I,J,bi,bj) = AREA(I,J,bi,bj) +  d_AREAbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 146 SEAICE_REG_RIDGE 
           HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) +  d_HEFFbyRLX(i,j,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 160 SEAICE_REG_RIDGE 
           tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 161 SEAICE_REG_RIDGE 
           HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 162 SEAICE_REG_RIDGE 
           d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 163 SEAICE_REG_RIDGE 
           tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 164 SEAICE_REG_RIDGE 
           HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 165 SEAICE_REG_RIDGE 
           d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 166 SEAICE_REG_RIDGE 
           AREAITD(I,J,IT,bi,bj)=MAX(AREAITD(I,J,IT,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 174 SEAICE_REG_RIDGE 
        CALL SEAICE_ITD_SUM   ( bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_reg_ridge.F 183 SEAICE_REG_RIDGE 
          d_HEFFbyNEG(I,J,bi,bj)=MAX(-HEFF(I,J,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 184 SEAICE_REG_RIDGE 
          HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+d_HEFFbyNEG(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 185 SEAICE_REG_RIDGE 
          d_HSNWbyNEG(I,J,bi,bj)=MAX(-HSNOW(I,J,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 186 SEAICE_REG_RIDGE 
          HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+d_HSNWbyNEG(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 187 SEAICE_REG_RIDGE 
          AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0)
./pkg/seaice/seaice_reg_ridge.F 203 SEAICE_REG_RIDGE 
           IF (HEFF(I,J,bi,bj).LE.siEps) THEN
./pkg/seaice/seaice_reg_ridge.F 204 SEAICE_REG_RIDGE 
            HEFFITD(I,J,IT,bi,bj) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F 205 SEAICE_REG_RIDGE 
            HSNOWITD(I,J,IT,bi,bj) = 0. _d 0
./pkg/seaice/seaice_reg_ridge.F 218 SEAICE_REG_RIDGE 
          IF (HEFF(I,J,bi,bj).LE.siEps) THEN
./pkg/seaice/seaice_reg_ridge.F 219 SEAICE_REG_RIDGE 
           tmpscal1=-HEFF(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 220 SEAICE_REG_RIDGE 
           tmpscal2=-HSNOW(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 222 SEAICE_REG_RIDGE 
            TICES(I,J,IT,bi,bj)=celsius2K
./pkg/seaice/seaice_reg_ridge.F 225 SEAICE_REG_RIDGE 
          HEFF(I,J,bi,bj)=HEFF(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 226 SEAICE_REG_RIDGE 
          HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 227 SEAICE_REG_RIDGE 
          d_HEFFbyNEG(I,J,bi,bj)=d_HEFFbyNEG(I,J,bi,bj)+tmpscal1
./pkg/seaice/seaice_reg_ridge.F 228 SEAICE_REG_RIDGE 
          d_HSNWbyNEG(I,J,bi,bj)=d_HSNWbyNEG(I,J,bi,bj)+tmpscal2
./pkg/seaice/seaice_reg_ridge.F 238 SEAICE_REG_RIDGE 
           IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND.
./pkg/seaice/seaice_reg_ridge.F 239 SEAICE_REG_RIDGE 
     &          (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0))
./pkg/seaice/seaice_reg_ridge.F 240 SEAICE_REG_RIDGE 
     &          AREAITD(I,J,IT,bi,bj)=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 251 SEAICE_REG_RIDGE 
           IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND.
./pkg/seaice/seaice_reg_ridge.F 252 SEAICE_REG_RIDGE 
     &        (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0
./pkg/seaice/seaice_reg_ridge.F 265 SEAICE_REG_RIDGE 
           IF ((HEFFITD(I,J,IT,bi,bj).GT.0).OR.
./pkg/seaice/seaice_reg_ridge.F 266 SEAICE_REG_RIDGE 
     &          (HSNOWITD(I,J,IT,bi,bj).GT.0)) THEN
./pkg/seaice/seaice_reg_ridge.F 270 SEAICE_REG_RIDGE 
            AREAITD(I,J,IT,bi,bj)=
./pkg/seaice/seaice_reg_ridge.F 271 SEAICE_REG_RIDGE 
     &        MAX(AREAITD(I,J,IT,bi,bj),SEAICE_area_floor*recip_nitd)
./pkg/seaice/seaice_reg_ridge.F 282 SEAICE_REG_RIDGE 
         IF ((HEFF(i,j,bi,bj).GT.0).OR.(HSNOW(i,j,bi,bj).GT.0)) THEN
./pkg/seaice/seaice_reg_ridge.F 283 SEAICE_REG_RIDGE 
          AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),SEAICE_area_floor)
./pkg/seaice/seaice_reg_ridge.F 298 SEAICE_REG_RIDGE 
          IF ( (HSALT(I,J,bi,bj) .LT. 0.0).OR.
./pkg/seaice/seaice_reg_ridge.F 299 SEAICE_REG_RIDGE 
     &         (HEFF(I,J,bi,bj) .EQ. 0.0)  ) THEN
./pkg/seaice/seaice_reg_ridge.F 300 SEAICE_REG_RIDGE 
             saltFluxAdjust(I,J,bi,bj) = - HEFFM(I,J,bi,bj) *
./pkg/seaice/seaice_reg_ridge.F 301 SEAICE_REG_RIDGE 
     &            HSALT(I,J,bi,bj) * recip_deltaTtherm
./pkg/seaice/seaice_reg_ridge.F 302 SEAICE_REG_RIDGE 
             HSALT(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_reg_ridge.F 330 SEAICE_REG_RIDGE 
     &          +        TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 331 SEAICE_REG_RIDGE 
           tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 333 SEAICE_REG_RIDGE 
           tmpscal3itd(i,j)=tmpscal3itd(i,j) + AREAITD(I,J,IT,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 347 SEAICE_REG_RIDGE 
          SItrAREA(I,J,bi,bj,1)=tmpscal3itd(i,j)
./pkg/seaice/seaice_reg_ridge.F 353 SEAICE_REG_RIDGE 
        CALL SEAICE_DO_RIDGING( bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_reg_ridge.F 356 SEAICE_REG_RIDGE 
        CALL SEAICE_ITD_REDIST( bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_reg_ridge.F 359 SEAICE_REG_RIDGE 
        CALL SEAICE_ITD_SUM   ( bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_reg_ridge.F 370 SEAICE_REG_RIDGE 
          DIAGarrayA(I,J) = AREA(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 373 SEAICE_REG_RIDGE 
          SItrAREA(I,J,bi,bj,1)=AREA(I,J,bi,bj)
./pkg/seaice/seaice_reg_ridge.F 377 SEAICE_REG_RIDGE 
          AREA(I,J,bi,bj)=MIN(AREA(I,J,bi,bj),SEAICE_area_max)
./pkg/seaice/seaice_reg_ridge.F 390 SEAICE_REG_RIDGE 
         CALL DIAGNOSTICS_FILL(DIAGarrayA,'SIareaPR',0,1,3,bi,bj,myThid)
./pkg/seaice/seaice_reg_ridge.F 58 SEAICE_REG_RIDGE 
      INTEGER i, j, bi, bj
./pkg/seaice/seaice_reg_ridge.F 83 SEAICE_REG_RIDGE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_reg_ridge.F 89 SEAICE_REG_RIDGE 
        act2 = bj - myByLo(myThid)
./model/src/impldiff.F 10 IMPLDIFF 
      SUBROUTINE IMPLDIFF( bi, bj, iMin, iMax, jMin, jMax,
./model/src/impldiff.F 336 IMPLDIFF 
     &             -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/impldiff.F 339 IMPLDIFF 
     &            * maskC(i,j,k,bi,bj)
./model/src/impldiff.F 340 IMPLDIFF 
     &            * maskC(i,j,k-1,bi,bj)
./model/src/impldiff.F 352 IMPLDIFF 
     &             -rAw(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/impldiff.F 355 IMPLDIFF 
     &            * _maskW(i,j,k,bi,bj)
./model/src/impldiff.F 356 IMPLDIFF 
     &            * _maskW(i,j,k-1,bi,bj)
./model/src/impldiff.F 368 IMPLDIFF 
     &             -rAs(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k)
./model/src/impldiff.F 371 IMPLDIFF 
     &            * _maskS(i,j,k,bi,bj)
./model/src/impldiff.F 372 IMPLDIFF 
     &            * _maskS(i,j,k-1,bi,bj)
./model/src/impldiff.F 376 IMPLDIFF 
          CALL DIAGNOSTICS_FILL(df,diagName, k,1, 2,bi,bj, myThid)
./model/src/impldiff.F 380 IMPLDIFF 
     &                           k, 1, 2,bi,bj, myThid )
./model/src/impldiff.F 55 IMPLDIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/seaice/seaice_solve4temp.F 21 SEAICE_SOLVE4TEMP 
     I   bi, bj, myTime, myIter, myThid )
./pkg/seaice/seaice_solve4temp.F 238 SEAICE_SOLVE4TEMP 
        lwdownLoc(I,J) = MAX( MIN_LWDOWN, LWDOWN(I,J,bi,bj) )
./pkg/seaice/seaice_solve4temp.F 239 SEAICE_SOLVE4TEMP 
        atempLoc (I,J) = MAX( celsius2K+MIN_ATEMP, ATEMP(I,J,bi,bj) )
./pkg/seaice/seaice_solve4temp.F 242 SEAICE_SOLVE4TEMP 
        tempFrz(I,J) = SEAICE_dTempFrz_dS *salt(I,J,kSurface,bi,bj)
./pkg/seaice/seaice_solve4temp.F 275 SEAICE_SOLVE4TEMP 
         IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN
./pkg/seaice/seaice_solve4temp.F 315 SEAICE_SOLVE4TEMP 
     &                    *penetSWFrac * SWDOWN(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 318 SEAICE_SOLVE4TEMP 
     &        *(1.0 _d 0 - penetSWFrac)* SWDOWN(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 401 SEAICE_SOLVE4TEMP 
          F_lh(I,J)   = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 476 SEAICE_SOLVE4TEMP 
          absorbedSW(I,J) = 0.3 _d 0 *SWDOWN(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 504 SEAICE_SOLVE4TEMP 
          F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 555 SEAICE_SOLVE4TEMP 
     &         SWDOWN(I,J,bi,bj), IcePenetSW(I,J)
./pkg/seaice/seaice_solve4temp.F 558 SEAICE_SOLVE4TEMP 
     &         AQH(I,J,bi,bj),qhice(I,J)
./pkg/seaice/seaice_solve4temp.F 82 SEAICE_SOLVE4TEMP 
      INTEGER bi, bj
./pkg/seaice/seaice_tracer_phys.F 100 SEAICE_TRACER_PHYS 
         HEFFprev=SItrHEFF(i,j,bi,bj,jTh)
./pkg/seaice/seaice_tracer_phys.F 101 SEAICE_TRACER_PHYS 
         HEFFpost=SItrHEFF(i,j,bi,bj,jTh+1)
./pkg/seaice/seaice_tracer_phys.F 108 SEAICE_TRACER_PHYS 
         SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact
./pkg/seaice/seaice_tracer_phys.F 110 SEAICE_TRACER_PHYS 
         SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 112 SEAICE_TRACER_PHYS 
         SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 113 SEAICE_TRACER_PHYS 
     &                            +meltPart*SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 117 SEAICE_TRACER_PHYS 
        HEFFprev=SItrHEFF(i,j,bi,bj,4)
./pkg/seaice/seaice_tracer_phys.F 118 SEAICE_TRACER_PHYS 
        HEFFpost=SItrHEFF(i,j,bi,bj,5)
./pkg/seaice/seaice_tracer_phys.F 120 SEAICE_TRACER_PHYS 
        SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*growFact
./pkg/seaice/seaice_tracer_phys.F 124 SEAICE_TRACER_PHYS 
          SItrBucket(i,j,bi,bj,iTr)=SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 127 SEAICE_TRACER_PHYS 
        DIAGarray(I,J,5+(iTr-1)*5) = HEFFpost*SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 128 SEAICE_TRACER_PHYS 
     &  +SItrBucket(i,j,bi,bj,iTr)-DIAGarray(I,J,5+(iTr-1)*5)
./pkg/seaice/seaice_tracer_phys.F 144 SEAICE_TRACER_PHYS 
        AREAprev=SItrAREA(i,j,bi,bj,2)
./pkg/seaice/seaice_tracer_phys.F 145 SEAICE_TRACER_PHYS 
        AREApost=SItrAREA(i,j,bi,bj,3)
./pkg/seaice/seaice_tracer_phys.F 150 SEAICE_TRACER_PHYS 
         SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*expandFact
./pkg/seaice/seaice_tracer_phys.F 161 SEAICE_TRACER_PHYS 
          if (( (SItrHEFF(i,j,bi,bj,5).GT.0. _d 0).AND.(SItrMate(iTr)
./pkg/seaice/seaice_tracer_phys.F 162 SEAICE_TRACER_PHYS 
     &     .EQ.'HEFF') ).OR.( (SItrAREA(i,j,bi,bj,3).GT.0. _d 0).AND.
./pkg/seaice/seaice_tracer_phys.F 164 SEAICE_TRACER_PHYS 
            SItracer(i,j,bi,bj,iTr)=
./pkg/seaice/seaice_tracer_phys.F 165 SEAICE_TRACER_PHYS 
     &      SItracer(i,j,bi,bj,iTr)+SEAICE_deltaTtherm
./pkg/seaice/seaice_tracer_phys.F 167 SEAICE_TRACER_PHYS 
            SItracer(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_tracer_phys.F 180 SEAICE_TRACER_PHYS 
          SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)+
./pkg/seaice/seaice_tracer_phys.F 181 SEAICE_TRACER_PHYS 
     &    MAX(0. _d 0, SItrAREA(i,j,bi,bj,1)-SItrAREA(i,j,bi,bj,2))
./pkg/seaice/seaice_tracer_phys.F 183 SEAICE_TRACER_PHYS 
          HEFFprev=SItrHEFF(i,j,bi,bj,1)
./pkg/seaice/seaice_tracer_phys.F 184 SEAICE_TRACER_PHYS 
          HEFFpost=SItrHEFF(i,j,bi,bj,4)
./pkg/seaice/seaice_tracer_phys.F 187 SEAICE_TRACER_PHYS 
          SItracer(i,j,bi,bj,iTr)=SItracer(i,j,bi,bj,iTr)*tmpscal1
./pkg/seaice/seaice_tracer_phys.F 197 SEAICE_TRACER_PHYS 
        CALL DIAGNOSTICS_SCALE_FILL(SItrBucket(1-OLx,1-OLy,bi,bj,iTr),
./pkg/seaice/seaice_tracer_phys.F 198 SEAICE_TRACER_PHYS 
     &   tmpscal1, 1, diagName,0,1,2,bi,bj,myThid)
./pkg/seaice/seaice_tracer_phys.F 207 SEAICE_TRACER_PHYS 
          saltFlux(I,J,bi,bj) = - SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 208 SEAICE_TRACER_PHYS 
     &      *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F 212 SEAICE_TRACER_PHYS 
          saltPlumeFlux(I,J,bi,bj) = MAX(ZERO,saltFlux(I,J,bi,bj))
./pkg/seaice/seaice_tracer_phys.F 213 SEAICE_TRACER_PHYS 
     &      *SPsalFRAC*(salt(I,j,ks,bi,bj)-SItrFromOcean(i,j))
./pkg/seaice/seaice_tracer_phys.F 222 SEAICE_TRACER_PHYS 
        DIAGarray(I,J,4+(iTr-1)*5) = - SItrBucket(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 223 SEAICE_TRACER_PHYS 
     &  *HEFFM(I,J,bi,bj)/SEAICE_deltaTtherm*SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F 228 SEAICE_TRACER_PHYS 
     &      SItrBucket(i,j,bi,bj,iTr)=0. _d 0
./pkg/seaice/seaice_tracer_phys.F 240 SEAICE_TRACER_PHYS 
        HEFFpost=SItrHEFF(i,j,bi,bj,5)
./pkg/seaice/seaice_tracer_phys.F 241 SEAICE_TRACER_PHYS 
        DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 242 SEAICE_TRACER_PHYS 
        DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*HEFFpost
./pkg/seaice/seaice_tracer_phys.F 245 SEAICE_TRACER_PHYS 
          DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce
./pkg/seaice/seaice_tracer_phys.F 256 SEAICE_TRACER_PHYS 
        AREApost=SItrAREA(i,j,bi,bj,3)
./pkg/seaice/seaice_tracer_phys.F 257 SEAICE_TRACER_PHYS 
        DIAGarray(I,J,1+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)
./pkg/seaice/seaice_tracer_phys.F 258 SEAICE_TRACER_PHYS 
        DIAGarray(I,J,2+(iTr-1)*5) = SItracer(i,j,bi,bj,iTr)*AREApost
./pkg/seaice/seaice_tracer_phys.F 42 SEAICE_TRACER_PHYS 
      INTEGER iTr, jTh, I, J, bi, bj, ks
./pkg/seaice/seaice_tracer_phys.F 60 SEAICE_TRACER_PHYS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/seaice/seaice_tracer_phys.F 78 SEAICE_TRACER_PHYS 
         SItrFromOcean(i,j)=SItrFromOceanFrac(iTr)*salt(I,j,ks,bi,bj)
./pkg/seaice/seaice_tracer_phys.F 79 SEAICE_TRACER_PHYS 
         SItrFromFlood(i,j)=SItrFromFloodFrac(iTr)*salt(I,j,ks,bi,bj)
./pkg/seaice/seaice_tracer_phys.F 88 SEAICE_TRACER_PHYS 
        HEFFprev=SItrHEFF(i,j,bi,bj,1)
./pkg/seaice/seaice_tracer_phys.F 91 SEAICE_TRACER_PHYS 
     &    HEFFprev*SItracer(i,j,bi,bj,iTr) + SItrBucket(i,j,bi,bj,iTr)
./pkg/shap_filt/shap_filt_apply_ts.F 50 SHAP_FILT_APPLY_TS 
      INTEGER bi, bj, k
./pkg/shap_filt/shap_filt_apply_ts.F 69 SHAP_FILT_APPLY_TS 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/shap_filt/shap_filt_apply_ts.F 73 SHAP_FILT_APPLY_TS 
     &       CALL SHAP_FILT_TRACEROLD( tFld,bi,bj,k,myTime,myThid )
./pkg/shap_filt/shap_filt_apply_ts.F 75 SHAP_FILT_APPLY_TS 
     &       CALL SHAP_FILT_TRACEROLD( sFld,bi,bj,k,myTime,myThid )
./pkg/shap_filt/shap_filt_apply_uv.F 142 SHAP_FILT_APPLY_UV 
           DO bj=myByLo(myThid),myByHi(myThid)
./pkg/shap_filt/shap_filt_apply_uv.F 149 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 150 SHAP_FILT_APPLY_UV 
     &                *_hFacW(i ,j, k,bi,bj)*rAw(i ,j, bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 151 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 152 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 155 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 156 SHAP_FILT_APPLY_UV 
     &                *_hFacS(i,j  ,k,bi,bj)*rAs(i,j  ,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 157 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 158 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 166 SHAP_FILT_APPLY_UV 
                   frictionHeating(i,j,k,bi,bj) =
./pkg/shap_filt/shap_filt_apply_uv.F 167 SHAP_FILT_APPLY_UV 
     &                             frictionHeating(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 177 SHAP_FILT_APPLY_UV 
                   dKE_shap(i,j) = dKE_shap(i,j) * recip_rA(i,j,bi,bj)
./pkg/shap_filt/shap_filt_apply_uv.F 181 SHAP_FILT_APPLY_UV 
     &                                k, 1, 2, bi, bj, myThid )
./pkg/shap_filt/shap_filt_apply_uv.F 62 SHAP_FILT_APPLY_UV 
      INTEGER bi, bj, k
./pkg/shap_filt/shap_filt_apply_uv.F 67 SHAP_FILT_APPLY_UV 
      INTEGER bi, bj, k, i, j
./pkg/shap_filt/shap_filt_apply_uv.F 79 SHAP_FILT_APPLY_UV 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/shap_filt/shap_filt_apply_uv.F 82 SHAP_FILT_APPLY_UV 
            CALL SHAP_FILT_U( uFld,bi,bj,k,myTime,myThid )
./pkg/shap_filt/shap_filt_apply_uv.F 83 SHAP_FILT_APPLY_UV 
            CALL SHAP_FILT_V( vFld,bi,bj,k,myTime,myThid )
./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 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 12 SHAP_FILT_COMPUTVORT 
     I           k, bi,bj, myThid )
./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 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 44 SHAP_FILT_COMPUTVORT 
      INTEGER k, bi,bj
./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 84 SHAP_FILT_COMPUTVORT 
         myTile = W2_myTileList(bi,bj)
./model/src/ini_cartesian_grid.F 102 INI_CARTESIAN_GRID 
          dxG(i,j,bi,bj) = delXloc(i)
./model/src/ini_cartesian_grid.F 103 INI_CARTESIAN_GRID 
          dyG(i,j,bi,bj) = delYloc(j)
./model/src/ini_cartesian_grid.F 114 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 121 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 129 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 130 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 140 INI_CARTESIAN_GRID 
          rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 141 INI_CARTESIAN_GRID 
          rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 142 INI_CARTESIAN_GRID 
          rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 143 INI_CARTESIAN_GRID 
          rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj)
./model/src/ini_cartesian_grid.F 48 INI_CARTESIAN_GRID 
      INTEGER bi, bj
./model/src/ini_cartesian_grid.F 60 INI_CARTESIAN_GRID 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_cartesian_grid.F 70 INI_CARTESIAN_GRID 
     I                       bi, bj, myThid )
./model/src/ini_cartesian_grid.F 75 INI_CARTESIAN_GRID 
          xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_cartesian_grid.F 76 INI_CARTESIAN_GRID 
          yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_cartesian_grid.F 84 INI_CARTESIAN_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F 86 INI_CARTESIAN_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F 94 INI_CARTESIAN_GRID 
          dxF(i,j,bi,bj) = delXloc(i)
./model/src/ini_cartesian_grid.F 95 INI_CARTESIAN_GRID 
          dyF(i,j,bi,bj) = delYloc(j)
./pkg/shap_filt/shap_filt_relvort3.F 125 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 126 SHAP_FILT_RELVORT3 
     &      ( vFld(I,J)*dyC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 127 SHAP_FILT_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj) )
./pkg/shap_filt/shap_filt_relvort3.F 128 SHAP_FILT_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 140 SHAP_FILT_RELVORT3 
     &      recip_rAz(I-1,J,bi,bj)*(
./pkg/shap_filt/shap_filt_relvort3.F 141 SHAP_FILT_RELVORT3 
     &      vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 142 SHAP_FILT_RELVORT3 
     &     -vFld(I-2,J)*dyC(I-2,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 143 SHAP_FILT_RELVORT3 
     &     -uFld(I-1,J)*dxC(I-1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 144 SHAP_FILT_RELVORT3 
     &     +vFld(I+0,J-1)*dyC(I+0,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 168 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 169 SHAP_FILT_RELVORT3 
     &      (-uFld(I,J)*dxC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 170 SHAP_FILT_RELVORT3 
     &       -vFld(I-1,J)*dyC(I-1,J,bi,bj) )
./pkg/shap_filt/shap_filt_relvort3.F 171 SHAP_FILT_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 175 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 176 SHAP_FILT_RELVORT3 
     &      (-vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 177 SHAP_FILT_RELVORT3 
     &       +uFld(I,J-1)*dxC(I,J-1,bi,bj) )
./pkg/shap_filt/shap_filt_relvort3.F 178 SHAP_FILT_RELVORT3 
     &      - uFld(I,J)*dxC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 182 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 183 SHAP_FILT_RELVORT3 
     &      (+uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 184 SHAP_FILT_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)     )
./pkg/shap_filt/shap_filt_relvort3.F 185 SHAP_FILT_RELVORT3 
     &      - vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 198 SHAP_FILT_RELVORT3 
     &      recip_rAz(I+1,J,bi,bj)*(
./pkg/shap_filt/shap_filt_relvort3.F 199 SHAP_FILT_RELVORT3 
     &      vFld(I+1,J)*dyC(I+1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 200 SHAP_FILT_RELVORT3 
     &     -vFld(I-0,J)*dyC(I-0,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 201 SHAP_FILT_RELVORT3 
     &     -uFld(I+1,J)*dxC(I+1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 202 SHAP_FILT_RELVORT3 
     &     -vFld(I-1,J-1)*dyC(I-1,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 226 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 227 SHAP_FILT_RELVORT3 
     &      (+uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 228 SHAP_FILT_RELVORT3 
     &       +vFld(I,J)*dyC(I,J,bi,bj)     )
./pkg/shap_filt/shap_filt_relvort3.F 229 SHAP_FILT_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 233 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 234 SHAP_FILT_RELVORT3 
     &      (-uFld(I,J)*dxC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 235 SHAP_FILT_RELVORT3 
     &       +uFld(I,J-1)*dxC(I,J-1,bi,bj) )
./pkg/shap_filt/shap_filt_relvort3.F 236 SHAP_FILT_RELVORT3 
     &      + vFld(I,J)*dyC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 240 SHAP_FILT_RELVORT3 
     &     +recip_rA(I,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 241 SHAP_FILT_RELVORT3 
     &      (+vFld(I,J)*dyC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 242 SHAP_FILT_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)     )
./pkg/shap_filt/shap_filt_relvort3.F 243 SHAP_FILT_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 256 SHAP_FILT_RELVORT3 
     &      recip_rAz(I-1,J,bi,bj)*(
./pkg/shap_filt/shap_filt_relvort3.F 257 SHAP_FILT_RELVORT3 
     &      vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 258 SHAP_FILT_RELVORT3 
     &     -vFld(I-2,J)*dyC(I-2,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 259 SHAP_FILT_RELVORT3 
     &     +vFld(I-0,J+1)*dyC(I-0,J+1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 260 SHAP_FILT_RELVORT3 
     &     +uFld(I-1,J-1)*dxC(I-1,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 284 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 285 SHAP_FILT_RELVORT3 
     &      (-uFld(I,J)*dxC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 286 SHAP_FILT_RELVORT3 
     &       -vFld(I-1,J)*dyC(I-1,J,bi,bj) )
./pkg/shap_filt/shap_filt_relvort3.F 287 SHAP_FILT_RELVORT3 
     &      + uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 291 SHAP_FILT_RELVORT3 
     &     +recip_rA(I-1,J-1,bi,bj)/AZcorner*(
./pkg/shap_filt/shap_filt_relvort3.F 292 SHAP_FILT_RELVORT3 
     &      (+uFld(I,J-1)*dxC(I,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 293 SHAP_FILT_RELVORT3 
     &       -uFld(I,J)*dxC(I,J,bi,bj)     )
./pkg/shap_filt/shap_filt_relvort3.F 294 SHAP_FILT_RELVORT3 
     &      - vFld(I-1,J)*dyC(I-1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 307 SHAP_FILT_RELVORT3 
     &      recip_rAz(I+1,J,bi,bj)*(
./pkg/shap_filt/shap_filt_relvort3.F 308 SHAP_FILT_RELVORT3 
     &      vFld(I+1,J)*dyC(I+1,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 309 SHAP_FILT_RELVORT3 
     &     -vFld(I-0,J)*dyC(I-0,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 310 SHAP_FILT_RELVORT3 
     &     -vFld(I-1,J+1)*dyC(I-1,J+1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 311 SHAP_FILT_RELVORT3 
     &     +uFld(I+1,J-1)*dxC(I+1,J-1,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 32 SHAP_FILT_RELVORT3 
      INTEGER bi,bj,k
./pkg/shap_filt/shap_filt_relvort3.F 62 SHAP_FILT_RELVORT3 
     &      recip_rAz(I,J,bi,bj)*(
./pkg/shap_filt/shap_filt_relvort3.F 63 SHAP_FILT_RELVORT3 
     &      ( vFld(I,J)*dyC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 64 SHAP_FILT_RELVORT3 
     &       -vFld(I-1,J)*dyC(I-1,J,bi,bj) )
./pkg/shap_filt/shap_filt_relvort3.F 65 SHAP_FILT_RELVORT3 
     &     -( uFld(I,J)*dxC(I,J,bi,bj)
./pkg/shap_filt/shap_filt_relvort3.F 66 SHAP_FILT_RELVORT3 
     &       -uFld(I,J-1)*dxC(I,J-1,bi,bj) )
./pkg/shap_filt/shap_filt_relvort3.F 8 SHAP_FILT_RELVORT3 
     I        bi,bj,k,
./pkg/shap_filt/shap_filt_relvort3.F 92 SHAP_FILT_RELVORT3 
       myTile = W2_myTileList(bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 106 SHAP_FILT_TRACER_S1 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 132 SHAP_FILT_TRACER_S1 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 159 SHAP_FILT_TRACER_S1 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 49 SHAP_FILT_TRACER_S1 
      INTEGER bi,bj,K,I,J,N
./pkg/shap_filt/shap_filt_tracer_s1.F 56 SHAP_FILT_TRACER_S1 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 79 SHAP_FILT_TRACER_S1 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/shap_filt/shap_filt_tracer_s1.F 86 SHAP_FILT_TRACER_S1 
     &        ( tmpFld(i+1,j,k,bi,bj)-tmpFld( i ,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 87 SHAP_FILT_TRACER_S1 
     &            *_maskW(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s1.F 88 SHAP_FILT_TRACER_S1 
     &       -( tmpFld( i ,j,k,bi,bj)-tmpFld(i-1,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 89 SHAP_FILT_TRACER_S1 
     &            *_maskW(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracer_s1.F 95 SHAP_FILT_TRACER_S1 
             tmpFld(i,j,k,bi,bj) = tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 105 SHAP_FILT_TRACER_S2 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/shap_filt/shap_filt_tracer_s2.F 117 SHAP_FILT_TRACER_S2 
     &                                 tmpFld(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_tracer_s2.F 118 SHAP_FILT_TRACER_S2 
     &                                 bi,bj, myThid )
./pkg/shap_filt/shap_filt_tracer_s2.F 126 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 127 SHAP_FILT_TRACER_S2 
     &                     *_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 135 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 136 SHAP_FILT_TRACER_S2 
     &                     *_hFacW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 137 SHAP_FILT_TRACER_S2 
     &                     *dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 148 SHAP_FILT_TRACER_S2 
     &                                 tmpFld(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_tracer_s2.F 149 SHAP_FILT_TRACER_S2 
     &                                 bi,bj, myThid )
./pkg/shap_filt/shap_filt_tracer_s2.F 157 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 158 SHAP_FILT_TRACER_S2 
     &                     *_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 166 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 167 SHAP_FILT_TRACER_S2 
     &                     *_hFacS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 168 SHAP_FILT_TRACER_S2 
     &                     *dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 185 SHAP_FILT_TRACER_S2 
               tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 192 SHAP_FILT_TRACER_S2 
               tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 193 SHAP_FILT_TRACER_S2 
     &             *recip_hFacC(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 199 SHAP_FILT_TRACER_S2 
               tmpFld(i,j,k,bi,bj) = -0.125*tmpGrd(i,j)
./pkg/shap_filt/shap_filt_tracer_s2.F 200 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 215 SHAP_FILT_TRACER_S2 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/shap_filt/shap_filt_tracer_s2.F 220 SHAP_FILT_TRACER_S2 
            field(i,j,k,bi,bj)=field(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_tracer_s2.F 221 SHAP_FILT_TRACER_S2 
     &            -tmpFld(i,j,k,bi,bj)*dTtracerLev(1)/Shap_Trtau
./pkg/shap_filt/shap_filt_tracer_s2.F 222 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 78 SHAP_FILT_TRACER_S2 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 105 SHAP_FILT_TRACER_S4 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 130 SHAP_FILT_TRACER_S4 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 157 SHAP_FILT_TRACER_S4 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 49 SHAP_FILT_TRACER_S4 
      INTEGER bi,bj,K,I,J,N
./pkg/shap_filt/shap_filt_tracer_s4.F 55 SHAP_FILT_TRACER_S4 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 78 SHAP_FILT_TRACER_S4 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 26 SHAP_FILT_TRACEROLD 
      INTEGER bi, bj, K
./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 50 SHAP_FILT_TRACEROLD 
     &        *_maskW(i+1,j,k,bi,bj)
./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 67 SHAP_FILT_TRACEROLD 
        tmpFldY(i,j,1) = field(i,j,k,bi,bj)
./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 82 SHAP_FILT_TRACEROLD 
     &        *_maskS(i,j,k,bi,bj) )
./pkg/shap_filt/shap_filt_tracerold.F 8 SHAP_FILT_TRACEROLD 
     I           bi, bj, K, myCurrentTime, myThid )
./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_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 25 SHAP_FILT_U 
      INTEGER bi, bj, K
./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 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 6 SHAP_FILT_U 
      SUBROUTINE SHAP_FILT_U(uVel,bi,bj,K,myCurrentTime,myThid)
./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 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 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 134 SHAP_FILT_UV_S1 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 168 SHAP_FILT_UV_S1 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 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 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 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 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 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 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 263 SHAP_FILT_UV_S1 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 65 SHAP_FILT_UV_S1 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 91 SHAP_FILT_UV_S1 
        DO bj=myByLo(myThid),myByHi(myThid)
./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)
./model/src/ini_cg2d.F 103 INI_CG2D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg2d.F 104 INI_CG2D 
     &               *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg2d.F 105 INI_CG2D 
           aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)
./model/src/ini_cg2d.F 107 INI_CG2D 
     &               *faceArea*recip_dxC(i,j,bi,bj)
./model/src/ini_cg2d.F 108 INI_CG2D 
           faceArea = _dxG(i,j,bi,bj)*drF(k)
./model/src/ini_cg2d.F 109 INI_CG2D 
     &               *_hFacS(i,j,k,bi,bj)
./model/src/ini_cg2d.F 110 INI_CG2D 
           aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)
./model/src/ini_cg2d.F 112 INI_CG2D 
     &               *faceArea*recip_dyC(i,j,bi,bj)
./model/src/ini_cg2d.F 119 INI_CG2D 
           aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)
./model/src/ini_cg2d.F 120 INI_CG2D 
     &                   *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj)
./model/src/ini_cg2d.F 121 INI_CG2D 
           aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)
./model/src/ini_cg2d.F 122 INI_CG2D 
     &                   *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./model/src/ini_cg2d.F 124 INI_CG2D 
           myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 125 INI_CG2D 
           myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 136 INI_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg2d.F 140 INI_CG2D 
          aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 141 INI_CG2D 
          aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 202 INI_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg2d.F 207 INI_CG2D 
           ks = ksurfC(i,j,bi,bj)
./model/src/ini_cg2d.F 208 INI_CG2D 
           aC2d(i,j,bi,bj) = -(
./model/src/ini_cg2d.F 209 INI_CG2D 
     &       aW2d(i,j,bi,bj) + aW2d(i+1,j, bi,bj)
./model/src/ini_cg2d.F 210 INI_CG2D 
     &      +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj)
./model/src/ini_cg2d.F 211 INI_CG2D 
     &      +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/ini_cg2d.F 212 INI_CG2D 
     &                  *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/ini_cg2d.F 218 INI_CG2D 
           aC  = aC2d( i, j, bi,bj)
./model/src/ini_cg2d.F 219 INI_CG2D 
           aCs = aC2d( i,j-1,bi,bj)
./model/src/ini_cg2d.F 220 INI_CG2D 
           aCw = aC2d(i-1,j, bi,bj)
./model/src/ini_cg2d.F 222 INI_CG2D 
            pC(i,j,bi,bj) = 1. _d 0
./model/src/ini_cg2d.F 224 INI_CG2D 
            pC(i,j,bi,bj) =  1. _d 0 / aC
./model/src/ini_cg2d.F 227 INI_CG2D 
            pW(i,j,bi,bj) = 0.
./model/src/ini_cg2d.F 229 INI_CG2D 
            pW(i,j,bi,bj) =
./model/src/ini_cg2d.F 230 INI_CG2D 
     &         -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCw+aC))**2 )
./model/src/ini_cg2d.F 233 INI_CG2D 
            pS(i,j,bi,bj) = 0.
./model/src/ini_cg2d.F 235 INI_CG2D 
            pS(i,j,bi,bj) =
./model/src/ini_cg2d.F 236 INI_CG2D 
     &         -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 )
./model/src/ini_cg2d.F 44 INI_CG2D 
      INTEGER bi, bj
./model/src/ini_cg2d.F 53 INI_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg2d.F 57 INI_CG2D 
          aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 58 INI_CG2D 
          aS2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 59 INI_CG2D 
          aC2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 60 INI_CG2D 
          pW(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 61 INI_CG2D 
          pS(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 62 INI_CG2D 
          pC(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 67 INI_CG2D 
          cg2d_q(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 68 INI_CG2D 
          cg2d_r(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 69 INI_CG2D 
          cg2d_s(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 71 INI_CG2D 
          cg2d_z(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 74 INI_CG2D 
          cg2d_y(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 75 INI_CG2D 
          cg2d_v(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 91 INI_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg2d.F 95 INI_CG2D 
          aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 96 INI_CG2D 
          aS2d(i,j,bi,bj) = 0. _d 0
./pkg/shap_filt/shap_filt_uv_s2.F 110 SHAP_FILT_UV_S2 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/shap_filt/shap_filt_uv_s2.F 116 SHAP_FILT_UV_S2 
     &     CALL MOM_CALC_HFACZ(bi,bj,k,hFacZ,r_hFacZ,myThid)
./pkg/shap_filt/shap_filt_uv_s2.F 120 SHAP_FILT_UV_S2 
           CALL MOM_CALC_HDIV(bi,bj,k,2,
./pkg/shap_filt/shap_filt_uv_s2.F 121 SHAP_FILT_UV_S2 
     I                    tmpFldU(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 122 SHAP_FILT_UV_S2 
     I                    tmpFldV(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 125 SHAP_FILT_UV_S2 
           CALL SHAP_FILT_RELVORT3(bi,bj,k,
./pkg/shap_filt/shap_filt_uv_s2.F 126 SHAP_FILT_UV_S2 
     I                    tmpFldU(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 127 SHAP_FILT_UV_S2 
     I                    tmpFldV(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 130 SHAP_FILT_UV_S2 
           CALL MOM_CALC_RELVORT3(bi,bj,k,
./pkg/shap_filt/shap_filt_uv_s2.F 131 SHAP_FILT_UV_S2 
     I                    tmpFldU(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 132 SHAP_FILT_UV_S2 
     I                    tmpFldV(1-OLx,1-OLy,k,bi,bj),
./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 144 SHAP_FILT_UV_S2 
     I                    tmpFldU(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 145 SHAP_FILT_UV_S2 
     I                    tmpFldV(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 147 SHAP_FILT_UV_S2 
     I                    k,bi,bj,myThid)
./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 161 SHAP_FILT_UV_S2 
                vort3(i,j)= vort3(i,j)*rAz(i,j,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 166 SHAP_FILT_UV_S2 
     I                    bi,bj,k,hDiv,vort3,hFacZ,
./pkg/shap_filt/shap_filt_uv_s2.F 167 SHAP_FILT_UV_S2 
     O                    tmpFldU(1-OLx,1-OLy,k,bi,bj),
./pkg/shap_filt/shap_filt_uv_s2.F 168 SHAP_FILT_UV_S2 
     O                    tmpFldV(1-OLx,1-OLy,k,bi,bj),
./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 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 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 205 SHAP_FILT_UV_S2 
     &                                  hDiv, bi,bj, myThid )
./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 213 SHAP_FILT_UV_S2 
     &                   )*maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 221 SHAP_FILT_UV_S2 
     &                                  hDiv, bi,bj, myThid )
./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 229 SHAP_FILT_UV_S2 
     &                   )*maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 245 SHAP_FILT_UV_S2 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 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 85 SHAP_FILT_UV_S2 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 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 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 117 SHAP_FILT_UV_S2C 
     &         tmpFldU(i-1,j,k,bi,bj) + tmpFldU(i+1,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 118 SHAP_FILT_UV_S2C 
     &             - 2.*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 119 SHAP_FILT_UV_S2C 
     &       +(tmpFldU(i,j+1,k,bi,bj)-tmpFldU(i, j ,k,bi,bj))*maskZp
./pkg/shap_filt/shap_filt_uv_s2c.F 120 SHAP_FILT_UV_S2C 
     &       -(tmpFldU(i,j,k,bi,bj)-0*tmpFldU(i,j-1,k,bi,bj))*maskZj
./pkg/shap_filt/shap_filt_uv_s2c.F 121 SHAP_FILT_UV_S2C 
     &       -noSlipFact*(2.-maskZj-maskZp)*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 123 SHAP_FILT_UV_S2C 
             maskZj=_maskS(i-1, j ,k,bi,bj)*_maskS( i , j ,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 124 SHAP_FILT_UV_S2C 
             maskZp=_maskS(i-1,j+1,k,bi,bj)*_maskS( i ,j+1,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 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 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 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 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 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 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 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 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 195 SHAP_FILT_UV_S2C 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 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 64 SHAP_FILT_UV_S2C 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 93 SHAP_FILT_UV_S2C 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 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 133 SHAP_FILT_UV_S4 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 165 SHAP_FILT_UV_S4 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 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 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 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 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 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 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 265 SHAP_FILT_UV_S4 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 64 SHAP_FILT_UV_S4 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 90 SHAP_FILT_UV_S4 
        DO bj=myByLo(myThid),myByHi(myThid)
./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 25 SHAP_FILT_V 
      INTEGER bi, bj, K
./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 62 SHAP_FILT_V 
     &         )*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_v.F 6 SHAP_FILT_V 
      SUBROUTINE SHAP_FILT_V( vVel,bi,bj,K,myCurrentTime,myThid )
./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 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 92 SHAP_FILT_V 
     &            )*_maskS(i,j,k,bi,bj)
./model/src/ini_cg3d.F 106 INI_CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg3d.F 111 INI_CG3D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/ini_cg3d.F 112 INI_CG3D 
     &               *_hFacW(i,j,k,bi,bj)
./model/src/ini_cg3d.F 114 INI_CG3D 
     &               *maskInC(i,j,bi,bj)*maskInC(i-1,j,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 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 127 INI_CG3D 
     &               *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./model/src/ini_cg3d.F 129 INI_CG3D 
           aS3d(i,j,k,bi,bj) = faceArea*recip_dyC(i,j,bi,bj)
./model/src/ini_cg3d.F 131 INI_CG3D 
           myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 138 INI_CG3D 
           aV3d(i,j,k,bi,bj) =  0.
./model/src/ini_cg3d.F 148 INI_CG3D 
           faceArea = _rA(i,j,bi,bj)*maskC(i,j, k ,bi,bj)
./model/src/ini_cg3d.F 149 INI_CG3D 
     &                              *maskC(i,j,k-1,bi,bj)
./model/src/ini_cg3d.F 152 INI_CG3D 
     &                              *maskInC(i,j,bi,bj)
./model/src/ini_cg3d.F 160 INI_CG3D 
           aV3d(i,j,k,bi,bj) = faceArea*theRecip_Dr*tmpFac
./model/src/ini_cg3d.F 162 INI_CG3D 
           myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 187 INI_CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg3d.F 193 INI_CG3D 
           aW = aW3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F 194 INI_CG3D 
           aE = aW3d(i+1,j, k, bi,bj)
./model/src/ini_cg3d.F 195 INI_CG3D 
           aN = aS3d( i,j+1,k, bi,bj)
./model/src/ini_cg3d.F 196 INI_CG3D 
           aS = aS3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F 197 INI_CG3D 
           aU = aV3d( i, j, k, bi,bj)
./model/src/ini_cg3d.F 199 INI_CG3D 
            aL = aV3d(i, j,k+1,bi,bj)
./model/src/ini_cg3d.F 203 INI_CG3D 
           aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL
./model/src/ini_cg3d.F 214 INI_CG3D 
     &                *Bo_surf(i,j,bi,bj)*recip_drC(1)
./model/src/ini_cg3d.F 218 INI_CG3D 
           ks = kSurfC(i,j,bi,bj)
./model/src/ini_cg3d.F 220 INI_CG3D 
             aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj)
./model/src/ini_cg3d.F 221 INI_CG3D 
     &         - freeSurfFac*recip_Bo(i,j,bi,bj)
./model/src/ini_cg3d.F 222 INI_CG3D 
     &          *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTfreesurf
./model/src/ini_cg3d.F 232 INI_CG3D 
           aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 233 INI_CG3D 
           aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 234 INI_CG3D 
           aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 235 INI_CG3D 
           aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 256 INI_CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg3d.F 261 INI_CG3D 
           IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_cg3d.F 262 INI_CG3D 
            zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)
./model/src/ini_cg3d.F 263 INI_CG3D 
            zML(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)
./model/src/ini_cg3d.F 265 INI_CG3D 
             zMU(i,j,k,bi,bj)= aV3d(i,j,k+1,bi,bj)
./model/src/ini_cg3d.F 267 INI_CG3D 
             zMU(i,j,k,bi,bj)= 0.
./model/src/ini_cg3d.F 275 INI_CG3D 
            zMC(i,j,k,bi,bj) = 1. _d 0
./model/src/ini_cg3d.F 276 INI_CG3D 
            zMU(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 277 INI_CG3D 
            zML(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 285 INI_CG3D 
           zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F 286 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 292 INI_CG3D 
           zMC(i,j,k,bi,bj) = 1. _d 0 /
./model/src/ini_cg3d.F 293 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 294 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 301 INI_CG3D 
           IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN
./model/src/ini_cg3d.F 302 INI_CG3D 
            zMC(i,j,k,bi,bj) = 1.
./model/src/ini_cg3d.F 303 INI_CG3D 
            zML(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 304 INI_CG3D 
            zMU(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 46 INI_CG3D 
      INTEGER bi, bj
./model/src/ini_cg3d.F 61 INI_CG3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_cg3d.F 67 INI_CG3D 
           aW3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 68 INI_CG3D 
           aS3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 69 INI_CG3D 
           aV3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 70 INI_CG3D 
           aC3d(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 71 INI_CG3D 
           zMC (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 72 INI_CG3D 
           zML (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 73 INI_CG3D 
           zMU (i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 79 INI_CG3D 
           cg3d_q(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 80 INI_CG3D 
           cg3d_r(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 81 INI_CG3D 
           cg3d_s(i,j,k,bi,bj) = 0.
./model/src/ini_cg3d.F 87 INI_CG3D 
           cg3d_b(i,j,k,bi,bj) = 0.
./pkg/shelfice/shelfice_cost_accumulate.F 33 SHELFICE_COST_ACCUMULATE 
      integer bi, bj
./pkg/shelfice/shelfice_cost_accumulate.F 46 SHELFICE_COST_ACCUMULATE 
      do bj = jtlo,jthi
./pkg/shelfice/shelfice_cost_accumulate.F 52 SHELFICE_COST_ACCUMULATE 
         cMeanSHIforT(i,j,bi,bj) = cMeanSHIforT(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_accumulate.F 53 SHELFICE_COST_ACCUMULATE 
     &         + shelficeHeatFlux(i,j,bi,bj)*deltaTClock
./pkg/shelfice/shelfice_cost_accumulate.F 54 SHELFICE_COST_ACCUMULATE 
         cMeanSHIforS(i,j,bi,bj) = cMeanSHIforS(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_accumulate.F 55 SHELFICE_COST_ACCUMULATE 
     &         + shelficeFreshWaterFlux(i,j,bi,bj)*deltaTClock
./pkg/shelfice/shelfice_cost_final.F 100 SHELFICE_COST_FINAL 
     &       + mult_shifwflx * objf_shifwflx(bi,bj)
./pkg/shelfice/shelfice_cost_final.F 48 SHELFICE_COST_FINAL 
      INTEGER bi, bj
./pkg/shelfice/shelfice_cost_final.F 74 SHELFICE_COST_FINAL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_cost_final.F 80 SHELFICE_COST_FINAL 
             objf_shelfice(bi,bj) = objf_shelfice(bi,bj)
./pkg/shelfice/shelfice_cost_final.F 81 SHELFICE_COST_FINAL 
     &            + cMeanSHIforS(i,j,bi,bj)/lastinterval/rhoConstFresh
./pkg/shelfice/shelfice_cost_final.F 82 SHELFICE_COST_FINAL 
     &            *_rA(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_final.F 92 SHELFICE_COST_FINAL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_cost_final.F 95 SHELFICE_COST_FINAL 
     &       ' --> objf_shelfice(bi,bj) = ', objf_shelfice(bi,bj)
./pkg/shelfice/shelfice_cost_final.F 97 SHELFICE_COST_FINAL 
     &       ' --> objf_shifwflx(bi,bj) = ', objf_shifwflx(bi,bj)
./pkg/shelfice/shelfice_cost_final.F 98 SHELFICE_COST_FINAL 
        tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/shelfice/shelfice_cost_final.F 99 SHELFICE_COST_FINAL 
     &       + mult_shelfice * objf_shelfice(bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F 137 SHELFICE_COST_SHIFWFLX 
       do bj = jtlo,jthi
./pkg/shelfice/shelfice_cost_shifwflx.F 144 SHELFICE_COST_SHIFWFLX 
           tmpx = tmpfld2d(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F 146 SHELFICE_COST_SHIFWFLX 
     &           *wshifwflx(i,j,bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F 147 SHELFICE_COST_SHIFWFLX 
           if ( wshifwflx(i,j,bi,bj) .ne. 0. )
./pkg/shelfice/shelfice_cost_shifwflx.F 148 SHELFICE_COST_SHIFWFLX 
     &          num_shifwflx(bi,bj) = num_shifwflx(bi,bj)
./pkg/shelfice/shelfice_cost_shifwflx.F 153 SHELFICE_COST_SHIFWFLX 
         objf_shifwflx(bi,bj) = objf_shifwflx(bi,bj) + fctile
./pkg/shelfice/shelfice_cost_shifwflx.F 57 SHELFICE_COST_SHIFWFLX 
      integer bi,bj
./pkg/shelfice/shelfice_forcing.F 108 SHELFICE_FORCING_S 
     I                    iMin,iMax,jMin,jMax, kLev, bi, bj,
./pkg/shelfice/shelfice_forcing.F 143 SHELFICE_FORCING_S 
      INTEGER kLev, bi, bj
./pkg/shelfice/shelfice_forcing.F 164 SHELFICE_FORCING_S 
         IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN
./pkg/shelfice/shelfice_forcing.F 166 SHELFICE_FORCING_S 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 167 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 168 SHELFICE_FORCING_S 
          gSloc = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 169 SHELFICE_FORCING_S 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 171 SHELFICE_FORCING_S 
         ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN
./pkg/shelfice/shelfice_forcing.F 173 SHELFICE_FORCING_S 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 174 SHELFICE_FORCING_S 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 175 SHELFICE_FORCING_S 
          gSloc = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 176 SHELFICE_FORCING_S 
     &         /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 17 SHELFICE_FORCING_T 
     I                    iMin,iMax,jMin,jMax, kLev, bi, bj,
./pkg/shelfice/shelfice_forcing.F 182 SHELFICE_FORCING_S 
     &         * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing.F 52 SHELFICE_FORCING_T 
      INTEGER kLev, bi, bj
./pkg/shelfice/shelfice_forcing.F 74 SHELFICE_FORCING_T 
         IF ( kLev .LT. Nr .AND. kLev .EQ. kTopC(I,J,bi,bj) ) THEN
./pkg/shelfice/shelfice_forcing.F 76 SHELFICE_FORCING_T 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 77 SHELFICE_FORCING_T 
          drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 78 SHELFICE_FORCING_T 
          gTloc = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 79 SHELFICE_FORCING_T 
     &         /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 81 SHELFICE_FORCING_T 
         ELSEIF ( kLev .GT. 1 .AND. kLev-1 .EQ. kTopC(I,J,bi,bj) ) THEN
./pkg/shelfice/shelfice_forcing.F 83 SHELFICE_FORCING_T 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 84 SHELFICE_FORCING_T 
          drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 85 SHELFICE_FORCING_T 
          gTloc = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing.F 86 SHELFICE_FORCING_T 
     &         /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc )
./pkg/shelfice/shelfice_forcing.F 92 SHELFICE_FORCING_T 
     &         * drLoc*recip_drF(kLev)* _recip_hFacC(i,j,kLev,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F 11 SHELFICE_FORCING_SURF 
     I           bi, bj, iMin, iMax, jMin, jMax,
./pkg/shelfice/shelfice_forcing_surf.F 40 SHELFICE_FORCING_SURF 
      INTEGER bi, bj
./pkg/shelfice/shelfice_forcing_surf.F 64 SHELFICE_FORCING_SURF 
           IF ( R_shelfIce(i,j,bi,bj).LT.zeroRS ) THEN
./pkg/shelfice/shelfice_forcing_surf.F 65 SHELFICE_FORCING_SURF 
            surfaceForcingT(i,j,bi,bj) = shelficeForcingT(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F 66 SHELFICE_FORCING_SURF 
            surfaceForcingS(i,j,bi,bj) = shelficeForcingS(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F 85 SHELFICE_FORCING_SURF 
            phi0surf(i,j,bi,bj) = phi0surf(i,j,bi,bj)
./pkg/shelfice/shelfice_forcing_surf.F 86 SHELFICE_FORCING_SURF 
     &         + shelficeLoadAnomaly(i,j,bi,bj)*recip_rhoConst
./pkg/shelfice/shelfice_init_fixed.F 116 SHELFICE_INIT_FIXED 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_fixed.F 120 SHELFICE_INIT_FIXED 
           shelficeMass(i,j,bi,bj) =
./pkg/shelfice/shelfice_init_fixed.F 121 SHELFICE_INIT_FIXED 
     &         shelficeLoadAnomaly(i,j,bi,bj)*recip_gravity
./pkg/shelfice/shelfice_init_fixed.F 122 SHELFICE_INIT_FIXED 
     &       - rhoConst*Ro_surf(i,j,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F 133 SHELFICE_INIT_FIXED 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_fixed.F 137 SHELFICE_INIT_FIXED 
           shelficeLoadAnomaly(i,j,bi,bj) = gravity
./pkg/shelfice/shelfice_init_fixed.F 138 SHELFICE_INIT_FIXED 
     &      *( shelficeMass(i,j,bi,bj) + rhoConst*Ro_surf(i,j,bi,bj) )
./pkg/shelfice/shelfice_init_fixed.F 33 SHELFICE_INIT_FIXED 
      INTEGER i, j, bi, bj
./pkg/shelfice/shelfice_init_fixed.F 61 SHELFICE_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_fixed.F 65 SHELFICE_INIT_FIXED 
          IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN
./pkg/shelfice/shelfice_init_fixed.F 66 SHELFICE_INIT_FIXED 
            kTopC(i,j,bi,bj) = kSurfC(i,j,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F 68 SHELFICE_INIT_FIXED 
            kTopC(i,j,bi,bj) = 0
./pkg/shelfice/shelfice_init_fixed.F 70 SHELFICE_INIT_FIXED 
          shelficeMass       (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_fixed.F 71 SHELFICE_INIT_FIXED 
          shelficeLoadAnomaly(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_fixed.F 83 SHELFICE_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_fixed.F 88 SHELFICE_INIT_FIXED 
          IF (wshifwflx(i,j,bi,bj) .LT. -9900.) THEN
./pkg/shelfice/shelfice_init_fixed.F 89 SHELFICE_INIT_FIXED 
           wshifwflx(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_fixed.F 92 SHELFICE_INIT_FIXED 
          wshifwflx(i,j,bi,bj) =
./pkg/shelfice/shelfice_init_fixed.F 93 SHELFICE_INIT_FIXED 
     &         max(wshifwflx(i,j,bi,bj),wshifwflx0)
./pkg/shelfice/shelfice_init_fixed.F 94 SHELFICE_INIT_FIXED 
     &         *maskSHI(i,j,1,bi,bj)
./pkg/shelfice/shelfice_init_fixed.F 95 SHELFICE_INIT_FIXED 
          IF (wshifwflx(i,j,bi,bj) .NE. 0.) THEN
./pkg/shelfice/shelfice_init_fixed.F 96 SHELFICE_INIT_FIXED 
           wshifwflx(i,j,bi,bj) =
./pkg/shelfice/shelfice_init_fixed.F 97 SHELFICE_INIT_FIXED 
     &          1./wshifwflx(i,j,bi,bj)/wshifwflx(i,j,bi,bj)
./pkg/shelfice/shelfice_init_varia.F 35 SHELFICE_INIT_VARIA 
      INTEGER i, j, bi, bj
./pkg/shelfice/shelfice_init_varia.F 38 SHELFICE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_varia.F 43 SHELFICE_INIT_VARIA 
          shelficeForcingT      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 44 SHELFICE_INIT_VARIA 
          shelficeForcingS      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 45 SHELFICE_INIT_VARIA 
          shelficeHeatFlux      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 46 SHELFICE_INIT_VARIA 
          shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 47 SHELFICE_INIT_VARIA 
          shiTransCoeffT        (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 48 SHELFICE_INIT_VARIA 
          shiTransCoeffS        (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 55 SHELFICE_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_varia.F 59 SHELFICE_INIT_VARIA 
           shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff
./pkg/shelfice/shelfice_init_varia.F 60 SHELFICE_INIT_VARIA 
           shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff
./pkg/shelfice/shelfice_init_varia.F 68 SHELFICE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_varia.F 72 SHELFICE_INIT_VARIA 
           cMeanSHIforT (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 73 SHELFICE_INIT_VARIA 
           cMeanSHIforS (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 79 SHELFICE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_init_varia.F 81 SHELFICE_INIT_VARIA 
        objf_shelfice(bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 82 SHELFICE_INIT_VARIA 
        objf_shifwflx(bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 83 SHELFICE_INIT_VARIA 
        num_shifwflx(bi,bj)  = 0. _d 0
./model/src/ini_cori.F 109 INI_CORI 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 132 INI_CORI 
         DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_cori.F 137 INI_CORI 
             fCoriG(sNx+1,1,bi,bj) = fCoriG(1,1,bi,bj)
./model/src/ini_cori.F 139 INI_CORI 
             fCoriG(sNx+1,1,bi,bj) = -fCoriG(1,1,bi,bj)
./model/src/ini_cori.F 142 INI_CORI 
             fCoriG(1,sNy+1,bi,bj) = fCoriG(1,1,bi,bj)
./model/src/ini_cori.F 143 INI_CORI 
             fCoriG(sNx+1,sNy+1,bi,bj) = fCoriG(sNx+1,1,bi,bj)
./model/src/ini_cori.F 145 INI_CORI 
             fCoriG(1,sNy+1,bi,bj) = -fCoriG(1,1,bi,bj)
./model/src/ini_cori.F 146 INI_CORI 
             fCoriG(sNx+1,sNy+1,bi,bj) = -fCoriG(sNx+1,1,bi,bj)
./model/src/ini_cori.F 152 INI_CORI 
         DO bj = 1,nSy
./model/src/ini_cori.F 157 INI_CORI 
           myTile = W2_myTileList(bi,bj)
./model/src/ini_cori.F 168 INI_CORI 
     &                             fCoriG, bi, bj, myThid )
./model/src/ini_cori.F 45 INI_CORI 
      INTEGER bi,bj
./model/src/ini_cori.F 60 INI_CORI 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 76 INI_CORI 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 90 INI_CORI 
        DO bj = myByLo(myThid), myByHi(myThid)
./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)
./pkg/shelfice/shelfice_output.F 100 SHELFICE_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_output.F 102 SHELFICE_OUTPUT 
          CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid )
./pkg/shelfice/shelfice_output.F 103 SHELFICE_OUTPUT 
          CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid )
./pkg/shelfice/shelfice_output.F 104 SHELFICE_OUTPUT 
          SHELFICE_timeAve(bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_output.F 110 SHELFICE_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 122 SHELFICE_OUTPUT 
          SHELFICE_timeAve(bi,bj) = SHELFICE_timeAve(bi,bj)+deltaTclock
./pkg/shelfice/shelfice_output.F 143 SHELFICE_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_output.F 146 SHELFICE_OUTPUT 
     &                            SHELFICE_timeAve, 1, bi, bj, myThid )
./pkg/shelfice/shelfice_output.F 148 SHELFICE_OUTPUT 
     &                            SHELFICE_timeAve, 1, bi, bj, myThid )
./pkg/shelfice/shelfice_output.F 182 SHELFICE_OUTPUT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_output.F 184 SHELFICE_OUTPUT 
          CALL TIMEAVE_RESET( shelfice_frshFluxtave, 1, bi,bj, myThid )
./pkg/shelfice/shelfice_output.F 185 SHELFICE_OUTPUT 
          CALL TIMEAVE_RESET( shelfice_heatFluxtave, 1, bi,bj, myThid )
./pkg/shelfice/shelfice_output.F 186 SHELFICE_OUTPUT 
          SHELFICE_timeAve(bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_output.F 46 SHELFICE_OUTPUT 
      INTEGER i, j, bi, bj
./pkg/shelfice/shelfice_thermodynamics.F 113 SHELFICE_THERMODYNAMICS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 117 SHELFICE_THERMODYNAMICS 
          shiTransCoeffT(i,j,bi,bj) = SHELFICEheatTransCoeff
./pkg/shelfice/shelfice_thermodynamics.F 118 SHELFICE_THERMODYNAMICS 
          shiTransCoeffS(i,j,bi,bj) = SHELFICEsaltTransCoeff
./pkg/shelfice/shelfice_thermodynamics.F 140 SHELFICE_THERMODYNAMICS 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 144 SHELFICE_THERMODYNAMICS 
           shiTransCoeffT(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 145 SHELFICE_THERMODYNAMICS 
           shiTransCoeffS(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 188 SHELFICE_THERMODYNAMICS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 192 SHELFICE_THERMODYNAMICS 
          shelfIceHeatFlux      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 193 SHELFICE_THERMODYNAMICS 
          shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 194 SHELFICE_THERMODYNAMICS 
          shelficeForcingT      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 195 SHELFICE_THERMODYNAMICS 
          shelficeForcingS      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 201 SHELFICE_THERMODYNAMICS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 205 SHELFICE_THERMODYNAMICS 
          xx_shifwflx_loc(I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 217 SHELFICE_THERMODYNAMICS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 223 SHELFICE_THERMODYNAMICS 
        act2 = bj - myByLo(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 237 SHELFICE_THERMODYNAMICS 
          K         = MAX(1,kTopC(I,J,bi,bj))
./pkg/shelfice/shelfice_thermodynamics.F 238 SHELFICE_THERMODYNAMICS 
          pLoc(I,J) = ABS(R_shelfIce(I,J,bi,bj))
./pkg/shelfice/shelfice_thermodynamics.F 240 SHELFICE_THERMODYNAMICS 
          tLoc(I,J) = theta(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 241 SHELFICE_THERMODYNAMICS 
          sLoc(I,J) = MAX(salt(I,J,K,bi,bj), zeroRL)
./pkg/shelfice/shelfice_thermodynamics.F 242 SHELFICE_THERMODYNAMICS 
          uLoc(I,J) = recip_hFacC(I,J,K,bi,bj) *
./pkg/shelfice/shelfice_thermodynamics.F 243 SHELFICE_THERMODYNAMICS 
     &         ( uVel(I,  J,K,bi,bj) * _hFacW(I,  J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 244 SHELFICE_THERMODYNAMICS 
     &         + uVel(I+1,J,K,bi,bj) * _hFacW(I+1,J,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 245 SHELFICE_THERMODYNAMICS 
          vLoc(I,J) = recip_hFacC(I,J,K,bi,bj) *
./pkg/shelfice/shelfice_thermodynamics.F 246 SHELFICE_THERMODYNAMICS 
     &         ( vVel(I,J,  K,bi,bj) * _hFacS(I,J,  K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 247 SHELFICE_THERMODYNAMICS 
     &         + vVel(I,J+1,K,bi,bj) * _hFacS(I,J+1,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 254 SHELFICE_THERMODYNAMICS 
           K   = kTopC(I,J,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 258 SHELFICE_THERMODYNAMICS 
            drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 260 SHELFICE_THERMODYNAMICS 
            drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 262 SHELFICE_THERMODYNAMICS 
     &           ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 )
./pkg/shelfice/shelfice_thermodynamics.F 263 SHELFICE_THERMODYNAMICS 
            tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 264 SHELFICE_THERMODYNAMICS 
     &           + theta(I,J,Kp1,bi,bj) *drKp1 )
./pkg/shelfice/shelfice_thermodynamics.F 266 SHELFICE_THERMODYNAMICS 
            sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 267 SHELFICE_THERMODYNAMICS 
     &           + MAX(salt(I,J,Kp1,bi,bj), zeroRL) * drKp1 )
./pkg/shelfice/shelfice_thermodynamics.F 269 SHELFICE_THERMODYNAMICS 
            uLoc(I,J) = ( uLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 270 SHELFICE_THERMODYNAMICS 
     &           + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) *
./pkg/shelfice/shelfice_thermodynamics.F 271 SHELFICE_THERMODYNAMICS 
     &           ( uVel(I,  J,Kp1,bi,bj) * _hFacW(I,  J,Kp1,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 272 SHELFICE_THERMODYNAMICS 
     &           + uVel(I+1,J,Kp1,bi,bj) * _hFacW(I+1,J,Kp1,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 274 SHELFICE_THERMODYNAMICS 
            vLoc(I,J) = ( vLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 275 SHELFICE_THERMODYNAMICS 
     &           + drKp1 * recip_hFacC(I,J,Kp1,bi,bj) *
./pkg/shelfice/shelfice_thermodynamics.F 276 SHELFICE_THERMODYNAMICS 
     &           ( vVel(I,J,  Kp1,bi,bj) * _hFacS(I,J,  Kp1,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 277 SHELFICE_THERMODYNAMICS 
     &           + vVel(I,J+1,Kp1,bi,bj) * _hFacS(I,J+1,Kp1,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 300 SHELFICE_THERMODYNAMICS 
           K = kTopC(I,J,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 309 SHELFICE_THERMODYNAMICS 
            IF ( fCori(I,J,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 311 SHELFICE_THERMODYNAMICS 
     &            / ABS(fCori(I,J,bi,bj) * 5.0 _d 0 * shiKinVisc))
./pkg/shelfice/shelfice_thermodynamics.F 320 SHELFICE_THERMODYNAMICS 
            shiTransCoeffT(i,j,bi,bj) = MAX( zeroRL,
./pkg/shelfice/shelfice_thermodynamics.F 322 SHELFICE_THERMODYNAMICS 
            shiTransCoeffS(i,j,bi,bj) = MAX( zeroRL,
./pkg/shelfice/shelfice_thermodynamics.F 342 SHELFICE_THERMODYNAMICS 
           K = kTopC(I,J,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 349 SHELFICE_THERMODYNAMICS 
            shelfIceHeatFlux(I,J,bi,bj) = maskC(I,J,K,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 350 SHELFICE_THERMODYNAMICS 
     &           * shiTransCoeffT(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 354 SHELFICE_THERMODYNAMICS 
     &           - xx_shifwflx_loc(I,J,bi,bj)*SHELFICElatentHeat
./pkg/shelfice/shelfice_thermodynamics.F 359 SHELFICE_THERMODYNAMICS 
            shelfIceFreshWaterFlux(I,J,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 360 SHELFICE_THERMODYNAMICS 
     &           - shelfIceHeatFlux(I,J,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 363 SHELFICE_THERMODYNAMICS 
            shelficeForcingT(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 364 SHELFICE_THERMODYNAMICS 
     &           - shelfIceHeatFlux(I,J,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 366 SHELFICE_THERMODYNAMICS 
     &           - cFac * shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit
./pkg/shelfice/shelfice_thermodynamics.F 368 SHELFICE_THERMODYNAMICS 
            shelficeForcingS(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 369 SHELFICE_THERMODYNAMICS 
     &           shelfIceFreshWaterFlux(I,J,bi,bj) * mass2rUnit
./pkg/shelfice/shelfice_thermodynamics.F 374 SHELFICE_THERMODYNAMICS 
            shelfIceHeatFlux      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 375 SHELFICE_THERMODYNAMICS 
            shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 376 SHELFICE_THERMODYNAMICS 
            shelficeForcingT      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 377 SHELFICE_THERMODYNAMICS 
            shelficeForcingS      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 392 SHELFICE_THERMODYNAMICS 
           K    = kTopC(I,J,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 401 SHELFICE_THERMODYNAMICS 
     &           *shiTransCoeffT(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 403 SHELFICE_THERMODYNAMICS 
     &           *shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 405 SHELFICE_THERMODYNAMICS 
     &           *shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 422 SHELFICE_THERMODYNAMICS 
     &           *shiTransCoeffS(i,j,bi,bj) * fwflxFac
./pkg/shelfice/shelfice_thermodynamics.F 476 SHELFICE_THERMODYNAMICS 
     &           * shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 479 SHELFICE_THERMODYNAMICS 
     &           + xx_shifwflx_loc(I,J,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 484 SHELFICE_THERMODYNAMICS 
            shelfIceHeatFlux(I,J,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 490 SHELFICE_THERMODYNAMICS 
            shelfIceFreshWaterFlux(I,J,bi,bj) = freshWaterFlux
./pkg/shelfice/shelfice_thermodynamics.F 492 SHELFICE_THERMODYNAMICS 
            shelficeForcingT(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 493 SHELFICE_THERMODYNAMICS 
     &           ( shiTransCoeffT(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 494 SHELFICE_THERMODYNAMICS 
     &           - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit )
./pkg/shelfice/shelfice_thermodynamics.F 496 SHELFICE_THERMODYNAMICS 
            shelficeForcingS(i,j,bi,bj) =
./pkg/shelfice/shelfice_thermodynamics.F 497 SHELFICE_THERMODYNAMICS 
     &           ( shiTransCoeffS(i,j,bi,bj)
./pkg/shelfice/shelfice_thermodynamics.F 498 SHELFICE_THERMODYNAMICS 
     &           - cFac*shelfIceFreshWaterFlux(I,J,bi,bj)*mass2rUnit )
./pkg/shelfice/shelfice_thermodynamics.F 501 SHELFICE_THERMODYNAMICS 
            shelfIceHeatFlux      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 502 SHELFICE_THERMODYNAMICS 
            shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 503 SHELFICE_THERMODYNAMICS 
            shelficeForcingT      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 504 SHELFICE_THERMODYNAMICS 
            shelficeForcingS      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 516 SHELFICE_THERMODYNAMICS 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_thermodynamics.F 520 SHELFICE_THERMODYNAMICS 
           shelficeLoadAnomaly(i,j,bi,bj) = gravity
./pkg/shelfice/shelfice_thermodynamics.F 521 SHELFICE_THERMODYNAMICS 
     &      *( shelficeMass(i,j,bi,bj) + rhoConst*Ro_surf(i,j,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 78 SHELFICE_THERMODYNAMICS 
      INTEGER bi,bj
./pkg/shelfice/shelfice_u_drag.F 12 SHELFICE_U_DRAG 
     I        bi,bj,k,
./pkg/shelfice/shelfice_u_drag.F 39 SHELFICE_U_DRAG 
      INTEGER bi,bj,k
./pkg/shelfice/shelfice_u_drag.F 74 SHELFICE_U_DRAG 
        maskUp=_maskW(i,j,kUp,bi,bj)
./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 84 SHELFICE_U_DRAG 
     &    -_recip_hFacW(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_u_drag.F 93 SHELFICE_U_DRAG 
        CALL DIAGNOSTICS_FILL(uDragTerms,'SHIUDrag',k,1,2,bi,bj,
./pkg/shelfice/shelfice_update_masks.F 101 SHELFICE_UPDATE_MASKS 
             hFacC(I,J,K,bi,bj)=hFacMnSz
./pkg/shelfice/shelfice_update_masks.F 104 SHELFICE_UPDATE_MASKS 
             hFacC(I,J,K,bi,bj)=hFacCtmp
./pkg/shelfice/shelfice_update_masks.F 117 SHELFICE_UPDATE_MASKS 
           maskSHI(I,J,K,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_update_masks.F 124 SHELFICE_UPDATE_MASKS 
           IF ( ABS(R_shelfice(I,J,bi,bj)) .GT. 0. _d 0
./pkg/shelfice/shelfice_update_masks.F 125 SHELFICE_UPDATE_MASKS 
     &          .AND. hFacC(I,J,K,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_update_masks.F 126 SHELFICE_UPDATE_MASKS 
            maskSHI(I,J,K,bi,bj) = 1. _d 0
./pkg/shelfice/shelfice_update_masks.F 127 SHELFICE_UPDATE_MASKS 
            maskSHI(I,J,1,bi,bj) = 1. _d 0
./pkg/shelfice/shelfice_update_masks.F 47 SHELFICE_UPDATE_MASKS 
      INTEGER bi, bj
./pkg/shelfice/shelfice_update_masks.F 54 SHELFICE_UPDATE_MASKS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_update_masks.F 58 SHELFICE_UPDATE_MASKS 
          R_shelfIce(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_update_masks.F 82 SHELFICE_UPDATE_MASKS 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/shelfice/shelfice_update_masks.F 91 SHELFICE_UPDATE_MASKS 
           hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K)
./pkg/shelfice/shelfice_update_masks.F 93 SHELFICE_UPDATE_MASKS 
           hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0)
./pkg/shelfice/shelfice_update_masks.F 99 SHELFICE_UPDATE_MASKS 
             hFacC(I,J,K,bi,bj)=0.
./pkg/shelfice/shelfice_v_drag.F 12 SHELFICE_V_DRAG 
     I        bi,bj,k,
./pkg/shelfice/shelfice_v_drag.F 39 SHELFICE_V_DRAG 
      INTEGER bi,bj,k
./pkg/shelfice/shelfice_v_drag.F 74 SHELFICE_V_DRAG 
        maskUp=_maskS(i,j,kUp,bi,bj)
./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 84 SHELFICE_V_DRAG 
     &    -_recip_hFacS(i,j,k,bi,bj)*recip_drF(k)
./pkg/shelfice/shelfice_v_drag.F 93 SHELFICE_V_DRAG 
        CALL DIAGNOSTICS_FILL(vDragTerms,'SHIVDrag',k,1,2,bi,bj,myThid)
./model/src/ini_curvilinear_grid.F 103 INI_CURVILINEAR_GRID 
         bj=1
./model/src/ini_curvilinear_grid.F 104 INI_CURVILINEAR_GRID 
         yG(1,sNy+1,bj,1)=yG(1,1,bi,1)
./model/src/ini_curvilinear_grid.F 105 INI_CURVILINEAR_GRID 
         bj=bj+2
./model/src/ini_curvilinear_grid.F 106 INI_CURVILINEAR_GRID 
         yG(1,sNy+1,bj,1)=yG(1,1,bi,1)
./model/src/ini_curvilinear_grid.F 107 INI_CURVILINEAR_GRID 
         bj=bj+2
./model/src/ini_curvilinear_grid.F 108 INI_CURVILINEAR_GRID 
         yG(1,sNy+1,bj,1)=yG(1,1,bi,1)
./model/src/ini_curvilinear_grid.F 110 INI_CURVILINEAR_GRID 
         bj=2
./model/src/ini_curvilinear_grid.F 111 INI_CURVILINEAR_GRID 
         yG(sNx+1,1,bj,1)=yG(1,1,bi,1)
./model/src/ini_curvilinear_grid.F 112 INI_CURVILINEAR_GRID 
         bj=bj+2
./model/src/ini_curvilinear_grid.F 113 INI_CURVILINEAR_GRID 
         yG(sNx+1,1,bj,1)=yG(1,1,bi,1)
./model/src/ini_curvilinear_grid.F 114 INI_CURVILINEAR_GRID 
         bj=bj+2
./model/src/ini_curvilinear_grid.F 115 INI_CURVILINEAR_GRID 
         yG(sNx+1,1,bj,1)=yG(1,1,bi,1)
./model/src/ini_curvilinear_grid.F 134 INI_CURVILINEAR_GRID 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_curvilinear_grid.F 136 INI_CURVILINEAR_GRID 
          dxV(sNx+1,1,bi,bj)=dxV(1,1,bi,bj)
./model/src/ini_curvilinear_grid.F 137 INI_CURVILINEAR_GRID 
          dxV(1,sNy+1,bi,bj)=dxV(1,1,bi,bj)
./model/src/ini_curvilinear_grid.F 138 INI_CURVILINEAR_GRID 
          dyU(sNx+1,1,bi,bj)=dyU(1,1,bi,bj)
./model/src/ini_curvilinear_grid.F 139 INI_CURVILINEAR_GRID 
          dyU(1,sNy+1,bi,bj)=dyU(1,1,bi,bj)
./model/src/ini_curvilinear_grid.F 155 INI_CURVILINEAR_GRID 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_curvilinear_grid.F 157 INI_CURVILINEAR_GRID 
         rAz(sNx+1,1,bi,bj)=rAz(1,1,bi,bj)
./model/src/ini_curvilinear_grid.F 158 INI_CURVILINEAR_GRID 
         rAz(1,sNy+1,bi,bj)=rAz(1,1,bi,bj)
./model/src/ini_curvilinear_grid.F 250 INI_CURVILINEAR_GRID 
      DO bj = 1,nSy
./model/src/ini_curvilinear_grid.F 254 INI_CURVILINEAR_GRID 
        jG = W2_myTileList(bi,bj)
./model/src/ini_curvilinear_grid.F 260 INI_CURVILINEAR_GRID 
        jG = bj+(myYGlobalLo-1)/sNy
./model/src/ini_curvilinear_grid.F 281 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 1,  xC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 284 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 2,  yC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 287 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 3, dxF, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 290 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 4, dyF, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 293 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 5,  rA, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 296 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 6,  xG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 299 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 7,  yG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 302 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 8, dxV, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 305 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp, 9, dyU, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 308 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,10, rAz, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 311 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,11, dxC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 314 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,12, dyC, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 317 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,13, rAw, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 320 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,14, rAs, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 323 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,15, dxG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 326 INI_CURVILINEAR_GRID 
        CALL MDS_FACEF_READ_RS( fName, fp,16, dyG, bi, bj, myThid )
./model/src/ini_curvilinear_grid.F 332 INI_CURVILINEAR_GRID 
         CALL MDS_FACEF_READ_RS(fName,fp,17,angleCosC,bi,bj,myThid)
./model/src/ini_curvilinear_grid.F 335 INI_CURVILINEAR_GRID 
         CALL MDS_FACEF_READ_RS(fName,fp,18,angleSinC,bi,bj,myThid)
./model/src/ini_curvilinear_grid.F 380 INI_CURVILINEAR_GRID 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_curvilinear_grid.F 384 INI_CURVILINEAR_GRID 
            dxC(i,j,bi,bj) = dxC(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 385 INI_CURVILINEAR_GRID 
            dyC(i,j,bi,bj) = dyC(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 386 INI_CURVILINEAR_GRID 
            dxG(i,j,bi,bj) = dxG(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 387 INI_CURVILINEAR_GRID 
            dyG(i,j,bi,bj) = dyG(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 388 INI_CURVILINEAR_GRID 
            dxF(i,j,bi,bj) = dxF(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 389 INI_CURVILINEAR_GRID 
            dyF(i,j,bi,bj) = dyF(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 390 INI_CURVILINEAR_GRID 
            dxV(i,j,bi,bj) = dxV(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 391 INI_CURVILINEAR_GRID 
            dyU(i,j,bi,bj) = dyU(i,j,bi,bj)*tmpFac
./model/src/ini_curvilinear_grid.F 392 INI_CURVILINEAR_GRID 
            rA (i,j,bi,bj) = rA (i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F 393 INI_CURVILINEAR_GRID 
            rAz(i,j,bi,bj) = rAz(i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F 394 INI_CURVILINEAR_GRID 
            rAw(i,j,bi,bj) = rAw(i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F 395 INI_CURVILINEAR_GRID 
            rAs(i,j,bi,bj) = rAs(i,j,bi,bj)*tmpFac2
./model/src/ini_curvilinear_grid.F 49 INI_CURVILINEAR_GRID 
      INTEGER bi,bj
./pkg/smooth/smooth2d.F 27 SMOOTH2D 
      integer i,j,bi,bj
./pkg/smooth/smooth3d.F 27 SMOOTH3D 
      integer i,j,k,bi,bj
./pkg/smooth/smooth_basic2d.F 28 SMOOTH_BASIC2D 
      integer i,j,bi,bj
./pkg/smooth/smooth_basic2d.F 41 SMOOTH_BASIC2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 52 SMOOTH_BASIC2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 58 SMOOTH_CORREL2D 
      DO bj = jtlo,jthi
./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 75 SMOOTH_CORREL2D 
       do bj = jtlo,jthi
./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 108 SMOOTH_CORREL2DW 
          tmpW=wgentim2d(i,j,bi,bj,iarr)
./pkg/smooth/smooth_correl2dw.F 115 SMOOTH_CORREL2DW 
      if ((mask_in(i,j,1,bi,bj).NE.0.).AND.(tmpW.NE.0.)) then
./pkg/smooth/smooth_correl2dw.F 116 SMOOTH_CORREL2DW 
      fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)/sqrt(tmpW)
./pkg/smooth/smooth_correl2dw.F 118 SMOOTH_CORREL2DW 
      fld_in(i,j,bi,bj)=fld_in(i,j,bi,bj)*0.
./pkg/smooth/smooth_correl2dw.F 41 SMOOTH_CORREL2DW 
      integer i,j,bi,bj
./pkg/smooth/smooth_correl2dw.F 56 SMOOTH_CORREL2DW 
      DO bj = jtlo,jthi
./pkg/smooth/smooth_correl2dw.F 64 SMOOTH_CORREL2DW 
        tmpW=whflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 66 SMOOTH_CORREL2DW 
        tmpW=wsflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 68 SMOOTH_CORREL2DW 
        tmpW=wtauu(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 70 SMOOTH_CORREL2DW 
        tmpW=wtauv(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 73 SMOOTH_CORREL2DW 
        tmpW=watemp(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 75 SMOOTH_CORREL2DW 
        tmpW=waqh(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 77 SMOOTH_CORREL2DW 
        tmpW=wprecip(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 79 SMOOTH_CORREL2DW 
        tmpW=wsnowprecip(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 82 SMOOTH_CORREL2DW 
        tmpW=wswflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 84 SMOOTH_CORREL2DW 
        tmpW=wswdown(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 86 SMOOTH_CORREL2DW 
        tmpW=wlwflux(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 88 SMOOTH_CORREL2DW 
        tmpW=wlwdown(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 91 SMOOTH_CORREL2DW 
        tmpW=wevap(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 93 SMOOTH_CORREL2DW 
        tmpW=wapressure(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 95 SMOOTH_CORREL2DW 
        tmpW=wuwind(i,j,bi,bj)
./pkg/smooth/smooth_correl2dw.F 97 SMOOTH_CORREL2DW 
        tmpW=wvwind(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 101 INI_CYLINDER_GRID 
          dxF(i,j,bi,bj) = thisRad*dtheta*deg2rad
./model/src/ini_cylinder_grid.F 102 INI_CYLINDER_GRID 
          dyF(i,j,bi,bj) = delYloc(j)
./model/src/ini_cylinder_grid.F 111 INI_CYLINDER_GRID 
          dxG(i,j,bi,bj) = thisRad*dtheta*deg2rad
./model/src/ini_cylinder_grid.F 112 INI_CYLINDER_GRID 
          dyG(i,j,bi,bj) = delYloc(j)
./model/src/ini_cylinder_grid.F 124 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 132 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 140 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 141 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 149 INI_CYLINDER_GRID 
          rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 150 INI_CYLINDER_GRID 
          rAw(i,j,bi,bj) = dxC(i,j,bi,bj)*dyG(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 151 INI_CYLINDER_GRID 
          rAs(i,j,bi,bj) = dxG(i,j,bi,bj)*dyC(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 152 INI_CYLINDER_GRID 
          rAz(i,j,bi,bj) = dxV(i,j,bi,bj)*dyU(i,j,bi,bj)
./model/src/ini_cylinder_grid.F 51 INI_CYLINDER_GRID 
      INTEGER bi, bj
./model/src/ini_cylinder_grid.F 66 INI_CYLINDER_GRID 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_cylinder_grid.F 75 INI_CYLINDER_GRID 
     I                       bi, bj, myThid )
./model/src/ini_cylinder_grid.F 80 INI_CYLINDER_GRID 
          xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_cylinder_grid.F 81 INI_CYLINDER_GRID 
          yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_cylinder_grid.F 89 INI_CYLINDER_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F 91 INI_CYLINDER_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F 99 INI_CYLINDER_GRID 
          thisRad = yC(i,j,bi,bj)
./pkg/smooth/smooth_correl3d.F 101 SMOOTH_CORREL3D 
       do bj = jtlo,jthi
./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 82 SMOOTH_CORREL3D 
      DO bj=jtlo,jthi
./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 124 SMOOTH_DIFF2D 
      DO bj = jtlo,jthi
./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 160 SMOOTH_DIFF2D 
      do bj = jtlo,jthi
./pkg/smooth/smooth_diff2d.F 163 SMOOTH_DIFF2D 
      myIter(bi,bj)=iloop-1
./pkg/smooth/smooth_diff2d.F 164 SMOOTH_DIFF2D 
      IF ( myIter(bi,bj).EQ.0 ) THEN
./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 58 SMOOTH_DIFF2D 
      DO bj = jtlo,jthi
./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 114 SMOOTH_DIFF3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_diff3d.F 119 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 131 SMOOTH_DIFF3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_diff3d.F 134 SMOOTH_DIFF3D 
      myIter(bi,bj)=iloop-1
./pkg/smooth/smooth_diff3d.F 137 SMOOTH_DIFF3D 
     I                        bi, bj, k, Nr,
./pkg/smooth/smooth_diff3d.F 138 SMOOTH_DIFF3D 
     U                        gT_in(1-OLx,1-OLy,1,bi,bj),
./pkg/smooth/smooth_diff3d.F 139 SMOOTH_DIFF3D 
     U                        gTm1_in(1-OLx,1-OLy,1,bi,bj), gt_AB,
./pkg/smooth/smooth_diff3d.F 140 SMOOTH_DIFF3D 
     I                        0, myIter(bi,bj), myThid )
./pkg/smooth/smooth_diff3d.F 146 SMOOTH_DIFF3D 
      if (maskc(i,j,k,bi,bj).NE.0.) then
./pkg/smooth/smooth_diff3d.F 147 SMOOTH_DIFF3D 
           fld_in(i,j,k,bi,bj)=fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F 148 SMOOTH_DIFF3D 
     &            +smooth3DdelTime*gT_in(i,j,k,bi,bj)
./pkg/smooth/smooth_diff3d.F 149 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)=0
./pkg/smooth/smooth_diff3d.F 162 SMOOTH_DIFF3D 
     I         bi, bj, 1, sNx, 1, sNy ,
./pkg/smooth/smooth_diff3d.F 163 SMOOTH_DIFF3D 
     I         smooth3DdelTime, smooth3D_kappaR(1-OLx,1-OLy,1,bi,bj),
./pkg/smooth/smooth_diff3d.F 24 SMOOTH_DIFF3D 
      integer i,j,k, bi,bj, iMin,iMax,jMin,jMax
./pkg/smooth/smooth_diff3d.F 52 SMOOTH_DIFF3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_diff3d.F 57 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 58 SMOOTH_DIFF3D 
           gTm1_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 111 SMOOTH_FILTERVAR2D 
      DO bj = jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 116 SMOOTH_FILTERVAR2D 
      smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 117 SMOOTH_FILTERVAR2D 
     & *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 131 SMOOTH_FILTERVAR2D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 135 SMOOTH_FILTERVAR2D 
           if (maskc(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F 136 SMOOTH_FILTERVAR2D 
              smooth2Dnorm(i,j,bi,bj)=
./pkg/smooth/smooth_filtervar2d.F 137 SMOOTH_FILTERVAR2D 
     &        1/sqrt(smoothTmpFld(i,j,bi,bj))
./pkg/smooth/smooth_filtervar2d.F 152 SMOOTH_FILTERVAR2D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 156 SMOOTH_FILTERVAR2D 
           smoothTmpMean(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 157 SMOOTH_FILTERVAR2D 
           smoothTmpVar(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 172 SMOOTH_FILTERVAR2D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 176 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 177 SMOOTH_FILTERVAR2D 
           if (maskC(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F 178 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=port_rand_norm()
./pkg/smooth/smooth_filtervar2d.F 181 SMOOTH_FILTERVAR2D 
      smoothTmpFld(i,j,bi,bj)=smoothTmpFld(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 182 SMOOTH_FILTERVAR2D 
     & *sqrt(recip_rA(i,j,bi,bj))
./pkg/smooth/smooth_filtervar2d.F 194 SMOOTH_FILTERVAR2D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 198 SMOOTH_FILTERVAR2D 
      smoothTmpVar(i,j,bi,bj)=smoothTmpVar(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 199 SMOOTH_FILTERVAR2D 
     & +smoothTmpFld(i,j,bi,bj)*smoothTmpFld(i,j,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar2d.F 200 SMOOTH_FILTERVAR2D 
      smoothTmpMean(i,j,bi,bj)=smoothTmpMean(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 201 SMOOTH_FILTERVAR2D 
     & +smoothTmpFld(i,j,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar2d.F 210 SMOOTH_FILTERVAR2D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 214 SMOOTH_FILTERVAR2D 
           if (maskC(i,j,1,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar2d.F 215 SMOOTH_FILTERVAR2D 
           smooth2Dnorm(i,j,bi,bj)=
./pkg/smooth/smooth_filtervar2d.F 216 SMOOTH_FILTERVAR2D 
     & 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,bi,bj) -
./pkg/smooth/smooth_filtervar2d.F 217 SMOOTH_FILTERVAR2D 
     & smoothTmpMean(i,j,bi,bj)*smoothTmpMean(i,j,bi,bj)
./pkg/smooth/smooth_filtervar2d.F 23 SMOOTH_FILTERVAR2D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar2d.F 58 SMOOTH_FILTERVAR2D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 62 SMOOTH_FILTERVAR2D 
           smooth2Dnorm(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F 84 SMOOTH_FILTERVAR2D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar2d.F 88 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=0.
./pkg/smooth/smooth_filtervar2d.F 94 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F 114 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 119 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_filtervar3d.F 127 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=1.
./pkg/smooth/smooth_filtervar3d.F 145 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 151 SMOOTH_FILTERVAR3D 
        smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 152 SMOOTH_FILTERVAR3D 
     & *(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F 167 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 172 SMOOTH_FILTERVAR3D 
          if (smoothTmpFld(i,j,k,bi,bj).NE.0.) then
./pkg/smooth/smooth_filtervar3d.F 173 SMOOTH_FILTERVAR3D 
           smooth3Dnorm(i,j,k,bi,bj)=
./pkg/smooth/smooth_filtervar3d.F 174 SMOOTH_FILTERVAR3D 
     & 1/sqrt(smoothTmpFld(i,j,k,bi,bj))
./pkg/smooth/smooth_filtervar3d.F 190 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 195 SMOOTH_FILTERVAR3D 
           smoothTmpMean(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 196 SMOOTH_FILTERVAR3D 
           smoothTmpVar(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 212 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 217 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 218 SMOOTH_FILTERVAR3D 
           if (maskC(i,j,k,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar3d.F 219 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)=port_rand_norm()
./pkg/smooth/smooth_filtervar3d.F 222 SMOOTH_FILTERVAR3D 
       smoothTmpFld(i,j,k,bi,bj)=smoothTmpFld(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 223 SMOOTH_FILTERVAR3D 
     & *sqrt(recip_rA(i,j,bi,bj)*recip_drF(k))
./pkg/smooth/smooth_filtervar3d.F 236 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 241 SMOOTH_FILTERVAR3D 
      smoothTmpVar(i,j,k,bi,bj)=smoothTmpVar(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 242 SMOOTH_FILTERVAR3D 
     & +smoothTmpFld(i,j,k,bi,bj)*smoothTmpFld(i,j,k,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar3d.F 243 SMOOTH_FILTERVAR3D 
      smoothTmpMean(i,j,k,bi,bj)=smoothTmpMean(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 244 SMOOTH_FILTERVAR3D 
     & +smoothTmpFld(i,j,k,bi,bj)/nbRand
./pkg/smooth/smooth_filtervar3d.F 254 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 259 SMOOTH_FILTERVAR3D 
           if (maskC(i,j,k,bi,bj).NE.0) then
./pkg/smooth/smooth_filtervar3d.F 260 SMOOTH_FILTERVAR3D 
           smooth3Dnorm(i,j,k,bi,bj)=
./pkg/smooth/smooth_filtervar3d.F 261 SMOOTH_FILTERVAR3D 
     & 1/sqrt ( nbRand/(nbRand-1)* ( smoothTmpVar(i,j,k,bi,bj) -
./pkg/smooth/smooth_filtervar3d.F 262 SMOOTH_FILTERVAR3D 
     & smoothTmpMean(i,j,k,bi,bj)*smoothTmpMean(i,j,k,bi,bj)
./pkg/smooth/smooth_filtervar3d.F 26 SMOOTH_FILTERVAR3D 
      integer i,j,k, bi, bj, ii, jj, kk
./pkg/smooth/smooth_filtervar3d.F 84 SMOOTH_FILTERVAR3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_filtervar3d.F 89 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 44 SMOOTH_HETERO2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 55 SMOOTH_HETERO2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./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
./pkg/smooth/smooth_impldiff.F 146 SMOOTH_IMPLDIFF 
        gYNm1(i,j,1,bi,bj) = gXNm1(i,j,1,bi,bj)*bet(i,j,1)
./pkg/smooth/smooth_impldiff.F 152 SMOOTH_IMPLDIFF 
         gYnm1(i,j,k,bi,bj) = bet(i,j,k)*
./pkg/smooth/smooth_impldiff.F 153 SMOOTH_IMPLDIFF 
     &        (gXnm1(i,j,k,bi,bj) - a(i,j,k)*gYnm1(i,j,k-1,bi,bj))
./pkg/smooth/smooth_impldiff.F 164 SMOOTH_IMPLDIFF 
          gYnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./pkg/smooth/smooth_impldiff.F 165 SMOOTH_IMPLDIFF 
     &              -gam(i,j,k+1)*gYnm1(i,j,k+1,bi,bj)
./pkg/smooth/smooth_impldiff.F 173 SMOOTH_IMPLDIFF 
          gXnm1(i,j,k,bi,bj)=gYnm1(i,j,k,bi,bj)
./pkg/smooth/smooth_impldiff.F 28 SMOOTH_IMPLDIFF 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/smooth/smooth_impldiff.F 52 SMOOTH_IMPLDIFF 
         gYNm1(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 66 SMOOTH_IMPLDIFF 
          a(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_impldiff.F 6 SMOOTH_IMPLDIFF 
      SUBROUTINE SMOOTH_IMPLDIFF( bi, bj, iMin, iMax, jMin, jMax,
./pkg/smooth/smooth_impldiff.F 70 SMOOTH_IMPLDIFF 
          IF (recip_hFac(i,j,k-1,bi,bj).EQ.0.) a(i,j,k)=0.
./pkg/smooth/smooth_impldiff.F 79 SMOOTH_IMPLDIFF 
          c(i,j,k) = -deltaTX*recip_hFac(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_impldiff.F 83 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 49 SMOOTH_INIT2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 61 SMOOTH_INIT2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 122 SMOOTH_INIT3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_init3d.F 127 SMOOTH_INIT3D 
          smooth3D_Lx(i,j,k,bi,bj)=smooth3D_Lx0(smoothOpNb)
./pkg/smooth/smooth_init3d.F 128 SMOOTH_INIT3D 
          smooth3D_Ly(i,j,k,bi,bj)=smooth3D_Ly0(smoothOpNb)
./pkg/smooth/smooth_init3d.F 136 SMOOTH_INIT3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_init3d.F 141 SMOOTH_INIT3D 
      smooth3D_Kuy(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 142 SMOOTH_INIT3D 
      smooth3D_Kvx(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 143 SMOOTH_INIT3D 
      smooth3D_Kwx(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 144 SMOOTH_INIT3D 
      smooth3D_Kwy(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 145 SMOOTH_INIT3D 
      smooth3D_Kwz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 146 SMOOTH_INIT3D 
      smooth3D_Kux(i,j,k,bi,bj)=smooth3D_Lx(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F 147 SMOOTH_INIT3D 
     & smooth3D_Lx(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F 148 SMOOTH_INIT3D 
      smooth3D_Kvy(i,j,k,bi,bj)=smooth3D_Ly(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F 149 SMOOTH_INIT3D 
     & smooth3D_Ly(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F 150 SMOOTH_INIT3D 
      smooth3D_Kuz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 151 SMOOTH_INIT3D 
      smooth3D_Kvz(i,j,k,bi,bj)=0.
./pkg/smooth/smooth_init3d.F 29 SMOOTH_INIT3D 
      integer i,j,k, bi, bj, imin, imax, jmin, jmax
./pkg/smooth/smooth_init3d.F 61 SMOOTH_INIT3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_init3d.F 66 SMOOTH_INIT3D 
          smooth3D_Lz(i,j,k,bi,bj)=smooth3D_Lz0(smoothOpNb)
./pkg/smooth/smooth_init3d.F 74 SMOOTH_INIT3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_init3d.F 79 SMOOTH_INIT3D 
       smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_Lz(i,j,k,bi,bj)*
./pkg/smooth/smooth_init3d.F 80 SMOOTH_INIT3D 
     & smooth3D_Lz(i,j,k,bi,bj)/smooth3DtotTime/2
./pkg/smooth/smooth_init3d.F 89 SMOOTH_INIT3D 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_init3d.F 97 SMOOTH_INIT3D 
       if (smooth3D_kappaR(i,j,k,bi,bj).GT.smooth3D_KzMax) then
./pkg/smooth/smooth_init3d.F 98 SMOOTH_INIT3D 
       smooth3D_kappaR(i,j,k,bi,bj)=smooth3D_KzMax
./pkg/smooth/smooth_init_fixed.F 24 SMOOTH_INIT_FIXED 
      integer i,j,k, bi, bj, imin, imax, jmin, jmax
./pkg/smooth/smooth_init_fixed.F 33 SMOOTH_INIT_FIXED 
      DO bj=jtlo,jthi
./pkg/smooth/smooth_init_fixed.F 38 SMOOTH_INIT_FIXED 
          smooth_recip_hFacC(i,j,k,bi,bj)=_recip_hFacC(i,j,k,bi,bj)
./pkg/smooth/smooth_init_fixed.F 39 SMOOTH_INIT_FIXED 
          smooth_hFacW(i,j,k,bi,bj)=_hFacW(i,j,k,bi,bj)
./pkg/smooth/smooth_init_fixed.F 40 SMOOTH_INIT_FIXED 
          smooth_hFacS(i,j,k,bi,bj)=_hFacS(i,j,k,bi,bj)
./eesupp/src/bar_check.F 40 BAR_CHECK 
      INTEGER bi,bj
./eesupp/src/bar_check.F 49 BAR_CHECK 
       DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/bar_check.F 51 BAR_CHECK 
          barStatus(bi,bj) = barrierId
./eesupp/src/bar_check.F 58 BAR_CHECK 
       DO bj = 1,nSy
./eesupp/src/bar_check.F 60 BAR_CHECK 
          flag = flag .OR. (barStatus(bi,bj).NE.barrierId)
./model/src/ini_depths.F 101 INI_DEPTHS 
           R_low(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F 162 INI_DEPTHS 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_depths.F 166 INI_DEPTHS 
            Ro_surf(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F 205 INI_DEPTHS 
          DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_depths.F 209 INI_DEPTHS 
              Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj)
./model/src/ini_depths.F 229 INI_DEPTHS 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_depths.F 234 INI_DEPTHS 
           jG = myYGlobalLo-1+(bj-1)*sNy+j
./model/src/ini_depths.F 244 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.90. )
./model/src/ini_depths.F 245 INI_DEPTHS 
     &       Ro_surf(i,j,bi,bj) = rF(Nr+1)
./model/src/ini_depths.F 251 INI_DEPTHS 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_depths.F 256 INI_DEPTHS 
           jG = myYGlobalLo-1+(bj-1)*sNy+j
./model/src/ini_depths.F 266 INI_DEPTHS 
     &          ABS(yC(i,j,bi,bj)).GE.90. )
./model/src/ini_depths.F 267 INI_DEPTHS 
     &       R_low(i,j,bi,bj) = rF(1)
./model/src/ini_depths.F 58 INI_DEPTHS 
      INTEGER bi, bj
./model/src/ini_depths.F 75 INI_DEPTHS 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 97 INI_DEPTHS 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/smooth/smooth_rhs.F 101 SMOOTH_RHS 
             maskUp(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 103 SMOOTH_RHS 
            maskUp(i,j,bi,bj) =
./pkg/smooth/smooth_rhs.F 104 SMOOTH_RHS 
     &        maskC(i,j,k-1,bi,bj)*maskC(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 113 SMOOTH_RHS 
        df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 114 SMOOTH_RHS 
     &       -xA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 115 SMOOTH_RHS 
     &       *smooth3D_Kux(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 116 SMOOTH_RHS 
     &       *recip_dxC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 117 SMOOTH_RHS 
     &       *(fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 123 SMOOTH_RHS 
           dTdz(bi,bj) =  0.5*(
./pkg/smooth/smooth_rhs.F 125 SMOOTH_RHS 
     &       ( maskC(i-1,j,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 126 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 127 SMOOTH_RHS 
     &       +maskC( i ,j,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 128 SMOOTH_RHS 
     &       (fld_in( i ,j, MAX(k-1,1) ,bi,bj)-fld_in( i ,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 131 SMOOTH_RHS 
     &       ( maskC(i-1,j,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 132 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 133 SMOOTH_RHS 
     &       +maskC( i ,j,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 134 SMOOTH_RHS 
     &       (fld_in( i ,j,k,bi,bj)-fld_in( i ,j,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F 136 SMOOTH_RHS 
           df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 137 SMOOTH_RHS 
     &      - xA(i,j,bi,bj)*smooth3D_Kuz(i,j,k,bi,bj)*dTdz(bi,bj)
./pkg/smooth/smooth_rhs.F 143 SMOOTH_RHS 
           dTdy(bi,bj) = 0.5*(
./pkg/smooth/smooth_rhs.F 144 SMOOTH_RHS 
     &      +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 145 SMOOTH_RHS 
     &         *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 146 SMOOTH_RHS 
     &         (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 147 SMOOTH_RHS 
     &        +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 148 SMOOTH_RHS 
     &        *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 149 SMOOTH_RHS 
     &        (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 150 SMOOTH_RHS 
     &      +0.5*(maskS(i-1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 151 SMOOTH_RHS 
     &        *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 152 SMOOTH_RHS 
     &        (fld_in(i-1,j,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 153 SMOOTH_RHS 
     &        +maskS(i-1,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 154 SMOOTH_RHS 
     &        *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 155 SMOOTH_RHS 
     &        (fld_in(i-1,j+1,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 157 SMOOTH_RHS 
           df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 158 SMOOTH_RHS 
     &      - xA(i,j,bi,bj)*smooth3D_Kuy(i,j,k,bi,bj)*dTdy(bi,bj)
./pkg/smooth/smooth_rhs.F 167 SMOOTH_RHS 
            fZon(i,j,k,bi,bj) = fZon(i,j,k,bi,bj) + df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 173 SMOOTH_RHS 
            df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 181 SMOOTH_RHS 
           df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 182 SMOOTH_RHS 
     &      -yA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 183 SMOOTH_RHS 
     &       *smooth3D_Kvy(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 184 SMOOTH_RHS 
     &       *recip_dyC(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 185 SMOOTH_RHS 
     &       *(fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 191 SMOOTH_RHS 
           dTdz(bi,bj) =  0.5*(
./pkg/smooth/smooth_rhs.F 193 SMOOTH_RHS 
     &       ( maskC(i,j-1,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 194 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 195 SMOOTH_RHS 
     &         +maskC(i, j ,k,bi,bj)*
./pkg/smooth/smooth_rhs.F 196 SMOOTH_RHS 
     &          (fld_in(i, j ,MAX(k-1,1),bi,bj)-fld_in(i, j ,k,bi,bj))
./pkg/smooth/smooth_rhs.F 199 SMOOTH_RHS 
     &       ( maskC(i,j-1,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 200 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 201 SMOOTH_RHS 
     &         +maskC(i, j ,MIN(k+1,Nr),bi,bj)*
./pkg/smooth/smooth_rhs.F 202 SMOOTH_RHS 
     &         (fld_in(i, j ,k,bi,bj)-fld_in(i, j ,MIN(k+1,Nr),bi,bj))
./pkg/smooth/smooth_rhs.F 204 SMOOTH_RHS 
             df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 205 SMOOTH_RHS 
     &        - yA(i,j,bi,bj)*smooth3D_Kvz(i,j,k,bi,bj)*dTdz(bi,bj)
./pkg/smooth/smooth_rhs.F 211 SMOOTH_RHS 
           dTdx(bi,bj) = 0.5*(
./pkg/smooth/smooth_rhs.F 212 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 213 SMOOTH_RHS 
     &            *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 214 SMOOTH_RHS 
     &            (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 215 SMOOTH_RHS 
     &            +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 216 SMOOTH_RHS 
     &            *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 217 SMOOTH_RHS 
     &            (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 218 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 219 SMOOTH_RHS 
     &            *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 220 SMOOTH_RHS 
     &            (fld_in(i+1,j-1,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 221 SMOOTH_RHS 
     &            +maskW(i,j-1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 222 SMOOTH_RHS 
     &            *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 223 SMOOTH_RHS 
     &            (fld_in(i,j-1,k,bi,bj)-fld_in(i-1,j-1,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 225 SMOOTH_RHS 
             df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 226 SMOOTH_RHS 
     &        - yA(i,j,bi,bj)*smooth3D_Kvx(i,j,k,bi,bj)*dTdx(bi,bj)
./pkg/smooth/smooth_rhs.F 234 SMOOTH_RHS 
            fMer(i,j,k,bi,bj) = fMer(i,j,k,bi,bj) + df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 240 SMOOTH_RHS 
            df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 251 SMOOTH_RHS 
            df(i,j,bi,bj) =
./pkg/smooth/smooth_rhs.F 252 SMOOTH_RHS 
     &        -_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 253 SMOOTH_RHS 
     &        *smooth3D_kappaR(i,j,k,bi,bj)*recip_drC(k)
./pkg/smooth/smooth_rhs.F 254 SMOOTH_RHS 
     &        *(fld_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 255 SMOOTH_RHS 
     &        -fld_in(i,j,k-1,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F 267 SMOOTH_RHS 
           dTdx(bi,bj) = 0.5*(
./pkg/smooth/smooth_rhs.F 268 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 269 SMOOTH_RHS 
     &            *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 270 SMOOTH_RHS 
     &            (fld_in(i+1,j,k,bi,bj)-fld_in(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 271 SMOOTH_RHS 
     &            +maskW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 272 SMOOTH_RHS 
     &            *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 273 SMOOTH_RHS 
     &            (fld_in(i,j,k,bi,bj)-fld_in(i-1,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 274 SMOOTH_RHS 
     &      +0.5*(maskW(i+1,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 275 SMOOTH_RHS 
     &            *recip_dxC(i+1,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 276 SMOOTH_RHS 
     &            (fld_in(i+1,j,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj))
./pkg/smooth/smooth_rhs.F 277 SMOOTH_RHS 
     &            +maskW(i,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 278 SMOOTH_RHS 
     &            *recip_dxC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 279 SMOOTH_RHS 
     &            (fld_in(i,j,k-1,bi,bj)-fld_in(i-1,j,k-1,bi,bj)))
./pkg/smooth/smooth_rhs.F 282 SMOOTH_RHS 
           dTdy(bi,bj) = 0.5*(
./pkg/smooth/smooth_rhs.F 283 SMOOTH_RHS 
     &      +0.5*(maskS(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 284 SMOOTH_RHS 
     &            *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 285 SMOOTH_RHS 
     &            (fld_in(i,j,k,bi,bj)-fld_in(i,j-1,k,bi,bj))
./pkg/smooth/smooth_rhs.F 286 SMOOTH_RHS 
     &           +maskS(i,j+1,k,bi,bj)
./pkg/smooth/smooth_rhs.F 287 SMOOTH_RHS 
     &           *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 288 SMOOTH_RHS 
     &           (fld_in(i,j+1,k,bi,bj)-fld_in(i,j,k,bi,bj)))
./pkg/smooth/smooth_rhs.F 289 SMOOTH_RHS 
     &      +0.5*(maskS(i,j,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 290 SMOOTH_RHS 
     &           *recip_dyC(i,j,bi,bj)*
./pkg/smooth/smooth_rhs.F 291 SMOOTH_RHS 
     &           (fld_in(i,j,k-1,bi,bj)-fld_in(i,j-1,k-1,bi,bj))
./pkg/smooth/smooth_rhs.F 292 SMOOTH_RHS 
     &           +maskS(i,j+1,k-1,bi,bj)
./pkg/smooth/smooth_rhs.F 293 SMOOTH_RHS 
     &           *recip_dyC(i,j+1,bi,bj)*
./pkg/smooth/smooth_rhs.F 294 SMOOTH_RHS 
     &           (fld_in(i,j+1,k-1,bi,bj)-fld_in(i,j,k-1,bi,bj)))
./pkg/smooth/smooth_rhs.F 297 SMOOTH_RHS 
           df(i,j,bi,bj) = df(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 298 SMOOTH_RHS 
     &           - rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 299 SMOOTH_RHS 
     &           *( smooth3D_Kwx(i,j,k,bi,bj)*dTdx(bi,bj)
./pkg/smooth/smooth_rhs.F 300 SMOOTH_RHS 
     &           +smooth3D_Kwy(i,j,k,bi,bj)*dTdy(bi,bj) )
./pkg/smooth/smooth_rhs.F 312 SMOOTH_RHS 
           fVerT(i,j,k-1,bi,bj) = fVerT(i,j,k-1,bi,bj) +
./pkg/smooth/smooth_rhs.F 313 SMOOTH_RHS 
     &    df(i,j,bi,bj)*maskUp(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 320 SMOOTH_RHS 
           df(i,j,bi,bj) = 0.
./pkg/smooth/smooth_rhs.F 332 SMOOTH_RHS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/smooth/smooth_rhs.F 339 SMOOTH_RHS 
        gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 340 SMOOTH_RHS 
     &   -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_rhs.F 341 SMOOTH_RHS 
     &   *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 342 SMOOTH_RHS 
     &   *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 343 SMOOTH_RHS 
     &     +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 344 SMOOTH_RHS 
     &     +(fVerT(i,j,k,bi,bj)-fVerT(i,j,k-1,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F 351 SMOOTH_RHS 
        gt_in(i,j,k,bi,bj)=gt_in(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 352 SMOOTH_RHS 
     &   -smooth_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./pkg/smooth/smooth_rhs.F 353 SMOOTH_RHS 
     &   *recip_rA(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 354 SMOOTH_RHS 
     &   *( (fZon(i+1,j,k,bi,bj)-fZon(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 355 SMOOTH_RHS 
     &     +(fMer(i,j+1,k,bi,bj)-fMer(i,j,k,bi,bj))
./pkg/smooth/smooth_rhs.F 356 SMOOTH_RHS 
     &     +(fVerT(i,j,k,bi,bj))*rkSign
./pkg/smooth/smooth_rhs.F 54 SMOOTH_RHS 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/smooth/smooth_rhs.F 69 SMOOTH_RHS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/smooth/smooth_rhs.F 77 SMOOTH_RHS 
           fZon(i,j,k,bi,bj)      = 0. _d 0
./pkg/smooth/smooth_rhs.F 78 SMOOTH_RHS 
           fMer(i,j,k,bi,bj)      = 0. _d 0
./pkg/smooth/smooth_rhs.F 79 SMOOTH_RHS 
           fVerT(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F 80 SMOOTH_RHS 
           gt_in(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F 95 SMOOTH_RHS 
           df(i,j,bi,bj)        = 0. _d 0
./pkg/smooth/smooth_rhs.F 96 SMOOTH_RHS 
           xA(i,j,bi,bj) = _dyG(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 97 SMOOTH_RHS 
     &      *drF(k)*smooth_hFacW(i,j,k,bi,bj)
./pkg/smooth/smooth_rhs.F 98 SMOOTH_RHS 
           yA(i,j,bi,bj) = _dxG(i,j,bi,bj)
./pkg/smooth/smooth_rhs.F 99 SMOOTH_RHS 
     &      *drF(k)*smooth_hFacS(i,j,k,bi,bj)
./pkg/sphere/exch_all_2d_rl.F 53 EXCH_ALLGATHER_2D_RL 
      integer bi, bj
./pkg/sphere/exch_all_2d_rl.F 83 EXCH_ALLGATHER_2D_RL 
        do bj = 1, nSy
./pkg/sphere/exch_all_2d_rl.F 87 EXCH_ALLGATHER_2D_RL 
                full(i,j,bi,bj,ipx,ipy) = recvbuf(i,j,bi,bj,iproc)
./model/src/ini_dynvars.F 38 INI_DYNVARS 
      INTEGER bi, bj
./model/src/ini_dynvars.F 43 INI_DYNVARS 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_dynvars.F 51 INI_DYNVARS 
           uVel (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 52 INI_DYNVARS 
           vVel (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 53 INI_DYNVARS 
           wVel (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 55 INI_DYNVARS 
           uMean(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 56 INI_DYNVARS 
           vMean(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 58 INI_DYNVARS 
           theta(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 59 INI_DYNVARS 
           salt (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 61 INI_DYNVARS 
           gU(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 62 INI_DYNVARS 
           gV(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 64 INI_DYNVARS 
           gT(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 65 INI_DYNVARS 
           gS(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 68 INI_DYNVARS 
           guNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F 69 INI_DYNVARS 
           gvNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F 70 INI_DYNVARS 
           gtNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F 71 INI_DYNVARS 
           gsNm(i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_dynvars.F 72 INI_DYNVARS 
           guNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F 73 INI_DYNVARS 
           gvNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F 74 INI_DYNVARS 
           gtNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F 75 INI_DYNVARS 
           gsNm(i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_dynvars.F 77 INI_DYNVARS 
           guNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 78 INI_DYNVARS 
           gvNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 79 INI_DYNVARS 
           gtNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 80 INI_DYNVARS 
           gsNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 82 INI_DYNVARS 
           totPhiHyd (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 83 INI_DYNVARS 
           rhoInSitu (i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 84 INI_DYNVARS 
           IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 92 INI_DYNVARS 
          etaN(i,j,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 93 INI_DYNVARS 
          etaH(i,j,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 94 INI_DYNVARS 
          phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 95 INI_DYNVARS 
          hMixLayer(i,j,bi,bj) = 0. _d 0
./pkg/streamice/adstreamice_cg_solve.F 100 ADSTREAMICE_CG_SOLVE 
     &     cg_Vin (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 101 ADSTREAMICE_CG_SOLVE 
          UtempSt (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F 102 ADSTREAMICE_CG_SOLVE 
     &     U_state (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 103 ADSTREAMICE_CG_SOLVE 
          VtempSt (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F 104 ADSTREAMICE_CG_SOLVE 
     &     V_state (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 146 ADSTREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/adstreamice_cg_solve.F 153 ADSTREAMICE_CG_SOLVE 
            if (STREAMICE_umask(i,j,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F 154 ADSTREAMICE_CG_SOLVE 
             if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F 155 ADSTREAMICE_CG_SOLVE 
                adA_uu(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F 156 ADSTREAMICE_CG_SOLVE 
     &           adA_uu(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F 157 ADSTREAMICE_CG_SOLVE 
     &           cg_Uin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F 158 ADSTREAMICE_CG_SOLVE 
     &           U_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 161 ADSTREAMICE_CG_SOLVE 
             if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F 162 ADSTREAMICE_CG_SOLVE 
                adA_uv(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F 163 ADSTREAMICE_CG_SOLVE 
     &           adA_uv(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F 164 ADSTREAMICE_CG_SOLVE 
     &           cg_Uin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F 165 ADSTREAMICE_CG_SOLVE 
     &           V_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 169 ADSTREAMICE_CG_SOLVE 
            if (STREAMICE_vmask(i,j,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F 170 ADSTREAMICE_CG_SOLVE 
             if (STREAMICE_umask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F 171 ADSTREAMICE_CG_SOLVE 
                adA_vu(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F 172 ADSTREAMICE_CG_SOLVE 
     &           adA_vu(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F 173 ADSTREAMICE_CG_SOLVE 
     &           cg_Vin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F 174 ADSTREAMICE_CG_SOLVE 
     &           U_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 176 ADSTREAMICE_CG_SOLVE 
             if (STREAMICE_vmask(i+colx,j+coly,bi,bj).eq.1) then
./pkg/streamice/adstreamice_cg_solve.F 177 ADSTREAMICE_CG_SOLVE 
                adA_vv(i,j,bi,bj,colx,coly) =
./pkg/streamice/adstreamice_cg_solve.F 178 ADSTREAMICE_CG_SOLVE 
     &           adA_vv(i,j,bi,bj,colx,coly) -
./pkg/streamice/adstreamice_cg_solve.F 179 ADSTREAMICE_CG_SOLVE 
     &           cg_Vin(i,j,bi,bj) *
./pkg/streamice/adstreamice_cg_solve.F 180 ADSTREAMICE_CG_SOLVE 
     &           V_state(i+colx,j+coly,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 191 ADSTREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/adstreamice_cg_solve.F 197 ADSTREAMICE_CG_SOLVE 
           cg_Uin (i,j,bi,bj) = 0.0
./pkg/streamice/adstreamice_cg_solve.F 198 ADSTREAMICE_CG_SOLVE 
           cg_Vin (i,j,bi,bj) = 0.0
./pkg/streamice/adstreamice_cg_solve.F 202 ADSTREAMICE_CG_SOLVE 
             ada_uu(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F 203 ADSTREAMICE_CG_SOLVE 
             ada_uv(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F 204 ADSTREAMICE_CG_SOLVE 
             ada_vu(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F 205 ADSTREAMICE_CG_SOLVE 
             ada_vv(i,j,bi,bj,colx,coly)=0.0
./pkg/streamice/adstreamice_cg_solve.F 210 ADSTREAMICE_CG_SOLVE 
          cg_Uin (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F 211 ADSTREAMICE_CG_SOLVE 
     &     cg_Uin (i,j,bi,bj) +
./pkg/streamice/adstreamice_cg_solve.F 212 ADSTREAMICE_CG_SOLVE 
     &     Utemp (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 213 ADSTREAMICE_CG_SOLVE 
          cg_Vin (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F 214 ADSTREAMICE_CG_SOLVE 
     &     cg_Vin (i,j,bi,bj) +
./pkg/streamice/adstreamice_cg_solve.F 215 ADSTREAMICE_CG_SOLVE 
     &     Vtemp (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 216 ADSTREAMICE_CG_SOLVE 
          cg_bu (i,j,bi,bj) = 0.
./pkg/streamice/adstreamice_cg_solve.F 217 ADSTREAMICE_CG_SOLVE 
          cg_bv (i,j,bi,bj) = 0.
./pkg/streamice/adstreamice_cg_solve.F 218 ADSTREAMICE_CG_SOLVE 
          U_state (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F 219 ADSTREAMICE_CG_SOLVE 
     &     UtempSt (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 220 ADSTREAMICE_CG_SOLVE 
          V_state (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F 221 ADSTREAMICE_CG_SOLVE 
     &     VtempSt (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 69 ADSTREAMICE_CG_SOLVE 
      INTEGER i, j, bi, bj, cg_halo, conv_flag, tmpiter
./pkg/streamice/adstreamice_cg_solve.F 93 ADSTREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/adstreamice_cg_solve.F 97 ADSTREAMICE_CG_SOLVE 
          Utemp (i,j,bi,bj) =
./pkg/streamice/adstreamice_cg_solve.F 98 ADSTREAMICE_CG_SOLVE 
     &     cg_Uin (i,j,bi,bj)
./pkg/streamice/adstreamice_cg_solve.F 99 ADSTREAMICE_CG_SOLVE 
          Vtemp (i,j,bi,bj) =
./pkg/streamice/adstreamice_invert_surf_forthick.F 25 ADSTRMICE_H_INV 
      INTEGER ITER, i, j, bi, bj
./pkg/streamice/adstreamice_invert_surf_forthick.F 67 ADSTRMICE_H_INV 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/streamice/adstreamice_invert_surf_forthick.F 72 ADSTRMICE_H_INV 
              hf = -1.0 * i_r * R_low_si (i,j,bi,bj)
./pkg/streamice/adstreamice_invert_surf_forthick.F 75 ADSTRMICE_H_INV 
     &             H (i,j,bi,bj)-hf,
./pkg/streamice/adstreamice_invert_surf_forthick.F 81 ADSTRMICE_H_INV 
              r_low_si_ad (i,j,bi,bj) =
./pkg/streamice/adstreamice_invert_surf_forthick.F 82 ADSTRMICE_H_INV 
     &          r_low_si_ad (i,j,bi,bj) -
./pkg/streamice/adstreamice_invert_surf_forthick.F 84 ADSTRMICE_H_INV 
     &          h_streamice_ad(i,j,bi,bj)
./model/src/ini_eos.F 358 EOS_CHECK 
      INTEGER bi, bj
./model/src/ini_eos.F 449 EOS_CHECK 
      bj   = 1
./model/src/ini_eos.F 467 EOS_CHECK 
        mskSave = maskC(i,j,k,bi,bj)
./model/src/ini_eos.F 469 EOS_CHECK 
        maskC(i,j,k,bi,bj) = 1.
./model/src/ini_eos.F 470 EOS_CHECK 
        totPhiHyd(i,j,k,bi,bj) = 0.
./model/src/ini_eos.F 491 EOS_CHECK 
     I           k, bi, bj, myThid )
./model/src/ini_eos.F 548 EOS_CHECK 
        maskC(i,j,k,bi,bj) = mskSave
./pkg/streamice/streamice_adv_flux_fl_x.F 102 STREAMICE_ADV_FLUX_FL_X 
               stencil (k) = TRAC(i+k-1,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F 104 STREAMICE_ADV_FLUX_FL_X 
              IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 105 STREAMICE_ADV_FLUX_FL_X 
     &            (STREAMICE_hmask(i-2,j,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 106 STREAMICE_ADV_FLUX_FL_X 
     &             H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_x.F 108 STREAMICE_ADV_FLUX_FL_X 
              IF (((Gi.eq.1).and.(STREAMICE_hmask(i-1,j,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 112 STREAMICE_ADV_FLUX_FL_X 
               XFLUX (i,j,bi,bj) = TRAC(i-1,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_x.F 114 STREAMICE_ADV_FLUX_FL_X 
              ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F 138 STREAMICE_ADV_FLUX_FL_X 
                XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F 142 STREAMICE_ADV_FLUX_FL_X 
                XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F 149 STREAMICE_ADV_FLUX_FL_X 
               XFLUX (i,j,bi,bj) = uface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_x.F 156 STREAMICE_ADV_FLUX_FL_X 
               stencil (k) = TRAC(i-k,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F 158 STREAMICE_ADV_FLUX_FL_X 
              IF ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 159 STREAMICE_ADV_FLUX_FL_X 
     &            (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 160 STREAMICE_ADV_FLUX_FL_X 
     &             H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_x.F 162 STREAMICE_ADV_FLUX_FL_X 
              IF (((Gi.eq.Nx).and.(STREAMICE_hmask(i+1,j,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_x.F 166 STREAMICE_ADV_FLUX_FL_X 
               XFLUX (i,j,bi,bj) = TRAC(i+1,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_x.F 168 STREAMICE_ADV_FLUX_FL_X 
              ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F 191 STREAMICE_ADV_FLUX_FL_X 
                XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F 195 STREAMICE_ADV_FLUX_FL_X 
                XFLUX (i,j,bi,bj) = uface *
./pkg/streamice/streamice_adv_flux_fl_x.F 202 STREAMICE_ADV_FLUX_FL_X 
               Xflux (i,j,bi,bj) = uface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_x.F 208 STREAMICE_ADV_FLUX_FL_X 
              Xflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_flux_fl_x.F 46 STREAMICE_ADV_FLUX_FL_X 
      INTEGER i, j, bi, bj, Gi, Gj, k
./pkg/streamice/streamice_adv_flux_fl_x.F 58 STREAMICE_ADV_FLUX_FL_X 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_adv_flux_fl_x.F 62 STREAMICE_ADV_FLUX_FL_X 
          H0_valid(i,j,bi,bj)=.false.
./pkg/streamice/streamice_adv_flux_fl_x.F 68 STREAMICE_ADV_FLUX_FL_X 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_adv_flux_fl_x.F 71 STREAMICE_ADV_FLUX_FL_X 
         Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_adv_flux_fl_x.F 78 STREAMICE_ADV_FLUX_FL_X 
           IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or.
./pkg/streamice/streamice_adv_flux_fl_x.F 79 STREAMICE_ADV_FLUX_FL_X 
     &         ((STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 80 STREAMICE_ADV_FLUX_FL_X 
     &          (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F 85 STREAMICE_ADV_FLUX_FL_X 
            uface = UADV(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F 86 STREAMICE_ADV_FLUX_FL_X 
            cfl = ABS(uface) * time_step * recip_dxC(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_x.F 89 STREAMICE_ADV_FLUX_FL_X 
            IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 91 STREAMICE_ADV_FLUX_FL_X 
     &          STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F 92 STREAMICE_ADV_FLUX_FL_X 
             XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_x.F 94 STREAMICE_ADV_FLUX_FL_X 
     &          (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_x.F 96 STREAMICE_ADV_FLUX_FL_X 
     &          STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_x.F 97 STREAMICE_ADV_FLUX_FL_X 
             XFLUX (i,j,bi,bj) = BC_XVALUES(i,j,bi,bj) * uface
./pkg/streamice/streamice_adv_flux_fl_y.F 100 STREAMICE_ADV_FLUX_FL_Y 
             YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F 107 STREAMICE_ADV_FLUX_FL_Y 
               stencil (k) = TRAC(i,j+k-1,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F 109 STREAMICE_ADV_FLUX_FL_Y 
              IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 110 STREAMICE_ADV_FLUX_FL_Y 
     &            (STREAMICE_hmask(i,j-2,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 111 STREAMICE_ADV_FLUX_FL_Y 
     &             H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_y.F 113 STREAMICE_ADV_FLUX_FL_Y 
              IF (((Gj.eq.1).and.(STREAMICE_hmask(i,j-1,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 117 STREAMICE_ADV_FLUX_FL_Y 
               YFLUX (i,j,bi,bj) = TRAC(i,j-1,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F 119 STREAMICE_ADV_FLUX_FL_Y 
              ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F 142 STREAMICE_ADV_FLUX_FL_Y 
                YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F 146 STREAMICE_ADV_FLUX_FL_Y 
                YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F 153 STREAMICE_ADV_FLUX_FL_Y 
               YFLUX (i,j,bi,bj) = vface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_y.F 160 STREAMICE_ADV_FLUX_FL_Y 
               stencil (k) = TRAC(i,j-k,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F 162 STREAMICE_ADV_FLUX_FL_Y 
              IF ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 163 STREAMICE_ADV_FLUX_FL_Y 
     &            (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 164 STREAMICE_ADV_FLUX_FL_Y 
     &             H0_valid(i,j,bi,bj)=.true.
./pkg/streamice/streamice_adv_flux_fl_y.F 166 STREAMICE_ADV_FLUX_FL_Y 
              IF (((Gj.eq.Ny).and.(STREAMICE_hmask(i,j+1,bi,bj).eq.3.0))
./pkg/streamice/streamice_adv_flux_fl_y.F 170 STREAMICE_ADV_FLUX_FL_Y 
               YFLUX (i,j,bi,bj) = TRAC(i,j+1,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F 172 STREAMICE_ADV_FLUX_FL_Y 
              ELSEIF (H0_valid(i,j,bi,bj)) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F 194 STREAMICE_ADV_FLUX_FL_Y 
                YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F 198 STREAMICE_ADV_FLUX_FL_Y 
                YFLUX (i,j,bi,bj) = vface *
./pkg/streamice/streamice_adv_flux_fl_y.F 205 STREAMICE_ADV_FLUX_FL_Y 
               yflux (i,j,bi,bj) = vface * stencil(0)
./pkg/streamice/streamice_adv_flux_fl_y.F 211 STREAMICE_ADV_FLUX_FL_Y 
              yflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_flux_fl_y.F 47 STREAMICE_ADV_FLUX_FL_Y 
      INTEGER i, j, bi, bj, Gi, Gj, k
./pkg/streamice/streamice_adv_flux_fl_y.F 60 STREAMICE_ADV_FLUX_FL_Y 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_adv_flux_fl_y.F 64 STREAMICE_ADV_FLUX_FL_Y 
          H0_valid(i,j,bi,bj)=.false.
./pkg/streamice/streamice_adv_flux_fl_y.F 70 STREAMICE_ADV_FLUX_FL_Y 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_adv_flux_fl_y.F 73 STREAMICE_ADV_FLUX_FL_Y 
         Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_adv_flux_fl_y.F 81 STREAMICE_ADV_FLUX_FL_Y 
           IF ((STREAMICE_hmask(i,j,bi,bj).eq.1.0) .or.
./pkg/streamice/streamice_adv_flux_fl_y.F 82 STREAMICE_ADV_FLUX_FL_Y 
     &         ((STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 83 STREAMICE_ADV_FLUX_FL_Y 
     &          (STREAMICE_hmask(i,j,bi,bj).ne.1.0))) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F 86 STREAMICE_ADV_FLUX_FL_Y 
            vface = VADV(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F 87 STREAMICE_ADV_FLUX_FL_Y 
            cfl = ABS(vface) * time_step * recip_dyC(i,j,bi,bj)
./pkg/streamice/streamice_adv_flux_fl_y.F 92 STREAMICE_ADV_FLUX_FL_Y 
            IF (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 94 STREAMICE_ADV_FLUX_FL_Y 
     &          STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_flux_fl_y.F 95 STREAMICE_ADV_FLUX_FL_Y 
             YFLUX (i,j,bi,bj) = BC_YVALUES(i,j,bi,bj) * vface
./pkg/streamice/streamice_adv_flux_fl_y.F 97 STREAMICE_ADV_FLUX_FL_Y 
     &          (BC_FACEMASK(i,j,bi,bj).eq.3.0 .and.
./pkg/streamice/streamice_adv_flux_fl_y.F 99 STREAMICE_ADV_FLUX_FL_Y 
     &          STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_adv_front.F 101 STREAMICE_ADV_FRONT 
            hflux_x_SI(i,j,bi,bj)=hflux_x_SI2(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 102 STREAMICE_ADV_FRONT 
            hflux_y_SI(i,j,bi,bj)=hflux_y_SI2(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 103 STREAMICE_ADV_FRONT 
            hflux_x_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 104 STREAMICE_ADV_FRONT 
            hflux_y_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 114 STREAMICE_ADV_FRONT 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_adv_front.F 118 STREAMICE_ADV_FRONT 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_adv_front.F 126 STREAMICE_ADV_FRONT 
          act2 = bj - myByLo(myThid)
./pkg/streamice/streamice_adv_front.F 150 STREAMICE_ADV_FRONT 
     &       STREAMICE_calve_mask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_adv_front.F 153 STREAMICE_ADV_FRONT 
     &          (STREAMICE_Hmask(i,j,bi,bj).eq.0.0 .or.
./pkg/streamice/streamice_adv_front.F 154 STREAMICE_ADV_FRONT 
     &           STREAMICE_Hmask(i,j,bi,bj).eq.2.0)) THEN
./pkg/streamice/streamice_adv_front.F 163 STREAMICE_ADV_FRONT 
             IF (hflux_x_SI(i,j,bi,bj).gt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F 165 STREAMICE_ADV_FRONT 
              href = href + H_streamice(i-1,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 166 STREAMICE_ADV_FRONT 
              tot_flux = tot_flux + hflux_x_SI(i,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F 167 STREAMICE_ADV_FRONT 
     &         dxG(i,j,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F 168 STREAMICE_ADV_FRONT 
              hflux_x_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 175 STREAMICE_ADV_FRONT 
             IF (hflux_x_SI(i+1,j,bi,bj).lt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F 177 STREAMICE_ADV_FRONT 
              href = href + H_streamice(i+1,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 178 STREAMICE_ADV_FRONT 
              tot_flux = tot_flux - hflux_x_SI(i+1,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F 179 STREAMICE_ADV_FRONT 
     &         dxG(i+1,j,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F 180 STREAMICE_ADV_FRONT 
              hflux_x_SI(i+1,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 187 STREAMICE_ADV_FRONT 
             IF (hflux_y_SI(i,j,bi,bj).gt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F 189 STREAMICE_ADV_FRONT 
              href = href + H_streamice(i,j-1,bi,bj)
./pkg/streamice/streamice_adv_front.F 190 STREAMICE_ADV_FRONT 
              tot_flux = tot_flux + hflux_y_SI(i,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F 191 STREAMICE_ADV_FRONT 
     &         dyG(i,j,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F 192 STREAMICE_ADV_FRONT 
              hflux_y_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 199 STREAMICE_ADV_FRONT 
             IF (hflux_y_SI(i,j+1,bi,bj).lt. 0. _d 0) THEN
./pkg/streamice/streamice_adv_front.F 201 STREAMICE_ADV_FRONT 
              href = href + H_streamice(i,j+1,bi,bj)
./pkg/streamice/streamice_adv_front.F 202 STREAMICE_ADV_FRONT 
              tot_flux = tot_flux - hflux_y_SI(i,j+1,bi,bj) *
./pkg/streamice/streamice_adv_front.F 203 STREAMICE_ADV_FRONT 
     &         dyG(i,j+1,bi,bj) * time_step
./pkg/streamice/streamice_adv_front.F 204 STREAMICE_ADV_FRONT 
              hflux_y_SI(i,j+1,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 210 STREAMICE_ADV_FRONT 
              partial_vol = H_streamice (i,j,bi,bj) *
./pkg/streamice/streamice_adv_front.F 211 STREAMICE_ADV_FRONT 
     &         area_shelf_streamice (i,j,bi,bj) + tot_flux
./pkg/streamice/streamice_adv_front.F 212 STREAMICE_ADV_FRONT 
              hpot = partial_vol * recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 215 STREAMICE_ADV_FRONT 
                STREAMICE_hmask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_adv_front.F 216 STREAMICE_ADV_FRONT 
                H_streamice (i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F 217 STREAMICE_ADV_FRONT 
                area_shelf_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_adv_front.F 218 STREAMICE_ADV_FRONT 
     &           rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 223 STREAMICE_ADV_FRONT 
               STREAMICE_hmask (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_adv_front.F 224 STREAMICE_ADV_FRONT 
               area_shelf_streamice (i,j,bi,bj) = partial_vol / href
./pkg/streamice/streamice_adv_front.F 225 STREAMICE_ADV_FRONT 
               H_streamice (i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F 230 STREAMICE_ADV_FRONT 
               STREAMICE_hmask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_adv_front.F 231 STREAMICE_ADV_FRONT 
               area_shelf_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_adv_front.F 232 STREAMICE_ADV_FRONT 
     &           rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 235 STREAMICE_ADV_FRONT 
     &          area_shelf_streamice(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 236 STREAMICE_ADV_FRONT 
               partial_vol = partial_vol - href * rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 246 STREAMICE_ADV_FRONT 
                IF ( (STREAMICE_ufacemask(i-1+k,j,bi,bj).eq.2.0) .or.
./pkg/streamice/streamice_adv_front.F 248 STREAMICE_ADV_FRONT 
     &             STREAMICE_calve_mask(i+2*k-3,j,bi,bj).ne.1.0)
./pkg/streamice/streamice_adv_front.F 251 STREAMICE_ADV_FRONT 
                ELSEIF (STREAMICE_hmask(i+2*k-3,j,bi,bj).eq.0 _d 0) THEN ! adjacent cell is completely ice free
./pkg/streamice/streamice_adv_front.F 257 STREAMICE_ADV_FRONT 
                IF ( (STREAMICE_vfacemask (i,j-1+k,bi,bj).eq.2.0) .or.
./pkg/streamice/streamice_adv_front.F 259 STREAMICE_ADV_FRONT 
     &             STREAMICE_calve_mask(i,j+2*k-3,bi,bj).ne.1.0)
./pkg/streamice/streamice_adv_front.F 262 STREAMICE_ADV_FRONT 
                ELSEIF (STREAMICE_hmask(i,j+2*k-3,bi,bj).eq.0 _d 0) THEN
./pkg/streamice/streamice_adv_front.F 269 STREAMICE_ADV_FRONT 
                H_streamice(i,j,bi,bj) = href + partial_vol *
./pkg/streamice/streamice_adv_front.F 270 STREAMICE_ADV_FRONT 
     &             recip_rA(i,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 272 STREAMICE_ADV_FRONT 
                H_streamice(i,j,bi,bj) = href
./pkg/streamice/streamice_adv_front.F 276 STREAMICE_ADV_FRONT 
                  hflux_x_SI2(i-1+k,j,bi,bj) =
./pkg/streamice/streamice_adv_front.F 278 STREAMICE_ADV_FRONT 
     &               dxG(i-1+k,j,bi,bj)
./pkg/streamice/streamice_adv_front.F 284 STREAMICE_ADV_FRONT 
                  hflux_y_SI2(i,j-1+k,bi,bj) =
./pkg/streamice/streamice_adv_front.F 286 STREAMICE_ADV_FRONT 
     &               dxG(i,j-1+k,bi,bj)
./pkg/streamice/streamice_adv_front.F 41 STREAMICE_ADV_FRONT 
      INTEGER i, j, bi, bj, k, iter_count, iter_rpt
./pkg/streamice/streamice_adv_front.F 58 STREAMICE_ADV_FRONT 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_adv_front.F 62 STREAMICE_ADV_FRONT 
            hflux_x_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 63 STREAMICE_ADV_FRONT 
            hflux_y_SI2(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_adv_front.F 97 STREAMICE_ADV_FRONT 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_2dtracer.F 119 STREAMICE_ADVECT_2DTRACER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_2dtracer.F 124 STREAMICE_ADVECT_2DTRACER 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_2dtracer.F 129 STREAMICE_ADVECT_2DTRACER 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_2dtracer.F 130 STREAMICE_ADVECT_2DTRACER 
     &        STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 135 STREAMICE_ADVECT_2DTRACER 
           GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 137 STREAMICE_ADVECT_2DTRACER 
           trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 139 STREAMICE_ADVECT_2DTRACER 
     &      ((xtracflux(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 140 STREAMICE_ADVECT_2DTRACER 
     &       xtracflux(i,j,bi,bj)*dyG(i,j,bi,bj)) *
./pkg/streamice/streamice_advect_2dtracer.F 141 STREAMICE_ADVECT_2DTRACER 
     &        recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 142 STREAMICE_ADVECT_2DTRACER 
     &     trac2d(i,j,bi,bj) *
./pkg/streamice/streamice_advect_2dtracer.F 143 STREAMICE_ADVECT_2DTRACER 
     &      (utrans(i+1,j,bi,bj)*dyG(i+1,j,bi,bj)-
./pkg/streamice/streamice_advect_2dtracer.F 144 STREAMICE_ADVECT_2DTRACER 
     &       utrans(i,j,bi,bj)*dyG(i,j,bi,bj)) *
./pkg/streamice/streamice_advect_2dtracer.F 145 STREAMICE_ADVECT_2DTRACER 
     &       recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F 173 STREAMICE_ADVECT_2DTRACER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_2dtracer.F 178 STREAMICE_ADVECT_2DTRACER 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_2dtracer.F 180 STREAMICE_ADVECT_2DTRACER 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_2dtracer.F 181 STREAMICE_ADVECT_2DTRACER 
     &        STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 190 STREAMICE_ADVECT_2DTRACER 
           GAD_trac_2d(i,j,bi,bj) = GAD_trac_2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 192 STREAMICE_ADVECT_2DTRACER 
           trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 194 STREAMICE_ADVECT_2DTRACER 
     &      ((ytracflux(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 195 STREAMICE_ADVECT_2DTRACER 
     &       ytracflux(i,j,bi,bj)*dxG(i,j,bi,bj)) *
./pkg/streamice/streamice_advect_2dtracer.F 196 STREAMICE_ADVECT_2DTRACER 
     &        recip_rA (i,j,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 197 STREAMICE_ADVECT_2DTRACER 
     &      (vtrans(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) -
./pkg/streamice/streamice_advect_2dtracer.F 198 STREAMICE_ADVECT_2DTRACER 
     &       vtrans(i,j,bi,bj)*dxG(i,j,bi,bj)) *
./pkg/streamice/streamice_advect_2dtracer.F 199 STREAMICE_ADVECT_2DTRACER 
     &     trac2d(i,j,bi,bj) *
./pkg/streamice/streamice_advect_2dtracer.F 200 STREAMICE_ADVECT_2DTRACER 
     &       recip_rA(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F 212 STREAMICE_ADVECT_2DTRACER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_2dtracer.F 217 STREAMICE_ADVECT_2DTRACER 
          trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc *
./pkg/streamice/streamice_advect_2dtracer.F 218 STREAMICE_ADVECT_2DTRACER 
     &      GAD_trac_2d(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F 221 STREAMICE_ADVECT_2DTRACER 
           trac2d(i,j,bi,bj) = trac2d(i,j,bi,bj) + time_step_loc *
./pkg/streamice/streamice_advect_2dtracer.F 223 STREAMICE_ADVECT_2DTRACER 
     &      (GAD_trac_2d(i,j,bi,bj) - GAD_trac_2dNm1(i,j,bi,bj))
./pkg/streamice/streamice_advect_2dtracer.F 48 STREAMICE_ADVECT_2DTRACER 
      INTEGER i, j, bi, bj
./pkg/streamice/streamice_advect_2dtracer.F 67 STREAMICE_ADVECT_2DTRACER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_2dtracer.F 75 STREAMICE_ADVECT_2DTRACER 
          ytracflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_2dtracer.F 76 STREAMICE_ADVECT_2DTRACER 
          xtracflux (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_2dtracer.F 78 STREAMICE_ADVECT_2DTRACER 
          GAD_trac_2dNm1(i,j,bi,bj)=GAD_trac_2d(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F 79 STREAMICE_ADVECT_2DTRACER 
          GAD_trac_2d (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_2dtracer.F 83 STREAMICE_ADVECT_2DTRACER 
          IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 84 STREAMICE_ADVECT_2DTRACER 
           BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F 85 STREAMICE_ADVECT_2DTRACER 
          ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 86 STREAMICE_ADVECT_2DTRACER 
           BCVALX(i,j,bi,bj) = trac2d_ubdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F 89 STREAMICE_ADVECT_2DTRACER 
          IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 90 STREAMICE_ADVECT_2DTRACER 
           BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_2dtracer.F 91 STREAMICE_ADVECT_2DTRACER 
          ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_2dtracer.F 92 STREAMICE_ADVECT_2DTRACER 
           BCVALy(i,j,bi,bj) = trac2d_vbdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 101 STREAMICE_ADVECT_THICKNESS 
           BCMASKX(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F 102 STREAMICE_ADVECT_THICKNESS 
           BCVALX(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 103 STREAMICE_ADVECT_THICKNESS 
           utrans(i,j,bi,bj) = .5 * (
./pkg/streamice/streamice_advect_thickness.F 104 STREAMICE_ADVECT_THICKNESS 
     &      u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 107 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_vfacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_thickness.F 108 STREAMICE_ADVECT_THICKNESS 
           BCMASKy(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F 109 STREAMICE_ADVECT_THICKNESS 
           BCVALy(i,j,bi,bj) = h_vbdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 110 STREAMICE_ADVECT_THICKNESS 
           vtrans(i,j,bi,bj) = .5 * (
./pkg/streamice/streamice_advect_thickness.F 111 STREAMICE_ADVECT_THICKNESS 
     &      v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 112 STREAMICE_ADVECT_THICKNESS 
          ELSEIF (STREAMICE_vfacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_thickness.F 113 STREAMICE_ADVECT_THICKNESS 
           IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 114 STREAMICE_ADVECT_THICKNESS 
            vflux = v_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 115 STREAMICE_ADVECT_THICKNESS 
            BCMASKY(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F 116 STREAMICE_ADVECT_THICKNESS 
            BCVALY(i,j,bi,bj) = vflux
./pkg/streamice/streamice_advect_thickness.F 117 STREAMICE_ADVECT_THICKNESS 
            vtrans(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_advect_thickness.F 118 STREAMICE_ADVECT_THICKNESS 
           ELSEIF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 119 STREAMICE_ADVECT_THICKNESS 
            vflux = v_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 120 STREAMICE_ADVECT_THICKNESS 
            BCMASKY(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F 121 STREAMICE_ADVECT_THICKNESS 
            BCVALY(i,j,bi,bj) = vflux
./pkg/streamice/streamice_advect_thickness.F 122 STREAMICE_ADVECT_THICKNESS 
            vtrans(i,j,bi,bj) = -1.0
./pkg/streamice/streamice_advect_thickness.F 127 STREAMICE_ADVECT_THICKNESS 
           vtrans(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_advect_thickness.F 129 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR.
./pkg/streamice/streamice_advect_thickness.F 130 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i,j-1,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_advect_thickness.F 131 STREAMICE_ADVECT_THICKNESS 
           BCMASKY(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F 132 STREAMICE_ADVECT_THICKNESS 
           BCVALY(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 133 STREAMICE_ADVECT_THICKNESS 
           vtrans(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 135 STREAMICE_ADVECT_THICKNESS 
           BCMASKy(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F 136 STREAMICE_ADVECT_THICKNESS 
           BCVALy(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 137 STREAMICE_ADVECT_THICKNESS 
           vtrans(i,j,bi,bj) =  .5 * (
./pkg/streamice/streamice_advect_thickness.F 138 STREAMICE_ADVECT_THICKNESS 
     &      v_streamice(i,j,bi,bj)+v_streamice(i+1,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 160 STREAMICE_ADVECT_THICKNESS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_thickness.F 164 STREAMICE_ADVECT_THICKNESS 
          IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 165 STREAMICE_ADVECT_THICKNESS 
           loc_icfl=max(abs(utrans(i,j,bi,bj)),
./pkg/streamice/streamice_advect_thickness.F 166 STREAMICE_ADVECT_THICKNESS 
     &                  abs(utrans(i+1,j,bi,bj))) / dxF(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 167 STREAMICE_ADVECT_THICKNESS 
           loc_icfl=max(loc_icfl,max(abs(vtrans(i,j,bi,bj)),
./pkg/streamice/streamice_advect_thickness.F 168 STREAMICE_ADVECT_THICKNESS 
     &                  abs(vtrans(i,j+1,bi,bj))) / dyF(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 208 STREAMICE_ADVECT_THICKNESS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_thickness.F 213 STREAMICE_ADVECT_THICKNESS 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_thickness.F 217 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 218 STREAMICE_ADVECT_THICKNESS 
           h_after_uflux_SI (i,j,bi,bj) = H_streamice(i,j,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F 219 STREAMICE_ADVECT_THICKNESS 
     &      (hflux_x_SI(i+1,j,bi,bj)*dyG(i+1,j,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F 220 STREAMICE_ADVECT_THICKNESS 
     &        hflux_x_SI(i,j,bi,bj)*dyG(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 221 STREAMICE_ADVECT_THICKNESS 
     &        * recip_rA (i,j,bi,bj) * time_step_loc
./pkg/streamice/streamice_advect_thickness.F 222 STREAMICE_ADVECT_THICKNESS 
           IF ( h_after_uflux_SI (i,j,bi,bj).le.0.0) THEN
./pkg/streamice/streamice_advect_thickness.F 223 STREAMICE_ADVECT_THICKNESS 
            PRINT *, "h neg after x", i,j,hflux_x_SI(i+1,j,bi,bj),
./pkg/streamice/streamice_advect_thickness.F 224 STREAMICE_ADVECT_THICKNESS 
     &        hflux_x_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 253 STREAMICE_ADVECT_THICKNESS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_thickness.F 258 STREAMICE_ADVECT_THICKNESS 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_thickness.F 262 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 263 STREAMICE_ADVECT_THICKNESS 
           h_after_vflux_SI (i,j,bi,bj) = h_after_uflux_SI(i,j,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F 264 STREAMICE_ADVECT_THICKNESS 
     &      (hflux_y_SI(i,j+1,bi,bj)*dxG(i,j+1,bi,bj) -
./pkg/streamice/streamice_advect_thickness.F 265 STREAMICE_ADVECT_THICKNESS 
     &        hflux_y_SI(i,j,bi,bj)*dxG(i,j,bi,bj)) *
./pkg/streamice/streamice_advect_thickness.F 266 STREAMICE_ADVECT_THICKNESS 
     &        recip_rA (i,j,bi,bj) * time_step_loc
./pkg/streamice/streamice_advect_thickness.F 267 STREAMICE_ADVECT_THICKNESS 
           IF ( h_after_vflux_SI (i,j,bi,bj).le.0.0) THEN
./pkg/streamice/streamice_advect_thickness.F 268 STREAMICE_ADVECT_THICKNESS 
            PRINT *, "h neg after y", i,j,hflux_y_SI(i,j+1,bi,bj),
./pkg/streamice/streamice_advect_thickness.F 269 STREAMICE_ADVECT_THICKNESS 
     &        hflux_y_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 280 STREAMICE_ADVECT_THICKNESS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_thickness.F 284 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 285 STREAMICE_ADVECT_THICKNESS 
           H_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F 286 STREAMICE_ADVECT_THICKNESS 
     &      h_after_vflux_SI (i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 323 STREAMICE_ADVECT_THICKNESS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_thickness.F 328 STREAMICE_ADVECT_THICKNESS 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_advect_thickness.F 329 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_advect_thickness.F 330 STREAMICE_ADVECT_THICKNESS 
     &       STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_advect_thickness.F 331 STREAMICE_ADVECT_THICKNESS 
             MR = (1.-float_frac_streamice(i,j,bi,bj)) *
./pkg/streamice/streamice_advect_thickness.F 332 STREAMICE_ADVECT_THICKNESS 
     &             (BDOT_STREAMICE(i,j,bi,bj) +
./pkg/streamice/streamice_advect_thickness.F 333 STREAMICE_ADVECT_THICKNESS 
     &              BDOT_pert(i,j,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 334 STREAMICE_ADVECT_THICKNESS 
             SMB = ADOT_STREAMICE(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 339 STREAMICE_ADVECT_THICKNESS 
     &          H_streamice (i,j,bi,bj))) THEN
./pkg/streamice/streamice_advect_thickness.F 340 STREAMICE_ADVECT_THICKNESS 
                H_streamice (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 341 STREAMICE_ADVECT_THICKNESS 
                STREAMICE_hmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F 344 STREAMICE_ADVECT_THICKNESS 
               H_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F 345 STREAMICE_ADVECT_THICKNESS 
     &          H_streamice (i,j,bi,bj) + TMB * time_step_loc
./pkg/streamice/streamice_advect_thickness.F 35 STREAMICE_ADVECT_THICKNESS 
      INTEGER i, j, bi, bj, Gi, Gj
./pkg/streamice/streamice_advect_thickness.F 63 STREAMICE_ADVECT_THICKNESS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_advect_thickness.F 68 STREAMICE_ADVECT_THICKNESS 
          H_streamice_prev(i,j,bi,bj) =
./pkg/streamice/streamice_advect_thickness.F 69 STREAMICE_ADVECT_THICKNESS 
     &     H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 71 STREAMICE_ADVECT_THICKNESS 
          hflux_x_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 72 STREAMICE_ADVECT_THICKNESS 
          hflux_y_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 73 STREAMICE_ADVECT_THICKNESS 
          h_after_uflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 74 STREAMICE_ADVECT_THICKNESS 
          h_after_vflux_SI(i,j,bi,bj) = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 77 STREAMICE_ADVECT_THICKNESS 
          IF (STREAMICE_ufacemask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_advect_thickness.F 78 STREAMICE_ADVECT_THICKNESS 
           BCMASKX(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F 79 STREAMICE_ADVECT_THICKNESS 
           BCVALX(i,j,bi,bj) = h_ubdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 80 STREAMICE_ADVECT_THICKNESS 
           utrans(i,j,bi,bj) = .5 * (
./pkg/streamice/streamice_advect_thickness.F 81 STREAMICE_ADVECT_THICKNESS 
     &      u_streamice(i,j,bi,bj)+u_streamice(i,j+1,bi,bj))
./pkg/streamice/streamice_advect_thickness.F 82 STREAMICE_ADVECT_THICKNESS 
          ELSEIF (STREAMICE_ufacemask(i,j,bi,bj).eq.4.0) THEN
./pkg/streamice/streamice_advect_thickness.F 83 STREAMICE_ADVECT_THICKNESS 
           IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 84 STREAMICE_ADVECT_THICKNESS 
            uflux = u_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 85 STREAMICE_ADVECT_THICKNESS 
            BCMASKX(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F 86 STREAMICE_ADVECT_THICKNESS 
            BCVALX(i,j,bi,bj) = uflux
./pkg/streamice/streamice_advect_thickness.F 87 STREAMICE_ADVECT_THICKNESS 
            utrans(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_advect_thickness.F 88 STREAMICE_ADVECT_THICKNESS 
           ELSEIF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_advect_thickness.F 89 STREAMICE_ADVECT_THICKNESS 
            uflux = u_flux_bdry_SI(i,j,bi,bj)
./pkg/streamice/streamice_advect_thickness.F 90 STREAMICE_ADVECT_THICKNESS 
            BCMASKX(i,j,bi,bj) = 3.0
./pkg/streamice/streamice_advect_thickness.F 91 STREAMICE_ADVECT_THICKNESS 
            BCVALX(i,j,bi,bj) = uflux
./pkg/streamice/streamice_advect_thickness.F 92 STREAMICE_ADVECT_THICKNESS 
            utrans(i,j,bi,bj) = -1.0
./pkg/streamice/streamice_advect_thickness.F 95 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i,j,bi,bj).eq.1.0.OR.
./pkg/streamice/streamice_advect_thickness.F 96 STREAMICE_ADVECT_THICKNESS 
     &     STREAMICE_hmask(i-1,j,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_advect_thickness.F 97 STREAMICE_ADVECT_THICKNESS 
           BCMASKX(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_advect_thickness.F 98 STREAMICE_ADVECT_THICKNESS 
           BCVALX(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_advect_thickness.F 99 STREAMICE_ADVECT_THICKNESS 
           utrans(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_apply_flux_ctrl.F 34 STREAMICE_APPLY_FLUX_CTRL 
      INTEGER bi, bj, i, j, k
./pkg/streamice/streamice_apply_flux_ctrl.F 53 STREAMICE_APPLY_FLUX_CTRL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_apply_flux_ctrl.F 57 STREAMICE_APPLY_FLUX_CTRL 
          IF (streamice_umask(i,j,bi,bj).eq.3.0 .OR.
./pkg/streamice/streamice_apply_flux_ctrl.F 58 STREAMICE_APPLY_FLUX_CTRL 
     &        streamice_vmask(i,j,bi,bj).eq.3.0) THEN
./pkg/streamice/streamice_apply_flux_ctrl.F 60 STREAMICE_APPLY_FLUX_CTRL 
           maskval = INT(streamice_ctrl_flux_mask(i,j,bi,bj))
./pkg/streamice/streamice_apply_flux_ctrl.F 64 STREAMICE_APPLY_FLUX_CTRL 
             IF (streamice_umask(i,j,bi,bj).eq.3.0
./pkg/streamice/streamice_apply_flux_ctrl.F 65 STREAMICE_APPLY_FLUX_CTRL 
              u_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_apply_flux_ctrl.F 66 STREAMICE_APPLY_FLUX_CTRL 
     &         u_bdry_values_SI_base(i,j,bi,bj) *
./pkg/streamice/streamice_apply_flux_ctrl.F 69 STREAMICE_APPLY_FLUX_CTRL 
             IF (streamice_vmask(i,j,bi,bj).eq.3.0
./pkg/streamice/streamice_apply_flux_ctrl.F 70 STREAMICE_APPLY_FLUX_CTRL 
              v_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_apply_flux_ctrl.F 71 STREAMICE_APPLY_FLUX_CTRL 
     &         v_bdry_values_SI_base(i,j,bi,bj) *
./pkg/streamice/streamice_cg_functions.F 100 STREAMICE_CG_ACTION 
     &       u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F 101 STREAMICE_CG_ACTION 
     &       u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F 102 STREAMICE_CG_ACTION 
            uy = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F 103 STREAMICE_CG_ACTION 
     &       u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F 104 STREAMICE_CG_ACTION 
     &       u(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F 105 STREAMICE_CG_ACTION 
     &       u(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F 106 STREAMICE_CG_ACTION 
            vx = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F 107 STREAMICE_CG_ACTION 
     &       v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_functions.F 108 STREAMICE_CG_ACTION 
     &       v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F 109 STREAMICE_CG_ACTION 
     &       v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F 110 STREAMICE_CG_ACTION 
            vy = v(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F 111 STREAMICE_CG_ACTION 
     &       v(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F 112 STREAMICE_CG_ACTION 
     &       v(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F 113 STREAMICE_CG_ACTION 
     &       v(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F 114 STREAMICE_CG_ACTION 
            exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 115 STREAMICE_CG_ACTION 
            eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F 117 STREAMICE_CG_ACTION 
     &       k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 129 STREAMICE_CG_ACTION 
             if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F 131 STREAMICE_CG_ACTION 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 132 STREAMICE_CG_ACTION 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 133 STREAMICE_CG_ACTION 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 134 STREAMICE_CG_ACTION 
     &         visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 135 STREAMICE_CG_ACTION 
     &          DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F 136 STREAMICE_CG_ACTION 
     &          DPhi(i,j,bi,bj,m,n,2)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 139 STREAMICE_CG_ACTION 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 140 STREAMICE_CG_ACTION 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 141 STREAMICE_CG_ACTION 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 142 STREAMICE_CG_ACTION 
     &         visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F 143 STREAMICE_CG_ACTION 
     &         (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+
./pkg/streamice/streamice_cg_functions.F 144 STREAMICE_CG_ACTION 
     &          4*0.5*k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 147 STREAMICE_CG_ACTION 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 148 STREAMICE_CG_ACTION 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 150 STREAMICE_CG_ACTION 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 151 STREAMICE_CG_ACTION 
     &         tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F 156 STREAMICE_CG_ACTION 
             if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F 157 STREAMICE_CG_ACTION 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 158 STREAMICE_CG_ACTION 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 159 STREAMICE_CG_ACTION 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 160 STREAMICE_CG_ACTION 
     &         visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 161 STREAMICE_CG_ACTION 
     &          DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F 162 STREAMICE_CG_ACTION 
     &          DPhi(i,j,bi,bj,m,n,1)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 163 STREAMICE_CG_ACTION 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 164 STREAMICE_CG_ACTION 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 165 STREAMICE_CG_ACTION 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 166 STREAMICE_CG_ACTION 
     &         visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F 167 STREAMICE_CG_ACTION 
     &         (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+
./pkg/streamice/streamice_cg_functions.F 168 STREAMICE_CG_ACTION 
     &          4*0.5*k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 169 STREAMICE_CG_ACTION 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 170 STREAMICE_CG_ACTION 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 172 STREAMICE_CG_ACTION 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 173 STREAMICE_CG_ACTION 
     &         tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F 241 STREAMICE_CG_MAKE_A 
      INTEGER iq, jq, inodx, inody, i, j, bi, bj, ilqx, ilqy, m_i, n
./pkg/streamice/streamice_cg_functions.F 257 STREAMICE_CG_MAKE_A 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_functions.F 262 STREAMICE_CG_MAKE_A 
             streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F 263 STREAMICE_CG_MAKE_A 
             streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F 264 STREAMICE_CG_MAKE_A 
             streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F 265 STREAMICE_CG_MAKE_A 
             streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_cg_functions.F 276 STREAMICE_CG_MAKE_A 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_functions.F 278 STREAMICE_CG_MAKE_A 
          IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F 287 STREAMICE_CG_MAKE_A 
               if (STREAMICE_umask(i-1+inodx,j-1+inody,bi,bj)
./pkg/streamice/streamice_cg_functions.F 289 STREAMICE_CG_MAKE_A 
     &             streamice_vmask(i-1+inodx,j-1+inody,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_functions.F 302 STREAMICE_CG_MAKE_A 
                  if (STREAMICE_umask(i-1+jnodx,j-1+jnody,bi,bj)
./pkg/streamice/streamice_cg_functions.F 304 STREAMICE_CG_MAKE_A 
     &             STREAMICE_vmask(i-1+jnodx,j-1+jnody,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_functions.F 331 STREAMICE_CG_MAKE_A 
                   ux = DPhi (i,j,bi,bj,m_j,n,1)
./pkg/streamice/streamice_cg_functions.F 332 STREAMICE_CG_MAKE_A 
                   uy = DPhi (i,j,bi,bj,m_j,n,2)
./pkg/streamice/streamice_cg_functions.F 338 STREAMICE_CG_MAKE_A 
                   exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 339 STREAMICE_CG_MAKE_A 
                   eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F 341 STREAMICE_CG_MAKE_A 
     &              k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 344 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 345 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 346 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,1)*(4*exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F 347 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,2)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 350 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 352 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 356 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 358 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 365 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 366 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 367 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,2)*(4*eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F 368 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,1)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 371 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 373 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 377 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 379 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 386 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 387 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F 388 STREAMICE_CG_MAKE_A 
     &             (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*
./pkg/streamice/streamice_cg_functions.F 389 STREAMICE_CG_MAKE_A 
     &              exx+4*0.5*k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 392 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 394 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 398 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 400 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 407 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 408 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F 409 STREAMICE_CG_MAKE_A 
     &             (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*
./pkg/streamice/streamice_cg_functions.F 410 STREAMICE_CG_MAKE_A 
     &              eyy+4*0.5*k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 413 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 415 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 419 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 421 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 429 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 430 STREAMICE_CG_MAKE_A 
     &              tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F 433 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 435 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 439 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 441 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 448 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 449 STREAMICE_CG_MAKE_A 
     &              tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F 452 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 454 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 458 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 460 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 468 STREAMICE_CG_MAKE_A 
                   vx = DPhi (i,j,bi,bj,m_j,n,1)
./pkg/streamice/streamice_cg_functions.F 469 STREAMICE_CG_MAKE_A 
                   vy = DPhi (i,j,bi,bj,m_j,n,2)
./pkg/streamice/streamice_cg_functions.F 475 STREAMICE_CG_MAKE_A 
                   exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 476 STREAMICE_CG_MAKE_A 
                   eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F 478 STREAMICE_CG_MAKE_A 
     &              k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 481 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 482 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 483 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,1)*(4*exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F 484 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,2)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 487 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 489 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 493 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 495 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 501 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 502 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 503 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,2)*(4*eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F 504 STREAMICE_CG_MAKE_A 
     &              DPhi(i,j,bi,bj,m_i,n,1)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 507 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 509 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 513 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 515 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 521 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 522 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F 523 STREAMICE_CG_MAKE_A 
     &             (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*
./pkg/streamice/streamice_cg_functions.F 524 STREAMICE_CG_MAKE_A 
     &              exx+4*0.5*k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 527 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 529 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 533 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 535 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 541 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 542 STREAMICE_CG_MAKE_A 
     &              visc_streamice(i,j,bi,bj) * phival(inodx,inody) *
./pkg/streamice/streamice_cg_functions.F 543 STREAMICE_CG_MAKE_A 
     &             (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*
./pkg/streamice/streamice_cg_functions.F 544 STREAMICE_CG_MAKE_A 
     &              eyy+4*0.5*k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 547 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 549 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 553 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 555 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 561 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 562 STREAMICE_CG_MAKE_A 
     &              tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F 565 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 567 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 571 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 573 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 579 STREAMICE_CG_MAKE_A 
     &              grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 580 STREAMICE_CG_MAKE_A 
     &              tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F 583 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)=
./pkg/streamice/streamice_cg_functions.F 585 STREAMICE_CG_MAKE_A 
     &                 (i-1+inodx,j-1+inody,bi,bj,col_x,col_y)+tmpval
./pkg/streamice/streamice_cg_functions.F 589 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)=
./pkg/streamice/streamice_cg_functions.F 591 STREAMICE_CG_MAKE_A 
     &               (i-1+jnodx,j-1+jnody,bi,bj,colx_rev,coly_rev)+
./pkg/streamice/streamice_cg_functions.F 65 STREAMICE_CG_ACTION 
      INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n,Gi,Gj
./pkg/streamice/streamice_cg_functions.F 670 STREAMICE_CG_ADIAG 
      INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n
./pkg/streamice/streamice_cg_functions.F 682 STREAMICE_CG_ADIAG 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_functions.F 684 STREAMICE_CG_ADIAG 
          IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F 695 STREAMICE_CG_ADIAG 
             if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_cg_functions.F 696 STREAMICE_CG_ADIAG 
     &           STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_functions.F 706 STREAMICE_CG_ADIAG 
              ux = DPhi (i,j,bi,bj,m,n,1)
./pkg/streamice/streamice_cg_functions.F 707 STREAMICE_CG_ADIAG 
              uy = DPhi (i,j,bi,bj,m,n,2)
./pkg/streamice/streamice_cg_functions.F 713 STREAMICE_CG_ADIAG 
              exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 714 STREAMICE_CG_ADIAG 
              eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F 716 STREAMICE_CG_ADIAG 
     &         k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 718 STREAMICE_CG_ADIAG 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 719 STREAMICE_CG_ADIAG 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 720 STREAMICE_CG_ADIAG 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 721 STREAMICE_CG_ADIAG 
     &         visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 722 STREAMICE_CG_ADIAG 
     &          DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F 723 STREAMICE_CG_ADIAG 
     &          DPhi(i,j,bi,bj,m,n,2)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 725 STREAMICE_CG_ADIAG 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 726 STREAMICE_CG_ADIAG 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 727 STREAMICE_CG_ADIAG 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 728 STREAMICE_CG_ADIAG 
     &         visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F 729 STREAMICE_CG_ADIAG 
     &         (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+
./pkg/streamice/streamice_cg_functions.F 730 STREAMICE_CG_ADIAG 
     &          4*0.5*k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 733 STREAMICE_CG_ADIAG 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 734 STREAMICE_CG_ADIAG 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 735 STREAMICE_CG_ADIAG 
     &         phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 736 STREAMICE_CG_ADIAG 
     &         tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F 739 STREAMICE_CG_ADIAG 
              vx = DPhi (i,j,bi,bj,m,n,1)
./pkg/streamice/streamice_cg_functions.F 740 STREAMICE_CG_ADIAG 
              vy = DPhi (i,j,bi,bj,m,n,2)
./pkg/streamice/streamice_cg_functions.F 746 STREAMICE_CG_ADIAG 
              exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 747 STREAMICE_CG_ADIAG 
              eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F 749 STREAMICE_CG_ADIAG 
     &         k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 751 STREAMICE_CG_ADIAG 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 752 STREAMICE_CG_ADIAG 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 753 STREAMICE_CG_ADIAG 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 754 STREAMICE_CG_ADIAG 
     &         visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 755 STREAMICE_CG_ADIAG 
     &          DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F 756 STREAMICE_CG_ADIAG 
     &          DPhi(i,j,bi,bj,m,n,1)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 757 STREAMICE_CG_ADIAG 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 758 STREAMICE_CG_ADIAG 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 759 STREAMICE_CG_ADIAG 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 760 STREAMICE_CG_ADIAG 
     &         visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F 761 STREAMICE_CG_ADIAG 
     &         (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+
./pkg/streamice/streamice_cg_functions.F 762 STREAMICE_CG_ADIAG 
     &          4*0.5*k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 765 STREAMICE_CG_ADIAG 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 766 STREAMICE_CG_ADIAG 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 767 STREAMICE_CG_ADIAG 
     &         phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 768 STREAMICE_CG_ADIAG 
     &         tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F 77 STREAMICE_CG_ACTION 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_functions.F 81 STREAMICE_CG_ACTION 
         Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_cg_functions.F 838 STREAMICE_CG_BOUND_VALS 
      INTEGER iq, jq, inode, jnode, i, j, bi, bj, ilq, jlq, m, n
./pkg/streamice/streamice_cg_functions.F 83 STREAMICE_CG_ACTION 
          IF (STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_cg_functions.F 850 STREAMICE_CG_BOUND_VALS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_functions.F 852 STREAMICE_CG_BOUND_VALS 
          IF ((STREAMICE_hmask (i,j,bi,bj) .eq. 1.0) .AND.
./pkg/streamice/streamice_cg_functions.F 853 STREAMICE_CG_BOUND_VALS 
     &     ((STREAMICE_umask(i,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F 854 STREAMICE_CG_BOUND_VALS 
     &      (STREAMICE_umask(i,j+1,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F 855 STREAMICE_CG_BOUND_VALS 
     &      (STREAMICE_umask(i+1,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F 856 STREAMICE_CG_BOUND_VALS 
     &      (STREAMICE_umask(i+1,j+1,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F 857 STREAMICE_CG_BOUND_VALS 
     &      (STREAMICE_vmask(i,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F 858 STREAMICE_CG_BOUND_VALS 
     &      (STREAMICE_vmask(i,j+1,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F 859 STREAMICE_CG_BOUND_VALS 
     &      (STREAMICE_vmask(i+1,j,bi,bj).eq.3.0) .OR.
./pkg/streamice/streamice_cg_functions.F 860 STREAMICE_CG_BOUND_VALS 
     &      (STREAMICE_vmask(i+1,j+1,bi,bj).eq.3.0))) THEN
./pkg/streamice/streamice_cg_functions.F 867 STREAMICE_CG_BOUND_VALS 
            uq = u_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F 868 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F 869 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+
./pkg/streamice/streamice_cg_functions.F 870 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq)
./pkg/streamice/streamice_cg_functions.F 871 STREAMICE_CG_BOUND_VALS 
            vq = v_bdry_values_SI(i,j,bi,bj)*Xquad(3-iq)*Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F 872 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i+1,j,bi,bj)*Xquad(iq)*Xquad(3-jq)+
./pkg/streamice/streamice_cg_functions.F 873 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i,j+1,bi,bj)*Xquad(3-iq)*Xquad(jq)+
./pkg/streamice/streamice_cg_functions.F 874 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i+1,j+1,bi,bj)*Xquad(iq)*Xquad(jq)
./pkg/streamice/streamice_cg_functions.F 875 STREAMICE_CG_BOUND_VALS 
            ux = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F 876 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_functions.F 877 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F 878 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F 879 STREAMICE_CG_BOUND_VALS 
            uy = u_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F 880 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F 881 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F 882 STREAMICE_CG_BOUND_VALS 
     &       u_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F 883 STREAMICE_CG_BOUND_VALS 
            vx = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F 884 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_functions.F 885 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,1) +
./pkg/streamice/streamice_cg_functions.F 886 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,1)
./pkg/streamice/streamice_cg_functions.F 887 STREAMICE_CG_BOUND_VALS 
            vy = v_bdry_values_SI(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,2) +
./pkg/streamice/streamice_cg_functions.F 888 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,2) +
./pkg/streamice/streamice_cg_functions.F 889 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i,j+1,bi,bj) * DPhi(i,j,bi,bj,3,n,2) +
./pkg/streamice/streamice_cg_functions.F 890 STREAMICE_CG_BOUND_VALS 
     &       v_bdry_values_SI(i+1,j+1,bi,bj) * DPhi(i,j,bi,bj,4,n,2)
./pkg/streamice/streamice_cg_functions.F 891 STREAMICE_CG_BOUND_VALS 
            exx = ux + k1AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 892 STREAMICE_CG_BOUND_VALS 
            eyy = vy + k2AtC_str(i,j,bi,bj)*uq
./pkg/streamice/streamice_cg_functions.F 894 STREAMICE_CG_BOUND_VALS 
     &       k1AtC_str(i,j,bi,bj)*uq + k2AtC_str(i,j,bi,bj)*vq
./pkg/streamice/streamice_cg_functions.F 907 STREAMICE_CG_BOUND_VALS 
             if (STREAMICE_umask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F 90 STREAMICE_CG_ACTION 
            uq = u(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F 910 STREAMICE_CG_BOUND_VALS 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 911 STREAMICE_CG_BOUND_VALS 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 912 STREAMICE_CG_BOUND_VALS 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 913 STREAMICE_CG_BOUND_VALS 
     &         visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 914 STREAMICE_CG_BOUND_VALS 
     &          DPhi(i,j,bi,bj,m,n,1)*(4*exx+2*eyy) +
./pkg/streamice/streamice_cg_functions.F 915 STREAMICE_CG_BOUND_VALS 
     &          DPhi(i,j,bi,bj,m,n,2)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 918 STREAMICE_CG_BOUND_VALS 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 919 STREAMICE_CG_BOUND_VALS 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 91 STREAMICE_CG_ACTION 
     &       u(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F 920 STREAMICE_CG_BOUND_VALS 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 921 STREAMICE_CG_BOUND_VALS 
     &         visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F 922 STREAMICE_CG_BOUND_VALS 
     &         (4*k2AtC_str(i,j,bi,bj)*eyy+2*k2AtC_str(i,j,bi,bj)*exx+
./pkg/streamice/streamice_cg_functions.F 923 STREAMICE_CG_BOUND_VALS 
     &          4*0.5*k1AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 927 STREAMICE_CG_BOUND_VALS 
              uret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 928 STREAMICE_CG_BOUND_VALS 
     &         uret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 929 STREAMICE_CG_BOUND_VALS 
     &         phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 92 STREAMICE_CG_ACTION 
     &       u(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) +
./pkg/streamice/streamice_cg_functions.F 930 STREAMICE_CG_BOUND_VALS 
     &         tau_beta_eff_streamice (i,j,bi,bj) * uq
./pkg/streamice/streamice_cg_functions.F 935 STREAMICE_CG_BOUND_VALS 
             if (STREAMICE_vmask(i-1+inode,j-1+jnode,bi,bj).eq.1.0) then
./pkg/streamice/streamice_cg_functions.F 936 STREAMICE_CG_BOUND_VALS 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 937 STREAMICE_CG_BOUND_VALS 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 938 STREAMICE_CG_BOUND_VALS 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 939 STREAMICE_CG_BOUND_VALS 
     &         visc_streamice(i,j,bi,bj) * (
./pkg/streamice/streamice_cg_functions.F 93 STREAMICE_CG_ACTION 
     &       u(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq)
./pkg/streamice/streamice_cg_functions.F 940 STREAMICE_CG_BOUND_VALS 
     &          DPhi(i,j,bi,bj,m,n,2)*(4*eyy+2*exx) +
./pkg/streamice/streamice_cg_functions.F 941 STREAMICE_CG_BOUND_VALS 
     &          DPhi(i,j,bi,bj,m,n,1)*(2*exy))
./pkg/streamice/streamice_cg_functions.F 942 STREAMICE_CG_BOUND_VALS 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 943 STREAMICE_CG_BOUND_VALS 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 944 STREAMICE_CG_BOUND_VALS 
     &         grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 945 STREAMICE_CG_BOUND_VALS 
     &         visc_streamice(i,j,bi,bj) * phival(inode,jnode) *
./pkg/streamice/streamice_cg_functions.F 946 STREAMICE_CG_BOUND_VALS 
     &         (4*k1AtC_str(i,j,bi,bj)*exx+2*k1AtC_str(i,j,bi,bj)*eyy+
./pkg/streamice/streamice_cg_functions.F 947 STREAMICE_CG_BOUND_VALS 
     &          4*0.5*k2AtC_str(i,j,bi,bj)*exy)
./pkg/streamice/streamice_cg_functions.F 948 STREAMICE_CG_BOUND_VALS 
              vret(i-1+inode,j-1+jnode,bi,bj) =
./pkg/streamice/streamice_cg_functions.F 949 STREAMICE_CG_BOUND_VALS 
     &         vret(i-1+inode,j-1+jnode,bi,bj) + .25 *
./pkg/streamice/streamice_cg_functions.F 94 STREAMICE_CG_ACTION 
            vq = v(i,j,bi,bj) * Xquad(3-iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F 950 STREAMICE_CG_BOUND_VALS 
     &         phival(inode,jnode) * grid_jacq_streamice(i,j,bi,bj,n) *
./pkg/streamice/streamice_cg_functions.F 951 STREAMICE_CG_BOUND_VALS 
     &         tau_beta_eff_streamice (i,j,bi,bj) * vq
./pkg/streamice/streamice_cg_functions.F 95 STREAMICE_CG_ACTION 
     &       v(i+1,j,bi,bj) * Xquad(iq) * Xquad(3-jq) +
./pkg/streamice/streamice_cg_functions.F 96 STREAMICE_CG_ACTION 
     &       v(i,j+1,bi,bj) * Xquad(3-iq) * Xquad(jq) +
./pkg/streamice/streamice_cg_functions.F 97 STREAMICE_CG_ACTION 
     &       v(i+1,j+1,bi,bj) * Xquad(iq) * Xquad(jq)
./pkg/streamice/streamice_cg_functions.F 98 STREAMICE_CG_ACTION 
            ux = u(i,j,bi,bj) * DPhi(i,j,bi,bj,1,n,1) +
./pkg/streamice/streamice_cg_functions.F 99 STREAMICE_CG_ACTION 
     &       u(i+1,j,bi,bj) * DPhi(i,j,bi,bj,2,n,1) +
./pkg/streamice/streamice_cg_solve.F 125 STREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 129 STREAMICE_CG_SOLVE 
          Zu_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 130 STREAMICE_CG_SOLVE 
          Zv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 131 STREAMICE_CG_SOLVE 
          Ru_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 132 STREAMICE_CG_SOLVE 
          Rv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 133 STREAMICE_CG_SOLVE 
          Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 134 STREAMICE_CG_SOLVE 
          Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 135 STREAMICE_CG_SOLVE 
          Du_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 136 STREAMICE_CG_SOLVE 
          Dv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 148 STREAMICE_CG_SOLVE 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 154 STREAMICE_CG_SOLVE 
              Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F 155 STREAMICE_CG_SOLVE 
     &         A_uu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 156 STREAMICE_CG_SOLVE 
     &         cg_Uin(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 157 STREAMICE_CG_SOLVE 
     &         A_uv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 158 STREAMICE_CG_SOLVE 
     &         cg_Vin(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F 161 STREAMICE_CG_SOLVE 
              Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F 162 STREAMICE_CG_SOLVE 
     &         A_vu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 163 STREAMICE_CG_SOLVE 
     &         cg_Uin(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 164 STREAMICE_CG_SOLVE 
     &         A_vv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 165 STREAMICE_CG_SOLVE 
     &         cg_Vin(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F 178 STREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 182 STREAMICE_CG_SOLVE 
          Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F 183 STREAMICE_CG_SOLVE 
     &     Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 184 STREAMICE_CG_SOLVE 
          Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F 185 STREAMICE_CG_SOLVE 
     &     Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 188 STREAMICE_CG_SOLVE 
        dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 189 STREAMICE_CG_SOLVE 
        dot_p2_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 193 STREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 197 STREAMICE_CG_SOLVE 
          IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 198 STREAMICE_CG_SOLVE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F 199 STREAMICE_CG_SOLVE 
          IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 200 STREAMICE_CG_SOLVE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F 210 STREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 214 STREAMICE_CG_SOLVE 
     &         bi,bj, dot_p1_tile(bi,bj)
./pkg/streamice/streamice_cg_solve.F 228 STREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 232 STREAMICE_CG_SOLVE 
          IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 233 STREAMICE_CG_SOLVE 
     &      Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 234 STREAMICE_CG_SOLVE 
          IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 235 STREAMICE_CG_SOLVE 
     &      Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 244 STREAMICE_CG_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 248 STREAMICE_CG_SOLVE 
          Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 249 STREAMICE_CG_SOLVE 
          Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 287 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 291 STREAMICE_CG_SOLVE 
           Au_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 292 STREAMICE_CG_SOLVE 
           Av_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 302 STREAMICE_CG_SOLVE 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 308 STREAMICE_CG_SOLVE 
              Au_SI(i,j,bi,bj) = Au_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F 309 STREAMICE_CG_SOLVE 
     &         A_uu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 310 STREAMICE_CG_SOLVE 
     &         Du_SI(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 311 STREAMICE_CG_SOLVE 
     &         A_uv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 312 STREAMICE_CG_SOLVE 
     &         Dv_SI(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F 313 STREAMICE_CG_SOLVE 
              Av_SI(i,j,bi,bj) = Av_SI(i,j,bi,bj) +
./pkg/streamice/streamice_cg_solve.F 314 STREAMICE_CG_SOLVE 
     &         A_vu(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 315 STREAMICE_CG_SOLVE 
     &         Du_SI(i+colx,j+coly,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 316 STREAMICE_CG_SOLVE 
     &         A_vv(i,j,bi,bj,colx,coly)*
./pkg/streamice/streamice_cg_solve.F 317 STREAMICE_CG_SOLVE 
     &         Dv_SI(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve.F 340 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 342 STREAMICE_CG_SOLVE 
         dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 343 STREAMICE_CG_SOLVE 
         dot_p2_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 347 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 351 STREAMICE_CG_SOLVE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F 352 STREAMICE_CG_SOLVE 
           dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 353 STREAMICE_CG_SOLVE 
     &        Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 354 STREAMICE_CG_SOLVE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 355 STREAMICE_CG_SOLVE 
     &        Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 357 STREAMICE_CG_SOLVE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F 358 STREAMICE_CG_SOLVE 
            dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 359 STREAMICE_CG_SOLVE 
     &        Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 360 STREAMICE_CG_SOLVE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 361 STREAMICE_CG_SOLVE 
     &        Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 372 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 377 STREAMICE_CG_SOLVE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F 378 STREAMICE_CG_SOLVE 
            cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 379 STREAMICE_CG_SOLVE 
     &       alpha_k*Du_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 380 STREAMICE_CG_SOLVE 
            Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 381 STREAMICE_CG_SOLVE 
            Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 382 STREAMICE_CG_SOLVE 
            Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F 383 STREAMICE_CG_SOLVE 
     &       alpha_k*Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 384 STREAMICE_CG_SOLVE 
            Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve.F 385 STREAMICE_CG_SOLVE 
     &       DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 388 STREAMICE_CG_SOLVE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F 389 STREAMICE_CG_SOLVE 
            cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 390 STREAMICE_CG_SOLVE 
     &       alpha_k*Dv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 391 STREAMICE_CG_SOLVE 
            Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 392 STREAMICE_CG_SOLVE 
            Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 393 STREAMICE_CG_SOLVE 
            Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve.F 394 STREAMICE_CG_SOLVE 
     &       alpha_k*Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 395 STREAMICE_CG_SOLVE 
            Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve.F 396 STREAMICE_CG_SOLVE 
     &       DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 404 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 406 STREAMICE_CG_SOLVE 
         dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 407 STREAMICE_CG_SOLVE 
         dot_p2_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 411 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 416 STREAMICE_CG_SOLVE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F 417 STREAMICE_CG_SOLVE 
            dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 418 STREAMICE_CG_SOLVE 
     &        Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 419 STREAMICE_CG_SOLVE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 420 STREAMICE_CG_SOLVE 
     &        Ru_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 423 STREAMICE_CG_SOLVE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve.F 424 STREAMICE_CG_SOLVE 
            dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 425 STREAMICE_CG_SOLVE 
     &        Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 426 STREAMICE_CG_SOLVE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve.F 427 STREAMICE_CG_SOLVE 
     &        Rv_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 440 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 444 STREAMICE_CG_SOLVE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 445 STREAMICE_CG_SOLVE 
     &      Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 446 STREAMICE_CG_SOLVE 
     &      Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 447 STREAMICE_CG_SOLVE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 448 STREAMICE_CG_SOLVE 
     &      Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve.F 449 STREAMICE_CG_SOLVE 
     &      Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve.F 455 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 457 STREAMICE_CG_SOLVE 
         dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve.F 461 STREAMICE_CG_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve.F 465 STREAMICE_CG_SOLVE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 466 STREAMICE_CG_SOLVE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F 467 STREAMICE_CG_SOLVE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve.F 468 STREAMICE_CG_SOLVE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve.F 65 STREAMICE_CG_SOLVE 
      INTEGER i, j, bi, bj, cg_halo, conv_flag
./pkg/streamice/streamice_cg_solve_matfree.F 118 STREAMICE_CG_SOLVE_MATFREE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 122 STREAMICE_CG_SOLVE_MATFREE 
          Ru_SI(i,j,bi,bj)=cg_Bu(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F 123 STREAMICE_CG_SOLVE_MATFREE 
     &     Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 124 STREAMICE_CG_SOLVE_MATFREE 
          Rv_SI(i,j,bi,bj)=cg_Bv(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F 125 STREAMICE_CG_SOLVE_MATFREE 
     &     Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 128 STREAMICE_CG_SOLVE_MATFREE 
        dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 129 STREAMICE_CG_SOLVE_MATFREE 
        dot_p2_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 133 STREAMICE_CG_SOLVE_MATFREE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 137 STREAMICE_CG_SOLVE_MATFREE 
          IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 138 STREAMICE_CG_SOLVE_MATFREE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F 139 STREAMICE_CG_SOLVE_MATFREE 
          IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 140 STREAMICE_CG_SOLVE_MATFREE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F 151 STREAMICE_CG_SOLVE_MATFREE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 155 STREAMICE_CG_SOLVE_MATFREE 
          IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 156 STREAMICE_CG_SOLVE_MATFREE 
     &      Zu_SI(i,j,bi,bj)=Ru_SI(i,j,bi,bj) / DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 157 STREAMICE_CG_SOLVE_MATFREE 
          IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 158 STREAMICE_CG_SOLVE_MATFREE 
     &      Zv_SI(i,j,bi,bj)=Rv_SI(i,j,bi,bj) / DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 167 STREAMICE_CG_SOLVE_MATFREE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 171 STREAMICE_CG_SOLVE_MATFREE 
          Du_SI(i,j,bi,bj)=Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 172 STREAMICE_CG_SOLVE_MATFREE 
          Dv_SI(i,j,bi,bj)=Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 210 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 214 STREAMICE_CG_SOLVE_MATFREE 
           Au_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 215 STREAMICE_CG_SOLVE_MATFREE 
           Av_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 263 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 265 STREAMICE_CG_SOLVE_MATFREE 
         dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 266 STREAMICE_CG_SOLVE_MATFREE 
         dot_p2_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 270 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 274 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F 275 STREAMICE_CG_SOLVE_MATFREE 
           dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 276 STREAMICE_CG_SOLVE_MATFREE 
     &        Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 277 STREAMICE_CG_SOLVE_MATFREE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Du_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 278 STREAMICE_CG_SOLVE_MATFREE 
     &        Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 280 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F 281 STREAMICE_CG_SOLVE_MATFREE 
            dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 282 STREAMICE_CG_SOLVE_MATFREE 
     &        Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 283 STREAMICE_CG_SOLVE_MATFREE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Dv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 284 STREAMICE_CG_SOLVE_MATFREE 
     &        Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 295 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 300 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F 301 STREAMICE_CG_SOLVE_MATFREE 
            cg_Uin(i,j,bi,bj)=cg_Uin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F 302 STREAMICE_CG_SOLVE_MATFREE 
     &       alpha_k*Du_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 303 STREAMICE_CG_SOLVE_MATFREE 
            Ru_old_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 304 STREAMICE_CG_SOLVE_MATFREE 
            Zu_old_SI(i,j,bi,bj) = Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 305 STREAMICE_CG_SOLVE_MATFREE 
            Ru_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F 306 STREAMICE_CG_SOLVE_MATFREE 
     &       alpha_k*Au_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 307 STREAMICE_CG_SOLVE_MATFREE 
            Zu_SI(i,j,bi,bj) = Ru_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve_matfree.F 308 STREAMICE_CG_SOLVE_MATFREE 
     &       DIAGu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 311 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F 312 STREAMICE_CG_SOLVE_MATFREE 
            cg_Vin(i,j,bi,bj)=cg_Vin(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F 313 STREAMICE_CG_SOLVE_MATFREE 
     &       alpha_k*Dv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 314 STREAMICE_CG_SOLVE_MATFREE 
            Rv_old_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 315 STREAMICE_CG_SOLVE_MATFREE 
            Zv_old_SI(i,j,bi,bj) = Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 316 STREAMICE_CG_SOLVE_MATFREE 
            Rv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj)-
./pkg/streamice/streamice_cg_solve_matfree.F 317 STREAMICE_CG_SOLVE_MATFREE 
     &       alpha_k*Av_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 318 STREAMICE_CG_SOLVE_MATFREE 
            Zv_SI(i,j,bi,bj) = Rv_SI(i,j,bi,bj) /
./pkg/streamice/streamice_cg_solve_matfree.F 319 STREAMICE_CG_SOLVE_MATFREE 
     &       DIAGv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 327 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 329 STREAMICE_CG_SOLVE_MATFREE 
         dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 330 STREAMICE_CG_SOLVE_MATFREE 
         dot_p2_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 334 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 339 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F 340 STREAMICE_CG_SOLVE_MATFREE 
            dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zu_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 341 STREAMICE_CG_SOLVE_MATFREE 
     &        Ru_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 342 STREAMICE_CG_SOLVE_MATFREE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zu_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 343 STREAMICE_CG_SOLVE_MATFREE 
     &        Ru_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 346 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cg_solve_matfree.F 347 STREAMICE_CG_SOLVE_MATFREE 
            dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Zv_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 348 STREAMICE_CG_SOLVE_MATFREE 
     &        Rv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 349 STREAMICE_CG_SOLVE_MATFREE 
            dot_p2_tile(bi,bj)=dot_p2_tile(bi,bj)+Zv_old_SI(i,j,bi,bj)*
./pkg/streamice/streamice_cg_solve_matfree.F 350 STREAMICE_CG_SOLVE_MATFREE 
     &        Rv_old_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 363 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 367 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 368 STREAMICE_CG_SOLVE_MATFREE 
     &      Du_SI(i,j,bi,bj)=beta_k*Du_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F 369 STREAMICE_CG_SOLVE_MATFREE 
     &      Zu_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 370 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 371 STREAMICE_CG_SOLVE_MATFREE 
     &      Dv_SI(i,j,bi,bj)=beta_k*Dv_SI(i,j,bi,bj)+
./pkg/streamice/streamice_cg_solve_matfree.F 372 STREAMICE_CG_SOLVE_MATFREE 
     &      Zv_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_matfree.F 378 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 380 STREAMICE_CG_SOLVE_MATFREE 
         dot_p1_tile(bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 384 STREAMICE_CG_SOLVE_MATFREE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 388 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 389 STREAMICE_CG_SOLVE_MATFREE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Ru_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F 390 STREAMICE_CG_SOLVE_MATFREE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1.0)
./pkg/streamice/streamice_cg_solve_matfree.F 391 STREAMICE_CG_SOLVE_MATFREE 
     &      dot_p1_tile(bi,bj)=dot_p1_tile(bi,bj)+Rv_SI(i,j,bi,bj)**2
./pkg/streamice/streamice_cg_solve_matfree.F 46 STREAMICE_CG_SOLVE_MATFREE 
      INTEGER i, j, bi, bj, cg_halo, conv_flag
./pkg/streamice/streamice_cg_solve_matfree.F 60 STREAMICE_CG_SOLVE_MATFREE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_matfree.F 64 STREAMICE_CG_SOLVE_MATFREE 
          Zu_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 65 STREAMICE_CG_SOLVE_MATFREE 
          Zv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 66 STREAMICE_CG_SOLVE_MATFREE 
          Ru_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 67 STREAMICE_CG_SOLVE_MATFREE 
          Rv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 68 STREAMICE_CG_SOLVE_MATFREE 
          Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 69 STREAMICE_CG_SOLVE_MATFREE 
          Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 70 STREAMICE_CG_SOLVE_MATFREE 
          Du_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_matfree.F 71 STREAMICE_CG_SOLVE_MATFREE 
          Dv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_solve_petsc.F 149 STREAMICE_CG_SOLVE_PETSC 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_petsc.F 154 STREAMICE_CG_SOLVE_PETSC 
          dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F 159 STREAMICE_CG_SOLVE_PETSC 
           rhs_values(dof_index+1) = cg_Bu(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 160 STREAMICE_CG_SOLVE_PETSC 
           solution_values(dof_index+1) = cg_Uin(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 166 STREAMICE_CG_SOLVE_PETSC 
          dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F 171 STREAMICE_CG_SOLVE_PETSC 
           rhs_values(dof_index+1) = cg_Bv(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 172 STREAMICE_CG_SOLVE_PETSC 
           solution_values(dof_index+1) = cg_Vin(i,j,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 205 STREAMICE_CG_SOLVE_PETSC 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_petsc.F 210 STREAMICE_CG_SOLVE_PETSC 
          dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F 224 STREAMICE_CG_SOLVE_PETSC 
             dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 231 STREAMICE_CG_SOLVE_PETSC 
                mat_values (k,1) = A_uu(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F 235 STREAMICE_CG_SOLVE_PETSC 
             dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 241 STREAMICE_CG_SOLVE_PETSC 
                mat_values (k,1) = A_uv(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F 256 STREAMICE_CG_SOLVE_PETSC 
          dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F 270 STREAMICE_CG_SOLVE_PETSC 
             dof_index_col = streamice_petsc_dofs_u(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 276 STREAMICE_CG_SOLVE_PETSC 
                mat_values (k,1) = A_vu(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F 280 STREAMICE_CG_SOLVE_PETSC 
             dof_index_col = streamice_petsc_dofs_v(i+colx,j+coly,bi,bj)
./pkg/streamice/streamice_cg_solve_petsc.F 286 STREAMICE_CG_SOLVE_PETSC 
                mat_values (k,1) = A_vv(i,j,bi,bj,colx,coly)
./pkg/streamice/streamice_cg_solve_petsc.F 353 STREAMICE_CG_SOLVE_PETSC 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_solve_petsc.F 358 STREAMICE_CG_SOLVE_PETSC 
          dof_index = INT(streamice_petsc_dofs_u(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F 361 STREAMICE_CG_SOLVE_PETSC 
           cg_Uin(i,j,bi,bj) = solution_values(dof_index+1)
./pkg/streamice/streamice_cg_solve_petsc.F 364 STREAMICE_CG_SOLVE_PETSC 
          dof_index = INT(streamice_petsc_dofs_v(i,j,bi,bj))
./pkg/streamice/streamice_cg_solve_petsc.F 367 STREAMICE_CG_SOLVE_PETSC 
           cg_Vin(i,j,bi,bj) = solution_values(dof_index+1)
./pkg/streamice/streamice_cg_solve_petsc.F 65 STREAMICE_CG_SOLVE_PETSC 
      INTEGER i, j, bi, bj, cg_halo, conv_flag
./pkg/streamice/streamice_cg_wrapper.F 112 STREAMICE_CG_WRAPPER 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_wrapper.F 116 STREAMICE_CG_WRAPPER 
          IF (STREAMICE_umask(i,j,bi,bj).ne.1.0)
./pkg/streamice/streamice_cg_wrapper.F 117 STREAMICE_CG_WRAPPER 
     &     cg_Uin(i,j,bi,bj)=0.0
./pkg/streamice/streamice_cg_wrapper.F 118 STREAMICE_CG_WRAPPER 
          IF (STREAMICE_vmask(i,j,bi,bj).ne.1.0)
./pkg/streamice/streamice_cg_wrapper.F 119 STREAMICE_CG_WRAPPER 
     &     cg_Vin(i,j,bi,bj)=0.0
./pkg/streamice/streamice_cg_wrapper.F 277 STREAMICE_CG_WRAPPER 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_wrapper.F 281 STREAMICE_CG_WRAPPER 
          IF (STREAMICE_umask(i,j,bi,bj).eq.3.0)
./pkg/streamice/streamice_cg_wrapper.F 282 STREAMICE_CG_WRAPPER 
     &     cg_Uin(i,j,bi,bj)=u_bdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F 283 STREAMICE_CG_WRAPPER 
          IF (STREAMICE_vmask(i,j,bi,bj).eq.3.0)
./pkg/streamice/streamice_cg_wrapper.F 284 STREAMICE_CG_WRAPPER 
     &     cg_Vin(i,j,bi,bj)=v_bdry_values_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F 52 STREAMICE_CG_WRAPPER 
      INTEGER i, j, bi, bj
./pkg/streamice/streamice_cg_wrapper.F 56 STREAMICE_CG_WRAPPER 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_wrapper.F 61 STREAMICE_CG_WRAPPER 
          DIAGu_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F 62 STREAMICE_CG_WRAPPER 
          DIAGv_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F 63 STREAMICE_CG_WRAPPER 
          ubd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F 64 STREAMICE_CG_WRAPPER 
          vbd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_cg_wrapper.F 85 STREAMICE_CG_WRAPPER 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_cg_wrapper.F 89 STREAMICE_CG_WRAPPER 
          RHSu_SI (i,j,bi,bj) = cg_tauU (i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F 90 STREAMICE_CG_WRAPPER 
     &     - ubd_SI(i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F 91 STREAMICE_CG_WRAPPER 
          RHSv_SI (i,j,bi,bj) = cg_tauV (i,j,bi,bj)
./pkg/streamice/streamice_cg_wrapper.F 92 STREAMICE_CG_WRAPPER 
     &     - vbd_SI(i,j,bi,bj)
./pkg/streamice/streamice_cost_surf_accum.F 46 STREAMICE_COST_SURF_ACCUM 
      integer i, j, k, bi, bj
./pkg/streamice/streamice_cost_surf_accum.F 80 STREAMICE_COST_SURF_ACCUM 
      do bj = jtlo,jthi
./pkg/streamice/streamice_cost_surf_accum.F 86 STREAMICE_COST_SURF_ACCUM 
             if (streamice_cost_mask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_cost_surf_accum.F 87 STREAMICE_COST_SURF_ACCUM 
              cost_func1_streamice (bi,bj) =
./pkg/streamice/streamice_cost_surf_accum.F 88 STREAMICE_COST_SURF_ACCUM 
     &        cost_func1_streamice (bi,bj) +
./pkg/streamice/streamice_cost_surf_accum.F 89 STREAMICE_COST_SURF_ACCUM 
     &        streamice_wgt_surf * (S_obs(i,j,bi,bj)-
./pkg/streamice/streamice_cost_surf_accum.F 90 STREAMICE_COST_SURF_ACCUM 
     &               surf_el_streamice(i,j,bi,bj))**2 / Nx / Ny +
./pkg/streamice/streamice_cost_surf_accum.F 91 STREAMICE_COST_SURF_ACCUM 
     &        streamice_wgt_drift * (H_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_cost_surf_accum.F 92 STREAMICE_COST_SURF_ACCUM 
     &               H_streamice_prev(i,j,bi,bj))**2 / Nx / Ny
./pkg/streamice/streamice_driving_stress.F 101 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 102 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 104 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i-1,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 106 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low_si(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 108 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 113 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 114 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 117 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i-1,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 121 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 123 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F 125 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 126 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 128 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 130 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 132 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 137 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 138 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 141 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 148 STREAMICE_DRIVING_STRESS 
           IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F 149 STREAMICE_DRIVING_STRESS 
     &      streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 154 STREAMICE_DRIVING_STRESS 
            taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 155 STREAMICE_DRIVING_STRESS 
     &       0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 157 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i,j-1,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 158 STREAMICE_DRIVING_STRESS 
     &        H_streamice(i-1,j-1,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F 159 STREAMICE_DRIVING_STRESS 
     &       (surf_el_streamice(i,j-1,bi,bj)-
./pkg/streamice/streamice_driving_stress.F 160 STREAMICE_DRIVING_STRESS 
     &              surf_el_streamice(i-1,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F 162 STREAMICE_DRIVING_STRESS 
            taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 164 STREAMICE_DRIVING_STRESS 
     &       streamice_bg_surf_slope_x * .25 * rA(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 165 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i-1,j-1,bi,bj) + H_streamice(i,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F 167 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 169 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F 171 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 172 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 174 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i-1,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 176 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg*R_low_si(i-1,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 178 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i-1,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 183 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 184 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 187 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i-1,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 191 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 193 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F 195 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 196 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 198 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 200 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low_si(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 202 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 207 STREAMICE_DRIVING_STRESS 
             taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 208 STREAMICE_DRIVING_STRESS 
     &        0.25 * dyg(i,j-1,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 211 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 219 STREAMICE_DRIVING_STRESS 
          IF (streamice_vmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 221 STREAMICE_DRIVING_STRESS 
           IF (streamice_hmask(i,j-1,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F 222 STREAMICE_DRIVING_STRESS 
     &      streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 227 STREAMICE_DRIVING_STRESS 
            taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 228 STREAMICE_DRIVING_STRESS 
     &       0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 230 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 231 STREAMICE_DRIVING_STRESS 
     &        H_streamice(i,j-1,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F 232 STREAMICE_DRIVING_STRESS 
     &       (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress.F 233 STREAMICE_DRIVING_STRESS 
     &              surf_el_streamice(i,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F 235 STREAMICE_DRIVING_STRESS 
            taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 237 STREAMICE_DRIVING_STRESS 
     &       streamice_bg_surf_slope_y * .25 * rA(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 238 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i,j-1,bi,bj) + H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F 240 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 242 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F 244 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 245 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 247 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 249 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low_si(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 251 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 256 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 257 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 260 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 264 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 266 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F 268 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 269 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 271 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 273 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 275 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 280 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 281 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 284 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 291 STREAMICE_DRIVING_STRESS 
           IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F 292 STREAMICE_DRIVING_STRESS 
     &      streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 297 STREAMICE_DRIVING_STRESS 
            taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 298 STREAMICE_DRIVING_STRESS 
     &       0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 300 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i-1,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 301 STREAMICE_DRIVING_STRESS 
     &        H_streamice(i-1,j-1,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F 302 STREAMICE_DRIVING_STRESS 
     &       (surf_el_streamice(i-1,j,bi,bj)-
./pkg/streamice/streamice_driving_stress.F 303 STREAMICE_DRIVING_STRESS 
     &              surf_el_streamice(i-1,j-1,bi,bj))
./pkg/streamice/streamice_driving_stress.F 305 STREAMICE_DRIVING_STRESS 
            taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 307 STREAMICE_DRIVING_STRESS 
     &       streamice_bg_surf_slope_y * .25 * rA(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 308 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i-1,j-1,bi,bj) + H_streamice(i-1,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F 311 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i-1,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 313 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i-1,j-1,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F 315 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 316 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 318 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i-1,j-1,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 320 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg*R_low_si(i-1,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 322 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i-1,j-1,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 327 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress.F 328 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 331 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i-1,j-1,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 335 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 337 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress.F 339 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 340 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 342 STREAMICE_DRIVING_STRESS 
     &        (streamice_density * H_streamice(i-1,j,bi,bj)**2 -
./pkg/streamice/streamice_driving_stress.F 344 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low_si(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 346 STREAMICE_DRIVING_STRESS 
     &         streamice_density_ocean_avg * R_low(i-1,j,bi,bj)**2)
./pkg/streamice/streamice_driving_stress.F 351 STREAMICE_DRIVING_STRESS 
             taudy_si(i,j,bi,bj) = taudy_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 352 STREAMICE_DRIVING_STRESS 
     &        0.25 * dxG(i-1,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 355 STREAMICE_DRIVING_STRESS 
     &         H_streamice(i-1,j,bi,bj)**2
./pkg/streamice/streamice_driving_stress.F 38 STREAMICE_DRIVING_STRESS 
      INTEGER i, j, bi, bj, k, l,
./pkg/streamice/streamice_driving_stress.F 51 STREAMICE_DRIVING_STRESS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_driving_stress.F 55 STREAMICE_DRIVING_STRESS 
          taudx_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress.F 56 STREAMICE_DRIVING_STRESS 
          taudy_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress.F 62 STREAMICE_DRIVING_STRESS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_driving_stress.F 74 STREAMICE_DRIVING_STRESS 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_driving_stress.F 76 STREAMICE_DRIVING_STRESS 
          IF (streamice_umask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 78 STREAMICE_DRIVING_STRESS 
           IF (streamice_hmask(i-1,j,bi,bj).eq.1.0.AND.
./pkg/streamice/streamice_driving_stress.F 79 STREAMICE_DRIVING_STRESS 
     &      streamice_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 84 STREAMICE_DRIVING_STRESS 
            taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 85 STREAMICE_DRIVING_STRESS 
     &       0.25 * dyG(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 87 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i,j,bi,bj)+
./pkg/streamice/streamice_driving_stress.F 88 STREAMICE_DRIVING_STRESS 
     &        H_streamice(i-1,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress.F 89 STREAMICE_DRIVING_STRESS 
     &       (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress.F 90 STREAMICE_DRIVING_STRESS 
     &              surf_el_streamice(i-1,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F 92 STREAMICE_DRIVING_STRESS 
            taudx_si(i,j,bi,bj) = taudx_si(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress.F 94 STREAMICE_DRIVING_STRESS 
     &       streamice_bg_surf_slope_x * .25 * rA(i,j,bi,bj) *
./pkg/streamice/streamice_driving_stress.F 95 STREAMICE_DRIVING_STRESS 
     &       (H_streamice(i-1,j,bi,bj) + H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_driving_stress.F 97 STREAMICE_DRIVING_STRESS 
           ELSE IF (streamice_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress.F 99 STREAMICE_DRIVING_STRESS 
            IF (float_frac_streamice(i-1,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 100 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 103 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 112 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 116 STREAMICE_DRIVING_STRESS_PPM 
             sx = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 117 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 127 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 128 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 131 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 140 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0 .and.
./pkg/streamice/streamice_driving_stress_ppm.F 141 STREAMICE_DRIVING_STRESS_PPM 
     &          STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 145 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 146 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 148 STREAMICE_DRIVING_STRESS_PPM 
     &          (-2.*surf_el_streamice(i-1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 149 STREAMICE_DRIVING_STRESS_PPM 
     &           surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 150 STREAMICE_DRIVING_STRESS_PPM 
     &           surf_el_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 151 STREAMICE_DRIVING_STRESS_PPM 
     &           3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F 152 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 158 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 159 STREAMICE_DRIVING_STRESS_PPM 
               taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 161 STREAMICE_DRIVING_STRESS_PPM 
     &          (-surf_el_streamice(i-1,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 162 STREAMICE_DRIVING_STRESS_PPM 
     &           surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 163 STREAMICE_DRIVING_STRESS_PPM 
     &           2*surf_el_streamice(i+1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 164 STREAMICE_DRIVING_STRESS_PPM 
     &           3.*streamice_bg_surf_slope_x * dxF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F 165 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * .5 * dyF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 172 STREAMICE_DRIVING_STRESS_PPM 
             IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 174 STREAMICE_DRIVING_STRESS_PPM 
              sx = (surf_el_streamice(i+1,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 175 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 177 STREAMICE_DRIVING_STRESS_PPM 
             ELSEIF (STREAMICE_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 179 STREAMICE_DRIVING_STRESS_PPM 
              sx = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 180 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i-1,j,bi,bj))/dxC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 190 STREAMICE_DRIVING_STRESS_PPM 
               IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 191 STREAMICE_DRIVING_STRESS_PPM 
                taudx_SI(i+k,j+l,bi,bj) = taudx_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 194 STREAMICE_DRIVING_STRESS_PPM 
     &           H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 209 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 213 STREAMICE_DRIVING_STRESS_PPM 
             sy = (surf_el_streamice(i,j+1,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 214 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i,j,bi,bj))/dyC(i,j+1,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 224 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 225 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 228 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 237 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 241 STREAMICE_DRIVING_STRESS_PPM 
             sy = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 242 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i,j-1,bi,bj))/dyC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 253 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 254 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 257 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 266 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0 .and.
./pkg/streamice/streamice_driving_stress_ppm.F 267 STREAMICE_DRIVING_STRESS_PPM 
     &          STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 271 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 272 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 274 STREAMICE_DRIVING_STRESS_PPM 
     &          (-2.*surf_el_streamice(i,j-1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 275 STREAMICE_DRIVING_STRESS_PPM 
     &           surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 276 STREAMICE_DRIVING_STRESS_PPM 
     &           surf_el_streamice(i,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 277 STREAMICE_DRIVING_STRESS_PPM 
     &           3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F 278 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 284 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 285 STREAMICE_DRIVING_STRESS_PPM 
               taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 287 STREAMICE_DRIVING_STRESS_PPM 
     &          (-surf_el_streamice(i,j-1,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 288 STREAMICE_DRIVING_STRESS_PPM 
     &           surf_el_streamice(i,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 289 STREAMICE_DRIVING_STRESS_PPM 
     &           2*surf_el_streamice(i,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 290 STREAMICE_DRIVING_STRESS_PPM 
     &           3.*streamice_bg_surf_slope_y * dyF(i,j,bi,bj)) *
./pkg/streamice/streamice_driving_stress_ppm.F 291 STREAMICE_DRIVING_STRESS_PPM 
     &          H_streamice(i,j,bi,bj) * .5 * dxF(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 298 STREAMICE_DRIVING_STRESS_PPM 
             IF (STREAMICE_hmask(i,j+1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 300 STREAMICE_DRIVING_STRESS_PPM 
              sy = (surf_el_streamice(i,j+1,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 301 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i,j,bi,bj))/dxC(i,j+1,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 303 STREAMICE_DRIVING_STRESS_PPM 
             ELSEIF (STREAMICE_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 305 STREAMICE_DRIVING_STRESS_PPM 
              sy = (surf_el_streamice(i,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 306 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i,j-1,bi,bj))/dxC(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 316 STREAMICE_DRIVING_STRESS_PPM 
               IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 317 STREAMICE_DRIVING_STRESS_PPM 
                taudy_SI(i+k,j+l,bi,bj) = taudy_SI(i+k,j+l,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 320 STREAMICE_DRIVING_STRESS_PPM 
     &           H_streamice(i,j,bi,bj) * rA(i,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 345 STREAMICE_DRIVING_STRESS_PPM 
           IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) then
./pkg/streamice/streamice_driving_stress_ppm.F 348 STREAMICE_DRIVING_STRESS_PPM 
     &       (streamice_density * H_streamice (i,j,bi,bj) ** 2 -
./pkg/streamice/streamice_driving_stress_ppm.F 349 STREAMICE_DRIVING_STRESS_PPM 
     &        streamice_density_ocean_avg * R_low_si(i,j,bi,bj) ** 2)
./pkg/streamice/streamice_driving_stress_ppm.F 352 STREAMICE_DRIVING_STRESS_PPM 
     &       (streamice_density * H_streamice (i,j,bi,bj) ** 2 -
./pkg/streamice/streamice_driving_stress_ppm.F 353 STREAMICE_DRIVING_STRESS_PPM 
     &        streamice_density_ocean_avg * R_low(i,j,bi,bj) ** 2)
./pkg/streamice/streamice_driving_stress_ppm.F 358 STREAMICE_DRIVING_STRESS_PPM 
     &        streamice_density * H_streamice(i,j,bi,bj) ** 2
./pkg/streamice/streamice_driving_stress_ppm.F 361 STREAMICE_DRIVING_STRESS_PPM 
           IF ((STREAMICE_ufacemask(i,j,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F 362 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 363 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2) ) THEN ! left face of the cell is at a stress boundary
./pkg/streamice/streamice_driving_stress_ppm.F 370 STREAMICE_DRIVING_STRESS_PPM 
             taudx_SI(i,j,bi,bj) = taudx_SI(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 371 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F 372 STREAMICE_DRIVING_STRESS_PPM 
             taudx_SI(i,j+1,bi,bj) = taudx_SI(i,j+1,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 373 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dyG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F 376 STREAMICE_DRIVING_STRESS_PPM 
           IF ((STREAMICE_ufacemask(i+1,j,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F 377 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 378 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 380 STREAMICE_DRIVING_STRESS_PPM 
             taudx_SI(i+1,j,bi,bj) = taudx_SI(i+1,j,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 381 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress)  ! note negative sign is due to direction of normal vector
./pkg/streamice/streamice_driving_stress_ppm.F 382 STREAMICE_DRIVING_STRESS_PPM 
             taudx_SI(i+1,j+1,bi,bj) = taudx_SI(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 383 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dyG(i+1,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F 386 STREAMICE_DRIVING_STRESS_PPM 
           IF ((STREAMICE_vfacemask(i,j,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F 387 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 388 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 38 STREAMICE_DRIVING_STRESS_PPM 
      INTEGER i, j, bi, bj, k, l,
./pkg/streamice/streamice_driving_stress_ppm.F 390 STREAMICE_DRIVING_STRESS_PPM 
             taudy_SI(i,j,bi,bj) = taudy_SI(i,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 391 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F 392 STREAMICE_DRIVING_STRESS_PPM 
             taudy_SI(i+1,j,bi,bj) = taudy_SI(i+1,j,bi,bj) -
./pkg/streamice/streamice_driving_stress_ppm.F 393 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dxG(i,j,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F 396 STREAMICE_DRIVING_STRESS_PPM 
           IF ((STREAMICE_vfacemask(i,j+1,bi,bj) .eq. 2)
./pkg/streamice/streamice_driving_stress_ppm.F 397 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 0)
./pkg/streamice/streamice_driving_stress_ppm.F 398 STREAMICE_DRIVING_STRESS_PPM 
     &      .OR. (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2) ) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 400 STREAMICE_DRIVING_STRESS_PPM 
             taudy_SI(i,j+1,bi,bj) = taudy_SI(i,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 401 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F 402 STREAMICE_DRIVING_STRESS_PPM 
             taudy_SI(i+1,j+1,bi,bj) = taudy_SI(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_driving_stress_ppm.F 403 STREAMICE_DRIVING_STRESS_PPM 
     &        .5 * dxG(i,j+1,bi,bj)*(neu_val+streamice_addl_backstress)
./pkg/streamice/streamice_driving_stress_ppm.F 51 STREAMICE_DRIVING_STRESS_PPM 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_driving_stress_ppm.F 55 STREAMICE_DRIVING_STRESS_PPM 
          taudx_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress_ppm.F 56 STREAMICE_DRIVING_STRESS_PPM 
          taudy_SI(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_driving_stress_ppm.F 62 STREAMICE_DRIVING_STRESS_PPM 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_driving_stress_ppm.F 74 STREAMICE_DRIVING_STRESS_PPM 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_driving_stress_ppm.F 76 STREAMICE_DRIVING_STRESS_PPM 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 84 STREAMICE_DRIVING_STRESS_PPM 
            IF (STREAMICE_hmask(i+1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_driving_stress_ppm.F 88 STREAMICE_DRIVING_STRESS_PPM 
             sx = (surf_el_streamice(i+1,j,bi,bj)-
./pkg/streamice/streamice_driving_stress_ppm.F 89 STREAMICE_DRIVING_STRESS_PPM 
     &             surf_el_streamice(i,j,bi,bj))/dxC(i+1,j,bi,bj)
./pkg/streamice/streamice_driving_stress_ppm.F 99 STREAMICE_DRIVING_STRESS_PPM 
              IF (STREAMICE_umask(i+k,j+l,bi,bj).eq.1.0) THEN
./model/src/ini_forcing.F 101 INI_FORCING 
           addMass(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 110 INI_FORCING 
           frictionHeating(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 118 INI_FORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_forcing.F 123 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./model/src/ini_forcing.F 124 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./model/src/ini_forcing.F 126 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 129 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./model/src/ini_forcing.F 130 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./model/src/ini_forcing.F 132 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 158 INI_FORCING 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_forcing.F 162 INI_FORCING 
            EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./model/src/ini_forcing.F 191 INI_FORCING 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_forcing.F 195 INI_FORCING 
            Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) + Qsw(i,j,bi,bj)
./model/src/ini_forcing.F 252 INI_FORCING 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_forcing.F 256 INI_FORCING 
             phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)
./model/src/ini_forcing.F 38 INI_FORCING 
      INTEGER bi, bj
./model/src/ini_forcing.F 46 INI_FORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_forcing.F 50 INI_FORCING 
          fu              (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 51 INI_FORCING 
          fv              (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 52 INI_FORCING 
          Qnet            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 53 INI_FORCING 
          EmPmR           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 54 INI_FORCING 
          saltFlux        (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 55 INI_FORCING 
          SST             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 56 INI_FORCING 
          SSS             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 57 INI_FORCING 
          Qsw             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 58 INI_FORCING 
          pLoad           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 59 INI_FORCING 
          sIceLoad        (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 60 INI_FORCING 
          surfaceForcingU (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 61 INI_FORCING 
          surfaceForcingV (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 62 INI_FORCING 
          surfaceForcingT (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 63 INI_FORCING 
          surfaceForcingS (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 64 INI_FORCING 
          surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 66 INI_FORCING 
          geothermalFlux  (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 69 INI_FORCING 
          taux0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 70 INI_FORCING 
          taux1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 71 INI_FORCING 
          tauy0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 72 INI_FORCING 
          tauy1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 73 INI_FORCING 
          Qnet0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 74 INI_FORCING 
          Qnet1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 75 INI_FORCING 
          EmPmR0          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 76 INI_FORCING 
          EmPmR1          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 77 INI_FORCING 
          saltFlux0       (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 78 INI_FORCING 
          saltFlux1       (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 79 INI_FORCING 
          SST0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 80 INI_FORCING 
          SST1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 81 INI_FORCING 
          SSS0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 82 INI_FORCING 
          SSS1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 84 INI_FORCING 
          Qsw0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 85 INI_FORCING 
          Qsw1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 88 INI_FORCING 
          pLoad0          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 89 INI_FORCING 
          pLoad1          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 95 INI_FORCING 
        loadedRec(bi,bj) = 0
./pkg/streamice/streamice_fields_load.F 169 STREAMICE_FIELDS_LOAD 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_fields_load.F 174 STREAMICE_FIELDS_LOAD 
             streamice_u_normal_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 175 STREAMICE_FIELDS_LOAD 
     &        streamice_u_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 176 STREAMICE_FIELDS_LOAD 
             streamice_v_normal_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 177 STREAMICE_FIELDS_LOAD 
     &        streamice_v_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 178 STREAMICE_FIELDS_LOAD 
             streamice_u_shear_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 179 STREAMICE_FIELDS_LOAD 
     &        streamice_u_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 180 STREAMICE_FIELDS_LOAD 
             streamice_v_shear_stress0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 181 STREAMICE_FIELDS_LOAD 
     &        streamice_v_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 214 STREAMICE_FIELDS_LOAD 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_fields_load.F 218 STREAMICE_FIELDS_LOAD 
             bdot_streamice0(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 219 STREAMICE_FIELDS_LOAD 
     &        bdot_streamice1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 234 STREAMICE_FIELDS_LOAD 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_fields_load.F 239 STREAMICE_FIELDS_LOAD 
             streamice_u_normal_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 240 STREAMICE_FIELDS_LOAD 
     &        fac    * streamice_u_normal_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 241 STREAMICE_FIELDS_LOAD 
     &     + (1-fac) * streamice_u_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 242 STREAMICE_FIELDS_LOAD 
             streamice_v_normal_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 243 STREAMICE_FIELDS_LOAD 
     &        fac    * streamice_v_normal_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 244 STREAMICE_FIELDS_LOAD 
     &     + (1-fac) * streamice_v_normal_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 245 STREAMICE_FIELDS_LOAD 
             streamice_u_shear_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 246 STREAMICE_FIELDS_LOAD 
     &        fac    * streamice_u_shear_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 247 STREAMICE_FIELDS_LOAD 
     &     + (1-fac) * streamice_u_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 248 STREAMICE_FIELDS_LOAD 
             streamice_v_shear_stress(i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 249 STREAMICE_FIELDS_LOAD 
     &        fac    * streamice_v_shear_stress0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 250 STREAMICE_FIELDS_LOAD 
     &     + (1-fac) * streamice_v_shear_stress1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 252 STREAMICE_FIELDS_LOAD 
             bdot_streamice (i,j,bi,bj) =
./pkg/streamice/streamice_fields_load.F 253 STREAMICE_FIELDS_LOAD 
     &        fac    * bdot_streamice0(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 254 STREAMICE_FIELDS_LOAD 
     &     + (1-fac) * bdot_streamice1(i,j,bi,bj)
./pkg/streamice/streamice_fields_load.F 58 STREAMICE_FIELDS_LOAD 
      INTEGER bi,bj,i,j
./pkg/streamice/streamice_forced_buttress.F 101 STREAMICE_FORCED_BUTTRESS 
               taudx_SI(i,j+k,bi,bj) = taudx_SI(i,j+k,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F 102 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_u_normal_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 103 STREAMICE_FORCED_BUTTRESS 
     &          streamice_u_normal_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 104 STREAMICE_FORCED_BUTTRESS 
     &          .5 * unconf_stress * dyG(i,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F 106 STREAMICE_FORCED_BUTTRESS 
               taudy_SI(i,j+k,bi,bj) = taudy_SI(i,j+k,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F 107 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_v_shear_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 108 STREAMICE_FORCED_BUTTRESS 
     &          streamice_v_shear_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 109 STREAMICE_FORCED_BUTTRESS 
     &          .5 * unconf_stress * dyG(i,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F 115 STREAMICE_FORCED_BUTTRESS 
            if (streamice_vfacemask(i,j+1,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F 119 STREAMICE_FORCED_BUTTRESS 
              if (streamice_umask(i+k,j+1,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F 121 STREAMICE_FORCED_BUTTRESS 
               taudy_SI(i+k,j+1,bi,bj) = taudy_SI(i+k,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 122 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_v_normal_pert(i,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 123 STREAMICE_FORCED_BUTTRESS 
     &          streamice_v_normal_stress(i,j+1,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 124 STREAMICE_FORCED_BUTTRESS 
     &           .5 * dxG(i,j+1,bi,bj) * unconf_stress
./pkg/streamice/streamice_forced_buttress.F 126 STREAMICE_FORCED_BUTTRESS 
               taudx_SI(i+k,j+1,bi,bj) = taudx_SI(i+k,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 127 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_u_shear_pert(i,j+1,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 128 STREAMICE_FORCED_BUTTRESS 
     &          streamice_u_shear_stress(i,j+1,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 129 STREAMICE_FORCED_BUTTRESS 
     &          .5 * unconf_stress * dxG(i,j+1,bi,bj)
./pkg/streamice/streamice_forced_buttress.F 135 STREAMICE_FORCED_BUTTRESS 
            if (streamice_vfacemask(i,j,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F 138 STREAMICE_FORCED_BUTTRESS 
              if (streamice_umask(i+k,j,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F 140 STREAMICE_FORCED_BUTTRESS 
               taudy_SI(i+k,j,bi,bj) = taudy_SI(i+k,j,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F 141 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_v_normal_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 142 STREAMICE_FORCED_BUTTRESS 
     &          streamice_v_normal_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 143 STREAMICE_FORCED_BUTTRESS 
     &          .5 * dxG(i,j,bi,bj) * unconf_stress
./pkg/streamice/streamice_forced_buttress.F 145 STREAMICE_FORCED_BUTTRESS 
               taudx_SI(i+k,j,bi,bj) = taudx_SI(i+k,j,bi,bj) -
./pkg/streamice/streamice_forced_buttress.F 146 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_u_shear_pert(i,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 147 STREAMICE_FORCED_BUTTRESS 
     &          streamice_u_shear_stress(i,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 148 STREAMICE_FORCED_BUTTRESS 
     &          .5 * unconf_stress * dxG(i,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F 38 STREAMICE_FORCED_BUTTRESS 
      INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_forced_buttress.F 44 STREAMICE_FORCED_BUTTRESS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_forced_buttress.F 50 STREAMICE_FORCED_BUTTRESS 
           if (streamice_hmask(i,j,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F 54 STREAMICE_FORCED_BUTTRESS 
            IF (float_frac_streamice(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_forced_buttress.F 57 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_density * H_streamice(i,j,bi,bj)**2 -
./pkg/streamice/streamice_forced_buttress.F 59 STREAMICE_FORCED_BUTTRESS 
     &          streamice_density_ocean_avg * R_low_si(i,j,bi,bj)**2)
./pkg/streamice/streamice_forced_buttress.F 61 STREAMICE_FORCED_BUTTRESS 
     &          streamice_density_ocean_avg * R_low(i,j,bi,bj)**2)
./pkg/streamice/streamice_forced_buttress.F 68 STREAMICE_FORCED_BUTTRESS 
     &          H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_forced_buttress.F 74 STREAMICE_FORCED_BUTTRESS 
            if (streamice_ufacemask(i+1,j,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F 77 STREAMICE_FORCED_BUTTRESS 
              if (streamice_umask(i+1,j+k,bi,bj).eq.1.0) then
./pkg/streamice/streamice_forced_buttress.F 80 STREAMICE_FORCED_BUTTRESS 
               taudx_SI(i+1,j+k,bi,bj) = taudx_SI(i+1,j+k,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 81 STREAMICE_FORCED_BUTTRESS 
     &          (streamice_u_normal_pert(i+1,j,bi,bj)  +
./pkg/streamice/streamice_forced_buttress.F 82 STREAMICE_FORCED_BUTTRESS 
     &           streamice_u_normal_stress(i+1,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 83 STREAMICE_FORCED_BUTTRESS 
     &          .5 * unconf_stress * dyG(i+1,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F 85 STREAMICE_FORCED_BUTTRESS 
               taudy_SI(i+1,j+k,bi,bj) = taudy_SI(i+1,j+k,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 86 STREAMICE_FORCED_BUTTRESS 
     &         (streamice_v_shear_pert(i+1,j,bi,bj) +
./pkg/streamice/streamice_forced_buttress.F 87 STREAMICE_FORCED_BUTTRESS 
     &          streamice_v_shear_stress(i+1,j,bi,bj)) *
./pkg/streamice/streamice_forced_buttress.F 88 STREAMICE_FORCED_BUTTRESS 
     &          .5 * unconf_stress * dyG(i+1,j,bi,bj)
./pkg/streamice/streamice_forced_buttress.F 96 STREAMICE_FORCED_BUTTRESS 
            if (streamice_ufacemask(i,j,bi,bj).eq.2.0) then
./pkg/streamice/streamice_forced_buttress.F 99 STREAMICE_FORCED_BUTTRESS 
              if (streamice_umask(i,j+k,bi,bj).eq.1.0) then
./pkg/streamice/streamice_init_fixed.F 105 STREAMICE_INIT_FIXED 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_fixed.F 109 STREAMICE_INIT_FIXED 
            STREAMICE_cost_mask (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 244 STREAMICE_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_fixed.F 248 STREAMICE_INIT_FIXED 
          IF (temp_hmask(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_init_fixed.F 250 STREAMICE_INIT_FIXED 
           STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0
./pkg/streamice/streamice_init_fixed.F 260 STREAMICE_INIT_FIXED 
     DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_fixed.F 264 STREAMICE_INIT_FIXED 
          u_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_init_fixed.F 265 STREAMICE_INIT_FIXED 
     &     u_bdry_values_SI_base (i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F 266 STREAMICE_INIT_FIXED 
          v_bdry_values_SI (i,j,bi,bj) =
./pkg/streamice/streamice_init_fixed.F 267 STREAMICE_INIT_FIXED 
     &     v_bdry_values_SI_base (i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F 281 STREAMICE_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_fixed.F 288 STREAMICE_INIT_FIXED 
          k1AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_fixed.F 289 STREAMICE_INIT_FIXED 
     &     (dxG(i+1,j,bi,bj)-dxG(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F 290 STREAMICE_INIT_FIXED 
          k2AtC_str(i,j,bi,bj) = recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_fixed.F 291 STREAMICE_INIT_FIXED 
     &     (dyG(i,j+1,bi,bj)-dyG(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F 294 STREAMICE_INIT_FIXED 
          streamice_basal_geom (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 302 STREAMICE_INIT_FIXED 
          Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_init_fixed.F 303 STREAMICE_INIT_FIXED 
          x = xC(i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F 304 STREAMICE_INIT_FIXED 
          y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_fixed.F 306 STREAMICE_INIT_FIXED 
          STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F 307 STREAMICE_INIT_FIXED 
          STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F 313 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 317 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 321 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 322 STREAMICE_INIT_FIXED 
            u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_WEST
./pkg/streamice/streamice_init_fixed.F 326 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 327 STREAMICE_INIT_FIXED 
            u_bdry_values_SI (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 331 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 339 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 343 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 347 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 348 STREAMICE_INIT_FIXED 
            u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_EAST
./pkg/streamice/streamice_init_fixed.F 352 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 353 STREAMICE_INIT_FIXED 
            u_bdry_values_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F 357 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 35 STREAMICE_INIT_FIXED 
      INTEGER bi, bj, i, j, Gi, Gj, m, k
./pkg/streamice/streamice_init_fixed.F 365 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 369 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 373 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 374 STREAMICE_INIT_FIXED 
            u_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_SOUTH
./pkg/streamice/streamice_init_fixed.F 378 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 379 STREAMICE_INIT_FIXED 
            u_bdry_values_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F 383 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 391 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F 395 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 399 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 400 STREAMICE_INIT_FIXED 
            v_flux_bdry_SI (i,j,bi,bj) = flux_bdry_val_NORTH
./pkg/streamice/streamice_init_fixed.F 404 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 405 STREAMICE_INIT_FIXED 
            v_bdry_values_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_fixed.F 409 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 416 STREAMICE_INIT_FIXED 
          IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F 417 STREAMICE_INIT_FIXED 
     &        temp_hmask(i,j,bi,bj).eq.0.0 .or.
./pkg/streamice/streamice_init_fixed.F 418 STREAMICE_INIT_FIXED 
     &        temp_hmask(i-1,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_init_fixed.F 421 STREAMICE_INIT_FIXED 
           maskFlag=INT(temp_ufacemask(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F 423 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 425 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 427 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 429 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 432 STREAMICE_INIT_FIXED 
     &       (temp_hmask(i-1,j,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F 433 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 434 STREAMICE_INIT_FIXED 
           ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_init_fixed.F 435 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 437 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F 442 STREAMICE_INIT_FIXED 
          IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F 443 STREAMICE_INIT_FIXED 
     &        temp_hmask(i,j,bi,bj).eq.0.0) THEN
./pkg/streamice/streamice_init_fixed.F 446 STREAMICE_INIT_FIXED 
           maskFlag=INT(temp_ufacemask(i+1,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F 448 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 450 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 452 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 454 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 457 STREAMICE_INIT_FIXED 
     &       (temp_hmask(i+1,j,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F 458 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 460 STREAMICE_INIT_FIXED 
            STREAMICE_ufacemask_bdry (i+1,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F 465 STREAMICE_INIT_FIXED 
          IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F 466 STREAMICE_INIT_FIXED 
     &        temp_hmask(i,j,bi,bj).eq.0.0 .or.
./pkg/streamice/streamice_init_fixed.F 467 STREAMICE_INIT_FIXED 
     &        temp_hmask(i,j-1,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_init_fixed.F 470 STREAMICE_INIT_FIXED 
           maskFlag=INT(temp_vfacemask(i,j,bi,bj))
./pkg/streamice/streamice_init_fixed.F 472 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 474 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 476 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 478 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 481 STREAMICE_INIT_FIXED 
     &       (temp_hmask(i,j-1,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F 482 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 483 STREAMICE_INIT_FIXED 
           ELSEIF (temp_hmask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_init_fixed.F 484 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 486 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_fixed.F 491 STREAMICE_INIT_FIXED 
          IF (temp_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_init_fixed.F 492 STREAMICE_INIT_FIXED 
     &        temp_hmask(i,j,bi,bj).eq.0.0) THEN
./pkg/streamice/streamice_init_fixed.F 495 STREAMICE_INIT_FIXED 
           maskFlag=INT(temp_vfacemask(i,j+1,bi,bj))
./pkg/streamice/streamice_init_fixed.F 497 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 2.0
./pkg/streamice/streamice_init_fixed.F 499 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 4.0
./pkg/streamice/streamice_init_fixed.F 501 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 3.0
./pkg/streamice/streamice_init_fixed.F 503 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 1.0
./pkg/streamice/streamice_init_fixed.F 506 STREAMICE_INIT_FIXED 
     &       (temp_hmask(i,j+1,bi,bj).eq.-1.0))) THEN
./pkg/streamice/streamice_init_fixed.F 507 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = 0.0
./pkg/streamice/streamice_init_fixed.F 509 STREAMICE_INIT_FIXED 
            STREAMICE_vfacemask_bdry (i,j+1,bi,bj) = -1.0
./pkg/streamice/streamice_init_phi.F 31 STREAMICE_INIT_PHI 
      INTEGER bi, bj, i, j, xnode, ynode, xq, yq, m, n, p, kx, ky
./pkg/streamice/streamice_init_phi.F 54 STREAMICE_INIT_PHI 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_phi.F 60 STREAMICE_INIT_PHI 
           gradx(xq) = Xquad(3-xq) * recip_dxG (i,j,bi,bj) +
./pkg/streamice/streamice_init_phi.F 61 STREAMICE_INIT_PHI 
     &                 Xquad(xq) * recip_dxG (i+1,j,bi,bj)
./pkg/streamice/streamice_init_phi.F 62 STREAMICE_INIT_PHI 
           grady(xq) = Xquad(3-xq) * recip_dyG (i,j,bi,bj) +
./pkg/streamice/streamice_init_phi.F 63 STREAMICE_INIT_PHI 
     &                 Xquad(xq) * recip_dyG (i,j+1,bi,bj)
./pkg/streamice/streamice_init_phi.F 81 STREAMICE_INIT_PHI 
            Dphi (i,j,bi,bj,m,n,1) =
./pkg/streamice/streamice_init_phi.F 83 STREAMICE_INIT_PHI 
            Dphi (i,j,bi,bj,m,n,2) =
./pkg/streamice/streamice_init_phi.F 88 STREAMICE_INIT_PHI 
           grid_jacq_streamice (i,j,bi,bj,n) =
./pkg/streamice/streamice_init_phi.F 89 STREAMICE_INIT_PHI 
     &      (Xquad(3-xq)*dyG(i,j,bi,bj) + Xquad(xq)*dyG(i+1,j,bi,bj)) *
./pkg/streamice/streamice_init_phi.F 90 STREAMICE_INIT_PHI 
     &      (Xquad(3-yq)*dxG(i,j,bi,bj) + Xquad(yq)*dxG(i,j+1,bi,bj))
./pkg/streamice/streamice_init_varia.F 101 STREAMICE_INIT_VARIA 
          ru_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 102 STREAMICE_INIT_VARIA 
          rv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 103 STREAMICE_INIT_VARIA 
          zu_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 104 STREAMICE_INIT_VARIA 
          zv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 108 STREAMICE_INIT_VARIA 
          R_low_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 113 STREAMICE_INIT_VARIA 
           visc_streamice_full(i,j,k,bi,bj) =
./pkg/streamice/streamice_init_varia.F 116 STREAMICE_INIT_VARIA 
          streamice_taubx (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 117 STREAMICE_INIT_VARIA 
          streamice_tauby (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 123 STREAMICE_INIT_VARIA 
        cost_func1_streamice (bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 124 STREAMICE_INIT_VARIA 
        cost_vel_streamice (bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 125 STREAMICE_INIT_VARIA 
        cost_surf_streamice (bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 133 STREAMICE_INIT_VARIA 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 138 STREAMICE_INIT_VARIA 
             streamice_cg_A1(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F 139 STREAMICE_INIT_VARIA 
             streamice_cg_A2(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F 140 STREAMICE_INIT_VARIA 
             streamice_cg_A3(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F 141 STREAMICE_INIT_VARIA 
             streamice_cg_A4(i,j,bi,bj,col_x,col_y)=0.0
./pkg/streamice/streamice_init_varia.F 152 STREAMICE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 156 STREAMICE_INIT_VARIA 
          STREAMICE_hmask(i,j,bi,bj) = -1.0
./pkg/streamice/streamice_init_varia.F 157 STREAMICE_INIT_VARIA 
          STREAMICE_umask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 158 STREAMICE_INIT_VARIA 
          STREAMICE_vmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 159 STREAMICE_INIT_VARIA 
          STREAMICE_ufacemask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 160 STREAMICE_INIT_VARIA 
          STREAMICE_vfacemask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 161 STREAMICE_INIT_VARIA 
          STREAMICE_float_cond(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 199 STREAMICE_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 204 STREAMICE_INIT_VARIA 
           Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_init_varia.F 210 STREAMICE_INIT_VARIA 
             IF (xC(i-1,j,bi,bj).GE.shelf_edge_pos) THEN
./pkg/streamice/streamice_init_varia.F 211 STREAMICE_INIT_VARIA 
              area_shelf_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 212 STREAMICE_INIT_VARIA 
              STREAMICE_hmask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 215 STREAMICE_INIT_VARIA 
              IF (xC(i,j,bi,bj).GT.slope_pos) THEN
./pkg/streamice/streamice_init_varia.F 216 STREAMICE_INIT_VARIA 
               H_streamice (i,j,bi,bj) = shelf_min_draft
./pkg/streamice/streamice_init_varia.F 218 STREAMICE_INIT_VARIA 
               H_streamice (i,j,bi,bj) = (shelf_min_draft +
./pkg/streamice/streamice_init_varia.F 220 STREAMICE_INIT_VARIA 
     &          min (oneRL, (c1*(slope_pos-xC(i,j,bi,bj)))**2))
./pkg/streamice/streamice_init_varia.F 223 STREAMICE_INIT_VARIA 
              IF (xC(i,j,bi,bj).GT.shelf_edge_pos) THEN
./pkg/streamice/streamice_init_varia.F 224 STREAMICE_INIT_VARIA 
               area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) *
./pkg/streamice/streamice_init_varia.F 225 STREAMICE_INIT_VARIA 
     &          (shelf_edge_pos-xG(i,j,bi,bj)) /
./pkg/streamice/streamice_init_varia.F 226 STREAMICE_INIT_VARIA 
     &          (xG(i+1,j,bi,bj)-xG(i,j,bi,bj))
./pkg/streamice/streamice_init_varia.F 227 STREAMICE_INIT_VARIA 
               IF (area_shelf_streamice(i,j,bi,bj).gt. 0. _d 0) THEN
./pkg/streamice/streamice_init_varia.F 228 STREAMICE_INIT_VARIA 
                STREAMICE_hmask(i,j,bi,bj) = 2.0
./pkg/streamice/streamice_init_varia.F 230 STREAMICE_INIT_VARIA 
                STREAMICE_hmask(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 231 STREAMICE_INIT_VARIA 
                H_streamice(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 234 STREAMICE_INIT_VARIA 
               area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F 235 STREAMICE_INIT_VARIA 
               STREAMICE_hmask(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_varia.F 254 STREAMICE_INIT_VARIA 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 259 STREAMICE_INIT_VARIA 
            Gj = (myYGlobalLo-1)+(bj-1)*sNy+j
./pkg/streamice/streamice_init_varia.F 262 STREAMICE_INIT_VARIA 
             IF (H_streamice(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/streamice/streamice_init_varia.F 263 STREAMICE_INIT_VARIA 
              area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F 264 STREAMICE_INIT_VARIA 
              STREAMICE_hmask(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_init_varia.F 266 STREAMICE_INIT_VARIA 
              area_shelf_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 267 STREAMICE_INIT_VARIA 
              STREAMICE_hmask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 270 STREAMICE_INIT_VARIA 
             STREAMICE_ctrl_mask(i,j,k,bi,bj) = 1. _d 0
./pkg/streamice/streamice_init_varia.F 353 STREAMICE_INIT_VARIA 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 359 STREAMICE_INIT_VARIA 
             B_glen(i,j,r,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F 362 STREAMICE_INIT_VARIA 
             B_glen(i,j,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F 39 STREAMICE_INIT_VARIA 
      INTEGER i, j, k, bi, bj, Gi, Gj, r
./pkg/streamice/streamice_init_varia.F 416 STREAMICE_INIT_VARIA 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 420 STREAMICE_INIT_VARIA 
            C_basal_friction(i,j,bi,bj) = C_basal_fric_const
./pkg/streamice/streamice_init_varia.F 430 STREAMICE_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 434 STREAMICE_INIT_VARIA 
           x = xC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F 435 STREAMICE_INIT_VARIA 
           y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F 436 STREAMICE_INIT_VARIA 
           C_basal_friction(i,j,bi,bj) =
./pkg/streamice/streamice_init_varia.F 448 STREAMICE_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 452 STREAMICE_INIT_VARIA 
           x = xC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F 453 STREAMICE_INIT_VARIA 
           y = yC(i,j,bi,bj)
./pkg/streamice/streamice_init_varia.F 454 STREAMICE_INIT_VARIA 
           C_basal_friction(i,j,bi,bj) =
./pkg/streamice/streamice_init_varia.F 483 STREAMICE_INIT_VARIA 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 487 STREAMICE_INIT_VARIA 
            trac2d(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_init_varia.F 50 STREAMICE_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_init_varia.F 54 STREAMICE_INIT_VARIA 
          H_streamIce(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 55 STREAMICE_INIT_VARIA 
          U_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 56 STREAMICE_INIT_VARIA 
          V_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 57 STREAMICE_INIT_VARIA 
          visc_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 58 STREAMICE_INIT_VARIA 
          tau_beta_eff_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 59 STREAMICE_INIT_VARIA 
          float_frac_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 60 STREAMICE_INIT_VARIA 
          base_el_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 61 STREAMICE_INIT_VARIA 
          surf_el_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 62 STREAMICE_INIT_VARIA 
          area_shelf_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 63 STREAMICE_INIT_VARIA 
          mass_ice_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 64 STREAMICE_INIT_VARIA 
          BDOT_streamice(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 66 STREAMICE_INIT_VARIA 
          BDOT_streamice1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 68 STREAMICE_INIT_VARIA 
          ADOT_streamice(i,j,bi,bj) = streamice_adot_uniform
./pkg/streamice/streamice_init_varia.F 69 STREAMICE_INIT_VARIA 
          C_basal_friction(i,j,bi,bj) = C_basal_fric_const
./pkg/streamice/streamice_init_varia.F 71 STREAMICE_INIT_VARIA 
          B_glen(i,j,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F 74 STREAMICE_INIT_VARIA 
           B_glen(i,j,k,bi,bj) = B_glen_isothermal
./pkg/streamice/streamice_init_varia.F 77 STREAMICE_INIT_VARIA 
          H_streamice_prev(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 79 STREAMICE_INIT_VARIA 
          STREAMICE_u_normal_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 80 STREAMICE_INIT_VARIA 
          STREAMICE_v_normal_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 81 STREAMICE_INIT_VARIA 
          STREAMICE_u_shear_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 82 STREAMICE_INIT_VARIA 
          STREAMICE_v_shear_pert(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 83 STREAMICE_INIT_VARIA 
          STREAMICE_u_normal_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 84 STREAMICE_INIT_VARIA 
          STREAMICE_v_normal_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 85 STREAMICE_INIT_VARIA 
          STREAMICE_u_shear_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 86 STREAMICE_INIT_VARIA 
          STREAMICE_v_shear_stress(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 88 STREAMICE_INIT_VARIA 
          STREAMICE_u_normal_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 89 STREAMICE_INIT_VARIA 
          STREAMICE_v_normal_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 90 STREAMICE_INIT_VARIA 
          STREAMICE_u_shear_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 91 STREAMICE_INIT_VARIA 
          STREAMICE_v_shear_stress1(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_init_varia.F 96 STREAMICE_INIT_VARIA 
         GAD_trac_2d (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_invert_surf_forthick.F 32 STREAMICE_INVERT_SURF_FORTHICK 
      INTEGER  i, j, bi, bj, ITER
./pkg/streamice/streamice_invert_surf_forthick.F 38 STREAMICE_INVERT_SURF_FORTHICK 
        DO bj=myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_invert_surf_forthick.F 42 STREAMICE_INVERT_SURF_FORTHICK 
            IF (STREAMICE_hmask(i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_invert_surf_forthick.F 43 STREAMICE_INVERT_SURF_FORTHICK 
             hf = (-1. _d 0) * R(i,j,bi,bj) /
./pkg/streamice/streamice_invert_surf_forthick.F 46 STREAMICE_INVERT_SURF_FORTHICK 
             IF (S(i,j,bi,bj) .gt. delta*HF) THEN
./pkg/streamice/streamice_invert_surf_forthick.F 47 STREAMICE_INVERT_SURF_FORTHICK 
              htmp = S(i,j,bi,bj)-R(i,j,bi,bj)
./pkg/streamice/streamice_invert_surf_forthick.F 49 STREAMICE_INVERT_SURF_FORTHICK 
              htmp = S(i,j,bi,bj)/delta
./pkg/streamice/streamice_invert_surf_forthick.F 58 STREAMICE_INVERT_SURF_FORTHICK 
     &           ( STREAMICE_hmask(i,j,bi,bj).eq.1.0)) THEN
./pkg/streamice/streamice_invert_surf_forthick.F 60 STREAMICE_INVERT_SURF_FORTHICK 
                hf = (-1. _d 0) * R(i,j,bi,bj) /
./pkg/streamice/streamice_invert_surf_forthick.F 63 STREAMICE_INVERT_SURF_FORTHICK 
                IF (S(i,j,bi,bj) .gt. delta*HF) THEN
./pkg/streamice/streamice_invert_surf_forthick.F 64 STREAMICE_INVERT_SURF_FORTHICK 
                 htmp = S(i,j,bi,bj)-R(i,j,bi,bj)
./pkg/streamice/streamice_invert_surf_forthick.F 66 STREAMICE_INVERT_SURF_FORTHICK 
                 htmp = S(i,j,bi,bj)/delta
./pkg/streamice/streamice_invert_surf_forthick.F 75 STREAMICE_INVERT_SURF_FORTHICK 
                RESID = RESID - S(i,j,bi,bj)
./pkg/streamice/streamice_invert_surf_forthick.F 86 STREAMICE_INVERT_SURF_FORTHICK 
             H(i,j,bi,bj) = Htmp
./model/src/ini_global_domain.F 100 INI_GLOBAL_DOMAIN 
      DO bj = 1,nSy
./model/src/ini_global_domain.F 102 INI_GLOBAL_DOMAIN 
        IF ( tileArea(bi,bj).EQ.0. _d 0 ) THEN
./model/src/ini_global_domain.F 105 INI_GLOBAL_DOMAIN 
     &    'Empty tile: #', W2_myTileList(bi,bj), ' (bi,bj=',bi,bj,' )'
./model/src/ini_global_domain.F 107 INI_GLOBAL_DOMAIN 
         WRITE(msgBuf,'(A,I6,I6)') 'Empty tile bi,bj=', bi, bj
./model/src/ini_global_domain.F 126 INI_GLOBAL_DOMAIN 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_global_domain.F 129 INI_GLOBAL_DOMAIN 
           myTile = W2_myTileList(bi,bj)
./model/src/ini_global_domain.F 144 INI_GLOBAL_DOMAIN 
           IF ( southWestCorner .AND. kSurfC( 1 , 1 ,bi,bj).LE.Nr )
./model/src/ini_global_domain.F 146 INI_GLOBAL_DOMAIN 
           IF ( southEastCorner .AND. kSurfC(sNx, 1 ,bi,bj).LE.Nr )
./model/src/ini_global_domain.F 148 INI_GLOBAL_DOMAIN 
           IF ( northWestCorner .AND. kSurfC( 1 ,sNy,bi,bj).LE.Nr )
./model/src/ini_global_domain.F 150 INI_GLOBAL_DOMAIN 
           IF ( northEastCorner .AND. kSurfC(sNx,sNy,bi,bj).LE.Nr )
./model/src/ini_global_domain.F 50 INI_GLOBAL_DOMAIN 
      INTEGER bi, bj
./model/src/ini_global_domain.F 77 INI_GLOBAL_DOMAIN 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_global_domain.F 80 INI_GLOBAL_DOMAIN 
        tileArea(bi,bj) = 0. _d 0
./model/src/ini_global_domain.F 83 INI_GLOBAL_DOMAIN 
          tileArea(bi,bj) = tileArea(bi,bj)
./model/src/ini_global_domain.F 84 INI_GLOBAL_DOMAIN 
     &                    + rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/streamice/streamice_petsc_numerate.F 122 STREAMICE_PETSC_NUMERATE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_petsc_numerate.F 126 STREAMICE_PETSC_NUMERATE 
          IF (streamice_petsc_dofs_u(i,j,bi,bj).ge.0 ) THEN
./pkg/streamice/streamice_petsc_numerate.F 127 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_u(i,j,bi,bj) =
./pkg/streamice/streamice_petsc_numerate.F 128 STREAMICE_PETSC_NUMERATE 
     &      streamice_petsc_dofs_u(i,j,bi,bj) +
./pkg/streamice/streamice_petsc_numerate.F 131 STREAMICE_PETSC_NUMERATE 
          IF (streamice_petsc_dofs_v(i,j,bi,bj).ge.0 ) THEN
./pkg/streamice/streamice_petsc_numerate.F 132 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_v(i,j,bi,bj) =
./pkg/streamice/streamice_petsc_numerate.F 133 STREAMICE_PETSC_NUMERATE 
     &      streamice_petsc_dofs_v(i,j,bi,bj) +
./pkg/streamice/streamice_petsc_numerate.F 35 STREAMICE_PETSC_NUMERATE 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_petsc_numerate.F 46 STREAMICE_PETSC_NUMERATE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_petsc_numerate.F 50 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_u (i,j,bi,bj) = -2.0
./pkg/streamice/streamice_petsc_numerate.F 51 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_v (i,j,bi,bj) = -2.0
./pkg/streamice/streamice_petsc_numerate.F 58 STREAMICE_PETSC_NUMERATE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_petsc_numerate.F 74 STREAMICE_PETSC_NUMERATE 
          if (STREAMICE_umask (i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_petsc_numerate.F 76 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_u (i,j,bi,bj) = DoFCount
./pkg/streamice/streamice_petsc_numerate.F 78 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_u (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_petsc_numerate.F 81 STREAMICE_PETSC_NUMERATE 
          if (STREAMICE_vmask (i,j,bi,bj).eq.1.0) THEN
./pkg/streamice/streamice_petsc_numerate.F 83 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_v (i,j,bi,bj) = DoFCount
./pkg/streamice/streamice_petsc_numerate.F 85 STREAMICE_PETSC_NUMERATE 
           streamice_petsc_dofs_v (i,j,bi,bj) = -1.0
./pkg/streamice/streamice_solo_timestep.F 40 STREAMICE_SOLO_TIMESTEP 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_solo_timestep.F 59 STREAMICE_SOLO_TIMESTEP 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_solo_timestep.F 63 STREAMICE_SOLO_TIMESTEP 
          STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F 64 STREAMICE_SOLO_TIMESTEP 
          STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F 65 STREAMICE_SOLO_TIMESTEP 
          ru_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F 66 STREAMICE_SOLO_TIMESTEP 
          rv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F 67 STREAMICE_SOLO_TIMESTEP 
          zu_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F 68 STREAMICE_SOLO_TIMESTEP 
          zv_old_si(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F 71 STREAMICE_SOLO_TIMESTEP 
          streamice_taubx (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_solo_timestep.F 72 STREAMICE_SOLO_TIMESTEP 
          streamice_tauby (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_taub.F 37 STREAMICE_TAUB 
      INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_taub.F 41 STREAMICE_TAUB 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_taub.F 46 STREAMICE_TAUB 
          streamice_taubx (i,j,bi,bj) = 0.
./pkg/streamice/streamice_taub.F 47 STREAMICE_TAUB 
          streamice_tauby (i,j,bi,bj) = 0.
./pkg/streamice/streamice_taub.F 49 STREAMICE_TAUB 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_taub.F 62 STREAMICE_TAUB 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_taub.F 63 STREAMICE_TAUB 
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F 64 STREAMICE_TAUB 
     &        U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_taub.F 66 STREAMICE_TAUB 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_taub.F 67 STREAMICE_TAUB 
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_taub.F 68 STREAMICE_TAUB 
     &        V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_taub.F 72 STREAMICE_TAUB 
           streamice_taubx (i,j,bi,bj) =
./pkg/streamice/streamice_taub.F 73 STREAMICE_TAUB 
     &      tau_beta_eff_streamice(i,j,bi,bj) * umid
./pkg/streamice/streamice_taub.F 74 STREAMICE_TAUB 
           streamice_tauby (i,j,bi,bj) =
./pkg/streamice/streamice_taub.F 75 STREAMICE_TAUB 
     &      tau_beta_eff_streamice(i,j,bi,bj) * vmid
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 105 STREAMICE_UPD_FFRAC_UNCOUPLED 
           float_frac_streamice(i,j,bi,bj) = 0.0
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 107 STREAMICE_UPD_FFRAC_UNCOUPLED 
           base_el_streamice(i,j,bi,bj) = R_low_si(i,j,bi,bj)+OD
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 109 STREAMICE_UPD_FFRAC_UNCOUPLED 
           base_el_streamice(i,j,bi,bj) = R_low(i,j,bi,bj)+OD
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 111 STREAMICE_UPD_FFRAC_UNCOUPLED 
           surf_el_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 112 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &      (1-rhoi/rhow)*H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 116 STREAMICE_UPD_FFRAC_UNCOUPLED 
           float_frac_streamice(i,j,bi,bj) = 1.0
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 118 STREAMICE_UPD_FFRAC_UNCOUPLED 
           base_el_streamice(i,j,bi,bj) = R_low_si(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 119 STREAMICE_UPD_FFRAC_UNCOUPLED 
           surf_el_streamice(i,j,bi,bj) = R_low_si(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 121 STREAMICE_UPD_FFRAC_UNCOUPLED 
           base_el_streamice(i,j,bi,bj) = R_low(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 122 STREAMICE_UPD_FFRAC_UNCOUPLED 
           surf_el_streamice(i,j,bi,bj) = R_low(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 124 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &      + H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 30 STREAMICE_UPD_FFRAC_UNCOUPLED 
      INTEGER bi, bj, i, j
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 48 STREAMICE_UPD_FFRAC_UNCOUPLED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 53 STREAMICE_UPD_FFRAC_UNCOUPLED 
          if (STREAMICE_hmask(i,j,bi,bj).eq.1.0 .or.
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 54 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &        STREAMICE_hmask(i,j,bi,bj).eq.2.0) THEN
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 56 STREAMICE_UPD_FFRAC_UNCOUPLED 
           h = H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 59 STREAMICE_UPD_FFRAC_UNCOUPLED 
           hf = -1.0 * i_r * R_low_si (i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 61 STREAMICE_UPD_FFRAC_UNCOUPLED 
           hf = -1.0 * i_r * R_low (i,j,bi,bj)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 64 STREAMICE_UPD_FFRAC_UNCOUPLED 
           surf_el_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 72 STREAMICE_UPD_FFRAC_UNCOUPLED 
           base_el_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 73 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &      surf_el_streamice(i,j,bi,bj) - h
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 75 STREAMICE_UPD_FFRAC_UNCOUPLED 
           float_frac_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 89 STREAMICE_UPD_FFRAC_UNCOUPLED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 94 STREAMICE_UPD_FFRAC_UNCOUPLED 
          OD = -1.0 * R_low_si (i,j,bi,bj) -
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 95 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &     H_streamice(i,j,bi,bj) * rhoi/rhow
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 97 STREAMICE_UPD_FFRAC_UNCOUPLED 
          OD = -1.0 * R_low (i,j,bi,bj) -
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 98 STREAMICE_UPD_FFRAC_UNCOUPLED 
     &     H_streamice(i,j,bi,bj) * rhoi/rhow
./pkg/streamice/streamice_vel_solve.F 124 STREAMICE_VEL_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_vel_solve.F 128 STREAMICE_VEL_SOLVE 
          Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 129 STREAMICE_VEL_SOLVE 
          Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 130 STREAMICE_VEL_SOLVE 
          ubd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 131 STREAMICE_VEL_SOLVE 
          vbd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 164 STREAMICE_VEL_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_vel_solve.F 173 STREAMICE_VEL_SOLVE 
          IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F 175 STREAMICE_VEL_SOLVE 
     &      ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F 176 STREAMICE_VEL_SOLVE 
     &           taudx_SI(i,j,bi,bj))
./pkg/streamice/streamice_vel_solve.F 179 STREAMICE_VEL_SOLVE 
          IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F 181 STREAMICE_VEL_SOLVE 
     &      ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F 182 STREAMICE_VEL_SOLVE 
     &           taudy_SI(i,j,bi,bj)))
./pkg/streamice/streamice_vel_solve.F 332 STREAMICE_VEL_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_vel_solve.F 336 STREAMICE_VEL_SOLVE 
           Au_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 337 STREAMICE_VEL_SOLVE 
           Av_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 338 STREAMICE_VEL_SOLVE 
           ubd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 339 STREAMICE_VEL_SOLVE 
           vbd_SI (i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_vel_solve.F 379 STREAMICE_VEL_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_vel_solve.F 388 STREAMICE_VEL_SOLVE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F 390 STREAMICE_VEL_SOLVE 
     &       ABS (Au_SI(i,j,bi,bj)+0*ubd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F 391 STREAMICE_VEL_SOLVE 
     &            taudx_SI(i,j,bi,bj))
./pkg/streamice/streamice_vel_solve.F 393 STREAMICE_VEL_SOLVE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F 395 STREAMICE_VEL_SOLVE 
     &       ABS (Av_SI(i,j,bi,bj)+0*vbd_SI(i,j,bi,bj) -
./pkg/streamice/streamice_vel_solve.F 396 STREAMICE_VEL_SOLVE 
     &            taudy_SI(i,j,bi,bj)))
./pkg/streamice/streamice_vel_solve.F 412 STREAMICE_VEL_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_vel_solve.F 418 STREAMICE_VEL_SOLVE 
           IF (STREAMICE_umask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F 420 STREAMICE_VEL_SOLVE 
     &       ABS (U_streamice(i,j,bi,bj)-u_old_SI(i,j,bi,bj))
./pkg/streamice/streamice_vel_solve.F 422 STREAMICE_VEL_SOLVE 
           IF (STREAMICE_vmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_vel_solve.F 424 STREAMICE_VEL_SOLVE 
     &       ABS (V_streamice(i,j,bi,bj)-v_old_SI(i,j,bi,bj)))
./pkg/streamice/streamice_vel_solve.F 438 STREAMICE_VEL_SOLVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_vel_solve.F 442 STREAMICE_VEL_SOLVE 
           u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj)
./pkg/streamice/streamice_vel_solve.F 443 STREAMICE_VEL_SOLVE 
           v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj)
./pkg/streamice/streamice_vel_solve.F 47 STREAMICE_VEL_SOLVE 
      INTEGER conv_flag, i, j, k, l, iter, cg_iters, bi, bj
./pkg/streamice/streamice_vel_solve.F 90 STREAMICE_VEL_SOLVE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/streamice/streamice_vel_solve.F 94 STREAMICE_VEL_SOLVE 
          u_old_SI (i,j,bi,bj) = U_streamice (i,j,bi,bj)
./pkg/streamice/streamice_vel_solve.F 95 STREAMICE_VEL_SOLVE 
          v_old_SI (i,j,bi,bj) = V_streamice (i,j,bi,bj)
./pkg/streamice/streamice_velmask_upd.F 100 STREAMICE_VELMASK_UPD 
               STREAMICE_ufacemask(i+ki,j,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F 104 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 105 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 107 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 4.0
./pkg/streamice/streamice_velmask_upd.F 110 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 111 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 113 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 116 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 122 STREAMICE_VELMASK_UPD 
            maskFlag=INT(STREAMICE_vfacemask_bdry(i,j+kj,bi,bj))
./pkg/streamice/streamice_velmask_upd.F 125 STREAMICE_VELMASK_UPD 
               if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 126 STREAMICE_VELMASK_UPD 
                STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 128 STREAMICE_VELMASK_UPD 
               if(STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 129 STREAMICE_VELMASK_UPD 
                STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 132 STREAMICE_VELMASK_UPD 
              STREAMICE_vfacemask(i,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 135 STREAMICE_VELMASK_UPD 
               STREAMICE_vfacemask(i,j+kj,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F 139 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 140 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 142 STREAMICE_VELMASK_UPD 
              STREAMICE_vfacemask(i,j+kj,bi,bj) = 4.0
./pkg/streamice/streamice_velmask_upd.F 145 STREAMICE_VELMASK_UPD 
               STREAMICE_umask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 146 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 148 STREAMICE_VELMASK_UPD 
              STREAMICE_vfacemask(i+ki,j,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 151 STREAMICE_VELMASK_UPD 
               STREAMICE_vmask(i+ki,j+kj,bi,bj) = 0.0
./pkg/streamice/streamice_velmask_upd.F 157 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i+1,j,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 158 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i+1,j,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 160 STREAMICE_VELMASK_UPD 
             STREAMICE_ufacemask(i+1,j,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F 165 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i-1,j,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 166 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i-1,j,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 168 STREAMICE_VELMASK_UPD 
             STREAMICE_ufacemask(i,j,bi,bj) = 2
./pkg/streamice/streamice_velmask_upd.F 173 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i,j+1,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 174 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i,j+1,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 176 STREAMICE_VELMASK_UPD 
             STREAMICE_vfacemask(i,j+1,bi,bj) = 2
./pkg/streamice/streamice_velmask_upd.F 181 STREAMICE_VELMASK_UPD 
            IF ((STREAMICE_hmask(i,j-1,bi,bj) .eq. 0.0) .OR.
./pkg/streamice/streamice_velmask_upd.F 182 STREAMICE_VELMASK_UPD 
     &          (STREAMICE_hmask(i,j-1,bi,bj) .eq. 2.0))  THEN
./pkg/streamice/streamice_velmask_upd.F 184 STREAMICE_VELMASK_UPD 
             STREAMICE_vfacemask(i,j,bi,bj) = 2.0
./pkg/streamice/streamice_velmask_upd.F 197 STREAMICE_VELMASK_UPD 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_velmask_upd.F 201 STREAMICE_VELMASK_UPD 
          IF(streamice_umask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_velmask_upd.F 202 STREAMICE_VELMASK_UPD 
           streamice_umask(i,j,bi,bj)=0.0
./pkg/streamice/streamice_velmask_upd.F 204 STREAMICE_VELMASK_UPD 
          IF(streamice_vmask(i,j,bi,bj).eq.-1.0) THEN
./pkg/streamice/streamice_velmask_upd.F 205 STREAMICE_VELMASK_UPD 
           streamice_vmask(i,j,bi,bj)=0.0
./pkg/streamice/streamice_velmask_upd.F 40 STREAMICE_VELMASK_UPD 
      INTEGER i, j, bi, bj, ki, kj
./pkg/streamice/streamice_velmask_upd.F 56 STREAMICE_VELMASK_UPD 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_velmask_upd.F 60 STREAMICE_VELMASK_UPD 
          STREAMICE_umask(i,j,bi,bj) = -1. _d 0
./pkg/streamice/streamice_velmask_upd.F 61 STREAMICE_VELMASK_UPD 
          STREAMICE_vmask(i,j,bi,bj) = -1. _d 0
./pkg/streamice/streamice_velmask_upd.F 62 STREAMICE_VELMASK_UPD 
          STREAMICE_ufacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_velmask_upd.F 63 STREAMICE_VELMASK_UPD 
          STREAMICE_vfacemask(i,j,bi,bj) = 0. _d 0
./pkg/streamice/streamice_velmask_upd.F 69 STREAMICE_VELMASK_UPD 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_velmask_upd.F 73 STREAMICE_VELMASK_UPD 
          IF (STREAMICE_hmask(i,j,bi,bj) .eq. 1.0) THEN
./pkg/streamice/streamice_velmask_upd.F 77 STREAMICE_VELMASK_UPD 
             if (STREAMICE_umask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F 78 STREAMICE_VELMASK_UPD 
              STREAMICE_umask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F 80 STREAMICE_VELMASK_UPD 
             if (STREAMICE_vmask(i+ki,j+kj,bi,bj).eq.-1.0) then
./pkg/streamice/streamice_velmask_upd.F 81 STREAMICE_VELMASK_UPD 
              STREAMICE_vmask (i+ki,j+kj,bi,bj) = 1.0
./pkg/streamice/streamice_velmask_upd.F 87 STREAMICE_VELMASK_UPD 
            maskFlag=INT(STREAMICE_ufacemask_bdry(i+ki,j,bi,bj))
./pkg/streamice/streamice_velmask_upd.F 90 STREAMICE_VELMASK_UPD 
               if (STREAMICE_umask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 91 STREAMICE_VELMASK_UPD 
                STREAMICE_umask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 93 STREAMICE_VELMASK_UPD 
               if(STREAMICE_vmask(i+ki,j+kj,bi,bj).ne.0.0) then
./pkg/streamice/streamice_velmask_upd.F 94 STREAMICE_VELMASK_UPD 
                STREAMICE_vmask(i+ki,j+kj,bi,bj) = 3.0
./pkg/streamice/streamice_velmask_upd.F 97 STREAMICE_VELMASK_UPD 
              STREAMICE_ufacemask(i+ki,j,bi,bj) = 3.0
./pkg/streamice/streamice_visc_beta.F 101 STREAMICE_VISC_BETA 
     &      second_inv**((1-n_glen)/n_glen) * H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta.F 104 STREAMICE_VISC_BETA 
           tau_beta_eff_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta.F 105 STREAMICE_VISC_BETA 
     &       C_basal_friction(i,j,bi,bj)**2 *
./pkg/streamice/streamice_visc_beta.F 107 STREAMICE_VISC_BETA 
     &       float_frac_streamice (i,j,bi,bj)
./pkg/streamice/streamice_visc_beta.F 36 STREAMICE_VISC_BETA 
      INTEGER i, j, bi, bj, k, l
./pkg/streamice/streamice_visc_beta.F 40 STREAMICE_VISC_BETA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_visc_beta.F 44 STREAMICE_VISC_BETA 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_visc_beta.F 52 STREAMICE_VISC_BETA 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 53 STREAMICE_VISC_BETA 
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 54 STREAMICE_VISC_BETA 
     &        U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta.F 56 STREAMICE_VISC_BETA 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 57 STREAMICE_VISC_BETA 
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta.F 58 STREAMICE_VISC_BETA 
     &        V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta.F 62 STREAMICE_VISC_BETA 
           ux = (U_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta.F 63 STREAMICE_VISC_BETA 
     &           U_streamice(i+1,j,bi,bj)   -
./pkg/streamice/streamice_visc_beta.F 64 STREAMICE_VISC_BETA 
     &           U_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta.F 65 STREAMICE_VISC_BETA 
     &           U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F 66 STREAMICE_VISC_BETA 
     &           (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F 67 STREAMICE_VISC_BETA 
           vx = (V_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta.F 68 STREAMICE_VISC_BETA 
     &           V_streamice(i+1,j,bi,bj)   -
./pkg/streamice/streamice_visc_beta.F 69 STREAMICE_VISC_BETA 
     &           V_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta.F 70 STREAMICE_VISC_BETA 
     &           V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F 71 STREAMICE_VISC_BETA 
     &           (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F 72 STREAMICE_VISC_BETA 
           uy = (U_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F 73 STREAMICE_VISC_BETA 
     &           U_streamice(i+1,j,bi,bj)   +
./pkg/streamice/streamice_visc_beta.F 74 STREAMICE_VISC_BETA 
     &           U_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta.F 75 STREAMICE_VISC_BETA 
     &           U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F 76 STREAMICE_VISC_BETA 
     &           (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F 77 STREAMICE_VISC_BETA 
           vy = (V_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta.F 78 STREAMICE_VISC_BETA 
     &           V_streamice(i+1,j,bi,bj)   +
./pkg/streamice/streamice_visc_beta.F 79 STREAMICE_VISC_BETA 
     &           V_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta.F 80 STREAMICE_VISC_BETA 
     &           V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta.F 81 STREAMICE_VISC_BETA 
     &           (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta.F 83 STREAMICE_VISC_BETA 
           exx = ux + k1AtC_str(i,j,bi,bj)*vmid
./pkg/streamice/streamice_visc_beta.F 84 STREAMICE_VISC_BETA 
           eyy = vy + k2AtC_str(i,j,bi,bj)*umid
./pkg/streamice/streamice_visc_beta.F 86 STREAMICE_VISC_BETA 
     &      k1AtC_str(i,j,bi,bj)*umid + k2AtC_str(i,j,bi,bj)*vmid
./pkg/streamice/streamice_visc_beta.F 95 STREAMICE_VISC_BETA 
           visc_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta.F 97 STREAMICE_VISC_BETA 
     &      .5 * (B_glen(i,j,1,bi,bj))**2 *
./pkg/streamice/streamice_visc_beta.F 99 STREAMICE_VISC_BETA 
     &      .5 * (B_glen(i,j,bi,bj))**2 *
./model/src/ini_grid.F 100 INI_GRID 
          recip_rAz(i,j,bi,bj) = 0.
./model/src/ini_grid.F 101 INI_GRID 
          tanPhiAtU(i,j,bi,bj) = 0.
./model/src/ini_grid.F 102 INI_GRID 
          tanPhiAtV(i,j,bi,bj) = 0.
./model/src/ini_grid.F 103 INI_GRID 
          angleCosC(i,j,bi,bj) = 1.
./model/src/ini_grid.F 104 INI_GRID 
          angleSinC(i,j,bi,bj) = 0.
./model/src/ini_grid.F 105 INI_GRID 
          u2zonDir(i,j,bi,bj)  = 1.
./model/src/ini_grid.F 106 INI_GRID 
          v2zonDir(i,j,bi,bj)  = 0.
./model/src/ini_grid.F 108 INI_GRID 
         cosFacU(j,bi,bj)   = 1.
./model/src/ini_grid.F 109 INI_GRID 
         cosFacV(j,bi,bj)   = 1.
./model/src/ini_grid.F 110 INI_GRID 
         sqCosFacU(j,bi,bj) = 1.
./model/src/ini_grid.F 111 INI_GRID 
         sqCosFacV(j,bi,bj) = 1.
./model/src/ini_grid.F 152 INI_GRID 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_grid.F 156 INI_GRID 
          IF ( dxG(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 157 INI_GRID 
     &    recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj)
./model/src/ini_grid.F 158 INI_GRID 
          IF ( dyG(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 159 INI_GRID 
     &    recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj)
./model/src/ini_grid.F 160 INI_GRID 
          IF ( dxC(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 161 INI_GRID 
     &    recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj)
./model/src/ini_grid.F 162 INI_GRID 
          IF ( dyC(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 163 INI_GRID 
     &    recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj)
./model/src/ini_grid.F 164 INI_GRID 
          IF ( dxF(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 165 INI_GRID 
     &    recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj)
./model/src/ini_grid.F 166 INI_GRID 
          IF ( dyF(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 167 INI_GRID 
     &    recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj)
./model/src/ini_grid.F 168 INI_GRID 
          IF ( dxV(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 169 INI_GRID 
     &    recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj)
./model/src/ini_grid.F 170 INI_GRID 
          IF ( dyU(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 171 INI_GRID 
     &    recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj)
./model/src/ini_grid.F 172 INI_GRID 
          IF ( rA (i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 173 INI_GRID 
     &    recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj)
./model/src/ini_grid.F 174 INI_GRID 
          IF ( rAs(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 175 INI_GRID 
     &    recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj)
./model/src/ini_grid.F 176 INI_GRID 
          IF ( rAw(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 177 INI_GRID 
     &    recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj)
./model/src/ini_grid.F 178 INI_GRID 
          IF ( rAz(i,j,bi,bj) .NE. 0. )
./model/src/ini_grid.F 179 INI_GRID 
     &    recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj)
./model/src/ini_grid.F 52 INI_GRID 
      INTEGER bi, bj
./model/src/ini_grid.F 69 INI_GRID 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_grid.F 73 INI_GRID 
          xC(i,j,bi,bj)  = 0.
./model/src/ini_grid.F 74 INI_GRID 
          yC(i,j,bi,bj)  = 0.
./model/src/ini_grid.F 75 INI_GRID 
          xG(i,j,bi,bj)  = 0.
./model/src/ini_grid.F 76 INI_GRID 
          yG(i,j,bi,bj)  = 0.
./model/src/ini_grid.F 77 INI_GRID 
          dxC(i,j,bi,bj) = 0.
./model/src/ini_grid.F 78 INI_GRID 
          dyC(i,j,bi,bj) = 0.
./model/src/ini_grid.F 79 INI_GRID 
          dxG(i,j,bi,bj) = 0.
./model/src/ini_grid.F 80 INI_GRID 
          dyG(i,j,bi,bj) = 0.
./model/src/ini_grid.F 81 INI_GRID 
          dxF(i,j,bi,bj) = 0.
./model/src/ini_grid.F 82 INI_GRID 
          dyF(i,j,bi,bj) = 0.
./model/src/ini_grid.F 83 INI_GRID 
          dxV(i,j,bi,bj) = 0.
./model/src/ini_grid.F 84 INI_GRID 
          dyU(i,j,bi,bj) = 0.
./model/src/ini_grid.F 85 INI_GRID 
          rA(i,j,bi,bj)  = 0.
./model/src/ini_grid.F 86 INI_GRID 
          rAz(i,j,bi,bj) = 0.
./model/src/ini_grid.F 87 INI_GRID 
          rAw(i,j,bi,bj) = 0.
./model/src/ini_grid.F 88 INI_GRID 
          rAs(i,j,bi,bj) = 0.
./model/src/ini_grid.F 89 INI_GRID 
          recip_dxG(i,j,bi,bj) = 0.
./model/src/ini_grid.F 90 INI_GRID 
          recip_dyG(i,j,bi,bj) = 0.
./model/src/ini_grid.F 91 INI_GRID 
          recip_dxC(i,j,bi,bj) = 0.
./model/src/ini_grid.F 92 INI_GRID 
          recip_dyC(i,j,bi,bj) = 0.
./model/src/ini_grid.F 93 INI_GRID 
          recip_dxF(i,j,bi,bj) = 0.
./model/src/ini_grid.F 94 INI_GRID 
          recip_dyF(i,j,bi,bj) = 0.
./model/src/ini_grid.F 95 INI_GRID 
          recip_dxV(i,j,bi,bj) = 0.
./model/src/ini_grid.F 96 INI_GRID 
          recip_dyU(i,j,bi,bj) = 0.
./model/src/ini_grid.F 97 INI_GRID 
          recip_rA (i,j,bi,bj) = 0.
./model/src/ini_grid.F 98 INI_GRID 
          recip_rAs(i,j,bi,bj) = 0.
./model/src/ini_grid.F 99 INI_GRID 
          recip_rAw(i,j,bi,bj) = 0.
./pkg/streamice/streamice_visc_beta_hybrid.F 108 STREAMICE_VISC_BETA_HYBRID 
          act2 = bj - myByLo(myThid)
./pkg/streamice/streamice_visc_beta_hybrid.F 126 STREAMICE_VISC_BETA_HYBRID 
            streamice_vert_shear_uz (m) = streamice_taubx(i,j,bi,bj) /
./pkg/streamice/streamice_visc_beta_hybrid.F 127 STREAMICE_VISC_BETA_HYBRID 
     &       visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 130 STREAMICE_VISC_BETA_HYBRID 
            streamice_vert_shear_vz (m) = streamice_tauby(i,j,bi,bj) /
./pkg/streamice/streamice_visc_beta_hybrid.F 131 STREAMICE_VISC_BETA_HYBRID 
     &       visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 140 STREAMICE_VISC_BETA_HYBRID 
            visc_streamice_full(i,j,m,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F 141 STREAMICE_VISC_BETA_HYBRID 
     &       .5 * B_glen(i,j,m,bi,bj)**2 *
./pkg/streamice/streamice_visc_beta_hybrid.F 144 STREAMICE_VISC_BETA_HYBRID 
            visc_streamice_full(i,j,m,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F 145 STREAMICE_VISC_BETA_HYBRID 
     &       .5 * B_glen(i,j,bi,bj)**2 *
./pkg/streamice/streamice_visc_beta_hybrid.F 149 STREAMICE_VISC_BETA_HYBRID 
            visc_streamice (i,j,bi,bj) = visc_streamice (i,j,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F 150 STREAMICE_VISC_BETA_HYBRID 
     &       H_streamice(i,j,bi,bj) * streamice_delsigma (m) *
./pkg/streamice/streamice_visc_beta_hybrid.F 151 STREAMICE_VISC_BETA_HYBRID 
     &       visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 155 STREAMICE_VISC_BETA_HYBRID 
     &       visc_streamice_full(i,j,m,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 159 STREAMICE_VISC_BETA_HYBRID 
     &       H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 163 STREAMICE_VISC_BETA_HYBRID 
     &       H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 172 STREAMICE_VISC_BETA_HYBRID 
            streamice_omega(i,j,bi,bj) = streamice_omega(i,j,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F 174 STREAMICE_VISC_BETA_HYBRID 
     &       * H_streamice(i,j,bi,bj)**2
./pkg/streamice/streamice_visc_beta_hybrid.F 184 STREAMICE_VISC_BETA_HYBRID 
           streamice_u_surf(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F 187 STREAMICE_VISC_BETA_HYBRID 
           streamice_v_surf(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F 190 STREAMICE_VISC_BETA_HYBRID 
           ub = umid - streamice_taubx(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 191 STREAMICE_VISC_BETA_HYBRID 
     &      streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 193 STREAMICE_VISC_BETA_HYBRID 
           streamice_u_bed (i,j,bi,bj) = ub
./pkg/streamice/streamice_visc_beta_hybrid.F 195 STREAMICE_VISC_BETA_HYBRID 
           vb = vmid - streamice_tauby(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 196 STREAMICE_VISC_BETA_HYBRID 
     &      streamice_omega(i,j,bi,bj) / H_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 198 STREAMICE_VISC_BETA_HYBRID 
           streamice_v_bed (i,j,bi,bj) = vb
./pkg/streamice/streamice_visc_beta_hybrid.F 202 STREAMICE_VISC_BETA_HYBRID 
           fb = C_basal_friction(i,j,bi,bj)**2 *
./pkg/streamice/streamice_visc_beta_hybrid.F 204 STREAMICE_VISC_BETA_HYBRID 
     &      streamice_basal_geom(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 205 STREAMICE_VISC_BETA_HYBRID 
     &      float_frac_streamice(i,j,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 207 STREAMICE_VISC_BETA_HYBRID 
           tau_beta_eff_streamice(i,j,bi,bj) =
./pkg/streamice/streamice_visc_beta_hybrid.F 209 STREAMICE_VISC_BETA_HYBRID 
     &       (1+fb*streamice_omega(i,j,bi,bj)/H_streamice(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F 39 STREAMICE_VISC_BETA_HYBRID 
      INTEGER i, j, bi, bj, k, l, m
./pkg/streamice/streamice_visc_beta_hybrid.F 49 STREAMICE_VISC_BETA_HYBRID 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/streamice/streamice_visc_beta_hybrid.F 53 STREAMICE_VISC_BETA_HYBRID 
          IF (STREAMICE_hmask(i,j,bi,bj).eq.1) THEN
./pkg/streamice/streamice_visc_beta_hybrid.F 61 STREAMICE_VISC_BETA_HYBRID 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 62 STREAMICE_VISC_BETA_HYBRID 
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 63 STREAMICE_VISC_BETA_HYBRID 
     &        U_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 65 STREAMICE_VISC_BETA_HYBRID 
     &        dxG(i,j+l,bi,bj)*dyG(i+k,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 66 STREAMICE_VISC_BETA_HYBRID 
     &        recip_rA(i,j,bi,bj) *
./pkg/streamice/streamice_visc_beta_hybrid.F 67 STREAMICE_VISC_BETA_HYBRID 
     &        V_streamice(i+k,j+l,bi,bj)
./pkg/streamice/streamice_visc_beta_hybrid.F 71 STREAMICE_VISC_BETA_HYBRID 
           ux = (U_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F 72 STREAMICE_VISC_BETA_HYBRID 
     &           U_streamice(i+1,j,bi,bj)   -
./pkg/streamice/streamice_visc_beta_hybrid.F 73 STREAMICE_VISC_BETA_HYBRID 
     &           U_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta_hybrid.F 74 STREAMICE_VISC_BETA_HYBRID 
     &           U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F 75 STREAMICE_VISC_BETA_HYBRID 
     &           (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F 76 STREAMICE_VISC_BETA_HYBRID 
           vx = (V_streamice(i+1,j+1,bi,bj) +
./pkg/streamice/streamice_visc_beta_hybrid.F 77 STREAMICE_VISC_BETA_HYBRID 
     &           V_streamice(i+1,j,bi,bj)   -
./pkg/streamice/streamice_visc_beta_hybrid.F 78 STREAMICE_VISC_BETA_HYBRID 
     &           V_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta_hybrid.F 79 STREAMICE_VISC_BETA_HYBRID 
     &           V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F 80 STREAMICE_VISC_BETA_HYBRID 
     &           (2. * dxF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F 81 STREAMICE_VISC_BETA_HYBRID 
           uy = (U_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F 82 STREAMICE_VISC_BETA_HYBRID 
     &           U_streamice(i+1,j,bi,bj)   +
./pkg/streamice/streamice_visc_beta_hybrid.F 83 STREAMICE_VISC_BETA_HYBRID 
     &           U_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta_hybrid.F 84 STREAMICE_VISC_BETA_HYBRID 
     &           U_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F 85 STREAMICE_VISC_BETA_HYBRID 
     &           (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F 86 STREAMICE_VISC_BETA_HYBRID 
           vy = (V_streamice(i+1,j+1,bi,bj) -
./pkg/streamice/streamice_visc_beta_hybrid.F 87 STREAMICE_VISC_BETA_HYBRID 
     &           V_streamice(i+1,j,bi,bj)   +
./pkg/streamice/streamice_visc_beta_hybrid.F 88 STREAMICE_VISC_BETA_HYBRID 
     &           V_streamice(i,j+1,bi,bj)   -
./pkg/streamice/streamice_visc_beta_hybrid.F 89 STREAMICE_VISC_BETA_HYBRID 
     &           V_streamice(i,j,bi,bj)) /
./pkg/streamice/streamice_visc_beta_hybrid.F 90 STREAMICE_VISC_BETA_HYBRID 
     &           (2. * dyF(i,j,bi,bj))
./pkg/streamice/streamice_visc_beta_hybrid.F 92 STREAMICE_VISC_BETA_HYBRID 
           exx = ux + k1AtC_str(i,j,bi,bj)*vmid
./pkg/streamice/streamice_visc_beta_hybrid.F 93 STREAMICE_VISC_BETA_HYBRID 
           eyy = vy + k2AtC_str(i,j,bi,bj)*umid
./pkg/streamice/streamice_visc_beta_hybrid.F 95 STREAMICE_VISC_BETA_HYBRID 
     &      k1AtC_str(i,j,bi,bj)*umid + k2AtC_str(i,j,bi,bj)*vmid
./pkg/streamice/streamice_visc_beta_hybrid.F 97 STREAMICE_VISC_BETA_HYBRID 
           visc_streamice (i,j,bi,bj) = 0.0
./pkg/streamice/streamice_visc_beta_hybrid.F 98 STREAMICE_VISC_BETA_HYBRID 
           streamice_omega(i,j,bi,bj) = 0.0
./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/ini_linear_phisurf.F 101 INI_LINEAR_PHISURF 
             Bo_surf(i,j,bi,bj)  = recip_rhoConst
./model/src/ini_linear_phisurf.F 102 INI_LINEAR_PHISURF 
             recip_Bo(i,j,bi,bj) = rhoConst
./model/src/ini_linear_phisurf.F 110 INI_LINEAR_PHISURF 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_linear_phisurf.F 114 INI_LINEAR_PHISURF 
            IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 115 INI_LINEAR_PHISURF 
     &          .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/ini_linear_phisurf.F 116 INI_LINEAR_PHISURF 
             pLoc = Ro_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F 119 INI_LINEAR_PHISURF 
     I            tRef(kSurfC(i,j,bi,bj)),
./model/src/ini_linear_phisurf.F 120 INI_LINEAR_PHISURF 
     I            sRef(kSurfC(i,j,bi,bj)),
./model/src/ini_linear_phisurf.F 124 INI_LINEAR_PHISURF 
             k = kSurfC(i,j,bi,bj)
./model/src/ini_linear_phisurf.F 130 INI_LINEAR_PHISURF 
              Bo_surf(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F 132 INI_LINEAR_PHISURF 
              Bo_surf(i,j,bi,bj) = 1. _d 0/rhoLoc
./model/src/ini_linear_phisurf.F 134 INI_LINEAR_PHISURF 
             recip_Bo(i,j,bi,bj) =  rhoLoc
./model/src/ini_linear_phisurf.F 136 INI_LINEAR_PHISURF 
              Bo_surf(i,j,bi,bj)  = 0. _d 0
./model/src/ini_linear_phisurf.F 137 INI_LINEAR_PHISURF 
              recip_Bo(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F 147 INI_LINEAR_PHISURF 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_linear_phisurf.F 153 INI_LINEAR_PHISURF 
             IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 154 INI_LINEAR_PHISURF 
     &          .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/ini_linear_phisurf.F 156 INI_LINEAR_PHISURF 
     &         (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F 157 INI_LINEAR_PHISURF 
              Bo_surf(i,j,bi,bj) = dPIdp*thetaConst
./model/src/ini_linear_phisurf.F 158 INI_LINEAR_PHISURF 
              recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F 160 INI_LINEAR_PHISURF 
              Bo_surf(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F 161 INI_LINEAR_PHISURF 
              recip_Bo(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F 169 INI_LINEAR_PHISURF 
             IF ( Ro_surf(i,j,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 170 INI_LINEAR_PHISURF 
     &          .AND. kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/ini_linear_phisurf.F 172 INI_LINEAR_PHISURF 
     &         (Ro_surf(i,j,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F 173 INI_LINEAR_PHISURF 
              Bo_surf(i,j,bi,bj) = dPIdp*tRef(kSurfC(i,j,bi,bj))
./model/src/ini_linear_phisurf.F 174 INI_LINEAR_PHISURF 
              recip_Bo(i,j,bi,bj) = 1. _d 0 / Bo_surf(i,j,bi,bj)
./model/src/ini_linear_phisurf.F 176 INI_LINEAR_PHISURF 
              Bo_surf(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F 177 INI_LINEAR_PHISURF 
              recip_Bo(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F 203 INI_LINEAR_PHISURF 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_linear_phisurf.F 207 INI_LINEAR_PHISURF 
             phi0surf(i,j,bi,bj) = 0.
./model/src/ini_linear_phisurf.F 48 INI_LINEAR_PHISURF 
      INTEGER bi, bj
./model/src/ini_linear_phisurf.F 56 INI_LINEAR_PHISURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_linear_phisurf.F 60 INI_LINEAR_PHISURF 
           Bo_surf(i,j,bi,bj)  = 0. _d 0
./model/src/ini_linear_phisurf.F 61 INI_LINEAR_PHISURF 
           recip_Bo(i,j,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F 83 INI_LINEAR_PHISURF 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_linear_phisurf.F 87 INI_LINEAR_PHISURF 
             Bo_surf(i,j,bi,bj) = gBaro
./model/src/ini_linear_phisurf.F 88 INI_LINEAR_PHISURF 
             recip_Bo(i,j,bi,bj) = 1. _d 0 / gBaro
./model/src/ini_linear_phisurf.F 95 INI_LINEAR_PHISURF 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_advdiff.F 115 THSICE_ADVDIFF 
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_advdiff.F 157 THSICE_ADVDIFF 
        CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 15 THSICE_ADVDIFF 
     I                  bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_advdiff.F 162 THSICE_ADVDIFF 
     I                   0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 165 THSICE_ADVDIFF 
     I                   0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 171 THSICE_ADVDIFF 
           iceTmp(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 175 THSICE_ADVDIFF 
     I                   Qice1(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 177 THSICE_ADVDIFF 
     I                   0,1,2,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 179 THSICE_ADVDIFF 
     I                   Qice2(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 181 THSICE_ADVDIFF 
     I                   0,1,2,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 191 THSICE_ADVDIFF 
         IF ( hOceMxL(i,j,bi,bj).GT.0. ) maskOce(i,j) = 1.
./pkg/thsice/thsice_advdiff.F 197 THSICE_ADVDIFF 
         oceFWfx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 198 THSICE_ADVDIFF 
         oceSflx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 199 THSICE_ADVDIFF 
         oceQnet(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 213 THSICE_ADVDIFF 
     I              bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_advdiff.F 221 THSICE_ADVDIFF 
          uTrIce(i,j) = uIce(i,j)*_dyG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 227 THSICE_ADVDIFF 
          vTrIce(i,j) = vIce(i,j)*_dxG(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 235 THSICE_ADVDIFF 
          iceFrc(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 248 THSICE_ADVDIFF 
     I       bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_advdiff.F 253 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 259 THSICE_ADVDIFF 
     U       iceVol, snowHeight(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 261 THSICE_ADVDIFF 
     I       bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_advdiff.F 270 THSICE_ADVDIFF 
          iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 271 THSICE_ADVDIFF 
          oldVol(i,j) = iceVol(i,j)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 277 THSICE_ADVDIFF 
     U       iceVol, iceHeight(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 279 THSICE_ADVDIFF 
     I       bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_advdiff.F 294 THSICE_ADVDIFF 
           tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F 301 THSICE_ADVDIFF 
     &                                  i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F 303 THSICE_ADVDIFF 
     &                        iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 306 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 308 THSICE_ADVDIFF 
     &                                  i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F 313 THSICE_ADVDIFF 
     &       'ICE_ADV: area_b,a=', iceMask(i,j,bi,bj), iceFrc(i,j),
./pkg/thsice/thsice_advdiff.F 314 THSICE_ADVDIFF 
     &       ' , Heff_b,a=', oldVol(i,j)*recip_rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 315 THSICE_ADVDIFF 
     &                       iceHeight(i,j,bi,bj)*iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 321 THSICE_ADVDIFF 
     &                    bi,bj,myIter, ' ; Npts,aveDiff,Epsil=',
./pkg/thsice/thsice_advdiff.F 330 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( uTrans, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 332 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( vTrans, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 336 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 338 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 342 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( uTrIce, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 344 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( vTrIce, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 357 THSICE_ADVDIFF 
     U       iceVol, Qice1(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 359 THSICE_ADVDIFF 
     I       bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_advdiff.F 364 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 379 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 381 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 394 THSICE_ADVDIFF 
     U       iceVol, Qice2(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 396 THSICE_ADVDIFF 
     I       bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_advdiff.F 405 THSICE_ADVDIFF 
     &             -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj))
./pkg/thsice/thsice_advdiff.F 412 THSICE_ADVDIFF 
     &                                  i,j,bi,bj,myIter
./pkg/thsice/thsice_advdiff.F 414 THSICE_ADVDIFF 
     &      iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj),
./pkg/thsice/thsice_advdiff.F 417 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 428 THSICE_ADVDIFF 
     &                    bi,bj,myIter, ' ; Npts,aveDiff,Epsil=',
./pkg/thsice/thsice_advdiff.F 436 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( afx, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 438 THSICE_ADVDIFF 
          CALL DIAGNOSTICS_FILL( afy, diagName, 1,1,2,bi,bj, myThid )
./pkg/thsice/thsice_advdiff.F 457 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = 1. _d 0
./pkg/thsice/thsice_advdiff.F 458 THSICE_ADVDIFF 
            iceHeight(i,j,bi,bj)  = iceHeight(i,j,bi,bj) *iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 459 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)*iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 462 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceMaskMin
./pkg/thsice/thsice_advdiff.F 463 THSICE_ADVDIFF 
            iceHeight(i,j,bi,bj)  = iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 465 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 468 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceFrc(i,j)
./pkg/thsice/thsice_advdiff.F 475 THSICE_ADVDIFF 
          IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN
./pkg/thsice/thsice_advdiff.F 476 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 479 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = iceVol(i,j)/hIceMin
./pkg/thsice/thsice_advdiff.F 480 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 481 THSICE_ADVDIFF 
     &                             *hIceMin/iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 482 THSICE_ADVDIFF 
            iceHeight(i,j,bi,bj)  = hIceMin
./pkg/thsice/thsice_advdiff.F 490 THSICE_ADVDIFF 
            oceFWfx(i,j,bi,bj) =  ( rhos*snowHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 491 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 492 THSICE_ADVDIFF 
     &                            )*iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F 493 THSICE_ADVDIFF 
            oceSflx(i,j,bi,bj) =    rhoi*iceHeight(i,j,bi,bj)*saltIce
./pkg/thsice/thsice_advdiff.F 494 THSICE_ADVDIFF 
     &                             *iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F 495 THSICE_ADVDIFF 
            oceQnet(i,j,bi,bj) = -( rhos*snowHeight(i,j,bi,bj)*qsnow
./pkg/thsice/thsice_advdiff.F 496 THSICE_ADVDIFF 
     &                             +rhoi*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 497 THSICE_ADVDIFF 
     &                                  *( Qice1(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 498 THSICE_ADVDIFF 
     &                                    +Qice2(i,j,bi,bj) )*0.5 _d 0
./pkg/thsice/thsice_advdiff.F 499 THSICE_ADVDIFF 
     &                            )*iceMask(i,j,bi,bj)/thSIce_deltaT
./pkg/thsice/thsice_advdiff.F 504 THSICE_ADVDIFF 
            iceMask   (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 505 THSICE_ADVDIFF 
            iceHeight (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 506 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 507 THSICE_ADVDIFF 
            Qice1     (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 508 THSICE_ADVDIFF 
            Qice2     (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 509 THSICE_ADVDIFF 
            snowAge   (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 519 THSICE_ADVDIFF 
           IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_advdiff.F 546 THSICE_ADVDIFF 
        CALL DIAGNOSTICS_FILL(iceMask,'SI_AdvFr',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 551 THSICE_ADVDIFF 
     I                   0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 554 THSICE_ADVDIFF 
     I                   0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 560 THSICE_ADVDIFF 
           iceVol(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_advdiff.F 564 THSICE_ADVDIFF 
     I                   Qice1(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 566 THSICE_ADVDIFF 
     I                   0,1,2,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 568 THSICE_ADVDIFF 
     I                   Qice2(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_advdiff.F 570 THSICE_ADVDIFF 
     I                   0,1,2,bi,bj,myThid)
./pkg/thsice/thsice_advdiff.F 58 THSICE_ADVDIFF 
      INTEGER bi,bj
./pkg/thsice/thsice_advection.F 156 THSICE_ADVECTION 
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_advection.F 187 THSICE_ADVECTION 
       myTile = W2_myTileList(bi,bj)
./pkg/thsice/thsice_advection.F 21 THSICE_ADVECTION 
     I     bi, bj, myTime, myIter, myThid)
./pkg/thsice/thsice_advection.F 222 THSICE_ADVECTION 
     &                * maskInW(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 233 THSICE_ADVECTION 
     &                * maskInS(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 243 THSICE_ADVECTION 
     &                * maskInC(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 252 THSICE_ADVECTION 
     &      withSigns, maskLocW,maskLocS, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 329 THSICE_ADVECTION 
     &                               iceFld, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 332 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 341 THSICE_ADVECTION 
     &          MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj)
./pkg/thsice/thsice_advection.F 342 THSICE_ADVECTION 
     &         +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj)
./pkg/thsice/thsice_advection.F 359 THSICE_ADVECTION 
          CALL GAD_DST2U1_ADV_X( bi,bj,k, advectionScheme, .FALSE.,
./pkg/thsice/thsice_advection.F 368 THSICE_ADVECTION 
          CALL GAD_FLUXLIMIT_ADV_X( bi,bj,k, .FALSE., deltaTadvect,
./pkg/thsice/thsice_advection.F 372 THSICE_ADVECTION 
          CALL GAD_DST3_ADV_X(      bi,bj,k, .FALSE., deltaTadvect,
./pkg/thsice/thsice_advection.F 376 THSICE_ADVECTION 
          CALL GAD_DST3FL_ADV_X(    bi,bj,k, .FALSE., deltaTadvect,
./pkg/thsice/thsice_advection.F 388 THSICE_ADVECTION 
     &                               iceFld, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 391 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 419 THSICE_ADVECTION 
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 452 THSICE_ADVECTION 
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 491 THSICE_ADVECTION 
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 549 THSICE_ADVECTION 
     &                               iceFld, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 552 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 561 THSICE_ADVECTION 
     &          MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj)
./pkg/thsice/thsice_advection.F 562 THSICE_ADVECTION 
     &         +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj)
./pkg/thsice/thsice_advection.F 579 THSICE_ADVECTION 
          CALL GAD_DST2U1_ADV_Y( bi,bj,k, advectionScheme, .FALSE.,
./pkg/thsice/thsice_advection.F 588 THSICE_ADVECTION 
          CALL GAD_FLUXLIMIT_ADV_Y( bi,bj,k, .FALSE., deltaTadvect,
./pkg/thsice/thsice_advection.F 592 THSICE_ADVECTION 
          CALL GAD_DST3_ADV_Y(      bi,bj,k, .FALSE., deltaTadvect,
./pkg/thsice/thsice_advection.F 596 THSICE_ADVECTION 
          CALL GAD_DST3FL_ADV_Y(    bi,bj,k, .FALSE., deltaTadvect,
./pkg/thsice/thsice_advection.F 607 THSICE_ADVECTION 
     &                               iceFld, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 610 THSICE_ADVECTION 
     &                               iceVol, bi,bj, myThid )
./pkg/thsice/thsice_advection.F 638 THSICE_ADVECTION 
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 671 THSICE_ADVECTION 
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 710 THSICE_ADVECTION 
     &                                 *recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 751 THSICE_ADVECTION 
          tmpFac= deltaTadvect*recip_rA(i,j,bi,bj)
./pkg/thsice/thsice_advection.F 767 THSICE_ADVECTION 
     &      afx,afy, k, standardMessageUnit,bi,bj,myThid )
./pkg/thsice/thsice_advection.F 89 THSICE_ADVECTION 
      INTEGER bi,bj
./pkg/thsice/thsice_albedo.F 10 THSICE_ALBEDO 
     I                  bi, bj, siLo, siHi, sjLo, sjHi,
./pkg/thsice/thsice_albedo.F 177 THSICE_ALBEDO 
     &      'THSICE_ALBEDO: Problem, e.g., at:', myIter,ii,jj,bi,bj
./pkg/thsice/thsice_albedo.F 51 THSICE_ALBEDO 
      INTEGER bi,bj
./pkg/thsice/thsice_ave.F 100 THSICE_AVE 
     &                        1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 102 THSICE_AVE 
     &                        1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 104 THSICE_AVE 
     &                        1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 108 THSICE_AVE 
       ice_timeAve(bi,bj) = ice_timeAve(bi,bj)+thSIce_deltaT
./pkg/thsice/thsice_ave.F 10 THSICE_AVE 
     I                       bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_ave.F 130 THSICE_AVE 
        CALL DIAGNOSTICS_FILL(icFlxAtm,'SIflxAtm',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_ave.F 131 THSICE_AVE 
        CALL DIAGNOSTICS_FILL(icFrwAtm,'SIfrwAtm',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_ave.F 136 THSICE_AVE 
       CALL DIAGNOSTICS_FILL_RS(Qnet,    'SIflx2oc',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_ave.F 137 THSICE_AVE 
       CALL DIAGNOSTICS_FILL_RS(EmPmR,   'SIfrw2oc',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_ave.F 138 THSICE_AVE 
       CALL DIAGNOSTICS_FILL_RS(saltFlux,'SIsaltFx',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_ave.F 40 THSICE_AVE 
      INTEGER bi,bj
./pkg/thsice/thsice_ave.F 58 THSICE_AVE 
     &                        1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 61 THSICE_AVE 
     &                    1, 0, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 63 THSICE_AVE 
     &                    1, 0, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 65 THSICE_AVE 
     &                    1, 0, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 67 THSICE_AVE 
     &                    1, 0, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 69 THSICE_AVE 
     &                    1, 0, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 74 THSICE_AVE 
     &                        1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 91 THSICE_AVE 
     &                        1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_ave.F 93 THSICE_AVE 
     &                        1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_balance_frw.F 101 THSICE_BALANCE_FRW 
             icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 102 THSICE_BALANCE_FRW 
     &                           - sumFrW*maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 103 THSICE_BALANCE_FRW 
             EmPmR(i,j,bi,bj)    = EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 104 THSICE_BALANCE_FRW 
     &                           - sumFrW*maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 121 THSICE_BALANCE_FRW 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_balance_frw.F 125 THSICE_BALANCE_FRW 
             tmpVar = tmpFac*MAX( prcAtm(i,j,bi,bj), zeroRL )
./pkg/thsice/thsice_balance_frw.F 126 THSICE_BALANCE_FRW 
     &                      *maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 127 THSICE_BALANCE_FRW 
             icFrwAtm(i,j,bi,bj) = icFrwAtm(i,j,bi,bj) - tmpVar
./pkg/thsice/thsice_balance_frw.F 128 THSICE_BALANCE_FRW 
             EmPmR(i,j,bi,bj)    = EmPmR(i,j,bi,bj)    - tmpVar
./pkg/thsice/thsice_balance_frw.F 52 THSICE_BALANCE_FRW 
      INTEGER bi,bj
./pkg/thsice/thsice_balance_frw.F 62 THSICE_BALANCE_FRW 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_balance_frw.F 64 THSICE_BALANCE_FRW 
          sumTilePrc(bi,bj) = 0. _d 0
./pkg/thsice/thsice_balance_frw.F 65 THSICE_BALANCE_FRW 
          sumTileFrW(bi,bj) = 0. _d 0
./pkg/thsice/thsice_balance_frw.F 68 THSICE_BALANCE_FRW 
            sumTilePrc(bi,bj) = sumTilePrc(bi,bj)
./pkg/thsice/thsice_balance_frw.F 69 THSICE_BALANCE_FRW 
     &                        + MAX( prcAtm(i,j,bi,bj), zeroRL )
./pkg/thsice/thsice_balance_frw.F 70 THSICE_BALANCE_FRW 
     &                         *rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 71 THSICE_BALANCE_FRW 
            sumTileFrW(bi,bj) = sumTileFrW(bi,bj)
./pkg/thsice/thsice_balance_frw.F 72 THSICE_BALANCE_FRW 
     &                        + icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 73 THSICE_BALANCE_FRW 
     &                         *rA(i,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/thsice/thsice_balance_frw.F 97 THSICE_BALANCE_FRW 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_calc_thickn.F 1005 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 1030 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_calc_thickn.F 108 THSICE_CALC_THICKN 
      INTEGER bi,bj
./pkg/thsice/thsice_calc_thickn.F 10 THSICE_CALC_THICKN 
     I                  bi, bj,
./pkg/thsice/thsice_calc_thickn.F 1110 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 1126 THSICE_CALC_THICKN 
         CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 0,
./pkg/thsice/thsice_calc_thickn.F 228 THSICE_CALC_THICKN 
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_calc_thickn.F 399 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 471 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 666 THSICE_CALC_THICKN 
         IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 684 THSICE_CALC_THICKN 
          IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 853 THSICE_CALC_THICKN 
           IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 942 THSICE_CALC_THICKN 
          IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./pkg/thsice/thsice_calc_thickn.F 978 THSICE_CALC_THICKN 
          IF (dBug(i,j,bi,bj) ) WRITE(6,1020)
./model/src/ini_local_grid.F 119 INI_LOCAL_GRID 
        tN = W2_myTileList(bi,bj)
./model/src/ini_local_grid.F 124 INI_LOCAL_GRID 
        jG0 = myYGlobalLo - 1 + (bj-1)*sNy
./model/src/ini_local_grid.F 17 INI_LOCAL_GRID 
     I                           bi, bj, myThid )
./model/src/ini_local_grid.F 64 INI_LOCAL_GRID 
      INTEGER bi, bj
./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_cost_final.F 37 THSICE_COST_FINAL 
      INTEGER bi,bj
./pkg/thsice/thsice_cost_final.F 48 THSICE_COST_FINAL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/thsice/thsice_cost_final.F 51 THSICE_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/thsice/thsice_cost_final.F 52 THSICE_COST_FINAL 
     &          + mult_thsice        * objf_thsice(bi,bj)
./pkg/thsice/thsice_cost_final.F 54 THSICE_COST_FINAL 
          f_thsice = f_thsice + objf_thsice(bi,bj)
./pkg/thsice/thsice_cost_init_varia.F 34 THSICE_COST_INIT_VARIA 
      integer bi,bj
./pkg/thsice/thsice_cost_init_varia.F 49 THSICE_COST_INIT_VARIA 
      do bj = jtlo,jthi
./pkg/thsice/thsice_cost_init_varia.F 52 THSICE_COST_INIT_VARIA 
          objf_thsice(bi,bj)     = 0. _d 0
./pkg/thsice/thsice_cost_init_varia.F 53 THSICE_COST_INIT_VARIA 
          num_thsice(bi,bj)      = 0. _d 0
./pkg/thsice/thsice_cost_test.F 103 THSICE_COST_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_cost_test.F 107 THSICE_COST_TEST 
                        objf_thsice(bi,bj) = objf_thsice(bi,bj) +
./pkg/thsice/thsice_cost_test.F 108 THSICE_COST_TEST 
     &                       tempVar*rA(i,j,bi,bj)*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_cost_test.F 71 THSICE_COST_TEST 
      integer bi,bj,i,j,kSrf
./pkg/thsice/thsice_cost_test.F 90 THSICE_COST_TEST 
            do bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_cost_test.F 94 THSICE_COST_TEST 
                        objf_thsice(bi,bj) = objf_thsice(bi,bj) +
./pkg/thsice/thsice_cost_test.F 95 THSICE_COST_TEST 
     &                       tempVar*rA(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_diagnostics_state.F 47 THSICE_DIAGNOSTICS_STATE 
      INTEGER bi,bj
./pkg/thsice/thsice_diagnostics_state.F 78 THSICE_DIAGNOSTICS_STATE 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_diagnostics_state.F 86 THSICE_DIAGNOSTICS_STATE 
            tmpFld(i,j) = iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_diagnostics_state.F 90 THSICE_DIAGNOSTICS_STATE 
     I                     Qice1(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_diagnostics_state.F 92 THSICE_DIAGNOSTICS_STATE 
     I                     0,1, 2,bi,bj, myThid )
./pkg/thsice/thsice_diagnostics_state.F 94 THSICE_DIAGNOSTICS_STATE 
     I                     Qice2(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_diagnostics_state.F 96 THSICE_DIAGNOSTICS_STATE 
     I                     0,1, 2,bi,bj, myThid )
./pkg/thsice/thsice_diffusion.F 101 THSICE_DIFFUSION 
     &                            *recip_dyC(i,j,bi,bj)/tmpFld
./pkg/thsice/thsice_diffusion.F 13 THSICE_DIFFUSION 
     I                  bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_diffusion.F 50 THSICE_DIFFUSION 
      INTEGER bi,bj
./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 90 THSICE_DIFFUSION 
     &                            *recip_dxC(i,j,bi,bj)/tmpFld
./pkg/thsice/thsice_do_advect.F 109 THSICE_DO_ADVECT 
           IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_do_advect.F 110 THSICE_DO_ADVECT 
            Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F 111 THSICE_DO_ADVECT 
            EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F 112 THSICE_DO_ADVECT 
            saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F 115 THSICE_DO_ADVECT 
           sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_do_advect.F 116 THSICE_DO_ADVECT 
     &                           + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_do_advect.F 117 THSICE_DO_ADVECT 
     &                           )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_do_advect.F 123 THSICE_DO_ADVECT 
     I                     bi,bj, myTime, myIter, myThid )
./pkg/thsice/thsice_do_advect.F 141 THSICE_DO_ADVECT 
         bj = bjArg
./pkg/thsice/thsice_do_advect.F 144 THSICE_DO_ADVECT 
     I                        bi,bj, myTime, myIter, myThid )
./pkg/thsice/thsice_do_advect.F 147 THSICE_DO_ADVECT 
     I                        bi,bj, myTime, myIter, myThid )
./pkg/thsice/thsice_do_advect.F 50 THSICE_DO_ADVECT 
      INTEGER bi, bj
./pkg/thsice/thsice_do_advect.F 68 THSICE_DO_ADVECT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/thsice/thsice_do_advect.F 73 THSICE_DO_ADVECT 
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_do_advect.F 85 THSICE_DO_ADVECT 
     I                        bi,bj, myTime, myIter, myThid )
./pkg/thsice/thsice_do_advect.F 96 THSICE_DO_ADVECT 
     I                        bi,bj, myTime, myIter, myThid )
./model/src/ini_masks_etc.F 103 INI_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/ini_masks_etc.F 110 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F 112 INI_MASKS_ETC 
           hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 118 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 120 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F 123 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 145 INI_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/ini_masks_etc.F 149 INI_MASKS_ETC 
          tmpfld(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 150 INI_MASKS_ETC 
          kSurfC(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 152 INI_MASKS_ETC 
          Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 154 INI_MASKS_ETC 
           Ro_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_masks_etc.F 155 INI_MASKS_ETC 
     &                        + drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 156 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj).NE.0.) THEN
./model/src/ini_masks_etc.F 157 INI_MASKS_ETC 
            kSurfC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 159 INI_MASKS_ETC 
            tmpfld(i,j,bi,bj) = tmpfld(i,j,bi,bj) + 1.
./model/src/ini_masks_etc.F 162 INI_MASKS_ETC 
          kLowC(i,j,bi,bj) = 0
./model/src/ini_masks_etc.F 164 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj).NE.0) THEN
./model/src/ini_masks_etc.F 165 INI_MASKS_ETC 
              kLowC(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 168 INI_MASKS_ETC 
          maskInC(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 169 INI_MASKS_ETC 
          IF ( kSurfC(i,j,bi,bj).LE.Nr ) maskInC(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 186 INI_MASKS_ETC 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_masks_etc.F 192 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 194 INI_MASKS_ETC 
          IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN
./model/src/ini_masks_etc.F 195 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 197 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/ini_masks_etc.F 205 INI_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/ini_masks_etc.F 209 INI_MASKS_ETC 
          hFacW(1-OLx,j,k,bi,bj)= 0.
./model/src/ini_masks_etc.F 211 INI_MASKS_ETC 
           hFacW(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F 212 INI_MASKS_ETC 
     &       MIN(hFacC(i,j,k,bi,bj),hFacC(i-1,j,k,bi,bj))
./model/src/ini_masks_etc.F 216 INI_MASKS_ETC 
           hFacS(i,1-OLy,k,bi,bj)= 0.
./model/src/ini_masks_etc.F 220 INI_MASKS_ETC 
           hFacS(i,j,k,bi,bj)=
./model/src/ini_masks_etc.F 221 INI_MASKS_ETC 
     &       MIN(hFacC(i,j,k,bi,bj),hFacC(i,j-1,k,bi,bj))
./model/src/ini_masks_etc.F 228 INI_MASKS_ETC 
           rLowW (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 229 INI_MASKS_ETC 
           rSurfW(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 233 INI_MASKS_ETC 
           rLowS (i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 234 INI_MASKS_ETC 
           rSurfS(i,j,bi,bj) = 0.
./model/src/ini_masks_etc.F 238 INI_MASKS_ETC 
           rLowW(i,j,bi,bj)  =
./model/src/ini_masks_etc.F 239 INI_MASKS_ETC 
     &           MAX(   R_low(i-1,j,bi,bj),   R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F 240 INI_MASKS_ETC 
           rSurfW(i,j,bi,bj) =
./model/src/ini_masks_etc.F 241 INI_MASKS_ETC 
     &           MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 242 INI_MASKS_ETC 
           rSurfW(i,j,bi,bj) =
./model/src/ini_masks_etc.F 243 INI_MASKS_ETC 
     &           MAX( rSurfW(i,j,bi,bj), rLowW(i,j,bi,bj) )
./model/src/ini_masks_etc.F 248 INI_MASKS_ETC 
           rLowS(i,j,bi,bj)  =
./model/src/ini_masks_etc.F 249 INI_MASKS_ETC 
     &           MAX(   R_low(i,j-1,bi,bj),   R_low(i,j,bi,bj) )
./model/src/ini_masks_etc.F 250 INI_MASKS_ETC 
           rSurfS(i,j,bi,bj) =
./model/src/ini_masks_etc.F 251 INI_MASKS_ETC 
     &           MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) )
./model/src/ini_masks_etc.F 252 INI_MASKS_ETC 
           rSurfS(i,j,bi,bj) =
./model/src/ini_masks_etc.F 253 INI_MASKS_ETC 
     &           MAX( rSurfS(i,j,bi,bj), rLowS(i,j,bi,bj) )
./model/src/ini_masks_etc.F 269 INI_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/ini_masks_etc.F 273 INI_MASKS_ETC 
          kSurfW(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 274 INI_MASKS_ETC 
          kSurfS(i,j,bi,bj) = Nr+1
./model/src/ini_masks_etc.F 276 INI_MASKS_ETC 
           IF (hFacW(i,j,k,bi,bj).NE.0.) kSurfW(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 277 INI_MASKS_ETC 
           IF (hFacS(i,j,k,bi,bj).NE.0.) kSurfS(i,j,bi,bj) = k
./model/src/ini_masks_etc.F 279 INI_MASKS_ETC 
          maskInW(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 280 INI_MASKS_ETC 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) maskInW(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 281 INI_MASKS_ETC 
          maskInS(i,j,bi,bj)= 0.
./model/src/ini_masks_etc.F 282 INI_MASKS_ETC 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) maskInS(i,j,bi,bj)= 1.
./model/src/ini_masks_etc.F 311 INI_MASKS_ETC 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_masks_etc.F 316 INI_MASKS_ETC 
           IF (hFacC(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 317 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 318 INI_MASKS_ETC 
            maskC(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 320 INI_MASKS_ETC 
            recip_hFacC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 321 INI_MASKS_ETC 
            maskC(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 323 INI_MASKS_ETC 
           IF (hFacW(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 324 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 325 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 327 INI_MASKS_ETC 
            recip_hFacW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 328 INI_MASKS_ETC 
            maskW(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 330 INI_MASKS_ETC 
           IF (hFacS(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/ini_masks_etc.F 331 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 332 INI_MASKS_ETC 
            maskS(i,j,k,bi,bj) = 1.
./model/src/ini_masks_etc.F 334 INI_MASKS_ETC 
            recip_hFacS(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 335 INI_MASKS_ETC 
            maskS(i,j,k,bi,bj) = 0.
./model/src/ini_masks_etc.F 347 INI_MASKS_ETC 
           h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 348 INI_MASKS_ETC 
           h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 349 INI_MASKS_ETC 
           h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 46 INI_MASKS_ETC 
      INTEGER bi, bj
./model/src/ini_masks_etc.F 59 INI_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/ini_masks_etc.F 66 INI_MASKS_ETC 
           hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k)
./model/src/ini_masks_etc.F 72 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=0.
./model/src/ini_masks_etc.F 74 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacMnSz
./model/src/ini_masks_etc.F 77 INI_MASKS_ETC 
             hFacC(i,j,k,bi,bj)=hFacCtmp
./model/src/ini_masks_etc.F 86 INI_MASKS_ETC 
          R_low(i,j,bi,bj) = rF(1)
./model/src/ini_masks_etc.F 92 INI_MASKS_ETC 
           R_low(i,j,bi,bj) = R_low(i,j,bi,bj)
./model/src/ini_masks_etc.F 93 INI_MASKS_ETC 
     &                      - drF(k)*hFacC(i,j,k,bi,bj)
./pkg/thsice/thsice_extend.F 10 THSICE_EXTEND 
     I                  bi, bj,
./pkg/thsice/thsice_extend.F 137 THSICE_EXTEND 
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_extend.F 228 THSICE_EXTEND 
        IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_extend.F 236 THSICE_EXTEND 
          CALL THSICE_CHECK_CONSERV( dBugFlag, i, j, bi, bj, 1,
./pkg/thsice/thsice_extend.F 68 THSICE_EXTEND 
      INTEGER bi,bj
./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 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 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 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 13 THSICE_GET_BULKF 
     I                  bi, bj,
./pkg/thsice/thsice_get_bulkf.F 51 THSICE_GET_BULKF 
      INTEGER bi, bj
./pkg/thsice/thsice_get_exf.F 13 THSICE_GET_EXF 
     I                  bi, bj, it2,
./pkg/thsice/thsice_get_exf.F 206 THSICE_GET_EXF 
        IF ( dBug(i,j,bi,bj) .AND. (icFlag(i,j).GT.0. _d 0) )
./pkg/thsice/thsice_get_exf.F 209 THSICE_GET_EXF 
     &           i,j,bi,bj, atemp(i,j,bi,bj),lwdown(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 215 THSICE_GET_EXF 
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_get_exf.F 231 THSICE_GET_EXF 
     &       (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F 244 THSICE_GET_EXF 
         wsm         = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 250 THSICE_GET_EXF 
         atmrho_loc(i,j) = apressure(i,j,bi,bj) /
./pkg/thsice/thsice_get_exf.F 251 THSICE_GET_EXF 
     &                  (287.04 _d 0*atemp(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 252 THSICE_GET_EXF 
     &                  *(1. _d 0 + humid_fac*aqh(i,j,bi,bj)))
./pkg/thsice/thsice_get_exf.F 257 THSICE_GET_EXF 
         deltap(i,j) = atemp(i,j,bi,bj) + gamma_blk*ht - Tsf
./pkg/thsice/thsice_get_exf.F 258 THSICE_GET_EXF 
         delq(i,j)   = aqh(i,j,bi,bj) - ssq(i,j)
./pkg/thsice/thsice_get_exf.F 268 THSICE_GET_EXF 
         flwNet_dwn  = emiss*lwdown(i,j,bi,bj) - flwup
./pkg/thsice/thsice_get_exf.F 285 THSICE_GET_EXF 
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_get_exf.F 301 THSICE_GET_EXF 
     &        (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F 307 THSICE_GET_EXF 
          t0         = atemp(i,j,bi,bj)*
./pkg/thsice/thsice_get_exf.F 308 THSICE_GET_EXF 
     &         (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 311 THSICE_GET_EXF 
          wsm        = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 334 THSICE_GET_EXF 
     &         (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F 352 THSICE_GET_EXF 
           t0     = atemp(i,j,bi,bj)*
./pkg/thsice/thsice_get_exf.F 353 THSICE_GET_EXF 
     &          (exf_one + humid_fac*aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 355 THSICE_GET_EXF 
     &               qstar(i,j)/(exf_one/humid_fac+aqh(i,j,bi,bj))
./pkg/thsice/thsice_get_exf.F 396 THSICE_GET_EXF 
           usn    = wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 400 THSICE_GET_EXF 
           usn   = sh(i,j,bi,bj)/(exf_one - rdn(i,j)/karman*psimh)
./pkg/thsice/thsice_get_exf.F 421 THSICE_GET_EXF 
           ustar(i,j)  = rd(i,j)*sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 433 THSICE_GET_EXF 
     &        (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F 435 THSICE_GET_EXF 
          tau     = atmrho_loc(i,j)*rd(i,j)*wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 437 THSICE_GET_EXF 
          tau     = atmrho*rd(i,j)*wspeed(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 465 THSICE_GET_EXF 
     &        (atemp(i,j,bi,bj).NE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F 466 THSICE_GET_EXF 
          wsm           = sh(i,j,bi,bj)
./pkg/thsice/thsice_get_exf.F 481 THSICE_GET_EXF 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)')
./pkg/thsice/thsice_get_exf.F 499 THSICE_GET_EXF 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,4F12.6)')
./pkg/thsice/thsice_get_exf.F 512 THSICE_GET_EXF 
     &       (atemp(i,j,bi,bj).LE.0. _d 0) ) THEN
./pkg/thsice/thsice_get_exf.F 61 THSICE_GET_EXF 
      INTEGER bi, bj
./pkg/thsice/thsice_get_ocean.F 100 THSICE_GET_OCEAN 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F 101 THSICE_GET_OCEAN 
          icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F 102 THSICE_GET_OCEAN 
          siceAlb (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F 108 THSICE_GET_OCEAN 
           v2ocMxL(i,j,bi,bj) =
./pkg/thsice/thsice_get_ocean.F 109 THSICE_GET_OCEAN 
     &              ( uVel(i,j,ks,bi,bj) * uVel(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 110 THSICE_GET_OCEAN 
     &              + uVel(i+1,j,ks,bi,bj)*uVel(i+1,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 111 THSICE_GET_OCEAN 
     &              + vVel(i,j+1,ks,bi,bj)*vVel(i,j+1,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 112 THSICE_GET_OCEAN 
     &              + vVel(i,j,ks,bi,bj) * vVel(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 120 THSICE_GET_OCEAN 
           uRel1 = uVel( i, j,ks,bi,bj)-uIce( i, j,bi,bj)
./pkg/thsice/thsice_get_ocean.F 121 THSICE_GET_OCEAN 
           uRel2 = uVel(i+1,j,ks,bi,bj)-uIce(i+1,j,bi,bj)
./pkg/thsice/thsice_get_ocean.F 122 THSICE_GET_OCEAN 
           vRel1 = vVel(i, j, ks,bi,bj)-vIce(i, j, bi,bj)
./pkg/thsice/thsice_get_ocean.F 123 THSICE_GET_OCEAN 
           vRel2 = vVel(i,j+1,ks,bi,bj)-vIce(i,j+1,bi,bj)
./pkg/thsice/thsice_get_ocean.F 124 THSICE_GET_OCEAN 
           v2ocMxL(i,j,bi,bj) =
./pkg/thsice/thsice_get_ocean.F 13 THSICE_GET_OCEAN 
     I                        bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_get_ocean.F 46 THSICE_GET_OCEAN 
      INTEGER bi, bj
./pkg/thsice/thsice_get_ocean.F 68 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*h0FacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 69 THSICE_GET_OCEAN 
     &                                   *rStarFacC(i,j,bi,bj)
./pkg/thsice/thsice_get_ocean.F 75 THSICE_GET_OCEAN 
            IF ( kSurfC(i,j,bi,bj).EQ.1 ) THEN
./pkg/thsice/thsice_get_ocean.F 76 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj)
./pkg/thsice/thsice_get_ocean.F 78 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 89 THSICE_GET_OCEAN 
             hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 96 THSICE_GET_OCEAN 
          tOceMxL(i,j,bi,bj) = theta(i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 97 THSICE_GET_OCEAN 
          sOceMxL(i,j,bi,bj) = salt (i,j,ks,bi,bj)
./pkg/thsice/thsice_get_ocean.F 98 THSICE_GET_OCEAN 
          v2ocMxL(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_ocean.F 99 THSICE_GET_OCEAN 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_get_precip.F 107 THSICE_GET_PRECIP 
     &           ( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F 108 THSICE_GET_PRECIP 
     &          *( rain(i,j,bi,bj)*rhofw - snowPrc(i,j) )
./pkg/thsice/thsice_get_precip.F 109 THSICE_GET_PRECIP 
     &         + ( locSST(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F 110 THSICE_GET_PRECIP 
     &          *runoff(i,j,bi,bj)*rhofw )
./pkg/thsice/thsice_get_precip.F 126 THSICE_GET_PRECIP 
          precip(i,j) = cheapPrecip(i,j,bi,bj)
./pkg/thsice/thsice_get_precip.F 137 THSICE_GET_PRECIP 
          IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_get_precip.F 138 THSICE_GET_PRECIP 
     &      .AND. Tair(i,j,bi,bj).LT.zeroRL )  THEN
./pkg/thsice/thsice_get_precip.F 139 THSICE_GET_PRECIP 
             snowPrc(i,j) = cheapPrecip(i,j,bi,bj)
./pkg/thsice/thsice_get_precip.F 153 THSICE_GET_PRECIP 
     &           ( Tair(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_get_precip.F 154 THSICE_GET_PRECIP 
     &          *( cheapPrecip(i,j,bi,bj) - snowPrc(i,j) )
./pkg/thsice/thsice_get_precip.F 18 THSICE_GET_PRECIP 
     I                  iMin,iMax,jMin,jMax, bi,bj, myThid )
./pkg/thsice/thsice_get_precip.F 62 THSICE_GET_PRECIP 
      INTEGER bi,bj
./pkg/thsice/thsice_get_precip.F 79 THSICE_GET_PRECIP 
          precip(i,j) = ( rain(i,j,bi,bj)+runoff(i,j,bi,bj) )*rhofw
./pkg/thsice/thsice_get_precip.F 80 THSICE_GET_PRECIP 
          flxSW (i,j) = solar(i,j,bi,bj)
./pkg/thsice/thsice_get_precip.F 90 THSICE_GET_PRECIP 
          IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_get_precip.F 91 THSICE_GET_PRECIP 
     &      .AND. Tair(i,j,bi,bj).LE.Tf0kel )  THEN
./pkg/thsice/thsice_get_precip.F 92 THSICE_GET_PRECIP 
             snowPrc(i,j) = rain(i,j,bi,bj)*rhofw
./pkg/thsice/thsice_get_velocity.F 16 THSICE_GET_VELOCITY 
     I                  bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_get_velocity.F 49 THSICE_GET_VELOCITY 
      INTEGER bi,bj
./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_impl_temp.F 102 THSICE_IMPL_TEMP 
     I          bi, bj,
./pkg/thsice/thsice_impl_temp.F 104 THSICE_IMPL_TEMP 
     I          iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_impl_temp.F 105 THSICE_IMPL_TEMP 
     I          snowHeight(siLo,sjLo,bi,bj), tFrzOce, sFlx,
./pkg/thsice/thsice_impl_temp.F 106 THSICE_IMPL_TEMP 
     U          icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_impl_temp.F 107 THSICE_IMPL_TEMP 
     U          Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_impl_temp.F 108 THSICE_IMPL_TEMP 
     O          Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsurf,
./pkg/thsice/thsice_impl_temp.F 109 THSICE_IMPL_TEMP 
     O          sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_impl_temp.F 110 THSICE_IMPL_TEMP 
     O          icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_impl_temp.F 11 THSICE_IMPL_TEMP 
     I                bi, bj, myTime, myIter, myThid)
./pkg/thsice/thsice_impl_temp.F 47 THSICE_IMPL_TEMP 
      INTEGER bi,bj
./pkg/thsice/thsice_impl_temp.F 83 THSICE_IMPL_TEMP 
        icFlxSW(i,j,bi,bj) = netSW(i,j)
./pkg/thsice/thsice_impl_temp.F 84 THSICE_IMPL_TEMP 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_impl_temp.F 85 THSICE_IMPL_TEMP 
          tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_impl_temp.F 87 THSICE_IMPL_TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_impl_temp.F 88 THSICE_IMPL_TEMP 
           WRITE(6,'(A,2I4,2I2)') 'ThSI_IMPL_T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_impl_temp.F 90 THSICE_IMPL_TEMP 
     &                   iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_impl_temp.F 91 THSICE_IMPL_TEMP 
     &                   snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_impl_temp.F 93 THSICE_IMPL_TEMP 
     &           Tice1(i,j,bi,bj), Tice2(i,j,bi,bj),
./pkg/thsice/thsice_impl_temp.F 94 THSICE_IMPL_TEMP 
     &           Qice1(i,j,bi,bj), Qice2(i,j,bi,bj)
./pkg/thsice/thsice_ini_vars.F 100 THSICE_INI_VARS 
             IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 )
./pkg/thsice/thsice_ini_vars.F 101 THSICE_INI_VARS 
     &       hOceMxL(i,j,bi,bj) = 0.
./pkg/thsice/thsice_ini_vars.F 145 THSICE_INI_VARS 
         DO bj = myByLo(myThid), myByHi(myThid)
./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 173 THSICE_INI_VARS 
       DO bj = myByLo(myThid), myByHi(myThid)
./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 45 THSICE_INI_VARS 
      INTEGER bi, bj
./pkg/thsice/thsice_ini_vars.F 53 THSICE_INI_VARS 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 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 
            siceAlb(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 75 THSICE_INI_VARS 
            icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 76 THSICE_INI_VARS 
            icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 77 THSICE_INI_VARS 
            icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 79 THSICE_INI_VARS 
            oceFWfx(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 80 THSICE_INI_VARS 
            oceSflx(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 81 THSICE_INI_VARS 
            oceQnet(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 88 THSICE_INI_VARS 
             hOceMxL(i,j,bi,bj) = hMxL_default
./pkg/thsice/thsice_ini_vars.F 89 THSICE_INI_VARS 
             tOceMxL(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 90 THSICE_INI_VARS 
             sOceMxL(i,j,bi,bj) = sMxL_default
./pkg/thsice/thsice_ini_vars.F 91 THSICE_INI_VARS 
             v2ocMxL(i,j,bi,bj) = v2Loc
./pkg/thsice/thsice_main.F 112 THSICE_MAIN 
          prcAtm  (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 122 THSICE_MAIN 
     I                          bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_main.F 158 THSICE_MAIN 
     I                   bi,bj, myTime, myIter, myThid )
./pkg/thsice/thsice_main.F 165 THSICE_MAIN 
     O                  prcAtm(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_main.F 167 THSICE_MAIN 
     O                  icFlxSW(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_main.F 168 THSICE_MAIN 
     I                  iMin,iMax,jMin,jMax, bi,bj, myThid )
./pkg/thsice/thsice_main.F 174 THSICE_MAIN 
     O                  prcAtm(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_main.F 176 THSICE_MAIN 
     O                  icFlxSW(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_main.F 177 THSICE_MAIN 
     I                  iMin,iMax,jMin,jMax, bi,bj, myThid )
./pkg/thsice/thsice_main.F 191 THSICE_MAIN 
     I                     bi, bj, iMin, iMax, jMin, jMax,
./pkg/thsice/thsice_main.F 221 THSICE_MAIN 
     I                     bi, bj, iMin, iMax, jMin, jMax,
./pkg/thsice/thsice_main.F 222 THSICE_MAIN 
     I                     prcAtm(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_main.F 273 THSICE_MAIN 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_main.F 278 THSICE_MAIN 
          act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_main.F 296 THSICE_MAIN 
     I                     bi,bj, myTime, myIter, myThid )
./pkg/thsice/thsice_main.F 308 THSICE_MAIN 
     &             *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 309 THSICE_MAIN 
            fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj)
./pkg/thsice/thsice_main.F 315 THSICE_MAIN 
     &             *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 316 THSICE_MAIN 
            fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj)
./pkg/thsice/thsice_main.F 65 THSICE_MAIN 
      INTEGER bi,bj
./pkg/thsice/thsice_main.F 85 THSICE_MAIN 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/thsice/thsice_main.F 91 THSICE_MAIN 
          act2 = bj - myByLo(myThid)
./model/src/ini_mixing.F 48 INI_MIXING 
      INTEGER bi, bj
./model/src/ini_mixing.F 52 INI_MIXING 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_mixing.F 58 INI_MIXING 
            diffKr(i,j,k,bi,bj) = diffKrNrS(k)
./model/src/ini_mixing.F 62 INI_MIXING 
            KapGM(i,j,k,bi,bj) = GM_background_K
./model/src/ini_mixing.F 65 INI_MIXING 
            kapRedi(i,j,k,bi,bj) = GM_isopycK
./model/src/ini_mixing.F 75 INI_MIXING 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_mixing.F 79 INI_MIXING 
           BL79LatArray(i,j,bi,bj) = 0.0 _d 0
./model/src/ini_mixing.F 80 INI_MIXING 
           IF ( abs(YC(i,j,bi,bj)) .LT. BL79LatVary )
./model/src/ini_mixing.F 81 INI_MIXING 
     &          BL79LatArray(i,j,bi,bj) =
./model/src/ini_mixing.F 82 INI_MIXING 
     &          ( 1 + cos(YC(i,j,bi,bj)*pi/BL79LatVary) ) / 2
./pkg/thsice/thsice_map_exf.F 100 THSICE_MAP_EXF 
     &        .AND. atemp(i,j,bi,bj).LE.cen2kel )  THEN
./pkg/thsice/thsice_map_exf.F 102 THSICE_MAP_EXF 
          snowPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 116 THSICE_MAP_EXF 
     &          *( atemp(i,j,bi,bj) - cen2kel - temp_EvPrRn )
./pkg/thsice/thsice_map_exf.F 117 THSICE_MAP_EXF 
     &          *( precip(i,j,bi,bj)*rhoConstFresh - snowPrc(i,j) )
./pkg/thsice/thsice_map_exf.F 122 THSICE_MAP_EXF 
     &                 *( locSST(i,j,bi,bj) - temp_EvPrRn )
./pkg/thsice/thsice_map_exf.F 123 THSICE_MAP_EXF 
     &                 *runoff(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 15 THSICE_MAP_EXF 
     I                  iMin,iMax,jMin,jMax, bi,bj, myThid )
./pkg/thsice/thsice_map_exf.F 58 THSICE_MAP_EXF 
      INTEGER bi,bj
./pkg/thsice/thsice_map_exf.F 72 THSICE_MAP_EXF 
        totPrc(i,j) = precip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 75 THSICE_MAP_EXF 
        totPrc(i,j) = totPrc(i,j) + runoff(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 80 THSICE_MAP_EXF 
        flxSW (i,j) = swdown(i,j,bi,bj)
./pkg/thsice/thsice_map_exf.F 91 THSICE_MAP_EXF 
         snowPrc(i,j) = snowPrecip(i,j,bi,bj)*rhoConstFresh
./pkg/thsice/thsice_map_exf.F 99 THSICE_MAP_EXF 
         IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_monitor.F 116 THSICE_MONITOR 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/thsice/thsice_monitor.F 120 THSICE_MONITOR 
            locMask(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_monitor.F 192 THSICE_MONITOR 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/thsice/thsice_monitor.F 196 THSICE_MONITOR 
            locMask(i,j,bi,bj)=iceMask(i,j,bi,bj)*iceHeight(i,j,bi,bj)
./pkg/thsice/thsice_monitor.F 59 THSICE_MONITOR 
      INTEGER i,j,bi,bj
./pkg/thsice/thsice_output.F 101 THSICE_OUTPUT 
     &                          ice_fract_Ave, 1, bi, bj, myThid )
./pkg/thsice/thsice_output.F 103 THSICE_OUTPUT 
     &                          ice_fract_Ave, 1, bi, bj, myThid )
./pkg/thsice/thsice_output.F 107 THSICE_OUTPUT 
     &                          ice_fract_Ave, 1, bi, bj, myThid )
./pkg/thsice/thsice_output.F 111 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 125 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 127 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 129 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 132 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 134 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 138 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 140 THSICE_OUTPUT 
     &                 bi,bj,myThid)
./pkg/thsice/thsice_output.F 233 THSICE_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/thsice/thsice_output.F 235 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_fract_Ave,  1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 236 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_iceH_Ave,   1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 237 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_snowH_Ave,  1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 238 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_Tsrf_Ave,   1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 239 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_Tice1_Ave,  1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 240 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_Tice2_Ave,  1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 242 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_flx2oc_Ave, 1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 243 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_frw2oc_Ave, 1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 244 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_salFx_Ave,  1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 245 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_flxAtm_Ave,   1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 246 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_frwAtm_Ave,   1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 247 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_albedo_Ave, 1, bi,bj, myThid)
./pkg/thsice/thsice_output.F 248 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_tMxL_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 249 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_sMxL_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 250 THSICE_OUTPUT 
         ice_timeAve(bi,bj) = 0.
./pkg/thsice/thsice_output.F 52 THSICE_OUTPUT 
      INTEGER bi, bj, kl
./pkg/thsice/thsice_output.F 64 THSICE_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/thsice/thsice_output.F 66 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_fract_Ave,  1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 67 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_iceH_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 68 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_snowH_Ave,  1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 69 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_Tsrf_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 70 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_Tice1_Ave,  1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 71 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_Tice2_Ave,  1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 73 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_flx2oc_Ave, 1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 74 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_frw2oc_Ave, 1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 75 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_salFx_Ave,  1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 76 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_flxAtm_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 77 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_frwAtm_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 78 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_albedo_Ave, 1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 79 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_tMxL_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 80 THSICE_OUTPUT 
         CALL TIMEAVE_RESET(ice_sMxL_Ave,   1, bi, bj, myThid)
./pkg/thsice/thsice_output.F 81 THSICE_OUTPUT 
         ice_timeAve(bi,bj) = 0.
./pkg/thsice/thsice_output.F 91 THSICE_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/thsice/thsice_output.F 95 THSICE_OUTPUT 
     &                          ice_fract_Ave, 1, bi, bj, myThid )
./pkg/thsice/thsice_output.F 97 THSICE_OUTPUT 
     &                          ice_fract_Ave, 1, bi, bj, myThid )
./pkg/thsice/thsice_output.F 99 THSICE_OUTPUT 
     &                          ice_fract_Ave, 1, bi, bj, myThid )
./pkg/thsice/thsice_salt_plume.F 15 THSICE_SALT_PLUME 
     I                  iMin,iMax, jMin,jMax, bi, bj,
./pkg/thsice/thsice_salt_plume.F 51 THSICE_SALT_PLUME 
      INTEGER bi,bj
./pkg/thsice/thsice_salt_plume.F 64 THSICE_SALT_PLUME 
          saltPlumeFlux(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_salt_plume.F 70 THSICE_SALT_PLUME 
          saltPlumeFlux(i,j,bi,bj) =
./pkg/thsice/thsice_slab_ocean.F 111 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 112 THSICE_SLAB_OCEAN 
           oceTfreez = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 113 THSICE_SLAB_OCEAN 
           locTemp = ( aim_sWght0*aim_sst0(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 114 THSICE_SLAB_OCEAN 
     &               + aim_sWght1*aim_sst1(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 117 THSICE_SLAB_OCEAN 
           tOceMxL(i,j,bi,bj) =
./pkg/thsice/thsice_slab_ocean.F 118 THSICE_SLAB_OCEAN 
     &         (tOceMxL(i,j,bi,bj) + dtFac*locTemp)*dtFacR
./pkg/thsice/thsice_slab_ocean.F 125 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 126 THSICE_SLAB_OCEAN 
           locQflux = ( aim_sWght0*aim_qfx0(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 127 THSICE_SLAB_OCEAN 
     &                + aim_sWght1*aim_qfx1(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 129 THSICE_SLAB_OCEAN 
           tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 12 THSICE_SLAB_OCEAN 
     I                      bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_slab_ocean.F 130 THSICE_SLAB_OCEAN 
     &            + heatFac*locQflux / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 139 THSICE_SLAB_OCEAN 
         IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 140 THSICE_SLAB_OCEAN 
          dTsurf(i,j) = tOceMxL(i,j,bi,bj) - dTsurf(i,j)
./pkg/thsice/thsice_slab_ocean.F 149 THSICE_SLAB_OCEAN 
     &                         1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_slab_ocean.F 151 THSICE_SLAB_OCEAN 
     &                         1, thSIce_deltaT, bi, bj, myThid )
./pkg/thsice/thsice_slab_ocean.F 166 THSICE_SLAB_OCEAN 
     I                    bi, bj, myTime, myIter, myThid )
./pkg/thsice/thsice_slab_ocean.F 55 THSICE_SLAB_OCEAN 
      INTEGER bi,bj
./pkg/thsice/thsice_slab_ocean.F 79 THSICE_SLAB_OCEAN 
         IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 80 THSICE_SLAB_OCEAN 
          dTsurf(i,j) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 81 THSICE_SLAB_OCEAN 
          tOceMxL(i,j,bi,bj) = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 82 THSICE_SLAB_OCEAN 
     &       - heatFac*Qnet(i,j,bi,bj) / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 83 THSICE_SLAB_OCEAN 
          sOceMxL(i,j,bi,bj) = sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 84 THSICE_SLAB_OCEAN 
     &       + (fwFac*EmPmR(i,j,bi,bj) - dtFac*saltFlux(i,j,bi,bj))
./pkg/thsice/thsice_slab_ocean.F 85 THSICE_SLAB_OCEAN 
     &                                 / hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_slab_ocean.F 97 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 98 THSICE_SLAB_OCEAN 
           sOceMxL(i,j,bi,bj) =
./pkg/thsice/thsice_slab_ocean.F 99 THSICE_SLAB_OCEAN 
     &         (sOceMxL(i,j,bi,bj) + dtFac*sMxL_default)*dtFacR
./pkg/thsice/thsice_solve4temp.F 100 THSICE_SOLVE4TEMP 
      INTEGER bi,bj
./pkg/thsice/thsice_solve4temp.F 15 THSICE_SOLVE4TEMP 
     I                  bi, bj,
./pkg/thsice/thsice_solve4temp.F 197 THSICE_SOLVE4TEMP 
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_solve4temp.F 258 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,'(A,2I4,2I2)')
./pkg/thsice/thsice_solve4temp.F 259 THSICE_SOLVE4TEMP 
     &         'ThSI_SOLVE4T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_solve4temp.F 310 THSICE_SOLVE4TEMP 
     &      ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 316 THSICE_SOLVE4TEMP 
     &      ' BBerr: i,j,bi,bj,Tice = ',i,j,bi,bj,tIc1(i,j),tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 318 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 378 THSICE_SOLVE4TEMP 
           CALL THSICE_GET_EXF(   bi, bj, k,
./pkg/thsice/thsice_solve4temp.F 386 THSICE_SOLVE4TEMP 
           CALL THSICE_GET_BULKF( bi, bj,
./pkg/thsice/thsice_solve4temp.F 440 THSICE_SOLVE4TEMP 
           CALL THSICE_GET_EXF(   bi, bj, k+1,
./pkg/thsice/thsice_solve4temp.F 448 THSICE_SOLVE4TEMP 
           CALL THSICE_GET_BULKF( bi, bj,
./pkg/thsice/thsice_solve4temp.F 484 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020)
./pkg/thsice/thsice_solve4temp.F 500 THSICE_SOLVE4TEMP 
           IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 537 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 542 THSICE_SOLVE4TEMP 
     &       ' BB: not converge: i,j,it,hi=',i,j,bi,bj,myIter,hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 549 THSICE_SOLVE4TEMP 
     &        'THSICE_SOLVE4TEMP: Too low Tsf in', i, j, bi, bj,
./pkg/thsice/thsice_solve4temp.F 580 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1010)
./pkg/thsice/thsice_solve4temp.F 610 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) WRITE(stdUnit,1020)
./pkg/thsice/thsice_solve4temp.F 625 THSICE_SOLVE4TEMP 
     &     ' BBerr - Bug: IceT(1) > Tmlt',i,j,bi,bj,tIc1(i,j),Tmlt1
./pkg/thsice/thsice_solve4temp.F 629 THSICE_SOLVE4TEMP 
     &     ' BBerr - Bug: IceT(2) > 0',i,j,bi,bj,tIc2(i,j)
./pkg/thsice/thsice_solve4temp.F 632 THSICE_SOLVE4TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_fwd.F 117 THSICE_STEP_FWD 
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_step_fwd.F 135 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 13 THSICE_STEP_FWD 
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/thsice/thsice_step_fwd.F 164 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 166 THSICE_STEP_FWD 
          snowAge(i,j,bi,bj) = thSIce_deltaT
./pkg/thsice/thsice_step_fwd.F 167 THSICE_STEP_FWD 
     &                       + snowAge(i,j,bi,bj)*ageFac
./pkg/thsice/thsice_step_fwd.F 169 THSICE_STEP_FWD 
     &      snowAge(i,j,bi,bj) = snowAge(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 174 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 185 THSICE_STEP_FWD 
        CALL DIAGNOSTICS_FILL(iceMask,'SI_FrcFx',0,1,1,bi,bj,myThid)
./pkg/thsice/thsice_step_fwd.F 188 THSICE_STEP_FWD 
     I                       iceMask(1-OLx,1-OLy,bi,bj), oneRL, 1,
./pkg/thsice/thsice_step_fwd.F 189 THSICE_STEP_FWD 
     I                              'SIsnwPrc', 0,1,2,bi,bj,myThid )
./pkg/thsice/thsice_step_fwd.F 191 THSICE_STEP_FWD 
     I                              'SIalbedo', 0,1,1,bi,bj,myThid )
./pkg/thsice/thsice_step_fwd.F 196 THSICE_STEP_FWD 
          siceAlb(i,j,bi,bj) = iceMask(i,j,bi,bj)*siceAlb(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 208 THSICE_STEP_FWD 
        tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 209 THSICE_STEP_FWD 
        cphm    = cpwater*rhosw*hOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 210 THSICE_STEP_FWD 
        frzmltMxL(i,j) = ( tFrzOce(i,j)-tOceMxL(i,j,bi,bj) )
./pkg/thsice/thsice_step_fwd.F 212 THSICE_STEP_FWD 
        iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 213 THSICE_STEP_FWD 
        flx2oc(i,j)  = icFlxSW(i,j,bi,bj) + qPrcRnO(i,j)
./pkg/thsice/thsice_step_fwd.F 216 THSICE_STEP_FWD 
        IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_fwd.F 218 THSICE_STEP_FWD 
          WRITE(6,'(A,2I4,2I2)') 'ThSI_FWD: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_fwd.F 220 THSICE_STEP_FWD 
     &                  iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 221 THSICE_STEP_FWD 
     &                  snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 223 THSICE_STEP_FWD 
     &                     tOceMxL(i,j,bi,bj), tFrzOce(i,j),
./pkg/thsice/thsice_step_fwd.F 224 THSICE_STEP_FWD 
     &                     frzmltMxL(i,j), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 228 THSICE_STEP_FWD 
     &      iceFrac(i,j), icFlxAtm(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 229 THSICE_STEP_FWD 
     &      icFrwAtm(i,j,bi,bj),-Lfresh*snowPrc(i,j)
./pkg/thsice/thsice_step_fwd.F 240 THSICE_STEP_FWD 
     I          bi, bj,
./pkg/thsice/thsice_step_fwd.F 242 THSICE_STEP_FWD 
     I          iceMask(siLo,sjLo,bi,bj), tFrzOce,
./pkg/thsice/thsice_step_fwd.F 243 THSICE_STEP_FWD 
     I          tOceMxL(siLo,sjLo,bi,bj), v2ocMxL(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 245 THSICE_STEP_FWD 
     I          sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 246 THSICE_STEP_FWD 
     U          iceFrac, iceHeight(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 247 THSICE_STEP_FWD 
     U          snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 248 THSICE_STEP_FWD 
     U          Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 249 THSICE_STEP_FWD 
     U          icFrwAtm(siLo,sjLo,bi,bj), frzmltMxL, flx2oc,
./pkg/thsice/thsice_step_fwd.F 273 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 281 THSICE_STEP_FWD 
          icFrac = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 288 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = icFrac*icFlxAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 289 THSICE_STEP_FWD 
     &                        - opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 290 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = icFrac*icFrwAtm(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 291 THSICE_STEP_FWD 
     &                        + opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 292 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = -icFrac*flx2oc(i,j) + opFrac*Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 293 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= -icFrac*frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 294 THSICE_STEP_FWD 
     &                    +  opFrac*EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 295 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj) = -icFrac*fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 303 THSICE_STEP_FWD 
          IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F 305 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 306 THSICE_STEP_FWD 
     &           snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 309 THSICE_STEP_FWD 
        ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 310 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = -Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 311 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = EmPmR(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 313 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 314 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 331 THSICE_STEP_FWD 
     I          bi, bj,
./pkg/thsice/thsice_step_fwd.F 334 THSICE_STEP_FWD 
     I          tOceMxL(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 335 THSICE_STEP_FWD 
     U          iceFrac, iceHeight(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 336 THSICE_STEP_FWD 
     U          snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 337 THSICE_STEP_FWD 
     U          Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 338 THSICE_STEP_FWD 
     U          Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_fwd.F 354 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - flx2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 355 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- frw2oc(i,j)
./pkg/thsice/thsice_step_fwd.F 356 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - fsalt(i,j)
./pkg/thsice/thsice_step_fwd.F 361 THSICE_STEP_FWD 
        IF (dBug(i,j,bi,bj)) WRITE(6,1010)
./pkg/thsice/thsice_step_fwd.F 363 THSICE_STEP_FWD 
     &           iceFrac(i,j), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_fwd.F 364 THSICE_STEP_FWD 
     &           snowHeight(i,j,bi,bj), Qnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 367 THSICE_STEP_FWD 
        IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 368 THSICE_STEP_FWD 
     &    isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 371 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)=iceFrac(i,j)
./pkg/thsice/thsice_step_fwd.F 372 THSICE_STEP_FWD 
          IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 373 THSICE_STEP_FWD 
     &     snowAge(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 375 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 376 THSICE_STEP_FWD 
          iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_step_fwd.F 377 THSICE_STEP_FWD 
          snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_step_fwd.F 378 THSICE_STEP_FWD 
          snowAge(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 379 THSICE_STEP_FWD 
          Tsrf(i,j,bi,bj)     = tOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 380 THSICE_STEP_FWD 
          Tice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 381 THSICE_STEP_FWD 
          Tice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 382 THSICE_STEP_FWD 
          Qice1(i,j,bi,bj)    = Lfresh
./pkg/thsice/thsice_step_fwd.F 383 THSICE_STEP_FWD 
          Qice2(i,j,bi,bj)    = Lfresh
./pkg/thsice/thsice_step_fwd.F 391 THSICE_STEP_FWD 
     I          sOceMxL(1-OLx,1-OLy,bi,bj),
./pkg/thsice/thsice_step_fwd.F 393 THSICE_STEP_FWD 
     I          iMin,iMax, jMin,jMax, bi, bj,
./pkg/thsice/thsice_step_fwd.F 416 THSICE_STEP_FWD 
          sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
./pkg/thsice/thsice_step_fwd.F 417 THSICE_STEP_FWD 
     &                           + iceHeight(i,j,bi,bj)*rhoi
./pkg/thsice/thsice_step_fwd.F 418 THSICE_STEP_FWD 
     &                          )*iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 420 THSICE_STEP_FWD 
          pass_sIceLoad(i,j)=sIceLoad(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 431 THSICE_STEP_FWD 
         IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 432 THSICE_STEP_FWD 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj) - oceQnet(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 433 THSICE_STEP_FWD 
          EmPmR(i,j,bi,bj)= EmPmR(i,j,bi,bj)- oceFWfx(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 434 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj)=saltFlux(i,j,bi,bj) - oceSflx(i,j,bi,bj)
./pkg/thsice/thsice_step_fwd.F 444 THSICE_STEP_FWD 
     I                          bi, bj, iMin, iMax, jMin, jMax,
./pkg/thsice/thsice_step_fwd.F 68 THSICE_STEP_FWD 
      INTEGER bi,bj
./pkg/thsice/thsice_step_temp.F 10 THSICE_STEP_TEMP 
     I             bi, bj, iMin, iMax, jMin, jMax,
./pkg/thsice/thsice_step_temp.F 112 THSICE_STEP_TEMP 
          icFlxAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F 113 THSICE_STEP_TEMP 
          icFrwAtm(i,j,bi,bj) = 0.
./pkg/thsice/thsice_step_temp.F 122 THSICE_STEP_TEMP 
     I          bi, bj, siLo, siHi, sjLo, sjHi,
./pkg/thsice/thsice_step_temp.F 124 THSICE_STEP_TEMP 
     I          iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 125 THSICE_STEP_TEMP 
     I          snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 126 THSICE_STEP_TEMP 
     I          snowAge(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 127 THSICE_STEP_TEMP 
     O          siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 142 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 143 THSICE_STEP_TEMP 
          IF ( dBug(i,j,bi,bj) ) THEN
./pkg/thsice/thsice_step_temp.F 144 THSICE_STEP_TEMP 
           WRITE(6,'(A,2I4,2I2)') 'ThSI_STEP_T: i,j=',i,j,bi,bj
./pkg/thsice/thsice_step_temp.F 146 THSICE_STEP_TEMP 
     &                   iceMask(i,j,bi,bj), iceHeight(i,j,bi,bj),
./pkg/thsice/thsice_step_temp.F 147 THSICE_STEP_TEMP 
     &                   snowHeight(i,j,bi,bj), Tsrf(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 155 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 157 THSICE_STEP_TEMP 
          icFlxSW(i,j,bi,bj) = icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 158 THSICE_STEP_TEMP 
     &                       *(1. _d 0 - siceAlb(i,j,bi,bj))
./pkg/thsice/thsice_step_temp.F 159 THSICE_STEP_TEMP 
          tFrzOce(i,j) = -mu_Tf*sOceMxL(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 175 THSICE_STEP_TEMP 
     I          bi, bj,
./pkg/thsice/thsice_step_temp.F 178 THSICE_STEP_TEMP 
     I          iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 179 THSICE_STEP_TEMP 
     I          snowHeight(siLo,sjLo,bi,bj), tFrzOce, tmpFlx,
./pkg/thsice/thsice_step_temp.F 180 THSICE_STEP_TEMP 
     U          icFlxSW(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 181 THSICE_STEP_TEMP 
     U          Qice1(siLo,sjLo,bi,bj), Qice2(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 182 THSICE_STEP_TEMP 
     O          Tice1(siLo,sjLo,bi,bj), Tice2(siLo,sjLo,bi,bj), dTsrf,
./pkg/thsice/thsice_step_temp.F 183 THSICE_STEP_TEMP 
     O          sHeating(siLo,sjLo,bi,bj), flxCndBt(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 184 THSICE_STEP_TEMP 
     O          icFlxAtm(siLo,sjLo,bi,bj), icFrwAtm(siLo,sjLo,bi,bj),
./pkg/thsice/thsice_step_temp.F 189 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 190 THSICE_STEP_TEMP 
          icFrac  = iceMask(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 193 THSICE_STEP_TEMP 
          Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 194 THSICE_STEP_TEMP 
     &                   - icFrac*icFlxSW(i,j,bi,bj)
./pkg/thsice/thsice_step_temp.F 57 THSICE_STEP_TEMP 
      INTEGER bi,bj
./pkg/thsice/thsice_step_temp.F 89 THSICE_STEP_TEMP 
      act2 = bj - myByLo(myThid)
./pkg/thsice/thsice_test_addfluid.h 14 NO PROCEDURE 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 31 TIMEAVE_CUMUL_1K1T 
      INTEGER k, bi, bj, myThid
./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 9 TIMEAVE_CUMUL_1K1T 
     I              Ksize, k, bi, bj, myThid )
./pkg/timeave/timeave_cumul_1t.F 29 TIMEAVE_CUMUL_1T 
      INTEGER bi, bj, myThid
./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_1t.F 9 TIMEAVE_CUMUL_1T 
     I              bi, bj, myThid )
./pkg/timeave/timeave_cumul_1vfc.F 32 TIMEAVE_CUMUL_1VFC 
      INTEGER bi, bj, myThid
./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_1vfc.F 9 TIMEAVE_CUMUL_1VFC 
     I   bi, bj, myThid )
./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 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 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 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 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 36 TIMEAVE_CUMUL_2V 
      INTEGER bi, bj, myThid
./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 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 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 97 TIMEAVE_CUMUL_2V 
             fldtave(i,j,k,bi,bj)= fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 98 TIMEAVE_CUMUL_2V 
     &       + .5 * ( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 99 TIMEAVE_CUMUL_2V 
     &                *   fld2(i,j,k,bi,bj)
./pkg/timeave/timeave_cumul_2v.F 9 TIMEAVE_CUMUL_2V 
     I   bi, bj, myThid )
./pkg/timeave/timeave_cumul_2vfc.F 38 TIMEAVE_CUMUL_2VFC 
      INTEGER bi, bj, myThid
./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 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 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_2vfc.F 9 TIMEAVE_CUMUL_2VFC 
     I   bi, bj, myThid )
./pkg/timeave/timeave_cumul_dif_1t.F 33 TIMEAVE_CUMUL_DIF_1T 
      INTEGER bi, bj, myThid
./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 49 TIMEAVE_CUMUL_DIF_1T 
     &          * recip_dxC(i,j,bi,bj)
./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 62 TIMEAVE_CUMUL_DIF_1T 
     &          * recip_dyC(i,j,bi,bj)
./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 9 TIMEAVE_CUMUL_DIF_1T 
     I   bi, bj, myThid )
./pkg/timeave/timeave_cumulate.F 29 TIMEAVE_CUMULATE 
      INTEGER bi, bj, myThid
./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_cumulate.F 9 TIMEAVE_CUMULATE 
     I              bi, bj, myThid )
./pkg/timeave/timeave_norma_2v.F 25 TIMEAVE_NORMA_2V 
      INTEGER bi, bj, Ksize, myThid
./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_norma_2v.F 9 TIMEAVE_NORMA_2V 
     I                               bi, bj, myThid )
./pkg/timeave/timeave_normalize.F 13 TIMEAVE_NORMALIZE 
     I                   bi, bj, myThid )
./pkg/timeave/timeave_normalize.F 36 TIMEAVE_NORMALIZE 
      INTEGER bi, bj
./pkg/timeave/timeave_normalize.F 48 TIMEAVE_NORMALIZE 
        IF ( timeave_cumul(bi,bj) .NE. 0. _d 0 ) THEN
./pkg/timeave/timeave_normalize.F 52 TIMEAVE_NORMALIZE 
             fldtave(i,j,k,bi,bj) = fldtave(i,j,k,bi,bj)
./pkg/timeave/timeave_normalize.F 53 TIMEAVE_NORMALIZE 
     &                            / timeave_cumul(bi,bj)
./pkg/timeave/timeave_reset.F 22 TIMEAVE_RESET 
      INTEGER bi, bj, Ksize, myThid
./pkg/timeave/timeave_reset.F 36 TIMEAVE_RESET 
             fldtave(i,j,k,bi,bj) = 0. _d 0
./pkg/timeave/timeave_reset.F 6 TIMEAVE_RESET 
      SUBROUTINE TIMEAVE_RESET( fldtave, Ksize, bi, bj, myThid )
./pkg/timeave/timeave_statv_write.F 100 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(UUtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 101 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(VVtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 102 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(UVtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 106 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(hUtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 107 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(hVtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 114 TIMEAVE_STATV_WRITE 
     &         bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 116 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(uZetatave,timeAve_full,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 117 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(vZetatave,timeAve_full,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 120 TIMEAVE_STATV_WRITE 
     &         bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 122 TIMEAVE_STATV_WRITE 
     &         bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 124 TIMEAVE_STATV_WRITE 
     &         bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 293 TIMEAVE_STATV_WRITE 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/timeave/timeave_statv_write.F 301 TIMEAVE_STATV_WRITE 
            CALL TIMEAVE_STATVARS(myTime, nIter0, bi, bj, myThid)
./pkg/timeave/timeave_statv_write.F 50 TIMEAVE_STATV_WRITE 
      INTEGER bi,bj
./pkg/timeave/timeave_statv_write.F 76 TIMEAVE_STATV_WRITE 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/timeave/timeave_statv_write.F 80 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(uFluxtave,timeAve_full,1 ,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 81 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(vFluxtave,timeAve_full,1 ,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 82 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(tFluxtave,timeAve_full,1 ,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 83 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(sFluxtave,timeAve_full,1 ,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 84 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(etatave,  timeAve_half,1 ,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 85 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(thetatave,timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 86 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(salttave, timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 87 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(uVeltave, timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 88 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(vVeltave, timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 89 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(wVeltave, timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 91 TIMEAVE_STATV_WRITE 
     &         bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 92 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(UTtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 93 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(VTtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 94 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(WTtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 95 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(UStave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 96 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(VStave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 97 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(WStave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 98 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(Eta2tave, timeAve_half,1 ,bi,bj,myThid)
./pkg/timeave/timeave_statv_write.F 99 TIMEAVE_STATV_WRITE 
          CALL TIMEAVE_NORMALIZE(TTtave,   timeAve_half,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statvars.F 114 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMULATE(etatave,  etaN,  1 , DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 115 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMULATE(thetatave,theta, Nr, DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 116 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMULATE(salttave, salt,  Nr, DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 117 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMULATE(uVeltave, uVel,  Nr, DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 118 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMULATE(vVeltave, vVel,  Nr, DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 119 TIMEAVE_STATVARS 
      CALL TIMEAVE_CUMULATE(wVeltave, wVel,  Nr, DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 11 TIMEAVE_STATVARS 
     I                   myTime, myIter, bi, bj, myThid )
./pkg/timeave/timeave_statvars.F 123 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 125 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 127 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 129 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 131 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 135 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 137 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 147 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 149 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 155 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 157 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 159 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 161 TIMEAVE_STATVARS 
     &     DDTT, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 174 TIMEAVE_STATVARS 
      timeAve_half(bi,bj) = timeAve_half(bi,bj)+DDTT
./pkg/timeave/timeave_statvars.F 186 TIMEAVE_STATVARS 
     &                                   deltaTclock, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 188 TIMEAVE_STATVARS 
     &                                   deltaTclock, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 190 TIMEAVE_STATVARS 
     &       phiHydLow,phiHydLow, 1,  0, deltaTclock, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 191 TIMEAVE_STATVARS 
        timeAve_full(bi,bj) = timeAve_full(bi,bj)+deltaTclock
./pkg/timeave/timeave_statvars.F 36 TIMEAVE_STATVARS 
      INTEGER myIter, bi, bj
./pkg/timeave/timeave_statvars.F 53 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(uFluxtave, 1,  bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 54 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(vFluxtave, 1,  bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 55 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(tFluxtave, 1,  bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 56 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(sFluxtave, 1,  bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 57 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(etatave,   1,  bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 58 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(thetatave, Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 59 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(salttave,  Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 60 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(uVeltave,  Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 61 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(vVeltave,  Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 62 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(wVeltave,  Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 63 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(phiHydLowtave,1, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 64 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(UTtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 65 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(VTtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 66 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(WTtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 67 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(UStave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 68 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(VStave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 69 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(WStave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 70 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(Eta2tave,  1,  bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 71 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(TTtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 72 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(UUtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 73 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(VVtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 74 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(UVtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 76 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(TdiffRtave,Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 78 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(uZetatave, Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 79 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(vZetatave, Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 81 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(phiHydtave,Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 82 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(phiHydLow2Tave,1, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 83 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(ConvectCountTave,Nr,bi,bj,myThid)
./pkg/timeave/timeave_statvars.F 85 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(hUtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 86 TIMEAVE_STATVARS 
        CALL TIMEAVE_RESET(hVtave,    Nr, bi, bj, myThid)
./pkg/timeave/timeave_statvars.F 91 TIMEAVE_STATVARS 
        timeAve_half(bi,bj) = 0. _d 0
./pkg/timeave/timeave_statvars.F 92 TIMEAVE_STATVARS 
        timeAve_full(bi,bj) = 0. _d 0
./model/src/ini_nh_fields.F 102 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = 0.
./model/src/ini_nh_fields.F 108 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/ini_nh_fields.F 109 INI_NH_FIELDS 
     &          + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj)
./model/src/ini_nh_fields.F 115 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)
./model/src/ini_nh_fields.F 116 INI_NH_FIELDS 
     &                           *recip_Rcol(i,j,bi,bj)
./model/src/ini_nh_fields.F 43 INI_NH_FIELDS 
      INTEGER bi,bj
./model/src/ini_nh_fields.F 75 INI_NH_FIELDS 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_nh_fields.F 81 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = phi_nh(i,j,1,bi,bj)
./model/src/ini_nh_fields.F 89 INI_NH_FIELDS 
             ks = kSurfC(i,j,bi,bj)
./model/src/ini_nh_fields.F 91 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = phi_nh(i,j,ks,bi,bj)
./model/src/ini_nh_fields.F 93 INI_NH_FIELDS 
              dPhiNH(i,j,bi,bj) = 0.
./pkg/timeave/timeave_surf_flux.F 102 TIMEAVE_SURF_FLUX 
     &      + PmEpR(i,j,bi,bj)*salt(i,j,k,bi,bj)
./pkg/timeave/timeave_surf_flux.F 108 TIMEAVE_SURF_FLUX 
     &                                   deltaTclock, bi, bj, myThid)
./pkg/timeave/timeave_surf_flux.F 28 TIMEAVE_SURF_FLUX 
      INTEGER bi, bj
./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 53 TIMEAVE_SURF_FLUX 
     &                                   deltaTclock, bi, bj, myThid)
./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 62 TIMEAVE_SURF_FLUX 
     &                                   deltaTclock, bi, bj, myThid)
./pkg/timeave/timeave_surf_flux.F 69 TIMEAVE_SURF_FLUX 
     &    -Qsw(i,j,bi,bj)+
./pkg/timeave/timeave_surf_flux.F 6 TIMEAVE_SURF_FLUX 
     I     bi, bj, myTime, myIter, myThid )
./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 81 TIMEAVE_SURF_FLUX 
     &      + PmEpR(i,j,bi,bj)*theta(i,j,k,bi,bj)*HeatCapacity_Cp
./pkg/timeave/timeave_surf_flux.F 87 TIMEAVE_SURF_FLUX 
     &                                   deltaTclock, bi, bj, myThid)
./pkg/timeave/timeave_surf_flux.F 93 TIMEAVE_SURF_FLUX 
     &    surfaceForcingS(i,j,bi,bj)*rUnit2mass
./pkg/zonal_filt/zonal_filt_apply_ts.F 38 ZONAL_FILT_APPLY_TS 
      INTEGER bi,bj
./pkg/zonal_filt/zonal_filt_apply_ts.F 40 ZONAL_FILT_APPLY_TS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/zonal_filt/zonal_filt_apply_ts.F 44 ZONAL_FILT_APPLY_TS 
     U                       tFld( 1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_ts.F 45 ZONAL_FILT_APPLY_TS 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_ts.F 46 ZONAL_FILT_APPLY_TS 
     I                       1, sNy, Nr, bi, bj, 1, myThid )
./pkg/zonal_filt/zonal_filt_apply_ts.F 48 ZONAL_FILT_APPLY_TS 
     U                       sFld( 1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_ts.F 49 ZONAL_FILT_APPLY_TS 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_ts.F 50 ZONAL_FILT_APPLY_TS 
     I                       1, sNy, Nr, bi, bj, 1, myThid )
./pkg/zonal_filt/zonal_filt_apply_uv.F 38 ZONAL_FILT_APPLY_UV 
      INTEGER bi,bj
./pkg/zonal_filt/zonal_filt_apply_uv.F 42 ZONAL_FILT_APPLY_UV 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 56 ZONAL_FILT_APPLY_UV 
     I                     hFacW(1-OLx,1-OLy,k,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_uv.F 57 ZONAL_FILT_APPLY_UV 
     I                     0, sNy+1, 1, bi, bj, 1, myThid )
./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_apply_uv.F 69 ZONAL_FILT_APPLY_UV 
     U                     uFld( 1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_uv.F 70 ZONAL_FILT_APPLY_UV 
     I                     hFacW(1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_uv.F 71 ZONAL_FILT_APPLY_UV 
     I                     0, sNy+1, Nr, bi, bj, 1, myThid )
./pkg/zonal_filt/zonal_filt_apply_uv.F 76 ZONAL_FILT_APPLY_UV 
     U                     vFld( 1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_uv.F 77 ZONAL_FILT_APPLY_UV 
     I                     hFacS(1-OLx,1-OLy,1,bi,bj),
./pkg/zonal_filt/zonal_filt_apply_uv.F 78 ZONAL_FILT_APPLY_UV 
     I                     0, sNy+1, Nr, bi, bj, 2, myThid )
./pkg/zonal_filt/zonal_filt_init.F 100 ZONAL_FILT_INIT 
          ampFactorV(2*i,j,bi,bj) = ampfact( yG(1,j,bi,bj) , I )
./pkg/zonal_filt/zonal_filt_init.F 102 ZONAL_FILT_INIT 
          ampFactorV(2*I+1,j,bi,bj) = ampFactorV(2*i,j,bi,bj)
./pkg/zonal_filt/zonal_filt_init.F 107 ZONAL_FILT_INIT 
           ampFactor(Nx,j,bi,bj) = ampfact( yC(1,j,bi,bj) , i )
./pkg/zonal_filt/zonal_filt_init.F 108 ZONAL_FILT_INIT 
           ampFactorV(Nx,j,bi,bj) = ampfact( yG(1,j,bi,bj) , i )
./pkg/zonal_filt/zonal_filt_init.F 110 ZONAL_FILT_INIT 
           ampFactor(Nx,j,bi,bj) = 0.
./pkg/zonal_filt/zonal_filt_init.F 111 ZONAL_FILT_INIT 
           ampFactorV(Nx,j,bi,bj) = 0.
./pkg/zonal_filt/zonal_filt_init.F 59 ZONAL_FILT_INIT 
      INTEGER i, j, bi, bj
./pkg/zonal_filt/zonal_filt_init.F 85 ZONAL_FILT_INIT 
      DO bj=1,nSy
./pkg/zonal_filt/zonal_filt_init.F 87 ZONAL_FILT_INIT 
       CALL R8FFTI1( Nx, FFTPACKWS2(1,bj), FFTPACKWS3(1,bj) )
./pkg/zonal_filt/zonal_filt_init.F 91 ZONAL_FILT_INIT 
      DO bj=1,nSy
./pkg/zonal_filt/zonal_filt_init.F 94 ZONAL_FILT_INIT 
         ampFactor(1,j,bi,bj) = oneRL
./pkg/zonal_filt/zonal_filt_init.F 95 ZONAL_FILT_INIT 
         ampFactorV(1,j,bi,bj) = oneRL
./pkg/zonal_filt/zonal_filt_init.F 97 ZONAL_FILT_INIT 
          ampFactor(2*i,j,bi,bj) = ampfact( yC(1,j,bi,bj) , I )
./pkg/zonal_filt/zonal_filt_init.F 99 ZONAL_FILT_INIT 
          ampFactor(2*I+1,j,bi,bj) = ampFactor(2*i,j,bi,bj)
./pkg/zonal_filt/zonal_filt_nofill.F 35 ZONAL_FILT_NOFILL 
      INTEGER jMin, jMax, kMin, kMax, bi, bj
./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 54 ZONAL_FILT_NOFILL 
     &    FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,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 73 ZONAL_FILT_NOFILL 
     &    FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,bj) )
./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)
./pkg/zonal_filt/zonal_filt_nofill.F 8 ZONAL_FILT_NOFILL 
     I           jMin, jMax, kMin, kMax, bi, bj, gridLoc, myThid )
./model/src/ini_nh_vars.F 38 INI_NH_VARS 
      INTEGER bi, bj
./model/src/ini_nh_vars.F 44 INI_NH_VARS 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_nh_vars.F 48 INI_NH_VARS 
              dPhiNH(i,j,bi,bj)    = 0. _d 0
./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
./pkg/zonal_filt/zonal_filter.F 13 ZONAL_FILTER 
     I           jMin, jMax, kSize, bi, bj, gridLoc, myThid )
./pkg/zonal_filt/zonal_filter.F 43 ZONAL_FILTER 
      INTEGER jMin, jMax, bi, bj
./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 74 ZONAL_FILTER 
     &    FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,bj) )
./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)
./pkg/zonal_filt/zonal_filter.F 93 ZONAL_FILTER 
     &    FFTPACKWS1(1,bj), FFTPACKWS2(1,bj),FFTPACKWS3(1,bj) )
./model/src/ini_nlfs_vars.F 106 INI_NLFS_VARS 
            etaHw  (i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 107 INI_NLFS_VARS 
            etaHs  (i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 108 INI_NLFS_VARS 
            dEtaWdt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 109 INI_NLFS_VARS 
            dEtaSdt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 117 INI_NLFS_VARS 
            hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 118 INI_NLFS_VARS 
            hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 119 INI_NLFS_VARS 
            hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/ini_nlfs_vars.F 134 INI_NLFS_VARS 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/ini_nlfs_vars.F 140 INI_NLFS_VARS 
           ks = kSurfC(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 143 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfW(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 144 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i-1,j,bi,bj))
./model/src/ini_nlfs_vars.F 145 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfW(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F 146 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i+1,j,bi,bj))
./model/src/ini_nlfs_vars.F 147 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfS(i,j,bi,bj))
./model/src/ini_nlfs_vars.F 148 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i,j-1,bi,bj))
./model/src/ini_nlfs_vars.F 149 INI_NLFS_VARS 
             IF ( ks.EQ.kSurfS(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F 150 INI_NLFS_VARS 
     &          Rmin_tmp = MAX(Rmin_tmp, R_low(i,j+1,bi,bj))
./model/src/ini_nlfs_vars.F 152 INI_NLFS_VARS 
             Rmin_surf(i,j,bi,bj) =
./model/src/ini_nlfs_vars.F 153 INI_NLFS_VARS 
     &        MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks),
./model/src/ini_nlfs_vars.F 36 INI_NLFS_VARS 
      INTEGER bi,bj
./model/src/ini_nlfs_vars.F 54 INI_NLFS_VARS 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/ini_nlfs_vars.F 63 INI_NLFS_VARS 
            etaHnm1(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 64 INI_NLFS_VARS 
            dEtaHdt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 65 INI_NLFS_VARS 
            PmEpR  (i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 74 INI_NLFS_VARS 
           hFac_surfC(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 75 INI_NLFS_VARS 
           hFac_surfW(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 76 INI_NLFS_VARS 
           hFac_surfS(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 77 INI_NLFS_VARS 
           hFac_surfNm1C(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 78 INI_NLFS_VARS 
           hFac_surfNm1W(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 79 INI_NLFS_VARS 
           hFac_surfNm1S(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 80 INI_NLFS_VARS 
           Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./model/src/ini_nlfs_vars.F 87 INI_NLFS_VARS 
            rStarFacC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 88 INI_NLFS_VARS 
            rStarFacW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 89 INI_NLFS_VARS 
            rStarFacS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 90 INI_NLFS_VARS 
            pStarFacK(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 91 INI_NLFS_VARS 
            rStarFacNm1C(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 92 INI_NLFS_VARS 
            rStarFacNm1W(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 93 INI_NLFS_VARS 
            rStarFacNm1S(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 94 INI_NLFS_VARS 
            rStarExpC(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 95 INI_NLFS_VARS 
            rStarExpW(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 96 INI_NLFS_VARS 
            rStarExpS(i,j,bi,bj) = 1.
./model/src/ini_nlfs_vars.F 97 INI_NLFS_VARS 
            rStarDhCDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 98 INI_NLFS_VARS 
            rStarDhWDt(i,j,bi,bj) = 0.
./model/src/ini_nlfs_vars.F 99 INI_NLFS_VARS 
            rStarDhSDt(i,j,bi,bj) = 0.
./model/src/ini_p_ground.F 103 INI_P_GROUND 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 173 INI_P_GROUND 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 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 264 INI_P_GROUND 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 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
./verification/OpenAD/code_ad_singlelayer/cost_test.F 28 COST_TEST 
      integer bi, bj
./verification/OpenAD/code_ad_singlelayer/cost_test.F 62 COST_TEST 
      do bj = jtlo,jthi
./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) )
./verification/OpenAD/code_ad_singlelayer/cost_test.F 74 COST_TEST 
     &              objf_test(bi,bj)
./model/src/ini_pressure.F 111 INI_PRESSURE 
              oldPhi(i,j) = totPhiHyd(i,j,k,bi,bj)
./model/src/ini_pressure.F 115 INI_PRESSURE 
     I           bi, bj, iMin, iMax, jMin, jMax, k,
./model/src/ini_pressure.F 124 INI_PRESSURE 
     &            + (totPhiHyd(i,j,k,bi,bj)-oldPhi(i,j))**2
./model/src/ini_pressure.F 125 INI_PRESSURE 
     &             * maskC(i,j,k,bi,bj)
./model/src/ini_pressure.F 126 INI_PRESSURE 
              sumTile = sumTile + maskC(i,j,k,bi,bj)
./model/src/ini_pressure.F 44 INI_PRESSURE 
      INTEGER bi, bj
./model/src/ini_pressure.F 69 INI_PRESSURE 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_pressure.F 74 INI_PRESSURE 
           totPhiHyd(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_pressure.F 98 INI_PRESSURE 
         DO bj = myByLo(myThid), myByHi(myThid)
./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 52 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 81 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 100 INI_SALT 
            IF ( maskC(i,j,k,bi,bj).NE.0.
./verification/advect_xy/code/ini_salt.F 101 INI_SALT 
     &      .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN
./verification/advect_xy/code/ini_salt.F 46 INI_SALT 
      INTEGER bi, bj
./verification/advect_xy/code/ini_salt.F 53 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 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 87 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/advect_xy/code/ini_salt.F 93 INI_SALT 
            IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0.
./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 134 INI_THETA 
       DO bj = myByLo(myThid), myByHi(myThid)
./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 46 INI_THETA 
      INTEGER bi, bj
./verification/advect_xy/code/ini_theta.F 54 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 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 88 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/advect_xy/code/ini_theta.F 94 INI_THETA 
            IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0.
./verification/advect_xy/code/ini_vel.F 36 INI_VEL 
      INTEGER bi,bj,i,j,k
./verification/advect_xy/code/ini_vel.F 46 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 71 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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_psurf.F 46 INI_PSURF 
      INTEGER bi, bj
./model/src/ini_psurf.F 51 INI_PSURF 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_psurf.F 55 INI_PSURF 
          etaN(I,J,bi,bj) = 0. _d 0
./model/src/ini_psurf.F 69 INI_PSURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_psurf.F 73 INI_PSURF 
          etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj)
./model/src/ini_psurf.F 84 INI_PSURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/ini_psurf.F 88 INI_PSURF 
          etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/ini_psurf.F 89 INI_PSURF 
          etaHnm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/ini_psurf.F 90 INI_PSURF 
          dEtaHdt(i,j,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 120 AIM_SURF_BC 
          fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 12 AIM_SURF_BC 
     I                        bi, bj, myTime, myIter, myThid )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 160 AIM_SURF_BC 
          sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 161 AIM_SURF_BC 
     &                    + aim_sWght1*aim_sst1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 162 AIM_SURF_BC 
          stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 163 AIM_SURF_BC 
     &                    + aim_sWght1*aim_lst1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 178 AIM_SURF_BC 
          soilw_0 = ( aim_sw10(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 179 AIM_SURF_BC 
     &     +aim_veget(i,j,bi,bj)*
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 180 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 182 AIM_SURF_BC 
          soilw_1 = ( aim_sw11(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 183 AIM_SURF_BC 
     &     +aim_veget(i,j,bi,bj)*
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 184 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 196 AIM_SURF_BC 
          snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 197 AIM_SURF_BC 
     &              + aim_sWght1*aim_snw1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 198 AIM_SURF_BC 
          oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 199 AIM_SURF_BC 
     &              + aim_sWght1*aim_oic1(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 243 AIM_SURF_BC 
          alb_land = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 244 AIM_SURF_BC 
     &       + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 251 AIM_SURF_BC 
           SJ = SIN(yC(i,j,bi,bj) * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 252 AIM_SURF_BC 
           CJ = COS(yC(i,j,bi,bj) * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 303 AIM_SURF_BC 
          alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 304 AIM_SURF_BC 
          alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 305 AIM_SURF_BC 
          alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 323 AIM_SURF_BC 
          sst1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 324 AIM_SURF_BC 
          stl1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 325 AIM_SURF_BC 
          sti1(I2,myThid) = aim_sst0(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 337 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 338 AIM_SURF_BC 
     &                     -((yC(i,j,bi,bj)-yBump)/dyBump)**2 )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 348 AIM_SURF_BC 
     &                        1, bi, bj, 1, myIter, myThid )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 358 AIM_SURF_BC 
          soilw1(I2,myThid) = aim_sw10(i,j,bi,bj)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 390 AIM_SURF_BC 
     I           myTime, myIter, bi, bj, myThid )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 405 AIM_SURF_BC 
     &                  'aim_pCO2', 1, 1, 3, bi, bj, myThid )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 416 AIM_SURF_BC 
     I           myTime, myIter, bi, bj, myThid )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 427 AIM_SURF_BC 
     I           myTime, myIter, bi, bj, myThid )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 74 AIM_SURF_BC 
      INTEGER bi, bj
./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 162 INI_DEPTHS 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 204 INI_DEPTHS 
          DO bj = myByLo(myThid), myByHi(myThid)
./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 228 INI_DEPTHS 
       DO bj = myByLo(myThid), myByHi(myThid)
./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 250 INI_DEPTHS 
       DO bj = myByLo(myThid), myByHi(myThid)
./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 58 INI_DEPTHS 
      INTEGER bi, bj
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 75 INI_DEPTHS 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 97 INI_DEPTHS 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_salt.F 101 INI_SALT 
            IF ( maskC(i,j,k,bi,bj).NE.0.
./model/src/ini_salt.F 102 INI_SALT 
     &      .AND. salt(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/ini_salt.F 50 INI_SALT 
      INTEGER bi, bj
./model/src/ini_salt.F 56 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_salt.F 61 INI_SALT 
           salt(i,j,k,bi,bj) = sRef(k)
./model/src/ini_salt.F 88 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_salt.F 94 INI_SALT 
            IF (maskC(i,j,k,bi,bj).EQ.0.) salt(i,j,k,bi,bj) = 0.
./verification/aim.5l_cs/code/mom_vi_hfacz_diss.F 24 MOM_VI_HFACZ_DISS 
      INTEGER bi,bj,k
./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 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 7 MOM_VI_HFACZ_DISS 
     I        bi,bj,k,
./verification/aim.5l_cs/code/mom_vi_mask_vort3.F 22 MOM_VI_MASK_VORT3 
      INTEGER bi,bj,k
./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 7 MOM_VI_MASK_VORT3 
     I        bi,bj,k,
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 31 COST_TEST 
      integer bi, bj
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 46 COST_TEST 
      DO bj=jtlo,jthi
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 50 COST_TEST 
         jg = myYGlobalLo-1+(bj-1)*sNy+J
./verification/bottom_ctrl_5x5/code_ad/cost_test.F 67 COST_TEST 
        objf_test(bi,bj) = vol_trans*1.0e-06
./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 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 131 INI_SIGMA_HFAC 
      DO bj=myByLo(myThid), myByHi(myThid)
./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 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 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 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 201 INI_SIGMA_HFAC 
      DO bj=myByLo(myThid), myByHi(myThid)
./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 213 INI_SIGMA_HFAC 
      DO bj=myByLo(myThid), myByHi(myThid)
./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 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 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 44 INI_SIGMA_HFAC 
      INTEGER bi, bj
./model/src/ini_sigma_hfac.F 63 INI_SIGMA_HFAC 
      DO bj=myByLo(myThid), myByHi(myThid)
./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 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 103 INI_SPHERICAL_POLAR_GRID 
          lat = yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 106 INI_SPHERICAL_POLAR_GRID 
          dxF(i,j,bi,bj) = rSphere*COS(lat*deg2rad)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 107 INI_SPHERICAL_POLAR_GRID 
          dyF(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 121 INI_SPHERICAL_POLAR_GRID 
          dxG(i,j,bi,bj) = rSphere*COS(deg2rad*lat)*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 122 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 123 INI_SPHERICAL_POLAR_GRID 
          dyG(i,j,bi,bj) = rSphere*dlat*deg2rad
./model/src/ini_spherical_polar_grid.F 146 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 162 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 176 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 177 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 190 INI_SPHERICAL_POLAR_GRID 
          rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 193 INI_SPHERICAL_POLAR_GRID 
          lat = yC(i,j,bi,bj) - delYloc(j)*0.5 _d 0
./model/src/ini_spherical_polar_grid.F 194 INI_SPHERICAL_POLAR_GRID 
          dlat= yC(i,j,bi,bj) + delYloc(j)*0.5 _d 0
./model/src/ini_spherical_polar_grid.F 195 INI_SPHERICAL_POLAR_GRID 
          rA(i,j,bi,bj) = dyF(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 205 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 219 INI_SPHERICAL_POLAR_GRID 
          lat=yC(i,j,bi,bj)
./model/src/ini_spherical_polar_grid.F 225 INI_SPHERICAL_POLAR_GRID 
          rAs(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 227 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 238 INI_SPHERICAL_POLAR_GRID 
          rAz(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad
./model/src/ini_spherical_polar_grid.F 240 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 248 INI_SPHERICAL_POLAR_GRID 
          tanPhiAtU(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F 250 INI_SPHERICAL_POLAR_GRID 
          tanPhiAtV(i,j,bi,bj)=TAN(lat*deg2rad)
./model/src/ini_spherical_polar_grid.F 262 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower
./model/src/ini_spherical_polar_grid.F 264 INI_SPHERICAL_POLAR_GRID 
          cosFacV(j,bi,bj) = ABS( COS(lat*deg2rad) )**cosPower
./model/src/ini_spherical_polar_grid.F 265 INI_SPHERICAL_POLAR_GRID 
          sqcosFacU(j,bi,bj) = SQRT(cosFacU(j,bi,bj))
./model/src/ini_spherical_polar_grid.F 266 INI_SPHERICAL_POLAR_GRID 
          sqcosFacV(j,bi,bj) = SQRT(cosFacV(j,bi,bj))
./model/src/ini_spherical_polar_grid.F 268 INI_SPHERICAL_POLAR_GRID 
          cosFacU(j,bi,bj) = 1.
./model/src/ini_spherical_polar_grid.F 269 INI_SPHERICAL_POLAR_GRID 
          cosFacV(j,bi,bj) = 1.
./model/src/ini_spherical_polar_grid.F 270 INI_SPHERICAL_POLAR_GRID 
          sqcosFacU(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F 271 INI_SPHERICAL_POLAR_GRID 
          sqcosFacV(j,bi,bj)=1.
./model/src/ini_spherical_polar_grid.F 53 INI_SPHERICAL_POLAR_GRID 
      INTEGER bi, bj
./model/src/ini_spherical_polar_grid.F 66 INI_SPHERICAL_POLAR_GRID 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_spherical_polar_grid.F 75 INI_SPHERICAL_POLAR_GRID 
     I                       bi, bj, myThid )
./model/src/ini_spherical_polar_grid.F 80 INI_SPHERICAL_POLAR_GRID 
          xG(i,j,bi,bj) = xGloc(i,j)
./model/src/ini_spherical_polar_grid.F 81 INI_SPHERICAL_POLAR_GRID 
          yG(i,j,bi,bj) = yGloc(i,j)
./model/src/ini_spherical_polar_grid.F 89 INI_SPHERICAL_POLAR_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_spherical_polar_grid.F 91 INI_SPHERICAL_POLAR_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_theta.F 102 INI_THETA 
            IF (  maskC(i,j,k,bi,bj).NE.0.
./model/src/ini_theta.F 103 INI_THETA 
     &      .AND. theta(i,j,k,bi,bj).EQ.0. ) THEN
./model/src/ini_theta.F 135 INI_THETA 
       DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_theta.F 140 INI_THETA 
            IF (theta(i,j,k,bi,bj) .LT. Tfreezing) THEN
./model/src/ini_theta.F 141 INI_THETA 
               theta(i,j,k,bi,bj) = Tfreezing
./model/src/ini_theta.F 50 INI_THETA 
      INTEGER bi, bj
./model/src/ini_theta.F 57 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_theta.F 62 INI_THETA 
           theta(i,j,k,bi,bj) = tRef(k)
./model/src/ini_theta.F 89 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_theta.F 95 INI_THETA 
            IF (maskC(i,j,k,bi,bj).EQ.0.) theta(i,j,k,bi,bj) = 0.
./model/src/ini_vel.F 36 INI_VEL 
      INTEGER bi,bj,i,j,k
./model/src/ini_vel.F 46 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 70 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/ini_vel.F 75 INI_VEL 
           uVel(i,j,k,bi,bj)=uVel(i,j,k,bi,bj)*_maskW(i,j,k,bi,bj)
./model/src/ini_vel.F 76 INI_VEL 
           vVel(i,j,k,bi,bj)=vVel(i,j,k,bi,bj)*_maskS(i,j,k,bi,bj)
./verification/dome/code/obcs_calc.F 104 OBCS_CALC 
            OBEu(J,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 111 OBCS_CALC 
            OBEv(J,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 112 OBCS_CALC 
            OBEt(J,K,bi,bj)=tRef(K)
./verification/dome/code/obcs_calc.F 119 OBCS_CALC 
            OBEs(J,K,bi,bj)=sRef(K)
./verification/dome/code/obcs_calc.F 121 OBCS_CALC 
            OBEw(J,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 130 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/dome/code/obcs_calc.F 136 OBCS_CALC 
          OBWu(J,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 137 OBCS_CALC 
          OBWv(J,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 138 OBCS_CALC 
          OBWt(J,K,bi,bj)= Tref(k)
./verification/dome/code/obcs_calc.F 140 OBCS_CALC 
          OBWw(J,K,bi,bj)=0.0
./verification/dome/code/obcs_calc.F 149 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/dome/code/obcs_calc.F 156 OBCS_CALC 
           x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2. _d 0
./verification/dome/code/obcs_calc.F 179 OBCS_CALC 
            OBNv(I,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 187 OBCS_CALC 
            OBNu(I,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 189 OBCS_CALC 
            OBNt(I,K,bi,bj) = tRef(K)
./verification/dome/code/obcs_calc.F 191 OBCS_CALC 
            OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz)
./verification/dome/code/obcs_calc.F 199 OBCS_CALC 
            OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz)
./verification/dome/code/obcs_calc.F 201 OBCS_CALC 
            OBNw(I,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 210 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/dome/code/obcs_calc.F 216 OBCS_CALC 
            OBSu(I,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 217 OBCS_CALC 
            OBSv(I,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 218 OBCS_CALC 
            OBSt(I,K,bi,bj)=tRef(K)
./verification/dome/code/obcs_calc.F 219 OBCS_CALC 
            OBSs(I,K,bi,bj)=sRef(K)
./verification/dome/code/obcs_calc.F 221 OBCS_CALC 
            OBSw(I,K,bi,bj)=0.
./verification/dome/code/obcs_calc.F 39 OBCS_CALC 
      INTEGER bi, bj
./verification/dome/code/obcs_calc.F 92 OBCS_CALC 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/dome/code/obcs_calc.F 98 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 121 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./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 72 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./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 88 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 90 FIZHI_INIT_FIXED 
        call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,
./verification/fizhi-cs-aqualev20/code/fizhi_init_fixed.F 91 FIZHI_INIT_FIXED 
     &        surftype,tilefrac,fracland(1,1,bi,bj))
./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 106 FIZHI_INIT_VEG 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 111 FIZHI_INIT_VEG 
           igrd(i,bi,bj) = 1
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 115 FIZHI_INIT_VEG 
         nchpland(bi,bj) = 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 118 FIZHI_INIT_VEG 
         nchptot(bi,bj) = nchpland(bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 122 FIZHI_INIT_VEG 
             if(surftype(i,j,k,bi,bj).ge.100 .and.
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 123 FIZHI_INIT_VEG 
     &            tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 124 FIZHI_INIT_VEG 
               nchptot(bi,bj)  = nchptot(bi,bj) + 1
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 125 FIZHI_INIT_VEG 
               igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 126 FIZHI_INIT_VEG 
               ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 127 FIZHI_INIT_VEG 
               chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 128 FIZHI_INIT_VEG 
               chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 129 FIZHI_INIT_VEG 
               chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 136 FIZHI_INIT_VEG 
     &    ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj),
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 137 FIZHI_INIT_VEG 
     &                 ', Total # of Tiles=', nchptot(bi,bj)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 67 FIZHI_INIT_VEG 
      INTEGER i,j,k,bi,bj
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 72 FIZHI_INIT_VEG 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 77 FIZHI_INIT_VEG 
           surftype(i,j,1,bi,bj) = 100
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 78 FIZHI_INIT_VEG 
           tilefrac(i,j,1,bi,bj) = 0.99 _d 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 79 FIZHI_INIT_VEG 
           surftype(i,j,2,bi,bj) = 100
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 80 FIZHI_INIT_VEG 
           tilefrac(i,j,2,bi,bj) = 0.01 _d 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 86 FIZHI_INIT_VEG 
           surftype(i,j,k,bi,bj) = 0
./verification/fizhi-cs-aqualev20/code/fizhi_init_veg.F 87 FIZHI_INIT_VEG 
           tilefrac(i,j,k,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 38 FIZHI_INIT_VEGSURFTILES 
      integer n,bi,bj
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 40 FIZHI_INIT_VEGSURFTILES 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 44 FIZHI_INIT_VEGSURFTILES 
        tcanopy(n,bi,bj) = 300.
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 45 FIZHI_INIT_VEGSURFTILES 
        ecanopy(n,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 46 FIZHI_INIT_VEGSURFTILES 
        tdeep(n,bi,bj) = 295.
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 47 FIZHI_INIT_VEGSURFTILES 
        swetshal(n,bi,bj) = 0.1
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 48 FIZHI_INIT_VEGSURFTILES 
        swetroot(n,bi,bj) = 0.1
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 49 FIZHI_INIT_VEGSURFTILES 
        swetdeep(n,bi,bj) = 0.1
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 50 FIZHI_INIT_VEGSURFTILES 
        snodep(n,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/fizhi_init_vegsurftiles.F 51 FIZHI_INIT_VEGSURFTILES 
        capac(n,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/ini_salt.F 102 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./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/ini_salt.F 123 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-cs-aqualev20/code/ini_salt.F 128 INI_SALT 
           IF (hFacC(I,J,K,bi,bj).EQ.0) salt(I,J,K,bi,bj) = 0.
./verification/fizhi-cs-aqualev20/code/ini_salt.F 129 INI_SALT 
           IF (hFacC(I,J,K,bi,bj).NE.0.AND.salt(I,J,K,bi,bj).EQ.0.
./verification/fizhi-cs-aqualev20/code/ini_salt.F 45 INI_SALT 
      INTEGER bi, bj
./verification/fizhi-cs-aqualev20/code/ini_salt.F 71 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-cs-aqualev20/code/ini_salt.F 76 INI_SALT 
           temperature(I,J,K,bi,bj) = theta(I,J,K,bi,bj) * pkappa(K)
./verification/fizhi-cs-aqualev20/code/ini_salt.F 84 INI_SALT 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-cs-aqualev20/code/ini_salt.F 89 INI_SALT 
           salt(I,J,K,bi,bj) = sRef(K)
./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 118 GETSICE 
     .   jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 166 GETSICE 
      integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid
./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 191 GETSST 
     .   jm1,jm2,nSumx,nSumy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 239 GETSST 
      integer xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,mythid
./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
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 82 UPDATE_OCEAN_EXPORTS 
       bislot = exch2_txglobalo(W2_myTileList(bi,bj))-1
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 83 UPDATE_OCEAN_EXPORTS 
       bjslot = exch2_tyglobalo(W2_myTileList(bi,bj))-1
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 86 UPDATE_OCEAN_EXPORTS 
       bjslot = myYGlobalLo-1+(bj-1)*sNy
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 90 UPDATE_OCEAN_EXPORTS 
     .  jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 91 UPDATE_OCEAN_EXPORTS 
     .  sst1,sst2,first(bi,bj),nymd1sst(bi,bj),nymd2sst(bi,bj),
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 92 UPDATE_OCEAN_EXPORTS 
     .  nhms1sst(bi,bj),nhms2sst(bi,bj),sstdates(1,bi,bj),
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 93 UPDATE_OCEAN_EXPORTS 
     .  ssttimes(1,bi,bj),sst,myThid)
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 95 UPDATE_OCEAN_EXPORTS 
     .  jm1,jm2,nSx,nSy,xsize,ysize,bi,bj,bislot,bjslot,nymd,nhms,
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 96 UPDATE_OCEAN_EXPORTS 
     .  sice1,sice2,first(bi,bj),nymd1sice(bi,bj),nymd2sice(bi,bj),
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 97 UPDATE_OCEAN_EXPORTS 
     .  nhms1sice(bi,bj),nhms2sice(bi,bj),sicedates(1,bi,bj),
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 98 UPDATE_OCEAN_EXPORTS 
     .  sicetimes(1,bi,bj),sice,myThid)
./model/src/initialise_varia.F 187 INITIALISE_VARIA 
        DO bj = myByLo(myThid), myByHi(myThid)
./model/src/initialise_varia.F 191 INITIALISE_VARIA 
     I                     bi, bj, startTime, nIter0, myThid )
./model/src/initialise_varia.F 90 INITIALISE_VARIA 
      INTEGER bi,bj
./verification/fizhi-gridalt-hs/code/do_fizhi.F 173 DO_FIZHI 
         recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 175 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 178 DO_FIZHI 
         duphy(i,j,L,bi,bj)= -kV*uphy(i,j,L,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 179 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 
         term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 184 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 186 DO_FIZHI 
     &            *(cos(lats(I,J,bi,bj)*deg2rad)**2)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 193 DO_FIZHI 
     &     *COS((lats(I,J,bi,bj)*deg2rad))**4
./verification/fizhi-gridalt-hs/code/do_fizhi.F 195 DO_FIZHI 
          dthphy(i,j,L,bi,bj)=- kT*( thphy(I,J,L,bi,bj)-thetaEq )
./verification/fizhi-gridalt-hs/code/do_fizhi.F 197 DO_FIZHI 
          dthphy(i,j,L,bi,bj)=0.
./verification/fizhi-gridalt-hs/code/do_fizhi.F 202 DO_FIZHI 
         dsphy(i,j,L,bi,bj)=0.
./verification/fizhi-gridalt-hs/code/do_fizhi.F 35 DO_FIZHI 
      INTEGER Nrphin,nSxin,nSyin,bi,bj,nchp
./verification/fizhi-gridalt-hs/code/do_fizhi.F 5 DO_FIZHI 
     & idim1,idim2,jdim1,jdim2,Nrphin,nSxin,nSyin,im1,im2,jm1,jm2,bi,bj,
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 121 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 125 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 72 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 76 FIZHI_INIT_FIXED 
        lons(i,j,bi,bj) = xC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 77 FIZHI_INIT_FIXED 
        lats(i,j,bi,bj) = yC(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 88 FIZHI_INIT_FIXED 
       do bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 90 FIZHI_INIT_FIXED 
        call GET_LANDFRAC(im2,jm2,nSx,nSy,bi,bj,maxtyp,
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 91 FIZHI_INIT_FIXED 
     &        surftype,tilefrac,fracland(1,1,bi,bj))
./verification/fizhi-gridalt-hs/code/fizhi_init_fixed.F 94 FIZHI_INIT_FIXED 
         landtype(i,j,bi,bj) = surftype(i,j,1,bi,bj)
./verification/fizhi-gridalt-hs/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-gridalt-hs/code/fizhi_init_fixed.F 96 FIZHI_INIT_FIXED 
     &            landtype(i,j,bi,bj) = surftype(i,j,2,bi,bj)
./verification/fizhi-gridalt-hs/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-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 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 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 138 FIZHI_INIT_VARS 
       do bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 143 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy)
./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 154 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,1,tempphy)
./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 163 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy)
./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 173 FIZHI_INIT_VARS 
     & 1,sNx,1,sNy,bi,bj,windphy,pephy,kSurfC,Nrphys,nlperdyn,0,tempphy)
./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 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 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 210 FIZHI_INIT_VARS 
          ctmt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 211 FIZHI_INIT_VARS 
          xxmt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 212 FIZHI_INIT_VARS 
          yymt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 213 FIZHI_INIT_VARS 
          zetamt(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 217 FIZHI_INIT_VARS 
          tke(i,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 218 FIZHI_INIT_VARS 
          xlmt(i,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 219 FIZHI_INIT_VARS 
          khmt(i,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 226 FIZHI_INIT_VARS 
        turbStart(bi,bj) = .TRUE.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 233 FIZHI_INIT_VARS 
        tcanopy(i,bi,bj) = 283.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 234 FIZHI_INIT_VARS 
        tdeep(i,bi,bj) = 282.5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 235 FIZHI_INIT_VARS 
        ecanopy(i,bi,bj) = 2.e-2
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 236 FIZHI_INIT_VARS 
        swetshal(i,bi,bj) = 0.6
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 237 FIZHI_INIT_VARS 
        swetroot(i,bi,bj) = 0.5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 238 FIZHI_INIT_VARS 
        swetdeep(i,bi,bj) = 0.5
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 239 FIZHI_INIT_VARS 
        capac(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 240 FIZHI_INIT_VARS 
        snodep(i,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 245 FIZHI_INIT_VARS 
        imstturblw(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 246 FIZHI_INIT_VARS 
        imstturbsw(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 247 FIZHI_INIT_VARS 
        iras(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 248 FIZHI_INIT_VARS 
        nlwcld(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 249 FIZHI_INIT_VARS 
        nlwlz(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 250 FIZHI_INIT_VARS 
        nswcld(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 251 FIZHI_INIT_VARS 
        nswlz(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 255 FIZHI_INIT_VARS 
         swlz(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 256 FIZHI_INIT_VARS 
         lwlz(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 257 FIZHI_INIT_VARS 
         qliqavesw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 258 FIZHI_INIT_VARS 
         qliqavelw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 259 FIZHI_INIT_VARS 
         fccavesw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 260 FIZHI_INIT_VARS 
         fccavelw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 261 FIZHI_INIT_VARS 
         cldtot_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 262 FIZHI_INIT_VARS 
         cldras_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 263 FIZHI_INIT_VARS 
         cldlsp_sw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 264 FIZHI_INIT_VARS 
         cldtot_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 265 FIZHI_INIT_VARS 
         cldras_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 266 FIZHI_INIT_VARS 
         cldlsp_lw(i,j,L,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 272 FIZHI_INIT_VARS 
         rainlsp(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 273 FIZHI_INIT_VARS 
         raincon(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 274 FIZHI_INIT_VARS 
         snowfall(i,j,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 288 FIZHI_INIT_VARS 
       do bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F 290 FIZHI_INIT_VARS 
         turbStart(bi,bj) = .FALSE.
./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 76 FIZHI_INIT_VARS 
       do bj = myByLo(myThid), myByHi(myThid)
./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 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 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 100 FIZHI_INIT_VEG 
           tilefrac(i,j,k,bi,bj) = 0.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 119 FIZHI_INIT_VEG 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 124 FIZHI_INIT_VEG 
           igrd(i,bi,bj) = 1
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 128 FIZHI_INIT_VEG 
         nchpland(bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 132 FIZHI_INIT_VEG 
             if(surftype(i,j,k,bi,bj).lt.100 .and.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 133 FIZHI_INIT_VEG 
     &            tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 134 FIZHI_INIT_VEG 
               nchpland(bi,bj)  = nchpland(bi,bj) + 1
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 135 FIZHI_INIT_VEG 
               igrd (nchpland(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 136 FIZHI_INIT_VEG 
               ityp (nchpland(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 137 FIZHI_INIT_VEG 
               chfr (nchpland(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 138 FIZHI_INIT_VEG 
               chlon(nchpland(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 139 FIZHI_INIT_VEG 
               chlt (nchpland(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 146 FIZHI_INIT_VEG 
         nchptot(bi,bj) = nchpland(bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 150 FIZHI_INIT_VEG 
             if(surftype(i,j,k,bi,bj).ge.100 .and.
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 151 FIZHI_INIT_VEG 
     &            tilefrac(i,j,k,bi,bj).gt.0.) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 152 FIZHI_INIT_VEG 
               nchptot(bi,bj)  = nchptot(bi,bj) + 1
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 153 FIZHI_INIT_VEG 
               igrd (nchptot(bi,bj),bi,bj) = i + (j-1)*im
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 154 FIZHI_INIT_VEG 
               ityp (nchptot(bi,bj),bi,bj) = surftype(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 155 FIZHI_INIT_VEG 
               chfr (nchptot(bi,bj),bi,bj) = tilefrac(i,j,k,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 156 FIZHI_INIT_VEG 
               chlon(nchptot(bi,bj),bi,bj) = lons(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 157 FIZHI_INIT_VEG 
               chlt (nchptot(bi,bj),bi,bj) = lats(i,j,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 164 FIZHI_INIT_VEG 
     &    ', bj=', bj, ', # of Land Tiles=', nchpland(bi,bj),
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 165 FIZHI_INIT_VEG 
     &                 ', Total # of Tiles=', nchptot(bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 67 FIZHI_INIT_VEG 
      INTEGER i,j,k,bi,bj
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 78 FIZHI_INIT_VEG 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 83 FIZHI_INIT_VEG 
          if(aim_landfr(i,j,bi,bj).gt.0.1) then
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 84 FIZHI_INIT_VEG 
           surftype(i,j,1,bi,bj) = 1
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 85 FIZHI_INIT_VEG 
           tilefrac(i,j,1,bi,bj) = 0.5 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 86 FIZHI_INIT_VEG 
           surftype(i,j,2,bi,bj) = 2
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 87 FIZHI_INIT_VEG 
           tilefrac(i,j,2,bi,bj) = 0.5 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 89 FIZHI_INIT_VEG 
           surftype(i,j,1,bi,bj) = 100
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 90 FIZHI_INIT_VEG 
           tilefrac(i,j,1,bi,bj) = 0.99 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 91 FIZHI_INIT_VEG 
           surftype(i,j,2,bi,bj) = 100
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 92 FIZHI_INIT_VEG 
           tilefrac(i,j,2,bi,bj) = 0.01 _d 0
./verification/fizhi-gridalt-hs/code/fizhi_init_veg.F 99 FIZHI_INIT_VEG 
           surftype(i,j,k,bi,bj) = 0
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 101 FIZHI_TENDENCY_APPLY_T 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 129 FIZHI_TENDENCY_APPLY_T 
      INTEGER kLev, bi, bj
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 138 FIZHI_TENDENCY_APPLY_T 
        gT_arr(i,j) = maskC(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 139 FIZHI_TENDENCY_APPLY_T 
     .       *( gT_arr(i,j) + gthphy(i,j,kLev,bi,bj) )
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 147 FIZHI_TENDENCY_APPLY_S 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 175 FIZHI_TENDENCY_APPLY_S 
      INTEGER kLev, bi, bj
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 184 FIZHI_TENDENCY_APPLY_S 
        gS_arr(i,j) = maskC(i,j,kLev,bi,bj)
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 185 FIZHI_TENDENCY_APPLY_S 
     .       *( gS_arr(i,j) + gsphy(i,j,kLev,bi,bj) )
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 36 FIZHI_TENDENCY_APPLY_U 
      INTEGER kLev, bi, bj
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 46 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 54 FIZHI_TENDENCY_APPLY_V 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 7 FIZHI_TENDENCY_APPLY_U 
     I                        iMin,iMax,jMin,jMax, kLev, bi, bj,
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 83 FIZHI_TENDENCY_APPLY_V 
      INTEGER kLev, bi, bj
./verification/fizhi-gridalt-hs/code/fizhi_tendency_apply.F 93 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 115 GETSICE 
      integer nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms
./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 130 GETSST 
     .      nSumx,nSumy,nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms,sst)
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 175 GETSST 
      integer nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms
./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 47 UPDATE_OCEAN_EXPORTS 
       bjglobal=bj+(myYGlobalLo-1)/jm2
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 50 UPDATE_OCEAN_EXPORTS 
     .  nSy,nSxglobal,nSyglobal,bi,bj,biglobal,bjglobal,nymd,nhms,sst)
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 52 UPDATE_OCEAN_EXPORTS 
     .  nSy,nSxglobal,nSyglobal,bi,bj,biglobal,bjglobal,nymd,nhms,sice)
./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
./verification/fizhi-gridalt-hs/code/update_ocean_exports.F 70 GETSICE 
     .     nSumx,nSumy,nPgx,nPgy,bi,bj,biglobal,bjglobal,nymd,nhms,sice)
./model/src/integr_continuity.F 109 INTEGR_CONTINUITY 
          uTrans(i,j) = uFld(i,j,k,bi,bj)*_dyG(i,j,bi,bj)
./model/src/integr_continuity.F 111 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integr_continuity.F 112 INTEGR_CONTINUITY 
          vTrans(i,j) = vFld(i,j,k,bi,bj)*_dxG(i,j,bi,bj)
./model/src/integr_continuity.F 114 INTEGR_CONTINUITY 
     &                 *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integr_continuity.F 122 INTEGR_CONTINUITY 
     &       +maskC(i,j,k,bi,bj)*( uTrans(i+1,j)-uTrans(i,j)
./model/src/integr_continuity.F 125 INTEGR_CONTINUITY 
     &       -facMass*addMass(i,j,k,bi,bj)
./model/src/integr_continuity.F 144 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = (etaN(i,j,bi,bj)-etaH(i,j,bi,bj))
./model/src/integr_continuity.F 152 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)
./model/src/integr_continuity.F 153 INTEGR_CONTINUITY 
     &                       + hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 155 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = PmEpR(i,j,bi,bj)*rUnit2mass
./model/src/integr_continuity.F 161 INTEGR_CONTINUITY 
            ks = kSurfC(I,J,bi,bj)
./model/src/integr_continuity.F 162 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = 0. _d 0
./model/src/integr_continuity.F 163 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 172 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./model/src/integr_continuity.F 177 INTEGR_CONTINUITY 
            ks = kSurfC(i,j,bi,bj)
./model/src/integr_continuity.F 178 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = -hDivFlow(i,j)*recip_rA(i,j,bi,bj)
./model/src/integr_continuity.F 180 INTEGR_CONTINUITY 
     &                           -facEmP*EmPmR(i,j,bi,bj)
./model/src/integr_continuity.F 191 INTEGR_CONTINUITY 
            dEtaHdt(i,j,bi,bj) = dEtaHdt(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/integr_continuity.F 209 INTEGR_CONTINUITY 
           etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F 215 INTEGR_CONTINUITY 
           etaN(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/integr_continuity.F 216 INTEGR_CONTINUITY 
     &      + implicDiv2Dflow*dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./model/src/integr_continuity.F 241 INTEGR_CONTINUITY 
           ks = kSurfC(i,j,bi,bj)
./model/src/integr_continuity.F 242 INTEGR_CONTINUITY 
           rStarDhDt(i,j) = dEtaHdt(i,j,bi,bj)
./model/src/integr_continuity.F 244 INTEGR_CONTINUITY 
     &                     *recip_Rcol(i,j,bi,bj)
./model/src/integr_continuity.F 259 INTEGR_CONTINUITY 
     I                       bi, bj, k, uFld, vFld,
./model/src/integr_continuity.F 270 INTEGR_CONTINUITY 
            wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/integr_continuity.F 271 INTEGR_CONTINUITY 
     &               +mass2rUnit*PmEpR(i,j,bi,bj)*maskC(i,j,k,bi,bj)
./model/src/integr_continuity.F 283 INTEGR_CONTINUITY 
             wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)*maskInC(i,j,bi,bj)
./model/src/integr_continuity.F 289 INTEGR_CONTINUITY 
     &                CALL OBCS_APPLY_W( bi, bj, k, wVel, myThid )
./model/src/integr_continuity.F 55 INTEGR_CONTINUITY 
      INTEGER k,bi,bj
./model/src/integr_continuity.F 79 INTEGR_CONTINUITY 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/integrate_for_w.F 104 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 105 INTEGRATE_FOR_W 
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 106 INTEGRATE_FOR_W 
     &         *maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./model/src/integrate_for_w.F 10 INTEGRATE_FOR_W 
     I                     bi, bj, k, uFld, vFld, mFld, rStarDhDt,
./model/src/integrate_for_w.F 113 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 114 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1)
./model/src/integrate_for_w.F 115 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 116 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)*maskC(i,j,k-1,bi,bj)
./model/src/integrate_for_w.F 129 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 130 INTEGRATE_FOR_W 
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 131 INTEGRATE_FOR_W 
     &         -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 132 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 139 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 140 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1)
./model/src/integrate_for_w.F 141 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 142 INTEGRATE_FOR_W 
     &         -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 143 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 155 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 156 INTEGRATE_FOR_W 
     &        ( conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 157 INTEGRATE_FOR_W 
     &         -dEtaHdt(i,j,bi,bj)*dBHybSigF(k)
./model/src/integrate_for_w.F 158 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 164 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 165 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)
./model/src/integrate_for_w.F 166 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 167 INTEGRATE_FOR_W 
     &         -dEtaHdt(i,j,bi,bj)*dBHybSigF(k)
./model/src/integrate_for_w.F 168 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 180 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 181 INTEGRATE_FOR_W 
     &          conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 182 INTEGRATE_FOR_W 
     &         *maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 189 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) =
./model/src/integrate_for_w.F 190 INTEGRATE_FOR_W 
     &        ( wFld(i,j,k+1,bi,bj)*deepFac2F(k+1)*rhoFacF(k+1)
./model/src/integrate_for_w.F 191 INTEGRATE_FOR_W 
     &         +conv2d(i,j)*recip_rA(i,j,bi,bj)
./model/src/integrate_for_w.F 192 INTEGRATE_FOR_W 
     &        )*maskC(i,j,k,bi,bj)
./model/src/integrate_for_w.F 36 INTEGRATE_FOR_W 
      INTEGER bi,bj,k
./model/src/integrate_for_w.F 66 INTEGRATE_FOR_W 
          uTrans(i,j) = uFld(i,j,k,bi,bj)
./model/src/integrate_for_w.F 67 INTEGRATE_FOR_W 
     &                *_dyG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k)
./model/src/integrate_for_w.F 68 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacW(i,j,k,bi,bj)
./model/src/integrate_for_w.F 69 INTEGRATE_FOR_W 
          vTrans(i,j) = vFld(i,j,k,bi,bj)
./model/src/integrate_for_w.F 70 INTEGRATE_FOR_W 
     &                *_dxG(i,j,bi,bj)*deepFacC(k)*rhoFacC(k)
./model/src/integrate_for_w.F 71 INTEGRATE_FOR_W 
     &                *drF(k)*_hFacS(i,j,k,bi,bj)
./model/src/integrate_for_w.F 85 INTEGRATE_FOR_W 
     &                + mFld(i,j,k,bi,bj)*mass2rUnit
./model/src/integrate_for_w.F 98 INTEGRATE_FOR_W 
             wFld(i,j,k,bi,bj) = 0.
./eesupp/src/comm_stats.F 100 COMM_STATS 
         IF ( FLOAT(exchRecvYExchCount(1,bi,bj)) .NE. 0. ) THEN
./eesupp/src/comm_stats.F 103 COMM_STATS 
     &    FLOAT(exchRecvYSpinCount(1,bi,bj))/
./eesupp/src/comm_stats.F 104 COMM_STATS 
     &    FLOAT(exchRecvYExchCount(1,bi,bj))
./eesupp/src/comm_stats.F 30 COMM_STATS 
      INTEGER bi, bj, I
./eesupp/src/comm_stats.F 48 COMM_STATS 
       DO bj=1,nSy
./eesupp/src/comm_stats.F 51 COMM_STATS 
     &    '//',' o Tile number: ',tileNo(bi,bj)
./eesupp/src/comm_stats.F 56 COMM_STATS 
     &    '//','         No. X exchanges =',exchRecvXExchCount(1,bi,bj)
./eesupp/src/comm_stats.F 60 COMM_STATS 
     &    '//','            Max. X spins =',exchRecvXSpinMax  (1,bi,bj)
./eesupp/src/comm_stats.F 64 COMM_STATS 
     &    '//','            Min. X spins =',exchRecvXSpinMin  (1,bi,bj)
./eesupp/src/comm_stats.F 68 COMM_STATS 
     &    '//','          Total. X spins =',exchRecvXSpinCount(1,bi,bj)
./eesupp/src/comm_stats.F 71 COMM_STATS 
         IF ( FLOAT(exchRecvXExchCount(1,bi,bj)) .NE. 0. ) THEN
./eesupp/src/comm_stats.F 74 COMM_STATS 
     &    FLOAT(exchRecvXSpinCount(1,bi,bj))/
./eesupp/src/comm_stats.F 75 COMM_STATS 
     &    FLOAT(exchRecvXExchCount(1,bi,bj))
./eesupp/src/comm_stats.F 85 COMM_STATS 
     &    '//','         No. Y exchanges =',exchRecvYExchCount(1,bi,bj)
./eesupp/src/comm_stats.F 89 COMM_STATS 
     &    '//','            Max. Y spins =',exchRecvYSpinMax  (1,bi,bj)
./eesupp/src/comm_stats.F 93 COMM_STATS 
     &    '//','            Min. Y spins =',exchRecvYSpinMin  (1,bi,bj)
./eesupp/src/comm_stats.F 97 COMM_STATS 
     &    '//','          Total. Y spins =',exchRecvYSpinCount(1,bi,bj)
./model/src/load_fields_driver.F 109 LOAD_FIELDS_DRIVER 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/load_fields_driver.F 114 LOAD_FIELDS_DRIVER 
             frictionHeating(i,j,k,bi,bj) = 0. _d 0
./model/src/load_fields_driver.F 82 LOAD_FIELDS_DRIVER 
      INTEGER i,j,k,bi,bj
./model/src/load_fields_driver.F 93 LOAD_FIELDS_DRIVER 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/load_fields_driver.F 98 LOAD_FIELDS_DRIVER 
             addMass(i,j,k,bi,bj) =  0. _d 0
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR 
                bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F 101 CTRL_MAP_INI_GENARR 
     &                                   + tmpfld2d(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F 103 CTRL_MAP_INI_GENARR 
                bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F 104 CTRL_MAP_INI_GENARR 
     &           + xx_genarr2d(i,j,bi,bj,iarr)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F 105 CTRL_MAP_INI_GENARR 
     &           + tmpfld2d(i,j,bi,bj)
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F 52 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/global_ocean.90x40x15/code_ad/ctrl_map_ini_genarr.F 93 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/global_ocean.cs32x15/code_ad/cost_test.F 31 COST_TEST 
      integer bi, bj
./verification/global_ocean.cs32x15/code_ad/cost_test.F 63 COST_TEST 
      do bj = jtlo,jthi
./verification/global_ocean.cs32x15/code_ad/cost_test.F 66 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/global_ocean.cs32x15/code_ad/cost_test.F 73 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/global_ocean.cs32x15/code_ad/cost_test.F 74 COST_TEST 
               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./verification/global_ocean.cs32x15/code_ad/cost_test.F 77 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./verification/global_ocean.cs32x15/code_ad/cost_test.F 82 COST_TEST 
         if (maskC(i,j,k,bi,bj).NE.0.) then
./verification/global_ocean.cs32x15/code_ad/cost_test.F 83 COST_TEST 
           objf_test(bi,bj) = objf_test(bi,bj) +
./verification/global_ocean.cs32x15/code_ad/cost_test.F 84 COST_TEST 
     &        (theta(i,j,k,bi,bj)-thetaLev(i,j,k,bi,bj))**2
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F 149 PLOT_FIELD_XYRL 
      INTEGER bi, bj
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F 165 PLOT_FIELD_XYRL 
       DO bj=1,nSy
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F 179 PLOT_FIELD_XYRL 
         bjStart  =  bj
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F 55 PLOT_FIELD_XYRS 
      INTEGER bi ,bj
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F 71 PLOT_FIELD_XYRS 
       DO bj=1,nSy
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F 85 PLOT_FIELD_XYRS 
         bjStart  =  bj
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/plot_field.F 86 PLOT_FIELD_XYRS 
         bjEnd    =  bj
./model/src/momentum_correction_step.F 102 MOMENTUM_CORRECTION_STEP 
          CALL OBCS_APPLY_UV( bi, bj, 0, uVel, vVel, myThid )
./model/src/momentum_correction_step.F 61 MOMENTUM_CORRECTION_STEP 
      INTEGER bi,bj
./model/src/momentum_correction_step.F 65 MOMENTUM_CORRECTION_STEP 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/momentum_correction_step.F 85 MOMENTUM_CORRECTION_STEP 
     I       bi,bj,iMin,iMax,jMin,jMax,
./model/src/momentum_correction_step.F 95 MOMENTUM_CORRECTION_STEP 
     I         bi,bj,iMin,iMax,jMin,jMax,k,
./verification/halfpipe_streamice/code_ad/cost_test.F 35 COST_TEST 
      integer bi, bj
./verification/halfpipe_streamice/code_ad/cost_test.F 80 COST_TEST 
      do bj = jtlo,jthi
./verification/halfpipe_streamice/code_ad/cost_test.F 86 COST_TEST 
            if (streamice_hmask(i,j,bi,bj).eq.1.0) then
./verification/halfpipe_streamice/code_ad/cost_test.F 87 COST_TEST 
             objf_test (bi,bj) = objf_test (bi,bj) +
./verification/halfpipe_streamice/code_ad/cost_test.F 88 COST_TEST 
     &       u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR 
     &                  + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 104 CTRL_MAP_INI_GENARR 
                  B_glen(i,j,bi,bj) =
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 105 CTRL_MAP_INI_GENARR 
     &                  B_glen(i,j,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 106 CTRL_MAP_INI_GENARR 
     &                  + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 147 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 153 CTRL_MAP_INI_GENARR 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 154 CTRL_MAP_INI_GENARR 
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 156 CTRL_MAP_INI_GENARR 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 157 CTRL_MAP_INI_GENARR 
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 160 CTRL_MAP_INI_GENARR 
                diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 161 CTRL_MAP_INI_GENARR 
     &                              + tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 56 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 91 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 98 CTRL_MAP_INI_GENARR 
                  H_streamice(i,j,bi,bj) =
./verification/halfpipe_streamice/code_ad/ctrl_map_ini_genarr.F 99 CTRL_MAP_INI_GENARR 
     &                  H_streamice(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/cost_test.F 34 COST_TEST 
      integer bi, bj
./verification/halfpipe_streamice/code_oad/cost_test.F 79 COST_TEST 
      do bj = jtlo,jthi
./verification/halfpipe_streamice/code_oad/cost_test.F 85 COST_TEST 
            if (streamice_hmask(i,j,bi,bj).eq.1.0) then
./verification/halfpipe_streamice/code_oad/cost_test.F 86 COST_TEST 
             objf_test (bi,bj) = objf_test (bi,bj) +
./verification/halfpipe_streamice/code_oad/cost_test.F 87 COST_TEST 
     &       u_streamice(i,j,bi,bj)**2+v_streamice(i,j,bi,bj)**2
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR 
                  H_streamice(i,j,bi,bj) =
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 101 CTRL_MAP_INI_GENARR 
     &                  H_streamice(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 102 CTRL_MAP_INI_GENARR 
     &                  + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 104 CTRL_MAP_INI_GENARR 
     &                  + xx_genarr2d(i,j,bi,bj,iarr)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 108 CTRL_MAP_INI_GENARR 
                  B_glen(i,j,bi,bj) =
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 109 CTRL_MAP_INI_GENARR 
     &                  B_glen(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 110 CTRL_MAP_INI_GENARR 
     &                  + tmpfld2d(i,j,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 112 CTRL_MAP_INI_GENARR 
     &                  + xx_genarr2d(i,j,bi,bj,iarr)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 155 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 161 CTRL_MAP_INI_GENARR 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 162 CTRL_MAP_INI_GENARR 
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 164 CTRL_MAP_INI_GENARR 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 165 CTRL_MAP_INI_GENARR 
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 168 CTRL_MAP_INI_GENARR 
                diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 169 CTRL_MAP_INI_GENARR 
     &                              + tmpfld3d(i,j,k,bi,bj)
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 56 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/halfpipe_streamice/code_oad/ctrl_map_ini_genarr.F 94 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/hs94.128x64x5/code/external_forcing.F 108 EXTERNAL_FORCING_V 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./verification/hs94.128x64x5/code/external_forcing.F 10 EXTERNAL_FORCING_U 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./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 146 EXTERNAL_FORCING_T 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./verification/hs94.128x64x5/code/external_forcing.F 176 EXTERNAL_FORCING_T 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./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 219 EXTERNAL_FORCING_S 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./verification/hs94.128x64x5/code/external_forcing.F 250 EXTERNAL_FORCING_S 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./verification/hs94.128x64x5/code/external_forcing.F 40 EXTERNAL_FORCING_U 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./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.128x64x5/code/external_forcing.F 78 EXTERNAL_FORCING_V 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./verification/hs94.1x64x5/code/apply_forcing.F 112 APPLY_FORCING_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code/apply_forcing.F 146 APPLY_FORCING_V 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code/apply_forcing.F 168 APPLY_FORCING_V 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 183 APPLY_FORCING_V 
     &          /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 185 APPLY_FORCING_V 
     &          /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 191 APPLY_FORCING_V 
     &               - kV*vVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F 19 APPLY_FORCING_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code/apply_forcing.F 205 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code/apply_forcing.F 238 APPLY_FORCING_T 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code/apply_forcing.F 258 APPLY_FORCING_T 
         term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/apply_forcing.F 261 APPLY_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 268 APPLY_FORCING_T 
     &                    *recip_Rcol(i,j,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 288 APPLY_FORCING_T 
     &      *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.1x64x5/code/apply_forcing.F 290 APPLY_FORCING_T 
     &               - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code/apply_forcing.F 291 APPLY_FORCING_T 
     &                *maskC(i,j,k,bi,bj)
./verification/hs94.1x64x5/code/apply_forcing.F 304 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code/apply_forcing.F 338 APPLY_FORCING_S 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code/apply_forcing.F 53 APPLY_FORCING_U 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code/apply_forcing.F 75 APPLY_FORCING_U 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 90 APPLY_FORCING_U 
     &          /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 92 APPLY_FORCING_U 
     &          /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code/apply_forcing.F 98 APPLY_FORCING_U 
     &               - kV*uVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code/ini_theta.F 101 INI_THETA 
           IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0.
./verification/hs94.1x64x5/code/ini_theta.F 107 INI_THETA 
            IF (  maskC(I,J,K,bi,bj).NE.0.
./verification/hs94.1x64x5/code/ini_theta.F 108 INI_THETA 
     &      .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN
./verification/hs94.1x64x5/code/ini_theta.F 51 INI_THETA 
      INTEGER bi, bj
./verification/hs94.1x64x5/code/ini_theta.F 63 INI_THETA 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code/ini_theta.F 69 INI_THETA 
            term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/ini_theta.F 71 INI_THETA 
     &              *(cos(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/ini_theta.F 73 INI_THETA 
            theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq )
./verification/hs94.1x64x5/code/ini_theta.F 84 INI_THETA 
     U                       theta(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code/ini_theta.F 86 INI_THETA 
     I                       1, sNy, Nr, bi, bj, 1, myThid )
./verification/hs94.1x64x5/code/ini_theta.F 96 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_ad/apply_forcing.F 112 APPLY_FORCING_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_ad/apply_forcing.F 146 APPLY_FORCING_V 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_ad/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_ad/apply_forcing.F 168 APPLY_FORCING_V 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 183 APPLY_FORCING_V 
     &          /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 185 APPLY_FORCING_V 
     &          /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 191 APPLY_FORCING_V 
     &               - kV*vVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/apply_forcing.F 19 APPLY_FORCING_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_ad/apply_forcing.F 205 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_ad/apply_forcing.F 238 APPLY_FORCING_T 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_ad/apply_forcing.F 258 APPLY_FORCING_T 
         term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/apply_forcing.F 261 APPLY_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 268 APPLY_FORCING_T 
     &                    *recip_Rcol(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 288 APPLY_FORCING_T 
     &      *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.1x64x5/code_ad/apply_forcing.F 290 APPLY_FORCING_T 
     &               - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code_ad/apply_forcing.F 291 APPLY_FORCING_T 
     &                *maskC(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/apply_forcing.F 304 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_ad/apply_forcing.F 338 APPLY_FORCING_S 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_ad/apply_forcing.F 53 APPLY_FORCING_U 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_ad/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_ad/apply_forcing.F 75 APPLY_FORCING_U 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 90 APPLY_FORCING_U 
     &          /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 92 APPLY_FORCING_U 
     &          /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_ad/apply_forcing.F 98 APPLY_FORCING_U 
     &               - kV*uVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/cost_test.F 31 COST_TEST 
      integer bi, bj
./verification/hs94.1x64x5/code_ad/cost_test.F 47 COST_TEST 
      do bj = jtlo,jthi
./verification/hs94.1x64x5/code_ad/cost_test.F 49 COST_TEST 
          objf_test(bi,bj)= 0. _d 0
./verification/hs94.1x64x5/code_ad/cost_test.F 59 COST_TEST 
      do bj = jtlo,jthi
./verification/hs94.1x64x5/code_ad/cost_test.F 63 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/hs94.1x64x5/code_ad/cost_test.F 68 COST_TEST 
               objf_test(bi,bj) = objf_test(bi,bj) +
./verification/hs94.1x64x5/code_ad/cost_test.F 69 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./verification/hs94.1x64x5/code_ad/cost_test.F 71 COST_TEST 
     &              'objf_test  ', objf_test(bi,bj),
./verification/hs94.1x64x5/code_ad/cost_test.F 72 COST_TEST 
     &              ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/hs94.1x64x5/code_ad/cost_test.F 78 COST_TEST 
          objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 106 CTRL_MAP_GENTIM2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 111 CTRL_MAP_GENTIM2D 
                xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 112 CTRL_MAP_GENTIM2D 
     &            +xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 114 CTRL_MAP_GENTIM2D 
                xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 124 CTRL_MAP_GENTIM2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 126 CTRL_MAP_GENTIM2D 
          LOCsumTile(bi,bj)=0. _d 0
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 129 CTRL_MAP_GENTIM2D 
                LOCsumTile(bi,bj)=LOCsumTile(bi,bj)+
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 130 CTRL_MAP_GENTIM2D 
     &            maskC(i,j,1,bi,bj)*rA(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 131 CTRL_MAP_GENTIM2D 
     &            *xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 139 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 143 CTRL_MAP_GENTIM2D 
             xx_gentim2d(I,J,bi,bj,iarr) =
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 144 CTRL_MAP_GENTIM2D 
     &            LOCsumGlob/globalArea*maskC(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 157 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 162 CTRL_MAP_GENTIM2D 
             theta(I,J,1,bi,bj) = theta(I,J,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 163 CTRL_MAP_GENTIM2D 
     &                          + xx_gentim2d(I,J,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 46 CTRL_MAP_GENTIM2D 
      integer bi,bj
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 83 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F 87 CTRL_MAP_GENTIM2D 
           xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR 
                bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 101 CTRL_MAP_INI_GENARR 
     &                                   + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 104 CTRL_MAP_INI_GENARR 
                theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 105 CTRL_MAP_INI_GENARR 
     &                             + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 107 CTRL_MAP_INI_GENARR 
                salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 108 CTRL_MAP_INI_GENARR 
     &                            + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 113 CTRL_MAP_INI_GENARR 
                bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 114 CTRL_MAP_INI_GENARR 
     &           + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 115 CTRL_MAP_INI_GENARR 
     &           + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 118 CTRL_MAP_INI_GENARR 
                theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 119 CTRL_MAP_INI_GENARR 
     &           + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 120 CTRL_MAP_INI_GENARR 
     &           + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 122 CTRL_MAP_INI_GENARR 
                salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 123 CTRL_MAP_INI_GENARR 
     &           + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 124 CTRL_MAP_INI_GENARR 
     &           + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 158 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 165 CTRL_MAP_INI_GENARR 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 166 CTRL_MAP_INI_GENARR 
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 168 CTRL_MAP_INI_GENARR 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 169 CTRL_MAP_INI_GENARR 
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 173 CTRL_MAP_INI_GENARR 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 174 CTRL_MAP_INI_GENARR 
     &           + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 175 CTRL_MAP_INI_GENARR 
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 177 CTRL_MAP_INI_GENARR 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 178 CTRL_MAP_INI_GENARR 
     &           + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 179 CTRL_MAP_INI_GENARR 
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 52 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/hs94.1x64x5/code_ad/ctrl_map_ini_genarr.F 93 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ini_theta.F 101 INI_THETA 
           IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0.
./verification/hs94.1x64x5/code_ad/ini_theta.F 107 INI_THETA 
            IF (  maskC(I,J,K,bi,bj).NE.0.
./verification/hs94.1x64x5/code_ad/ini_theta.F 108 INI_THETA 
     &      .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN
./verification/hs94.1x64x5/code_ad/ini_theta.F 51 INI_THETA 
      INTEGER bi, bj
./verification/hs94.1x64x5/code_ad/ini_theta.F 63 INI_THETA 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_ad/ini_theta.F 69 INI_THETA 
            term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/ini_theta.F 71 INI_THETA 
     &              *(cos(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/ini_theta.F 73 INI_THETA 
            theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq )
./verification/hs94.1x64x5/code_ad/ini_theta.F 84 INI_THETA 
     U                       theta(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code_ad/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code_ad/ini_theta.F 86 INI_THETA 
     I                       1, sNy, Nr, bi, bj, 1, myThid )
./verification/hs94.1x64x5/code_ad/ini_theta.F 96 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_oad/apply_forcing.F 112 APPLY_FORCING_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_oad/apply_forcing.F 146 APPLY_FORCING_V 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_oad/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_oad/apply_forcing.F 168 APPLY_FORCING_V 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 183 APPLY_FORCING_V 
     &          /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 185 APPLY_FORCING_V 
     &          /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 191 APPLY_FORCING_V 
     &               - kV*vVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/apply_forcing.F 19 APPLY_FORCING_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_oad/apply_forcing.F 205 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_oad/apply_forcing.F 238 APPLY_FORCING_T 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_oad/apply_forcing.F 258 APPLY_FORCING_T 
         term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_oad/apply_forcing.F 261 APPLY_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_oad/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 268 APPLY_FORCING_T 
     &                    *recip_Rcol(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 288 APPLY_FORCING_T 
     &      *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.1x64x5/code_oad/apply_forcing.F 290 APPLY_FORCING_T 
     &               - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.1x64x5/code_oad/apply_forcing.F 291 APPLY_FORCING_T 
     &                *maskC(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/apply_forcing.F 304 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.1x64x5/code_oad/apply_forcing.F 338 APPLY_FORCING_S 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_oad/apply_forcing.F 53 APPLY_FORCING_U 
      INTEGER k, bi, bj
./verification/hs94.1x64x5/code_oad/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.1x64x5/code_oad/apply_forcing.F 75 APPLY_FORCING_U 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 90 APPLY_FORCING_U 
     &          /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 92 APPLY_FORCING_U 
     &          /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.1x64x5/code_oad/apply_forcing.F 98 APPLY_FORCING_U 
     &               - kV*uVel(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/cost_test.F 31 COST_TEST 
      integer bi, bj
./verification/hs94.1x64x5/code_oad/cost_test.F 47 COST_TEST 
      do bj = jtlo,jthi
./verification/hs94.1x64x5/code_oad/cost_test.F 49 COST_TEST 
          objf_test(bi,bj)= 0. _d 0
./verification/hs94.1x64x5/code_oad/cost_test.F 59 COST_TEST 
      do bj = jtlo,jthi
./verification/hs94.1x64x5/code_oad/cost_test.F 63 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/hs94.1x64x5/code_oad/cost_test.F 68 COST_TEST 
               objf_test(bi,bj) = objf_test(bi,bj) +
./verification/hs94.1x64x5/code_oad/cost_test.F 69 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./verification/hs94.1x64x5/code_oad/cost_test.F 71 COST_TEST 
     &              'objf_test  ', objf_test(bi,bj),
./verification/hs94.1x64x5/code_oad/cost_test.F 72 COST_TEST 
     &              ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/hs94.1x64x5/code_oad/cost_test.F 78 COST_TEST 
          objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 106 CTRL_MAP_GENTIM2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 111 CTRL_MAP_GENTIM2D 
                xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 112 CTRL_MAP_GENTIM2D 
     &            +xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 114 CTRL_MAP_GENTIM2D 
                xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 124 CTRL_MAP_GENTIM2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 126 CTRL_MAP_GENTIM2D 
          LOCsumTile(bi,bj)=0. _d 0
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 129 CTRL_MAP_GENTIM2D 
                LOCsumTile(bi,bj)=LOCsumTile(bi,bj)+
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 130 CTRL_MAP_GENTIM2D 
     &            maskC(i,j,1,bi,bj)*rA(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 131 CTRL_MAP_GENTIM2D 
     &            *xx_gentim2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 139 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 143 CTRL_MAP_GENTIM2D 
             xx_gentim2d(I,J,bi,bj,iarr) =
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 144 CTRL_MAP_GENTIM2D 
     &            LOCsumGlob/globalArea*maskC(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 157 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 162 CTRL_MAP_GENTIM2D 
             theta(I,J,1,bi,bj) = theta(I,J,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 163 CTRL_MAP_GENTIM2D 
     &                          + xx_gentim2d(I,J,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 46 CTRL_MAP_GENTIM2D 
      integer bi,bj
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 83 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F 87 CTRL_MAP_GENTIM2D 
           xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR 
     &                                   + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 103 CTRL_MAP_INI_GENARR 
                theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 104 CTRL_MAP_INI_GENARR 
     &                             + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 106 CTRL_MAP_INI_GENARR 
                salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 107 CTRL_MAP_INI_GENARR 
     &                            + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 112 CTRL_MAP_INI_GENARR 
                bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 113 CTRL_MAP_INI_GENARR 
     &           + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 114 CTRL_MAP_INI_GENARR 
     &           + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 117 CTRL_MAP_INI_GENARR 
                theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 118 CTRL_MAP_INI_GENARR 
     &           + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 119 CTRL_MAP_INI_GENARR 
     &           + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 121 CTRL_MAP_INI_GENARR 
                salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 122 CTRL_MAP_INI_GENARR 
     &           + xx_genarr2d(i,j,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 123 CTRL_MAP_INI_GENARR 
     &           + tmpfld2d(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 157 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 164 CTRL_MAP_INI_GENARR 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 165 CTRL_MAP_INI_GENARR 
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 167 CTRL_MAP_INI_GENARR 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 168 CTRL_MAP_INI_GENARR 
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 172 CTRL_MAP_INI_GENARR 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 173 CTRL_MAP_INI_GENARR 
     &           + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 174 CTRL_MAP_INI_GENARR 
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 176 CTRL_MAP_INI_GENARR 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 177 CTRL_MAP_INI_GENARR 
     &           + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 178 CTRL_MAP_INI_GENARR 
     &           + fac*tmpfld3d(i,j,k,bi,bj)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 51 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 92 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ctrl_map_ini_genarr.F 99 CTRL_MAP_INI_GENARR 
                bottomdragfld(i,j,bi,bj) = bottomdragfld(i,j,bi,bj)
./verification/hs94.1x64x5/code_oad/ini_theta.F 101 INI_THETA 
           IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0.
./verification/hs94.1x64x5/code_oad/ini_theta.F 107 INI_THETA 
            IF (  maskC(I,J,K,bi,bj).NE.0.
./verification/hs94.1x64x5/code_oad/ini_theta.F 108 INI_THETA 
     &      .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN
./verification/hs94.1x64x5/code_oad/ini_theta.F 51 INI_THETA 
      INTEGER bi, bj
./verification/hs94.1x64x5/code_oad/ini_theta.F 63 INI_THETA 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.1x64x5/code_oad/ini_theta.F 69 INI_THETA 
            term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_oad/ini_theta.F 71 INI_THETA 
     &              *(cos(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_oad/ini_theta.F 73 INI_THETA 
            theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq )
./verification/hs94.1x64x5/code_oad/ini_theta.F 84 INI_THETA 
     U                       theta(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code_oad/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.1x64x5/code_oad/ini_theta.F 86 INI_THETA 
     I                       1, sNy, Nr, bi, bj, 1, myThid )
./verification/hs94.1x64x5/code_oad/ini_theta.F 96 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.cs-32x32x5/code/apply_forcing.F 112 APPLY_FORCING_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.cs-32x32x5/code/apply_forcing.F 146 APPLY_FORCING_V 
      INTEGER k, bi, bj
./verification/hs94.cs-32x32x5/code/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.cs-32x32x5/code/apply_forcing.F 168 APPLY_FORCING_V 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 183 APPLY_FORCING_V 
     &          /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 185 APPLY_FORCING_V 
     &          /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 191 APPLY_FORCING_V 
     &               - kV*vVel(i,j,k,bi,bj)
./verification/hs94.cs-32x32x5/code/apply_forcing.F 19 APPLY_FORCING_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.cs-32x32x5/code/apply_forcing.F 205 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.cs-32x32x5/code/apply_forcing.F 238 APPLY_FORCING_T 
      INTEGER k, bi, bj
./verification/hs94.cs-32x32x5/code/apply_forcing.F 258 APPLY_FORCING_T 
         term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/apply_forcing.F 261 APPLY_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 268 APPLY_FORCING_T 
     &                    *recip_Rcol(i,j,bi,bj)
./verification/hs94.cs-32x32x5/code/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 288 APPLY_FORCING_T 
     &      *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/hs94.cs-32x32x5/code/apply_forcing.F 290 APPLY_FORCING_T 
     &               - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/hs94.cs-32x32x5/code/apply_forcing.F 291 APPLY_FORCING_T 
     &                *maskC(i,j,k,bi,bj)
./verification/hs94.cs-32x32x5/code/apply_forcing.F 304 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/hs94.cs-32x32x5/code/apply_forcing.F 338 APPLY_FORCING_S 
      INTEGER k, bi, bj
./verification/hs94.cs-32x32x5/code/apply_forcing.F 53 APPLY_FORCING_U 
      INTEGER k, bi, bj
./verification/hs94.cs-32x32x5/code/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/hs94.cs-32x32x5/code/apply_forcing.F 75 APPLY_FORCING_U 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 90 APPLY_FORCING_U 
     &          /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 92 APPLY_FORCING_U 
     &          /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/hs94.cs-32x32x5/code/apply_forcing.F 98 APPLY_FORCING_U 
     &               - kV*uVel(i,j,k,bi,bj)
./verification/hs94.cs-32x32x5/code/ini_theta.F 101 INI_THETA 
           IF (maskC(I,J,K,bi,bj).EQ.0.) theta(I,J,K,bi,bj) = 0.
./verification/hs94.cs-32x32x5/code/ini_theta.F 107 INI_THETA 
            IF (  maskC(I,J,K,bi,bj).NE.0.
./verification/hs94.cs-32x32x5/code/ini_theta.F 108 INI_THETA 
     &      .AND. theta(I,J,K,bi,bj).EQ.0. ) THEN
./verification/hs94.cs-32x32x5/code/ini_theta.F 51 INI_THETA 
      INTEGER bi, bj
./verification/hs94.cs-32x32x5/code/ini_theta.F 63 INI_THETA 
       DO bj = myByLo(myThid), myByHi(myThid)
./verification/hs94.cs-32x32x5/code/ini_theta.F 69 INI_THETA 
            term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/ini_theta.F 71 INI_THETA 
     &              *(cos(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/ini_theta.F 73 INI_THETA 
            theta(I,J,K,bi,bj) = MAX( thetaLim, thetaEq )
./verification/hs94.cs-32x32x5/code/ini_theta.F 84 INI_THETA 
     U                       theta(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.cs-32x32x5/code/ini_theta.F 85 INI_THETA 
     I                       hFacC(1-OLx,1-OLy,1,bi,bj),
./verification/hs94.cs-32x32x5/code/ini_theta.F 86 INI_THETA 
     I                       1, sNy, Nr, bi, bj, 1, myThid )
./verification/hs94.cs-32x32x5/code/ini_theta.F 96 INI_THETA 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/cumulsum_z_tile.F 120 CUMULSUM_Z_TILE_RL 
          DO bj=1,nSy
./eesupp/src/cumulsum_z_tile.F 123 CUMULSUM_Z_TILE_RL 
              bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj
./eesupp/src/cumulsum_z_tile.F 124 CUMULSUM_Z_TILE_RL 
              globalBuf(1,biG,bjG) = shareBufCS2_R8(1,bi,bj)
./eesupp/src/cumulsum_z_tile.F 125 CUMULSUM_Z_TILE_RL 
              globalBuf(2,biG,bjG) = shareBufCS2_R8(2,bi,bj)
./eesupp/src/cumulsum_z_tile.F 140 CUMULSUM_Z_TILE_RL 
            DO bj=1,nSy
./eesupp/src/cumulsum_z_tile.F 143 CUMULSUM_Z_TILE_RL 
              bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj
./eesupp/src/cumulsum_z_tile.F 144 CUMULSUM_Z_TILE_RL 
              globalBuf(1,biG,bjG) = loc2Buf(1,bi,bj)
./eesupp/src/cumulsum_z_tile.F 145 CUMULSUM_Z_TILE_RL 
              globalBuf(2,biG,bjG) = loc2Buf(2,bi,bj)
./eesupp/src/cumulsum_z_tile.F 152 CUMULSUM_Z_TILE_RL 
          bj = 1
./eesupp/src/cumulsum_z_tile.F 154 CUMULSUM_Z_TILE_RL 
            globalBuf(3,1+bi,bj) = globalBuf(3,bi,bj)
./eesupp/src/cumulsum_z_tile.F 155 CUMULSUM_Z_TILE_RL 
     &                           + globalBuf(1,bi,bj)
./eesupp/src/cumulsum_z_tile.F 157 CUMULSUM_Z_TILE_RL 
          DO bj = 1,nSy*nPy-1
./eesupp/src/cumulsum_z_tile.F 159 CUMULSUM_Z_TILE_RL 
            globalBuf(3,bi,1+bj) = globalBuf(3,bi,bj)
./eesupp/src/cumulsum_z_tile.F 160 CUMULSUM_Z_TILE_RL 
     &                           + globalBuf(2,bi,bj)
./eesupp/src/cumulsum_z_tile.F 166 CUMULSUM_Z_TILE_RL 
          DO bj=1,nSy
./eesupp/src/cumulsum_z_tile.F 169 CUMULSUM_Z_TILE_RL 
              bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj
./eesupp/src/cumulsum_z_tile.F 170 CUMULSUM_Z_TILE_RL 
              shareBufCS1_R8(bi,bj) = globalBuf(3,biG,bjG)
./eesupp/src/cumulsum_z_tile.F 178 CUMULSUM_Z_TILE_RL 
            DO bj=1,nSy
./eesupp/src/cumulsum_z_tile.F 181 CUMULSUM_Z_TILE_RL 
              bjG = (mpi_myYGlobalLo(np1)-1)/sNy+bj
./eesupp/src/cumulsum_z_tile.F 182 CUMULSUM_Z_TILE_RL 
              loc1Buf(bi,bj) = globalBuf(3,biG,bjG)
./eesupp/src/cumulsum_z_tile.F 199 CUMULSUM_Z_TILE_RL 
        bj = 1
./eesupp/src/cumulsum_z_tile.F 202 CUMULSUM_Z_TILE_RL 
           shareBufCS1_R8(1+bi,bj) = shareBufCS1_R8(bi,bj)
./eesupp/src/cumulsum_z_tile.F 203 CUMULSUM_Z_TILE_RL 
     &                             + shareBufCS2_R8(nf,bi,bj)
./eesupp/src/cumulsum_z_tile.F 208 CUMULSUM_Z_TILE_RL 
        psiLoc(1) = shareBufCS1_R8(bi,bj) + shareBufCS2_R8(2,bi,bj)
./eesupp/src/cumulsum_z_tile.F 210 CUMULSUM_Z_TILE_RL 
        psiLoc(2) = shareBufCS1_R8(bi,bj) + shareBufCS2_R8(1,bi,bj)
./eesupp/src/cumulsum_z_tile.F 216 CUMULSUM_Z_TILE_RL 
        bj = 1
./eesupp/src/cumulsum_z_tile.F 218 CUMULSUM_Z_TILE_RL 
           shareBufCS1_R8(1+bi,bj) = shareBufCS1_R8(bi,bj)
./eesupp/src/cumulsum_z_tile.F 219 CUMULSUM_Z_TILE_RL 
     &                             + shareBufCS2_R8(1,bi,bj)
./eesupp/src/cumulsum_z_tile.F 221 CUMULSUM_Z_TILE_RL 
        DO bj = 1,nSy-1
./eesupp/src/cumulsum_z_tile.F 223 CUMULSUM_Z_TILE_RL 
           shareBufCS1_R8(bi,1+bj) = shareBufCS1_R8(bi,bj)
./eesupp/src/cumulsum_z_tile.F 224 CUMULSUM_Z_TILE_RL 
     &                             + shareBufCS2_R8(2,bi,bj)
./eesupp/src/cumulsum_z_tile.F 235 CUMULSUM_Z_TILE_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/cumulsum_z_tile.F 237 CUMULSUM_Z_TILE_RL 
         psiZ(bi,bj) = shareBufCS1_R8(bi,bj)
./eesupp/src/cumulsum_z_tile.F 60 CUMULSUM_Z_TILE_RL 
      INTEGER bi,bj
./eesupp/src/cumulsum_z_tile.F 80 CUMULSUM_Z_TILE_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/cumulsum_z_tile.F 82 CUMULSUM_Z_TILE_RL 
         shareBufCS2_R8(1,bi,bj) = dPsiX(bi,bj)
./eesupp/src/cumulsum_z_tile.F 83 CUMULSUM_Z_TILE_RL 
         shareBufCS2_R8(2,bi,bj) = dPsiY(bi,bj)
./verification/internal_wave/code/obcs_calc.F 100 OBCS_CALC 
            OBEw(J,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 109 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/internal_wave/code/obcs_calc.F 115 OBCS_CALC 
          OBWu(J,K,bi,bj)=0. _d 0
./verification/internal_wave/code/obcs_calc.F 124 OBCS_CALC 
          OBWv(J,K,bi,bj)=0. _d 0
./verification/internal_wave/code/obcs_calc.F 133 OBCS_CALC 
          OBWt(J,K,bi,bj)=tRef(K)
./verification/internal_wave/code/obcs_calc.F 144 OBCS_CALC 
          OBWw(J,K,bi,bj)=-Uinflow
./verification/internal_wave/code/obcs_calc.F 162 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/internal_wave/code/obcs_calc.F 168 OBCS_CALC 
            OBNv(I,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 169 OBCS_CALC 
            OBNu(I,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 170 OBCS_CALC 
            OBNt(I,K,bi,bj)=tRef(K)
./verification/internal_wave/code/obcs_calc.F 171 OBCS_CALC 
            OBNs(I,K,bi,bj)=sRef(K)
./verification/internal_wave/code/obcs_calc.F 173 OBCS_CALC 
            OBNw(I,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 182 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/internal_wave/code/obcs_calc.F 188 OBCS_CALC 
            OBSu(I,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 189 OBCS_CALC 
            OBSv(I,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 190 OBCS_CALC 
            OBSt(I,K,bi,bj)=tRef(K)
./verification/internal_wave/code/obcs_calc.F 191 OBCS_CALC 
            OBSs(I,K,bi,bj)=sRef(K)
./verification/internal_wave/code/obcs_calc.F 193 OBCS_CALC 
            OBSw(I,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 43 OBCS_CALC 
      INTEGER bi, bj
./verification/internal_wave/code/obcs_calc.F 83 OBCS_CALC 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/internal_wave/code/obcs_calc.F 89 OBCS_CALC 
     &          bi, bj, futureTime,
./verification/internal_wave/code/obcs_calc.F 95 OBCS_CALC 
            OBEu(J,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 96 OBCS_CALC 
            OBEv(J,K,bi,bj)=0.
./verification/internal_wave/code/obcs_calc.F 97 OBCS_CALC 
            OBEt(J,K,bi,bj)=tRef(K)
./verification/internal_wave/code/obcs_calc.F 98 OBCS_CALC 
            OBEs(J,K,bi,bj)=sRef(K)
./verification/isomip/code_ad/cost_test.F 31 COST_TEST 
      integer bi, bj
./verification/isomip/code_ad/cost_test.F 63 COST_TEST 
      do bj = jtlo,jthi
./verification/isomip/code_ad/cost_test.F 66 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/isomip/code_ad/cost_test.F 73 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/isomip/code_ad/cost_test.F 74 COST_TEST 
               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_ad/cost_test.F 77 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_ad/cost_test.F 82 COST_TEST 
         if (maskC(i,j,k,bi,bj).NE.0.) then
./verification/isomip/code_ad/cost_test.F 83 COST_TEST 
           objf_test(bi,bj) = objf_test(bi,bj) +
./verification/isomip/code_ad/cost_test.F 84 COST_TEST 
     &        ( theta(i,j,k,bi,bj) )**2
./verification/isomip/code_oad/cost_test.F 31 COST_TEST 
      integer bi, bj
./verification/isomip/code_oad/cost_test.F 63 COST_TEST 
      do bj = jtlo,jthi
./verification/isomip/code_oad/cost_test.F 66 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./verification/isomip/code_oad/cost_test.F 73 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./verification/isomip/code_oad/cost_test.F 74 COST_TEST 
               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_oad/cost_test.F 77 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./verification/isomip/code_oad/cost_test.F 82 COST_TEST 
         if (maskC(i,j,k,bi,bj).NE.0.) then
./verification/isomip/code_oad/cost_test.F 83 COST_TEST 
           objf_test(bi,bj) = objf_test(bi,bj) +
./verification/isomip/code_oad/cost_test.F 84 COST_TEST 
     &        ( theta(i,j,k,bi,bj) )**2
./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 134 POST_CG3D 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 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 60 POST_CG3D 
       DO bj=myByLo(myThid),myByHi(myThid)
./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 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 86 POST_CG3D 
             dPhiNH(i,j,bi,bj) = 0.
./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 99 POST_CG3D 
             dPhiNH(i,j,bi,bj) = dPhiNH(i,j,bi,bj)*recip_Rcol(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 1000 APPLY_FORCING_S 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 1008 APPLY_FORCING_S 
     I                   k, bi, bj, myTime, 0, myThid )
./verification/rotating_tank/code/apply_forcing.F 1015 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 1023 APPLY_FORCING_S 
     I                 k, bi, bj, 2,
./verification/rotating_tank/code/apply_forcing.F 102 APPLY_FORCING_U 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 1032 APPLY_FORCING_S 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 1040 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 1048 APPLY_FORCING_S 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 109 APPLY_FORCING_U 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 116 APPLY_FORCING_U 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 127 APPLY_FORCING_U 
     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 128 APPLY_FORCING_U 
     &      *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 134 APPLY_FORCING_U 
         IF ( kSurfW(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F 136 APPLY_FORCING_U 
     &      +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 137 APPLY_FORCING_U 
     &      *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 146 APPLY_FORCING_U 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 154 APPLY_FORCING_U 
     I                 k, bi, bj, -1,
./verification/rotating_tank/code/apply_forcing.F 164 APPLY_FORCING_U 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 173 APPLY_FORCING_U 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 189 APPLY_FORCING_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/rotating_tank/code/apply_forcing.F 20 APPLY_FORCING_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/rotating_tank/code/apply_forcing.F 222 APPLY_FORCING_V 
      INTEGER k, bi, bj
./verification/rotating_tank/code/apply_forcing.F 243 APPLY_FORCING_V 
          locVar(i,j) = gV(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 247 APPLY_FORCING_V 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./verification/rotating_tank/code/apply_forcing.F 251 APPLY_FORCING_V 
          tmpVar = gV(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 252 APPLY_FORCING_V 
          gV(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 271 APPLY_FORCING_V 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 278 APPLY_FORCING_V 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 285 APPLY_FORCING_V 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 296 APPLY_FORCING_V 
     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 297 APPLY_FORCING_V 
     &      *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 303 APPLY_FORCING_V 
         IF ( kSurfS(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F 305 APPLY_FORCING_V 
     &      +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 306 APPLY_FORCING_V 
     &      *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 315 APPLY_FORCING_V 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 323 APPLY_FORCING_V 
     I                 k, bi, bj, -2,
./verification/rotating_tank/code/apply_forcing.F 332 APPLY_FORCING_V 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 341 APPLY_FORCING_V 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 357 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/rotating_tank/code/apply_forcing.F 391 APPLY_FORCING_T 
      INTEGER k, bi, bj
./verification/rotating_tank/code/apply_forcing.F 466 APPLY_FORCING_T 
          locVar(i,j) = gT(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 470 APPLY_FORCING_T 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./verification/rotating_tank/code/apply_forcing.F 474 APPLY_FORCING_T 
          tmpVar = gT(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 475 APPLY_FORCING_T 
          gT(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 497 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 504 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 511 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 522 APPLY_FORCING_T 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F 523 APPLY_FORCING_T 
     &          *( temp_addMass - theta(i,j,k,bi,bj) )
./verification/rotating_tank/code/apply_forcing.F 524 APPLY_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 525 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 533 APPLY_FORCING_T 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F 535 APPLY_FORCING_T 
     &          *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 536 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 53 APPLY_FORCING_U 
      INTEGER k, bi, bj
./verification/rotating_tank/code/apply_forcing.F 558 APPLY_FORCING_T 
     &         + frictionHeating(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 559 APPLY_FORCING_T 
     &          *tmpFac*recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 560 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 592 APPLY_FORCING_T 
            tmpVar(i,j) = wVel(i,j,kc,bi,bj)*delPI*atm_Rq
./verification/rotating_tank/code/apply_forcing.F 593 APPLY_FORCING_T 
     &                  *( theta(i,j,km,bi,bj)*salt(i,j,km,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 594 APPLY_FORCING_T 
     &                   + theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 595 APPLY_FORCING_T 
     &                   )*maskC(i,j,km,bi,bj)*0.25 _d 0
./verification/rotating_tank/code/apply_forcing.F 605 APPLY_FORCING_T 
     &                  + wVel(i,j,kp,bi,bj)*delPI*atm_Rq
./verification/rotating_tank/code/apply_forcing.F 606 APPLY_FORCING_T 
     &                  *( theta(i,j,kc,bi,bj)*salt(i,j,kc,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 607 APPLY_FORCING_T 
     &                   + theta(i,j,kp,bi,bj)*salt(i,j,kp,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 608 APPLY_FORCING_T 
     &                   )*maskC(i,j,kp,bi,bj)*0.25 _d 0
./verification/rotating_tank/code/apply_forcing.F 616 APPLY_FORCING_T 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 624 APPLY_FORCING_T 
     &                     'MoistCor', kc, 1, 3, bi,bj,myThid )
./verification/rotating_tank/code/apply_forcing.F 634 APPLY_FORCING_T 
     &      +surfaceForcingT(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 635 APPLY_FORCING_T 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 641 APPLY_FORCING_T 
         IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F 643 APPLY_FORCING_T 
     &      +surfaceForcingT(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 644 APPLY_FORCING_T 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 653 APPLY_FORCING_T 
          IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./verification/rotating_tank/code/apply_forcing.F 655 APPLY_FORCING_T 
     &        +TsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 678 APPLY_FORCING_T 
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 679 APPLY_FORCING_T 
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./verification/rotating_tank/code/apply_forcing.F 681 APPLY_FORCING_T 
     &    *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 698 APPLY_FORCING_T 
        jG = myYGlobalLo-1+(bj-1)*sNy+J
./verification/rotating_tank/code/apply_forcing.F 708 APPLY_FORCING_T 
          hC = hFacC(i  ,j  ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 709 APPLY_FORCING_T 
          hW = hFacW(i  ,j  ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 710 APPLY_FORCING_T 
          hE = hFacW(i+1,j  ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 711 APPLY_FORCING_T 
          hN = hFacS(i  ,j+1,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 712 APPLY_FORCING_T 
          hS = hFacS(i  ,j  ,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 715 APPLY_FORCING_T 
           faceArea = drF(k)*dyG(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 717 APPLY_FORCING_T 
     &      -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl)
./verification/rotating_tank/code/apply_forcing.F 718 APPLY_FORCING_T 
     &      *recip_dxC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 722 APPLY_FORCING_T 
           faceArea = drF(k)*dyG(i+1,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 724 APPLY_FORCING_T 
     &      -faceArea*kDiffCyl*(tCyl - theta(i,j,k,bi,bj))
./verification/rotating_tank/code/apply_forcing.F 725 APPLY_FORCING_T 
     &      *recip_dxC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 729 APPLY_FORCING_T 
           faceArea = drF(k)*dxG(i,j+1,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 731 APPLY_FORCING_T 
     &      -faceArea*kDiffCyl*(tCyl-theta(i,j,k,bi,bj))
./verification/rotating_tank/code/apply_forcing.F 732 APPLY_FORCING_T 
     &      *recip_dyC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 736 APPLY_FORCING_T 
           faceArea = drF(k)*dxG(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 738 APPLY_FORCING_T 
     &      -faceArea*kDiffCyl*(theta(i,j,k,bi,bj) - tCyl)
./verification/rotating_tank/code/apply_forcing.F 739 APPLY_FORCING_T 
     &      *recip_dyC(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 745 APPLY_FORCING_T 
     &  -_recip_hFacC(i,j,k,bi,bj)*recip_drF(k)
./verification/rotating_tank/code/apply_forcing.F 746 APPLY_FORCING_T 
     &  *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 74 APPLY_FORCING_U 
          locVar(i,j) = gU(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 760 APPLY_FORCING_T 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 768 APPLY_FORCING_T 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 776 APPLY_FORCING_T 
     I                   k, bi, bj, myTime, 0, myThid )
./verification/rotating_tank/code/apply_forcing.F 783 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 78 APPLY_FORCING_U 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./verification/rotating_tank/code/apply_forcing.F 791 APPLY_FORCING_T 
     I                 k, bi, bj, 1,
./verification/rotating_tank/code/apply_forcing.F 800 APPLY_FORCING_T 
     I                   iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 808 APPLY_FORCING_T 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 816 APPLY_FORCING_T 
     I                 iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 82 APPLY_FORCING_U 
          tmpVar = gU(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 832 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/rotating_tank/code/apply_forcing.F 83 APPLY_FORCING_U 
          gU(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 866 APPLY_FORCING_S 
      INTEGER k, bi, bj
./verification/rotating_tank/code/apply_forcing.F 887 APPLY_FORCING_S 
          locVar(i,j) = gS(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 891 APPLY_FORCING_S 
     I              iMin, iMax, jMin, jMax, bi, bj, k,
./verification/rotating_tank/code/apply_forcing.F 895 APPLY_FORCING_S 
          tmpVar = gS(i,j,k,bi,bj) - locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 896 APPLY_FORCING_S 
          gS(i,j,k,bi,bj) = locVar(i,j)
./verification/rotating_tank/code/apply_forcing.F 917 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 924 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 931 APPLY_FORCING_S 
     I                       iMin,iMax,jMin,jMax, k, bi,bj,
./verification/rotating_tank/code/apply_forcing.F 942 APPLY_FORCING_S 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F 943 APPLY_FORCING_S 
     &          *( salt_addMass - salt(i,j,k,bi,bj) )
./verification/rotating_tank/code/apply_forcing.F 944 APPLY_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 945 APPLY_FORCING_S 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 953 APPLY_FORCING_S 
     &        + addMass(i,j,k,bi,bj)*mass2rUnit
./verification/rotating_tank/code/apply_forcing.F 955 APPLY_FORCING_S 
     &          *recip_rA(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 956 APPLY_FORCING_S 
     &          *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 969 APPLY_FORCING_S 
     &      +surfaceForcingS(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 970 APPLY_FORCING_S 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 976 APPLY_FORCING_S 
         IF ( kSurfC(i,j,bi,bj).EQ.k ) THEN
./verification/rotating_tank/code/apply_forcing.F 978 APPLY_FORCING_S 
     &      +surfaceForcingS(i,j,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 979 APPLY_FORCING_S 
     &      *recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./verification/rotating_tank/code/apply_forcing.F 988 APPLY_FORCING_S 
          IF (k .EQ. kSurfC(i,j,bi,bj)) THEN
./verification/rotating_tank/code/apply_forcing.F 990 APPLY_FORCING_S 
     &        +SsurfCor*recip_drF(k)*_recip_hFacC(i,j,k,bi,bj)
./model/src/pre_cg3d.F 100 PRE_CG3D 
               tmpSurf = ( tmpSurf*( etaN(i,j,bi,bj)-etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F 103 PRE_CG3D 
     &                                    *wVel(i,j,1,bi,bj)
./model/src/pre_cg3d.F 106 PRE_CG3D 
               tmpSurf = etaN(i,j,bi,bj)-etaH(i,j,bi,bj)
./model/src/pre_cg3d.F 108 PRE_CG3D 
              ks = kSurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 110 PRE_CG3D 
               cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 113 PRE_CG3D 
     &                              *_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/pre_cg3d.F 123 PRE_CG3D 
              ks = kSurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 125 PRE_CG3D 
     &                    *( etaN(i,j,bi,bj) - etaH(i,j,bi,bj) )
./model/src/pre_cg3d.F 126 PRE_CG3D 
     &                    *_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/pre_cg3d.F 128 PRE_CG3D 
     &                    *recip_Rcol(i,j,bi,bj)
./model/src/pre_cg3d.F 134 PRE_CG3D 
              cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F 135 PRE_CG3D 
     &          + tmpVar(i,j)*drF(k)*h0FacC(i,j,k,bi,bj)
./model/src/pre_cg3d.F 148 PRE_CG3D 
              ks = kSurfC(i,j,bi,bj)
./model/src/pre_cg3d.F 150 PRE_CG3D 
               cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 151 PRE_CG3D 
     &              +freeSurfFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/pre_cg3d.F 152 PRE_CG3D 
     &                  *_rA(i,j,bi,bj)*deepFac2F(ks)/deltaTmom
./model/src/pre_cg3d.F 164 PRE_CG3D 
           uf(i,j) = -_recip_dxC(i,j,bi,bj)
./model/src/pre_cg3d.F 166 PRE_CG3D 
     &             *(cg2d_x(i,j,bi,bj)-cg2d_x(i-1,j,bi,bj))
./model/src/pre_cg3d.F 168 PRE_CG3D 
     &             *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj)
./model/src/pre_cg3d.F 170 PRE_CG3D 
           vf(i,j) = -_recip_dyC(i,j,bi,bj)
./model/src/pre_cg3d.F 172 PRE_CG3D 
     &             *(cg2d_x(i,j,bi,bj)-cg2d_x(i,j-1,bi,bj))
./model/src/pre_cg3d.F 174 PRE_CG3D 
     &             *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./model/src/pre_cg3d.F 188 PRE_CG3D 
            cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F 189 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 190 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F 191 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 192 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 193 PRE_CG3D 
     &       +( tmpFac*etaN(i,j,bi,bj)/deltaTfreesurf
./model/src/pre_cg3d.F 194 PRE_CG3D 
     &         -wVel(i,j,kp1,bi,bj)*wFacKp
./model/src/pre_cg3d.F 195 PRE_CG3D 
     &        )*_rA(i,j,bi,bj)/deltaTmom
./model/src/pre_cg3d.F 207 PRE_CG3D 
            cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F 208 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 209 PRE_CG3D 
     &       -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j)
./model/src/pre_cg3d.F 210 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 211 PRE_CG3D 
     &       -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j )
./model/src/pre_cg3d.F 212 PRE_CG3D 
     &       +( wVel(i,j, k ,bi,bj)*wFacKm*maskC(i,j,k-1,bi,bj)
./model/src/pre_cg3d.F 213 PRE_CG3D 
     &         -wVel(i,j,kp1,bi,bj)*wFacKp
./model/src/pre_cg3d.F 214 PRE_CG3D 
     &        )*_rA(i,j,bi,bj)/deltaTmom
./model/src/pre_cg3d.F 233 PRE_CG3D 
              cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)
./model/src/pre_cg3d.F 234 PRE_CG3D 
     &                            *maskInC(i,j,bi,bj)
./model/src/pre_cg3d.F 235 PRE_CG3D 
              phi_nh(i,j,k,bi,bj) = phi_nh(i,j,k,bi,bj)
./model/src/pre_cg3d.F 236 PRE_CG3D 
     &                            *maskInC(i,j,bi,bj)
./model/src/pre_cg3d.F 56 PRE_CG3D 
      INTEGER i,j,k,bi,bj
./model/src/pre_cg3d.F 73 PRE_CG3D 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/pre_cg3d.F 84 PRE_CG3D 
            cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/pre_cg3d.F 85 PRE_CG3D 
     &        + tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom
./model/src/pre_cg3d.F 86 PRE_CG3D 
     &                               *maskInC(i,j,bi,bj)
./model/src/pre_cg3d.F 98 PRE_CG3D 
     &                  *Bo_surf(i,j,bi,bj)*recip_drC(1)
./model/src/pressure_for_eos.F 35 PRESSURE_FOR_EOS 
      INTEGER bi, bj, k
./model/src/pressure_for_eos.F 60 PRESSURE_FOR_EOS 
     &                   totPhiHyd(i,j,k,bi,bj)
./model/src/pressure_for_eos.F 9 PRESSURE_FOR_EOS 
     I        bi, bj, iMin, iMax, jMin, jMax,  k,
./verification/solid-body.cs-32x32x1/code/ini_psurf.F 34 INI_PSURF 
      INTEGER bi, bj
./verification/solid-body.cs-32x32x1/code/ini_psurf.F 41 INI_PSURF 
      DO bj = myByLo(myThid), myByHi(myThid)
./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_psurf.F 61 INI_PSURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/solid-body.cs-32x32x1/code/ini_psurf.F 65 INI_PSURF 
          etaNm1(I,J,bi,bj) = etaN(I,J,bi,bj)
./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 49 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 86 INI_VEL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 100 EXTERNAL_FORCING_U 
     &    )*recip_DXC(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 101 EXTERNAL_FORCING_U 
     &   *_maskW(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 114 EXTERNAL_FORCING_V 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./verification/tidal_basin_2d/code/external_forcing.F 11 EXTERNAL_FORCING_U 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./verification/tidal_basin_2d/code/external_forcing.F 144 EXTERNAL_FORCING_V 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./verification/tidal_basin_2d/code/external_forcing.F 172 EXTERNAL_FORCING_V 
         gV(i,j,kLev,bi,bj) = gV(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 173 EXTERNAL_FORCING_V 
     &   +foFacMom*surfaceForcingV(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 174 EXTERNAL_FORCING_V 
     &   *recip_drF(kLev)*recip_hFacS(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 187 EXTERNAL_FORCING_T 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./verification/tidal_basin_2d/code/external_forcing.F 217 EXTERNAL_FORCING_T 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./verification/tidal_basin_2d/code/external_forcing.F 252 EXTERNAL_FORCING_T 
         gT(i,j,kLev,bi,bj)=gT(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 253 EXTERNAL_FORCING_T 
     &     +surfaceForcingT(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 254 EXTERNAL_FORCING_T 
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 275 EXTERNAL_FORCING_T 
         gT(i,j,klev,bi,bj) = gT(i,j,klev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 276 EXTERNAL_FORCING_T 
     &   -Qsw(i,j,bi,bj)*(swfracb(1)*maskC(i,j,klev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 277 EXTERNAL_FORCING_T 
     &                   -swfracb(2)*maskC(i,j,kp1, bi,bj))
./verification/tidal_basin_2d/code/external_forcing.F 279 EXTERNAL_FORCING_T 
     &    *recip_drF(klev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 293 EXTERNAL_FORCING_S 
     I           iMin,iMax, jMin,jMax, bi,bj, kLev,
./verification/tidal_basin_2d/code/external_forcing.F 324 EXTERNAL_FORCING_S 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./verification/tidal_basin_2d/code/external_forcing.F 350 EXTERNAL_FORCING_S 
         gS(i,j,kLev,bi,bj)=gS(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 351 EXTERNAL_FORCING_S 
     &     +surfaceForcingS(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 352 EXTERNAL_FORCING_S 
     &     *recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 41 EXTERNAL_FORCING_U 
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
./verification/tidal_basin_2d/code/external_forcing.F 71 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 72 EXTERNAL_FORCING_U 
     &   +foFacMom*surfaceForcingU(i,j,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 73 EXTERNAL_FORCING_U 
     &   *recip_drF(kLev)*recip_hFacW(i,j,kLev,bi,bj)
./verification/tidal_basin_2d/code/external_forcing.F 94 EXTERNAL_FORCING_U 
         longitud1=XC(i-1,j,bi,bj)*Coord2longitude
./verification/tidal_basin_2d/code/external_forcing.F 95 EXTERNAL_FORCING_U 
         longitud2=XC(i,j,bi,bj)*Coord2longitude
./verification/tidal_basin_2d/code/external_forcing.F 96 EXTERNAL_FORCING_U 
         gU(i,j,kLev,bi,bj) = gU(i,j,kLev,bi,bj)
./model/src/remove_mean.F 150 REMOVE_MEAN_RS 
      INTEGER bi,bj,I,J,K
./model/src/remove_mean.F 161 REMOVE_MEAN_RS 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/remove_mean.F 166 REMOVE_MEAN_RS 
           tmpVal=arr(I,J,K,bi,bj)
./model/src/remove_mean.F 167 REMOVE_MEAN_RS 
           IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./model/src/remove_mean.F 168 REMOVE_MEAN_RS 
            tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
./model/src/remove_mean.F 184 REMOVE_MEAN_RS 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/remove_mean.F 189 REMOVE_MEAN_RS 
            IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./model/src/remove_mean.F 190 REMOVE_MEAN_RS 
             arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean
./model/src/remove_mean.F 45 REMOVE_MEAN_RL 
      INTEGER bi,bj,I,J,K
./model/src/remove_mean.F 56 REMOVE_MEAN_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/remove_mean.F 61 REMOVE_MEAN_RL 
           tmpVal=arr(I,J,K,bi,bj)
./model/src/remove_mean.F 62 REMOVE_MEAN_RL 
           IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./model/src/remove_mean.F 63 REMOVE_MEAN_RL 
            tmpVol = arrArea(I,J,bi,bj)*arrhFac(I,J,K,bi,bj)*arrDr(K)
./model/src/remove_mean.F 79 REMOVE_MEAN_RL 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/remove_mean.F 84 REMOVE_MEAN_RL 
            IF (arrMask(I,J,K,bi,bj).NE.0.) THEN
./model/src/remove_mean.F 85 REMOVE_MEAN_RL 
             arr(I,J,K,bi,bj) = arr(I,J,K,bi,bj) - theMean
./model/src/reset_nlfs_vars.F 42 RESET_NLFS_VARS 
      INTEGER i,j,bi,bj
./model/src/reset_nlfs_vars.F 47 RESET_NLFS_VARS 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/reset_nlfs_vars.F 54 RESET_NLFS_VARS 
           pStarFacK(i,j,bi,bj) = rStarFacC(i,j,bi,bj)**atm_kappa
./model/src/reset_nlfs_vars.F 60 RESET_NLFS_VARS 
           pStarFacK(i,j,bi,bj) = 1. _d 0
./model/src/rotate_spherical_polar_grid.F 137 ROTATE_SPHERICAL_POLAR_GRID 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/rotate_spherical_polar_grid.F 146 ROTATE_SPHERICAL_POLAR_GRID 
     &         COS( Y(I,J,bi,bj)*deg2rad )*COS( X(I,J,bi,bj)*deg2rad )
./model/src/rotate_spherical_polar_grid.F 148 ROTATE_SPHERICAL_POLAR_GRID 
     &         COS( Y(I,J,bi,bj)*deg2rad )*SIN( X(I,J,bi,bj)*deg2rad )
./model/src/rotate_spherical_polar_grid.F 149 ROTATE_SPHERICAL_POLAR_GRID 
          XYZrot(3) = SIN( Y(I,J,bi,bj)*deg2rad )
./model/src/rotate_spherical_polar_grid.F 164 ROTATE_SPHERICAL_POLAR_GRID 
           X(I,J,bi,bj) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 166 ROTATE_SPHERICAL_POLAR_GRID 
           X(I,J,bi,bj) = ATAN2(XYZgeo(2),XYZgeo(1))/deg2rad
./model/src/rotate_spherical_polar_grid.F 167 ROTATE_SPHERICAL_POLAR_GRID 
           IF ( X(I,J,bi,bj) .LT. 0. _d 0 )
./model/src/rotate_spherical_polar_grid.F 168 ROTATE_SPHERICAL_POLAR_GRID 
     &          X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0
./model/src/rotate_spherical_polar_grid.F 172 ROTATE_SPHERICAL_POLAR_GRID 
           Y(I,J,bi,bj) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 174 ROTATE_SPHERICAL_POLAR_GRID 
           Y(I,J,bi,bj) = ATAN2(XYZgeo(3),hypotxy)/deg2rad
./model/src/rotate_spherical_polar_grid.F 60 ROTATE_SPHERICAL_POLAR_GRID 
      INTEGER bi, bj
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 36 COST_TRACER 
      integer bi, bj
./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_biogeo/code_ad/cost_tracer.F 62 COST_TRACER 
      objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 65 COST_TRACER 
      print *, 'COST TRACER nach', objf_tracer(bi,bj),
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 6 COST_TRACER 
      subroutine COST_TRACER( bi, bj, myThid )
./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 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 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 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 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 152 ROTATE_UV2EN_RL 
            uFldX(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 153 ROTATE_UV2EN_RL 
            vFldY(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 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 161 ROTATE_UV2EN_RL 
            vFldY(i,j,k,bi,bj) = 0.5 _d 0
./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 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 241 ROTATE_UV2EN_RS 
      integer bi,bj
./model/src/rotate_uv2en.F 257 ROTATE_UV2EN_RS 
      do bj = mybylo(mythid),mybyhi(mythid)
./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 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 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 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 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 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 333 ROTATE_UV2EN_RS 
            uFldX(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 334 ROTATE_UV2EN_RS 
            vFldY(i,1,k,bi,bj)=0.
./model/src/rotate_uv2en.F 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 342 ROTATE_UV2EN_RS 
            vFldY(i,j,k,bi,bj) = 0.5 _d 0
./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 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 60 ROTATE_UV2EN_RL 
      integer bi,bj
./model/src/rotate_uv2en.F 76 ROTATE_UV2EN_RL 
      do bj = mybylo(mythid),mybyhi(mythid)
./model/src/rotate_uv2en.F 99 ROTATE_UV2EN_RL 
     &          *( uFldX(i+1,j,k,bi,bj) + uFldX(i,j,k,bi,bj) )
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 36 COST_TRACER 
      integer bi, bj
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 55 COST_TRACER 
            locfc = locfc + maskC(i,j,k,bi,bj)*
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 56 COST_TRACER 
     &           ptracer(i,j,k,bi,bj,6)*
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 57 COST_TRACER 
     &           rA(i,j,bi,bj)*drF(k)
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 62 COST_TRACER 
      objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 65 COST_TRACER 
      print *, 'COST TRACER nach', objf_tracer(bi,bj),
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F 6 COST_TRACER 
      subroutine COST_TRACER( bi, bj, myThid )
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 140 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 146 CTRL_MAP_INI_GENARR 
              pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 147 CTRL_MAP_INI_GENARR 
     &         + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 148 CTRL_MAP_INI_GENARR 
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 150 CTRL_MAP_INI_GENARR 
              pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 151 CTRL_MAP_INI_GENARR 
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 51 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/tutorial_global_oce_biogeo/code_oad/ctrl_map_ini_genarr.F 92 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 13 PTRACERS_APPLY_FORCING 
     I                    iMin,iMax,jMin,jMax, k, bi, bj,
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 40 PTRACERS_APPLY_FORCING 
      INTEGER k, bi,bj, iTracer
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 71 PTRACERS_APPLY_FORCING 
     I                 iMin,iMax,jMin,jMax, k, bi, bj,
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 81 PTRACERS_APPLY_FORCING 
     &                   *recip_drF(k)*recip_hFacC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 88 PTRACERS_APPLY_FORCING 
     &                  + 1. _d 0 * maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_apply_forcing.F 97 PTRACERS_APPLY_FORCING 
     I                 k, bi, bj, iTracer+2,
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 104 PTRACERS_FORCING_SURF 
         CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid)
./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 12 PTRACERS_FORCING_SURF 
     I                            bi, bj, iMin, iMax, jMin, jMax,
./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 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 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 40 PTRACERS_FORCING_SURF 
      INTEGER bi, bj, iMin, iMax, 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 87 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./model/src/salt_integrate.F 166 SALT_INTEGRATE 
          act2 = bj - myByLo(myThid)
./model/src/salt_integrate.F 17 SALT_INTEGRATE 
     I           bi, bj, recip_hFac,
./model/src/salt_integrate.F 183 SALT_INTEGRATE 
     I                           bi, bj, 0, Nr,
./model/src/salt_integrate.F 184 SALT_INTEGRATE 
     I                           salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 189 SALT_INTEGRATE 
     I                           bi, bj, 0, Nr,
./model/src/salt_integrate.F 190 SALT_INTEGRATE 
     I                           salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 191 SALT_INTEGRATE 
     U                           gsNm1(1-OLx,1-OLy,1,bi,bj), gs_AB,
./model/src/salt_integrate.F 230 SALT_INTEGRATE 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/salt_integrate.F 261 SALT_INTEGRATE 
     I             bi, bj, myTime, myIter, myThid )
./model/src/salt_integrate.F 274 SALT_INTEGRATE 
     I             bi, bj, myTime, myIter, myThid )
./model/src/salt_integrate.F 310 SALT_INTEGRATE 
     I                k, bi, bj, myThid )
./model/src/salt_integrate.F 321 SALT_INTEGRATE 
     I                        iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/salt_integrate.F 325 SALT_INTEGRATE 
            CALL DIAGNOSTICS_FILL(gsForc,'gS_Forc ',k,1,2,bi,bj,myThid)
./model/src/salt_integrate.F 334 SALT_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/salt_integrate.F 339 SALT_INTEGRATE 
     I           salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 340 SALT_INTEGRATE 
     I           gsNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev,
./model/src/salt_integrate.F 349 SALT_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/salt_integrate.F 354 SALT_INTEGRATE 
     I           salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 355 SALT_INTEGRATE 
     I           gsNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev,
./model/src/salt_integrate.F 376 SALT_INTEGRATE 
     I                          bi, bj, k, Nr,
./model/src/salt_integrate.F 382 SALT_INTEGRATE 
     I                          bi, bj, k, Nr,
./model/src/salt_integrate.F 383 SALT_INTEGRATE 
     U                          gS_loc, gsNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 389 SALT_INTEGRATE 
            CALL DIAGNOSTICS_FILL(gs_AB,'AB_gS   ',k,1,2,bi,bj,myThid)
./model/src/salt_integrate.F 406 SALT_INTEGRATE 
     I                            bi, bj, k,
./model/src/salt_integrate.F 418 SALT_INTEGRATE 
     I                            bi, bj, k,
./model/src/salt_integrate.F 419 SALT_INTEGRATE 
     U                            gsNm(1-OLx,1-OLy,1,bi,bj,1),
./model/src/salt_integrate.F 422 SALT_INTEGRATE 
     I                            bi, bj, k,
./model/src/salt_integrate.F 423 SALT_INTEGRATE 
     U                            gsNm(1-OLx,1-OLy,1,bi,bj,2),
./model/src/salt_integrate.F 427 SALT_INTEGRATE 
     I                            bi, bj, k,
./model/src/salt_integrate.F 428 SALT_INTEGRATE 
     U                            gsNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 442 SALT_INTEGRATE 
     I                  GAD_SALINITY, bi, bj, kSurfC,
./model/src/salt_integrate.F 443 SALT_INTEGRATE 
     I                  salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 449 SALT_INTEGRATE 
     I                  GAD_SALINITY, bi, bj, kLowC,
./model/src/salt_integrate.F 450 SALT_INTEGRATE 
     I                  salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 460 SALT_INTEGRATE 
     I                  bi, bj, dTtracerLev,
./model/src/salt_integrate.F 461 SALT_INTEGRATE 
     I                  salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 484 SALT_INTEGRATE 
     I         salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 486 SALT_INTEGRATE 
     I         bi, bj, myTime, myIter, myThid )
./model/src/salt_integrate.F 496 SALT_INTEGRATE 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/salt_integrate.F 506 SALT_INTEGRATE 
     I             bi, bj, gS_loc,
./model/src/salt_integrate.F 507 SALT_INTEGRATE 
     U             salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 508 SALT_INTEGRATE 
     O             gsNm(1-OLx,1-OLy,1,bi,bj,m2),
./model/src/salt_integrate.F 512 SALT_INTEGRATE 
     I             bi, bj, gS_loc,
./model/src/salt_integrate.F 513 SALT_INTEGRATE 
     U             salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 514 SALT_INTEGRATE 
     O             gsNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 520 SALT_INTEGRATE 
     I             bi, bj,
./model/src/salt_integrate.F 521 SALT_INTEGRATE 
     O             salt(1-OLx,1-OLy,1,bi,bj),
./model/src/salt_integrate.F 80 SALT_INTEGRATE 
      INTEGER bi, bj
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 38 COST_HFLUX 
      integer bi, bj
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 42 COST_HFLUX 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 46 COST_HFLUX 
             tmpC = tmpC + maskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 54 COST_HFLUX 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 60 COST_HFLUX 
         act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 70 COST_HFLUX 
            locfc = locfc + tmpC*maskC(i,j,1,bi,bj)*
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 71 COST_HFLUX 
     &         whfluxm(i,j,bi,bj)*
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 73 COST_HFLUX 
     &         Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 78 COST_HFLUX 
         objf_hflux_tut(bi,bj) = locfc
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 35 COST_TEMP 
      INTEGER bi, bj
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 47 COST_TEMP 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 61 COST_TEMP 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 67 COST_TEMP 
         act2 = bj - myByLo(myThid)
./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 79 COST_TEMP 
     &         wtheta(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_temp.F 85 COST_TEMP 
         objf_temp_tut(bi,bj) = locfc
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 103 COST_WEIGHTS 
      DO bj = jtlo,jthi
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 106 COST_WEIGHTS 
               wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 118 COST_WEIGHTS 
      DO bj = jtlo,jthi
./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 35 COST_WEIGHTS 
      INTEGER bi,bj
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 61 COST_WEIGHTS 
      DO bj = jtlo,jthi
./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/cost_weights.F 69 COST_WEIGHTS 
             wunit(k,bi,bj)  = 1. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 70 COST_WEIGHTS 
             wtheta(k,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 71 COST_WEIGHTS 
             wsalt(k,bi,bj)  = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 119 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 124 EXTERNAL_FORCING_SURF 
           PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 133 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 137 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 138 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 160 EXTERNAL_FORCING_SURF 
       DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 163 EXTERNAL_FORCING_SURF 
     I        surfaceForcingS(1-OLx,1-OLy,bi,bj),
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 164 EXTERNAL_FORCING_SURF 
     I        bi, bj, iMin, iMax, jMin, jMax,
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 176 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 182 EXTERNAL_FORCING_SURF 
          act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 204 EXTERNAL_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 206 EXTERNAL_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 208 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 209 EXTERNAL_FORCING_SURF 
     &       - ( Qnet(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 211 EXTERNAL_FORCING_SURF 
     &          -Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 214 EXTERNAL_FORCING_SURF 
     &          +Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 218 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 219 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 230 EXTERNAL_FORCING_SURF 
     I        bi, bj, iMin, iMax, jMin, jMax,
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 252 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 253 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 254 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 263 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 264 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 265 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 287 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 288 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 289 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 298 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 299 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 300 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 313 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 314 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 324 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 325 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 354 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 355 EXTERNAL_FORCING_SURF 
     &                          +sIceLoad(i,j,bi,bj)*gravity
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 362 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 381 EXTERNAL_FORCING_SURF 
     I                  bi, bj, iMin, iMax, jMin, jMax,
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 57 EXTERNAL_FORCING_SURF 
      INTEGER bi,bj
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 101 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 104 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 105 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 107 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 133 INI_FORCING 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 167 INI_FORCING 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 37 INI_FORCING 
      INTEGER bi, bj
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 42 INI_FORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 93 INI_FORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./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_global_oce_optim/code_oad/cost_hflux.F 38 COST_HFLUX 
      integer bi, bj
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 42 COST_HFLUX 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 46 COST_HFLUX 
             tmpC = tmpC + maskC(i,j,1,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 54 COST_HFLUX 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 60 COST_HFLUX 
         act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 70 COST_HFLUX 
            locfc = locfc + tmpC*maskC(i,j,1,bi,bj)*
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 71 COST_HFLUX 
     &         whfluxm(i,j,bi,bj)*
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 73 COST_HFLUX 
     &         Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_hflux.F 78 COST_HFLUX 
         objf_hflux_tut(bi,bj) = locfc
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 35 COST_TEMP 
      INTEGER bi, bj
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 47 COST_TEMP 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 52 COST_TEMP 
             tmp = tmp + maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 61 COST_TEMP 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 67 COST_TEMP 
         act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 78 COST_TEMP 
              locfc = locfc + tmp*maskC(i,j,k,bi,bj)*
./verification/tutorial_global_oce_optim/code_oad/cost_temp.F 79 COST_TEMP 
     &         wtheta(k,bi,bj)*
./verification/tutorial_global_oce_optim/code_oad/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_oad/cost_temp.F 85 COST_TEMP 
         objf_temp_tut(bi,bj) = locfc
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 103 COST_WEIGHTS 
      DO bj = jtlo,jthi
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 106 COST_WEIGHTS 
               wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 118 COST_WEIGHTS 
      DO bj = jtlo,jthi
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 123 COST_WEIGHTS 
             IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN
./verification/tutorial_global_oce_optim/code_oad/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_oad/cost_weights.F 125 COST_WEIGHTS 
     &                                        /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 127 COST_WEIGHTS 
                 whfluxm(i,j,bi,bj) = 1. _d 0
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 35 COST_WEIGHTS 
      INTEGER bi,bj
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 61 COST_WEIGHTS 
      DO bj = jtlo,jthi
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 65 COST_WEIGHTS 
              whfluxm(i,j,bi,bj)= 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 69 COST_WEIGHTS 
             wunit(k,bi,bj)  = 1. _d 0
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 70 COST_WEIGHTS 
             wtheta(k,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/cost_weights.F 71 COST_WEIGHTS 
             wsalt(k,bi,bj)  = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 119 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 124 EXTERNAL_FORCING_SURF 
           PmEpR(i,j,bi,bj) = -EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 133 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 137 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 138 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 160 EXTERNAL_FORCING_SURF 
       DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 163 EXTERNAL_FORCING_SURF 
     I        surfaceForcingS(1-OLx,1-OLy,bi,bj),
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 164 EXTERNAL_FORCING_SURF 
     I        bi, bj, iMin, iMax, jMin, jMax,
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 176 EXTERNAL_FORCING_SURF 
      DO bj=myByLo(myThid),myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 182 EXTERNAL_FORCING_SURF 
          act2 = bj - myByLo(myThid)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 204 EXTERNAL_FORCING_SURF 
          surfaceForcingU(i,j,bi,bj) = fu(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 206 EXTERNAL_FORCING_SURF 
          surfaceForcingV(i,j,bi,bj) = fv(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 208 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 209 EXTERNAL_FORCING_SURF 
     &       - ( Qnet(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 211 EXTERNAL_FORCING_SURF 
     &          -Qsw(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 214 EXTERNAL_FORCING_SURF 
     &          +Qnetm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 218 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 219 EXTERNAL_FORCING_SURF 
     &      -saltFlux(i,j,bi,bj)*mass2rUnit
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 230 EXTERNAL_FORCING_SURF 
     I        bi, bj, iMin, iMax, jMin, jMax,
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 252 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 253 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 254 EXTERNAL_FORCING_SURF 
     &          *( temp_EvPrRn - theta(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 263 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 264 EXTERNAL_FORCING_SURF 
     &      + PmEpR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 265 EXTERNAL_FORCING_SURF 
     &          *( salt_EvPrRn - salt(i,j,ks,bi,bj) )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 287 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 288 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 289 EXTERNAL_FORCING_SURF 
     &           *( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 298 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 299 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 300 EXTERNAL_FORCING_SURF 
     &           *( salt(i,j,ks,bi,bj) - salt_EvPrRn )
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 313 EXTERNAL_FORCING_SURF 
           surfaceForcingT(i,j,bi,bj) = surfaceForcingT(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 314 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 324 EXTERNAL_FORCING_SURF 
           surfaceForcingS(i,j,bi,bj) = surfaceForcingS(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 325 EXTERNAL_FORCING_SURF 
     &       + EmPmR(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 354 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = ( pLoad(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 355 EXTERNAL_FORCING_SURF 
     &                          +sIceLoad(i,j,bi,bj)*gravity
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 362 EXTERNAL_FORCING_SURF 
            phi0surf(i,j,bi,bj) = pLoad(i,j,bi,bj)*recip_rhoConst
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 381 EXTERNAL_FORCING_SURF 
     I                  bi, bj, iMin, iMax, jMin, jMax,
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F 57 EXTERNAL_FORCING_SURF 
      INTEGER bi,bj
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 101 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 104 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 105 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 107 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 133 INI_FORCING 
        DO bj = myByLo(myThid), myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 137 INI_FORCING 
            EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 167 INI_FORCING 
        DO bj = myByLo(myThid), myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/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_oad/ini_forcing.F 37 INI_FORCING 
      INTEGER bi, bj
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 42 INI_FORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 46 INI_FORCING 
          fu              (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 47 INI_FORCING 
          fv              (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 48 INI_FORCING 
          Qnet            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 49 INI_FORCING 
          EmPmR           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 50 INI_FORCING 
          saltFlux        (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 51 INI_FORCING 
          SST             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 52 INI_FORCING 
          SSS             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 53 INI_FORCING 
          Qsw             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 54 INI_FORCING 
          pLoad           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 55 INI_FORCING 
          sIceLoad        (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 56 INI_FORCING 
          surfaceForcingU(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 57 INI_FORCING 
          surfaceForcingV(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 58 INI_FORCING 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 59 INI_FORCING 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 60 INI_FORCING 
          surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 62 INI_FORCING 
          taux0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 63 INI_FORCING 
          taux1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 64 INI_FORCING 
          tauy0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 65 INI_FORCING 
          tauy1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 66 INI_FORCING 
          Qnet0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 67 INI_FORCING 
          Qnet1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 68 INI_FORCING 
          EmPmR0          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 69 INI_FORCING 
          EmPmR1          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 70 INI_FORCING 
          saltFlux0       (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 71 INI_FORCING 
          saltFlux1       (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 72 INI_FORCING 
          SST0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 73 INI_FORCING 
          SST1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 74 INI_FORCING 
          SSS0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 75 INI_FORCING 
          SSS1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 77 INI_FORCING 
          Qsw0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 78 INI_FORCING 
          Qsw1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 81 INI_FORCING 
          pLoad0          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 82 INI_FORCING 
          pLoad1          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 86 INI_FORCING 
          Qnetm (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 93 INI_FORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 98 INI_FORCING 
     &         ABS(yC(i,j,bi,bj)).LE.latBandClimRelax ) THEN
./verification/tutorial_global_oce_optim/code_oad/ini_forcing.F 99 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 112 APPLY_FORCING_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 146 APPLY_FORCING_V 
      INTEGER k, bi, bj
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 166 APPLY_FORCING_V 
        IF ( maskS(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 168 APPLY_FORCING_V 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i,j-1,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 183 APPLY_FORCING_V 
     &          /(etaHs(i,j,bi,bj)+rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 185 APPLY_FORCING_V 
     &          /(rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 191 APPLY_FORCING_V 
     &               - kV*vVel(i,j,k,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 19 APPLY_FORCING_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 205 APPLY_FORCING_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 238 APPLY_FORCING_T 
      INTEGER k, bi, bj
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 258 APPLY_FORCING_T 
         term1 = 60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 261 APPLY_FORCING_T 
     &            *(COS(yC(i,j,bi,bj)*deg2rad)**2)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 266 APPLY_FORCING_T 
          termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 268 APPLY_FORCING_T 
     &                    *recip_Rcol(i,j,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 280 APPLY_FORCING_T 
     &          /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 282 APPLY_FORCING_T 
     &          /(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 288 APPLY_FORCING_T 
     &      *COS((yC(i,j,bi,bj)*deg2rad))**4
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 290 APPLY_FORCING_T 
     &               - kT*( theta(i,j,k,bi,bj)-thetaEq )
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 291 APPLY_FORCING_T 
     &                *maskC(i,j,k,bi,bj)
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 304 APPLY_FORCING_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 338 APPLY_FORCING_S 
      INTEGER k, bi, bj
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 53 APPLY_FORCING_U 
      INTEGER k, bi, bj
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 73 APPLY_FORCING_U 
        IF ( maskW(i,j,k,bi,bj).EQ.oneRS ) THEN
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 75 APPLY_FORCING_U 
          recip_P0g = MAX(recip_Rcol(i,j,bi,bj),recip_Rcol(i-1,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 90 APPLY_FORCING_U 
     &          /(etaHw(i,j,bi,bj)+rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 92 APPLY_FORCING_U 
     &          /(rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj))
./verification/tutorial_held_suarez_cs/code/apply_forcing.F 98 APPLY_FORCING_U 
     &               - kV*uVel(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 137 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 143 CTRL_MAP_INI_GENARR 
              pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 144 CTRL_MAP_INI_GENARR 
     &         + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 145 CTRL_MAP_INI_GENARR 
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 147 CTRL_MAP_INI_GENARR 
              pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 148 CTRL_MAP_INI_GENARR 
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 51 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/tutorial_tracer_adjsens/code_ad/ctrl_map_ini_genarr.F 90 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 103 PTRACERS_FORCING_SURF 
         CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid)
./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 12 PTRACERS_FORCING_SURF 
     I                            bi, bj, iMin, iMax, jMin, jMax,
./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 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 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 40 PTRACERS_FORCING_SURF 
      INTEGER bi, bj, iMin, iMax, 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 86 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 140 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 146 CTRL_MAP_INI_GENARR 
              pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 147 CTRL_MAP_INI_GENARR 
     &         + fac*xx_genarr3d(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 148 CTRL_MAP_INI_GENARR 
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 150 CTRL_MAP_INI_GENARR 
              pTracer(i,j,k,bi,bj,iarr) = pTracer(i,j,k,bi,bj,iarr)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 151 CTRL_MAP_INI_GENARR 
     &         + fac*tmpfld3d(i,j,k,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 51 CTRL_MAP_INI_GENARR 
      integer bi,bj
./verification/tutorial_tracer_adjsens/code_oad/ctrl_map_ini_genarr.F 92 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 103 PTRACERS_FORCING_SURF 
         CALL DIAGNOSTICS_FILL(add2EmP,'Add2EmP ',0,1,2,bi,bj,myThid)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 128 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 129 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 12 PTRACERS_FORCING_SURF 
     I                            bi, bj, iMin, iMax, jMin, jMax,
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 130 PTRACERS_FORCING_SURF 
     &        + ( PmEpR(i,j,bi,bj) - add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 131 PTRACERS_FORCING_SURF 
     &          *( PTRACERS_EvPrRn(iTrc) - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 158 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 159 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 160 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 161 PTRACERS_FORCING_SURF 
     &          *( pTracer(i,j,ks,bi,bj,iTrc) - PTRACERS_EvPrRn(iTrc) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 179 PTRACERS_FORCING_SURF 
            surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 180 PTRACERS_FORCING_SURF 
     &          surfaceForcingPTr(i,j,bi,bj,iTrc)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 181 PTRACERS_FORCING_SURF 
     &        + ( EmPmR(i,j,bi,bj) + add2EmP(i,j) )
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 40 PTRACERS_FORCING_SURF 
      INTEGER bi, bj, iMin, iMax, jMin, jMax
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 67 PTRACERS_FORCING_SURF 
             surfaceForcingPTr(i,j,bi,bj,iTrc) =
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
     &               surfaceForcingS(i,j,bi,bj)
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F 86 PTRACERS_FORCING_SURF 
            tmpVar = MAX( salt(i,j,ks,bi,bj), epsil )
./model/src/solve_for_pressure.F 118 SOLVE_FOR_PRESSURE 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/solve_for_pressure.F 123 SOLVE_FOR_PRESSURE 
          etaNm1(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 125 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 126 SOLVE_FOR_PRESSURE 
          cg2d_b(i,j,bi,bj) = 0.
./model/src/solve_for_pressure.F 133 SOLVE_FOR_PRESSURE 
           cg2d_b(i,j,bi,bj) =
./model/src/solve_for_pressure.F 134 SOLVE_FOR_PRESSURE 
     &       tmpFac*_rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)/deltaTMom
./model/src/solve_for_pressure.F 135 SOLVE_FOR_PRESSURE 
     &                            *maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F 140 SOLVE_FOR_PRESSURE 
         tileEmP(bi,bj) = 0.
./model/src/solve_for_pressure.F 143 SOLVE_FOR_PRESSURE 
            tileEmP(bi,bj) = tileEmP(bi,bj)
./model/src/solve_for_pressure.F 144 SOLVE_FOR_PRESSURE 
     &                     + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj)
./model/src/solve_for_pressure.F 145 SOLVE_FOR_PRESSURE 
     &                                    *maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F 155 SOLVE_FOR_PRESSURE 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/solve_for_pressure.F 163 SOLVE_FOR_PRESSURE 
            cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)
./model/src/solve_for_pressure.F 164 SOLVE_FOR_PRESSURE 
     &                        - tmpFac*Bo_surf(i,j,bi,bj)
./model/src/solve_for_pressure.F 172 SOLVE_FOR_PRESSURE 
     I                       bi,bj,k,
./model/src/solve_for_pressure.F 179 SOLVE_FOR_PRESSURE 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/solve_for_pressure.F 186 SOLVE_FOR_PRESSURE 
           ks = kSurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 188 SOLVE_FOR_PRESSURE 
            cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F 189 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 191 SOLVE_FOR_PRESSURE 
     &         *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 192 SOLVE_FOR_PRESSURE 
     &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F 193 SOLVE_FOR_PRESSURE 
            cg3d_b(i,j,ks,bi,bj) = cg3d_b(i,j,ks,bi,bj)
./model/src/solve_for_pressure.F 194 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 196 SOLVE_FOR_PRESSURE 
     &         *( etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 197 SOLVE_FOR_PRESSURE 
     &           +phi_nh(i,j,ks,bi,bj)*recip_Bo(i,j,bi,bj) )
./model/src/solve_for_pressure.F 208 SOLVE_FOR_PRESSURE 
           ks = kSurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 209 SOLVE_FOR_PRESSURE 
           cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F 210 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 212 SOLVE_FOR_PRESSURE 
     &         * etaH(i,j,bi,bj)
./model/src/solve_for_pressure.F 218 SOLVE_FOR_PRESSURE 
           ks = kSurfC(i,j,bi,bj)
./model/src/solve_for_pressure.F 219 SOLVE_FOR_PRESSURE 
           cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)
./model/src/solve_for_pressure.F 220 SOLVE_FOR_PRESSURE 
     &       -freeSurfFac*_rA(i,j,bi,bj)*deepFac2F(ks)
./model/src/solve_for_pressure.F 222 SOLVE_FOR_PRESSURE 
     &         * etaN(i,j,bi,bj)
./model/src/solve_for_pressure.F 240 SOLVE_FOR_PRESSURE 
           cg2d_b(i,j,bi,bj) = cg2d_b(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F 241 SOLVE_FOR_PRESSURE 
           cg2d_x(i,j,bi,bj) = cg2d_x(i,j,bi,bj)*maskInC(i,j,bi,bj)
./model/src/solve_for_pressure.F 338 SOLVE_FOR_PRESSURE 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/solve_for_pressure.F 342 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 54 SOLVE_FOR_PRESSURE 
      INTEGER i,j,k,bi,bj
./model/src/solve_pentadiagonal.F 14 SOLVE_PENTADIAGONAL 
     I                     bi, bj, myThid )
./model/src/solve_pentadiagonal.F 55 SOLVE_PENTADIAGONAL 
      INTEGER bi, bj, myThid
./model/src/solve_tridiagonal.F 14 SOLVE_TRIDIAGONAL 
     I                     bi, bj, myThid )
./model/src/solve_tridiagonal.F 43 SOLVE_TRIDIAGONAL 
      INTEGER bi, bj, myThid
./model/src/solve_uv_tridiago.F 104 SOLVE_UV_TRIDIAGO 
            alpU(i,j,bi,bj) = aU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 105 SOLVE_UV_TRIDIAGO 
            gamU(i,j,bi,bj) = cU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 106 SOLVE_UV_TRIDIAGO 
            yy_U(i,j,bi,bj) = rhsU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 114 SOLVE_UV_TRIDIAGO 
            tmpVar = bU(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 121 SOLVE_UV_TRIDIAGO 
            gamU(i,j,bi,bj) = gamU(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 122 SOLVE_UV_TRIDIAGO 
            alpU(i,j,bi,bj) = alpU(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 123 SOLVE_UV_TRIDIAGO 
            yy_U(i,j,bi,bj) = yy_U(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 131 SOLVE_UV_TRIDIAGO 
            tmpVar = bU(i,j,k,bi,bj) - alpU(i,j,bi,bj)*gamU(im,j,bi,bj)
./model/src/solve_uv_tridiago.F 138 SOLVE_UV_TRIDIAGO 
            yy_U(i,j,bi,bj) = ( yy_U(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 139 SOLVE_UV_TRIDIAGO 
     &                        - alpU(i,j,bi,bj)*yy_U(im,j,bi,bj)
./model/src/solve_uv_tridiago.F 141 SOLVE_UV_TRIDIAGO 
            gamU(i,j,bi,bj) =   gamU(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 142 SOLVE_UV_TRIDIAGO 
            alpU(i,j,bi,bj) = - alpU(i,j,bi,bj)*alpU(im,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 152 SOLVE_UV_TRIDIAGO 
            yy_U(i,j,bi,bj) =  yy_U(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 153 SOLVE_UV_TRIDIAGO 
     &                       - gamU(i,j,bi,bj)*yy_U(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F 154 SOLVE_UV_TRIDIAGO 
            alpU(i,j,bi,bj) =  alpU(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 155 SOLVE_UV_TRIDIAGO 
     &                       - gamU(i,j,bi,bj)*alpU(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F 156 SOLVE_UV_TRIDIAGO 
            gamU(i,j,bi,bj) = -gamU(i,j,bi,bj)*gamU(ip,j,bi,bj)
./model/src/solve_uv_tridiago.F 177 SOLVE_UV_TRIDIAGO 
            aTu(1,j,bi,bj) = alpU( 1, j,bi,bj)
./model/src/solve_uv_tridiago.F 178 SOLVE_UV_TRIDIAGO 
            cTu(1,j,bi,bj) = gamU( 1, j,bi,bj)
./model/src/solve_uv_tridiago.F 179 SOLVE_UV_TRIDIAGO 
            yTu(1,j,bi,bj) = yy_U( 1, j,bi,bj)
./model/src/solve_uv_tridiago.F 180 SOLVE_UV_TRIDIAGO 
            aTu(2,j,bi,bj) = alpU(sNx,j,bi,bj)
./model/src/solve_uv_tridiago.F 181 SOLVE_UV_TRIDIAGO 
            cTu(2,j,bi,bj) = gamU(sNx,j,bi,bj)
./model/src/solve_uv_tridiago.F 182 SOLVE_UV_TRIDIAGO 
            yTu(2,j,bi,bj) = yy_U(sNx,j,bi,bj)
./model/src/solve_uv_tridiago.F 195 SOLVE_UV_TRIDIAGO 
        DO bj=1,nSy
./model/src/solve_uv_tridiago.F 201 SOLVE_UV_TRIDIAGO 
            tmpVar = oneRL - aTu(1,j,bi,bj)*cTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F 208 SOLVE_UV_TRIDIAGO 
            yTu(1,j,bi,bj) = ( yTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F 209 SOLVE_UV_TRIDIAGO 
     &                       - aTu(1,j,bi,bj)*yTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F 211 SOLVE_UV_TRIDIAGO 
            cTu(1,j,bi,bj) =   cTu(1,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 212 SOLVE_UV_TRIDIAGO 
            aTu(1,j,bi,bj) = - aTu(1,j,bi,bj)*aTu(2,j,bm,bj)*tmpVar
./model/src/solve_uv_tridiago.F 215 SOLVE_UV_TRIDIAGO 
            tmpVar = aTu(2,j,bi,bj)*cTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F 216 SOLVE_UV_TRIDIAGO 
            yTu(2,j,bi,bj) =  yTu(2,j,bi,bj)
./model/src/solve_uv_tridiago.F 217 SOLVE_UV_TRIDIAGO 
     &                      - aTu(2,j,bi,bj)*yTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F 218 SOLVE_UV_TRIDIAGO 
     &                      + tmpVar*yTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F 219 SOLVE_UV_TRIDIAGO 
            cTu(2,j,bi,bj) =  cTu(2,j,bi,bj)
./model/src/solve_uv_tridiago.F 220 SOLVE_UV_TRIDIAGO 
     &                      + tmpVar*cTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F 221 SOLVE_UV_TRIDIAGO 
            aTu(2,j,bi,bj) = -aTu(2,j,bi,bj)*aTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F 222 SOLVE_UV_TRIDIAGO 
     &                      + tmpVar*aTu(1,j,bi,bj)
./model/src/solve_uv_tridiago.F 230 SOLVE_UV_TRIDIAGO 
            aTu(i,j,bi,bj) =  aTu(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 231 SOLVE_UV_TRIDIAGO 
     &                      - cTu(i,j,bi,bj)*aTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F 232 SOLVE_UV_TRIDIAGO 
            yTu(i,j,bi,bj) =  yTu(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 233 SOLVE_UV_TRIDIAGO 
     &                      - cTu(i,j,bi,bj)*yTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F 234 SOLVE_UV_TRIDIAGO 
            cTu(i,j,bi,bj) = -cTu(i,j,bi,bj)*cTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F 242 SOLVE_UV_TRIDIAGO 
          cTu(1,j,bm,bj) = oneRL + cTu(1,j,bm,bj)
./model/src/solve_uv_tridiago.F 243 SOLVE_UV_TRIDIAGO 
          aTu(2,j,bp,bj) = oneRL + aTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F 244 SOLVE_UV_TRIDIAGO 
          tmpVar = cTu(1,j,bm,bj) * aTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F 245 SOLVE_UV_TRIDIAGO 
     &           - aTu(1,j,bm,bj) * cTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F 252 SOLVE_UV_TRIDIAGO 
          uTmp1 = ( aTu(2,j,bp,bj) * yTu(1,j,bm,bj)
./model/src/solve_uv_tridiago.F 253 SOLVE_UV_TRIDIAGO 
     &            - aTu(1,j,bm,bj) * yTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F 255 SOLVE_UV_TRIDIAGO 
          uTmp2 = ( cTu(1,j,bm,bj) * yTu(2,j,bp,bj)
./model/src/solve_uv_tridiago.F 256 SOLVE_UV_TRIDIAGO 
     &            - cTu(2,j,bp,bj) * yTu(1,j,bm,bj)
./model/src/solve_uv_tridiago.F 263 SOLVE_UV_TRIDIAGO 
             yTu(i,j,bi,bj) = uTmp1
./model/src/solve_uv_tridiago.F 265 SOLVE_UV_TRIDIAGO 
             yTu(i,j,bi,bj) = uTmp2
./model/src/solve_uv_tridiago.F 267 SOLVE_UV_TRIDIAGO 
             yTu(i,j,bi,bj) = yTu(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 268 SOLVE_UV_TRIDIAGO 
     &                      - aTu(i,j,bi,bj) * uTmp2
./model/src/solve_uv_tridiago.F 269 SOLVE_UV_TRIDIAGO 
     &                      - cTu(i,j,bi,bj) * uTmp1
./model/src/solve_uv_tridiago.F 279 SOLVE_UV_TRIDIAGO 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/solve_uv_tridiago.F 285 SOLVE_UV_TRIDIAGO 
            uFld(i,j,k,bi,bj) = yy_U(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 286 SOLVE_UV_TRIDIAGO 
     &                      - alpU(i,j,bi,bj) * yTu(2,j,bm,bj)
./model/src/solve_uv_tridiago.F 287 SOLVE_UV_TRIDIAGO 
     &                      - gamU(i,j,bi,bj) * yTu(1,j,bp,bj)
./model/src/solve_uv_tridiago.F 297 SOLVE_UV_TRIDIAGO 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/solve_uv_tridiago.F 303 SOLVE_UV_TRIDIAGO 
            alpV(i,j,bi,bj) = aV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 304 SOLVE_UV_TRIDIAGO 
            gamV(i,j,bi,bj) = cV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 305 SOLVE_UV_TRIDIAGO 
            yy_V(i,j,bi,bj) = rhsV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 313 SOLVE_UV_TRIDIAGO 
            tmpVar = bV(i,j,k,bi,bj)
./model/src/solve_uv_tridiago.F 320 SOLVE_UV_TRIDIAGO 
            gamV(i,j,bi,bj) = gamV(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 321 SOLVE_UV_TRIDIAGO 
            alpV(i,j,bi,bj) = alpV(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 322 SOLVE_UV_TRIDIAGO 
            yy_V(i,j,bi,bj) = yy_V(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 330 SOLVE_UV_TRIDIAGO 
            tmpVar = bV(i,j,k,bi,bj) - alpV(i,j,bi,bj)*gamV(i,jm,bi,bj)
./model/src/solve_uv_tridiago.F 337 SOLVE_UV_TRIDIAGO 
            yy_V(i,j,bi,bj) = ( yy_V(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 338 SOLVE_UV_TRIDIAGO 
     &                        - alpV(i,j,bi,bj)*yy_V(i,jm,bi,bj)
./model/src/solve_uv_tridiago.F 340 SOLVE_UV_TRIDIAGO 
            gamV(i,j,bi,bj) =   gamV(i,j,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 341 SOLVE_UV_TRIDIAGO 
            alpV(i,j,bi,bj) = - alpV(i,j,bi,bj)*alpV(i,jm,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 351 SOLVE_UV_TRIDIAGO 
            yy_V(i,j,bi,bj) =  yy_V(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 352 SOLVE_UV_TRIDIAGO 
     &                       - gamV(i,j,bi,bj)*yy_V(i,jp,bi,bj)
./model/src/solve_uv_tridiago.F 353 SOLVE_UV_TRIDIAGO 
            alpV(i,j,bi,bj) =  alpV(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 354 SOLVE_UV_TRIDIAGO 
     &                       - gamV(i,j,bi,bj)*alpV(i,jp,bi,bj)
./model/src/solve_uv_tridiago.F 355 SOLVE_UV_TRIDIAGO 
            gamV(i,j,bi,bj) = -gamV(i,j,bi,bj)*gamV(i,jp,bi,bj)
./model/src/solve_uv_tridiago.F 364 SOLVE_UV_TRIDIAGO 
            aTv(1,i,bi,bj) = alpV(i, 1, bi,bj)
./model/src/solve_uv_tridiago.F 365 SOLVE_UV_TRIDIAGO 
            cTv(1,i,bi,bj) = gamV(i, 1, bi,bj)
./model/src/solve_uv_tridiago.F 366 SOLVE_UV_TRIDIAGO 
            yTv(1,i,bi,bj) = yy_V(i, 1, bi,bj)
./model/src/solve_uv_tridiago.F 367 SOLVE_UV_TRIDIAGO 
            aTv(2,i,bi,bj) = alpV(i,sNy,bi,bj)
./model/src/solve_uv_tridiago.F 368 SOLVE_UV_TRIDIAGO 
            cTv(2,i,bi,bj) = gamV(i,sNy,bi,bj)
./model/src/solve_uv_tridiago.F 369 SOLVE_UV_TRIDIAGO 
            yTv(2,i,bi,bj) = yy_V(i,sNy,bi,bj)
./model/src/solve_uv_tridiago.F 385 SOLVE_UV_TRIDIAGO 
          DO bj=2,nSy
./model/src/solve_uv_tridiago.F 386 SOLVE_UV_TRIDIAGO 
           bm = bj-1
./model/src/solve_uv_tridiago.F 388 SOLVE_UV_TRIDIAGO 
            tmpVar = oneRL - aTv(1,i,bi,bj)*cTv(2,i,bi,bm)
./model/src/solve_uv_tridiago.F 395 SOLVE_UV_TRIDIAGO 
            yTv(1,i,bi,bj) = ( yTv(1,i,bi,bj)
./model/src/solve_uv_tridiago.F 396 SOLVE_UV_TRIDIAGO 
     &                       - aTv(1,i,bi,bj)*yTv(2,i,bi,bm)
./model/src/solve_uv_tridiago.F 398 SOLVE_UV_TRIDIAGO 
            cTv(1,i,bi,bj) =   cTv(1,i,bi,bj)*tmpVar
./model/src/solve_uv_tridiago.F 399 SOLVE_UV_TRIDIAGO 
            aTv(1,i,bi,bj) = - aTv(1,i,bi,bj)*aTv(2,i,bi,bm)*tmpVar
./model/src/solve_uv_tridiago.F 402 SOLVE_UV_TRIDIAGO 
            tmpVar = aTv(2,i,bi,bj)*cTv(2,i,bi,bm)
./model/src/solve_uv_tridiago.F 403 SOLVE_UV_TRIDIAGO 
            yTv(2,i,bi,bj) =  yTv(2,i,bi,bj)
./model/src/solve_uv_tridiago.F 404 SOLVE_UV_TRIDIAGO 
     &                      - aTv(2,i,bi,bj)*yTv(2,i,bi,bm)
./model/src/solve_uv_tridiago.F 405 SOLVE_UV_TRIDIAGO 
     &                      + tmpVar*yTv(1,i,bi,bj)
./model/src/solve_uv_tridiago.F 406 SOLVE_UV_TRIDIAGO 
            cTv(2,i,bi,bj) =  cTv(2,i,bi,bj)
./model/src/solve_uv_tridiago.F 407 SOLVE_UV_TRIDIAGO 
     &                      + tmpVar*cTv(1,i,bi,bj)
./model/src/solve_uv_tridiago.F 408 SOLVE_UV_TRIDIAGO 
            aTv(2,i,bi,bj) = -aTv(2,i,bi,bj)*aTv(2,i,bi,bm)
./model/src/solve_uv_tridiago.F 409 SOLVE_UV_TRIDIAGO 
     &                      + tmpVar*aTv(1,i,bi,bj)
./model/src/solve_uv_tridiago.F 412 SOLVE_UV_TRIDIAGO 
          DO bj=nSy-1,1,-1
./model/src/solve_uv_tridiago.F 413 SOLVE_UV_TRIDIAGO 
           bp = bj+1
./model/src/solve_uv_tridiago.F 417 SOLVE_UV_TRIDIAGO 
            aTv(j,i,bi,bj) =  aTv(j,i,bi,bj)
./model/src/solve_uv_tridiago.F 418 SOLVE_UV_TRIDIAGO 
     &                      - cTv(j,i,bi,bj)*aTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F 419 SOLVE_UV_TRIDIAGO 
            yTv(j,i,bi,bj) =  yTv(j,i,bi,bj)
./model/src/solve_uv_tridiago.F 420 SOLVE_UV_TRIDIAGO 
     &                      - cTv(j,i,bi,bj)*yTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F 421 SOLVE_UV_TRIDIAGO 
            cTv(j,i,bi,bj) = -cTv(j,i,bi,bj)*cTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F 447 SOLVE_UV_TRIDIAGO 
          DO bj=1,nSy
./model/src/solve_uv_tridiago.F 449 SOLVE_UV_TRIDIAGO 
            IF ( bj+j .EQ.2 ) THEN
./model/src/solve_uv_tridiago.F 450 SOLVE_UV_TRIDIAGO 
             yTv(j,i,bi,bj) = vTmp1
./model/src/solve_uv_tridiago.F 451 SOLVE_UV_TRIDIAGO 
            ELSEIF ( bj+j .EQ. nSy+2 ) THEN
./model/src/solve_uv_tridiago.F 452 SOLVE_UV_TRIDIAGO 
             yTv(j,i,bi,bj) = vTmp2
./model/src/solve_uv_tridiago.F 454 SOLVE_UV_TRIDIAGO 
             yTv(j,i,bi,bj) = yTv(j,i,bi,bj)
./model/src/solve_uv_tridiago.F 455 SOLVE_UV_TRIDIAGO 
     &                      - aTv(j,i,bi,bj) * vTmp2
./model/src/solve_uv_tridiago.F 456 SOLVE_UV_TRIDIAGO 
     &                      - cTv(j,i,bi,bj) * vTmp1
./model/src/solve_uv_tridiago.F 466 SOLVE_UV_TRIDIAGO 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/solve_uv_tridiago.F 468 SOLVE_UV_TRIDIAGO 
          bm = 1 + MOD(bj-2+nSy,nSy)
./model/src/solve_uv_tridiago.F 469 SOLVE_UV_TRIDIAGO 
          bp = 1 + MOD(bj-0+nSy,nSy)
./model/src/solve_uv_tridiago.F 472 SOLVE_UV_TRIDIAGO 
            vFld(i,j,k,bi,bj) = yy_V(i,j,bi,bj)
./model/src/solve_uv_tridiago.F 473 SOLVE_UV_TRIDIAGO 
     &                      - alpV(i,j,bi,bj) * yTv(2,i,bi,bm)
./model/src/solve_uv_tridiago.F 474 SOLVE_UV_TRIDIAGO 
     &                      - gamV(i,j,bi,bj) * yTv(1,i,bi,bp)
./model/src/solve_uv_tridiago.F 77 SOLVE_UV_TRIDIAGO 
      INTEGER bi, bj, bm, bp
./model/src/solve_uv_tridiago.F 98 SOLVE_UV_TRIDIAGO 
        DO bj=myByLo(myThid),myByHi(myThid)
./model/src/taueddy_init_varia.F 36 TAUEDDY_INIT_VARIA 
      INTEGER bi, bj
./model/src/taueddy_init_varia.F 41 TAUEDDY_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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/taueddy_tendency_apply.F 102 TAUEDDY_TENDENCY_APPLY_V 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./model/src/taueddy_tendency_apply.F 138 TAUEDDY_TENDENCY_APPLY_V 
      INTEGER k, bi, bj
./model/src/taueddy_tendency_apply.F 164 TAUEDDY_TENDENCY_APPLY_V 
     &  ( maskm1*_maskS(i,j, k ,bi,bj)*tauyEddy(i,j, k ,bi,bj)
./model/src/taueddy_tendency_apply.F 165 TAUEDDY_TENDENCY_APPLY_V 
     &  - maskp1*_maskS(i,j,kp1,bi,bj)*tauyEddy(i,j,kp1,bi,bj) )
./model/src/taueddy_tendency_apply.F 166 TAUEDDY_TENDENCY_APPLY_V 
     &  *recip_drF(k)*_recip_hFacS(i,j,k,bi,bj)
./model/src/taueddy_tendency_apply.F 20 TAUEDDY_TENDENCY_APPLY_U 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./model/src/taueddy_tendency_apply.F 56 TAUEDDY_TENDENCY_APPLY_U 
      INTEGER k, bi, bj
./model/src/taueddy_tendency_apply.F 82 TAUEDDY_TENDENCY_APPLY_U 
     &  ( maskm1*_maskW(i,j, k ,bi,bj)*tauxEddy(i,j, k ,bi,bj)
./model/src/taueddy_tendency_apply.F 83 TAUEDDY_TENDENCY_APPLY_U 
     &  - maskp1*_maskW(i,j,kp1,bi,bj)*tauxEddy(i,j,kp1,bi,bj) )
./model/src/taueddy_tendency_apply.F 84 TAUEDDY_TENDENCY_APPLY_U 
     &  *recip_drF(k)*_recip_hFacW(i,j,k,bi,bj)
./model/src/temp_integrate.F 174 TEMP_INTEGRATE 
          act2 = bj - myByLo(myThid)
./model/src/temp_integrate.F 17 TEMP_INTEGRATE 
     I           bi, bj, recip_hFac,
./model/src/temp_integrate.F 191 TEMP_INTEGRATE 
     I                           bi, bj, 0, Nr,
./model/src/temp_integrate.F 192 TEMP_INTEGRATE 
     I                           theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 197 TEMP_INTEGRATE 
     I                           bi, bj, 0, Nr,
./model/src/temp_integrate.F 198 TEMP_INTEGRATE 
     I                           theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 199 TEMP_INTEGRATE 
     U                           gtNm1(1-OLx,1-OLy,1,bi,bj), gt_AB,
./model/src/temp_integrate.F 238 TEMP_INTEGRATE 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/temp_integrate.F 269 TEMP_INTEGRATE 
     I             bi, bj, myTime, myIter, myThid )
./model/src/temp_integrate.F 282 TEMP_INTEGRATE 
     I             bi, bj, myTime, myIter, myThid )
./model/src/temp_integrate.F 318 TEMP_INTEGRATE 
     I                k, bi, bj, myThid )
./model/src/temp_integrate.F 329 TEMP_INTEGRATE 
     I                        iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/temp_integrate.F 333 TEMP_INTEGRATE 
            CALL DIAGNOSTICS_FILL(gtForc,'gT_Forc ',k,1,2,bi,bj,myThid)
./model/src/temp_integrate.F 342 TEMP_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/temp_integrate.F 347 TEMP_INTEGRATE 
     I           theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 348 TEMP_INTEGRATE 
     I           gtNm(1-OLx,1-OLy,1,bi,bj,m2), dTtracerLev,
./model/src/temp_integrate.F 357 TEMP_INTEGRATE 
     I           bi, bj, iMin,iMax,jMin,jMax, k, kM1, kUp, kDown,
./model/src/temp_integrate.F 362 TEMP_INTEGRATE 
     I           theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 363 TEMP_INTEGRATE 
     I           gtNm1(1-OLx,1-OLy,1,bi,bj), dTtracerLev,
./model/src/temp_integrate.F 384 TEMP_INTEGRATE 
     I                          bi, bj, k, Nr,
./model/src/temp_integrate.F 390 TEMP_INTEGRATE 
     I                          bi, bj, k, Nr,
./model/src/temp_integrate.F 391 TEMP_INTEGRATE 
     U                          gT_loc, gtNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 397 TEMP_INTEGRATE 
            CALL DIAGNOSTICS_FILL(gt_AB,'AB_gT   ',k,1,2,bi,bj,myThid)
./model/src/temp_integrate.F 414 TEMP_INTEGRATE 
     I                            bi, bj, k,
./model/src/temp_integrate.F 426 TEMP_INTEGRATE 
     I                            bi, bj, k,
./model/src/temp_integrate.F 427 TEMP_INTEGRATE 
     U                            gtNm(1-OLx,1-OLy,1,bi,bj,1),
./model/src/temp_integrate.F 430 TEMP_INTEGRATE 
     I                            bi, bj, k,
./model/src/temp_integrate.F 431 TEMP_INTEGRATE 
     U                            gtNm(1-OLx,1-OLy,1,bi,bj,2),
./model/src/temp_integrate.F 435 TEMP_INTEGRATE 
     I                            bi, bj, k,
./model/src/temp_integrate.F 436 TEMP_INTEGRATE 
     U                            gtNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 450 TEMP_INTEGRATE 
     I                  GAD_TEMPERATURE, bi, bj, kSurfC,
./model/src/temp_integrate.F 451 TEMP_INTEGRATE 
     I                  theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 457 TEMP_INTEGRATE 
     I                  GAD_TEMPERATURE, bi, bj, kLowC,
./model/src/temp_integrate.F 458 TEMP_INTEGRATE 
     I                  theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 468 TEMP_INTEGRATE 
     I                  bi, bj, dTtracerLev,
./model/src/temp_integrate.F 469 TEMP_INTEGRATE 
     I                  theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 492 TEMP_INTEGRATE 
     I         theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 494 TEMP_INTEGRATE 
     I         bi, bj, myTime, myIter, myThid )
./model/src/temp_integrate.F 504 TEMP_INTEGRATE 
     I         bi, bj, iMin, iMax, jMin, jMax,
./model/src/temp_integrate.F 517 TEMP_INTEGRATE 
     I                        Nr, 3, deltaTClock, bi, bj, myThid )
./model/src/temp_integrate.F 525 TEMP_INTEGRATE 
     I             bi, bj, gT_loc,
./model/src/temp_integrate.F 526 TEMP_INTEGRATE 
     U             theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 527 TEMP_INTEGRATE 
     O             gtNm(1-OLx,1-OLy,1,bi,bj,m2),
./model/src/temp_integrate.F 531 TEMP_INTEGRATE 
     I             bi, bj, gT_loc,
./model/src/temp_integrate.F 532 TEMP_INTEGRATE 
     U             theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 533 TEMP_INTEGRATE 
     O             gtNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 539 TEMP_INTEGRATE 
     I             bi, bj,
./model/src/temp_integrate.F 540 TEMP_INTEGRATE 
     O             theta(1-OLx,1-OLy,1,bi,bj),
./model/src/temp_integrate.F 83 TEMP_INTEGRATE 
      INTEGER bi, bj
./model/src/the_main_loop.F 220 THE_MAIN_LOOP 
      INTEGER bi,bj
./model/src/the_main_loop.F 512 THE_MAIN_LOOP 
          DO bj = myByLo(myThid), myByHi(myThid)
./model/src/the_main_loop.F 514 THE_MAIN_LOOP 
            loadedRec(bi,bj) = 0
./model/src/thermodynamics.F 137 THERMODYNAMICS 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/thermodynamics.F 143 THERMODYNAMICS 
          act2 = bj - myByLo(myThid)
./model/src/thermodynamics.F 177 THERMODYNAMICS 
             recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F 178 THERMODYNAMICS 
     &                            / rStarExpC(i,j,bi,bj)
./model/src/thermodynamics.F 188 THERMODYNAMICS 
             recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F 189 THERMODYNAMICS 
     &        /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/thermodynamics.F 191 THERMODYNAMICS 
     &                    *recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F 201 THERMODYNAMICS 
             IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./model/src/thermodynamics.F 202 THERMODYNAMICS 
              recip_hFacNew(i,j,k) = 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/thermodynamics.F 204 THERMODYNAMICS 
              recip_hFacNew(i,j,k) = recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F 215 THERMODYNAMICS 
             recip_hFacNew(i,j,k) = _recip_hFacC(i,j,k,bi,bj)
./model/src/thermodynamics.F 228 THERMODYNAMICS 
           uFld(i,j,k) = uVel(i,j,k,bi,bj)
./model/src/thermodynamics.F 229 THERMODYNAMICS 
           vFld(i,j,k) = vVel(i,j,k,bi,bj)
./model/src/thermodynamics.F 230 THERMODYNAMICS 
           wFld(i,j,k) = wVel(i,j,k,bi,bj)
./model/src/thermodynamics.F 239 THERMODYNAMICS 
     I                  bi, bj, myIter, myThid )
./model/src/thermodynamics.F 279 THERMODYNAMICS 
     I         bi, bj, recip_hFacNew,
./model/src/thermodynamics.F 290 THERMODYNAMICS 
     I         bi, bj, recip_hFacNew,
./model/src/thermodynamics.F 306 THERMODYNAMICS 
     I          bi, bj, recip_hFacNew,
./model/src/thermodynamics.F 316 THERMODYNAMICS 
           CALL OBCS_APPLY_TS( bi, bj, 0, theta, salt, myThid )
./model/src/thermodynamics.F 95 THERMODYNAMICS 
      INTEGER bi, bj
./model/src/timestep.F 108 TIMESTEP 
     I                        iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/timestep.F 112 TIMESTEP 
     I                        iMin,iMax,jMin,jMax, k, bi,bj,
./model/src/timestep.F 120 TIMESTEP 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) - phxFac*dPhiHydX(i,j)
./model/src/timestep.F 121 TIMESTEP 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) - phyFac*dPhiHydY(i,j)
./model/src/timestep.F 134 TIMESTEP 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guDissip(i,j)
./model/src/timestep.F 135 TIMESTEP 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvDissip(i,j)
./model/src/timestep.F 13 TIMESTEP 
      SUBROUTINE TIMESTEP( bi, bj, iMin, iMax, jMin, jMax, k,
./model/src/timestep.F 144 TIMESTEP 
           gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj) + guExt(i,j)
./model/src/timestep.F 145 TIMESTEP 
           gV(i,j,k,bi,bj) = gV(i,j,k,bi,bj) + gvExt(i,j)
./model/src/timestep.F 155 TIMESTEP 
           gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 156 TIMESTEP 
           gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 166 TIMESTEP 
     I                        bi, bj, k, Nr,
./model/src/timestep.F 167 TIMESTEP 
     U                        gU(1-OLx,1-OLy,1,bi,bj), guNm,
./model/src/timestep.F 171 TIMESTEP 
     I                        bi, bj, k, Nr,
./model/src/timestep.F 172 TIMESTEP 
     U                        gV(1-OLx,1-OLy,1,bi,bj), gvNm,
./model/src/timestep.F 177 TIMESTEP 
     I                        bi, bj, k, Nr,
./model/src/timestep.F 178 TIMESTEP 
     U                        gU(1-OLx,1-OLy,1,bi,bj),
./model/src/timestep.F 179 TIMESTEP 
     U                        guNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/timestep.F 183 TIMESTEP 
     I                        bi, bj, k, Nr,
./model/src/timestep.F 184 TIMESTEP 
     U                        gV(1-OLx,1-OLy,1,bi,bj),
./model/src/timestep.F 185 TIMESTEP 
     U                        gvNm1(1-OLx,1-OLy,1,bi,bj),
./model/src/timestep.F 191 TIMESTEP 
        CALL DIAGNOSTICS_FILL(gu_AB,'AB_gU   ',k,1,2,bi,bj,myThid)
./model/src/timestep.F 192 TIMESTEP 
        CALL DIAGNOSTICS_FILL(gv_AB,'AB_gV   ',k,1,2,bi,bj,myThid)
./model/src/timestep.F 202 TIMESTEP 
           gUtmp(i,j) = gU(i,j,k,bi,bj)
./model/src/timestep.F 203 TIMESTEP 
           gVtmp(i,j) = gV(i,j,k,bi,bj)
./model/src/timestep.F 235 TIMESTEP 
     I                  bi,bj,k, dPhiHydX,dPhiHydY, gUtmp,gVtmp,
./model/src/timestep.F 243 TIMESTEP 
           gUtmp(i,j) = ( gU(i,j,k,bi,bj) + guExt(i,j) ) + guCor(i,j)
./model/src/timestep.F 244 TIMESTEP 
           gVtmp(i,j) = ( gV(i,j,k,bi,bj) + gvExt(i,j) ) + gvCor(i,j)
./model/src/timestep.F 250 TIMESTEP 
           gUtmp(i,j) = gU(i,j,k,bi,bj) + guCor(i,j)
./model/src/timestep.F 251 TIMESTEP 
           gVtmp(i,j) = gV(i,j,k,bi,bj) + gvCor(i,j)
./model/src/timestep.F 283 TIMESTEP 
           gUtmp(i,j) = gUtmp(i,j)/rStarExpW(i,j,bi,bj)
./model/src/timestep.F 284 TIMESTEP 
           gVtmp(i,j) = gVtmp(i,j)/rStarExpS(i,j,bi,bj)
./model/src/timestep.F 293 TIMESTEP 
     &        /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/timestep.F 295 TIMESTEP 
     &                    *recip_hFacW(i,j,k,bi,bj)
./model/src/timestep.F 298 TIMESTEP 
     &        /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTFreeSurf
./model/src/timestep.F 300 TIMESTEP 
     &                    *recip_hFacS(i,j,k,bi,bj)
./model/src/timestep.F 308 TIMESTEP 
          IF ( k.EQ.kSurfW(i,j,bi,bj) ) THEN
./model/src/timestep.F 310 TIMESTEP 
     &         *_hFacW(i,j,k,bi,bj)/hFac_surfW(i,j,bi,bj)
./model/src/timestep.F 312 TIMESTEP 
          IF ( k.EQ.kSurfS(i,j,bi,bj) ) THEN
./model/src/timestep.F 314 TIMESTEP 
     &         *_hFacS(i,j,k,bi,bj)/hFac_surfS(i,j,bi,bj)
./model/src/timestep.F 331 TIMESTEP 
     &               - nhFac*_recip_dxC(i,j,bi,bj)*
./model/src/timestep.F 332 TIMESTEP 
     &                ( (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F 333 TIMESTEP 
     &                 -( dPhiNH(i,j,bi,bj) - dPhiNH(i-1,j,bi,bj) )
./model/src/timestep.F 336 TIMESTEP 
     &               - nhFac*_recip_dyC(i,j,bi,bj)*
./model/src/timestep.F 337 TIMESTEP 
     &                ( (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F 338 TIMESTEP 
     &                 -( dPhiNH(i,j,bi,bj) - dPhiNH(i,j-1,bi,bj) )
./model/src/timestep.F 346 TIMESTEP 
     &               - nhFac*_recip_dxC(i,j,bi,bj)*
./model/src/timestep.F 347 TIMESTEP 
     &                  (phi_nh(i,j,k,bi,bj)-phi_nh(i-1,j,k,bi,bj))
./model/src/timestep.F 349 TIMESTEP 
     &               - nhFac*_recip_dyC(i,j,bi,bj)*
./model/src/timestep.F 350 TIMESTEP 
     &                  (phi_nh(i,j,k,bi,bj)-phi_nh(i,j-1,k,bi,bj))
./model/src/timestep.F 360 TIMESTEP 
          gU(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./model/src/timestep.F 365 TIMESTEP 
     &        )*_maskW(i,j,k,bi,bj)
./model/src/timestep.F 372 TIMESTEP 
          gV(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./model/src/timestep.F 377 TIMESTEP 
     &        )*_maskS(i,j,k,bi,bj)
./model/src/timestep.F 383 TIMESTEP 
        CALL DIAGNOSTICS_FILL( guExt,'Um_Ext  ',k,1,2,bi,bj,myThid )
./model/src/timestep.F 384 TIMESTEP 
        CALL DIAGNOSTICS_FILL( gvExt,'Vm_Ext  ',k,1,2,bi,bj,myThid )
./model/src/timestep.F 388 TIMESTEP 
        CALL DIAGNOSTICS_FILL( guCor,'Um_Cori ',k,1,2,bi,bj,myThid )
./model/src/timestep.F 389 TIMESTEP 
        CALL DIAGNOSTICS_FILL( gvCor,'Vm_Cori ',k,1,2,bi,bj,myThid )
./model/src/timestep.F 46 TIMESTEP 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./model/src/timestep_tracer.F 11 TIMESTEP_TRACER 
     I                     bi, bj, deltaTLev,
./model/src/timestep_tracer.F 39 TIMESTEP_TRACER 
      INTEGER bi, bj
./model/src/timestep_wvel.F 102 TIMESTEP_WVEL 
            wVel(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/timestep_wvel.F 10 TIMESTEP_WVEL 
     I                          bi,bj, myTime, myIter, myThid )
./model/src/timestep_wvel.F 117 TIMESTEP_WVEL 
            gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/timestep_wvel.F 35 TIMESTEP_WVEL 
      INTEGER bi,bj
./model/src/timestep_wvel.F 73 TIMESTEP_WVEL 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F 75 TIMESTEP_WVEL 
     &              *( phi_nh(i,j,k,bi,bj) - phi_nh(i,j,k-1,bi,bj) )
./model/src/timestep_wvel.F 81 TIMESTEP_WVEL 
             gW(i,j,k,bi,bj) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F 83 TIMESTEP_WVEL 
     &              *( phi_nh(i,j,k,bi,bj) - dPhiNH(i,j,bi,bj) )
./model/src/timestep_wvel.F 91 TIMESTEP_WVEL 
            gWtmp(i,j) = gW(i,j,k,bi,bj)
./model/src/timestep_wvel.F 92 TIMESTEP_WVEL 
     &             *maskC(i,j,k,bi,bj)*maskC(i,j,km1,bi,bj)
./model/src/timestep_wvel.F 93 TIMESTEP_WVEL 
            gW(i,j,k,bi,bj) = wVel(i,j,k,bi,bj)
./model/src/tracers_correction_step.F 107 TRACERS_CORRECTION_STEP 
     I        bi, bj, iMin, iMax, jMin, jMax,
./model/src/tracers_correction_step.F 114 TRACERS_CORRECTION_STEP 
     I        bi, bj, myTime, myIter, myThid )
./model/src/tracers_correction_step.F 119 TRACERS_CORRECTION_STEP 
     &  CALL MATRIX_STORE_TENDENCY_IMP( bi, bj, myTime, myIter, myThid )
./model/src/tracers_correction_step.F 48 TRACERS_CORRECTION_STEP 
      INTEGER bi, bj
./model/src/tracers_correction_step.F 53 TRACERS_CORRECTION_STEP 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/tracers_correction_step.F 55 TRACERS_CORRECTION_STEP 
          CALL TRACERS_IIGW_CORRECTION(bi,bj, myTime,myIter,myThid)
./model/src/tracers_correction_step.F 96 TRACERS_CORRECTION_STEP 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 10 TRACERS_IIGW_CORRECTION 
     I                   bi, bj, myTime, myIter, myThid )
./model/src/tracers_iigw_correction.F 38 TRACERS_IIGW_CORRECTION 
      INTEGER bi,bj
./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 82 TRACERS_IIGW_CORRECTION 
          theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./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 98 TRACERS_IIGW_CORRECTION 
            salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./model/src/update_cg2d.F 100 UPDATE_CG2D 
          aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*cg2dNorm
./model/src/update_cg2d.F 103 UPDATE_CG2D 
     &                  *maskInC(i,j,bi,bj)*maskInC(i,j-1,bi,bj)
./model/src/update_cg2d.F 111 UPDATE_CG2D 
           ks = kSurfC(i,j,bi,bj)
./model/src/update_cg2d.F 112 UPDATE_CG2D 
           aC2d(i,j,bi,bj) = -(
./model/src/update_cg2d.F 113 UPDATE_CG2D 
     &       aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj)
./model/src/update_cg2d.F 114 UPDATE_CG2D 
     &      +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj)
./model/src/update_cg2d.F 115 UPDATE_CG2D 
     &      +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/update_cg2d.F 116 UPDATE_CG2D 
     &                  *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/update_cg2d.F 123 UPDATE_CG2D 
           aC2d(i,j,bi,bj) = -(
./model/src/update_cg2d.F 124 UPDATE_CG2D 
     &       aW2d(i,j,bi,bj) + aW2d(i+1, j ,bi,bj)
./model/src/update_cg2d.F 125 UPDATE_CG2D 
     &      +aS2d(i,j,bi,bj) + aS2d( i ,j+1,bi,bj)
./model/src/update_cg2d.F 126 UPDATE_CG2D 
     &      +freeSurfFac*cg2dNorm*recip_Bo(i,j,bi,bj)
./model/src/update_cg2d.F 127 UPDATE_CG2D 
     &                  *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf
./model/src/update_cg2d.F 141 UPDATE_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/update_cg2d.F 145 UPDATE_CG2D 
          IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN
./model/src/update_cg2d.F 146 UPDATE_CG2D 
            pC(i,j,bi,bj) = 1. _d 0
./model/src/update_cg2d.F 148 UPDATE_CG2D 
           pC(i,j,bi,bj) =  1. _d 0 / aC2d(i,j,bi,bj)
./model/src/update_cg2d.F 150 UPDATE_CG2D 
          pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj)
./model/src/update_cg2d.F 152 UPDATE_CG2D 
           pW(i,j,bi,bj) = 0.
./model/src/update_cg2d.F 154 UPDATE_CG2D 
           pW(i,j,bi,bj) =
./model/src/update_cg2d.F 155 UPDATE_CG2D 
     &     -aW2d(i,j,bi,bj)/((cg2dpcOffDFac *pW_tmp)**2 )
./model/src/update_cg2d.F 157 UPDATE_CG2D 
          pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj)
./model/src/update_cg2d.F 159 UPDATE_CG2D 
           pS(i,j,bi,bj) = 0.
./model/src/update_cg2d.F 161 UPDATE_CG2D 
           pS(i,j,bi,bj) =
./model/src/update_cg2d.F 162 UPDATE_CG2D 
     &     -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 )
./model/src/update_cg2d.F 49 UPDATE_CG2D 
      INTEGER bi, bj
./model/src/update_cg2d.F 67 UPDATE_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/update_cg2d.F 71 UPDATE_CG2D 
          aW2d(i,j,bi,bj) = 0. _d 0
./model/src/update_cg2d.F 72 UPDATE_CG2D 
          aS2d(i,j,bi,bj) = 0. _d 0
./model/src/update_cg2d.F 74 UPDATE_CG2D 
          aC2d(i,j,bi,bj) = 0. _d 0
./model/src/update_cg2d.F 82 UPDATE_CG2D 
           faceArea = _dyG(i,j,bi,bj)*drF(k)
./model/src/update_cg2d.F 83 UPDATE_CG2D 
     &               *_hFacW(i,j,k,bi,bj)
./model/src/update_cg2d.F 84 UPDATE_CG2D 
           aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)
./model/src/update_cg2d.F 85 UPDATE_CG2D 
     &              + faceArea*recip_dxC(i,j,bi,bj)
./model/src/update_cg2d.F 86 UPDATE_CG2D 
           faceArea = _dxG(i,j,bi,bj)*drF(k)
./model/src/update_cg2d.F 87 UPDATE_CG2D 
     &               *_hFacS(i,j,k,bi,bj)
./model/src/update_cg2d.F 88 UPDATE_CG2D 
           aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)
./model/src/update_cg2d.F 89 UPDATE_CG2D 
     &              + faceArea*recip_dyC(i,j,bi,bj)
./model/src/update_cg2d.F 95 UPDATE_CG2D 
          aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*cg2dNorm
./model/src/update_cg2d.F 98 UPDATE_CG2D 
     &                  *maskInC(i,j,bi,bj)*maskInC(i-1,j,bi,bj)
./model/src/update_etah.F 44 UPDATE_ETAH 
      INTEGER i,j,bi,bj
./model/src/update_etah.F 49 UPDATE_ETAH 
      DO bj=myByLo(myThid),myByHi(myThid)
./model/src/update_etah.F 55 UPDATE_ETAH 
            etaHnm1(i,j,bi,bj) = etaH(i,j,bi,bj)
./model/src/update_etah.F 65 UPDATE_ETAH 
            etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/update_etah.F 72 UPDATE_ETAH 
            etaH(i,j,bi,bj) = etaN(i,j,bi,bj)
./model/src/update_etah.F 73 UPDATE_ETAH 
     &       + (1. - implicDiv2Dflow)*dEtaHdt(i,j,bi,bj)
./model/src/update_etah.F 83 UPDATE_ETAH 
     &     CALL OBCS_APPLY_ETA( bi, bj, etaH, myThid )
./model/src/update_etaws.F 46 UPDATE_ETAWS 
      INTEGER i,j,bi,bj
./model/src/update_etaws.F 51 UPDATE_ETAWS 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/update_etaws.F 58 UPDATE_ETAWS 
            dEtaWdt(i,j,bi,bj) = etaHw(i,j,bi,bj)
./model/src/update_etaws.F 59 UPDATE_ETAWS 
            dEtaSdt(i,j,bi,bj) = etaHs(i,j,bi,bj)
./model/src/update_etaws.F 65 UPDATE_ETAWS 
            etaHw(i,j,bi,bj)   = ( etaH (i-1,j,bi,bj)
./model/src/update_etaws.F 66 UPDATE_ETAWS 
     &                           + etaH ( i ,j,bi,bj) )*0.5 _d 0
./model/src/update_etaws.F 67 UPDATE_ETAWS 
            etaHs(i,j,bi,bj)   = ( etaH (i,j-1,bi,bj)
./model/src/update_etaws.F 68 UPDATE_ETAWS 
     &                           + etaH (i, j ,bi,bj) )*0.5 _d 0
./model/src/update_etaws.F 86 UPDATE_ETAWS 
       DO bj=myByLo(myThid),myByHi(myThid)
./model/src/update_etaws.F 92 UPDATE_ETAWS 
            dEtaWdt(i,j,bi,bj) = ( etaHw(i,j,bi,bj)
./model/src/update_etaws.F 93 UPDATE_ETAWS 
     &                           - dEtaWdt(i,j,bi,bj) )/deltaTfreesurf
./model/src/update_etaws.F 94 UPDATE_ETAWS 
            dEtaSdt(i,j,bi,bj) = ( etaHs(i,j,bi,bj)
./model/src/update_etaws.F 95 UPDATE_ETAWS 
     &                           - dEtaSdt(i,j,bi,bj) )/deltaTfreesurf
./model/src/update_masks_etc.F 105 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = 0. _d 0
./model/src/update_masks_etc.F 107 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = 1. _d 0
./model/src/update_masks_etc.F 109 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*(
./model/src/update_masks_etc.F 137 UPDATE_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/update_masks_etc.F 141 UPDATE_MASKS_ETC 
          R_low(i,j,bi,bj) = rF(1)
./model/src/update_masks_etc.F 147 UPDATE_MASKS_ETC 
           R_low(I,J,bi,bj) = R_low(I,J,bi,bj)
./model/src/update_masks_etc.F 148 UPDATE_MASKS_ETC 
     &                      - drF(K)*hFacC(I,J,K,bi,bj)
./model/src/update_masks_etc.F 184 UPDATE_MASKS_ETC 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/update_masks_etc.F 189 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 191 UPDATE_MASKS_ETC 
          IF ( tmpfld(i,j,bi,bj) .LE. 0. ) THEN
./model/src/update_masks_etc.F 192 UPDATE_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 0.
./model/src/update_masks_etc.F 194 UPDATE_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/update_masks_etc.F 210 UPDATE_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/update_masks_etc.F 217 UPDATE_MASKS_ETC 
           IF (DYG(I,J,bi,bj).EQ.0.) THEN
./model/src/update_masks_etc.F 221 UPDATE_MASKS_ETC 
              hFacW(I,J,K,bi,bj)=0.
./model/src/update_masks_etc.F 223 UPDATE_MASKS_ETC 
              hFacW(I,J,K,bi,bj)=maskW(I,J,K,bi,bj)*
./model/src/update_masks_etc.F 225 UPDATE_MASKS_ETC 
     &           SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj))
./model/src/update_masks_etc.F 227 UPDATE_MASKS_ETC 
     &                    MIN(hFacC(I,J,K,bi,bj),hFacC(Im1,J,K,bi,bj))
./model/src/update_masks_etc.F 230 UPDATE_MASKS_ETC 
           IF (DXG(I,J,bi,bj).EQ.0.) THEN
./model/src/update_masks_etc.F 231 UPDATE_MASKS_ETC 
              hFacS(I,J,K,bi,bj)=0.
./model/src/update_masks_etc.F 233 UPDATE_MASKS_ETC 
              hFacS(I,J,K,bi,bj)=maskS(I,J,K,bi,bj)*
./model/src/update_masks_etc.F 235 UPDATE_MASKS_ETC 
     &           SMOOTHMIN_RS(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj))
./model/src/update_masks_etc.F 237 UPDATE_MASKS_ETC 
     &                    MIN(hFacC(I,J,K,bi,bj),hFacC(I,Jm1,K,bi,bj))
./model/src/update_masks_etc.F 292 UPDATE_MASKS_ETC 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/update_masks_etc.F 297 UPDATE_MASKS_ETC 
           IF (hFacC(I,J,K,bi,bj) .NE. 0. ) THEN
./model/src/update_masks_etc.F 299 UPDATE_MASKS_ETC 
            recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj)
./model/src/update_masks_etc.F 302 UPDATE_MASKS_ETC 
            recip_hFacC(I,J,K,bi,bj) = 0.
./model/src/update_masks_etc.F 305 UPDATE_MASKS_ETC 
           IF (hFacW(I,J,K,bi,bj) .NE. 0. ) THEN
./model/src/update_masks_etc.F 307 UPDATE_MASKS_ETC 
            recip_hFacW(I,J,K,bi,bj) = 1. _d 0 / hFacw(I,J,K,bi,bj)
./model/src/update_masks_etc.F 310 UPDATE_MASKS_ETC 
            recip_hFacW(I,J,K,bi,bj) = 0.
./model/src/update_masks_etc.F 313 UPDATE_MASKS_ETC 
           IF (hFacS(I,J,K,bi,bj) .NE. 0. ) THEN
./model/src/update_masks_etc.F 315 UPDATE_MASKS_ETC 
            recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj)
./model/src/update_masks_etc.F 318 UPDATE_MASKS_ETC 
            recip_hFacS(I,J,K,bi,bj) = 0.
./model/src/update_masks_etc.F 343 UPDATE_MASKS_ETC 
           h0FacC(i,j,k,bi,bj) = _hFacC(i,j,k,bi,bj)
./model/src/update_masks_etc.F 344 UPDATE_MASKS_ETC 
           h0FacW(i,j,k,bi,bj) = _hFacW(i,j,k,bi,bj)
./model/src/update_masks_etc.F 345 UPDATE_MASKS_ETC 
           h0FacS(i,j,k,bi,bj) = _hFacS(i,j,k,bi,bj)
./model/src/update_masks_etc.F 69 UPDATE_MASKS_ETC 
      INTEGER bi, bj
./model/src/update_masks_etc.F 82 UPDATE_MASKS_ETC 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/update_masks_etc.F 90 UPDATE_MASKS_ETC 
           hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K)
./model/src/update_masks_etc.F 92 UPDATE_MASKS_ETC 
           hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K)
./model/src/update_r_star.F 102 UPDATE_R_STAR 
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_r_star.F 103 UPDATE_R_STAR 
     &        / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F 104 UPDATE_R_STAR 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F 105 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F 106 UPDATE_R_STAR 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F 107 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 109 UPDATE_R_STAR 
           IF (maskC(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 110 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 111 UPDATE_R_STAR 
           IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 112 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 113 UPDATE_R_STAR 
           IF (maskS(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 114 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 43 UPDATE_R_STAR 
      INTEGER i,j,k,bi,bj
./model/src/update_r_star.F 46 UPDATE_R_STAR 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/update_r_star.F 58 UPDATE_R_STAR 
            hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/update_r_star.F 59 UPDATE_R_STAR 
     &                          *rStarFacC(i,j,bi,bj)
./model/src/update_r_star.F 60 UPDATE_R_STAR 
            hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/update_r_star.F 61 UPDATE_R_STAR 
     &                          *rStarFacW(i,j,bi,bj)
./model/src/update_r_star.F 62 UPDATE_R_STAR 
            hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/update_r_star.F 63 UPDATE_R_STAR 
     &                          *rStarFacS(i,j,bi,bj)
./model/src/update_r_star.F 67 UPDATE_R_STAR 
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_r_star.F 68 UPDATE_R_STAR 
     &        / ( _hFacC(i,j,k,bi,bj) + (1.-maskC(i,j,k,bi,bj)) )
./model/src/update_r_star.F 69 UPDATE_R_STAR 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_r_star.F 70 UPDATE_R_STAR 
     &        / ( _hFacW(i,j,k,bi,bj) + (1.-maskW(i,j,k,bi,bj)) )
./model/src/update_r_star.F 71 UPDATE_R_STAR 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_r_star.F 72 UPDATE_R_STAR 
     &        / ( _hFacS(i,j,k,bi,bj) + (1.-maskS(i,j,k,bi,bj)) )
./model/src/update_r_star.F 74 UPDATE_R_STAR 
           IF (maskC(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 75 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 76 UPDATE_R_STAR 
           IF (maskW(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 77 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 78 UPDATE_R_STAR 
           IF (maskS(i,j,k,bi,bj).NE.0.)
./model/src/update_r_star.F 79 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 93 UPDATE_R_STAR 
            hFacC(i,j,k,bi,bj) = h0FacC(i,j,k,bi,bj)
./model/src/update_r_star.F 94 UPDATE_R_STAR 
     &                          *rStarFacNm1C(i,j,bi,bj)
./model/src/update_r_star.F 95 UPDATE_R_STAR 
            hFacW(i,j,k,bi,bj) = h0FacW(i,j,k,bi,bj)
./model/src/update_r_star.F 96 UPDATE_R_STAR 
     &                          *rStarFacNm1W(i,j,bi,bj)
./model/src/update_r_star.F 97 UPDATE_R_STAR 
            hFacS(i,j,k,bi,bj) = h0FacS(i,j,k,bi,bj)
./model/src/update_r_star.F 98 UPDATE_R_STAR 
     &                          *rStarFacNm1S(i,j,bi,bj)
./model/src/update_sigma.F 106 UPDATE_SIGMA 
          IF ( kSurfC(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F 107 UPDATE_SIGMA 
           tmpFld(i,j) = etaHc(i,j,bi,bj)
./model/src/update_sigma.F 108 UPDATE_SIGMA 
     &                 + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) )
./model/src/update_sigma.F 117 UPDATE_SIGMA 
            hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./model/src/update_sigma.F 121 UPDATE_SIGMA 
            recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 132 UPDATE_SIGMA 
          IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F 133 UPDATE_SIGMA 
           tmpFld(i,j) = etaHw(i,j,bi,bj)
./model/src/update_sigma.F 134 UPDATE_SIGMA 
     &                 + ( rSurfW(i,j,bi,bj)-rLowW(i,j,bi,bj) )
./model/src/update_sigma.F 143 UPDATE_SIGMA 
            hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)
./model/src/update_sigma.F 147 UPDATE_SIGMA 
            recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 158 UPDATE_SIGMA 
          IF ( kSurfS(i,j,bi,bj).LE.Nr ) THEN
./model/src/update_sigma.F 159 UPDATE_SIGMA 
           tmpFld(i,j) = etaHs(i,j,bi,bj)
./model/src/update_sigma.F 160 UPDATE_SIGMA 
     &                 + ( rSurfS(i,j,bi,bj)-rLowS(i,j,bi,bj) )
./model/src/update_sigma.F 169 UPDATE_SIGMA 
            hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)
./model/src/update_sigma.F 173 UPDATE_SIGMA 
            recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k)
./model/src/update_sigma.F 57 UPDATE_SIGMA 
      INTEGER bi, bj
./model/src/update_sigma.F 67 UPDATE_SIGMA 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/update_surf_dr.F 106 UPDATE_SURF_DR 
          ks = kSurfW(i,j,bi,bj)
./model/src/update_surf_dr.F 108 UPDATE_SURF_DR 
           hFacW(i,j,ks,bi,bj) = hFac_surfNm1W(i,j,bi,bj)
./model/src/update_surf_dr.F 109 UPDATE_SURF_DR 
           recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1W(i,j,bi,bj)
./model/src/update_surf_dr.F 115 UPDATE_SURF_DR 
          ks = kSurfS(i,j,bi,bj)
./model/src/update_surf_dr.F 117 UPDATE_SURF_DR 
           hFacS(i,j,ks,bi,bj) = hFac_surfNm1S(i,j,bi,bj)
./model/src/update_surf_dr.F 118 UPDATE_SURF_DR 
           recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1S(i,j,bi,bj)
./model/src/update_surf_dr.F 128 UPDATE_SURF_DR 
           hFacC(i,j,k,bi,bj)=h0FacC(i,j,k,bi,bj)
./model/src/update_surf_dr.F 129 UPDATE_SURF_DR 
           IF (h0FacC(i,j,k,bi,bj) .NE. 0. ) THEN
./model/src/update_surf_dr.F 130 UPDATE_SURF_DR 
            recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / h0FacC(i,j,k,bi,bj)
./model/src/update_surf_dr.F 132 UPDATE_SURF_DR 
            recip_hFacC(i,j,k,bi,bj) = 0.
./model/src/update_surf_dr.F 43 UPDATE_SURF_DR 
      INTEGER i,j,k,bi,bj
./model/src/update_surf_dr.F 47 UPDATE_SURF_DR 
      DO bj=myByLo(myThid), myByHi(myThid)
./model/src/update_surf_dr.F 57 UPDATE_SURF_DR 
          ks = kSurfC(i,j,bi,bj)
./model/src/update_surf_dr.F 59 UPDATE_SURF_DR 
           hFacC(i,j,ks,bi,bj) = hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 60 UPDATE_SURF_DR 
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./model/src/update_surf_dr.F 70 UPDATE_SURF_DR 
          ks = kSurfW(i,j,bi,bj)
./model/src/update_surf_dr.F 72 UPDATE_SURF_DR 
           hFacW(i,j,ks,bi,bj) = hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 73 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 79 UPDATE_SURF_DR 
          ks = kSurfS(i,j,bi,bj)
./model/src/update_surf_dr.F 81 UPDATE_SURF_DR 
           hFacS(i,j,ks,bi,bj) = hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F 82 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 93 UPDATE_SURF_DR 
          ks = kSurfC(i,j,bi,bj)
./model/src/update_surf_dr.F 95 UPDATE_SURF_DR 
           hFacC(i,j,ks,bi,bj) = hFac_surfNm1C(i,j,bi,bj)
./model/src/update_surf_dr.F 96 UPDATE_SURF_DR 
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfNm1C(i,j,bi,bj)
./model/src/write_grid.F 49 WRITE_GRID 
      INTEGER i,j,k,bi,bj
./model/src/write_grid.F 59 WRITE_GRID 
      DO bj = myByLo(myThid), myByHi(myThid)
./model/src/write_grid.F 64 WRITE_GRID 
            tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj)
./optim/optim_readdata.F 274 OPTIM_READDATA 
     &        bi,bj
./optim/optim_readdata.F 65 OPTIM_READDATA 
      integer bi,bj
./optim/optim_writedata.F 190 OPTIM_WRITEDATA 
                     write( funit ) bj
./optim/optim_writedata.F 54 OPTIM_WRITEDATA 
      integer bi,bj
./pkg/admtlm/admtlm_bypassad.F 100 ADMTLM_BYPASSAD 
     &              + adetan(i,j,bi,bj)
./pkg/admtlm/admtlm_bypassad.F 111 ADMTLM_BYPASSAD 
      do bj = jtlo, jthi
./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 129 ADMTLM_BYPASSAD 
      do bj = jtlo, jthi
./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 147 ADMTLM_BYPASSAD 
      do bj = jtlo, jthi
./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 165 ADMTLM_BYPASSAD 
      do bj = jtlo, jthi
./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 34 ADMTLM_BYPASSAD 
      integer bi, bj
./pkg/admtlm/admtlm_bypassad.F 72 ADMTLM_BYPASSAD 
      DO bj = jtlo, jthi
./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 95 ADMTLM_BYPASSAD 
      do bj = jtlo, jthi
./pkg/admtlm/admtlm_bypassad.F 99 ADMTLM_BYPASSAD 
              tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj)
./pkg/admtlm/admtlm_init_fixed.F 29 ADMTLM_INIT_FIXED 
      integer bi, bj
./pkg/admtlm/admtlm_init_fixed.F 34 ADMTLM_INIT_FIXED 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/admtlm/admtlm_init_fixed.F 43 ADMTLM_INIT_FIXED 
         wtheta(k,bi,bj) = 1. / (1. _d 0)**2
./pkg/admtlm/admtlm_init_fixed.F 44 ADMTLM_INIT_FIXED 
         wsalt (k,bi,bj) = 1. / (0.1 _d 0)**2
./pkg/admtlm/admtlm_init_fixed.F 45 ADMTLM_INIT_FIXED 
         wuvvel(k,bi,bj) = 1. / (0.01 _d 0)**2
./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 29 ADMTLM_MAP 
      integer bi, bj
./pkg/admtlm/admtlm_map.F 31 ADMTLM_MAP 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 32 ADMTLM_METRIC 
      integer bi, bj
./pkg/admtlm/admtlm_metric.F 51 ADMTLM_METRIC 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 73 ADMTLM_METRIC 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_v23/aim_aim2dyn.F 10 AIM_AIM2DYN 
     I                        bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_aim2dyn.F 114 AIM_AIM2DYN 
         aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid)
./pkg/aim_v23/aim_aim2dyn.F 121 AIM_AIM2DYN 
         aim_dSdt(i,j,k,bi,bj) =   QT_CNV(I2,Katm,myThid)
./pkg/aim_v23/aim_aim2dyn.F 130 AIM_AIM2DYN 
            aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 131 AIM_AIM2DYN 
     &                            / pStarFacK(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 140 AIM_AIM2DYN 
     &                          k, Nr, 1,bi,bj, myThid )
./pkg/aim_v23/aim_aim2dyn.F 142 AIM_AIM2DYN 
     &                          k, Nr, 1,bi,bj, myThid )
./pkg/aim_v23/aim_aim2dyn.F 152 AIM_AIM2DYN 
            aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 153 AIM_AIM2DYN 
     &                          *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 154 AIM_AIM2DYN 
     &                              /rStarExpC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 155 AIM_AIM2DYN 
            aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 156 AIM_AIM2DYN 
     &                          *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 157 AIM_AIM2DYN 
     &                              /rStarExpC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 163 AIM_AIM2DYN 
           IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/aim_v23/aim_aim2dyn.F 164 AIM_AIM2DYN 
            aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 165 AIM_AIM2DYN 
     &                             /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 166 AIM_AIM2DYN 
            aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 167 AIM_AIM2DYN 
     &                             /hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 169 AIM_AIM2DYN 
            aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 170 AIM_AIM2DYN 
     &                          *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 171 AIM_AIM2DYN 
            aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 172 AIM_AIM2DYN 
     &                          *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 183 AIM_AIM2DYN 
            aim_dTdt(i,j,k,bi,bj) =  aim_dTdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 184 AIM_AIM2DYN 
     &                           *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 185 AIM_AIM2DYN 
            aim_dSdt(i,j,k,bi,bj) =  aim_dSdt(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 186 AIM_AIM2DYN 
     &                           *recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_aim2dyn.F 53 AIM_AIM2DYN 
      INTEGER bi, bj
./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 98 AIM_AIM2DYN 
         aim_surfWind(i,j,bi,bj) = SPEED0(I2,myThid)
./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 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 138 AIM_AIM2LAND 
         land_EnWFlux(i,j,bi,bj) = land_EnWFlux(i,j,bi,bj)
./pkg/aim_v23/aim_aim2land.F 13 AIM_AIM2LAND 
     I               land_frc, bi, bj, myTime, myIter, myThid)
./pkg/aim_v23/aim_aim2land.F 51 AIM_AIM2LAND 
      INTEGER bi, bj, myIter, myThid
./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 89 AIM_AIM2LAND 
         land_HeatFlx(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2sioce.F 101 AIM_AIM2SIOCE 
        IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F 105 AIM_AIM2SIOCE 
         Qnet(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 106 AIM_AIM2SIOCE 
         EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 107 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj)  = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 118 AIM_AIM2SIOCE 
         Qnet(i,j,bi,bj) =
./pkg/aim_v23/aim_aim2sioce.F 125 AIM_AIM2SIOCE 
         EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid)
./pkg/aim_v23/aim_aim2sioce.F 129 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj) = SSR(I2,2,myThid)
./pkg/aim_v23/aim_aim2sioce.F 145 AIM_AIM2SIOCE 
         icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp
./pkg/aim_v23/aim_aim2sioce.F 151 AIM_AIM2SIOCE 
         icFrac = iceMask(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 153 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj) = icFrac*icFlxSW(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 154 AIM_AIM2SIOCE 
     &                  + opFrac*Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 15 AIM_AIM2SIOCE 
     I               bi, bj, myTime, myIter, myThid)
./pkg/aim_v23/aim_aim2sioce.F 163 AIM_AIM2SIOCE 
           IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F 167 AIM_AIM2SIOCE 
              sHeating(i,j,bi,bj) = sHeating(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 191 AIM_AIM2SIOCE 
          icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj))
./pkg/aim_v23/aim_aim2sioce.F 195 AIM_AIM2SIOCE 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*opFrac
./pkg/aim_v23/aim_aim2sioce.F 202 AIM_AIM2SIOCE 
          EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*opFrac
./pkg/aim_v23/aim_aim2sioce.F 207 AIM_AIM2SIOCE 
          Qsw(i,j,bi,bj) = opFrac*Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 222 AIM_AIM2SIOCE 
          Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 233 AIM_AIM2SIOCE 
          Qsw(i,j,bi,bj) = -Qsw(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 234 AIM_AIM2SIOCE 
          Qnet(i,j,bi,bj)= -Qnet(i,j,bi,bj)
./pkg/aim_v23/aim_aim2sioce.F 79 AIM_AIM2SIOCE 
      INTEGER bi, bj, myIter, myThid
./pkg/aim_v23/aim_diagnostics.F 101 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 103 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 108 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 110 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 130 AIM_DIAGNOSTICS 
         IF ( bi.EQ.1 .AND. bj.EQ.1 ) THEN
./pkg/aim_v23/aim_diagnostics.F 138 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RSW',TT_RSW,myThid)
./pkg/aim_v23/aim_diagnostics.F 139 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RLW',TT_RLW,myThid)
./pkg/aim_v23/aim_diagnostics.F 140 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_CNV',TT_CNV,myThid)
./pkg/aim_v23/aim_diagnostics.F 141 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_PBL',TT_PBL,myThid)
./pkg/aim_v23/aim_diagnostics.F 142 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_LSC',TT_LSC,myThid)
./pkg/aim_v23/aim_diagnostics.F 143 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_CNV',QT_CNV,myThid)
./pkg/aim_v23/aim_diagnostics.F 144 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_PBL',QT_PBL,myThid)
./pkg/aim_v23/aim_diagnostics.F 145 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_LSC',QT_LSC,myThid)
./pkg/aim_v23/aim_diagnostics.F 166 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 170 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 172 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 2, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 174 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 3, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 176 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 4, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 178 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 5, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 180 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 6, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 182 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 7, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 184 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 8, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 186 AIM_DIAGNOSTICS 
     &                         1, bi, bj, 9, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 188 AIM_DIAGNOSTICS 
     &                         1, bi, bj,10, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 190 AIM_DIAGNOSTICS 
     &                         1, bi, bj,11, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 192 AIM_DIAGNOSTICS 
     &                         1, bi, bj,12, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 194 AIM_DIAGNOSTICS 
     &                         1, bi, bj,13, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 196 AIM_DIAGNOSTICS 
     &                         1, bi, bj,14, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 198 AIM_DIAGNOSTICS 
     &                         1, bi, bj,15, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 200 AIM_DIAGNOSTICS 
     &                         1, bi, bj,16, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 202 AIM_DIAGNOSTICS 
     &                         1, bi, bj,17, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 204 AIM_DIAGNOSTICS 
     &                         1, bi, bj,18, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 209 AIM_DIAGNOSTICS 
     &                         1, bi, bj,19, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 211 AIM_DIAGNOSTICS 
     &                         1, bi, bj,20, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 213 AIM_DIAGNOSTICS 
     &                         1, bi, bj,21, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 215 AIM_DIAGNOSTICS 
     &                         1, bi, bj,22, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 232 AIM_DIAGNOSTICS 
         IF ( bi.EQ.1 .AND. bj.EQ.1 ) THEN
./pkg/aim_v23/aim_diagnostics.F 240 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 242 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 244 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 246 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 248 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 250 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 252 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 254 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 256 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 258 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 260 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 262 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 264 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 266 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 268 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 270 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 272 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 274 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 279 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 281 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 283 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 285 AIM_DIAGNOSTICS 
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 313 AIM_DIAGNOSTICS 
          TSRtave(i,j,bi,bj)    = TSRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 315 AIM_DIAGNOSTICS 
          OLRtave(i,j,bi,bj)    = OLRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 317 AIM_DIAGNOSTICS 
          SSRtave(i,j,bi,bj)    = SSRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 319 AIM_DIAGNOSTICS 
          SLRtave(i,j,bi,bj)    = SLRtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 321 AIM_DIAGNOSTICS 
          SHFtave(i,j,bi,bj)    = SHFtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 323 AIM_DIAGNOSTICS 
          EVAPtave(i,j,bi,bj)   = EVAPtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 325 AIM_DIAGNOSTICS 
          PRECNVtave(i,j,bi,bj) = PRECNVtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 327 AIM_DIAGNOSTICS 
          PRECLStave(i,j,bi,bj) = PRECLStave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 329 AIM_DIAGNOSTICS 
          CLOUDCtave(i,j,bi,bj) = CLOUDCtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 331 AIM_DIAGNOSTICS 
          CLTOPtave(i,j,bi,bj)  = CLTOPtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 333 AIM_DIAGNOSTICS 
          CBMFtave(i,j,bi,bj)   = CBMFtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 335 AIM_DIAGNOSTICS 
          DRAGtave(i,j,bi,bj)   = DRAGtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 337 AIM_DIAGNOSTICS 
          aimV0tave(i,j,bi,bj)  = aimV0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 339 AIM_DIAGNOSTICS 
          aimT0tave(i,j,bi,bj)  = aimT0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 341 AIM_DIAGNOSTICS 
          aimQ0tave(i,j,bi,bj)  = aimQ0tave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 343 AIM_DIAGNOSTICS 
          EnFxPrtave(i,j,bi,bj) = EnFxPrtave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 347 AIM_DIAGNOSTICS 
          albedotave(i,j,bi,bj) = albedotave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 349 AIM_DIAGNOSTICS 
          dTsurftave(i,j,bi,bj) = dTsurftave(i,j,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 360 AIM_DIAGNOSTICS 
           aimRHtave(i,j,k,bi,bj) = aimRHtave(i,j,k,bi,bj)
./pkg/aim_v23/aim_diagnostics.F 367 AIM_DIAGNOSTICS 
        aim_timeAve(bi,bj) = aim_timeAve(bi,bj)+DDTT
./pkg/aim_v23/aim_diagnostics.F 378 AIM_DIAGNOSTICS 
     &                        'RADSW   ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 380 AIM_DIAGNOSTICS 
     &                        'RADLW   ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 382 AIM_DIAGNOSTICS 
     &                        'DTCONV  ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 384 AIM_DIAGNOSTICS 
     &                        'TURBT   ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 386 AIM_DIAGNOSTICS 
     &                        'DTLS    ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 388 AIM_DIAGNOSTICS 
     &                        'DQCONV  ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 390 AIM_DIAGNOSTICS 
     &                        'TURBQ   ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 392 AIM_DIAGNOSTICS 
     &                        'DQLS    ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 394 AIM_DIAGNOSTICS 
     &                        'RELHUM  ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 396 AIM_DIAGNOSTICS 
     &                        'TSR     ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 398 AIM_DIAGNOSTICS 
     &                        'OLR     ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 400 AIM_DIAGNOSTICS 
     &                        'RADSWG  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 402 AIM_DIAGNOSTICS 
     &                        'RADLWG  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 404 AIM_DIAGNOSTICS 
     &                        'HFLUX   ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 406 AIM_DIAGNOSTICS 
     &                        'EVAP    ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 408 AIM_DIAGNOSTICS 
     &                        'PRECON  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 410 AIM_DIAGNOSTICS 
     &                        'PRECLS  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 412 AIM_DIAGNOSTICS 
     &                        'CLDFRC  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 414 AIM_DIAGNOSTICS 
     &                        'CLDPRS  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 418 AIM_DIAGNOSTICS 
     &                        'CLDMAS  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 41 AIM_DIAGNOSTICS 
      INTEGER bi, bj
./pkg/aim_v23/aim_diagnostics.F 420 AIM_DIAGNOSTICS 
     &                        'DRAG    ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 422 AIM_DIAGNOSTICS 
     &                        'WINDS   ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 424 AIM_DIAGNOSTICS 
     &                        'TS      ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 426 AIM_DIAGNOSTICS 
     &                        'QS      ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 433 AIM_DIAGNOSTICS 
     &                        'ENPREC  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 436 AIM_DIAGNOSTICS 
     &                        'ALBVISDF', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 438 AIM_DIAGNOSTICS 
     &                        'DTSIMPL ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 442 AIM_DIAGNOSTICS 
     &                        'SWCLR   ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 444 AIM_DIAGNOSTICS 
     &                        'LWCLR   ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 446 AIM_DIAGNOSTICS 
     &                        'TSRCLR  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 448 AIM_DIAGNOSTICS 
     &                        'OLRCLR  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 450 AIM_DIAGNOSTICS 
     &                        'SWGCLR  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 452 AIM_DIAGNOSTICS 
     &                        'LWGCLR  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/aim_diagnostics.F 89 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 91 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 93 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 95 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 97 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 99 AIM_DIAGNOSTICS 
     &                         0, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_diagnostics.F 9 AIM_DIAGNOSTICS 
      SUBROUTINE AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_co2.F 52 AIM_DO_CO2 
      INTEGER bi, bj, i, j
./pkg/aim_v23/aim_do_co2.F 64 AIM_DO_CO2 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_v23/aim_do_co2.F 68 AIM_DO_CO2 
           aimflxCo2(i,j,bi,bj) = flxCO2ocn(i,j,bi,bj)
./pkg/aim_v23/aim_do_co2.F 85 AIM_DO_CO2 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_v23/aim_do_co2.F 87 AIM_DO_CO2 
          flxCO2tile(bi,bj) = 0. _d 0
./pkg/aim_v23/aim_do_co2.F 90 AIM_DO_CO2 
            flxCO2tile(bi,bj)=flxCO2tile(bi,bj) + aimflxCo2(i,j,bi,bj)
./pkg/aim_v23/aim_do_co2.F 91 AIM_DO_CO2 
     &                      * rA(i,j,bi,bj) * deltaT
./pkg/aim_v23/aim_do_physics.F 100 AIM_DO_PHYSICS 
     &    salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F 101 AIM_DO_PHYSICS 
     &                      + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k)
./pkg/aim_v23/aim_do_physics.F 102 AIM_DO_PHYSICS 
     &                  *hFacC(i,j,Nr,bi,bj)*recip_hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_do_physics.F 103 AIM_DO_PHYSICS 
          salt(i,j,Nr,bi,bj) = 0.
./pkg/aim_v23/aim_do_physics.F 112 AIM_DO_PHYSICS 
     I                           bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_physics.F 129 AIM_DO_PHYSICS 
     I                    bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_physics.F 135 AIM_DO_PHYSICS 
           PHI0(I2) = gravity*topoZ(i,j,bi,bj)
./pkg/aim_v23/aim_do_physics.F 144 AIM_DO_PHYSICS 
        CALL SFLSET (PHI0, fOrogr(1,myThid), bi,bj,myThid)
./pkg/aim_v23/aim_do_physics.F 152 AIM_DO_PHYSICS 
     I                    bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_physics.F 154 AIM_DO_PHYSICS 
        CALL AIM_AIM2DYN( bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_physics.F 159 AIM_DO_PHYSICS 
          CALL AIM_AIM2LAND( aim_landFr, bi, bj,
./pkg/aim_v23/aim_do_physics.F 163 AIM_DO_PHYSICS 
          CALL LAND_STEPFWD( aim_landFr, bi, bj,
./pkg/aim_v23/aim_do_physics.F 167 AIM_DO_PHYSICS 
          CALL LAND_DO_DIAGS( aim_landFr, bi, bj,
./pkg/aim_v23/aim_do_physics.F 177 AIM_DO_PHYSICS 
     I                      bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_physics.F 187 AIM_DO_PHYSICS 
          CALL THSICE_STEP_FWD( bi, bj, 1, sNx, 1, sNy,
./pkg/aim_v23/aim_do_physics.F 194 AIM_DO_PHYSICS 
        CALL AIM_DIAGNOSTICS( bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_physics.F 211 AIM_DO_PHYSICS 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_v23/aim_do_physics.F 217 AIM_DO_PHYSICS 
     I                        bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/aim_do_physics.F 74 AIM_DO_PHYSICS 
      INTEGER bi,bj
./pkg/aim_v23/aim_do_physics.F 91 AIM_DO_PHYSICS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/aim_v23/aim_do_physics.F 98 AIM_DO_PHYSICS 
          k = kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 115 AIM_DYN2AIM 
           dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 126 AIM_DYN2AIM 
           IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
./pkg/aim_v23/aim_dyn2aim.F 127 AIM_DYN2AIM 
            dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 129 AIM_DYN2AIM 
            dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 12 AIM_DYN2AIM 
     I           bi,bj, myTime, myIter, myThid)
./pkg/aim_v23/aim_dyn2aim.F 145 AIM_DYN2AIM 
           dpFac(I2,Katm) = hFacC(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 168 AIM_DYN2AIM 
         IF ( maskC(i,j,k,bi,bj).EQ.oneRS ) THEN
./pkg/aim_v23/aim_dyn2aim.F 172 AIM_DYN2AIM 
          TA(I2,Katm)  = theta(i,j,k,bi,bj)*conv_theta2T
./pkg/aim_v23/aim_dyn2aim.F 176 AIM_DYN2AIM 
          QA(I2,Katm)  = MAX( salt(i,j,k,bi,bj), zeroRL )
./pkg/aim_v23/aim_dyn2aim.F 178 AIM_DYN2AIM 
          ThA(I2,Katm) = theta(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 191 AIM_DYN2AIM 
          TA(I2,Katm)  = TA(I2,Katm)*pStarFacK(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 202 AIM_DYN2AIM 
        k = kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 205 AIM_DYN2AIM 
     &                uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 206 AIM_DYN2AIM 
     &              + uVel(i+1,j,k,bi,bj)*uVel(i+1,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 207 AIM_DYN2AIM 
     &              + vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 208 AIM_DYN2AIM 
     &              + vVel(i,j+1,k,bi,bj)*vVel(i,j+1,k,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 230 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 265 AIM_DYN2AIM 
     &                       1, bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_dyn2aim.F 58 AIM_DYN2AIM 
      INTEGER bi, bj, myIter, myThid
./pkg/aim_v23/aim_dyn2aim.F 79 AIM_DYN2AIM 
        snLat(I2,myThid) = SIN(yC(i,j,bi,bj)*deg2rad)
./pkg/aim_v23/aim_dyn2aim.F 80 AIM_DYN2AIM 
        csLat(I2,myThid) = COS(yC(i,j,bi,bj)*deg2rad)
./pkg/aim_v23/aim_dyn2aim.F 88 AIM_DYN2AIM 
        kGrd(I2) = (Nr+1) - kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 96 AIM_DYN2AIM 
        k = kSurfC(i,j,bi,bj)
./pkg/aim_v23/aim_dyn2aim.F 99 AIM_DYN2AIM 
         PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po
./pkg/aim_v23/aim_fields_load.F 154 AIM_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/aim_v23/aim_fields_load.F 161 AIM_FIELDS_LOAD 
             aim_albedo(I,J,bi,bj) = aim_albedo(I,J,bi,bj)/100.
./pkg/aim_v23/aim_fields_load.F 178 AIM_FIELDS_LOAD 
             aim_sst0(i,j,bi,bj) = aim_sst0(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 179 AIM_FIELDS_LOAD 
     &                           * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 201 AIM_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/aim_v23/aim_fields_load.F 206 AIM_FIELDS_LOAD 
            aim_albedo(i,j,bi,bj)= 0.
./pkg/aim_v23/aim_fields_load.F 207 AIM_FIELDS_LOAD 
            aim_veget(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 208 AIM_FIELDS_LOAD 
            aim_sst0(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 209 AIM_FIELDS_LOAD 
            aim_lst0(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 210 AIM_FIELDS_LOAD 
            aim_oic0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 211 AIM_FIELDS_LOAD 
            aim_snw0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 212 AIM_FIELDS_LOAD 
            aim_sw10(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 213 AIM_FIELDS_LOAD 
            aim_sw20(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 214 AIM_FIELDS_LOAD 
            aim_qfx0(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 215 AIM_FIELDS_LOAD 
            aim_sst1(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 216 AIM_FIELDS_LOAD 
            aim_lst1(i,j,bi,bj) =300.
./pkg/aim_v23/aim_fields_load.F 217 AIM_FIELDS_LOAD 
            aim_oic1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 218 AIM_FIELDS_LOAD 
            aim_snw1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 219 AIM_FIELDS_LOAD 
            aim_sw11(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 220 AIM_FIELDS_LOAD 
            aim_sw21(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 221 AIM_FIELDS_LOAD 
            aim_qfx1(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_fields_load.F 288 AIM_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/aim_v23/aim_fields_load.F 296 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 304 AIM_FIELDS_LOAD 
             aim_veget(i,j,bi,bj) =
./pkg/aim_v23/aim_fields_load.F 305 AIM_FIELDS_LOAD 
     &                 MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0)
./pkg/aim_v23/aim_fields_load.F 316 AIM_FIELDS_LOAD 
             aim_lst0(i,j,bi,bj) = aim_lst0(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 317 AIM_FIELDS_LOAD 
     &                           * truncSurfP(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 318 AIM_FIELDS_LOAD 
             aim_lst1(i,j,bi,bj) = aim_lst1(i,j,bi,bj)
./pkg/aim_v23/aim_fields_load.F 319 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 106 AIM_INITIALISE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/aim_v23/aim_initialise.F 110 AIM_INITIALISE 
          aim_landFr   (i,j,bi,bj) = 0.
./pkg/aim_v23/aim_initialise.F 48 AIM_INITIALISE 
      INTEGER bi, bj
./pkg/aim_v23/aim_initialise.F 84 AIM_INITIALISE 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 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 104 AIM_LAND2AIM 
           land_groundT(i,j,k,bi,bj) = aimTld(i,j)-celsius2K
./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 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 137 AIM_LAND2AIM 
           aimSWA(i,j) = land_groundW(i,j,1,bi,bj)
./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 15 AIM_LAND2AIM 
     I               myTime, myIter, bi, bj, myThid )
./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 184 AIM_LAND2AIM 
     I                bi,bj, myTime, myIter, myThid )
./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 69 AIM_LAND2AIM 
      INTEGER myIter, bi, bj, myThid
./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 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 118 AIM_LAND_IMPL 
     I               bi, bj, myTime, myIter, myThid)
./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 18 AIM_LAND_IMPL 
     I               bi, bj, myTime, myIter, myThid)
./pkg/aim_v23/aim_land_impl.F 73 AIM_LAND_IMPL 
      INTEGER bi, bj, myIter, myThid
./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_sice2aim.F 105 AIM_SICE2AIM 
     I          bi, bj, siLo, siHi, sjLo, sjHi,
./pkg/aim_v23/aim_sice2aim.F 107 AIM_SICE2AIM 
     I          iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj),
./pkg/aim_v23/aim_sice2aim.F 108 AIM_SICE2AIM 
     I          snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj),
./pkg/aim_v23/aim_sice2aim.F 109 AIM_SICE2AIM 
     I          snowAge(siLo,sjLo,bi,bj),
./pkg/aim_v23/aim_sice2aim.F 110 AIM_SICE2AIM 
     O          siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj),
./pkg/aim_v23/aim_sice2aim.F 114 AIM_SICE2AIM 
          aimAlb(i,j) = siceAlb(i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 138 AIM_SICE2AIM 
          IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_sice2aim.F 139 AIM_SICE2AIM 
           tOceMxL(i,j,bi,bj) = aimTsoce(i,j)-celsius2K
./pkg/aim_v23/aim_sice2aim.F 140 AIM_SICE2AIM 
           sOceMxL(i,j,bi,bj) = sMxL_default
./pkg/aim_v23/aim_sice2aim.F 147 AIM_SICE2AIM 
     &                         tOceMxL(1-OLx,1-OLy,bi,bj),
./pkg/aim_v23/aim_sice2aim.F 148 AIM_SICE2AIM 
     &                         bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_sice2aim.F 150 AIM_SICE2AIM 
     &                         sOceMxL(1-OLx,1-OLy,bi,bj),
./pkg/aim_v23/aim_sice2aim.F 151 AIM_SICE2AIM 
     &                         bi, bj, 1, myIter, myThid )
./pkg/aim_v23/aim_sice2aim.F 157 AIM_SICE2AIM 
          IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_sice2aim.F 158 AIM_SICE2AIM 
           aimTsoce(i,j) = tOceMxL(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_sice2aim.F 16 AIM_SICE2AIM 
     I               myTime, myIter, bi, bj, myThid )
./pkg/aim_v23/aim_sice2aim.F 69 AIM_SICE2AIM 
      INTEGER myIter, bi, bj, myThid
./pkg/aim_v23/aim_sice2aim.F 86 AIM_SICE2AIM 
           aimTsice(i,j) = Tsrf(i,j,bi,bj)+celsius2K
./pkg/aim_v23/aim_sice2aim.F 87 AIM_SICE2AIM 
           aimSIfrc(i,j) = iceMask(i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 94 AIM_SICE2AIM 
           Tsrf (i,j,bi,bj) = aimTsice(i,j)-celsius2K
./pkg/aim_v23/aim_sice2aim.F 95 AIM_SICE2AIM 
           Tice1(i,j,bi,bj) = Tsrf (i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 96 AIM_SICE2AIM 
           Tice2(i,j,bi,bj) = Tsrf (i,j,bi,bj)
./pkg/aim_v23/aim_sice2aim.F 97 AIM_SICE2AIM 
           iceMask(i,j,bi,bj) = aimSIfrc(i,j)
./pkg/aim_v23/aim_sice_impl.F 17 AIM_SICE_IMPL 
     I               bi, bj, myTime, myIter, myThid)
./pkg/aim_v23/aim_sice_impl.F 71 AIM_SICE_IMPL 
      INTEGER bi, bj, myIter, myThid
./pkg/aim_v23/aim_sice_impl.F 95 AIM_SICE_IMPL 
     I               bi, bj, myTime, myIter, myThid)
./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 12 AIM_SURF_BC 
     I                        bi, bj, myTime, myIter, myThid )
./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 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 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 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 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 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 327 AIM_SURF_BC 
          soilw1(I2,myThid) = aim_sw10(i,j,bi,bj)
./pkg/aim_v23/aim_surf_bc.F 359 AIM_SURF_BC 
     I           myTime, myIter, bi, bj, myThid )
./pkg/aim_v23/aim_surf_bc.F 366 AIM_SURF_BC 
           aim_CO2(i,j,bi,bj)= atm_pCO2
./pkg/aim_v23/aim_surf_bc.F 372 AIM_SURF_BC 
         CALL DIAGNOSTICS_SCALE_FILL( aim_CO2(1-OLx,1-OLy,bi,bj),
./pkg/aim_v23/aim_surf_bc.F 373 AIM_SURF_BC 
     &               pCO2scl, 1, 'aim_pCO2', 1, 1, 2, bi, bj, myThid )
./pkg/aim_v23/aim_surf_bc.F 384 AIM_SURF_BC 
     I           myTime, myIter, bi, bj, myThid )
./pkg/aim_v23/aim_surf_bc.F 395 AIM_SURF_BC 
     I           myTime, myIter, bi, bj, myThid )
./pkg/aim_v23/aim_surf_bc.F 68 AIM_SURF_BC 
      INTEGER bi, bj
./pkg/aim_v23/aim_tendency_apply.F 101 AIM_TENDENCY_APPLY_U 
     &     -uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F 102 AIM_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/aim_v23/aim_tendency_apply.F 109 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 111 AIM_TENDENCY_APPLY_U 
     &     -( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 112 AIM_TENDENCY_APPLY_U 
     &       * 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 115 AIM_TENDENCY_APPLY_U 
     &                * recip_hFacW(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 117 AIM_TENDENCY_APPLY_U 
          aim_uStress(i,j,bi,bj) = uStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 120 AIM_TENDENCY_APPLY_U 
          aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 130 AIM_TENDENCY_APPLY_U 
         IF ( maskW(i,j,k-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F 131 AIM_TENDENCY_APPLY_U 
     &    .AND. maskW(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 133 AIM_TENDENCY_APPLY_U 
     &      -( (1.-maskC(i-1,j,k-1,bi,bj))*aim_drag(i-1,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 134 AIM_TENDENCY_APPLY_U 
     &        +(1.-maskC( i ,j,k-1,bi,bj))*aim_drag( i ,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 135 AIM_TENDENCY_APPLY_U 
     &       )* 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 138 AIM_TENDENCY_APPLY_U 
     &                * recip_hFacW(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 140 AIM_TENDENCY_APPLY_U 
          aim_uStress(i,j,bi,bj) = uStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 143 AIM_TENDENCY_APPLY_U 
          aim_dKE(i,j) = uStr_tmp * uVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 157 AIM_TENDENCY_APPLY_U 
           frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 158 AIM_TENDENCY_APPLY_U 
     &        -0.5 _d 0 * ( aim_dKE( i, j)*rAw( i, j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 159 AIM_TENDENCY_APPLY_U 
     &                    + aim_dKE(i+1,j)*rAw(i+1,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 167 AIM_TENDENCY_APPLY_U 
     &                         deltaTClock, bi, bj, myThid )
./pkg/aim_v23/aim_tendency_apply.F 175 AIM_TENDENCY_APPLY_U 
          aim_KEuStr(i,j,bi,bj) = aim_dKE(i,j)
./pkg/aim_v23/aim_tendency_apply.F 181 AIM_TENDENCY_APPLY_U 
          aim_KEuStr(i,j,bi,bj) = aim_KEuStr(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 188 AIM_TENDENCY_APPLY_U 
     &                         0,1,1,bi,bj,myThid)
./pkg/aim_v23/aim_tendency_apply.F 190 AIM_TENDENCY_APPLY_U 
     &                         0,1,1,bi,bj,myThid)
./pkg/aim_v23/aim_tendency_apply.F 19 AIM_TENDENCY_APPLY_U 
     I                        iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/aim_v23/aim_tendency_apply.F 206 AIM_TENDENCY_APPLY_V 
     I                        iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/aim_v23/aim_tendency_apply.F 243 AIM_TENDENCY_APPLY_V 
      INTEGER k, bi, bj
./pkg/aim_v23/aim_tendency_apply.F 271 AIM_TENDENCY_APPLY_V 
         aim_vStress(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F 272 AIM_TENDENCY_APPLY_V 
         aim_KEvStr(i,j,bi,bj)  = 0.
./pkg/aim_v23/aim_tendency_apply.F 285 AIM_TENDENCY_APPLY_V 
     &     -maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F 288 AIM_TENDENCY_APPLY_V 
     &     -vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_tendency_apply.F 289 AIM_TENDENCY_APPLY_V 
     &                       *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/aim_v23/aim_tendency_apply.F 296 AIM_TENDENCY_APPLY_V 
         IF ( maskS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 298 AIM_TENDENCY_APPLY_V 
     &     -( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 299 AIM_TENDENCY_APPLY_V 
     &       * 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 302 AIM_TENDENCY_APPLY_V 
     &                * recip_hFacS(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 304 AIM_TENDENCY_APPLY_V 
          aim_vStress(i,j,bi,bj) = vStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 307 AIM_TENDENCY_APPLY_V 
          aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 317 AIM_TENDENCY_APPLY_V 
         IF ( maskS(i,j,k-1,bi,bj) .EQ. 0.
./pkg/aim_v23/aim_tendency_apply.F 318 AIM_TENDENCY_APPLY_V 
     &    .AND. maskS(i,j,k,bi,bj) .NE. 0. ) THEN
./pkg/aim_v23/aim_tendency_apply.F 320 AIM_TENDENCY_APPLY_V 
     &     -( (1.-maskC(i,j-1,k-1,bi,bj))*aim_drag(i,j-1,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 321 AIM_TENDENCY_APPLY_V 
     &       +(1.-maskC(i, j ,k-1,bi,bj))*aim_drag(i, j ,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 322 AIM_TENDENCY_APPLY_V 
     &      )* 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 325 AIM_TENDENCY_APPLY_V 
     &                * recip_hFacS(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 327 AIM_TENDENCY_APPLY_V 
          aim_vStress(i,j,bi,bj) = vStr_tmp
./pkg/aim_v23/aim_tendency_apply.F 330 AIM_TENDENCY_APPLY_V 
          aim_dKE(i,j) = vStr_tmp * vVel(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 344 AIM_TENDENCY_APPLY_V 
           frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 345 AIM_TENDENCY_APPLY_V 
     &        -0.5 _d 0 * ( aim_dKE(i, j )*rAs(i, j, bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 346 AIM_TENDENCY_APPLY_V 
     &                    + aim_dKE(i,j+1)*rAs(i,j+1,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 354 AIM_TENDENCY_APPLY_V 
     &                         deltaTClock, bi, bj, myThid )
./pkg/aim_v23/aim_tendency_apply.F 362 AIM_TENDENCY_APPLY_V 
          aim_KEvStr(i,j,bi,bj) = aim_dKE(i,j)
./pkg/aim_v23/aim_tendency_apply.F 368 AIM_TENDENCY_APPLY_V 
          aim_KEvStr(i,j,bi,bj) = aim_KEvStr(i,j,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 375 AIM_TENDENCY_APPLY_V 
     &                         0,1,1,bi,bj,myThid)
./pkg/aim_v23/aim_tendency_apply.F 377 AIM_TENDENCY_APPLY_V 
     &                         0,1,1,bi,bj,myThid)
./pkg/aim_v23/aim_tendency_apply.F 393 AIM_TENDENCY_APPLY_T 
     I                        iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/aim_v23/aim_tendency_apply.F 425 AIM_TENDENCY_APPLY_T 
      INTEGER k, bi, bj
./pkg/aim_v23/aim_tendency_apply.F 439 AIM_TENDENCY_APPLY_T 
        gT_arr(i,j) = maskC(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 440 AIM_TENDENCY_APPLY_T 
     &              *( gT_arr(i,j) + aim_dTdt(i,j,k,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 455 AIM_TENDENCY_APPLY_S 
     I                        iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/aim_v23/aim_tendency_apply.F 487 AIM_TENDENCY_APPLY_S 
      INTEGER k, bi, bj
./pkg/aim_v23/aim_tendency_apply.F 501 AIM_TENDENCY_APPLY_S 
        gS_arr(i,j) = maskC(i,j,k,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 502 AIM_TENDENCY_APPLY_S 
     &              *( gS_arr(i,j) + aim_dSdt(i,j,k,bi,bj) )
./pkg/aim_v23/aim_tendency_apply.F 56 AIM_TENDENCY_APPLY_U 
      INTEGER k, bi, bj
./pkg/aim_v23/aim_tendency_apply.F 84 AIM_TENDENCY_APPLY_U 
         aim_uStress(i,j,bi,bj) = 0.
./pkg/aim_v23/aim_tendency_apply.F 85 AIM_TENDENCY_APPLY_U 
         aim_KEuStr(i,j,bi,bj)  = 0.
./pkg/aim_v23/aim_tendency_apply.F 98 AIM_TENDENCY_APPLY_U 
     &     -maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)/aim_dragStrato
./pkg/aim_v23/aim_write_local.F 11 AIM_WRITE_LOCAL 
     I               bi, bj, iRec, myIter, myThid )
./pkg/aim_v23/aim_write_local.F 40 AIM_WRITE_LOCAL 
      INTEGER bi, bj, iRec, myIter, myThid
./pkg/aim_v23/aim_write_local.F 61 AIM_WRITE_LOCAL 
     &      'AIM_WRITE_LOCAL (it=', myIter, ' bi,bj=', bi,bj,
./pkg/aim_v23/aim_write_local.F 94 AIM_WRITE_LOCAL 
     &                     bi, bj, iRec, myIter, myThid )
./pkg/aim_v23/aim_write_phys.F 11 AIM_WRITE_PHYS 
     I               kLev, bi, bj, iRec, myIter, myThid )
./pkg/aim_v23/aim_write_phys.F 43 AIM_WRITE_PHYS 
      INTEGER kLev, bi, bj, iRec, myIter, myThid
./pkg/aim_v23/aim_write_phys.F 65 AIM_WRITE_PHYS 
      bjLoc = bj
./pkg/aim_v23/aim_write_phys.F 72 AIM_WRITE_PHYS 
        bjLoc = bj + myByLo(ith) - 1
./pkg/aim_v23/aim_write_phys.F 81 AIM_WRITE_PHYS 
     &      'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj,
./pkg/aim_v23/aim_write_phys.F 91 AIM_WRITE_PHYS 
     &      'AIM_WRITE_PHYS (it=', myIter, ' bi,bj=', bi,bj,
./pkg/aim_v23/aim_write_tave.F 100 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(SLRtave,   aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 101 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(SHFtave,   aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 102 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(EVAPtave,  aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 103 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(PRECNVtave,aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 104 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(PRECLStave,aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 105 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(CLOUDCtave,aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 106 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(CLTOPtave, aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 107 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(CBMFtave,  aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 108 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(DRAGtave,  aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 109 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(aimV0tave, aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 110 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(aimT0tave, aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 111 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(aimQ0tave, aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 112 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(EnFxPrtave,aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 113 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(albedotave,aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 114 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(dTsurftave,aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 116 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(aimRHtave,aim_timeAve,Nr,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 201 AIM_WRITE_TAVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/aim_v23/aim_write_tave.F 203 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(USTRtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 204 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(VSTRtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 205 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(TSRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 206 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(OLRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 207 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(SSRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 208 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(SLRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 209 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(SHFtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 210 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(EVAPtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 211 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 212 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 213 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 214 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 215 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(CBMFtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 216 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(DRAGtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 217 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 218 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 219 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 220 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 221 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 222 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 223 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 224 AIM_WRITE_TAVE 
         aim_timeAve(bi,bj) = 0.
./pkg/aim_v23/aim_write_tave.F 44 AIM_WRITE_TAVE 
      INTEGER bi, bj
./pkg/aim_v23/aim_write_tave.F 59 AIM_WRITE_TAVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/aim_v23/aim_write_tave.F 61 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(USTRtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 62 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(VSTRtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 63 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(TSRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 64 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(OLRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 65 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(SSRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 66 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(SLRtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 67 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(SHFtave,   1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 68 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(EVAPtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 69 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(PRECNVtave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 70 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(PRECLStave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 71 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(CLOUDCtave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 72 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(CLTOPtave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 73 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(CBMFtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 74 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(DRAGtave,  1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 75 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimV0tave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 76 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimT0tave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 77 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimQ0tave, 1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 78 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(EnFxPrtave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 79 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(albedotave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 80 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(dTsurftave,1, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 81 AIM_WRITE_TAVE 
         CALL TIMEAVE_RESET(aimRHtave,Nr, bi, bj, myThid)
./pkg/aim_v23/aim_write_tave.F 82 AIM_WRITE_TAVE 
         aim_timeAve(bi,bj) = 0.
./pkg/aim_v23/aim_write_tave.F 93 AIM_WRITE_TAVE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/aim_v23/aim_write_tave.F 95 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(USTRtave,  aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 96 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(VSTRtave,  aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 97 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(TSRtave,   aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 98 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(OLRtave,   aim_timeAve,1,bi,bj,myThid)
./pkg/aim_v23/aim_write_tave.F 99 AIM_WRITE_TAVE 
         CALL TIMEAVE_NORMALIZE(SSRtave,   aim_timeAve,1,bi,bj,myThid)
./eesupp/src/exch_cycle_ebl.F 50 EXCH_CYCLE_EBL 
      INTEGER bi, bj
./eesupp/src/exch_cycle_ebl.F 53 EXCH_CYCLE_EBL 
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/exch_cycle_ebl.F 56 EXCH_CYCLE_EBL 
        exchangeBufLevel(1,bi,bj) = exchangeBufLevel(1,bi,bj)+1
./eesupp/src/exch_cycle_ebl.F 57 EXCH_CYCLE_EBL 
        IF ( exchangeBufLevel(1,bi,bj) .GT. NUMBER_OF_BUFFER_LEVELS )
./eesupp/src/exch_cycle_ebl.F 58 EXCH_CYCLE_EBL 
     &   exchangeBufLevel(1,bi,bj) = 1
./eesupp/src/exch_init.F 29 EXCH_INIT 
      INTEGER bi, bj
./eesupp/src/exch_init.F 32 EXCH_INIT 
      DO bj=1,nSy
./eesupp/src/exch_init.F 34 EXCH_INIT 
        exchangeBufLevel  (1,bi,bj) = 1
./eesupp/src/exch_init.F 35 EXCH_INIT 
        exchRecvXSpinCount(1,bi,bj) = 0
./eesupp/src/exch_init.F 36 EXCH_INIT 
        exchRecvXSpinMax  (1,bi,bj) = 0
./eesupp/src/exch_init.F 37 EXCH_INIT 
        exchRecvXSpinMin  (1,bi,bj) = 1000000000
./eesupp/src/exch_init.F 38 EXCH_INIT 
        exchRecvYSpinCount(1,bi,bj) = 0
./eesupp/src/exch_init.F 39 EXCH_INIT 
        exchRecvYSpinMax  (1,bi,bj) = 0
./eesupp/src/exch_init.F 40 EXCH_INIT 
        exchRecvYSpinMin  (1,bi,bj) = 1000000000
./pkg/aim_v23/phy_convmf.F 55 CONVMF 
      INTEGER  bi,bj,myThid
./pkg/aim_v23/phy_convmf.F 8 CONVMF 
     I                   kGrd,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 10 PHY_DRIVER 
     I                       bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/phy_driver.F 141 PHY_DRIVER 
     I                 bi, bj, myTime, myIter, myThid )
./pkg/aim_v23/phy_driver.F 180 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 196 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 206 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 223 PHY_DRIVER 
     I             bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 244 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 259 PHY_DRIVER 
     &                        'UPSWG   ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/phy_driver.F 272 PHY_DRIVER 
     I            kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 288 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 298 PHY_DRIVER 
     I             bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 306 PHY_DRIVER 
     I             bi, bj, myTime, myIter, myThid)
./pkg/aim_v23/phy_driver.F 315 PHY_DRIVER 
     I             bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 326 PHY_DRIVER 
     I             bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 334 PHY_DRIVER 
     I             bi, bj, myTime, myIter, myThid)
./pkg/aim_v23/phy_driver.F 352 PHY_DRIVER 
     I             bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 357 PHY_DRIVER 
     &                        'DWNLWG  ', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/phy_driver.F 370 PHY_DRIVER 
     I            kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 390 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 395 PHY_DRIVER 
     &                        'UPSWGclr', 1, 1 , 3,bi,bj, myThid )
./pkg/aim_v23/phy_driver.F 404 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 411 PHY_DRIVER 
     I            kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 431 PHY_DRIVER 
     I             kGround,bi,bj,myThid)
./pkg/aim_v23/phy_driver.F 78 PHY_DRIVER 
      INTEGER bi,bj
./pkg/aim_v23/phy_lscond.F 48 LSCOND 
      INTEGER  bi,bj,myThid
./pkg/aim_v23/phy_lscond.F 8 LSCOND 
     I                   kGrd,bi,bj,myThid)
./pkg/aim_v23/phy_radiat.F 144 SOL_OZ 
     &                        'FSOL    ', 1, 1, 3,bi,bj, myThid )
./pkg/aim_v23/phy_radiat.F 162 RADSW 
     I                  kGrd,bi,bj,myThid)
./pkg/aim_v23/phy_radiat.F 19 SOL_OZ 
     I                   bi, bj, myThid)
./pkg/aim_v23/phy_radiat.F 209 RADSW 
      INTEGER  bi, bj, myThid
./pkg/aim_v23/phy_radiat.F 492 RADSW 
     &                        'CLDCLW  ',-1, Nr, 3,bi,bj, myThid )
./pkg/aim_v23/phy_radiat.F 511 RADLW 
     I                  kGrd,bi,bj,myThid)
./pkg/aim_v23/phy_radiat.F 53 SOL_OZ 
      INTEGER  bi, bj, myThid
./pkg/aim_v23/phy_radiat.F 557 RADLW 
      INTEGER bi,bj,myThid
./pkg/aim_v23/phy_snow_precip.F 14 SNOW_PRECIP 
     I                   kGrd,bi,bj,myThid)
./pkg/aim_v23/phy_snow_precip.F 65 SNOW_PRECIP 
      INTEGER  bi,bj,myThid
./pkg/aim_v23/phy_suflux_land.F 16 SUFLUX_LAND 
     I                   bi,bj,myThid)
./pkg/aim_v23/phy_suflux_land.F 88 SUFLUX_LAND 
      INTEGER bi,bj,myThid
./pkg/aim_v23/phy_suflux_ocean.F 14 SUFLUX_OCEAN 
     I                   bi,bj,myThid)
./pkg/aim_v23/phy_suflux_ocean.F 65 SUFLUX_OCEAN 
      INTEGER bi,bj,myThid
./eesupp/src/fill_cs_corner_ag_rl.F 15 FILL_CS_CORNER_AG_RL 
     I     bi,bj, myThid)
./eesupp/src/fill_cs_corner_ag_rl.F 53 FILL_CS_CORNER_AG_RL 
      INTEGER bi,bj
./eesupp/src/fill_cs_corner_ag_rl.F 77 FILL_CS_CORNER_AG_RL 
       myTile = W2_myTileList(bi,bj)
./pkg/aim_v23/phy_suflux_post.F 158 SUFLUX_POST 
     &        i1,j1,bi,bj,myThid,J,xC(i1,j1,bi,bj),yC(i1,j1,bi,bj)
./pkg/aim_v23/phy_suflux_post.F 15 SUFLUX_POST 
     I                   bi,bj,myThid)
./pkg/aim_v23/phy_suflux_post.F 85 SUFLUX_POST 
      INTEGER bi,bj,myThid
./pkg/aim_v23/phy_suflux_prep.F 13 SUFLUX_PREP 
     I                   kGrd,bi,bj,myThid)
./pkg/aim_v23/phy_suflux_prep.F 217 SFLSET 
      SUBROUTINE SFLSET (PHI0, FOROG, bi,bj,myThid)
./pkg/aim_v23/phy_suflux_prep.F 242 SFLSET 
      INTEGER bi,bj,myThid
./pkg/aim_v23/phy_suflux_prep.F 91 SUFLUX_PREP 
      INTEGER bi,bj,myThid
./pkg/aim_v23/phy_suflux_sice.F 16 SUFLUX_SICE 
     I                   bi,bj,myThid)
./pkg/aim_v23/phy_suflux_sice.F 88 SUFLUX_SICE 
      INTEGER bi,bj,myThid
./pkg/aim_v23/phy_vdifsc.F 63 VDIFSC 
      INTEGER  bi,bj,myThid
./pkg/aim_v23/phy_vdifsc.F 8 VDIFSC 
     I                   kGrd,bi,bj,myThid)
./eesupp/src/fill_cs_corner_tr_rl.F 15 FILL_CS_CORNER_TR_RL 
     I     bi,bj, myThid)
./eesupp/src/fill_cs_corner_tr_rl.F 53 FILL_CS_CORNER_TR_RL 
      INTEGER bi,bj
./eesupp/src/fill_cs_corner_tr_rl.F 77 FILL_CS_CORNER_TR_RL 
       myTile = W2_myTileList(bi,bj)
./eesupp/src/fill_cs_corner_uv_rs.F 15 FILL_CS_CORNER_UV_RS 
     I     bi,bj, myThid)
./eesupp/src/fill_cs_corner_uv_rs.F 50 FILL_CS_CORNER_UV_RS 
      INTEGER bi,bj
./eesupp/src/fill_cs_corner_uv_rs.F 74 FILL_CS_CORNER_UV_RS 
       myTile = W2_myTileList(bi,bj)
./eesupp/src/gather_xz.F 18 GATHER_XZ 
      INTEGER iG, i, bi, bj
./eesupp/src/gather_xz.F 33 GATHER_XZ 
      DO bj=1,nSy
./eesupp/src/gather_xz.F 37 GATHER_XZ 
                  global(iG) = local(i,bi,bj)
./eesupp/src/gather_xz.F 53 GATHER_XZ 
         DO bj=1,nSy
./eesupp/src/gather_xz.F 57 GATHER_XZ 
                     global(iG) = local(i,bi,bj)
./eesupp/src/gather_xz.F 72 GATHER_XZ 
            DO bj=1,nSy
./eesupp/src/gather_xz.F 76 GATHER_XZ 
                        global(iG) = temp(i,bi,bj)
./eesupp/src/gather_yz.F 18 GATHER_YZ 
      INTEGER jG, j, bi, bj
./eesupp/src/gather_yz.F 33 GATHER_YZ 
      DO bj=1,nSy
./eesupp/src/gather_yz.F 37 GATHER_YZ 
                  global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F 53 GATHER_YZ 
         DO bj=1,nSy
./eesupp/src/gather_yz.F 57 GATHER_YZ 
                     global(jG) = local(j,bi,bj)
./eesupp/src/gather_yz.F 72 GATHER_YZ 
            DO bj=1,nSy
./eesupp/src/gather_yz.F 76 GATHER_YZ 
                        global(jG) = temp(j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F 105 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F 106 ATM_APPLY_IMPORT 
            v2ocMxL(i,j,bi,bj) = vSqocn(i,j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F 121 ATM_APPLY_IMPORT 
            atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/atm_compon_interf/atm_apply_import.F 132 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F 136 ATM_APPLY_IMPORT 
            atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/atm_compon_interf/atm_apply_import.F 137 ATM_APPLY_IMPORT 
           ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0)  THEN
./pkg/atm_compon_interf/atm_apply_import.F 13 ATM_APPLY_IMPORT 
     I               myTime, myIter, bi, bj, myThid )
./pkg/atm_compon_interf/atm_apply_import.F 140 ATM_APPLY_IMPORT 
            atmSST(i,j) = SSTocn(i,j,bi,bj)+celsius2K
./pkg/atm_compon_interf/atm_apply_import.F 54 ATM_APPLY_IMPORT 
      INTEGER myIter, bi, bj, myThid
./pkg/atm_compon_interf/atm_apply_import.F 72 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F 73 ATM_APPLY_IMPORT 
            hOceMxL(i,j,bi,bj) = ocMxlD(i,j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F 83 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F 84 ATM_APPLY_IMPORT 
            tOceMxL(i,j,bi,bj) = SSTocn(i,j,bi,bj)
./pkg/atm_compon_interf/atm_apply_import.F 94 ATM_APPLY_IMPORT 
          IF ( land_frc(i,j,bi,bj) .LT. 1. ) THEN
./pkg/atm_compon_interf/atm_apply_import.F 95 ATM_APPLY_IMPORT 
            sOceMxL(i,j,bi,bj) = SSSocn(i,j,bi,bj)
./pkg/atm_compon_interf/atm_cpl_read_pickup.F 41 ATM_CPL_READ_PICKUP 
      INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_cpl_read_pickup.F 81 ATM_CPL_READ_PICKUP 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/atm_compon_interf/atm_cpl_read_pickup.F 85 ATM_CPL_READ_PICKUP 
            EvMPrFlux (i,j,bi,bj) = EvMPrFlux (i,j,bi,bj)*rhoConstFresh
./pkg/atm_compon_interf/atm_cpl_read_pickup.F 86 ATM_CPL_READ_PICKUP 
            RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)*rhoConstFresh
./pkg/atm_compon_interf/atm_export_fld.F 53 ATM_EXPORT_FLD 
      INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_export_fld.F 56 ATM_EXPORT_FLD 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/atm_compon_interf/atm_export_fld.F 58 ATM_EXPORT_FLD 
        IF ( ABS(countTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/atm_compon_interf/atm_export_fld.F 59 ATM_EXPORT_FLD 
     &     .AND. countTime(bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_export_fld.F 60 ATM_EXPORT_FLD 
         recipAvT = 1. _d 0/countTime(bi,bj)
./pkg/atm_compon_interf/atm_export_fld.F 63 ATM_EXPORT_FLD 
           atmFld(i,j,bi,bj) = atmFld(i,j,bi,bj)*recipAvT
./pkg/atm_compon_interf/atm_export_fld.F 68 ATM_EXPORT_FLD 
     &                             bi,bj,1.-countTime(bi,bj)
./pkg/atm_compon_interf/atm_export_fld.F 83 ATM_EXPORT_FLD 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/atm_compon_interf/atm_export_fld.F 85 ATM_EXPORT_FLD 
        countTime(bi,bj) = 0.
./pkg/atm_compon_interf/atm_export_fld.F 88 ATM_EXPORT_FLD 
          atmFld(i,j,bi,bj) = 0.
./pkg/atm_compon_interf/atm_get_atmconfig.F 49 ATM_GET_ATMCONFIG 
      INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_get_atmconfig.F 52 ATM_GET_ATMCONFIG 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/atm_compon_interf/atm_get_atmconfig.F 58 ATM_GET_ATMCONFIG 
           landMask(i,j,bi,bj) = 0. _d 0
./pkg/atm_compon_interf/atm_get_atmconfig.F 66 ATM_GET_ATMCONFIG 
           landMask(i,j,bi,bj) = aim_landFr(i,j,bi,bj)
./pkg/atm_compon_interf/atm_import_ocnconfig.F 39 ATM_IMPORT_OCNCONFIG 
      INTEGER i,j,bi,bj
./pkg/atm_compon_interf/atm_import_ocnconfig.F 42 ATM_IMPORT_OCNCONFIG 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/atm_compon_interf/atm_import_ocnconfig.F 46 ATM_IMPORT_OCNCONFIG 
          ocMxlD (i,j,bi,bj) = 0.
./pkg/atm_compon_interf/atm_store_aim_fields.F 14 ATM_STORE_AIM_FIELDS 
     I                     bi, bj,
./pkg/atm_compon_interf/atm_store_aim_fields.F 53 ATM_STORE_AIM_FIELDS 
      INTEGER bi, bj
./pkg/atm_compon_interf/atm_store_aim_fields.F 69 ATM_STORE_AIM_FIELDS 
       sWSpeedTime(bi,bj) = sWSpeedTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_fields.F 72 ATM_STORE_AIM_FIELDS 
          sWSpeed(i,j,bi,bj) = sWSpeed(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_fields.F 73 ATM_STORE_AIM_FIELDS 
     &                       + aim_surfWind(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_fields.F 81 ATM_STORE_AIM_FIELDS 
       airCO2Time(bi,bj) = airCO2Time(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_fields.F 84 ATM_STORE_AIM_FIELDS 
          airCO2(i,j,bi,bj) = airCO2(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_fields.F 85 ATM_STORE_AIM_FIELDS 
     &                      + aim_CO2(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 101 ATM_STORE_AIM_WNDSTR 
     &      ( aim_drag(i,j-1,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 102 ATM_STORE_AIM_WNDSTR 
     &       *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 103 ATM_STORE_AIM_WNDSTR 
     &      + aim_drag(i, j ,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 104 ATM_STORE_AIM_WNDSTR 
     &       *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 105 ATM_STORE_AIM_WNDSTR 
     &      )* 0.5 _d 0 * vVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 106 ATM_STORE_AIM_WNDSTR 
           tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 118 ATM_STORE_AIM_WNDSTR 
          IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 120 ATM_STORE_AIM_WNDSTR 
     &      ( aim_drag(i-1,j,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 121 ATM_STORE_AIM_WNDSTR 
     &       * 0.5 _d 0 * uVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 122 ATM_STORE_AIM_WNDSTR 
           tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 130 ATM_STORE_AIM_WNDSTR 
          IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 132 ATM_STORE_AIM_WNDSTR 
     &      ( aim_drag(i,j-1,bi,bj)+aim_drag(i,j,bi,bj) )
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 133 ATM_STORE_AIM_WNDSTR 
     &       * 0.5 _d 0 * vVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 134 ATM_STORE_AIM_WNDSTR 
           tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 14 ATM_STORE_AIM_WNDSTR 
     I                     bi, bj,
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 57 ATM_STORE_AIM_WNDSTR 
      INTEGER bi, bj
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 76 ATM_STORE_AIM_WNDSTR 
       tauXTime(bi,bj) = tauXTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 77 ATM_STORE_AIM_WNDSTR 
       tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 84 ATM_STORE_AIM_WNDSTR 
          IF ( hFacW(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 86 ATM_STORE_AIM_WNDSTR 
     &      ( aim_drag(i-1,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 87 ATM_STORE_AIM_WNDSTR 
     &       *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 88 ATM_STORE_AIM_WNDSTR 
     &      + aim_drag( i ,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 89 ATM_STORE_AIM_WNDSTR 
     &       *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 90 ATM_STORE_AIM_WNDSTR 
     &      )* 0.5 _d 0 * uVel(i,j,ks,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 91 ATM_STORE_AIM_WNDSTR 
           tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_aim_wndstr.F 99 ATM_STORE_AIM_WNDSTR 
          IF ( hFacS(i,j,ks,bi,bj) .NE. 0. ) THEN
./pkg/atm_compon_interf/atm_store_dynvars.F 10 ATM_STORE_DYNVARS 
     I                     bi, bj,
./pkg/atm_compon_interf/atm_store_dynvars.F 42 ATM_STORE_DYNVARS 
      INTEGER bi, bj
./pkg/atm_compon_interf/atm_store_dynvars.F 56 ATM_STORE_DYNVARS 
       atmSLPrTime(bi,bj) = atmSLPrTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_dynvars.F 59 ATM_STORE_DYNVARS 
          atmSLPr(i,j,bi,bj) = atmSLPr(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_dynvars.F 60 ATM_STORE_DYNVARS 
     &                 + etaN(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_land.F 11 ATM_STORE_LAND 
     I                     bi, bj,
./pkg/atm_compon_interf/atm_store_land.F 49 ATM_STORE_LAND 
      INTEGER bi, bj
./pkg/atm_compon_interf/atm_store_land.F 64 ATM_STORE_LAND 
       RunOffTime(bi,bj) = RunOffTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_land.F 67 ATM_STORE_LAND 
          RunOffFlux(i,j,bi,bj) = RunOffFlux(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_land.F 68 ATM_STORE_LAND 
     &                 + land_runOff(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_land.F 75 ATM_STORE_LAND 
       ROEnFxTime(bi,bj) = ROEnFxTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_land.F 78 ATM_STORE_LAND 
          RunOffEnFx(i,j,bi,bj) = RunOffEnFx(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_land.F 79 ATM_STORE_LAND 
     &                 + land_enRnOf(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_my_data.F 43 ATM_STORE_MY_DATA 
      INTEGER bi,bj
./pkg/atm_compon_interf/atm_store_my_data.F 45 ATM_STORE_MY_DATA 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/atm_compon_interf/atm_store_my_data.F 49 ATM_STORE_MY_DATA 
        CALL ATM_STORE_DYNVARS(     bi, bj, myTime, myIter, myThid )
./pkg/atm_compon_interf/atm_store_my_data.F 50 ATM_STORE_MY_DATA 
        CALL ATM_STORE_SURFFLUX(    bi, bj, myTime, myIter, myThid )
./pkg/atm_compon_interf/atm_store_my_data.F 52 ATM_STORE_MY_DATA 
         CALL ATM_STORE_AIM_WNDSTR( bi, bj, myTime, myIter, myThid )
./pkg/atm_compon_interf/atm_store_my_data.F 55 ATM_STORE_MY_DATA 
         CALL ATM_STORE_AIM_FIELDS( bi, bj, myTime, myIter, myThid )
./pkg/atm_compon_interf/atm_store_my_data.F 58 ATM_STORE_MY_DATA 
         CALL ATM_STORE_LAND(       bi, bj, myTime, myIter, myThid )
./pkg/atm_compon_interf/atm_store_my_data.F 61 ATM_STORE_MY_DATA 
         CALL ATM_STORE_THSICE(     bi, bj, myTime, myIter, myThid )
./pkg/atm_compon_interf/atm_store_surfflux.F 100 ATM_STORE_SURFFLUX 
       tauXTime(bi,bj) = tauXTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 101 ATM_STORE_SURFFLUX 
       tauYTime(bi,bj) = tauYTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 104 ATM_STORE_SURFFLUX 
          tauX(i,j,bi,bj) = tauX(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F 105 ATM_STORE_SURFFLUX 
     &                    + fu(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 106 ATM_STORE_SURFFLUX 
          tauY(i,j,bi,bj) = tauY(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F 107 ATM_STORE_SURFFLUX 
     &                    + fv(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 10 ATM_STORE_SURFFLUX 
     I                     bi, bj,
./pkg/atm_compon_interf/atm_store_surfflux.F 42 ATM_STORE_SURFFLUX 
      INTEGER bi, bj
./pkg/atm_compon_interf/atm_store_surfflux.F 57 ATM_STORE_SURFFLUX 
       HeatFluxTime(bi,bj) = HeatFluxTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 60 ATM_STORE_SURFFLUX 
          HeatFlux(i,j,bi,bj) = HeatFlux(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F 61 ATM_STORE_SURFFLUX 
     &                        + Qnet(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 67 ATM_STORE_SURFFLUX 
       qShortWaveTime(bi,bj) = qShortWaveTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 70 ATM_STORE_SURFFLUX 
          qShortWave(i,j,bi,bj) = qShortWave(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F 71 ATM_STORE_SURFFLUX 
     &                          + Qsw(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 77 ATM_STORE_SURFFLUX 
       EvMPrTime(bi,bj) = EvMPrTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 80 ATM_STORE_SURFFLUX 
          EvMPrFlux(i,j,bi,bj) = EvMPrFlux(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F 81 ATM_STORE_SURFFLUX 
     &                         + EmPmR(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 88 ATM_STORE_SURFFLUX 
       saltFxTime(bi,bj) = saltFxTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_surfflux.F 91 ATM_STORE_SURFFLUX 
          iceSaltFlx(i,j,bi,bj) = iceSaltFlx(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_surfflux.F 92 ATM_STORE_SURFFLUX 
     &                 + saltFlux(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_thsice.F 11 ATM_STORE_THSICE 
     I                     bi, bj,
./pkg/atm_compon_interf/atm_store_thsice.F 46 ATM_STORE_THSICE 
      INTEGER bi, bj
./pkg/atm_compon_interf/atm_store_thsice.F 64 ATM_STORE_THSICE 
       seaIceTime(bi,bj) = cplTimeFraction
./pkg/atm_compon_interf/atm_store_thsice.F 68 ATM_STORE_THSICE 
          seaIceMass(i,j,bi,bj) =
./pkg/atm_compon_interf/atm_store_thsice.F 69 ATM_STORE_THSICE 
     &                   ( snowHeight(i,j,bi,bj)*rhos
./pkg/atm_compon_interf/atm_store_thsice.F 70 ATM_STORE_THSICE 
     &                    + iceHeight(i,j,bi,bj)*rhoi
./pkg/atm_compon_interf/atm_store_thsice.F 71 ATM_STORE_THSICE 
     &                   )*iceMask(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/atm_store_thsice.F 79 ATM_STORE_THSICE 
       fracIceTime(bi,bj) = fracIceTime(bi,bj) + cplTimeFraction
./pkg/atm_compon_interf/atm_store_thsice.F 82 ATM_STORE_THSICE 
          fracIce(i,j,bi,bj) = fracIce(i,j,bi,bj)
./pkg/atm_compon_interf/atm_store_thsice.F 83 ATM_STORE_THSICE 
     &                       + iceMask(i,j,bi,bj)*cplTimeFraction
./pkg/atm_compon_interf/cpl_exch_configs.F 100 CPL_EXCH_CONFIGS 
     &    .OR. ( landMask_loc(i,j,bi,bj) .EQ. atm_landOnly
./pkg/atm_compon_interf/cpl_exch_configs.F 101 CPL_EXCH_CONFIGS 
     &           .AND. ocMxlD(i,j,bi,bj) .NE. mxlD_noWater ) ) THEN
./pkg/atm_compon_interf/cpl_exch_configs.F 105 CPL_EXCH_CONFIGS 
     &                              ',bi=', bi, ',bj=', bj, ')'
./pkg/atm_compon_interf/cpl_exch_configs.F 108 CPL_EXCH_CONFIGS 
     &     'Land (atmosphere) ==', landMask_loc(i,j,bi,bj)
./pkg/atm_compon_interf/cpl_exch_configs.F 111 CPL_EXCH_CONFIGS 
     &     'Mxl-Depth (ocean) ==', ocMxlD(i,j,bi,bj)
./pkg/atm_compon_interf/cpl_exch_configs.F 48 CPL_EXCH_CONFIGS 
      INTEGER i, j, bi, bj
./pkg/atm_compon_interf/cpl_exch_configs.F 94 CPL_EXCH_CONFIGS 
      DO bj=1,nSy
./pkg/atm_compon_interf/cpl_exch_configs.F 98 CPL_EXCH_CONFIGS 
          IF ( ( landMask_loc(i,j,bi,bj) .EQ. atm_waterOnly
./pkg/atm_compon_interf/cpl_exch_configs.F 99 CPL_EXCH_CONFIGS 
     &           .AND. ocMxlD(i,j,bi,bj) .EQ. mxlD_noWater )
./pkg/atm_compon_interf/cpl_ini_vars.F 45 CPL_INI_VARS 
      INTEGER I,J,bi,bj
./pkg/atm_compon_interf/cpl_ini_vars.F 47 CPL_INI_VARS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/atm_compon_interf/cpl_ini_vars.F 52 CPL_INI_VARS 
          atmSLPr(   I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 53 CPL_INI_VARS 
          HeatFlux(  I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 54 CPL_INI_VARS 
          qShortWave(I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 60 CPL_INI_VARS 
          tauX(      I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 61 CPL_INI_VARS 
          tauY(      I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 62 CPL_INI_VARS 
          EvMPrFlux( I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 63 CPL_INI_VARS 
          RunOffFlux(I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 64 CPL_INI_VARS 
          RunOffEnFx(I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 65 CPL_INI_VARS 
          iceSaltFlx(I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 66 CPL_INI_VARS 
          seaIceMass(I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 67 CPL_INI_VARS 
          airCO2    (I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 68 CPL_INI_VARS 
          sWSpeed   (I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 69 CPL_INI_VARS 
          fracIce   (I,J,bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 72 CPL_INI_VARS 
          SSTocn   (I,J,bi,bj)  = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 73 CPL_INI_VARS 
          SSSocn   (I,J,bi,bj)  = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 74 CPL_INI_VARS 
          vSqocn   (I,J,bi,bj)  = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 75 CPL_INI_VARS 
          flxCO2ocn(I,J,bi,bj)  = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 78 CPL_INI_VARS 
        atmSLPrTime(bi,bj)    = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 79 CPL_INI_VARS 
        HeatFluxTime(bi,bj)   = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 80 CPL_INI_VARS 
        qShortwaveTime(bi,bj) = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 86 CPL_INI_VARS 
        tauXTime(bi,bj)       = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 87 CPL_INI_VARS 
        tauYTime(bi,bj)       = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 88 CPL_INI_VARS 
        EvMPrTime(bi,bj)      = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 89 CPL_INI_VARS 
        RunOffTime(bi,bj)     = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 90 CPL_INI_VARS 
        ROEnFxTime(bi,bj)     = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 91 CPL_INI_VARS 
        saltFxTime(bi,bj)     = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 92 CPL_INI_VARS 
        seaIceTime(bi,bj)     = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 93 CPL_INI_VARS 
        airCO2Time(bi,bj)     = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 94 CPL_INI_VARS 
        sWSpeedTime(bi,bj)    = 0.
./pkg/atm_compon_interf/cpl_ini_vars.F 95 CPL_INI_VARS 
        fracIceTime(bi,bj)    = 0.
./pkg/atm_compon_interf/cpl_register.F 49 CPL_REGISTER 
      INTEGER bi, bj
./pkg/atm_compon_interf/cpl_register.F 58 CPL_REGISTER 
      DO bj=1,nSy
./pkg/atm_compon_interf/cpl_register.F 61 CPL_REGISTER 
        jG0 = myYGlobalLo+(bj-1)*sNy
./pkg/atm_compon_interf/cpl_register.F 65 CPL_REGISTER 
          tN = W2_myTileList(bi,bj)
./pkg/atm_compon_interf/cpl_register.F 71 CPL_REGISTER 
        iReg(2,j) = bj
./eesupp/src/global_sum_singlecpu.F 63 GLOBAL_SUM_SINGLECPU_RL 
      INTEGER bi, bj
./eesupp/src/global_sum_singlecpu.F 88 GLOBAL_SUM_SINGLECPU_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/global_sum_singlecpu.F 92 GLOBAL_SUM_SINGLECPU_RL 
           sharedLocBuf_r8(i,j,bi,bj) = phiLocal(i,j,bi,bj)
./eesupp/src/global_sum_tile.F 111 GLOBAL_SUM_TILE_RL 
         DO bj=1,nSy
./eesupp/src/global_sum_tile.F 114 GLOBAL_SUM_TILE_RL 
            bjG = (mpi_myYGlobalLo(np)-1)/sNy+bj
./eesupp/src/global_sum_tile.F 115 GLOBAL_SUM_TILE_RL 
            globalBuf(biG,bjG) = shareBufGSR8(bi,bj)
./eesupp/src/global_sum_tile.F 130 GLOBAL_SUM_TILE_RL 
          DO bj=1,nSy
./eesupp/src/global_sum_tile.F 133 GLOBAL_SUM_TILE_RL 
             bjG = (mpi_myYGlobalLo(np)-1)/sNy+bj
./eesupp/src/global_sum_tile.F 134 GLOBAL_SUM_TILE_RL 
             globalBuf(biG,bjG) = localBuf(bi,bj)
./eesupp/src/global_sum_tile.F 166 GLOBAL_SUM_TILE_RL 
        DO bj = 1,nSy
./eesupp/src/global_sum_tile.F 168 GLOBAL_SUM_TILE_RL 
          sumMyPr = sumMyPr + shareBufGSR8(bi,bj)
./eesupp/src/global_sum_tile.F 55 GLOBAL_SUM_TILE_RL 
      INTEGER bi,bj
./eesupp/src/global_sum_tile.F 74 GLOBAL_SUM_TILE_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/global_sum_tile.F 76 GLOBAL_SUM_TILE_RL 
         shareBufGSR8(bi,bj) = phiTile(bi,bj)
./eesupp/src/global_vec_sum.F 127 GLOBAL_VEC_SUM_R8 
      INTEGER i, bi,bj
./eesupp/src/global_vec_sum.F 140 GLOBAL_VEC_SUM_R8 
      DO bj = 1,nSy
./eesupp/src/global_vec_sum.F 143 GLOBAL_VEC_SUM_R8 
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj )
./eesupp/src/global_vec_sum.F 209 GLOBAL_VEC_SUM_INT 
      INTEGER i, bi,bj
./eesupp/src/global_vec_sum.F 222 GLOBAL_VEC_SUM_INT 
      DO bj = 1,nSy
./eesupp/src/global_vec_sum.F 225 GLOBAL_VEC_SUM_INT 
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj )
./eesupp/src/global_vec_sum.F 45 GLOBAL_VEC_SUM_R4 
      INTEGER i, bi,bj
./eesupp/src/global_vec_sum.F 58 GLOBAL_VEC_SUM_R4 
      DO bj = 1,nSy
./eesupp/src/global_vec_sum.F 61 GLOBAL_VEC_SUM_R4 
            tmp1(i) = tmp1(i) + sumPhi( i, bi,bj )
./pkg/atm_phys/atm_phys_driver.F 138 ATM_PHYS_DRIVER 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/atm_phys/atm_phys_driver.F 141 ATM_PHYS_DRIVER 
      lat2d(:,:) = yC(1:sNx,1:sNy,bi,bj)*deg2rad
./pkg/atm_phys/atm_phys_driver.F 144 ATM_PHYS_DRIVER 
      t_surf(:,:) = atmPhys_SST(1:sNx,1:sNy,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 153 ATM_PHYS_DRIVER 
     I           myTime, myIter, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 160 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 170 ATM_PHYS_DRIVER 
      ocean_qflux(:,:) = atmPhys_Qflx(1:sNx,1:sNy,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 172 ATM_PHYS_DRIVER 
      EmPmR(:,:,bi,bj) = 0.
./pkg/atm_phys/atm_phys_driver.F 181 ATM_PHYS_DRIVER 
     &                               *rStarFacC(1:sNx,1:sNy,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 186 ATM_PHYS_DRIVER 
     &                               *rStarFacC(1:sNx,1:sNy,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 208 ATM_PHYS_DRIVER 
     &                   + totPhiHyd(1:sNx,1:sNy,kc,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 211 ATM_PHYS_DRIVER 
        t3d(:,:,k) = theta(1:sNx,1:sNy,kc,bi,bj)*conv_theta2T
./pkg/atm_phys/atm_phys_driver.F 212 ATM_PHYS_DRIVER 
        q3d(:,:,k) = MAX( salt(1:sNx,1:sNy,kc,bi,bj), 0. _d 0 )
./pkg/atm_phys/atm_phys_driver.F 213 ATM_PHYS_DRIVER 
        u3d(:,:,k) = ( uVel(1:sNx,  1:sNy,kc,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 214 ATM_PHYS_DRIVER 
     &               + uVel(2:sNx+1,1:sNy,kc,bi,bj) )*0.5 _d 0
./pkg/atm_phys/atm_phys_driver.F 215 ATM_PHYS_DRIVER 
        v3d(:,:,k) = ( vVel(1:sNx,1:sNy,  kc,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 216 ATM_PHYS_DRIVER 
     &               + vVel(1:sNx,2:sNy+1,kc,bi,bj) )*0.5 _d 0
./pkg/atm_phys/atm_phys_driver.F 219 ATM_PHYS_DRIVER 
          t3d(:,:,k) = t3d(:,:,k)*pStarFacK(1:sNx,1:sNy,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 237 ATM_PHYS_DRIVER 
     &                 + ( totPhiHyd(1:sNx,1:sNy,kp,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 238 ATM_PHYS_DRIVER 
     &                    +totPhiHyd(1:sNx,1:sNy,kc,bi,bj) )*0.5
./pkg/atm_phys/atm_phys_driver.F 259 ATM_PHYS_DRIVER 
     I                   bi,bj,myIter,myThid )
./pkg/atm_phys/atm_phys_driver.F 268 ATM_PHYS_DRIVER 
        EmPmR(1:sNx,1:sNy,bi,bj) = -rain2d(:,:)
./pkg/atm_phys/atm_phys_driver.F 276 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 278 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 280 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 282 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 284 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 286 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 288 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 290 ATM_PHYS_DRIVER 
     &                         -1,Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 292 ATM_PHYS_DRIVER 
     &                         -1,Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 313 ATM_PHYS_DRIVER 
      EmPmR(1:sNx,1:sNy,bi,bj) = EmPmR(1:sNx,1:sNy,bi,bj) - rain2d(:,:)
./pkg/atm_phys/atm_phys_driver.F 321 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 325 ATM_PHYS_DRIVER 
     &                         -1, Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 444 ATM_PHYS_DRIVER 
         atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k)
./pkg/atm_phys/atm_phys_driver.F 445 ATM_PHYS_DRIVER 
     &                   * conv_T2theta/pStarFacK(1:sNx,1:sNy,bi,bj)
./pkg/atm_phys/atm_phys_driver.F 450 ATM_PHYS_DRIVER 
         atmPhys_dT(1:sNx,1:sNy,kc,bi,bj) = tdt3d(:,:,k)
./pkg/atm_phys/atm_phys_driver.F 453 ATM_PHYS_DRIVER 
        atmPhys_dQ(1:sNx,1:sNy,kc,bi,bj)  = qdt3d(:,:,k)
./pkg/atm_phys/atm_phys_driver.F 454 ATM_PHYS_DRIVER 
        atmPhys_dU (1:sNx,1:sNy,kc,bi,bj) = udt3d(:,:,k)
./pkg/atm_phys/atm_phys_driver.F 455 ATM_PHYS_DRIVER 
        atmPhys_dV (1:sNx,1:sNy,kc,bi,bj) = vdt3d(:,:,k)
./pkg/atm_phys/atm_phys_driver.F 460 ATM_PHYS_DRIVER 
        atmPhys_SST(1:sNx,1:sNy,bi,bj) = t_surf(:,:)
./pkg/atm_phys/atm_phys_driver.F 463 ATM_PHYS_DRIVER 
      EmPmR(1:sNx,1:sNy,bi,bj) = EmPmR(1:sNx,1:sNy,bi,bj) + flux_q(:,:)
./pkg/atm_phys/atm_phys_driver.F 464 ATM_PHYS_DRIVER 
      Qnet(1:sNx,1:sNy,bi,bj) = flux_t(:,:) + flux_r(:,:)
./pkg/atm_phys/atm_phys_driver.F 467 ATM_PHYS_DRIVER 
      Qsw (1:sNx,1:sNy,bi,bj) = -s_sw_dwn(:,:)
./pkg/atm_phys/atm_phys_driver.F 470 ATM_PHYS_DRIVER 
      taux(1:sNx,1:sNy,bi,bj) = -flux_u
./pkg/atm_phys/atm_phys_driver.F 471 ATM_PHYS_DRIVER 
      tauy(1:sNx,1:sNy,bi,bj) = -flux_v
./pkg/atm_phys/atm_phys_driver.F 477 ATM_PHYS_DRIVER 
     &                          0, Nr, 1, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 479 ATM_PHYS_DRIVER 
     &                          0, Nr, 1, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 481 ATM_PHYS_DRIVER 
     &                          0, Nr, 1, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 483 ATM_PHYS_DRIVER 
     &                          0, Nr, 1, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 485 ATM_PHYS_DRIVER 
     &                          -1, Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 487 ATM_PHYS_DRIVER 
     &                          -1, Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 489 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 491 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 493 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 495 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 497 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 499 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 501 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 503 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 505 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 507 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 509 ATM_PHYS_DRIVER 
     &                          0, 1, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 50 ATM_PHYS_DRIVER 
      INTEGER bi, bj
./pkg/atm_phys/atm_phys_driver.F 511 ATM_PHYS_DRIVER 
     &                          -1, Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 513 ATM_PHYS_DRIVER 
     &                          -1, Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 515 ATM_PHYS_DRIVER 
     &                          -1, Nr, 3, bi, bj, myThid )
./pkg/atm_phys/atm_phys_driver.F 530 ATM_PHYS_DRIVER 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/atm_phys/atm_phys_driver.F 534 ATM_PHYS_DRIVER 
            fu(i,j,bi,bj) = halfRL
./pkg/atm_phys/atm_phys_driver.F 535 ATM_PHYS_DRIVER 
     &                    *( taux(i-1,j,bi,bj) + taux(i,j,bi,bj) )
./pkg/atm_phys/atm_phys_driver.F 536 ATM_PHYS_DRIVER 
            fv(i,j,bi,bj) = halfRL
./pkg/atm_phys/atm_phys_driver.F 537 ATM_PHYS_DRIVER 
     &                    *( tauy(i,j-1,bi,bj) + tauy(i,j,bi,bj) )
./pkg/atm_phys/atm_phys_init_fixed.F 121 ATM_PHYS_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/atm_phys/atm_phys_init_fixed.F 125 ATM_PHYS_INIT_FIXED 
            atmPhys_Qflx(i,j,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_fixed.F 45 ATM_PHYS_INIT_FIXED 
      INTEGER i,j,bi,bj
./pkg/atm_phys/atm_phys_init_varia.F 34 ATM_PHYS_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/atm_phys/atm_phys_init_varia.F 36 ATM_PHYS_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/atm_phys/atm_phys_init_varia.F 44 ATM_PHYS_INIT_VARIA 
           atmPhys_dT(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F 45 ATM_PHYS_INIT_VARIA 
           atmPhys_dQ(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F 46 ATM_PHYS_INIT_VARIA 
           atmPhys_dU(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F 47 ATM_PHYS_INIT_VARIA 
           atmPhys_dV(i,j,k,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_init_varia.F 55 ATM_PHYS_INIT_VARIA 
          atmPhys_SST(i,j,bi,bj) = 0. _d 0
./pkg/atm_phys/atm_phys_tendency_apply.F 105 ATM_PHYS_TENDENCY_APPLY_V 
     I                    iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/atm_phys/atm_phys_tendency_apply.F 134 ATM_PHYS_TENDENCY_APPLY_V 
      INTEGER k, bi, bj
./pkg/atm_phys/atm_phys_tendency_apply.F 150 ATM_PHYS_TENDENCY_APPLY_V 
     &     + maskS(i,j,k,bi,bj)*( atmPhys_dV(i,j-1,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 151 ATM_PHYS_TENDENCY_APPLY_V 
     &                           +atmPhys_dV(i, j ,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 160 ATM_PHYS_TENDENCY_APPLY_V 
     &     - maskS(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F 162 ATM_PHYS_TENDENCY_APPLY_V 
     &     - vVel(i,j,k,bi,bj)*vVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F 163 ATM_PHYS_TENDENCY_APPLY_V 
     &                        *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/atm_phys/atm_phys_tendency_apply.F 170 ATM_PHYS_TENDENCY_APPLY_V 
           frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 171 ATM_PHYS_TENDENCY_APPLY_V 
     &        -0.5 _d 0 * ( damp_dKE( i, j)*rAs(i, j ,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 172 ATM_PHYS_TENDENCY_APPLY_V 
     &                    + damp_dKE(i+1,j)*rAs(i,j+1,bi,bj) )
./pkg/atm_phys/atm_phys_tendency_apply.F 191 ATM_PHYS_TENDENCY_APPLY_T 
     I                    iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/atm_phys/atm_phys_tendency_apply.F 19 ATM_PHYS_TENDENCY_APPLY_U 
     I                    iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/atm_phys/atm_phys_tendency_apply.F 218 ATM_PHYS_TENDENCY_APPLY_T 
      INTEGER k, bi, bj
./pkg/atm_phys/atm_phys_tendency_apply.F 231 ATM_PHYS_TENDENCY_APPLY_T 
     &     + maskC(i,j,k,bi,bj) * atmPhys_dT(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 246 ATM_PHYS_TENDENCY_APPLY_S 
     I                    iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/atm_phys/atm_phys_tendency_apply.F 273 ATM_PHYS_TENDENCY_APPLY_S 
      INTEGER k, bi, bj
./pkg/atm_phys/atm_phys_tendency_apply.F 286 ATM_PHYS_TENDENCY_APPLY_S 
     &     + maskC(i,j,k,bi,bj) * atmPhys_dQ(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 48 ATM_PHYS_TENDENCY_APPLY_U 
      INTEGER k, bi, bj
./pkg/atm_phys/atm_phys_tendency_apply.F 64 ATM_PHYS_TENDENCY_APPLY_U 
     &     + maskW(i,j,k,bi,bj)*( atmPhys_dU(i-1,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 65 ATM_PHYS_TENDENCY_APPLY_U 
     &                           +atmPhys_dU( i ,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 74 ATM_PHYS_TENDENCY_APPLY_U 
     &     - maskW(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F 76 ATM_PHYS_TENDENCY_APPLY_U 
     &     - uVel(i,j,k,bi,bj)*uVel(i,j,k,bi,bj)*atmPhys_dampUVfac(k)
./pkg/atm_phys/atm_phys_tendency_apply.F 77 ATM_PHYS_TENDENCY_APPLY_U 
     &                       *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass
./pkg/atm_phys/atm_phys_tendency_apply.F 84 ATM_PHYS_TENDENCY_APPLY_U 
           frictionHeating(i,j,k,bi,bj) = frictionHeating(i,j,k,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 85 ATM_PHYS_TENDENCY_APPLY_U 
     &        -0.5 _d 0 * ( damp_dKE( i, j)*rAw( i, j,bi,bj)
./pkg/atm_phys/atm_phys_tendency_apply.F 86 ATM_PHYS_TENDENCY_APPLY_U 
     &                    + damp_dKE(i+1,j)*rAw(i+1,j,bi,bj) )
./pkg/autodiff/active_file_control.F 124 ACTIVE_READ_3D_RL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 129 ACTIVE_READ_3D_RL 
                active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 156 ACTIVE_READ_3D_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 161 ACTIVE_READ_3D_RL 
              active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 162 ACTIVE_READ_3D_RL 
     &                                   + active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 178 ACTIVE_READ_3D_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 183 ACTIVE_READ_3D_RL 
              active_var(i,j,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control.F 275 ACTIVE_READ_3D_RS 
      INTEGER bi,bj
./pkg/autodiff/active_file_control.F 306 ACTIVE_READ_3D_RS 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 311 ACTIVE_READ_3D_RS 
                active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 338 ACTIVE_READ_3D_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 343 ACTIVE_READ_3D_RS 
              active_data_t(i,j,k,bi,bj) = active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 344 ACTIVE_READ_3D_RS 
     &                                   + active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 360 ACTIVE_READ_3D_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 365 ACTIVE_READ_3D_RS 
              active_var(i,j,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control.F 445 ACTIVE_WRITE_3D_RL 
      INTEGER  bi,bj
./pkg/autodiff/active_file_control.F 473 ACTIVE_WRITE_3D_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 478 ACTIVE_WRITE_3D_RL 
              active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 479 ACTIVE_WRITE_3D_RL 
     &                                + active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 480 ACTIVE_WRITE_3D_RL 
              active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 564 ACTIVE_WRITE_3D_RS 
      INTEGER  bi,bj
./pkg/autodiff/active_file_control.F 592 ACTIVE_WRITE_3D_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control.F 597 ACTIVE_WRITE_3D_RS 
              active_var(i,j,k,bi,bj) = active_var(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 598 ACTIVE_WRITE_3D_RS 
     &                                + active_data_t(i,j,k,bi,bj)
./pkg/autodiff/active_file_control.F 599 ACTIVE_WRITE_3D_RS 
              active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 93 ACTIVE_READ_3D_RL 
      INTEGER bi,bj
./pkg/autodiff/active_file_control_slice.F 1020 ACTIVE_WRITE_YZ_RL 
      INTEGER  bi,bj
./pkg/autodiff/active_file_control_slice.F 1048 ACTIVE_WRITE_YZ_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 1052 ACTIVE_WRITE_YZ_RL 
              active_var(j,k,bi,bj) = active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 1053 ACTIVE_WRITE_YZ_RL 
     &                              + active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 1054 ACTIVE_WRITE_YZ_RL 
              active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 1137 ACTIVE_WRITE_YZ_RS 
      INTEGER  bi,bj
./pkg/autodiff/active_file_control_slice.F 1165 ACTIVE_WRITE_YZ_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 1169 ACTIVE_WRITE_YZ_RS 
              active_var(j,k,bi,bj) = active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 1170 ACTIVE_WRITE_YZ_RS 
     &                              + active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 1171 ACTIVE_WRITE_YZ_RS 
              active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 126 ACTIVE_READ_XZ_RL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 130 ACTIVE_READ_XZ_RL 
                active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 156 ACTIVE_READ_XZ_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 160 ACTIVE_READ_XZ_RL 
              active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 161 ACTIVE_READ_XZ_RL 
     &                                 + active_var(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 176 ACTIVE_READ_XZ_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 180 ACTIVE_READ_XZ_RL 
              active_var(i,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control_slice.F 271 ACTIVE_READ_XZ_RS 
      INTEGER bi,bj
./pkg/autodiff/active_file_control_slice.F 302 ACTIVE_READ_XZ_RS 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 306 ACTIVE_READ_XZ_RS 
                active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 332 ACTIVE_READ_XZ_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 336 ACTIVE_READ_XZ_RS 
              active_data_t(i,k,bi,bj) = active_data_t(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 337 ACTIVE_READ_XZ_RS 
     &                                 + active_var(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 352 ACTIVE_READ_XZ_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 356 ACTIVE_READ_XZ_RS 
              active_var(i,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control_slice.F 446 ACTIVE_READ_YZ_RL 
      INTEGER bi,bj
./pkg/autodiff/active_file_control_slice.F 477 ACTIVE_READ_YZ_RL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 481 ACTIVE_READ_YZ_RL 
                active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 507 ACTIVE_READ_YZ_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 511 ACTIVE_READ_YZ_RL 
              active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 512 ACTIVE_READ_YZ_RL 
     &                                 + active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 527 ACTIVE_READ_YZ_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 531 ACTIVE_READ_YZ_RL 
              active_var(j,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control_slice.F 622 ACTIVE_READ_YZ_RS 
      INTEGER bi,bj
./pkg/autodiff/active_file_control_slice.F 653 ACTIVE_READ_YZ_RS 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 657 ACTIVE_READ_YZ_RS 
                active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 683 ACTIVE_READ_YZ_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 687 ACTIVE_READ_YZ_RS 
              active_data_t(j,k,bi,bj) = active_data_t(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 688 ACTIVE_READ_YZ_RS 
     &                                 + active_var(j,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 703 ACTIVE_READ_YZ_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 707 ACTIVE_READ_YZ_RS 
              active_var(j,k,bi,bj) = 0 _d 0
./pkg/autodiff/active_file_control_slice.F 786 ACTIVE_WRITE_XZ_RL 
      INTEGER  bi,bj
./pkg/autodiff/active_file_control_slice.F 814 ACTIVE_WRITE_XZ_RL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 818 ACTIVE_WRITE_XZ_RL 
              active_var(i,k,bi,bj) = active_var(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 819 ACTIVE_WRITE_XZ_RL 
     &                              + active_data_t(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 820 ACTIVE_WRITE_XZ_RL 
              active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 903 ACTIVE_WRITE_XZ_RS 
      INTEGER  bi,bj
./pkg/autodiff/active_file_control_slice.F 931 ACTIVE_WRITE_XZ_RS 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/active_file_control_slice.F 935 ACTIVE_WRITE_XZ_RS 
              active_var(i,k,bi,bj) = active_var(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 936 ACTIVE_WRITE_XZ_RS 
     &                              + active_data_t(i,k,bi,bj)
./pkg/autodiff/active_file_control_slice.F 937 ACTIVE_WRITE_XZ_RS 
              active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 95 ACTIVE_READ_XZ_RL 
      INTEGER bi,bj
./eesupp/src/ini_communication_patterns.F 102 INI_COMMUNICATION_PATTERNS 
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 108 INI_COMMUNICATION_PATTERNS 
        theBj = bj
./eesupp/src/ini_communication_patterns.F 110 INI_COMMUNICATION_PATTERNS 
        tileNo(bi,bj) =
./eesupp/src/ini_communication_patterns.F 127 INI_COMMUNICATION_PATTERNS 
        theBj = bj
./eesupp/src/ini_communication_patterns.F 129 INI_COMMUNICATION_PATTERNS 
        tileNoW (bi,bj) =
./eesupp/src/ini_communication_patterns.F 135 INI_COMMUNICATION_PATTERNS 
        tileNoW (bi,bj) = NULL_TILE
./eesupp/src/ini_communication_patterns.F 138 INI_COMMUNICATION_PATTERNS 
        tilePidW(bi,bj) = procW
./eesupp/src/ini_communication_patterns.F 139 INI_COMMUNICATION_PATTERNS 
        tileBiW (bi,bj) = biW
./eesupp/src/ini_communication_patterns.F 140 INI_COMMUNICATION_PATTERNS 
        tileBjW (bi,bj) = bj
./eesupp/src/ini_communication_patterns.F 155 INI_COMMUNICATION_PATTERNS 
        theBj = bj
./eesupp/src/ini_communication_patterns.F 156 INI_COMMUNICATION_PATTERNS 
        tileNoE(bi,bj) =
./eesupp/src/ini_communication_patterns.F 162 INI_COMMUNICATION_PATTERNS 
        tileNoE (bi,bj) = NULL_TILE
./eesupp/src/ini_communication_patterns.F 165 INI_COMMUNICATION_PATTERNS 
        tilePidE(bi,bj) = procE
./eesupp/src/ini_communication_patterns.F 166 INI_COMMUNICATION_PATTERNS 
        tileBiE (bi,bj) = biE
./eesupp/src/ini_communication_patterns.F 167 INI_COMMUNICATION_PATTERNS 
        tileBjE (bi,bj) = bj
./eesupp/src/ini_communication_patterns.F 169 INI_COMMUNICATION_PATTERNS 
        bjN   = bj+1
./eesupp/src/ini_communication_patterns.F 183 INI_COMMUNICATION_PATTERNS 
        tileNoN(bi,bj) =
./eesupp/src/ini_communication_patterns.F 187 INI_COMMUNICATION_PATTERNS 
        tilePidN(bi,bj) = procN
./eesupp/src/ini_communication_patterns.F 188 INI_COMMUNICATION_PATTERNS 
         tileBiN(bi,bj) = bi
./eesupp/src/ini_communication_patterns.F 189 INI_COMMUNICATION_PATTERNS 
         tileBjN(bi,bj) = bjN
./eesupp/src/ini_communication_patterns.F 191 INI_COMMUNICATION_PATTERNS 
        bjS   = bj-1
./eesupp/src/ini_communication_patterns.F 205 INI_COMMUNICATION_PATTERNS 
        tileNoS(bi,bj) =
./eesupp/src/ini_communication_patterns.F 209 INI_COMMUNICATION_PATTERNS 
        tilePidS(bi,bj) = procS
./eesupp/src/ini_communication_patterns.F 210 INI_COMMUNICATION_PATTERNS 
         tileBiS(bi,bj) = bi
./eesupp/src/ini_communication_patterns.F 211 INI_COMMUNICATION_PATTERNS 
         tileBjS(bi,bj) = bjS
./eesupp/src/ini_communication_patterns.F 230 INI_COMMUNICATION_PATTERNS 
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 234 INI_COMMUNICATION_PATTERNS 
        theTag = TagW0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 235 INI_COMMUNICATION_PATTERNS 
        tileTagSendW(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 237 INI_COMMUNICATION_PATTERNS 
        theTag = TagE0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 238 INI_COMMUNICATION_PATTERNS 
        tileTagSendE(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 240 INI_COMMUNICATION_PATTERNS 
        theTag = TagN0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 241 INI_COMMUNICATION_PATTERNS 
        tileTagSendN(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 243 INI_COMMUNICATION_PATTERNS 
        theTag = TagS0*totalTileCount+tileNo(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 244 INI_COMMUNICATION_PATTERNS 
        tileTagSendS(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 247 INI_COMMUNICATION_PATTERNS 
        theTag = TagW0*totalTileCount+tileNoE(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 248 INI_COMMUNICATION_PATTERNS 
        tileTagRecvE(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 250 INI_COMMUNICATION_PATTERNS 
        theTag = TagE0*totalTileCount+tileNoW(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 251 INI_COMMUNICATION_PATTERNS 
        tileTagRecvW(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 253 INI_COMMUNICATION_PATTERNS 
        theTag = TagS0*totalTileCount+tileNoN(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 254 INI_COMMUNICATION_PATTERNS 
        tileTagRecvN(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 256 INI_COMMUNICATION_PATTERNS 
        theTag = TagN0*totalTileCount+tileNoS(bi,bj)-1
./eesupp/src/ini_communication_patterns.F 257 INI_COMMUNICATION_PATTERNS 
        tileTagRecvS(bi,bj) = theTag
./eesupp/src/ini_communication_patterns.F 268 INI_COMMUNICATION_PATTERNS 
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 271 INI_COMMUNICATION_PATTERNS 
       IF ( tileNoW(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 272 INI_COMMUNICATION_PATTERNS 
        tileCommModeW(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 274 INI_COMMUNICATION_PATTERNS 
        IF ( myPid .EQ. tilePidW(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 275 INI_COMMUNICATION_PATTERNS 
         tileCommModeW(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 277 INI_COMMUNICATION_PATTERNS 
         tileCommModeW(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 281 INI_COMMUNICATION_PATTERNS 
       IF ( tileNoE(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 282 INI_COMMUNICATION_PATTERNS 
        tileCommModeE(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 284 INI_COMMUNICATION_PATTERNS 
        IF ( myPid .EQ. tilePidE(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 285 INI_COMMUNICATION_PATTERNS 
         tileCommModeE(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 287 INI_COMMUNICATION_PATTERNS 
         tileCommModeE(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 291 INI_COMMUNICATION_PATTERNS 
       IF ( tileNoS(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 292 INI_COMMUNICATION_PATTERNS 
        tileCommModeS(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 294 INI_COMMUNICATION_PATTERNS 
        IF ( myPid .EQ. tilePidS(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 295 INI_COMMUNICATION_PATTERNS 
         tileCommModeS(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 297 INI_COMMUNICATION_PATTERNS 
         tileCommModeS(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 301 INI_COMMUNICATION_PATTERNS 
       IF ( tileNoN(bi,bj) .EQ. NULL_TILE ) THEN
./eesupp/src/ini_communication_patterns.F 302 INI_COMMUNICATION_PATTERNS 
        tileCommModeN(bi,bj) = COMM_NONE
./eesupp/src/ini_communication_patterns.F 304 INI_COMMUNICATION_PATTERNS 
        IF ( myPid .EQ. tilePidN(bi,bj) ) THEN
./eesupp/src/ini_communication_patterns.F 305 INI_COMMUNICATION_PATTERNS 
         tileCommModeN(bi,bj) = COMM_PUT
./eesupp/src/ini_communication_patterns.F 307 INI_COMMUNICATION_PATTERNS 
         tileCommModeN(bi,bj) = COMM_MSG
./eesupp/src/ini_communication_patterns.F 315 INI_COMMUNICATION_PATTERNS 
      DO bj=myByLo(myThid),myByHi(myThid)
./eesupp/src/ini_communication_patterns.F 317 INI_COMMUNICATION_PATTERNS 
        exchNReqsX(1,bi,bj) = 0
./eesupp/src/ini_communication_patterns.F 318 INI_COMMUNICATION_PATTERNS 
        exchNReqsY(1,bi,bj) = 0
./eesupp/src/ini_communication_patterns.F 56 INI_COMMUNICATION_PATTERNS 
      INTEGER bi, bj, picnt, pjcnt
./pkg/autodiff/addamp_adj.F 35 ADDAMP_ADJ 
      INTEGER bi,bj,i,j,k
./pkg/autodiff/addamp_adj.F 39 ADDAMP_ADJ 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/autodiff/addamp_adj.F 44 ADDAMP_ADJ 
           IF ( (fieldRef(i,j,k,bi,bj).GE.maxRef).OR.
./pkg/autodiff/addamp_adj.F 45 ADDAMP_ADJ 
     &          (fieldRef(i,j,k,bi,bj).LE.minRef) ) THEN
./pkg/autodiff/addamp_adj.F 50 ADDAMP_ADJ 
           adfieldDamp(i,j,k,bi,bj)=facDamp*
./pkg/autodiff/addamp_adj.F 51 ADDAMP_ADJ 
     &        adfieldDamp(i,j,k,bi,bj)
./pkg/autodiff/adzero_adj.F 111 ADZERO_ADJ 
      INTEGER bi,bj
./pkg/autodiff/adzero_adj.F 115 ADZERO_ADJ 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/autodiff/adzero_adj.F 120 ADZERO_ADJ 
           adFieldFwd(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/autodiff_init_varia.F 37 AUTODIFF_INIT_VARIA 
      INTEGER bi, bj
./pkg/autodiff/autodiff_init_varia.F 46 AUTODIFF_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_init_varia.F 54 AUTODIFF_INIT_VARIA 
           EfluxY(i,j,k,bi,bj) = 0.
./pkg/autodiff/autodiff_init_varia.F 55 AUTODIFF_INIT_VARIA 
           EfluxP(i,j,k,bi,bj) = 0.
./pkg/autodiff/autodiff_init_varia.F 65 AUTODIFF_INIT_VARIA 
          dEtaHdt(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/autodiff_init_varia.F 66 AUTODIFF_INIT_VARIA 
          PmEpR(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/autodiff_init_varia.F 70 AUTODIFF_INIT_VARIA 
          EmPmR(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/autodiff_restore.F 100 AUTODIFF_RESTORE 
          tauy0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 101 AUTODIFF_RESTORE 
          tauy1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 102 AUTODIFF_RESTORE 
          qnet0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 103 AUTODIFF_RESTORE 
          qnet1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 104 AUTODIFF_RESTORE 
          empmr0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 105 AUTODIFF_RESTORE 
          empmr1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 106 AUTODIFF_RESTORE 
          sst0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 107 AUTODIFF_RESTORE 
          sst1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 108 AUTODIFF_RESTORE 
          sss0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 109 AUTODIFF_RESTORE 
          sss1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 110 AUTODIFF_RESTORE 
          saltflux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 111 AUTODIFF_RESTORE 
          saltflux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 113 AUTODIFF_RESTORE 
          qsw0(I,J,bi,bj)    = StoreDynVars2D(I,J,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 114 AUTODIFF_RESTORE 
          qsw1(I,J,bi,bj)    = StoreDynVars2D(I,J,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 117 AUTODIFF_RESTORE 
          pload0(I,J,bi,bj)  = StoreDynVars2D(I,J,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 118 AUTODIFF_RESTORE 
          pload1(I,J,bi,bj)  = StoreDynVars2D(I,J,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 121 AUTODIFF_RESTORE 
          etaH(I,J,bi,bj)    = StoreDynVars2D(I,J,bi,bj,21)
./pkg/autodiff/autodiff_restore.F 122 AUTODIFF_RESTORE 
          dEtaHdt(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,22)
./pkg/autodiff/autodiff_restore.F 123 AUTODIFF_RESTORE 
          PmEpR(I,J,bi,bj)   = StoreDynVars2D(I,J,bi,bj,23)
./pkg/autodiff/autodiff_restore.F 135 AUTODIFF_RESTORE 
           gtNm(I,J,K,bi,bj,1)   = StoreDynVars3D(I,J,K,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 136 AUTODIFF_RESTORE 
           gsNm(I,J,K,bi,bj,1)   = StoreDynVars3D(I,J,K,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 137 AUTODIFF_RESTORE 
           guNm(I,J,K,bi,bj,1)   = StoreDynVars3D(I,J,K,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 138 AUTODIFF_RESTORE 
           gvNm(I,J,K,bi,bj,1)   = StoreDynVars3D(I,J,K,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 140 AUTODIFF_RESTORE 
           gtNm1(I,J,K,bi,bj)    = StoreDynVars3D(I,J,K,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 141 AUTODIFF_RESTORE 
           gsNm1(I,J,K,bi,bj)    = StoreDynVars3D(I,J,K,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 142 AUTODIFF_RESTORE 
           guNm1(I,J,K,bi,bj)    = StoreDynVars3D(I,J,K,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 143 AUTODIFF_RESTORE 
           gvNm1(I,J,K,bi,bj)    = StoreDynVars3D(I,J,K,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 145 AUTODIFF_RESTORE 
           theta(I,J,K,bi,bj)    = StoreDynVars3D(I,J,K,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 146 AUTODIFF_RESTORE 
           salt(I,J,K,bi,bj)     = StoreDynVars3D(I,J,K,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 147 AUTODIFF_RESTORE 
           uVel(I,J,K,bi,bj)     = StoreDynVars3D(I,J,K,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 148 AUTODIFF_RESTORE 
           vVel(I,J,K,bi,bj)     = StoreDynVars3D(I,J,K,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 149 AUTODIFF_RESTORE 
           wVel(I,J,K,bi,bj)     = StoreDynVars3D(I,J,K,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 150 AUTODIFF_RESTORE 
           totPhiHyd(I,J,K,bi,bj)= StoreDynVars3D(I,J,K,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 152 AUTODIFF_RESTORE 
           gtNm(I,J,K,bi,bj,2)   = StoreDynVars3D(I,J,K,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 153 AUTODIFF_RESTORE 
           gsNm(I,J,K,bi,bj,2)   = StoreDynVars3D(I,J,K,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 154 AUTODIFF_RESTORE 
           guNm(I,J,K,bi,bj,2)   = StoreDynVars3D(I,J,K,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 155 AUTODIFF_RESTORE 
           gvNm(I,J,K,bi,bj,2)   = StoreDynVars3D(I,J,K,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 168 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 173 AUTODIFF_RESTORE 
          hflux0(I,J,bi,bj)            = StoreEXF1(I,J,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 174 AUTODIFF_RESTORE 
          hflux1(I,J,bi,bj)            = StoreEXF1(I,J,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 175 AUTODIFF_RESTORE 
          sflux0(I,J,bi,bj)            = StoreEXF1(I,J,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 176 AUTODIFF_RESTORE 
          sflux1(I,J,bi,bj)            = StoreEXF1(I,J,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 177 AUTODIFF_RESTORE 
          ustress0(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 178 AUTODIFF_RESTORE 
          ustress1(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 179 AUTODIFF_RESTORE 
          vstress0(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 180 AUTODIFF_RESTORE 
          vstress1(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 181 AUTODIFF_RESTORE 
          wspeed0(I,J,bi,bj)           = StoreEXF1(I,J,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 182 AUTODIFF_RESTORE 
          wspeed1(I,J,bi,bj)           = StoreEXF1(I,J,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 184 AUTODIFF_RESTORE 
          swflux0(I,J,bi,bj)           = StoreEXF1(I,J,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 185 AUTODIFF_RESTORE 
          swflux1(I,J,bi,bj)           = StoreEXF1(I,J,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 188 AUTODIFF_RESTORE 
          runoff0(I,J,bi,bj)           = StoreEXF1(I,J,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 189 AUTODIFF_RESTORE 
          runoff1(I,J,bi,bj)           = StoreEXF1(I,J,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 192 AUTODIFF_RESTORE 
          apressure0(I,J,bi,bj)        = StoreEXF1(I,J,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 193 AUTODIFF_RESTORE 
          apressure1(I,J,bi,bj)        = StoreEXF1(I,J,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 194 AUTODIFF_RESTORE 
          siceload(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 197 AUTODIFF_RESTORE 
          climsss0(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 198 AUTODIFF_RESTORE 
          climsss1(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 201 AUTODIFF_RESTORE 
          climsst0(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 202 AUTODIFF_RESTORE 
          climsst1(I,J,bi,bj)          = StoreEXF1(I,J,bi,bj,21)
./pkg/autodiff/autodiff_restore.F 211 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 217 AUTODIFF_RESTORE 
          aqh0(I,J,bi,bj)            = StoreEXF2(I,J,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 218 AUTODIFF_RESTORE 
          aqh1(I,J,bi,bj)            = StoreEXF2(I,J,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 219 AUTODIFF_RESTORE 
          atemp0(I,J,bi,bj)          = StoreEXF2(I,J,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 220 AUTODIFF_RESTORE 
          atemp1(I,J,bi,bj)          = StoreEXF2(I,J,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 221 AUTODIFF_RESTORE 
          precip0(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 222 AUTODIFF_RESTORE 
          precip1(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 223 AUTODIFF_RESTORE 
          lwflux0(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 224 AUTODIFF_RESTORE 
          lwflux1(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 225 AUTODIFF_RESTORE 
          snowprecip0(I,J,bi,bj)     = StoreEXF2(I,J,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 226 AUTODIFF_RESTORE 
          snowprecip1(I,J,bi,bj)     = StoreEXF2(I,J,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 228 AUTODIFF_RESTORE 
          evap0(I,J,bi,bj)           = StoreEXF2(I,J,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 229 AUTODIFF_RESTORE 
          evap1(I,J,bi,bj)           = StoreEXF2(I,J,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 231 AUTODIFF_RESTORE 
          evap(I,J,bi,bj)            = StoreEXF2(I,J,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 234 AUTODIFF_RESTORE 
          swdown0(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 235 AUTODIFF_RESTORE 
          swdown1(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 236 AUTODIFF_RESTORE 
          lwdown0(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 237 AUTODIFF_RESTORE 
          lwdown1(I,J,bi,bj)         = StoreEXF2(I,J,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 240 AUTODIFF_RESTORE 
          uwind0(I,J,bi,bj)          = StoreEXF2(I,J,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 241 AUTODIFF_RESTORE 
          uwind1(I,J,bi,bj)          = StoreEXF2(I,J,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 242 AUTODIFF_RESTORE 
          vwind0(I,J,bi,bj)          = StoreEXF2(I,J,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 243 AUTODIFF_RESTORE 
          vwind1(I,J,bi,bj)          = StoreEXF2(I,J,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 251 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 257 AUTODIFF_RESTORE 
          xx_uwind0(I,J,bi,bj)     = StoreCTRLS1(I,J,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 258 AUTODIFF_RESTORE 
          xx_uwind1(I,J,bi,bj)     = StoreCTRLS1(I,J,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 261 AUTODIFF_RESTORE 
          xx_vwind0(I,J,bi,bj)     = StoreCTRLS1(I,J,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 262 AUTODIFF_RESTORE 
          xx_vwind1(I,J,bi,bj)     = StoreCTRLS1(I,J,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 265 AUTODIFF_RESTORE 
          xx_atemp0(I,J,bi,bj)     = StoreCTRLS1(I,J,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 266 AUTODIFF_RESTORE 
          xx_atemp1(I,J,bi,bj)     = StoreCTRLS1(I,J,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 269 AUTODIFF_RESTORE 
          xx_aqh0(I,J,bi,bj)       = StoreCTRLS1(I,J,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 270 AUTODIFF_RESTORE 
          xx_aqh1(I,J,bi,bj)       = StoreCTRLS1(I,J,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 273 AUTODIFF_RESTORE 
          xx_precip0(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 274 AUTODIFF_RESTORE 
          xx_precip1(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 277 AUTODIFF_RESTORE 
          xx_snowprecip0(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 278 AUTODIFF_RESTORE 
          xx_snowprecip1(I,J,bi,bj)= StoreCTRLS1(I,J,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 281 AUTODIFF_RESTORE 
          xx_swflux0(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 282 AUTODIFF_RESTORE 
          xx_swflux1(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 285 AUTODIFF_RESTORE 
          xx_swdown0(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 286 AUTODIFF_RESTORE 
          xx_swdown1(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 289 AUTODIFF_RESTORE 
          xx_lwdown0(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 290 AUTODIFF_RESTORE 
          xx_lwdown1(I,J,bi,bj)    = StoreCTRLS1(I,J,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 293 AUTODIFF_RESTORE 
          xx_apressure0(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 294 AUTODIFF_RESTORE 
          xx_apressure1(I,J,bi,bj) = StoreCTRLS1(I,J,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 305 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 310 AUTODIFF_RESTORE 
          OBNu(I,K,bi,bj)    = StoreOBCSN(I,K,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 311 AUTODIFF_RESTORE 
          OBNv(I,K,bi,bj)    = StoreOBCSN(I,K,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 312 AUTODIFF_RESTORE 
          OBNt(I,K,bi,bj)    = StoreOBCSN(I,K,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 313 AUTODIFF_RESTORE 
          OBNs(I,K,bi,bj)    = StoreOBCSN(I,K,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 314 AUTODIFF_RESTORE 
          OBNu0(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 315 AUTODIFF_RESTORE 
          OBNv0(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 316 AUTODIFF_RESTORE 
          OBNt0(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 317 AUTODIFF_RESTORE 
          OBNs0(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 318 AUTODIFF_RESTORE 
          OBNu1(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 319 AUTODIFF_RESTORE 
          OBNv1(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 320 AUTODIFF_RESTORE 
          OBNt1(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 321 AUTODIFF_RESTORE 
          OBNs1(I,K,bi,bj)   = StoreOBCSN(I,K,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 323 AUTODIFF_RESTORE 
          xx_obcsn0(I,K,bi,bj,1)   = StoreOBCSN(I,K,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 324 AUTODIFF_RESTORE 
          xx_obcsn0(I,K,bi,bj,2)   = StoreOBCSN(I,K,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 325 AUTODIFF_RESTORE 
          xx_obcsn0(I,K,bi,bj,3)   = StoreOBCSN(I,K,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 326 AUTODIFF_RESTORE 
          xx_obcsn0(I,K,bi,bj,4)   = StoreOBCSN(I,K,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 327 AUTODIFF_RESTORE 
          xx_obcsn1(I,K,bi,bj,1)   = StoreOBCSN(I,K,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 328 AUTODIFF_RESTORE 
          xx_obcsn1(I,K,bi,bj,2)   = StoreOBCSN(I,K,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 329 AUTODIFF_RESTORE 
          xx_obcsn1(I,K,bi,bj,3)   = StoreOBCSN(I,K,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 330 AUTODIFF_RESTORE 
          xx_obcsn1(I,K,bi,bj,4)   = StoreOBCSN(I,K,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 340 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 345 AUTODIFF_RESTORE 
          OBSu(I,K,bi,bj)       = StoreOBCSS(I,K,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 346 AUTODIFF_RESTORE 
          OBSv(I,K,bi,bj)       = StoreOBCSS(I,K,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 347 AUTODIFF_RESTORE 
          OBSt(I,K,bi,bj)       = StoreOBCSS(I,K,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 348 AUTODIFF_RESTORE 
          OBSs(I,K,bi,bj)       = StoreOBCSS(I,K,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 349 AUTODIFF_RESTORE 
          OBSu0(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 350 AUTODIFF_RESTORE 
          OBSv0(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 351 AUTODIFF_RESTORE 
          OBSt0(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 352 AUTODIFF_RESTORE 
          OBSs0(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 353 AUTODIFF_RESTORE 
          OBSu1(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 354 AUTODIFF_RESTORE 
          OBSv1(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 355 AUTODIFF_RESTORE 
          OBSt1(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 356 AUTODIFF_RESTORE 
          OBSs1(I,K,bi,bj)      = StoreOBCSS(I,K,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 358 AUTODIFF_RESTORE 
          xx_obcss0(I,K,bi,bj,1)   = StoreOBCSS(I,K,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 359 AUTODIFF_RESTORE 
          xx_obcss0(I,K,bi,bj,2)   = StoreOBCSS(I,K,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 360 AUTODIFF_RESTORE 
          xx_obcss0(I,K,bi,bj,3)   = StoreOBCSS(I,K,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 361 AUTODIFF_RESTORE 
          xx_obcss0(I,K,bi,bj,4)   = StoreOBCSS(I,K,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 362 AUTODIFF_RESTORE 
          xx_obcss1(I,K,bi,bj,1)   = StoreOBCSS(I,K,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 363 AUTODIFF_RESTORE 
          xx_obcss1(I,K,bi,bj,2)   = StoreOBCSS(I,K,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 364 AUTODIFF_RESTORE 
          xx_obcss1(I,K,bi,bj,3)   = StoreOBCSS(I,K,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 365 AUTODIFF_RESTORE 
          xx_obcss1(I,K,bi,bj,4)   = StoreOBCSS(I,K,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 375 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 380 AUTODIFF_RESTORE 
          OBEu(J,K,bi,bj)      = StoreOBCSE(J,K,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 381 AUTODIFF_RESTORE 
          OBEv(J,K,bi,bj)      = StoreOBCSE(J,K,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 382 AUTODIFF_RESTORE 
          OBEt(J,K,bi,bj)      = StoreOBCSE(J,K,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 383 AUTODIFF_RESTORE 
          OBEs(J,K,bi,bj)      = StoreOBCSE(J,K,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 384 AUTODIFF_RESTORE 
          OBEu0(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 385 AUTODIFF_RESTORE 
          OBEv0(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 386 AUTODIFF_RESTORE 
          OBEt0(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 387 AUTODIFF_RESTORE 
          OBEs0(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 388 AUTODIFF_RESTORE 
          OBEu1(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 389 AUTODIFF_RESTORE 
          OBEv1(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 390 AUTODIFF_RESTORE 
          OBEt1(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 391 AUTODIFF_RESTORE 
          OBEs1(J,K,bi,bj)     = StoreOBCSE(J,K,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 393 AUTODIFF_RESTORE 
          xx_obcse0(J,K,bi,bj,1)     = StoreOBCSE(J,K,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 394 AUTODIFF_RESTORE 
          xx_obcse0(J,K,bi,bj,2)     = StoreOBCSE(J,K,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 395 AUTODIFF_RESTORE 
          xx_obcse0(J,K,bi,bj,3)     = StoreOBCSE(J,K,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 396 AUTODIFF_RESTORE 
          xx_obcse0(J,K,bi,bj,4)     = StoreOBCSE(J,K,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 397 AUTODIFF_RESTORE 
          xx_obcse1(J,K,bi,bj,1)     = StoreOBCSE(J,K,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 398 AUTODIFF_RESTORE 
          xx_obcse1(J,K,bi,bj,2)     = StoreOBCSE(J,K,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 399 AUTODIFF_RESTORE 
          xx_obcse1(J,K,bi,bj,3)     = StoreOBCSE(J,K,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 400 AUTODIFF_RESTORE 
          xx_obcse1(J,K,bi,bj,4)     = StoreOBCSE(J,K,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 410 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 415 AUTODIFF_RESTORE 
          OBWu(J,K,bi,bj)      = StoreOBCSW(J,K,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 416 AUTODIFF_RESTORE 
          OBWv(J,K,bi,bj)      = StoreOBCSW(J,K,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 417 AUTODIFF_RESTORE 
          OBWt(J,K,bi,bj)      = StoreOBCSW(J,K,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 418 AUTODIFF_RESTORE 
          OBWs(J,K,bi,bj)      = StoreOBCSW(J,K,bi,bj,4)
./pkg/autodiff/autodiff_restore.F 419 AUTODIFF_RESTORE 
          OBWu0(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 420 AUTODIFF_RESTORE 
          OBWv0(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,6)
./pkg/autodiff/autodiff_restore.F 421 AUTODIFF_RESTORE 
          OBWt0(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 422 AUTODIFF_RESTORE 
          OBWs0(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 423 AUTODIFF_RESTORE 
          OBWu1(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 424 AUTODIFF_RESTORE 
          OBWv1(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 425 AUTODIFF_RESTORE 
          OBWt1(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 426 AUTODIFF_RESTORE 
          OBWs1(J,K,bi,bj)     = StoreOBCSW(J,K,bi,bj,12)
./pkg/autodiff/autodiff_restore.F 428 AUTODIFF_RESTORE 
          xx_obcsw0(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,13)
./pkg/autodiff/autodiff_restore.F 429 AUTODIFF_RESTORE 
          xx_obcsw0(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 430 AUTODIFF_RESTORE 
          xx_obcsw0(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 431 AUTODIFF_RESTORE 
          xx_obcsw0(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 432 AUTODIFF_RESTORE 
          xx_obcsw1(J,K,bi,bj,1) = StoreOBCSW(J,K,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 433 AUTODIFF_RESTORE 
          xx_obcsw1(J,K,bi,bj,2) = StoreOBCSW(J,K,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 434 AUTODIFF_RESTORE 
          xx_obcsw1(J,K,bi,bj,3) = StoreOBCSW(J,K,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 435 AUTODIFF_RESTORE 
          xx_obcsw1(J,K,bi,bj,4) = StoreOBCSW(J,K,bi,bj,20)
./pkg/autodiff/autodiff_restore.F 446 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 451 AUTODIFF_RESTORE 
          AREA(I,J,bi,bj)   = StoreSEAICE(I,J,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 452 AUTODIFF_RESTORE 
          HEFF(I,J,bi,bj)   = StoreSEAICE(I,J,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 453 AUTODIFF_RESTORE 
          HSNOW(I,J,bi,bj)    = StoreSEAICE(I,J,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 455 AUTODIFF_RESTORE 
          RUNOFF(I,J,bi,bj)   = StoreSEAICE(I,J,bi,bj,5)
./pkg/autodiff/autodiff_restore.F 457 AUTODIFF_RESTORE 
          stressDivergenceX(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,14)
./pkg/autodiff/autodiff_restore.F 458 AUTODIFF_RESTORE 
          stressDivergenceY(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,15)
./pkg/autodiff/autodiff_restore.F 464 AUTODIFF_RESTORE 
          UICE(I,J,bi,bj)    = StoreSEAICE(I,J,bi,bj,7)
./pkg/autodiff/autodiff_restore.F 465 AUTODIFF_RESTORE 
          VICE(I,J,bi,bj)    = StoreSEAICE(I,J,bi,bj,8)
./pkg/autodiff/autodiff_restore.F 466 AUTODIFF_RESTORE 
          ZETA(I,J,bi,bj)      = StoreSEAICE(I,J,bi,bj,9)
./pkg/autodiff/autodiff_restore.F 467 AUTODIFF_RESTORE 
          ETA(I,J,bi,bj)       = StoreSEAICE(I,J,bi,bj,10)
./pkg/autodiff/autodiff_restore.F 469 AUTODIFF_RESTORE 
          dwatn(I,J,bi,bj)          = StoreSEAICE(I,J,bi,bj,11)
./pkg/autodiff/autodiff_restore.F 474 AUTODIFF_RESTORE 
          seaice_sigma1(I,J,bi,bj)  = StoreSEAICE(I,J,bi,bj,16)
./pkg/autodiff/autodiff_restore.F 475 AUTODIFF_RESTORE 
          seaice_sigma2(I,J,bi,bj)  = StoreSEAICE(I,J,bi,bj,17)
./pkg/autodiff/autodiff_restore.F 476 AUTODIFF_RESTORE 
          seaice_sigma12(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,18)
./pkg/autodiff/autodiff_restore.F 479 AUTODIFF_RESTORE 
          HSALT(I,J,bi,bj)          = StoreSEAICE(I,J,bi,bj,19)
./pkg/autodiff/autodiff_restore.F 79 AUTODIFF_RESTORE 
      integer bi,bj
./pkg/autodiff/autodiff_restore.F 89 AUTODIFF_RESTORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_restore.F 96 AUTODIFF_RESTORE 
          etaN(I,J,bi,bj)               = StoreDynVars2D(I,J,bi,bj,1)
./pkg/autodiff/autodiff_restore.F 97 AUTODIFF_RESTORE 
          surfaceforcingTice(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,2)
./pkg/autodiff/autodiff_restore.F 98 AUTODIFF_RESTORE 
          taux0(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,3)
./pkg/autodiff/autodiff_restore.F 99 AUTODIFF_RESTORE 
          taux1(I,J,bi,bj) = StoreDynVars2D(I,J,bi,bj,4)
./pkg/autodiff/autodiff_store.F 100 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,5) = tauy0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 101 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,6) = tauy1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 102 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,7) = qnet0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 103 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,8) = qnet1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 104 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,9)  = empmr0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 105 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,10) = empmr1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 106 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,11) = sst0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 107 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,12) = sst1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 108 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,13) = sss0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 109 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,14) = sss1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 110 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,15) = saltflux0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 111 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,16) = saltflux1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 113 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,17) = qsw0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 114 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,18) = qsw1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 116 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,17) = 0.
./pkg/autodiff/autodiff_store.F 117 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,18) = 0.
./pkg/autodiff/autodiff_store.F 120 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,19) = pload0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 121 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,20) = pload1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 123 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,19) = 0.
./pkg/autodiff/autodiff_store.F 124 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,20) = 0.
./pkg/autodiff/autodiff_store.F 127 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,21) = etaH(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 128 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,22) = dEtaHdt(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 129 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,23) = PmEpR(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 131 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,21) = 0.
./pkg/autodiff/autodiff_store.F 132 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,22) = 0.
./pkg/autodiff/autodiff_store.F 133 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,23) = 0.
./pkg/autodiff/autodiff_store.F 145 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,1)  = gtNm(I,J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 146 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,2)  = gsNm(I,J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 147 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,3)  = guNm(I,J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 148 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,4)  = gvNm(I,J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 150 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,1)  = gtNm1(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 151 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,2)  = gsNm1(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 152 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,3)  = guNm1(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 153 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,4)  = gvNm1(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 155 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,5)  = theta(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 156 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,6)  = salt(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 157 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,7)  = uVel(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 158 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,8)  = vVel(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 159 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,9)  = wVel(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 160 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,10) = totPhiHyd(I,J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 162 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,11) = gtNm(I,J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 163 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,12) = gsNm(I,J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 164 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,13) = guNm(I,J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 165 AUTODIFF_STORE 
           StoreDynVars3D(I,J,K,bi,bj,14) = gvNm(I,J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 178 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 183 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,1) = hflux0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 184 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,2) = hflux1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 185 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,3) = sflux0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 186 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,4) = sflux1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 187 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,5) = ustress0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 188 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,6) = ustress1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 189 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,7) = vstress0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 190 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,8) = vstress1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 191 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,9) = wspeed0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 192 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,10) = wspeed1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 194 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,11) = swflux0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 195 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,12) = swflux1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 197 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,11) = 0.0
./pkg/autodiff/autodiff_store.F 198 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,12) = 0.0
./pkg/autodiff/autodiff_store.F 201 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,13) = runoff0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 202 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,14) = runoff1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 204 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 205 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 208 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,15) = apressure0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 209 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,16) = apressure1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 210 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,17) = siceload(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 212 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 213 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 214 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,17) = 0.0
./pkg/autodiff/autodiff_store.F 217 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,18) = climsss0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 218 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,19) = climsss1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 220 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,18) = 0.0
./pkg/autodiff/autodiff_store.F 221 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,19) = 0.0
./pkg/autodiff/autodiff_store.F 224 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,20) = climsst0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 225 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,21) = climsst1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 227 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,20) = 0.0
./pkg/autodiff/autodiff_store.F 228 AUTODIFF_STORE 
          StoreEXF1(I,J,bi,bj,21) = 0.0
./pkg/autodiff/autodiff_store.F 237 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 243 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,1) = aqh0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 244 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,2) = aqh1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 245 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,3) = atemp0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 246 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,4) = atemp1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 247 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,5) = precip0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 248 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,6) = precip1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 249 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,7) = lwflux0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 250 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,8) = lwflux1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 251 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,9)  = snowprecip0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 252 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,10) = snowprecip1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 254 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,11) = evap0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 255 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,12) = evap1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 257 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,11) = evap(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 258 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,12) = 0.0
./pkg/autodiff/autodiff_store.F 261 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,13) = swdown0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 262 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,14) = swdown1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 263 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,15) = lwdown0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 264 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,16) = lwdown1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 266 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 267 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 268 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 269 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 272 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,17) = uwind0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 273 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,18) = uwind1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 274 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,19) = vwind0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 275 AUTODIFF_STORE 
          StoreEXF2(I,J,bi,bj,20) = vwind1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 283 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 289 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,1) = xx_uwind0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 290 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,2) = xx_uwind1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 292 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,1) = 0.0
./pkg/autodiff/autodiff_store.F 293 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,2) = 0.0
./pkg/autodiff/autodiff_store.F 296 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,3) = xx_vwind0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 297 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,4) = xx_vwind1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 299 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,3) = 0.0
./pkg/autodiff/autodiff_store.F 300 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,4) = 0.0
./pkg/autodiff/autodiff_store.F 303 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,5) = xx_atemp0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 304 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,6) = xx_atemp1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 306 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,5) = 0.0
./pkg/autodiff/autodiff_store.F 307 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,6) = 0.0
./pkg/autodiff/autodiff_store.F 310 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,7) = xx_aqh0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 311 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,8) = xx_aqh1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 313 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,7) = 0.0
./pkg/autodiff/autodiff_store.F 314 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,8) = 0.0
./pkg/autodiff/autodiff_store.F 317 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,9) = xx_precip0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 318 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,10) = xx_precip1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 320 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,9) = 0.0
./pkg/autodiff/autodiff_store.F 321 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,10) = 0.0
./pkg/autodiff/autodiff_store.F 324 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,11) = xx_snowprecip0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 325 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,12) = xx_snowprecip1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 327 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,11) = 0.0
./pkg/autodiff/autodiff_store.F 328 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,12) = 0.0
./pkg/autodiff/autodiff_store.F 331 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,13) = xx_swflux0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 332 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,14) = xx_swflux1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 334 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 335 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 338 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,15) = xx_swdown0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 339 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,16) = xx_swdown1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 341 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 342 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 345 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,17) = xx_lwdown0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 346 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,18) = xx_lwdown1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 348 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,17) = 0.0
./pkg/autodiff/autodiff_store.F 349 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,18) = 0.0
./pkg/autodiff/autodiff_store.F 352 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,19) = xx_apressure0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 353 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,20) = xx_apressure1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 355 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,19) = 0.0
./pkg/autodiff/autodiff_store.F 356 AUTODIFF_STORE 
          StoreCTRLS1(I,J,bi,bj,20) = 0.0
./pkg/autodiff/autodiff_store.F 367 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 372 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,1)  = OBNu(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 373 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,2)  = OBNv(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 374 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,3)  = OBNt(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 375 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,4)  = OBNs(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 376 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,5)  = OBNu0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 377 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,6)  = OBNv0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 378 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,7)  = OBNt0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 379 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,8)  = OBNs0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 380 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,9)  = OBNu1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 381 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,10) = OBNv1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 382 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,11) = OBNt1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 383 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,12) = OBNs1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 385 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,13) = xx_obcsn0(I,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 386 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,14) = xx_obcsn0(I,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 387 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,15) = xx_obcsn0(I,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 388 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,16) = xx_obcsn0(I,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 389 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,17) = xx_obcsn1(I,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 390 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,18) = xx_obcsn1(I,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 391 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,19) = xx_obcsn1(I,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 392 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,20) = xx_obcsn1(I,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 394 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 395 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 396 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 397 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 398 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,17) = 0.0
./pkg/autodiff/autodiff_store.F 399 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,18) = 0.0
./pkg/autodiff/autodiff_store.F 400 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,19) = 0.0
./pkg/autodiff/autodiff_store.F 401 AUTODIFF_STORE 
          StoreOBCSN(I,K,bi,bj,20) = 0.0
./pkg/autodiff/autodiff_store.F 411 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 416 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,1)  = OBSu(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 417 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,2)  = OBSv(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 418 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,3)  = OBSt(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 419 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,4)  = OBSs(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 420 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,5)  = OBSu0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 421 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,6)  = OBSv0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 422 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,7)  = OBSt0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 423 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,8)  = OBSs0(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 424 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,9)  = OBSu1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 425 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,10) = OBSv1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 426 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,11) = OBSt1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 427 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,12) = OBSs1(I,K,bi,bj)
./pkg/autodiff/autodiff_store.F 429 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,13) = xx_obcss0(I,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 430 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,14) = xx_obcss0(I,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 431 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,15) = xx_obcss0(I,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 432 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,16) = xx_obcss0(I,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 433 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,17) = xx_obcss1(I,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 434 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,18) = xx_obcss1(I,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 435 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,19) = xx_obcss1(I,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 436 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,20) = xx_obcss1(I,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 438 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 439 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 440 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 441 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 442 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,17) = 0.0
./pkg/autodiff/autodiff_store.F 443 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,18) = 0.0
./pkg/autodiff/autodiff_store.F 444 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,19) = 0.0
./pkg/autodiff/autodiff_store.F 445 AUTODIFF_STORE 
          StoreOBCSS(I,K,bi,bj,20) = 0.0
./pkg/autodiff/autodiff_store.F 455 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 460 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,1)  = OBEu(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 461 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,2)  = OBEv(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 462 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,3)  = OBEt(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 463 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,4)  = OBEs(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 464 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,5)  = OBEu0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 465 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,6)  = OBEv0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 466 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,7)  = OBEt0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 467 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,8)  = OBEs0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 468 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,9)  = OBEu1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 469 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,10) = OBEv1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 470 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,11) = OBEt1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 471 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,12) = OBEs1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 473 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,13) = xx_obcse0(J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 474 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,14) = xx_obcse0(J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 475 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,15) = xx_obcse0(J,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 476 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,16) = xx_obcse0(J,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 477 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,17) = xx_obcse1(J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 478 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,18) = xx_obcse1(J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 479 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,19) = xx_obcse1(J,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 480 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,20) = xx_obcse1(J,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 482 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 483 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 484 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 485 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 486 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,17) = 0.0
./pkg/autodiff/autodiff_store.F 487 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,18) = 0.0
./pkg/autodiff/autodiff_store.F 488 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,19) = 0.0
./pkg/autodiff/autodiff_store.F 489 AUTODIFF_STORE 
          StoreOBCSE(J,K,bi,bj,20) = 0.0
./pkg/autodiff/autodiff_store.F 499 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 504 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,1)  = OBWu(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 505 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,2)  = OBWv(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 506 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,3)  = OBWt(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 507 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,4)  = OBWs(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 508 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,5)  = OBWu0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 509 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,6)  = OBWv0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 510 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,7)  = OBWt0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 511 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,8)  = OBWs0(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 512 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,9)  = OBWu1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 513 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,10) = OBWv1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 514 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,11) = OBWt1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 515 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,12) = OBWs1(J,K,bi,bj)
./pkg/autodiff/autodiff_store.F 517 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,13) = xx_obcsw0(J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 518 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,14) = xx_obcsw0(J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 519 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,15) = xx_obcsw0(J,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 520 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,16) = xx_obcsw0(J,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 521 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,17) = xx_obcsw1(J,K,bi,bj,1)
./pkg/autodiff/autodiff_store.F 522 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,18) = xx_obcsw1(J,K,bi,bj,2)
./pkg/autodiff/autodiff_store.F 523 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,19) = xx_obcsw1(J,K,bi,bj,3)
./pkg/autodiff/autodiff_store.F 524 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,20) = xx_obcsw1(J,K,bi,bj,4)
./pkg/autodiff/autodiff_store.F 526 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 527 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 528 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 529 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 530 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,17) = 0.0
./pkg/autodiff/autodiff_store.F 531 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,18) = 0.0
./pkg/autodiff/autodiff_store.F 532 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,19) = 0.0
./pkg/autodiff/autodiff_store.F 533 AUTODIFF_STORE 
          StoreOBCSW(J,K,bi,bj,20) = 0.0
./pkg/autodiff/autodiff_store.F 544 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 549 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,1) = AREA(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 550 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,2) = HEFF(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 551 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,3) = HSNOW(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 552 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,4) = 0.0
./pkg/autodiff/autodiff_store.F 553 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,5) = RUNOFF(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 554 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,6) = 0.0
./pkg/autodiff/autodiff_store.F 556 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,14) = stressDivergenceX(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 557 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,15) = stressDivergenceY(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 559 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,14) = 0.0
./pkg/autodiff/autodiff_store.F 560 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,15) = 0.0
./pkg/autodiff/autodiff_store.F 562 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,7) = UICE(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 563 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,8) = VICE(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 564 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,9) = ZETA(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 565 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,10) = ETA(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 567 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,11) = dwatn(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 570 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,12) = 0.0
./pkg/autodiff/autodiff_store.F 571 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 573 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,11) = 0.0
./pkg/autodiff/autodiff_store.F 574 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,12) = 0.0
./pkg/autodiff/autodiff_store.F 575 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,13) = 0.0
./pkg/autodiff/autodiff_store.F 578 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,16) = seaice_sigma1(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 579 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,17) = seaice_sigma2(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 580 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,18) = seaice_sigma12(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 582 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,16) = 0.0
./pkg/autodiff/autodiff_store.F 583 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,17) = 0.0
./pkg/autodiff/autodiff_store.F 584 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,18) = 0.0
./pkg/autodiff/autodiff_store.F 587 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 589 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,19) = 0.0
./pkg/autodiff/autodiff_store.F 79 AUTODIFF_STORE 
      integer bi,bj
./pkg/autodiff/autodiff_store.F 89 AUTODIFF_STORE 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/autodiff_store.F 96 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,1) = etaN(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 97 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,2) = surfaceforcingTice(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 98 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,3) = taux0(I,J,bi,bj)
./pkg/autodiff/autodiff_store.F 99 AUTODIFF_STORE 
          StoreDynVars2D(I,J,bi,bj,4) = taux1(I,J,bi,bj)
./eesupp/src/lef_zero.F 24 LEF_ZERO 
      INTEGER i,j,bi,bj
./eesupp/src/lef_zero.F 27 LEF_ZERO 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/lef_zero.F 31 LEF_ZERO 
          arr(i,j,bi,bj)=0.
./pkg/autodiff/copy_ad_uv_outp.F 59 COPY_AD_UV_OUTP 
      INTEGER i,j,k,bi,bj
./pkg/autodiff/copy_ad_uv_outp.F 72 COPY_AD_UV_OUTP 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/copy_ad_uv_outp.F 77 COPY_AD_UV_OUTP 
             uFldOut(i,j,k,bi,bj) = uFldRS(i,j,k,bi,bj)
./pkg/autodiff/copy_ad_uv_outp.F 78 COPY_AD_UV_OUTP 
             vFldOut(i,j,k,bi,bj) = vFldRS(i,j,k,bi,bj)
./pkg/autodiff/copy_ad_uv_outp.F 85 COPY_AD_UV_OUTP 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/copy_ad_uv_outp.F 90 COPY_AD_UV_OUTP 
             uFldOut(i,j,k,bi,bj) = uFldRL(i,j,k,bi,bj)
./pkg/autodiff/copy_ad_uv_outp.F 91 COPY_AD_UV_OUTP 
             vFldOut(i,j,k,bi,bj) = vFldRL(i,j,k,bi,bj)
./pkg/autodiff/copy_advar_outp.F 52 COPY_ADVAR_OUTP 
      INTEGER i,j,k,bi,bj
./pkg/autodiff/copy_advar_outp.F 65 COPY_ADVAR_OUTP 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/copy_advar_outp.F 70 COPY_ADVAR_OUTP 
             outFld(i,j,k,bi,bj) = inpFldRS(i,j,k,bi,bj)
./pkg/autodiff/copy_advar_outp.F 77 COPY_ADVAR_OUTP 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/copy_advar_outp.F 82 COPY_ADVAR_OUTP 
             outFld(i,j,k,bi,bj) = inpFldRL(i,j,k,bi,bj)
./pkg/autodiff/global_sum_tile_ad.F 54 GLOBAL_ADSUM_TILE_RL 
      INTEGER bi,bj
./pkg/autodiff/global_sum_tile_ad.F 65 GLOBAL_ADSUM_TILE_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/autodiff/global_sum_tile_ad.F 67 GLOBAL_ADSUM_TILE_RL 
         adphiTile(bi,bj) = adphiTile(bi,bj) + tmp
./pkg/bbl/bbl_calc_rho.F 100 BBL_CALC_RHO 
     I      bbl_salt(1-OLx,1-OLy,bi,bj),
./pkg/bbl/bbl_calc_rho.F 101 BBL_CALC_RHO 
     O      bbl_rho_nr(1-OLx,1-OLy,bi,bj),
./pkg/bbl/bbl_calc_rho.F 102 BBL_CALC_RHO 
     I      Nr, bi, bj, myThid )
./pkg/bbl/bbl_calc_rho.F 12 BBL_CALC_RHO 
     I                k, bi, bj, myTime, myIter, myThid )
./pkg/bbl/bbl_calc_rho.F 56 BBL_CALC_RHO 
      INTEGER k, bi, bj
./pkg/bbl/bbl_calc_rho.F 73 BBL_CALC_RHO 
     I     tFld(1-OLx,1-OLy,k,bi,bj),
./pkg/bbl/bbl_calc_rho.F 74 BBL_CALC_RHO 
     I     sFld(1-OLx,1-OLy,k,bi,bj),
./pkg/bbl/bbl_calc_rho.F 75 BBL_CALC_RHO 
     O     rhoLoc(1-OLx,1-OLy,k,bi,bj),
./pkg/bbl/bbl_calc_rho.F 76 BBL_CALC_RHO 
     I     k, bi, bj, myThid )
./pkg/bbl/bbl_calc_rho.F 82 BBL_CALC_RHO 
     I     bbl_theta(1-OLx,1-OLy,bi,bj),
./pkg/bbl/bbl_calc_rho.F 83 BBL_CALC_RHO 
     I     bbl_salt(1-OLx,1-OLy,bi,bj),
./pkg/bbl/bbl_calc_rho.F 85 BBL_CALC_RHO 
     I     kl, bi, bj, myThid )
./pkg/bbl/bbl_calc_rho.F 90 BBL_CALC_RHO 
        IF ( k .GT. kLowC(i,j,bi,bj) )
./pkg/bbl/bbl_calc_rho.F 91 BBL_CALC_RHO 
     &       rhoLoc(i,j,k,bi,bj) = rBBL(i,j)
./pkg/bbl/bbl_calc_rho.F 99 BBL_CALC_RHO 
     I      bbl_theta(1-OLx,1-OLy,bi,bj),
./pkg/bbl/bbl_calc_rhs.F 110 BBL_CALC_RHS 
          kBot = kLowC(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 114 BBL_CALC_RHS 
     &            bbl_eta(i,j,bi,bj) = max ( 0. _d 0 ,
./pkg/bbl/bbl_calc_rhs.F 115 BBL_CALC_RHS 
     &            bbl_eta(i,j,bi,bj) - bbl_wvel * dTtracerLev(kBot) )
./pkg/bbl/bbl_calc_rhs.F 118 BBL_CALC_RHS 
     &          bbl_eta(i,j,bi,bj) .EQ. 0. _d 0 ) THEN
./pkg/bbl/bbl_calc_rhs.F 119 BBL_CALC_RHS 
            bbl_theta(i,j,bi,bj) = tLoc(i,j)
./pkg/bbl/bbl_calc_rhs.F 120 BBL_CALC_RHS 
            bbl_salt (i,j,bi,bj) = sLoc(i,j)
./pkg/bbl/bbl_calc_rhs.F 121 BBL_CALC_RHS 
            bbl_eta  (i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 130 BBL_CALC_RHS 
         kLowC1 = kLowC(i,j  ,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 131 BBL_CALC_RHS 
         kLowC2 = kLowC(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 138 BBL_CALC_RHS 
          deltaDpt = R_low(i,j,bi,bj)   + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 139 BBL_CALC_RHS 
     &               R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 142 BBL_CALC_RHS 
            bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 144 BBL_CALC_RHS 
            bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 146 BBL_CALC_RHS 
           bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 148 BBL_CALC_RHS 
           bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 150 BBL_CALC_RHS 
            bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 152 BBL_CALC_RHS 
            bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 170 BBL_CALC_RHS 
           thk_d = drF(kLowC(i,d,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 171 BBL_CALC_RHS 
     &          hFacC(i,d,kLowC(i,d,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 172 BBL_CALC_RHS 
           IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 173 BBL_CALC_RHS 
     &          ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 174 BBL_CALC_RHS 
     &          ( bbl_eta  (i,d,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 175 BBL_CALC_RHS 
     &          bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 178 BBL_CALC_RHS 
           thk_r      = drF(kLowC(i,r,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 179 BBL_CALC_RHS 
     &                  hFacC(i,r,kLowC(i,r,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 182 BBL_CALC_RHS 
           bblTheta_d = bbl_theta(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 183 BBL_CALC_RHS 
           bblTheta_r = bbl_theta(i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 184 BBL_CALC_RHS 
           bblSalt_d  = bbl_salt (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 185 BBL_CALC_RHS 
           bblSalt_r  = bbl_salt (i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 186 BBL_CALC_RHS 
           bblEta_d   = bbl_eta  (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 187 BBL_CALC_RHS 
           bblEta_r   = bbl_eta  (i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 193 BBL_CALC_RHS 
           dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 194 BBL_CALC_RHS 
     &          resThk_r * rA(i,r,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 195 BBL_CALC_RHS 
     &          dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F 199 BBL_CALC_RHS 
           bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 200 BBL_CALC_RHS 
     &                                bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 201 BBL_CALC_RHS 
           bbl_TendTheta(i,r,bi,bj) = bbl_TendTheta(i,r,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 202 BBL_CALC_RHS 
     &                                bbl_tend / rA(i,r,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 206 BBL_CALC_RHS 
           bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 207 BBL_CALC_RHS 
     &                               bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 208 BBL_CALC_RHS 
           bbl_TendSalt(i,r,bi,bj) = bbl_TendSalt(i,r,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 209 BBL_CALC_RHS 
     &                               bbl_tend / rA(i,r,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 212 BBL_CALC_RHS 
           bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 213 BBL_CALC_RHS 
           IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 214 BBL_CALC_RHS 
            bbl_eta(i,d,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 215 BBL_CALC_RHS 
            bbl_theta(i,d,bi,bj) = tLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 216 BBL_CALC_RHS 
            bbl_salt (i,d,bi,bj) = sLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 218 BBL_CALC_RHS 
           bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 219 BBL_CALC_RHS 
           bbl_theta(i,r,bi,bj) = ( dVol * bblTheta_d +
./pkg/bbl/bbl_calc_rhs.F 220 BBL_CALC_RHS 
     &          bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) /
./pkg/bbl/bbl_calc_rhs.F 221 BBL_CALC_RHS 
     &          ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 222 BBL_CALC_RHS 
           bbl_salt(i,r,bi,bj)  = ( dVol * bblSalt_d  +
./pkg/bbl/bbl_calc_rhs.F 223 BBL_CALC_RHS 
     &          bblEta_r * rA(i,r,bi,bj) * bblSalt_r  ) /
./pkg/bbl/bbl_calc_rhs.F 224 BBL_CALC_RHS 
     &          ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 232 BBL_CALC_RHS 
          kLowC1 = kLowC(i,j  ,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 233 BBL_CALC_RHS 
          kLowC2 = kLowC(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 240 BBL_CALC_RHS 
           deltaDpt = R_low(i,j,bi,bj)   + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 241 BBL_CALC_RHS 
     &                R_low(i,j+1,bi,bj) - bbl_eta(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 244 BBL_CALC_RHS 
             bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 246 BBL_CALC_RHS 
             bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 248 BBL_CALC_RHS 
            bbl_rho2 = rhoInSitu(i,j+1,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 250 BBL_CALC_RHS 
            bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 252 BBL_CALC_RHS 
             bbl_rho2 = bbl_rho_nr(i,j+1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 254 BBL_CALC_RHS 
             bbl_rho2 = rhoInSitu(i,j+1,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 272 BBL_CALC_RHS 
            thk_d = drF(kLowC(i,d,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 273 BBL_CALC_RHS 
     &              hFacC(i,d,kLowC(i,d,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 274 BBL_CALC_RHS 
            IF ( ( bbl_theta(i,d,bi,bj) .EQ. tloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 275 BBL_CALC_RHS 
     &           ( bbl_salt (i,d,bi,bj) .EQ. sloc(i,d) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 276 BBL_CALC_RHS 
     &           ( bbl_eta  (i,d,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 277 BBL_CALC_RHS 
     &           bbl_eta(i,d,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 280 BBL_CALC_RHS 
            thk_r      = drF(kLowC(i,r,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 281 BBL_CALC_RHS 
     &                   hFacC(i,r,kLowC(i,r,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 284 BBL_CALC_RHS 
            bblTheta_d = bbl_theta(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 285 BBL_CALC_RHS 
            bblTheta_r = bbl_theta(i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 286 BBL_CALC_RHS 
            bblSalt_d  = bbl_salt (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 287 BBL_CALC_RHS 
            bblSalt_r  = bbl_salt (i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 288 BBL_CALC_RHS 
            bblEta_d   = bbl_eta  (i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 289 BBL_CALC_RHS 
            bblEta_r   = bbl_eta  (i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 295 BBL_CALC_RHS 
            dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 296 BBL_CALC_RHS 
     &           resThk_r * rA(i,r,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 297 BBL_CALC_RHS 
     &           dxG(i,j+1,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F 301 BBL_CALC_RHS 
            bbl_TendTheta(i,d,bi,bj) = bbl_TendTheta(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 302 BBL_CALC_RHS 
     &                                 bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 303 BBL_CALC_RHS 
            bbl_TendTheta(i,r,bi,bj) = bbl_TendTheta(i,r,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 304 BBL_CALC_RHS 
     &                                 bbl_tend / rA(i,r,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 308 BBL_CALC_RHS 
            bbl_TendSalt(i,d,bi,bj) = bbl_TendSalt(i,d,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 309 BBL_CALC_RHS 
     &                                bbl_tend / rA(i,d,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 310 BBL_CALC_RHS 
            bbl_TendSalt(i,r,bi,bj) = bbl_TendSalt(i,r,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 311 BBL_CALC_RHS 
     &                                bbl_tend / rA(i,r,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 314 BBL_CALC_RHS 
            bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 315 BBL_CALC_RHS 
            IF ( bbl_eta(i,d,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 316 BBL_CALC_RHS 
             bbl_eta(i,d,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 317 BBL_CALC_RHS 
             bbl_theta(i,d,bi,bj) = tLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 318 BBL_CALC_RHS 
             bbl_salt (i,d,bi,bj) = sLoc(i,d)
./pkg/bbl/bbl_calc_rhs.F 320 BBL_CALC_RHS 
            bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 321 BBL_CALC_RHS 
            bbl_theta(i,r,bi,bj) = ( dVol * bblTheta_d +
./pkg/bbl/bbl_calc_rhs.F 322 BBL_CALC_RHS 
     &           bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) /
./pkg/bbl/bbl_calc_rhs.F 323 BBL_CALC_RHS 
     &           ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 324 BBL_CALC_RHS 
            bbl_salt(i,r,bi,bj)  = ( dVol * bblSalt_d  +
./pkg/bbl/bbl_calc_rhs.F 325 BBL_CALC_RHS 
     &           bblEta_r * rA(i,r,bi,bj) * bblSalt_r  ) /
./pkg/bbl/bbl_calc_rhs.F 326 BBL_CALC_RHS 
     &           ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 335 BBL_CALC_RHS 
         kLowC1 = kLowC(i  ,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 336 BBL_CALC_RHS 
         kLowC2 = kLowC(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 343 BBL_CALC_RHS 
          deltaDpt = R_low(i,j,bi,bj)   + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 344 BBL_CALC_RHS 
     &               R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 347 BBL_CALC_RHS 
            bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 349 BBL_CALC_RHS 
            bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 351 BBL_CALC_RHS 
           bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 353 BBL_CALC_RHS 
           bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 355 BBL_CALC_RHS 
            bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 357 BBL_CALC_RHS 
            bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 375 BBL_CALC_RHS 
           thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 376 BBL_CALC_RHS 
     &             hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 377 BBL_CALC_RHS 
           IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 378 BBL_CALC_RHS 
     &          ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 379 BBL_CALC_RHS 
     &          ( bbl_eta  (d,j,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 380 BBL_CALC_RHS 
     &          bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 383 BBL_CALC_RHS 
           thk_r      = drF(kLowC(r,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 384 BBL_CALC_RHS 
     &                  hFacC(r,j,kLowC(r,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 387 BBL_CALC_RHS 
           bblTheta_d = bbl_theta(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 388 BBL_CALC_RHS 
           bblTheta_r = bbl_theta(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 389 BBL_CALC_RHS 
           bblSalt_d  = bbl_salt (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 390 BBL_CALC_RHS 
           bblSalt_r  = bbl_salt (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 391 BBL_CALC_RHS 
           bblEta_d   = bbl_eta  (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 392 BBL_CALC_RHS 
           bblEta_r   = bbl_eta  (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 398 BBL_CALC_RHS 
           dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 399 BBL_CALC_RHS 
     &          resThk_r * rA(r,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 400 BBL_CALC_RHS 
     &          dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F 404 BBL_CALC_RHS 
           bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 405 BBL_CALC_RHS 
     &                                bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 406 BBL_CALC_RHS 
           bbl_TendTheta(r,j,bi,bj) = bbl_TendTheta(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 407 BBL_CALC_RHS 
     &                                bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 411 BBL_CALC_RHS 
           bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 412 BBL_CALC_RHS 
     &                               bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 413 BBL_CALC_RHS 
           bbl_TendSalt(r,j,bi,bj) = bbl_TendSalt(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 414 BBL_CALC_RHS 
     &                               bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 417 BBL_CALC_RHS 
           bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 418 BBL_CALC_RHS 
           IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 419 BBL_CALC_RHS 
            bbl_eta(d,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 420 BBL_CALC_RHS 
            bbl_theta(d,j,bi,bj) = tLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 421 BBL_CALC_RHS 
            bbl_salt (d,j,bi,bj) = sLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 423 BBL_CALC_RHS 
           bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 424 BBL_CALC_RHS 
           bbl_theta(r,j,bi,bj) = ( dVol * bblTheta_d +
./pkg/bbl/bbl_calc_rhs.F 425 BBL_CALC_RHS 
     &          bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) /
./pkg/bbl/bbl_calc_rhs.F 426 BBL_CALC_RHS 
     &          ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 427 BBL_CALC_RHS 
           bbl_salt(r,j,bi,bj)  = ( dVol * bblSalt_d  +
./pkg/bbl/bbl_calc_rhs.F 428 BBL_CALC_RHS 
     &          bblEta_r * rA(r,j,bi,bj) * bblSalt_r  ) /
./pkg/bbl/bbl_calc_rhs.F 429 BBL_CALC_RHS 
     &          ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 437 BBL_CALC_RHS 
          kLowC1 = kLowC(i  ,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 438 BBL_CALC_RHS 
          kLowC2 = kLowC(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 445 BBL_CALC_RHS 
           deltaDpt = R_low(i,j,bi,bj)   + bbl_eta(i,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 446 BBL_CALC_RHS 
     &                R_low(i+1,j,bi,bj) - bbl_eta(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 449 BBL_CALC_RHS 
             bbl_rho1 = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 451 BBL_CALC_RHS 
             bbl_rho1 = rhoInSitu(i,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 453 BBL_CALC_RHS 
            bbl_rho2 = rhoInSitu(i+1,j,kLowC2,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 455 BBL_CALC_RHS 
            bbl_rho1 = rhoInSitu(i,j,kLowC1,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 457 BBL_CALC_RHS 
             bbl_rho2 = bbl_rho_nr(i+1,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 459 BBL_CALC_RHS 
             bbl_rho2 = rhoInSitu(i+1,j,kl,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 477 BBL_CALC_RHS 
            thk_d = drF(kLowC(d,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 478 BBL_CALC_RHS 
     &              hFacC(d,j,kLowC(d,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 479 BBL_CALC_RHS 
            IF ( ( bbl_theta(d,j,bi,bj) .EQ. tloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 480 BBL_CALC_RHS 
     &           ( bbl_salt (d,j,bi,bj) .EQ. sloc(d,j) ) .AND.
./pkg/bbl/bbl_calc_rhs.F 481 BBL_CALC_RHS 
     &           ( bbl_eta  (d,j,bi,bj) .LT. bbl_initEta ) )
./pkg/bbl/bbl_calc_rhs.F 482 BBL_CALC_RHS 
     &           bbl_eta(d,j,bi,bj) = min ( bbl_initEta, thk_d )
./pkg/bbl/bbl_calc_rhs.F 485 BBL_CALC_RHS 
            thk_r      = drF(kLowC(r,j,bi,bj)) *
./pkg/bbl/bbl_calc_rhs.F 486 BBL_CALC_RHS 
     &                   hFacC(r,j,kLowC(r,j,bi,bj),bi,bj)
./pkg/bbl/bbl_calc_rhs.F 489 BBL_CALC_RHS 
            bblTheta_d = bbl_theta(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 490 BBL_CALC_RHS 
            bblTheta_r = bbl_theta(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 491 BBL_CALC_RHS 
            bblSalt_d  = bbl_salt (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 492 BBL_CALC_RHS 
            bblSalt_r  = bbl_salt (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 493 BBL_CALC_RHS 
            bblEta_d   = bbl_eta  (d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 494 BBL_CALC_RHS 
            bblEta_r   = bbl_eta  (r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 500 BBL_CALC_RHS 
            dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 501 BBL_CALC_RHS 
     &           resThk_r * rA(r,j,bi,bj) / 2. _d 0,
./pkg/bbl/bbl_calc_rhs.F 502 BBL_CALC_RHS 
     &           dxG(i+1,j,bi,bj) * bblEta_d * bbl_hvel * deltaT )
./pkg/bbl/bbl_calc_rhs.F 506 BBL_CALC_RHS 
            bbl_TendTheta(d,j,bi,bj) = bbl_TendTheta(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 507 BBL_CALC_RHS 
     &                                 bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 508 BBL_CALC_RHS 
            bbl_TendTheta(r,j,bi,bj) = bbl_TendTheta(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 509 BBL_CALC_RHS 
     &                                 bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 513 BBL_CALC_RHS 
            bbl_TendSalt(d,j,bi,bj) = bbl_TendSalt(d,j,bi,bj) -
./pkg/bbl/bbl_calc_rhs.F 514 BBL_CALC_RHS 
     &                                bbl_tend / rA(d,j,bi,bj) / thk_d
./pkg/bbl/bbl_calc_rhs.F 515 BBL_CALC_RHS 
            bbl_TendSalt(r,j,bi,bj) = bbl_TendSalt(r,j,bi,bj) +
./pkg/bbl/bbl_calc_rhs.F 516 BBL_CALC_RHS 
     &                                bbl_tend / rA(r,j,bi,bj) / thk_r
./pkg/bbl/bbl_calc_rhs.F 519 BBL_CALC_RHS 
            bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 520 BBL_CALC_RHS 
            IF ( bbl_eta(d,j,bi,bj) .LT. 0.0001 ) THEN
./pkg/bbl/bbl_calc_rhs.F 521 BBL_CALC_RHS 
             bbl_eta(d,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 522 BBL_CALC_RHS 
             bbl_theta(d,j,bi,bj) = tLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 523 BBL_CALC_RHS 
             bbl_salt (d,j,bi,bj) = sLoc(d,j)
./pkg/bbl/bbl_calc_rhs.F 525 BBL_CALC_RHS 
            bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 526 BBL_CALC_RHS 
            bbl_theta(r,j,bi,bj) = ( dVol * bblTheta_d +
./pkg/bbl/bbl_calc_rhs.F 527 BBL_CALC_RHS 
     &           bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) /
./pkg/bbl/bbl_calc_rhs.F 528 BBL_CALC_RHS 
     &           ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 529 BBL_CALC_RHS 
            bbl_salt(r,j,bi,bj)  = ( dVol * bblSalt_d  +
./pkg/bbl/bbl_calc_rhs.F 530 BBL_CALC_RHS 
     &           bblEta_r * rA(r,j,bi,bj) * bblSalt_r  ) /
./pkg/bbl/bbl_calc_rhs.F 531 BBL_CALC_RHS 
     &           ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) )
./pkg/bbl/bbl_calc_rhs.F 65 BBL_CALC_RHS 
      INTEGER bi, bj
./pkg/bbl/bbl_calc_rhs.F 79 BBL_CALC_RHS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/bbl/bbl_calc_rhs.F 87 BBL_CALC_RHS 
          bbl_TendTheta(i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 88 BBL_CALC_RHS 
          bbl_TendSalt (i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_calc_rhs.F 89 BBL_CALC_RHS 
          kBot        = max(1,kLowC(i,j,bi,bj))
./pkg/bbl/bbl_calc_rhs.F 90 BBL_CALC_RHS 
          tLoc(i,j)   = theta(i,j,kBot,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 91 BBL_CALC_RHS 
          sLoc(i,j)   = salt (i,j,kBot,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 92 BBL_CALC_RHS 
          rholoc(i,j) = rhoInSitu(i,j,kBot,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 94 BBL_CALC_RHS 
           rhoBBL(i,j) = bbl_rho_nr(i,j,bi,bj)
./pkg/bbl/bbl_calc_rhs.F 96 BBL_CALC_RHS 
           rhoBBL(i,j) = rhoInSitu(i,j,kBot+1,bi,bj)
./pkg/bbl/bbl_init_varia.F 34 BBL_INIT_VARIA 
      INTEGER i,j,bi,bj,kBot
./pkg/bbl/bbl_init_varia.F 37 BBL_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/bbl/bbl_init_varia.F 41 BBL_INIT_VARIA 
          kBot = max(1,kLowC(i,j,bi,bj))
./pkg/bbl/bbl_init_varia.F 42 BBL_INIT_VARIA 
          bbl_theta(i,j,bi,bj)     = theta(i,j,kBot,bi,bj)
./pkg/bbl/bbl_init_varia.F 43 BBL_INIT_VARIA 
          bbl_salt (i,j,bi,bj)     = salt (i,j,kBot,bi,bj)
./pkg/bbl/bbl_init_varia.F 44 BBL_INIT_VARIA 
          bbl_eta(i,j,bi,bj)       = 0. _d 0
./pkg/bbl/bbl_init_varia.F 45 BBL_INIT_VARIA 
          bbl_TendTheta(i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_init_varia.F 46 BBL_INIT_VARIA 
          bbl_TendSalt (i,j,bi,bj) = 0. _d 0
./pkg/bbl/bbl_tendency_apply.F 107 BBL_TENDENCY_APPLY_S 
        IF ( k .EQ. kLowC(i,j,bi,bj) )
./pkg/bbl/bbl_tendency_apply.F 109 BBL_TENDENCY_APPLY_S 
     &       + maskC(i,j,k,bi,bj) * bbl_TendSalt(i,j,bi,bj)
./pkg/bbl/bbl_tendency_apply.F 17 BBL_TENDENCY_APPLY_T 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/bbl/bbl_tendency_apply.F 43 BBL_TENDENCY_APPLY_T 
      INTEGER k, bi, bj
./pkg/bbl/bbl_tendency_apply.F 54 BBL_TENDENCY_APPLY_T 
         IF ( k .EQ. kLowC(i,j,bi,bj) )
./pkg/bbl/bbl_tendency_apply.F 56 BBL_TENDENCY_APPLY_T 
     &       + maskC(i,j,k,bi,bj) * bbl_TendTheta(i,j,bi,bj)
./pkg/bbl/bbl_tendency_apply.F 70 BBL_TENDENCY_APPLY_S 
     I                     iMin,iMax,jMin,jMax, k, bi, bj,
./pkg/bbl/bbl_tendency_apply.F 96 BBL_TENDENCY_APPLY_S 
      INTEGER k, bi, bj
./pkg/bulk_force/bulkf_ave.F 31 BULKF_AVE 
      INTEGER bi,bj
./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_ave.F 70 BULKF_AVE 
      BULK_timeAve(bi,bj) = BULK_timeAve(bi,bj)+deltaTclock
./pkg/bulk_force/bulkf_ave.F 9 BULKF_AVE 
      SUBROUTINE BULKF_AVE(bi,bj,myThid)
./pkg/bulk_force/bulkf_fields_load.F 123 BULKF_FIELDS_LOAD 
      INTEGER bi, bj, i, j
./pkg/bulk_force/bulkf_fields_load.F 130 BULKF_FIELDS_LOAD 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/bulk_force/bulkf_fields_load.F 132 BULKF_FIELDS_LOAD 
           bulkfRec(bi,bj) = 0
./pkg/bulk_force/bulkf_fields_load.F 135 BULKF_FIELDS_LOAD 
              tair0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 136 BULKF_FIELDS_LOAD 
              tair1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 137 BULKF_FIELDS_LOAD 
              qair0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 138 BULKF_FIELDS_LOAD 
              qair1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 139 BULKF_FIELDS_LOAD 
              rain0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 140 BULKF_FIELDS_LOAD 
              rain1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 141 BULKF_FIELDS_LOAD 
              solar0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 142 BULKF_FIELDS_LOAD 
              solar1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 143 BULKF_FIELDS_LOAD 
              flwdwn0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 144 BULKF_FIELDS_LOAD 
              flwdwn1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 145 BULKF_FIELDS_LOAD 
              cloud0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 146 BULKF_FIELDS_LOAD 
              cloud1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 147 BULKF_FIELDS_LOAD 
              wspeed0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 148 BULKF_FIELDS_LOAD 
              wspeed1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 149 BULKF_FIELDS_LOAD 
              uwind0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 150 BULKF_FIELDS_LOAD 
              uwind1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 151 BULKF_FIELDS_LOAD 
              vwind0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 152 BULKF_FIELDS_LOAD 
              vwind1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 153 BULKF_FIELDS_LOAD 
              runoff0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 154 BULKF_FIELDS_LOAD 
              runoff1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 155 BULKF_FIELDS_LOAD 
              snow0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 156 BULKF_FIELDS_LOAD 
              snow1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 158 BULKF_FIELDS_LOAD 
              thAir0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 159 BULKF_FIELDS_LOAD 
              thAir1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 161 BULKF_FIELDS_LOAD 
              qnetch0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 162 BULKF_FIELDS_LOAD 
              qnetch1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 163 BULKF_FIELDS_LOAD 
              empch0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 164 BULKF_FIELDS_LOAD 
              empch1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 178 BULKF_FIELDS_LOAD 
      bj = myByLo(myThid)
./pkg/bulk_force/bulkf_fields_load.F 184 BULKF_FIELDS_LOAD 
     &   ' : iP,iLd,i0,i1=', intimeP,bulkfRec(bi,bj), intime0,intime1,
./pkg/bulk_force/bulkf_fields_load.F 192 BULKF_FIELDS_LOAD 
      IF ( intime1.NE.bulkfRec(bi,bj) ) THEN
./pkg/bulk_force/bulkf_fields_load.F 203 BULKF_FIELDS_LOAD 
     &    ' (prev=', intimeP, bulkfRec(bi,bj), ' )'
./pkg/bulk_force/bulkf_fields_load.F 299 BULKF_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/bulk_force/bulkf_fields_load.F 303 BULKF_FIELDS_LOAD 
            empch0(i,j,bi,bj) = empch0(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F 304 BULKF_FIELDS_LOAD 
            empch1(i,j,bi,bj) = empch1(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_fields_load.F 351 BULKF_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/bulk_force/bulkf_fields_load.F 353 BULKF_FIELDS_LOAD 
           bulkfRec(bi,bj) = intime1
./pkg/bulk_force/bulkf_fields_load.F 361 BULKF_FIELDS_LOAD 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/bulk_force/bulkf_fields_load.F 367 BULKF_FIELDS_LOAD 
          TAIR(i,j,bi,bj)   = bWght*tair0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 368 BULKF_FIELDS_LOAD 
     &                       +aWght*tair1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 372 BULKF_FIELDS_LOAD 
          QAIR(i,j,bi,bj)    =(bWght*qair0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 373 BULKF_FIELDS_LOAD 
     &                        +aWght*qair1(i,j,bi,bj) )
./pkg/bulk_force/bulkf_fields_load.F 374 BULKF_FIELDS_LOAD 
          SOLAR(i,j,bi,bj)   = bWght*solar0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 375 BULKF_FIELDS_LOAD 
     &                        +aWght*solar1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 376 BULKF_FIELDS_LOAD 
          FLWDWN(i,j,bi,bj)  = bWght*flwdwn0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 377 BULKF_FIELDS_LOAD 
     &                        +aWght*flwdwn1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 378 BULKF_FIELDS_LOAD 
          CLOUD(i,j,bi,bj)   = bWght*cloud0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 379 BULKF_FIELDS_LOAD 
     &                        +aWght*cloud1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 380 BULKF_FIELDS_LOAD 
          WSPEED(i,j,bi,bj)  = bWght*wspeed0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 381 BULKF_FIELDS_LOAD 
     &                        +aWght*wspeed1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 382 BULKF_FIELDS_LOAD 
          UWIND(i,j,bi,bj)   = bWght*uwind0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 383 BULKF_FIELDS_LOAD 
     &                        +aWght*uwind1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 384 BULKF_FIELDS_LOAD 
          VWIND(i,j,bi,bj)   = bWght*vwind0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 385 BULKF_FIELDS_LOAD 
     &                        +aWght*vwind1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 386 BULKF_FIELDS_LOAD 
          RAIN(i,j,bi,bj)    = bWght*rain0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 387 BULKF_FIELDS_LOAD 
     &                        +aWght*rain1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 388 BULKF_FIELDS_LOAD 
          RUNOFF(i,j,bi,bj)  = bWght*runoff0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 389 BULKF_FIELDS_LOAD 
     &                        +aWght*runoff1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 394 BULKF_FIELDS_LOAD 
          Qnetch(i,j,bi,bj)  = bWght*qnetch0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 395 BULKF_FIELDS_LOAD 
     &                        +aWght*qnetch1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 396 BULKF_FIELDS_LOAD 
          EmPch(i,j,bi,bj)   = bWght*empch0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 397 BULKF_FIELDS_LOAD 
     &                        +aWght*empch1(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 404 BULKF_FIELDS_LOAD 
            thAir(i,j,bi,bj)  = bWght*thAir0(i,j,bi,bj)
./pkg/bulk_force/bulkf_fields_load.F 405 BULKF_FIELDS_LOAD 
     &                        + aWght*thAir1(i,j,bi,bj)
./pkg/bulk_force/bulkf_flux_adjust.F 10 BULKF_FLUX_ADJUST 
     I                              bi, bj, iMin, iMax, jMin, jMax,
./pkg/bulk_force/bulkf_flux_adjust.F 43 BULKF_FLUX_ADJUST 
      INTEGER bi,bj
./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 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 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 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 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 234 BULKF_FORCING 
             IF ( Tair(i,j,bi,bj).LE.Tf0kel ) THEN
./pkg/bulk_force/bulkf_forcing.F 235 BULKF_FORCING 
               Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 236 BULKF_FORCING 
     &              + Lfresh*rain(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_forcing.F 239 BULKF_FORCING 
               Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 241 BULKF_FORCING 
     &               *( Tair(i,j,bi,bj) - Tf0kel - temp_EvPrRn )
./pkg/bulk_force/bulkf_forcing.F 242 BULKF_FORCING 
     &               *rain(i,j,bi,bj)*rhoConstFresh
./pkg/bulk_force/bulkf_forcing.F 255 BULKF_FORCING 
              Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 256 BULKF_FORCING 
     &              + ( theta(i,j,ks,bi,bj) - temp_EvPrRn )
./pkg/bulk_force/bulkf_forcing.F 257 BULKF_FORCING 
     &               *( evap(i,j,bi,bj) - runoff(i,j,bi,bj) )
./pkg/bulk_force/bulkf_forcing.F 259 BULKF_FORCING 
              Qnet(i,j,bi,bj) = Qnet(i,j,bi,bj)*maskC(i,j,ks,bi,bj)
./pkg/bulk_force/bulkf_forcing.F 265 BULKF_FORCING 
     &     CALL BULKF_AVE( bi, bj, myThid )
./pkg/bulk_force/bulkf_forcing.F 62 BULKF_FORCING 
      INTEGER bi,bj
./pkg/bulk_force/bulkf_forcing.F 78 BULKF_FORCING 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 38 BULKF_INIT_VARIA 
      INTEGER bi, bj
./pkg/bulk_force/bulkf_init_varia.F 42 BULKF_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./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 63 BULKF_INIT_VARIA 
         BULK_timeAve(bi,bj) = 0. _d 0
./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 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/bulk_force/bulkf_output.F 108 BULKF_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/bulk_force/bulkf_output.F 110 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_Qnet_Ave,     1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 111 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_EmPmR_Ave,    1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 112 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_fu_Ave,       1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 113 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_fv_Ave,       1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 114 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_latent_Ave,   1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 115 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_sensible_Ave, 1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 116 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_evap_Ave,     1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 117 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_flwup_Ave,    1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 118 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_flwupnet_Ave, 1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 119 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_solar_Ave,    1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 120 BULKF_OUTPUT 
         CALL TIMEAVE_RESET( BULK_ssq_Ave,      1, bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 121 BULKF_OUTPUT 
         BULK_timeAve(bi,bj) = 0.
./pkg/bulk_force/bulkf_output.F 47 BULKF_OUTPUT 
      INTEGER bi, bj
./pkg/bulk_force/bulkf_output.F 55 BULKF_OUTPUT 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/bulk_force/bulkf_output.F 58 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 60 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 62 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 64 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 66 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 68 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 70 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 72 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 74 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 76 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/bulk_force/bulkf_output.F 78 BULKF_OUTPUT 
     &                           BULK_timeAve, 1 , bi, bj, myThid )
./pkg/cd_code/cd_code_ini_vars.F 23 CD_CODE_INI_VARS 
      INTEGER bi, bj
./pkg/cd_code/cd_code_ini_vars.F 30 CD_CODE_INI_VARS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cd_code/cd_code_ini_vars.F 37 CD_CODE_INI_VARS 
           uNM1(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 38 CD_CODE_INI_VARS 
           vNM1(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 39 CD_CODE_INI_VARS 
           uVeld(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 40 CD_CODE_INI_VARS 
           vVeld(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 48 CD_CODE_INI_VARS 
          etaNm1(I,J,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_scheme.F 103 CD_CODE_SCHEME 
     &   ab15*(  etaN(i,j,bi,bj)*Bo_surf(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 104 CD_CODE_SCHEME 
     &  +ab05*(etaNm1(i,j,bi,bj)*Bo_surf(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 106 CD_CODE_SCHEME 
        pf(i,j) = Bo_surf(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 107 CD_CODE_SCHEME 
     &          *( ab15*etaN(i,j,bi,bj) + ab05*etaNm1(i,j,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 11 CD_CODE_SCHEME 
     I        bi,bj,k, dPhiHydX,dPhiHydY, guFld,gvFld,
./pkg/cd_code/cd_code_scheme.F 120 CD_CODE_SCHEME 
     &          -( _recip_dyC(i,j,bi,bj)*(pf(i,j)-pf(i,j-1))
./pkg/cd_code/cd_code_scheme.F 122 CD_CODE_SCHEME 
     &        )*_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 124 CD_CODE_SCHEME 
     &         *maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 134 CD_CODE_SCHEME 
     &           *_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 135 CD_CODE_SCHEME 
     &          -( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 136 CD_CODE_SCHEME 
     &            +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 138 CD_CODE_SCHEME 
     &           *uVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 140 CD_CODE_SCHEME 
     &           *( ab15*uVel(i,j,k,bi,bj) + ab05*uNM1(i,j,k,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 147 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 153 CD_CODE_SCHEME 
         vVelD(i,j,k,bi,bj) = ( rCD*vVelD(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 156 CD_CODE_SCHEME 
     &                  (vVel(i,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 157 CD_CODE_SCHEME 
     &                 +(vVel(i-1,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 160 CD_CODE_SCHEME 
     &                  (vNM1(i,j,k,bi,bj)+vNM1(i-1,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 161 CD_CODE_SCHEME 
     &                 +(vNM1(i-1,j,k,bi,bj)+vNM1(i,j+1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 163 CD_CODE_SCHEME 
     &          )             )*_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 170 CD_CODE_SCHEME 
     &              ( _fCori( i, j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 171 CD_CODE_SCHEME 
     &               +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 172 CD_CODE_SCHEME 
     &              *vVelD(i,j,k,bi,bj)*cfFacMom
./pkg/cd_code/cd_code_scheme.F 182 CD_CODE_SCHEME 
     &          -( _recip_dxC(i,j,bi,bj)*(pf(i,j)-pf(i-1,j))
./pkg/cd_code/cd_code_scheme.F 184 CD_CODE_SCHEME 
     &        )*_maskW(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 186 CD_CODE_SCHEME 
     &         *maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 196 CD_CODE_SCHEME 
     &           *_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 197 CD_CODE_SCHEME 
     &          +( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 198 CD_CODE_SCHEME 
     &            +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 200 CD_CODE_SCHEME 
     &           *vVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 202 CD_CODE_SCHEME 
     &           *( ab15*vVel(i,j,k,bi,bj) + ab05*vNM1(i,j,k,bi,bj) )
./pkg/cd_code/cd_code_scheme.F 209 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 215 CD_CODE_SCHEME 
         uVelD(i,j,k,bi,bj) = ( rCD*uVelD(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 218 CD_CODE_SCHEME 
     &                  (uVel(i,j,k,bi,bj)+uVel(i+1,j-1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 219 CD_CODE_SCHEME 
     &                 +(uVel(i,j-1,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 222 CD_CODE_SCHEME 
     &                  (uNM1(i,j,k,bi,bj)+uNM1(i+1,j-1,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 223 CD_CODE_SCHEME 
     &                 +(uNM1(i,j-1,k,bi,bj)+uNM1(i+1,j,k,bi,bj))
./pkg/cd_code/cd_code_scheme.F 225 CD_CODE_SCHEME 
     &          )             )*_maskS(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 232 CD_CODE_SCHEME 
     &             -( _fCori(i, j, bi,bj)
./pkg/cd_code/cd_code_scheme.F 233 CD_CODE_SCHEME 
     &               +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 234 CD_CODE_SCHEME 
     &              *uVelD(i,j,k,bi,bj)*cfFacMom
./pkg/cd_code/cd_code_scheme.F 241 CD_CODE_SCHEME 
         uNM1(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 242 CD_CODE_SCHEME 
         vNM1(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/cd_code/cd_code_scheme.F 41 CD_CODE_SCHEME 
      INTEGER bi,bj,k
./pkg/cfc/cfc11_forcing.F 144 CFC11_FORCING 
          weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat
./pkg/cfc/cfc11_forcing.F 157 CFC11_FORCING 
     I                    bi, bj, iMin, iMax, jMin, jMax,
./pkg/cfc/cfc11_forcing.F 165 CFC11_FORCING 
     &     + fluxCFC11(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj)
./pkg/cfc/cfc11_forcing.F 21 CFC11_FORCING 
     I                          bi, bj, iMin, iMax, jMin, jMax,
./pkg/cfc/cfc11_forcing.F 51 CFC11_FORCING 
      INTEGER bi, bj
./pkg/cfc/cfc11_forcing.F 99 CFC11_FORCING 
     &      .AND. bi*bj.EQ.1 ) THEN
./pkg/cfc/cfc11_surfforcing.F 12 CFC11_SURFFORCING 
     I                          bi, bj, iMin, iMax, jMin, jMax,
./pkg/cfc/cfc11_surfforcing.F 45 CFC11_SURFFORCING 
      INTEGER bi, bj
./pkg/cfc/cfc11_surfforcing.F 70 CFC11_SURFFORCING 
           IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN
./pkg/cfc/cfc11_surfforcing.F 74 CFC11_SURFFORCING 
     &          + sca_11_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 75 CFC11_SURFFORCING 
     &          + sca_11_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 76 CFC11_SURFFORCING 
     &          + sca_11_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 77 CFC11_SURFFORCING 
     &                *theta(i,j,k,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 79 CFC11_SURFFORCING 
             ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc11_surfforcing.F 86 CFC11_SURFFORCING 
     &           +  Salt(i,j,k,bi,bj)* ttemp2 )
./pkg/cfc/cfc11_surfforcing.F 92 CFC11_SURFFORCING 
             Csat(i,j) = SolCFC11(i,j)*AtmosP(i,j,bi,bj)
./pkg/cfc/cfc11_surfforcing.F 94 CFC11_SURFFORCING 
             Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj))
./pkg/cfc/cfc11_surfforcing.F 95 CFC11_SURFFORCING 
     &                   * pisVel(i,j,bi,bj)
./pkg/cfc/cfc12_forcing.F 100 CFC12_FORCING 
     &      .AND. bi*bj.EQ.1 ) THEN
./pkg/cfc/cfc12_forcing.F 145 CFC12_FORCING 
          weight = ( yC(i,j,bi,bj) - atmCFC_ySouthBnd )*recip_dLat
./pkg/cfc/cfc12_forcing.F 158 CFC12_FORCING 
     I                    bi, bj, iMin, iMax, jMin, jMax,
./pkg/cfc/cfc12_forcing.F 166 CFC12_FORCING 
     &     + fluxCFC12(i,j)*recip_drF(1)*recip_hFacC(i,j,1,bi,bj)
./pkg/cfc/cfc12_forcing.F 21 CFC12_FORCING 
     I                          bi, bj, iMin, iMax, jMin, jMax,
./pkg/cfc/cfc12_forcing.F 52 CFC12_FORCING 
      INTEGER bi, bj
./pkg/cfc/cfc12_surfforcing.F 12 CFC12_SURFFORCING 
     I                          bi, bj, iMin, iMax, jMin, jMax,
./pkg/cfc/cfc12_surfforcing.F 45 CFC12_SURFFORCING 
      INTEGER bi, bj
./pkg/cfc/cfc12_surfforcing.F 70 CFC12_SURFFORCING 
           IF ( maskC(i,j,k,bi,bj).NE.zeroRS ) THEN
./pkg/cfc/cfc12_surfforcing.F 74 CFC12_SURFFORCING 
     &          + sca_12_2 * theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 75 CFC12_SURFFORCING 
     &          + sca_12_3 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 76 CFC12_SURFFORCING 
     &          + sca_12_4 * theta(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 77 CFC12_SURFFORCING 
     &                *theta(i,j,k,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 79 CFC12_SURFFORCING 
             ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc12_surfforcing.F 86 CFC12_SURFFORCING 
     &           +  Salt(i,j,k,bi,bj)* ttemp2 )
./pkg/cfc/cfc12_surfforcing.F 92 CFC12_SURFFORCING 
             Csat(i,j) = SolCFC12(i,j)*AtmosP(i,j,bi,bj)
./pkg/cfc/cfc12_surfforcing.F 94 CFC12_SURFFORCING 
             Kwexch(i,j) = (1. _d 0 - fIce(i,j,bi,bj))
./pkg/cfc/cfc12_surfforcing.F 95 CFC12_SURFFORCING 
     &                   * pisVel(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 105 CFC_FIELDS_LOAD 
       IF ( intime1.NE.CFC_ldRec(bi,bj) ) THEN
./pkg/cfc/cfc_fields_load.F 115 CFC_FIELDS_LOAD 
     &    ' (prev=', intimeP, CFC_ldRec(bi,bj), ' )'
./pkg/cfc/cfc_fields_load.F 153 CFC_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cfc/cfc_fields_load.F 155 CFC_FIELDS_LOAD 
           CFC_ldRec(bi,bj) = intime1
./pkg/cfc/cfc_fields_load.F 165 CFC_FIELDS_LOAD 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cfc/cfc_fields_load.F 174 CFC_FIELDS_LOAD 
             locWind(i,j) = sh(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 185 CFC_FIELDS_LOAD 
             locWind(i,j) = bWght*wind0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 186 CFC_FIELDS_LOAD 
     &                    + aWght*wind1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 192 CFC_FIELDS_LOAD 
             locWind(i,j) = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/cfc/cfc_fields_load.F 201 CFC_FIELDS_LOAD 
            pisVel(i,j,bi,bj)=(0.31 _d 0*locWind(i,j)**2)/3.6 _d 5
./pkg/cfc/cfc_fields_load.F 209 CFC_FIELDS_LOAD 
             ATMOSP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 210 CFC_FIELDS_LOAD 
     &                         + aWght*atmosp1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 216 CFC_FIELDS_LOAD 
             ATMOSP(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/cfc/cfc_fields_load.F 225 CFC_FIELDS_LOAD 
             FIce(I,J,bi,bj) = iceMask(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 233 CFC_FIELDS_LOAD 
             FIce(I,J,bi,bj) = AREA(I,J,bi,bj)
./pkg/cfc/cfc_fields_load.F 241 CFC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 242 CFC_FIELDS_LOAD 
     &                       + aWght*ice1(i,j,bi,bj)
./pkg/cfc/cfc_fields_load.F 248 CFC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = 0. _d 0
./pkg/cfc/cfc_fields_load.F 53 CFC_FIELDS_LOAD 
       INTEGER bi, bj, i, j
./pkg/cfc/cfc_fields_load.F 63 CFC_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cfc/cfc_fields_load.F 65 CFC_FIELDS_LOAD 
            CFC_ldRec(bi,bj) = 0
./pkg/cfc/cfc_fields_load.F 83 CFC_FIELDS_LOAD 
       bj = myByLo(myThid)
./pkg/cfc/cfc_fields_load.F 89 CFC_FIELDS_LOAD 
     &   ' : iP,iLd,i0,i1=', intimeP,CFC_ldRec(bi,bj), intime0,intime1,
./pkg/cheapaml/cheapaml.F 144 CHEAPAML 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 149 CHEAPAML 
                lsm (i,j) = 1-maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 158 CHEAPAML 
                sst_htf(i,j) = theta(i,j,1,bi,bj) + celsius2K
./pkg/cheapaml/cheapaml.F 160 CHEAPAML 
                u_htf(i,j) = uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 161 CHEAPAML 
                v_htf(i,j) = vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 162 CHEAPAML 
                q_htf(i,j) = qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 163 CHEAPAML 
                t_htf(i,j) = Tair(i,j,bi,bj) + celsius2K
./pkg/cheapaml/cheapaml.F 164 CHEAPAML 
                qisw(i,j) = solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 166 CHEAPAML 
                wspd_htf(i,j) = sqrt(uwind(i,j,bi,bj)**2
./pkg/cheapaml/cheapaml.F 167 CHEAPAML 
     &             + vwind(i,j,bi,bj)**2)
./pkg/cheapaml/cheapaml.F 205 CHEAPAML 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 211 CHEAPAML 
                qair(i,j,bi,bj) = qa(i,j)
./pkg/cheapaml/cheapaml.F 212 CHEAPAML 
                Tair(i,j,bi,bj) = th(i,j) - celsius2K
./pkg/cheapaml/cheapaml.F 213 CHEAPAML 
                SH_sauv(i,j,bi,bj) = sh(i,j)
./pkg/cheapaml/cheapaml.F 214 CHEAPAML 
                LH_sauv(i,j,bi,bj) = rlh(i,j)
./pkg/cheapaml/cheapaml.F 216 CHEAPAML 
                qair(i,j,bi,bj) = qr(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 217 CHEAPAML 
                Tair(i,j,bi,bj) = tr(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 229 CHEAPAML 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 234 CHEAPAML 
            Qnet(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F 235 CHEAPAML 
            EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/cheapaml/cheapaml.F 251 CHEAPAML 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 257 CHEAPAML 
             gTair(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml.F 258 CHEAPAML 
             uTrans(i,j)=uWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 259 CHEAPAML 
             vTrans(i,j)=vWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 263 CHEAPAML 
     I           bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy,
./pkg/cheapaml/cheapaml.F 274 CHEAPAML 
     I           bi, bj, 1, 1,
./pkg/cheapaml/cheapaml.F 275 CHEAPAML 
     U           gTair(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 276 CHEAPAML 
     U           gTairm(1-OLx,1-OLy,bi,bj), tmpFld,
./pkg/cheapaml/cheapaml.F 279 CHEAPAML 
     I           bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, deltaTtracer,
./pkg/cheapaml/cheapaml.F 291 CHEAPAML 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 295 CHEAPAML 
             gqair(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml.F 296 CHEAPAML 
             uTrans(i,j)=uWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 297 CHEAPAML 
             vTrans(i,j)=vWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 301 CHEAPAML 
     I           bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy,
./pkg/cheapaml/cheapaml.F 312 CHEAPAML 
     I           bi, bj, 1, 1,
./pkg/cheapaml/cheapaml.F 313 CHEAPAML 
     U           gqair(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 314 CHEAPAML 
     U           gqairm(1-OLx,1-OLy,bi,bj), tmpFld,
./pkg/cheapaml/cheapaml.F 317 CHEAPAML 
     I           bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, deltaTtracer,
./pkg/cheapaml/cheapaml.F 330 CHEAPAML 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 334 CHEAPAML 
             gCheaptracer(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml.F 335 CHEAPAML 
             uTrans(i,j)=uWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 336 CHEAPAML 
             vTrans(i,j)=vWind(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 340 CHEAPAML 
     I           bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy,
./pkg/cheapaml/cheapaml.F 351 CHEAPAML 
     I           bi, bj, 1, 1,
./pkg/cheapaml/cheapaml.F 352 CHEAPAML 
     U           gCheaptracer(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 353 CHEAPAML 
     U           gCheaptracerm(1-OLx,1-OLy,bi,bj), tmpFld,
./pkg/cheapaml/cheapaml.F 356 CHEAPAML 
     I           bi, bj, 1-OLx,sNx+OLx, 1-OLy,sNy+OLy, deltaTtracer,
./pkg/cheapaml/cheapaml.F 369 CHEAPAML 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 373 CHEAPAML 
     I                   Tr(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 374 CHEAPAML 
     U                   Tair(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 375 CHEAPAML 
     I                   bi, bj, myIter, myThid )
./pkg/cheapaml/cheapaml.F 379 CHEAPAML 
     I                   qr(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 380 CHEAPAML 
     U                   qair(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 381 CHEAPAML 
     I                   bi, bj, myIter, myThid )
./pkg/cheapaml/cheapaml.F 386 CHEAPAML 
     I                   CheaptracerR(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 387 CHEAPAML 
     U                   Cheaptracer(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 388 CHEAPAML 
     I                   bi, bj, myIter, myThid )
./pkg/cheapaml/cheapaml.F 411 CHEAPAML 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 416 CHEAPAML 
            surfDrag(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml.F 417 CHEAPAML 
            uRelWind(i,j) = uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 418 CHEAPAML 
            vRelWind(i,j) = vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 437 CHEAPAML 
     I                    solar(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 438 CHEAPAML 
     I                    cheapdlongwave(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 439 CHEAPAML 
     I                    uWind(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 440 CHEAPAML 
     I                    vWind(1-OLx,1-OLy,bi,bj), lath,
./pkg/cheapaml/cheapaml.F 442 CHEAPAML 
     O                    Tsurf, iceFrac, Qsw(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 443 CHEAPAML 
     I                    bi, bj, myTime, myIter, myThid )
./pkg/cheapaml/cheapaml.F 447 CHEAPAML 
     I                      i, j, bi, bj, 0,
./pkg/cheapaml/cheapaml.F 448 CHEAPAML 
     I                      theta(1-OLx,1-OLy,1,bi,bj), windSq,
./pkg/cheapaml/cheapaml.F 451 CHEAPAML 
     O                      surfDrag(i,j,bi,bj),
./pkg/cheapaml/cheapaml.F 454 CHEAPAML 
              Qnet(i,j,bi,bj) = (
./pkg/cheapaml/cheapaml.F 455 CHEAPAML 
     &                           -solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 456 CHEAPAML 
     &                           +xolw0 - cheapdlongwave(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 459 CHEAPAML 
     &                          )*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 460 CHEAPAML 
              EmPmR(i,j,bi,bj) = evp_0
./pkg/cheapaml/cheapaml.F 464 CHEAPAML 
              Qsw(i,j,bi,bj) = - ( icFrac*Qsw(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 465 CHEAPAML 
     &                           + opFrac*solar(i,j,bi,bj) )
./pkg/cheapaml/cheapaml.F 480 CHEAPAML 
     I                      i, j, bi, bj,
./pkg/cheapaml/cheapaml.F 485 CHEAPAML 
     I                      i, j, bi, bj, 0,
./pkg/cheapaml/cheapaml.F 486 CHEAPAML 
     I                      theta(1-OLx,1-OLy,1,bi,bj), windSq,
./pkg/cheapaml/cheapaml.F 489 CHEAPAML 
     O                      surfDrag(i,j,bi,bj),
./pkg/cheapaml/cheapaml.F 494 CHEAPAML 
              EmPmR(i,j,bi,bj) = evp(i,j)
./pkg/cheapaml/cheapaml.F 504 CHEAPAML 
           ttt = Tair(i,j,bi,bj)-gamma_blk*(CheapHgrid(i,j,bi,bj)-zt)
./pkg/cheapaml/cheapaml.F 506 CHEAPAML 
           xalwu = stefan*(0.5*Tair(i,j,bi,bj)+0.5*ttt+celsius2K)**4
./pkg/cheapaml/cheapaml.F 509 CHEAPAML 
           xalwd = stefan*(Tair(i,j,bi,bj)+celsius2K)**4*0.5 _d 0
./pkg/cheapaml/cheapaml.F 511 CHEAPAML 
           xflu = ( -solar(i,j,bi,bj) + xalwu + flha(i,j)
./pkg/cheapaml/cheapaml.F 512 CHEAPAML 
     &            )*xef*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 514 CHEAPAML 
           xfld = ( -solar(i,j,bi,bj) - xalwd + xolw(i,j)
./pkg/cheapaml/cheapaml.F 516 CHEAPAML 
     &            )*xef*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 519 CHEAPAML 
             xlwnet = xolw(i,j)-cheapdlongwave(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 524 CHEAPAML 
             xlwnet = 0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**4
./pkg/cheapaml/cheapaml.F 525 CHEAPAML 
     &        *(0.39 _d 0 - 0.05 _d 0*SQRT(qair(i,j,bi,bj)*1607.7 _d 0))
./pkg/cheapaml/cheapaml.F 526 CHEAPAML 
     &        *( oneRL - (halfRL+ABS(yG(i,j,bi,bj))/230. _d 0)
./pkg/cheapaml/cheapaml.F 527 CHEAPAML 
     &                   *cheapclouds(i,j,bi,bj)**2 )
./pkg/cheapaml/cheapaml.F 528 CHEAPAML 
     &        + 4.0*0.98 _d 0*stefan*(theta(i,j,1,bi,bj)+celsius2K)**3
./pkg/cheapaml/cheapaml.F 529 CHEAPAML 
     &          *(theta(i,j,1,bi,bj)-Tair(i,j,bi,bj))
./pkg/cheapaml/cheapaml.F 53 CHEAPAML 
      INTEGER bi,bj
./pkg/cheapaml/cheapaml.F 541 CHEAPAML 
           gTair(i,j,bi,bj)= (xfld-xflu)/CheapHgrid(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 543 CHEAPAML 
            Qnet(i,j,bi,bj) = (
./pkg/cheapaml/cheapaml.F 544 CHEAPAML 
     &                         -solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 551 CHEAPAML 
     &                        )*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 552 CHEAPAML 
             Qsw(i,j,bi,bj) = -solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 562 CHEAPAML 
            ts=Tair(i,j,bi,bj)+gamma_blk*zt+celsius2K
./pkg/cheapaml/cheapaml.F 563 CHEAPAML 
            pt=p0*(1-gamma_blk*CheapHgrid(i,j,bi,bj)/ts)
./pkg/cheapaml/cheapaml.F 570 CHEAPAML 
            IF ( wWind(i,j,bi,bj).GT.0. .AND.
./pkg/cheapaml/cheapaml.F 574 CHEAPAML 
     &                 *(wWind(i,j,bi,bj)/0.75 _d -5)**2
./pkg/cheapaml/cheapaml.F 582 CHEAPAML 
            cheapPrecip(i,j,bi,bj) = precip*1200/CheapHgrid(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 586 CHEAPAML 
            gqair(i,j,bi,bj) = (evp(i,j)-entrain)/CheapHgrid(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 587 CHEAPAML 
     &                        /rhoa*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 588 CHEAPAML 
            EmPmR(i,j,bi,bj) = ( EmPmR(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 589 CHEAPAML 
     &                          -cheapPrecip(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 590 CHEAPAML 
     &                         )*maskC(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml.F 600 CHEAPAML 
     I           bi, bj, iMin, iMax, jMin, jMax, deltaT,
./pkg/cheapaml/cheapaml.F 607 CHEAPAML 
            dtemp=tr(i,j,bi,bj)-Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 608 CHEAPAML 
            Tair(i,j,bi,bj)=Tair(i,j,bi,bj)+dtemp*xrelf(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 615 CHEAPAML 
     I           bi, bj, iMin, iMax, jMin, jMax, deltaT,
./pkg/cheapaml/cheapaml.F 622 CHEAPAML 
            dq=qr(i,j,bi,bj)-qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 623 CHEAPAML 
            qair(i,j,bi,bj)=qair(i,j,bi,bj)+dq*xrelf(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 624 CHEAPAML 
            IF (qair(i,j,bi,bj).LT.0.0) qair(i,j,bi,bj) = 0.0 _d 0
./pkg/cheapaml/cheapaml.F 634 CHEAPAML 
            dtr=CheaptracerR(i,j,bi,bj)-Cheaptracer(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 635 CHEAPAML 
            Cheaptracer(i,j,bi,bj) = Cheaptracer(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 636 CHEAPAML 
     &                             + dtr*xrelf(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 643 CHEAPAML 
         CALL DIAGNOSTICS_FILL( fsha,'CH_SH   ',0,1,2,bi,bj,myThid )
./pkg/cheapaml/cheapaml.F 644 CHEAPAML 
         CALL DIAGNOSTICS_FILL( flha,'CH_LH   ',0,1,2,bi,bj,myThid )
./pkg/cheapaml/cheapaml.F 645 CHEAPAML 
         CALL DIAGNOSTICS_FILL( q100,'CH_q100 ',0,1,2,bi,bj,myThid )
./pkg/cheapaml/cheapaml.F 646 CHEAPAML 
         CALL DIAGNOSTICS_FILL( ssqt,'CH_ssqt ',0,1,2,bi,bj,myThid )
./pkg/cheapaml/cheapaml.F 677 CHEAPAML 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 682 CHEAPAML 
     I                   Tr(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 683 CHEAPAML 
     U                   Tair(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 684 CHEAPAML 
     I                   bi, bj, myIter, myThid )
./pkg/cheapaml/cheapaml.F 689 CHEAPAML 
     I                   qr(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 690 CHEAPAML 
     U                   qair(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 691 CHEAPAML 
     I                   bi, bj, myIter, myThid )
./pkg/cheapaml/cheapaml.F 697 CHEAPAML 
     I                   CheaptracerR(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 698 CHEAPAML 
     U                   Cheaptracer(1-OLx,1-OLy,bi,bj),
./pkg/cheapaml/cheapaml.F 699 CHEAPAML 
     I                   bi, bj, myIter, myThid )
./pkg/cheapaml/cheapaml.F 709 CHEAPAML 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cheapaml/cheapaml.F 715 CHEAPAML 
            fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 716 CHEAPAML 
     &          *( surfDrag(i-1,j,bi,bj) + surfDrag(i,j,bi,bj) )
./pkg/cheapaml/cheapaml.F 717 CHEAPAML 
     &          *( uWind(i,j,bi,bj)-uVel(i,j,1,bi,bj) )
./pkg/cheapaml/cheapaml.F 718 CHEAPAML 
            fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 719 CHEAPAML 
     &          *( surfDrag(i,j-1,bi,bj) + surfDrag(i,j,bi,bj) )
./pkg/cheapaml/cheapaml.F 720 CHEAPAML 
     &          *( vWind(i,j,bi,bj)-vVel(i,j,1,bi,bj) )
./pkg/cheapaml/cheapaml.F 726 CHEAPAML 
            fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 727 CHEAPAML 
     &          *( surfDrag(i-1,j,bi,bj)
./pkg/cheapaml/cheapaml.F 728 CHEAPAML 
     &             *( uWind(i-1,j,bi,bj)-uVel(i-1,j,1,bi,bj) )
./pkg/cheapaml/cheapaml.F 729 CHEAPAML 
     &           + surfDrag(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 730 CHEAPAML 
     &             *( uWind(i,j,bi,bj) - uVel(i,j,1,bi,bj) ) )
./pkg/cheapaml/cheapaml.F 735 CHEAPAML 
            fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 736 CHEAPAML 
     &          *( surfDrag(i,j-1,bi,bj)
./pkg/cheapaml/cheapaml.F 737 CHEAPAML 
     &             *( vWind(i,j-1,bi,bj)-vVel(i,j-1,1,bi,bj) )
./pkg/cheapaml/cheapaml.F 738 CHEAPAML 
     &           + surfDrag(i,j,bi,bj)
./pkg/cheapaml/cheapaml.F 739 CHEAPAML 
     &             *( vWind(i,j,bi,bj) - vVel(i,j,1,bi,bj) ) )
./pkg/cheapaml/cheapaml.F 747 CHEAPAML 
            fu(i,j,bi,bj) = maskW(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 748 CHEAPAML 
     &          *( ustress(i,j,bi,bj) + ustress(i-1,j,bi,bj) )
./pkg/cheapaml/cheapaml.F 753 CHEAPAML 
            fv(i,j,bi,bj) = maskS(i,j,1,bi,bj)*0.5 _d 0
./pkg/cheapaml/cheapaml.F 754 CHEAPAML 
     &          *( vstress(i,j,bi,bj) + vstress(i,j-1,bi,bj) )
./pkg/cheapaml/cheapaml_coare3_flux.F 107 CHEAPAML_COARE3_FLUX 
        q=qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_coare3_flux.F 113 CHEAPAML_COARE3_FLUX 
      cwave=gravity*wavesp(i,j,bi,bj)/twoPI
./pkg/cheapaml/cheapaml_coare3_flux.F 114 CHEAPAML_COARE3_FLUX 
      lwave=cwave*wavesp(i,j,bi,bj)
./pkg/cheapaml/cheapaml_coare3_flux.F 182 CHEAPAML_COARE3_FLUX 
        zo=1200. _d 0*wavesh(i,j,bi,bj)*(wavesh(i,j,bi,bj)/lwave)**4.5
./pkg/cheapaml/cheapaml_coare3_flux.F 18 CHEAPAML_COARE3_FLUX 
     I                    i,j,bi,bj, iceOrNot,
./pkg/cheapaml/cheapaml_coare3_flux.F 192 CHEAPAML_COARE3_FLUX 
     &    ' , in: i,j,bi,bj,thid=', i, j, bi, bj, myThid
./pkg/cheapaml/cheapaml_coare3_flux.F 42 CHEAPAML_COARE3_FLUX 
      INTEGER i,j,bi,bj
./pkg/cheapaml/cheapaml_coare3_flux.F 80 CHEAPAML_COARE3_FLUX 
      Tas = Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_copy_edges.F 13 CHEAPAML_COPY_EDGES 
     I                     bi, bj, myIter, myThid )
./pkg/cheapaml/cheapaml_copy_edges.F 41 CHEAPAML_COPY_EDGES 
      INTEGER bi, bj, myIter, myThid
./pkg/cheapaml/cheapaml_copy_edges.F 73 CHEAPAML_COPY_EDGES 
          jG = 1 + myYGlobalLo-1+(bj-1)*sNy
./pkg/cheapaml/cheapaml_copy_edges.F 81 CHEAPAML_COPY_EDGES 
          jG = sNy + myYGlobalLo-1+(bj-1)*sNy
./pkg/cheapaml/cheapaml_fields_load.F 100 CHEAPAML_FIELDS_LOAD 
      INTEGER bi, bj
./pkg/cheapaml/cheapaml_fields_load.F 130 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 134 CHEAPAML_FIELDS_LOAD 
              jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 137 CHEAPAML_FIELDS_LOAD 
              Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 144 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 148 CHEAPAML_FIELDS_LOAD 
              local = solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 150 CHEAPAML_FIELDS_LOAD 
              TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 157 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 161 CHEAPAML_FIELDS_LOAD 
              local = Tr(i,j,bi,bj)+celsius2K
./pkg/cheapaml/cheapaml_fields_load.F 163 CHEAPAML_FIELDS_LOAD 
              qr(i,j,bi,bj) = 0.8 _d 0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F 170 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 174 CHEAPAML_FIELDS_LOAD 
              jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 176 CHEAPAML_FIELDS_LOAD 
              uWind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 181 CHEAPAML_FIELDS_LOAD 
              vWind(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_fields_load.F 189 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 193 CHEAPAML_FIELDS_LOAD 
              CheaptracerR(i,j,bi,bj) = 290. _d 0
./pkg/cheapaml/cheapaml_fields_load.F 207 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 211 CHEAPAML_FIELDS_LOAD 
             trair0  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 212 CHEAPAML_FIELDS_LOAD 
             trair1  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 213 CHEAPAML_FIELDS_LOAD 
             qrair0  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 214 CHEAPAML_FIELDS_LOAD 
             qrair1  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 215 CHEAPAML_FIELDS_LOAD 
             solar0  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 216 CHEAPAML_FIELDS_LOAD 
             solar1  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 217 CHEAPAML_FIELDS_LOAD 
             uWind0  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 218 CHEAPAML_FIELDS_LOAD 
             uWind1  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 219 CHEAPAML_FIELDS_LOAD 
             vWind0  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 220 CHEAPAML_FIELDS_LOAD 
             vWind1  (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 221 CHEAPAML_FIELDS_LOAD 
             cheaph0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 222 CHEAPAML_FIELDS_LOAD 
             cheaph1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 223 CHEAPAML_FIELDS_LOAD 
             cheapcl0(i,j,bi,bj) = 0.5
./pkg/cheapaml/cheapaml_fields_load.F 224 CHEAPAML_FIELDS_LOAD 
             cheapcl1(i,j,bi,bj) = 0.5
./pkg/cheapaml/cheapaml_fields_load.F 225 CHEAPAML_FIELDS_LOAD 
             cheaplw0(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 226 CHEAPAML_FIELDS_LOAD 
             cheaplw1(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 227 CHEAPAML_FIELDS_LOAD 
             ustress0(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 228 CHEAPAML_FIELDS_LOAD 
             ustress1(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 229 CHEAPAML_FIELDS_LOAD 
             vstress0(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 230 CHEAPAML_FIELDS_LOAD 
             vstress1(i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 231 CHEAPAML_FIELDS_LOAD 
             wavesh0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 232 CHEAPAML_FIELDS_LOAD 
             wavesh1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 233 CHEAPAML_FIELDS_LOAD 
             wavesp0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 234 CHEAPAML_FIELDS_LOAD 
             wavesp1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 237 CHEAPAML_FIELDS_LOAD 
             CheaptracerR0 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 238 CHEAPAML_FIELDS_LOAD 
             CheaptracerR1 (i,j,bi,bj) = 0.
./pkg/cheapaml/cheapaml_fields_load.F 373 CHEAPAML_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 377 CHEAPAML_FIELDS_LOAD 
            TR(i,j,bi,bj)           = bWght*trair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 378 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*trair1(i,j,bi,bj)   !+273.15
./pkg/cheapaml/cheapaml_fields_load.F 379 CHEAPAML_FIELDS_LOAD 
            qr(i,j,bi,bj)           = bWght*qrair0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 380 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*qrair1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 381 CHEAPAML_FIELDS_LOAD 
            uWind(i,j,bi,bj)        = bWght*uWind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 382 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*uWind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 383 CHEAPAML_FIELDS_LOAD 
            vWind(i,j,bi,bj)        = bWght*vWind0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 384 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*vWind1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 385 CHEAPAML_FIELDS_LOAD 
            solar(i,j,bi,bj)        = bWght*solar0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 386 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*solar1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 388 CHEAPAML_FIELDS_LOAD 
             ustress(i,j,bi,bj)     = bWght*ustress0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 389 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*ustress1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 390 CHEAPAML_FIELDS_LOAD 
             vstress(i,j,bi,bj)     = bWght*vstress0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 391 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*vstress1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 394 CHEAPAML_FIELDS_LOAD 
             CheapHgrid(i,j,bi,bj)  = bWght*cheaph0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 395 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*cheaph1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 398 CHEAPAML_FIELDS_LOAD 
             cheapclouds(i,j,bi,bj) = bWght*cheapcl0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 399 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*cheapcl1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 402 CHEAPAML_FIELDS_LOAD 
             cheapdlongwave(i,j,bi,bj) = bWght*cheaplw0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 403 CHEAPAML_FIELDS_LOAD 
     &                                 + aWght*cheaplw1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 406 CHEAPAML_FIELDS_LOAD 
             CheaptracerR(i,j,bi,bj) = bWght*CheaptracerR0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 407 CHEAPAML_FIELDS_LOAD 
     &                               + aWght*CheaptracerR1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 411 CHEAPAML_FIELDS_LOAD 
              wavesh(i,j,bi,bj)     = bWght*wavesh0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 412 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*wavesh1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 415 CHEAPAML_FIELDS_LOAD 
              wavesp(i,j,bi,bj)     = bWght*wavesp0(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 416 CHEAPAML_FIELDS_LOAD 
     &                              + aWght*wavesp1(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 419 CHEAPAML_FIELDS_LOAD 
             u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2
./pkg/cheapaml/cheapaml_fields_load.F 421 CHEAPAML_FIELDS_LOAD 
             wavesp(i,j,bi,bj) = 0.729 _d 0 * u
./pkg/cheapaml/cheapaml_fields_load.F 422 CHEAPAML_FIELDS_LOAD 
             wavesh(i,j,bi,bj) = 0.018 _d 0 * u*u*(1. + .015 _d 0 *u)
./pkg/cheapaml/cheapaml_fields_load.F 440 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 444 CHEAPAML_FIELDS_LOAD 
              jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 446 CHEAPAML_FIELDS_LOAD 
              Solar(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 457 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 461 CHEAPAML_FIELDS_LOAD 
              local = solar(i,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 463 CHEAPAML_FIELDS_LOAD 
              TR(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 476 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 480 CHEAPAML_FIELDS_LOAD 
              local = Tr(i,j,bi,bj) + celsius2K
./pkg/cheapaml/cheapaml_fields_load.F 482 CHEAPAML_FIELDS_LOAD 
              qr(i,j,bi,bj) = 0.8 _d 0*ssqa
./pkg/cheapaml/cheapaml_fields_load.F 493 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 497 CHEAPAML_FIELDS_LOAD 
              jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 503 CHEAPAML_FIELDS_LOAD 
              uWind(i,j,bi,bj) = local
./pkg/cheapaml/cheapaml_fields_load.F 513 CHEAPAML_FIELDS_LOAD 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 517 CHEAPAML_FIELDS_LOAD 
              vWind(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_fields_load.F 544 CHEAPAML_FIELDS_LOAD 
           DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 548 CHEAPAML_FIELDS_LOAD 
               CheaptracerR(i,j,bi,bj)=290. _d 0
./pkg/cheapaml/cheapaml_fields_load.F 563 CHEAPAML_FIELDS_LOAD 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 567 CHEAPAML_FIELDS_LOAD 
              u = uWind(i,j,bi,bj)**2 + vWind(i,j,bi,bj)**2
./pkg/cheapaml/cheapaml_fields_load.F 569 CHEAPAML_FIELDS_LOAD 
              wavesp(i,j,bi,bj)=0.729 _d 0 * u
./pkg/cheapaml/cheapaml_fields_load.F 570 CHEAPAML_FIELDS_LOAD 
              wavesh(i,j,bi,bj)=0.018 _d 0 * u*u*(1. + .015 _d 0 *u)
./pkg/cheapaml/cheapaml_fields_load.F 586 CHEAPAML_FIELDS_LOAD 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 590 CHEAPAML_FIELDS_LOAD 
               Cheapclouds(i,j,bi,bj)=0.5
./pkg/cheapaml/cheapaml_fields_load.F 618 CHEAPAML_FIELDS_LOAD 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_fields_load.F 621 CHEAPAML_FIELDS_LOAD 
          jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_fields_load.F 627 CHEAPAML_FIELDS_LOAD 
            Tr(i,j,bi,bj)=Tr(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 628 CHEAPAML_FIELDS_LOAD 
            qr(i,j,bi,bj)=qr(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 629 CHEAPAML_FIELDS_LOAD 
            uWind(i,j,bi,bj)=uWind(2,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 630 CHEAPAML_FIELDS_LOAD 
            vWind(i,j,bi,bj)=vWind(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 631 CHEAPAML_FIELDS_LOAD 
            Solar(i,j,bi,bj)=Solar(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 633 CHEAPAML_FIELDS_LOAD 
              ustress(i,j,bi,bj)=ustress(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 634 CHEAPAML_FIELDS_LOAD 
              vstress(i,j,bi,bj)=vstress(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 637 CHEAPAML_FIELDS_LOAD 
              CheaptracerR(i,j,bi,bj)=CheaptracerR(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 640 CHEAPAML_FIELDS_LOAD 
              wavesp(i,j,bi,bj)=wavesp(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 641 CHEAPAML_FIELDS_LOAD 
              wavesh(i,j,bi,bj)=wavesh(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 644 CHEAPAML_FIELDS_LOAD 
              Cheapclouds(i,j,bi,bj)=Cheapclouds(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 647 CHEAPAML_FIELDS_LOAD 
              Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(1,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 652 CHEAPAML_FIELDS_LOAD 
            uWind(i,j,bi,bj)=uWind(2,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 656 CHEAPAML_FIELDS_LOAD 
            Tr(i,j,bi,bj)=Tr(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 657 CHEAPAML_FIELDS_LOAD 
            qr(i,j,bi,bj)=qr(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 658 CHEAPAML_FIELDS_LOAD 
            uWind(i,j,bi,bj)=uWind(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 659 CHEAPAML_FIELDS_LOAD 
            vWind(i,j,bi,bj)=vWind(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 660 CHEAPAML_FIELDS_LOAD 
            Solar(i,j,bi,bj)=Solar(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 662 CHEAPAML_FIELDS_LOAD 
              ustress(i,j,bi,bj)=ustress(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 663 CHEAPAML_FIELDS_LOAD 
              vstress(i,j,bi,bj)=vstress(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 666 CHEAPAML_FIELDS_LOAD 
              CheaptracerR(i,j,bi,bj)=CheaptracerR(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 669 CHEAPAML_FIELDS_LOAD 
              wavesp(i,j,bi,bj)=wavesp(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 670 CHEAPAML_FIELDS_LOAD 
              wavesh(i,j,bi,bj)=wavesh(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 673 CHEAPAML_FIELDS_LOAD 
              Cheapclouds(i,j,bi,bj)=Cheapclouds(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 676 CHEAPAML_FIELDS_LOAD 
              Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 681 CHEAPAML_FIELDS_LOAD 
            Tr(i,j,bi,bj)=Tr(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 682 CHEAPAML_FIELDS_LOAD 
            qr(i,j,bi,bj)=qr(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 683 CHEAPAML_FIELDS_LOAD 
            uWind(i,j,bi,bj)=uWind(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 684 CHEAPAML_FIELDS_LOAD 
            vWind(i,j,bi,bj)=vWind(i,2,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 685 CHEAPAML_FIELDS_LOAD 
            Solar(i,j,bi,bj)=Solar(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 687 CHEAPAML_FIELDS_LOAD 
              ustress(i,j,bi,bj)=ustress(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 688 CHEAPAML_FIELDS_LOAD 
              vstress(i,j,bi,bj)=vstress(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 691 CHEAPAML_FIELDS_LOAD 
              CheaptracerR(i,j,bi,bj)=CheaptracerR(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 694 CHEAPAML_FIELDS_LOAD 
              Cheapclouds(i,j,bi,bj)=Cheapclouds(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 697 CHEAPAML_FIELDS_LOAD 
              Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 700 CHEAPAML_FIELDS_LOAD 
              wavesp(i,j,bi,bj)=wavesp(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 701 CHEAPAML_FIELDS_LOAD 
              wavesh(i,j,bi,bj)=wavesh(i,1,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 706 CHEAPAML_FIELDS_LOAD 
            vWind(i,j,bi,bj)=vWind(i,2,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 710 CHEAPAML_FIELDS_LOAD 
            Tr(i,j,bi,bj)=Tr(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 711 CHEAPAML_FIELDS_LOAD 
            qr(i,j,bi,bj)=qr(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 712 CHEAPAML_FIELDS_LOAD 
            uWind(i,j,bi,bj)=uWind(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 713 CHEAPAML_FIELDS_LOAD 
            vWind(i,j,bi,bj)=vWind(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 714 CHEAPAML_FIELDS_LOAD 
            Solar(i,j,bi,bj)=Solar(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 716 CHEAPAML_FIELDS_LOAD 
              ustress(i,j,bi,bj)=ustress(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 717 CHEAPAML_FIELDS_LOAD 
              vstress(i,j,bi,bj)=vstress(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 720 CHEAPAML_FIELDS_LOAD 
              CheaptracerR(i,j,bi,bj)=CheaptracerR(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 723 CHEAPAML_FIELDS_LOAD 
              wavesp(i,j,bi,bj)=wavesp(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 724 CHEAPAML_FIELDS_LOAD 
              wavesh(i,j,bi,bj)=wavesh(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 727 CHEAPAML_FIELDS_LOAD 
              Cheapclouds(i,j,bi,bj)=Cheapclouds(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_fields_load.F 730 CHEAPAML_FIELDS_LOAD 
              Cheapdlongwave(i,j,bi,bj)=Cheapdlongwave(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F 11 CHEAPAML_GAD_C2_ADV_R 
     I           bi,bj,
./pkg/cheapaml/cheapaml_gad_c2_adv_r.F 37 CHEAPAML_GAD_C2_ADV_R 
      INTEGER bi,bj
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 11 CHEAPAML_GAD_DST3FL_ADV_R 
     I           bi,bj,dTarg,
./pkg/cheapaml/cheapaml_gad_dst3fl_adv_r.F 38 CHEAPAML_GAD_DST3FL_ADV_R 
      INTEGER bi,bj
./pkg/cheapaml/cheapaml_init_varia.F 104 CHEAPAML_INIT_VARIA 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 108 CHEAPAML_INIT_VARIA 
             jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_init_varia.F 113 CHEAPAML_INIT_VARIA 
             Tair(i,j,bi,bj) = localt
./pkg/cheapaml/cheapaml_init_varia.F 133 CHEAPAML_INIT_VARIA 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 137 CHEAPAML_INIT_VARIA 
             local= Tair(i,j,bi,bj)+celsius2K
./pkg/cheapaml/cheapaml_init_varia.F 139 CHEAPAML_INIT_VARIA 
             qair(i,j,bi,bj)=0.8 _d 0*ssqa
./pkg/cheapaml/cheapaml_init_varia.F 159 CHEAPAML_INIT_VARIA 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 163 CHEAPAML_INIT_VARIA 
             Cheaptracer(i,j,bi,bj)=290.0 _d 0
./pkg/cheapaml/cheapaml_init_varia.F 191 CHEAPAML_INIT_VARIA 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 197 CHEAPAML_INIT_VARIA 
             jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_init_varia.F 218 CHEAPAML_INIT_VARIA 
             Cheapmask(i,j,bi,bj) = xmf*cheapaml_taurelax
./pkg/cheapaml/cheapaml_init_varia.F 226 CHEAPAML_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 230 CHEAPAML_INIT_VARIA 
               IF( maskC(i,j,1,bi,bj).EQ.0. _d 0) THEN
./pkg/cheapaml/cheapaml_init_varia.F 231 CHEAPAML_INIT_VARIA 
                 Cheapmask(i,j,bi,bj)=cheapaml_taurelax
./pkg/cheapaml/cheapaml_init_varia.F 233 CHEAPAML_INIT_VARIA 
               ELSEIF( Cheapmask(i,j,bi,bj).EQ.0. _d 0) THEN
./pkg/cheapaml/cheapaml_init_varia.F 234 CHEAPAML_INIT_VARIA 
                 Cheapmask(i,j,bi,bj)=cheapaml_taurelaxocean
./pkg/cheapaml/cheapaml_init_varia.F 243 CHEAPAML_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 247 CHEAPAML_INIT_VARIA 
           IF (Cheapmask(i,j,bi,bj).NE.0.) THEN
./pkg/cheapaml/cheapaml_init_varia.F 248 CHEAPAML_INIT_VARIA 
            xgs(i,j,bi,bj)=1. _d 0/Cheapmask(i,j,bi,bj)/8.64 _d 4
./pkg/cheapaml/cheapaml_init_varia.F 250 CHEAPAML_INIT_VARIA 
            xgs(i,j,bi,bj)=0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 252 CHEAPAML_INIT_VARIA 
           xrelf(i,j,bi,bj)= xgs(i,j,bi,bj)*deltaT
./pkg/cheapaml/cheapaml_init_varia.F 253 CHEAPAML_INIT_VARIA 
     &                     /(1. _d 0+xgs(i,j,bi,bj)*deltaT)
./pkg/cheapaml/cheapaml_init_varia.F 270 CHEAPAML_INIT_VARIA 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 274 CHEAPAML_INIT_VARIA 
               cheapHgrid(i,j,bi,bj) = cheapaml_h
./pkg/cheapaml/cheapaml_init_varia.F 299 CHEAPAML_INIT_VARIA 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 302 CHEAPAML_INIT_VARIA 
           jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/cheapaml_init_varia.F 306 CHEAPAML_INIT_VARIA 
                 Tair(i,j,bi,bj)=Tair(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 307 CHEAPAML_INIT_VARIA 
                 qair(i,j,bi,bj)=qair(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 308 CHEAPAML_INIT_VARIA 
                 Cheaptracer(i,j,bi,bj)=Cheaptracer(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 309 CHEAPAML_INIT_VARIA 
                 Cheapmask(i,j,bi,bj)=Cheapmask(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 310 CHEAPAML_INIT_VARIA 
                 CheapHgrid(i,j,bi,bj)=CheapHgrid(1,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 312 CHEAPAML_INIT_VARIA 
                 Tair(i,j,bi,bj)=Tair(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 313 CHEAPAML_INIT_VARIA 
                 qair(i,j,bi,bj)=qair(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 314 CHEAPAML_INIT_VARIA 
                 Cheaptracer(i,j,bi,bj)=Cheaptracer(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 315 CHEAPAML_INIT_VARIA 
                 Cheapmask(i,j,bi,bj)=Cheapmask(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 316 CHEAPAML_INIT_VARIA 
                 CheapHgrid(i,j,bi,bj)=CheapHgrid(sNx,j,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 318 CHEAPAML_INIT_VARIA 
                 Tair(i,j,bi,bj)=Tair(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 319 CHEAPAML_INIT_VARIA 
                 qair(i,j,bi,bj)=qair(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 320 CHEAPAML_INIT_VARIA 
                 Cheaptracer(i,j,bi,bj)=Cheaptracer(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 321 CHEAPAML_INIT_VARIA 
                 CheapHgrid(i,j,bi,bj)=CheapHgrid(i,1,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 323 CHEAPAML_INIT_VARIA 
                 Tair(i,j,bi,bj)=Tair(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 324 CHEAPAML_INIT_VARIA 
                 qair(i,j,bi,bj)=qair(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 325 CHEAPAML_INIT_VARIA 
                 Cheaptracer(i,j,bi,bj)=Cheaptracer(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 326 CHEAPAML_INIT_VARIA 
                 CheapHgrid(i,j,bi,bj)=CheapHgrid(i,sNy,bi,bj)
./pkg/cheapaml/cheapaml_init_varia.F 40 CHEAPAML_INIT_VARIA 
      INTEGER bi, bj
./pkg/cheapaml/cheapaml_init_varia.F 57 CHEAPAML_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cheapaml/cheapaml_init_varia.F 61 CHEAPAML_INIT_VARIA 
          Tr            (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 62 CHEAPAML_INIT_VARIA 
          qr            (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 63 CHEAPAML_INIT_VARIA 
          Tair          (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 64 CHEAPAML_INIT_VARIA 
          gTairm        (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 65 CHEAPAML_INIT_VARIA 
          qair          (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 66 CHEAPAML_INIT_VARIA 
          gqairm        (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 67 CHEAPAML_INIT_VARIA 
          uWind         (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 68 CHEAPAML_INIT_VARIA 
          vWind         (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 69 CHEAPAML_INIT_VARIA 
          wWind         (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 70 CHEAPAML_INIT_VARIA 
          solar         (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 71 CHEAPAML_INIT_VARIA 
          ustress       (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 72 CHEAPAML_INIT_VARIA 
          vstress       (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 73 CHEAPAML_INIT_VARIA 
          wavesh        (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 74 CHEAPAML_INIT_VARIA 
          wavesp        (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 75 CHEAPAML_INIT_VARIA 
          Cheapmask     (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 76 CHEAPAML_INIT_VARIA 
          xgs           (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 77 CHEAPAML_INIT_VARIA 
          xrelf         (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 78 CHEAPAML_INIT_VARIA 
          cheapPrecip   (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 79 CHEAPAML_INIT_VARIA 
          CheapHgrid    (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 81 CHEAPAML_INIT_VARIA 
          Cheapclouds   (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 82 CHEAPAML_INIT_VARIA 
          Cheapdlongwave(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 83 CHEAPAML_INIT_VARIA 
          Cheaptracer   (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 84 CHEAPAML_INIT_VARIA 
          CheaptracerR  (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_init_varia.F 85 CHEAPAML_INIT_VARIA 
          gCheaptracerm (i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_lanl_flux.F 100 CHEAPAML_LANL_FLUX 
               if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then
./pkg/cheapaml/cheapaml_lanl_flux.F 101 CHEAPAML_LANL_FLUX 
                if (snowheight(i,j,bi,bj).gt.3. _d -1) then
./pkg/cheapaml/cheapaml_lanl_flux.F 112 CHEAPAML_LANL_FLUX 
                       uw=uwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F 113 CHEAPAML_LANL_FLUX 
                       vw=vwind(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F 117 CHEAPAML_LANL_FLUX 
                       ustress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*uw
./pkg/cheapaml/cheapaml_lanl_flux.F 118 CHEAPAML_LANL_FLUX 
                       vstress(i,j,bi,bj)= rhoa*cheapaml_BulkCdn*uss*vw
./pkg/cheapaml/cheapaml_lanl_flux.F 11 CHEAPAML_LANL_FLUX 
     I                    i,j,bi,bj,
./pkg/cheapaml/cheapaml_lanl_flux.F 121 CHEAPAML_LANL_FLUX 
               ustress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_lanl_flux.F 122 CHEAPAML_LANL_FLUX 
               vstress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml_lanl_flux.F 127 CHEAPAML_LANL_FLUX 
        to=theta(i,j,1,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F 128 CHEAPAML_LANL_FLUX 
        t=Tair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F 132 CHEAPAML_LANL_FLUX 
        ttt=tta-( cheaphgrid(i,j,bi,bj)- zref)*gamma_blk
./pkg/cheapaml/cheapaml_lanl_flux.F 133 CHEAPAML_LANL_FLUX 
        pt=p0*(1-gamma_blk*cheaphgrid(i,j,bi,bj)/ttas)
./pkg/cheapaml/cheapaml_lanl_flux.F 143 CHEAPAML_LANL_FLUX 
            q=qair(i,j,bi,bj)
./pkg/cheapaml/cheapaml_lanl_flux.F 35 CHEAPAML_LANL_FLUX 
      INTEGER i,j,bi,bj
./pkg/cheapaml/cheapaml_lanl_flux.F 98 CHEAPAML_LANL_FLUX 
             if (maskC(i,j,1,bi,bj).ne.0. _d 0) then
./pkg/cheapaml/cheapaml_seaice.F 134 CHEAPAML_SEAICE 
     I                         bi, bj, myTime, myIter, myThid )
./pkg/cheapaml/cheapaml_seaice.F 146 CHEAPAML_SEAICE 
            uRelWind(i,j) = uRelWind(i,j)-uIce(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 147 CHEAPAML_SEAICE 
            vRelWind(i,j) = vRelWind(i,j)-vIce(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 164 CHEAPAML_SEAICE 
     I          bi, bj, siLo, siHi, sjLo, sjHi,
./pkg/cheapaml/cheapaml_seaice.F 166 CHEAPAML_SEAICE 
     I          iceMask(siLo,sjLo,bi,bj), iceHeight(siLo,sjLo,bi,bj),
./pkg/cheapaml/cheapaml_seaice.F 167 CHEAPAML_SEAICE 
     I          snowHeight(siLo,sjLo,bi,bj), Tsrf(siLo,sjLo,bi,bj),
./pkg/cheapaml/cheapaml_seaice.F 168 CHEAPAML_SEAICE 
     I          snowAge(siLo,sjLo,bi,bj),
./pkg/cheapaml/cheapaml_seaice.F 169 CHEAPAML_SEAICE 
     O          siceAlb(siLo,sjLo,bi,bj), icAlbNIR(siLo,sjLo,bi,bj),
./pkg/cheapaml/cheapaml_seaice.F 174 CHEAPAML_SEAICE 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/cheapaml_seaice.F 177 CHEAPAML_SEAICE 
     &               *(1. _d 0 - siceAlb(i,j,bi,bj))
./pkg/cheapaml/cheapaml_seaice.F 190 CHEAPAML_SEAICE 
            IF ( snowHeight(i,j,bi,bj).GT.3. _d -1 ) THEN
./pkg/cheapaml/cheapaml_seaice.F 197 CHEAPAML_SEAICE 
     I                    i, j, bi, bj, iceOrNot,
./pkg/cheapaml/cheapaml_seaice.F 19 CHEAPAML_SEAICE 
     I                    bi, bj, myTime, myIter, myThid )
./pkg/cheapaml/cheapaml_seaice.F 206 CHEAPAML_SEAICE 
            Tsurf(i,j) = Tsrf(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 208 CHEAPAML_SEAICE 
     I                    i, j, bi, bj, iceOrNot,
./pkg/cheapaml/cheapaml_seaice.F 227 CHEAPAML_SEAICE 
     I                bi, bj, myTime, myIter, myThid )
./pkg/cheapaml/cheapaml_seaice.F 232 CHEAPAML_SEAICE 
          iceFrac(i,j) = iceMask(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 233 CHEAPAML_SEAICE 
          sw2oce (i,j) = icFlxSW(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 254 CHEAPAML_SEAICE 
           icFrac  = iceMask(i,j,bi,bj)
./pkg/cheapaml/cheapaml_seaice.F 257 CHEAPAML_SEAICE 
           icFlxAtm(i,j,bi,bj) = netSW(i,j)
./pkg/cheapaml/cheapaml_seaice.F 260 CHEAPAML_SEAICE 
           icFrwAtm(i,j,bi,bj) = evp(i,j)
./pkg/cheapaml/cheapaml_seaice.F 65 CHEAPAML_SEAICE 
      INTEGER bi, bj, myIter, myThid
./pkg/cheapaml/cheapaml_timestep.F 10 CHEAPAML_TIMESTEP 
     I                     bi, bj, iMin, iMax, jMin, jMax,
./pkg/cheapaml/cheapaml_timestep.F 31 CHEAPAML_TIMESTEP 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/cheapaml/cheapaml_timestep.F 47 CHEAPAML_TIMESTEP 
          tracer(i,j,bi,bj) = tracer(i,j,bi,bj)
./pkg/cheapaml/cheapaml_timestep.F 48 CHEAPAML_TIMESTEP 
     &            + deltaTloc*gTracer(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 11 GAD_2D_CALC_RHS 
     I           bi,bj,iMin,iMax,jMin,jMax,
./pkg/cheapaml/gad_2d_calc_rhs.F 120 GAD_2D_CALC_RHS 
          localT(i,j)=tracer(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 125 GAD_2D_CALC_RHS 
          localW(i,j)=-(recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 126 GAD_2D_CALC_RHS 
     &      *(uVel(i+1,j,bi,bj)-uVel(i,j,bi,bj))
./pkg/cheapaml/gad_2d_calc_rhs.F 127 GAD_2D_CALC_RHS 
     &     + (vVel(i,j+1,bi,bj)-vVel(i,j,bi,bj))*recip_dyC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 129 GAD_2D_CALC_RHS 
          wvel(i,j,bi,bj) = localW(i,j)/2. _d 0 /zu
./pkg/cheapaml/gad_2d_calc_rhs.F 147 GAD_2D_CALC_RHS 
           IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F 153 GAD_2D_CALC_RHS 
           IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F 173 GAD_2D_CALC_RHS 
     I     bi,bj,1,.TRUE., deltaTtracer,
./pkg/cheapaml/gad_2d_calc_rhs.F 179 GAD_2D_CALC_RHS 
        CALL GAD_C2_2D_ADV_X(bi,bj,uVel,localT,af,myThid)
./pkg/cheapaml/gad_2d_calc_rhs.F 190 GAD_2D_CALC_RHS 
        CALL GAD_DIFF_2D_X(bi,bj,diffKh,localT,df,myThid)
./pkg/cheapaml/gad_2d_calc_rhs.F 211 GAD_2D_CALC_RHS 
           IF (uVel(i,j,bi,bj).LT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F 213 GAD_2D_CALC_RHS 
              localT(ii,j)=tracer(ii,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 217 GAD_2D_CALC_RHS 
           IF (uVel(i+1,j,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F 219 GAD_2D_CALC_RHS 
              localT(ii,j)=tracer(ii,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 241 GAD_2D_CALC_RHS 
        jG = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cheapaml/gad_2d_calc_rhs.F 244 GAD_2D_CALC_RHS 
           IF (vVel(i,j,bi,bj).LT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F 250 GAD_2D_CALC_RHS 
           IF (vVel(i,j+1,bi,bj).GT.0. _d 0) THEN
./pkg/cheapaml/gad_2d_calc_rhs.F 270 GAD_2D_CALC_RHS 
     I     bi,bj,1,.TRUE., deltaTtracer,
./pkg/cheapaml/gad_2d_calc_rhs.F 276 GAD_2D_CALC_RHS 
        CALL GAD_C2_2D_ADV_Y(bi,bj,vVel,localT,af,myThid)
./pkg/cheapaml/gad_2d_calc_rhs.F 287 GAD_2D_CALC_RHS 
        CALL GAD_DIFF_2D_Y(bi,bj,diffKh,localT,df,myThid)
./pkg/cheapaml/gad_2d_calc_rhs.F 315 GAD_2D_CALC_RHS 
     I           bi,bj,deltaTtracer,
./pkg/cheapaml/gad_2d_calc_rhs.F 322 GAD_2D_CALC_RHS 
     I           bi,bj,
./pkg/cheapaml/gad_2d_calc_rhs.F 340 GAD_2D_CALC_RHS 
          gTracer(i,j,bi,bj)=
./pkg/cheapaml/gad_2d_calc_rhs.F 341 GAD_2D_CALC_RHS 
     &       -(recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 343 GAD_2D_CALC_RHS 
     &        +recip_dyC(i,j,bi,bj)
./pkg/cheapaml/gad_2d_calc_rhs.F 67 GAD_2D_CALC_RHS 
      INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/cheapaml/gad_c2_2d_adv_x.F 11 GAD_C2_2D_ADV_X 
     I   bi,bj,
./pkg/cheapaml/gad_c2_2d_adv_x.F 34 GAD_C2_2D_ADV_X 
      INTEGER bi,bj
./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 11 GAD_C2_2D_ADV_Y 
     I   bi,bj,
./pkg/cheapaml/gad_c2_2d_adv_y.F 34 GAD_C2_2D_ADV_Y 
      INTEGER bi,bj
./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 11 GAD_DIFF_2D_X 
     I   bi,bj,
./pkg/cheapaml/gad_diff_2d_x.F 34 GAD_DIFF_2D_X 
      INTEGER bi,bj
./pkg/cheapaml/gad_diff_2d_x.F 52 GAD_DIFF_2D_X 
     &       *_recip_dxC(i,j,bi,bj)
./pkg/cheapaml/gad_diff_2d_x.F 54 GAD_DIFF_2D_X 
     &       *CosFacU(j,bi,bj)
./pkg/cheapaml/gad_diff_2d_y.F 11 GAD_DIFF_2D_Y 
     I           bi,bj,
./pkg/cheapaml/gad_diff_2d_y.F 35 GAD_DIFF_2D_Y 
      INTEGER bi,bj
./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 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/compon_communic/comprecv_r4tiles.F 20 COMPRECV_R4TILES 
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r4tiles.F 31 COMPRECV_R4TILES 
       bj=my_tile_bj(bibj)
./pkg/compon_communic/comprecv_r4tiles.F 80 COMPRECV_R4TILES 
         arr(i,j,k,bi,bj)=r4buf(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 31 COMPRECV_R8TILES 
       bj=my_tile_bj(bibj)
./pkg/compon_communic/comprecv_r8tiles.F 80 COMPRECV_R8TILES 
         arr(i,j,k,bi,bj)=r8buf(ij)
./pkg/compon_communic/compsend_r4tiles.F 19 COMPSEND_R4TILES 
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r4tiles.F 29 COMPSEND_R4TILES 
       bj=my_tile_bj(bibj)
./pkg/compon_communic/compsend_r4tiles.F 48 COMPSEND_R4TILES 
         r4buf(ij)=arr(i,j,k,bi,bj)
./eesupp/src/print.F 1051 PRINT_MAPRS 
         DO bj=dwnBlo, dwnBhi, dwnBStr
./eesupp/src/print.F 1054 PRINT_MAPRS 
     &      dwnBase-1+(bj-1)*dwnStep+J
./eesupp/src/print.F 1060 PRINT_MAPRS 
              val = fld(I,J,K,bi,bj)
./eesupp/src/print.F 1233 PRINT_MAPRL 
      INTEGER bi, bj, bk
./eesupp/src/print.F 1244 PRINT_MAPRL 
      DO bj=byMin, byMax, byStr
./eesupp/src/print.F 1249 PRINT_MAPRL 
           IF ( printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0. )
./eesupp/src/print.F 1251 PRINT_MAPRL 
            IF ( fld(I,J,K,bi,bj) .LT. fMin )
./eesupp/src/print.F 1252 PRINT_MAPRL 
     &       fMin = fld(I,J,K,bi,bj)
./eesupp/src/print.F 1253 PRINT_MAPRL 
            IF ( fld(I,J,K,bi,bj) .GT. fMax )
./eesupp/src/print.F 1254 PRINT_MAPRL 
     &       fMax = fld(I,J,K,bi,bj)
./eesupp/src/print.F 1483 PRINT_MAPRL 
         DO bj=dwnBlo, dwnBhi, dwnBStr
./eesupp/src/print.F 1486 PRINT_MAPRL 
     &      dwnBase-1+(bj-1)*dwnStep+J
./eesupp/src/print.F 1492 PRINT_MAPRL 
              val = fld(I,J,K,bi,bj)
./eesupp/src/print.F 800 PRINT_MAPRS 
      INTEGER bi, bj, bk
./eesupp/src/print.F 811 PRINT_MAPRS 
      DO bj=byMin, byMax, byStr
./eesupp/src/print.F 816 PRINT_MAPRS 
           IF (printMapIncludesZeros .OR. fld(I,J,K,bi,bj) .NE. 0.) THEN
./eesupp/src/print.F 817 PRINT_MAPRS 
            IF ( fld(I,J,K,bi,bj) .LT. fMin )
./eesupp/src/print.F 818 PRINT_MAPRS 
     &       fMin = fld(I,J,K,bi,bj)
./eesupp/src/print.F 819 PRINT_MAPRS 
            IF ( fld(I,J,K,bi,bj) .GT. fMax )
./eesupp/src/print.F 820 PRINT_MAPRS 
     &       fMax = fld(I,J,K,bi,bj)
./pkg/compon_communic/compsend_r8tiles.F 19 COMPSEND_R8TILES 
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r8tiles.F 29 COMPSEND_R8TILES 
       bj=my_tile_bj(bibj)
./pkg/compon_communic/compsend_r8tiles.F 48 COMPSEND_R8TILES 
         r8buf(ij)=arr(i,j,k,bi,bj)
./eesupp/src/reset_halo.F 113 RESET_HALO_RS 
      INTEGER bi, bj, k
./eesupp/src/reset_halo.F 117 RESET_HALO_RS 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/reset_halo.F 125 RESET_HALO_RS 
             glFld(i,j,k,bi,bj) = fixVal
./eesupp/src/reset_halo.F 131 RESET_HALO_RS 
             glFld(i,j,k,bi,bj) = fixVal
./eesupp/src/reset_halo.F 46 RESET_HALO_RL 
      INTEGER bi, bj, k
./eesupp/src/reset_halo.F 50 RESET_HALO_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./eesupp/src/reset_halo.F 58 RESET_HALO_RL 
             glFld(i,j,k,bi,bj) = fixVal
./eesupp/src/reset_halo.F 64 RESET_HALO_RL 
             glFld(i,j,k,bi,bj) = fixVal
./eesupp/src/scatter_xz.F 18 SCATTER_XZ 
      INTEGER iG, i, bi, bj
./eesupp/src/scatter_xz.F 34 SCATTER_XZ 
      DO bj=1,nSy
./eesupp/src/scatter_xz.F 38 SCATTER_XZ 
                  local(i,bi,bj) = global(iG)
./eesupp/src/scatter_xz.F 53 SCATTER_XZ 
         DO bj=1,nSy
./eesupp/src/scatter_xz.F 57 SCATTER_XZ 
                     local(i,bi,bj) = global(iG)
./eesupp/src/scatter_xz.F 64 SCATTER_XZ 
            DO bj=1,nSy
./eesupp/src/scatter_xz.F 68 SCATTER_XZ 
                        temp(i,bi,bj) = global(iG)
./eesupp/src/scatter_yz.F 18 SCATTER_YZ 
      INTEGER jG, j, bi, bj
./eesupp/src/scatter_yz.F 34 SCATTER_YZ 
      DO bj=1,nSy
./eesupp/src/scatter_yz.F 38 SCATTER_YZ 
                  local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F 53 SCATTER_YZ 
         DO bj=1,nSy
./eesupp/src/scatter_yz.F 57 SCATTER_YZ 
                     local(j,bi,bj) = global(jG)
./eesupp/src/scatter_yz.F 64 SCATTER_YZ 
            DO bj=1,nSy
./eesupp/src/scatter_yz.F 68 SCATTER_YZ 
                        temp(j,bi,bj) = global(jG)
./pkg/cost/cost_accumulate_mean.F 26 COST_ACCUMULATE_MEAN 
      integer bi, bj
./pkg/cost/cost_accumulate_mean.F 44 COST_ACCUMULATE_MEAN 
      do bj = jtlo,jthi
./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 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 188 COST_ATLANTIC_HEAT 
        objf_atl(bi,bj) =
./pkg/cost/cost_atlantic_heat.F 191 COST_ATLANTIC_HEAT 
        objf_atl(bi,bj) =
./pkg/cost/cost_atlantic_heat.F 34 COST_ATLANTIC_HEAT 
      integer bi, bj
./pkg/cost/cost_atlantic_heat.F 60 COST_ATLANTIC_HEAT 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 89 COST_ATLANTIC_HEAT 
         jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_dependent_init.F 37 COST_DEPENDENT_INIT 
      integer bi,bj
./pkg/cost/cost_dependent_init.F 65 COST_DEPENDENT_INIT 
      do bj = jtlo,jthi
./pkg/cost/cost_dependent_init.F 69 COST_DEPENDENT_INIT 
         objf_vector(i,bi,bj) = 0. _d 0
./pkg/cost/cost_dependent_init.F 70 COST_DEPENDENT_INIT 
         adobjf_vector(i,bi,bj) = 1. _d 0
./pkg/cost/cost_dependent_init.F 77 COST_DEPENDENT_INIT 
            objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_dependent_init.F 79 COST_DEPENDENT_INIT 
           objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_depth.F 29 COST_DEPTH 
      integer bi, bj
./pkg/cost/cost_depth.F 40 COST_DEPTH 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/cost/cost_final.F 102 COST_FINAL 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/cost/cost_final.F 106 COST_FINAL 
     &          ' --> objf_test(bi,bj)   = ', objf_test(bi,bj)
./pkg/cost/cost_final.F 108 COST_FINAL 
     &         ' --> objf_tracer(bi,bj) = ', objf_tracer(bi,bj)
./pkg/cost/cost_final.F 111 COST_FINAL 
     &         ' --> objf_atl(bi,bj)    = ', objf_atl(bi,bj)
./pkg/cost/cost_final.F 115 COST_FINAL 
     &          ' --> objf_temp_tut(bi,bj)   = ', objf_temp_tut(bi,bj)
./pkg/cost/cost_final.F 119 COST_FINAL 
     &         ' --> objf_hflux_tut(bi,bj) = ', objf_hflux_tut(bi,bj)
./pkg/cost/cost_final.F 123 COST_FINAL 
     &         ' --> objf_transport(bi,bj) = ', objf_transport(bi,bj)
./pkg/cost/cost_final.F 126 COST_FINAL 
         tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/cost/cost_final.F 127 COST_FINAL 
     &            + mult_test   * objf_test(bi,bj)
./pkg/cost/cost_final.F 128 COST_FINAL 
     &            + mult_tracer * objf_tracer(bi,bj)
./pkg/cost/cost_final.F 130 COST_FINAL 
     &            + mult_atl    * objf_atl(bi,bj)
./pkg/cost/cost_final.F 133 COST_FINAL 
     &            + mult_transport * objf_transport(bi,bj)
./pkg/cost/cost_final.F 136 COST_FINAL 
     &            + mult_temp_tut  * objf_temp_tut(bi,bj)
./pkg/cost/cost_final.F 139 COST_FINAL 
     &            + mult_hflux_tut * objf_hflux_tut(bi,bj)
./pkg/cost/cost_final.F 141 COST_FINAL 
         loc_fc = loc_fc + tile_fc(bi,bj)
./pkg/cost/cost_final.F 44 COST_FINAL 
      INTEGER bi,bj
./pkg/cost/cost_init_varia.F 41 COST_INIT_VARIA 
      integer bi,bj
./pkg/cost/cost_init_varia.F 54 COST_INIT_VARIA 
      do bj = jtlo,jthi
./pkg/cost/cost_init_varia.F 56 COST_INIT_VARIA 
          tile_fc(bi,bj)   = 0. _d 0
./pkg/cost/cost_init_varia.F 58 COST_INIT_VARIA 
          objf_atl(bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 60 COST_INIT_VARIA 
          objf_test(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 61 COST_INIT_VARIA 
          objf_tracer(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 63 COST_INIT_VARIA 
          objf_transport(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 66 COST_INIT_VARIA 
          objf_depth(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 70 COST_INIT_VARIA 
            objf_vector(i,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 78 COST_INIT_VARIA 
                cMeanTheta(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 79 COST_INIT_VARIA 
                cMeanUVel(i,j,k,bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 80 COST_INIT_VARIA 
                cMeanVVel(i,j,k,bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 81 COST_INIT_VARIA 
                cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 82 COST_INIT_VARIA 
                cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 92 COST_INIT_VARIA 
                objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_init_varia.F 94 COST_INIT_VARIA 
              objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_state_final.F 29 COST_STATE_FINAL 
      integer bi, bj
./pkg/cost/cost_state_final.F 31 COST_STATE_FINAL 
      DO bj=myByLo(myThid),myByHi(myThid)
./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 31 COST_TEST 
      integer bi, bj
./pkg/cost/cost_test.F 60 COST_TEST 
      do bj = jtlo,jthi
./pkg/cost/cost_test.F 63 COST_TEST 
          jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/cost/cost_test.F 70 COST_TEST 
     &              'COST    ',ig,jg,kLocOut,' TILE ',i,j,bi,bj
./pkg/cost/cost_test.F 71 COST_TEST 
               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_test.F 74 COST_TEST 
     &              theta(i,j,kLocOut,bi,bj)
./pkg/cost/cost_test.F 78 COST_TEST 
            objf_test(bi,bj) = objf_test(bi,bj) +
./pkg/cost/cost_test.F 79 COST_TEST 
     &                         theta(i,j,kLocOut,bi,bj)**2
./pkg/cost/cost_tile.F 101 COST_TILE 
      integer bi, bj
./pkg/cost/cost_tile.F 140 COST_TILE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/cost/cost_tile.F 144 COST_TILE 
           CALL COST_TRACER( bi, bj, myThid )
./pkg/cost/cost_tile.F 148 COST_TILE 
           CALL COST_TRANSPORT( bi, bj, myTime, myIter, myThid )
./pkg/cost/cost_tracer.F 35 COST_TRACER 
      integer bi, bj
./pkg/cost/cost_tracer.F 55 COST_TRACER 
            locfc = locfc + hFacC(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_tracer.F 62 COST_TRACER 
      objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc
./pkg/cost/cost_tracer.F 6 COST_TRACER 
      subroutine COST_TRACER( bi, bj, myThid )
./pkg/cost/cost_vector.F 34 COST_VECTOR 
      integer bi, bj
./pkg/cost/cost_vector.F 56 COST_VECTOR 
      DO bj=myByLo(myThid),myByHi(myThid)
./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/cost/cost_vector.F 83 COST_VECTOR 
     &          objf_vector(i,bi,bj)
./pkg/ctrl/adctrl_bound.F 132 ADCTRL_BOUND_2D 
      INTEGER bi,bj,i,j
./pkg/ctrl/adctrl_bound.F 153 ADCTRL_BOUND_2D 
        DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ctrl/adctrl_bound.F 158 ADCTRL_BOUND_2D 
              IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN
./pkg/ctrl/adctrl_bound.F 159 ADCTRL_BOUND_2D 
                xCur=fieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F 160 ADCTRL_BOUND_2D 
                adxCur=adjFieldCur(i,j,bi,bj)
./pkg/ctrl/adctrl_bound.F 163 ADCTRL_BOUND_2D 
                  adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 168 ADCTRL_BOUND_2D 
                  adjFieldCur(i,j,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 42 ADCTRL_BOUND_3D 
      INTEGER bi,bj,i,j,k
./pkg/ctrl/adctrl_bound.F 63 ADCTRL_BOUND_3D 
        DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ctrl/adctrl_bound.F 69 ADCTRL_BOUND_3D 
              IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN
./pkg/ctrl/adctrl_bound.F 70 ADCTRL_BOUND_3D 
                xCur=fieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F 71 ADCTRL_BOUND_3D 
                adxCur=adjFieldCur(i,j,k,bi,bj)
./pkg/ctrl/adctrl_bound.F 74 ADCTRL_BOUND_3D 
                  adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./pkg/ctrl/adctrl_bound.F 79 ADCTRL_BOUND_3D 
                  adjFieldCur(i,j,k,bi,bj)=abs(adxCur)*
./pkg/ctrl/ctrl_bound.F 101 CTRL_BOUND_2D 
      INTEGER bi,bj,i,j
./pkg/ctrl/ctrl_bound.F 106 CTRL_BOUND_2D 
       DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_bound.F 111 CTRL_BOUND_2D 
             IF (maskFld3d(i,j,1,bi,bj).NE.0.) THEN
./pkg/ctrl/ctrl_bound.F 112 CTRL_BOUND_2D 
              IF (fieldCur(i,j,bi,bj).GT.boundsVec(4)) THEN
./pkg/ctrl/ctrl_bound.F 113 CTRL_BOUND_2D 
               fieldCur(i,j,bi,bj)=boundsVec(4)
./pkg/ctrl/ctrl_bound.F 115 CTRL_BOUND_2D 
              IF (fieldCur(i,j,bi,bj).LT.boundsVec(1)) THEN
./pkg/ctrl/ctrl_bound.F 116 CTRL_BOUND_2D 
               fieldCur(i,j,bi,bj)=boundsVec(1)
./pkg/ctrl/ctrl_bound.F 41 CTRL_BOUND_3D 
      INTEGER bi,bj,i,j,k
./pkg/ctrl/ctrl_bound.F 46 CTRL_BOUND_3D 
       DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_bound.F 52 CTRL_BOUND_3D 
             IF (maskFld3d(i,j,k,bi,bj).NE.0.) THEN
./pkg/ctrl/ctrl_bound.F 53 CTRL_BOUND_3D 
              IF (fieldCur(i,j,k,bi,bj).GT.boundsVec(4)) THEN
./pkg/ctrl/ctrl_bound.F 54 CTRL_BOUND_3D 
               fieldCur(i,j,k,bi,bj)=boundsVec(4)
./pkg/ctrl/ctrl_bound.F 56 CTRL_BOUND_3D 
              IF (fieldCur(i,j,k,bi,bj).LT.boundsVec(1)) THEN
./pkg/ctrl/ctrl_bound.F 57 CTRL_BOUND_3D 
               fieldCur(i,j,k,bi,bj)=boundsVec(1)
./pkg/ctrl/ctrl_depth_ini.F 103 CTRL_DEPTH_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_depth_ini.F 107 CTRL_DEPTH_INI 
              xx_r_low(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_depth_ini.F 119 CTRL_DEPTH_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_depth_ini.F 123 CTRL_DEPTH_INI 
          xx_r_low(i,j,bi,bj) = r_low(i,j,bi,bj)
./pkg/ctrl/ctrl_depth_ini.F 124 CTRL_DEPTH_INI 
     &                        + fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_depth_ini.F 40 CTRL_DEPTH_INI 
      integer bi,bj
./pkg/ctrl/ctrl_depth_ini.F 92 CTRL_DEPTH_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_depth_ini.F 96 CTRL_DEPTH_INI 
          tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_get_gen.F 243 CTRL_GET_GEN 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_get_gen.F 249 CTRL_GET_GEN 
              genfld(i,j,bi,bj) = genfld (i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F 250 CTRL_GET_GEN 
     &              + gensign*genfac            *xx_gen0(i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F 251 CTRL_GET_GEN 
     &              + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj)
./pkg/ctrl/ctrl_get_gen.F 252 CTRL_GET_GEN 
              genfld(i,j,bi,bj) =
./pkg/ctrl/ctrl_get_gen.F 253 CTRL_GET_GEN 
     &             genmask(i,j,k,bi,bj)*( genfld (i,j,bi,bj) -
./pkg/ctrl/ctrl_get_gen.F 61 CTRL_GET_GEN 
      integer bi,bj
./pkg/ctrl/ctrl_getobcse.F 127 CTRL_GETOBCSE 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcse.F 132 CTRL_GETOBCSE 
            i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 138 CTRL_GETOBCSE 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 140 CTRL_GETOBCSE 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 149 CTRL_GETOBCSE 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 151 CTRL_GETOBCSE 
               tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcse.F 153 CTRL_GETOBCSE 
              tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcse.F 158 CTRL_GETOBCSE 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 159 CTRL_GETOBCSE 
     &            *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 161 CTRL_GETOBCSE 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 162 CTRL_GETOBCSE 
     &            *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 170 CTRL_GETOBCSE 
            xx_obcse1(j,k,bi,bj,iobcs)  = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 180 CTRL_GETOBCSE 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcse.F 184 CTRL_GETOBCSE 
            xx_obcse0(j,k,bi,bj,iobcs) = xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 185 CTRL_GETOBCSE 
            tmpfldyz (j,k,bi,bj)       = 0. _d 0
./pkg/ctrl/ctrl_getobcse.F 196 CTRL_GETOBCSE 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcse.F 201 CTRL_GETOBCSE 
            i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 207 CTRL_GETOBCSE 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 209 CTRL_GETOBCSE 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 218 CTRL_GETOBCSE 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 220 CTRL_GETOBCSE 
               tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcse.F 222 CTRL_GETOBCSE 
              tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcse.F 227 CTRL_GETOBCSE 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 228 CTRL_GETOBCSE 
     &            *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 230 CTRL_GETOBCSE 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 231 CTRL_GETOBCSE 
     &            *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 239 CTRL_GETOBCSE 
            xx_obcse1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 248 CTRL_GETOBCSE 
       do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcse.F 253 CTRL_GETOBCSE 
           i = OB_Ie(j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 256 CTRL_GETOBCSE 
            OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 257 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 258 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 259 CTRL_GETOBCSE 
            OBEt(j,k,bi,bj) = OBEt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 260 CTRL_GETOBCSE 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 262 CTRL_GETOBCSE 
            OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 263 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 264 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 265 CTRL_GETOBCSE 
            OBEs(j,k,bi,bj) = OBEs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 266 CTRL_GETOBCSE 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 268 CTRL_GETOBCSE 
            OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 269 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 270 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 271 CTRL_GETOBCSE 
            OBEu(j,k,bi,bj) = OBEu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 272 CTRL_GETOBCSE 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 274 CTRL_GETOBCSE 
            OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 275 CTRL_GETOBCSE 
     &           + obcsefac            *xx_obcse0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 276 CTRL_GETOBCSE 
     &           + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 277 CTRL_GETOBCSE 
            OBEv(j,k,bi,bj) = OBEv(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 278 CTRL_GETOBCSE 
     &           *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 53 CTRL_GETOBCSE 
      integer bi,bj
./pkg/ctrl/ctrl_getobcsn.F 132 CTRL_GETOBCSN 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcsn.F 137 CTRL_GETOBCSN 
            j = OB_Jn(i,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 143 CTRL_GETOBCSN 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 145 CTRL_GETOBCSN 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 154 CTRL_GETOBCSN 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 156 CTRL_GETOBCSN 
              tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcsn.F 158 CTRL_GETOBCSN 
              tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcsn.F 163 CTRL_GETOBCSN 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 164 CTRL_GETOBCSN 
     &         *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 166 CTRL_GETOBCSN 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 167 CTRL_GETOBCSN 
     &                           *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 175 CTRL_GETOBCSN 
            xx_obcsn1(i,k,bi,bj,iobcs)  = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 185 CTRL_GETOBCSN 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcsn.F 189 CTRL_GETOBCSN 
            xx_obcsn0(i,k,bi,bj,iobcs) = xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 190 CTRL_GETOBCSN 
            tmpfldxz (i,k,bi,bj)       = 0. _d 0
./pkg/ctrl/ctrl_getobcsn.F 201 CTRL_GETOBCSN 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcsn.F 206 CTRL_GETOBCSN 
            j = OB_Jn(i,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 212 CTRL_GETOBCSN 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 214 CTRL_GETOBCSN 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 223 CTRL_GETOBCSN 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 225 CTRL_GETOBCSN 
              tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcsn.F 227 CTRL_GETOBCSN 
              tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcsn.F 232 CTRL_GETOBCSN 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 233 CTRL_GETOBCSN 
     &         *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 235 CTRL_GETOBCSN 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 236 CTRL_GETOBCSN 
     &                           *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 244 CTRL_GETOBCSN 
            xx_obcsn1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 254 CTRL_GETOBCSN 
       do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcsn.F 259 CTRL_GETOBCSN 
           j = OB_Jn(I,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 262 CTRL_GETOBCSN 
            OBNt(i,k,bi,bj) = OBNt (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 263 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 264 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 265 CTRL_GETOBCSN 
            OBNt(i,k,bi,bj) = OBNt(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 266 CTRL_GETOBCSN 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 268 CTRL_GETOBCSN 
            OBNs(i,k,bi,bj) = OBNs (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 269 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 270 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 271 CTRL_GETOBCSN 
            OBNs(i,k,bi,bj) = OBNs(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 272 CTRL_GETOBCSN 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 274 CTRL_GETOBCSN 
            OBNu(i,k,bi,bj) = OBNu (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 275 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 276 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 277 CTRL_GETOBCSN 
            OBNu(i,k,bi,bj) = OBNu(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 278 CTRL_GETOBCSN 
     &           *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 280 CTRL_GETOBCSN 
            OBNv(i,k,bi,bj) = OBNv (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 281 CTRL_GETOBCSN 
     &           + obcsnfac            *xx_obcsn0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 282 CTRL_GETOBCSN 
     &           + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 283 CTRL_GETOBCSN 
            OBNv(i,k,bi,bj) = OBNv(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 284 CTRL_GETOBCSN 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcsn.F 54 CTRL_GETOBCSN 
      integer bi,bj
./pkg/ctrl/ctrl_getobcss.F 128 CTRL_GETOBCSS 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcss.F 133 CTRL_GETOBCSS 
            j = OB_Js(i,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 139 CTRL_GETOBCSS 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 141 CTRL_GETOBCSS 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 150 CTRL_GETOBCSS 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 152 CTRL_GETOBCSS 
              tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcss.F 154 CTRL_GETOBCSS 
              tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcss.F 159 CTRL_GETOBCSS 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 160 CTRL_GETOBCSS 
     &         *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 162 CTRL_GETOBCSS 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 163 CTRL_GETOBCSS 
     &                           *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 171 CTRL_GETOBCSS 
            xx_obcss1(i,k,bi,bj,iobcs)  = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 181 CTRL_GETOBCSS 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcss.F 185 CTRL_GETOBCSS 
            xx_obcss0(i,k,bi,bj,iobcs) = xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 186 CTRL_GETOBCSS 
            tmpfldxz (i,k,bi,bj)       = 0. _d 0
./pkg/ctrl/ctrl_getobcss.F 197 CTRL_GETOBCSS 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcss.F 202 CTRL_GETOBCSS 
            j = OB_Js(i,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 208 CTRL_GETOBCSS 
              nz = nz + maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 210 CTRL_GETOBCSS 
              nz = nz + maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 219 CTRL_GETOBCSS 
     &         modesv(k,nk,nz)*tmpfldxz(i,nk,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 221 CTRL_GETOBCSS 
              tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcss.F 223 CTRL_GETOBCSS 
              tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcss.F 228 CTRL_GETOBCSS 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 229 CTRL_GETOBCSS 
     &         *recip_hFacS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 231 CTRL_GETOBCSS 
              tmpfldxz(i,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 232 CTRL_GETOBCSS 
     &                           *recip_hFacW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 240 CTRL_GETOBCSS 
            xx_obcss1 (i,k,bi,bj,iobcs) = tmpfldxz (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 249 CTRL_GETOBCSS 
       do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcss.F 254 CTRL_GETOBCSS 
           j = OB_Js(I,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 257 CTRL_GETOBCSS 
            OBSt(i,k,bi,bj) = OBSt (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 258 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 259 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 260 CTRL_GETOBCSS 
            OBSt(i,k,bi,bj) = OBSt(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 261 CTRL_GETOBCSS 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 263 CTRL_GETOBCSS 
            OBSs(i,k,bi,bj) = OBSs (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 264 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 265 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 266 CTRL_GETOBCSS 
            OBSs(i,k,bi,bj) = OBSs(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 267 CTRL_GETOBCSS 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 269 CTRL_GETOBCSS 
            OBSu(i,k,bi,bj) = OBSu (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 270 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 271 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 272 CTRL_GETOBCSS 
            OBSu(i,k,bi,bj) = OBSu(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 273 CTRL_GETOBCSS 
     &           *maskW(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 275 CTRL_GETOBCSS 
            OBSv(i,k,bi,bj) = OBSv (i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 276 CTRL_GETOBCSS 
     &           + obcssfac            *xx_obcss0(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 277 CTRL_GETOBCSS 
     &           + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 278 CTRL_GETOBCSS 
            OBSv(i,k,bi,bj) = OBSv(i,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 279 CTRL_GETOBCSS 
     &           *maskS(i,j+jp1,k,bi,bj)
./pkg/ctrl/ctrl_getobcss.F 55 CTRL_GETOBCSS 
      integer bi,bj
./pkg/ctrl/ctrl_getobcsw.F 127 CTRL_GETOBCSW 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcsw.F 132 CTRL_GETOBCSW 
            i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 138 CTRL_GETOBCSW 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 140 CTRL_GETOBCSW 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 149 CTRL_GETOBCSW 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 151 CTRL_GETOBCSW 
               tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcsw.F 153 CTRL_GETOBCSW 
              tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcsw.F 158 CTRL_GETOBCSW 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 159 CTRL_GETOBCSW 
     &            *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 161 CTRL_GETOBCSW 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 162 CTRL_GETOBCSW 
     &            *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 170 CTRL_GETOBCSW 
            xx_obcsw1(j,k,bi,bj,iobcs)  = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 180 CTRL_GETOBCSW 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcsw.F 184 CTRL_GETOBCSW 
            xx_obcsw0(j,k,bi,bj,iobcs) = xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 185 CTRL_GETOBCSW 
            tmpfldyz (j,k,bi,bj)       = 0. _d 0
./pkg/ctrl/ctrl_getobcsw.F 196 CTRL_GETOBCSW 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_getobcsw.F 201 CTRL_GETOBCSW 
            i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 207 CTRL_GETOBCSW 
                nz = nz + maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 209 CTRL_GETOBCSW 
                nz = nz + maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 218 CTRL_GETOBCSW 
     &         modesv(k,nk,nz)*tmpfldyz(j,nk,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 220 CTRL_GETOBCSW 
               tmpz(k,bi,bj) = stmp
./pkg/ctrl/ctrl_getobcsw.F 222 CTRL_GETOBCSW 
               tmpz(k,bi,bj) = 0.
./pkg/ctrl/ctrl_getobcsw.F 227 CTRL_GETOBCSW 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 228 CTRL_GETOBCSW 
     &            *recip_hFacW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 230 CTRL_GETOBCSW 
                tmpfldyz(j,k,bi,bj) = tmpz(k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 231 CTRL_GETOBCSW 
     &            *recip_hFacS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 239 CTRL_GETOBCSW 
            xx_obcsw1 (j,k,bi,bj,iobcs) = tmpfldyz (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 248 CTRL_GETOBCSW 
       do bj = jtlo, jthi
./pkg/ctrl/ctrl_getobcsw.F 253 CTRL_GETOBCSW 
           i = OB_Iw(j,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 256 CTRL_GETOBCSW 
            OBWt(j,k,bi,bj) = OBWt (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 257 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 258 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 259 CTRL_GETOBCSW 
            OBWt(j,k,bi,bj) = OBWt(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 260 CTRL_GETOBCSW 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 262 CTRL_GETOBCSW 
            OBWs(j,k,bi,bj) = OBWs (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 263 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 264 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 265 CTRL_GETOBCSW 
            OBWs(j,k,bi,bj) = OBWs(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 266 CTRL_GETOBCSW 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 268 CTRL_GETOBCSW 
            OBWu(j,k,bi,bj) = OBWu (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 269 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 270 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 271 CTRL_GETOBCSW 
            OBWu(j,k,bi,bj) = OBWu(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 272 CTRL_GETOBCSW 
     &           *maskW(i+ip1,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 274 CTRL_GETOBCSW 
            OBWv(j,k,bi,bj) = OBWv (j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 275 CTRL_GETOBCSW 
     &           + obcswfac            *xx_obcsw0(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 276 CTRL_GETOBCSW 
     &           + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 277 CTRL_GETOBCSW 
            OBWv(j,k,bi,bj) = OBWv(j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 278 CTRL_GETOBCSW 
     &           *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_getobcsw.F 54 CTRL_GETOBCSW 
      integer bi,bj
./eesupp/src/write_utils.F 876 WRITE_XY_XLINE_RS 
      INTEGER bi, bj, i, j
./eesupp/src/write_utils.F 881 WRITE_XY_XLINE_RS 
      bj = tCoord
./eesupp/src/write_utils.F 884 WRITE_XY_XLINE_RS 
      WRITE(num2,'(I10)') bj
./eesupp/src/write_utils.F 897 WRITE_XY_XLINE_RS 
        xcoord(sNx*(bi-1)+I)=fld(I,J,bi,bj)
./eesupp/src/write_utils.F 956 WRITE_XY_YLINE_RS 
      INTEGER bi, bj, i, j
./eesupp/src/write_utils.F 976 WRITE_XY_YLINE_RS 
      DO bj=1,nSy
./eesupp/src/write_utils.F 978 WRITE_XY_YLINE_RS 
        ycoord(sNy*(bj-1)+J)=fld(I,J,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 100 CTRL_HFACC_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_hfacc_ini.F 105 CTRL_HFACC_INI 
                hFacC(i,j,k,bi,bj)    = 0.
./pkg/ctrl/ctrl_hfacc_ini.F 106 CTRL_HFACC_INI 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_hfacc_ini.F 125 CTRL_HFACC_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_hfacc_ini.F 130 CTRL_HFACC_INI 
                hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_hfacc_ini.F 131 CTRL_HFACC_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 141 CTRL_HFACC_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_hfacc_ini.F 145 CTRL_HFACC_INI 
                  k = k_lowC(i,j,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 147 CTRL_HFACC_INI 
                     hFacC(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 148 CTRL_HFACC_INI 
     &                                  + fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_hfacc_ini.F 40 CTRL_HFACC_INI 
      integer bi,bj
./pkg/ctrl/ctrl_init.F 48 CTRL_INIT 
      integer bi,bj
./pkg/ctrl/ctrl_init.F 842 CTRL_INIT 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init.F 846 CTRL_INIT 
          wareaunit (i,j,bi,bj) = 1.0
./pkg/ctrl/ctrl_init.F 848 CTRL_INIT 
          whflux    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 849 CTRL_INIT 
          wsflux    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 850 CTRL_INIT 
          wtauu     (i,j,bi,bj) = maskW(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 851 CTRL_INIT 
          wtauv     (i,j,bi,bj) = maskS(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 852 CTRL_INIT 
          watemp    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 853 CTRL_INIT 
          waqh      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 854 CTRL_INIT 
          wprecip   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 855 CTRL_INIT 
          wswflux   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 856 CTRL_INIT 
          wswdown   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 857 CTRL_INIT 
          wuwind    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 858 CTRL_INIT 
          wvwind    (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 859 CTRL_INIT 
          wlwflux   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 860 CTRL_INIT 
          wlwdown   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 861 CTRL_INIT 
          wevap     (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 862 CTRL_INIT 
          wsnowprecip(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 863 CTRL_INIT 
          wapressure(i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 864 CTRL_INIT 
          wrunoff   (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 865 CTRL_INIT 
          wsst      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init.F 866 CTRL_INIT 
          wsss      (i,j,bi,bj) = maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_init_obcs_variables.F 106 CTRL_INIT_OBCS_VARIABLES 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_obcs_variables.F 110 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 111 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 38 CTRL_INIT_OBCS_VARIABLES 
      integer bi,bj
./pkg/ctrl/ctrl_init_obcs_variables.F 61 CTRL_INIT_OBCS_VARIABLES 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_obcs_variables.F 65 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 66 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 76 CTRL_INIT_OBCS_VARIABLES 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_obcs_variables.F 80 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 81 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 91 CTRL_INIT_OBCS_VARIABLES 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_obcs_variables.F 95 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 96 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 103 CTRL_INIT_VARIABLES 
              xx_tauv0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 104 CTRL_INIT_VARIABLES 
              xx_tauv1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 112 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 116 CTRL_INIT_VARIABLES 
              xx_uwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 117 CTRL_INIT_VARIABLES 
              xx_uwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 125 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 129 CTRL_INIT_VARIABLES 
              xx_vwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 130 CTRL_INIT_VARIABLES 
              xx_vwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 138 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 142 CTRL_INIT_VARIABLES 
              xx_atemp0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 143 CTRL_INIT_VARIABLES 
              xx_atemp1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 151 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 155 CTRL_INIT_VARIABLES 
              xx_aqh0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 156 CTRL_INIT_VARIABLES 
              xx_aqh1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 164 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 168 CTRL_INIT_VARIABLES 
              xx_precip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 169 CTRL_INIT_VARIABLES 
              xx_precip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 177 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 181 CTRL_INIT_VARIABLES 
              xx_swflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 182 CTRL_INIT_VARIABLES 
              xx_swflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 190 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 194 CTRL_INIT_VARIABLES 
              xx_swdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 195 CTRL_INIT_VARIABLES 
              xx_swdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 203 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 207 CTRL_INIT_VARIABLES 
              xx_lwflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 208 CTRL_INIT_VARIABLES 
              xx_lwflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 216 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 220 CTRL_INIT_VARIABLES 
              xx_lwdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 221 CTRL_INIT_VARIABLES 
              xx_lwdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 229 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 233 CTRL_INIT_VARIABLES 
              xx_evap0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 234 CTRL_INIT_VARIABLES 
              xx_evap1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 242 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 246 CTRL_INIT_VARIABLES 
              xx_snowprecip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 247 CTRL_INIT_VARIABLES 
              xx_snowprecip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 255 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 259 CTRL_INIT_VARIABLES 
              xx_apressure0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 260 CTRL_INIT_VARIABLES 
              xx_apressure1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 268 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 272 CTRL_INIT_VARIABLES 
              xx_runoff0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 273 CTRL_INIT_VARIABLES 
              xx_runoff1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 281 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 285 CTRL_INIT_VARIABLES 
              xx_sst0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 286 CTRL_INIT_VARIABLES 
              xx_sst1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 294 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 298 CTRL_INIT_VARIABLES 
              xx_sss0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 299 CTRL_INIT_VARIABLES 
              xx_sss1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 307 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 311 CTRL_INIT_VARIABLES 
              xx_shifwflx0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 312 CTRL_INIT_VARIABLES 
              xx_shifwflx1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 320 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 324 CTRL_INIT_VARIABLES 
              bottomDragFld(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 332 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 337 CTRL_INIT_VARIABLES 
              xx_atemp_mean (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 340 CTRL_INIT_VARIABLES 
              xx_aqh_mean   (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 343 CTRL_INIT_VARIABLES 
              xx_uwind_mean (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 346 CTRL_INIT_VARIABLES 
              xx_vwind_mean (i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 349 CTRL_INIT_VARIABLES 
              xx_precip_mean(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 352 CTRL_INIT_VARIABLES 
              xx_swdown_mean(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 39 CTRL_INIT_VARIABLES 
      integer bi,bj
./pkg/ctrl/ctrl_init_variables.F 60 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 64 CTRL_INIT_VARIABLES 
              xx_hflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 65 CTRL_INIT_VARIABLES 
              xx_hflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 73 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 77 CTRL_INIT_VARIABLES 
              xx_sflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 78 CTRL_INIT_VARIABLES 
              xx_sflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 86 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_variables.F 90 CTRL_INIT_VARIABLES 
              xx_tauu0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 91 CTRL_INIT_VARIABLES 
              xx_tauu1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 99 CTRL_INIT_VARIABLES 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_wet.F 101 CTRL_INIT_WET 
              nwetobcse(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 110 CTRL_INIT_WET 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_wet.F 116 CTRL_INIT_WET 
                if (maskC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init_wet.F 117 CTRL_INIT_WET 
                  nwetctile(bi,bj,k) = nwetctile(bi,bj,k) + 1
./pkg/ctrl/ctrl_init_wet.F 120 CTRL_INIT_WET 
                if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 121 CTRL_INIT_WET 
                  nwetstile(bi,bj,k) = nwetstile(bi,bj,k) + 1
./pkg/ctrl/ctrl_init_wet.F 124 CTRL_INIT_WET 
                if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 125 CTRL_INIT_WET 
                  nwetwtile(bi,bj,k) = nwetwtile(bi,bj,k) + 1
./pkg/ctrl/ctrl_init_wet.F 129 CTRL_INIT_WET 
                if (hFacV(i,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_init_wet.F 130 CTRL_INIT_WET 
                  nwetvtile(bi,bj,k) = nwetvtile(bi,bj,k) + 1
./pkg/ctrl/ctrl_init_wet.F 135 CTRL_INIT_WET 
                if (maskSHI(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_init_wet.F 136 CTRL_INIT_WET 
                 nwetitile(bi,bj,k) = nwetitile(bi,bj,k) + 1
./pkg/ctrl/ctrl_init_wet.F 185 CTRL_INIT_WET 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_wet.F 190 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetctile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 193 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetstile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 196 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetwtile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 199 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetvtile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 204 CTRL_INIT_WET 
     &                       ncvarrecs(i)*nwetitile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 215 CTRL_INIT_WET 
     &                             *nwetobcsn(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 221 CTRL_INIT_WET 
     &                             *nwetobcss(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 227 CTRL_INIT_WET 
     &                             *nwetobcsw(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 233 CTRL_INIT_WET 
     &                             *nwetobcse(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 35 CTRL_INIT_WET 
      integer bi,bj
./pkg/ctrl/ctrl_init_wet.F 367 CTRL_INIT_WET 
         do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 369 CTRL_INIT_WET 
               ntmp2(1)=ntmp2(1)+nWetcTile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 376 CTRL_INIT_WET 
         do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 378 CTRL_INIT_WET 
               ntmp2(2)=ntmp2(2)+nWetsTile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 385 CTRL_INIT_WET 
         do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 387 CTRL_INIT_WET 
               ntmp2(3)=ntmp2(3)+nWetwTile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 394 CTRL_INIT_WET 
         do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 396 CTRL_INIT_WET 
               ntmp2(4)=ntmp2(4)+nWetvTile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 419 CTRL_INIT_WET 
            do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 421 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsn(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 435 CTRL_INIT_WET 
            do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 437 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcss(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 451 CTRL_INIT_WET 
            do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 453 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcsw(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 467 CTRL_INIT_WET 
            do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 469 CTRL_INIT_WET 
                  ntmpob(iobcs)=ntmpob(iobcs)+nwetobcse(bi,bj,k,iobcs)
./pkg/ctrl/ctrl_init_wet.F 550 CTRL_INIT_WET 
       do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 552 CTRL_INIT_WET 
         ntmpshi=ntmpshi+nWetiTile(bi,bj,k)
./pkg/ctrl/ctrl_init_wet.F 595 CTRL_INIT_WET 
      do bj=1,nSy
./pkg/ctrl/ctrl_init_wet.F 598 CTRL_INIT_WET 
               wunit(k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_init_wet.F 603 CTRL_INIT_WET 
               tmpfld3d(i,j,k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_init_wet.F 71 CTRL_INIT_WET 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_wet.F 74 CTRL_INIT_WET 
            nwetctile(bi,bj,k) = 0
./pkg/ctrl/ctrl_init_wet.F 75 CTRL_INIT_WET 
            nwetstile(bi,bj,k) = 0
./pkg/ctrl/ctrl_init_wet.F 76 CTRL_INIT_WET 
            nwetwtile(bi,bj,k) = 0
./pkg/ctrl/ctrl_init_wet.F 77 CTRL_INIT_WET 
            nwetvtile(bi,bj,k) = 0
./pkg/ctrl/ctrl_init_wet.F 79 CTRL_INIT_WET 
            nwetitile(bi,bj,k) = 0
./pkg/ctrl/ctrl_init_wet.F 87 CTRL_INIT_WET 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_init_wet.F 92 CTRL_INIT_WET 
              nwetobcsn(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 95 CTRL_INIT_WET 
              nwetobcss(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_init_wet.F 98 CTRL_INIT_WET 
              nwetobcsw(bi,bj,k,iobcs) = 0
./pkg/ctrl/ctrl_map_forcing.F 100 CTRL_MAP_FORCING 
              fu(i,j,bi,bj) = fu(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 101 CTRL_MAP_FORCING 
     &                        xx_tauu0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 102 CTRL_MAP_FORCING 
     &                        tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 104 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 bj = jtlo,jthi
./pkg/ctrl/ctrl_map_forcing.F 125 CTRL_MAP_FORCING 
              fv(i,j,bi,bj) = fv(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 126 CTRL_MAP_FORCING 
     &                        xx_tauv0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 127 CTRL_MAP_FORCING 
     &                        tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 129 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 bj = jtlo,jthi
./pkg/ctrl/ctrl_map_forcing.F 150 CTRL_MAP_FORCING 
              empmr(i,j,bi,bj) = empmr(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 151 CTRL_MAP_FORCING 
     &                           xx_sflux0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 152 CTRL_MAP_FORCING 
     &                           tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 154 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 bj = jtlo,jthi
./pkg/ctrl/ctrl_map_forcing.F 175 CTRL_MAP_FORCING 
              qnet(i,j,bi,bj) = qnet(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 176 CTRL_MAP_FORCING 
     &                          xx_hflux0(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 177 CTRL_MAP_FORCING 
     &                          tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 179 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 bj = jtlo,jthi
./pkg/ctrl/ctrl_map_forcing.F 199 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 bj = jtlo,jthi
./pkg/ctrl/ctrl_map_forcing.F 218 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 bj = jtlo,jthi
./pkg/ctrl/ctrl_map_forcing.F 238 CTRL_MAP_FORCING 
              Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 239 CTRL_MAP_FORCING 
     &                          xx_hfluxm(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_forcing.F 240 CTRL_MAP_FORCING 
     &                          tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 242 CTRL_MAP_FORCING 
              Qnetm(i,j,bi,bj) = Qnetm(i,j,bi,bj) + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_forcing.F 46 CTRL_MAP_FORCING 
      integer bi,bj
./pkg/ctrl/ctrl_map_forcing.F 95 CTRL_MAP_FORCING 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_gentim2d.F 104 CTRL_MAP_GENTIM2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ctrl/ctrl_map_gentim2d.F 109 CTRL_MAP_GENTIM2D 
                xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d(i,j,bi,bj,iarr)
./pkg/ctrl/ctrl_map_gentim2d.F 110 CTRL_MAP_GENTIM2D 
     &            +xx_gentim2d_loc(i,j,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F 112 CTRL_MAP_GENTIM2D 
                xx_gentim2d(i,j,bi,bj,iarr)=xx_gentim2d_loc(i,j,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F 122 CTRL_MAP_GENTIM2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ctrl/ctrl_map_gentim2d.F 124 CTRL_MAP_GENTIM2D 
          LOCsumTile(bi,bj)=0. _d 0
./pkg/ctrl/ctrl_map_gentim2d.F 127 CTRL_MAP_GENTIM2D 
                LOCsumTile(bi,bj)=LOCsumTile(bi,bj)+
./pkg/ctrl/ctrl_map_gentim2d.F 128 CTRL_MAP_GENTIM2D 
     &            maskC(i,j,1,bi,bj)*rA(i,j,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F 129 CTRL_MAP_GENTIM2D 
     &            *xx_gentim2d(i,j,bi,bj,iarr)
./pkg/ctrl/ctrl_map_gentim2d.F 137 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_map_gentim2d.F 141 CTRL_MAP_GENTIM2D 
             xx_gentim2d(I,J,bi,bj,iarr) =
./pkg/ctrl/ctrl_map_gentim2d.F 142 CTRL_MAP_GENTIM2D 
     &            LOCsumGlob/globalArea*maskC(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_gentim2d.F 46 CTRL_MAP_GENTIM2D 
      integer bi,bj
./pkg/ctrl/ctrl_map_gentim2d.F 82 CTRL_MAP_GENTIM2D 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_map_gentim2d.F 86 CTRL_MAP_GENTIM2D 
           xx_gentim2d_loc(I,J,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_map_ini.F 108 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 114 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 115 CTRL_MAP_INI 
     $          2.0/sqrt(wtheta(k,bi,bj)))
./pkg/ctrl/ctrl_map_ini.F 116 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 117 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wtheta(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 120 CTRL_MAP_INI 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 121 CTRL_MAP_INI 
     &                               fac*xx_theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 122 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 124 CTRL_MAP_INI 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 125 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 128 CTRL_MAP_INI 
                if(theta(i,j,k,bi,bj).lt.-2.0)
./pkg/ctrl/ctrl_map_ini.F 129 CTRL_MAP_INI 
     &               theta(i,j,k,bi,bj)= -2.0
./pkg/ctrl/ctrl_map_ini.F 148 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 154 CTRL_MAP_INI 
               IF (abs(tmpfld3d(i,j,k,bi,bj)).gt.
./pkg/ctrl/ctrl_map_ini.F 155 CTRL_MAP_INI 
     $          2.0/sqrt(wsalt(k,bi,bj)))
./pkg/ctrl/ctrl_map_ini.F 156 CTRL_MAP_INI 
     $          tmpfld3d(i,j,k,bi,bj)=
./pkg/ctrl/ctrl_map_ini.F 157 CTRL_MAP_INI 
     $          sign(2.0/sqrt(wsalt(k,bi,bj)),tmpfld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini.F 160 CTRL_MAP_INI 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 161 CTRL_MAP_INI 
     &                               fac*xx_salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 162 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 164 CTRL_MAP_INI 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 165 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 185 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 191 CTRL_MAP_INI 
                ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) +
./pkg/ctrl/ctrl_map_ini.F 192 CTRL_MAP_INI 
     &                               fac*xx_tr1(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 193 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 195 CTRL_MAP_INI 
                ptracer(i,j,k,bi,bj,1) = ptracer(i,j,k,bi,bj,1) +
./pkg/ctrl/ctrl_map_ini.F 196 CTRL_MAP_INI 
     &                               fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 214 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 219 CTRL_MAP_INI 
              theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 220 CTRL_MAP_INI 
     &                             + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 235 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 240 CTRL_MAP_INI 
              salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 241 CTRL_MAP_INI 
     &                             + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 257 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 263 CTRL_MAP_INI 
                diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 264 CTRL_MAP_INI 
     &                                xx_diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 265 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 267 CTRL_MAP_INI 
                diffkr(i,j,k,bi,bj) = diffkr(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 268 CTRL_MAP_INI 
     &                                tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 287 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 293 CTRL_MAP_INI 
                kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 294 CTRL_MAP_INI 
     &                               xx_kapgm(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 295 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 297 CTRL_MAP_INI 
                kapGM(i,j,k,bi,bj) = kapGM(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 298 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 317 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 322 CTRL_MAP_INI 
                kapRedi(i,j,k,bi,bj) = kapRedi(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 323 CTRL_MAP_INI 
     &                               tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 341 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 346 CTRL_MAP_INI 
                EfluxY(i,j,k,bi,bj) = EfluxY(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 347 CTRL_MAP_INI 
     &                                - fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 348 CTRL_MAP_INI 
     &                                  *maskS(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 368 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 373 CTRL_MAP_INI 
                EfluxP(i,j,k,bi,bj) = EfluxP(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 374 CTRL_MAP_INI 
     &                                + fCori(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 375 CTRL_MAP_INI 
     &                                  *fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 376 CTRL_MAP_INI 
     &                                  *hFacV(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 396 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 400 CTRL_MAP_INI 
              bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 401 CTRL_MAP_INI 
     &                                   + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 416 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 421 CTRL_MAP_INI 
                eddyPsiX(i,j,k,bi,bj) = eddyPsiX(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 422 CTRL_MAP_INI 
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 435 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 440 CTRL_MAP_INI 
                eddyPsiY(i,j,k,bi,bj) = eddyPsiY(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 441 CTRL_MAP_INI 
     &            tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 457 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 463 CTRL_MAP_INI 
                uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 464 CTRL_MAP_INI 
     &                                  fac*xx_uvel(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 466 CTRL_MAP_INI 
                uVel(i,j,k,bi,bj) = uVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 467 CTRL_MAP_INI 
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 484 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 490 CTRL_MAP_INI 
                vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 491 CTRL_MAP_INI 
     &                                  fac*xx_vvel(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 493 CTRL_MAP_INI 
                vVel(i,j,k,bi,bj) = vVel(i,j,k,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 494 CTRL_MAP_INI 
     &                                  fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 511 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 516 CTRL_MAP_INI 
              etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 517 CTRL_MAP_INI 
     &                              fac*xx_etan(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 519 CTRL_MAP_INI 
              etaN(i,j,bi,bj) = etaN(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 520 CTRL_MAP_INI 
     &                              fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 521 CTRL_MAP_INI 
              etaH(i,j,bi,bj) = etaH(i,j,bi,bj) +
./pkg/ctrl/ctrl_map_ini.F 522 CTRL_MAP_INI 
     &                              fac*tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 538 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 542 CTRL_MAP_INI 
              lambdaThetaClimRelax(i,j,bi,bj) =
./pkg/ctrl/ctrl_map_ini.F 543 CTRL_MAP_INI 
     &              lambdaThetaClimRelax(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 544 CTRL_MAP_INI 
     &              + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 559 CTRL_MAP_INI 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini.F 55 CTRL_MAP_INI 
      integer bi,bj
./pkg/ctrl/ctrl_map_ini.F 563 CTRL_MAP_INI 
              lambdaSaltClimRelax(i,j,bi,bj) =
./pkg/ctrl/ctrl_map_ini.F 564 CTRL_MAP_INI 
     &              lambdaSaltClimRelax(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini.F 565 CTRL_MAP_INI 
     &              + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_ecco.F 110 CTRL_MAP_INI_ECCO 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_ecco.F 114 CTRL_MAP_INI_ECCO 
              tmpfld2d(i,j,bi,bj) = 1.
./pkg/ctrl/ctrl_map_ini_ecco.F 121 CTRL_MAP_INI_ECCO 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_ecco.F 126 CTRL_MAP_INI_ECCO 
                tmpfld3d(i,j,k,bi,bj)=1.
./pkg/ctrl/ctrl_map_ini_ecco.F 299 CTRL_MAP_INI_ECCO 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ctrl/ctrl_map_ini_ecco.F 304 CTRL_MAP_INI_ECCO 
                xx_gentim2d(i,j,bi,bj,k)=0. _d 0
./pkg/ctrl/ctrl_map_ini_ecco.F 65 CTRL_MAP_INI_ECCO 
      integer bi,bj
./pkg/ctrl/ctrl_map_ini_gen.F 116 CTRL_MAP_INI_GEN3D 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_gen.F 121 CTRL_MAP_INI_GEN3D 
      if ( (maskFld3d(i,j,k,bi,bj).NE.0.).AND.
./pkg/ctrl/ctrl_map_ini_gen.F 122 CTRL_MAP_INI_GEN3D 
     & (wFld3d(i,j,k,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 123 CTRL_MAP_INI_GEN3D 
       tmpMax=boundsVec(5)/sqrt(wFld3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F 124 CTRL_MAP_INI_GEN3D 
      if ( abs(xxFld3d(i,j,k,bi,bj)).GT.tmpMax ) then
./pkg/ctrl/ctrl_map_ini_gen.F 125 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 127 CTRL_MAP_INI_GEN3D 
       xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 147 CTRL_MAP_INI_GEN3D 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_gen.F 152 CTRL_MAP_INI_GEN3D 
      paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 153 CTRL_MAP_INI_GEN3D 
     & + xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 169 CTRL_MAP_INI_GEN3D 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_gen.F 175 CTRL_MAP_INI_GEN3D 
      if ( (maskFld3d(i,j,k,bi,bj).NE.0.)
./pkg/ctrl/ctrl_map_ini_gen.F 176 CTRL_MAP_INI_GEN3D 
     & .AND. (wFld3d(i,j,k,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 177 CTRL_MAP_INI_GEN3D 
      xxFld3d(i,j,k,bi,bj)=xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 178 CTRL_MAP_INI_GEN3D 
     & /sqrt( wFld3d(i,j,k,bi,bj) )
./pkg/ctrl/ctrl_map_ini_gen.F 180 CTRL_MAP_INI_GEN3D 
      xxFld3d(i,j,k,bi,bj)=0.
./pkg/ctrl/ctrl_map_ini_gen.F 182 CTRL_MAP_INI_GEN3D 
      paramFld3d(i,j,k,bi,bj) = paramFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 183 CTRL_MAP_INI_GEN3D 
     & + xxFld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 260 CTRL_MAP_INI_GEN2D 
      integer bi,bj
./pkg/ctrl/ctrl_map_ini_gen.F 313 CTRL_MAP_INI_GEN2D 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_gen.F 317 CTRL_MAP_INI_GEN2D 
      if ( (maskFld3d(i,j,1,bi,bj).NE.0.).AND.
./pkg/ctrl/ctrl_map_ini_gen.F 318 CTRL_MAP_INI_GEN2D 
     & (wFld2d(i,j,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 319 CTRL_MAP_INI_GEN2D 
       tmpMax=boundsVec(5)/sqrt(wFld2d(i,j,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F 320 CTRL_MAP_INI_GEN2D 
      if ( abs(xxFld2d(i,j,bi,bj)).GT.tmpMax ) then
./pkg/ctrl/ctrl_map_ini_gen.F 321 CTRL_MAP_INI_GEN2D 
       xxFld2d(i,j,bi,bj)=sign(tmpMax,xxFld2d(i,j,bi,bj))
./pkg/ctrl/ctrl_map_ini_gen.F 323 CTRL_MAP_INI_GEN2D 
       xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 342 CTRL_MAP_INI_GEN2D 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_gen.F 346 CTRL_MAP_INI_GEN2D 
      paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 347 CTRL_MAP_INI_GEN2D 
     & + xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 362 CTRL_MAP_INI_GEN2D 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_map_ini_gen.F 367 CTRL_MAP_INI_GEN2D 
      if ( (maskFld3d(i,j,1,bi,bj).NE.0.)
./pkg/ctrl/ctrl_map_ini_gen.F 368 CTRL_MAP_INI_GEN2D 
     & .AND. (wFld2d(i,j,bi,bj).GT.0.) ) then
./pkg/ctrl/ctrl_map_ini_gen.F 369 CTRL_MAP_INI_GEN2D 
      xxFld2d(i,j,bi,bj)=xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 370 CTRL_MAP_INI_GEN2D 
     & /sqrt( wFld2d(i,j,bi,bj) )
./pkg/ctrl/ctrl_map_ini_gen.F 372 CTRL_MAP_INI_GEN2D 
      xxFld2d(i,j,bi,bj)=0.
./pkg/ctrl/ctrl_map_ini_gen.F 374 CTRL_MAP_INI_GEN2D 
      paramFld2d(i,j,bi,bj) = paramFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 375 CTRL_MAP_INI_GEN2D 
     & + xxFld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_gen.F 63 CTRL_MAP_INI_GEN3D 
      integer bi,bj
./pkg/ctrl/ctrl_map_ini_genarr.F 100 CTRL_MAP_INI_GENARR 
     &                             + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 102 CTRL_MAP_INI_GENARR 
                salt(i,j,1,bi,bj) = salt(i,j,1,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 103 CTRL_MAP_INI_GENARR 
     &                            + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 135 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_map_ini_genarr.F 141 CTRL_MAP_INI_GENARR 
                theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 142 CTRL_MAP_INI_GENARR 
     &                             + fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 144 CTRL_MAP_INI_GENARR 
                salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 145 CTRL_MAP_INI_GENARR 
     &                            + fac*tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 148 CTRL_MAP_INI_GENARR 
                diffKr(i,j,k,bi,bj) = diffKr(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 149 CTRL_MAP_INI_GENARR 
     &                              + tmpfld3d(i,j,k,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 51 CTRL_MAP_INI_GENARR 
      integer bi,bj
./pkg/ctrl/ctrl_map_ini_genarr.F 89 CTRL_MAP_INI_GENARR 
       DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_map_ini_genarr.F 95 CTRL_MAP_INI_GENARR 
                bottomDragFld(i,j,bi,bj) = bottomDragFld(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 96 CTRL_MAP_INI_GENARR 
     &                                   + tmpfld2d(i,j,bi,bj)
./pkg/ctrl/ctrl_map_ini_genarr.F 99 CTRL_MAP_INI_GENARR 
                theta(i,j,1,bi,bj) = theta(i,j,1,bi,bj)
./pkg/ctrl/ctrl_mask_set_xz.F 103 CTRL_MASK_SET_XZ 
                    if (maskS(i,j+jp1,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_mask_set_xz.F 104 CTRL_MASK_SET_XZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_xz.F 105 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 110 CTRL_MASK_SET_XZ 
                    if (maskW(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_xz.F 111 CTRL_MASK_SET_XZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_xz.F 112 CTRL_MASK_SET_XZ 
                      maskxz(i,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_xz.F 127 CTRL_MASK_SET_XZ 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_mask_set_xz.F 131 CTRL_MASK_SET_XZ 
                 gg(i,k,bi,bj) = maskxz(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_xz.F 40 CTRL_MASK_SET_XZ 
      integer bi,bj
./pkg/ctrl/ctrl_mask_set_xz.F 83 CTRL_MASK_SET_XZ 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_mask_set_xz.F 87 CTRL_MASK_SET_XZ 
                maskxz(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_xz.F 95 CTRL_MASK_SET_XZ 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_mask_set_xz.F 99 CTRL_MASK_SET_XZ 
                j = OB_J(i,bi,bj)
./pkg/ctrl/ctrl_mask_set_yz.F 100 CTRL_MASK_SET_YZ 
                i = OB_I(j,bi,bj)
./pkg/ctrl/ctrl_mask_set_yz.F 104 CTRL_MASK_SET_YZ 
                    if (maskW(i+ip1,j,k,bi,bj) .ne. 0.) then
./pkg/ctrl/ctrl_mask_set_yz.F 105 CTRL_MASK_SET_YZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_yz.F 106 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F 111 CTRL_MASK_SET_YZ 
                    if (maskS(i,j,k,bi,bj) .eq. 1.) then
./pkg/ctrl/ctrl_mask_set_yz.F 112 CTRL_MASK_SET_YZ 
                      nwetobcs(bi,bj,k,iobcs) =nwetobcs(bi,bj,k,iobcs)+1
./pkg/ctrl/ctrl_mask_set_yz.F 113 CTRL_MASK_SET_YZ 
                      maskyz(j,k,bi,bj,iobcs) = 1
./pkg/ctrl/ctrl_mask_set_yz.F 128 CTRL_MASK_SET_YZ 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_mask_set_yz.F 132 CTRL_MASK_SET_YZ 
                 gg(j,k,bi,bj) = maskyz(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_mask_set_yz.F 40 CTRL_MASK_SET_YZ 
      integer bi,bj
./pkg/ctrl/ctrl_mask_set_yz.F 84 CTRL_MASK_SET_YZ 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_mask_set_yz.F 88 CTRL_MASK_SET_YZ 
                maskyz(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_yz.F 96 CTRL_MASK_SET_YZ 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_readparms.F 39 CTRL_READPARMS 
      integer bi,bj
./pkg/ctrl/ctrl_set_globfld_xy.F 45 CTRL_SET_GLOBFLD_XY 
      integer bi,bj
./pkg/ctrl/ctrl_set_globfld_xy.F 71 CTRL_SET_GLOBFLD_XY 
      do bj = jtlo,jthi
./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 81 CTRL_SET_GLOBFLD_XY 
      do bj = jtlo,jthi
./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 40 CTRL_SET_GLOBFLD_XYZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_globfld_xyz.F 65 CTRL_SET_GLOBFLD_XYZ 
      do bj = jtlo,jthi
./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 45 CTRL_SET_GLOBFLD_XZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_globfld_xz.F 71 CTRL_SET_GLOBFLD_XZ 
      do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_globfld_xz.F 75 CTRL_SET_GLOBFLD_XZ 
                  globfldxz(i,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xz.F 81 CTRL_SET_GLOBFLD_XZ 
      do bj = jtlo,jthi
./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 45 CTRL_SET_GLOBFLD_YZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_globfld_yz.F 72 CTRL_SET_GLOBFLD_YZ 
      do bj = jtlo,jthi
./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 82 CTRL_SET_GLOBFLD_YZ 
      do bj = jtlo,jthi
./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 101 CTRL_SET_PACK_XY 
             globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 102 CTRL_SET_PACK_XY 
             globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 103 CTRL_SET_PACK_XY 
             globfldtmp2(i,bi,ip,j,bj,jp)   = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 104 CTRL_SET_PACK_XY 
             globfldtmp3(i,bi,ip,j,bj,jp)   = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 154 CTRL_SET_PACK_XY 
         do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xy.F 159 CTRL_SET_PACK_XY 
              weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 187 CTRL_SET_PACK_XY 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xy.F 192 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,1)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 195 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F 196 CTRL_SET_PACK_XY 
     &                    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 203 CTRL_SET_PACK_XY 
     &                       sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 207 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 208 CTRL_SET_PACK_XY 
     &                       sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 214 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 218 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 225 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 229 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 234 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 281 CTRL_SET_PACK_XY 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xy.F 286 CTRL_SET_PACK_XY 
                  if (globmsk(i,bi,ip,j,bj,jp,k)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xy.F 289 CTRL_SET_PACK_XY 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xy.F 290 CTRL_SET_PACK_XY 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 296 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xy.F 297 CTRL_SET_PACK_XY 
     &                       sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 301 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xy.F 302 CTRL_SET_PACK_XY 
     &                       sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_pack_xy.F 308 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 312 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 319 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 323 CTRL_SET_PACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xy.F 328 CTRL_SET_PACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xy.F 371 CTRL_SET_PACK_XY 
      integer bi,bj
./pkg/ctrl/ctrl_set_pack_xy.F 441 CTRL_SET_PACK_XY 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_set_pack_xy.F 445 CTRL_SET_PACK_XY 
           if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xy.F 446 CTRL_SET_PACK_XY 
            fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 447 CTRL_SET_PACK_XY 
            fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 451 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 452 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) / PrecondScalar
./pkg/ctrl/ctrl_set_pack_xy.F 454 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 455 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) * PrecondScalar
./pkg/ctrl/ctrl_set_pack_xy.F 460 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_pack_xy.F 463 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) = fld2dDim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_pack_xy.F 468 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 469 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_pack_xy.F 472 CTRL_SET_PACK_XY 
               fld2dNodim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xy.F 473 CTRL_SET_PACK_XY 
     &              fld2dDim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_pack_xy.F 47 CTRL_SET_PACK_XY 
      integer bi,bj
./pkg/ctrl/ctrl_set_pack_xy.F 96 CTRL_SET_PACK_XY 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xyz.F 105 CTRL_SET_PACK_XYZ 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xyz.F 110 CTRL_SET_PACK_XYZ 
             globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 111 CTRL_SET_PACK_XYZ 
             globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 112 CTRL_SET_PACK_XYZ 
             globfldtmp2(i,bi,ip,j,bj,jp)   = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 113 CTRL_SET_PACK_XYZ 
             globfldtmp3(i,bi,ip,j,bj,jp)   = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 164 CTRL_SET_PACK_XYZ 
         do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xyz.F 169 CTRL_SET_PACK_XYZ 
              weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 203 CTRL_SET_PACK_XYZ 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xyz.F 208 CTRL_SET_PACK_XYZ 
                  if (globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xyz.F 211 CTRL_SET_PACK_XYZ 
                     globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xyz.F 212 CTRL_SET_PACK_XYZ 
     &                    globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 218 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 220 CTRL_SET_PACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 222 CTRL_SET_PACK_XYZ 
     &                       * sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 226 CTRL_SET_PACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 228 CTRL_SET_PACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_pack_xyz.F 230 CTRL_SET_PACK_XYZ 
     &                       / sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 234 CTRL_SET_PACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xyz.F 237 CTRL_SET_PACK_XYZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 240 CTRL_SET_PACK_XYZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xyz.F 283 CTRL_SET_PACK_XYZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_pack_xyz.F 355 CTRL_SET_PACK_XYZ 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_set_pack_xyz.F 365 CTRL_SET_PACK_XYZ 
           if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xyz.F 366 CTRL_SET_PACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 367 CTRL_SET_PACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 370 CTRL_SET_PACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=fld3dDim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_pack_xyz.F 373 CTRL_SET_PACK_XYZ 
            fld3dNodim(i,j,k,bi,bj) = fld3dDim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_pack_xyz.F 376 CTRL_SET_PACK_XYZ 
               fld3dNodim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xyz.F 377 CTRL_SET_PACK_XYZ 
     &              fld3dDim(i,j,k,bi,bj) / delZnorm
./pkg/ctrl/ctrl_set_pack_xyz.F 379 CTRL_SET_PACK_XYZ 
     &              * sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 381 CTRL_SET_PACK_XYZ 
     &              * sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 384 CTRL_SET_PACK_XYZ 
               fld3dNodim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_pack_xyz.F 385 CTRL_SET_PACK_XYZ 
     &              fld3dDim(i,j,k,bi,bj) * delZnorm
./pkg/ctrl/ctrl_set_pack_xyz.F 387 CTRL_SET_PACK_XYZ 
     &              / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 389 CTRL_SET_PACK_XYZ 
     &              / sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_pack_xyz.F 51 CTRL_SET_PACK_XYZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_pack_xz.F 103 CTRL_SET_PACK_XZ 
                        globfldxz  (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 104 CTRL_SET_PACK_XZ 
                        globfldtmp2(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 105 CTRL_SET_PACK_XZ 
                        globfldtmp3(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_xz.F 107 CTRL_SET_PACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 118 CTRL_SET_PACK_XZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xz.F 123 CTRL_SET_PACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 197 CTRL_SET_PACK_XZ 
              do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xz.F 203 CTRL_SET_PACK_XZ 
                  if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 206 CTRL_SET_PACK_XZ 
                     globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xz.F 207 CTRL_SET_PACK_XZ 
     &                    globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 212 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_xz.F 214 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 220 CTRL_SET_PACK_XZ 
     &                       globfld3d(i,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_xz.F 222 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 228 CTRL_SET_PACK_XZ 
                     globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 231 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_xz.F 272 CTRL_SET_PACK_XZ 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_xz.F 276 CTRL_SET_PACK_XZ 
                 if (globmskxz(i,bi,ip,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_xz.F 279 CTRL_SET_PACK_XZ 
                     globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_pack_xz.F 280 CTRL_SET_PACK_XZ 
     &                    globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xz.F 285 CTRL_SET_PACK_XZ 
     &                       globfldxz(i,bi,ip,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_xz.F 287 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 293 CTRL_SET_PACK_XZ 
     &                       globfldxz(i,bi,ip,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_xz.F 295 CTRL_SET_PACK_XZ 
     &                       sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_xz.F 301 CTRL_SET_PACK_XZ 
                     globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_xz.F 304 CTRL_SET_PACK_XZ 
                     cbuff(cbuffindex) = globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_xz.F 53 CTRL_SET_PACK_XZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_pack_xz.F 99 CTRL_SET_PACK_XZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_yz.F 103 CTRL_SET_PACK_YZ 
                        globfldyz  (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 104 CTRL_SET_PACK_YZ 
                        globfldtmp2(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 105 CTRL_SET_PACK_YZ 
                        globfldtmp3(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_pack_yz.F 107 CTRL_SET_PACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 118 CTRL_SET_PACK_YZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_yz.F 123 CTRL_SET_PACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 200 CTRL_SET_PACK_YZ 
              do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_yz.F 207 CTRL_SET_PACK_YZ 
                  if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 210 CTRL_SET_PACK_YZ 
                     globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F 211 CTRL_SET_PACK_YZ 
     &                    globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F 216 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) *
./pkg/ctrl/ctrl_set_pack_yz.F 218 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 224 CTRL_SET_PACK_YZ 
     &                       globfld3d(ii,bi,ip,jj,bj,jp,kk) /
./pkg/ctrl/ctrl_set_pack_yz.F 226 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 232 CTRL_SET_PACK_YZ 
                     globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 235 CTRL_SET_PACK_YZ 
                     cbuff(cbuffindex) = globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_pack_yz.F 276 CTRL_SET_PACK_YZ 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_pack_yz.F 280 CTRL_SET_PACK_YZ 
                 if (globmskyz(bi,ip,j,bj,jp,k,iobcs)  .ne. 0. ) then
./pkg/ctrl/ctrl_set_pack_yz.F 283 CTRL_SET_PACK_YZ 
                     globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_pack_yz.F 284 CTRL_SET_PACK_YZ 
     &                    globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F 289 CTRL_SET_PACK_YZ 
     &                       globfldyz(bi,ip,j,bj,jp,k) *
./pkg/ctrl/ctrl_set_pack_yz.F 291 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 297 CTRL_SET_PACK_YZ 
     &                       globfldyz(bi,ip,j,bj,jp,k) /
./pkg/ctrl/ctrl_set_pack_yz.F 299 CTRL_SET_PACK_YZ 
     &                       sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_pack_yz.F 305 CTRL_SET_PACK_YZ 
                     globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_pack_yz.F 308 CTRL_SET_PACK_YZ 
                     cbuff(cbuffindex) = globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_pack_yz.F 53 CTRL_SET_PACK_YZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_pack_yz.F 99 CTRL_SET_PACK_YZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xy.F 102 CTRL_SET_UNPACK_XY 
             globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 103 CTRL_SET_UNPACK_XY 
             globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 104 CTRL_SET_UNPACK_XY 
             globfldtmp2(i,bi,ip,j,bj,jp)   = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 105 CTRL_SET_UNPACK_XY 
             globfldtmp3(i,bi,ip,j,bj,jp)   = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 155 CTRL_SET_UNPACK_XY 
         do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xy.F 160 CTRL_SET_UNPACK_XY 
              weightfld2d(i,bi,ip,j,bj,jp) = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 211 CTRL_SET_UNPACK_XY 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xy.F 216 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,1) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 218 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 220 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 224 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 227 CTRL_SET_UNPACK_XY 
                     globfldtmp2(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 236 CTRL_SET_UNPACK_XY 
     &                       / sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 240 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 241 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 243 CTRL_SET_UNPACK_XY 
     &                       * sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 249 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 250 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 253 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 254 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 259 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 262 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 263 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 321 CTRL_SET_UNPACK_XY 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xy.F 326 CTRL_SET_UNPACK_XY 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xy.F 328 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xy.F 330 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./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 337 CTRL_SET_UNPACK_XY 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 343 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 344 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 346 CTRL_SET_UNPACK_XY 
     &                       / sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 350 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)
./pkg/ctrl/ctrl_set_unpack_xy.F 353 CTRL_SET_UNPACK_XY 
     &                       * sqrt(weightfld2d(i,bi,ip,j,bj,jp))
./pkg/ctrl/ctrl_set_unpack_xy.F 359 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 360 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 363 CTRL_SET_UNPACK_XY 
                        globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xy.F 364 CTRL_SET_UNPACK_XY 
     &                       globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 369 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 372 CTRL_SET_UNPACK_XY 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xy.F 373 CTRL_SET_UNPACK_XY 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xy.F 405 CTRL_SET_UNPACK_XY 
      integer bi,bj
./pkg/ctrl/ctrl_set_unpack_xy.F 48 CTRL_SET_UNPACK_XY 
      integer bi,bj
./pkg/ctrl/ctrl_set_unpack_xy.F 545 CTRL_SET_UNPACK_XY 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_set_unpack_xy.F 549 CTRL_SET_UNPACK_XY 
           if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xy.F 550 CTRL_SET_UNPACK_XY 
            fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 551 CTRL_SET_UNPACK_XY 
            fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 555 CTRL_SET_UNPACK_XY 
            fld2dNodim(i,j,bi,bj)=phtmpadmtlm(nveccount)
./pkg/ctrl/ctrl_set_unpack_xy.F 559 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 560 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) * precondScalar
./pkg/ctrl/ctrl_set_unpack_xy.F 562 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 563 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) / precondScalar
./pkg/ctrl/ctrl_set_unpack_xy.F 568 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xy.F 571 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) = fld2dNodim(i,j,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xy.F 576 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 577 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) / sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xy.F 580 CTRL_SET_UNPACK_XY 
               fld2dDim(i,j,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xy.F 581 CTRL_SET_UNPACK_XY 
     &              fld2dNodim(i,j,bi,bj) * sqrt(wei2d(i,j,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xy.F 97 CTRL_SET_UNPACK_XY 
        do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xyz.F 107 CTRL_SET_UNPACK_XYZ 
        do bj = jtlo,jthi
./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. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 115 CTRL_SET_UNPACK_XYZ 
             globfldtmp3(i,bi,ip,j,bj,jp)   = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 173 CTRL_SET_UNPACK_XYZ 
         do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xyz.F 178 CTRL_SET_UNPACK_XYZ 
              weightfld3d(i,bi,ip,j,bj,jp,k) = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 234 CTRL_SET_UNPACK_XYZ 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xyz.F 239 CTRL_SET_UNPACK_XYZ 
                  if ( globmsk(i,bi,ip,j,bj,jp,k) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 241 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 243 CTRL_SET_UNPACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xyz.F 247 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 250 CTRL_SET_UNPACK_XYZ 
                     globfldtmp2(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 257 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 258 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 260 CTRL_SET_UNPACK_XYZ 
     &                       / sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 262 CTRL_SET_UNPACK_XYZ 
     &                       / sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 265 CTRL_SET_UNPACK_XYZ 
                        globfld3d(i,bi,ip,j,bj,jp,k) = 1/delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 266 CTRL_SET_UNPACK_XYZ 
     &                       * globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 268 CTRL_SET_UNPACK_XYZ 
     &                       * sqrt(weightfld3d(i,bi,ip,j,bj,jp,k))
./pkg/ctrl/ctrl_set_unpack_xyz.F 270 CTRL_SET_UNPACK_XYZ 
     &                       * sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 276 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 279 CTRL_SET_UNPACK_XYZ 
                  globfldtmp3(i,bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 280 CTRL_SET_UNPACK_XYZ 
     &                 globfld3d(i,bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xyz.F 312 CTRL_SET_UNPACK_XYZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_unpack_xyz.F 453 CTRL_SET_UNPACK_XYZ 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_set_unpack_xyz.F 463 CTRL_SET_UNPACK_XYZ 
           if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 464 CTRL_SET_UNPACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 465 CTRL_SET_UNPACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 469 CTRL_SET_UNPACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=phtmpadmtlm(nveccount)
./pkg/ctrl/ctrl_set_unpack_xyz.F 472 CTRL_SET_UNPACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=fld3dNodim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xyz.F 475 CTRL_SET_UNPACK_XYZ 
            fld3dDim(i,j,k,bi,bj) = fld3dNodim(i,j,k,bi,bj)
./pkg/ctrl/ctrl_set_unpack_xyz.F 478 CTRL_SET_UNPACK_XYZ 
               fld3dDim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 479 CTRL_SET_UNPACK_XYZ 
     &              fld3dNodim(i,j,k,bi,bj) * delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 481 CTRL_SET_UNPACK_XYZ 
     &              / sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 483 CTRL_SET_UNPACK_XYZ 
     &              / sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 486 CTRL_SET_UNPACK_XYZ 
               fld3dDim(i,j,k,bi,bj) =
./pkg/ctrl/ctrl_set_unpack_xyz.F 487 CTRL_SET_UNPACK_XYZ 
     &              fld3dNodim(i,j,k,bi,bj) / delZnorm
./pkg/ctrl/ctrl_set_unpack_xyz.F 489 CTRL_SET_UNPACK_XYZ 
     &              * sqrt(wei3d(i,j,k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 491 CTRL_SET_UNPACK_XYZ 
     &              * sqrt(weightfld(k,bi,bj))
./pkg/ctrl/ctrl_set_unpack_xyz.F 51 CTRL_SET_UNPACK_XYZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_unpack_xz.F 104 CTRL_SET_UNPACK_XZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xz.F 108 CTRL_SET_UNPACK_XZ 
                        globfldxz  (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 109 CTRL_SET_UNPACK_XZ 
                        globfldtmp2(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xz.F 110 CTRL_SET_UNPACK_XZ 
                        globfldtmp3(i,bi,ip,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_xz.F 112 CTRL_SET_UNPACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 123 CTRL_SET_UNPACK_XZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xz.F 128 CTRL_SET_UNPACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 226 CTRL_SET_UNPACK_XZ 
                do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xz.F 230 CTRL_SET_UNPACK_XZ 
                    if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 232 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 235 CTRL_SET_UNPACK_XZ 
                       globfldtmp2(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F 239 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_xz.F 240 CTRL_SET_UNPACK_XZ 
     &                      globfld3d(i,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_xz.F 242 CTRL_SET_UNPACK_XZ 
     &                      sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 248 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 251 CTRL_SET_UNPACK_XZ 
                    globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F 252 CTRL_SET_UNPACK_XZ 
     &                   globfld3d(i,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_xz.F 311 CTRL_SET_UNPACK_XZ 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_xz.F 315 CTRL_SET_UNPACK_XZ 
                  if ( globmskxz(i,bi,ip,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_xz.F 317 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 319 CTRL_SET_UNPACK_XZ 
                     globfldtmp2(i,bi,ip,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_xz.F 322 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_xz.F 323 CTRL_SET_UNPACK_XZ 
     &                    globfldxz(i,bi,ip,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_xz.F 325 CTRL_SET_UNPACK_XZ 
     &                    sqrt(weightfldxz(i,bi,ip,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_xz.F 331 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 334 CTRL_SET_UNPACK_XZ 
                  globfldtmp3(i,bi,ip,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_xz.F 335 CTRL_SET_UNPACK_XZ 
     &                 globfldxz(i,bi,ip,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_xz.F 54 CTRL_SET_UNPACK_XZ 
      integer bi,bj
./pkg/ctrl/ctrl_set_unpack_yz.F 104 CTRL_SET_UNPACK_YZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_yz.F 108 CTRL_SET_UNPACK_YZ 
                        globfldyz  (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 109 CTRL_SET_UNPACK_YZ 
                        globfldtmp2(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F 110 CTRL_SET_UNPACK_YZ 
                        globfldtmp3(bi,ip,j,bj,jp)   = 0.
./pkg/ctrl/ctrl_set_unpack_yz.F 112 CTRL_SET_UNPACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 123 CTRL_SET_UNPACK_YZ 
            do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_yz.F 128 CTRL_SET_UNPACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 223 CTRL_SET_UNPACK_YZ 
                do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_yz.F 230 CTRL_SET_UNPACK_YZ 
                    if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 232 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 235 CTRL_SET_UNPACK_YZ 
                       globfldtmp2(bi,ip,jj,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F 239 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) =
./pkg/ctrl/ctrl_set_unpack_yz.F 240 CTRL_SET_UNPACK_YZ 
     &                      globfld3d(ii,bi,ip,jj,bj,jp,kk)/
./pkg/ctrl/ctrl_set_unpack_yz.F 242 CTRL_SET_UNPACK_YZ 
     &                      sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 248 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 251 CTRL_SET_UNPACK_YZ 
                    globfldtmp3(bi,ip,jj,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F 252 CTRL_SET_UNPACK_YZ 
     &                   globfld3d(ii,bi,ip,jj,bj,jp,kk)
./pkg/ctrl/ctrl_set_unpack_yz.F 310 CTRL_SET_UNPACK_YZ 
             do bj = jtlo,jthi
./pkg/ctrl/ctrl_set_unpack_yz.F 314 CTRL_SET_UNPACK_YZ 
                  if ( globmskyz(bi,ip,j,bj,jp,k,iobcs) .ne. 0. ) then
./pkg/ctrl/ctrl_set_unpack_yz.F 316 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F 318 CTRL_SET_UNPACK_YZ 
                     globfldtmp2(bi,ip,j,bj,jp) = cbuff(cbuffindex)
./pkg/ctrl/ctrl_set_unpack_yz.F 321 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) =
./pkg/ctrl/ctrl_set_unpack_yz.F 322 CTRL_SET_UNPACK_YZ 
     &                    globfldyz(bi,ip,j,bj,jp,k)/
./pkg/ctrl/ctrl_set_unpack_yz.F 324 CTRL_SET_UNPACK_YZ 
     &                    sqrt(weightfldyz(bi,ip,j,bj,jp,k,iobcs))
./pkg/ctrl/ctrl_set_unpack_yz.F 330 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 333 CTRL_SET_UNPACK_YZ 
                  globfldtmp3(bi,ip,j,bj,jp) =
./pkg/ctrl/ctrl_set_unpack_yz.F 334 CTRL_SET_UNPACK_YZ 
     &                 globfldyz(bi,ip,j,bj,jp,k)
./pkg/ctrl/ctrl_set_unpack_yz.F 54 CTRL_SET_UNPACK_YZ 
      integer bi,bj
./pkg/ctrl/ctrl_smooth.F 26 CTRL_SMOOTH 
      integer k, bi, bj
./pkg/ctrl/ctrl_smooth.F 38 CTRL_SMOOTH 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/ctrl/ctrl_smooth.F 48 CTRL_SMOOTH 
     &           p25   *   mask(i  ,j  ,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 49 CTRL_SMOOTH 
     &           p125  * ( mask(im1,j  ,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 50 CTRL_SMOOTH 
     &                     mask(ip1,j  ,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 51 CTRL_SMOOTH 
     &                     mask(i  ,jm1,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 52 CTRL_SMOOTH 
     &                     mask(i  ,jp1,k,bi,bj) ) +
./pkg/ctrl/ctrl_smooth.F 53 CTRL_SMOOTH 
     &           p0625 * ( mask(im1,jm1,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 54 CTRL_SMOOTH 
     &                     mask(im1,jp1,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 55 CTRL_SMOOTH 
     &                     mask(ip1,jm1,k,bi,bj)   +
./pkg/ctrl/ctrl_smooth.F 56 CTRL_SMOOTH 
     &                     mask(ip1,jp1,k,bi,bj) )
./pkg/ctrl/ctrl_smooth.F 59 CTRL_SMOOTH 
     &              p25  * fld(i  ,j,bi,bj  )*mask(i  ,j  ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 60 CTRL_SMOOTH 
     &              p125 *(fld(im1,j ,bi,bj )*mask(im1,j  ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 61 CTRL_SMOOTH 
     &                     fld(ip1,j ,bi,bj )*mask(ip1,j  ,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 62 CTRL_SMOOTH 
     &                     fld(i  ,jm1,bi,bj)*mask(i  ,jm1,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 63 CTRL_SMOOTH 
     &                     fld(i  ,jp1,bi,bj)*mask(i  ,jp1,k,bi,bj))+
./pkg/ctrl/ctrl_smooth.F 64 CTRL_SMOOTH 
     &              p0625*(fld(im1,jm1,bi,bj)*mask(im1,jm1,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 65 CTRL_SMOOTH 
     &                     fld(im1,jp1,bi,bj)*mask(im1,jp1,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 66 CTRL_SMOOTH 
     &                     fld(ip1,jm1,bi,bj)*mask(ip1,jm1,k,bi,bj) +
./pkg/ctrl/ctrl_smooth.F 67 CTRL_SMOOTH 
     &                     fld(ip1,jp1,bi,bj)*mask(ip1,jp1,k,bi,bj)))
./pkg/ctrl/ctrl_smooth.F 70 CTRL_SMOOTH 
             fld_tmp(i,j) = fld(i,j,bi,bj)
./pkg/ctrl/ctrl_smooth.F 78 CTRL_SMOOTH 
            fld(i,j,bi,bj) = fld_tmp(i,j)
./pkg/ctrl/ctrl_summary.F 105 CTRL_SUMMARY 
      do bj = 1,nsy
./pkg/ctrl/ctrl_summary.F 111 CTRL_SUMMARY 
            nwetcenter = nwetcenter + nwetctile(bi,bj,k)
./pkg/ctrl/ctrl_summary.F 112 CTRL_SUMMARY 
            nwetsouth  = nwetsouth  + nwetstile(bi,bj,k)
./pkg/ctrl/ctrl_summary.F 113 CTRL_SUMMARY 
            nwetwest   = nwetwest   + nwetwtile(bi,bj,k)
./pkg/ctrl/ctrl_summary.F 116 CTRL_SUMMARY 
     &    ' bi,bj,#(c/s/w):',bi,bj,nwetcenter,
./pkg/ctrl/ctrl_summary.F 40 CTRL_SUMMARY 
      integer bi,bj
./pkg/ctrl/ctrl_swapffields.F 103 CTRL_SWAPFFIELDS_3D 
      INTEGER bi, bj
./pkg/ctrl/ctrl_swapffields.F 108 CTRL_SWAPFFIELDS_3D 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ctrl/ctrl_swapffields.F 113 CTRL_SWAPFFIELDS_3D 
                ffld0(i,j,k,bi,bj) = ffld1(i,j,k,bi,bj)
./pkg/ctrl/ctrl_swapffields.F 114 CTRL_SWAPFFIELDS_3D 
                ffld1(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_swapffields.F 157 CTRL_SWAPFFIELDS_XZ 
      INTEGER bi, bj
./pkg/ctrl/ctrl_swapffields.F 162 CTRL_SWAPFFIELDS_XZ 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ctrl/ctrl_swapffields.F 166 CTRL_SWAPFFIELDS_XZ 
              ffld0(i,k,bi,bj) = ffld1(i,k,bi,bj)
./pkg/ctrl/ctrl_swapffields.F 167 CTRL_SWAPFFIELDS_XZ 
              ffld1(i,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_swapffields.F 209 CTRL_SWAPFFIELDS_YZ 
      INTEGER bi, bj
./pkg/ctrl/ctrl_swapffields.F 214 CTRL_SWAPFFIELDS_YZ 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ctrl/ctrl_swapffields.F 218 CTRL_SWAPFFIELDS_YZ 
              ffld0(j,k,bi,bj) = ffld1(j,k,bi,bj)
./pkg/ctrl/ctrl_swapffields.F 219 CTRL_SWAPFFIELDS_YZ 
              ffld1(j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_swapffields.F 53 CTRL_SWAPFFIELDS 
      INTEGER bi, bj
./pkg/ctrl/ctrl_swapffields.F 58 CTRL_SWAPFFIELDS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ctrl/ctrl_swapffields.F 62 CTRL_SWAPFFIELDS 
              ffld0(i,j,bi,bj) = ffld1(i,j,bi,bj)
./pkg/ctrl/ctrl_swapffields.F 63 CTRL_SWAPFFIELDS 
              ffld1(i,j,bi,bj) = 0. _d 0
./pkg/debug/chksum_tiled.F 13 CHKSUM_TILED 
      INTEGER NN,bi,bj,myThid
./pkg/debug/chksum_tiled.F 22 CHKSUM_TILED 
      Fmin=fld(1,1,1,bi,bj)
./pkg/debug/chksum_tiled.F 23 CHKSUM_TILED 
      Fmax=fld(1,1,1,bi,bj)
./pkg/debug/chksum_tiled.F 28 CHKSUM_TILED 
         Fmin=min(Fmin,fld(I,J,K,bi,bj))
./pkg/debug/chksum_tiled.F 29 CHKSUM_TILED 
         Fmax=max(Fmax,fld(I,J,K,bi,bj))
./pkg/debug/chksum_tiled.F 30 CHKSUM_TILED 
         Fmn=Fmn+fld(I,J,K,bi,bj)
./pkg/debug/chksum_tiled.F 39 CHKSUM_TILED 
         Frms=Frms+(fld(I,J,K,bi,bj)-Fmn)**2
./pkg/debug/chksum_tiled.F 6 CHKSUM_TILED 
      SUBROUTINE CHKSUM_TILED( str,fld,NN,bi,bj,myThid )
./pkg/debug/debug_cs_corner_uv.F 49 DEBUG_CS_CORNER_UV 
      INTEGER bi, bj
./pkg/debug/debug_cs_corner_uv.F 81 DEBUG_CS_CORNER_UV 
       n1 = bi + (bj-1)*nSx
./pkg/debug/debug_cs_corner_uv.F 94 DEBUG_CS_CORNER_UV 
       IF (bi.EQ.nSx .AND. bj.EQ.nSy .AND. sNx.EQ.sNy) THEN
./pkg/debug/debug_cs_corner_uv.F 9 DEBUG_CS_CORNER_UV 
     I                 k, ioUnit, bi,bj, myThid )
./pkg/debug/debug_fld_stats_rl.F 31 DEBUG_FLD_STATS_RL 
      INTEGER bi,bj,I,J,K
./pkg/debug/debug_fld_stats_rl.F 45 DEBUG_FLD_STATS_RL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/debug/debug_fld_stats_rl.F 50 DEBUG_FLD_STATS_RL 
           tmpVal=arr(I,J,K,bi,bj)
./pkg/debug/debug_fld_stats_rl.F 84 DEBUG_FLD_STATS_RL 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/debug/debug_fld_stats_rl.F 89 DEBUG_FLD_STATS_RL 
            tmpVal=arr(I,J,K,bi,bj)
./pkg/debug/debug_fld_stats_rs.F 31 DEBUG_FLD_STATS_RS 
      INTEGER bi,bj,I,J,K
./pkg/debug/debug_fld_stats_rs.F 45 DEBUG_FLD_STATS_RS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/debug/debug_fld_stats_rs.F 50 DEBUG_FLD_STATS_RS 
           tmpVal=arr(I,J,K,bi,bj)
./pkg/debug/debug_fld_stats_rs.F 84 DEBUG_FLD_STATS_RS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/debug/debug_fld_stats_rs.F 89 DEBUG_FLD_STATS_RS 
            tmpVal=arr(I,J,K,bi,bj)
./pkg/debug/fill_in_corners_rl.F 39 FILL_IN_CORNERS_RL 
      INTEGER bi, bj
./pkg/debug/fill_in_corners_rl.F 41 FILL_IN_CORNERS_RL 
      DO bj = myByLo(myThid), myByHi(myThid)
./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/fill_in_corners_rl.F 50 FILL_IN_CORNERS_RL 
           fld(i,jj,k,bi,bj)  = spvFld
./pkg/debug/fill_in_corners_rl.F 51 FILL_IN_CORNERS_RL 
           fld(ii,jj,k,bi,bj) = spvFld
./pkg/debug/write_fullarray_rl.F 50 WRITE_FULLARRAY_RL 
      INTEGER i,j,k,bi,bj,iG,jG
./pkg/debug/write_fullarray_rl.F 74 WRITE_FULLARRAY_RL 
       DO bj = 1,nSy
./pkg/debug/write_fullarray_rl.F 77 WRITE_FULLARRAY_RL 
         jG=bj+(myYGlobalLo-1)/sNy
./pkg/debug/write_fullarray_rl.F 99 WRITE_FULLARRAY_RL 
           WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj),
./pkg/debug/write_fullarray_rs.F 50 WRITE_FULLARRAY_RS 
      INTEGER i,j,k,bi,bj,iG,jG
./pkg/debug/write_fullarray_rs.F 74 WRITE_FULLARRAY_RS 
       DO bj = 1,nSy
./pkg/debug/write_fullarray_rs.F 77 WRITE_FULLARRAY_RS 
         jG=bj+(myYGlobalLo-1)/sNy
./pkg/debug/write_fullarray_rs.F 99 WRITE_FULLARRAY_RS 
           WRITE(dUnit,rec=kRec) (( fld(i,j,k,bi,bj),
./pkg/diagnostics/diag_calc_psivel.F 108 DIAG_CALC_PSIVEL 
            psiVel(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_calc_psivel.F 117 DIAG_CALC_PSIVEL 
           IF ( OBCS_insideMask(i,j,bi,bj).EQ.1.
./pkg/diagnostics/diag_calc_psivel.F 138 DIAG_CALC_PSIVEL 
             IF ( OBCS_insideMask(i,j-1,bi,bj).EQ.1. .OR.
./pkg/diagnostics/diag_calc_psivel.F 139 DIAG_CALC_PSIVEL 
     &            OBCS_insideMask(i, j ,bi,bj).EQ.1. ) THEN
./pkg/diagnostics/diag_calc_psivel.F 143 DIAG_CALC_PSIVEL 
                 psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 144 DIAG_CALC_PSIVEL 
     &                               + vTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 149 DIAG_CALC_PSIVEL 
                 psiVel(i,j,bi,bj) = psiVel(i+1,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 150 DIAG_CALC_PSIVEL 
     &                               - vTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 157 DIAG_CALC_PSIVEL 
             IF ( OBCS_insideMask(i-1,j,bi,bj).EQ.1. .OR.
./pkg/diagnostics/diag_calc_psivel.F 158 DIAG_CALC_PSIVEL 
     &            OBCS_insideMask( i ,j,bi,bj).EQ.1. ) THEN
./pkg/diagnostics/diag_calc_psivel.F 162 DIAG_CALC_PSIVEL 
                 psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 163 DIAG_CALC_PSIVEL 
     &                               - uTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 168 DIAG_CALC_PSIVEL 
                 psiVel(i,j,bi,bj) = psiVel(i,j+1,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 169 DIAG_CALC_PSIVEL 
     &                               + uTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 177 DIAG_CALC_PSIVEL 
     &          ' diag_calc_psivel: bi,bj=', bi, bj,
./pkg/diagnostics/diag_calc_psivel.F 194 DIAG_CALC_PSIVEL 
         IF ( jx.NE.0 ) dPsiX (bi,bj) = psiVel(ix,jx,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 205 DIAG_CALC_PSIVEL 
         IF ( iy.NE.0 ) dPsiY (bi,bj) = psiVel(iy,jy,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 216 DIAG_CALC_PSIVEL 
         psiVel(1,1,bi,bj) = psiOri(bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 219 DIAG_CALC_PSIVEL 
           psiVel(i+1,j,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 220 DIAG_CALC_PSIVEL 
     &                         + vTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 225 DIAG_CALC_PSIVEL 
           psiVel(i,j+1,bi,bj) = psiVel(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 226 DIAG_CALC_PSIVEL 
     &                         - uTrans(i,j,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 229 DIAG_CALC_PSIVEL 
         dPsiX (bi,bj) = psiVel(1+sNx,1,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 230 DIAG_CALC_PSIVEL 
         dPsiY (bi,bj) = psiVel(1,1+sNy,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 242 DIAG_CALC_PSIVEL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_calc_psivel.F 246 DIAG_CALC_PSIVEL 
           psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + psiOri(bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 249 DIAG_CALC_PSIVEL 
        IF ( iPsi0(bi,bj)*jPsi0(bi,bj).GT.0 )
./pkg/diagnostics/diag_calc_psivel.F 250 DIAG_CALC_PSIVEL 
     &   offSet = -psiVel(iPsi0(bi,bj),jPsi0(bi,bj),bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 259 DIAG_CALC_PSIVEL 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_calc_psivel.F 263 DIAG_CALC_PSIVEL 
             psiVel(i,j,bi,bj) = psiVel(i,j,bi,bj) + offSet
./pkg/diagnostics/diag_calc_psivel.F 64 DIAG_CALC_PSIVEL 
      INTEGER bi, bj
./pkg/diagnostics/diag_calc_psivel.F 89 DIAG_CALC_PSIVEL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_calc_psivel.F 91 DIAG_CALC_PSIVEL 
        dPsiX (bi,bj) = 0.
./pkg/diagnostics/diag_calc_psivel.F 92 DIAG_CALC_PSIVEL 
        dPsiY (bi,bj) = 0.
./pkg/diagnostics/diag_calc_psivel.F 93 DIAG_CALC_PSIVEL 
        psiOri(bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F 109 DIAG_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 114 DIAG_CG2D 
           aC2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F 119 DIAG_CG2D 
           aC2d(i,j,bi,bj) = -( ( aW2d(i,j,bi,bj)+aW2d(i+1,j,bi,bj) )
./pkg/diagnostics/diag_cg2d.F 120 DIAG_CG2D 
     &                         +( aS2d(i,j,bi,bj)+aS2d(i,j+1,bi,bj) )
./pkg/diagnostics/diag_cg2d.F 130 DIAG_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 134 DIAG_CG2D 
          IF ( aC2d(i,j,bi,bj) .EQ. 0. ) THEN
./pkg/diagnostics/diag_cg2d.F 135 DIAG_CG2D 
           pC(i,j,bi,bj) = 1. _d 0
./pkg/diagnostics/diag_cg2d.F 137 DIAG_CG2D 
           pC(i,j,bi,bj) = 1. _d 0 / aC2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 139 DIAG_CG2D 
          pW_tmp = aC2d(i,j,bi,bj)+aC2d(i-1,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 141 DIAG_CG2D 
           pW(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F 143 DIAG_CG2D 
           pW(i,j,bi,bj) = -aW2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 146 DIAG_CG2D 
          pS_tmp = aC2d(i,j,bi,bj)+aC2d(i,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F 148 DIAG_CG2D 
           pS(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F 150 DIAG_CG2D 
           pS(i,j,bi,bj) = -aS2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 167 DIAG_CG2D 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 171 DIAG_CG2D 
          r2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F 172 DIAG_CG2D 
          s2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diag_cg2d.F 173 DIAG_CG2D 
          x2dm(i,j,bi,bj) = x2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 176 DIAG_CG2D 
        sumRHStile(bi,bj) = 0. _d 0
./pkg/diagnostics/diag_cg2d.F 177 DIAG_CG2D 
        errTile(bi,bj)    = 0. _d 0
./pkg/diagnostics/diag_cg2d.F 180 DIAG_CG2D 
          r2d(i,j,bi,bj) = b2d(i,j,bi,bj) -
./pkg/diagnostics/diag_cg2d.F 181 DIAG_CG2D 
     &      (aW2d(i  ,j  ,bi,bj)*x2d(i-1,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 182 DIAG_CG2D 
     &      +aW2d(i+1,j  ,bi,bj)*x2d(i+1,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 183 DIAG_CG2D 
     &      +aS2d(i  ,j  ,bi,bj)*x2d(i  ,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F 184 DIAG_CG2D 
     &      +aS2d(i  ,j+1,bi,bj)*x2d(i  ,j+1,bi,bj)
./pkg/diagnostics/diag_cg2d.F 185 DIAG_CG2D 
     &      +aC2d(i  ,j  ,bi,bj)*x2d(i  ,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 187 DIAG_CG2D 
          errTile(bi,bj) = errTile(bi,bj)
./pkg/diagnostics/diag_cg2d.F 188 DIAG_CG2D 
     &                  + r2d(i,j,bi,bj)*r2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 189 DIAG_CG2D 
          sumRHStile(bi,bj) = sumRHStile(bi,bj) + b2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 234 DIAG_CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 236 DIAG_CG2D 
         eta_qrNtile(bi,bj) = 0. _d 0
./pkg/diagnostics/diag_cg2d.F 239 DIAG_CG2D 
           q2d(i,j,bi,bj) =
./pkg/diagnostics/diag_cg2d.F 240 DIAG_CG2D 
     &        pC(i  ,j  ,bi,bj)*r2d(i  ,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 241 DIAG_CG2D 
     &       +pW(i  ,j  ,bi,bj)*r2d(i-1,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 242 DIAG_CG2D 
     &       +pW(i+1,j  ,bi,bj)*r2d(i+1,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 243 DIAG_CG2D 
     &       +pS(i  ,j  ,bi,bj)*r2d(i  ,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F 244 DIAG_CG2D 
     &       +pS(i  ,j+1,bi,bj)*r2d(i  ,j+1,bi,bj)
./pkg/diagnostics/diag_cg2d.F 245 DIAG_CG2D 
           eta_qrNtile(bi,bj) = eta_qrNtile(bi,bj)
./pkg/diagnostics/diag_cg2d.F 246 DIAG_CG2D 
     &       +q2d(i,j,bi,bj)*r2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 256 DIAG_CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 260 DIAG_CG2D 
           s2d(i,j,bi,bj) = q2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 261 DIAG_CG2D 
     &                    + cgBeta*s2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 272 DIAG_CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 274 DIAG_CG2D 
         alphaTile(bi,bj) = 0. _d 0
./pkg/diagnostics/diag_cg2d.F 277 DIAG_CG2D 
           q2d(i,j,bi,bj) =
./pkg/diagnostics/diag_cg2d.F 278 DIAG_CG2D 
     &       aW2d(i  ,j  ,bi,bj)*s2d(i-1,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 279 DIAG_CG2D 
     &      +aW2d(i+1,j  ,bi,bj)*s2d(i+1,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 280 DIAG_CG2D 
     &      +aS2d(i  ,j  ,bi,bj)*s2d(i  ,j-1,bi,bj)
./pkg/diagnostics/diag_cg2d.F 281 DIAG_CG2D 
     &      +aS2d(i  ,j+1,bi,bj)*s2d(i  ,j+1,bi,bj)
./pkg/diagnostics/diag_cg2d.F 282 DIAG_CG2D 
     &      +aC2d(i  ,j  ,bi,bj)*s2d(i  ,j  ,bi,bj)
./pkg/diagnostics/diag_cg2d.F 283 DIAG_CG2D 
           alphaTile(bi,bj) = alphaTile(bi,bj)
./pkg/diagnostics/diag_cg2d.F 284 DIAG_CG2D 
     &                      + s2d(i,j,bi,bj)*q2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 294 DIAG_CG2D 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 296 DIAG_CG2D 
         errTile(bi,bj) = 0. _d 0
./pkg/diagnostics/diag_cg2d.F 299 DIAG_CG2D 
           x2d(i,j,bi,bj)=x2d(i,j,bi,bj)+alpha*s2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 300 DIAG_CG2D 
           r2d(i,j,bi,bj)=r2d(i,j,bi,bj)-alpha*q2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 301 DIAG_CG2D 
           errTile(bi,bj) = errTile(bi,bj)
./pkg/diagnostics/diag_cg2d.F 302 DIAG_CG2D 
     &                    + r2d(i,j,bi,bj)*r2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 323 DIAG_CG2D 
         DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 327 DIAG_CG2D 
             x2dm(i,j,bi,bj) = x2d(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 355 DIAG_CG2D 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diag_cg2d.F 359 DIAG_CG2D 
             x2d(i,j,bi,bj) = x2dm(i,j,bi,bj)
./pkg/diagnostics/diag_cg2d.F 77 DIAG_CG2D 
      INTEGER bi, bj
./pkg/diagnostics/diag_vegtile_fill.F 11 DIAG_VEGTILE_FILL 
     &                check, chardiag, kLev, nLevs, bi, bj, myThid )
./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 170 DIAG_VEGTILE_FILL 
              qdiag(i,j,kd,bi,bj) = qdiag(i,j,kd,bi,bj)
./pkg/diagnostics/diag_vegtile_fill.F 193 DIAG_VEGTILE_FILL 
         IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN
./pkg/diagnostics/diag_vegtile_fill.F 266 DIAG_VEGTILE_FILL 
     I              3, bi, bj, myThid )
./pkg/diagnostics/diag_vegtile_fill.F 48 DIAG_VEGTILE_FILL 
      INTEGER kLev, nLevs, bi, bj
./pkg/diagnostics/diag_vegtile_fill.F 98 DIAG_VEGTILE_FILL 
            ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1
./pkg/diagnostics/diagnostics_calc_phivel.F 104 DIAGNOSTICS_CALC_PHIVEL 
              b2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diagnostics_calc_phivel.F 105 DIAGNOSTICS_CALC_PHIVEL 
              x2d(i,j,bi,bj) = 0.
./pkg/diagnostics/diagnostics_calc_phivel.F 111 DIAGNOSTICS_CALC_PHIVEL 
              aW2d(i,j,bi,bj) = dyG(i,j,bi,bj)*recip_dxC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 112 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 113 DIAGNOSTICS_CALC_PHIVEL 
     &                         *maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 114 DIAGNOSTICS_CALC_PHIVEL 
              aS2d(i,j,bi,bj) = dxG(i,j,bi,bj)*recip_dyC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 115 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 116 DIAGNOSTICS_CALC_PHIVEL 
     &                         *maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 117 DIAGNOSTICS_CALC_PHIVEL 
              a2dMax = MAX(a2dMax,aW2d(i,j,bi,bj))
./pkg/diagnostics/diagnostics_calc_phivel.F 118 DIAGNOSTICS_CALC_PHIVEL 
              a2dMax = MAX(a2dMax,aS2d(i,j,bi,bj))
./pkg/diagnostics/diagnostics_calc_phivel.F 125 DIAGNOSTICS_CALC_PHIVEL 
              uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k)
./pkg/diagnostics/diagnostics_calc_phivel.F 126 DIAGNOSTICS_CALC_PHIVEL 
     &                          *qtmp1(i,j,ks,bi,bj)*maskInW(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 127 DIAGNOSTICS_CALC_PHIVEL 
              vTrans(i,j,bi,bj) = dxG(i,j,bi,bj)*drF(k)
./pkg/diagnostics/diagnostics_calc_phivel.F 128 DIAGNOSTICS_CALC_PHIVEL 
     &                          *qtmp2(i,j,ks,bi,bj)*maskInS(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 145 DIAGNOSTICS_CALC_PHIVEL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_calc_phivel.F 149 DIAGNOSTICS_CALC_PHIVEL 
              b2d(i,j,bi,bj) = (
./pkg/diagnostics/diagnostics_calc_phivel.F 150 DIAGNOSTICS_CALC_PHIVEL 
     &                    ( uTrans(i+1,j,bi,bj) - uTrans(i,j,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F 151 DIAGNOSTICS_CALC_PHIVEL 
     &                  + ( vTrans(i,j+1,bi,bj) - vTrans(i,j,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F 152 DIAGNOSTICS_CALC_PHIVEL 
     &                         )*maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 153 DIAGNOSTICS_CALC_PHIVEL 
              rhsMax = MAX(ABS(b2d(I,J,bi,bj)),rhsMax)
./pkg/diagnostics/diagnostics_calc_phivel.F 183 DIAGNOSTICS_CALC_PHIVEL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_calc_phivel.F 187 DIAGNOSTICS_CALC_PHIVEL 
              aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*a2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F 188 DIAGNOSTICS_CALC_PHIVEL 
              aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*a2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F 189 DIAGNOSTICS_CALC_PHIVEL 
              b2d(i,j,bi,bj)  = b2d(i,j,bi,bj) *b2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F 226 DIAGNOSTICS_CALC_PHIVEL 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_calc_phivel.F 230 DIAGNOSTICS_CALC_PHIVEL 
              x2d(i,j,bi,bj) =  x2d(i,j,bi,bj)*x2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F 238 DIAGNOSTICS_CALC_PHIVEL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_calc_phivel.F 242 DIAGNOSTICS_CALC_PHIVEL 
            uTrans(i,j,bi,bj) = uTrans(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 243 DIAGNOSTICS_CALC_PHIVEL 
     &                        - ( x2d(i,j,bi,bj) - x2d(i-1,j,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F 244 DIAGNOSTICS_CALC_PHIVEL 
     &                         *recip_dxC(i,j,bi,bj)*dyG(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 245 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 246 DIAGNOSTICS_CALC_PHIVEL 
     &                         *maskInC(i-1,j,bi,bj)*maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 247 DIAGNOSTICS_CALC_PHIVEL 
            vTrans(i,j,bi,bj) = vTrans(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 248 DIAGNOSTICS_CALC_PHIVEL 
     &                        - ( x2d(i,j,bi,bj) - x2d(i,j-1,bi,bj) )
./pkg/diagnostics/diagnostics_calc_phivel.F 249 DIAGNOSTICS_CALC_PHIVEL 
     &                         *recip_dyC(i,j,bi,bj)*dxG(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 250 DIAGNOSTICS_CALC_PHIVEL 
     &                         *drF(k)*hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 251 DIAGNOSTICS_CALC_PHIVEL 
     &                         *maskInC(i,j-1,bi,bj)*maskInC(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 292 DIAGNOSTICS_CALC_PHIVEL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_calc_phivel.F 296 DIAGNOSTICS_CALC_PHIVEL 
              qtmp1(i,j,ks,bi,bj) =  x2d(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 297 DIAGNOSTICS_CALC_PHIVEL 
              qtmp2(i,j,ks,bi,bj) =  psiVel(i,j,bi,bj)
./pkg/diagnostics/diagnostics_calc_phivel.F 66 DIAGNOSTICS_CALC_PHIVEL 
      INTEGER bi, bj
./pkg/diagnostics/diagnostics_calc_phivel.F 99 DIAGNOSTICS_CALC_PHIVEL 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_clear.F 79 DIAGNOSTICS_CLRDIAG 
      INTEGER bi,bj
./pkg/diagnostics/diagnostics_clear.F 87 DIAGNOSTICS_CLRDIAG 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_clear.F 91 DIAGNOSTICS_CLRDIAG 
         ndiag(kl,bi,bj) = 0
./pkg/diagnostics/diagnostics_clear.F 94 DIAGNOSTICS_CLRDIAG 
           qdiag(i,j,kl,bi,bj) = 0.0
./pkg/diagnostics/diagnostics_fill.F 121 DIAGNOSTICS_FILL 
         IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN
./pkg/diagnostics/diagnostics_fill.F 65 DIAGNOSTICS_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fill.F 85 DIAGNOSTICS_FILL 
        bj = myByLo(myThid)
./pkg/diagnostics/diagnostics_fill.F 88 DIAGNOSTICS_FILL 
        bj = bjArg
./pkg/diagnostics/diagnostics_fill.F 97 DIAGNOSTICS_FILL 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_fill.F 99 DIAGNOSTICS_FILL 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_fill_field.F 108 DIAGNOSTICS_FILL_FIELD 
         DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_field.F 110 DIAGNOSTICS_FILL_FIELD 
           ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1
./pkg/diagnostics/diagnostics_fill_field.F 115 DIAGNOSTICS_FILL_FIELD 
           bj = MIN(bjArg,nSy)
./pkg/diagnostics/diagnostics_fill_field.F 116 DIAGNOSTICS_FILL_FIELD 
           ndiag(ipointer,bi,bj) = ndiag(ipointer,bi,bj) + 1
./pkg/diagnostics/diagnostics_fill_field.F 217 DIAGNOSTICS_FILL_FIELD 
         DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_field.F 222 DIAGNOSTICS_FILL_FIELD 
     U                  qdiag(1-OLx,1-OLy,kd,bi,bj),
./pkg/diagnostics/diagnostics_fill_field.F 226 DIAGNOSTICS_FILL_FIELD 
     I                  iRun,jRun,k,bi,bj,
./pkg/diagnostics/diagnostics_fill_field.F 233 DIAGNOSTICS_FILL_FIELD 
          bj = MIN(bjArg,sizTy)
./pkg/diagnostics/diagnostics_fill_field.F 241 DIAGNOSTICS_FILL_FIELD 
     I                  iRun,jRun,k,bi,bj,
./pkg/diagnostics/diagnostics_fill_field.F 267 DIAGNOSTICS_CUMULATE 
     I                  iRun,jRun,k,bi,bj,
./pkg/diagnostics/diagnostics_fill_field.F 312 DIAGNOSTICS_CUMULATE 
      INTEGER iRun, jRun, k, bi, bj
./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 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 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 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 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 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 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 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 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 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 440 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRL(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 447 DIAGNOSTICS_CUMULATE 
     &                + tmpFact*inpFldRS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_field.F 96 DIAGNOSTICS_FILL_FIELD 
      INTEGER iRun, jRun, k, bi, bj
./pkg/diagnostics/diagnostics_fill_rs.F 121 DIAGNOSTICS_FILL_RS 
         IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 65 DIAGNOSTICS_FILL_RS 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fill_rs.F 85 DIAGNOSTICS_FILL_RS 
        bj = myByLo(myThid)
./pkg/diagnostics/diagnostics_fill_rs.F 88 DIAGNOSTICS_FILL_RS 
        bj = bjArg
./pkg/diagnostics/diagnostics_fill_rs.F 97 DIAGNOSTICS_FILL_RS 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_fill_rs.F 99 DIAGNOSTICS_FILL_RS 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_fill_state.F 111 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 117 DIAGNOSTICS_FILL_STATE 
     &           *(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 119 DIAGNOSTICS_FILL_STATE 
     &           *(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 120 DIAGNOSTICS_FILL_STATE 
              tmpU(i,j) = angleCosC(i,j,bi,bj)*uBarC
./pkg/diagnostics/diagnostics_fill_state.F 121 DIAGNOSTICS_FILL_STATE 
     &                   -angleSinC(i,j,bi,bj)*vBarC
./pkg/diagnostics/diagnostics_fill_state.F 122 DIAGNOSTICS_FILL_STATE 
              tmpV(i,j) = angleSinC(i,j,bi,bj)*uBarC
./pkg/diagnostics/diagnostics_fill_state.F 123 DIAGNOSTICS_FILL_STATE 
     &                   +angleCosC(i,j,bi,bj)*vBarC
./pkg/diagnostics/diagnostics_fill_state.F 124 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,k,bi,bj) = tmpU(i,j)*tmpV(i,j)
./pkg/diagnostics/diagnostics_fill_state.F 127 DIAGNOSTICS_FILL_STATE 
            CALL DIAGNOSTICS_FILL(tmpU,'UE_VEL_C',k,1,2,bi,bj,myThid)
./pkg/diagnostics/diagnostics_fill_state.F 128 DIAGNOSTICS_FILL_STATE 
            CALL DIAGNOSTICS_FILL(tmpV,'VN_VEL_C',k,1,2,bi,bj,myThid)
./pkg/diagnostics/diagnostics_fill_state.F 136 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 141 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,k,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 142 DIAGNOSTICS_FILL_STATE 
     &           *(uVel(i,j-1,k,bi,bj)+uVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 143 DIAGNOSTICS_FILL_STATE 
     &           *(vVel(i-1,j,k,bi,bj)+vVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 153 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 159 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,k,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 160 DIAGNOSTICS_FILL_STATE 
     &           *(uVel(i,j,km1,bi,bj)+uVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 161 DIAGNOSTICS_FILL_STATE 
     &           *(wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 162 DIAGNOSTICS_FILL_STATE 
     &            +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 163 DIAGNOSTICS_FILL_STATE 
     &            )*recip_rAw(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 173 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 179 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,k,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 180 DIAGNOSTICS_FILL_STATE 
     &           *(vVel(i,j,km1,bi,bj)+vVel(i,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 181 DIAGNOSTICS_FILL_STATE 
     &           *(wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 182 DIAGNOSTICS_FILL_STATE 
     &            +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 183 DIAGNOSTICS_FILL_STATE 
     &            )*recip_rAs(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 195 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 200 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 201 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 211 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 216 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 217 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 227 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 233 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 234 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,k,bi,bj)+theta(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 244 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 249 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 250 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 260 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 265 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 266 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 276 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 282 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 283 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,k,bi,bj)+salt(i,j,km1,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 293 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 298 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 299 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 309 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 314 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 315 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 325 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 329 DIAGNOSTICS_FILL_STATE 
              tmp1k(i,j,bi,bj) = R_low(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 335 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,k,bi,bj) = tmp1k(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 336 DIAGNOSTICS_FILL_STATE 
     &             + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign
./pkg/diagnostics/diagnostics_fill_state.F 339 DIAGNOSTICS_FILL_STATE 
              tmp1k(i,j,bi,bj) =   tmp1k(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 340 DIAGNOSTICS_FILL_STATE 
     &                      + drF(k)*hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 360 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 366 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 376 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 382 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 405 DIAGNOSTICS_FILL_STATE 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 410 DIAGNOSTICS_FILL_STATE 
            dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa
./pkg/diagnostics/diagnostics_fill_state.F 413 DIAGNOSTICS_FILL_STATE 
            tmpMk(i,j,k,bi,bj) = hFacC(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 414 DIAGNOSTICS_FILL_STATE 
     &                          *salt(i,j,k,bi,bj)*100. / dummy3
./pkg/diagnostics/diagnostics_fill_state.F 481 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 486 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 bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 505 DIAGNOSTICS_FILL_STATE 
                tmpMk(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 506 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 bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 521 DIAGNOSTICS_FILL_STATE 
                tmpMk(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 522 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 bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 539 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 540 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,k,bi,bj)+theta(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 541 DIAGNOSTICS_FILL_STATE 
     &                  * hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 551 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 556 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 557 DIAGNOSTICS_FILL_STATE 
     &                  *(theta(i,j,k,bi,bj)+theta(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 558 DIAGNOSTICS_FILL_STATE 
     &                  * hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 568 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 574 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 575 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 bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 590 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 591 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,k,bi,bj)+salt(i-1,j,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 592 DIAGNOSTICS_FILL_STATE 
     &                  * hFacW(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 602 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 607 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 608 DIAGNOSTICS_FILL_STATE 
     &                  *(salt(i,j,k,bi,bj)+salt(i,j-1,k,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 609 DIAGNOSTICS_FILL_STATE 
     &                  * hFacS(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 619 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 61 DIAGNOSTICS_FILL_STATE 
      INTEGER i,j,k,bi,bj
./pkg/diagnostics/diagnostics_fill_state.F 625 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 626 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 bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 647 DIAGNOSTICS_FILL_STATE 
     &                           'TOTUTEND',0,Nr,-1,bi,bj,myThid )
./pkg/diagnostics/diagnostics_fill_state.F 649 DIAGNOSTICS_FILL_STATE 
     &                           'TOTVTEND',0,Nr,-1,bi,bj,myThid )
./pkg/diagnostics/diagnostics_fill_state.F 654 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 660 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,k,bi,bj) = tmpFac*theta(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 664 DIAGNOSTICS_FILL_STATE 
           CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid)
./pkg/diagnostics/diagnostics_fill_state.F 670 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 676 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,k,bi,bj) = tmpFac*salt(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_fill_state.F 680 DIAGNOSTICS_FILL_STATE 
           CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid)
./pkg/diagnostics/diagnostics_fill_state.F 70 DIAGNOSTICS_FILL_STATE 
         DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_fill_state.F 74 DIAGNOSTICS_FILL_STATE 
              tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)
./pkg/diagnostics/diagnostics_fract_fill.F 102 DIAGNOSTICS_FRACT_FILL 
        bj = bjArg
./pkg/diagnostics/diagnostics_fract_fill.F 111 DIAGNOSTICS_FRACT_FILL 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 113 DIAGNOSTICS_FRACT_FILL 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_fract_fill.F 150 DIAGNOSTICS_FRACT_FILL 
         IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN
./pkg/diagnostics/diagnostics_fract_fill.F 79 DIAGNOSTICS_FRACT_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_fract_fill.F 99 DIAGNOSTICS_FRACT_FILL 
        bj = myByLo(myThid)
./pkg/diagnostics/diagnostics_init_varia.F 30 DIAGNOSTICS_INIT_VARIA 
      INTEGER i,j,k,bi,bj
./pkg/diagnostics/diagnostics_init_varia.F 39 DIAGNOSTICS_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_init_varia.F 44 DIAGNOSTICS_INIT_VARIA 
                qdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_init_varia.F 48 DIAGNOSTICS_INIT_VARIA 
            ndiag(k,bi,bj) = 0
./pkg/diagnostics/diagnostics_init_varia.F 52 DIAGNOSTICS_INIT_VARIA 
            pdiag(k,bi,bj) = 0
./pkg/diagnostics/diagnostics_init_varia.F 58 DIAGNOSTICS_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_init_varia.F 63 DIAGNOSTICS_INIT_VARIA 
                qSdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_interp_vert.F 113 DIAGNOSTICS_INTERP_VERT 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_interp_vert.F 116 DIAGNOSTICS_INTERP_VERT 
     O                     qtmpsrf(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagnostics_interp_vert.F 117 DIAGNOSTICS_INTERP_VERT 
     I                     jpoint1,0,ipoint1,0, bi,bj,myThid )
./pkg/diagnostics/diagnostics_interp_vert.F 120 DIAGNOSTICS_INTERP_VERT 
     O                     qtmp2(1-OLx,1-OLy,1,bi,bj),
./pkg/diagnostics/diagnostics_interp_vert.F 121 DIAGNOSTICS_INTERP_VERT 
     I                     jpoint2,0,ipoint2,0, bi,bj,myThid )
./pkg/diagnostics/diagnostics_interp_vert.F 128 DIAGNOSTICS_INTERP_VERT 
          DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_interp_vert.F 132 DIAGNOSTICS_INTERP_VERT 
               qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F 138 DIAGNOSTICS_INTERP_VERT 
               qtmp2(i,j,k,bi,bj) = rC(k)
./pkg/diagnostics/diagnostics_interp_vert.F 149 DIAGNOSTICS_INTERP_VERT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_interp_vert.F 154 DIAGNOSTICS_INTERP_VERT 
              pksrf(i,j)    = qtmpsrf(i,j,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F 162 DIAGNOSTICS_INTERP_VERT 
                qinp(i,j,k) = qtmp1(i,j,k,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F 163 DIAGNOSTICS_INTERP_VERT 
                pkz(i,j,k)  = qtmp2(i,j,k,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F 175 DIAGNOSTICS_INTERP_VERT 
                IF (maskC(i,j,kLev,bi,bj).NE.0.) THEN
./pkg/diagnostics/diagnostics_interp_vert.F 176 DIAGNOSTICS_INTERP_VERT 
                 qinp(i,j,k)= qtmp1(i,j,kLev,bi,bj)
./pkg/diagnostics/diagnostics_interp_vert.F 180 DIAGNOSTICS_INTERP_VERT 
                pkz(i,j,k)  = qtmp2(i,j,kLev,bi,bj)**kappa
./pkg/diagnostics/diagnostics_interp_vert.F 197 DIAGNOSTICS_INTERP_VERT 
                 qtmp1(i,j,k,bi,bj) = 0.
./pkg/diagnostics/diagnostics_interp_vert.F 199 DIAGNOSTICS_INTERP_VERT 
                 qtmp1(i,j,k,bi,bj) =  qprs(i,j)
./pkg/diagnostics/diagnostics_interp_vert.F 67 DIAGNOSTICS_INTERP_VERT 
      INTEGER bi, bj
./pkg/diagnostics/diagnostics_is_on.F 37 NO PROCEDURE 
      INTEGER bi,bj
./pkg/diagnostics/diagnostics_is_on.F 41 NO PROCEDURE 
      bj = myByLo(myThid)
./pkg/diagnostics/diagnostics_is_on.F 48 NO PROCEDURE 
          IF ( ndiag(ip,bi,bj).GE.0 ) DIAGNOSTICS_IS_ON = .TRUE.
./pkg/diagnostics/diagnostics_is_on.F 60 NO PROCEDURE 
           IF (qSdiag(0,0,iSp,bi,bj).GE.0.) DIAGNOSTICS_IS_ON = .TRUE.
./pkg/diagnostics/diagnostics_mnc_out.F 255 DIAGNOSTICS_MNC_OUT 
      INTEGER bi, bj
./pkg/diagnostics/diagnostics_mnc_out.F 363 DIAGNOSTICS_MNC_OUT 
           DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_mnc_out.F 370 DIAGNOSTICS_MNC_OUT 
                IF ( maskC(i,j,klev,bi,bj) .EQ. 0. )
./pkg/diagnostics/diagnostics_mnc_out.F 371 DIAGNOSTICS_MNC_OUT 
     &                qtmp(i,j,k,bi,bj) = misValLoc
./pkg/diagnostics/diagnostics_out.F 235 DIAGNOSTICS_OUT 
            DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_out.F 240 DIAGNOSTICS_OUT 
                      qtmp1(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_out.F 291 DIAGNOSTICS_OUT 
              DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_out.F 297 DIAGNOSTICS_OUT 
     O                         qtmp1(1-OLx,1-OLy,k,bi,bj),
./pkg/diagnostics/diagnostics_out.F 298 DIAGNOSTICS_OUT 
     I                         ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_out.F 303 DIAGNOSTICS_OUT 
               DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_out.F 309 DIAGNOSTICS_OUT 
     O                         qtmp2(1-OLx,1-OLy,k,bi,bj),
./pkg/diagnostics/diagnostics_out.F 310 DIAGNOSTICS_OUT 
     I                         mDbl, 0, im, 0, bi, bj, myThid )
./pkg/diagnostics/diagnostics_out.F 317 DIAGNOSTICS_OUT 
              DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_out.F 321 DIAGNOSTICS_OUT 
     O                         qtmp1(1-OLx,1-OLy,1,bi,bj),
./pkg/diagnostics/diagnostics_out.F 322 DIAGNOSTICS_OUT 
     I                         ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_out.F 326 DIAGNOSTICS_OUT 
               DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_out.F 330 DIAGNOSTICS_OUT 
     O                         qtmp2(1-OLx,1-OLy,1,bi,bj),
./pkg/diagnostics/diagnostics_out.F 331 DIAGNOSTICS_OUT 
     I                         mDbl, 0, im, 0, bi, bj, myThid )
./pkg/diagnostics/diagnostics_out.F 69 DIAGNOSTICS_OUT 
      INTEGER bi, bj
./pkg/diagnostics/diagnostics_read_pickup.F 159 DIAGNOSTICS_READ_PICKUP 
          DO bj=1,nSy
./pkg/diagnostics/diagnostics_read_pickup.F 162 DIAGNOSTICS_READ_PICKUP 
             ndiag(n,bi,bj) = ndiag(n,1,1)
./pkg/diagnostics/diagnostics_read_pickup.F 36 DIAGNOSTICS_READ_PICKUP 
      INTEGER bi,bj
./pkg/diagnostics/diagnostics_scale_fill.F 101 DIAGNOSTICS_SCALE_FILL 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_scale_fill.F 123 DIAGNOSTICS_SCALE_FILL 
         IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN
./pkg/diagnostics/diagnostics_scale_fill.F 69 DIAGNOSTICS_SCALE_FILL 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_scale_fill.F 87 DIAGNOSTICS_SCALE_FILL 
        bj = myByLo(myThid)
./pkg/diagnostics/diagnostics_scale_fill.F 90 DIAGNOSTICS_SCALE_FILL 
        bj = bjArg
./pkg/diagnostics/diagnostics_scale_fill.F 99 DIAGNOSTICS_SCALE_FILL 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 101 DIAGNOSTICS_SCALE_FILL_RS 
           ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_scale_fill_rs.F 123 DIAGNOSTICS_SCALE_FILL_RS 
         IF ( qSdiag(0,0,iSp,bi,bj).GE.0. ) THEN
./pkg/diagnostics/diagnostics_scale_fill_rs.F 69 DIAGNOSTICS_SCALE_FILL_RS 
      INTEGER m, n, j, k, l, bi, bj
./pkg/diagnostics/diagnostics_scale_fill_rs.F 87 DIAGNOSTICS_SCALE_FILL_RS 
        bj = myByLo(myThid)
./pkg/diagnostics/diagnostics_scale_fill_rs.F 90 DIAGNOSTICS_SCALE_FILL_RS 
        bj = bjArg
./pkg/diagnostics/diagnostics_scale_fill_rs.F 99 DIAGNOSTICS_SCALE_FILL_RS 
         IF ( ndiag(ipt,bi,bj).GE.0 ) THEN
./pkg/diagnostics/diagnostics_set_calc.F 119 DIAGNOSTICS_SET_CALC 
          DO bj=1,nSy
./pkg/diagnostics/diagnostics_set_calc.F 121 DIAGNOSTICS_SET_CALC 
             iPsi0(bi,bj) = -1
./pkg/diagnostics/diagnostics_set_calc.F 122 DIAGNOSTICS_SET_CALC 
             jPsi0(bi,bj) =  0
./pkg/diagnostics/diagnostics_set_calc.F 126 DIAGNOSTICS_SET_CALC 
          DO bj=1,nSy
./pkg/diagnostics/diagnostics_set_calc.F 128 DIAGNOSTICS_SET_CALC 
             IF ( iPsi0(bi,bj).GT.0 ) THEN
./pkg/diagnostics/diagnostics_set_calc.F 130 DIAGNOSTICS_SET_CALC 
              bjG = bj-1+(myYGlobalLo-1)/sNy
./pkg/diagnostics/diagnostics_set_calc.F 132 DIAGNOSTICS_SET_CALC 
              xyLoc = xy0 + iPsi0(bi,bj) + (jPsi0(bi,bj)-1)*xLine
./pkg/diagnostics/diagnostics_set_calc.F 136 DIAGNOSTICS_SET_CALC 
     &          ' discard: bi,bj=',bi,bj,
./pkg/diagnostics/diagnostics_set_calc.F 137 DIAGNOSTICS_SET_CALC 
     &          ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc
./pkg/diagnostics/diagnostics_set_calc.F 140 DIAGNOSTICS_SET_CALC 
               iPsi0(bi,bj) = 0
./pkg/diagnostics/diagnostics_set_calc.F 141 DIAGNOSTICS_SET_CALC 
               jPsi0(bi,bj) = 0
./pkg/diagnostics/diagnostics_set_calc.F 144 DIAGNOSTICS_SET_CALC 
     &          ' SELECT : bi,bj=',bi,bj,
./pkg/diagnostics/diagnostics_set_calc.F 145 DIAGNOSTICS_SET_CALC 
     &          ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc
./pkg/diagnostics/diagnostics_set_calc.F 35 DIAGNOSTICS_SET_CALC 
      INTEGER bi, bj
./pkg/diagnostics/diagnostics_set_calc.F 45 DIAGNOSTICS_SET_CALC 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diagnostics_set_calc.F 47 DIAGNOSTICS_SET_CALC 
           iPsi0(bi,bj) = -1
./pkg/diagnostics/diagnostics_set_calc.F 48 DIAGNOSTICS_SET_CALC 
           jPsi0(bi,bj) =  0
./pkg/diagnostics/diagnostics_set_calc.F 54 DIAGNOSTICS_SET_CALC 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diagnostics_set_calc.F 58 DIAGNOSTICS_SET_CALC 
             dxLoc = xG(i,j,bi,bj)-xPsi0
./pkg/diagnostics/diagnostics_set_calc.F 59 DIAGNOSTICS_SET_CALC 
             dyLoc = yG(i,j,bi,bj)-yPsi0
./pkg/diagnostics/diagnostics_set_calc.F 72 DIAGNOSTICS_SET_CALC 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diagnostics_set_calc.F 74 DIAGNOSTICS_SET_CALC 
          iPsi0(bi,bj) = 0
./pkg/diagnostics/diagnostics_set_calc.F 75 DIAGNOSTICS_SET_CALC 
          jPsi0(bi,bj) = 0
./pkg/diagnostics/diagnostics_set_calc.F 77 DIAGNOSTICS_SET_CALC 
          bjG = bj-1+(myYGlobalLo-1)/sNy
./pkg/diagnostics/diagnostics_set_calc.F 81 DIAGNOSTICS_SET_CALC 
             dxLoc = xG(i,j,bi,bj)-xPsi0
./pkg/diagnostics/diagnostics_set_calc.F 82 DIAGNOSTICS_SET_CALC 
             dyLoc = yG(i,j,bi,bj)-yPsi0
./pkg/diagnostics/diagnostics_set_calc.F 91 DIAGNOSTICS_SET_CALC 
               iPsi0(bi,bj) = i
./pkg/diagnostics/diagnostics_set_calc.F 92 DIAGNOSTICS_SET_CALC 
               jPsi0(bi,bj) = j
./pkg/diagnostics/diagnostics_sum_levels.F 111 DIAGNOSTICS_SUM_LEVELS 
     &                      + tmpFac*fld3d(i,j,kLev,bi,bj)
./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 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 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 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 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 189 DIAGNOSTICS_SUM_LEVELS 
     &                       + tmpFac*fld3d(i,j,kLev,bi,bj)
./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 58 DIAGNOSTICS_SUM_LEVELS 
      INTEGER bi, bj
./pkg/diagnostics/diagnostics_sum_levels.F 72 DIAGNOSTICS_SUM_LEVELS 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 94 DIAGNOSTICS_SUM_LEVELS 
                fld3d(i,j,1,bi,bj) = tmpFld(i,j)
./pkg/diagnostics/diagnostics_switch_onoff.F 102 DIAGNOSTICS_SWITCH_ONOFF 
        DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_switch_onoff.F 110 DIAGNOSTICS_SWITCH_ONOFF 
              IF (ip.GT.0) ndiag(ip,bi,bj) = 0
./pkg/diagnostics/diagnostics_switch_onoff.F 118 DIAGNOSTICS_SWITCH_ONOFF 
              IF (ip.GT.0) ndiag(ip,bi,bj) = -1
./pkg/diagnostics/diagnostics_switch_onoff.F 154 DIAGNOSTICS_SWITCH_ONOFF 
        DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_switch_onoff.F 156 DIAGNOSTICS_SWITCH_ONOFF 
           pdiag(n,bi,bj) = nInterval
./pkg/diagnostics/diagnostics_switch_onoff.F 192 DIAGNOSTICS_SWITCH_ONOFF 
        DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_switch_onoff.F 194 DIAGNOSTICS_SWITCH_ONOFF 
          dBugFlag = dBugFlag.AND.(bi.EQ.1.AND.bj.EQ.1.AND.myThid.EQ.1)
./pkg/diagnostics/diagnostics_switch_onoff.F 201 DIAGNOSTICS_SWITCH_ONOFF 
               IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE. 0.)
./pkg/diagnostics/diagnostics_switch_onoff.F 204 DIAGNOSTICS_SWITCH_ONOFF 
     &           ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', 0
./pkg/diagnostics/diagnostics_switch_onoff.F 205 DIAGNOSTICS_SWITCH_ONOFF 
               qSdiag(0,0,iSp,bi,bj) = 0.
./pkg/diagnostics/diagnostics_switch_onoff.F 214 DIAGNOSTICS_SWITCH_ONOFF 
               IF (dBugFlag.AND.qSdiag(0,0,iSp,bi,bj).NE.-1.)
./pkg/diagnostics/diagnostics_switch_onoff.F 217 DIAGNOSTICS_SWITCH_ONOFF 
     &           ' ',cdiag(nd),' :',qSdiag(0,0,iSp,bi,bj),' ->', -1
./pkg/diagnostics/diagnostics_switch_onoff.F 218 DIAGNOSTICS_SWITCH_ONOFF 
               qSdiag(0,0,iSp,bi,bj) = -1.
./pkg/diagnostics/diagnostics_switch_onoff.F 47 DIAGNOSTICS_SWITCH_ONOFF 
      INTEGER bi, bj, ip, iSp
./pkg/diagnostics/diagnostics_utils.F 103 DIAGNOSTICS_GET_DIAG 
     I                    ndId, mate, ip, im, bi, bj, myThid )
./pkg/diagnostics/diagnostics_utils.F 128 DIAGNOSTICS_GET_DIAG 
      INTEGER bi, bj, myThid
./pkg/diagnostics/diagnostics_utils.F 156 DIAGNOSTICS_GET_DIAG 
          factor = FLOAT(ndiag(ip,bi,bj))
./pkg/diagnostics/diagnostics_utils.F 157 DIAGNOSTICS_GET_DIAG 
          IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor
./pkg/diagnostics/diagnostics_utils.F 162 DIAGNOSTICS_GET_DIAG 
              IF ( qdiag(i,j,ipnt,bi,bj) .LE. undefRL ) THEN
./pkg/diagnostics/diagnostics_utils.F 163 DIAGNOSTICS_GET_DIAG 
                qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 172 DIAGNOSTICS_GET_DIAG 
              qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)*factor
./pkg/diagnostics/diagnostics_utils.F 185 DIAGNOSTICS_GET_DIAG 
              IF ( qdiag(i,j,ipCt,bi,bj) .NE. 0. ) THEN
./pkg/diagnostics/diagnostics_utils.F 186 DIAGNOSTICS_GET_DIAG 
                qtmp(i,j,k) = qdiag(i,j,ipnt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F 187 DIAGNOSTICS_GET_DIAG 
     &                      / qdiag(i,j,ipCt,bi,bj)
./pkg/diagnostics/diagnostics_utils.F 54 DIAGNOSTICS_COUNT 
      INTEGER bi, bj
./pkg/diagnostics/diagnostics_utils.F 60 DIAGNOSTICS_COUNT 
        bj = myByLo(myThid)
./pkg/diagnostics/diagnostics_utils.F 63 DIAGNOSTICS_COUNT 
        bj = MIN(bjArg,nSy)
./pkg/diagnostics/diagnostics_utils.F 72 DIAGNOSTICS_COUNT 
         IF (ndiag(ipt,bi,bj).GE.0) THEN
./pkg/diagnostics/diagnostics_utils.F 74 DIAGNOSTICS_COUNT 
          ipt = ipt + pdiag(n,bi,bj)*kdiag(ndId)
./pkg/diagnostics/diagnostics_utils.F 77 DIAGNOSTICS_COUNT 
           DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagnostics_utils.F 79 DIAGNOSTICS_COUNT 
             ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1
./pkg/diagnostics/diagnostics_utils.F 83 DIAGNOSTICS_COUNT 
             ndiag(ipt,bi,bj) = ndiag(ipt,bi,bj) + 1
./pkg/diagnostics/diagstats_clear.F 69 DIAGSTATS_CLRDIAG 
      INTEGER bi,bj
./pkg/diagnostics/diagstats_clear.F 76 DIAGSTATS_CLRDIAG 
      DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagstats_clear.F 81 DIAGSTATS_CLRDIAG 
           qSdiag(i,j,k,bi,bj) = 0.
./pkg/diagnostics/diagstats_fill.F 106 DIAGSTATS_FILL 
      INTEGER iRun, jRun, k, bi, bj
./pkg/diagnostics/diagstats_fill.F 220 DIAGSTATS_FILL 
         DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagstats_fill.F 226 DIAGSTATS_FILL 
     U                  qSdiag(0,0,kd,bi,bj),
./pkg/diagnostics/diagstats_fill.F 230 DIAGSTATS_FILL 
     I                  iRun,jRun,k,bi,bj,
./pkg/diagnostics/diagstats_fill.F 231 DIAGSTATS_FILL 
     I                  km, bi, bj, bibjFlg, region2fill,
./pkg/diagnostics/diagstats_fill.F 238 DIAGSTATS_FILL 
          bj = MIN(bjArg,sizTy)
./pkg/diagnostics/diagstats_fill.F 247 DIAGSTATS_FILL 
     I                  iRun,jRun,k,bi,bj,
./pkg/diagnostics/diagstats_fill.F 256 DIAGSTATS_FILL 
         DO bj=myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagstats_fill.F 266 DIAGSTATS_FILL 
     I                  iRun,jRun,k,bi,bj, myThid )
./pkg/diagnostics/diagstats_fill.F 268 DIAGSTATS_FILL 
     U                  qSdiag(0,0,kd,bi,bj),
./pkg/diagnostics/diagstats_fill.F 273 DIAGSTATS_FILL 
     I                  km, bi, bj, bibjFlg, region2fill,
./pkg/diagnostics/diagstats_fill.F 280 DIAGSTATS_FILL 
          bj = MIN(bjArg,sizTy)
./pkg/diagnostics/diagstats_fill.F 289 DIAGSTATS_FILL 
     I                  iRun,jRun,k,bi,bj, myThid )
./pkg/diagnostics/diagstats_global.F 49 DIAGSTATS_GLOBAL 
      INTEGER bi, bj
./pkg/diagnostics/diagstats_global.F 70 DIAGSTATS_GLOBAL 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/diagnostics/diagstats_global.F 75 DIAGSTATS_GLOBAL 
            IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN
./pkg/diagnostics/diagstats_global.F 78 DIAGSTATS_GLOBAL 
                qtmp1(i,k) = qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_global.F 82 DIAGSTATS_GLOBAL 
                qtmp1(i,k) = qtmp1(i,k) + qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_global.F 84 DIAGSTATS_GLOBAL 
              qtmp1(im,k) = MIN( qtmp1(im,k),qSdiag(im,jReg,kd,bi,bj) )
./pkg/diagnostics/diagstats_global.F 85 DIAGSTATS_GLOBAL 
              qtmp1(ix,k) = MAX( qtmp1(ix,k),qSdiag(ix,jReg,kd,bi,bj) )
./pkg/diagnostics/diagstats_global.F 92 DIAGSTATS_GLOBAL 
            IF ( qSdiag(0,jReg,kd,bi,bj).GT.0. ) THEN
./pkg/diagnostics/diagstats_global.F 95 DIAGSTATS_GLOBAL 
                qtmp2(i,k) = qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_global.F 99 DIAGSTATS_GLOBAL 
                qtmp2(i,k) = qtmp2(i,k) + qSdiag(i,jReg,kd,bi,bj)
./pkg/diagnostics/diagstats_local.F 134 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 135 DIAGSTATS_LOCAL 
     I            maskInW(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 136 DIAGSTATS_LOCAL 
     I            hFacW(1-OLx,1-OLy,k,bi,bj), rAw(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 146 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 147 DIAGSTATS_LOCAL 
     I            maskInS(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 148 DIAGSTATS_LOCAL 
     I            hFacS(1-OLx,1-OLy,k,bi,bj), rAs(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 157 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 158 DIAGSTATS_LOCAL 
     I            maskInC(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 159 DIAGSTATS_LOCAL 
     I            hFacC(1-OLx,1-OLy,k,bi,bj), rA(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 15 DIAGSTATS_LOCAL 
     I                  k,bi,bj, bibjFlg, region2fill,
./pkg/diagnostics/diagstats_local.F 172 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 173 DIAGSTATS_LOCAL 
     I            maskInC(1-OLx,1-OLy,bi,bj), rA(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 175 DIAGSTATS_LOCAL 
     I            k,bi,bj, parsFld, myThid )
./pkg/diagnostics/diagstats_local.F 185 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 186 DIAGSTATS_LOCAL 
     I            rA(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 188 DIAGSTATS_LOCAL 
     I            k,bi,bj, parsFld, myThid )
./pkg/diagnostics/diagstats_local.F 201 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 202 DIAGSTATS_LOCAL 
     I            maskInW(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 203 DIAGSTATS_LOCAL 
     I            maskInW(1-OLx,1-OLy,bi,bj),rAw(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 212 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 213 DIAGSTATS_LOCAL 
     I            maskInS(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 214 DIAGSTATS_LOCAL 
     I            maskInS(1-OLx,1-OLy,bi,bj),rAs(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 223 DIAGSTATS_LOCAL 
     I            diagSt_regMask(1-OLx,1-OLy,kRegMsk,bi,bj),
./pkg/diagnostics/diagstats_local.F 224 DIAGSTATS_LOCAL 
     I            maskInC(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 225 DIAGSTATS_LOCAL 
     I            maskInC(1-OLx,1-OLy,bi,bj), rA(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_local.F 71 DIAGSTATS_LOCAL 
      INTEGER k, bi, bj, bibjFlg
./pkg/diagnostics/diagstats_others_calc.F 108 DIAGSTATS_LM_CALC 
     I            dpphys(1-OLx,1-OLy,kl,bi,bj), arrArea,
./pkg/diagnostics/diagstats_others_calc.F 114 DIAGSTATS_LM_CALC 
          tmp_hFac(i,j) = dpphys(i,j,kl,bi,bj)
./pkg/diagnostics/diagstats_others_calc.F 144 DIAGSTATS_G_CALC 
     I                  k,bi,bj, parsFld, myThid )
./pkg/diagnostics/diagstats_others_calc.F 200 DIAGSTATS_G_CALC 
      INTEGER k, bi, bj
./pkg/diagnostics/diagstats_others_calc.F 21 DIAGSTATS_LM_CALC 
     I                  k,bi,bj, parsFld, myThid )
./pkg/diagnostics/diagstats_others_calc.F 226 DIAGSTATS_G_CALC 
     I            regMask, aim_landFr(1-OLx,1-OLy,bi,bj),
./pkg/diagnostics/diagstats_others_calc.F 227 DIAGSTATS_G_CALC 
     I            aim_landFr(1-OLx,1-OLy,bi,bj), arrArea,
./pkg/diagnostics/diagstats_others_calc.F 75 DIAGSTATS_LM_CALC 
      INTEGER k, bi, bj
./pkg/diagnostics/diagstats_set_regions.F 104 DIAGSTATS_SET_REGIONS 
        DO bj = myByLo(myThid), myByHi(myThid)
./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 192 DIAGSTATS_SET_REGIONS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagstats_set_regions.F 198 DIAGSTATS_SET_REGIONS 
           diagSt_regMask(i,j,1,bi,bj) = 0.
./pkg/diagnostics/diagstats_set_regions.F 39 DIAGSTATS_SET_REGIONS 
      INTEGER bi, bj
./pkg/diagnostics/diagstats_set_regions.F 55 DIAGSTATS_SET_REGIONS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/diagnostics/diagstats_set_regions.F 60 DIAGSTATS_SET_REGIONS 
           diagSt_regMask(i,j,k,bi,bj) = 0.
./pkg/dic/alk_surfforcing.F 11 ALK_SURFFORCING 
     I           bi,bj,imin,imax,jmin,jmax,
./pkg/dic/alk_surfforcing.F 37 ALK_SURFFORCING 
      INTEGER iMin,iMax,jMin,jMax, bi, bj
./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/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 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 15 BIO_EXPORT 
     I           bi,bj,imin,imax,jmin,jmax,
./pkg/dic/bio_export.F 46 BIO_EXPORT 
      INTEGER imin, imax, jmin, jmax, bi, bj
./pkg/dic/bio_export.F 75 BIO_EXPORT 
      CALL INSOL(myTime,sfac,bi,bj,myThid)
./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 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),
./pkg/dic/calcite_saturation.F 116 CALCITE_SATURATION 
     I          ak0(i,j,bi,bj), fugf(i,j,bi,bj), ff(i,j,bi,bj),
./pkg/dic/calcite_saturation.F 117 CALCITE_SATURATION 
     I          bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/calcite_saturation.F 119 CALCITE_SATURATION 
     I          i,j,k,bi,bj,myIter,myThid )
./pkg/dic/calcite_saturation.F 11 CALCITE_SATURATION 
     I           bi,bj,imin,imax,jmin,jmax,
./pkg/dic/calcite_saturation.F 128 CALCITE_SATURATION 
             omegaC(i,j,k,bi,bj) = calcium * carbonate /
./pkg/dic/calcite_saturation.F 129 CALCITE_SATURATION 
     &                          Ksp_TP_Calc(i,j,bi,bj)
./pkg/dic/calcite_saturation.F 156 CALCITE_SATURATION 
             omegaC(i,j,k,bi,bj) = 0. _d 0
./pkg/dic/calcite_saturation.F 38 CALCITE_SATURATION 
       INTEGER imin, imax, jmin, jmax, bi, bj
./pkg/dic/calcite_saturation.F 77 CALCITE_SATURATION 
     I                       bi,bj,iMin,iMax,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/car_flux.F 107 CAR_FLUX 
           depth_l  = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 111 CAR_FLUX 
     &          *maskC(i,j,kop1,bi,bj)
./pkg/dic/car_flux.F 114 CAR_FLUX 
     &          *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 11 CAR_FLUX 
     I           bi,bj,imin,imax,jmin,jmax,
./pkg/dic/car_flux.F 130 CAR_FLUX 
     &        *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/car_flux.F 35 CAR_FLUX 
      INTEGER imin, imax, jmin, jmax, bi, bj
./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 71 CAR_FLUX 
          ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN
./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_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 111 CAR_FLUX_OMEGA_TOP 
     &                  ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) )
./pkg/dic/car_flux_omega_top.F 11 CAR_FLUX_OMEGA_TOP 
     I           bi,bj,imin,imax,jmin,jmax,
./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 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 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 170 CAR_FLUX_OMEGA_TOP 
     &                    R_CP*rain_ratio(i,j,bi,bj)
./pkg/dic/car_flux_omega_top.F 37 CAR_FLUX_OMEGA_TOP 
       INTEGER imin, imax, jmin, jmax, bi, bj
./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/carbon_chem.F 1039 CARBON_COEFFS_PRESSURE_DEP 
           Ksp_TP_Calc(i,j,bi,bj) = Ksp_T_Calc*10**(xvalue)
./pkg/dic/carbon_chem.F 1046 CARBON_COEFFS_PRESSURE_DEP 
            ff(i,j,bi,bj)=0.d0
./pkg/dic/carbon_chem.F 1047 CARBON_COEFFS_PRESSURE_DEP 
            ak0(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1048 CARBON_COEFFS_PRESSURE_DEP 
            ak1(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1049 CARBON_COEFFS_PRESSURE_DEP 
            ak2(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1050 CARBON_COEFFS_PRESSURE_DEP 
            akb(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1051 CARBON_COEFFS_PRESSURE_DEP 
            ak1p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1052 CARBON_COEFFS_PRESSURE_DEP 
            ak2p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1053 CARBON_COEFFS_PRESSURE_DEP 
            ak3p(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1054 CARBON_COEFFS_PRESSURE_DEP 
            aksi(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1055 CARBON_COEFFS_PRESSURE_DEP 
            akw(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1056 CARBON_COEFFS_PRESSURE_DEP 
            aks(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1057 CARBON_COEFFS_PRESSURE_DEP 
            akf(i,j,bi,bj)= 0.d0
./pkg/dic/carbon_chem.F 1058 CARBON_COEFFS_PRESSURE_DEP 
            bt(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1059 CARBON_COEFFS_PRESSURE_DEP 
            st(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1060 CARBON_COEFFS_PRESSURE_DEP 
            ft(i,j,bi,bj) = 0.d0
./pkg/dic/carbon_chem.F 1061 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 348 CALC_PCO2_APPROX 
     I                       i,j,k,bi,bj,myIter,myThid )
./pkg/dic/carbon_chem.F 391 CALC_PCO2_APPROX 
        INTEGER i,j,k,bi,bj,myIter
./pkg/dic/carbon_chem.F 497 CARBON_COEFFS 
     I                   bi,bj,iMin,iMax,jMin,jMax,myThid)
./pkg/dic/carbon_chem.F 546 CARBON_COEFFS 
        INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/dic/carbon_chem.F 588 CARBON_COEFFS 
          if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then
./pkg/dic/carbon_chem.F 615 CARBON_COEFFS 
           fugf(i,j,bi,bj) = exp( (B+2. _d 0*delta) * P1atm / RT)
./pkg/dic/carbon_chem.F 619 CARBON_COEFFS 
           ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100  +
./pkg/dic/carbon_chem.F 625 CARBON_COEFFS 
           ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 +
./pkg/dic/carbon_chem.F 633 CARBON_COEFFS 
           ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk -
./pkg/dic/carbon_chem.F 636 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 641 CARBON_COEFFS 
           akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts -
./pkg/dic/carbon_chem.F 649 CARBON_COEFFS 
           ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 -
./pkg/dic/carbon_chem.F 656 CARBON_COEFFS 
           ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 -
./pkg/dic/carbon_chem.F 663 CARBON_COEFFS 
           ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 +
./pkg/dic/carbon_chem.F 669 CARBON_COEFFS 
           aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 -
./pkg/dic/carbon_chem.F 678 CARBON_COEFFS 
           akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 -
./pkg/dic/carbon_chem.F 67 CALC_PCO2 
        INTEGER i,j,k,bi,bj,myIter
./pkg/dic/carbon_chem.F 685 CARBON_COEFFS 
           aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 -
./pkg/dic/carbon_chem.F 694 CARBON_COEFFS 
           akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 +
./pkg/dic/carbon_chem.F 696 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 700 CARBON_COEFFS 
           bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0
./pkg/dic/carbon_chem.F 702 CARBON_COEFFS 
           st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0
./pkg/dic/carbon_chem.F 704 CARBON_COEFFS 
           ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0
./pkg/dic/carbon_chem.F 708 CARBON_COEFFS 
            fugf(i,j,bi,bj)=0. _d 0
./pkg/dic/carbon_chem.F 709 CARBON_COEFFS 
            ff(i,j,bi,bj)=0. _d 0
./pkg/dic/carbon_chem.F 710 CARBON_COEFFS 
            ak0(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 711 CARBON_COEFFS 
            ak1(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 712 CARBON_COEFFS 
            ak2(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 713 CARBON_COEFFS 
            akb(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 714 CARBON_COEFFS 
            ak1p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 715 CARBON_COEFFS 
            ak2p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 716 CARBON_COEFFS 
            ak3p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 717 CARBON_COEFFS 
            aksi(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 718 CARBON_COEFFS 
            akw(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 719 CARBON_COEFFS 
            aks(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 720 CARBON_COEFFS 
            akf(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 721 CARBON_COEFFS 
            bt(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 722 CARBON_COEFFS 
            st(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 723 CARBON_COEFFS 
            ft(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 739 CARBON_COEFFS_PRESSURE_DEP 
     I                   bi,bj,iMin,iMax,jMin,jMax,
./pkg/dic/carbon_chem.F 794 CARBON_COEFFS_PRESSURE_DEP 
        INTEGER bi,bj,iMin,iMax,jMin,jMax
./pkg/dic/carbon_chem.F 868 CARBON_COEFFS_PRESSURE_DEP 
          if (hFacC(i,j,Klevel,bi,bj).gt.0.d0) then
./pkg/dic/carbon_chem.F 888 CARBON_COEFFS_PRESSURE_DEP 
           ff(i,j,bi,bj) = exp(-162.8301 + 218.2968/tk100  +
./pkg/dic/carbon_chem.F 894 CARBON_COEFFS_PRESSURE_DEP 
           ak0(i,j,bi,bj) = exp(93.4517/tk100 - 60.2409 +
./pkg/dic/carbon_chem.F 902 CARBON_COEFFS_PRESSURE_DEP 
           ak1(i,j,bi,bj)=10**(-1*(3670.7*invtk -
./pkg/dic/carbon_chem.F 905 CARBON_COEFFS_PRESSURE_DEP 
           ak2(i,j,bi,bj)=10**(-1*(1394.7*invtk + 4.777 -
./pkg/dic/carbon_chem.F 911 CARBON_COEFFS_PRESSURE_DEP 
           ak1(i,j,bi,bj) = ak1(i,j,bi,bj)*
./pkg/dic/carbon_chem.F 918 CARBON_COEFFS_PRESSURE_DEP 
           ak2(i,j,bi,bj) = ak2(i,j,bi,bj)*
./pkg/dic/carbon_chem.F 923 CARBON_COEFFS_PRESSURE_DEP 
           akb(i,j,bi,bj)=exp((-8966.90 - 2890.53*sqrts - 77.942*s +
./pkg/dic/carbon_chem.F 937 CARBON_COEFFS_PRESSURE_DEP 
           akb(i,j,bi,bj) = akb(i,j,bi,bj)*exp(pfactor)
./pkg/dic/carbon_chem.F 941 CARBON_COEFFS_PRESSURE_DEP 
           ak1p(i,j,bi,bj) = exp(-4576.752*invtk + 115.525 -
./pkg/dic/carbon_chem.F 948 CARBON_COEFFS_PRESSURE_DEP 
           ak2p(i,j,bi,bj) = exp(-8814.715*invtk + 172.0883 -
./pkg/dic/carbon_chem.F 955 CARBON_COEFFS_PRESSURE_DEP 
           ak3p(i,j,bi,bj) = exp(-3070.75*invtk - 18.141 +
./pkg/dic/carbon_chem.F 961 CARBON_COEFFS_PRESSURE_DEP 
           aksi(i,j,bi,bj) = exp(-8904.2*invtk + 117.385 -
./pkg/dic/carbon_chem.F 970 CARBON_COEFFS_PRESSURE_DEP 
           akw(i,j,bi,bj) = exp(-13847.26*invtk + 148.9652 -
./pkg/dic/carbon_chem.F 977 CARBON_COEFFS_PRESSURE_DEP 
           aks(i,j,bi,bj)=exp(-4276.1*invtk + 141.328 -
./pkg/dic/carbon_chem.F 986 CARBON_COEFFS_PRESSURE_DEP 
           akf(i,j,bi,bj)=exp(1590.2*invtk - 12.641 + 1.525*sqrtis +
./pkg/dic/carbon_chem.F 988 CARBON_COEFFS_PRESSURE_DEP 
     &          log(1.0 + (0.1400/96.062)*(scl)/aks(i,j,bi,bj)))
./pkg/dic/carbon_chem.F 992 CARBON_COEFFS_PRESSURE_DEP 
           bt(i,j,bi,bj) = 0.000232 * scl/10.811
./pkg/dic/carbon_chem.F 994 CARBON_COEFFS_PRESSURE_DEP 
           st(i,j,bi,bj) = 0.14 * scl/96.062
./pkg/dic/carbon_chem.F 996 CARBON_COEFFS_PRESSURE_DEP 
           ft(i,j,bi,bj) = 0.000067 * scl/18.9984
./pkg/dic/dic_atmos.F 106 DIC_ATMOS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_atmos.F 108 DIC_ATMOS 
         tile_flux(bi,bj)   = 0.
./pkg/dic/dic_atmos.F 109 DIC_ATMOS 
         tile_carbon(bi,bj) = 0.
./pkg/dic/dic_atmos.F 113 DIC_ATMOS 
             tile_carbon(bi,bj) = tile_carbon(bi,bj)
./pkg/dic/dic_atmos.F 114 DIC_ATMOS 
     &            + ( pTracer(i,j,k,bi,bj,1)
./pkg/dic/dic_atmos.F 116 DIC_ATMOS 
     &               +R_cp*pTracer(i,j,k,bi,bj,4)
./pkg/dic/dic_atmos.F 118 DIC_ATMOS 
     &              ) * rA(i,j,bi,bj)
./pkg/dic/dic_atmos.F 119 DIC_ATMOS 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/dic_atmos.F 195 DIC_ATMOS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_atmos.F 199 DIC_ATMOS 
            AtmospCO2(i,j,bi,bj) = atm_pCO2
./pkg/dic/dic_atmos.F 55 DIC_ATMOS 
      INTEGER bi, bj, i,j,k
./pkg/dic/dic_biotic_diags.F 139 DIC_BIOTIC_DIAGS 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_biotic_diags.F 141 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(BIOave,Nr,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 142 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(CARave,Nr,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 143 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(SURave,1,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 144 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(SUROave,1,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 145 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(pCO2ave,1,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 146 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(pHave,1,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 147 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(fluxCO2ave,1,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 148 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(OmegaCave,Nr,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 149 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(pfluxave,Nr,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 150 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(epfluxave,Nr,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 151 DIC_BIOTIC_DIAGS 
         CALL TIMEAVE_RESET(cfluxave,Nr,bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 152 DIC_BIOTIC_DIAGS 
         DIC_timeAve(bi,bj) = 0. _d 0
./pkg/dic/dic_biotic_diags.F 39 DIC_BIOTIC_DIAGS 
      INTEGER bi, bj
./pkg/dic/dic_biotic_diags.F 49 DIC_BIOTIC_DIAGS 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_biotic_diags.F 52 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 54 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 56 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 58 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 60 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 62 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 64 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 66 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 68 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 70 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_diags.F 72 DIC_BIOTIC_DIAGS 
     &                 bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 143 DIC_BIOTIC_FORCING 
     &                    bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 148 DIC_BIOTIC_FORCING 
     &                    bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 154 DIC_BIOTIC_FORCING 
     &                    bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 160 DIC_BIOTIC_FORCING 
       CALL FE_CHEM( bi,bj,iMin,iMax,jMin,jMax, PTR_FE, freefe,
./pkg/dic/dic_biotic_forcing.F 171 DIC_BIOTIC_FORCING 
     I           bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 176 DIC_BIOTIC_FORCING 
     &                    bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 183 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 18 DIC_BIOTIC_FORCING 
     &                            bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 197 DIC_BIOTIC_FORCING 
     I                    bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 202 DIC_BIOTIC_FORCING 
     &                    bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 207 DIC_BIOTIC_FORCING 
     &                    bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_biotic_forcing.F 216 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 219 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 255 DIC_BIOTIC_FORCING 
     &                    InputFe(i,j,bi,bj)*recip_drF(1)
./pkg/dic/dic_biotic_forcing.F 256 DIC_BIOTIC_FORCING 
     &                       *recip_hFacC(i,j,1,bi,bj)
./pkg/dic/dic_biotic_forcing.F 289 DIC_BIOTIC_FORCING 
       CALL FE_CHEM( bi,bj,iMin,iMax,jMin,jMax, PTR_FE, freefe,
./pkg/dic/dic_biotic_forcing.F 301 DIC_BIOTIC_FORCING 
            BIOave(i,j,k,bi,bj)   =BIOave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 303 DIC_BIOTIC_FORCING 
            CARave(i,j,k,bi,bj)   =CARave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 305 DIC_BIOTIC_FORCING 
            OmegaCave(i,j,k,bi,bj)=OmegaCave(i,j,k,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 306 DIC_BIOTIC_FORCING 
     &                             OmegaC(i,j,k,bi,bj)*deltaTClock
./pkg/dic/dic_biotic_forcing.F 307 DIC_BIOTIC_FORCING 
            pfluxave(i,j,k,bi,bj) =pfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F 309 DIC_BIOTIC_FORCING 
            epfluxave(i,j,k,bi,bj)=epfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F 311 DIC_BIOTIC_FORCING 
            cfluxave(i,j,k,bi,bj) =cfluxave(i,j,k,bi,bj) +
./pkg/dic/dic_biotic_forcing.F 318 DIC_BIOTIC_FORCING 
              SURave(i,j,bi,bj)    =SURave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 321 DIC_BIOTIC_FORCING 
              SUROave(i,j,bi,bj)   =SUROave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 324 DIC_BIOTIC_FORCING 
              pCO2ave(i,j,bi,bj)   =pCO2ave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 325 DIC_BIOTIC_FORCING 
     &                              pCO2(i,j,bi,bj)*deltaTClock
./pkg/dic/dic_biotic_forcing.F 326 DIC_BIOTIC_FORCING 
              pHave(i,j,bi,bj)     =pHave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 327 DIC_BIOTIC_FORCING 
     &                              pH(i,j,bi,bj)*deltaTClock
./pkg/dic/dic_biotic_forcing.F 328 DIC_BIOTIC_FORCING 
              fluxCO2ave(i,j,bi,bj)=fluxCO2ave(i,j,bi,bj)+
./pkg/dic/dic_biotic_forcing.F 329 DIC_BIOTIC_FORCING 
     &                           fluxCO2(i,j,bi,bj)*deltaTClock
./pkg/dic/dic_biotic_forcing.F 332 DIC_BIOTIC_FORCING 
         DIC_timeAve(bi,bj) = DIC_timeAve(bi,bj)+deltaTClock
./pkg/dic/dic_biotic_forcing.F 342 DIC_BIOTIC_FORCING 
        CALL DIAGNOSTICS_FILL(BIOac  ,'DICBIOA ',0,Nr,2,bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 343 DIC_BIOTIC_FORCING 
        CALL DIAGNOSTICS_FILL(CAR    ,'DICCARB ',0,Nr,2,bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 344 DIC_BIOTIC_FORCING 
        CALL DIAGNOSTICS_FILL(pCO2   ,'DICPCO2 ',0,1 ,1,bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 345 DIC_BIOTIC_FORCING 
        CALL DIAGNOSTICS_FILL(fluxCO2,'DICCFLX ',0,1 ,1,bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 346 DIC_BIOTIC_FORCING 
        CALL DIAGNOSTICS_FILL(pH     ,'DICPHAV ',0,1 ,1,bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 347 DIC_BIOTIC_FORCING 
        CALL DIAGNOSTICS_FILL(SURC   ,'DICTFLX ',0,1 ,2,bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 349 DIC_BIOTIC_FORCING 
        CALL DIAGNOSTICS_FILL(SURO   ,'DICOFLX ',0,1 ,2,bi,bj,myThid)
./pkg/dic/dic_biotic_forcing.F 59 DIC_BIOTIC_FORCING 
      INTEGER bi, bj, imin, imax, jmin, jmax
./pkg/dic/dic_biotic_init.F 31 DIC_BIOTIC_INIT 
      INTEGER bi, bj
./pkg/dic/dic_biotic_init.F 35 DIC_BIOTIC_INIT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_biotic_init.F 37 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(BIOave,   Nr,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 38 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(CARave,   Nr,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 39 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(SURave,   1,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 40 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(SUROave,   1,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 41 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(pCO2ave,   1,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 42 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(pHave,   1,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 43 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(fluxCO2ave,   1,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 44 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(OmegaCave,   Nr,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 45 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(pfluxave,   Nr,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 46 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(epfluxave,   Nr,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 47 DIC_BIOTIC_INIT 
          CALL TIMEAVE_RESET(cfluxave,   Nr,  bi, bj, myThid)
./pkg/dic/dic_biotic_init.F 49 DIC_BIOTIC_INIT 
          DIC_timeAve(bi,bj) = 0. _d 0
./pkg/dic/dic_cost.F 37 DIC_COST 
      INTEGER i, j, bi, bj
./pkg/dic/dic_cost.F 42 DIC_COST 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_cost.F 44 DIC_COST 
         loc_cost(bi,bj) = 0. _d 0
./pkg/dic/dic_cost.F 47 DIC_COST 
            loc_cost(bi,bj) = loc_cost(bi,bj)
./pkg/dic/dic_cost.F 48 DIC_COST 
     &                      + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/dic/dic_cost.F 49 DIC_COST 
     &                       *maskC(i,j,1,bi,bj)*dTtracerLev(1)
./pkg/dic/dic_fields_load.F 158 DIC_FIELDS_LOAD 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_fields_load.F 160 DIC_FIELDS_LOAD 
           DIC_ldRec(bi,bj) = intime1
./pkg/dic/dic_fields_load.F 167 DIC_FIELDS_LOAD 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_fields_load.F 172 DIC_FIELDS_LOAD 
             WIND(i,j,bi,bj) = bWght*dicwind0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 173 DIC_FIELDS_LOAD 
     &                       + aWght*dicwind1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 185 DIC_FIELDS_LOAD 
             AtmosP(i,j,bi,bj) = bWght*atmosp0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 186 DIC_FIELDS_LOAD 
     &                         + aWght*atmosp1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 194 DIC_FIELDS_LOAD 
             SILICA(i,j,bi,bj) = bWght*silica0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 195 DIC_FIELDS_LOAD 
     &                         + aWght*silica1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 202 DIC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = bWght*ice0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 203 DIC_FIELDS_LOAD 
     &                       + aWght*ice1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 212 DIC_FIELDS_LOAD 
             PAR(i,j,bi,bj) = bWght*par0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 213 DIC_FIELDS_LOAD 
     &                      + aWght*par1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 228 DIC_FIELDS_LOAD 
             InputFe(i,j,bi,bj) = bWght*feinput0(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 229 DIC_FIELDS_LOAD 
     &                          + aWght*feinput1(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 240 DIC_FIELDS_LOAD 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_fields_load.F 246 DIC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = AREA(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 255 DIC_FIELDS_LOAD 
             FIce(i,j,bi,bj) = iceMask(i,j,bi,bj)
./pkg/dic/dic_fields_load.F 43 DIC_FIELDS_LOAD 
      INTEGER bi, bj, i, j
./pkg/dic/dic_fields_load.F 60 DIC_FIELDS_LOAD 
       bj = myByLo(myThid)
./pkg/dic/dic_fields_load.F 66 DIC_FIELDS_LOAD 
     &   ' : iP,iLd,i0,i1=', intimeP,DIC_ldRec(bi,bj), intime0,intime1,
./pkg/dic/dic_fields_load.F 82 DIC_FIELDS_LOAD 
       IF ( intime1.NE.DIC_ldRec(bi,bj) ) THEN
./pkg/dic/dic_fields_load.F 92 DIC_FIELDS_LOAD 
     &    ' (prev=', intimeP, DIC_ldRec(bi,bj), ' )'
./pkg/dic/dic_ini_atmos.F 116 DIC_INI_ATMOS 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_ini_atmos.F 118 DIC_INI_ATMOS 
         tile_flux(bi,bj)   = 0.
./pkg/dic/dic_ini_atmos.F 119 DIC_INI_ATMOS 
         tile_carbon(bi,bj) = 0.
./pkg/dic/dic_ini_atmos.F 122 DIC_INI_ATMOS 
             tile_flux(bi,bj) = tile_flux(bi,bj)
./pkg/dic/dic_ini_atmos.F 123 DIC_INI_ATMOS 
     &                        + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)
./pkg/dic/dic_ini_atmos.F 124 DIC_INI_ATMOS 
     &                         *maskC(i,j,1,bi,bj)*dTtracerLev(1)
./pkg/dic/dic_ini_atmos.F 130 DIC_INI_ATMOS 
             tile_carbon(bi,bj) = tile_carbon(bi,bj)
./pkg/dic/dic_ini_atmos.F 131 DIC_INI_ATMOS 
     &            + ( pTracer(i,j,k,bi,bj,1)
./pkg/dic/dic_ini_atmos.F 133 DIC_INI_ATMOS 
     &               +R_cp*pTracer(i,j,k,bi,bj,4)
./pkg/dic/dic_ini_atmos.F 135 DIC_INI_ATMOS 
     &              ) * rA(i,j,bi,bj)
./pkg/dic/dic_ini_atmos.F 136 DIC_INI_ATMOS 
     &                *drF(k)*hFacC(i,j,k,bi,bj)
./pkg/dic/dic_ini_atmos.F 195 DIC_INI_ATMOS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_ini_atmos.F 199 DIC_INI_ATMOS 
            AtmospCO2(i,j,bi,bj) = atm_pCO2
./pkg/dic/dic_ini_atmos.F 55 DIC_INI_ATMOS 
      INTEGER bi, bj, i,j,k
./pkg/dic/dic_ini_forcing.F 33 DIC_INI_FORCING 
       INTEGER bi,bj,i,j
./pkg/dic/dic_ini_forcing.F 39 DIC_INI_FORCING 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_ini_forcing.F 41 DIC_INI_FORCING 
         DIC_ldRec(bi,bj) = 0
./pkg/dic/dic_ini_forcing.F 72 DIC_INI_FORCING 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_ini_forcing.F 76 DIC_INI_FORCING 
             WIND(i,j,bi,bj)   = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 77 DIC_INI_FORCING 
             AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 78 DIC_INI_FORCING 
             SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 79 DIC_INI_FORCING 
             FIce(i,j,bi,bj)   = 0. _d 0
./pkg/dic/dic_ini_forcing.F 80 DIC_INI_FORCING 
             FluxCO2(i,j,bi,bj)= 0. _d 0
./pkg/dic/dic_ini_forcing.F 82 DIC_INI_FORCING 
             PAR(i,j,bi,bj)    = 100. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 85 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 56 DIC_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/dic_init_varia.F 60 DIC_INIT_VARIA 
            alpha(i,j,bi,bj)      = alphaUniform
./pkg/dic/dic_init_varia.F 61 DIC_INIT_VARIA 
            rain_ratio(i,j,bi,bj) = rainRatioUniform
./pkg/dic/dic_init_varia.F 67 DIC_INIT_VARIA 
            omegaC(i,j,k,bi,bj) =  0. _d 0
./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 38 DIC_SET_CONTROL 
      INTEGER bi, bj
./pkg/dic/dic_set_control.F 74 DIC_SET_CONTROL 
      DO bj=myByLo(myThid),myByHi(myThid)
./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_set_control.F 98 DIC_SET_CONTROL 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_store_fluxco2.F 46 DIC_STORE_FLUXCO2 
      INTEGER i,j,bi,bj
./pkg/dic/dic_store_fluxco2.F 50 DIC_STORE_FLUXCO2 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_store_fluxco2.F 54 DIC_STORE_FLUXCO2 
            fluxCO2cpl(i,j,bi,bj) = fluxCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 100 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 102 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 105 DIC_SURFFORCING 
             surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s
./pkg/dic/dic_surfforcing.F 106 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 107 DIC_SURFFORCING 
             surfphos(i,j)  = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 110 DIC_SURFFORCING 
             surfsi(i,j)   = SILICA(i,j,bi,bj) * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 113 DIC_SURFFORCING 
     &                          min(50. _d 0, theta(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing.F 115 DIC_SURFFORCING 
     &                          min(50. _d 0, salt(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing.F 119 DIC_SURFFORCING 
            surftemp(i,j) = theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 120 DIC_SURFFORCING 
            surfsalt(i,j) = salt(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 128 DIC_SURFFORCING 
     I                       bi,bj,iMin,iMax,jMin,jMax,myThid)
./pkg/dic/dic_surfforcing.F 12 DIC_SURFFORCING 
     I           bi,bj,imin,imax,jmin,jmax,
./pkg/dic/dic_surfforcing.F 141 DIC_SURFFORCING 
                AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm
./pkg/dic/dic_surfforcing.F 146 DIC_SURFFORCING 
              pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5
./pkg/dic/dic_surfforcing.F 147 DIC_SURFFORCING 
              Kwexch_Pre(i,j,bi,bj) = pisvel(i,j)
./pkg/dic/dic_surfforcing.F 148 DIC_SURFFORCING 
     &                              * (1. _d 0 - FIce(i,j,bi,bj))
./pkg/dic/dic_surfforcing.F 159 DIC_SURFFORCING 
          IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F 164 DIC_SURFFORCING 
     I        ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 165 DIC_SURFFORCING 
     I        ak1p(i,j,bi,bj),ak2p(i,j,bi,bj),ak3p(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 166 DIC_SURFFORCING 
     I        aks(i,j,bi,bj),akb(i,j,bi,bj),akw(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 167 DIC_SURFFORCING 
     I        aksi(i,j,bi,bj),akf(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 168 DIC_SURFFORCING 
     I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 169 DIC_SURFFORCING 
     I        ff(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 170 DIC_SURFFORCING 
     I        bt(i,j,bi,bj),st(i,j,bi,bj),ft(i,j,bi,bj),
./pkg/dic/dic_surfforcing.F 171 DIC_SURFFORCING 
     U        pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy,
./pkg/dic/dic_surfforcing.F 172 DIC_SURFFORCING 
     I        i,j,kLev,bi,bj,myIter,myThid )
./pkg/dic/dic_surfforcing.F 174 DIC_SURFFORCING 
            pCO2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing.F 182 DIC_SURFFORCING 
          IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F 186 DIC_SURFFORCING 
     &          + sca2 * theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 187 DIC_SURFFORCING 
     &          + sca3 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 188 DIC_SURFFORCING 
     &          + sca4 * theta(i,j,kLev,bi,bj)*theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 189 DIC_SURFFORCING 
     &                *theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 196 DIC_SURFFORCING 
     &          AtmosP(i,j,bi,bj)*AtmospCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 199 DIC_SURFFORCING 
              Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 207 DIC_SURFFORCING 
              FluxCO2(i,j,bi,bj) =
./pkg/dic/dic_surfforcing.F 209 DIC_SURFFORCING 
     &         ak0(i,j,bi,bj)*pCO2sat(i,j) -
./pkg/dic/dic_surfforcing.F 210 DIC_SURFFORCING 
     &         ff(i,j,bi,bj)*pCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 216 DIC_SURFFORCING 
               FluxCO2(i,j,bi,bj) =
./pkg/dic/dic_surfforcing.F 218 DIC_SURFFORCING 
     &            ff(i,j,bi,bj)*pCO2sat(i,j) -
./pkg/dic/dic_surfforcing.F 219 DIC_SURFFORCING 
     &            pCO2(i,j,bi,bj)*fugf(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 220 DIC_SURFFORCING 
     &            *ak0(i,j,bi,bj) )
./pkg/dic/dic_surfforcing.F 224 DIC_SURFFORCING 
              FluxCO2(i,j,bi,bj) = 0. _d 0
./pkg/dic/dic_surfforcing.F 227 DIC_SURFFORCING 
            FluxCO2(i,j,bi,bj) = FluxCO2(i,j,bi,bj)/permil
./pkg/dic/dic_surfforcing.F 230 DIC_SURFFORCING 
            IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN
./pkg/dic/dic_surfforcing.F 238 DIC_SURFFORCING 
              VirtualFlux(i,j)=gsm_DIC*surfaceForcingS(i,j,bi,bj)/gsm_s
./pkg/dic/dic_surfforcing.F 253 DIC_SURFFORCING 
           GDC(i,j)= recip_drF(kLev)*recip_hFacC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 254 DIC_SURFFORCING 
     &              *(FluxCO2(i,j,bi,bj)
./pkg/dic/dic_surfforcing.F 39 DIC_SURFFORCING 
      INTEGER iMin,iMax,jMin,jMax, bi, bj
./pkg/dic/dic_surfforcing.F 94 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing.F 97 DIC_SURFFORCING 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 103 DIC_SURFFORCING_INIT 
             SILICA(i,j,bi,bj)= bWght*silica0(i,j,bi,bj)
./pkg/dic/dic_surfforcing_init.F 104 DIC_SURFFORCING_INIT 
     &                        + aWght*silica1(i,j,bi,bj)
./pkg/dic/dic_surfforcing_init.F 121 DIC_SURFFORCING_INIT 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_surfforcing_init.F 125 DIC_SURFFORCING_INIT 
            pH(i,j,bi,bj) = 8. _d 0
./pkg/dic/dic_surfforcing_init.F 131 DIC_SURFFORCING_INIT 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_surfforcing_init.F 135 DIC_SURFFORCING_INIT 
          ak0(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 136 DIC_SURFFORCING_INIT 
          ak1(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 137 DIC_SURFFORCING_INIT 
          ak2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 138 DIC_SURFFORCING_INIT 
          akw(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 139 DIC_SURFFORCING_INIT 
          akb(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 140 DIC_SURFFORCING_INIT 
          akf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 141 DIC_SURFFORCING_INIT 
          ak1p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 142 DIC_SURFFORCING_INIT 
          ak2p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 143 DIC_SURFFORCING_INIT 
          ak3p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 144 DIC_SURFFORCING_INIT 
          aksi(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 145 DIC_SURFFORCING_INIT 
          fugf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 146 DIC_SURFFORCING_INIT 
          ff(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 147 DIC_SURFFORCING_INIT 
          ft(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 148 DIC_SURFFORCING_INIT 
          st(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 149 DIC_SURFFORCING_INIT 
          bt(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 165 DIC_SURFFORCING_INIT 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/dic/dic_surfforcing_init.F 175 DIC_SURFFORCING_INIT 
     &                          min(10. _d 0,PTRACER(i,j,kLev,bi,bj,2)))
./pkg/dic/dic_surfforcing_init.F 176 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 178 DIC_SURFFORCING_INIT 
     &                          min(1._d -1, PTRACER(i,j,kLev,bi,bj,3)))
./pkg/dic/dic_surfforcing_init.F 179 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 181 DIC_SURFFORCING_INIT 
             surfalk(i,j) = PTRACER(i,j,kLev,bi,bj,2)
./pkg/dic/dic_surfforcing_init.F 182 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 183 DIC_SURFFORCING_INIT 
             surfphos(i,j)= PTRACER(i,j,kLev,bi,bj,3)
./pkg/dic/dic_surfforcing_init.F 184 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 187 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 188 DIC_SURFFORCING_INIT 
     &                          * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 189 DIC_SURFFORCING_INIT 
             surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 192 DIC_SURFFORCING_INIT 
             surfsi(i,j)   =  Silica(i,j,bi,bj) * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 195 DIC_SURFFORCING_INIT 
     &                          min(50. _d 0, theta(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing_init.F 197 DIC_SURFFORCING_INIT 
     &                          min(50. _d 0, salt(i,j,kLev,bi,bj)))
./pkg/dic/dic_surfforcing_init.F 199 DIC_SURFFORCING_INIT 
     &                         min(10. _d 0, PTRACER(i,j,kLev,bi,bj,1)))
./pkg/dic/dic_surfforcing_init.F 201 DIC_SURFFORCING_INIT 
            surftemp(i,j) = theta(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 202 DIC_SURFFORCING_INIT 
            surfsalt(i,j) = salt(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 203 DIC_SURFFORCING_INIT 
            surfdic(i,j)  = PTRACER(i,j,kLev,bi,bj,1)
./pkg/dic/dic_surfforcing_init.F 204 DIC_SURFFORCING_INIT 
     &                    * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 211 DIC_SURFFORCING_INIT 
     I                       bi,bj,iMin,iMax,jMin,jMax,myThid)
./pkg/dic/dic_surfforcing_init.F 224 DIC_SURFFORCING_INIT 
            IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN
./pkg/dic/dic_surfforcing_init.F 233 DIC_SURFFORCING_INIT 
     I        ak1(i,j,bi,bj),ak2(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 234 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 235 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 236 DIC_SURFFORCING_INIT 
     I        aksi(i,j,bi,bj),akf(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 237 DIC_SURFFORCING_INIT 
     I        ak0(i,j,bi,bj), fugf(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 238 DIC_SURFFORCING_INIT 
     I        ff(i,j,bi,bj),
./pkg/dic/dic_surfforcing_init.F 239 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 240 DIC_SURFFORCING_INIT 
     U        pH(i,j,bi,bj),pCO2(i,j,bi,bj),co3dummy,
./pkg/dic/dic_surfforcing_init.F 241 DIC_SURFFORCING_INIT 
     I        i,j,kLev,bi,bj, it ,  myThid )
./pkg/dic/dic_surfforcing_init.F 249 DIC_SURFFORCING_INIT 
     &        pH(iprt,jprt,bi,bj),
./pkg/dic/dic_surfforcing_init.F 250 DIC_SURFFORCING_INIT 
     &        theta(iprt,jprt,1,bi,bj), salt(iprt,jprt,1,bi,bj),
./pkg/dic/dic_surfforcing_init.F 44 DIC_SURFFORCING_INIT 
      INTEGER iMin,iMax,jMin,jMax, bi, bj
./pkg/dic/dic_surfforcing_init.F 99 DIC_SURFFORCING_INIT 
        DO bj = myByLo(myThid), myByHi(myThid)
./pkg/dic/fe_chem.F 10 FE_CHEM 
     I           bi,bj, iMin,iMax,jMin,jMax,
./pkg/dic/fe_chem.F 37 FE_CHEM 
      INTEGER bi,bj
./pkg/dic/fe_chem.F 73 FE_CHEM 
          IF ( maskC(i,j,k,bi,bj).GT.0. ) THEN
./pkg/dic/insol.F 10 INSOL 
      SUBROUTINE INSOL(Time,sfac,bi,bj,myThid)
./pkg/dic/insol.F 31 INSOL 
       INTEGER bi,bj
./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/o2_surfforcing.F 111 O2_SURFFORCING 
     &                     (AtmosP(i,j,bi,bj)*O2sat(i,j)
./pkg/dic/o2_surfforcing.F 11 O2_SURFFORCING 
     I           bi,bj,iMin,iMax,jMin,jMax,
./pkg/dic/o2_surfforcing.F 125 O2_SURFFORCING 
     &         *recip_drF(K) * recip_hFacC(i,j,K,bi,bj)
./pkg/dic/o2_surfforcing.F 34 O2_SURFFORCING 
      INTEGER iMin,iMax,jMin,jMax, bi, bj
./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 86 O2_SURFFORCING 
              Kwexch(i,j) = Kwexch_Pre(i,j,bi,bj)
./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 117 PHOS_FLUX 
     &          *maskC(i,j,kop1,bi,bj)
./pkg/dic/phos_flux.F 11 PHOS_FLUX 
     I           bi,bj,imin,imax,jmin,jmax,
./pkg/dic/phos_flux.F 120 PHOS_FLUX 
     &          *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 137 PHOS_FLUX 
     &        *recip_drF(ko) * _recip_hFacC(i,j,ko,bi,bj)
./pkg/dic/phos_flux.F 35 PHOS_FLUX 
      INTEGER imin, imax, jmin, jmax, bi, bj
./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 72 PHOS_FLUX 
          ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN
./pkg/dic/phos_flux.F 77 PHOS_FLUX 
     &          *drF(k) * _hFacC(i,j,k,bi,bj)
./pkg/down_slope/dwnslp_apply.F 10 DWNSLP_APPLY 
     I            trIdentity, bi, bj, kBottom,
./pkg/down_slope/dwnslp_apply.F 125 DWNSLP_APPLY 
     &                                0, Nr, -2, bi, bj, myThid )
./pkg/down_slope/dwnslp_apply.F 132 DWNSLP_APPLY 
     &   ' DWNSLP_APPLY: iter, iTr, bi,bj=', myIter,trIdentity, bi,bj
./pkg/down_slope/dwnslp_apply.F 138 DWNSLP_APPLY 
       DO n=1,DWNSLP_NbSite(bi,bj)
./pkg/down_slope/dwnslp_apply.F 139 DWNSLP_APPLY 
        IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN
./pkg/down_slope/dwnslp_apply.F 143 DWNSLP_APPLY 
         ijd = DWNSLP_ijDeep(n,bi,bj)
./pkg/down_slope/dwnslp_apply.F 144 DWNSLP_APPLY 
         ijs = ijd + DWNSLP_shVsD(n,bi,bj)
./pkg/down_slope/dwnslp_apply.F 146 DWNSLP_APPLY 
         kshelf = kBottom(ijs,bi,bj)
./pkg/down_slope/dwnslp_apply.F 149 DWNSLP_APPLY 
         DO k=DWNSLP_deepK(n,bi,bj),kshelf,upward
./pkg/down_slope/dwnslp_apply.F 150 DWNSLP_APPLY 
          gTrLoc(k) = DWNSLP_Transp(n,bi,bj)
./pkg/down_slope/dwnslp_apply.F 153 DWNSLP_APPLY 
     &       *recip_rA_arg(ijd,bi,bj)
./pkg/down_slope/dwnslp_apply.F 159 DWNSLP_APPLY 
          gTrLoc(0) = DWNSLP_Transp(n,bi,bj)
./pkg/down_slope/dwnslp_apply.F 162 DWNSLP_APPLY 
     &       *recip_rA_arg(ijs,bi,bj)
./pkg/down_slope/dwnslp_apply.F 167 DWNSLP_APPLY 
          k=DWNSLP_deepK(n,bi,bj)
./pkg/down_slope/dwnslp_apply.F 169 DWNSLP_APPLY 
     &      bi,bj,n,ijd,ijs,k,
./pkg/down_slope/dwnslp_apply.F 171 DWNSLP_APPLY 
     &      deltaTLev(k)*DWNSLP_Transp(n,bi,bj)
./pkg/down_slope/dwnslp_apply.F 173 DWNSLP_APPLY 
     &       *recip_rA_arg(ijd,bi,bj)*
./pkg/down_slope/dwnslp_apply.F 176 DWNSLP_APPLY 
     &      deltaTLev(k)*DWNSLP_Transp(n,bi,bj)
./pkg/down_slope/dwnslp_apply.F 178 DWNSLP_APPLY 
     &       *recip_rA_arg(ijs,bi,bj)*
./pkg/down_slope/dwnslp_apply.F 192 DWNSLP_APPLY 
     &  CALL DIAGNOSTICS_FILL( gTracer, diagName, 0,Nr,2,bi,bj,myThid )
./pkg/down_slope/dwnslp_apply.F 52 DWNSLP_APPLY 
      INTEGER bi, bj
./pkg/down_slope/dwnslp_calc_flow.F 100 DWNSLP_CALC_FLOW 
        ijr = DWNSLP_shVsD(n,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 102 DWNSLP_CALC_FLOW 
        kshelf = kBottom(ijs,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 104 DWNSLP_CALC_FLOW 
        dRhoH = rho3d(ijs,kshelf,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 105 DWNSLP_CALC_FLOW 
     &         -rho3d(ijd,kshelf,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 107 DWNSLP_CALC_FLOW 
        IF ( rho3d(ijs,kshelf+1,bi,bj).GT.rho3d(ijd,kshelf+1,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 10 DWNSLP_CALC_FLOW 
     I                             bi, bj, kBottom, rho3d,
./pkg/down_slope/dwnslp_calc_flow.F 112 DWNSLP_CALC_FLOW 
          DO k=kshelf+1,kBottom(ijd,bi,bj),downward
./pkg/down_slope/dwnslp_calc_flow.F 113 DWNSLP_CALC_FLOW 
           IF ( rho3d(ijs,k,bi,bj).GT.rho3d(ijd,k,bi,bj) ) kdeep = k
./pkg/down_slope/dwnslp_calc_flow.F 115 DWNSLP_CALC_FLOW 
          DWNSLP_deepK(n,bi,bj) = kdeep
./pkg/down_slope/dwnslp_calc_flow.F 121 DWNSLP_CALC_FLOW 
          DWNSLP_Transp(n,bi,bj) = DWNSLP_Gamma(n,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 129 DWNSLP_CALC_FLOW 
             uFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 131 DWNSLP_CALC_FLOW 
             vFlow(ij) = sgnFac*DWNSLP_Transp(n,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 144 DWNSLP_CALC_FLOW 
     &      ' DWNSLP_CALC_FLOW: iter,bi,bj=',myIter,bi,bj
./pkg/down_slope/dwnslp_calc_flow.F 147 DWNSLP_CALC_FLOW 
       DO n=1,DWNSLP_NbSite(bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 148 DWNSLP_CALC_FLOW 
        IF (DWNSLP_deepK(n,bi,bj).NE.0) THEN
./pkg/down_slope/dwnslp_calc_flow.F 149 DWNSLP_CALC_FLOW 
         ijs = DWNSLP_ijDeep(n,bi,bj) + DWNSLP_shVsD(n,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 152 DWNSLP_CALC_FLOW 
         kshelf = kBottom(ijs,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 154 DWNSLP_CALC_FLOW 
     &     bi,bj,n,' :', DWNSLP_ijDeep(n,bi,bj),
./pkg/down_slope/dwnslp_calc_flow.F 155 DWNSLP_CALC_FLOW 
     &                   DWNSLP_shVsD(n,bi,bj), ishelf,jshelf,
./pkg/down_slope/dwnslp_calc_flow.F 156 DWNSLP_CALC_FLOW 
     &             ' ;', kshelf, DWNSLP_deepK(n,bi,bj)-kshelf,
./pkg/down_slope/dwnslp_calc_flow.F 157 DWNSLP_CALC_FLOW 
     &                   DWNSLP_Transp(n,bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 166 DWNSLP_CALC_FLOW 
        CALL DIAGNOSTICS_FILL( uFlow, 'DSLPuFlw', 0,1,2,bi,bj,myThid )
./pkg/down_slope/dwnslp_calc_flow.F 167 DWNSLP_CALC_FLOW 
        CALL DIAGNOSTICS_FILL( vFlow, 'DSLPvFlw', 0,1,2,bi,bj,myThid )
./pkg/down_slope/dwnslp_calc_flow.F 40 DWNSLP_CALC_FLOW 
      INTEGER bi, bj
./pkg/down_slope/dwnslp_calc_flow.F 94 DWNSLP_CALC_FLOW 
      DO n=1,DWNSLP_NbSite(bi,bj)
./pkg/down_slope/dwnslp_calc_flow.F 95 DWNSLP_CALC_FLOW 
        DWNSLP_deepK(n,bi,bj) = 0
./pkg/down_slope/dwnslp_calc_flow.F 99 DWNSLP_CALC_FLOW 
        ijd = DWNSLP_ijDeep(n,bi,bj)
./pkg/down_slope/dwnslp_calc_rho.F 12 DWNSLP_CALC_RHO 
     I                k, bi, bj, myTime, myIter, myThid )
./pkg/down_slope/dwnslp_calc_rho.F 47 DWNSLP_CALC_RHO 
      INTEGER k, bi, bj
./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_calc_rho.F 88 DWNSLP_CALC_RHO 
     I      k, bi, bj, myThid )
./pkg/down_slope/dwnslp_init_fixed.F 108 DWNSLP_INIT_FIXED 
           IF (  kSurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 110 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 115 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = -xSize
./pkg/down_slope/dwnslp_init_fixed.F 119 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 124 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = xSize
./pkg/down_slope/dwnslp_init_fixed.F 139 DWNSLP_INIT_FIXED 
           IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 141 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 146 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = -1
./pkg/down_slope/dwnslp_init_fixed.F 150 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 155 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = 1
./pkg/down_slope/dwnslp_init_fixed.F 167 DWNSLP_INIT_FIXED 
           IF (  kSurfS(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 169 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 174 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = -xSize
./pkg/down_slope/dwnslp_init_fixed.F 178 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 183 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = xSize
./pkg/down_slope/dwnslp_init_fixed.F 195 DWNSLP_INIT_FIXED 
        DWNSLP_NbSite(bi,bj) = ncount
./pkg/down_slope/dwnslp_init_fixed.F 203 DWNSLP_INIT_FIXED 
     &      ' DWNSLP_INIT: min needed for tile',bi,bj,' :', ncount
./pkg/down_slope/dwnslp_init_fixed.F 210 DWNSLP_INIT_FIXED 
        DO n=1,DWNSLP_NbSite(bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 212 DWNSLP_INIT_FIXED 
          ijd = DWNSLP_ijDeep(n,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 215 DWNSLP_INIT_FIXED 
          ijr = DWNSLP_shVsD(n,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 219 DWNSLP_INIT_FIXED 
            kdeep  = kSurfC(ideep, jdeep, bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 220 DWNSLP_INIT_FIXED 
            kshelf = kSurfC(ishelf,jshelf,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 223 DWNSLP_INIT_FIXED 
            kdeep  = kLowC (ideep, jdeep, bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 224 DWNSLP_INIT_FIXED 
            kshelf = kLowC (ishelf,jshelf,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 235 DWNSLP_INIT_FIXED 
     &                       drF(k)*hFacC(ideep,jdeep,k,bi,bj) )
./pkg/down_slope/dwnslp_init_fixed.F 242 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dyG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 243 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 246 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = DWNSLP_slope*dxG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 247 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 252 DWNSLP_INIT_FIXED 
            dz_bottom = Ro_surf(ideep,jdeep,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 253 DWNSLP_INIT_FIXED 
     &                - Ro_surf(ishelf,jshelf,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 257 DWNSLP_INIT_FIXED 
            dz_bottom = R_low(ishelf,jshelf,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 258 DWNSLP_INIT_FIXED 
     &                - R_low(ideep,jdeep,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 262 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dxC(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 263 DWNSLP_INIT_FIXED 
     &       *dyG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 264 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 267 DWNSLP_INIT_FIXED 
            DWNSLP_Gamma(n,bi,bj) = dz_bottom*recip_dyC(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 268 DWNSLP_INIT_FIXED 
     &       *dxG(i,j,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 269 DWNSLP_INIT_FIXED 
     &       *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin )
./pkg/down_slope/dwnslp_init_fixed.F 294 DWNSLP_INIT_FIXED 
      DO bj = 1,nSy
./pkg/down_slope/dwnslp_init_fixed.F 298 DWNSLP_INIT_FIXED 
     &      'DWNSLP_INIT: DWNSLP_NbSite=',bi,bj,DWNSLP_NbSite(bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 305 DWNSLP_INIT_FIXED 
     &        bi,bj, DWNSLP_NbSite(bi,bj), xSize
./pkg/down_slope/dwnslp_init_fixed.F 308 DWNSLP_INIT_FIXED 
         DO n=1,DWNSLP_NbSite(bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 309 DWNSLP_INIT_FIXED 
          ijd = DWNSLP_ijDeep(n,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 312 DWNSLP_INIT_FIXED 
          ijr = DWNSLP_shVsD(n,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 316 DWNSLP_INIT_FIXED 
            kshelf = kSurfC(ishelf,jshelf,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 317 DWNSLP_INIT_FIXED 
            dkMx = kshelf - kSurfC(ideep,jdeep,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 319 DWNSLP_INIT_FIXED 
            kshelf = kLowC (ishelf,jshelf,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 320 DWNSLP_INIT_FIXED 
            dkMx = kLowC (ideep,jdeep,bi,bj) - kshelf
./pkg/down_slope/dwnslp_init_fixed.F 323 DWNSLP_INIT_FIXED 
     &      bi,bj,n, ' :', ijd, ideep, jdeep,
./pkg/down_slope/dwnslp_init_fixed.F 324 DWNSLP_INIT_FIXED 
     &      ' ,', ijr, kshelf, dkMx, DWNSLP_Gamma(n,bi,bj)
./pkg/down_slope/dwnslp_init_fixed.F 44 DWNSLP_INIT_FIXED 
      INTEGER bi, bj
./pkg/down_slope/dwnslp_init_fixed.F 53 DWNSLP_INIT_FIXED 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/down_slope/dwnslp_init_fixed.F 60 DWNSLP_INIT_FIXED 
        DWNSLP_NbSite(bi,bj) = 0
./pkg/down_slope/dwnslp_init_fixed.F 62 DWNSLP_INIT_FIXED 
         DWNSLP_ijDeep(n,bi,bj) = 0
./pkg/down_slope/dwnslp_init_fixed.F 63 DWNSLP_INIT_FIXED 
         DWNSLP_shVsD(n,bi,bj)  = 0
./pkg/down_slope/dwnslp_init_fixed.F 64 DWNSLP_INIT_FIXED 
         DWNSLP_deepK(n,bi,bj)  = 0
./pkg/down_slope/dwnslp_init_fixed.F 65 DWNSLP_INIT_FIXED 
         DWNSLP_Gamma(n,bi,bj)  = 0.
./pkg/down_slope/dwnslp_init_fixed.F 66 DWNSLP_INIT_FIXED 
         DWNSLP_Transp(n,bi,bj) = 0.
./pkg/down_slope/dwnslp_init_fixed.F 80 DWNSLP_INIT_FIXED 
           IF ( kSurfW(i,j,bi,bj).LE.Nr ) THEN
./pkg/down_slope/dwnslp_init_fixed.F 82 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 87 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = -1
./pkg/down_slope/dwnslp_init_fixed.F 91 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 
              DWNSLP_ijDeep(ncount,bi,bj) =
./pkg/down_slope/dwnslp_init_fixed.F 96 DWNSLP_INIT_FIXED 
              DWNSLP_shVsD(ncount,bi,bj) = 1
./pkg/down_slope/dwnslp_init_varia.F 40 DWNSLP_INIT_VARIA 
      INTEGER n, bi, bj
./pkg/down_slope/dwnslp_init_varia.F 45 DWNSLP_INIT_VARIA 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/down_slope/dwnslp_init_varia.F 50 DWNSLP_INIT_VARIA 
          DWNSLP_deepK (n,bi,bj) = 0
./pkg/down_slope/dwnslp_init_varia.F 51 DWNSLP_INIT_VARIA 
          DWNSLP_Transp(n,bi,bj) = 0. _d 0
./pkg/ebm/ebm_area_t.F 44 EBM_AREA_T 
      INTEGER i, j, k, bi, bj
./pkg/ebm/ebm_area_t.F 61 EBM_AREA_T 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ebm/ebm_area_t.F 64 EBM_AREA_T 
        TmlS_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 65 EBM_AREA_T 
        TmlN_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 66 EBM_AREA_T 
        TtS_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 67 EBM_AREA_T 
        TtN_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 68 EBM_AREA_T 
        CountmlS_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 69 EBM_AREA_T 
        CountmlN_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 70 EBM_AREA_T 
        CounttS_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 71 EBM_AREA_T 
        CounttN_tile(bi,bj) = 0.
./pkg/ebm/ebm_area_t.F 76 EBM_AREA_T 
          IF ( yC(i,j,bi,bj) .GE. -latBnd(3) .AND.
./pkg/ebm/ebm_area_t.F 77 EBM_AREA_T 
     &         yC(i,j,bi,bj) .LE. -latBnd(2) ) THEN
./pkg/ebm/ebm_area_t.F 78 EBM_AREA_T 
            TmlS_tile(bi,bj) = TmlS_tile(bi,bj)
./pkg/ebm/ebm_area_t.F 79 EBM_AREA_T 
     &                       + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 80 EBM_AREA_T 
            CountmlS_tile(bi,bj) = CountmlS_tile(bi,bj)
./pkg/ebm/ebm_area_t.F 81 EBM_AREA_T 
     &                       + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 82 EBM_AREA_T 
          ELSEIF ( yC(i,j,bi,bj) .GT. -latBnd(2) .AND.
./pkg/ebm/ebm_area_t.F 83 EBM_AREA_T 
     &             yC(i,j,bi,bj) .LT. -latBnd(1) ) THEN
./pkg/ebm/ebm_area_t.F 84 EBM_AREA_T 
            TtS_tile(bi,bj) = TtS_tile(bi,bj)
./pkg/ebm/ebm_area_t.F 85 EBM_AREA_T 
     &                       + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 86 EBM_AREA_T 
            CounttS_tile(bi,bj) = CounttS_tile(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. latBnd(1) .AND.
./pkg/ebm/ebm_area_t.F 89 EBM_AREA_T 
     &             yC(i,j,bi,bj) .LT. latBnd(2) ) THEN
./pkg/ebm/ebm_area_t.F 90 EBM_AREA_T 
            TtN_tile(bi,bj) = TtN_tile(bi,bj)
./pkg/ebm/ebm_area_t.F 91 EBM_AREA_T 
     &                       + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 92 EBM_AREA_T 
            CounttN_tile(bi,bj) = CounttN_tile(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) .GE. latBnd(2) .AND.
./pkg/ebm/ebm_area_t.F 95 EBM_AREA_T 
     &             yC(i,j,bi,bj) .LT. latBnd(3) ) THEN
./pkg/ebm/ebm_area_t.F 96 EBM_AREA_T 
            TmlN_tile(bi,bj) = TmlN_tile(bi,bj)
./pkg/ebm/ebm_area_t.F 97 EBM_AREA_T 
     &                       + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_area_t.F 98 EBM_AREA_T 
            CountmlN_tile(bi,bj) = CountmlN_tile(bi,bj)
./pkg/ebm/ebm_area_t.F 99 EBM_AREA_T 
     &                       + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_atmosphere.F 103 EBM_ATMOSPHERE 
          S(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 104 EBM_ATMOSPHERE 
          P2(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 105 EBM_ATMOSPHERE 
          P4(i,j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 107 EBM_ATMOSPHERE 
         SW(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 108 EBM_ATMOSPHERE 
         LW(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 109 EBM_ATMOSPHERE 
         Hd(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 110 EBM_ATMOSPHERE 
         Fw(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 111 EBM_ATMOSPHERE 
         T(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 112 EBM_ATMOSPHERE 
         ReCountX(j,bj) = 0.0
./pkg/ebm/ebm_atmosphere.F 121 EBM_ATMOSPHERE 
         ReCountX(j,bj) = CountX(j,bj)
./pkg/ebm/ebm_atmosphere.F 122 EBM_ATMOSPHERE 
         IF (yC(1,j,bi,bj) .LE. -62.0) THEN
./pkg/ebm/ebm_atmosphere.F 123 EBM_ATMOSPHERE 
            ReCountX(j,bj) = 90.
./pkg/ebm/ebm_atmosphere.F 124 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN
./pkg/ebm/ebm_atmosphere.F 125 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 9.0
./pkg/ebm/ebm_atmosphere.F 126 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN
./pkg/ebm/ebm_atmosphere.F 127 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 8.0
./pkg/ebm/ebm_atmosphere.F 128 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN
./pkg/ebm/ebm_atmosphere.F 129 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 5.0
./pkg/ebm/ebm_atmosphere.F 130 EBM_ATMOSPHERE 
         ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN
./pkg/ebm/ebm_atmosphere.F 131 EBM_ATMOSPHERE 
            ReCountX(j,bj) = CountX(j,bj) + 1.0
./pkg/ebm/ebm_atmosphere.F 228 EBM_ATMOSPHERE 
          S(i,j,bj) = SIN(yC(i,j,bi,bj)*deg2rad)
./pkg/ebm/ebm_atmosphere.F 230 EBM_ATMOSPHERE 
          P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.)
./pkg/ebm/ebm_atmosphere.F 231 EBM_ATMOSPHERE 
          P4(i,j,bj) = 0.12 _d 0 *
./pkg/ebm/ebm_atmosphere.F 232 EBM_ATMOSPHERE 
     &                (35.*S(i,j,bj)**4 - 30.*S(i,j,bj)**2 + 3.)
./pkg/ebm/ebm_atmosphere.F 244 EBM_ATMOSPHERE 
          IF (yC(i,j,bi,bj) .LT. 0.) THEN
./pkg/ebm/ebm_atmosphere.F 250 EBM_ATMOSPHERE 
          SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))*
./pkg/ebm/ebm_atmosphere.F 251 EBM_ATMOSPHERE 
     &         (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) )
./pkg/ebm/ebm_atmosphere.F 253 EBM_ATMOSPHERE 
          T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj)
./pkg/ebm/ebm_atmosphere.F 255 EBM_ATMOSPHERE 
          LW(j,bj) = LW0 + LW1*(T(j,bj)-t_mlt)
./pkg/ebm/ebm_atmosphere.F 258 EBM_ATMOSPHERE 
             LW(j,bj) = LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F 270 EBM_ATMOSPHERE 
         Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F 272 EBM_ATMOSPHERE 
     &        0.000728 _d 4      - 0.00678 _d 4*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F 273 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 274 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 275 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 276 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 277 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 278 EBM_ATMOSPHERE 
     &        1.2893 _d 4*S(i,j,bj)**12 )
./pkg/ebm/ebm_atmosphere.F 289 EBM_ATMOSPHERE 
          IF (ReCountX(j,bj) .GT. 0.) THEN
./pkg/ebm/ebm_atmosphere.F 290 EBM_ATMOSPHERE 
             Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))*
./pkg/ebm/ebm_atmosphere.F 291 EBM_ATMOSPHERE 
     &            ( SW(j,bj) - LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F 292 EBM_ATMOSPHERE 
     &            Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F 293 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 294 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 295 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 296 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 297 EBM_ATMOSPHERE 
     &        8.119 _d 2*S(i,j,bj)**10)
./pkg/ebm/ebm_atmosphere.F 300 EBM_ATMOSPHERE 
             Qnet(i,j,bi,bj) = 0.
./pkg/ebm/ebm_atmosphere.F 306 EBM_ATMOSPHERE 
          EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 307 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 308 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 309 EBM_ATMOSPHERE 
     &    -5.1701 _d 5*S(i,j,bj)**10
./pkg/ebm/ebm_atmosphere.F 310 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 311 EBM_ATMOSPHERE 
     &    -1.791 _d 5*S(i,j,bj)**7
./pkg/ebm/ebm_atmosphere.F 312 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 313 EBM_ATMOSPHERE 
     &    +0.3824 _d 5*S(i,j,bj)**4
./pkg/ebm/ebm_atmosphere.F 314 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 315 EBM_ATMOSPHERE 
     &    +0.00562 _d 5*S(i,j,bj)  + 0.0007743 _d 5)
./pkg/ebm/ebm_atmosphere.F 325 EBM_ATMOSPHERE 
          IF (yC(i,j,bi,bj) .LT. -40.) THEN
./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 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj)
./pkg/ebm/ebm_atmosphere.F 329 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 330 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 331 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 332 EBM_ATMOSPHERE 
     &           + 2855.0 _d 0*S(i,j,bj)**8)
./pkg/ebm/ebm_atmosphere.F 336 EBM_ATMOSPHERE 
           IF (xC(i,j,bi,bj) .GT. 284.
./pkg/ebm/ebm_atmosphere.F 337 EBM_ATMOSPHERE 
     &      .OR. xC(i,j,bi,bj) .LT. 28.) THEN
./pkg/ebm/ebm_atmosphere.F 338 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)*
./pkg/ebm/ebm_atmosphere.F 339 EBM_ATMOSPHERE 
     &             (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F 340 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 341 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 342 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 343 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 344 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 345 EBM_ATMOSPHERE 
     &             2.703 _d 4*S(i,j,bj)**12)
./pkg/ebm/ebm_atmosphere.F 349 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 350 EBM_ATMOSPHERE 
     &             *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F 351 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 352 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 353 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 354 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 355 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 356 EBM_ATMOSPHERE 
     &             9.486 _d 3*S(i,j,bj)**12)
./pkg/ebm/ebm_atmosphere.F 361 EBM_ATMOSPHERE 
          EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)
./pkg/ebm/ebm_atmosphere.F 362 EBM_ATMOSPHERE 
     &                     - Run(i,j,bi,bj)*scale_runoff
./pkg/ebm/ebm_atmosphere.F 363 EBM_ATMOSPHERE 
          EmPmR(i,j,bi,bj) = EmPmR(i,j,bi,bj)*rhoConstFresh
./pkg/ebm/ebm_atmosphere.F 55 EBM_ATMOSPHERE 
      INTEGER i, j, bi, bj
./pkg/ebm/ebm_atmosphere.F 85 EBM_ATMOSPHERE 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ebm/ebm_atmosphere.F 91 EBM_ATMOSPHERE 
          act2 = bj - myByLo(myThid)
./pkg/ebm/ebm_ini_vars.F 40 EBM_INI_VARS 
      INTEGER bi,bj,i,j
./pkg/ebm/ebm_ini_vars.F 43 EBM_INI_VARS 
      DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ebm/ebm_ini_vars.F 47 EBM_INI_VARS 
          Run    (i,j,bi,bj) = 0.
./pkg/ebm/ebm_ini_vars.F 48 EBM_INI_VARS 
          winPert(i,j,bi,bj) = 0.
./pkg/ebm/ebm_load_climatology.F 45 EBM_LOAD_CLIMATOLOGY 
      INTEGER bi,bj,i,j
./pkg/ebm/ebm_load_climatology.F 67 EBM_LOAD_CLIMATOLOGY 
       DO bj = myByLo(myThid), myByHi(myThid)
./pkg/ebm/ebm_load_climatology.F 74 EBM_LOAD_CLIMATOLOGY 
           distY = (yC(i,j,bi,bj)- 0.  )/lY
./pkg/ebm/ebm_load_climatology.F 77 EBM_LOAD_CLIMATOLOGY 
           fu(i,j,bi,bj) = tauX
./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 129 EBM_WIND_PERTURB 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ebm/ebm_wind_perturb.F 133 EBM_WIND_PERTURB 
            fu(i,j,bi,bj) = fu(i,j,bi,bj)
./pkg/ebm/ebm_wind_perturb.F 134 EBM_WIND_PERTURB 
     &                    + winPert(i,j,bi,bj)*rUnit2mass
./pkg/ebm/ebm_wind_perturb.F 135 EBM_WIND_PERTURB 
     &                     *drF(1)*hFacW(i,j,1,bi,bj)
./pkg/ebm/ebm_wind_perturb.F 36 EBM_WIND_PERTURB 
      INTEGER i, j, bi, bj
./pkg/ebm/ebm_wind_perturb.F 52 EBM_WIND_PERTURB 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ebm/ebm_zonalmean.F 103 EBM_ZONALMEAN 
            SST(i,j,bi,bj) = ZonalMeanSST(j,bj)
./pkg/ebm/ebm_zonalmean.F 45 EBM_ZONALMEAN 
      INTEGER i, j, k, bi, bj
./pkg/ebm/ebm_zonalmean.F 57 EBM_ZONALMEAN 
        DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ebm/ebm_zonalmean.F 59 EBM_ZONALMEAN 
          tileSumMask(bi,bj) = 0.
./pkg/ebm/ebm_zonalmean.F 60 EBM_ZONALMEAN 
          tileSumSST (bi,bj) = 0.
./pkg/ebm/ebm_zonalmean.F 61 EBM_ZONALMEAN 
          j = jg + 1 - myYGlobalLo - (bj-1)*sNy
./pkg/ebm/ebm_zonalmean.F 64 EBM_ZONALMEAN 
            tileSumMask(bi,bj) = tileSumMask(bi,bj)
./pkg/ebm/ebm_zonalmean.F 65 EBM_ZONALMEAN 
     &                         + maskC(i,j,k,bi,bj)
./pkg/ebm/ebm_zonalmean.F 66 EBM_ZONALMEAN 
            tileSumSST (bi,bj) = tileSumSST (bi,bj)
./pkg/ebm/ebm_zonalmean.F 67 EBM_ZONALMEAN 
     &                         + maskC(i,j,k,bi,bj)*theta(i,j,k,bi,bj)
./pkg/ebm/ebm_zonalmean.F 80 EBM_ZONALMEAN 
      DO bj=1,nSy
./pkg/ebm/ebm_zonalmean.F 82 EBM_ZONALMEAN 
        jg = myYGlobalLo + j-1 + (bj-1)*sNy
./pkg/ebm/ebm_zonalmean.F 87 EBM_ZONALMEAN 
        CountX(j,bj) = locSumMask(jg)
./pkg/ebm/ebm_zonalmean.F 88 EBM_ZONALMEAN 
        ZonalMeanSST(j,bj) = locSumSST(jg)
./pkg/ebm/ebm_zonalmean.F 89 EBM_ZONALMEAN 
        IF ( CountX(j,bj).GT.0. _d 0 ) THEN
./pkg/ebm/ebm_zonalmean.F 90 EBM_ZONALMEAN 
          ZonalMeanSST(j,bj) = ZonalMeanSST(j,bj)/CountX(j,bj)
./pkg/ebm/ebm_zonalmean.F 99 EBM_ZONALMEAN 
       DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/cost_argo_salt.F 148 COST_ARGO_SALT 
        do bj = jtlo,jthi
./pkg/ecco/cost_argo_salt.F 165 COST_ARGO_SALT 
                if ( (argosobs(i,j,k,bi,bj) .ge. spval) .and.
./pkg/ecco/cost_argo_salt.F 166 COST_ARGO_SALT 
     $              (argosobs(i,j,k,bi,bj) .lt. spmax) .and.
./pkg/ecco/cost_argo_salt.F 168 COST_ARGO_SALT 
     $              (_hFacC(i,j,k,bi,bj) .ne. 0.) ) then
./pkg/ecco/cost_argo_salt.F 170 COST_ARGO_SALT 
     &             wsalt2(i,j,k,bi,bj)*cosphi(i,j,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 
     &             (sbar(i,j,k,bi,bj)-argosobs(i,j,k,bi,bj))
./pkg/ecco/cost_argo_salt.F 173 COST_ARGO_SALT 
                 if ( wsalt2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_argo_salt.F 174 COST_ARGO_SALT 
     &             num_argos(bi,bj) = num_argos(bi,bj) + 1. _d 0
./pkg/ecco/cost_argo_salt.F 182 COST_ARGO_SALT 
            objf_argos(bi,bj) = objf_argos(bi,bj) + fctile_argos
./pkg/ecco/cost_argo_salt.F 189 COST_ARGO_SALT 
     &        ' COST_ARGO_SALT: irec,bi,bj   =  ',irec,bi,bj
./pkg/ecco/cost_argo_salt.F 50 COST_ARGO_SALT 
      integer bi,bj
./pkg/ecco/cost_argo_theta.F 151 COST_ARGO_THETA 
        do bj = jtlo,jthi
./pkg/ecco/cost_argo_theta.F 168 COST_ARGO_THETA 
                if( (argotobs(i,j,k,bi,bj) .ne. 0.).and.
./pkg/ecco/cost_argo_theta.F 169 COST_ARGO_THETA 
     &             (argotobs(i,j,k,bi,bj) .gt. spval).and.
./pkg/ecco/cost_argo_theta.F 170 COST_ARGO_THETA 
     &             (argotobs(i,j,k,bi,bj) .lt. spmax).and.
./pkg/ecco/cost_argo_theta.F 172 COST_ARGO_THETA 
     &             (_hFacC(i,j,k,bi,bj) .ne. 0.) )then
./pkg/ecco/cost_argo_theta.F 174 COST_ARGO_THETA 
     $             argotobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_argo_theta.F 176 COST_ARGO_THETA 
     &             wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj)*
./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 
     &             (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_argo_theta.F 179 COST_ARGO_THETA 
                 if ( wtheta2(i,j,k,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_argo_theta.F 180 COST_ARGO_THETA 
     &             num_argot(bi,bj) = num_argot(bi,bj) + 1. _d 0
./pkg/ecco/cost_argo_theta.F 188 COST_ARGO_THETA 
            objf_argot(bi,bj) = objf_argot(bi,bj) + fctile_argot
./pkg/ecco/cost_argo_theta.F 195 COST_ARGO_THETA 
     &        ' COST_ARGO_THETA: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_argo_theta.F 50 COST_ARGO_THETA 
      integer bi,bj
./pkg/ecco/cost_atlantic.F 146 COST_ATLANTIC 
        do bj = jtlo,jthi
./pkg/ecco/cost_atlantic.F 152 COST_ATLANTIC 
                   del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_atlantic.F 153 COST_ATLANTIC 
                   if(yc(i,j,bi,bj) .ge.ylat .and.
./pkg/ecco/cost_atlantic.F 154 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat+del_y.and.
./pkg/ecco/cost_atlantic.F 155 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon.and.
./pkg/ecco/cost_atlantic.F 156 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon.or.
./pkg/ecco/cost_atlantic.F 157 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat2 .and.
./pkg/ecco/cost_atlantic.F 158 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat2+del_y.and.
./pkg/ecco/cost_atlantic.F 159 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon2.and.
./pkg/ecco/cost_atlantic.F 160 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon2).or.
./pkg/ecco/cost_atlantic.F 161 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat3 .and.
./pkg/ecco/cost_atlantic.F 162 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat3+del_y.and.
./pkg/ecco/cost_atlantic.F 163 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon3.and.
./pkg/ecco/cost_atlantic.F 164 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon3)) then
./pkg/ecco/cost_atlantic.F 165 COST_ATLANTIC 
                       tv = tv+p5*(theta(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 166 COST_ATLANTIC 
     $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 167 COST_ATLANTIC 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_atlantic.F 168 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 175 COST_ATLANTIC 
            objf_atl(bi,bj) = tv
./pkg/ecco/cost_atlantic.F 183 COST_ATLANTIC 
        do bj = jtlo,jthi
./pkg/ecco/cost_atlantic.F 186 COST_ATLANTIC 
                    objf_atl(bi,bj) = (objf_atl(bi,bj)
./pkg/ecco/cost_atlantic.F 193 COST_ATLANTIC 
        do bj = jtlo,jthi
./pkg/ecco/cost_atlantic.F 199 COST_ATLANTIC 
                   del_y=yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_atlantic.F 200 COST_ATLANTIC 
                   if(yc(i,j,bi,bj) .ge.ylat .and.
./pkg/ecco/cost_atlantic.F 201 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat+del_y.and.
./pkg/ecco/cost_atlantic.F 202 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon.and.
./pkg/ecco/cost_atlantic.F 203 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon.or.
./pkg/ecco/cost_atlantic.F 204 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat2 .and.
./pkg/ecco/cost_atlantic.F 205 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat2+del_y.and.
./pkg/ecco/cost_atlantic.F 206 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon2.and.
./pkg/ecco/cost_atlantic.F 207 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon2).or.
./pkg/ecco/cost_atlantic.F 208 COST_ATLANTIC 
     $                  (yc(i,j,bi,bj) .ge.ylat3 .and.
./pkg/ecco/cost_atlantic.F 209 COST_ATLANTIC 
     $                  yc(i,j,bi,bj).lt.ylat3+del_y.and.
./pkg/ecco/cost_atlantic.F 210 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).ge.beglon3.and.
./pkg/ecco/cost_atlantic.F 211 COST_ATLANTIC 
     $                  xc(i,j,bi,bj).le.endlon3)) then
./pkg/ecco/cost_atlantic.F 213 COST_ATLANTIC 
     $                     +p5*(theta(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 214 COST_ATLANTIC 
     $                     + theta(i,j-1,k,bi,bj))*vVel(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 215 COST_ATLANTIC 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_atlantic.F 216 COST_ATLANTIC 
     &                     *  drF(k)*maskS(i,j,k,bi,bj)
./pkg/ecco/cost_atlantic.F 223 COST_ATLANTIC 
            objf_atl(bi,bj)  =  objf_atl(bi,bj) +tv
./pkg/ecco/cost_atlantic.F 60 COST_ATLANTIC 
      integer bi,bj
./pkg/ecco/cost_averagesfields.F 197 COST_AVERAGESFIELDS 
      do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 207 COST_AVERAGESFIELDS 
     &          genprecipGloH=xx_gentim2d(i,j,bi,bj,iarr)
./pkg/ecco/cost_averagesfields.F 212 COST_AVERAGESFIELDS 
                etanLeads(i,j,bi,bj)=etan(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 214 COST_AVERAGESFIELDS 
     &                +sIceLoad(i,j,bi,bj)*recip_rhoConst
./pkg/ecco/cost_averagesfields.F 328 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 333 COST_AVERAGESFIELDS 
                  ubar(i,j,k,bi,bj) = uVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 334 COST_AVERAGESFIELDS 
                  vbar(i,j,k,bi,bj) = vVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 341 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 346 COST_AVERAGESFIELDS 
                  ubar(i,j,k,bi,bj)  = (ubar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 347 COST_AVERAGESFIELDS 
     &                                  uVel(i,j,k,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 349 COST_AVERAGESFIELDS 
                  vbar(i,j,k,bi,bj)  = (vbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 350 COST_AVERAGESFIELDS 
     &                                  vVel(i,j,k,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 379 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 384 COST_AVERAGESFIELDS 
                  ubar(i,j,k,bi,bj) = ubar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 385 COST_AVERAGESFIELDS 
     &                                uVel (i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 386 COST_AVERAGESFIELDS 
                  vbar(i,j,k,bi,bj) = vbar (i,j,k,bi,bj) +
./pkg/ecco/cost_averagesfields.F 387 COST_AVERAGESFIELDS 
     &                                vVel (i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 403 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 407 COST_AVERAGESFIELDS 
                  tauxbar(i,j,bi,bj) = ustress(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 408 COST_AVERAGESFIELDS 
                  tauybar(i,j,bi,bj) = vstress(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 414 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 418 COST_AVERAGESFIELDS 
                  tauxbar(i,j,bi,bj)  = (tauxbar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 419 COST_AVERAGESFIELDS 
     &                                  ustress(i,j,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 421 COST_AVERAGESFIELDS 
                  tauybar(i,j,bi,bj)  = (tauybar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 422 COST_AVERAGESFIELDS 
     &                                  vstress(i,j,bi,bj)   )/
./pkg/ecco/cost_averagesfields.F 449 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 453 COST_AVERAGESFIELDS 
                  tauxbar(i,j,bi,bj) = tauxbar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 454 COST_AVERAGESFIELDS 
     &                                ustress (i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 455 COST_AVERAGESFIELDS 
                  tauybar(i,j,bi,bj) = tauybar (i,j,bi,bj) +
./pkg/ecco/cost_averagesfields.F 456 COST_AVERAGESFIELDS 
     &                                vstress (i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 584 COST_AVERAGESFIELDS 
       do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 588 COST_AVERAGESFIELDS 
                iestau(i,j,bi,bj) = 0.0
./pkg/ecco/cost_averagesfields.F 593 COST_AVERAGESFIELDS 
       do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 598 COST_AVERAGESFIELDS 
                 csmm(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_averagesfields.F 604 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 609 COST_AVERAGESFIELDS 
                 if (hFacC(i,j,k,bi,bj).gt.0.0) then
./pkg/ecco/cost_averagesfields.F 610 COST_AVERAGESFIELDS 
                  prmm = totPhiHyd(i,j,k,bi,bj)/gravity
./pkg/ecco/cost_averagesfields.F 612 COST_AVERAGESFIELDS 
                  tmpmm = SW_TEMP(SALT(i,j,k,bi,bj),
./pkg/ecco/cost_averagesfields.F 613 COST_AVERAGESFIELDS 
     &            THETA(i,j,k,bi,bj),prmm,0. _d 0)
./pkg/ecco/cost_averagesfields.F 615 COST_AVERAGESFIELDS 
     &                   totPhiHyd(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 619 COST_AVERAGESFIELDS 
                  salmm = SALT(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 635 COST_AVERAGESFIELDS 
                  csmm(i,j,k,bi,bj) = c0mm+vtmm+vsmm+vpmm+vstpmm
./pkg/ecco/cost_averagesfields.F 643 COST_AVERAGESFIELDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 648 COST_AVERAGESFIELDS 
                  if (csmm(i,j,k,bi,bj).ne.0.0) then
./pkg/ecco/cost_averagesfields.F 649 COST_AVERAGESFIELDS 
                    iestau(i,j,bi,bj) = iestau(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 650 COST_AVERAGESFIELDS 
     &                   + 2*drF(k)*hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 651 COST_AVERAGESFIELDS 
     &                              /csmm(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 653 COST_AVERAGESFIELDS 
                      iestau(i,j,bi,bj) = iestau(i,j,bi,bj)
./pkg/ecco/cost_averagesfields.F 655 COST_AVERAGESFIELDS 
     &                              /csmm(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 702 COST_AVERAGESFIELDS 
       do bj = jtlo,jthi
./pkg/ecco/cost_averagesfields.F 705 COST_AVERAGESFIELDS 
     &          transpbar(locdayrec,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesfields.F 708 COST_AVERAGESFIELDS 
           jg = myYGlobalLo-1+(bj-1)*sNy+j
./pkg/ecco/cost_averagesfields.F 712 COST_AVERAGESFIELDS 
               transpbar(locdayrec,bi,bj) = transpbar(locdayrec,bi,bj)
./pkg/ecco/cost_averagesfields.F 713 COST_AVERAGESFIELDS 
     &              +vVel(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 714 COST_AVERAGESFIELDS 
     &              *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_averagesfields.F 720 COST_AVERAGESFIELDS 
            transpbar(locdayrec,bi,bj) =
./pkg/ecco/cost_averagesfields.F 721 COST_AVERAGESFIELDS 
     &        transpbar(locdayrec,bi,bj)/float(sum1day)
./pkg/ecco/cost_averagesfields.F 72 COST_AVERAGESFIELDS 
      integer bi,bj
./pkg/ecco/cost_averagesgeneric.F 102 COST_AVERAGESGENERIC 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesgeneric.F 107 COST_AVERAGESGENERIC 
                  localbar(i,j,k,bi,bj) =
./pkg/ecco/cost_averagesgeneric.F 108 COST_AVERAGESGENERIC 
     &                  (localbar(i,j,k,bi,bj)
./pkg/ecco/cost_averagesgeneric.F 109 COST_AVERAGESGENERIC 
     &                  +localfld(i,j,k,bi,bj))/
./pkg/ecco/cost_averagesgeneric.F 132 COST_AVERAGESGENERIC 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesgeneric.F 137 COST_AVERAGESGENERIC 
                  localbar(i,j,k,bi,bj) =
./pkg/ecco/cost_averagesgeneric.F 138 COST_AVERAGESGENERIC 
     &                  localbar(i,j,k,bi,bj) + localfld(i,j,k,bi,bj)
./pkg/ecco/cost_averagesgeneric.F 59 COST_AVERAGESGENERIC 
      integer bi,bj
./pkg/ecco/cost_averagesgeneric.F 89 COST_AVERAGESGENERIC 
        do bj = jtlo,jthi
./pkg/ecco/cost_averagesgeneric.F 94 COST_AVERAGESGENERIC 
                  localbar(i,j,k,bi,bj) = localfld(i,j,k,bi,bj)
./pkg/ecco/cost_averagesinit.F 109 COST_AVERAGESINIT 
              iestaubar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 120 COST_AVERAGESINIT 
                sigmaRbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 137 COST_AVERAGESINIT 
                tbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 149 COST_AVERAGESINIT 
              tbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 162 COST_AVERAGESINIT 
              sstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 176 COST_AVERAGESINIT 
                sbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 188 COST_AVERAGESINIT 
              sbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 202 COST_AVERAGESINIT 
                ubar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 203 COST_AVERAGESINIT 
                vbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 216 COST_AVERAGESINIT 
                wbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 228 COST_AVERAGESINIT 
              tauxbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 229 COST_AVERAGESINIT 
              tauybar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 240 COST_AVERAGESINIT 
              hfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 250 COST_AVERAGESINIT 
              sfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 262 COST_AVERAGESINIT 
              smrareabar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 263 COST_AVERAGESINIT 
              smrsstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 264 COST_AVERAGESINIT 
              smrsssbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 276 COST_AVERAGESINIT 
             transpbar(irec,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 48 COST_AVERAGESINIT 
      integer bi,bj
./pkg/ecco/cost_averagesinit.F 68 COST_AVERAGESINIT 
      do bj = jtlo,jthi
./pkg/ecco/cost_averagesinit.F 75 COST_AVERAGESINIT 
                gencost_barfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 76 COST_AVERAGESINIT 
                gencost_modfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 87 COST_AVERAGESINIT 
              psbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 98 COST_AVERAGESINIT 
              bpbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 106 COST_BOTTOMDRAG 
                if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_bottomdrag.F 107 COST_BOTTOMDRAG 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F 110 COST_BOTTOMDRAG 
     &                 + wbottomdrag(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_bottomdrag.F 119 COST_BOTTOMDRAG 
            objf_bottomdrag(bi,bj) = objf_bottomdrag(bi,bj) + fctile
./pkg/ecco/cost_bottomdrag.F 128 COST_BOTTOMDRAG 
     &        ' cost_bottomdrag: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_bottomdrag.F 40 COST_BOTTOMDRAG 
      integer bi,bj
./pkg/ecco/cost_bottomdrag.F 98 COST_BOTTOMDRAG 
        do bj = jtlo,jthi
./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 131 COST_BP 
        do bj = jtlo,jthi
./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 150 COST_BP 
        do bj = jtlo,jthi
./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 179 COST_BP 
        do bj = jtlo,jthi
./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 203 COST_BP 
      do bj = jtlo,jthi
./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 220 COST_BP 
        do bj = jtlo,jthi
./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 265 COST_BP 
        do bj = jtlo,jthi
./pkg/ecco/cost_bp.F 269 COST_BP 
                if ( (wbp(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 270 COST_BP 
     &               (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 271 COST_BP 
     &               (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 272 COST_BP 
                  junk = bpdifanom(i,j,bi,bj)
./pkg/ecco/cost_bp.F 273 COST_BP 
                  objf_bp(bi,bj) = objf_bp(bi,bj)
./pkg/ecco/cost_bp.F 274 COST_BP 
     &              + junk*junk*wbp(i,j,bi,bj)
./pkg/ecco/cost_bp.F 275 COST_BP 
                  num_bp(bi,bj) = num_bp(bi,bj) + 1. _d 0
./pkg/ecco/cost_bp.F 55 COST_BP 
      integer bi,bj
./pkg/ecco/cost_bp.F 96 COST_BP 
      do bj = jtlo,jthi
./pkg/ecco/cost_bp_read.F 114 COST_BP_READ 
        do bj = jtlo,jthi
./pkg/ecco/cost_bp_read.F 118 COST_BP_READ 
            bpdat(i,j,bi,bj) = spval
./pkg/ecco/cost_bp_read.F 127 COST_BP_READ 
      do bj = jtlo,jthi
./pkg/ecco/cost_bp_read.F 137 COST_BP_READ 
              if (bpdat(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_bp_read.F 138 COST_BP_READ 
                bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp_read.F 140 COST_BP_READ 
                bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_bp_read.F 142 COST_BP_READ 
              bpdat(i,j,bi,bj) = bpdat(i,j,bi,bj)*
./pkg/ecco/cost_bp_read.F 143 COST_BP_READ 
     &                              bpmask(i,j,bi,bj)
./pkg/ecco/cost_bp_read.F 144 COST_BP_READ 
              nobs = nobs + int(bpmask(i,j,bi,bj))
./pkg/ecco/cost_bp_read.F 45 COST_BP_READ 
      integer bi,bj
./pkg/ecco/cost_ctds.F 147 COST_CTDS 
        do bj = jtlo,jthi
./pkg/ecco/cost_ctds.F 159 COST_CTDS 
                  if (ctdsobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_ctds.F 160 COST_CTDS 
     &                ctdsobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_ctds.F 161 COST_CTDS 
     &                ctdsobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_ctds.F 165 COST_CTDS 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctds.F 167 COST_CTDS 
                     www(i,j)    = cosphi(i,j,bi,bj)*cmask(i,j)
./pkg/ecco/cost_ctds.F 168 COST_CTDS 
                     tmpobs(i,j) = ctdsobs(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F 169 COST_CTDS 
                     tmpbar(i,j) = sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F 170 COST_CTDS 
                     wtmp(i,j) = wsalt2(i,j,k,bi,bj)
./pkg/ecco/cost_ctds.F 177 COST_CTDS 
     &                    num_ctds(bi,bj) = num_ctds(bi,bj) + 1. _d 0
./pkg/ecco/cost_ctds.F 185 COST_CTDS 
            objf_ctds(bi,bj) = objf_ctds(bi,bj) + fctile_ctds
./pkg/ecco/cost_ctds.F 192 COST_CTDS 
     &        ' COST_CTDS: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_ctds.F 49 COST_CTDS 
      integer bi,bj
./pkg/ecco/cost_ctdsclim.F 132 COST_CTDSCLIM 
            do bj = jtlo,jthi
./pkg/ecco/cost_ctdsclim.F 138 COST_CTDSCLIM 
                              sbar_gen(i,j,k,bi,bj) =sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 140 COST_CTDSCLIM 
                              sbar(i,j,k,bi,bj) =(sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 141 COST_CTDSCLIM 
     $                             +sbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdsclim.F 143 COST_CTDSCLIM 
                          sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 144 COST_CTDSCLIM 
     $                             +sbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdsclim.F 170 COST_CTDSCLIM 
        do bj = jtlo,jthi
./pkg/ecco/cost_ctdsclim.F 181 COST_CTDSCLIM 
                  if (sdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdsclim.F 184 COST_CTDSCLIM 
                  if (sdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_ctdsclim.F 194 COST_CTDSCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdsclim.F 196 COST_CTDSCLIM 
     &                    (wsalt2(i,j,k,bi,bj)*cosphi(i,j,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 199 COST_CTDSCLIM 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))   )
./pkg/ecco/cost_ctdsclim.F 208 COST_CTDSCLIM 
            objf_ctdsclim(bi,bj) = objf_ctdsclim(bi,bj) + fctile
./pkg/ecco/cost_ctdsclim.F 216 COST_CTDSCLIM 
     &        ' cost_Ctdsclim: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_ctdsclim.F 61 COST_CTDSCLIM 
      integer bi,bj
./pkg/ecco/cost_ctdt.F 148 COST_CTDT 
        do bj = jtlo,jthi
./pkg/ecco/cost_ctdt.F 160 COST_CTDT 
                  if (ctdtobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_ctdt.F 161 COST_CTDT 
     &                ctdtobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_ctdt.F 162 COST_CTDT 
     &                ctdtobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_ctdt.F 168 COST_CTDT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_ctdt.F 170 COST_CTDT 
                     www(i,j)    = cosphi(i,j,bi,bj)*cmask(i,j)
./pkg/ecco/cost_ctdt.F 171 COST_CTDT 
                     tmpobs(i,j) = ctdtobs(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F 172 COST_CTDT 
                     tmpbar(i,j) = tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F 173 COST_CTDT 
                     wtmp(i,j) = wtheta2(i,j,k,bi,bj)
./pkg/ecco/cost_ctdt.F 181 COST_CTDT 
     &                    num_ctdt(bi,bj) = num_ctdt(bi,bj) + 1. _d 0
./pkg/ecco/cost_ctdt.F 189 COST_CTDT 
            objf_ctdt(bi,bj) = objf_ctdt(bi,bj) + fctile_ctdt
./pkg/ecco/cost_ctdt.F 196 COST_CTDT 
     &        ' COST_CTDT: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_ctdt.F 50 COST_CTDT 
      integer bi,bj
./pkg/ecco/cost_ctdtclim.F 131 COST_CTDTCLIM 
            do bj = jtlo,jthi
./pkg/ecco/cost_ctdtclim.F 137 COST_CTDTCLIM 
                              tbar_gen(i,j,k,bi,bj) =tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 139 COST_CTDTCLIM 
                              tbar(i,j,k,bi,bj) =(tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 140 COST_CTDTCLIM 
     $                             +tbar(i,j,k,bi,bj))/float(nyears)
./pkg/ecco/cost_ctdtclim.F 142 COST_CTDTCLIM 
                          tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 143 COST_CTDTCLIM 
     $                             +tbar(i,j,k,bi,bj)
./pkg/ecco/cost_ctdtclim.F 169 COST_CTDTCLIM 
        do bj = jtlo,jthi
./pkg/ecco/cost_ctdtclim.F 180 COST_CTDTCLIM 
                  if (tdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ctdtclim.F 184 COST_CTDTCLIM 
                  if (tdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_ctdtclim.F 194 COST_CTDTCLIM 
                  if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_ctdtclim.F 196 COST_CTDTCLIM 
     &                  (wtheta2(i,j,k,bi,bj)*cosphi(i,j,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 199 COST_CTDTCLIM 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))      )
./pkg/ecco/cost_ctdtclim.F 208 COST_CTDTCLIM 
            objf_ctdtclim(bi,bj) = objf_ctdtclim(bi,bj) + fctile
./pkg/ecco/cost_ctdtclim.F 216 COST_CTDTCLIM 
     &        ' cost_Ctdtclim: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_ctdtclim.F 61 COST_CTDTCLIM 
      integer bi,bj
./pkg/ecco/cost_curmtr.F 157 COST_CURMTR 
        do bj = jtlo,jthi
./pkg/ecco/cost_curmtr.F 170 COST_CURMTR 
                  if (curmtruobs(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 174 COST_CURMTR 
                  if (curmtrvobs(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 178 COST_CURMTR 
                  if (curmtruobs(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_curmtr.F 182 COST_CURMTR 
                  if (curmtrvobs(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_curmtr.F 198 COST_CURMTR 
                  if (_hFacW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 202 COST_CURMTR 
                  if (_hFacS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_curmtr.F 211 COST_CURMTR 
                  wwwu(i,j)    = cosphi(i,j,bi,bj)*umask(i,j)
./pkg/ecco/cost_curmtr.F 212 COST_CURMTR 
                  wwwv(i,j)    = cosphi(i,j,bi,bj)*vmask(i,j)
./pkg/ecco/cost_curmtr.F 214 COST_CURMTR 
                  tmpuobs(i,j) = curmtruobs(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 215 COST_CURMTR 
                  tmpubar(i,j) = ubar(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 217 COST_CURMTR 
                  tmpvobs(i,j) = curmtrvobs(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 218 COST_CURMTR 
                  tmpvbar(i,j) = vbar(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 223 COST_CURMTR 
         tmpubar(i,j) = ubar(5,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 224 COST_CURMTR 
         tmpvbar(i,j) = (vbar(4,12,k,bi,bj) + vbar(5,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 225 COST_CURMTR 
     &                 +vbar(4,13,k,bi,bj) + vbar(5,13,k,bi,bj))/4.
./pkg/ecco/cost_curmtr.F 228 COST_CURMTR 
         tmpubar(i,j) = ubar(11,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 229 COST_CURMTR 
         tmpvbar(i,j) = (vbar(10,12,k,bi,bj) + vbar(11,12,k,bi,bj)
./pkg/ecco/cost_curmtr.F 230 COST_CURMTR 
     &                 +vbar(10,13,k,bi,bj) + vbar(11,13,k,bi,bj))/4.
./pkg/ecco/cost_curmtr.F 233 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 
     &                 +ubar(7,9,k,bi,bj) + ubar(8,9,k,bi,bj))/4.
./pkg/ecco/cost_curmtr.F 235 COST_CURMTR 
         tmpvbar(i,j) = vbar(7,9,k,bi,bj)
./pkg/ecco/cost_curmtr.F 238 COST_CURMTR 
         tmpubar(i,j) = (ubar(5,4,k,bi,bj) + ubar(5,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 239 COST_CURMTR 
         tmpvbar(i,j) = (vbar(4,5,k,bi,bj) + vbar(5,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 242 COST_CURMTR 
         tmpubar(i,j) = (ubar(11,4,k,bi,bj)+ubar(11,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 243 COST_CURMTR 
         tmpvbar(i,j) = (vbar(10,5,k,bi,bj)+vbar(11,5,k,bi,bj))/2.
./pkg/ecco/cost_curmtr.F 248 COST_CURMTR 
                  wu(i,j) = wcurrent2(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 249 COST_CURMTR 
                  wv(i,j) = wcurrent2(i,j,k,bi,bj)
./pkg/ecco/cost_curmtr.F 272 COST_CURMTR 
     &                  num_curmtr(bi,bj) = num_curmtr(bi,bj) + 1. _d 0
./pkg/ecco/cost_curmtr.F 282 COST_CURMTR 
     &                  num_curmtr(bi,bj) = num_curmtr(bi,bj) + 1. _d 0
./pkg/ecco/cost_curmtr.F 290 COST_CURMTR 
            objf_curmtr(bi,bj) = objf_curmtr(bi,bj) + fctile_curmtr
./pkg/ecco/cost_curmtr.F 297 COST_CURMTR 
     &        ' COST_curmtr: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_curmtr.F 50 COST_CURMTR 
      integer bi,bj
./pkg/ecco/cost_diffkr.F 107 COST_DIFFKR 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_diffkr.F 109 COST_DIFFKR 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_diffkr.F 112 COST_DIFFKR 
     &                 + wdiffkrFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_diffkr.F 117 COST_DIFFKR 
                  if (wdiffkrFld(i,j,k,bi,bj).ne.0.)
./pkg/ecco/cost_diffkr.F 118 COST_DIFFKR 
     &                 num_diffkr(bi,bj) = num_diffkr(bi,bj) + 1. _d 0
./pkg/ecco/cost_diffkr.F 124 COST_DIFFKR 
            objf_diffkr(bi,bj) = objf_diffkr(bi,bj) + fctile
./pkg/ecco/cost_diffkr.F 133 COST_DIFFKR 
     &        ' cost_diffkr: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_diffkr.F 40 COST_DIFFKR 
      integer bi,bj
./pkg/ecco/cost_diffkr.F 98 COST_DIFFKR 
        do bj = jtlo,jthi
./pkg/ecco/cost_drift.F 116 COST_DRIFT 
      do bj = jtlo,jthi
./pkg/ecco/cost_drift.F 121 COST_DRIFT 
                Tfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 122 COST_DRIFT 
                Sfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 123 COST_DRIFT 
                Tlmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 124 COST_DRIFT 
                Slmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_drift.F 153 COST_DRIFT 
        do bj = jtlo,jthi
./pkg/ecco/cost_drift.F 158 COST_DRIFT 
                  Tfmean(i,j,k,bi,bj) = Tfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 159 COST_DRIFT 
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 160 COST_DRIFT 
                  Sfmean(i,j,k,bi,bj) = Sfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 161 COST_DRIFT 
     &                  sbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 185 COST_DRIFT 
        do bj = jtlo,jthi
./pkg/ecco/cost_drift.F 190 COST_DRIFT 
                  Tlmean(i,j,k,bi,bj) = Tlmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 191 COST_DRIFT 
     &                  tbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 192 COST_DRIFT 
                  Slmean(i,j,k,bi,bj) = Slmean(i,j,k,bi,bj) +
./pkg/ecco/cost_drift.F 193 COST_DRIFT 
     &                  sbar(i,j,k,bi,bj)
./pkg/ecco/cost_drift.F 202 COST_DRIFT 
      do bj = jtlo,jthi
./pkg/ecco/cost_drift.F 210 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 212 COST_DRIFT 
     &                  (wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./pkg/ecco/cost_drift.F 214 COST_DRIFT 
     &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*
./pkg/ecco/cost_drift.F 215 COST_DRIFT 
     &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F 217 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) =
./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 
                     if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_drift.F 225 COST_DRIFT 
     &                 num_sdrift(bi,bj) = num_sdrift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drift.F 227 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_drift.F 233 COST_DRIFT 
          objf_sdrift(bi,bj) = objf_sdrift(bi,bj) + fctiles
./pkg/ecco/cost_drift.F 240 COST_DRIFT 
      do bj = jtlo,jthi
./pkg/ecco/cost_drift.F 247 COST_DRIFT 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_drift.F 249 COST_DRIFT 
     &                  (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./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 252 COST_DRIFT 
     &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F 254 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_drift.F 255 COST_DRIFT 
     &                  (wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)/
./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 258 COST_DRIFT 
     &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_drift.F 260 COST_DRIFT 
                     if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_drift.F 262 COST_DRIFT 
     &                 num_tdrift(bi,bj) = num_tdrift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drift.F 264 COST_DRIFT 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_drift.F 270 COST_DRIFT 
          objf_tdrift(bi,bj) = objf_tdrift(bi,bj) + fctilet
./pkg/ecco/cost_drift.F 55 COST_DRIFT 
      integer bi,bj
./pkg/ecco/cost_drifter.F 131 COST_DRIFTER 
      do bj = jtlo,jthi
./pkg/ecco/cost_drifter.F 137 COST_DRIFTER 
          act2 = bj - myByLo(myThid)
./pkg/ecco/cost_drifter.F 164 COST_DRIFTER 
               udmod(i,j,bi,bj)=ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 165 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 167 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 168 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)/float(nmonsrec)
./pkg/ecco/cost_drifter.F 170 COST_DRIFTER 
               udmod(i,j,bi,bj)=udmod(i,j,bi,bj)+ubar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 171 COST_DRIFTER 
               vdmod(i,j,bi,bj)=vdmod(i,j,bi,bj)+vbar(i,j,k,bi,bj)
./pkg/ecco/cost_drifter.F 193 COST_DRIFTER 
               mask13c(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_drifter.F 194 COST_DRIFTER 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.)
./pkg/ecco/cost_drifter.F 195 COST_DRIFTER 
     &              mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 205 COST_DRIFTER 
               if (_hFacC(i,j,13,bi,bj) .eq. 0.) then
./pkg/ecco/cost_drifter.F 206 COST_DRIFTER 
                  mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 216 COST_DRIFTER 
             masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F 217 COST_DRIFTER 
     &           (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 218 COST_DRIFTER 
     &           +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 219 COST_DRIFTER 
     &           +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 220 COST_DRIFTER 
     &           +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 221 COST_DRIFTER 
     &           +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 222 COST_DRIFTER 
     &           +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F 223 COST_DRIFTER 
             if ( masktmp(i,j,bi,bj) .eq. 0.0 ) then
./pkg/ecco/cost_drifter.F 224 COST_DRIFTER 
                u6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F 226 COST_DRIFTER 
                u6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F 227 COST_DRIFTER 
     &                  udmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 228 COST_DRIFTER 
     &                + udmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 229 COST_DRIFTER 
     &                + udmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F 230 COST_DRIFTER 
     &                + udmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 231 COST_DRIFTER 
     &                + udmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F 232 COST_DRIFTER 
     &                + udmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 233 COST_DRIFTER 
     &                + udmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 234 COST_DRIFTER 
     &                + udmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 235 COST_DRIFTER 
     &                + udmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 236 COST_DRIFTER 
     &                + udmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 237 COST_DRIFTER 
     &                + udmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 238 COST_DRIFTER 
     &                + udmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F 239 COST_DRIFTER 
     &             / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F 246 COST_DRIFTER 
             masktmp(i,j,bi,bj) =
./pkg/ecco/cost_drifter.F 247 COST_DRIFTER 
     &             (mask13c(i,j,bi,bj)+mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 248 COST_DRIFTER 
     &             +mask13c(i+2,j,bi,bj)+mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 249 COST_DRIFTER 
     &             +mask13c(i+4,j,bi,bj)+mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 250 COST_DRIFTER 
     &             +mask13c(i,j+1,bi,bj)+mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 251 COST_DRIFTER 
     &             +mask13c(i+2,j+1,bi,bj)+mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 252 COST_DRIFTER 
     &             +mask13c(i+4,j+1,bi,bj)+mask13c(i+5,j+1,bi,bj))
./pkg/ecco/cost_drifter.F 253 COST_DRIFTER 
             if ( masktmp(i,j,bi,bj) .eq.0.0 ) then
./pkg/ecco/cost_drifter.F 254 COST_DRIFTER 
                v6bar(i,j,bi,bj) = 0.0
./pkg/ecco/cost_drifter.F 256 COST_DRIFTER 
                v6bar(i,j,bi,bj) = (
./pkg/ecco/cost_drifter.F 257 COST_DRIFTER 
     &                  vdmod(i,j,bi,bj)*mask13c(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 258 COST_DRIFTER 
     &                + vdmod(i+1,j,bi,bj)*mask13c(i+1,j,bi,bj)
./pkg/ecco/cost_drifter.F 259 COST_DRIFTER 
     &                + vdmod(i+2,j,bi,bj)*mask13c(i+2,j,bi,bj)
./pkg/ecco/cost_drifter.F 260 COST_DRIFTER 
     &                + vdmod(i+3,j,bi,bj)*mask13c(i+3,j,bi,bj)
./pkg/ecco/cost_drifter.F 261 COST_DRIFTER 
     &                + vdmod(i+4,j,bi,bj)*mask13c(i+4,j,bi,bj)
./pkg/ecco/cost_drifter.F 262 COST_DRIFTER 
     &                + vdmod(i+5,j,bi,bj)*mask13c(i+5,j,bi,bj)
./pkg/ecco/cost_drifter.F 263 COST_DRIFTER 
     &                + vdmod(i,j+1,bi,bj)*mask13c(i,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 264 COST_DRIFTER 
     &                + vdmod(i+1,j+1,bi,bj)*mask13c(i+1,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 265 COST_DRIFTER 
     &                + vdmod(i+2,j+1,bi,bj)*mask13c(i+2,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 266 COST_DRIFTER 
     &                + vdmod(i+3,j+1,bi,bj)*mask13c(i+3,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 267 COST_DRIFTER 
     &                + vdmod(i+4,j+1,bi,bj)*mask13c(i+4,j+1,bi,bj)
./pkg/ecco/cost_drifter.F 268 COST_DRIFTER 
     &                + vdmod(i+5,j+1,bi,bj)*mask13c(i+5,j+1,bi,bj) )
./pkg/ecco/cost_drifter.F 269 COST_DRIFTER 
     &             / ( masktmp(i,j,bi,bj) )
./pkg/ecco/cost_drifter.F 277 COST_DRIFTER 
              uddat(i,j,bi,bj) = 0.01*udriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 278 COST_DRIFTER 
              vddat(i,j,bi,bj) = 0.01*vdriftdat(i,j,bi,bj)
./pkg/ecco/cost_drifter.F 280 COST_DRIFTER 
              wud(i,j,bi,bj) = 1e4*max(wudrift(i,j,bi,bj),5.D0)**(-2)
./pkg/ecco/cost_drifter.F 281 COST_DRIFTER 
              wvd(i,j,bi,bj) = 1e4*max(wvdrift(i,j,bi,bj),5.D0)**(-2)
./pkg/ecco/cost_drifter.F 284 COST_DRIFTER 
              mask6c(i,j,bi,bj) = 1.0
./pkg/ecco/cost_drifter.F 285 COST_DRIFTER 
              if ( uddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 286 COST_DRIFTER 
              if ( abs(uddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 287 COST_DRIFTER 
              if ( vddat(i,j,bi,bj).eq.0.0) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 288 COST_DRIFTER 
              if ( abs(vddat(i,j,bi,bj)).gt.900) mask6c(i,j,bi,bj)=0.0
./pkg/ecco/cost_drifter.F 306 COST_DRIFTER 
     &              + (wud(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 307 COST_DRIFTER 
     &                 mask6c(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 
     &                (u6bar(i,j,bi,bj) - uddat(i,j,bi,bj))   )
./pkg/ecco/cost_drifter.F 310 COST_DRIFTER 
     &              + (wvd(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_drifter.F 311 COST_DRIFTER 
     &                 mask6c(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 
     &                (v6bar(i,j,bi,bj) - vddat(i,j,bi,bj))   )
./pkg/ecco/cost_drifter.F 314 COST_DRIFTER 
               if ( cosphi(i,j,bi,bj)*mask6c(i,j,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_drifter.F 315 COST_DRIFTER 
                  if ( wud(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F 316 COST_DRIFTER 
     &                 num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drifter.F 317 COST_DRIFTER 
                  if ( wvd(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_drifter.F 318 COST_DRIFTER 
     &                 num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drifter.F 324 COST_DRIFTER 
         objf_drift(bi,bj) = objf_drift(bi,bj) + fctile_drift
./pkg/ecco/cost_drifter.F 332 COST_DRIFTER 
     &        ' cost_drifter: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_drifter.F 64 COST_DRIFTER 
      integer bi,bj
./pkg/ecco/cost_driftw.F 106 COST_DRIFTW 
      do bj = jtlo,jthi
./pkg/ecco/cost_driftw.F 111 COST_DRIFTW 
                wfmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_driftw.F 112 COST_DRIFTW 
                wlmean(i,j,k,bi,bj) = 0.0
./pkg/ecco/cost_driftw.F 136 COST_DRIFTW 
        do bj = jtlo,jthi
./pkg/ecco/cost_driftw.F 141 COST_DRIFTW 
                  wfmean(i,j,k,bi,bj) = wfmean(i,j,k,bi,bj) +
./pkg/ecco/cost_driftw.F 142 COST_DRIFTW 
     &                  wbar(i,j,k,bi,bj)
./pkg/ecco/cost_driftw.F 161 COST_DRIFTW 
        do bj = jtlo,jthi
./pkg/ecco/cost_driftw.F 166 COST_DRIFTW 
                  wlmean(i,j,k,bi,bj) = wlmean(i,j,k,bi,bj) +
./pkg/ecco/cost_driftw.F 167 COST_DRIFTW 
     &                  wbar(i,j,k,bi,bj)
./pkg/ecco/cost_driftw.F 177 COST_DRIFTW 
      do bj = jtlo,jthi
./pkg/ecco/cost_driftw.F 189 COST_DRIFTW 
              if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_driftw.F 191 COST_DRIFTW 
     &                  (2.5e11*cosphi(i,j,bi,bj)*
./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 
     &          (wlmean(i,j,k,bi,bj)/nl - wfmean(i,j,k,bi,bj)/nf))
./pkg/ecco/cost_driftw.F 194 COST_DRIFTW 
                     if ( cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_driftw.F 195 COST_DRIFTW 
     &                 num_wdrift(bi,bj) = num_wdrift(bi,bj) + 1. _d 0
./pkg/ecco/cost_driftw.F 204 COST_DRIFTW 
          objf_wdrift(bi,bj) = objf_wdrift(bi,bj) + fctilew
./pkg/ecco/cost_driftw.F 212 COST_DRIFTW 
     &        ' cost_Driftw: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_driftw.F 55 COST_DRIFTW 
      integer bi,bj
./pkg/ecco/cost_etan0.F 110 COST_ETAN0 
        do bj = jtlo,jthi
./pkg/ecco/cost_etan0.F 118 COST_ETAN0 
                if (_hFacC(i,j,1,bi,bj) .ne. 0.) then
./pkg/ecco/cost_etan0.F 119 COST_ETAN0 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_etan0.F 122 COST_ETAN0 
     &                 + wetan(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_etan0.F 127 COST_ETAN0 
                  if ( wetan(i,j,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_etan0.F 128 COST_ETAN0 
     &                 num_etan0(bi,bj) = num_etan0(bi,bj) + 1. _d 0
./pkg/ecco/cost_etan0.F 133 COST_ETAN0 
            objf_etan0(bi,bj) = objf_etan0(bi,bj) + fctile
./pkg/ecco/cost_etan0.F 52 COST_ETAN0 
      integer bi,bj
./pkg/ecco/cost_forcing_gen.F 133 COST_FORCING_GEN 
      do bj = jtlo,jthi
./pkg/ecco/cost_forcing_gen.F 137 COST_FORCING_GEN 
              xx_mean(i,j,bi,bj)   = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 140 COST_FORCING_GEN 
          num_gen_anom(bi,bj)  = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 141 COST_FORCING_GEN 
          num_gen_mean(bi,bj)  = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 142 COST_FORCING_GEN 
          num_gen_smoo(bi,bj)  = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 143 COST_FORCING_GEN 
          objf_gen_anom(bi,bj) = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 144 COST_FORCING_GEN 
          objf_gen_mean(bi,bj) = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 145 COST_FORCING_GEN 
          objf_gen_smoo(bi,bj) = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 157 COST_FORCING_GEN 
        do bj = jtlo,jthi
./pkg/ecco/cost_forcing_gen.F 161 COST_FORCING_GEN 
                xx_mean(i,j,bi,bj) = xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 162 COST_FORCING_GEN 
     &                + tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 173 COST_FORCING_GEN 
       do bj = jtlo,jthi
./pkg/ecco/cost_forcing_gen.F 180 COST_FORCING_GEN 
            xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 181 COST_FORCING_GEN 
     &            = xx_mean(i,j,bi,bj)/float(nrec)
./pkg/ecco/cost_forcing_gen.F 182 COST_FORCING_GEN 
            tmpx = xx_mean(i,j,bi,bj)/wmean_gen
./pkg/ecco/cost_forcing_gen.F 183 COST_FORCING_GEN 
            if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F 184 COST_FORCING_GEN 
              if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F 185 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 186 COST_FORCING_GEN 
              fctilem = fctilem + cosphi(i,j,bi,bj)*tmpx*tmpx
./pkg/ecco/cost_forcing_gen.F 187 COST_FORCING_GEN 
              if ( cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F 188 COST_FORCING_GEN 
     &             num_gen_mean(bi,bj) = num_gen_mean(bi,bj) + 1. _d 0
./pkg/ecco/cost_forcing_gen.F 192 COST_FORCING_GEN 
        objf_gen_mean(bi,bj) = objf_gen_mean(bi,bj) + fctilem
./pkg/ecco/cost_forcing_gen.F 206 COST_FORCING_GEN 
        do bj = jtlo,jthi
./pkg/ecco/cost_forcing_gen.F 214 COST_FORCING_GEN 
                if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F 216 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)-xx_mean(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 219 COST_FORCING_GEN 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F 220 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 222 COST_FORCING_GEN 
     &                 + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 225 COST_FORCING_GEN 
                  tmpx = tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 228 COST_FORCING_GEN 
                  if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F 229 COST_FORCING_GEN 
     &                 num_gen_anom(bi,bj) = num_gen_anom(bi,bj)
./pkg/ecco/cost_forcing_gen.F 235 COST_FORCING_GEN 
            objf_gen_anom(bi,bj) = objf_gen_anom(bi,bj) + fctile
./pkg/ecco/cost_forcing_gen.F 256 COST_FORCING_GEN 
        do bj = jtlo,jthi
./pkg/ecco/cost_forcing_gen.F 264 COST_FORCING_GEN 
                if (genmask(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_forcing_gen.F 266 COST_FORCING_GEN 
     &                 ( tmpfld2d(i+2,j,bi,bj)-tmpfld2d(i+1,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 267 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)*maskW(i+2,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 268 COST_FORCING_GEN 
     &               + ( tmpfld2d(i+1,j,bi,bj)-tmpfld2d(i,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 269 COST_FORCING_GEN 
     &                   *maskW(i+1,j,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 270 COST_FORCING_GEN 
     &               + ( tmpfld2d(i,j+2,bi,bj)-tmpfld2d(i,j+1,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 271 COST_FORCING_GEN 
     &                   *maskS(i,j+1,kk,bi,bj)*maskS(i,j+2,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 272 COST_FORCING_GEN 
     &               + ( tmpfld2d(i,j+1,bi,bj)-tmpfld2d(i,j,bi,bj) )
./pkg/ecco/cost_forcing_gen.F 273 COST_FORCING_GEN 
     &                   *maskS(i,j+1,kk,bi,bj)
./pkg/ecco/cost_forcing_gen.F 274 COST_FORCING_GEN 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_forcing_gen.F 275 COST_FORCING_GEN 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_forcing_gen.F 277 COST_FORCING_GEN 
     &               + wgen(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_forcing_gen.F 280 COST_FORCING_GEN 
                  if ( wgen(i,j,bi,bj)*cosphi(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_forcing_gen.F 281 COST_FORCING_GEN 
     &                 num_gen_smoo(bi,bj) = num_gen_smoo(bi,bj)
./pkg/ecco/cost_forcing_gen.F 287 COST_FORCING_GEN 
            objf_gen_smoo(bi,bj) = objf_gen_smoo(bi,bj) + fctile
./pkg/ecco/cost_forcing_gen.F 75 COST_FORCING_GEN 
      integer bi,bj
./pkg/ecco/cost_gen_transport.F 48 COST_GEN_TRANSPORT 
      integer bi,bj
./pkg/ecco/cost_gen_transport.F 74 COST_GEN_TRANSPORT 
        do bj = jtlo,jthi
./pkg/ecco/cost_gen_transport.F 76 COST_GEN_TRANSPORT 
             ftmp = ftmp + transpbar(irec,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 102 COST_GENCOST_BOXMEAN 
          tmpmsk(i,j,k,bi,bj)=0. _d 0
./pkg/ecco/cost_gencost_boxmean.F 114 COST_GENCOST_BOXMEAN 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/cost_gencost_boxmean.F 119 COST_GENCOST_BOXMEAN 
           if (mymsk(i,j,k,bi,bj).GT.tmpmsk(i,j,k,bi,bj))
./pkg/ecco/cost_gencost_boxmean.F 120 COST_GENCOST_BOXMEAN 
     &     tmpmsk(i,j,k,bi,bj)=mymsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 144 COST_GENCOST_BOXMEAN 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/cost_gencost_boxmean.F 146 COST_GENCOST_BOXMEAN 
          tmpSumTile(bi,bj)=0. _d 0
./pkg/ecco/cost_gencost_boxmean.F 147 COST_GENCOST_BOXMEAN 
          tmpVolTile(bi,bj)=0. _d 0
./pkg/ecco/cost_gencost_boxmean.F 154 COST_GENCOST_BOXMEAN 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/cost_gencost_boxmean.F 160 COST_GENCOST_BOXMEAN 
                mySumTile(bi,bj)=mySumTile(bi,bj)+
./pkg/ecco/cost_gencost_boxmean.F 161 COST_GENCOST_BOXMEAN 
     &            mybar(i,j,k,bi,bj)*
./pkg/ecco/cost_gencost_boxmean.F 162 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 163 COST_GENCOST_BOXMEAN 
     &            *mymsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 164 COST_GENCOST_BOXMEAN 
                myVolTile(bi,bj)=myVolTile(bi,bj)+
./pkg/ecco/cost_gencost_boxmean.F 165 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 166 COST_GENCOST_BOXMEAN 
     &            *mymsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 169 COST_GENCOST_BOXMEAN 
                tmpSumTile(bi,bj)=tmpSumTile(bi,bj)+
./pkg/ecco/cost_gencost_boxmean.F 170 COST_GENCOST_BOXMEAN 
     &            mybar(i,j,k,bi,bj)*
./pkg/ecco/cost_gencost_boxmean.F 171 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 172 COST_GENCOST_BOXMEAN 
     &            *tmpmsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 173 COST_GENCOST_BOXMEAN 
                tmpVolTile(bi,bj)=tmpVolTile(bi,bj)+
./pkg/ecco/cost_gencost_boxmean.F 174 COST_GENCOST_BOXMEAN 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 175 COST_GENCOST_BOXMEAN 
     &            *tmpmsk(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_boxmean.F 53 COST_GENCOST_BOXMEAN 
      integer bi,bj
./pkg/ecco/cost_gencost_boxmean.F 91 COST_GENCOST_BOXMEAN 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/cost_gencost_boxmean.F 93 COST_GENCOST_BOXMEAN 
          objf_gencost(bi,bj,igen_boxmean) = 0. _d 0
./pkg/ecco/cost_gencost_boxmean.F 94 COST_GENCOST_BOXMEAN 
          num_gencost(bi,bj,igen_boxmean) = 0. _d 0
./pkg/ecco/cost_gencost_boxmean.F 95 COST_GENCOST_BOXMEAN 
          mySumTile(bi,bj)=0. _d 0
./pkg/ecco/cost_gencost_boxmean.F 96 COST_GENCOST_BOXMEAN 
          myVolTile(bi,bj)=0. _d 0
./pkg/ecco/cost_gencost_customize.F 40 COST_GENCOST_CUSTOMIZE 
      integer bi,bj
./pkg/ecco/cost_gencost_customize.F 58 COST_GENCOST_CUSTOMIZE 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_customize.F 65 COST_GENCOST_CUSTOMIZE 
          gencost_modfld(i,j,bi,bj,1) = empmr(i,j,bi,bj)
./pkg/ecco/cost_gencost_customize.F 74 COST_GENCOST_CUSTOMIZE 
       if (gencost_name(k).EQ.'siv4-conc') gencost_modfld(i,j,bi,bj,k)
./pkg/ecco/cost_gencost_customize.F 75 COST_GENCOST_CUSTOMIZE 
     &        = area(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_customize.F 76 COST_GENCOST_CUSTOMIZE 
       if (gencost_name(k).EQ.'siv4-deconc') gencost_modfld(i,j,bi,bj,k)
./pkg/ecco/cost_gencost_customize.F 77 COST_GENCOST_CUSTOMIZE 
     &        = theta(i,j,1,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_customize.F 78 COST_GENCOST_CUSTOMIZE 
       if (gencost_name(k).EQ.'siv4-exconc') gencost_modfld(i,j,bi,bj,k)
./pkg/ecco/cost_gencost_customize.F 79 COST_GENCOST_CUSTOMIZE 
     &        = heff(i,j,bi,bj)*maskC(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F 174 COST_GENCOST_SEAICEV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_seaicev4.F 176 COST_GENCOST_SEAICEV4 
          objf_gencost(bi,bj,igen_conc) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 177 COST_GENCOST_SEAICEV4 
          objf_gencost(bi,bj,igen_exconc) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 178 COST_GENCOST_SEAICEV4 
          objf_gencost(bi,bj,igen_deconc) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 179 COST_GENCOST_SEAICEV4 
          num_gencost(bi,bj,igen_conc) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 180 COST_GENCOST_SEAICEV4 
          num_gencost(bi,bj,igen_exconc) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 181 COST_GENCOST_SEAICEV4 
          num_gencost(bi,bj,igen_deconc) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 185 COST_GENCOST_SEAICEV4 
                localobs(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 188 COST_GENCOST_SEAICEV4 
                  localobsweight(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 198 COST_GENCOST_SEAICEV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_seaicev4.F 203 COST_GENCOST_SEAICEV4 
         localmask(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F 314 COST_GENCOST_SEAICEV4 
          do bj = jtlo,jthi
./pkg/ecco/cost_gencost_seaicev4.F 319 COST_GENCOST_SEAICEV4 
                     localobs(i,j,k,bi,bj) = spval
./pkg/ecco/cost_gencost_seaicev4.F 348 COST_GENCOST_SEAICEV4 
          do bj = jtlo,jthi
./pkg/ecco/cost_gencost_seaicev4.F 353 COST_GENCOST_SEAICEV4 
                     localobsweight(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 364 COST_GENCOST_SEAICEV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_gencost_seaicev4.F 371 COST_GENCOST_SEAICEV4 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F 372 COST_GENCOST_SEAICEV4 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/cost_gencost_seaicev4.F 373 COST_GENCOST_SEAICEV4 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/cost_gencost_seaicev4.F 374 COST_GENCOST_SEAICEV4 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/cost_gencost_seaicev4.F 381 COST_GENCOST_SEAICEV4 
                  if (localobsweight(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/cost_gencost_seaicev4.F 382 COST_GENCOST_SEAICEV4 
                    localobsweight(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 384 COST_GENCOST_SEAICEV4 
                  if (localobsweight(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_gencost_seaicev4.F 385 COST_GENCOST_SEAICEV4 
                    localweight(i,j,k,bi,bj) =
./pkg/ecco/cost_gencost_seaicev4.F 386 COST_GENCOST_SEAICEV4 
     &                1./localobsweight(i,j,k,bi,bj)/
./pkg/ecco/cost_gencost_seaicev4.F 387 COST_GENCOST_SEAICEV4 
     &                   localobsweight(i,j,k,bi,bj)
./pkg/ecco/cost_gencost_seaicev4.F 389 COST_GENCOST_SEAICEV4 
                    localweight(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/cost_gencost_seaicev4.F 392 COST_GENCOST_SEAICEV4 
                  localweight(i,j,k,bi,bj)=
./pkg/ecco/cost_gencost_seaicev4.F 393 COST_GENCOST_SEAICEV4 
     &              gencost_weight(i,j,bi,bj,igen_conc)
./pkg/ecco/cost_gencost_seaicev4.F 396 COST_GENCOST_SEAICEV4 
                localweight(i,j,k,bi,bj)=
./pkg/ecco/cost_gencost_seaicev4.F 397 COST_GENCOST_SEAICEV4 
     &            gencost_weight(i,j,bi,bj,igen_conc)
./pkg/ecco/cost_gencost_seaicev4.F 409 COST_GENCOST_SEAICEV4 
                localwww  = localweight(i,j,k,bi,bj)*cmask(i,j,k)
./pkg/ecco/cost_gencost_seaicev4.F 410 COST_GENCOST_SEAICEV4 
                junk      = ( areabbbar(i,j,k,bi,bj) -
./pkg/ecco/cost_gencost_seaicev4.F 411 COST_GENCOST_SEAICEV4 
     &                        localobs(i,j,k,bi,bj) )
./pkg/ecco/cost_gencost_seaicev4.F 412 COST_GENCOST_SEAICEV4 
                objf_gencost(bi,bj,igen_conc) =
./pkg/ecco/cost_gencost_seaicev4.F 413 COST_GENCOST_SEAICEV4 
     &            objf_gencost(bi,bj,igen_conc) + junk*junk*localwww
./pkg/ecco/cost_gencost_seaicev4.F 416 COST_GENCOST_SEAICEV4 
     &               num_gencost(bi,bj,igen_conc) =
./pkg/ecco/cost_gencost_seaicev4.F 417 COST_GENCOST_SEAICEV4 
     &                 num_gencost(bi,bj,igen_conc) + 1. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 426 COST_GENCOST_SEAICEV4 
                if ((localobs(i,j,k,bi,bj) .LE. SEAICE_cutoff_area)
./pkg/ecco/cost_gencost_seaicev4.F 428 COST_GENCOST_SEAICEV4 
     &              (exconcbbbar(i,j,k,bi,bj) .GT. SEAICE_cutoff_heff))
./pkg/ecco/cost_gencost_seaicev4.F 431 COST_GENCOST_SEAICEV4 
     &              (( (deconcbbbar(i,j,k,bi,bj)-SEAICE_freeze)*
./pkg/ecco/cost_gencost_seaicev4.F 433 COST_GENCOST_SEAICEV4 
     &              - exconcbbbar(i,j,k,bi,bj)*
./pkg/ecco/cost_gencost_seaicev4.F 436 COST_GENCOST_SEAICEV4 
                     num_gencost(bi,bj,igen_exconc) =
./pkg/ecco/cost_gencost_seaicev4.F 437 COST_GENCOST_SEAICEV4 
     &                 num_gencost(bi,bj,igen_exconc) + 1. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 440 COST_GENCOST_SEAICEV4 
                     num_gencost(bi,bj,igen_exconc) =
./pkg/ecco/cost_gencost_seaicev4.F 441 COST_GENCOST_SEAICEV4 
     &                 num_gencost(bi,bj,igen_exconc) + 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 444 COST_GENCOST_SEAICEV4 
                objf_gencost(bi,bj,igen_exconc) =
./pkg/ecco/cost_gencost_seaicev4.F 445 COST_GENCOST_SEAICEV4 
     &            objf_gencost(bi,bj,igen_exconc) +
./pkg/ecco/cost_gencost_seaicev4.F 455 COST_GENCOST_SEAICEV4 
                if ( (areabbbar(i,j,1,bi,bj) .LE. 0.).AND.
./pkg/ecco/cost_gencost_seaicev4.F 456 COST_GENCOST_SEAICEV4 
     &               (localobs(i,j,1,bi,bj) .GT. 0.) ) then
./pkg/ecco/cost_gencost_seaicev4.F 458 COST_GENCOST_SEAICEV4 
     &               (( (deconcbbbar(i,j,k,bi,bj)-SEAICE_freeze)*
./pkg/ecco/cost_gencost_seaicev4.F 462 COST_GENCOST_SEAICEV4 
                     num_gencost(bi,bj,igen_deconc) =
./pkg/ecco/cost_gencost_seaicev4.F 463 COST_GENCOST_SEAICEV4 
     &                 num_gencost(bi,bj,igen_deconc) + 1. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 466 COST_GENCOST_SEAICEV4 
                     num_gencost(bi,bj,igen_deconc) =
./pkg/ecco/cost_gencost_seaicev4.F 467 COST_GENCOST_SEAICEV4 
     &                 num_gencost(bi,bj,igen_deconc) + 0. _d 0
./pkg/ecco/cost_gencost_seaicev4.F 470 COST_GENCOST_SEAICEV4 
                objf_gencost(bi,bj,igen_deconc) =
./pkg/ecco/cost_gencost_seaicev4.F 471 COST_GENCOST_SEAICEV4 
     &            objf_gencost(bi,bj,igen_deconc) +
./pkg/ecco/cost_gencost_seaicev4.F 77 COST_GENCOST_SEAICEV4 
      integer bi,bj
./pkg/ecco/cost_gencost_sshv4.F 1049 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 1053 COST_GENCOST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1054 COST_GENCOST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1055 COST_GENCOST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1056 COST_GENCOST_SSHV4 
              anom_tpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1057 COST_GENCOST_SSHV4 
              anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1058 COST_GENCOST_SSHV4 
              anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1064 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 1069 COST_GENCOST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F 1071 COST_GENCOST_SSHV4 
         anom_psMtpobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 1072 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1073 COST_GENCOST_SSHV4 
     &       - mean_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 1074 COST_GENCOST_SSHV4 
     &       - anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1075 COST_GENCOST_SSHV4 
         anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 1076 COST_GENCOST_SSHV4 
     &       - anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1080 COST_GENCOST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F 1082 COST_GENCOST_SSHV4 
         anom_psMersobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 1083 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1084 COST_GENCOST_SSHV4 
     &       - mean_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 1085 COST_GENCOST_SSHV4 
     &       - anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1086 COST_GENCOST_SSHV4 
         anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 1087 COST_GENCOST_SSHV4 
     &       - anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1091 COST_GENCOST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_gencost_sshv4.F 1093 COST_GENCOST_SSHV4 
         anom_psMgfoobs(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 1094 COST_GENCOST_SSHV4 
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1095 COST_GENCOST_SSHV4 
     &       - mean_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 1096 COST_GENCOST_SSHV4 
     &       - anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1097 COST_GENCOST_SSHV4 
         anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 1098 COST_GENCOST_SSHV4 
     &       - anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1128 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 1134 COST_GENCOST_SSHV4 
                junkweight = mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1135 COST_GENCOST_SSHV4 
     &                      *gencost_weight(i,j,bi,bj,igen_tp)
./pkg/ecco/cost_gencost_sshv4.F 1136 COST_GENCOST_SSHV4 
     &                      *tpmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1137 COST_GENCOST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1138 COST_GENCOST_SSHV4 
                junk = anom_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1139 COST_GENCOST_SSHV4 
                objf_gencost(bi,bj,igen_tp) =
./pkg/ecco/cost_gencost_sshv4.F 1140 COST_GENCOST_SSHV4 
     &              objf_gencost(bi,bj,igen_tp)+junk*junk*junkweight
./pkg/ecco/cost_gencost_sshv4.F 1142 COST_GENCOST_SSHV4 
     &              num_gencost(bi,bj,igen_tp) =
./pkg/ecco/cost_gencost_sshv4.F 1143 COST_GENCOST_SSHV4 
     &              num_gencost(bi,bj,igen_tp) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1147 COST_GENCOST_SSHV4 
                junkweight = mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1148 COST_GENCOST_SSHV4 
     &                      *gencost_weight(i,j,bi,bj,igen_ers)
./pkg/ecco/cost_gencost_sshv4.F 1149 COST_GENCOST_SSHV4 
     &                      *ersmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1150 COST_GENCOST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1151 COST_GENCOST_SSHV4 
                junk = anom_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1152 COST_GENCOST_SSHV4 
                objf_gencost(bi,bj,igen_ers) =
./pkg/ecco/cost_gencost_sshv4.F 1153 COST_GENCOST_SSHV4 
     &               objf_gencost(bi,bj,igen_ers)+junk*junk*junkweight
./pkg/ecco/cost_gencost_sshv4.F 1155 COST_GENCOST_SSHV4 
     &              num_gencost(bi,bj,igen_ers) =
./pkg/ecco/cost_gencost_sshv4.F 1156 COST_GENCOST_SSHV4 
     &              num_gencost(bi,bj,igen_ers) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 1160 COST_GENCOST_SSHV4 
                junkweight = mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1161 COST_GENCOST_SSHV4 
     &                      *gencost_weight(i,j,bi,bj,igen_gfo)
./pkg/ecco/cost_gencost_sshv4.F 1162 COST_GENCOST_SSHV4 
     &                      *gfomask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1163 COST_GENCOST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1164 COST_GENCOST_SSHV4 
                junk = anom_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 1165 COST_GENCOST_SSHV4 
                objf_gencost(bi,bj,igen_gfo) =
./pkg/ecco/cost_gencost_sshv4.F 1166 COST_GENCOST_SSHV4 
     &              objf_gencost(bi,bj,igen_gfo)+junk*junk*junkweight
./pkg/ecco/cost_gencost_sshv4.F 1168 COST_GENCOST_SSHV4 
     &              num_gencost(bi,bj,igen_gfo) =
./pkg/ecco/cost_gencost_sshv4.F 1169 COST_GENCOST_SSHV4 
     &              num_gencost(bi,bj,igen_gfo) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 250 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 254 COST_GENCOST_SSHV4 
              mean_slaobs_mdt(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 255 COST_GENCOST_SSHV4 
              mean_slaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 278 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 283 COST_GENCOST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 284 COST_GENCOST_SSHV4 
     &    gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 285 COST_GENCOST_SSHV4 
          mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 286 COST_GENCOST_SSHV4 
     &  tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 287 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 291 COST_GENCOST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 292 COST_GENCOST_SSHV4 
     &    gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 293 COST_GENCOST_SSHV4 
          mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 294 COST_GENCOST_SSHV4 
     &  ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 295 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 299 COST_GENCOST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 300 COST_GENCOST_SSHV4 
     &    gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 301 COST_GENCOST_SSHV4 
          mean_slaobs_mdt(i,j,bi,bj)= mean_slaobs_mdt(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 302 COST_GENCOST_SSHV4 
     &  gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 303 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 314 COST_GENCOST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 318 COST_GENCOST_SSHV4 
               if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 319 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 320 COST_GENCOST_SSHV4 
     &              ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_gencost_sshv4.F 321 COST_GENCOST_SSHV4 
                  mean_slaobs_mdt(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 322 COST_GENCOST_SSHV4 
     &                 mean_slaobs_mdt(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 323 COST_GENCOST_SSHV4 
     &                 mean_slaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 325 COST_GENCOST_SSHV4 
                  mean_slaobs_mdt(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 351 COST_GENCOST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 355 COST_GENCOST_SSHV4 
               if ( ( mdtmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 356 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 358 COST_GENCOST_SSHV4 
                  mdt(i,j,bi,bj) = mdt(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 359 COST_GENCOST_SSHV4 
     &                 -mean_slaobs_mdt(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 376 COST_GENCOST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 381 COST_GENCOST_SSHV4 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 382 COST_GENCOST_SSHV4 
              mean_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 383 COST_GENCOST_SSHV4 
              mean_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 384 COST_GENCOST_SSHV4 
              mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 385 COST_GENCOST_SSHV4 
              mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 386 COST_GENCOST_SSHV4 
              mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 387 COST_GENCOST_SSHV4 
              mean_slaobs_model(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 389 COST_GENCOST_SSHV4 
              mean_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 390 COST_GENCOST_SSHV4 
              mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 391 COST_GENCOST_SSHV4 
              mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 392 COST_GENCOST_SSHV4 
              mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 393 COST_GENCOST_SSHV4 
              mean_psMslaobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 433 COST_GENCOST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 437 COST_GENCOST_SSHV4 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 438 COST_GENCOST_SSHV4 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_gencost_sshv4.F 440 COST_GENCOST_SSHV4 
                if ( tpmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 441 COST_GENCOST_SSHV4 
     &             gencost_weight(i,j,bi,bj,igen_tp) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 442 COST_GENCOST_SSHV4 
                   mean_slaobs_model(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 443 COST_GENCOST_SSHV4 
     &                 mean_slaobs_model(i,j,bi,bj)+tpobs(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(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 446 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 447 COST_GENCOST_SSHV4 
                   mean_psMtpobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 448 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 452 COST_GENCOST_SSHV4 
                if ( ersmask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 453 COST_GENCOST_SSHV4 
     &             gencost_weight(i,j,bi,bj,igen_ers) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 454 COST_GENCOST_SSHV4 
                   mean_slaobs_model(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 455 COST_GENCOST_SSHV4 
     &                 mean_slaobs_model(i,j,bi,bj)+ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 456 COST_GENCOST_SSHV4 
                   mean_psMersobs(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 
     &                 psbar(i,j,bi,bj)-ersobs(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_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 464 COST_GENCOST_SSHV4 
                if ( gfomask(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 465 COST_GENCOST_SSHV4 
     &             gencost_weight(i,j,bi,bj,igen_gfo) .NE. 0. ) then
./pkg/ecco/cost_gencost_sshv4.F 466 COST_GENCOST_SSHV4 
                   mean_slaobs_model(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 467 COST_GENCOST_SSHV4 
     &                 mean_slaobs_model(i,j,bi,bj)+gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 468 COST_GENCOST_SSHV4 
                   mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 469 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 470 COST_GENCOST_SSHV4 
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 471 COST_GENCOST_SSHV4 
                   mean_psMgfoobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 472 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 483 COST_GENCOST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 488 COST_GENCOST_SSHV4 
               if ( ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 490 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 491 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 492 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 493 COST_GENCOST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 494 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 495 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 496 COST_GENCOST_SSHV4 
                  mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 497 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 498 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 502 COST_GENCOST_SSHV4 
               if ( ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 504 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 505 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 506 COST_GENCOST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 507 COST_GENCOST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 508 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 509 COST_GENCOST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 510 COST_GENCOST_SSHV4 
                  mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 511 COST_GENCOST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 512 COST_GENCOST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 516 COST_GENCOST_SSHV4 
               if ( ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 518 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 519 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 520 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 521 COST_GENCOST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 522 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_gencost_sshv4.F 523 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 524 COST_GENCOST_SSHV4 
                  mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 525 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 526 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 530 COST_GENCOST_SSHV4 
               if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. 0 ).AND.
./pkg/ecco/cost_gencost_sshv4.F 531 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 533 COST_GENCOST_SSHV4 
                  mean_psMslaobs(i,j,bi,bj) =
./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_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 536 COST_GENCOST_SSHV4 
                  mean_psMslaobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 538 COST_GENCOST_SSHV4 
                  mean_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 539 COST_GENCOST_SSHV4 
                  mean_psMslaobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 542 COST_GENCOST_SSHV4 
               if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0 ).AND.
./pkg/ecco/cost_gencost_sshv4.F 543 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 544 COST_GENCOST_SSHV4 
     &              ( mdtmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 546 COST_GENCOST_SSHV4 
                  mean_slaobs_model(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 547 COST_GENCOST_SSHV4 
     &                 mean_slaobs_model(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 548 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 549 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 550 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 551 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)-mdt(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 552 COST_GENCOST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 553 COST_GENCOST_SSHV4 
                  offset=offset+RA(i,j,bi,bj)*mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 554 COST_GENCOST_SSHV4 
                  offset_sum=offset_sum+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 555 COST_GENCOST_SSHV4 
               elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 556 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 558 COST_GENCOST_SSHV4 
                  mean_slaobs_model(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_gencost_sshv4.F 559 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 560 COST_GENCOST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 561 COST_GENCOST_SSHV4 
                  offset=offset+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 562 COST_GENCOST_SSHV4 
     &                  *( psmean(i,j,bi,bj) -mdt(i,j,bi,bj) )
./pkg/ecco/cost_gencost_sshv4.F 563 COST_GENCOST_SSHV4 
                  offset_sum=offset_sum+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 565 COST_GENCOST_SSHV4 
                  mean_slaobs_model(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_gencost_sshv4.F 566 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 567 COST_GENCOST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 599 COST_GENCOST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 604 COST_GENCOST_SSHV4 
               if ( (mean_psMssh_all_NUM(i,j,bi,bj) .GT. num0) .AND.
./pkg/ecco/cost_gencost_sshv4.F 605 COST_GENCOST_SSHV4 
     &              ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 606 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 609 COST_GENCOST_SSHV4 
                   mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 610 COST_GENCOST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) - offset
./pkg/ecco/cost_gencost_sshv4.F 611 COST_GENCOST_SSHV4 
                   mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 613 COST_GENCOST_SSHV4 
               elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 614 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_gencost_sshv4.F 617 COST_GENCOST_SSHV4 
                   mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 618 COST_GENCOST_SSHV4 
     &             psmean(i,j,bi,bj) -mdt(i,j,bi,bj) - offset
./pkg/ecco/cost_gencost_sshv4.F 619 COST_GENCOST_SSHV4 
                   mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 622 COST_GENCOST_SSHV4 
                   mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 623 COST_GENCOST_SSHV4 
                   mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 626 COST_GENCOST_SSHV4 
               if ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 627 COST_GENCOST_SSHV4 
     &            psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset
./pkg/ecco/cost_gencost_sshv4.F 673 COST_GENCOST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 678 COST_GENCOST_SSHV4 
              prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 695 COST_GENCOST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 699 COST_GENCOST_SSHV4 
       if (mean_psMssh_all_MSK(i,j,bi,bj).NE.0. _d 0) then
./pkg/ecco/cost_gencost_sshv4.F 700 COST_GENCOST_SSHV4 
         junk = mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 701 COST_GENCOST_SSHV4 
         junkweight = gencost_weight(i,j,bi,bj,igen_mdt)
./pkg/ecco/cost_gencost_sshv4.F 702 COST_GENCOST_SSHV4 
     &              * mdtmask(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 707 COST_GENCOST_SSHV4 
       objf_gencost(bi,bj,igen_mdt) = objf_gencost(bi,bj,igen_mdt)
./pkg/ecco/cost_gencost_sshv4.F 709 COST_GENCOST_SSHV4 
       if ( junkweight .ne. 0. ) num_gencost(bi,bj,igen_mdt) =
./pkg/ecco/cost_gencost_sshv4.F 710 COST_GENCOST_SSHV4 
     &      num_gencost(bi,bj,igen_mdt) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 711 COST_GENCOST_SSHV4 
       diagnosfld(i,j,bi,bj) = junk*junk*junkweight
./pkg/ecco/cost_gencost_sshv4.F 734 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 738 COST_GENCOST_SSHV4 
              anom_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 739 COST_GENCOST_SSHV4 
              anom_psMslaobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 740 COST_GENCOST_SSHV4 
              anom_psMslaobs_SUB(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 741 COST_GENCOST_SSHV4 
              anom_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 742 COST_GENCOST_SSHV4 
              anom_slaobs_SUB(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 743 COST_GENCOST_SSHV4 
              anom_psMslaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 75 COST_GENCOST_SSHV4 
      integer bi,bj
./pkg/ecco/cost_gencost_sshv4.F 784 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 789 COST_GENCOST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 791 COST_GENCOST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 792 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 793 COST_GENCOST_SSHV4 
     &        -mean_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 794 COST_GENCOST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 795 COST_GENCOST_SSHV4 
     &        tpobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 796 COST_GENCOST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 797 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 799 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_MSK(i,j,bi,bj)  = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 803 COST_GENCOST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 805 COST_GENCOST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 806 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 807 COST_GENCOST_SSHV4 
     &        -mean_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 808 COST_GENCOST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 809 COST_GENCOST_SSHV4 
     &        ersobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 810 COST_GENCOST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 811 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 813 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_MSK(i,j,bi,bj)  = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 817 COST_GENCOST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMslaobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 819 COST_GENCOST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 820 COST_GENCOST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 821 COST_GENCOST_SSHV4 
     &        -mean_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 822 COST_GENCOST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sshv4.F 823 COST_GENCOST_SSHV4 
     &        gfoobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 824 COST_GENCOST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_gencost_sshv4.F 825 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 827 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_MSK(i,j,bi,bj)  = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 837 COST_GENCOST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 841 COST_GENCOST_SSHV4 
               if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 842 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 844 COST_GENCOST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 845 COST_GENCOST_SSHV4 
     &                 anom_psMslaobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 846 COST_GENCOST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 847 COST_GENCOST_SSHV4 
                  anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 848 COST_GENCOST_SSHV4 
     &                 anom_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_gencost_sshv4.F 849 COST_GENCOST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 851 COST_GENCOST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 852 COST_GENCOST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 866 COST_GENCOST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 870 COST_GENCOST_SSHV4 
               if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 871 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 873 COST_GENCOST_SSHV4 
                  slaoffset=slaoffset+RA(i,j,bi,bj)*
./pkg/ecco/cost_gencost_sshv4.F 874 COST_GENCOST_SSHV4 
     &                      anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 875 COST_GENCOST_SSHV4 
                  slaoffset_sum=slaoffset_sum+RA(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 879 COST_GENCOST_SSHV4 
     &                      gencost_weight(i,j,bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F 910 COST_GENCOST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 914 COST_GENCOST_SSHV4 
               if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_gencost_sshv4.F 915 COST_GENCOST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_gencost_sshv4.F 917 COST_GENCOST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 918 COST_GENCOST_SSHV4 
     &                 anom_psMslaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 919 COST_GENCOST_SSHV4 
                  anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sshv4.F 920 COST_GENCOST_SSHV4 
     &                 anom_slaobs(i,j,bi,bj) - slaoffset
./pkg/ecco/cost_gencost_sshv4.F 922 COST_GENCOST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 923 COST_GENCOST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 970 COST_GENCOST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sshv4.F 977 COST_GENCOST_SSHV4 
          if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F 978 COST_GENCOST_SSHV4 
     &         (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) ) then
./pkg/ecco/cost_gencost_sshv4.F 979 COST_GENCOST_SSHV4 
            junk = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 980 COST_GENCOST_SSHV4 
            anom_slaobs_SUB(i,j,bi,bj) = anom_slaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 981 COST_GENCOST_SSHV4 
            anom_psMslaobs_SUB(i,j,bi,bj) = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_gencost_sshv4.F 984 COST_GENCOST_SSHV4 
            anom_slaobs_SUB(i,j,bi,bj)= 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 985 COST_GENCOST_SSHV4 
            anom_psMslaobs_SUB(i,j,bi,bj)= 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 987 COST_GENCOST_SSHV4 
          objf_gencost(bi,bj,igen_lsc) = objf_gencost(bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F 988 COST_GENCOST_SSHV4 
     &        + junk*junk*gencost_weight(i,j,bi,bj,igen_lsc)
./pkg/ecco/cost_gencost_sshv4.F 989 COST_GENCOST_SSHV4 
          if ( (gencost_weight(i,j,bi,bj,igen_lsc).GT.0.).AND.
./pkg/ecco/cost_gencost_sshv4.F 990 COST_GENCOST_SSHV4 
     &         (anom_psMslaobs_MSK(i,j,bi,bj).GT.0.) )
./pkg/ecco/cost_gencost_sshv4.F 991 COST_GENCOST_SSHV4 
     &         num_gencost(bi,bj,igen_lsc) =
./pkg/ecco/cost_gencost_sshv4.F 992 COST_GENCOST_SSHV4 
     &         num_gencost(bi,bj,igen_lsc) + 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 159 COST_GENCOST_SSTV4 
         do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 163 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 164 COST_GENCOST_SSTV4 
              obs_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 165 COST_GENCOST_SSTV4 
              nb_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 166 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 222 COST_GENCOST_SSTV4 
              do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 226 COST_GENCOST_SSTV4 
                         tmp_sst(i,j,bi,bj) = spval
./pkg/ecco/cost_gencost_sstv4.F 234 COST_GENCOST_SSTV4 
             do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 238 COST_GENCOST_SSTV4 
                 if ( (tmp_sst(i,j,bi,bj).GT.spval).AND.
./pkg/ecco/cost_gencost_sstv4.F 239 COST_GENCOST_SSTV4 
     &                (maskc(i,j,1,bi,bj).EQ.1.) ) then
./pkg/ecco/cost_gencost_sstv4.F 240 COST_GENCOST_SSTV4 
                  anom_sst(i,j,bi,bj)= anom_sst(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sstv4.F 241 COST_GENCOST_SSTV4 
     &               sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 242 COST_GENCOST_SSTV4 
                  obs_sst(i,j,bi,bj)= obs_sst(i,j,bi,bj)+
./pkg/ecco/cost_gencost_sstv4.F 243 COST_GENCOST_SSTV4 
     &               tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 244 COST_GENCOST_SSTV4 
                  nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 254 COST_GENCOST_SSTV4 
         do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 258 COST_GENCOST_SSTV4 
             if ( nb_sst(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_gencost_sstv4.F 259 COST_GENCOST_SSTV4 
              obs_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 260 COST_GENCOST_SSTV4 
     &            obs_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 261 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 262 COST_GENCOST_SSTV4 
     &            anom_sst(i,j,bi,bj)/nb_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 263 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 305 COST_GENCOST_SSTV4 
         do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 309 COST_GENCOST_SSTV4 
             junk = anom_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 310 COST_GENCOST_SSTV4 
             junkweight = gencost_weight(i,j,bi,bj,igen_amsre_lsc)*
./pkg/ecco/cost_gencost_sstv4.F 311 COST_GENCOST_SSTV4 
     &          maskc(i,j,1,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 312 COST_GENCOST_SSTV4 
             objf_gencost(igen_amsre_lsc,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 313 COST_GENCOST_SSTV4 
     &          objf_gencost(igen_amsre_lsc,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 315 COST_GENCOST_SSTV4 
             if ( (junkweight.GT.0.).AND.(nb_sst(i,j,bi,bj).GT.0.) )
./pkg/ecco/cost_gencost_sstv4.F 316 COST_GENCOST_SSTV4 
     &          num_gencost(igen_amsre_lsc,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 317 COST_GENCOST_SSTV4 
     &          num_gencost(igen_amsre_lsc,bi,bj) + 1. _d 0 /ndaysaveRL
./pkg/ecco/cost_gencost_sstv4.F 374 COST_GENCOST_SSTV4 
              do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 378 COST_GENCOST_SSTV4 
                         tmp_sst(i,j,bi,bj) = spval
./pkg/ecco/cost_gencost_sstv4.F 386 COST_GENCOST_SSTV4 
         do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 390 COST_GENCOST_SSTV4 
             if ( (tmp_sst(i,j,bi,bj).GT.spval).AND.
./pkg/ecco/cost_gencost_sstv4.F 391 COST_GENCOST_SSTV4 
     &            (maskc(i,j,1,bi,bj).EQ.1.) ) then
./pkg/ecco/cost_gencost_sstv4.F 392 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 393 COST_GENCOST_SSTV4 
     &               sstbar(i,j,bi,bj)-tmp_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 394 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 396 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 397 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 412 COST_GENCOST_SSTV4 
         do bj = jtlo,jthi
./pkg/ecco/cost_gencost_sstv4.F 416 COST_GENCOST_SSTV4 
             junk = anom_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 417 COST_GENCOST_SSTV4 
             junkweight = gencost_weight(i,j,bi,bj,igen_amsre)*
./pkg/ecco/cost_gencost_sstv4.F 418 COST_GENCOST_SSTV4 
     &          maskc(i,j,1,bi,bj)*msk_sst(i,j,bi,bj)
./pkg/ecco/cost_gencost_sstv4.F 419 COST_GENCOST_SSTV4 
             objf_gencost(igen_amsre,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 420 COST_GENCOST_SSTV4 
     &          objf_gencost(igen_amsre,bi,bj)+junk*junk*junkweight
./pkg/ecco/cost_gencost_sstv4.F 422 COST_GENCOST_SSTV4 
     &          num_gencost(igen_amsre,bi,bj) =
./pkg/ecco/cost_gencost_sstv4.F 423 COST_GENCOST_SSTV4 
     &          num_gencost(igen_amsre,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 57 COST_GENCOST_SSTV4 
      integer bi,bj
./pkg/ecco/cost_generic.F 135 COST_GENERIC 
      do bj = jtlo,jthi
./pkg/ecco/cost_generic.F 137 COST_GENERIC 
          objf_local(bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 138 COST_GENERIC 
          num_local(bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 142 COST_GENERIC 
                localobs(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 150 COST_GENERIC 
      do bj = jtlo,jthi
./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 250 COST_GENERIC 
          do bj = jtlo,jthi
./pkg/ecco/cost_generic.F 255 COST_GENERIC 
                     localobs(i,j,k,bi,bj) = spval
./pkg/ecco/cost_generic.F 264 COST_GENERIC 
        do bj = jtlo,jthi
./pkg/ecco/cost_generic.F 273 COST_GENERIC 
               cmask(i,j,k) = cosphi(i,j,bi,bj)*localmask(i,j,k,bi,bj)
./pkg/ecco/cost_generic.F 274 COST_GENERIC 
                if ( localobs(i,j,k,bi,bj) .lt. spminloc .or.
./pkg/ecco/cost_generic.F 275 COST_GENERIC 
     &               localobs(i,j,k,bi,bj) .gt. spmaxloc .or.
./pkg/ecco/cost_generic.F 276 COST_GENERIC 
     &               localobs(i,j,k,bi,bj) .eq. spzeroloc ) then
./pkg/ecco/cost_generic.F 286 COST_GENERIC 
                localwww  = localweight(i,j,k,bi,bj)*cmask(i,j,k)
./pkg/ecco/cost_generic.F 287 COST_GENERIC 
                junk      = ( localbar(i,j,k,bi,bj) -
./pkg/ecco/cost_generic.F 288 COST_GENERIC 
     &                        localobs(i,j,k,bi,bj) )
./pkg/ecco/cost_generic.F 291 COST_GENERIC 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/ecco/cost_generic.F 296 COST_GENERIC 
            objf_local(bi,bj) = objf_local(bi,bj) + localcost
./pkg/ecco/cost_generic.F 73 COST_GENERIC 
      integer bi,bj
./pkg/ecco/cost_ies.F 100 COST_IES 
              iescount(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies.F 127 COST_IES 
        do bj = jtlo,jthi
./pkg/ecco/cost_ies.F 131 COST_IES 
      if (iesmask(i,j,bi,bj).NE.0.) then
./pkg/ecco/cost_ies.F 132 COST_IES 
                iesmean(i,j,bi,bj) = iesmean(i,j,bi,bj) +
./pkg/ecco/cost_ies.F 133 COST_IES 
     &              iestaubar(i,j,bi,bj)
./pkg/ecco/cost_ies.F 134 COST_IES 
                datmean(i,j,bi,bj) = datmean(i,j,bi,bj) +
./pkg/ecco/cost_ies.F 135 COST_IES 
     &                iesdat(i,j,bi,bj)
./pkg/ecco/cost_ies.F 136 COST_IES 
                iescount(i,j,bi,bj) = iescount(i,j,bi,bj) +1.
./pkg/ecco/cost_ies.F 145 COST_IES 
        do bj = jtlo,jthi
./pkg/ecco/cost_ies.F 149 COST_IES 
      if (iescount(i,j,bi,bj).GT.0.) then
./pkg/ecco/cost_ies.F 150 COST_IES 
       iesmean(i,j,bi,bj) = iesmean(i,j,bi,bj)/iescount(i,j,bi,bj)
./pkg/ecco/cost_ies.F 151 COST_IES 
       datmean(i,j,bi,bj) = datmean(i,j,bi,bj)/iescount(i,j,bi,bj)
./pkg/ecco/cost_ies.F 189 COST_IES 
        do bj = jtlo,jthi
./pkg/ecco/cost_ies.F 193 COST_IES 
                junkweight = wies(i,j,bi,bj)*iesmask(i,j,bi,bj)
./pkg/ecco/cost_ies.F 194 COST_IES 
                junk       = (iestaubar(i,j,bi,bj) - iesmean(i,j,bi,bj))
./pkg/ecco/cost_ies.F 195 COST_IES 
     &                      -(iesdat(i,j,bi,bj) - datmean(i,j,bi,bj))
./pkg/ecco/cost_ies.F 196 COST_IES 
                objf_ies(bi,bj) = objf_ies(bi,bj)
./pkg/ecco/cost_ies.F 199 COST_IES 
     &               num_ies(bi,bj) = num_ies(bi,bj) + 1. _d 0
./pkg/ecco/cost_ies.F 55 COST_IES 
      integer bi,bj
./pkg/ecco/cost_ies.F 94 COST_IES 
      do bj = jtlo,jthi
./pkg/ecco/cost_ies.F 98 COST_IES 
              iesmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies.F 99 COST_IES 
              datmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F 106 COST_IES_READ 
      do bj = jtlo,jthi
./pkg/ecco/cost_ies_read.F 111 COST_IES_READ 
              if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_ies_read.F 112 COST_IES_READ 
                iesmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F 114 COST_IES_READ 
                iesmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ies_read.F 116 COST_IES_READ 
              if (iesdat(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_ies_read.F 117 COST_IES_READ 
                iesmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F 118 COST_IES_READ 
              elseif (iesdat(i,j,bi,bj) .eq. 0. _d 0) then
./pkg/ecco/cost_ies_read.F 119 COST_IES_READ 
                iesmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ies_read.F 121 COST_IES_READ 
                iesmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ies_read.F 123 COST_IES_READ 
              iesdat(i,j,bi,bj) = iesdat(i,j,bi,bj)*
./pkg/ecco/cost_ies_read.F 124 COST_IES_READ 
     &                              iesmask(i,j,bi,bj)
./pkg/ecco/cost_ies_read.F 125 COST_IES_READ 
              nobs = nobs + int(iesmask(i,j,bi,bj))
./pkg/ecco/cost_ies_read.F 45 COST_IES_READ 
      integer bi,bj
./pkg/ecco/cost_kapgm.F 101 COST_KAPGM 
        do bj = jtlo,jthi
./pkg/ecco/cost_kapgm.F 110 COST_KAPGM 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapgm.F 112 COST_KAPGM 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapgm.F 115 COST_KAPGM 
     &                 + wkapgmFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_kapgm.F 125 COST_KAPGM 
            objf_kapgm(bi,bj) = objf_kapgm(bi,bj) + fctile
./pkg/ecco/cost_kapgm.F 134 COST_KAPGM 
     &        ' cost_kapgm: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_kapgm.F 43 COST_KAPGM 
      integer bi,bj
./pkg/ecco/cost_kapredi.F 101 COST_KAPREDI 
        do bj = jtlo,jthi
./pkg/ecco/cost_kapredi.F 110 COST_KAPREDI 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_kapredi.F 112 COST_KAPREDI 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_kapredi.F 115 COST_KAPREDI 
     &                 + wkaprediFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_kapredi.F 125 COST_KAPREDI 
            objf_kapredi(bi,bj) = objf_kapredi(bi,bj) + fctile
./pkg/ecco/cost_kapredi.F 134 COST_KAPREDI 
     &        ' cost_kapredi: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_kapredi.F 43 COST_KAPREDI 
      integer bi,bj
./pkg/ecco/cost_mean_heatflux.F 111 COST_MEAN_HEATFLUX 
        do bj = jtlo,jthi
./pkg/ecco/cost_mean_heatflux.F 116 COST_MEAN_HEATFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 117 COST_MEAN_HEATFLUX 
                if (maskC(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_mean_heatflux.F 119 COST_MEAN_HEATFLUX 
     &                + tmpx* _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 121 COST_MEAN_HEATFLUX 
     &                + _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_heatflux.F 122 COST_MEAN_HEATFLUX 
                   num_hfluxmm(bi,bj) = num_hfluxmm(bi,bj) + 1
./pkg/ecco/cost_mean_heatflux.F 50 COST_MEAN_HEATFLUX 
      integer bi,bj
./pkg/ecco/cost_mean_saltflux.F 111 COST_MEAN_SALTFLUX 
        do bj = jtlo,jthi
./pkg/ecco/cost_mean_saltflux.F 116 COST_MEAN_SALTFLUX 
                tmpx=tmpfld2d(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 117 COST_MEAN_SALTFLUX 
                if (maskC(i,j,kk,bi,bj) .ne. 0.) then
./pkg/ecco/cost_mean_saltflux.F 119 COST_MEAN_SALTFLUX 
     &                + tmpx* _rA(i,j,bi,bj)/rhoConstFresh
./pkg/ecco/cost_mean_saltflux.F 121 COST_MEAN_SALTFLUX 
     &                + _rA(i,j,bi,bj)
./pkg/ecco/cost_mean_saltflux.F 122 COST_MEAN_SALTFLUX 
                   num_sfluxmm(bi,bj) = num_sfluxmm(bi,bj) + 1
./pkg/ecco/cost_mean_saltflux.F 50 COST_MEAN_SALTFLUX 
      integer bi,bj
./pkg/ecco/cost_obcs_ageos.F 146 COST_OBCS_AGEOS 
      do bj = jtlo,jthi
./pkg/ecco/cost_obcs_ageos.F 150 COST_OBCS_AGEOS 
              maskxzageos(i,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 151 COST_OBCS_AGEOS 
              xzdvel1(i,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 152 COST_OBCS_AGEOS 
              xzdvel2(i,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 153 COST_OBCS_AGEOS 
              xzgrdrho(i,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 156 COST_OBCS_AGEOS 
              maskyzageos(j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 157 COST_OBCS_AGEOS 
              yzdvel1(j,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 158 COST_OBCS_AGEOS 
              yzdvel2(j,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 159 COST_OBCS_AGEOS 
              yzgrdrho(j,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 165 COST_OBCS_AGEOS 
      do bj = jtlo,jthi
./pkg/ecco/cost_obcs_ageos.F 169 COST_OBCS_AGEOS 
              rholoc(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 208 COST_OBCS_AGEOS 
        do bj = jtlo,jthi
./pkg/ecco/cost_obcs_ageos.F 217 COST_OBCS_AGEOS 
                j = OB_Jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 220 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) = 0.
./pkg/ecco/cost_obcs_ageos.F 222 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 223 COST_OBCS_AGEOS 
     &       hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 224 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 225 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 226 COST_OBCS_AGEOS 
     &       hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 234 COST_OBCS_AGEOS 
       IF ( bi.NE.1 .OR. bj.NE.1 )
./pkg/ecco/cost_obcs_ageos.F 238 COST_OBCS_AGEOS 
     I                         tbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 239 COST_OBCS_AGEOS 
     I                         sbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 241 COST_OBCS_AGEOS 
     I                         k, bi, bj, myThid )
./pkg/ecco/cost_obcs_ageos.F 246 COST_OBCS_AGEOS 
                j = OB_Jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 248 COST_OBCS_AGEOS 
                  xzgrdrho(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 249 COST_OBCS_AGEOS 
     &            (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 250 COST_OBCS_AGEOS 
     &            /(2.*dxc(i,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 259 COST_OBCS_AGEOS 
                j = OB_Jn(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 261 COST_OBCS_AGEOS 
                  xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 262 COST_OBCS_AGEOS 
     &                               - vbar(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 263 COST_OBCS_AGEOS 
                 xzdvel2(i,k,bi,bj)=((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 264 COST_OBCS_AGEOS 
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 267 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 268 COST_OBCS_AGEOS 
     &            maskxzageos(i,k,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 269 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 270 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 271 COST_OBCS_AGEOS 
      if (maskxzageos(i,k,bi,bj) .ne. 0) then
./pkg/ecco/cost_obcs_ageos.F 286 COST_OBCS_AGEOS 
                j = OB_Js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 288 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) = 0.
./pkg/ecco/cost_obcs_ageos.F 291 COST_OBCS_AGEOS 
                  maskxzageos(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 292 COST_OBCS_AGEOS 
     &       hfacC(i,j+jp1,k,bi,bj)*hfacC(i+1,j+jp1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 293 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 294 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 295 COST_OBCS_AGEOS 
     &       hfacS(i,j+jp1,k,bi,bj)*hfacS(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 303 COST_OBCS_AGEOS 
       IF ( bi.NE.1 .OR. bj.NE.1 )
./pkg/ecco/cost_obcs_ageos.F 307 COST_OBCS_AGEOS 
     I                         tbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 308 COST_OBCS_AGEOS 
     I                         sbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 310 COST_OBCS_AGEOS 
     I                         k, bi, bj, myThid )
./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 
                 xzgrdrho(i,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 319 COST_OBCS_AGEOS 
     &            (rholoc(i-1,j+jp1,bi,bj)-rholoc(i+1,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 320 COST_OBCS_AGEOS 
     &            /(2.*dxc(i,j+jp1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 327 COST_OBCS_AGEOS 
                 j = OB_Js(i,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 330 COST_OBCS_AGEOS 
                 xzdvel1(i,k,bi,bj) = vbar(i,j+jp1,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 331 COST_OBCS_AGEOS 
     &                               - vbar(i,j+jp1,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 334 COST_OBCS_AGEOS 
                 xzdvel2(i,k,bi,bj) =((xzgrdrho(i,k,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 335 COST_OBCS_AGEOS 
     &                             (xzgrdrho(i,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 339 COST_OBCS_AGEOS 
                  fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 340 COST_OBCS_AGEOS 
     &          maskxzageos(i,k,bi,bj)*
./pkg/ecco/cost_obcs_ageos.F 341 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 342 COST_OBCS_AGEOS 
     &          (xzdvel2(i,k,bi,bj) - xzdvel1(i,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 355 COST_OBCS_AGEOS 
                i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 358 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) = 0.
./pkg/ecco/cost_obcs_ageos.F 360 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 361 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 362 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 363 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 364 COST_OBCS_AGEOS 
     &       hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 371 COST_OBCS_AGEOS 
       IF ( bi.NE.1 .OR. bj.NE.1 )
./pkg/ecco/cost_obcs_ageos.F 375 COST_OBCS_AGEOS 
     I                         tbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 376 COST_OBCS_AGEOS 
     I                         sbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 378 COST_OBCS_AGEOS 
     I                         k, bi, bj, myThid )
./pkg/ecco/cost_obcs_ageos.F 383 COST_OBCS_AGEOS 
                i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 386 COST_OBCS_AGEOS 
                yzgrdrho(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 387 COST_OBCS_AGEOS 
     &            (rholoc(i+ip1,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 388 COST_OBCS_AGEOS 
     &            /(2.*dyc(i+ip1,j,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 395 COST_OBCS_AGEOS 
                i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 398 COST_OBCS_AGEOS 
                yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 399 COST_OBCS_AGEOS 
     &                               - ubar(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 402 COST_OBCS_AGEOS 
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 403 COST_OBCS_AGEOS 
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 407 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 408 COST_OBCS_AGEOS 
     &           maskyzageos(j,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 409 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 410 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 422 COST_OBCS_AGEOS 
                i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 424 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) =0.
./pkg/ecco/cost_obcs_ageos.F 427 COST_OBCS_AGEOS 
                  maskyzageos(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 428 COST_OBCS_AGEOS 
     &       hfacC(i+ip1,j,k,bi,bj)*hfacC(i+ip1,j+1,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 429 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 430 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 431 COST_OBCS_AGEOS 
     &       hfacW(i+ip1,j,k,bi,bj)*hfacW(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 438 COST_OBCS_AGEOS 
       IF ( bi.NE.1 .OR. bj.NE.1 )
./pkg/ecco/cost_obcs_ageos.F 442 COST_OBCS_AGEOS 
     I                         tbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 443 COST_OBCS_AGEOS 
     I                         sbar(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/cost_obcs_ageos.F 445 COST_OBCS_AGEOS 
     I                         k, bi, bj, myThid )
./pkg/ecco/cost_obcs_ageos.F 450 COST_OBCS_AGEOS 
                i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 453 COST_OBCS_AGEOS 
                yzgrdrho(j,k,bi,bj) =
./pkg/ecco/cost_obcs_ageos.F 454 COST_OBCS_AGEOS 
     &            (rholoc(i+ip1,,j+1,bi,bj)-rholoc(i+ip1,j-1,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 455 COST_OBCS_AGEOS 
     &            /(2.*dyc(i+ip1,j,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 462 COST_OBCS_AGEOS 
                i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 465 COST_OBCS_AGEOS 
                yzdvel1(j,k,bi,bj) = ubar(i+ip1,j,k  ,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 466 COST_OBCS_AGEOS 
     &                             - ubar(i+ip1,j,k+1,bi,bj)
./pkg/ecco/cost_obcs_ageos.F 469 COST_OBCS_AGEOS 
                yzdvel2(j,k,bi,bj) =((yzgrdrho(j,k  ,bi,bj)*delz(k)/2.)+
./pkg/ecco/cost_obcs_ageos.F 470 COST_OBCS_AGEOS 
     &                             (yzgrdrho(j,k+1,bi,bj)*delz(k+1)/2.))
./pkg/ecco/cost_obcs_ageos.F 474 COST_OBCS_AGEOS 
                fctile = fctile + 100*wcurrent(k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 475 COST_OBCS_AGEOS 
     &           maskyzageos(j,k,bi,bj) *
./pkg/ecco/cost_obcs_ageos.F 476 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))*
./pkg/ecco/cost_obcs_ageos.F 477 COST_OBCS_AGEOS 
     &          (yzdvel2(j,k,bi,bj) - yzdvel1(j,k,bi,bj))
./pkg/ecco/cost_obcs_ageos.F 485 COST_OBCS_AGEOS 
            objf_ageos(bi,bj) = objf_ageos(bi,bj) + fctile
./pkg/ecco/cost_obcs_ageos.F 493 COST_OBCS_AGEOS 
     &        ' cost_Theta: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_obcs_ageos.F 51 COST_OBCS_AGEOS 
      integer bi,bj
./pkg/ecco/cost_obcse.F 163 COST_OBCSE 
        do bj = jtlo,jthi
./pkg/ecco/cost_obcse.F 173 COST_OBCSE 
                  tmpx = tmpfield(j,k,bi,bj)
./pkg/ecco/cost_obcse.F 176 COST_OBCSE 
     &                        *tmpx*tmpx*maskyz(j,k,bi,bj)
./pkg/ecco/cost_obcse.F 179 COST_OBCSE 
                  if (wobcse(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcse.F 180 COST_OBCSE 
     &                    num_obcse(bi,bj) = num_obcse(bi,bj) + 1. _d 0
./pkg/ecco/cost_obcse.F 184 COST_OBCSE 
            objf_obcse(bi,bj) = objf_obcse(bi,bj) + fctile
./pkg/ecco/cost_obcse.F 68 COST_OBCSE 
      integer bi,bj
./pkg/ecco/cost_obcsn.F 161 COST_OBCSN 
        do bj = jtlo,jthi
./pkg/ecco/cost_obcsn.F 171 COST_OBCSN 
                  tmpx = tmpfield(i,k,bi,bj)
./pkg/ecco/cost_obcsn.F 174 COST_OBCSN 
     &                          *tmpx*tmpx*maskxz(i,k,bi,bj)
./pkg/ecco/cost_obcsn.F 177 COST_OBCSN 
                 if (wobcsn(k,iobcs)*maskxz(i,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcsn.F 178 COST_OBCSN 
     &                    num_obcsn(bi,bj) = num_obcsn(bi,bj) + 1. _d 0
./pkg/ecco/cost_obcsn.F 183 COST_OBCSN 
            objf_obcsn(bi,bj) = objf_obcsn(bi,bj) + fctile
./pkg/ecco/cost_obcsn.F 68 COST_OBCSN 
      integer bi,bj
./pkg/ecco/cost_obcss.F 163 COST_OBCSS 
        do bj = jtlo,jthi
./pkg/ecco/cost_obcss.F 173 COST_OBCSS 
                  tmpx = tmpfield(i,k,bi,bj)
./pkg/ecco/cost_obcss.F 176 COST_OBCSS 
     &                        *tmpx*tmpx*maskxz(i,k,bi,bj)
./pkg/ecco/cost_obcss.F 179 COST_OBCSS 
                  if (wobcss(k,iobcs)*maskxz(i,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcss.F 180 COST_OBCSS 
     &                    num_obcss(bi,bj) = num_obcss(bi,bj) + 1. _d 0
./pkg/ecco/cost_obcss.F 185 COST_OBCSS 
            objf_obcss(bi,bj) = objf_obcss(bi,bj) + fctile
./pkg/ecco/cost_obcss.F 68 COST_OBCSS 
      integer bi,bj
./pkg/ecco/cost_obcsvol.F 198 COST_OBCSVOL 
          do bj = jtlo,jthi
./pkg/ecco/cost_obcsvol.F 206 COST_OBCSVOL 
                  j = OB_Jn(I,bi,bj)
./pkg/ecco/cost_obcsvol.F 209 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 210 COST_OBCSVOL 
                  if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 212 COST_OBCSVOL 
                    fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 213 COST_OBCSVOL 
     &                  * _hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 240 COST_OBCSVOL 
          do bj = jtlo,jthi
./pkg/ecco/cost_obcsvol.F 248 COST_OBCSVOL 
                  j = OB_Js(I,bi,bj)
./pkg/ecco/cost_obcsvol.F 251 COST_OBCSVOL 
                  tmpx = tmpfldxz(i,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 252 COST_OBCSVOL 
                  if (maskS(i,j+1,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 254 COST_OBCSVOL 
                    fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj)
./pkg/ecco/cost_obcsvol.F 255 COST_OBCSVOL 
     &                  * _hFacS(i,j+1,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 283 COST_OBCSVOL 
          do bj = jtlo,jthi
./pkg/ecco/cost_obcsvol.F 291 COST_OBCSVOL 
                  i = OB_Iw(j,bi,bj)
./pkg/ecco/cost_obcsvol.F 294 COST_OBCSVOL 
                  tmpy = tmpfldyz(j,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 295 COST_OBCSVOL 
                  if (maskW(i+1,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 297 COST_OBCSVOL 
                    fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 298 COST_OBCSVOL 
     &                  * _hFacW(i+1,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 326 COST_OBCSVOL 
          do bj = jtlo,jthi
./pkg/ecco/cost_obcsvol.F 334 COST_OBCSVOL 
                  i = OB_Ie(j,bi,bj)
./pkg/ecco/cost_obcsvol.F 337 COST_OBCSVOL 
                  tmpy = tmpfldyz(j,1,bi,bj)
./pkg/ecco/cost_obcsvol.F 338 COST_OBCSVOL 
                  if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_obcsvol.F 340 COST_OBCSVOL 
                    fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj)
./pkg/ecco/cost_obcsvol.F 341 COST_OBCSVOL 
     &                  * _hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_obcsvol.F 53 COST_OBCSVOL 
      integer bi,bj
./pkg/ecco/cost_obcsw.F 161 COST_OBCSW 
        do bj = jtlo,jthi
./pkg/ecco/cost_obcsw.F 171 COST_OBCSW 
                  tmpx = tmpfield(j,k,bi,bj)
./pkg/ecco/cost_obcsw.F 174 COST_OBCSW 
     &                        *tmpx*tmpx*maskyz(j,k,bi,bj)
./pkg/ecco/cost_obcsw.F 177 COST_OBCSW 
                  if (wobcsw(k,iobcs)*maskyz(j,k,bi,bj).ne.0.)
./pkg/ecco/cost_obcsw.F 178 COST_OBCSW 
     &                    num_obcsw(bi,bj) = num_obcsw(bi,bj) + 1. _d 0
./pkg/ecco/cost_obcsw.F 182 COST_OBCSW 
            objf_obcsw(bi,bj) = objf_obcsw(bi,bj) + fctile
./pkg/ecco/cost_obcsw.F 68 COST_OBCSW 
      integer bi,bj
./pkg/ecco/cost_readargos.F 45 COST_READARGOS 
      integer bi,bj
./pkg/ecco/cost_readargos.F 87 COST_READARGOS 
         do bj = jtlo,jthi
./pkg/ecco/cost_readargos.F 92 COST_READARGOS 
                     argosobs(i,j,k,bi,bj)=spval
./pkg/ecco/cost_readargot.F 45 COST_READARGOT 
      integer bi,bj
./pkg/ecco/cost_readargot.F 87 COST_READARGOT 
         do bj = jtlo,jthi
./pkg/ecco/cost_readargot.F 92 COST_READARGOT 
                     argotobs(i,j,k,bi,bj)=spval
./pkg/ecco/cost_readers.F 130 COST_READERS 
       do bj = jtlo,jthi
./pkg/ecco/cost_readers.F 134 COST_READERS 
            ersobs(i,j,bi,bj) = spval
./pkg/ecco/cost_readers.F 141 COST_READERS 
      do bj = jtlo,jthi
./pkg/ecco/cost_readers.F 146 COST_READERS 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readers.F 147 COST_READERS 
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 149 COST_READERS 
                 ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readers.F 151 COST_READERS 
              if (ersobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readers.F 152 COST_READERS 
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 154 COST_READERS 
              if (abs(ersobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readers.F 155 COST_READERS 
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 159 COST_READERS 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readers.F 160 COST_READERS 
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 164 COST_READERS 
              if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readers.F 165 COST_READERS 
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 169 COST_READERS 
              ersmask(i,j,bi,bj) = ersmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readers.F 170 COST_READERS 
              ersobs(i,j,bi,bj)  = ersmask(i,j,bi,bj)*factor*
./pkg/ecco/cost_readers.F 171 COST_READERS 
     &             ( ersobs(i,j,bi,bj) -
./pkg/ecco/cost_readers.F 46 COST_READERS 
      integer bi,bj
./pkg/ecco/cost_readgfo.F 130 COST_READGFO 
       do bj = jtlo,jthi
./pkg/ecco/cost_readgfo.F 134 COST_READGFO 
            gfoobs(i,j,bi,bj) = spval
./pkg/ecco/cost_readgfo.F 141 COST_READGFO 
      do bj = jtlo,jthi
./pkg/ecco/cost_readgfo.F 146 COST_READGFO 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readgfo.F 147 COST_READGFO 
                 gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 149 COST_READGFO 
                 gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readgfo.F 151 COST_READGFO 
              if (gfoobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readgfo.F 152 COST_READGFO 
                gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 154 COST_READGFO 
              if (abs(gfoobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readgfo.F 155 COST_READGFO 
                 gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 159 COST_READGFO 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readgfo.F 160 COST_READGFO 
                gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 164 COST_READGFO 
              if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readgfo.F 165 COST_READGFO 
                gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 168 COST_READGFO 
              gfomask(i,j,bi,bj) = gfomask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readgfo.F 169 COST_READGFO 
              gfoobs(i,j,bi,bj)  = gfomask(i,j,bi,bj)*factor*
./pkg/ecco/cost_readgfo.F 170 COST_READGFO 
     &             ( gfoobs(i,j,bi,bj) -
./pkg/ecco/cost_readgfo.F 46 COST_READGFO 
      integer bi,bj
./pkg/ecco/cost_readscatxfields.F 169 COST_READSCATXFIELDS 
          do bj = jtlo,jthi
./pkg/ecco/cost_readscatxfields.F 173 COST_READSCATXFIELDS 
                   scatxdat(i,j,bi,bj) = spval
./pkg/ecco/cost_readscatxfields.F 183 COST_READSCATXFIELDS 
      do bj = jtlo,jthi
./pkg/ecco/cost_readscatxfields.F 188 COST_READSCATXFIELDS 
              if (maskW(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readscatxfields.F 189 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 191 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatxfields.F 193 COST_READSCATXFIELDS 
              if (scatxdat(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readscatxfields.F 194 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 196 COST_READSCATXFIELDS 
              if (scatxdat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatxfields.F 197 COST_READSCATXFIELDS 
                 scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 199 COST_READSCATXFIELDS 
              scatxmask(i,j,bi,bj) = scatxmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatxfields.F 200 COST_READSCATXFIELDS 
              scatxdat(i,j,bi,bj) = scatxdat(i,j,bi,bj)*
./pkg/ecco/cost_readscatxfields.F 201 COST_READSCATXFIELDS 
     &                              scatxmask(i,j,bi,bj)
./pkg/ecco/cost_readscatxfields.F 202 COST_READSCATXFIELDS 
              nobs = nobs + int(scatxmask(i,j,bi,bj))
./pkg/ecco/cost_readscatxfields.F 211 COST_READSCATXFIELDS 
      do bj = jtlo,jthi
./pkg/ecco/cost_readscatxfields.F 215 COST_READSCATXFIELDS 
            vartile=vartile+scatxdat(i,j,bi,bj)*scatxdat(i,j,bi,bj)
./pkg/ecco/cost_readscatxfields.F 48 COST_READSCATXFIELDS 
      integer bi,bj
./pkg/ecco/cost_readscatyfields.F 168 COST_READSCATYFIELDS 
          do bj = jtlo,jthi
./pkg/ecco/cost_readscatyfields.F 172 COST_READSCATYFIELDS 
                   scatydat(i,j,bi,bj) = spval
./pkg/ecco/cost_readscatyfields.F 181 COST_READSCATYFIELDS 
      do bj = jtlo,jthi
./pkg/ecco/cost_readscatyfields.F 186 COST_READSCATYFIELDS 
              if (maskS(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readscatyfields.F 187 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 189 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatyfields.F 191 COST_READSCATYFIELDS 
              if (scatydat(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readscatyfields.F 192 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 194 COST_READSCATYFIELDS 
              if (scatydat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatyfields.F 195 COST_READSCATYFIELDS 
                 scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 197 COST_READSCATYFIELDS 
              scatymask(i,j,bi,bj) = scatymask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readscatyfields.F 198 COST_READSCATYFIELDS 
              scatydat(i,j,bi,bj) = scatydat(i,j,bi,bj)*
./pkg/ecco/cost_readscatyfields.F 199 COST_READSCATYFIELDS 
     &                              scatymask(i,j,bi,bj)
./pkg/ecco/cost_readscatyfields.F 200 COST_READSCATYFIELDS 
              nobs = nobs + int(scatymask(i,j,bi,bj))
./pkg/ecco/cost_readscatyfields.F 209 COST_READSCATYFIELDS 
      do bj = jtlo,jthi
./pkg/ecco/cost_readscatyfields.F 213 COST_READSCATYFIELDS 
            vartile=vartile+scatydat(i,j,bi,bj)*scatydat(i,j,bi,bj)
./pkg/ecco/cost_readscatyfields.F 48 COST_READSCATYFIELDS 
      integer bi,bj
./pkg/ecco/cost_readtopex.F 157 COST_READTOPEX 
       do bj = jtlo,jthi
./pkg/ecco/cost_readtopex.F 161 COST_READTOPEX 
            tpobs(i,j,bi,bj) = spval
./pkg/ecco/cost_readtopex.F 168 COST_READTOPEX 
      do bj = jtlo,jthi
./pkg/ecco/cost_readtopex.F 173 COST_READTOPEX 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_readtopex.F 174 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 176 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopex.F 178 COST_READTOPEX 
              if (tpobs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_readtopex.F 179 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 181 COST_READTOPEX 
              if (abs(tpobs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_readtopex.F 182 COST_READTOPEX 
                 tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 186 COST_READTOPEX 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readtopex.F 187 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 191 COST_READTOPEX 
              if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readtopex.F 192 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 196 COST_READTOPEX 
              tpmask(i,j,bi,bj) = tpmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopex.F 197 COST_READTOPEX 
              tpobs(i,j,bi,bj)  = tpmask(i,j,bi,bj)*factor*
./pkg/ecco/cost_readtopex.F 198 COST_READTOPEX 
     &             ( tpobs(i,j,bi,bj) -
./pkg/ecco/cost_readtopex.F 46 COST_READTOPEX 
      integer bi,bj
./pkg/ecco/cost_readtopexmean.F 101 COST_READTOPEXMEAN 
              mdtmask(i,j,bi,bj) = mdtmask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_readtopexmean.F 102 COST_READTOPEXMEAN 
              mdt(i,j,bi,bj) = mdt(i,j,bi,bj)*
./pkg/ecco/cost_readtopexmean.F 103 COST_READTOPEXMEAN 
     &                            mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_readtopexmean.F 47 COST_READTOPEXMEAN 
      integer bi,bj
./pkg/ecco/cost_readtopexmean.F 73 COST_READTOPEXMEAN 
      do bj = jtlo,jthi
./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 
                mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 81 COST_READTOPEXMEAN 
                mdtmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopexmean.F 83 COST_READTOPEXMEAN 
              if (mdt(i,j,bi,bj) .lt. spval) then
./pkg/ecco/cost_readtopexmean.F 84 COST_READTOPEXMEAN 
                mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 86 COST_READTOPEXMEAN 
              if (mdt(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readtopexmean.F 87 COST_READTOPEXMEAN 
                 mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 91 COST_READTOPEXMEAN 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_readtopexmean.F 92 COST_READTOPEXMEAN 
                mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 96 COST_READTOPEXMEAN 
              if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_readtopexmean.F 97 COST_READTOPEXMEAN 
                mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_salt.F 119 COST_SALT 
            do bj = jtlo,jthi
./pkg/ecco/cost_salt.F 124 COST_SALT 
                          sbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_salt.F 138 COST_SALT 
            do bj = jtlo,jthi
./pkg/ecco/cost_salt.F 143 COST_SALT 
                          sbar_gen(i,j,k,bi,bj) =sbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_salt.F 144 COST_SALT 
     $                             +sbar(i,j,k,bi,bj)/float(nyears)
./pkg/ecco/cost_salt.F 170 COST_SALT 
        do bj = jtlo,jthi
./pkg/ecco/cost_salt.F 180 COST_SALT 
                  cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt.F 181 COST_SALT 
                  if (sdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_salt.F 183 COST_SALT 
                  else if (sdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_salt.F 185 COST_SALT 
                  else if (sdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_salt.F 195 COST_SALT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_salt.F 197 COST_SALT 
     &                    (wsaltLev(i,j,k,bi,bj)*cmask(i,j)*
./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 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))   )
./pkg/ecco/cost_salt.F 200 COST_SALT 
                     if ( wsaltLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_salt.F 201 COST_SALT 
     &                    num_salt(bi,bj) = num_salt(bi,bj) + 1. _d 0
./pkg/ecco/cost_salt.F 202 COST_SALT 
                     diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_salt.F 203 COST_SALT 
     &                    (wsaltLev(i,j,k,bi,bj)*cmask(i,j)*
./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 205 COST_SALT 
     &                    (sbar(i,j,k,bi,bj) - sdat(i,j,k,bi,bj))   )
./pkg/ecco/cost_salt.F 207 COST_SALT 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_salt.F 216 COST_SALT 
            objf_salt(bi,bj) = objf_salt(bi,bj) + fctile
./pkg/ecco/cost_salt.F 58 COST_SALT 
      integer bi,bj
./pkg/ecco/cost_salt0.F 110 COST_SALT0 
        do bj = jtlo,jthi
./pkg/ecco/cost_salt0.F 119 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F 120 COST_SALT0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 122 COST_SALT0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_salt0.F 123 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 125 COST_SALT0 
     &                 + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt0.F 130 COST_SALT0 
                  if ( wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_salt0.F 131 COST_SALT0 
     &                 num_salt0(bi,bj) = num_salt0(bi,bj) + 1. _d 0
./pkg/ecco/cost_salt0.F 137 COST_SALT0 
            objf_salt0(bi,bj) = objf_salt0(bi,bj) + fctile
./pkg/ecco/cost_salt0.F 152 COST_SALT0 
        do bj = jtlo,jthi
./pkg/ecco/cost_salt0.F 159 COST_SALT0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt0.F 161 COST_SALT0 
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 162 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 163 COST_SALT0 
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 164 COST_SALT0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_salt0.F 165 COST_SALT0 
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_salt0.F 166 COST_SALT0 
     &                *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_salt0.F 167 COST_SALT0 
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_salt0.F 168 COST_SALT0 
     &                *maskS(i,j+1,k,bi,bj)
./pkg/ecco/cost_salt0.F 169 COST_SALT0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_salt0.F 170 COST_SALT0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_salt0.F 172 COST_SALT0 
     &               + wsaltLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt0.F 180 COST_SALT0 
            objf_salt0smoo(bi,bj) = objf_salt0smoo(bi,bj) + fctile
./pkg/ecco/cost_salt0.F 52 COST_SALT0 
      integer bi,bj
./pkg/ecco/cost_salt_ini_fin.F 100 COST_SALT_INI_FIN 
        do bj = jtlo,jthi
./pkg/ecco/cost_salt_ini_fin.F 109 COST_SALT_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_salt_ini_fin.F 110 COST_SALT_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - salt(i,j,k,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 112 COST_SALT_INI_FIN 
     &                 + wsalt(k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_salt_ini_fin.F 119 COST_SALT_INI_FIN 
            objf_salt_ini_fin(bi,bj) =
./pkg/ecco/cost_salt_ini_fin.F 120 COST_SALT_INI_FIN 
     &           objf_salt_ini_fin(bi,bj) + fctile
./pkg/ecco/cost_salt_ini_fin.F 129 COST_SALT_INI_FIN 
     &        ' cost_salt_ini_fin: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_salt_ini_fin.F 44 COST_SALT_INI_FIN 
      integer bi,bj
./pkg/ecco/cost_scat.F 132 COST_SCAT 
        do bj = jtlo,jthi
./pkg/ecco/cost_scat.F 137 COST_SCAT 
     &           *(tauxbar(i,j,bi,bj)+tauxbar(i+1,j,bi,bj))
./pkg/ecco/cost_scat.F 139 COST_SCAT 
     &           *(tauybar(i,j,bi,bj)+tauybar(i,j+1,bi,bj))
./pkg/ecco/cost_scat.F 140 COST_SCAT 
                tmpU(i,j,bi,bj) = angleCosC(i,j,bi,bj)*uBarC
./pkg/ecco/cost_scat.F 141 COST_SCAT 
     &                           -angleSinC(i,j,bi,bj)*vBarC
./pkg/ecco/cost_scat.F 142 COST_SCAT 
                tmpV(i,j,bi,bj) = angleSinC(i,j,bi,bj)*uBarC
./pkg/ecco/cost_scat.F 143 COST_SCAT 
     &                           +angleCosC(i,j,bi,bj)*vBarC
./pkg/ecco/cost_scat.F 150 COST_SCAT 
        do bj = jtlo,jthi
./pkg/ecco/cost_scat.F 164 COST_SCAT 
                tauxbar(i,j,bi,bj)=tmpU(i,j,bi,bj)
./pkg/ecco/cost_scat.F 165 COST_SCAT 
                if (maskW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_scat.F 167 COST_SCAT 
     &                  wscatx(i,j,bi,bj)*cosphi(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 
     &                    (tauxbar(i,j,bi,bj)-scatxdat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F 170 COST_SCAT 
     &                           scatxmask(i,j,bi,bj) )
./pkg/ecco/cost_scat.F 171 COST_SCAT 
                   if ( wscatx(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_scat.F 172 COST_SCAT 
     &                  scatxmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_scat.F 173 COST_SCAT 
     &                  num_scatx(bi,bj)  = num_scatx(bi,bj) + 1. _d 0
./pkg/ecco/cost_scat.F 184 COST_SCAT 
                tauybar(i,j,bi,bj)=tmpV(i,j,bi,bj)
./pkg/ecco/cost_scat.F 185 COST_SCAT 
                if (maskS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_scat.F 187 COST_SCAT 
     &                  wscaty(i,j,bi,bj)*cosphi(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 
     &                    (tauybar(i,j,bi,bj)-scatydat(i,j,bi,bj))*
./pkg/ecco/cost_scat.F 190 COST_SCAT 
     &                           scatymask(i,j,bi,bj) )
./pkg/ecco/cost_scat.F 191 COST_SCAT 
                   if ( wscaty(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_scat.F 192 COST_SCAT 
     &                  scatymask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_scat.F 193 COST_SCAT 
     &                  num_scaty(bi,bj)  = num_scaty(bi,bj) + 1. _d 0
./pkg/ecco/cost_scat.F 200 COST_SCAT 
            objf_scatx(bi,bj)  = objf_scatx(bi,bj)  + fctile_scatx
./pkg/ecco/cost_scat.F 202 COST_SCAT 
            objf_scaty(bi,bj)  = objf_scaty(bi,bj)  + fctile_scaty
./pkg/ecco/cost_scat.F 210 COST_SCAT 
     &        ' cost_scat: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_scat.F 49 COST_SCAT 
      integer bi,bj
./pkg/ecco/cost_sigmar.F 121 COST_SIGMAR 
            do bj = jtlo,jthi
./pkg/ecco/cost_sigmar.F 126 COST_SIGMAR 
                          sigmaRbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_sigmar.F 140 COST_SIGMAR 
            do bj = jtlo,jthi
./pkg/ecco/cost_sigmar.F 145 COST_SIGMAR 
                           sigmaRbar_gen(i,j,k,bi,bj) =
./pkg/ecco/cost_sigmar.F 146 COST_SIGMAR 
     $                           sigmaRbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_sigmar.F 147 COST_SIGMAR 
     $                          +sigmaRbar(i,j,k,bi,bj)/float(nyears)
./pkg/ecco/cost_sigmar.F 163 COST_SIGMAR 
        do bj = jtlo,jthi
./pkg/ecco/cost_sigmar.F 173 COST_SIGMAR 
                  cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_sigmar.F 174 COST_SIGMAR 
                  if (sigmaRdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sigmar.F 176 COST_SIGMAR 
                  else if (sigmaRdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_sigmar.F 178 COST_SIGMAR 
                  else if (sigmaRdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_sigmar.F 188 COST_SIGMAR 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_sigmar.F 190 COST_SIGMAR 
     &                (wsigmaRLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_sigmar.F 191 COST_SIGMAR 
     &                (sigmaRbar(i,j,k,bi,bj) - sigmaRdat(i,j,k,bi,bj))*
./pkg/ecco/cost_sigmar.F 192 COST_SIGMAR 
     &                (sigmaRbar(i,j,k,bi,bj) - sigmaRdat(i,j,k,bi,bj)))
./pkg/ecco/cost_sigmar.F 193 COST_SIGMAR 
                     if ( wsigmaRLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_sigmar.F 194 COST_SIGMAR 
     &                   num_sigmaR(bi,bj) = num_sigmaR(bi,bj) + 1. _d 0
./pkg/ecco/cost_sigmar.F 209 COST_SIGMAR 
            objf_sigmaR(bi,bj) = objf_sigmaR(bi,bj) + fctile
./pkg/ecco/cost_sigmar.F 59 COST_SIGMAR 
      integer bi,bj
./pkg/ecco/cost_sla_read.F 125 COST_SLA_READ 
       do bj = jtlo,jthi
./pkg/ecco/cost_sla_read.F 129 COST_SLA_READ 
            sla_obs(i,j,bi,bj) = spval
./pkg/ecco/cost_sla_read.F 137 COST_SLA_READ 
      do bj = jtlo,jthi
./pkg/ecco/cost_sla_read.F 142 COST_SLA_READ 
              if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_sla_read.F 143 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 145 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sla_read.F 147 COST_SLA_READ 
              if (sla_obs(i,j,bi,bj) .le. spval) then
./pkg/ecco/cost_sla_read.F 148 COST_SLA_READ 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 150 COST_SLA_READ 
              if (abs(sla_obs(i,j,bi,bj)) .lt. 1.d-8 ) then
./pkg/ecco/cost_sla_read.F 151 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 155 COST_SLA_READ 
              if ( R_low(i,j,bi,bj) .GT. -200. ) then
./pkg/ecco/cost_sla_read.F 156 COST_SLA_READ 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 160 COST_SLA_READ 
              if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_sla_read.F 161 COST_SLA_READ 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 165 COST_SLA_READ 
              sla_mask(i,j,bi,bj) = sla_mask(i,j,bi,bj)*frame(i,j)
./pkg/ecco/cost_sla_read.F 166 COST_SLA_READ 
              sla_obs(i,j,bi,bj)  = sla_mask(i,j,bi,bj)*factor*
./pkg/ecco/cost_sla_read.F 167 COST_SLA_READ 
     &             ( sla_obs(i,j,bi,bj) -
./pkg/ecco/cost_sla_read.F 43 COST_SLA_READ 
      integer bi,bj
./pkg/ecco/cost_sla_read_yd.F 115 COST_SLA_READ_YD 
      do bj = jtlo,jthi
./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 
              if ( abs(YC(i,j,bi,bj)) .GT. 66. ) then
./pkg/ecco/cost_sla_read_yd.F 140 COST_SLA_READ_YD 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 144 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 145 COST_SLA_READ_YD 
              sla_obs(i,j,bi,bj)  = sla_mask(i,j,bi,bj)*factor*
./pkg/ecco/cost_sla_read_yd.F 146 COST_SLA_READ_YD 
     &             sla_obs(i,j,bi,bj)
./pkg/ecco/cost_sla_read_yd.F 155 COST_SLA_READ_YD 
      do bj = jtlo,jthi
./pkg/ecco/cost_sla_read_yd.F 159 COST_SLA_READ_YD 
                 sla_obs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 160 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 52 COST_SLA_READ_YD 
      integer bi,bj
./pkg/ecco/cost_ssh.F 126 COST_SSH 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh.F 130 COST_SSH 
              psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh.F 147 COST_SSH 
        do bj = jtlo,jthi
./pkg/ecco/cost_ssh.F 151 COST_SSH 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_ssh.F 152 COST_SSH 
     &                psbar(i,j,bi,bj)/
./pkg/ecco/cost_ssh.F 167 COST_SSH 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh.F 172 COST_SSH 
     &                     mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_ssh.F 173 COST_SSH 
     &                     (mdt(i,j,bi,bj) - psmean(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 175 COST_SSH 
     &                     mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 205 COST_SSH 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh.F 209 COST_SSH 
              prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 258 COST_SSH 
        do bj = jtlo,jthi
./pkg/ecco/cost_ssh.F 265 COST_SSH 
                wwwtp(i,j) = wtp(i,j,bi,bj) *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 267 COST_SSH 
                junk       = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 268 COST_SSH 
     &                         tpobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 269 COST_SSH 
     &                       *tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 270 COST_SSH 
                objf_tp(bi,bj) = objf_tp(bi,bj)
./pkg/ecco/cost_ssh.F 273 COST_SSH 
     &               num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 275 COST_SSH 
                if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 276 COST_SSH 
     &                  *wp(i,j,bi,bj)*wwwtp(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F 277 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 278 COST_SSH 
     &                 (tpobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F 279 COST_SSH 
                objf_tp(bi,bj) = objf_tp(bi,bj)
./pkg/ecco/cost_ssh.F 280 COST_SSH 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp(i,j) )
./pkg/ecco/cost_ssh.F 281 COST_SSH 
                num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 292 COST_SSH 
                wwwers(i,j) = wers(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 294 COST_SSH 
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 295 COST_SSH 
     &                         ersobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 296 COST_SSH 
     &                        *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 297 COST_SSH 
                objf_ers(bi,bj) = objf_ers(bi,bj)
./pkg/ecco/cost_ssh.F 300 COST_SSH 
     &               num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 302 COST_SSH 
                if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 303 COST_SSH 
     &                  *wp(i,j,bi,bj)*wwwers(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F 304 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 305 COST_SSH 
     &                 (ersobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F 306 COST_SSH 
                objf_ers(bi,bj) = objf_ers(bi,bj)
./pkg/ecco/cost_ssh.F 307 COST_SSH 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers(i,j) )
./pkg/ecco/cost_ssh.F 308 COST_SSH 
                num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 319 COST_SSH 
                wwwgfo(i,j) = wgfo(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 321 COST_SSH 
                junk        = ((psbar(i,j,bi,bj) - psmean(i,j,bi,bj)) -
./pkg/ecco/cost_ssh.F 322 COST_SSH 
     &                         gfoobs(i,j,bi,bj))
./pkg/ecco/cost_ssh.F 323 COST_SSH 
     &                        *gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 324 COST_SSH 
                objf_gfo(bi,bj) = objf_gfo(bi,bj)
./pkg/ecco/cost_ssh.F 327 COST_SSH 
     &               num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 329 COST_SSH 
                if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh.F 330 COST_SSH 
     &                  *wp(i,j,bi,bj)*wwwgfo(i,j) .ne.0.) then
./pkg/ecco/cost_ssh.F 331 COST_SSH 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh.F 332 COST_SSH 
     &                 (gfoobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh.F 333 COST_SSH 
                objf_gfo(bi,bj) = objf_gfo(bi,bj)
./pkg/ecco/cost_ssh.F 334 COST_SSH 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo(i,j) )
./pkg/ecco/cost_ssh.F 335 COST_SSH 
                num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 348 COST_SSH 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh.F 350 COST_SSH 
          objf_h(bi,bj) = objf_h(bi,bj) +
./pkg/ecco/cost_ssh.F 351 COST_SSH 
     &        objf_tp(bi,bj) + objf_ers(bi,bj) + objf_gfo(bi,bj)
./pkg/ecco/cost_ssh.F 352 COST_SSH 
          num_h(bi,bj) = num_h(bi,bj) +
./pkg/ecco/cost_ssh.F 353 COST_SSH 
     &        num_tp(bi,bj) + num_ers(bi,bj) + num_gfo(bi,bj)
./pkg/ecco/cost_ssh.F 62 COST_SSH 
      integer bi,bj
./pkg/ecco/cost_ssh_mean.F 117 COST_SSH_MEAN 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh_mean.F 121 COST_SSH_MEAN 
               if ( mdtmask(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 
     &           mdt(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 136 COST_SSH_MEAN 
      do bj = jtlo,jthi
./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 183 COST_SSH_MEAN 
        do bj = jtlo,jthi
./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 234 COST_SSH_MEAN 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh_mean.F 238 COST_SSH_MEAN 
              diff = psmean(i,j,bi,bj) - mdt(i,j,bi,bj) + offset
./pkg/ecco/cost_ssh_mean.F 240 COST_SSH_MEAN 
     &                    * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 241 COST_SSH_MEAN 
              if ( wp(i,j,bi,bj)*mdtmask(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)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 262 COST_SSH_MEAN 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh_mean.F 266 COST_SSH_MEAN 
              diff = psmean(i,j,bi,bj) - mdt(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 267 COST_SSH_MEAN 
              sumC0 = sumC0 + wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 269 COST_SSH_MEAN 
     &                      * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 271 COST_SSH_MEAN 
     &                      * wp(i,j,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 272 COST_SSH_MEAN 
              if ( wp(i,j,bi,bj)*mdtmask(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)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_mean.F 66 COST_SSH_MEAN 
      integer bi,bj
./pkg/ecco/cost_ssh_new.F 129 COST_SSH_NEW 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh_new.F 133 COST_SSH_NEW 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_ssh_new.F 134 COST_SSH_NEW 
              psmeantp(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 135 COST_SSH_NEW 
              psmeaners(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 136 COST_SSH_NEW 
              psmeangfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 137 COST_SSH_NEW 
              sumtp(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 138 COST_SSH_NEW 
              sumers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 139 COST_SSH_NEW 
              sumgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 140 COST_SSH_NEW 
              wwwtp1(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 141 COST_SSH_NEW 
              wwwers1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 142 COST_SSH_NEW 
              wwwgfo1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 143 COST_SSH_NEW 
              wwwtp2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 144 COST_SSH_NEW 
              wwwers2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 145 COST_SSH_NEW 
              wwwgfo2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 178 COST_SSH_NEW 
        do bj = jtlo,jthi
./pkg/ecco/cost_ssh_new.F 182 COST_SSH_NEW 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 183 COST_SSH_NEW 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_ssh_new.F 185 COST_SSH_NEW 
                if ( tpmask(i,j,bi,bj)*wtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 187 COST_SSH_NEW 
                   psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 188 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 189 COST_SSH_NEW 
                   sumtp(i,j,bi,bj) = sumtp(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 193 COST_SSH_NEW 
                if ( ersmask(i,j,bi,bj)*wers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 195 COST_SSH_NEW 
                   psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 196 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 197 COST_SSH_NEW 
                   sumers(i,j,bi,bj) = sumers(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 201 COST_SSH_NEW 
                if ( gfomask(i,j,bi,bj)*wgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 203 COST_SSH_NEW 
                   psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) +
./pkg/ecco/cost_ssh_new.F 204 COST_SSH_NEW 
     &                 psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 205 COST_SSH_NEW 
                   sumgfo(i,j,bi,bj) = sumgfo(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 216 COST_SSH_NEW 
        do bj = jtlo,jthi
./pkg/ecco/cost_ssh_new.F 221 COST_SSH_NEW 
               if ( sumtp(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 222 COST_SSH_NEW 
                  psmeantp(i,j,bi,bj) = psmeantp(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F 223 COST_SSH_NEW 
     &                 sumtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 224 COST_SSH_NEW 
                  wwwtp1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 228 COST_SSH_NEW 
               if ( sumers(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 229 COST_SSH_NEW 
                  psmeaners(i,j,bi,bj) = psmeaners(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F 230 COST_SSH_NEW 
     &                 sumers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 231 COST_SSH_NEW 
                  wwwers1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 235 COST_SSH_NEW 
               if ( sumgfo(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_ssh_new.F 236 COST_SSH_NEW 
                  psmeangfo(i,j,bi,bj) = psmeangfo(i,j,bi,bj) /
./pkg/ecco/cost_ssh_new.F 237 COST_SSH_NEW 
     &                 sumgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 238 COST_SSH_NEW 
                  wwwgfo1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 252 COST_SSH_NEW 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh_new.F 257 COST_SSH_NEW 
     &                     mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)*
./pkg/ecco/cost_ssh_new.F 258 COST_SSH_NEW 
     &                     (mdt(i,j,bi,bj) - psmean(i,j,bi,bj))
./pkg/ecco/cost_ssh_new.F 260 COST_SSH_NEW 
     &                     mdtmask(i,j,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 290 COST_SSH_NEW 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh_new.F 294 COST_SSH_NEW 
              prof_etan_mean(i,j,bi,bj)=offset+psmean(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 341 COST_SSH_NEW 
        do bj = jtlo,jthi
./pkg/ecco/cost_ssh_new.F 348 COST_SSH_NEW 
                wwwtp2(i,j,bi,bj) = wwwtp1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 349 COST_SSH_NEW 
     &                             *wtp(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 350 COST_SSH_NEW 
     &                             *tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 351 COST_SSH_NEW 
     &                             *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 353 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 354 COST_SSH_NEW 
     &                   - psmeantp(i,j,bi,bj) - tpobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 355 COST_SSH_NEW 
                objf_tp(bi,bj) = objf_tp(bi,bj)
./pkg/ecco/cost_ssh_new.F 356 COST_SSH_NEW 
     &              + junk*junk*wwwtp2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 357 COST_SSH_NEW 
                if ( wwwtp2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F 358 COST_SSH_NEW 
     &               num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 360 COST_SSH_NEW 
                if (mdtmask(i,j,bi,bj)*tpmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 361 COST_SSH_NEW 
     &                  *wp(i,j,bi,bj)*wwwtp2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F 362 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 363 COST_SSH_NEW 
     &                 (tpobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F 364 COST_SSH_NEW 
                objf_tp(bi,bj) = objf_tp(bi,bj)
./pkg/ecco/cost_ssh_new.F 365 COST_SSH_NEW 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwtp2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 366 COST_SSH_NEW 
                num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 377 COST_SSH_NEW 
                wwwers2(i,j,bi,bj) = wwwers1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 378 COST_SSH_NEW 
     &                              *wers(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 379 COST_SSH_NEW 
     &                              *ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 380 COST_SSH_NEW 
     &                              *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 382 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 383 COST_SSH_NEW 
     &                   - psmeaners(i,j,bi,bj) - ersobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 384 COST_SSH_NEW 
                objf_ers(bi,bj) = objf_ers(bi,bj)
./pkg/ecco/cost_ssh_new.F 385 COST_SSH_NEW 
     &              + junk*junk*wwwers2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 386 COST_SSH_NEW 
                if ( wwwers2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F 387 COST_SSH_NEW 
     &               num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 389 COST_SSH_NEW 
                if (mdtmask(i,j,bi,bj)*ersmask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 390 COST_SSH_NEW 
     &                  *wp(i,j,bi,bj)*wwwers2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F 391 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 392 COST_SSH_NEW 
     &                 (ersobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F 393 COST_SSH_NEW 
                objf_ers(bi,bj) = objf_ers(bi,bj)
./pkg/ecco/cost_ssh_new.F 394 COST_SSH_NEW 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwers2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 395 COST_SSH_NEW 
                num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 406 COST_SSH_NEW 
                wwwgfo2(i,j,bi,bj) = wwwgfo1(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 407 COST_SSH_NEW 
     &                        *wgfo(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 408 COST_SSH_NEW 
     &                        *gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 409 COST_SSH_NEW 
     &                        *cosphi(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 411 COST_SSH_NEW 
                junk = ( psbar(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 412 COST_SSH_NEW 
     &                   - psmeangfo(i,j,bi,bj) - gfoobs(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 413 COST_SSH_NEW 
                objf_gfo(bi,bj) = objf_gfo(bi,bj)
./pkg/ecco/cost_ssh_new.F 414 COST_SSH_NEW 
     &              + junk*junk*wwwgfo2(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 415 COST_SSH_NEW 
                if ( wwwgfo2(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_ssh_new.F 416 COST_SSH_NEW 
     &               num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 418 COST_SSH_NEW 
                if (mdtmask(i,j,bi,bj)*gfomask(i,j,bi,bj)
./pkg/ecco/cost_ssh_new.F 419 COST_SSH_NEW 
     &                  *wp(i,j,bi,bj)*wwwgfo2(i,j,bi,bj) .ne.0.) then
./pkg/ecco/cost_ssh_new.F 420 COST_SSH_NEW 
                junk       = ( psbar(i,j,bi,bj) -
./pkg/ecco/cost_ssh_new.F 421 COST_SSH_NEW 
     &                 (gfoobs(i,j,bi,bj)+mdt(i,j,bi,bj)-offset) )
./pkg/ecco/cost_ssh_new.F 422 COST_SSH_NEW 
                objf_gfo(bi,bj) = objf_gfo(bi,bj)
./pkg/ecco/cost_ssh_new.F 423 COST_SSH_NEW 
     &              +junk*junk/( 1/wp(i,j,bi,bj)+1/wwwgfo2(i,j,bi,bj) )
./pkg/ecco/cost_ssh_new.F 424 COST_SSH_NEW 
                num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 437 COST_SSH_NEW 
      do bj = jtlo,jthi
./pkg/ecco/cost_ssh_new.F 439 COST_SSH_NEW 
          objf_h(bi,bj) = objf_h(bi,bj) +
./pkg/ecco/cost_ssh_new.F 440 COST_SSH_NEW 
     &        objf_tp(bi,bj) + objf_ers(bi,bj) + objf_gfo(bi,bj)
./pkg/ecco/cost_ssh_new.F 441 COST_SSH_NEW 
          num_h(bi,bj) = num_h(bi,bj) +
./pkg/ecco/cost_ssh_new.F 442 COST_SSH_NEW 
     &        num_tp(bi,bj) + num_ers(bi,bj) + num_gfo(bi,bj)
./pkg/ecco/cost_ssh_new.F 62 COST_SSH_NEW 
      integer bi,bj
./pkg/ecco/cost_sshv4.F 1000 COST_SSHV4 
     &                objf_sshv4cost(4,bi,bj)
./pkg/ecco/cost_sshv4.F 1003 COST_SSHV4 
     &                num_sshv4cost(4,bi,bj) =
./pkg/ecco/cost_sshv4.F 1004 COST_SSHV4 
     &                num_sshv4cost(4,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 1021 COST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 1024 COST_SSHV4 
           objf_h(bi,bj) = objf_h(bi,bj)
./pkg/ecco/cost_sshv4.F 1025 COST_SSHV4 
     &                   + objf_sshv4cost(num_var,bi,bj)
./pkg/ecco/cost_sshv4.F 1026 COST_SSHV4 
           num_h(bi,bj) = num_h(bi,bj)
./pkg/ecco/cost_sshv4.F 1027 COST_SSHV4 
     &                   + num_sshv4cost(num_var,bi,bj)
./pkg/ecco/cost_sshv4.F 210 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 214 COST_SSHV4 
              mean_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 215 COST_SSHV4 
              mean_slaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 238 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 243 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 244 COST_SSHV4 
     &    wsshv4(i,j,2,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 245 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 246 COST_SSHV4 
     &  tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 247 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 251 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 252 COST_SSHV4 
     &    wsshv4(i,j,3,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 253 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 254 COST_SSHV4 
     &  ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 255 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 259 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mdtmask(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 260 COST_SSHV4 
     &    wsshv4(i,j,4,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 261 COST_SSHV4 
          mean_slaobs(i,j,bi,bj)= mean_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 262 COST_SSHV4 
     &  gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 263 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 274 COST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 278 COST_SSHV4 
               if ( ( mean_slaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 279 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 280 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_sshv4.F 281 COST_SSHV4 
     &              ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 282 COST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = mean_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 283 COST_SSHV4 
     &                 mean_slaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 285 COST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 310 COST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 314 COST_SSHV4 
               if ( ( mdtmask(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 315 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 316 COST_SSHV4 
                  mdt(i,j,bi,bj) = mdt(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 317 COST_SSHV4 
     &                 -mean_slaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 334 COST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 339 COST_SSHV4 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_sshv4.F 340 COST_SSHV4 
              mean_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 341 COST_SSHV4 
              mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 342 COST_SSHV4 
              mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 343 COST_SSHV4 
              mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 344 COST_SSHV4 
              mean_slaobs2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 346 COST_SSHV4 
              mean_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 347 COST_SSHV4 
              mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 348 COST_SSHV4 
              mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 349 COST_SSHV4 
              mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 351 COST_SSHV4 
              mean_psMtpobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 352 COST_SSHV4 
              mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 353 COST_SSHV4 
              mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 388 COST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 392 COST_SSHV4 
                psmean(i,j,bi,bj) = psmean(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 393 COST_SSHV4 
     &                psbar(i,j,bi,bj) / float(ndaysrec)
./pkg/ecco/cost_sshv4.F 395 COST_SSHV4 
                if ( tpmask(i,j,bi,bj)*wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F 397 COST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 398 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 399 COST_SSHV4 
                   mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 400 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 401 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 402 COST_SSHV4 
                   mean_psMtpobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 403 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 407 COST_SSHV4 
                if ( ersmask(i,j,bi,bj)*wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F 409 COST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 410 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 411 COST_SSHV4 
                   mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 412 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 413 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 414 COST_SSHV4 
                   mean_psMersobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 415 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 419 COST_SSHV4 
                if ( gfomask(i,j,bi,bj)*wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F 421 COST_SSHV4 
                   mean_slaobs2(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 422 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj)+gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 423 COST_SSHV4 
                   mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 424 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 425 COST_SSHV4 
     &                 psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 426 COST_SSHV4 
                   mean_psMgfoobs_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 427 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 438 COST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 443 COST_SSHV4 
               if ( mean_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 444 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 445 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 446 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 447 COST_SSHV4 
                  mean_psMssh_all_NUM(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_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 450 COST_SSHV4 
                  mean_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 451 COST_SSHV4 
     &                 mean_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 452 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 453 COST_SSHV4 
                  mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 457 COST_SSHV4 
               if ( mean_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 458 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 459 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 460 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 461 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 462 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 463 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 464 COST_SSHV4 
                  mean_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 465 COST_SSHV4 
     &                 mean_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 466 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 467 COST_SSHV4 
                  mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 471 COST_SSHV4 
               if ( mean_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 472 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 473 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 474 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 475 COST_SSHV4 
                  mean_psMssh_all_NUM(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 476 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj) +
./pkg/ecco/cost_sshv4.F 477 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 478 COST_SSHV4 
                  mean_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 479 COST_SSHV4 
     &                 mean_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 480 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 481 COST_SSHV4 
                  mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 484 COST_SSHV4 
               if ( ( mean_psMssh_all_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 485 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 486 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ).AND.
./pkg/ecco/cost_sshv4.F 487 COST_SSHV4 
     &              ( mdtmask(i,j,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 488 COST_SSHV4 
                  mean_slaobs2(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 489 COST_SSHV4 
     &                 mean_slaobs2(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 490 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 491 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 492 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 493 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)-mdt(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 494 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 495 COST_SSHV4 
                  offset=offset+mean_psMssh_all(i,j,bi,bj)*
./pkg/ecco/cost_sshv4.F 496 COST_SSHV4 
     &                 mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 497 COST_SSHV4 
                  offset_sum=offset_sum+mean_psMssh_all_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 499 COST_SSHV4 
                  mean_slaobs2(i,j,bi,bj) = 0.d0
./pkg/ecco/cost_sshv4.F 500 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 501 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 532 COST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 537 COST_SSHV4 
               if ( (mean_psMssh_all_MSK(i,j,bi,bj) .NE. 0.) .AND.
./pkg/ecco/cost_sshv4.F 538 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 539 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .LE. 66. ) ) then
./pkg/ecco/cost_sshv4.F 541 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 542 COST_SSHV4 
     &                 mean_psMssh_all(i,j,bi,bj) - offset
./pkg/ecco/cost_sshv4.F 543 COST_SSHV4 
               elseif ( ( mdtmask(i,j,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 544 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) .AND.
./pkg/ecco/cost_sshv4.F 545 COST_SSHV4 
     &              ( abs(YC(i,j,bi,bj)) .GT. 66. ) ) then
./pkg/ecco/cost_sshv4.F 547 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 548 COST_SSHV4 
     &             psmean(i,j,bi,bj) -mdt(i,j,bi,bj) - offset
./pkg/ecco/cost_sshv4.F 550 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 553 COST_SSHV4 
               if ( maskc(i,j,1,bi,bj) .NE. 0. )
./pkg/ecco/cost_sshv4.F 554 COST_SSHV4 
     &            psmean(i,j,bi,bj)=psmean(i,j,bi,bj)-offset
./pkg/ecco/cost_sshv4.F 597 COST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 601 COST_SSHV4 
              prof_etan_mean(i,j,bi,bj)=psmean(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 618 COST_SSHV4 
      do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 622 COST_SSHV4 
       junk = mean_psMssh_all(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 623 COST_SSHV4 
       objf_sshv4cost(1,bi,bj) = objf_sshv4cost(1,bi,bj) + junk*junk
./pkg/ecco/cost_sshv4.F 624 COST_SSHV4 
     &      *wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 625 COST_SSHV4 
       if ( wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj) .ne. 0. )
./pkg/ecco/cost_sshv4.F 626 COST_SSHV4 
     &      num_sshv4cost(1,bi,bj) = num_sshv4cost(1,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 627 COST_SSHV4 
       diagnosfld(i,j,bi,bj) = junk*junk
./pkg/ecco/cost_sshv4.F 628 COST_SSHV4 
     &      * wsshv4(i,j,1,bi,bj)*mdtmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 651 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 655 COST_SSHV4 
              anom_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 656 COST_SSHV4 
              anom_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 657 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 658 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 659 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 660 COST_SSHV4 
              anom_psMslaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 661 COST_SSHV4 
              anom_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 662 COST_SSHV4 
              anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 663 COST_SSHV4 
              anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 68 COST_SSHV4 
      integer bi,bj
./pkg/ecco/cost_sshv4.F 699 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 704 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 706 COST_SSHV4 
           anom_psMtpobs(i,j,bi,bj)= anom_psMtpobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 707 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 708 COST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 709 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 710 COST_SSHV4 
     &        psbar(i,j,bi,bj)-tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 711 COST_SSHV4 
     &        -mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 712 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 713 COST_SSHV4 
     &        tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 714 COST_SSHV4 
           anom_psMtpobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 715 COST_SSHV4 
     &        anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 716 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 717 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 721 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 723 COST_SSHV4 
           anom_psMersobs(i,j,bi,bj)= anom_psMersobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 724 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 725 COST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 726 COST_SSHV4 
           anom_psMersobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 727 COST_SSHV4 
     &        anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 728 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 729 COST_SSHV4 
     &        psbar(i,j,bi,bj)-ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 730 COST_SSHV4 
     &        -mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 731 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 732 COST_SSHV4 
     &        ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 733 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 734 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 738 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 740 COST_SSHV4 
           anom_psMgfoobs(i,j,bi,bj)= anom_psMgfoobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 741 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 742 COST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 743 COST_SSHV4 
           anom_psMgfoobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 744 COST_SSHV4 
     &        anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 745 COST_SSHV4 
           anom_psMslaobs(i,j,bi,bj)= anom_psMslaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 746 COST_SSHV4 
     &        psbar(i,j,bi,bj)-gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 747 COST_SSHV4 
     &        -mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 748 COST_SSHV4 
           anom_slaobs(i,j,bi,bj)= anom_slaobs(i,j,bi,bj)+
./pkg/ecco/cost_sshv4.F 749 COST_SSHV4 
     &        gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 750 COST_SSHV4 
           anom_psMslaobs_NUM(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 751 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 761 COST_SSHV4 
        do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 766 COST_SSHV4 
               if ( anom_psMtpobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 767 COST_SSHV4 
                  anom_psMtpobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 768 COST_SSHV4 
     &                 anom_psMtpobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 769 COST_SSHV4 
     &                 anom_psMtpobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 773 COST_SSHV4 
               if ( anom_psMersobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 774 COST_SSHV4 
                  anom_psMersobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 775 COST_SSHV4 
     &                 anom_psMersobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 776 COST_SSHV4 
     &                 anom_psMersobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 780 COST_SSHV4 
               if ( anom_psMgfoobs_NUM(i,j,bi,bj) .NE. 0. ) then
./pkg/ecco/cost_sshv4.F 781 COST_SSHV4 
                  anom_psMgfoobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 782 COST_SSHV4 
     &                 anom_psMgfoobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 783 COST_SSHV4 
     &                 anom_psMgfoobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 786 COST_SSHV4 
               if ( ( anom_psMslaobs_NUM(i,j,bi,bj) .NE. 0. ).AND.
./pkg/ecco/cost_sshv4.F 787 COST_SSHV4 
     &              ( maskc(i,j,1,bi,bj) .NE. 0. ) ) then
./pkg/ecco/cost_sshv4.F 788 COST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 789 COST_SSHV4 
     &                 anom_psMslaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 790 COST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 791 COST_SSHV4 
                  anom_slaobs(i,j,bi,bj) =
./pkg/ecco/cost_sshv4.F 792 COST_SSHV4 
     &                 anom_slaobs(i,j,bi,bj) /
./pkg/ecco/cost_sshv4.F 793 COST_SSHV4 
     &                 anom_psMslaobs_NUM(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 795 COST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 796 COST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 841 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 848 COST_SSHV4 
          junk = anom_psMslaobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 849 COST_SSHV4 
          objf_sshv4cost(5,bi,bj) = objf_sshv4cost(5,bi,bj)
./pkg/ecco/cost_sshv4.F 850 COST_SSHV4 
     &    + junk*junk*wsshv4(i,j,5,bi,bj)*maskc(i,j,1,bi,bj)
./pkg/ecco/cost_sshv4.F 852 COST_SSHV4 
          if ( (wsshv4(i,j,5,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F 853 COST_SSHV4 
     &         (anom_psMslaobs_NUM(i,j,bi,bj).GT.0.).AND.
./pkg/ecco/cost_sshv4.F 854 COST_SSHV4 
     &         (maskc(i,j,1,bi,bj) .ne. 0.) )
./pkg/ecco/cost_sshv4.F 855 COST_SSHV4 
     &         num_sshv4cost(5,bi,bj) = num_sshv4cost(5,bi,bj)
./pkg/ecco/cost_sshv4.F 887 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 891 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 892 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 893 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 894 COST_SSHV4 
              anom_tpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 895 COST_SSHV4 
              anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 896 COST_SSHV4 
              anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 902 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 907 COST_SSHV4 
      if ( tpmask(i,j,bi,bj)*mean_psMtpobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 909 COST_SSHV4 
         anom_psMtpobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 910 COST_SSHV4 
     &       psbar(i,j,bi,bj) - tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 911 COST_SSHV4 
     &       - mean_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 912 COST_SSHV4 
         anom_tpobs(i,j,bi,bj)=tpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 916 COST_SSHV4 
      if ( ersmask(i,j,bi,bj)*mean_psMersobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 918 COST_SSHV4 
         anom_psMersobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 919 COST_SSHV4 
     &       psbar(i,j,bi,bj) - ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 920 COST_SSHV4 
     &       - mean_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 921 COST_SSHV4 
         anom_ersobs(i,j,bi,bj)=ersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 925 COST_SSHV4 
      if ( gfomask(i,j,bi,bj)*mean_psMgfoobs_MSK(i,j,bi,bj).NE.0. )
./pkg/ecco/cost_sshv4.F 927 COST_SSHV4 
         anom_psMgfoobs(i,j,bi,bj)=
./pkg/ecco/cost_sshv4.F 928 COST_SSHV4 
     &       psbar(i,j,bi,bj) - gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 929 COST_SSHV4 
     &       - mean_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 930 COST_SSHV4 
         anom_gfoobs(i,j,bi,bj)=gfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 960 COST_SSHV4 
       do bj = jtlo,jthi
./pkg/ecco/cost_sshv4.F 966 COST_SSHV4 
                junkweight = mean_psMtpobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 967 COST_SSHV4 
     &                      *wsshv4(i,j,2,bi,bj)
./pkg/ecco/cost_sshv4.F 968 COST_SSHV4 
     &                      *tpmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 969 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 970 COST_SSHV4 
                junk = anom_psMtpobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 971 COST_SSHV4 
                objf_sshv4cost(2,bi,bj) =
./pkg/ecco/cost_sshv4.F 972 COST_SSHV4 
     &                objf_sshv4cost(2,bi,bj)
./pkg/ecco/cost_sshv4.F 975 COST_SSHV4 
     &                num_sshv4cost(2,bi,bj) =
./pkg/ecco/cost_sshv4.F 976 COST_SSHV4 
     &                num_sshv4cost(2,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 980 COST_SSHV4 
                junkweight = mean_psMersobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 981 COST_SSHV4 
     &                      *wsshv4(i,j,3,bi,bj)
./pkg/ecco/cost_sshv4.F 982 COST_SSHV4 
     &                      *ersmask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 983 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 984 COST_SSHV4 
                junk = anom_psMersobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 985 COST_SSHV4 
                objf_sshv4cost(3,bi,bj) =
./pkg/ecco/cost_sshv4.F 986 COST_SSHV4 
     &                objf_sshv4cost(3,bi,bj)
./pkg/ecco/cost_sshv4.F 989 COST_SSHV4 
     &                num_sshv4cost(3,bi,bj) =
./pkg/ecco/cost_sshv4.F 990 COST_SSHV4 
     &                num_sshv4cost(3,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 994 COST_SSHV4 
                junkweight = mean_psMgfoobs_MSK(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 995 COST_SSHV4 
     &                      *wsshv4(i,j,4,bi,bj)
./pkg/ecco/cost_sshv4.F 996 COST_SSHV4 
     &                      *gfomask(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 997 COST_SSHV4 
     &                      *cosphi(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 998 COST_SSHV4 
                junk = anom_psMgfoobs(i,j,bi,bj)
./pkg/ecco/cost_sshv4.F 999 COST_SSHV4 
                objf_sshv4cost(4,bi,bj) =
./pkg/ecco/cost_tau_eddy.F 106 COST_TAU_EDDY 
        do bj = jtlo,jthi
./pkg/ecco/cost_tau_eddy.F 113 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 114 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 117 COST_TAU_EDDY 
     &                 + wedtauxFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F 127 COST_TAU_EDDY 
            objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile
./pkg/ecco/cost_tau_eddy.F 141 COST_TAU_EDDY 
        do bj = jtlo,jthi
./pkg/ecco/cost_tau_eddy.F 148 COST_TAU_EDDY 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_tau_eddy.F 149 COST_TAU_EDDY 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 152 COST_TAU_EDDY 
     &                 + wedtauyFld(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_tau_eddy.F 162 COST_TAU_EDDY 
            objf_eddytau(bi,bj) = objf_eddytau(bi,bj) + fctile
./pkg/ecco/cost_tau_eddy.F 171 COST_TAU_EDDY 
     &        ' cost_tau_eddy: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_tau_eddy.F 218 COST_TAU_EDDY 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/cost_tau_eddy.F 224 COST_TAU_EDDY 
        act2 = bj - myByLo(myThid)
./pkg/ecco/cost_tau_eddy.F 234 COST_TAU_EDDY 
           tau2_temp = ( rhonil*eddyPsiX(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 235 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i-1,j,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F 237 COST_TAU_EDDY 
             locfc = locfc + maskW(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F 240 COST_TAU_EDDY 
           tau2_temp = ( rhonil*eddyPsiY(i,j,k,bi,bj)
./pkg/ecco/cost_tau_eddy.F 241 COST_TAU_EDDY 
     &  *0.5*(_fCori(i,j,bi,bj)+_fCori(i,j-1,bi,bj)) )**2
./pkg/ecco/cost_tau_eddy.F 243 COST_TAU_EDDY 
             locfc = locfc + maskS(i,j,k,bi,bj)*
./pkg/ecco/cost_tau_eddy.F 250 COST_TAU_EDDY 
        objf_eddytau(bi,bj) = locfc
./pkg/ecco/cost_tau_eddy.F 43 COST_TAU_EDDY 
      integer bi,bj
./pkg/ecco/cost_theta.F 119 COST_THETA 
            do bj = jtlo,jthi
./pkg/ecco/cost_theta.F 124 COST_THETA 
                              tbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_theta.F 138 COST_THETA 
            do bj = jtlo,jthi
./pkg/ecco/cost_theta.F 143 COST_THETA 
                           tbar_gen(i,j,k,bi,bj) =tbar_gen(i,j,k,bi,bj)
./pkg/ecco/cost_theta.F 144 COST_THETA 
     $                             +tbar(i,j,k,bi,bj)/float(nyears)
./pkg/ecco/cost_theta.F 170 COST_THETA 
        do bj = jtlo,jthi
./pkg/ecco/cost_theta.F 180 COST_THETA 
                  cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta.F 181 COST_THETA 
                  if (tdat(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/cost_theta.F 183 COST_THETA 
                  else if (tdat(i,j,k,bi,bj) .lt. spval) then
./pkg/ecco/cost_theta.F 185 COST_THETA 
                  else if (tdat(i,j,k,bi,bj) .gt. spmax) then
./pkg/ecco/cost_theta.F 195 COST_THETA 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_theta.F 197 COST_THETA 
     &                    (wthetaLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_theta.F 198 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F 199 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_theta.F 200 COST_THETA 
                     if ( wthetaLev(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_theta.F 201 COST_THETA 
     &                    num_temp(bi,bj) = num_temp(bi,bj) + 1. _d 0
./pkg/ecco/cost_theta.F 202 COST_THETA 
                     diagnosfld3d(i,j,k,bi,bj) =
./pkg/ecco/cost_theta.F 203 COST_THETA 
     &                    (wthetaLev(i,j,k,bi,bj)*cmask(i,j)*
./pkg/ecco/cost_theta.F 204 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj))*
./pkg/ecco/cost_theta.F 205 COST_THETA 
     &                    (tbar(i,j,k,bi,bj) - tdat(i,j,k,bi,bj)) )
./pkg/ecco/cost_theta.F 207 COST_THETA 
                     diagnosfld3d(i,j,k,bi,bj) = 0.
./pkg/ecco/cost_theta.F 216 COST_THETA 
            objf_temp(bi,bj) = objf_temp(bi,bj) + fctile
./pkg/ecco/cost_theta.F 59 COST_THETA 
      integer bi,bj
./pkg/ecco/cost_theta0.F 110 COST_THETA0 
        do bj = jtlo,jthi
./pkg/ecco/cost_theta0.F 119 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 120 COST_THETA0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 122 COST_THETA0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_theta0.F 123 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 125 COST_THETA0 
     &                 + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta0.F 130 COST_THETA0 
                  if ( wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_theta0.F 131 COST_THETA0 
     &                 num_temp0(bi,bj) = num_temp0(bi,bj) + 1. _d 0
./pkg/ecco/cost_theta0.F 137 COST_THETA0 
            objf_temp0(bi,bj) = objf_temp0(bi,bj) + fctile
./pkg/ecco/cost_theta0.F 152 COST_THETA0 
        do bj = jtlo,jthi
./pkg/ecco/cost_theta0.F 159 COST_THETA0 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta0.F 161 COST_THETA0 
     &              ( tmpfld3d(i+2,j,k,bi,bj)-tmpfld3d(i+1,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 162 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)*maskW(i+2,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 163 COST_THETA0 
     &            + ( tmpfld3d(i+1,j,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 164 COST_THETA0 
     &                *maskW(i+1,j,k,bi,bj)
./pkg/ecco/cost_theta0.F 165 COST_THETA0 
     &            + ( tmpfld3d(i,j+2,k,bi,bj)-tmpfld3d(i,j+1,k,bi,bj) )
./pkg/ecco/cost_theta0.F 166 COST_THETA0 
     &                *maskS(i,j+1,k,bi,bj)*maskS(i,j+2,k,bi,bj)
./pkg/ecco/cost_theta0.F 167 COST_THETA0 
     &            + ( tmpfld3d(i,j+1,k,bi,bj)-tmpfld3d(i,j,k,bi,bj) )
./pkg/ecco/cost_theta0.F 168 COST_THETA0 
     &                *maskS(i,j+1,k,bi,bj)
./pkg/ecco/cost_theta0.F 169 COST_THETA0 
                  if ( ABS(R_low(i,j,bi,bj)) .LT. 100. )
./pkg/ecco/cost_theta0.F 170 COST_THETA0 
     &              tmpx = tmpx*ABS(R_low(i,j,bi,bj))/100.
./pkg/ecco/cost_theta0.F 172 COST_THETA0 
     &               + wthetaLev(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta0.F 180 COST_THETA0 
            objf_temp0smoo(bi,bj) = objf_temp0smoo(bi,bj) + fctile
./pkg/ecco/cost_theta0.F 52 COST_THETA0 
      integer bi,bj
./pkg/ecco/cost_theta_ini_fin.F 100 COST_THETA_INI_FIN 
        do bj = jtlo,jthi
./pkg/ecco/cost_theta_ini_fin.F 109 COST_THETA_INI_FIN 
                if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_theta_ini_fin.F 110 COST_THETA_INI_FIN 
                  tmpx = tmpfld3d(i,j,k,bi,bj) - theta(i,j,k,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 112 COST_THETA_INI_FIN 
     &                 + wtheta(k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_theta_ini_fin.F 119 COST_THETA_INI_FIN 
            objf_theta_ini_fin(bi,bj) =
./pkg/ecco/cost_theta_ini_fin.F 120 COST_THETA_INI_FIN 
     &           objf_theta_ini_fin(bi,bj) + fctile
./pkg/ecco/cost_theta_ini_fin.F 129 COST_THETA_INI_FIN 
     &        ' cost_theta_ini_fin: irec,bi,bj          =  ',irec,bi,bj
./pkg/ecco/cost_theta_ini_fin.F 44 COST_THETA_INI_FIN 
      integer bi,bj
./pkg/ecco/cost_trans_merid.F 194 COST_TRANS_MERID 
        do bj = jtlo,jthi
./pkg/ecco/cost_trans_merid.F 199 COST_TRANS_MERID 
                   del_y = yc(i,j,bi,bj)-yc(i,j-1,bi,bj)
./pkg/ecco/cost_trans_merid.F 200 COST_TRANS_MERID 
                   if (  yc(i,j,bi,bj) .ge. ylat(isect) .and.
./pkg/ecco/cost_trans_merid.F 201 COST_TRANS_MERID 
     $                   yc(i,j,bi,bj) .lt. ylat(isect)+del_y .and.
./pkg/ecco/cost_trans_merid.F 202 COST_TRANS_MERID 
     $                   xc(i,j,bi,bj) .ge. beglon(isect) .and.
./pkg/ecco/cost_trans_merid.F 203 COST_TRANS_MERID 
     $                   xc(i,j,bi,bj) .le. endlon(isect) ) then
./pkg/ecco/cost_trans_merid.F 204 COST_TRANS_MERID 
                       tv(isect) = tv(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 205 COST_TRANS_MERID 
     $                     + tbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 206 COST_TRANS_MERID 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F 207 COST_TRANS_MERID 
     &                     * drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 209 COST_TRANS_MERID 
                       sv(isect) = sv(isect) + p5*(sbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 210 COST_TRANS_MERID 
     $                     + sbar(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 211 COST_TRANS_MERID 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F 212 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 214 COST_TRANS_MERID 
                       mv(isect) = mv(isect) + p5*(hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 215 COST_TRANS_MERID 
     $                     + hFacC(i,j-1,k,bi,bj))*vbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 216 COST_TRANS_MERID 
     $                     * _dxG(i,j,bi,bj)
./pkg/ecco/cost_trans_merid.F 217 COST_TRANS_MERID 
     &                     *  drF(k)*_hFacS(i,j,k,bi,bj)
./pkg/ecco/cost_trans_merid.F 51 COST_TRANS_MERID 
      integer bi,bj
./pkg/ecco/cost_trans_zonal.F 183 COST_TRANS_ZONAL 
        do bj = jtlo,jthi
./pkg/ecco/cost_trans_zonal.F 188 COST_TRANS_ZONAL 
                   del_x = xc(i,j,bi,bj)-xc(i-1,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 189 COST_TRANS_ZONAL 
                   if (  xc(i,j,bi,bj) .ge. xlon(isect) .and.
./pkg/ecco/cost_trans_zonal.F 190 COST_TRANS_ZONAL 
     $                   xc(i,j,bi,bj) .lt. xlon(isect)+del_x .and.
./pkg/ecco/cost_trans_zonal.F 191 COST_TRANS_ZONAL 
     $                   yc(i,j,bi,bj) .ge. beglat(isect) .and.
./pkg/ecco/cost_trans_zonal.F 192 COST_TRANS_ZONAL 
     $                   yc(i,j,bi,bj) .le. endlat(isect) ) then
./pkg/ecco/cost_trans_zonal.F 193 COST_TRANS_ZONAL 
                       tu(isect) = tu(isect) + p5*(tbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 194 COST_TRANS_ZONAL 
     $                     + tbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 195 COST_TRANS_ZONAL 
     $                     * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 196 COST_TRANS_ZONAL 
     &                     * drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 198 COST_TRANS_ZONAL 
                       su(isect) = su(isect) + p5*(sbar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 199 COST_TRANS_ZONAL 
     $                     + sbar(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 200 COST_TRANS_ZONAL 
     $                     * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 201 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 203 COST_TRANS_ZONAL 
                       mu(isect) = mu(isect) + p5*(hFacC(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 204 COST_TRANS_ZONAL 
     $                     + hFacC(i-1,j,k,bi,bj))*ubar(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 205 COST_TRANS_ZONAL 
     $                     * _dyG(i,j,bi,bj)
./pkg/ecco/cost_trans_zonal.F 206 COST_TRANS_ZONAL 
     &                     *  drF(k)*_hFacW(i,j,k,bi,bj)
./pkg/ecco/cost_trans_zonal.F 51 COST_TRANS_ZONAL 
      integer bi,bj
./pkg/ecco/cost_uvel0.F 110 COST_UVEL0 
        do bj = jtlo,jthi
./pkg/ecco/cost_uvel0.F 119 COST_UVEL0 
                if (_hFacW(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_uvel0.F 120 COST_UVEL0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_uvel0.F 123 COST_UVEL0 
     &                 + wuvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_uvel0.F 128 COST_UVEL0 
                  if ( wuvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_uvel0.F 129 COST_UVEL0 
     &                 num_uvel0(bi,bj) = num_uvel0(bi,bj) + 1. _d 0
./pkg/ecco/cost_uvel0.F 135 COST_UVEL0 
            objf_uvel0(bi,bj) = objf_uvel0(bi,bj) + fctile
./pkg/ecco/cost_uvel0.F 52 COST_UVEL0 
      integer bi,bj
./pkg/ecco/cost_vvel0.F 110 COST_VVEL0 
        do bj = jtlo,jthi
./pkg/ecco/cost_vvel0.F 119 COST_VVEL0 
                if (_hFacS(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/cost_vvel0.F 120 COST_VVEL0 
                  tmpx = tmpfld3d(i,j,k,bi,bj)
./pkg/ecco/cost_vvel0.F 123 COST_VVEL0 
     &                 + wvvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj)
./pkg/ecco/cost_vvel0.F 128 COST_VVEL0 
                  if ( wvvel3d(i,j,k,bi,bj)*cosphi(i,j,bi,bj).ne.0. )
./pkg/ecco/cost_vvel0.F 129 COST_VVEL0 
     &                 num_vvel0(bi,bj) = num_vvel0(bi,bj) + 1. _d 0
./pkg/ecco/cost_vvel0.F 135 COST_VVEL0 
            objf_vvel0(bi,bj) = objf_vvel0(bi,bj) + fctile
./pkg/ecco/cost_vvel0.F 52 COST_VVEL0 
      integer bi,bj
./pkg/ecco/cost_xbt.F 153 COST_XBT 
        do bj = jtlo,jthi
./pkg/ecco/cost_xbt.F 164 COST_XBT 
                  cmask(i,j) = cosphi(i,j,bi,bj)
./pkg/ecco/cost_xbt.F 165 COST_XBT 
                  if ( xbtobs(i,j,k,bi,bj) .lt. spval .or.
./pkg/ecco/cost_xbt.F 166 COST_XBT 
     &                 xbtobs(i,j,k,bi,bj) .gt. spmax .or.
./pkg/ecco/cost_xbt.F 167 COST_XBT 
     &                 xbtobs(i,j,k,bi,bj) .eq. 0. ) then
./pkg/ecco/cost_xbt.F 184 COST_XBT 
                  if ( _hFacC(i,j,k,bi,bj) .ne. 0. ) then
./pkg/ecco/cost_xbt.F 186 COST_XBT 
     $                   xbtobs(i,j,k,bi,bj),ztop*rc(k),rl_0)
./pkg/ecco/cost_xbt.F 190 COST_XBT 
     &                   (wtheta2(i,j,k,bi,bj)*cmask(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 
     &                   (tbar(i,j,k,bi,bj)-tmpobs(i,j))
./pkg/ecco/cost_xbt.F 193 COST_XBT 
                    if ( wtheta2(i,j,k,bi,bj)*cmask(i,j) .ne. 0. )
./pkg/ecco/cost_xbt.F 194 COST_XBT 
     &                   num_xbt(bi,bj) = num_xbt(bi,bj) + 1. _d 0
./pkg/ecco/cost_xbt.F 202 COST_XBT 
            objf_xbt(bi,bj) = objf_xbt(bi,bj) + fctile_xbt
./pkg/ecco/cost_xbt.F 209 COST_XBT 
     &        ' COST_XBT: irec,bi,bj            =  ',irec,bi,bj
./pkg/ecco/cost_xbt.F 50 COST_XBT 
      integer bi,bj
./pkg/ecco/ecco_cost_final.F 383 ECCO_COST_FINAL 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_final.F 386 ECCO_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/ecco/ecco_cost_final.F 387 ECCO_COST_FINAL 
     &         + mult_temp    * objf_temp(bi,bj)
./pkg/ecco/ecco_cost_final.F 388 ECCO_COST_FINAL 
     &         + mult_salt    * objf_salt(bi,bj)
./pkg/ecco/ecco_cost_final.F 389 ECCO_COST_FINAL 
     &         + mult_temp0   * ( objf_temp0(bi,bj)
./pkg/ecco/ecco_cost_final.F 390 ECCO_COST_FINAL 
     &                         +mult_smooth_ic*objf_temp0smoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 391 ECCO_COST_FINAL 
     &         + mult_salt0   * ( objf_salt0(bi,bj)
./pkg/ecco/ecco_cost_final.F 392 ECCO_COST_FINAL 
     &                         +mult_smooth_ic*objf_salt0smoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 393 ECCO_COST_FINAL 
     &         + mult_etan0   * objf_etan0(bi,bj)
./pkg/ecco/ecco_cost_final.F 394 ECCO_COST_FINAL 
     &         + mult_uvel0   * objf_uvel0(bi,bj)
./pkg/ecco/ecco_cost_final.F 395 ECCO_COST_FINAL 
     &         + mult_vvel0   * objf_vvel0(bi,bj)
./pkg/ecco/ecco_cost_final.F 396 ECCO_COST_FINAL 
     &         + mult_sst     * objf_sst(bi,bj)
./pkg/ecco/ecco_cost_final.F 397 ECCO_COST_FINAL 
     &         + mult_tmi     * objf_tmi(bi,bj)
./pkg/ecco/ecco_cost_final.F 398 ECCO_COST_FINAL 
     &         + mult_sss     * objf_sss(bi,bj)
./pkg/ecco/ecco_cost_final.F 399 ECCO_COST_FINAL 
     &         + mult_bp      * objf_bp(bi,bj)
./pkg/ecco/ecco_cost_final.F 400 ECCO_COST_FINAL 
     &         + mult_ies     * objf_ies(bi,bj)
./pkg/ecco/ecco_cost_final.F 401 ECCO_COST_FINAL 
     &         + mult_tauu    * ( objf_tauu(bi,bj)+objf_tauum(bi,bj)
./pkg/ecco/ecco_cost_final.F 402 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_tauusmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 403 ECCO_COST_FINAL 
     &         + mult_tauv    * ( objf_tauv(bi,bj)+objf_tauvm(bi,bj)
./pkg/ecco/ecco_cost_final.F 404 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_tauvsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 405 ECCO_COST_FINAL 
     &         + mult_hflux   * ( objf_hflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 406 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_hfluxsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 407 ECCO_COST_FINAL 
     &         + mult_sflux   * ( objf_sflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 408 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_sfluxsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 409 ECCO_COST_FINAL 
     &         + mult_h       * ( mult_tp  * objf_tp(bi,bj)
./pkg/ecco/ecco_cost_final.F 410 ECCO_COST_FINAL 
     &                          + mult_ers * objf_ers(bi,bj)
./pkg/ecco/ecco_cost_final.F 411 ECCO_COST_FINAL 
     &                          + mult_gfo * objf_gfo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 413 ECCO_COST_FINAL 
     &         + mult_atl     * objf_atl(bi,bj)
./pkg/ecco/ecco_cost_final.F 415 ECCO_COST_FINAL 
     &         + mult_ctdt    * objf_ctdt(bi,bj)
./pkg/ecco/ecco_cost_final.F 416 ECCO_COST_FINAL 
     &         + mult_ctds    * objf_ctds(bi,bj)
./pkg/ecco/ecco_cost_final.F 417 ECCO_COST_FINAL 
     &         + mult_ctdtclim* objf_ctdtclim(bi,bj)
./pkg/ecco/ecco_cost_final.F 418 ECCO_COST_FINAL 
     &         + mult_ctdsclim* objf_ctdsclim(bi,bj)
./pkg/ecco/ecco_cost_final.F 419 ECCO_COST_FINAL 
     &         + mult_xbt     * objf_xbt(bi,bj)
./pkg/ecco/ecco_cost_final.F 420 ECCO_COST_FINAL 
     &         + mult_argot   * objf_argot(bi,bj)
./pkg/ecco/ecco_cost_final.F 421 ECCO_COST_FINAL 
     &         + mult_argos   * objf_argos(bi,bj)
./pkg/ecco/ecco_cost_final.F 422 ECCO_COST_FINAL 
     &         + mult_drift   * objf_drift(bi,bj)
./pkg/ecco/ecco_cost_final.F 423 ECCO_COST_FINAL 
     &         + mult_sdrift  * objf_sdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 424 ECCO_COST_FINAL 
     &         + mult_tdrift  * objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 425 ECCO_COST_FINAL 
     &         + mult_wdrift  * objf_wdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 426 ECCO_COST_FINAL 
     &         + mult_scatx   * objf_scatx(bi,bj)
./pkg/ecco/ecco_cost_final.F 427 ECCO_COST_FINAL 
     &         + mult_scaty   * objf_scaty(bi,bj)
./pkg/ecco/ecco_cost_final.F 428 ECCO_COST_FINAL 
     &         + mult_scatx   * objf_scatxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 429 ECCO_COST_FINAL 
     &         + mult_scaty   * objf_scatym(bi,bj)
./pkg/ecco/ecco_cost_final.F 430 ECCO_COST_FINAL 
     &         + mult_uwind   * ( objf_uwind(bi,bj)+objf_uwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 431 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_uwindsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 432 ECCO_COST_FINAL 
     &         + mult_vwind   * ( objf_vwind(bi,bj)+objf_vwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 433 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_vwindsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 434 ECCO_COST_FINAL 
     &         + mult_atemp   * ( objf_atemp(bi,bj)+objf_atempm(bi,bj)
./pkg/ecco/ecco_cost_final.F 435 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_atempsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 436 ECCO_COST_FINAL 
     &         + mult_aqh     * ( objf_aqh(bi,bj)+objf_aqhm(bi,bj)
./pkg/ecco/ecco_cost_final.F 437 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_aqhsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 438 ECCO_COST_FINAL 
     &         + mult_precip  * ( objf_precip(bi,bj)+objf_precipm(bi,bj)
./pkg/ecco/ecco_cost_final.F 439 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_precipsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 440 ECCO_COST_FINAL 
     &         + mult_swflux  * ( objf_swflux(bi,bj)+objf_swfluxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 441 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_swfluxsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 442 ECCO_COST_FINAL 
     &         + mult_swdown  * ( objf_swdown(bi,bj)+objf_swdownm(bi,bj)
./pkg/ecco/ecco_cost_final.F 443 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_swdownsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 444 ECCO_COST_FINAL 
     &         + mult_lwflux  * ( objf_lwflux(bi,bj)+objf_lwfluxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 445 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_lwfluxsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 446 ECCO_COST_FINAL 
     &         + mult_lwdown  * ( objf_lwdown(bi,bj)+objf_lwdownm(bi,bj)
./pkg/ecco/ecco_cost_final.F 447 ECCO_COST_FINAL 
     &                         +mult_smooth_bc*objf_lwdownsmoo(bi,bj) )
./pkg/ecco/ecco_cost_final.F 448 ECCO_COST_FINAL 
     &         + mult_obcsn   * objf_obcsn(bi,bj)
./pkg/ecco/ecco_cost_final.F 449 ECCO_COST_FINAL 
     &         + mult_obcss   * objf_obcss(bi,bj)
./pkg/ecco/ecco_cost_final.F 450 ECCO_COST_FINAL 
     &         + mult_obcsw   * objf_obcsw(bi,bj)
./pkg/ecco/ecco_cost_final.F 451 ECCO_COST_FINAL 
     &         + mult_obcse   * objf_obcse(bi,bj)
./pkg/ecco/ecco_cost_final.F 452 ECCO_COST_FINAL 
     &         + mult_curmtr  * objf_curmtr(bi,bj)
./pkg/ecco/ecco_cost_final.F 453 ECCO_COST_FINAL 
     &         + mult_ageos   * objf_ageos(bi,bj)
./pkg/ecco/ecco_cost_final.F 454 ECCO_COST_FINAL 
     &         + mult_kapgm   * objf_kapgm(bi,bj)
./pkg/ecco/ecco_cost_final.F 455 ECCO_COST_FINAL 
     &         + mult_kapredi   * objf_kapredi(bi,bj)
./pkg/ecco/ecco_cost_final.F 456 ECCO_COST_FINAL 
     &         + mult_diffkr  * objf_diffkr(bi,bj)
./pkg/ecco/ecco_cost_final.F 457 ECCO_COST_FINAL 
     &         + mult_ini_fin *(objf_theta_ini_fin(bi,bj) +
./pkg/ecco/ecco_cost_final.F 458 ECCO_COST_FINAL 
     &                          objf_salt_ini_fin(bi,bj))
./pkg/ecco/ecco_cost_final.F 459 ECCO_COST_FINAL 
     &         + mult_edtau * objf_eddytau(bi,bj)
./pkg/ecco/ecco_cost_final.F 460 ECCO_COST_FINAL 
     &         + mult_bottomdrag * objf_bottomdrag(bi,bj)
./pkg/ecco/ecco_cost_final.F 464 ECCO_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/ecco/ecco_cost_final.F 466 ECCO_COST_FINAL 
     &            *objf_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 472 ECCO_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/ecco/ecco_cost_final.F 474 ECCO_COST_FINAL 
     &            *objf_gencost(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 479 ECCO_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/ecco/ecco_cost_final.F 481 ECCO_COST_FINAL 
     &            *objf_usercost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 486 ECCO_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/ecco/ecco_cost_final.F 488 ECCO_COST_FINAL 
     &            *objf_sshv4cost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 493 ECCO_COST_FINAL 
          tile_fc(bi,bj) = tile_fc(bi,bj)
./pkg/ecco/ecco_cost_final.F 495 ECCO_COST_FINAL 
     &            *objf_gentim2d(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 498 ECCO_COST_FINAL 
          f_temp = f_temp + objf_temp(bi,bj)
./pkg/ecco/ecco_cost_final.F 499 ECCO_COST_FINAL 
          f_salt = f_salt + objf_salt(bi,bj)
./pkg/ecco/ecco_cost_final.F 500 ECCO_COST_FINAL 
          f_temp0 = f_temp0 + objf_temp0(bi,bj)
./pkg/ecco/ecco_cost_final.F 501 ECCO_COST_FINAL 
          f_salt0 = f_salt0 + objf_salt0(bi,bj)
./pkg/ecco/ecco_cost_final.F 502 ECCO_COST_FINAL 
          f_temp0smoo = f_temp0smoo + objf_temp0smoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 503 ECCO_COST_FINAL 
          f_salt0smoo = f_salt0smoo + objf_salt0smoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 504 ECCO_COST_FINAL 
          f_etan0 = f_etan0 + objf_etan0(bi,bj)
./pkg/ecco/ecco_cost_final.F 505 ECCO_COST_FINAL 
          f_uvel0 = f_uvel0 + objf_uvel0(bi,bj)
./pkg/ecco/ecco_cost_final.F 506 ECCO_COST_FINAL 
          f_vvel0 = f_vvel0 + objf_vvel0(bi,bj)
./pkg/ecco/ecco_cost_final.F 507 ECCO_COST_FINAL 
          f_tauu = f_tauu + objf_tauu(bi,bj)
./pkg/ecco/ecco_cost_final.F 508 ECCO_COST_FINAL 
          f_tauum  = f_tauum + objf_tauum(bi,bj)
./pkg/ecco/ecco_cost_final.F 509 ECCO_COST_FINAL 
          f_tauusmoo = f_tauusmoo + objf_tauusmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 50 ECCO_COST_FINAL 
      integer bi,bj
./pkg/ecco/ecco_cost_final.F 510 ECCO_COST_FINAL 
          f_tauv = f_tauv + objf_tauv(bi,bj)
./pkg/ecco/ecco_cost_final.F 511 ECCO_COST_FINAL 
          f_tauvm  = f_tauvm + objf_tauvm(bi,bj)
./pkg/ecco/ecco_cost_final.F 512 ECCO_COST_FINAL 
          f_tauvsmoo = f_tauvsmoo + objf_tauvsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 513 ECCO_COST_FINAL 
          f_hflux = f_hflux + objf_hflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 514 ECCO_COST_FINAL 
          f_hfluxsmoo = f_hfluxsmoo + objf_hfluxsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 515 ECCO_COST_FINAL 
          f_sflux = f_sflux + objf_sflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 516 ECCO_COST_FINAL 
          f_sfluxsmoo = f_sfluxsmoo + objf_sfluxsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 517 ECCO_COST_FINAL 
          f_uwind  = f_uwind + objf_uwind(bi,bj)
./pkg/ecco/ecco_cost_final.F 518 ECCO_COST_FINAL 
          f_vwind  = f_vwind + objf_vwind(bi,bj)
./pkg/ecco/ecco_cost_final.F 519 ECCO_COST_FINAL 
          f_atemp  = f_atemp + objf_atemp(bi,bj)
./pkg/ecco/ecco_cost_final.F 520 ECCO_COST_FINAL 
          f_aqh    = f_aqh + objf_aqh(bi,bj)
./pkg/ecco/ecco_cost_final.F 521 ECCO_COST_FINAL 
          f_precip = f_precip + objf_precip(bi,bj)
./pkg/ecco/ecco_cost_final.F 522 ECCO_COST_FINAL 
          f_swflux = f_swflux + objf_swflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 523 ECCO_COST_FINAL 
          f_swdown = f_swdown + objf_swdown(bi,bj)
./pkg/ecco/ecco_cost_final.F 524 ECCO_COST_FINAL 
          f_lwflux = f_lwflux + objf_lwflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 525 ECCO_COST_FINAL 
          f_lwdown = f_lwdown + objf_lwdown(bi,bj)
./pkg/ecco/ecco_cost_final.F 526 ECCO_COST_FINAL 
          f_uwindm   = f_uwindm + objf_uwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 527 ECCO_COST_FINAL 
          f_vwindm   = f_vwindm + objf_vwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 528 ECCO_COST_FINAL 
          f_atempm   = f_atempm + objf_atempm(bi,bj)
./pkg/ecco/ecco_cost_final.F 529 ECCO_COST_FINAL 
          f_aqhm     = f_aqhm   + objf_aqhm(bi,bj)
./pkg/ecco/ecco_cost_final.F 530 ECCO_COST_FINAL 
          f_precipm  = f_precipm + objf_precipm(bi,bj)
./pkg/ecco/ecco_cost_final.F 531 ECCO_COST_FINAL 
          f_swfluxm  = f_swfluxm + objf_swfluxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 532 ECCO_COST_FINAL 
          f_swdownm  = f_swdownm + objf_swdownm(bi,bj)
./pkg/ecco/ecco_cost_final.F 533 ECCO_COST_FINAL 
          f_lwfluxm  = f_lwfluxm + objf_lwfluxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 534 ECCO_COST_FINAL 
          f_lwdownm  = f_lwdownm + objf_lwdownm(bi,bj)
./pkg/ecco/ecco_cost_final.F 535 ECCO_COST_FINAL 
          f_uwindsmoo  = f_uwindsmoo + objf_uwindsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 536 ECCO_COST_FINAL 
          f_vwindsmoo  = f_vwindsmoo + objf_vwindsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 537 ECCO_COST_FINAL 
          f_atempsmoo  = f_atempsmoo + objf_atempsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 538 ECCO_COST_FINAL 
          f_aqhsmoo    = f_aqhsmoo + objf_aqhsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 539 ECCO_COST_FINAL 
          f_precipsmoo = f_precipsmoo + objf_precipsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 540 ECCO_COST_FINAL 
          f_swfluxsmoo = f_swfluxsmoo + objf_swfluxsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 541 ECCO_COST_FINAL 
          f_swdownsmoo = f_swdownsmoo + objf_swdownsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 542 ECCO_COST_FINAL 
          f_lwfluxsmoo = f_lwfluxsmoo + objf_lwfluxsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 543 ECCO_COST_FINAL 
          f_lwdownsmoo = f_lwdownsmoo + objf_lwdownsmoo(bi,bj)
./pkg/ecco/ecco_cost_final.F 544 ECCO_COST_FINAL 
          f_ssh  = f_ssh + objf_h(bi,bj)
./pkg/ecco/ecco_cost_final.F 545 ECCO_COST_FINAL 
          f_tp   = f_tp  + objf_tp(bi,bj)
./pkg/ecco/ecco_cost_final.F 546 ECCO_COST_FINAL 
          f_ers  = f_ers + objf_ers(bi,bj)
./pkg/ecco/ecco_cost_final.F 547 ECCO_COST_FINAL 
          f_gfo  = f_gfo + objf_gfo(bi,bj)
./pkg/ecco/ecco_cost_final.F 548 ECCO_COST_FINAL 
          f_sst  = f_sst + objf_sst(bi,bj)
./pkg/ecco/ecco_cost_final.F 549 ECCO_COST_FINAL 
          f_tmi  = f_tmi + objf_tmi(bi,bj)
./pkg/ecco/ecco_cost_final.F 550 ECCO_COST_FINAL 
          f_sss  = f_sss + objf_sss(bi,bj)
./pkg/ecco/ecco_cost_final.F 551 ECCO_COST_FINAL 
          f_bp   = f_bp  + objf_bp(bi,bj)
./pkg/ecco/ecco_cost_final.F 552 ECCO_COST_FINAL 
          f_ies  = f_ies + objf_ies(bi,bj)
./pkg/ecco/ecco_cost_final.F 554 ECCO_COST_FINAL 
          f_atl  = f_atl + objf_atl(bi,bj)
./pkg/ecco/ecco_cost_final.F 556 ECCO_COST_FINAL 
          f_ctdt = f_ctdt + objf_ctdt(bi,bj)
./pkg/ecco/ecco_cost_final.F 557 ECCO_COST_FINAL 
          f_ctds = f_ctds + objf_ctds(bi,bj)
./pkg/ecco/ecco_cost_final.F 558 ECCO_COST_FINAL 
          f_ctdtclim = f_ctdtclim + objf_ctdtclim(bi,bj)
./pkg/ecco/ecco_cost_final.F 559 ECCO_COST_FINAL 
          f_ctdsclim = f_ctdsclim + objf_ctdsclim(bi,bj)
./pkg/ecco/ecco_cost_final.F 560 ECCO_COST_FINAL 
          f_xbt  = f_xbt + objf_xbt(bi,bj)
./pkg/ecco/ecco_cost_final.F 561 ECCO_COST_FINAL 
          f_argot  = f_argot + objf_argot(bi,bj)
./pkg/ecco/ecco_cost_final.F 562 ECCO_COST_FINAL 
          f_argos  = f_argos + objf_argos(bi,bj)
./pkg/ecco/ecco_cost_final.F 563 ECCO_COST_FINAL 
          f_drifter = f_drifter + objf_drift(bi,bj)
./pkg/ecco/ecco_cost_final.F 564 ECCO_COST_FINAL 
          f_sdrift = f_sdrift + objf_sdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 565 ECCO_COST_FINAL 
          f_tdrift = f_tdrift + objf_tdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 566 ECCO_COST_FINAL 
          f_wdrift = f_wdrift + objf_wdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 567 ECCO_COST_FINAL 
          f_scatx = f_scatx + objf_scatx(bi,bj)
./pkg/ecco/ecco_cost_final.F 568 ECCO_COST_FINAL 
          f_scaty = f_scaty + objf_scaty(bi,bj)
./pkg/ecco/ecco_cost_final.F 569 ECCO_COST_FINAL 
          f_scatxm = f_scatxm + objf_scatxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 570 ECCO_COST_FINAL 
          f_scatym = f_scatym + objf_scatym(bi,bj)
./pkg/ecco/ecco_cost_final.F 571 ECCO_COST_FINAL 
          f_curmtr = f_curmtr + objf_curmtr(bi,bj)
./pkg/ecco/ecco_cost_final.F 572 ECCO_COST_FINAL 
          f_ageos = f_ageos + objf_ageos(bi,bj)
./pkg/ecco/ecco_cost_final.F 573 ECCO_COST_FINAL 
          f_kapgm = f_kapgm + objf_kapgm(bi,bj)
./pkg/ecco/ecco_cost_final.F 574 ECCO_COST_FINAL 
          f_kapredi = f_kapredi + objf_kapredi(bi,bj)
./pkg/ecco/ecco_cost_final.F 575 ECCO_COST_FINAL 
          f_diffkr = f_diffkr + objf_diffkr(bi,bj)
./pkg/ecco/ecco_cost_final.F 577 ECCO_COST_FINAL 
     &         objf_theta_ini_fin(bi,bj) + objf_salt_ini_fin(bi,bj)
./pkg/ecco/ecco_cost_final.F 578 ECCO_COST_FINAL 
          f_eddytau = f_eddytau + objf_eddytau(bi,bj)
./pkg/ecco/ecco_cost_final.F 579 ECCO_COST_FINAL 
          f_bottomdrag = f_bottomdrag + objf_bottomdrag(bi,bj)
./pkg/ecco/ecco_cost_final.F 580 ECCO_COST_FINAL 
          f_obcsn  = f_obcsn + objf_obcsn(bi,bj)
./pkg/ecco/ecco_cost_final.F 581 ECCO_COST_FINAL 
          f_obcss  = f_obcss + objf_obcss(bi,bj)
./pkg/ecco/ecco_cost_final.F 582 ECCO_COST_FINAL 
          f_obcsw  = f_obcsw + objf_obcsw(bi,bj)
./pkg/ecco/ecco_cost_final.F 583 ECCO_COST_FINAL 
          f_obcse  = f_obcse + objf_obcse(bi,bj)
./pkg/ecco/ecco_cost_final.F 588 ECCO_COST_FINAL 
     &            +objf_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 595 ECCO_COST_FINAL 
     &            +objf_gencost(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 601 ECCO_COST_FINAL 
     &            +objf_usercost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 607 ECCO_COST_FINAL 
     &            +objf_sshv4cost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 613 ECCO_COST_FINAL 
     &            +objf_gentim2d(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 616 ECCO_COST_FINAL 
          no_temp = no_temp + num_temp(bi,bj)
./pkg/ecco/ecco_cost_final.F 617 ECCO_COST_FINAL 
          no_salt = no_salt + num_salt(bi,bj)
./pkg/ecco/ecco_cost_final.F 618 ECCO_COST_FINAL 
          no_temp0 = no_temp0 + num_temp0(bi,bj)
./pkg/ecco/ecco_cost_final.F 619 ECCO_COST_FINAL 
          no_salt0 = no_salt0 + num_salt0(bi,bj)
./pkg/ecco/ecco_cost_final.F 620 ECCO_COST_FINAL 
          no_etan0 = no_etan0 + num_etan0(bi,bj)
./pkg/ecco/ecco_cost_final.F 621 ECCO_COST_FINAL 
          no_uvel0 = no_uvel0 + num_uvel0(bi,bj)
./pkg/ecco/ecco_cost_final.F 622 ECCO_COST_FINAL 
          no_vvel0 = no_vvel0 + num_vvel0(bi,bj)
./pkg/ecco/ecco_cost_final.F 623 ECCO_COST_FINAL 
          no_tauu = no_tauu + num_tauu(bi,bj)
./pkg/ecco/ecco_cost_final.F 624 ECCO_COST_FINAL 
          no_tauum  = no_tauum + num_tauum(bi,bj)
./pkg/ecco/ecco_cost_final.F 625 ECCO_COST_FINAL 
          no_tauv = no_tauv + num_tauv(bi,bj)
./pkg/ecco/ecco_cost_final.F 626 ECCO_COST_FINAL 
          no_tauvm  = no_tauvm + num_tauvm(bi,bj)
./pkg/ecco/ecco_cost_final.F 627 ECCO_COST_FINAL 
          no_hflux= no_hflux + num_hflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 628 ECCO_COST_FINAL 
          no_hfluxmm = no_hfluxmm + num_hfluxmm(bi,bj)
./pkg/ecco/ecco_cost_final.F 629 ECCO_COST_FINAL 
          no_sflux= no_sflux + num_sflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 630 ECCO_COST_FINAL 
          no_sfluxmm = no_sfluxmm + num_sfluxmm(bi,bj)
./pkg/ecco/ecco_cost_final.F 631 ECCO_COST_FINAL 
          no_atemp  = no_atemp + num_atemp(bi,bj)
./pkg/ecco/ecco_cost_final.F 632 ECCO_COST_FINAL 
          no_aqh    = no_aqh + num_aqh(bi,bj)
./pkg/ecco/ecco_cost_final.F 633 ECCO_COST_FINAL 
          no_precip = no_precip + num_precip(bi,bj)
./pkg/ecco/ecco_cost_final.F 634 ECCO_COST_FINAL 
          no_swflux = no_swflux + num_swflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 635 ECCO_COST_FINAL 
          no_swdown = no_swdown + num_swdown(bi,bj)
./pkg/ecco/ecco_cost_final.F 636 ECCO_COST_FINAL 
          no_lwflux = no_lwflux + num_lwflux(bi,bj)
./pkg/ecco/ecco_cost_final.F 637 ECCO_COST_FINAL 
          no_lwdown = no_lwdown + num_lwdown(bi,bj)
./pkg/ecco/ecco_cost_final.F 638 ECCO_COST_FINAL 
          no_uwind  = no_uwind + num_uwind(bi,bj)
./pkg/ecco/ecco_cost_final.F 639 ECCO_COST_FINAL 
          no_vwind  = no_vwind + num_vwind(bi,bj)
./pkg/ecco/ecco_cost_final.F 640 ECCO_COST_FINAL 
          no_atempm  = no_atempm + num_atempm(bi,bj)
./pkg/ecco/ecco_cost_final.F 641 ECCO_COST_FINAL 
          no_aqhm    = no_aqhm + num_aqhm(bi,bj)
./pkg/ecco/ecco_cost_final.F 642 ECCO_COST_FINAL 
          no_precipm = no_precipm + num_precipm(bi,bj)
./pkg/ecco/ecco_cost_final.F 643 ECCO_COST_FINAL 
          no_swfluxm = no_swfluxm + num_swfluxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 644 ECCO_COST_FINAL 
          no_swdownm = no_swdownm + num_swdownm(bi,bj)
./pkg/ecco/ecco_cost_final.F 645 ECCO_COST_FINAL 
          no_lwfluxm = no_lwfluxm + num_lwfluxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 646 ECCO_COST_FINAL 
          no_lwdownm = no_lwdownm + num_lwdownm(bi,bj)
./pkg/ecco/ecco_cost_final.F 647 ECCO_COST_FINAL 
          no_uwindm  = no_uwindm + num_uwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 648 ECCO_COST_FINAL 
          no_vwindm  = no_vwindm + num_vwindm(bi,bj)
./pkg/ecco/ecco_cost_final.F 649 ECCO_COST_FINAL 
          no_ssh  = no_ssh + num_h(bi,bj)
./pkg/ecco/ecco_cost_final.F 650 ECCO_COST_FINAL 
          no_tp   = no_tp  + num_tp(bi,bj)
./pkg/ecco/ecco_cost_final.F 651 ECCO_COST_FINAL 
          no_ers  = no_ers + num_ers(bi,bj)
./pkg/ecco/ecco_cost_final.F 652 ECCO_COST_FINAL 
          no_gfo  = no_gfo + num_gfo(bi,bj)
./pkg/ecco/ecco_cost_final.F 653 ECCO_COST_FINAL 
          no_sst  = no_sst + num_sst(bi,bj)
./pkg/ecco/ecco_cost_final.F 654 ECCO_COST_FINAL 
          no_tmi  = no_tmi + num_tmi(bi,bj)
./pkg/ecco/ecco_cost_final.F 655 ECCO_COST_FINAL 
          no_sss  = no_sss + num_sss(bi,bj)
./pkg/ecco/ecco_cost_final.F 656 ECCO_COST_FINAL 
          no_bp   = no_bp  + num_bp(bi,bj)
./pkg/ecco/ecco_cost_final.F 657 ECCO_COST_FINAL 
          no_ies  = no_ies + num_ies(bi,bj)
./pkg/ecco/ecco_cost_final.F 658 ECCO_COST_FINAL 
          no_ctdt = no_ctdt + num_ctdt(bi,bj)
./pkg/ecco/ecco_cost_final.F 659 ECCO_COST_FINAL 
          no_ctds = no_ctds + num_ctds(bi,bj)
./pkg/ecco/ecco_cost_final.F 660 ECCO_COST_FINAL 
          no_ctdtclim = no_ctdtclim + num_ctdtclim(bi,bj)
./pkg/ecco/ecco_cost_final.F 661 ECCO_COST_FINAL 
          no_ctdsclim = no_ctdsclim + num_ctdsclim(bi,bj)
./pkg/ecco/ecco_cost_final.F 662 ECCO_COST_FINAL 
          no_xbt  = no_xbt + num_xbt(bi,bj)
./pkg/ecco/ecco_cost_final.F 663 ECCO_COST_FINAL 
          no_argot  = no_argot + num_argot(bi,bj)
./pkg/ecco/ecco_cost_final.F 664 ECCO_COST_FINAL 
          no_argos  = no_argos + num_argos(bi,bj)
./pkg/ecco/ecco_cost_final.F 665 ECCO_COST_FINAL 
          no_drifter = no_drifter + num_drift(bi,bj)
./pkg/ecco/ecco_cost_final.F 666 ECCO_COST_FINAL 
          no_sdrift = no_sdrift + num_sdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 667 ECCO_COST_FINAL 
          no_tdrift = no_tdrift + num_tdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 668 ECCO_COST_FINAL 
          no_wdrift = no_wdrift + num_wdrift(bi,bj)
./pkg/ecco/ecco_cost_final.F 669 ECCO_COST_FINAL 
          no_scatx = no_scatx + num_scatx(bi,bj)
./pkg/ecco/ecco_cost_final.F 670 ECCO_COST_FINAL 
          no_scaty = no_scaty + num_scaty(bi,bj)
./pkg/ecco/ecco_cost_final.F 671 ECCO_COST_FINAL 
          no_scatxm = no_scatxm + num_scatxm(bi,bj)
./pkg/ecco/ecco_cost_final.F 672 ECCO_COST_FINAL 
          no_scatym = no_scatym + num_scatym(bi,bj)
./pkg/ecco/ecco_cost_final.F 673 ECCO_COST_FINAL 
          no_curmtr = no_curmtr + num_curmtr(bi,bj)
./pkg/ecco/ecco_cost_final.F 674 ECCO_COST_FINAL 
          no_ageos = no_ageos + num_ageos(bi,bj)
./pkg/ecco/ecco_cost_final.F 675 ECCO_COST_FINAL 
          no_kapgm = no_kapgm + num_kapgm(bi,bj)
./pkg/ecco/ecco_cost_final.F 676 ECCO_COST_FINAL 
          no_kapredi = no_kapredi + num_kapredi(bi,bj)
./pkg/ecco/ecco_cost_final.F 677 ECCO_COST_FINAL 
          no_diffkr = no_diffkr + num_diffkr(bi,bj)
./pkg/ecco/ecco_cost_final.F 679 ECCO_COST_FINAL 
     &         num_theta_ini_fin(bi,bj) + num_salt_ini_fin(bi,bj)
./pkg/ecco/ecco_cost_final.F 680 ECCO_COST_FINAL 
          no_eddytau = no_eddytau + num_eddytau(bi,bj)
./pkg/ecco/ecco_cost_final.F 681 ECCO_COST_FINAL 
          no_bottomdrag = no_bottomdrag + num_bottomdrag(bi,bj)
./pkg/ecco/ecco_cost_final.F 682 ECCO_COST_FINAL 
          no_obcsn = no_obcsn + num_obcsn(bi,bj)
./pkg/ecco/ecco_cost_final.F 683 ECCO_COST_FINAL 
          no_obcss = no_obcss + num_obcss(bi,bj)
./pkg/ecco/ecco_cost_final.F 684 ECCO_COST_FINAL 
          no_obcse = no_obcse + num_obcse(bi,bj)
./pkg/ecco/ecco_cost_final.F 685 ECCO_COST_FINAL 
          no_obcsw = no_obcsw + num_obcsw(bi,bj)
./pkg/ecco/ecco_cost_final.F 690 ECCO_COST_FINAL 
     &            +num_profiles(num_file,num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 697 ECCO_COST_FINAL 
     &            +num_gencost(bi,bj,num_var)
./pkg/ecco/ecco_cost_final.F 703 ECCO_COST_FINAL 
     &            +num_usercost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 709 ECCO_COST_FINAL 
     &            +num_sshv4cost(num_var,bi,bj)
./pkg/ecco/ecco_cost_final.F 715 ECCO_COST_FINAL 
     &            +num_gentim2d(bi,bj,num_var)
./pkg/ecco/ecco_cost_init_barfiles.F 118 ECCO_COST_INIT_BARFILES 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_init_barfiles.F 122 ECCO_COST_INIT_BARFILES 
              tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 127 ECCO_COST_INIT_BARFILES 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_init_barfiles.F 132 ECCO_COST_INIT_BARFILES 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 47 ECCO_COST_INIT_BARFILES 
      integer bi,bj
./pkg/ecco/ecco_cost_init_varia.F 100 ECCO_COST_INIT_VARIA 
          objf_uvel0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 101 ECCO_COST_INIT_VARIA 
          objf_vvel0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 102 ECCO_COST_INIT_VARIA 
          objf_tmi(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 103 ECCO_COST_INIT_VARIA 
          objf_sst(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 104 ECCO_COST_INIT_VARIA 
          objf_sss(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 105 ECCO_COST_INIT_VARIA 
          objf_bp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 106 ECCO_COST_INIT_VARIA 
          objf_h(bi,bj)        = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 107 ECCO_COST_INIT_VARIA 
          objf_tp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 108 ECCO_COST_INIT_VARIA 
          objf_ers(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 109 ECCO_COST_INIT_VARIA 
          objf_gfo(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 110 ECCO_COST_INIT_VARIA 
          objf_ctdt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 111 ECCO_COST_INIT_VARIA 
          objf_ctds(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 112 ECCO_COST_INIT_VARIA 
          objf_ctdtclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 113 ECCO_COST_INIT_VARIA 
          objf_ctdsclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 114 ECCO_COST_INIT_VARIA 
          objf_xbt(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 115 ECCO_COST_INIT_VARIA 
          objf_argot(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 116 ECCO_COST_INIT_VARIA 
          objf_argos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 117 ECCO_COST_INIT_VARIA 
          objf_drift(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 118 ECCO_COST_INIT_VARIA 
          objf_wdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 119 ECCO_COST_INIT_VARIA 
          objf_sdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 120 ECCO_COST_INIT_VARIA 
          objf_tdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 121 ECCO_COST_INIT_VARIA 
          objf_scatx(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 122 ECCO_COST_INIT_VARIA 
          objf_scaty(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 123 ECCO_COST_INIT_VARIA 
          objf_scatxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 124 ECCO_COST_INIT_VARIA 
          objf_scatym(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 125 ECCO_COST_INIT_VARIA 
          objf_atemp(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 126 ECCO_COST_INIT_VARIA 
          objf_aqh(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 127 ECCO_COST_INIT_VARIA 
          objf_precip(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 128 ECCO_COST_INIT_VARIA 
          objf_swflux(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 129 ECCO_COST_INIT_VARIA 
          objf_swdown(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 130 ECCO_COST_INIT_VARIA 
          objf_lwflux(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 131 ECCO_COST_INIT_VARIA 
          objf_lwdown(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 132 ECCO_COST_INIT_VARIA 
          objf_uwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 133 ECCO_COST_INIT_VARIA 
          objf_vwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 134 ECCO_COST_INIT_VARIA 
          objf_obcsn(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 135 ECCO_COST_INIT_VARIA 
          objf_obcss(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 136 ECCO_COST_INIT_VARIA 
          objf_obcsw(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 137 ECCO_COST_INIT_VARIA 
          objf_obcse(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 138 ECCO_COST_INIT_VARIA 
          objf_curmtr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 140 ECCO_COST_INIT_VARIA 
          objf_atl(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 142 ECCO_COST_INIT_VARIA 
          objf_ageos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 143 ECCO_COST_INIT_VARIA 
          objf_diffkr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 144 ECCO_COST_INIT_VARIA 
          objf_kapgm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 145 ECCO_COST_INIT_VARIA 
          objf_kapredi(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 146 ECCO_COST_INIT_VARIA 
          objf_theta_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 147 ECCO_COST_INIT_VARIA 
          objf_salt_ini_fin(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 148 ECCO_COST_INIT_VARIA 
          objf_eddytau(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 149 ECCO_COST_INIT_VARIA 
          objf_bottomdrag(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 152 ECCO_COST_INIT_VARIA 
            objf_gencost(bi,bj,k)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 156 ECCO_COST_INIT_VARIA 
            objf_usercost(k,bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 159 ECCO_COST_INIT_VARIA 
            objf_sshv4cost(k,bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 162 ECCO_COST_INIT_VARIA 
          num_hflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 163 ECCO_COST_INIT_VARIA 
          num_hfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 164 ECCO_COST_INIT_VARIA 
          num_hfluxmm(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 165 ECCO_COST_INIT_VARIA 
          num_sflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 166 ECCO_COST_INIT_VARIA 
          num_sfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 167 ECCO_COST_INIT_VARIA 
          num_sfluxmm(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 168 ECCO_COST_INIT_VARIA 
          num_tauu(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 169 ECCO_COST_INIT_VARIA 
          num_tauum(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 170 ECCO_COST_INIT_VARIA 
          num_tauv(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 171 ECCO_COST_INIT_VARIA 
          num_tauvm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 172 ECCO_COST_INIT_VARIA 
          num_temp(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 173 ECCO_COST_INIT_VARIA 
          num_salt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 174 ECCO_COST_INIT_VARIA 
          num_temp0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 175 ECCO_COST_INIT_VARIA 
          num_salt0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 176 ECCO_COST_INIT_VARIA 
          num_etan0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 177 ECCO_COST_INIT_VARIA 
          num_uvel0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 178 ECCO_COST_INIT_VARIA 
          num_vvel0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 179 ECCO_COST_INIT_VARIA 
          num_tmi(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 180 ECCO_COST_INIT_VARIA 
          num_sst(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 181 ECCO_COST_INIT_VARIA 
          num_sss(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 182 ECCO_COST_INIT_VARIA 
          num_bp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 183 ECCO_COST_INIT_VARIA 
          num_h(bi,bj)        = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 184 ECCO_COST_INIT_VARIA 
          num_tp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 185 ECCO_COST_INIT_VARIA 
          num_ers(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 186 ECCO_COST_INIT_VARIA 
          num_gfo(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 187 ECCO_COST_INIT_VARIA 
          num_ctdt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 188 ECCO_COST_INIT_VARIA 
          num_ctds(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 189 ECCO_COST_INIT_VARIA 
          num_ctdtclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 190 ECCO_COST_INIT_VARIA 
          num_ctdsclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 191 ECCO_COST_INIT_VARIA 
          num_xbt(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 192 ECCO_COST_INIT_VARIA 
          num_argot(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 193 ECCO_COST_INIT_VARIA 
          num_argos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 194 ECCO_COST_INIT_VARIA 
          num_drift(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 195 ECCO_COST_INIT_VARIA 
          num_wdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 196 ECCO_COST_INIT_VARIA 
          num_sdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 197 ECCO_COST_INIT_VARIA 
          num_tdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 198 ECCO_COST_INIT_VARIA 
          num_scatx(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 199 ECCO_COST_INIT_VARIA 
          num_scaty(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 200 ECCO_COST_INIT_VARIA 
          num_scatxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 201 ECCO_COST_INIT_VARIA 
          num_scatym(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 202 ECCO_COST_INIT_VARIA 
          num_atemp(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 203 ECCO_COST_INIT_VARIA 
          num_aqh(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 204 ECCO_COST_INIT_VARIA 
          num_precip(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 205 ECCO_COST_INIT_VARIA 
          num_swflux(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 206 ECCO_COST_INIT_VARIA 
          num_swdown(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 207 ECCO_COST_INIT_VARIA 
          num_lwflux(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 208 ECCO_COST_INIT_VARIA 
          num_lwdown(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 209 ECCO_COST_INIT_VARIA 
          num_uwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 210 ECCO_COST_INIT_VARIA 
          num_vwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 211 ECCO_COST_INIT_VARIA 
          num_obcsn(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 212 ECCO_COST_INIT_VARIA 
          num_obcss(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 213 ECCO_COST_INIT_VARIA 
          num_obcsw(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 214 ECCO_COST_INIT_VARIA 
          num_obcse(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 215 ECCO_COST_INIT_VARIA 
          num_curmtr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 216 ECCO_COST_INIT_VARIA 
          num_ageos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 217 ECCO_COST_INIT_VARIA 
          num_diffkr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 218 ECCO_COST_INIT_VARIA 
          num_kapgm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 219 ECCO_COST_INIT_VARIA 
          num_kapredi(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 220 ECCO_COST_INIT_VARIA 
          num_eddytau(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 221 ECCO_COST_INIT_VARIA 
          num_bottomdrag(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 224 ECCO_COST_INIT_VARIA 
            num_gencost(bi,bj,k)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 228 ECCO_COST_INIT_VARIA 
          num_usercost(k,bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 231 ECCO_COST_INIT_VARIA 
          num_sshv4cost(k,bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 233 ECCO_COST_INIT_VARIA 
          num_theta_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 234 ECCO_COST_INIT_VARIA 
          num_salt_ini_fin(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 239 ECCO_COST_INIT_VARIA 
      do bj = jtlo,jthi
./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 
                  mdtmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 247 ECCO_COST_INIT_VARIA 
                  mdtmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 249 ECCO_COST_INIT_VARIA 
               mdt(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 
                  tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 255 ECCO_COST_INIT_VARIA 
                  tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 257 ECCO_COST_INIT_VARIA 
               tpobs(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 
                  ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 263 ECCO_COST_INIT_VARIA 
                  ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 265 ECCO_COST_INIT_VARIA 
               ersobs(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 268 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 269 ECCO_COST_INIT_VARIA 
                  gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 271 ECCO_COST_INIT_VARIA 
                  gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 273 ECCO_COST_INIT_VARIA 
               gfoobs(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 276 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 277 ECCO_COST_INIT_VARIA 
                  tmimask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 279 ECCO_COST_INIT_VARIA 
                  tmimask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 283 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 284 ECCO_COST_INIT_VARIA 
                  sstmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 286 ECCO_COST_INIT_VARIA 
                  sstmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 290 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 291 ECCO_COST_INIT_VARIA 
                  sssmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 293 ECCO_COST_INIT_VARIA 
                  sssmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 297 ECCO_COST_INIT_VARIA 
               if (_hFacC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_init_varia.F 298 ECCO_COST_INIT_VARIA 
                  bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 300 ECCO_COST_INIT_VARIA 
                  bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 302 ECCO_COST_INIT_VARIA 
               bpdat(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 310 ECCO_COST_INIT_VARIA 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_init_varia.F 315 ECCO_COST_INIT_VARIA 
           tbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 316 ECCO_COST_INIT_VARIA 
           sbar_gen(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 44 ECCO_COST_INIT_VARIA 
      integer bi,bj
./pkg/ecco/ecco_cost_init_varia.F 83 ECCO_COST_INIT_VARIA 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_init_varia.F 85 ECCO_COST_INIT_VARIA 
          objf_hflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 86 ECCO_COST_INIT_VARIA 
          objf_hfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 87 ECCO_COST_INIT_VARIA 
          objf_sflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 88 ECCO_COST_INIT_VARIA 
          objf_sfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 89 ECCO_COST_INIT_VARIA 
          objf_tauu(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 90 ECCO_COST_INIT_VARIA 
          objf_tauum(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 91 ECCO_COST_INIT_VARIA 
          objf_tauv(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 92 ECCO_COST_INIT_VARIA 
          objf_tauvm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 93 ECCO_COST_INIT_VARIA 
          objf_temp(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 94 ECCO_COST_INIT_VARIA 
          objf_salt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 95 ECCO_COST_INIT_VARIA 
          objf_temp0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 96 ECCO_COST_INIT_VARIA 
          objf_salt0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 97 ECCO_COST_INIT_VARIA 
          objf_temp0smoo(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 98 ECCO_COST_INIT_VARIA 
          objf_salt0smoo(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 99 ECCO_COST_INIT_VARIA 
          objf_etan0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1004 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1009 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1010 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1012 ECCO_COST_WEIGHTS 
              wtauv(i,j,bi,bj) = max(wtauv(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 1014 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 1017 ECCO_COST_WEIGHTS 
              wtauv2(i,j,bi,bj) = wtau0*maskS(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1020 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 1022 ECCO_COST_WEIGHTS 
              wtauv2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1042 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1047 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1048 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1050 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1051 ECCO_COST_WEIGHTS 
              wvwind(i,j,bi,bj) = max(wvwind(i,j,bi,bj),wwind0)
./pkg/ecco/ecco_cost_weights.F 1052 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 1074 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1079 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1080 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1083 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = whflux(i,j,bi,bj)/3.
./pkg/ecco/ecco_cost_weights.F 1084 ECCO_COST_WEIGHTS 
              whflux(i,j,bi,bj) = max(whflux(i,j,bi,bj),whflux0)
./pkg/ecco/ecco_cost_weights.F 1086 ECCO_COST_WEIGHTS 
              whfluxm(i,j,bi,bj) = max(whfluxm(i,j,bi,bj),whflux0m)
./pkg/ecco/ecco_cost_weights.F 1089 ECCO_COST_WEIGHTS 
              whflux2(i,j,bi,bj) = whflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 1109 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1114 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1115 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1118 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1119 ECCO_COST_WEIGHTS 
              watemp(i,j,bi,bj) = max(watemp(i,j,bi,bj),watemp0)
./pkg/ecco/ecco_cost_weights.F 1143 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1148 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1149 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1152 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = wsflux(i,j,bi,bj) / 3.
./pkg/ecco/ecco_cost_weights.F 1153 ECCO_COST_WEIGHTS 
              wsflux(i,j,bi,bj) = max(wsflux(i,j,bi,bj),wsflux0)
./pkg/ecco/ecco_cost_weights.F 1155 ECCO_COST_WEIGHTS 
              wsfluxm(i,j,bi,bj) = max(wsfluxm(i,j,bi,bj),wsflux0m)
./pkg/ecco/ecco_cost_weights.F 1158 ECCO_COST_WEIGHTS 
              wsflux2(i,j,bi,bj) = wsflux0*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 116 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1178 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1183 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1184 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1187 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1188 ECCO_COST_WEIGHTS 
              waqh(i,j,bi,bj) = max(waqh(i,j,bi,bj),waqh0)
./pkg/ecco/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS 
              whflux  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1210 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1215 ECCO_COST_WEIGHTS 
              if (wprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1216 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1219 ECCO_COST_WEIGHTS 
              wprecip(i,j,bi,bj) = wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS 
              whfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1220 ECCO_COST_WEIGHTS 
              wprecip(i,j,bi,bj) = max(wprecip(i,j,bi,bj),wprecip0)
./pkg/ecco/ecco_cost_weights.F 122 ECCO_COST_WEIGHTS 
              wsflux  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 123 ECCO_COST_WEIGHTS 
              wsfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1242 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1247 ECCO_COST_WEIGHTS 
              if (wswflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1248 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 124 ECCO_COST_WEIGHTS 
              wtauu   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1251 ECCO_COST_WEIGHTS 
              wswflux(i,j,bi,bj) = wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1252 ECCO_COST_WEIGHTS 
              wswflux(i,j,bi,bj) = max(wswflux(i,j,bi,bj),wswflux0)
./pkg/ecco/ecco_cost_weights.F 125 ECCO_COST_WEIGHTS 
              wtauum  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 126 ECCO_COST_WEIGHTS 
              wtauv   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1274 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1279 ECCO_COST_WEIGHTS 
              if (wswdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 127 ECCO_COST_WEIGHTS 
              wtauvm  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1280 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1283 ECCO_COST_WEIGHTS 
              wswdown(i,j,bi,bj) = wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1284 ECCO_COST_WEIGHTS 
              wswdown(i,j,bi,bj) = max(wswdown(i,j,bi,bj),wswdown0)
./pkg/ecco/ecco_cost_weights.F 128 ECCO_COST_WEIGHTS 
              watemp  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 129 ECCO_COST_WEIGHTS 
              waqh    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1306 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 130 ECCO_COST_WEIGHTS 
              wprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1311 ECCO_COST_WEIGHTS 
              if (wlwflux(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1312 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1315 ECCO_COST_WEIGHTS 
              wlwflux(i,j,bi,bj) = wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1316 ECCO_COST_WEIGHTS 
              wlwflux(i,j,bi,bj) = max(wlwflux(i,j,bi,bj),wlwflux0)
./pkg/ecco/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS 
              wswflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 132 ECCO_COST_WEIGHTS 
              wswdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1338 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 133 ECCO_COST_WEIGHTS 
              wsnowprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1343 ECCO_COST_WEIGHTS 
              if (wlwdown(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1344 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1347 ECCO_COST_WEIGHTS 
              wlwdown(i,j,bi,bj) = wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1348 ECCO_COST_WEIGHTS 
              wlwdown(i,j,bi,bj) = max(wlwdown(i,j,bi,bj),wlwdown0)
./pkg/ecco/ecco_cost_weights.F 134 ECCO_COST_WEIGHTS 
              wlwflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 135 ECCO_COST_WEIGHTS 
              wlwdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 136 ECCO_COST_WEIGHTS 
              wevap   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1370 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1375 ECCO_COST_WEIGHTS 
              if (wsnowprecip(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1376 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1379 ECCO_COST_WEIGHTS 
              wsnowprecip(i,j,bi,bj) = wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 137 ECCO_COST_WEIGHTS 
              wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1380 ECCO_COST_WEIGHTS 
              wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1381 ECCO_COST_WEIGHTS 
     &            max(wsnowprecip(i,j,bi,bj),wsnowprecip0)
./pkg/ecco/ecco_cost_weights.F 138 ECCO_COST_WEIGHTS 
              wrunoff (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 139 ECCO_COST_WEIGHTS 
              wuwind  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1403 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1408 ECCO_COST_WEIGHTS 
              if (wevap(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1409 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 140 ECCO_COST_WEIGHTS 
              wvwind  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1412 ECCO_COST_WEIGHTS 
              wevap(i,j,bi,bj) = wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1413 ECCO_COST_WEIGHTS 
              wevap(i,j,bi,bj) = max(wevap(i,j,bi,bj),wevap0)
./pkg/ecco/ecco_cost_weights.F 141 ECCO_COST_WEIGHTS 
              wsst    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 142 ECCO_COST_WEIGHTS 
              wsss    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1435 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 143 ECCO_COST_WEIGHTS 
              wtp     (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1440 ECCO_COST_WEIGHTS 
              if (wapressure(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1441 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1444 ECCO_COST_WEIGHTS 
              wapressure(i,j,bi,bj) = wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1445 ECCO_COST_WEIGHTS 
              wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1446 ECCO_COST_WEIGHTS 
     &            max(wapressure(i,j,bi,bj),wapressure0)
./pkg/ecco/ecco_cost_weights.F 144 ECCO_COST_WEIGHTS 
              wers    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 145 ECCO_COST_WEIGHTS 
              wgfo    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1468 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 146 ECCO_COST_WEIGHTS 
              wetan   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1473 ECCO_COST_WEIGHTS 
              if (wrunoff(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1474 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1477 ECCO_COST_WEIGHTS 
              wrunoff(i,j,bi,bj) = wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1478 ECCO_COST_WEIGHTS 
              wrunoff(i,j,bi,bj) = max(wrunoff(i,j,bi,bj),wrunoff0)
./pkg/ecco/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
                wsshv4  (i,j,num_var,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1492 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1497 ECCO_COST_WEIGHTS 
              if (wbottomdrag(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1498 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 150 ECCO_COST_WEIGHTS 
              wp      (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1514 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 151 ECCO_COST_WEIGHTS 
              wudrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1520 ECCO_COST_WEIGHTS 
              if (wdiffkr2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1521 ECCO_COST_WEIGHTS 
                wdiffkr2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 152 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1538 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1544 ECCO_COST_WEIGHTS 
              if (wkapgm2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1545 ECCO_COST_WEIGHTS 
                wkapgm2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 154 ECCO_COST_WEIGHTS 
              whflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 155 ECCO_COST_WEIGHTS 
              wsflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1562 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1568 ECCO_COST_WEIGHTS 
              if (wkapredi2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1569 ECCO_COST_WEIGHTS 
                wkapredi2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 156 ECCO_COST_WEIGHTS 
              wtauu2  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 157 ECCO_COST_WEIGHTS 
              wtauv2  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1586 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1592 ECCO_COST_WEIGHTS 
              if (wedtaux2(i,j,k,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1593 ECCO_COST_WEIGHTS 
                wedtaux2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1595 ECCO_COST_WEIGHTS 
              wedtauy2(i,j,k,bi,bj)=wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 159 ECCO_COST_WEIGHTS 
              wbottomdrag (i,j,bi,bj) = wbottomdrag0
./pkg/ecco/ecco_cost_weights.F 1619 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1629 ECCO_COST_WEIGHTS 
                gencost_weight(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1633 ECCO_COST_WEIGHTS 
              if (gencost_weight(i,j,bi,bj,k) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 1634 ECCO_COST_WEIGHTS 
                gencost_weight(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 164 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1650 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1655 ECCO_COST_WEIGHTS 
              if ( wetan(i,j,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 1656 ECCO_COST_WEIGHTS 
                 wetan(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1658 ECCO_COST_WEIGHTS 
                 wetan(i,j,bi,bj)=frame(i,j)*maskC(i,j,1,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1659 ECCO_COST_WEIGHTS 
     $              ( wetan(i,j,bi,bj)*wetan(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 167 ECCO_COST_WEIGHTS 
            wtheta (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 168 ECCO_COST_WEIGHTS 
            wsalt  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1690 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1696 ECCO_COST_WEIGHTS 
              if ( wuvel3d(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 1697 ECCO_COST_WEIGHTS 
                 wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1699 ECCO_COST_WEIGHTS 
                 wuvel3d(i,j,k,bi,bj)=frame(i,j)*maskW(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 169 ECCO_COST_WEIGHTS 
            wuvel  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1700 ECCO_COST_WEIGHTS 
     $              ( wuvel3d(i,j,k,bi,bj)*wuvel3d(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 1702 ECCO_COST_WEIGHTS 
              if ( wvvel3d(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 1703 ECCO_COST_WEIGHTS 
                 wvvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1705 ECCO_COST_WEIGHTS 
                 wvvel3d(i,j,k,bi,bj)=frame(i,j)*maskS(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 1706 ECCO_COST_WEIGHTS 
     $              ( wvvel3d(i,j,k,bi,bj)*wvvel3d(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 170 ECCO_COST_WEIGHTS 
            wvvel  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 171 ECCO_COST_WEIGHTS 
            wctdt  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1724 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1728 ECCO_COST_WEIGHTS 
              if (wtp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1729 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 172 ECCO_COST_WEIGHTS 
            wctds  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1731 ECCO_COST_WEIGHTS 
              if (wers(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1732 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 1734 ECCO_COST_WEIGHTS 
              if (wgfo(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1735 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 1737 ECCO_COST_WEIGHTS 
              if (wp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1738 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 173 ECCO_COST_WEIGHTS 
            wdiffkr(k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F 1740 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1741 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 1743 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1745 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1746 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1747 ECCO_COST_WEIGHTS 
     &            1./wtauum(i,j,bi,bj)/wtauum(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1749 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 174 ECCO_COST_WEIGHTS 
            wkapgm (k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F 1751 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1752 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1753 ECCO_COST_WEIGHTS 
     &            1./wscatx(i,j,bi,bj)/wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1755 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1757 ECCO_COST_WEIGHTS 
              if (wtauv(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1758 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 175 ECCO_COST_WEIGHTS 
            wkapredi (k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F 1760 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1762 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1763 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1764 ECCO_COST_WEIGHTS 
     &           1./wtauvm(i,j,bi,bj)/wtauvm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1766 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1768 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1769 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 176 ECCO_COST_WEIGHTS 
            wedtaux(k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 1770 ECCO_COST_WEIGHTS 
     &           1./wscaty(i,j,bi,bj)/wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1772 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1774 ECCO_COST_WEIGHTS 
              if (whflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1775 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1776 ECCO_COST_WEIGHTS 
     &                1./whflux(i,j,bi,bj)/whflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1778 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 177 ECCO_COST_WEIGHTS 
            wedtauy(k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 1780 ECCO_COST_WEIGHTS 
              if (whfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1781 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1782 ECCO_COST_WEIGHTS 
     &                1./whfluxm(i,j,bi,bj)/whfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1784 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1786 ECCO_COST_WEIGHTS 
              if (wsflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1787 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1788 ECCO_COST_WEIGHTS 
     &                1./wsflux(i,j,bi,bj)/wsflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1790 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1792 ECCO_COST_WEIGHTS 
              if (wsfluxm(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1793 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1794 ECCO_COST_WEIGHTS 
     &                1./wsfluxm(i,j,bi,bj)/wsfluxm(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1796 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1798 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1799 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1800 ECCO_COST_WEIGHTS 
     &                1./wuwind(i,j,bi,bj)/wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1802 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1804 ECCO_COST_WEIGHTS 
              if (wvwind(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1805 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1806 ECCO_COST_WEIGHTS 
     &                1./wvwind(i,j,bi,bj)/wvwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1808 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 180 ECCO_COST_WEIGHTS 
                wtheta2 (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1810 ECCO_COST_WEIGHTS 
              if (watemp(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1811 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1812 ECCO_COST_WEIGHTS 
     &                1./watemp(i,j,bi,bj)/watemp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1814 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1816 ECCO_COST_WEIGHTS 
              if (waqh(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1817 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1818 ECCO_COST_WEIGHTS 
     &                1./waqh(i,j,bi,bj)/waqh(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 181 ECCO_COST_WEIGHTS 
                wsalt2  (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1820 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1822 ECCO_COST_WEIGHTS 
              if (wprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1823 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1824 ECCO_COST_WEIGHTS 
     &                1./wprecip(i,j,bi,bj)/wprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1826 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1828 ECCO_COST_WEIGHTS 
              if (wswflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1829 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 182 ECCO_COST_WEIGHTS 
                wdiffkr2(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F 1830 ECCO_COST_WEIGHTS 
     &                1./wswflux(i,j,bi,bj)/wswflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1832 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1834 ECCO_COST_WEIGHTS 
              if (wswdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1835 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1836 ECCO_COST_WEIGHTS 
     &                1./wswdown(i,j,bi,bj)/wswdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1838 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 183 ECCO_COST_WEIGHTS 
                wkapgm2 (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F 1840 ECCO_COST_WEIGHTS 
              if (wlwflux(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1841 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1842 ECCO_COST_WEIGHTS 
     &                1./wlwflux(i,j,bi,bj)/wlwflux(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1844 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1846 ECCO_COST_WEIGHTS 
              if (wlwdown(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1847 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1848 ECCO_COST_WEIGHTS 
     &                1./wlwdown(i,j,bi,bj)/wlwdown(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 184 ECCO_COST_WEIGHTS 
                wkapredi2 (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F 1850 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1852 ECCO_COST_WEIGHTS 
              if (wevap(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1853 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1854 ECCO_COST_WEIGHTS 
     &                1./wevap(i,j,bi,bj)/wevap(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1856 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1858 ECCO_COST_WEIGHTS 
              if (wsnowprecip(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1859 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 185 ECCO_COST_WEIGHTS 
                wedtaux2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 1860 ECCO_COST_WEIGHTS 
     &                1./wsnowprecip(i,j,bi,bj)/wsnowprecip(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1862 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1864 ECCO_COST_WEIGHTS 
              if (wapressure(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1865 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1866 ECCO_COST_WEIGHTS 
     &                1./wapressure(i,j,bi,bj)/wapressure(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1868 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 186 ECCO_COST_WEIGHTS 
                wedtauy2(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 1870 ECCO_COST_WEIGHTS 
              if (wrunoff(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1871 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1872 ECCO_COST_WEIGHTS 
     &                1./wrunoff(i,j,bi,bj)/wrunoff(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1874 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1876 ECCO_COST_WEIGHTS 
              if (wbottomdrag(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1877 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1878 ECCO_COST_WEIGHTS 
     &                1./wbottomdrag(i,j,bi,bj)/wbottomdrag(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 187 ECCO_COST_WEIGHTS 
                wthetaLev (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1880 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 188 ECCO_COST_WEIGHTS 
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1890 ECCO_COST_WEIGHTS 
              if (whflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1891 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1892 ECCO_COST_WEIGHTS 
     &                1./whflux2(i,j,bi,bj)/whflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1894 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1896 ECCO_COST_WEIGHTS 
              if (wsflux2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1897 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1898 ECCO_COST_WEIGHTS 
     &                1./wsflux2(i,j,bi,bj)/wsflux2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 189 ECCO_COST_WEIGHTS 
                wdiffkrFld(i,j,k,bi,bj) = wdiffkr0
./pkg/ecco/ecco_cost_weights.F 1900 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1902 ECCO_COST_WEIGHTS 
              if (wtauu2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1903 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 1904 ECCO_COST_WEIGHTS 
     &                1./wtauu2(i,j,bi,bj)/wtauu2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1906 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1908 ECCO_COST_WEIGHTS 
              if (wtauv2(i,j,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1909 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 190 ECCO_COST_WEIGHTS 
                wkapgmFld (i,j,k,bi,bj) = wkapgm0
./pkg/ecco/ecco_cost_weights.F 1910 ECCO_COST_WEIGHTS 
     &                1./wtauv2(i,j,bi,bj)/wtauv2(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1912 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1917 ECCO_COST_WEIGHTS 
              if (gencost_weight(i,j,bi,bj,k) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1918 ECCO_COST_WEIGHTS 
                 gencost_weight(i,j,bi,bj,k) =
./pkg/ecco/ecco_cost_weights.F 1919 ECCO_COST_WEIGHTS 
     &                1./gencost_weight(i,j,bi,bj,k)/
./pkg/ecco/ecco_cost_weights.F 191 ECCO_COST_WEIGHTS 
                wkaprediFld (i,j,k,bi,bj) = wkapredi0
./pkg/ecco/ecco_cost_weights.F 1920 ECCO_COST_WEIGHTS 
     &                   gencost_weight(i,j,bi,bj,k)
./pkg/ecco/ecco_cost_weights.F 1922 ECCO_COST_WEIGHTS 
                 gencost_weight(i,j,bi,bj,k) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 192 ECCO_COST_WEIGHTS 
                wedtauxFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 193 ECCO_COST_WEIGHTS 
                wedtauyFld(i,j,k,bi,bj) = wedtau0
./pkg/ecco/ecco_cost_weights.F 196 ECCO_COST_WEIGHTS 
                wuvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1971 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 1974 ECCO_COST_WEIGHTS 
            if (wdiffkr(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1975 ECCO_COST_WEIGHTS 
              wdiffkr(k,bi,bj) = 1./wdiffkr(k,bi,bj)/wdiffkr(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1977 ECCO_COST_WEIGHTS 
              wdiffkr(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1979 ECCO_COST_WEIGHTS 
            if (wkapgm(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 197 ECCO_COST_WEIGHTS 
                wvvel3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1980 ECCO_COST_WEIGHTS 
              wkapgm(k,bi,bj) = 1./wkapgm(k,bi,bj)/wkapgm(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1982 ECCO_COST_WEIGHTS 
              wkapgm(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1984 ECCO_COST_WEIGHTS 
            if (wkapredi(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1985 ECCO_COST_WEIGHTS 
              wkapredi(k,bi,bj) = 1./wkapredi(k,bi,bj)/wkapredi(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1987 ECCO_COST_WEIGHTS 
              wkapredi(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1989 ECCO_COST_WEIGHTS 
            if (wedtaux(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1990 ECCO_COST_WEIGHTS 
              wedtaux(k,bi,bj) = 1./wedtaux(k,bi,bj)/wedtaux(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1992 ECCO_COST_WEIGHTS 
              wedtaux(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1994 ECCO_COST_WEIGHTS 
            if (wedtauy(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 1995 ECCO_COST_WEIGHTS 
              wedtauy(k,bi,bj) = 1./wedtauy(k,bi,bj)/wedtauy(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 1997 ECCO_COST_WEIGHTS 
              wedtauy(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 2001 ECCO_COST_WEIGHTS 
                if (wdiffkr2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 2002 ECCO_COST_WEIGHTS 
                   wdiffkr2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2003 ECCO_COST_WEIGHTS 
     &                  wdiffkr2(i,j,k,bi,bj)/wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2005 ECCO_COST_WEIGHTS 
                   wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 2007 ECCO_COST_WEIGHTS 
                wdiffkrFld(i,j,k,bi,bj) = wdiffkr2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2009 ECCO_COST_WEIGHTS 
                if (wkapgm2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 2010 ECCO_COST_WEIGHTS 
                   wkapgm2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2011 ECCO_COST_WEIGHTS 
     &                  wkapgm2(i,j,k,bi,bj)/wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2013 ECCO_COST_WEIGHTS 
                   wkapgm2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 2015 ECCO_COST_WEIGHTS 
                wkapgmFld(i,j,k,bi,bj) = wkapgm2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2017 ECCO_COST_WEIGHTS 
                if (wkapredi2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 2018 ECCO_COST_WEIGHTS 
                   wkapredi2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2019 ECCO_COST_WEIGHTS 
     &                  wkapredi2(i,j,k,bi,bj)/wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2021 ECCO_COST_WEIGHTS 
                   wkapredi2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 2023 ECCO_COST_WEIGHTS 
                wkaprediFld(i,j,k,bi,bj) = wkapredi2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2025 ECCO_COST_WEIGHTS 
                if (wedtaux2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 2026 ECCO_COST_WEIGHTS 
                   wedtaux2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2027 ECCO_COST_WEIGHTS 
     &                  wedtaux2(i,j,k,bi,bj)/wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2029 ECCO_COST_WEIGHTS 
                   wedtaux2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 2031 ECCO_COST_WEIGHTS 
                wedtauxFld(i,j,k,bi,bj) = wedtaux2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2033 ECCO_COST_WEIGHTS 
                if (wedtauy2(i,j,k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 2034 ECCO_COST_WEIGHTS 
                   wedtauy2(i,j,k,bi,bj) = frame(i,j)/
./pkg/ecco/ecco_cost_weights.F 2035 ECCO_COST_WEIGHTS 
     &                  wedtauy2(i,j,k,bi,bj)/wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 2037 ECCO_COST_WEIGHTS 
                   wedtauy2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 2039 ECCO_COST_WEIGHTS 
                wedtauyFld(i,j,k,bi,bj) = wedtauy2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 253 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 259 ECCO_COST_WEIGHTS 
              cosphi(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 300 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 311 ECCO_COST_WEIGHTS 
            wtheta(k,bi,bj)   = wti(k)
./pkg/ecco/ecco_cost_weights.F 312 ECCO_COST_WEIGHTS 
            wsalt (k,bi,bj)   = wsi(k)
./pkg/ecco/ecco_cost_weights.F 313 ECCO_COST_WEIGHTS 
            wcurrent(k,bi,bj) = wvi(k)
./pkg/ecco/ecco_cost_weights.F 315 ECCO_COST_WEIGHTS 
            if (wtheta(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 316 ECCO_COST_WEIGHTS 
              wtheta(k,bi,bj) = ratio/wtheta(k,bi,bj)/wtheta(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 318 ECCO_COST_WEIGHTS 
              wtheta(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 320 ECCO_COST_WEIGHTS 
            if (wsalt(k,bi,bj) .ne. 0.) then
./pkg/ecco/ecco_cost_weights.F 321 ECCO_COST_WEIGHTS 
              wsalt(k,bi,bj) = ratio/wsalt(k,bi,bj)/wsalt(k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 323 ECCO_COST_WEIGHTS 
              wsalt(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 363 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 369 ECCO_COST_WEIGHTS 
              if ( wsaltLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 370 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 372 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 373 ECCO_COST_WEIGHTS 
     $              ( wsaltLev(i,j,k,bi,bj)*wsaltLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 381 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 386 ECCO_COST_WEIGHTS 
               wsaltLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F 387 ECCO_COST_WEIGHTS 
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 406 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 412 ECCO_COST_WEIGHTS 
              if ( wthetaLev(i,j,k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 413 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 415 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 416 ECCO_COST_WEIGHTS 
     $              ( wthetaLev(i,j,k,bi,bj)*wthetaLev(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 424 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 429 ECCO_COST_WEIGHTS 
               wthetaLev(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F 430 ECCO_COST_WEIGHTS 
     $             wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 452 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 458 ECCO_COST_WEIGHTS 
              if (wsalt(k,bi,bj).eq.0. .or.
./pkg/ecco/ecco_cost_weights.F 459 ECCO_COST_WEIGHTS 
     $             wsalt2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F 460 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 462 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj)=frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 463 ECCO_COST_WEIGHTS 
     $              ( wsalt2(i,j,k,bi,bj)*wsalt2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 471 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 476 ECCO_COST_WEIGHTS 
                wsalt2(i,j,k,bi,bj)=
./pkg/ecco/ecco_cost_weights.F 477 ECCO_COST_WEIGHTS 
     $             wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 499 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 49 ECCO_COST_WEIGHTS 
      integer bi,bj
./pkg/ecco/ecco_cost_weights.F 505 ECCO_COST_WEIGHTS 
              if (wtheta(k,bi,bj).eq.0. .or.
./pkg/ecco/ecco_cost_weights.F 506 ECCO_COST_WEIGHTS 
     $            wtheta2(i,j,k,bi,bj).eq.0.) then
./pkg/ecco/ecco_cost_weights.F 507 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 509 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 510 ECCO_COST_WEIGHTS 
     $                  ( wtheta2(i,j,k,bi,bj)*wtheta2(i,j,k,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 518 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 523 ECCO_COST_WEIGHTS 
              if (wtheta(k,bi,bj).eq.0 ) then
./pkg/ecco/ecco_cost_weights.F 524 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 526 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 527 ECCO_COST_WEIGHTS 
     $              wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 550 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 560 ECCO_COST_WEIGHTS 
                if (wsst(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F 561 ECCO_COST_WEIGHTS 
     &               wsst(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 562 ECCO_COST_WEIGHTS 
     &                  ( wsst(i,j,bi,bj)*wsst(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 566 ECCO_COST_WEIGHTS 
                  wsst(i,j,bi,bj) = wtheta2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 568 ECCO_COST_WEIGHTS 
                  wsst(i,j,bi,bj) = wthetaLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 570 ECCO_COST_WEIGHTS 
                  wsst(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 571 ECCO_COST_WEIGHTS 
     &               wtheta(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 580 ECCO_COST_WEIGHTS 
                if (wsss(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F 581 ECCO_COST_WEIGHTS 
     &               wsss(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 582 ECCO_COST_WEIGHTS 
     &                  ( wsss(i,j,bi,bj)*wsss(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 587 ECCO_COST_WEIGHTS 
                  wsss(i,j,bi,bj) = wsalt2(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 589 ECCO_COST_WEIGHTS 
                  wsss(i,j,bi,bj) = wsaltLev(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 591 ECCO_COST_WEIGHTS 
                  wsss(i,j,bi,bj) =
./pkg/ecco/ecco_cost_weights.F 592 ECCO_COST_WEIGHTS 
     &               wsalt(k,bi,bj)*frame(i,j)*maskC(i,j,k,bi,bj)
./pkg/ecco/ecco_cost_weights.F 621 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 625 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = wp(i,j,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 627 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F 628 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F 629 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F 630 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./pkg/ecco/ecco_cost_weights.F 631 ECCO_COST_WEIGHTS 
                 wp(i,j,bi,bj) = wp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 639 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 643 ECCO_COST_WEIGHTS 
              wp(i,j,bi,bj) = frame(i,j)
./pkg/ecco/ecco_cost_weights.F 659 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 666 ECCO_COST_WEIGHTS 
               if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F 667 ECCO_COST_WEIGHTS 
                  wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 668 ECCO_COST_WEIGHTS 
                  wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 669 ECCO_COST_WEIGHTS 
                  wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 671 ECCO_COST_WEIGHTS 
                  wtp (i,j,bi,bj) = ( wtp(i,j,bi,bj) * 0.01 * 0.5 )
./pkg/ecco/ecco_cost_weights.F 673 ECCO_COST_WEIGHTS 
                  wers(i,j,bi,bj) = ( wtp(i,j,bi,bj) + 0.05 )
./pkg/ecco/ecco_cost_weights.F 675 ECCO_COST_WEIGHTS 
                  wgfo(i,j,bi,bj) = wers(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 698 ECCO_COST_WEIGHTS 
         do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 703 ECCO_COST_WEIGHTS 
             if (maskC(i,j,k,bi,bj) .eq. 0.) then
./pkg/ecco/ecco_cost_weights.F 705 ECCO_COST_WEIGHTS 
     &               wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 707 ECCO_COST_WEIGHTS 
     &             wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 709 ECCO_COST_WEIGHTS 
     &             wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 713 ECCO_COST_WEIGHTS 
                 wtp (i,j,bi,bj) = wtp (i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 719 ECCO_COST_WEIGHTS 
                 wers(i,j,bi,bj) = wers(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 720 ECCO_COST_WEIGHTS 
                 if ( wers(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F 721 ECCO_COST_WEIGHTS 
     &                wers(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 724 ECCO_COST_WEIGHTS 
                 wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj) * 0.01 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 725 ECCO_COST_WEIGHTS 
                 if ( wgfo(i,j,bi,bj) .EQ. 0. )
./pkg/ecco/ecco_cost_weights.F 726 ECCO_COST_WEIGHTS 
     &                wgfo(i,j,bi,bj) = 0.1 * frame(i,j)
./pkg/ecco/ecco_cost_weights.F 735 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 740 ECCO_COST_WEIGHTS 
              if ( xC(i,j,bi,bj) .GT. 120. .AND.
./pkg/ecco/ecco_cost_weights.F 741 ECCO_COST_WEIGHTS 
     &             xC(i,j,bi,bj) .LT. 130. .AND.
./pkg/ecco/ecco_cost_weights.F 742 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .GT. -10. .AND.
./pkg/ecco/ecco_cost_weights.F 743 ECCO_COST_WEIGHTS 
     &             yC(i,j,bi,bj) .LT.  10. ) then
./pkg/ecco/ecco_cost_weights.F 744 ECCO_COST_WEIGHTS 
                 wtp(i,j,bi,bj)  = wtp(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 745 ECCO_COST_WEIGHTS 
                 wers(i,j,bi,bj) = wers(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 746 ECCO_COST_WEIGHTS 
                 wgfo(i,j,bi,bj) = wgfo(i,j,bi,bj)*100.
./pkg/ecco/ecco_cost_weights.F 765 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 769 ECCO_COST_WEIGHTS 
            wsshv4tmp(i,j,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 776 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 780 ECCO_COST_WEIGHTS 
              wsshv4tmp(i,j,bi,bj)=0. _d 0
./pkg/ecco/ecco_cost_weights.F 787 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 791 ECCO_COST_WEIGHTS 
      if (wsshv4tmp(i,j,bi,bj).ne.0) then
./pkg/ecco/ecco_cost_weights.F 792 ECCO_COST_WEIGHTS 
        wsshv4tmp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 793 ECCO_COST_WEIGHTS 
     &        ( wsshv4tmp(i,j,bi,bj)* wsshv4tmp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 794 ECCO_COST_WEIGHTS 
        wsshv4(i,j,num_var,bi,bj)=wsshv4tmp(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 815 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 819 ECCO_COST_WEIGHTS 
                if (wbp(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F 820 ECCO_COST_WEIGHTS 
     &               wbp(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 821 ECCO_COST_WEIGHTS 
     &                  ( wbp(i,j,bi,bj)* wbp(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 836 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 840 ECCO_COST_WEIGHTS 
                if (wies(i,j,bi,bj).ne.0)
./pkg/ecco/ecco_cost_weights.F 841 ECCO_COST_WEIGHTS 
     &               wies(i,j,bi,bj)= frame(i,j)*maskC(i,j,k,bi,bj)/
./pkg/ecco/ecco_cost_weights.F 842 ECCO_COST_WEIGHTS 
     &                  ( wies(i,j,bi,bj)* wies(i,j,bi,bj) )
./pkg/ecco/ecco_cost_weights.F 863 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 869 ECCO_COST_WEIGHTS 
              if (wscatx(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 870 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 872 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = wscatx(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 873 ECCO_COST_WEIGHTS 
              wscatx(i,j,bi,bj) = max(wscatx(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 874 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 876 ECCO_COST_WEIGHTS 
              if (wscaty(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 877 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 879 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = wscaty(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 880 ECCO_COST_WEIGHTS 
              wscaty(i,j,bi,bj) = max(wscaty(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 881 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 900 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 906 ECCO_COST_WEIGHTS 
              if (wtauum(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 907 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 909 ECCO_COST_WEIGHTS 
              wtauum(i,j,bi,bj) = max(wtauum(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F 912 ECCO_COST_WEIGHTS 
              if (wtauvm(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 913 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 915 ECCO_COST_WEIGHTS 
              wtauvm(i,j,bi,bj) = max(wtauvm(i,j,bi,bj),wtau0m)
./pkg/ecco/ecco_cost_weights.F 934 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 940 ECCO_COST_WEIGHTS 
              if (wtauu(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 941 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 943 ECCO_COST_WEIGHTS 
              wtauu(i,j,bi,bj) = max(wtauu(i,j,bi,bj),wtau0)
./pkg/ecco/ecco_cost_weights.F 945 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 948 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskW(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 951 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 953 ECCO_COST_WEIGHTS 
              wtauu2(i,j,bi,bj) = wtau0*maskc(i,j,k,bi,bj)*frame(i,j)
./pkg/ecco/ecco_cost_weights.F 972 ECCO_COST_WEIGHTS 
      do bj = jtlo,jthi
./pkg/ecco/ecco_cost_weights.F 978 ECCO_COST_WEIGHTS 
              if (wuwind(i,j,bi,bj) .lt. -9900.) then
./pkg/ecco/ecco_cost_weights.F 979 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 981 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)
./pkg/ecco/ecco_cost_weights.F 982 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = max(wuwind(i,j,bi,bj),wwind0)
./pkg/ecco/ecco_cost_weights.F 983 ECCO_COST_WEIGHTS 
              wuwind(i,j,bi,bj) = wuwind(i,j,bi,bj)*maskc(i,j,k,bi,bj)
./pkg/ecco/ecco_phys.F 42 ECCO_PHYS 
      integer bi,bj
./pkg/ecco/ecco_phys.F 60 ECCO_PHYS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/ecco_phys.F 65 ECCO_PHYS 
     I                theta(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/ecco_phys.F 66 ECCO_PHYS 
     I                salt (1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/ecco_phys.F 67 ECCO_PHYS 
     O                RHOInSituLoc(1-OLx,1-OLy,k,bi,bj),
./pkg/ecco/ecco_phys.F 68 ECCO_PHYS 
     I                k, bi, bj, myThid )
./pkg/ecco/ecco_phys.F 73 ECCO_PHYS 
      DO bj=myByLo(myThid),myByHi(myThid)
./pkg/ecco/ecco_phys.F 75 ECCO_PHYS 
          RHOsumTile(bi,bj)=0. _d 0
./pkg/ecco/ecco_phys.F 76 ECCO_PHYS 
          VOLsumTile(bi,bj)=0. _d 0
./pkg/ecco/ecco_phys.F 82 ECCO_PHYS 
                RHOsumTile(bi,bj)=RHOsumTile(bi,bj)+
./pkg/ecco/ecco_phys.F 83 ECCO_PHYS 
     &            (rhoConst+RHOInSituLoc(i,j,k,bi,bj))*
./pkg/ecco/ecco_phys.F 84 ECCO_PHYS 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)
./pkg/ecco/ecco_phys.F 85 ECCO_PHYS 
                VOLsumTile(bi,bj)=VOLsumTile(bi,bj)+
./pkg/ecco/ecco_phys.F 86 ECCO_PHYS 
     &            hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj)