| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_chem.F |
103 |
READ_QZ |
do lev = 1,nlev |
|
./pkg/fizhi/fizhi_init_chem.F |
105 |
READ_QZ |
qz(lat,lev,time0) = qz(lat,lev,time0)*voltomas |
|
./pkg/fizhi/fizhi_init_chem.F |
141 |
READ_OZ |
integer lev |
|
./pkg/fizhi/fizhi_init_chem.F |
158 |
READ_OZ |
do lev = 1,nlev |
|
./pkg/fizhi/fizhi_init_chem.F |
159 |
READ_OZ |
levs(lev) = plevs(lev) |
|
./pkg/fizhi/fizhi_init_chem.F |
169 |
READ_OZ |
do lev=1,nlev |
|
./pkg/fizhi/fizhi_init_chem.F |
171 |
READ_OZ |
nrec = lev+(time0-1)*nlev*2 |
|
./pkg/fizhi/fizhi_init_chem.F |
177 |
READ_OZ |
oz(lat,nlev-lev+1,time0) = o3(lat) |
|
./pkg/fizhi/fizhi_init_chem.F |
73 |
READ_QZ |
integer lev |
|
./pkg/fizhi/fizhi_init_chem.F |
89 |
READ_QZ |
read(ku,1000) (levs(lev),lev=1,nlev) |
|
./pkg/fizhi/fizhi_init_chem.F |
96 |
READ_QZ |
read(ku,1000) (qz(lat,lev,time0),lev=1,nlev) |