Symbol Description Uses
a1 coefficients in quadratic eqn for T1 76


File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 1182 IRRAD 
            a1  = 1.26610e-3
./pkg/fizhi/fizhi_lwrad.F 1188 IRRAD 
        call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df11,dt,f11exp)
./pkg/fizhi/fizhi_lwrad.F 1194 IRRAD 
            a1  = 8.77370e-4
./pkg/fizhi/fizhi_lwrad.F 1200 IRRAD 
        call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df12,dt,f12exp)
./pkg/fizhi/fizhi_lwrad.F 1206 IRRAD 
            a1  = 9.65130e-4
./pkg/fizhi/fizhi_lwrad.F 1212 IRRAD 
        call CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,df22,dt,f22exp)
./pkg/fizhi/fizhi_lwrad.F 2270 CFCEXPS 
      subroutine CFCEXPS(ib,m,n,np,a1,b1,fk1,a2,b2,fk2,dcfc,dt,cfcexp)
./pkg/fizhi/fizhi_lwrad.F 2302 CFCEXPS 
      _RL a1,b1,fk1,a2,b2,fk2
./pkg/fizhi/fizhi_lwrad.F 2317 CFCEXPS 
           xf=dcfc(i,j,k)*(1.+(a1+b1*dt(i,j,k))*dt(i,j,k))
./pkg/fizhi/fizhi_lwrad.F 620 IRRAD 
      _RL dp,xx,p1,dwe,dpe,a1,b1,fk1,a2,b2,fk2
./pkg/fizhi/fizhi_turb.F 4395 TRBL25 
      _RL a1,a2,a4,c1,a5,a3,b1,b2,b3,ff2,ff3,ff4
./pkg/fizhi/update_earth_exports.F 862 GETALB 
      _RL one,a0,a1,a2,a3,ocnalb,albsi
./pkg/kpp/kpp_routines.F 1214 BLMIX 
      _RL f1, sig, a1, a2, a3, delhat
./pkg/kpp/kpp_routines.F 1338 BLMIX 
            a1 = sig - 2.
./pkg/kpp/kpp_routines.F 1342 BLMIX 
            Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i)
./pkg/kpp/kpp_routines.F 1343 BLMIX 
            Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i)
./pkg/kpp/kpp_routines.F 1344 BLMIX 
            Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i)
./pkg/kpp/kpp_routines.F 1387 BLMIX 
         a1 = sig - 2.
./pkg/kpp/kpp_routines.F 1390 BLMIX 
         Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i)
./pkg/kpp/kpp_routines.F 1391 BLMIX 
         Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i)
./pkg/kpp/kpp_routines.F 1392 BLMIX 
         Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i)
./pkg/shelfice/shelfice_thermodynamics.F 166 SHELFICE_THERMODYNAMICS 
     &           sLoc(I,J) * ( a0 + a1*sqrt(sLoc(I,J)) + a2*sLoc(I,J) )
./pkg/shelfice/shelfice_thermodynamics.F 67 SHELFICE_THERMODYNAMICS 
      _RL a0, a1, a2, b, c0
./pkg/shelfice/shelfice_thermodynamics.F 87 SHELFICE_THERMODYNAMICS 
      a1 =  0.0      _d -0
./pkg/shelfice/shelfice_thermodynamics.F 95 SHELFICE_THERMODYNAMICS 
       a1 = 1.710523  _d -3
./pkg/thsice/thsice_solve4temp.F 167 THSICE_SOLVE4TEMP 
      _RL  a1, b1, c1
./pkg/thsice/thsice_solve4temp.F 280 THSICE_SOLVE4TEMP 
          a1 = cpIce
./pkg/thsice/thsice_solve4temp.F 283 THSICE_SOLVE4TEMP 
          tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1
./pkg/thsice/thsice_solve4temp.F 451 THSICE_SOLVE4TEMP 
          a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j))
./pkg/thsice/thsice_solve4temp.F 455 THSICE_SOLVE4TEMP 
          tIc1(i,j)  = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./pkg/thsice/thsice_solve4temp.F 464 THSICE_SOLVE4TEMP 
           a1 = a10(i,j) + k12(i,j)
./pkg/thsice/thsice_solve4temp.F 467 THSICE_SOLVE4TEMP 
           tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./verification/OpenAD/code_oad_all/seawater.F 173 SW_ADTG 
      _RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2
./verification/OpenAD/code_oad_all/seawater.F 180 SW_ADTG 
      a1 = +8.5258 _d -6
./verification/OpenAD/code_oad_all/seawater.F 199 SW_ADTG 
      rv =      a0 + (a1 + (a2 + a3*T)*T)*T
./model/src/seawater.F 169 NO PROCEDURE 
      _RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2
./model/src/seawater.F 175 NO PROCEDURE 
      a1 = +8.5258 _d -6
./model/src/seawater.F 194 NO PROCEDURE 
      SW_ADTG =      a0 + (a1 + (a2 + a3*T)*T)*T
./model/src/swfrac.F 105 SWFRAC 
          swdk(i) =       rfac(jwtype)  * exp( facz/a1(jwtype) )
./model/src/swfrac.F 63 SWFRAC 
      _RL rfac(nwtype),a1(nwtype),a2(nwtype)
./model/src/swfrac.F 78 SWFRAC 
      DATA a1   / 0.35 _d 0, 0.6  _d 0, 1.0  _d 0, 1.5  _d 0, 1.4  _d 0/
./pkg/atm2d/init_atm2d.F 53 INIT_ATM2D 
      _RL a1,a2
./pkg/atm2d/read_atmos.F 118 COMBINE_ENDS 
      _RL     a1
./pkg/atm2d/read_atmos.F 130 COMBINE_ENDS 
      atm_tair(ind2)= (a1*atm_tair(ind1) + a2*atm_tair(ind2))*rsuma
./pkg/atm2d/read_atmos.F 131 COMBINE_ENDS 
      atm_precip(ind2)= (a1*atm_precip(ind1) +
./pkg/atm2d/read_atmos.F 134 COMBINE_ENDS 
      atm_evap_ice(ind2)= (a1*atm_evap_ice(ind1) +
./pkg/atm2d/read_atmos.F 136 COMBINE_ENDS 
      atm_evap_ocn(ind2)= (a1*atm_evap_ocn(ind1) +
./pkg/atm2d/read_atmos.F 138 COMBINE_ENDS 
      atm_qnet_ice(ind2)= (a1*atm_qnet_ice(ind1)+
./pkg/atm2d/read_atmos.F 140 COMBINE_ENDS 
      atm_qnet_ocn(ind2)= (a1*atm_qnet_ocn(ind1) +
./pkg/atm2d/read_atmos.F 142 COMBINE_ENDS 
      atm_dFdt_ice(ind2)= (a1*atm_dFdt_ice(ind1)+
./pkg/atm2d/read_atmos.F 144 COMBINE_ENDS 
      atm_dFdt_ocn(ind2)= (a1*atm_dFdt_ocn(ind1)+
./pkg/atm2d/read_atmos.F 146 COMBINE_ENDS 
      atm_dLdt_ice(ind2)= (a1*atm_dLdt_ice(ind1)+
./pkg/atm2d/read_atmos.F 148 COMBINE_ENDS 
      atm_dLdt_ocn(ind2)= (a1*atm_dLdt_ocn(ind1)+
./pkg/atm2d/read_atmos.F 150 COMBINE_ENDS 
      atm_dFdt_iceq(ind2)= (a1*atm_dFdt_iceq(ind1)+
./pkg/atm2d/read_atmos.F 152 COMBINE_ENDS 
      atm_dFdt_ocnq(ind2)= (a1*atm_dFdt_ocnq(ind1)+
./pkg/atm2d/read_atmos.F 154 COMBINE_ENDS 
      atm_dLdt_iceq(ind2)= (a1*atm_dLdt_iceq(ind1)+
./pkg/atm2d/read_atmos.F 156 COMBINE_ENDS 
      atm_dLdt_ocnq(ind2)= (a1*atm_dLdt_ocnq(ind1)+
./pkg/atm2d/read_atmos.F 158 COMBINE_ENDS 
      atm_solarinc(ind2)= (a1*atm_solarinc(ind1) +
./pkg/atm2d/read_atmos.F 160 COMBINE_ENDS 
      atm_solar_ocn(ind2)= (a1*atm_solar_ocn(ind1)+
./pkg/atm2d/read_atmos.F 162 COMBINE_ENDS 
      atm_solar_ice(ind2)= (a1*atm_solar_ice(ind1)+
./pkg/atm2d/read_atmos.F 164 COMBINE_ENDS 
      atm_windspeed(ind2)= (a1*atm_windspeed(ind1) +
./pkg/atm2d/read_atmos.F 166 COMBINE_ENDS 
      atm_slp(ind2)= (a1*atm_slp(ind1) + a2*atm_slp(ind2))*rsuma
./pkg/atm2d/read_atmos.F 167 COMBINE_ENDS 
      atm_pco2(ind2)= (a1*atm_pco2(ind1)+a2*atm_pco2(ind2))*rsuma
./pkg/atm2d/read_atmos.F 35 READ_ATMOS 
      _RL a1,a2
./pkg/atm2d/read_atmos.F 95 COMBINE_ENDS 
      SUBROUTINE COMBINE_ENDS(a1,a2,ind1,ind2,rsuma)
./pkg/cfc/cfc11_forcing.F 100 CFC11_FORCING 
             ATMOSCFC11(i,j,bi,bj)=a1*ACFC11south +
./pkg/cfc/cfc11_forcing.F 55 CFC11_FORCING 
       _RL a1, a2
./pkg/cfc/cfc11_forcing.F 98 CFC11_FORCING 
             a1=(float(j-int(sNy/2)+3)+.5)/7
./pkg/cfc/cfc11_forcing.F 99 CFC11_FORCING 
             a2=1.d0-a1
./pkg/cfc/cfc12_forcing.F 100 CFC12_FORCING 
             ATMOSCFC12(i,j,bi,bj)=a1*ACFC12south +
./pkg/cfc/cfc12_forcing.F 56 CFC12_FORCING 
       _RL a1, a2
./pkg/cfc/cfc12_forcing.F 98 CFC12_FORCING 
             a1=(float(j-int(sNy/2)+3)+.5)/7
./pkg/cfc/cfc12_forcing.F 99 CFC12_FORCING 
             a2=1.d0-a1