| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_calc.F |
169 |
OPPS_CALC |
radius=PlumeRadius |
|
./pkg/opps/opps_calc.F |
170 |
OPPS_CALC |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
193 |
OPPS_CALC |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)* |
|
./pkg/opps/opps_calc.F |
280 |
OPPS_CALC |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
|
./pkg/opps/opps_calc.F |
732 |
NLOPPS |
REAL radius,StartingFlux |
|
./pkg/opps/opps_calc.F |
860 |
NLOPPS |
radius=PlumeRadius |
|
./pkg/opps/opps_calc.F |
861 |
NLOPPS |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
880 |
NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
|
./pkg/opps/opps_calc.F |
944 |
NLOPPS |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
|
./pkg/opps/opps_calc.F |
98 |
OPPS_CALC |
_RL radius,StartingFlux |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
38 |
UPDATE_EARTH_EXPORTS |
_RL radius |
|
./verification/fizhi-cs-aqualev10/code/update_earth_exports.F |
97 |
UPDATE_EARTH_EXPORTS |
call ASTRO(20040321,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/sbo/sbo_calc.F |
161 |
SBO_CALC |
_RL lat, lat_deg, lon, radius, darea, dradius, dvolume, depth |
|
./pkg/sbo/sbo_calc.F |
217 |
SBO_CALC |
radius = ae |
|
./pkg/sbo/sbo_calc.F |
231 |
SBO_CALC |
radius = ae - abs(rC(K)) |
|
./pkg/sbo/sbo_calc.F |
240 |
SBO_CALC |
dvolume = darea * radius**2 * dradius |
|
./pkg/sbo/sbo_calc.F |
243 |
SBO_CALC |
depth = ae - radius |
|
./pkg/sbo/sbo_calc.F |
251 |
SBO_CALC |
& * radius * dvolume |
|
./pkg/sbo/sbo_calc.F |
253 |
SBO_CALC |
& * radius * dvolume |
|
./pkg/sbo/sbo_calc.F |
255 |
SBO_CALC |
& radius * dvolume |
|
./pkg/sbo/sbo_calc.F |
259 |
SBO_CALC |
& * density * radius * dvolume |
|
./pkg/sbo/sbo_calc.F |
261 |
SBO_CALC |
& * density * radius * dvolume |
|
./pkg/sbo/sbo_calc.F |
263 |
SBO_CALC |
& * density * radius * dvolume |
|
./pkg/sbo/sbo_calc.F |
267 |
SBO_CALC |
& * sbo_omega * density * radius**2 * dvolume |
|
./pkg/sbo/sbo_calc.F |
269 |
SBO_CALC |
& * sbo_omega * density * radius**2 * dvolume |
|
./pkg/sbo/sbo_calc.F |
271 |
SBO_CALC |
& * sbo_omega * density * radius**2 * dvolume |
|
./pkg/fizhi/update_earth_exports.F |
38 |
UPDATE_EARTH_EXPORTS |
_RL radius |
|
./pkg/fizhi/update_earth_exports.F |
97 |
UPDATE_EARTH_EXPORTS |
call ASTRO(nymd,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
47 |
MOM_U_METRIC_CYLINDER |
_RL radius |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
52 |
MOM_U_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
55 |
MOM_U_METRIC_CYLINDER |
IF ( radius.GT.0. ) THEN |
|
./pkg/mom_fluxform/mom_u_metric_cylinder.F |
59 |
MOM_U_METRIC_CYLINDER |
& vFld(i,j+1)+vFld(i-1,j+1))/radius |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
47 |
MOM_V_METRIC_CYLINDER |
_RL radius |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
52 |
MOM_V_METRIC_CYLINDER |
radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0 |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
55 |
MOM_V_METRIC_CYLINDER |
IF ( radius.GT.0. ) THEN |
|
./pkg/mom_fluxform/mom_v_metric_cylinder.F |
60 |
MOM_V_METRIC_CYLINDER |
& uFld(i,j-1)+uFld(i+1,j-1))/radius |