| File |
Line number |
Procedure |
Code |
|
./pkg/shelfice/shelfice_thermodynamics.F |
51 |
SHELFICE_THERMODYNAMICS |
_RL a0, a1, a2, b, c0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
58 |
SHELFICE_THERMODYNAMICS |
a1 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
66 |
SHELFICE_THERMODYNAMICS |
a1 = 1.710523 _d -3 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
90 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = sLoc * ( a0 + a1*sqrt(sLoc) + a2*sLoc ) |
|
./model/src/swfrac.F |
105 |
SWFRAC |
swdk(i) = rfac(jwtype) * exp(facz/a1(jwtype)) |
|
./model/src/swfrac.F |
61 |
SWFRAC |
_RL rfac(nwtype),a1(nwtype),a2(nwtype) |
|
./model/src/swfrac.F |
76 |
SWFRAC |
DATA a1 / 0.35 , 0.6 , 1.0 , 1.5 , 1.4 / |
|
./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/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 |
1243 |
BLMIX |
a1 = sig - 2. |
|
./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 |
1292 |
BLMIX |
a1 = sig - 2. |
|
./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 |
95 |
CFC11_FORCING |
a1=(float(j-int(sNy/2)+3)+.5)/7 |
|
./pkg/cfc/cfc11_forcing.F |
96 |
CFC11_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc11_forcing.F |
97 |
CFC11_FORCING |
ATMOSCFC11(i,j,bi,bj)=a1*ACFC11south + |
|
./pkg/cfc/cfc12_forcing.F |
53 |
CFC12_FORCING |
_RL a1, a2 |
|
./pkg/cfc/cfc12_forcing.F |
95 |
CFC12_FORCING |
a1=(float(j-int(sNy/2)+3)+.5)/7 |
|
./pkg/cfc/cfc12_forcing.F |
96 |
CFC12_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc12_forcing.F |
97 |
CFC12_FORCING |
ATMOSCFC12(i,j,bi,bj)=a1*ACFC12south + |
|
./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 |
28 |
NO PROCEDURE |
a1 = +8.5258 _d -6 |
|
./pkg/ecco/sw_adtg.F |
47 |
NO PROCEDURE |
SW_ADTG = a0 + (a1 + (a2 + a3*T)*T)*T |
|
./pkg/thsice/thsice_solve4temp.F |
150 |
THSICE_SOLVE4TEMP |
_RL a1, b1, c1 ! coefficients in quadratic eqn for T1 |
|
./pkg/thsice/thsice_solve4temp.F |
206 |
THSICE_SOLVE4TEMP |
a1 = cpice |
|
./pkg/thsice/thsice_solve4temp.F |
209 |
THSICE_SOLVE4TEMP |
Tice(1) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
291 |
THSICE_SOLVE4TEMP |
a1 = a10 - k12*df0dT / (k12-df0dT) |
|
./pkg/thsice/thsice_solve4temp.F |
293 |
THSICE_SOLVE4TEMP |
Tice(1) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
301 |
THSICE_SOLVE4TEMP |
a1 = a10 + k12 |
|
./pkg/thsice/thsice_solve4temp.F |
303 |
THSICE_SOLVE4TEMP |
Tice(1) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |