| 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 |
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 |
1339 |
BLMIX |
a2 = 3. - 2. * sig |
|
./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 |
1388 |
BLMIX |
a2 = 3. - 2. * sig |
|
./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 |
88 |
SHELFICE_THERMODYNAMICS |
a2 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
96 |
SHELFICE_THERMODYNAMICS |
a2 = -2.154996 _d -4 |
|
./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 |
181 |
SW_ADTG |
a2 = -6.836 _d -8 |
|
./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 |
176 |
NO PROCEDURE |
a2 = -6.836 _d -8 |
|
./model/src/seawater.F |
194 |
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/cfc/cfc11_forcing.F |
101 |
CFC11_FORCING |
& a2*ACFC11north |
|
./pkg/cfc/cfc11_forcing.F |
55 |
CFC11_FORCING |
_RL a1, a2 |
|
./pkg/cfc/cfc11_forcing.F |
99 |
CFC11_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc12_forcing.F |
101 |
CFC12_FORCING |
& a2*ACFC12north |
|
./pkg/cfc/cfc12_forcing.F |
56 |
CFC12_FORCING |
_RL a1, a2 |
|
./pkg/cfc/cfc12_forcing.F |
99 |
CFC12_FORCING |
a2=1.d0-a1 |
|
./pkg/dic/carbon_chem.F |
180 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
210 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
|
./pkg/dic/carbon_chem.F |
211 |
CALC_PCO2 |
& 2.0*pt*k123p*da/a2 - |
|
./pkg/dic/carbon_chem.F |
216 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/dic/carbon_chem.F |
252 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
93 |
CALC_PCO2 |
_RL a2 |