| File |
Line number |
Procedure |
Code |
|
./pkg/sbo/sbo_calc.F |
161 |
SBO_CALC |
_RL lat, lat_deg, lon, radius, darea, dradius, dvolume, depth |
|
./pkg/sbo/sbo_calc.F |
199 |
SBO_CALC |
lat = yC(I,J,bi,bj) * pi / 180.0 |
|
./pkg/sbo/sbo_calc.F |
250 |
SBO_CALC |
xcom = xcom + density * cos(lat) * cos(lon) |
|
./pkg/sbo/sbo_calc.F |
252 |
SBO_CALC |
ycom = ycom + density * cos(lat) * sin(lon) |
|
./pkg/sbo/sbo_calc.F |
254 |
SBO_CALC |
zcom = zcom + density * sin(lat) * |
|
./pkg/sbo/sbo_calc.F |
258 |
SBO_CALC |
xoamc = xoamc + ( v*sin(lon)-u*sin(lat)*cos(lon)) |
|
./pkg/sbo/sbo_calc.F |
260 |
SBO_CALC |
yoamc = yoamc + (-v*cos(lon)-u*sin(lat)*sin(lon)) |
|
./pkg/sbo/sbo_calc.F |
262 |
SBO_CALC |
zoamc = zoamc + u*cos(lat) |
|
./pkg/sbo/sbo_calc.F |
266 |
SBO_CALC |
xoamp = xoamp - sin(lat) * cos(lat) * cos(lon) |
|
./pkg/sbo/sbo_calc.F |
268 |
SBO_CALC |
yoamp = yoamp - sin(lat) * cos(lat) * sin(lon) |
|
./pkg/sbo/sbo_calc.F |
270 |
SBO_CALC |
zoamp = zoamp + cos(lat)**2 |
|
./pkg/fizhi/fizhi_init_chem.F |
104 |
READ_QZ |
do lat = 1,nlat |
|
./pkg/fizhi/fizhi_init_chem.F |
105 |
READ_QZ |
qz(lat,lev,time0) = qz(lat,lev,time0)*voltomas |
|
./pkg/fizhi/fizhi_init_chem.F |
140 |
READ_OZ |
integer lat |
|
./pkg/fizhi/fizhi_init_chem.F |
152 |
READ_OZ |
do lat = 1,nlat |
|
./pkg/fizhi/fizhi_init_chem.F |
153 |
READ_OZ |
lats(lat) = -90. + (lat-1)*5. |
|
./pkg/fizhi/fizhi_init_chem.F |
176 |
READ_OZ |
do lat=1,nlat |
|
./pkg/fizhi/fizhi_init_chem.F |
177 |
READ_OZ |
oz(lat,nlev-lev+1,time0) = o3(lat) |
|
./pkg/fizhi/fizhi_init_chem.F |
72 |
READ_QZ |
integer lat |
|
./pkg/fizhi/fizhi_init_chem.F |
83 |
READ_QZ |
do lat = 1,nlat |
|
./pkg/fizhi/fizhi_init_chem.F |
84 |
READ_QZ |
lats(lat) = -85. + (lat-1)*10. |
|
./pkg/fizhi/fizhi_init_chem.F |
95 |
READ_QZ |
do lat=1,nlat |
|
./pkg/fizhi/fizhi_init_chem.F |
96 |
READ_QZ |
read(ku,1000) (qz(lat,lev,time0),lev=1,nlev) |