| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1185 |
IRRAD |
a2 = 8.19370e-4 |
|
./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 |
1197 |
IRRAD |
a2 = 8.62000e-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 |
1209 |
IRRAD |
a2 =-3.00010e-5 |
|
./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 |
2320 |
CFCEXPS |
xf=dcfc(i,j,k)*(1.+(a2+b2*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 |
3839 |
TRBL25 |
_RL a1,a2,a4,c1,a5,a3,b1,b2,b3,ff2,ff3,ff4 |
|
./pkg/fizhi/update_earth_exports.F |
871 |
GETALB |
_RL one,a0,a1,a2,a3,ocnalb,albsi |
|
./pkg/frazil/frazil_calc_rhs.F |
44 |
FRAZIL_CALC_RHS |
_RL a0, a1, a2, b |
|
./pkg/frazil/frazil_calc_rhs.F |
47 |
FRAZIL_CALC_RHS |
PARAMETER( a2 = -2.154996 _d -4 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
88 |
FRAZIL_CALC_RHS |
Tfreezing = (a0 + a1*sqrt(sLoc) + a2*sLoc) * sLoc + b*pLoc |
|
./pkg/kpp/kpp_routines.F |
1357 |
BLMIX |
_RL f1, sig, a1, a2, a3, delhat |
|
./pkg/kpp/kpp_routines.F |
1492 |
BLMIX |
a2 = 3. - 2. * sig |
|
./pkg/kpp/kpp_routines.F |
1495 |
BLMIX |
Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i) |
|
./pkg/kpp/kpp_routines.F |
1496 |
BLMIX |
Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i) |
|
./pkg/kpp/kpp_routines.F |
1497 |
BLMIX |
Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i) |
|
./pkg/kpp/kpp_routines.F |
1547 |
BLMIX |
a2 = 3. - 2. * sig |
|
./pkg/kpp/kpp_routines.F |
1549 |
BLMIX |
Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i) |
|
./pkg/kpp/kpp_routines.F |
1550 |
BLMIX |
Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i) |
|
./pkg/kpp/kpp_routines.F |
1551 |
BLMIX |
Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i) |
|
./pkg/openad/seawater.F |
156 |
SW_ADTG |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./pkg/openad/seawater.F |
163 |
SW_ADTG |
a2 = -6.836 _d -8 |
|
./pkg/openad/seawater.F |
181 |
SW_ADTG |
rv = a0 + (a1 + (a2 + a3*T)*T)*T |
|
./model/src/gsw_teos10.F |
54 |
NO PROCEDURE |
_RL a0, a1, a2, a3, a4, a5, b0, b1, b2, b3 |
|
./model/src/gsw_teos10.F |
69 |
NO PROCEDURE |
a2 = 1.062415929128982 _d -4 |
|
./model/src/gsw_teos10.F |
83 |
NO PROCEDURE |
pt_num = a0 + s1*(a1 + a2*s1) + CT*ct_factor |
|
./pkg/shelfice/shelfice_thermodynamics.F |
187 |
SHELFICE_THERMODYNAMICS |
a2 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
195 |
SHELFICE_THERMODYNAMICS |
a2 = -2.154996 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
404 |
SHELFICE_THERMODYNAMICS |
& sLoc(I,J) * ( a0 + a1*sqrt(sLoc(I,J)) + a2*sLoc(I,J) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
95 |
SHELFICE_THERMODYNAMICS |
_RL a0, a1, a2, b, c0 |
|
./model/src/seawater.F |
148 |
NO PROCEDURE |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./model/src/seawater.F |
155 |
NO PROCEDURE |
a2 = -6.836 _d -8 |
|
./model/src/seawater.F |
173 |
NO PROCEDURE |
SW_ADTG = a0 + (a1 + (a2 + a3*T)*T)*T |
|
./model/src/swfrac.F |
106 |
SWFRAC |
& + (1. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) ) |
|
./model/src/swfrac.F |
63 |
SWFRAC |
_RL rfac(nwtype),a1(nwtype),a2(nwtype) |
|
./model/src/swfrac.F |
79 |
SWFRAC |
DATA a2 / 23.0 _d 0, 20.0 _d 0, 17.0 _d 0, 14.0 _d 0, 7.9 _d 0/ |
|
./pkg/atm2d/init_atm2d.F |
53 |
INIT_ATM2D |
_RL a1,a2 |
|
./pkg/atm2d/read_atmos.F |
119 |
COMBINE_ENDS |
_RL a2 |
|
./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 |
132 |
COMBINE_ENDS |
& a2*atm_precip(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
135 |
COMBINE_ENDS |
& a2*atm_evap_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
137 |
COMBINE_ENDS |
& a2*atm_evap_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
139 |
COMBINE_ENDS |
& a2*atm_qnet_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
141 |
COMBINE_ENDS |
& a2*atm_qnet_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
143 |
COMBINE_ENDS |
& a2*atm_dFdt_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
145 |
COMBINE_ENDS |
& a2*atm_dFdt_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
147 |
COMBINE_ENDS |
& a2*atm_dLdt_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
149 |
COMBINE_ENDS |
& a2*atm_dLdt_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
151 |
COMBINE_ENDS |
& a2*atm_dFdt_iceq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
153 |
COMBINE_ENDS |
& a2*atm_dFdt_ocnq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
155 |
COMBINE_ENDS |
& a2*atm_dLdt_iceq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
157 |
COMBINE_ENDS |
& a2*atm_dLdt_ocnq(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
159 |
COMBINE_ENDS |
& a2*atm_solarinc(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
161 |
COMBINE_ENDS |
& a2*atm_solar_ocn(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
163 |
COMBINE_ENDS |
& a2*atm_solar_ice(ind2))*rsuma |
|
./pkg/atm2d/read_atmos.F |
165 |
COMBINE_ENDS |
& a2*atm_windspeed(ind2))*rsuma |
|
./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/bling/bling_carbon_chem.F |
179 |
CALC_PCO2 |
a2=a*a |
|
./pkg/bling/bling_carbon_chem.F |
209 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
|
./pkg/bling/bling_carbon_chem.F |
210 |
CALC_PCO2 |
& 2.0*pt*k123p*da/a2 - |
|
./pkg/bling/bling_carbon_chem.F |
215 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/bling/bling_carbon_chem.F |
251 |
CALC_PCO2 |
a2=a*a |
|
./pkg/bling/bling_carbon_chem.F |
91 |
CALC_PCO2 |
_RL a2 |
|
./pkg/cfc/cfc11_forcing.F |
127 |
CFC11_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc11_forcing.F |
129 |
CFC11_FORCING |
& a2*ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
77 |
CFC11_FORCING |
_RL a1, a2 |
|
./pkg/cfc/cfc12_forcing.F |
128 |
CFC12_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc12_forcing.F |
130 |
CFC12_FORCING |
& a2*ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
78 |
CFC12_FORCING |
_RL a1, a2 |
|
./pkg/dic/carbon_chem.F |
184 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
214 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
|
./pkg/dic/carbon_chem.F |
215 |
CALC_PCO2 |
& 2.0*pt*k123p*da/a2 - |
|
./pkg/dic/carbon_chem.F |
220 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/dic/carbon_chem.F |
256 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
96 |
CALC_PCO2 |
_RL a2 |