| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_chem.F |
202 |
GET_METHANE_N2O |
_RL hght(Nrphys), slope,pr1,pr2,hpr1,hpr2 |
|
./pkg/fizhi/fizhi_init_chem.F |
263 |
GET_METHANE_N2O |
hght(L2) = hpr2 + ( pres(L2)-pr2 )*slope |
|
./pkg/fizhi/fizhi_init_chem.F |
272 |
GET_METHANE_N2O |
if( hght(L).gt.26. ) then |
|
./pkg/fizhi/fizhi_init_chem.F |
273 |
GET_METHANE_N2O |
n2o(L) = 120.* exp( (26.- hght(L)) / 5.69 ) * 1.e-9 |
|
./pkg/fizhi/fizhi_init_chem.F |
274 |
GET_METHANE_N2O |
else if( hght(L).gt.16. ) then |
|
./pkg/fizhi/fizhi_init_chem.F |
275 |
GET_METHANE_N2O |
n2o(L) = 307.* exp( (16.- hght(L)) /10.47 ) * 1.e-9 |
|
./pkg/fizhi/fizhi_init_chem.F |
282 |
GET_METHANE_N2O |
if( hght(L).gt.55. ) then |
|
./pkg/fizhi/fizhi_init_chem.F |
284 |
GET_METHANE_N2O |
else if( hght(L).gt.14. ) then |
|
./pkg/fizhi/fizhi_init_chem.F |
285 |
GET_METHANE_N2O |
methane(L) = 1.7* exp( (14.- hght(L)) /19.16 ) * 1.e-6 |