| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_thermodynamics.F |
51 |
SHELFICE_THERMODYNAMICS |
_RL a0, a1, a2, b, c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
59 |
SHELFICE_THERMODYNAMICS |
a2 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
67 |
SHELFICE_THERMODYNAMICS |
a2 = -2.154996 _d -4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
90 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = sLoc * ( a0 + a1*sqrt(sLoc) + a2*sLoc ) |
|
./model/src/swfrac.F |
106 |
SWFRAC |
$ + (1.-rfac(jwtype)) * exp(facz/a2(jwtype)) |
|
./model/src/swfrac.F |
61 |
SWFRAC |
_RL rfac(nwtype),a1(nwtype),a2(nwtype) |
|
./model/src/swfrac.F |
77 |
SWFRAC |
DATA a2 / 23.0 , 20.0 , 17.0 , 14.0 , 7.9 / |
|
./pkg/dic/carbon_chem.F |
185 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
215 |
CALC_PCO2 |
& (pt*k12p*(a - x*da))/a2 - |
|
./pkg/dic/carbon_chem.F |
216 |
CALC_PCO2 |
& 2.0*pt*k123p*da/a2 - |
|
./pkg/dic/carbon_chem.F |
221 |
CALC_PCO2 |
& pt*x2*(3.0*a-x*da)/a2 |
|
./pkg/dic/carbon_chem.F |
257 |
CALC_PCO2 |
a2=a*a |
|
./pkg/dic/carbon_chem.F |
88 |
CALC_PCO2 |
_RL a2 |
|
./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/update_earth_exports.F |
858 |
GETALB |
_RL one,a0,a1,a2,a3,ocnalb,albsi |
|
./pkg/fizhi/fizhi_turb.F |
3857 |
TRBL25 |
_RL a1,a2,a4,c1,a5,a3,b1,b2,b3,ff2,ff3,ff4 |
|
./verification/fizhi-cs-aqualev20/code/update_earth_exports.F |
858 |
GETALB |
_RL one,a0,a1,a2,a3,ocnalb,albsi |
|
./verification/fizhi-cs-aqualev20/code/fizhi_turb.F |
3839 |
TRBL25 |
_RL a1,a2,a4,c1,a5,a3,b1,b2,b3,ff2,ff3,ff4 |
|
./pkg/kpp/kpp_routines.F |
1122 |
BLMIX |
_KPP_RL f1, sig, a1, a2, a3, delhat |
|
./pkg/kpp/kpp_routines.F |
1244 |
BLMIX |
a2 = 3. - 2. * sig |
|
./pkg/kpp/kpp_routines.F |
1247 |
BLMIX |
Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i) |
|
./pkg/kpp/kpp_routines.F |
1248 |
BLMIX |
Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i) |
|
./pkg/kpp/kpp_routines.F |
1249 |
BLMIX |
Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i) |
|
./pkg/kpp/kpp_routines.F |
1293 |
BLMIX |
a2 = 3. - 2. * sig |
|
./pkg/kpp/kpp_routines.F |
1295 |
BLMIX |
Gm = a1 + a2 * gat1m(i) + a3 * dat1m(i) |
|
./pkg/kpp/kpp_routines.F |
1296 |
BLMIX |
Gs = a1 + a2 * gat1s(i) + a3 * dat1s(i) |
|
./pkg/kpp/kpp_routines.F |
1297 |
BLMIX |
Gt = a1 + a2 * gat1t(i) + a3 * dat1t(i) |
|
./pkg/cfc/cfc11_forcing.F |
52 |
CFC11_FORCING |
_RL a1, a2 |
|
./pkg/cfc/cfc11_forcing.F |
96 |
CFC11_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc11_forcing.F |
98 |
CFC11_FORCING |
& a2*ACFC11north |
|
./pkg/cfc/cfc12_forcing.F |
53 |
CFC12_FORCING |
_RL a1, a2 |
|
./pkg/cfc/cfc12_forcing.F |
96 |
CFC12_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc12_forcing.F |
98 |
CFC12_FORCING |
& a2*ACFC12north |
|
./pkg/ecco/sw_adtg.F |
22 |
NO PROCEDURE |
_RL a0,a1,a2,a3,b0,b1,c0,c1,c2,c3,d0,d1,e0,e1,e2 |
|
./pkg/ecco/sw_adtg.F |
29 |
NO PROCEDURE |
a2 = -6.836 _d -8 |
|
./pkg/ecco/sw_adtg.F |
47 |
NO PROCEDURE |
SW_ADTG = a0 + (a1 + (a2 + a3*T)*T)*T |