| 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) |
|
./pkg/diagnostics/diagnostics_utils.F |
59 |
GETDIAG |
INTEGER lev, levCt, klev |
|
./pkg/diagnostics/diagnostics_utils.F |
62 |
GETDIAG |
lev = NINT(levreal) |
|
./pkg/diagnostics/diagnostics_utils.F |
64 |
GETDIAG |
IF (lev.LE.klev) THEN |
|
./pkg/diagnostics/diagnostics_utils.F |
69 |
GETDIAG |
ipnt = ip + lev - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
94 |
GETDIAG |
ipnt = ip + lev - 1 |
|
./pkg/diagnostics/diagnostics_utils.F |
95 |
GETDIAG |
levCt= MIN(lev,kdiag(mate)) |