Symbol Description Uses
r Donnor/Receiver indices 123


File Line number Procedure Code
./pkg/fizhi/slprs.F 31 SLPRS 
      _RL  getcon,g,r,ak
./pkg/streamice/streamice_init_varia.F 353 STREAMICE_INIT_VARIA 
            DO r=1,Nr
./pkg/streamice/streamice_init_varia.F 354 STREAMICE_INIT_VARIA 
             B_glen(i,j,r,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_upd_ffrac_uncoupled.F 31 STREAMICE_UPD_FFRAC_UNCOUPLED 
      _RL OD, rhoi, rhow, delta, r, h, hf, i_r, rlo
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 44 STREAMICE_UPD_FFRAC_UNCOUPLED 
      r=rhoi/rhow
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 45 STREAMICE_UPD_FFRAC_UNCOUPLED 
      i_r = 1/r
./pkg/streamice/streamice_upd_ffrac_uncoupled.F 46 STREAMICE_UPD_FFRAC_UNCOUPLED 
      delta=1-r
./pkg/bbl/bbl_calc_rhs.F 163 BBL_CALC_RHS 
            r = j + 1
./pkg/bbl/bbl_calc_rhs.F 166 BBL_CALC_RHS 
            r = j
./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 180 BBL_CALC_RHS 
           Theta_r    = tLoc(i,r)
./pkg/bbl/bbl_calc_rhs.F 181 BBL_CALC_RHS 
           Salt_r     = sLoc(i,r)
./pkg/bbl/bbl_calc_rhs.F 183 BBL_CALC_RHS 
           bblTheta_r = bbl_theta(i,r,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 187 BBL_CALC_RHS 
           bblEta_r   = bbl_eta  (i,r,bi,bj)
./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 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 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 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 265 BBL_CALC_RHS 
             r = j + 1
./pkg/bbl/bbl_calc_rhs.F 268 BBL_CALC_RHS 
             r = j
./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 282 BBL_CALC_RHS 
            Theta_r    = tLoc(i,r)
./pkg/bbl/bbl_calc_rhs.F 283 BBL_CALC_RHS 
            Salt_r     = sLoc(i,r)
./pkg/bbl/bbl_calc_rhs.F 285 BBL_CALC_RHS 
            bblTheta_r = bbl_theta(i,r,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 289 BBL_CALC_RHS 
            bblEta_r   = bbl_eta  (i,r,bi,bj)
./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 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 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 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 368 BBL_CALC_RHS 
            r = i + 1
./pkg/bbl/bbl_calc_rhs.F 371 BBL_CALC_RHS 
            r = i
./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 385 BBL_CALC_RHS 
           Theta_r    = tLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F 386 BBL_CALC_RHS 
           Salt_r     = sLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F 388 BBL_CALC_RHS 
           bblTheta_r = bbl_theta(r,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 392 BBL_CALC_RHS 
           bblEta_r   = bbl_eta  (r,j,bi,bj)
./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 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 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 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 470 BBL_CALC_RHS 
             r = i + 1
./pkg/bbl/bbl_calc_rhs.F 473 BBL_CALC_RHS 
             r = i
./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 487 BBL_CALC_RHS 
            Theta_r    = tLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F 488 BBL_CALC_RHS 
            Salt_r     = sLoc(r,j)
./pkg/bbl/bbl_calc_rhs.F 490 BBL_CALC_RHS 
            bblTheta_r = bbl_theta(r,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 494 BBL_CALC_RHS 
            bblEta_r   = bbl_eta  (r,j,bi,bj)
./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 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 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 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 66 BBL_CALC_RHS 
      INTEGER i, j, d, r, kBot, kLowC1, kLowC2, kl
./lsopt/hessupd.F 101 HESSUPD 
            dd(i) = dd(i) + r*xdiff(i)
./lsopt/hessupd.F 48 HESSUPD 
      double precision    r
./lsopt/hessupd.F 73 HESSUPD 
         r = DDOT( nn, dd, 1, xdiff,1 )
./lsopt/hessupd.F 75 HESSUPD 
         alpha(jp) = r
./lsopt/hessupd.F 77 HESSUPD 
            dd(i) = dd(i) - r*xdiff(i)
./lsopt/hessupd.F 98 HESSUPD 
         r = alpha(jp) - DDOT( nn, dd,1 , xdiff, 1 )