File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_init_chem.F |
26 |
FIZHI_INIT_CHEM |
_RL watlats(nwatlats), watlevs(nwatlevs) |
./pkg/fizhi/fizhi_init_chem.F |
35 |
FIZHI_INIT_CHEM |
call READ_QZ (kqz,water,watlats,watlevs,nwatlats,nwatlevs,ntimesq) |
./pkg/fizhi/fizhi_init_chem.F |
7 |
FIZHI_INIT_CHEM |
. nwatlats,nwatlevs,ntimesq,watlats,watlevs,water, |
./pkg/fizhi/update_chemistry_exports.F |
109 |
INTERP_CHEMISTRY |
subroutine INTERP_CHEMISTRY (stratq,nwatlevs,nwatlats,watlevs, |
./pkg/fizhi/update_chemistry_exports.F |
119 |
INTERP_CHEMISTRY |
_RL watlevs(nwatlevs),watlats(nwatlats) |
./pkg/fizhi/update_chemistry_exports.F |
131 |
INTERP_CHEMISTRY |
call INTERP_QZ (stratq,nwatlevs,nwatlats,watlevs,watlats,im*jm, |
./pkg/fizhi/update_chemistry_exports.F |
139 |
INTERP_QZ |
subroutine INTERP_QZ(stratq,nwatlevs,nwatlats,watlevs,watlats, |
./pkg/fizhi/update_chemistry_exports.F |
162 |
INTERP_QZ |
_RL watlevs (nwatlevs) |
./pkg/fizhi/update_chemistry_exports.F |
230 |
INTERP_QZ |
IF( watlevs(L1).GT.pres(i,L2) ) THEN |
./pkg/fizhi/update_chemistry_exports.F |
244 |
INTERP_QZ |
PR1(i) = watlevs (LM) |
./pkg/fizhi/update_chemistry_exports.F |
245 |
INTERP_QZ |
PR2(i) = watlevs (LP) |