| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/update_earth_exports.F |
110 |
UPDATE_EARTH_EXPORTS |
call ASTRO(20040321,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/fizhi/update_earth_exports.F |
112 |
UPDATE_EARTH_EXPORTS |
call ASTRO(nymd,nhms,lats,lons,im2*jm2,cosz,radius) |
|
./pkg/fizhi/update_earth_exports.F |
50 |
UPDATE_EARTH_EXPORTS |
_RL 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 |
|
./pkg/opps/opps_calc.F |
104 |
OPPS_CALC |
_RL radius,StartingFlux |
|
./pkg/opps/opps_calc.F |
171 |
OPPS_CALC |
radius=PlumeRadius |
|
./pkg/opps/opps_calc.F |
172 |
OPPS_CALC |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
195 |
OPPS_CALC |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)* |
|
./pkg/opps/opps_calc.F |
281 |
OPPS_CALC |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |
|
./pkg/opps/opps_calc.F |
576 |
NLOPPS |
REAL radius,StartingFlux |
|
./pkg/opps/opps_calc.F |
696 |
NLOPPS |
radius=PlumeRadius |
|
./pkg/opps/opps_calc.F |
697 |
NLOPPS |
StartingFlux=radius*radius*Wd(k)*Dd(k) |
|
./pkg/opps/opps_calc.F |
716 |
NLOPPS |
newflux=oldflux+e2*radius*Wd(k2)*Dd(k2)*0.50* |
|
./pkg/opps/opps_calc.F |
776 |
NLOPPS |
radius=sqrt(newflux/(Wd(k2)*Dd(k2))) |