Symbol Description Uses
b 99


File Line number Procedure Code
./pkg/fizhi/fizhi_utils.F 391 STRIPIT 
      subroutine STRIPIT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 394 STRIPIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 404 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 409 STRIPIT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 412 STRIPIT 
        b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F 419 STRIPITINT 
      subroutine STRIPITINT(a,b,irun,ia,ib,l,k)
./pkg/fizhi/fizhi_utils.F 421 STRIPITINT 
      integer ia,ib,irun,l,k,a(ia,l),b(ib,l)
./pkg/fizhi/fizhi_utils.F 431 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 436 STRIPITINT 
        b(i,j) = a(i+offset-1,j)
./pkg/fizhi/fizhi_utils.F 439 STRIPITINT 
        b(Lena+i,j) = a(Lena+offset-1,j)
./pkg/fizhi/fizhi_utils.F 446 PASTIT 
      subroutine PASTIT(b,a,ib,ia,irun,L,k)
./pkg/fizhi/fizhi_utils.F 450 PASTIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 458 PASTIT 
      a(i+offset-1,j) = b(i,j)
./pkg/fizhi/fizhi_utils.F 463 PSTBITINT 
      subroutine PSTBITINT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 467 PSTBITINT 
      integer b(ib,l)
./pkg/fizhi/fizhi_utils.F 476 PSTBITINT 
      a(i+offset-1,j) = a(i+offset-1,j) + float(b(i,j))
./pkg/fizhi/fizhi_utils.F 482 PSTBMPIT 
      subroutine PSTBMPIT(b,a,ib,ia,irun,l,k)
./pkg/fizhi/fizhi_utils.F 485 PSTBMPIT 
      _RL a(ia,l), b(ib,l)
./pkg/fizhi/fizhi_utils.F 494 PSTBMPIT 
      a(i+offset-1,j) = a(i+offset-1,j) + b(i,j)
./pkg/fizhi/fizhi_utils.F 499 STRIP2TILE 
      subroutine STRIP2TILE(a,indx,b,irun,ia,ib,levs,npeice)
./pkg/fizhi/fizhi_utils.F 520 STRIP2TILE 
      _RL a(ia,levs), b(ib,levs)
./pkg/fizhi/fizhi_utils.F 531 STRIP2TILE 
        b(i,k) = a(indx(i+offset-1),k)
./pkg/fizhi/fizhi_utils.F 536 STRIP2TILE 
        b(i,k) = a(indx(i+offset-1),k)
./pkg/fizhi/fizhi_utils.F 539 STRIP2TILE 
        b(Lena+i,k) = a(indx(Lena+offset-1),k)
./pkg/fizhi/fizhi_utils.F 546 PASTE2GRD_OLD 
      subroutine PASTE2GRD_OLD(b,indx,chfr,ib,numpts,a,ia,levs,npeice)
./pkg/fizhi/fizhi_utils.F 575 PASTE2GRD_OLD 
      _RL a(ia,levs), b(ib,levs), chfr(ib)
./pkg/fizhi/fizhi_utils.F 585 PASTE2GRD_OLD 
       a(indx(i+offset-1),L) = a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/fizhi/fizhi_utils.F 590 PASTE2GRD 
      subroutine PASTE2GRD (b,indx,chfr,ib,numpts,a,ia,levs,npeice,
./pkg/fizhi/fizhi_utils.F 621 PASTE2GRD 
      _RL a(ia,levs), b(ib,levs), chfr(ib)
./pkg/fizhi/fizhi_utils.F 635 PASTE2GRD 
        if( a(indx(i+offset-1),L).eq.undef .or. b(i,L).eq.undef ) then
./pkg/fizhi/fizhi_utils.F 638 PASTE2GRD 
         a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/fizhi/fizhi_utils.F 645 PASTE2GRD 
        a(indx(i+offset-1),L)=a(indx(i+offset-1),L) + b(i,L)*chfr(i)
./pkg/frazil/frazil_calc_rhs.F 44 FRAZIL_CALC_RHS 
      _RL a0, a1, a2, b
./pkg/frazil/frazil_calc_rhs.F 48 FRAZIL_CALC_RHS 
      PARAMETER( b  = -7.53     _d -4 )
./pkg/frazil/frazil_calc_rhs.F 88 FRAZIL_CALC_RHS 
            Tfreezing = (a0 + a1*sqrt(sLoc) + a2*sLoc) * sLoc + b*pLoc
./pkg/icefront/icefront_thermodynamics.F 129 ICEFRONT_THERMODYNAMICS 
            eps4 = b*pLoc + c0
./pkg/icefront/icefront_thermodynamics.F 69 ICEFRONT_THERMODYNAMICS 
      _RL a0, b, c0
./pkg/icefront/icefront_thermodynamics.F 82 ICEFRONT_THERMODYNAMICS 
      b  =  -7.61    _d -4
./pkg/ptracers/PTRACERS_MOD.h 25 NO PROCEDURE 
        PtrISt(g)som_P(a,b,c,d,e,f)
./model/src/impldiff.F 187 IMPLDIFF 
          b(i,j,k) = 1. _d 0 - ( a(i,j,k) + c(i,j,k) )
./model/src/impldiff.F 221 IMPLDIFF 
         IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./model/src/impldiff.F 241 IMPLDIFF 
          IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./model/src/impldiff.F 242 IMPLDIFF 
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./model/src/impldiff.F 68 IMPLDIFF 
      _RL b(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr)
./pkg/shelfice/shelfice_thermodynamics.F 189 SHELFICE_THERMODYNAMICS 
      b  =  -7.61    _d -4
./pkg/shelfice/shelfice_thermodynamics.F 196 SHELFICE_THERMODYNAMICS 
       b  = -7.53     _d -4
./pkg/shelfice/shelfice_thermodynamics.F 405 SHELFICE_THERMODYNAMICS 
     &           + b*pLoc(I,J) + c0
./pkg/shelfice/shelfice_thermodynamics.F 454 SHELFICE_THERMODYNAMICS 
            thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J)
./pkg/shelfice/shelfice_thermodynamics.F 476 SHELFICE_THERMODYNAMICS 
            eps4 = b*pLoc(I,J) + c0
./pkg/shelfice/shelfice_thermodynamics.F 486 SHELFICE_THERMODYNAMICS 
     &           + eps3a*( b
./pkg/shelfice/shelfice_thermodynamics.F 95 SHELFICE_THERMODYNAMICS 
      _RL a0, a1, a2, b, c0
./pkg/smooth/smooth_impldiff.F 119 SMOOTH_IMPLDIFF 
         IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./pkg/smooth/smooth_impldiff.F 134 SMOOTH_IMPLDIFF 
          IF ( ( b(i,j,k) - a(i,j,k)*gam(i,j,k) ) .NE. 0.)
./pkg/smooth/smooth_impldiff.F 135 SMOOTH_IMPLDIFF 
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./pkg/smooth/smooth_impldiff.F 40 SMOOTH_IMPLDIFF 
      _RL b(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr)
./pkg/smooth/smooth_impldiff.F 97 SMOOTH_IMPLDIFF 
          b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./model/src/update_masks_etc.F 361 UPDATE_MASKS_ETC 
      _RS FUNCTION SMOOTHMIN_RS( a, b )
./model/src/update_masks_etc.F 365 UPDATE_MASKS_ETC 
      _RS a, b
./model/src/update_masks_etc.F 371 UPDATE_MASKS_ETC 
      SMOOTHMIN_RS = .5*( a+b - SMOOTHABS_RS(a-b) )
./model/src/update_masks_etc.F 377 UPDATE_MASKS_ETC 
      _RL FUNCTION SMOOTHMIN_RL( a, b )
./model/src/update_masks_etc.F 381 UPDATE_MASKS_ETC 
      _RL a, b
./model/src/update_masks_etc.F 387 UPDATE_MASKS_ETC 
      SMOOTHMIN_RL = .5*( a+b - SMOOTHABS_RL(a-b) )
./pkg/atm2d/OCNIDS.h 11 NO PROCEDURE 
  and b) to comment out these lines.
./pkg/atm_ocn_coupler/ATMIDS.h 11 NO PROCEDURE 
  and b) to comment out these lines.
./pkg/atm_ocn_coupler/OCNIDS.h 11 NO PROCEDURE 
  and b) to comment out these lines.
./pkg/bling/bling_carbon_chem.F 181 CALC_PCO2 
            b = x2 + k1local*x + k12
./pkg/bling/bling_carbon_chem.F 182 CALC_PCO2 
            b2=b*b
./pkg/bling/bling_carbon_chem.F 188 CALC_PCO2 
            fn = k1local*x*diclocal/b +
./pkg/bling/bling_carbon_chem.F 189 CALC_PCO2 
     &        2.0*diclocal*k12/b +
./pkg/bling/bling_carbon_chem.F 205 CALC_PCO2 
            df = ((k1local*diclocal*b) - k1local*x*diclocal*db)/b2 -
./pkg/bling/bling_carbon_chem.F 253 CALC_PCO2 
              b = x2 + k1local*x + k12
./pkg/bling/bling_carbon_chem.F 254 CALC_PCO2 
              b2=b*b
./pkg/bling/bling_carbon_chem.F 257 CALC_PCO2 
              fn = k1local*x*diclocal/b +
./pkg/bling/bling_carbon_chem.F 258 CALC_PCO2 
     &          2.0*diclocal*k12/b +
./pkg/bling/bling_carbon_chem.F 93 CALC_PCO2 
        _RL  b
./lsopt/cubic.F 13 CUBIC 
      double precision z1, b, discri
./lsopt/cubic.F 21 CUBIC 
      b  = z1 + dble(fp)
./lsopt/cubic.F 60 CUBIC 
      if (sngl(b)*sign .gt. 0.0) then
./lsopt/cubic.F 61 CUBIC 
         t    = t + fp*(ta-t)/sngl(b+discri)
./lsopt/cubic.F 63 CUBIC 
         den  = sngl(z1+b+dble(fpa))
./lsopt/cubic.F 64 CUBIC 
         anum = sngl(b-discri)
./pkg/dic/carbon_chem.F 186 CALC_PCO2 
            b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 187 CALC_PCO2 
            b2=b*b
./pkg/dic/carbon_chem.F 193 CALC_PCO2 
            fn = k1local*x*diclocal/b +
./pkg/dic/carbon_chem.F 194 CALC_PCO2 
     &        2.0*diclocal*k12/b +
./pkg/dic/carbon_chem.F 210 CALC_PCO2 
            df = ((k1local*diclocal*b) - k1local*x*diclocal*db)/b2 -
./pkg/dic/carbon_chem.F 258 CALC_PCO2 
              b = x2 + k1local*x + k12
./pkg/dic/carbon_chem.F 259 CALC_PCO2 
              b2=b*b
./pkg/dic/carbon_chem.F 262 CALC_PCO2 
              fn = k1local*x*diclocal/b +
./pkg/dic/carbon_chem.F 263 CALC_PCO2 
     &          2.0*diclocal*k12/b +
./pkg/dic/carbon_chem.F 98 CALC_PCO2 
        _RL  b