| File |
Line number |
Procedure |
Code |
|
./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 |
45 |
FRAZIL_CALC_RHS |
PARAMETER( a0 = -0.0575 _d 0 ) |
|
./pkg/frazil/frazil_calc_rhs.F |
88 |
FRAZIL_CALC_RHS |
Tfreezing = (a0 + a1*sqrt(sLoc) + a2*sLoc) * sLoc + b*pLoc |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
26 |
NO PROCEDURE |
_RL sq,a0,b0 |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
28 |
NO PROCEDURE |
a0 = abs(aa) |
|
./pkg/generic_advdiff/gad_pqm_fun.F |
33 |
NO PROCEDURE |
if (a0 .gt. 0. _d 0) then |
|
./pkg/icefront/icefront_thermodynamics.F |
108 |
ICEFRONT_THERMODYNAMICS |
aqe = a0 *(-eps1+eps3) |
|
./pkg/icefront/icefront_thermodynamics.F |
134 |
ICEFRONT_THERMODYNAMICS |
bqe = - eps1*eps6 -sLoc*a0*eps3 + eps3*eps7 + eps2 |
|
./pkg/icefront/icefront_thermodynamics.F |
140 |
ICEFRONT_THERMODYNAMICS |
thetaFreeze = a0*saltFreeze + eps4 |
|
./pkg/icefront/icefront_thermodynamics.F |
69 |
ICEFRONT_THERMODYNAMICS |
_RL a0, b, c0 |
|
./pkg/icefront/icefront_thermodynamics.F |
80 |
ICEFRONT_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./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 |
161 |
SW_ADTG |
a0 = 3.5803 _d -5 |
|
./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 |
67 |
NO PROCEDURE |
a0 = -1.446013646344788 _d -2 |
|
./model/src/gsw_teos10.F |
83 |
NO PROCEDURE |
pt_num = a0 + s1*(a1 + a2*s1) + CT*ct_factor |
|
./pkg/shelfice/shelfice_thermodynamics.F |
185 |
SHELFICE_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
193 |
SHELFICE_THERMODYNAMICS |
a0 = -0.0575 _d 0 |
|
./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 |
454 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*sLoc(I,J)+c0+b*pLoc(I,J) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
481 |
SHELFICE_THERMODYNAMICS |
aqe = a0 *(eps1+eps3-eps8) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
489 |
SHELFICE_THERMODYNAMICS |
& + eps8*( a0*sLoc(I,J) - eps7 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
527 |
SHELFICE_THERMODYNAMICS |
thetaFreeze = a0*saltFreeze + eps4 |
|
./pkg/shelfice/shelfice_thermodynamics.F |
95 |
SHELFICE_THERMODYNAMICS |
_RL a0, a1, a2, b, c0 |
|
./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 |
153 |
NO PROCEDURE |
a0 = 3.5803 _d -5 |
|
./model/src/seawater.F |
173 |
NO PROCEDURE |
SW_ADTG = a0 + (a1 + (a2 + a3*T)*T)*T |