| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lwrad.F |
1183 |
IRRAD |
b1 = 3.55940e-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 |
1195 |
IRRAD |
b1 =-5.88440e-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 |
1207 |
IRRAD |
b1 = 1.31280e-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 |
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 |
1345 |
TRBFLX |
_RL b1,b3,alpha,halpha,qqmin,qbustr |
|
./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 |
|
./pkg/my82/my82_calc.F |
115 |
MY82_CALC |
& b1*(SH(I,J,K)*GH(I,J) + SM(I,J,K)*GM(I,J)) ) |
|
./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 |
167 |
SW_ADTG |
b1 = -4.2393 _d -8 |
|
./pkg/openad/seawater.F |
182 |
SW_ADTG |
& + (b0 + b1*T)*(S-sref) |
|
./model/src/gsw_teos10.F |
54 |
NO PROCEDURE |
_RL a0, a1, a2, a3, a4, a5, b0, b1, b2, b3 |
|
./model/src/gsw_teos10.F |
75 |
NO PROCEDURE |
b1 = 6.506097115635800 _d -4 |
|
./model/src/gsw_teos10.F |
84 |
NO PROCEDURE |
pt_den = b0 + b1*s1 + CT*(b2 + b3ct) |
|
./pkg/thsice/thsice_solve4temp.F |
179 |
THSICE_SOLVE4TEMP |
_RL a1, b1, c1 |
|
./pkg/thsice/thsice_solve4temp.F |
300 |
THSICE_SOLVE4TEMP |
b1 = qIc1(i,j) + (cpWater-cpIce )*Tmlt1 - Lfresh |
|
./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 |
490 |
THSICE_SOLVE4TEMP |
b1 = b10(i,j) - k12(i,j)*(flxNet-dFlxdT(i,j)*Tsf(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 |
505 |
THSICE_SOLVE4TEMP |
b1 = b10(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 |
159 |
NO PROCEDURE |
b1 = -4.2393 _d -8 |
|
./model/src/seawater.F |
174 |
NO PROCEDURE |
& + (b0 + b1*T)*(S-sref) |