| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_chem.F |
186 |
GET_METHANE_N2O |
subroutine GET_METHANE_N2O (pres,Nrphys,n2o,methane) |
|
./pkg/fizhi/fizhi_init_chem.F |
201 |
GET_METHANE_N2O |
_RL pres(Nrphys) |
|
./pkg/fizhi/fizhi_init_chem.F |
242 |
GET_METHANE_N2O |
if( plevz(L1).gt.pres(L2) ) then |
|
./pkg/fizhi/fizhi_init_chem.F |
263 |
GET_METHANE_N2O |
hght(L2) = hpr2 + ( pres(L2)-pr2 )*slope |
|
./pkg/fizhi/fizhi_rayleigh.F |
39 |
RAYLEIGH |
_RL zsurf(im,jm),pres(im,jm,lm),pkap(im,jm,lm) |
|
./pkg/fizhi/fizhi_rayleigh.F |
5 |
RAYLEIGH |
subroutine RAYLEIGH(myid,pres,pkap,pekap,zsurf,u,v,t,s,im,jm,lm, |
|
./pkg/fizhi/update_chemistry_exports.F |
140 |
INTERP_QZ |
. irun,bi,bj,xlat,nlevs,pres,qz_in,qz_out ) |
|
./pkg/fizhi/update_chemistry_exports.F |
166 |
INTERP_QZ |
_RL pres (irun,nlevs) |
|
./pkg/fizhi/update_chemistry_exports.F |
230 |
INTERP_QZ |
IF( watlevs(L1).GT.pres(i,L2) ) THEN |
|
./pkg/fizhi/update_chemistry_exports.F |
252 |
INTERP_QZ |
qz_clim(i,L2) = QPR2(i) + (pres(i,L2)-PR2(i))*SLOPE(i) |
|
./pkg/fizhi/update_chemistry_exports.F |
264 |
INTERP_QZ |
if( pres(i,k).ge.pqu .and. pres(i,k).le. pql) then |
|
./pkg/fizhi/update_chemistry_exports.F |
266 |
INTERP_QZ |
1 qz_clim(i,k))*(pres(i,k)-pqu)/dpq |
|
./pkg/fizhi/update_chemistry_exports.F |
267 |
INTERP_QZ |
else if( pres(i,k) .gt. pql ) then |