| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1186 |
IRRAD |
b2 = 4.67810e-6 |
|
./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 |
1198 |
IRRAD |
b2 =-4.22500e-6 |
|
./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 |
1210 |
IRRAD |
b2 = 5.25010e-7 |
|
./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 |
1352 |
TRBFLX |
_RL argmax, onethrd, z1pem25, b2, two |
|
./pkg/fizhi/fizhi_turb.F |
3739 |
TRBL20 |
_RL b1,b2,d3,rf1,rf2,d3b2,d2,e5,d4,d1,d1half,d2half |
|
./pkg/fizhi/fizhi_turb.F |
3839 |
TRBL25 |
_RL a1,a2,a4,c1,a5,a3,b1,b2,b3,ff2,ff3,ff4 |
|
./model/src/gsw_teos10.F |
54 |
NO PROCEDURE |
_RL a0, a1, a2, a3, a4, a5, b0, b1, b2, b3 |
|
./model/src/gsw_teos10.F |
76 |
NO PROCEDURE |
b2 = 3.830289486850898 _d -3 |
|
./model/src/gsw_teos10.F |
84 |
NO PROCEDURE |
pt_den = b0 + b1*s1 + CT*(b2 + b3ct) |
|
./model/src/gsw_teos10.F |
87 |
NO PROCEDURE |
dct_dpt = (pt_den)/(ct_factor + a5ct - (b2 + b3ct + b3ct)*pt) |
|
./pkg/bling/bling_carbon_chem.F |
182 |
CALC_PCO2 |
b2=b*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 |
206 |
CALC_PCO2 |
& 2.0*diclocal*k12*db/b2 - |
|
./pkg/bling/bling_carbon_chem.F |
254 |
CALC_PCO2 |
b2=b*b |
|
./pkg/bling/bling_carbon_chem.F |
94 |
CALC_PCO2 |
_RL b2 |
|
./pkg/dic/carbon_chem.F |
187 |
CALC_PCO2 |
b2=b*b |
|
./pkg/dic/carbon_chem.F |
210 |
CALC_PCO2 |
df = ((k1local*diclocal*b) - k1local*x*diclocal*db)/b2 - |
|
./pkg/dic/carbon_chem.F |
211 |
CALC_PCO2 |
& 2.0*diclocal*k12*db/b2 - |
|
./pkg/dic/carbon_chem.F |
259 |
CALC_PCO2 |
b2=b*b |
|
./pkg/dic/carbon_chem.F |
99 |
CALC_PCO2 |
_RL b2 |