| File |
Line number |
Procedure |
Code |
|
./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/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 |
46 |
FRAZIL_CALC_RHS |
PARAMETER( a1 = 1.710523 _d -3 ) |
|
./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 |
1491 |
BLMIX |
a1 = sig - 2. |
|
./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 |
1546 |
BLMIX |
a1 = sig - 2. |
|
./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 |
162 |
SW_ADTG |
a1 = +8.5258 _d -6 |
|
./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 |
68 |
NO PROCEDURE |
a1 = -3.305308995852924 _d -3 |
|
./model/src/gsw_teos10.F |
83 |
NO PROCEDURE |
pt_num = a0 + s1*(a1 + a2*s1) + CT*ct_factor |
|
./pkg/shelfice/shelfice_thermodynamics.F |
186 |
SHELFICE_THERMODYNAMICS |
a1 = 0.0 _d -0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
194 |
SHELFICE_THERMODYNAMICS |
a1 = 1.710523 _d -3 |
|
./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 |
|
./pkg/thsice/thsice_solve4temp.F |
179 |
THSICE_SOLVE4TEMP |
_RL a1, b1, c1 |
|
./pkg/thsice/thsice_solve4temp.F |
299 |
THSICE_SOLVE4TEMP |
a1 = cpIce |
|
./pkg/thsice/thsice_solve4temp.F |
302 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1 |
|
./pkg/thsice/thsice_solve4temp.F |
489 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) - k12(i,j)*dFlxdT(i,j) / (k12(i,j)-dFlxdT(i,j)) |
|
./pkg/thsice/thsice_solve4temp.F |
493 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./pkg/thsice/thsice_solve4temp.F |
503 |
THSICE_SOLVE4TEMP |
a1 = a10(i,j) + k12(i,j) |
|
./pkg/thsice/thsice_solve4temp.F |
506 |
THSICE_SOLVE4TEMP |
tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1) |
|
./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 |
154 |
NO PROCEDURE |
a1 = +8.5258 _d -6 |
|
./model/src/seawater.F |
173 |
NO PROCEDURE |
SW_ADTG = a0 + (a1 + (a2 + a3*T)*T)*T |
|
./model/src/swfrac.F |
105 |
SWFRAC |
swdk(i) = rfac(jwtype) * exp( facz/a1(jwtype) ) |
|
./model/src/swfrac.F |
63 |
SWFRAC |
_RL rfac(nwtype),a1(nwtype),a2(nwtype) |
|
./model/src/swfrac.F |
78 |
SWFRAC |
DATA a1 / 0.35 _d 0, 0.6 _d 0, 1.0 _d 0, 1.5 _d 0, 1.4 _d 0/ |
|
./pkg/atm2d/init_atm2d.F |
53 |
INIT_ATM2D |
_RL a1,a2 |
|
./pkg/atm2d/read_atmos.F |
118 |
COMBINE_ENDS |
_RL a1 |
|
./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 |
131 |
COMBINE_ENDS |
atm_precip(ind2)= (a1*atm_precip(ind1) + |
|
./pkg/atm2d/read_atmos.F |
134 |
COMBINE_ENDS |
atm_evap_ice(ind2)= (a1*atm_evap_ice(ind1) + |
|
./pkg/atm2d/read_atmos.F |
136 |
COMBINE_ENDS |
atm_evap_ocn(ind2)= (a1*atm_evap_ocn(ind1) + |
|
./pkg/atm2d/read_atmos.F |
138 |
COMBINE_ENDS |
atm_qnet_ice(ind2)= (a1*atm_qnet_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
140 |
COMBINE_ENDS |
atm_qnet_ocn(ind2)= (a1*atm_qnet_ocn(ind1) + |
|
./pkg/atm2d/read_atmos.F |
142 |
COMBINE_ENDS |
atm_dFdt_ice(ind2)= (a1*atm_dFdt_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
144 |
COMBINE_ENDS |
atm_dFdt_ocn(ind2)= (a1*atm_dFdt_ocn(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
146 |
COMBINE_ENDS |
atm_dLdt_ice(ind2)= (a1*atm_dLdt_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
148 |
COMBINE_ENDS |
atm_dLdt_ocn(ind2)= (a1*atm_dLdt_ocn(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
150 |
COMBINE_ENDS |
atm_dFdt_iceq(ind2)= (a1*atm_dFdt_iceq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
152 |
COMBINE_ENDS |
atm_dFdt_ocnq(ind2)= (a1*atm_dFdt_ocnq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
154 |
COMBINE_ENDS |
atm_dLdt_iceq(ind2)= (a1*atm_dLdt_iceq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
156 |
COMBINE_ENDS |
atm_dLdt_ocnq(ind2)= (a1*atm_dLdt_ocnq(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
158 |
COMBINE_ENDS |
atm_solarinc(ind2)= (a1*atm_solarinc(ind1) + |
|
./pkg/atm2d/read_atmos.F |
160 |
COMBINE_ENDS |
atm_solar_ocn(ind2)= (a1*atm_solar_ocn(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
162 |
COMBINE_ENDS |
atm_solar_ice(ind2)= (a1*atm_solar_ice(ind1)+ |
|
./pkg/atm2d/read_atmos.F |
164 |
COMBINE_ENDS |
atm_windspeed(ind2)= (a1*atm_windspeed(ind1) + |
|
./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 |
126 |
CFC11_FORCING |
a1=(float(j-int(sNy/2)+3)+.5)/7 |
|
./pkg/cfc/cfc11_forcing.F |
127 |
CFC11_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc11_forcing.F |
128 |
CFC11_FORCING |
AtmosCFC11(i,j)=a1*ACFC11south + |
|
./pkg/cfc/cfc11_forcing.F |
77 |
CFC11_FORCING |
_RL a1, a2 |
|
./pkg/cfc/cfc12_forcing.F |
127 |
CFC12_FORCING |
a1=(float(j-int(sNy/2)+3)+.5)/7 |
|
./pkg/cfc/cfc12_forcing.F |
128 |
CFC12_FORCING |
a2=1.d0-a1 |
|
./pkg/cfc/cfc12_forcing.F |
129 |
CFC12_FORCING |
AtmosCFC12(i,j)=a1*ACFC12south + |
|
./pkg/cfc/cfc12_forcing.F |
78 |
CFC12_FORCING |
_RL a1, a2 |